实用例子,配置项所有内容加密！纯源码,无模块！

jtucar · 发表于 2013-9-7 17:06:35

杠杠的我喜欢

kiss717 · 发表于 2013-8-5 22:51:42

好东西加密配置项哦

宇智波·佐助 · 发表于 2013-7-25 13:15:41

甚至有趣

此Q作废1220 · 发表于 2013-7-20 06:38:02

支持下

ˇˇ · 发表于 2013-7-20 04:20:03

哈哈,这个真是我想要的东西

渁煑渔 · 发表于 2013-7-18 15:37:07

不错，来看下，学习了

endtx · 发表于 2013-7-18 08:00:00

嗯，这个有点用。

猫儿 · 发表于 2013-7-18 07:43:48

[e]
.版本 2
.支持库 iext

.子程序 adsl
.局部变量局_文本, 文本型
.局部变量 adsl, ADSL拨号类
.局部变量 t, 整数型
.局部变量 i, 整数型
.局部变量 ip, ADSL拨号类

.循环判断首 ()
' 先断开,在延迟,在连接.重拨太坑爹
t ＝到整数 (编辑框_换ip时间.内容)
.如果真 (adsl.断开 () ＝真)
      .计次循环首 (t, i)  ' 间隔xx  秒重新拨号
         程序_延时 (1, 1)
         状态条.置文本 (1, “换ip倒计时 ” ＋到文本 (t － i))
         处理事件 ()
      .计次循环尾 ()
      .判断开始 (adsl.拨号 (“宽带连接”, 编辑框_adsl帐号.内容, 编辑框_adsl密码.内容) ≠ 0)
         .循环判断首 ()
            程序_延时 (2000)
         .循环判断尾 (ip.取外网IP () ≠ “”)
      .默认
         adsl.重拨 (“宽带连接”, 编辑框_adsl帐号.内容, 编辑框_adsl密码.内容)
         .循环判断首 ()
            程序_延时 (2000)
         .循环判断尾 (ip.取外网IP () ≠ “”)
      .判断结束
      跳出循环 ()
.如果真结束

.循环判断尾 (ip.取外网IP () ≠ “”)
save_config ()
文件_执行 (取运行目录 () ＋ “\” ＋编辑框_程序名.内容)
线程_销毁 (ruote_ip)
结束 ()
[/e]

Mr.Yang · 发表于 2013-7-18 04:10:29

这个方法的思路是我在论坛看到的
不过他给的源码无效_我按思路自己重新优化过的

把字节集拆分成字节_然后把每个字节转换进制再转换为文本

这样比原始的加密数据() 安全系数更高
QQ截图20130718040719.jpg

壹吧 · 发表于 2013-7-18 03:06:52

表示玩这个剩下的

		自动登录	找回密码
密码			注册

[易语言纯源码] 实用例子,配置项所有内容加密！纯源码,无模块！