完美的MD5加解密小工具

.如果真 (解密内容.内容 ＝ “”)
气球提示框.弹出提示框 (_启动窗口.左边 ＋ 解密内容.左边 ＋ 5, _启动窗口.顶边 ＋ 解密内容.顶边 ＋ 5, “请输入MD5密文后再解密。”, 0, 真)
解密内容.获取焦点 ()
返回 ()
.如果真结束
.如果真 (取文本长度 (解密内容.内容) ≠ 16 且 取文本长度 (解密内容.内容) ≠ 32 且 取文本长度 (解密内容.内容) ≠ 40 且 取文本长度 (解密内容.内容) ≠ 64)
气球提示框.弹出提示框 (_启动窗口.左边 ＋ 解密内容.左边 ＋ 5, _启动窗口.顶边 ＋ 解密内容.顶边 ＋ 5, “密文错误，请正确输入需要解密的内容。”, 0, 真)
返回 () ' 不等于 16位 或 32位 或 40位 或 64位的就直接返回错误。因为MD5本身加密算法目前就这几种字符长度。

气球提示框.弹出提示框 (_启动窗口.左边 ＋ 加密内容.左边 ＋ 5, _启动窗口.顶边 ＋ 加密内容.顶边 ＋ 5, “请输入内容后再加密。”, 0, 真)
常规16位加密.内容 ＝ 取文本中间 (取数据摘要 (到字节集 (加密内容.内容)), 9, 16) ' 16位MD5加密
常规32位加密.内容 ＝ 取数据摘要 (到字节集 (加密内容.内容)) ' 32位MD5加密
大写16位加密.内容 ＝ 常规16位加密.内容
大写16位加密.转换方式 ＝ 2
大写32位加密.内容 ＝ 常规32位加密.内容
大写32位加密.转换方式 ＝ 2