贴上Delphi转为狐表代码:
Dim edt4Text,edt5Text As String
edt4Text = "atqn1anffvvlf5hzgr438ru24b0n83" '加密后
Dim aryA(5),aryB(5),aryC(5) As String
Dim str,str1,str2,str5,str6,str7,str9 As String
Dim i,ib,j,jb,k,ia,ja,r9 As Integer
aryA(0) = "ke3wms"
aryA(1) = "jnx9i8"
aryA(2) = "dpqzl6"
aryA(3) = "vyg1bh"
aryA(4) = "7a4c2f"
aryA(5) = "u5rto0"
aryB(0) = "wa6j1c"
aryB(1) = "fblrk7"
aryB(2) = "mg9q0s"
aryB(3) = "vu3zth"
aryB(4) = "po4xy2"
aryB(5) = "ni5d8e"
aryC(0) = "mg9qwc"
aryC(1) = "vu3zth"
aryC(2) = "a6j10s"
aryC(3) = "fbk7lr"
aryC(4) = "5dpoy2"
aryC(5) = "4xni8e"
str = ""
str1 = ""
str2 = ""
For ib = 0 To edt4Text.Length -1
For jb = 0 To 5
str9 = aryB(jb)
k = str9.IndexOf(edt4Text.SubString(ib,1))+1
If k > 0 Then
str1 = str1 + CStr(jb)
str2 = CStr(k-1) + str2
Exit For
End If
Next
Next
str = str1 + str2
i = 0
For j = 1 To 3
i = i * 6 + CInt(str.SubString(j-1,1))
Next
str = str.SubString(3,i)
str5 = ""
ia = str.Length
If (ia Mod 2 = 1) Then
'输入密码处设置为空白
Else
For ja = 0 To (ia\2)-1 'div=\
str6 = ""
str6 = aryA(CStr(str.SubString(ja,1)))
str7 = str.SubString(ia-ja-1,1)
str5 = str5 + str6.SubString(CInt(str7),1)
edt5Text = str5
Next
End If
output.show(edt5Text) '解密后testing198