|
发表于 2024-1-12 21:00:18
|
显示全部楼层
江苏省南京市
.版本 2
.子程序 byteToHex, 文本型, 参数 bytes, 字节数组
局部变量 result, 文本型
result = ""
循环 到 bytes.数量-1
局部变量 byteValue, 文本型
byteValue = 取字节值(bytes[循环索引], 16进制)
如果 字节值长度 = 1 则
result = "0" + 字节值 到文本
否则
result = 字节值 到文本
结束如果
result = result + 空格文本
循环结束
result = 去除文本(result, 空格文本) ' 去除末尾的空格
返回 result
子程序结束
.子程序 encryptWithAES, 文本型, 参数 inputStr, 文本型, key, 文本型
局部变量 encryptedStr, 文本型
局部变量 secretKey, 字节数组型
secretKey = key 到字节数组(ASCII码) ' 将密钥转换为字节数组
使用AES加密算法, 1, secretKey, inputStr 到字节数组 ' 加密并返回字节数组
encryptedStr = byteToHex(返回值) ' 将加密后的字节数组转换为十六进制字符串
返回 encryptedStr
子程序结束
.子程序 main, 不带参数
局部变量 editText1, 文本输入框型 ' 对应Java中的EditText add和id
局部变量 checkbox, 复选框型 ' 对应Java中的CheckBox nt
' ... 其他控件声明 ...
' 这里可以设置控件的属性和事件处理程序等 ...
子程序结束 |
|