牡丹模块

牡丹花下死做鬼

本菜写的一个模块 有些代码当然是重网上学习来的虽说不是直接复制 O(∩_∩)O~但其实也差不多
没办法自己又不懂的只能上网自己找资料学习O(∩_∩)O哈！


牡丹模块.rar (76.85 KB, 下载次数: 18)

2014-7-5 19:05 上传

点击文件名下载附件

对了咱这模块有炎症 O(∩_∩)O~我把验证的源码给大家O(∩_∩)O哈！

.版本 2
.支持库 dp1
.支持库 eAPI

.子程序 模块验证, 逻辑型

机器码 ＝ 取文本注册项 (4, “Software\牡丹模块\机器码”, “-1”)
.判断开始 (机器码 ＝ “-1”)
    机器码 ＝ “”
    .计次循环首 (32, )
        置随机数种子 ()
        机器码 ＝ 机器码 ＋ 到文本 (取随机数 (0, 9))
    .计次循环尾 ()
    .判断开始 (写注册项 (4, “Software\牡丹模块\机器码”, 机器码))

    .默认
        信息框 (“对不起，无法进行授权！请重启试试！”, 0, )
    .判断结束
    返回 (假)
.默认
    注册码 ＝ 取文本注册项 (4, “Software\牡丹模块\注册码”, “-1”)
    .判断开始 (保护_文本比较 (注册码, 加密 (机器码)))
        返回 (真)
    .默认
        返回 (假)
    .判断结束

.判断结束


.子程序 模块注册, 逻辑型

注册码 ＝ 取数据摘要 (到字节集 (机器码))
写注册项 (4, “Software\牡丹模块\注册码”, 注册码2)
.判断开始 (保护_文本比较 (注册码2, 加密 (机器码)))  ' 注册码2 ＝ 加密 (机器码)
    信息框 (“注册成功！”, 0, )
    返回 (真)
.默认
    信息框 (“注册失败！”, 0, )
    返回 (假)
.判断结束


.子程序 验证是否授权

保护_过360 ()
.判断开始 (模块验证 ())
    输出调试文本 (“机器码：” ＋ 机器码)
    输出调试文本 (“模块已授权！”)
.判断 (是否为调试版 ())
    输出调试文本 (“机器码：” ＋ 机器码)
    输出调试文本 (“模块未授权！”)
    输出调试文本 (“购买请联系QQ1029127115！”)
    载入 (窗口_模块注册, , 真)
    .判断开始 (模块注册 ())
        输出调试文本 (“机器码：” ＋ 机器码)
        输出调试文本 (“模块已授权！”)
    .默认
        .计次循环首 (3, )
            终止进程 (“e.exe”)
        .计次循环尾 ()
    .判断结束

.默认
    ' 子_删除自身 (取执行文件名 ())
    ' 运行 (取特定目录 (11) ＋ “\DelOneSelf.bat”, 假, )
    ' 结束 ()
.判断结束
' a3c3129dae0d3cc0905edb9ba92d82dd

.子程序 加密, 文本型
.参数 data, 文本型
.局部变量 data2, 文本型

data2 ＝ 取数据摘要 (加密数据 (到字节集 (data), 到文本 (加密数据 (到字节集 (data), “mdhxszg”, 2)), 1))
返回 (data2)

牡丹花下死做鬼

毕竟本菜技术差 大神勿喷啊

Angel丶L

强烈支持楼主ing……

牡丹花下死做鬼

Angel丶L 发表于 2014-7-5 19:16
强烈支持楼主ing……

模块啊 函数你知道吧加载了模块就相当于定义了这些函数了
就可以直接调用

Angel丶L

牡丹花下死做鬼 发表于 2014-7-5 19:18
模块啊 函数你知道吧加载了模块就相当于定义了这些函数了
就可以直接调用

不是我的意思是 模块主要是  什么功能 是POST 还是 内存系类的。

牡丹花下死做鬼

Angel丶L 发表于 2014-7-5 19:19
不是我的意思是 模块主要是  什么功能 是POST 还是 内存系类的。

哦  都是些基础的玩意
比如设置开机自动启动啊 清理回收站啊
当初写这个模块是为了方便同学恶搞
当时写了内存泄露 修改开机密码(他们都是XP的) 防病毒等
后来也纯属是有些常用的自己懒得写了就写成这个模块了

Mikel

楼主加油，鱼C加油！我们都看好你哦！

musilintan

真是难得给力的帖子啊。

浮砂

不愧是版主，东西真是好东西  
哈哈 加油啊版主

ly695908698

楼主加油，鱼C加油！我们都看好你哦！

拈花小仙

听说易语言不更新了？

牡丹花下死做鬼

拈花小仙 发表于 2014-7-10 10:42
听说易语言不更新了？

最新的是10年的
但是支持库有更新

拈花小仙

牡丹花下死做鬼 发表于 2014-7-10 10:44
最新的是10年的
但是支持库有更新

哦哦，听说win8不能用？

牡丹花下死做鬼

拈花小仙 发表于 2014-7-10 10:55
哦哦，听说win8不能用？

是啊 10年压根就没win8呀

拈花小仙

牡丹花下死做鬼 发表于 2014-7-10 10:57
是啊 10年压根就没win8呀

哦哦，希望快点更新

拈花小仙

牡丹花下死做鬼 发表于 2014-7-10 10:57
是啊 10年压根就没win8呀

网上有人说易语言IED的源码丢了，不知是不是真的

wcm

好东西

shan00101012

好感动

sallyman

真是难得给力的帖子啊。

ゃ莼处狼性ぉ

强烈支持楼主ing……