-
-
我也发一个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已经上传
献给和我一样的出血者，打错了再来一个！-》 初学者
搞定了的别忘了发破文 啊！嘿！
[招生]科锐逆向工程师培训(2024年11月15日实地，远程教学同时开班, 第51期)
|
|
|---|---|
|
|
|
|
|
欢迎公开源代码
|
|
|
|
|
|
谢谢斑竹！
嘎嘎我技术不行功力差写的东西比较烂嘿嘿公开原码也没什么的不到几行的代码 祝大家多暴 嘎嘎 学习越来越好 
|
|
|
|
|
|
晕 这个比 网页恐怖多 了
你还是 搞 网页吧 
|
|
|
|
|
|
|
|
|
|
