字符串加密工具源码

字符串加密工具源码

.版本 2
.支持库 dp1

.程序集 窗口程序集1
.程序集变量 l, 字节集

.子程序 _按钮1_被单击
.局部变量 jm, 整数型
.局部变量 循环变量, 整数型
.局部变量 l2, 文本型

.判断开始 (组合框1.现行选中项 ＝ 0)
    jm ＝ 1
.默认
    jm ＝ 2
.判断结束
l ＝ 到字节集 (删全部空 (编辑框1.内容))
l ＝ 加密数据 (l, 编辑框5.内容, jm)
编辑框3.内容 ＝ 到文本 (l)
l2 ＝ “{”
.计次循环首 (取字节集长度 (l), 循环变量)
    .判断开始 (循环变量 ＝ 取字节集长度 (l))
        l2 ＝ l2 ＋ 到文本 (位与 (255, 取代码 (到文本 (l), 循环变量))) ＋ “}”
    .默认
        l2 ＝ l2 ＋ 到文本 (位与 (255, 取代码 (到文本 (l), 循环变量))) ＋ “,”
    .判断结束
    处理事件 ()
.计次循环尾 ()
编辑框2.内容 ＝ “到文本 (解密数据 (” ＋ l2 ＋ “,” ＋ 编辑框5.内容 ＋ “,” ＋ 到文本 (jm) ＋ “ ))”
编辑框4.内容 ＝ l2

.子程序 _按钮2_被单击
.局部变量 jm, 整数型
.局部变量 循环变量, 整数型
.局部变量 l2, 文本型

.判断开始 (组合框1.现行选中项 ＝ 0)
    jm ＝ 1
.默认
    jm ＝ 2
.判断结束
' l ＝ 到字节集 (编辑框1.内容)
l ＝ 解密数据 (l, 编辑框5.内容, jm)
编辑框3.内容 ＝ 到文本 (l)
l2 ＝ “{”
.计次循环首 (取字节集长度 (l), 循环变量)
    .判断开始 (循环变量 ＝ 取字节集长度 (l))
        l2 ＝ l2 ＋ 到文本 (位与 (255, 取代码 (到文本 (l), 循环变量))) ＋ “}”
    .默认
        l2 ＝ l2 ＋ 到文本 (位与 (255, 取代码 (到文本 (l), 循环变量))) ＋ “,”
    .判断结束
    处理事件 ()
.计次循环尾 ()
编辑框2.内容 ＝ “到文本 (加密数据 (” ＋ l2 ＋ “,” ＋ 编辑框5.内容 ＋ “,” ＋ 到文本 (jm) ＋ “ ))”
编辑框4.内容 ＝ l2

@易语言入门教程