偶怎么没有跟出来算法啊？？？
请教：
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: ;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:...
你跟进就很明白了! 原帖由 绝恋风尘 于 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", 0, "About"
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
+++++++++++++++++++++
兄弟算出的用户名：
98765432109876543210987654321098765432109876543210987654321098765432109876543210987654321092
注册码：Simple 103
见图！
[ 本帖最后由 野猫III 于 2006-7-25 09:39 编辑 ] 不过，我相信，大概，可能，因该
不会有人输入的注册名 >= 92 的，这个想法因该不会有错的，哈哈哈哈 原帖由 lgjxj 于 2006-7-25 12:55 发表
不过，我相信，大概，可能，因该
不会有人输入的注册名 >= 92 的，这个想法因该不会有错的，哈哈哈哈
那才是算法注册机的关键！
完美的话，考虑这个问题得两重考虑。呵呵。
可以把第一次算法的注册码加入算法之中，然后再来一个判断～ 不会吧,用这么长的用户名!^_^ 死了，那我这段时间写的都泡汤了
我一般char name; 这样的 ，真的要检讨了 学习了/:18 /:18 /:18
页:
1
[2]