Share AutoIT source Perfectkeylog Key General

Download Perfectkeylog tại trang chủ của nó: http://blazingtools.com/bpk.html
Version mới nhất là 1.6.8.2
Dưới đây là source của Keygen: (Anh em giữ bản quyền hộ nhé  )
Opt(“TrayIconHide”,1)#include <GUIConstants.au3>;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_charElse$keygen=$keygen&$new_char&“-”EndIfNextif GUICtrlRead($key)<>$keygen then GUICtrlSetData($key,$keygen)
EndIfEndFunc