|
|
|---|---|
|
|
用W32asm或OD找到“MSVBVM60.__vbaStrComp”，OD载入程序定位到2FD3：
00402FD3 . FF15 C8104000 call dword ptr [<&MSVBVM60.__vbaStrCo>; MSVBVM60.__vbaStrComp 在此下断，F9运行。看看寄存器EDX里面的字符串。呵呵，那就是你的注册码了！ 小结： VB程序通常采用“vbaStrComp”函数进行字符串比较，常常在此下断！  |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
的确很简单，
 |
|
|
楼主的程序不支持中文呢?
'For VB 6.0 KeyGen Src by KuNgBiM【支持中文、符号等乱七八糟的注册名】
Option Explicit
Private Sub Command1_Click()
Dim S As String, bArr() As Byte, i As Integer
bArr = StrConv(Text1.Text, vbFromUnicode)
Text2.Text = ""
For i = 0 To UBound(bArr)
If i <> 0 Then Text2.SelText = ""
Text2.SelText = Format$(Hex$(bArr(i)), "00")
Next
End Sub
以上是我猜出来的注册机代码。 
|
|
|
|
