Protection : vb, name/serial Level : Newbies who want to learn VB keygenning Tools needed : *Soft Ice *Smart Check *Visual basic (for the keygen)
Enter your name and a fake serial (seifer666/12345). Under SIce, put a bpx on __vbastrcomp.
Validate your serial, SIcebreaks... Hehe, it's good for us. Just type dd esp, and the dwords values
are for me :
By looking at the prog with SmartCheck, we find the registration routine easily. 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, AbsoluteB, JB007.... and all I've forgotten ;-)
0F0035AB 00421790 004217E8 00000005
The first one isn't interesting. By looking at the second one (d 421790), you can see in wide
format :
1.2.3.4.5. //Cool, our serial
And if you look at the third one you'll see in my case :
1.0.1.1.0.2.1.0.5.1.0.1.1.1.5. //heh, looks like a serial, doesn't it ?
So, disable the breakpoint (bc 0) and try the serial we found... Hehe, it was the good one, another one
cracked !
3)The keygen
*Takes the five first chars of the name
*Inverts their order
*Takes the ascii code of each chars in the new order
*Put them into one string : the serial
I'll give as always a cut of my keygen, i hope u'll understand it...
'************************************************************************************************
Private Sub text1_change()
Dim orig As String, invert As String, temp As String, final As String
If Len(Text1.Text) < 5 Then
Text2.Text = "Name should be at least 5 chars..."
Exit Sub
End If
orig = Left(Text1.Text, 5)
For i = 5 To 1 Step -1
invert = invert + Mid(orig, i, 1)
Next i
For i = 1 To 5
temp = CStr(Asc(Mid(invert, i, 1)))
final = final + temp
Next i
Text2.Text = final
End Sub
'************************************************************************************************