[Soft] Keygen - Perfect Keylog 1.6.8.2

by **Admin** Mon Dec 17, 2012 3:12 am

Code:: Opt("TrayIconHide",1) #include <GUIConstants.au3> #include <EditConstants.au3> #include <ButtonConstants.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_char Else $keygen=$keygen&$new_char&"-" EndIf Next if GUICtrlRead($key)<>$keygen then GUICtrlSetData($key,$keygen) EndIf EndFunc