主题：【求助】Delphi源码的加密与解密怎样转为狐表写法（已完美解决）

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:加密解密输入的密码.rar

如题，麻烦各位牛人楼主解答，谢谢！

2楼楼主，我是看过帮助后，才来请教的，麻烦解决

因为这个是我们公司目前使用的进销存软件的登录用户名的密码加密方式，是基于Delphi设计的，

7楼楼主，麻烦转转，谢谢！

谢谢！，我刚刚也已转为狐表

贴上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