无规则虚幻数换位加密算法

咖啡胤sky · 发表于 2024-2-2 20:16:38

本帖最后由咖啡胤sky 于 2024-2-2 20:36 编辑

无规则解密,会有四个数字添加,推荐不要使用在大型数据上且此加密为加入混淆代码的加密所以会增大体积，而且一旦加密不知道密码就解不了了,一般推荐使用在机密数据上
希望能纳入精易模块

实现方法：
通过每个字节分为两半然后添加进虚幻索引数字(2数字)，再在头部加上定位符号(2数字)
再通过数字密码的每一位进行数组打乱实现加密

子程序名	返回值类型	公开	备注
JMCE_文本加密	文本型		珈咔普虚幻数换位算法
参数名	类型	参考	可空	数组	备注
加密文本	文本型				要加密的文本
密码	整数型				打乱密码

变量名	类型	静态	数组	备注
SBIN	字节集			转换形态
INDEX	整数型			索引
STRM	文本型			数据移位
STRA	文本型			移动首
STRB	文本型			移动尾
RETS	文本型			最终代码
RETX	文本型		0
RETXS	文本型		0
PASW	文本型		0
I	整数型
IP	整数型		0
IM	整数型			INDEX_MOVE

' 加密数据
SBIN ＝到字节集 (加密文本)
文本_逐字分割 (到文本 (密码), PASW)

计次循环首 (取字节集长度 (SBIN), INDEX)

SBIN [INDEX] ＝ SBIN [INDEX]

STRM ＝到文本 (SBIN [INDEX])

STRA ＝取文本左边 (STRM, 取文本长度 (STRM) － 1)

STRB ＝取文本右边 (STRM, 1)

如果 (取文本长度 (STRA) ＞ 9)

加入成员 (RETX, 到文本 (取文本长度 (STRA)) ＋ STRA ＋到文本 (取字节集长度 (SBIN) － INDEX) ＋ STRB)

加入成员 (RETX, “0” ＋到文本 (取文本长度 (STRA)) ＋ STRA ＋到文本 (取字节集长度 (SBIN) － INDEX) ＋ STRB)

计次循环尾 ()
' 密码打乱

计次循环首 (取数组成员数 (PASW), INDEX)

IM ＝到整数 (PASW [INDEX])

清除数组 (IP)

如果真 (IM ＞取数组成员数 (RETX) 或 IM ＜ 1)

到循环尾 ()

计次循环首 (取数组成员数 (RETX), I)

如果 (I × IM ＜取数组成员数 (RETX))

加入成员 (IP, I × IM)

跳出循环 ()

计次循环尾 ()

计次循环首 (取数组成员数 (IP), I)

STRM ＝ RETX [1]

RETX [1] ＝ RETX [IP [I]]

RETX [IP [I]] ＝ STRM

计次循环尾 ()

计次循环首 (取数组成员数 (RETX), INDEX)

RETS ＝ RETS ＋ RETX [INDEX] ＋ “.”

计次循环尾 ()
RETS ＝文本_删右边 (RETS, 1)
返回 (RETS)

.版本 2<br />
<br />
.子程序 JMCE_文本加密, 文本型, 公开, 珈咔普虚幻数换位算法<br />
.参数 加密文本, 文本型, , 要加密的文本<br />
.参数 密码, 整数型, 可空, 打乱密码<br />
.局部变量 SBIN, 字节集, , , 转换形态<br />
.局部变量 INDEX, 整数型, , , 索引<br />
.局部变量 STRM, 文本型, , , 数据移位<br />
.局部变量 STRA, 文本型, , , 移动首<br />
.局部变量 STRB, 文本型, , , 移动尾<br />
.局部变量 RETS, 文本型, , , 最终代码<br />
.局部变量 RETX, 文本型, , "0"<br />
.局部变量 RETXS, 文本型, , "0"<br />
.局部变量 PASW, 文本型, , "0"<br />
.局部变量 I, 整数型<br />
.局部变量 IP, 整数型, , "0"<br />
.局部变量 IM, 整数型, , , INDEX_MOVE<br />
<br />
' 加密数据<br />
SBIN ＝ 到字节集 (加密文本)<br />
文本_逐字分割 (到文本 (密码), PASW)<br />
.计次循环首 (取字节集长度 (SBIN), INDEX)<br />
    SBIN [INDEX] ＝ SBIN [INDEX]<br />
    STRM ＝ 到文本 (SBIN [INDEX])<br />
    STRA ＝ 取文本左边 (STRM, 取文本长度 (STRM) － 1)<br />
    STRB ＝ 取文本右边 (STRM, 1)<br />
    .如果 (取文本长度 (STRA) ＞ 9)<br />
        加入成员 (RETX, 到文本 (取文本长度 (STRA)) ＋ STRA ＋ 到文本 (取字节集长度 (SBIN) － INDEX) ＋ STRB)<br />
    .否则<br />
        加入成员 (RETX, “0” ＋ 到文本 (取文本长度 (STRA)) ＋ STRA ＋ 到文本 (取字节集长度 (SBIN) － INDEX) ＋ STRB)<br />
    .如果结束<br />
<br />
.计次循环尾 ()<br />
' 密码打乱<br />
.计次循环首 (取数组成员数 (PASW), INDEX)<br />
    IM ＝ 到整数 (PASW [INDEX])<br />
    清除数组 (IP)<br />
    .如果真 (IM ＞ 取数组成员数 (RETX) 或 IM ＜ 1)<br />
        到循环尾 ()<br />
    .如果真结束<br />
    .计次循环首 (取数组成员数 (RETX), I)<br />
        .如果 (I × IM ＜ 取数组成员数 (RETX))<br />
            加入成员 (IP, I × IM)<br />
        .否则<br />
            跳出循环 ()<br />
        .如果结束<br />
<br />
    .计次循环尾 ()<br />
    .计次循环首 (取数组成员数 (IP), I)<br />
        STRM ＝ RETX [1]<br />
        RETX [1] ＝ RETX [IP [I]]<br />
        RETX [IP [I]] ＝ STRM<br />
    .计次循环尾 ()<br />
.计次循环尾 ()<br />
.计次循环首 (取数组成员数 (RETX), INDEX)<br />
    RETS ＝ RETS ＋ RETX [INDEX] ＋ “.”<br />
.计次循环尾 ()<br />
RETS ＝ 文本_删右边 (RETS, 1)<br />
返回 (RETS)

JMEC算法.e (970.9 KB, 下载次数: 53)