Delphi程序算法注册机申制！

飘云

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

打劫,快交出来!;P

jjdg

贴个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

都这么厉害，学习了

tianxj

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

.const

.data
szHomePage db "https://www.chinapyg.com/",0
szEmail    db "mailto:tianxj_2007@126.com",0
szErrMess  db "请输入用户名！",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 [ESI+EDX-1]
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 编辑 ]

新手求教

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

tianxj

原帖由 奈落 于 2007-11-16 22:59 发表
我想问下这个帖子是做什么的？

呵呵，做算法注册机啊