恒云雨软件授权模块源码(Beta2)

资源介绍：

可对软件进行授权检测

恒云雨技术之一 可破解Win8,Win7,2003,XP系统权限 对服务或驱动均有效 (否则可能会无法启动)

资源作者：

易语言如何自学

资源界面：

.版本 2

.程序集 程序集
.程序集变量 许可, 许可授权
.程序集变量 授权, 整数型

.子程序 _启动子程序, 整数型

' 本源码来自三叶资源网(www.sanye.cx)
破解权限 ()
_临时子程序 ()
返回 (0)

.子程序 _临时子程序, , , ;模块功能演示
.局部变量 账号, 整数型
.局部变量 密码, 整数型
.局部变量 OK, 逻辑型

.如果真 (是否授权 () ＝ 假)
    信息框 (“软件未授权请注册软件!”, 17, “注册提示:”)
    ' 返回 ()
.如果真结束

设置账号 (15547)  ' 可以给每个软件可设置不同的账号 支持长度1001~65535
设置密码 (25726)  ' 每个软件注册时需要的密码 支持长度1001~65535
' 根据开发作者的账号 生成每个软件用户的账号密码

账号 ＝ 892157115  ' 这个是测试时使用的账号 ,发布软件时请清除
密码 ＝ 1776444542  ' 这个是测试时使用的密码 ,发布软件时请清除

.如果真 (是否授权 () ＝ 假)
    系统登录 (账号, 密码)  ' 用于本地验证 本地验证和网络验证 只能2选1
    ' 二级验证 (“http://regs1.itx86.com/reg”, 账号, 密码) '用于网络验证,可支持用户屏蔽
.如果真结束

增强验证 ()  ' 用于防止OD爆破后 到达正式版效果 加了增强后会验证OD的返回值!
OK ＝ 验证授权 ()
.判断开始 (OK ＝ 假)
    信息框 (“验证授权帐户或密码失败!”, 16, “错误提示:”)
    非法检测 (3)  ' 当帐户密码验证超过3次软件将自动结束,可防止暴力破解
    返回 ()
.默认

.判断结束
' 本源码来自三叶资源网(www.sanye.cx)

.判断开始 (授权级别 () ＝ 0)
    输出调试文本 (“错误次数:” ＋ 到文本 (错误次数 ()))
    信息框 (“验证授权帐户或密码失败!”, 16, “错误提示:”)  ' 如去掉这个错误提示就没有办法设置断点了...
.默认
    信息框 (“验证软件注册授权成功!”, 64, “正式版:”)  ' 只有注册成功才会显示这个信息!
.判断结束

.如果 (结束验证 (OK) ＝ 假)
    结束 ()
.否则

.如果结束
非法检测 (3)  ' 当帐户密码验证超过3次软件将自动结束,可防止暴力破解

.子程序 破解权限, , , 恒云雨技术之一 可破解Win8,Win7,2003,XP系统权限 对服务或驱动均有效 (否则可能会无法启动)

