Jump to content
Tuts 4 You

[KeygenMe] KeygenMe#8


C0M3ND4D0R

Recommended Posts

semttuloyts.png

 

Name : KeygenMe#8
Language : Autoit
Level: ?????
Packer: Not
Obfuscation: Yes
Rules: Keygen
Not Patching
Not Serial Fishing
Not Self-Keygen

 

https://www.dropbox.com/s/lwn325gqkd6x6dn/KeygenMe%238.rar'>>https://www.dropbox.com/s/lwn325gqkd6x6dn/KeygenMe%238.rar

 

 

KeygenMe#8.rar

Link to comment

My keygen:



 


 

$form = GUICreate("KeygenMe - by atom0s", 300, 100) 

$key = GUICtrlCreateInput( "KeyHere", 5, 5, 250, 20 );

$name = GUICtrlCreateInput( "NameHere", 5, 25, 250, 20 );

$serial = GUICtrlCreateInput( "", 5, 50, 250, 20 );

$exit = GUICtrlCreateButton( "Close", 5, 75, 250, 20 );

GUISetState(@SW_SHOW)

 

Func DoSerial()

   $Var0387 = GUICtrlRead($key) ; key

   $Var0388 = GUICtrlRead($name) ; name

 

   $Var038A = Fn000D($Var0387, $Var0388, 0x6801)

   $Var038B = $Var038A

   $Var038C = Fn0007($Var038B)

   $Var038D = Fn000F($Var038C, $Var0364)

 

   GUICtrlSetData( $serial, $Var038D );

EndFunc

 

While 1

   $msg = GUIGetMsg();

   Switch $msg

Case $name

   DoSerial();

Case $exit 

   Exit

   EndSwitch

WEnd

 

This is with the code from the actual keygen removed since it uses a lot of random things. Attached is a working copy of mine.

Keygen.zip

Edited by atom0s
Link to comment

Perfect Keygen, Brother. Thanks.


 


PS.: I found a small error, (Input Key) which went unnoticed by me. Now fix the source code, I added a condition, but I decided to leave the keygen like that.


The important thing is fun.


 


Hug


Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...