Luckly 发表于 2008-9-15 17:03:34

没人分析一下浮点？ 刚好学习一下易语言的浮点算法~暴破没意思。~

magic659117852 发表于 2008-9-15 17:22:55

/:014偶这运行没问题~~
VB写了个简单的KG

夜冷风 发表于 2008-9-15 17:36:31

蚊香兄 把你注册机的源码分享下..学习学习!!

magic659117852 发表于 2008-9-15 17:46:51

/:L 源码就垃圾了~~~ /:001乱来的~~ 不合理的地方还请指出

Private Sub Text1_Change()
Dim Name As String
Dim A, B, C, D, F, L As Long
Name = CStr(Text1.Text)
L = Len(Name)
If L = 0 Then
Text2.Text = "Input your name,Please!"
Else
For i = 1 To L
A = A + Asc(Mid(Name, i, 1))
Next i
For j = 1 To L
B = B + (Asc(Mid(Name, L, 1)) - Asc(Mid(Name, j, 1)))
Next j
C = A + B
D = C * C
F = Int(D / L)
Text2.Text = F
End If
End Sub

creantan 发表于 2008-9-15 18:18:02

我怎么运行不了呢。。。

Luckly 发表于 2008-9-15 19:01:15

蚊香很强悍~~就是不懂浮点~似懂非懂~

模拟一份易语言源代码

iamok 发表于 2008-9-15 20:48:20

/:010 /:010 /:002 /:002

小生我怕怕 发表于 2008-9-16 02:51:59

原帖由 夜冷风 于 2008-9-15 17:36 发表 https://www.chinapyg.com/images/common/back.gif
蚊香兄 把你注册机的源码分享下..学习学习!!
蚊香是MM大哥!

Luckly 发表于 2008-9-16 08:35:19

原帖由 小生我怕怕 于 2008-9-16 02:51 发表 https://www.chinapyg.com/images/common/back.gif

蚊香是MM大哥!

传说中的唐伯虎点蚊香？:lol:

lixy8888 发表于 2008-9-16 08:55:23

运行不了，双击无任何反应
页: 1 [2] 3
查看完整版本: 易语言CrackMe