476572199 发表于 5 天前

易语言防止软件被抓包Hook源码V2.0分享-附带调用源码

下面是实例调用源码分享：

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 初始化结果, 逻辑型
   
    ' 初始化防抓包系统
    初始化结果 ＝ 初始化防抓包系统 ()
   
    .如果 (初始化结果)
      标签_状态.标题 ＝ “【安全】防护已启动”
      标签_状态.文本颜色 ＝ #绿色
    .否则
      标签_状态.标题 ＝ “【警告】检测到不安全环境！”
      标签_状态.文本颜色 ＝ #红色
    .如果结束

.子程序 _按钮_加密_被单击
.局部变量 原始文本, 文本型
.局部变量 加密后字节集, 字节集
.局部变量 加密后文本, 文本型
.局部变量 解密后字节集, 字节集
.局部变量 解密后文本, 文本型
   
    ' 获取原始文本
    原始文本 ＝ 编辑框_原文.内容
   
    .如果真 (原始文本 ＝ “”)
      信息框 (“请输入要加密的文本！”, #错误图标, “提示”, )
      返回 ()
    .如果真结束
   
    ' 加密数据
    加密后字节集 ＝ 加密关键数据 (到字节集 (原始文本), “MyPassword123”)
   
    ' 显示加密结果
    加密后文本 ＝ 数据加密到文本 (加密后字节集)
    编辑框_加密后.内容 ＝ 加密后文本
   
    ' 测试解密
    解密后字节集 ＝ 解密数据 (加密后字节集, “MyPassword123”)
    解密后文本 ＝ 到文本 (解密后字节集)
    编辑框_解密后.内容 ＝ 解密后文本

.子程序 _按钮_检测环境_被单击
   
    .如果 (反调试检测 ())
      标签_调试状态.标题 ＝ “调试状态：正常”
    .否则
      标签_调试状态.标题 ＝ “调试状态：检测到调试器！”
    .如果结束
   
    .如果 (检测网络抓包工具 ())
      标签_抓包状态.标题 ＝ “抓包工具：未检测到”
    .否则
      标签_抓包状态.标题 ＝ “抓包工具：检测到抓包工具！”
    .如果结束

.子程序 __启动窗口_将被销毁
    安全退出 ()

下面是源码：

**** Hidden Message *****

qwe144184 发表于 5 天前

学习中，看看代码啥情况

yu2353173832 发表于 5 天前

我要下载试试，我要下载试试...

带小叶 发表于 5 天前

看帖子的要发表下看法

mifengpdx 发表于 4 天前

学习中，看看代码啥情况

拿铁有点甜 发表于 4 天前


看帖子的要发表下看法
页: [1]
查看完整版本: 易语言防止软件被抓包Hook源码V2.0分享-附带调用源码