［转］看雪上的VB CrackMe源码

野猫III

http://bbs.pediy.com/showthread.php?s=&threadid=28223

嘿嘿我也写了个crackme 超级简单
VB写的
CRACKME代码如下
--------启动时候有NAG
Private Sub Form_Load()
Dim sp As Integer
sp = 1
If sp = 1 Then
MsgBox ("第一个NAG。")
End If
End Sub
----------------------------算法部分
Private Sub Label2_Click()
Dim nlen, i, s As Integer
Dim f As Variant
nlen = Len(Text1.Text)‘得到用户名长度
For i = 1 To nlen
s = Asc(Mid(Text1.Text, i, 1)) * 5 Xor 12345’超级简单的算法！
f = f + s
Next i
If (Text2.Text <> f) Or (Text2.Text = "") Then’如果注册码为空则错误！
MsgBox ("注册码错误，或者注册码为空")
Else
Form2.Show'成功消息！
End If
End Sub
KeyGen代码不公布了大家自己找吧！
crackme和keygen已经上传
献给和我一样的出血者，打错了再来一个！-》 初学者
搞定了的别忘了发破文 啊！嘿！

[ 本帖最后由 野猫III 于 2006-7-9 10:16 编辑 ]

lhl8730

不支持中文！

野猫III

原帖由 lhl8730 于 2006-7-9 10:53 发表
不支持中文！

试了一下，是的。

要是咱们把它改支持中文应该怎么转呢？

易语言的中文支持都在学～没想到这个也是一样～～～ :P

飘云

原帖由 野猫III 于 2006-7-9 12:45 发表


试了一下，是的。

要是咱们把它改支持中文应该怎么转呢？

易语言的中文支持都在学～没想到这个也是一样～～～ :P

byte

lhl8730

原帖由 野猫III 于 2006-7-9 12:45 发表


试了一下，是的。

要是咱们把它改支持中文应该怎么转呢？

易语言的中文支持都在学～没想到这个也是一样～～～ :P

中文是双字节，问题就在这，我也不会处理。