VB ReVerseMe #1 by WildCatIII

网游难民

这里调用的这个函数是怎么用的？？？
偶怎么没有跟出来算法啊？？？
请教：
0040515D   .  52            PUSH EDX
0040515E   .  50            PUSH EAX
0040515F   .  FF15 94104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarAdd>]       ;  MSVBVM60.__vbaVarAdd------------------------------------------------------那位兄弟能把这个里面的算法分析下贴出来哦？？多谢
00405165   .  8D4D DC       LEA ECX,DWORD PTR SS:[EBP-24]                     ;  Simple与三个空格相加记为SN2
++++++++++++++++++++++++++++++
__vbaVarAdd ;变体变量相加 +

lea eax,var1
push eax ;加数1
lea ecx,var2
push ecx ;加数2
lea edx,var3
push edx ;结果
call __vbaVarAdd ;变量相加，在eax中返回

冷血书生

原帖由 网游难民 于 2006-7-23 18:56 发表
这里调用的这个函数是怎么用的？？？
偶怎么没有跟出来算法啊？？？
请教：
0040515D   .  52            PUSH EDX
0040515E   .  50            PUSH EAX
0040515F   .  FF15 94104000 CALL DWORD PTR DS:  ...

你跟进就很明白了!

野猫III

原帖由 绝恋风尘 于 2006-7-21 19:02 发表
VB源码
Private Sub Command1_Click()
Dim SN1 As Integer
Dim SN2 As Integer
Dim SN3 As String
  If Text1.Text <> "" Then
    SN1 = Len(Text1.Text)
    SN2 = 11 + SN1
    SN3 = "Simple   " & SN2  '建议改成: "Simple" & Space(3) & SN2
    Text2.Text = SN3
  Else
    Text1.Text = "请输入用户名！"
  End If
End Sub

+++++++++++++++++++++++

帖上源码供兄弟参考：

Private Sub Command1_Click()
a = Len(Text1.Text) + Len(Text2.Text)   
'兄弟这里处理不好！如果用户名为92位以上KeyGen就会出错～
b = "Simple" + Space(3) & a

If Text2.Text = b Then
  Text2.Text = "Yeah!How Clever!!! "
Else
  Text2.Text = "Oh!No..."
End If
End Sub

Private Sub Command2_Click()
MsgBox "Made by WildCatIII[D.4s][PYG]", 0, "About"
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""

End Sub

+++++++++++++++++++++
兄弟算出的用户名：
98765432109876543210987654321098765432109876543210987654321098765432109876543210987654321092
注册码：Simple   103

见图！

[ 本帖最后由 野猫III 于 2006-7-25 09:39 编辑 ]

lgjxj

不过，我相信，大概，可能，因该

不会有人输入的注册名 >= 92 的，这个想法因该不会有错的，哈哈哈哈

野猫III

原帖由 lgjxj 于 2006-7-25 12:55 发表
不过，我相信，大概，可能，因该

不会有人输入的注册名 >= 92 的，这个想法因该不会有错的，哈哈哈哈

那才是算法注册机的关键！

完美的话，考虑这个问题得两重考虑。呵呵。

可以把第一次算法的注册码加入算法之中，然后再来一个判断～

lhl8730

不会吧,用这么长的用户名!^_^

lgjxj

死了，那我这段时间写的都泡汤了

我一般  char name[10]; 这样的 ，真的要检讨了

kkplay

学习了  /:18 /:18 /:18