易语言编写Crackme及对应算法注册机求教1

野猫III

这个Crackme设计是这样的。

注册码运算过程以下：

用户名的ASCII码乘以用户名的位数，积加上0xF5,然后再转换成10进制。

++++++++++++++++++

希望那位朋友能帖上这个Crackme源码及算法注册机，谢谢！

++++++++++++++++++++++++++++++++++++

BTW:
PYG 5.4 Cracker引导学习小组第三课涉及！

++++++++++++++++++++++++++

帖上别的编程源码也行。。。学习的说！

[ 本帖最后由 野猫III 于 2006-5-31 19:47 编辑 ]

caterpilla

不懂易语言。。。。。。。。。。。。
易语言与其它语言相比有什么特别优势吗？

野猫III

原帖由 caterpilla 于 2006-5-31 11:57 发表
不懂易语言。。。。。。。。。。。。
易语言与其它语言相比有什么特别优势吗？

国产！

飘云

.版本 2

.子程序 _按钮1_被单击
.局部变量 LenName, 整数型
.局部变量 Sn, 整数型
.局部变量 i, 整数型
.局部变量 Code, 整数型

LenName ＝ 取文本长度 (编辑框1.内容)
Code ＝ 取文本长度 (编辑框2.内容)
.如果 (LenName ≠ 0 且 Code ≠ 0)
    i ＝ LenName
    .计次循环首 (i, i)
        Sn ＝ Sn ＋ 到数值 (取代码 (编辑框1.内容, i))
    .计次循环尾 ()
    Sn ＝ Sn × LenName
    Sn ＝ Sn ＋ 245  ' 0xF5
    .如果 (编辑框2.内容 ＝ 到文本 (Sn))
        信息框 (“注册成功!”, 64, “正确”)
    .否则
        信息框 (“继续努力!”, 48, “错误”)
    .如果结束

.否则
    信息框 (“请输入完整信息”, 16, “错误”)

野猫III

原帖由 飘云 于 2006-6-1 02:32 发表
.版本 2

.子程序 _按钮1_被单击
.局部变量 LenName, 整数型
.局部变量 Sn, 整数型
.局部变量 i, 整数型
.局部变量 Code, 整数型

LenName ＝ 取文本长度 (编辑框1.内容)
Code ＝ 取文本长度 (编辑框2.内 ...

头都晕了。

老大能不能再来一篇VB 的，那个应该更简单。

飘云

原帖由 野猫III 于 2006-6-2 10:29 发表


头都晕了。

老大能不能再来一篇VB 的，那个应该更简单。

1. Private Sub Command1_Click()
   
2. Dim Name, Code As String
   
3. Dim LenName, i, Sn As Integer
   
4. Name = Text1.Text
   
5. Code = Text2.Text
   
6. LenName = Len(Name)
   
7. If Name <> "" Or Code <> "" Then
   
8.     For i = 1 To LenName
   
9.         Sn = Sn + Asc(Mid(Name, i, 1))
   
10.     Next
    
11.         Sn = Sn * LenName
    
12.         Sn = Sn + 245
    
13. '注册验证，呵呵～～ 明码哦～～
    
14.     If Val(Code) = Val(Sn) Then
    
15.         MsgBox "注册成功!", 64, "正确"
    
16.     Else
    
17.         MsgBox "继续努力!", 48, "错误"
    
18.     End If
    
19. Else
    
20.     MsgBox "请输入完整信息！", 16, "错误"
    
21. End If
    
22. End Sub

复制代码

caterpilla

好啊。。。。。。。。。。。

[ 本帖最后由 caterpilla 于 2006-6-2 17:49 编辑 ]

cocomtv

学习学习，支持支持

野猫III

原帖由 飘云 于 2006-6-2 11:56 发表



Private Sub Command1_Click()
Dim Name, Code As String
Dim LenName, i, Sn As Integer
Name = Text1.Text
Code = Text2.Text
LenName = Len(Name)
If Name <> "" Or Code <> ...

谢谢老大！

+++++++++++++++++++++++++++++++++++++++
枫影兄弟手把手教咱做这个易语言Crackme的，在此也特别感谢！

.版本 2

.程序集 窗口程序集1

.子程序 _按钮2_被单击

结束 ()


.子程序 __启动窗口_创建完毕

_启动窗口.标题 ＝ “万分感谢枫影兄弟的指导！”


.子程序 _按钮1_被单击
.局部变量 用户, 文本型
.局部变量 注册码, 文本型
.局部变量 用户长度, 整数型
.局部变量 变量, 整数型

.判断开始 (编辑框1.内容 ＝ “” 或 编辑框2.内容 ＝ “”)
    信息框 (“请重新输入用户名及注册码！”, 0, )
    返回 ()
.默认

.判断结束

用户 ＝ 编辑框1.内容
用户长度 ＝ 取文本长度 (用户)



.计次循环首 (用户长度, 变量)
    注册码 ＝ 注册码 ＋ 到文本 (取绝对值 (取代码 (用户, )))
.计次循环尾 ()

注册码 ＝ 到文本 (到数值 (注册码) × 用户长度 ＋ 245)
编辑框3.内容 ＝ 注册码

.判断开始 (编辑框2.内容 ≠ 注册码)
    信息框 (“注册码错误！”, 0, )

.判断 (编辑框2.内容 ＝ 注册码)
    信息框 (“注册成功！感谢您的支持！”, 0, )
.默认

.判断结束


.子程序 到数据



.子程序 信息

[ 本帖最后由 野猫III 于 2006-6-4 02:22 编辑 ]

浮云思音

两种语言我都不懂,正准备学国产的