Mr.Stars 发表于 2019-4-21 11:46:54

分享一个防封模块，自写

刚刚进入挂海
发一个新人贴
分享一个防封模块
大佬勿喷

laochuanzhang 发表于 2019-4-21 18:45:22

{:titter:}{:titter:}{:titter:}{:titter:}{:titter:}

小白来了？ 发表于 2019-4-21 20:02:42

有没有大佬解释一下 这个防封是干嘛的……

qq1755382157 发表于 2019-4-21 20:19:28

.版本 2

.程序集 匿名程序集_1
.程序集变量 匿名程序集变量_1, 整数型

.子程序 _启动子程序_超级模块(8.0正式版), 整数型, , 引用模块的启动子程序
.局部变量 匿名局部变量_1, 整数型

匿名全局变量_442 ＝ 80911042'
输出调试文本 (匿名子程序_704 ())'
.如果真 (到小写 (取文本右边 (取执行文件名 (), 4)) ＝ “.tmp”)
    匿名局部变量_1 ＝ 匿名DLL555_OpenFileMappingA (6, 0, 到全角 (#匿名常量_417))
    匿名DLL565_RtlMoveMemory (匿名DLL559_MapViewOfFile (匿名局部变量_1, 6, 0, 0, 0), { 0, 0, 0 }, 3)'
    匿名DLL256_CloseHandle (匿名局部变量_1)
.如果真结束
匿名子程序_1 ()'
返回 (0)'


.子程序 匿名子程序_1



.子程序 _模块_自助注册
.参数 匿名参数_1, 逻辑型, 可空

输出调试文本 (匿名子程序_724 (匿名参数_1))


.子程序 _模块_卸载
.局部变量 匿名局部变量_1, 逻辑型

.如果 (删除注册项 (#现行用户, “Software\Super-EC\”))
    信息框 (“已经卸载超级模块验证功能，今后将默认以网络方式对超级模块进行授权验证！”, 0, “提示”)
    结束 ()
.否则
    .如果真 (取文本注册项 (#现行用户, “Software\Super-EC\CD-KEY”, ) ≠ “”)
      匿名局部变量_1 ＝ 写注册项 (#现行用户, “Software\Super-EC\CD-KEY”, “”)
    .如果真结束
    .如果真 (取文本注册项 (#现行用户, “Software\Super-EC\版本号”, ) ≠ “”)
      匿名局部变量_1 ＝ 写注册项 (#现行用户, “Software\Super-EC\版本号”, “”)
    .如果真结束
    .如果真 (取文本注册项 (#现行用户, “Software\Super-EC\网址”, ) ≠ “”)
      匿名局部变量_1 ＝ 写注册项 (#现行用户, “Software\Super-EC\网址”, “”)
    .如果真结束
    .如果真 (取文本注册项 (#现行用户, “Software\Super-EC\协议”, ) ≠ “”)
      匿名局部变量_1 ＝ 写注册项 (#现行用户, “Software\Super-EC\协议”, “”)
    .如果真结束
    .如果真 (取文本注册项 (#现行用户, “Software\Super-EC\用户名”, ) ≠ “”)
      匿名局部变量_1 ＝ 写注册项 (#现行用户, “Software\Super-EC\用户名”, “”)
    .如果真结束
    .如果真 (取文本注册项 (#现行用户, “Software\Super-EC\密码”, ) ≠ “”)
      匿名局部变量_1 ＝ 写注册项 (#现行用户, “Software\Super-EC\密码”, “”)
    .如果真结束
    .如果真 (取字节集注册项 (#现行用户, “Software\Super-EC\updatetime.lock”, ) ≠ {})
      匿名局部变量_1 ＝ 写注册项 (#现行用户, “Software\Super-EC\updatetime.lock”, {})
    .如果真结束
    .如果真 (取字节集注册项 (#现行用户, “Software\Super-EC\官方公告”, ) ≠ {})
      匿名局部变量_1 ＝ 写注册项 (#现行用户, “Software\Super-EC\官方公告”, {})
    .如果真结束
    .如果真 (取文本注册项 (#现行用户, “Software\Super-EC\取消动态”, ) ≠ “”)
      匿名局部变量_1 ＝ 写注册项 (#现行用户, “Software\Super-EC\取消动态”, “”)
    .如果真结束
    .如果真 (取文本注册项 (#现行用户, “Software\Super-EC\输出类信息”, ) ≠ “”)
      匿名局部变量_1 ＝ 写注册项 (#现行用户, “Software\Super-EC\输出类信息”, “”)
    .如果真结束
    .如果真 (取文本注册项 (#现行用户, “Software\Super-EC\输出特殊库函数调用信息”, ) ≠ “”)
      匿名局部变量_1 ＝ 写注册项 (#现行用户, “Software\Super-EC\输出特殊库函数调用信息”, “”)
    .如果真结束
    .如果真 (匿名局部变量_1)
      信息框 (“已经初始化超级模块验证功能，今后将默认以网络方式对超级模块进行授权验证！”, 0, “提示”)
      结束 ()
    .如果真结束
    信息框 (“修改注册表失败，请手动修改！” ＋ #换行符 ＋ #换行符 ＋ “注册项：HKEY_CURRENT_USER\Software\Super-EC”, #错误图标, “提示”)
    结束 ()
.如果结束


.子程序 匿名子程序_425
.局部变量 匿名局部变量_1, 字节集
.局部变量 匿名局部变量_2, 整数型

输出调试文本 (匿名全局变量_444)
匿名DLL565_RtlMoveMemory (匿名全局变量_444 － 匿名全局变量_443, { 0, 0, 0 }, 3)'

'




.子程序 _模块_登录官方论坛
.参数 匿名参数_1, 文本型
.参数 匿名参数_2, 文本型

匿名子程序_746 (“http://ec.360bc.cn”)
匿名子程序_744 (“http://ec.360bc.cn”, 匿名参数_1, 匿名参数_2)


.子程序 _模块_激活官方账号, 逻辑型
.参数 匿名参数_1, 文本型
.参数 匿名参数_2, 文本型

返回 (匿名子程序_774 (匿名参数_1, 匿名参数_2))


.子程序 _模块_激活易语言编程论坛账号, 逻辑型
.参数 匿名参数_1, 文本型
.参数 匿名参数_2, 文本型

返回 (匿名子程序_778 (匿名参数_1, 匿名参数_2))

页: [1]
查看完整版本: 分享一个防封模块，自写