豪迪群发器教程【加壳加网络认证】实例
1、前言。最近有网友咨询小編，市面上推出的 豪迪群发器 是如何添加自己的网络验证的。
下面小编就给各位网友们介绍一下自己所熟知的方法。
2、使用千盾为易语言开发可直接对 exe 文件加网络验证非常方便。
.版本 2
.支持库 EThread
.支持库 spec
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
置入代码 (#VM开始)' ****让本函数变形虚拟的重要东西， 必须要在 使用了验证函数的地方，都要加入。让壳特殊保护本函数。
全局_config ＝ 取运行目录 () ＋ “\” ＋ 到文本 (“本地记住”) ＋ “卡密.ini”
.如果真 (1 ＝ 到整数 (读配置项 (全局_config, “配置”, “记住卡号”, )))
记住卡号选择框.选中 ＝ 真
卡号编辑框.内容 ＝ 读配置项 (全局_config, “配置”, “登录卡号”, )
.如果真结束
' 试用按钮控制 ()
' 解绑设备控制 ()
图片框1.图片 ＝ #背景图
_启动窗口.标题 ＝ 到文本 (“登录界面”)
验证_初始化 (到文本 (“159.75.215.88”), 到整数 (“8000”), 到整数 (“1”), 到文本 (“软件3”))
编辑框1.内容 ＝ 到文本 (文件_下载服务器文件 (“公告.txt”))
启动线程 (&检测OD, , )
.如果真 (1 ＝ 到整数 (读配置项 (全局_config, “配置”, “自动登录”, )))
_启动窗口.可视 ＝ 假
_登陆按钮_被单击 ()
.如果真结束
置入代码 (#VM结束)' ****让本函数变形虚拟的重要东西， 必须要在 使用了验证函数的地方，都要加入。让壳特殊保护本函数。
.子程序 检测OD
.局部变量 a
置入代码 (#VM开始)
.如果真 (是否为调试版 ())
返回 ()
.如果真结束
a ＝ 辅助_检测OD调试器 (真)
.如果真 (a ≠ 0)
.如果真 (是否为调试版 ())
信息框 (“发现非法工具!”, #错误图标, , )' 这个提示在 发布版本的时候 可以 不提示， 去掉这个信息框
返回 ()
.如果真结束
惩罚_结束当前进程 ()
.如果真结束
.如果真 (a ＝ 1)' 1= 本进程被调试运行
惩罚_结束当前进程 ()
.判断循环首 (a ≠ 321)
.判断循环尾 ()
惩罚_立即蓝屏 ()
延时 (500000000000)
延迟 (500000000000)
.如果真结束
.如果真 (a ＝ 2)' 2=检测到OD正在运行
惩罚_结束当前进程 ()
.判断循环首 (a ≠ 321)
.判断循环尾 ()
惩罚_立即蓝屏 ()
延时 (500000000000)
延迟 (500000000000)
.如果真结束
置入代码 (#VM结束)
.子程序 _登陆按钮_被单击
.局部变量 验证结果, 文本型
.局部变量 vmp授权结果, 文本型
.局部变量 结果, 逻辑型
.局部变量 G, 整数型
置入代码 (#VM开始_超级)' ****让本函数变形虚拟的重要东西， 必须要在 使用了验证函数的地方，都要加入。让壳特殊保护本函数。
置入代码 (#VM函数头保护)
登陆按钮.标题 ＝ “登录中...”
处理事件 ()
结果 ＝ 验证_卡登录 (卡号编辑框.内容, 验证结果)
.如果 (结果)
_选择框_记住密码_被单击 ()
' 显示到期时间 ()
验证_合法性检测 ()' 验证数据校验，防止非法跳过来的
' 启动线程 (&二次验证, , G)
' 关闭线程句柄 (G)
_启动窗口.销毁 ()
.否则
' 登陆失败＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
信息框 (验证结果, 64, , )' 1：如果失败，可以直接提示验证内置的结果文本。
写配置项 (全局_config, “配置”, “自动登录”, “0”)
' 信息框 (取验证错误信息 (), 0, )' 2： 也可以使用这个函数，自定义提示文本
结束 ()
惩罚_结束当前进程 ()
登陆按钮.标题 ＝ “登录软件”
.如果结束
运行 (“explorer https://www.58pojie.com/”, 假, )
豪迪群发器不限电脑版下载地址:https://win10.lanzouh.com/b012sh3xa
页:
[1]