用密码加密解码源码

jy5

用密码加密解码源码
蒋勇api支持库2.5发布了新增80个命令，为啥不做静态库？因为易语言都用独立编译了。。。

龙大创翼

_启动窗口.销毁 ()

全镇

谢谢                        

网上邻居007

试试你这个啊

1210071831

666，6到飞起

jy5

更新2.5了支持一个

jy5

urtyuugvhjj

戒卜掉思恋

  

子程序名	返回值类型	公开	备 注
十六进制文本到字节集	字节集		嵌ASM 本函数为论坛DTCSER的源码
参数名	类 型	参考	可空	数组	备 注
原文	文本型

变量名	类 型	静态	数组	备 注
原文长度	整数型
原文地址	整数型
码表地址	整数型
结果地址	整数型
结果	字节集

原文长度 ＝ 0 ' ebp-4
原文地址 ＝ 1 ' ebp-8
码表地址 ＝ 2 ' ebp-c
结果地址 ＝ 3 ' ebp-10
置入代码 ({ 139, 93, 8, 139, 27, 137, 93, 248, 139, 251, 185, 255, 255, 255, 255, 50, 192, 252, 242, 174, 184, 254, 255, 255, 255, 43, 193, 137, 69, 252 })
如果真 (原文长度 ＜ 1)
返回 ({ })
置入代码 ({ 232, 0, 0, 0, 0, 89, 131, 193, 6, 235, 103 }) ' 跳转到代码
' ==========码表开始
置入代码 ({ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 0, 0, 0, 0, 0, 0, 10, 11, 12, 13, 14, 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 11, 12, 13, 14, 15 })
' 跳到这里了
置入代码 ({ 144, 144, 144, 144, 144, 137, 77, 244 }) ' 码表地址到ebp-c
置入代码 ({ 209, 109, 252 }) ' 原文长度/2
结果 ＝ 取空白字节集 (原文长度)
置入代码 ({ 131, 192, 8, 137, 69, 240 }) ' 结果地址
' 计算开始
置入代码 ({ 139, 93, 244, 139, 117, 248, 139, 125, 240, 209, 101, 252, 139, 77, 252, 3, 206, 51, 192, 102, 139, 6, 70, 70, 80, 37, 255, 0, 0, 0, 138, 52, 24, 88, 193, 232, 8, 138, 20, 24, 192, 230, 4, 8, 242, 136, 23, 71, 59, 241, 124, 223 })
返回 (结果)

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

变量名	类 型	静态	数组	备 注
临时文本	文本型
结果文本	文本型
i
j
k
aLen
bLen
clen
mod	文本型

