Question

请大家帮忙把这段易语言代码转化成 vb代码 谢谢

.版本 2

.子程序 解密账号, 文本型
.参数 账号, 文本型
.局部变量 码表1, 文本型
.局部变量 码表2, 字节集
.局部变量 码表3, 整数型, , "2"
.局部变量 账号长度, 整数型
.局部变量 计次, 整数型
.局部变量 找到位置, 整数型
.局部变量 数1, 整数型
.局部变量 数2, 整数型
.局部变量 结果文本, 文本型

码表1 ＝ “9012345678abcdeABCDEFGHIJKLMNfghijklmnUVWXYZxyzuvwopqrstOPQRST”
码表2 ＝ { 17, 52, 201, 35, 117, 24, 215, 226, 18, 53, 41, 43, 236, 182, 35, 25 }
码表3 ＝ { 0, 37 }
账号长度 ＝ 取文本长度 (账号)
.计次循环首 (账号长度, 计次)
找到位置 ＝ 寻找文本 (码表1, 取文本中间 (账号, 计次, 1), 1, 假)
.如果 (找到位置 ≠ -1)
.判断开始 (计次 ≤ 16)
数1 ＝ 码表2 [计次]
.默认
数1 ＝ 计次 － 1
数2 ＝ 数1 ％ 16
数1 ＝ 码表2 [数2 ＋ 1]
.判断结束
数2 ＝ 码表3 [2]
数2 ＝ 数2 ＋ 码表3 [2]
数2 ＝ 数2 ＋ 码表3 [2]
数1 ＝ 位异或 (数1, 数2)
数1 ＝ 位异或 (数1, 码表3 [1])
数1 ＝ 数1 ＋ 找到位置 － 1
数2 ＝ 数1 ％ 62
结果文本 ＝ 结果文本 ＋ 取文本中间 (码表1, 数2 ＋ 1, 1)
数2 ＝ 数2 ＋ 9433
码表3 [2] ＝ 位异或 (码表3 [2], 数2)
.否则
结果文本 ＝ 结果文本 ＋ 取文本中间 (账号, 计次, 1)
.如果结束
码表3 [1] ＝ 码表3 [1] ＋ 5
.计次循环尾 ()
结果文本 ＝ “2:” ＋ 结果文本
返回 (结果文本)

Answer 1

==啊，我在解密

追问

嗯 就是翻译成vb语言的代码就行 谢谢

追答

。。。
别追问啊……
那样我就没法解密了
还有，我要上学啊啊啊！