精易模块的 文本_加密 也太刁了吧。。。。

小白熊

这样写，真的好吗？  我是小学生，你们别骗我。

无名侠

异或大法好。

某某人

笑了

hackergg

效率太低啊。对大文件还慢了

依然是海洋

依然是海洋 发表于 2014-12-18 18:32
楼主，你的PP被那和尚看到了

秃驴可好

小白熊

.版本 2

.子程序 精易文本解密, 文本型, 公开
.参数 密文, 文本型
.局部变量 mm, 字节集
.局部变量 解密字节集, 字节集
.局部变量 count, 整数型

mm ＝ 到字节集 (HexToText (取文本左边 (密文, 取文本长度 (密文) － 9)))
.计次循环首 (取字节集长度 (mm), count)
    解密字节集 ＝ 解密字节集 ＋ 到字节集 (到字节 (位异或 (mm [count], 3600)))
.计次循环尾 ()
返回 (到文本 (解密字节集))

.子程序 HexToText, 文本型, 公开, 将十六进制文本转换到文本
.参数 十六进制文本, 文本型
.局部变量 count, 整数型
.局部变量 text, 文本型, , "0"
.局部变量 t, 文本型
.局部变量 hex, 文本型

.判断循环首 (十六进制文本 ≠ “”)
    hex ＝ hex ＋ 取文本左边 (十六进制文本, 2) ＋ “ ”
    十六进制文本 ＝ 取文本右边 (十六进制文本, 取文本长度 (十六进制文本) － 2)
.判断循环尾 ()
十六进制文本 ＝ 删全部空 (hex)
text ＝ 分割文本 (删首尾空 (hex), “ ”, )
.计次循环首 (取数组成员数 (text), count)
    t ＝ t ＋ 字符 (到十进制 (text [count]))
.计次循环尾 ()
返回 (t)

.子程序 到十进制, 整数型, 公开, 16进制到10进制，返回10进制整数型
.参数 hex, 文本型
.局部变量 count, 整数型
.局部变量 text, 文本型
.局部变量 str, 整数型
.局部变量 t, 文本型

text ＝ “0123456789ABCDEF”
t ＝ 到大写 (hex)
.计次循环首 (取文本长度 (hex), count)
    str ＝ str × 16 ＋ 寻找文本 (text, 取文本中间 (t, count, 1), , 假) － 1
.计次循环尾 ()
返回 (str)


秒解密啊，大哥，这样真的好么。

依然是海洋

楼主，你的PP被那和尚看到了