Search
Latest topics
Share AutoIT source Perfectkeylog Key General
Page 1 of 1
Share AutoIT source Perfectkeylog Key General
Opt("TrayIconHide",1)
#include
#include
#include
;Copyright by Sniper ( +84.983.273.085 )
;Vui long giu ban quyen tac gia ho minh
;Please keep the copyright
GUICreate("Keygen - Perfect Keylog 1.6.8.2",300,75)
GUICtrlCreateLabel("Version 1.0 Copyright © 2008 - "&@year&" by Sniper W4S IISVN",5,5)
GUICtrlCreateLabel("Your Name :",5,25)
$name=GUICtrlCreateInput("Sniper W4S",70,22,170,20,$ES_CENTER)
$key=GUICtrlCreateInput("",70,47,170,20,BitOR($ES_READONLY,$ES_CENTER))
GUICtrlCreateLabel(" Key :",5,50)
$button=GUICtrlCreateButton("GEN",245,22,45,45,$BS_DEFPUSHBUTTON)
GUISetState (@SW_SHOW)
$keylog_1_6_8_2="_r <()<1-Z2[l5,^"
$key_source=StringSplit($keylog_1_6_8_2,"")
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
if $msg=$button Then
getkey()
EndIf
Sleep(10)
getkey()
Wend
Func getkey()
$_name=GUICtrlRead($name)
if $_name <> "" Then
$keygen=""
$__name=StringSplit($_name,"")
for $i=1 To $key_source[0]
$k=mod($i,$__name[0])
if $k=0 then $k=$__name[0]
$new_char=Chr(mod(BitXOR(asc($key_source[$i]),asc($__name[$k])),25)+65)
if $i<>4 and $i<>8 and $i<>12 then
$keygen=$keygen&$new_char
Else
$keygen=$keygen&$new_char&"-"
EndIf
Next
if GUICtrlRead($key)<>$keygen then GUICtrlSetData($key,$keygen)
EndIf
EndFunc
#include
#include
#include
;Copyright by Sniper ( +84.983.273.085 )
;Vui long giu ban quyen tac gia ho minh
;Please keep the copyright
GUICreate("Keygen - Perfect Keylog 1.6.8.2",300,75)
GUICtrlCreateLabel("Version 1.0 Copyright © 2008 - "&@year&" by Sniper W4S IISVN",5,5)
GUICtrlCreateLabel("Your Name :",5,25)
$name=GUICtrlCreateInput("Sniper W4S",70,22,170,20,$ES_CENTER)
$key=GUICtrlCreateInput("",70,47,170,20,BitOR($ES_READONLY,$ES_CENTER))
GUICtrlCreateLabel(" Key :",5,50)
$button=GUICtrlCreateButton("GEN",245,22,45,45,$BS_DEFPUSHBUTTON)
GUISetState (@SW_SHOW)
$keylog_1_6_8_2="_r <()<1-Z2[l5,^"
$key_source=StringSplit($keylog_1_6_8_2,"")
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
if $msg=$button Then
getkey()
EndIf
Sleep(10)
getkey()
Wend
Func getkey()
$_name=GUICtrlRead($name)
if $_name <> "" Then
$keygen=""
$__name=StringSplit($_name,"")
for $i=1 To $key_source[0]
$k=mod($i,$__name[0])
if $k=0 then $k=$__name[0]
$new_char=Chr(mod(BitXOR(asc($key_source[$i]),asc($__name[$k])),25)+65)
if $i<>4 and $i<>8 and $i<>12 then
$keygen=$keygen&$new_char
Else
$keygen=$keygen&$new_char&"-"
EndIf
Next
if GUICtrlRead($key)<>$keygen then GUICtrlSetData($key,$keygen)
EndIf
EndFunc
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
Thu Aug 23, 2012 5:38 am by Admin
» Tuyệt kỹ cua giai
Thu Aug 23, 2012 5:36 am by Admin
» NETCAT.........
Mon Aug 13, 2012 6:35 am by Admin
» Bảo mật CSDL bằng phương pháp mã hóa.
Tue Apr 17, 2012 10:04 pm by Admin
» Hàm mã hóa MD5 bằng JavaScript
Tue Apr 17, 2012 10:03 pm by Admin
» Giá của món quà
Fri Apr 13, 2012 6:01 am by Admin
» Sẽ chỉ yêu ai?
Fri Apr 13, 2012 6:01 am by Admin
» Cách đọc bảng chữ cái!
Thu Apr 12, 2012 10:37 pm by Admin
» Gắn trojan, keylog, virus vào website, forum
Tue Apr 10, 2012 1:14 am by Admin