牡丹模块

牡丹花下死做鬼

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


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

2014-7-5 19:05 上传

点击文件名下载附件

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

1. .版本 2
   
2. .支持库 dp1
   
3. .支持库 eAPI
   
4. 
   
5. .子程序 模块验证, 逻辑型
   
6. 
   
7. 机器码 ＝ 取文本注册项 (4, “Software\牡丹模块\机器码”, “-1”)
   
8. .判断开始 (机器码 ＝ “-1”)
   
9.     机器码 ＝ “”
   
10.     .计次循环首 (32, )
    
11.         置随机数种子 ()
    
12.         机器码 ＝ 机器码 ＋ 到文本 (取随机数 (0, 9))
    
13.     .计次循环尾 ()
    
14.     .判断开始 (写注册项 (4, “Software\牡丹模块\机器码”, 机器码))
    
15. 
    
16.     .默认
    
17.         信息框 (“对不起，无法进行授权！请重启试试！”, 0, )
    
18.     .判断结束
    
19.     返回 (假)
    
20. .默认
    
21.     注册码 ＝ 取文本注册项 (4, “Software\牡丹模块\注册码”, “-1”)
    
22.     .判断开始 (保护_文本比较 (注册码, 加密 (机器码)))
    
23.         返回 (真)
    
24.     .默认
    
25.         返回 (假)
    
26.     .判断结束
    
27. 
    
28. .判断结束
    
29. 
    
30. 
    
31. .子程序 模块注册, 逻辑型
    
32. 
    
33. 注册码 ＝ 取数据摘要 (到字节集 (机器码))
    
34. 写注册项 (4, “Software\牡丹模块\注册码”, 注册码2)
    
35. .判断开始 (保护_文本比较 (注册码2, 加密 (机器码)))  ' 注册码2 ＝ 加密 (机器码)
    
36.     信息框 (“注册成功！”, 0, )
    
37.     返回 (真)
    
38. .默认
    
39.     信息框 (“注册失败！”, 0, )
    
40.     返回 (假)
    
41. .判断结束
    
42. 
    
43. 
    
44. .子程序 验证是否授权
    
45. 
    
46. 保护_过360 ()
    
47. .判断开始 (模块验证 ())
    
48.     输出调试文本 (“机器码：” ＋ 机器码)
    
49.     输出调试文本 (“模块已授权！”)
    
50. .判断 (是否为调试版 ())
    
51.     输出调试文本 (“机器码：” ＋ 机器码)
    
52.     输出调试文本 (“模块未授权！”)
    
53.     输出调试文本 (“购买请联系QQ1029127115！”)
    
54.     载入 (窗口_模块注册, , 真)
    
55.     .判断开始 (模块注册 ())
    
56.         输出调试文本 (“机器码：” ＋ 机器码)
    
57.         输出调试文本 (“模块已授权！”)
    
58.     .默认
    
59.         .计次循环首 (3, )
    
60.             终止进程 (“e.exe”)
    
61.         .计次循环尾 ()
    
62.     .判断结束
    
63. 
    
64. .默认
    
65.     ' 子_删除自身 (取执行文件名 ())
    
66.     ' 运行 (取特定目录 (11) ＋ “\DelOneSelf.bat”, 假, )
    
67.     ' 结束 ()
    
68. .判断结束
    
69. ' a3c3129dae0d3cc0905edb9ba92d82dd
    
70. 
    
71. .子程序 加密, 文本型
    
72. .参数 data, 文本型
    
73. .局部变量 data2, 文本型
    
74. 
    
75. data2 ＝ 取数据摘要 (加密数据 (到字节集 (data), 到文本 (加密数据 (到字节集 (data), “mdhxszg”, 2)), 1))
    
76. 返回 (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……