AES加密源码 可与其他语言互通

.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 _Encrypt
.局部变量 Encrypt, 文本型
.局部变量 Decrypt, 文本型
.局部变量 AES, AesData
.局部变量 test, 文本型

Encrypt ＝ AES._EcbEncrypt (“正在封装易格式目的代码”, “1255653238000000”)
信息框 (“ECB加密: ” ＋ Encrypt, 0, )

Decrypt ＝ AES._EcbDecrypt (Encrypt, “1255653238000000”)
信息框 (“ECB解密: ” ＋ Decrypt, 0, )

调试输出 (#换行符)

Encrypt ＝ AES._CbcEncrypt (“正在封装易格式目的代码”, “1255653238000000”)
信息框 (“CBC加密: ” ＋ Encrypt, 0, )

Decrypt ＝ AES._CbcDecrypt (Encrypt, “1255653238000000”)
信息框 (“CBC解密: ” ＋ Decrypt, 0, , )

.子程序 _按钮1_被单击

CloseHandle (CreateThread (0, 0, 到整数 (&_Encrypt), 0, 0, 0))


.子程序 __启动窗口_创建完毕

_按钮1_被单击 ()

@gyd0927289