base64加解密封装

大兔崽子 · 发表于 2017-9-18 01:29:19

普通的base64编码可以直接用base64 翻译回来
所以就在原有的基础上增加了点难度加入了key 达到加解密的效果

调用了精易模块

子程序名	返回值类型	公开	备注
_按钮9_被单击

调试输出 (base64解密 (base64加密 (“你好”, “兔子”), “兔子”))

子程序名	返回值类型	公开	备注
md5	文本型
参数名	类型	参考	可空	数组	备注
文本	文本型

返回 (取数据摘要 (到字节集 (文本)))

子程序名	返回值类型	公开	备注
取字	文本型
参数名	类型	参考	可空	数组	备注
文本	文本型
位置	整数型

返回 (取文本中间 (文本, 位置, 1))

子程序名	返回值类型	公开	备注
base64加密	文本型
参数名	类型	参考	可空	数组	备注
data	文本型
key	文本型

变量名	类型	静态	数组	备注
x
len
l
i	整数型
char	文本型

key ＝ md5 (key)
len ＝取文本长度 (data)
l ＝取文本长度 (key)
x ＝ 0

计次循环首 (len, i)

如果真 (x ＝ l)

x ＝ 0

x ＝ x ＋ 1

char ＝ char ＋取字 (key, x)

计次循环尾 ()

计次循环首 (len, i)

key ＝ key ＋字符 (取代码 (取字 (data, i), ) ＋取代码 (取字 (char, i), ) ％ 256)

计次循环尾 ()
调试输出 (编码_BASE64编码 (到字节集 (key)))
返回 (编码_BASE64编码 (到字节集 (key)))

子程序名	返回值类型	公开	备注
base64解密	文本型
参数名	类型	参考	可空	数组	备注
data	文本型
key	文本型

变量名	类型	静态	数组	备注
x
len
l
i	整数型
char	文本型
str	文本型
z1
z2

key ＝ md5 (key)
data ＝到文本 (编码_BASE64解码 (data))
len ＝取文本长度 (data)
l ＝取文本长度 (key)

计次循环首 (len, i)

如果真 (x ＝ l)

x ＝ 0

x ＝ x ＋ 1

char ＝ char ＋取文本中间 (key, x, 1)

计次循环尾 ()

计次循环首 (len, i)

z1 ＝取代码 (取文本中间 (data, i, 1), )

z2 ＝取代码 (取文本中间 (char, i, 1), )

判断 (z1 ＜ z2)

str ＝ str ＋字符 (z1 ＋ 256 － z2)

str ＝字符 (z1 － z2)

计次循环尾 ()
返回 (str)

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

.版本 2<br />
.支持库 spec<br />
.支持库 dp1<br />
<br />
.子程序 _按钮9_被单击<br />
<br />
调试输出 (base64解密 (base64加密 (“你好”, “兔子”), “兔子”))<br />
<br />
.子程序 md5, 文本型<br />
.参数 文本, 文本型<br />
<br />
返回 (取数据摘要 (到字节集 (文本)))<br />
<br />
.子程序 取字, 文本型<br />
.参数 文本, 文本型<br />
.参数 位置, 整数型<br />
<br />
返回 (取文本中间 (文本, 位置, 1))<br />
<br />
.子程序 base64加密, 文本型<br />
.参数 data, 文本型<br />
.参数 key, 文本型<br />
.局部变量 x<br />
.局部变量 len<br />
.局部变量 l<br />
.局部变量 i, 整数型<br />
.局部变量 char, 文本型<br />
<br />
key ＝ md5 (key)<br />
len ＝ 取文本长度 (data)<br />
l ＝ 取文本长度 (key)<br />
x ＝ 0<br />
.计次循环首 (len, i)<br />
    .如果真 (x ＝ l)<br />
        x ＝ 0<br />
    .如果真结束<br />
    x ＝ x ＋ 1<br />
    char ＝ char ＋ 取字 (key, x)<br />
.计次循环尾 ()<br />
.计次循环首 (len, i)<br />
    key ＝ key ＋ 字符 (取代码 (取字 (data, i), ) ＋ 取代码 (取字 (char, i), ) ％ 256)<br />
.计次循环尾 ()<br />
调试输出 (编码_BASE64编码 (到字节集 (key)))<br />
返回 (编码_BASE64编码 (到字节集 (key)))<br />
<br />
<br />
.子程序 base64解密, 文本型<br />
.参数 data, 文本型<br />
.参数 key, 文本型<br />
.局部变量 x<br />
.局部变量 len<br />
.局部变量 l<br />
.局部变量 i, 整数型<br />
.局部变量 char, 文本型<br />
.局部变量 str, 文本型<br />
.局部变量 z1<br />
.局部变量 z2<br />
<br />
key ＝ md5 (key)<br />
data ＝ 到文本 (编码_BASE64解码 (data))<br />
len ＝ 取文本长度 (data)<br />
l ＝ 取文本长度 (key)<br />
.计次循环首 (len, i)<br />
    .如果真 (x ＝ l)<br />
        x ＝ 0<br />
    .如果真结束<br />
    x ＝ x ＋ 1<br />
    char ＝ char ＋ 取文本中间 (key, x, 1)<br />
.计次循环尾 ()<br />
.计次循环首 (len, i)<br />
    z1 ＝ 取代码 (取文本中间 (data, i, 1), )<br />
    z2 ＝ 取代码 (取文本中间 (char, i, 1), )<br />
    .判断开始 (z1 ＜ z2)<br />
        str ＝ str ＋ 字符 (z1 ＋ 256 － z2)<br />
    .默认<br />
        str ＝ 字符 (z1 － z2)<br />
    .判断结束<br />
<br />
.计次循环尾 ()<br />
返回 (str)