公布一个文本的RC4加解密源码,加密返回是16进制字符串,解密传递参数为16进制字符串,支持中文加密,但key不能是中文

谢谢帮顶,自己贴子的沙发我就不抢了,别人抢个沙发也不容易,呵呵

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

 

变量名	类 型	静态	数组	备 注
临时	字节集
s	字节型		256
k	字节型		256
i
j
y
outstr	文本型
temp	字节型
x	整数型
t	整数型
aaa	文本型

 

临时 ＝ 到字节集 (instr)

计次循环首 (256, i)

s [i] ＝ i － 1

计次循环尾 ()

j ＝ 1

计次循环首 (256, i)

如果真 (j ＞ 取文本长度 (key))

j ＝ 1

k [i] ＝ 取代码 (取文本中间 (key, j, 1), )

j ＝ j ＋ 1

计次循环尾 ()

j ＝ 0

计次循环首 (256, i)

j ＝ (j ＋ s [i] ＋ k [i]) ％ 256 ＋ 1

temp ＝ s [i]

s [i] ＝ s [j]

s [j] ＝ temp

计次循环尾 ()

i ＝ 0

j ＝ 0

计次循环首 (取字节集长度 (临时), x)

i ＝ (i ＋ 1) ％ 256 ＋ 1

j ＝ (j ＋ s [i]) ％ 256 ＋ 1

temp ＝ s [i]

s [i] ＝ s [j]

s [j] ＝ temp

t ＝ (s [i] ＋ s [j] ％ 256) ％ 256 ＋ 1

y ＝ s [t]

aaa ＝ 进制转换_ (到文本 (位异或 (临时 [x], y)), 10, 16)

outstr ＝ outstr ＋ 选择 (取文本长度 (aaa) ＞ 1, “”, “0”) ＋ aaa ＋ “,”

计次循环尾 ()

返回 (outstr)

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

 

变量名	类 型	静态	数组	备 注
临时	字节集
s	字节型		256
k	字节型		256
i
j
y
outstr	字节型		0
temp	字节型
x	整数型
t	整数型

 

临时 ＝ 文本_16串到字节集 (instr)

计次循环首 (256, i)

s [i] ＝ i － 1

计次循环尾 ()

j ＝ 1

计次循环首 (256, i)

如果真 (j ＞ 取文本长度 (key))

j ＝ 1

k [i] ＝ 取代码 (取文本中间 (key, j, 1), )

j ＝ j ＋ 1

计次循环尾 ()

j ＝ 0

计次循环首 (256, i)

j ＝ (j ＋ s [i] ＋ k [i]) ％ 256 ＋ 1

temp ＝ s [i]

s [i] ＝ s [j]

s [j] ＝ temp

计次循环尾 ()

i ＝ 0

j ＝ 0

计次循环首 (取字节集长度 (临时), x)

i ＝ (i ＋ 1) ％ 256 ＋ 1

j ＝ (j ＋ s [i]) ％ 256 ＋ 1

temp ＝ s [i]

s [i] ＝ s [j]

s [j] ＝ temp

t ＝ (s [i] ＋ s [j] ％ 256) ％ 256 ＋ 1

y ＝ s [t]

加入成员 (outstr, 位异或 (临时 [x], y))

计次循环尾 ()

返回 (到文本 (outstr))

200762323423294628.zip
下载: zip 文件