精易论坛

标题: 简单的写配置项读配置项加密模块源码 需要精易模块 高手飘过 [打印本页]

---

作者: barque    时间: 2016-2-25 09:02
标题: 简单的写配置项读配置项加密模块源码 需要精易模块 高手飘过
超级简单起到加密的作用  使用方法如下图  
对高手没有什么作用  一时兴起 就弄了这个
第一次发这种  如有不对的请指正

  

子程序名	返回值类型	公开	备 注
写配置项_加密	逻辑型		[文本型 配置文件名]，[文本型 节名称]，［文本型 配置项名称］，［文本型 欲写入值］，［文本型 加密密码］
参数名	类 型	参考	可空	数组	备 注
配置文件名	文本型
节名称	文本型				此项加密
配置项名称	文本型				此项加密
欲写入值	文本型				此项加密
加密密码	文本型				不可为空，为空的话请使用系统【写配置项】命令，请使用5位以上加密密码

返回 (写配置项 (配置文件名, 文本_加密 (节名称, 加密密码), 文本_加密 (配置项名称, 加密密码), 文本_加密 (欲写入值, 加密密码)))

子程序名	返回值类型	公开	备 注
读配置项_加密	文本型		[文本型 配置文件名]，[文本型 节名称]，［文本型 配置项名称］，［文本型 默认文本］，［文本型 加密密码］
参数名	类 型	参考	可空	数组	备 注
配置文件名	文本型
节名称	文本型				此项加密
配置项名称	文本型				此项加密
默认文本	文本型
加密密码	文本型				如未加密，请使用系统【读配置项】命令

返回 (文本_解密 (读配置项 (配置文件名, 文本_加密 (节名称, 加密密码), 文本_加密 (配置项名称, 加密密码), ), 加密密码))

.版本 2<br /> <br /> .子程序 写配置项_加密, 逻辑型, 公开, [文本型 配置文件名]，[文本型 节名称]，［文本型 配置项名称］，［文本型 欲写入值］，［文本型 加密密码］<br /> .参数 配置文件名, 文本型<br /> .参数 节名称, 文本型, , 此项加密<br /> .参数 配置项名称, 文本型, , 此项加密<br /> .参数 欲写入值, 文本型, , 此项加密<br /> .参数 加密密码, 文本型, , 不可为空，为空的话请使用系统【写配置项】命令，请使用5位以上加密密码<br /> <br /> <br /> 返回 (写配置项 (配置文件名, 文本_加密 (节名称, 加密密码), 文本_加密 (配置项名称, 加密密码), 文本_加密 (欲写入值, 加密密码)))<br /> <br /> .子程序 读配置项_加密, 文本型, 公开, [文本型 配置文件名]，[文本型 节名称]，［文本型 配置项名称］，［文本型 默认文本］，［文本型 加密密码］<br /> .参数 配置文件名, 文本型<br /> .参数 节名称, 文本型, , 此项加密<br /> .参数 配置项名称, 文本型, , 此项加密<br /> .参数 默认文本, 文本型, 可空<br /> .参数 加密密码, 文本型, , 如未加密，请使用系统【读配置项】命令<br /> <br /> 返回 (文本_解密 (读配置项 (配置文件名, 文本_加密 (节名称, 加密密码), 文本_加密 (配置项名称, 加密密码), ), 加密密码))

---

作者: つ安靜丶    时间: 2016-2-25 10:44
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: qiankun    时间: 2016-2-25 12:36
   辛苦了  

---

作者: barque    时间: 2016-2-25 15:11
写个小工具  帮助软件不要使用太明文的配置文件

---

作者: fengyyun    时间: 2016-9-15 20:10

不错。很好。下载学习下。

---

作者: 二〇一六    时间: 2016-9-27 22:01
不错。很好。下载学习下。

---

作者: 尛晨    时间: 2016-12-20 15:50
进来学习一下 看看

---

作者: 小莫同学    时间: 2017-5-27 16:34
刚需  正好用到  支持表哥

---

作者: sm26    时间: 2017-10-6 15:41
6666666666666666666666

---

作者: tzdfvc    时间: 2017-10-9 02:37
支持支持，看起来不错

---

作者: 墨影0620    时间: 2018-6-30 21:45
貌似只要你编译的时候装了精益模块是不需要使用者也安装的吧！

我试过删掉精益模块的引用依然可以运行。

---

作者: 墨影0620    时间: 2018-6-30 22:08

1. .版本 2
   
2. 
   
3. .子程序 写配置项_加密, 逻辑型, 公开, [文本型 配置文件名]，[文本型 节名称]，［文本型 配置项名称］，［文本型 欲写入值］，［文本型 加密密码］
   
4. .参数 配置文件名, 文本型
   
5. .参数 节名称, 文本型, , 此项加密
   
6. .参数 配置项名称, 文本型, , 此项加密
   
7. .参数 欲写入值, 文本型, , 此项加密
   
8. .参数 加密密码, 文本型, 可空, 建议请使用5位以上加密密码，如果留空则使用随机密码，请在输出内容中读取密码【在括号后面加点读取】
   
9. .参数 输出结果, 加密配置项, 参考 可空, 用来接收输出的结果，包括写出的节名称和配置项名称。采用数据传递方式接收数据，
   
