飘云 发表于 2006-7-6 21:37:49

原帖由 dryzh 于 2006-7-5 02:07 发表
都这么强?有易,还有DELPHI!
(要不我也传我的VB的上来???)

打劫,快交出来!;P

jjdg 发表于 2007-11-5 17:21:03

贴个vb的！
只需2个文本框即可！

Private Sub Text1_Change()
If Len(Text1) > 6 Or (Len(Text1) = 6) Then
    a = 0
    For i = 1 To 6
      a = a + Asc(Mid(Text1, i, 1)) * 2
    Next
    b = Len(Text1.Text) * 2
    Text2 = a + b
End If
End Sub

[ 本帖最后由 jjdg 于 2007-11-5 17:35 编辑 ]

tianxj 发表于 2007-11-11 08:05:49

都这么厉害，学习了

tianxj 发表于 2007-11-16 19:02:45

我找到原题做了一下，来一个keymake的
Keygen.rek

.const

.data
szHomePage db "https://www.chinapyg.com/",0
szEmail    db "mailto:[email protected]",0
szErrMessdb "请输入用户名！",0
TempBuffer db 50 dup (0)
szFMT db '%u',0

.code
MOV ESI,EAX               
invoke lstrlen,ESI
XOR EBX,EBX   
XOR ECX,ECX               
XOR EDX,EDX               
XOR EDI,EDI
MOV EDX,1               
n1:
MOVZX EBX, byte ptr
IMUL EBX,EBX,2
ADD EDI,EBX
MOV ECX,EDX
INC EDX
CMP ECX,6
JNZ n1
IMUL EAX,EAX,2
ADD EDI,EAX
invoke wsprintf,addr TempBuffer,addr szFMT,EDI
lea eax,TempBuffer



[ 本帖最后由 tianxj 于 2007-11-16 19:28 编辑 ]

新手求教 发表于 2007-11-16 20:36:33

都是高手！学习了，拿回去慢慢研究

tianxj 发表于 2007-11-16 23:23:43

原帖由 奈落 于 2007-11-16 22:59 发表 https://www.chinapyg.com/images/common/back.gif
我想问下这个帖子是做什么的？

呵呵，做算法注册机啊
页: 1 [2]
查看完整版本: Delphi程序算法注册机申制！