AES加解密

linzg3

我有一段js加解密的代码，如何用易语言实现？
JS代码如下：
import CryptoJS from 'crypto-js';

/**
* 随机生成32位的字符串
* @returns {string}
*/
const generateRandomString = () => {
  const characters = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
  let result = '';
  const charactersLength = characters.length;
  for (let i = 0; i < 32; i++) {
    result += characters.charAt(Math.floor(Math.random() * charactersLength));
  }
  return result;
};

/**
* 随机生成aes 密钥
* @returns {string}
*/
export const generateAesKey = () => {
  return CryptoJS.enc.Utf8.parse(generateRandomString());
};

/**
* 加密base64
* @returns {string}
*/
export const encryptBase64 = (str: CryptoJS.lib.WordArray) => {
  return CryptoJS.enc.Base64.stringify(str);
};

/**
* 解密base64
*/
export const decryptBase64 = (str: string) => {
  return CryptoJS.enc.Base64.parse(str);
};

hongqingfeng

直接发你要找的网站出来，

linzg3

hongqingfeng 发表于 2025-7-5 16:42
直接发你要找的网站出来，

没有网站

尛龍科技

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
生成随机字符串	文本型

变量名	类 型	静态	数组	备 注
结果	文本型
字符集	文本型
字符集长度	整数型
i	整数型
随机位置	整数型

字符集 ＝ “ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789”
字符集长度 ＝ 取文本长度 (字符集)
结果 ＝ “”
计次循环首 (32, i)
结果 ＝ 结果 ＋ 子文本替换 (字符集, 随机位置, 随机位置, , , 真)
计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备 注
生成AES密钥	字节集

返回 (到字节集 (生成随机字符串 ()))

子程序名	返回值类型	公开	备 注
加密Base64	文本型
参数名	类 型	参考	可空	数组	备 注
待加密内容	字节集

返回 (编码_BASE64编码 (待加密内容))

子程序名	返回值类型	公开	备 注
解密Base64	字节集
参数名	类 型	参考	可空	数组	备 注
待解密内容	文本型

返回 (到字节集 (编码_BASE64编码 (待解密内容)))

子程序名	返回值类型	公开	备 注
编码_BASE64编码	文本型		BASE64编码处理；成功返回编码后的文本；
参数名	类 型	参考	可空	数组	备 注
待编码数据	字节集				待编码字节集

变量名	类 型	静态	数组	备 注
余数	整数型
临时	字节型		3
变量	整数型
集合	字节集
长度	整数型
字符	字节集
i	整数型

长度 ＝ 取字节集长度 (待编码数据)
如果真 (长度 ＜ 1)
返回 (“”)
余数 ＝ 长度 ％ 3
如果真 (余数 ＞ 0)
待编码数据 ＝ 待编码数据 ＋ 取空白字节集 (3 － 余数)
长度 ＝ 取字节集长度 (待编码数据)
字符 ＝ 取空白字节集 (长度 × 4 ÷ 3)
i ＝ 1
集合 ＝ 到字节集 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 /”)
变量循环首 (1, 长度, 3, 变量)
临时 [1] ＝ 待编码数据 [变量]
临时 [2] ＝ 待编码数据 [变量 ＋ 1]
临时 [3] ＝ 待编码数据 [变量 ＋ 2]
字符 [i] ＝ 集合 [右移 (临时 [1], 2) ＋ 1]
字符 [i ＋ 1] ＝ 集合 [左移 (位与 (临时 [1], 3), 4) ＋ 右移 (临时 [2], 4) ＋ 1]
字符 [i ＋ 2] ＝ 集合 [左移 (位与 (临时 [2], 15), 2) ＋ 右移 (临时 [3], 6) ＋ 1]
字符 [i ＋ 3] ＝ 集合 [位与 (临时 [3], 63) ＋ 1]
i ＝ i ＋ 4
变量循环尾 ()
如果真 (余数 ＞ 0)
长度 ＝ 取字节集长度 (字符)
如果 (余数 ＝ 1)
字符 [长度 － 1] ＝ 到字节 (取代码 (“=”, ))
字符 [长度] ＝ 到字节 (取代码 (“=”, ))
字符 [长度] ＝ 到字节 (取代码 (“=”, ))

