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
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 !!!
It is easy to understand the keygen algo by looking at SC's log. The algo is :
4)Final words
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 ;-)
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
*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 ?