Jump to content
Tuts 4 You

[KeygenMe] Delphi KeyGenMe MEW 11


LordCoder

Recommended Posts

Here's a small keygen I made in autoit for this. :)


 


Edit: Here is the src of it.



 


#include <GUIConstantsEx.au3>

$form = GUICreate( "Keygen - by atom0s", 250, 125 );

$exit = GUICtrlCreateButton( "Close", 5, 100, 190, 20 );

$num1 = GUICtrlCreateInput( "", 5, 5, 190, 20 );

$num2 = GUICtrlCreateInput( "", 5, 30, 190, 20 );

GUISetState( @SW_SHOW );

 

Func DoKeygen()

   $input = GUICtrlRead( $num1 )

   $serial = 59292 - $input

   GUICtrlSetData( $num2, $serial );   

EndFunc

 

While( 1 )

   $msg = GUIGetMsg();

   

   DoKeygen();

   

   Select  

Case $msg = $exit

 Exit

 

Case $msg = $GUI_EVENT_CLOSE

 Exit

   EndSelect

WEnd


Keygen.7z

Edited by atom0s
Link to comment
Share on other sites

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...