DarkWolf

presents:

Essay nš #7: Keygenning Apollo crackme 1

Toolz:

SmartCheck only. Get this crackme at http://kickme.to/ViusalBasic

Configure it with Eternal Bliss Tutorial

Explain: Nice crackme!!

The Essay:

Well, i will explain how to keygen it. It was my first keygen, so its very easy ;o). Load this proggie at SC (SmartCheck). Enter any serial and name and click OK. Click in the _Click Function. Now c:

Len(String:"Your name") returns LONG: lenght of ur name > Just get the lenght of a variable, in this case, the name.
Str$(VARIANT:Long:Generated Serial) > Returns a Variant (String) representation of a number. *
LTrim$(String:"Generated Serial") > Just delete spaces
MsgBox(Blablabla) > Tell the user that his serial is WRONG!

Well, if u only want the serial, u r done! But, we want to keygen it, so, we dont stop here, but stop the program, to dont eat memory. Well, select the line with the Len(String etc.....) and click Show All events. We r just be4 the calculation routine! Look, i will give detailed informations, and i will call The lenght of ur name Lenght:

        Len(String:"Your name here") returns long: lenght of the String
        __vbaVarMove(VARIANT: LONG: Lenght, Variant:Empty) returns DWORD: Variable string > I think it copy a string
        __vbaFreeStr(Blablabla) returns blablabla > Not important. If u select, u will c ur name in the other window.
        __vbaFreeObj(Blablabla) > Not important too
************************ NOW START THE *REALLY* IMPORTANT PART!!!*******************
        __vbaVarMul(Variant:Long: Lenght of ur name,Variant:Integer:1024)
> This will multiply the lenght by 1024. This 1024 is defined my the autor
        __vbaVarXor(Variant:Long: Result of the Multiply,VARIANT:Integer:23)
> This will Xor the result of the multiply by 23. The 23 is user-defined
        __vbaVarMove(blablabla)
> Dunno what it does, to important
        __vbaVarMul(VARIANT:Long: Result of the Xor, VARIANT:Integer:1024)
> This will multiply 1024 by the result of the xor. Thats it! This is the calc.  The rest is not important.

Translating:

Get lenght of your name, nultiply it by 1024, the result is Xor'ed by 23 then is Multiplyed again by 1024. Try using a calc.

The result is yout serial! I give u the VisualBasic souce code of this keygen:

Dim Serial
Serial = Len(Text1.Text)
Serial = Serial * 1024
Serial = Serial Xor 23
Serial = Serial * 1024
Download here my KeyGen[dw_keygen_01.zip - MISSING]

Congratulations!, u have done ur keygen!

If u don't found your ser, mail me

Greetz:

Mercution, AC_178, Ac|dFuSiO, LaZaRuZ^, Dead-Mike, Termn8r, Macr0, Dead-Mike, SpeedSta (for playing chess :), SHeep14o, Turismoo, and all ppl in Hellforge, Cream2K and #cracking.uk. If i forgot u, sorry :)

Contact: darkwolfhp@hotmail.com