简单的写配置项读配置项加密模块源码 需要精易模块 高手飘过

barque

超级简单起到加密的作用  使用方法如下图  
对高手没有什么作用  一时兴起 就弄了这个
第一次发这种  如有不对的请指正

  

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

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

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

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

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

墨影0620

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

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

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

小伙子

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

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

478303950

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

877161054

taodile

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

墨影0620

同样新手路过，稍微优化了一下楼主的算法。加了个随机密码系统
采用数据传递方式传递数据，需要自定义数据类型
这是自定义数据类型，放在自定义数据类型下面

  

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

.版本 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 /> 输出结果.写出结果 ＝ 写配置项 (配置文件名, 文本_加密 (节名称, 加密密码), 文本_加密 (配置项名称, 加密密码), 文本_加密 (欲写入值, 加密密码))

墨影0620

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

不用谢

barque

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

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

谢谢  我也来试试

墨影0620

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.     .成员 写出密码, 文本型
   

复制代码

墨影0620

貌似只要你编译的时候装了精益模块是不需要使用者也安装的吧！

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