10. 
    
11. .如果真 (加密密码 ＝ “”)
    
12.     加密密码 ＝ 文本_取随机字符 (取随机数 (1, 20))
    
13. .如果真结束
    
14. 输出结果.写出密码 ＝ 加密密码
    
15. 输出结果.写出结果 ＝ 写配置项 (配置文件名, 文本_加密 (节名称, 加密密码), 文本_加密 (配置项名称, 加密密码), 文本_加密 (欲写入值, 加密密码))
    

复制代码

优化了以下楼主的代码，采用数据传递方式，需要自定义数据类型，下面是自定义数据类型。
如果密码留空会生成随机密码。

1. .版本 2
   
2. 
   
3. .数据类型 加密配置项
   
4.     .成员 写出结果, 逻辑型
   
5.     .成员 写出密码, 文本型
   

复制代码

---

作者: barque    时间: 2018-7-1 21:05

墨影0620 发表于 2018-6-30 21:45
貌似只要你编译的时候装了精益模块是不需要使用者也安装的吧！

我试过删掉精益模块的引用依然可以运行。

谢谢  我也来试试

---

作者: 墨影0620    时间: 2018-7-2 06:58

barque 发表于 2018-7-1 21:05
谢谢  我也来试试

不用谢

---

作者: 墨影0620    时间: 2018-7-4 20:58
同样新手路过，稍微优化了一下楼主的算法。加了个随机密码系统
采用数据传递方式传递数据，需要自定义数据类型
这是自定义数据类型，放在自定义数据类型下面

  

数据类型名	公开	备 注
加密配置项
成员名	类 型	传址	数组	备 注
写出结果	逻辑型
写出密码	文本型

.版本 2<br /> <br /> .数据类型 加密配置项<br />     .成员 写出结果, 逻辑型<br />     .成员 写出密码, 文本型

这是改进后的加密算法

  

子程序名	返回值类型	公开	备 注
写配置项_加密	逻辑型		[文本型 配置文件名]，[文本型 节名称]，［文本型 配置项名称］，［文本型 欲写入值］，［文本型 加密密码］
参数名	类 型	参考	可空	数组	备 注
配置文件名	文本型
节名称	文本型				此项加密
配置项名称	文本型				此项加密
欲写入值	文本型				此项加密
加密密码	文本型				建议请使用5位以上加密密码，如果留空则使用随机密码，请在输出内容中读取密码【在括号后面加点读取】
输出结果	加密配置项				用来接收输出的结果，包括写出的节名称和配置项名称。采用数据传递方式接收数据，

如果真 (加密密码 ＝ “”)
加密密码 ＝ 文本_取随机字符 (取随机数 (1, 20))
输出结果.写出密码 ＝ 加密密码
输出结果.写出结果 ＝ 写配置项 (配置文件名, 文本_加密 (节名称, 加密密码), 文本_加密 (配置项名称, 加密密码), 文本_加密 (欲写入值, 加密密码))

.版本 2<br /> <br /> .子程序 写配置项_加密, 逻辑型, 公开, [文本型 配置文件名]，[文本型 节名称]，［文本型 配置项名称］，［文本型 欲写入值］，［文本型 加密密码］<br /> .参数 配置文件名, 文本型<br /> .参数 节名称, 文本型, , 此项加密<br /> .参数 配置项名称, 文本型, , 此项加密<br /> .参数 欲写入值, 文本型, , 此项加密<br /> .参数 加密密码, 文本型, 可空, 建议请使用5位以上加密密码，如果留空则使用随机密码，请在输出内容中读取密码【在括号后面加点读取】<br /> .参数 输出结果, 加密配置项, 参考 可空, 用来接收输出的结果，包括写出的节名称和配置项名称。采用数据传递方式接收数据，<br /> <br /> .如果真 (加密密码 ＝ “”)<br />     加密密码 ＝ 文本_取随机字符 (取随机数 (1, 20))<br /> .如果真结束<br /> 输出结果.写出密码 ＝ 加密密码<br /> 输出结果.写出结果 ＝ 写配置项 (配置文件名, 文本_加密 (节名称, 加密密码), 文本_加密 (配置项名称, 加密密码), 文本_加密 (欲写入值, 加密密码))

---

作者: taodile    时间: 2018-8-13 11:43
不错。很好。下载学习下。

---

作者: 877161054    时间: 2018-9-13 23:57

---

作者: 478303950    时间: 2018-11-4 19:29
不错。很好。下载学习下。

---

作者: 小伙子    时间: 2018-11-8 23:30

墨影0620 发表于 2018-7-4 20:58
同样新手路过，稍微优化了一下楼主的算法。加了个随机密码系统
采用数据传递方式传递数据，需要自定义数据 ...

你好  加密密码为空 怎么读取密码 有点懵

---

作者: 墨影0620    时间: 2018-11-9 16:31

小伙子 发表于 2018-11-8 23:30
你好  加密密码为空 怎么读取密码 有点懵

你看最后一个是自定义数据类型，自定义数据类型哪里填一个变量。使用变量接收密码qwq

but如果你不写出密码，程序一重启就gg了

---

作者: lhn0925    时间: 2025-6-12 19:53
学习一下

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4