Question

在易语言里，加密算法只需要作为参数，求rc4算法易语言源码，不是用加密数据命令，而是

在易语言里，加密算法只需要作为参数，求rc4算法易语言源码，不是用加密数据命令，而是 .子程序 加密为rc4，字节集 .参数 加密的数据，字节集 .参数 加密密钥，文本型，求这个子程序完整源码(即翻译rc4算法c++源码为易语言)

Answer 1

.版本 2

.子程序 加密为rc4, 文本型, 公开, 用RC4算法对文本进行加密
.参数 加密的数据, 文本型, , 欲加密的文本
.参数 加密密钥, 文本型, 可空, 用作加密的密码
.局部变量 临时, 字节集
.局部变量 s, 字节型, , "256"
.局部变量 k, 字节型, , "256"
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 y, 整数型
.局部变量 outstr, 文本型
.局部变量 temp, 字节型
.局部变量 x, 整数型
.局部变量 t, 整数型
.局部变量 aaa, 文本型

临时 ＝ 到字节集 (文本)
.计次循环首 (256, i)
    s [i] ＝ i － 1
.计次循环尾 ()
j ＝ 1
.计次循环首 (256, i)
    .如果真 (j ＞ 取文本长度 (密码))
        j ＝ 1
    .如果真结束
    k [i] ＝ 取代码 (取文本中间 (密码, 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))
    outstr ＝ outstr ＋ 选择 (取文本长度 (aaa) ＞ 1, “”, “0”) ＋ aaa ＋ “,”
.计次循环尾 ()
返回 (outstr)

.子程序 到十六进制文本, 文本型
.参数 数值, 整数型, ,

返回 (多项选择 (右移 (数值, 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”))

追问

解密呢？

或者告诉我怎么推算解密，因为有了加密的了解密应该只是反过来，求告知。.子程序 解密rc4为文本，文本型
.参数 欲解密文本，文本型 .参数 加密密钥，文本型

Answer 2

你去精易模块源码里看看有没有吧，或许有你想要的

Answer 3

位密码算法：DES 三重DES（Triple-DES）仍然是很安全的，但是也只是在别无他法的情况下的一个较好的选择。显然高级加密标准（AES）是一个更好的加密算法，NIST用AES代替Triple-DES作为他们的标准（下面有更详细的讨论）。其他较好的算法包括另外两个AES的变种算法Twofish和Serpent－也称为CAST-128，它是效率和安全的完美结合。这几个算法不仅比DES更安全，而且也比DES的速度更快。为什么要使用一些又慢又不安全的算法呢？SHA1是一个哈希函数，而不是一个加密函数。作为一个哈希函数，SHA1还是相当优秀的，但是还需要几年的发展才能用作加密算法。如果你正在设计一个新系统，那么谨记你可能会在若干年后用SHA1代替目前的算法。我再重复一遍：只是可能。呵呵，希望能帮到你！谢谢望采纳哦！