-
-
我也发一个crackme+keygen大家互相学习哈！
-
2006-6-29 20:12
-
嘿嘿我也写了个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已经上传
献给和我一样的出血者，打错了再来一个！-》 初学者
搞定了的别忘了发破文 啊！嘿！
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已经上传
献给和我一样的出血者，打错了再来一个！-》 初学者
搞定了的别忘了发破文 啊！嘿！
[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课
|
|
|---|---|
|
|
|
|
|
欢迎公开源代码
|
|
|
|
|
|
谢谢斑竹！
嘎嘎我技术不行功力差写的东西比较烂嘿嘿公开原码也没什么的不到几行的代码 祝大家多暴 嘎嘎 学习越来越好 
|
|
|
|
|
|
晕 这个比 网页恐怖多 了
你还是 搞 网页吧 
|
|
|
|
|
|
|
|
|
|
