Jump to content
Tuts 4 You

[KeygenMe] KeygenMe#7.1


C0M3ND4D0R

Recommended Posts

Heres a keygen written in AutoIt, I have no idea how to do things in AutoIt so this was thrown together poorly.


Enter a name, then click in the serial box and it will generate the valid serial.


 


Source to my keygen:



 


 


#include <GUIConstantsEx.au3>

 

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

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

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

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

GUISetState(@SW_SHOW)

 

Func Fn0008($__01)

Local $locVar0001 = StringLen($__01)

If $locVar0001 < 1 Then Return SetError(1, 0, "")

Local $locVar0002 = DllStructCreate("char[" & $locVar0001 + 1 & "]")

DllStructSetData($locVar0002, 1, $__01)

Local $locVar0003 = DllCall("msvcrt.dll", "ptr:cdecl", "_strrev", "struct*", $locVar0002)

If @error OR $locVar0003[0] = 0 Then Return SetError(2, 0, "")

Return DllStructGetData($locVar0002, 1)

EndFunc

 

Func DoSerial()

   $step1 = StringToBinary( GUICtrlRead( $name ), 3)

   $step2 = Fn0008( $step1 )

   GUICtrlSetData( $serial, $step2 );

EndFunc

 

While 1

   

   $msg = GUIGetMsg();

   Switch $msg

 Case $name

DoSerial();

 Case $exit

Exit

   EndSwitch

   

   

WEnd

keygen.zip

Link to comment

 

Heres a keygen written in AutoIt, I have no idea how to do things in AutoIt so this was thrown together poorly.

Enter a name, then click in the serial box and it will generate the valid serial.

 

Source to my keygen:

 

 

#include <GUIConstantsEx.au3>

 

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

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

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

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

GUISetState(@SW_SHOW)

 

Func Fn0008($__01)

Local $locVar0001 = StringLen($__01)

If $locVar0001 < 1 Then Return SetError(1, 0, "")

Local $locVar0002 = DllStructCreate("char[" & $locVar0001 + 1 & "]")

DllStructSetData($locVar0002, 1, $__01)

Local $locVar0003 = DllCall("msvcrt.dll", "ptr:cdecl", "_strrev", "struct*", $locVar0002)

If @error OR $locVar0003[0] = 0 Then Return SetError(2, 0, "")

Return DllStructGetData($locVar0002, 1)

EndFunc

 

Func DoSerial()

   $step1 = StringToBinary( GUICtrlRead( $name ), 3)

   $step2 = Fn0008( $step1 )

   GUICtrlSetData( $serial, $step2 );

EndFunc

 

While 1

   

   $msg = GUIGetMsg();

   Switch $msg

 Case $name

DoSerial();

 Case $exit

Exit

   EndSwitch

   

   

WEnd

 

 

I liked brother,very cool your keygen, Thanks

 

Hug

Link to comment

very well
enough time, who failed to continue trying.source code my simple keygen:

#include <String.au3>$entra = InputBox("Keygen#7.1 - by CMNDDR", "Name:", "", "", 230, 126)$vai = StringToBinary($entra, 3)$rev = _StringReverse($vai)ClipPut($rev)MsgBox(0, "", "Serial: " & $rev & @CRLF & @CRLF & "--> by C0M3ND4D0R")

 

MyKeygen:

 

MyKeygen#7.1.rar

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