野猫III 发表于 2006-5-31 09:31:50

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

这个Crackme设计是这样的。

注册码运算过程以下：

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

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

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

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

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

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

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

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

caterpilla 发表于 2006-5-31 11:57:48

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

野猫III 发表于 2006-5-31 18:23:34

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

国产！

飘云 发表于 2006-6-1 02:32:00

.版本 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-2 10:29:21

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

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

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

头都晕了。

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

飘云 发表于 2006-6-2 11:56:55

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


头都晕了。

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


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 <> "" Then
    For i = 1 To LenName
      Sn = Sn + Asc(Mid(Name, i, 1))
    Next
      Sn = Sn * LenName
      Sn = Sn + 245
'注册验证，呵呵～～ 明码哦～～
    If Val(Code) = Val(Sn) Then
      MsgBox "注册成功!", 64, "正确"
    Else
      MsgBox "继续努力!", 48, "错误"
    End If
Else
    MsgBox "请输入完整信息！", 16, "错误"
End If
End Sub

caterpilla 发表于 2006-6-2 17:47:32

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

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

cocomtv 发表于 2006-6-3 21:47:45

学习学习，支持支持

野猫III 发表于 2006-6-3 23:37:01

原帖由 飘云 于 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 编辑 ]

浮云思音 发表于 2006-6-4 15:38:18

两种语言我都不懂,正准备学国产的
页: [1] 2
查看完整版本: 易语言编写Crackme及对应算法注册机求教1