易语言如何实现加密后是纯数字的加密源码

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