易语言CrackMe

Luckly

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

magic659117852

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

夜冷风

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

magic659117852

/: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

我怎么运行不了呢。。。

Luckly

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

模拟一份易语言源代码

iamok

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

小生我怕怕

原帖由 夜冷风 于 2008-9-15 17:36 发表
蚊香兄 把你注册机的源码分享下..学习学习!!

蚊香是MM大哥!

Luckly

原帖由 小生我怕怕 于 2008-9-16 02:51 发表

蚊香是MM大哥!

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

lixy8888

运行不了，双击无任何反应