[KeygenMe] KeygenMe#7.1

[C0M3ND4D0R]

 

Name : KeygenMe#7.1
Language : Autoit
Level: Easy
Packer: Molebox
Obfuscation: Yes
Rules: Keygen
Not Patching
Not Serial Fishing
Not Self-Keygen

 

 

KeygenMe#7_1.rar

[atom0s]

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

[C0M3ND4D0R]

 

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

[C0M3ND4D0R]

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