How to Keygen ImmortalDescendants VB Crackme 3

Written by seifer666 for HellForge

06/30/2000

   


1)Introduction

Protection : vb, name/serial
Level : easy
Tools needed : *Eternal Bliss Camouflage to hide Smart Check
	       *Smart Check to find the code and keygen algo
	       *Visual Basic to write the keygen

 
2)How to find your serial

             For my part, i renamed Smart Check.exe into test.exe because some appz seek for this file and stop working when they find it. Use Eternal Bliss Camouflage to change the caption of the SC's window, or the crackme will make it crash !!!
             Then, launch the crackme with the vb debugger. Enter your name (i entered seifer666) and type a fake serial. Then exit the crackme and look the SC's log. Choose show all events. Ok, look in the event Text2_Change, it's the textbox where you have to enter your serial. Go at the very end of the part of the log and you'll see :

Mid(VARIANT:String:"115101105102101", long:2, VARIANT:Integer:10)

             That means that the beginning of the new string is the 2nd char of 115101105102101 and its length is 10 chars. So i tried as serial : 1510110510, and it works hehe, we are registered !!!
 

 
3)The keygen

             It is easy to understand the keygen algo by looking at SC's log. The algo is :

*takes the ascii code of each char of the name
*put them into a string
*the code = the ten numbers following the first one
Let's write it into VB :
 
'*************************************************************************************************
Private Sub text1_change()
Dim ascii, temp, final
If Text1.Text = "" Then
    Text2.Text = "You gotta enter your name !!!"
    Exit Sub
End If
For i = 1 To Len(Text1.Text)
    ascii = Asc(Mid(Text1.Text, i, 1))
    temp = temp + CStr(ascii)
Next i
If Len(temp) < 11 Then
    Text2.Text = "Your name isn't long enough to get a code !!!"
    Exit Sub
End If
final = Mid(temp, 2, 10)
Text2.Text = final
End Sub
'*************************************************************************************************
Heh pretty simple, no ?
 

4)Final words

             Once again, if u missed something, or if u want more details, please contact me. C ya soon.

I greet my groups : DQF, digital Factory, HellForge

and my friends (no specific order) : ACiD BuRN, BoomBox, BlndAngl, Lucifer48, Volatility, Tscube, Visionz, amante4, alpine, FatBoyJoe, Warez Pup, Eternal_bliss, r!sc, [mega], Sushi, MagicRaphoun, TaMaMbolo, Kahel,V-Rom, Ep-180, morrinth, Tres`ni, Dawai, DXF, CiniMod, xor, Air2k, grAnix, LordOfLa, karlitoXZ, [ManKind], Falcon^, Dazzler, Dracs, Lazarus, C_DKnight.... and all I've forgotten ;-)

seifer and HellForge

You can join me at seifer666@caramail.com or #ICQ : 61545376