返回 (到文本 (字符))

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 生成随机字符串, 文本型<br /> .局部变量 结果, 文本型<br /> .局部变量 字符集, 文本型<br /> .局部变量 字符集长度, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 随机位置, 整数型<br /> <br /> 字符集 ＝ “ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789”<br /> 字符集长度 ＝ 取文本长度 (字符集)<br /> 结果 ＝ “”<br /> .计次循环首 (32, i)<br />     结果 ＝ 结果 ＋ 子文本替换 (字符集, 随机位置, 随机位置, , , 真)<br /> .计次循环尾 ()<br /> 返回 (结果)<br /> <br /> .子程序 生成AES密钥, 字节集<br /> <br /> 返回 (到字节集 (生成随机字符串 ()))<br /> <br /> .子程序 加密Base64, 文本型<br /> .参数 待加密内容, 字节集<br /> <br /> 返回 (编码_BASE64编码 (待加密内容))<br /> <br /> .子程序 解密Base64, 字节集<br /> .参数 待解密内容, 文本型<br /> <br /> 返回 (到字节集 (编码_BASE64编码 (待解密内容)))<br /> <br /> .子程序 编码_BASE64编码, 文本型, 公开, BASE64编码处理；成功返回编码后的文本；<br /> .参数 待编码数据, 字节集, , 待编码字节集<br /> .局部变量 余数, 整数型<br /> .局部变量 临时, 字节型, , "3"<br /> .局部变量 变量, 整数型<br /> .局部变量 集合, 字节集<br /> .局部变量 长度, 整数型<br /> .局部变量 字符, 字节集<br /> .局部变量 i, 整数型<br /> <br /> 长度 ＝ 取字节集长度 (待编码数据)<br /> .如果真 (长度 ＜ 1)<br />     返回 (“”)<br /> .如果真结束<br /> 余数 ＝ 长度 ％ 3<br /> .如果真 (余数 ＞ 0)<br />     待编码数据 ＝ 待编码数据 ＋ 取空白字节集 (3 － 余数)<br /> .如果真结束<br /> 长度 ＝ 取字节集长度 (待编码数据)<br /> 字符 ＝ 取空白字节集 (长度 × 4 ÷ 3)<br /> i ＝ 1<br /> 集合 ＝ 到字节集 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 /”)<br /> .变量循环首 (1, 长度, 3, 变量)<br />     临时 [1] ＝ 待编码数据 [变量]<br />     临时 [2] ＝ 待编码数据 [变量 ＋ 1]<br />     临时 [3] ＝ 待编码数据 [变量 ＋ 2]<br />     字符 <i> ＝ 集合 [右移 (临时 [1], 2) ＋ 1]<br />     字符 [i ＋ 1] ＝ 集合 [左移 (位与 (临时 [1], 3), 4) ＋ 右移 (临时 [2], 4) ＋ 1]<br />     字符 [i ＋ 2] ＝ 集合 [左移 (位与 (临时 [2], 15), 2) ＋ 右移 (临时 [3], 6) ＋ 1]<br />     字符 [i ＋ 3] ＝ 集合 [位与 (临时 [3], 63) ＋ 1]<br />     i ＝ i ＋ 4<br /> .变量循环尾 ()<br /> .如果真 (余数 ＞ 0)<br />     长度 ＝ 取字节集长度 (字符)<br />     .如果 (余数 ＝ 1)<br />         字符 [长度 － 1] ＝ 到字节 (取代码 (“=”, ))<br />         字符 [长度] ＝ 到字节 (取代码 (“=”, ))<br />     .否则<br />         字符 [长度] ＝ 到字节 (取代码 (“=”, ))<br />     .如果结束<br /> <br /> .如果真结束<br /> 返回 (到文本 (字符))