昨天看到个帖子，说要一个加密后是纯数字的加密源码

两只老虎

闲来无事就写了个例子，主要是给新手做参考的，实现的方法有很多，这是比较简单的一种方法

  

子程序名	返回值类型	公开	备 注
加密数据_纯数字	文本型		成功返回纯数字加密结果，失败返回空文本
参数名	类 型	参考	可空	数组	备 注
源文本	文本型
密码	文本型

变量名	类 型	静态	数组	备 注
字节集	字节集
a	整数型
返回值	文本型

字节集 ＝ 加密数据 (到字节集 (源文本), 密码, #RC4算法 )
计次循环首 (取字节集长度 (字节集), a)
判断 (字节集 [a] ＜ 10)
返回值 ＝ 返回值 ＋ “00” ＋ 到文本 (字节集 [a])
判断 (字节集 [a] ＜ 100)
返回值 ＝ 返回值 ＋ “0” ＋ 到文本 (字节集 [a])
返回值 ＝ 返回值 ＋ 到文本 (字节集 [a])

计次循环尾 ()
' 调试输出 (取文本长度 (返回值))
返回 (返回值)

子程序名	返回值类型	公开	备 注
解密数据_纯数字	文本型
参数名	类 型	参考	可空	数组	备 注
源文本	文本型
密码	文本型

变量名	类 型	静态	数组	备 注
字节集	字节集
总长	整数型
当前	整数型

如果真 (取文本长度 (源文本) ％ 3 ≠ 0)
调试输出 (“错误”, 取文本长度 (源文本))
返回 (“”)
总长 ＝ 取文本长度 (源文本)
当前 ＝ 0
判断循环首 (当前 × 3 ＜ 总长)
字节集 ＝ 字节集 ＋ 到字节集 (到字节 (取文本中间 (源文本, 当前 × 3 ＋ 1, 3)))
当前 ＝ 当前 ＋ 1
判断循环尾 ()
返回 (到文本 (解密数据 (字节集, 密码, #RC4算法 )))

i支持库列表	支持库注释
dp1	数据操作支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 dp1<br /> .支持库 spec<br /> <br /> .子程序 加密数据_纯数字, 文本型, , 成功返回纯数字加密结果，失败返回空文本<br /> .参数 源文本, 文本型<br /> .参数 密码, 文本型<br /> .局部变量 字节集, 字节集<br /> .局部变量 a, 整数型<br /> .局部变量 返回值, 文本型<br /> <br /> 字节集 ＝ 加密数据 (到字节集 (源文本), 密码, #RC4算法)<br /> .计次循环首 (取字节集长度 (字节集), a)<br />     .判断开始 (字节集 [a] ＜ 10)<br />         返回值 ＝ 返回值 ＋ “00” ＋ 到文本 (字节集 [a])<br />     .判断 (字节集 [a] ＜ 100)<br />         返回值 ＝ 返回值 ＋ “0” ＋ 到文本 (字节集 [a])<br />     .默认<br />         返回值 ＝ 返回值 ＋ 到文本 (字节集 [a])<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> ' 调试输出 (取文本长度 (返回值))<br /> 返回 (返回值)<br /> <br /> .子程序 解密数据_纯数字, 文本型<br /> .参数 源文本, 文本型<br /> .参数 密码, 文本型<br /> .局部变量 字节集, 字节集<br /> .局部变量 总长, 整数型<br /> .局部变量 当前, 整数型<br /> <br /> .如果真 (取文本长度 (源文本) ％ 3 ≠ 0)<br />     调试输出 (“错误”, 取文本长度 (源文本))<br />     返回 (“”)<br /> .如果真结束<br /> 总长 ＝ 取文本长度 (源文本)<br /> 当前 ＝ 0<br /> .判断循环首 (当前 × 3 ＜ 总长)<br />     字节集 ＝ 字节集 ＋ 到字节集 (到字节 (取文本中间 (源文本, 当前 × 3 ＋ 1, 3)))<br />     当前 ＝ 当前 ＋ 1<br /> .判断循环尾 ()<br /> 返回 (到文本 (解密数据 (字节集, 密码, #RC4算法)))

lm88818

        感谢分享，很给力！~

chis777780

感谢分享，很给力！~

易语飞扬

支持开源~！感谢分享

renhe2018

很有技术含量啊。

pq9999

感谢分享

lytsz

感谢分享

光影魔术

感谢分享源码

shaokui123

感谢分享

w521521

感谢分享，很给力！~