.如果真 (文件是否存在 (取运行目录 () ＋ “yf.reg”) ＝ 假)
    写到文件 (取运行目录 () ＋ “yf.reg”, #yf)
.如果真结束
.如果 (寻找文本 (取运行目录 (), “ ”, , 假) ≠ -1)
    运行 (“regedit /s ” ＋ #引号 ＋ 取运行目录 () ＋ “yf.reg” ＋ #引号, 假, #隐藏窗口)
.否则
    运行 (“regedit /s ” ＋ 取运行目录 () ＋ “yf.reg”, 假, #隐藏窗口)
.如果结束
延时 (230)
删除文件 (取运行目录 () ＋ “yf.reg”)

.子程序 设置账号, 整数型, 公开
.参数 软件账号, 整数型
.局部变量 返回值, 整数型

.如果真 (软件账号 ≤ 1000 或 软件账号 ＞ 65535)
    返回 (0)
.如果真结束
置随机数种子 ()
许可.授权.账号 ＝ 取数值 (取随机数 (256, 32767)) ＋ 软件账号
返回值 ＝ 取数值 (取随机数 (256, 32767)) ＋ 软件账号
返回 (返回值)

.子程序 设置密码, 整数型, 公开
.参数 软件密码, 整数型
.局部变量 返回值, 整数型

.如果真 (软件密码 ≤ 1000 或 软件密码 ＞ 65535)
    返回 (0)
.如果真结束
置随机数种子 ()
许可.授权.密码 ＝ 取数值 (随机数值 (256, 32767)) ＋ 软件密码
返回值 ＝ 取数值 (随机数值 (256, 32767)) ＋ 软件密码
返回 (返回值)

.子程序 是否授权, 逻辑型, 公开

返回 (许可.是否授权 ≥ 2)

.子程序 验证授权, 逻辑型, 公开

.如果 (许可.是否授权 ≥ 2)
    许可.错误次数 ＝ 0
.否则
    许可.错误次数 ＝ 许可.错误次数 ＋ 1
.如果结束

.如果真 (许可.是否授权 ≥ 3)
    许可.是否授权 ＝ 0
.如果真结束

.判断开始 (许可.软件.账号 ＝ 0)
    返回 (假)
.判断 (许可.授权.账号 ＝ 0)
    返回 (假)
.判断 (许可.软件.密码 ＝ 0)
    返回 (假)
.判断 (许可.授权.密码 ＝ 0)
    返回 (假)
.默认

.判断结束

返回 (许可.是否授权 ≥ 2)

.子程序 增强验证, , 公开

.如果真 (许可.是否授权 ≥ 2)
    授权 ＝ 许可.是否授权
.如果真结束


.子程序 结束验证, 逻辑型, 公开
.参数 是否成功, 逻辑型

.如果真 (许可.是否授权 ≥ 2)
    .如果真 (许可.授权等级 ≠ 0)
        .如果真 (授权 ≥ 2)
            返回 (真)
        .如果真结束

    .如果真结束

.如果真结束
返回 (假)

.子程序 二级验证, 逻辑型, 公开
.参数 授权地址, 文本型
.参数 软件账号, 整数型
.参数 软件密码, 整数型
.局部变量 对象, 对象
.局部变量 ip, 文本型
.局部变量 bin, 文本型
.局部变量 ss, 文本型, , "0"
.局部变量 pp, 文本型, , "0"

许可.二级授权 ＝ 0
许可.是否授权 ＝ 0
.如果真 (对象.创建 (“Microsoft.XMLHTTP”, ))
    .如果真 (InternetCheckConnectionA (授权地址, 1, 0))
        对象.方法 (“Open”, “GET”, 授权地址 ＋ “/?client=0”, 假)
        对象.方法 (“Send”, )
        ip ＝ 到文本 (对象.读属性 (“responseBody”, ).取字节集 ())
        .如果真 (ip ＝ “”)
            返回 (假)
        .如果真结束
        对象.方法 (“Open”, “GET”, 授权地址 ＋ “/?licence=” ＋ 到文本 (软件账号) ＋ “&pass=” ＋ 到文本 (软件密码))
        对象.方法 (“Send”, )
        bin ＝ 到文本 (对象.读属性 (“responseBody”, ).取字节集 ())
        .如果真 (bin ≠ “”)
            ss ＝ 分割文本 (bin, “</License>”, )
            .如果真 (取数组成员数 (ss) ＝ 4)
                .如果真 (ss [3] ＝ “0”)
                    返回 (假)
                .如果真结束
                .如果真 (ss [3] ≠ “”)
                    许可.二级授权 ＝ 到数值 (ss [3])
                .如果真结束

            .如果真结束

            pp ＝ 分割文本 (bin, “</key>”, )
            .如果真 (取数组成员数 (pp) ≥ 2)
                系统登录 (软件账号, 到数值 (pp [2]))
                返回 (真)
            .如果真结束
            ' 本源码来自三叶资源网(www.sanye.cx)
        .如果真结束

    .如果真结束

.如果真结束
返回 (假)

.子程序 授权级别, 小数型, 公开

.判断开始 (许可.二级授权 ≠ 0)
    返回 (许可.二级授权)
.默认
    返回 (许可.授权等级)
.判断结束


.子程序 错误次数, 整数型, 公开
.局部变量 返回值, 整数型

返回值 ＝ 许可.错误次数
返回 (返回值)

.子程序 非法检测, , 公开
.参数 错误计次, 整数型

.如果真 (错误计次 ＞ 0)
    .如果真 (许可.错误次数 ≥ 错误计次)
        结束 ()
    .如果真结束
    ' 本源码来自三叶资源网(www.sanye.cx)

.如果真结束


.子程序 系统登录
.参数 软件账号, 整数型
.参数 软件密码, 整数型

.如果真 (软件账号 ≥ 0 且 软件账号 ＜ 65535)
    许可.是否授权 ＝ 0
    返回 ()
.如果真结束
.如果真 (软件密码 ≥ 0 且 软件密码 ＜ 65535)
    许可.是否授权 ＝ 0
    返回 ()
.如果真结束
许可.软件.账号 ＝ 软件账号
许可.软件.密码 ＝ 软件密码
.如果真 (许可.是否授权 ≥ 2)
    许可.是否授权 ＝ 0
.如果真结束

.如果 (位与 (许可.软件.账号, 65535) ＝ 位与 (许可.授权.账号, 65535))
    许可.是否授权 ＝ 许可.是否授权 ＋ 1
.否则
    许可.是否授权 ＝ 0
.如果结束

.如果 (位与 (许可.软件.密码, 65535) ＝ 位与 (许可.授权.密码, 65535))
    许可.是否授权 ＝ 许可.是否授权 ＋ 1
    许可.授权等级 ＝ 0.001
.否则
    许可.是否授权 ＝ 0
.如果结束


.子程序 随机数值, 整数型
.参数 eax, 整数型, 可空
.参数 edx, 整数型, 可空

置入代码 ({ 81, 82, 15, 49, 105, 192, 253, 67, 3, 0, 5, 195, 158, 38, 0, 193, 232, 16, 37, 255, 127, 0, 0, 139, 77, 16, 133, 201, 117, 5, 185, 255, 255, 255, 127, 43, 77, 8, 65, 51, 210, 247, 241, 3, 85, 8, 139, 194, 90, 89, 139, 229, 93, 194, 16, 0 })
返回 (0)

.子程序 取数值, 整数型
.参数 eax, 整数型

置入代码 ({ 139, 69, 8, 185, 16, 0, 0, 0, 211, 224, 201, 194, 8, 0 })
返回 (0)

资源下载：