闲来无事开源个简单异或文本加密【翻译自Delphi】

chencong5025

调试输出 (EncryptStr (“user=abc” ＋ #换行符 ＋ “pass=去你是aa”, 100))
输出：
“75434D1EB5868B90318587D48A1BBF67D6104E7B988E97A2024C”

  

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

变量名	类 型	静态	数组	备 注
i
RStr	字节集
RStrB	字节集
k	整数型
CKEY1	整数型
CKEY2	整数型
Result	文本型

RStr ＝ 文本到UTF8 (data)
RStrB ＝ RStr
k ＝ key
CKEY1 ＝ 1239  ' 可自定义
CKEY2 ＝ 5648  ' 可自定义
计次循环首 (取字节集长度 (RStr), i)
RStrB [i] ＝ 位异或 (RStrB [i], 右移 (k, 8))
k ＝ (RStrB [i] ＋ k) × CKEY1 ＋ CKEY2
计次循环尾 ()
Result ＝ 字节集到十六进制文本 (RStrB)
返回 (Result)

子程序名	返回值类型	公开	备 注
字节集到十六进制文本	文本型
参数名	类 型	参考	可空	数组	备 注
字节集	字节集

变量名	类 型	静态	数组	备 注
地址	整数型
字节集长度	整数型
i	整数型
返回十六	文本型

' 地址 ＝ 指针_取地址字节集型 (字节集)
字节集长度 ＝ 取字节集长度 (字节集)
计次循环首 (字节集长度, i)
返回十六 ＝ 返回十六 ＋ 到十六进制_单 (取字节集数据 (字节集, 1, 地址 ＋ i))
计次循环尾 ()
返回 (返回十六)

子程序名	返回值类型	公开	备 注
到十六进制_单	文本型		将字节型转换成十六进制文本,保留0
参数名	类 型	参考	可空	数组	备 注
字节	字节型				只能是255以内的数

' 取出十六进制文本，用易语言的函数会丢掉0，所以重新做了一个
返回 (多项选择 (右移 (字节, 4) ＋ 1, “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F”) ＋ 多项选择 (位与 (字节, 15) ＋ 1, “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F”))

.版本 2<br /> <br /> .子程序 EncryptStr, 文本型<br /> .参数 data, 文本型<br /> .参数 key, 整数型<br /> .局部变量 i<br /> .局部变量 RStr, 字节集<br /> .局部变量 RStrB, 字节集<br /> .局部变量 k, 整数型<br /> .局部变量 CKEY1, 整数型<br /> .局部变量 CKEY2, 整数型<br /> .局部变量 Result, 文本型<br /> <br /> RStr ＝ 文本到UTF8 (data)<br /> RStrB ＝ RStr<br /> k ＝ key<br /> CKEY1 ＝ 1239  ' 可自定义<br /> CKEY2 ＝ 5648  ' 可自定义<br /> .计次循环首 (取字节集长度 (RStr), i)<br />     RStrB <i> ＝ 位异或 (RStrB <i>, 右移 (k, 8))<br />     k ＝ (RStrB <i> ＋ k) × CKEY1 ＋ CKEY2<br /> .计次循环尾 ()<br /> Result ＝ 字节集到十六进制文本 (RStrB)<br /> 返回 (Result)<br /> <br /> .子程序 字节集到十六进制文本, 文本型<br /> .参数 字节集, 字节集<br /> .局部变量 地址, 整数型<br /> .局部变量 字节集长度, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 返回十六, 文本型<br /> <br /> ' 地址 ＝ 指针_取地址字节集型 (字节集)<br /> 字节集长度 ＝ 取字节集长度 (字节集)<br /> .计次循环首 (字节集长度, i)<br />     返回十六 ＝ 返回十六 ＋ 到十六进制_单 (取字节集数据 (字节集, 1, 地址 ＋ i))<br /> .计次循环尾 ()<br /> 返回 (返回十六)<br /> <br /> .子程序 到十六进制_单, 文本型, 公开, 将字节型转换成十六进制文本,保留0<br /> .参数 字节, 字节型, , 只能是255以内的数<br /> <br /> ' 取出十六进制文本，用易语言的函数会丢掉0，所以重新做了一个<br /> 返回 (多项选择 (右移 (字节, 4) ＋ 1, “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F”) ＋ 多项选择 (位与 (字节, 15) ＋ 1, “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F”))

看有人需要的话 随后开源 解密的

窥伺

感谢分享，学习一下

voaikey

感谢分享，很给力！~

木木的树

看有人需要的话 随后开源 解密的

l0447195

我来看看了呀

chencong5025

风中的玫瑰 发表于 2020-3-22 18:50
文本到UTF8 (data)  UTF8到文本 (RStrB) 这个是哪里的

新版易语言核心库带的。
如果不是新版 使用 编码转换即可。

风中的玫瑰

文本到UTF8 (data)  UTF8到文本 (RStrB) 这个是哪里的

yy08111

老实说，6位数的数字密码也保不住我银行卡两位数的余额。你写这么复杂，我好慌

LYForever

不错哦！！！！

chencong5025

六升臣 发表于 2020-3-19 19:44
你不开源解密只发加密也没法用啊

https://bbs.125.la/thread-14546523-1-1.html
解密算法

六升臣

你不开源解密只发加密也没法用啊