置随机数种子 ()
mod ＝ 取十六进制文本 (位异或 (取随机数 (, ), 取随机数 (, )))
mod ＝ 取文本左边 (mod ＋ “00000”, 4)
调试输出 (mod)
aLen ＝ 取文本长度 (文本)
bLen ＝ 取文本长度 (密码)
clen ＝ 取文本长度 (mod)
j ＝ 1
k ＝ 1
计次循环首 (aLen, i)
临时文本 ＝ 取十六进制文本 (位异或 (取字节集数据 (到字节集 (文本), #字节型, i), 取代码 (取文本中间 (密码, j, 1), 1), 取代码 (取文本中间 (mod, k, 1), 1)))
临时文本 ＝ 取文本右边 (“00000” ＋ 临时文本, 2)
结果文本 ＝ 结果文本 ＋ 临时文本
j ＝ j ＋ 1 ' 增加单独循环变量比求余数效率高些
k ＝ k ＋ 1 ' 增加单独循环变量比求余数效率高些
如果真 (j ＝ bLen)
j ＝ 1
如果真 (k ＝ clen)
k ＝ 1

计次循环尾 ()
返回 (mod ＋ 结果文本)

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

变量名	类 型	静态	数组	备 注
临时文本	文本型
结果文本	文本型
i
j
k
aLen
bLen
clen
mod	文本型

mod ＝ 取文本左边 (文本, 4)
文本 ＝ 取文本右边 (文本, 取文本长度 (文本) － 4)
aLen ＝ 取文本长度 (文本)
bLen ＝ 取文本长度 (密码)
clen ＝ 取文本长度 (mod)
j ＝ 1
k ＝ 1
变量循环首 (1, aLen, 2, i)
临时文本 ＝ 字符 (位异或 (取字节集数据 (十六进制文本到字节集 (取文本中间 (文本, i, 2)), #字节型, ), 取代码 (取文本中间 (密码, j, 1), ), 取代码 (取文本中间 (mod, k, 1), )))
结果文本 ＝ 结果文本 ＋ 临时文本
j ＝ j ＋ 1
k ＝ k ＋ 1
如果真 (j ＝ bLen)
j ＝ 1
如果真 (k ＝ clen)
k ＝ 1

变量循环尾 ()
返回 (结果文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 十六进制文本到字节集, 字节集, 公开, 嵌ASM 本函数为论坛DTCSER的源码<br /> .参数 原文, 文本型<br /> .局部变量 原文长度, 整数型<br /> .局部变量 原文地址, 整数型<br /> .局部变量 码表地址, 整数型<br /> .局部变量 结果地址, 整数型<br /> .局部变量 结果, 字节集<br /> <br /> 原文长度 ＝ 0 ' ebp-4<br /> 原文地址 ＝ 1 ' ebp-8<br /> 码表地址 ＝ 2 ' ebp-c<br /> 结果地址 ＝ 3 ' ebp-10<br /> 置入代码 ({ 139, 93, 8, 139, 27, 137, 93, 248, 139, 251, 185, 255, 255, 255, 255, 50, 192, 252, 242, 174, 184, 254, 255, 255, 255, 43, 193, 137, 69, 252 })<br /> .如果真 (原文长度 ＜ 1)<br /> 返回 ({ })<br /> .如果真结束<br /> 置入代码 ({ 232, 0, 0, 0, 0, 89, 131, 193, 6, 235, 103 }) ' 跳转到代码<br /> ' ==========码表开始<br /> 置入代码 ({ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 0, 0, 0, 0, 0, 0, 10, 11, 12, 13, 14, 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 11, 12, 13, 14, 15 })<br /> ' 跳到这里了<br /> 置入代码 ({ 144, 144, 144, 144, 144, 137, 77, 244 }) ' 码表地址到ebp-c<br /> 置入代码 ({ 209, 109, 252 }) ' 原文长度/2<br /> 结果 ＝ 取空白字节集 (原文长度)<br /> 置入代码 ({ 131, 192, 8, 137, 69, 240 }) ' 结果地址<br /> ' 计算开始<br /> 置入代码 ({ 139, 93, 244, 139, 117, 248, 139, 125, 240, 209, 101, 252, 139, 77, 252, 3, 206, 51, 192, 102, 139, 6, 70, 70, 80, 37, 255, 0, 0, 0, 138, 52, 24, 88, 193, 232, 8, 138, 20, 24, 192, 230, 4, 8, 242, 136, 23, 71, 59, 241, 124, 223 })<br /> 返回 (结果)<br /> <br /> .子程序 加密, 文本型<br /> .参数 文本, 文本型<br /> .参数 密码, 文本型<br /> .局部变量 临时文本, 文本型<br /> .局部变量 结果文本, 文本型<br /> .局部变量 i<br /> .局部变量 j<br /> .局部变量 k<br /> .局部变量 aLen<br /> .局部变量 bLen<br /> .局部变量 clen<br /> .局部变量 mod, 文本型<br /> <br /> 置随机数种子 ()<br /> mod ＝ 取十六进制文本 (位异或 (取随机数 (, ), 取随机数 (, )))<br /> mod ＝ 取文本左边 (mod ＋ “00000”, 4)<br /> 调试输出 (mod)<br /> aLen ＝ 取文本长度 (文本)<br /> bLen ＝ 取文本长度 (密码)<br /> clen ＝ 取文本长度 (mod)<br /> j ＝ 1<br /> k ＝ 1<br /> .计次循环首 (aLen, i)<br /> 临时文本 ＝ 取十六进制文本 (位异或 (取字节集数据 (到字节集 (文本), #字节型, i), 取代码 (取文本中间 (密码, j, 1), 1), 取代码 (取文本中间 (mod, k, 1), 1)))<br /> 临时文本 ＝ 取文本右边 (“00000” ＋ 临时文本, 2)<br /> 结果文本 ＝ 结果文本 ＋ 临时文本<br /> j ＝ j ＋ 1 ' 增加单独循环变量比求余数效率高些<br /> k ＝ k ＋ 1 ' 增加单独循环变量比求余数效率高些<br /> .如果真 (j ＝ bLen)<br /> j ＝ 1<br /> .如果真结束<br /> .如果真 (k ＝ clen)<br /> k ＝ 1<br /> .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (mod ＋ 结果文本)<br /> <br /> .子程序 解密, 文本型<br /> .参数 文本, 文本型<br /> .参数 密码, 文本型<br /> .局部变量 临时文本, 文本型<br /> .局部变量 结果文本, 文本型<br /> .局部变量 i<br /> .局部变量 j<br /> .局部变量 k<br /> .局部变量 aLen<br /> .局部变量 bLen<br /> .局部变量 clen<br /> .局部变量 mod, 文本型<br /> <br /> mod ＝ 取文本左边 (文本, 4)<br /> 文本 ＝ 取文本右边 (文本, 取文本长度 (文本) － 4)<br /> aLen ＝ 取文本长度 (文本)<br /> bLen ＝ 取文本长度 (密码)<br /> clen ＝ 取文本长度 (mod)<br /> j ＝ 1<br /> k ＝ 1<br /> .变量循环首 (1, aLen, 2, i)<br /> 临时文本 ＝ 字符 (位异或 (取字节集数据 (十六进制文本到字节集 (取文本中间 (文本, i, 2)), #字节型, ), 取代码 (取文本中间 (密码, j, 1), ), 取代码 (取文本中间 (mod, k, 1), )))<br /> 结果文本 ＝ 结果文本 ＋ 临时文本<br /> j ＝ j ＋ 1<br /> k ＝ k ＋ 1<br /> .如果真 (j ＝ bLen)<br /> j ＝ 1<br /> .如果真结束<br /> .如果真 (k ＝ clen)<br /> k ＝ 1<br /> .如果真结束<br /> <br /> .变量循环尾 ()<br /> <br /> <br /> 返回 (结果文本)

我也提供一个加密解密的子程序    一直在使用     在其他论坛看到的

村雨

不能黑月的支持库感觉用处都不大。2MB起步的空白程序实在有点慎人。