三次整合加密源码 文本加密/解密模块

.子程序 超级解密, 文本型, 公开
.参数 解密文本, 文本型
.参数 解密密码, 文本型, 可空
.参数 解密算法, 整数型, , 1: #DES算法； 2: #RC4算法。加密和解密必须使用相同的算法
.局部变量 解密1, 文本型
.局部变量 二次解密, 文本型

二次解密 ＝ 解密文本 (解密文本, 解密密码)
解密1 ＝ 加解密 (到文本 (解密数据 (到字节集 (二次解密), 解密密码, 解密算法)))
返回 (解密1)

.子程序 加解密, 文本型, , 第一次为加密，第二次为解密
.参数 文本, 文本型
.局部变量 记录, 整数型
.局部变量 字节集, 字节集
.局部变量 字节, 整数型
.局部变量 字节集2, 字节集

字节集 ＝ 到字节集 (文本)
.计次循环首 (取字节集长度 (字节集), 记录)
    字节集2 ＝ 字节集2 ＋ { 0 }
    字节集2 [记录] ＝ 位取反 (字节集 [记录])
.计次循环尾 ()
返回 (到文本 (字节集2))