站长的加密方法

yodong

Public Function EncRec(strPW As String)
Dim strTmp As String
Dim i As Integer
For i = 1 To Len(strPW)
    strTmp = Mid(strPW, i, 1)
    If Not Asc(strTmp) Mod 2 = 0 Then
        strTmp = Chr(Asc(strTmp) - 1)
    Else
        strTmp = Chr(Asc(strTmp) + 1)
    End If
    EncRec = EncRec & strTmp
Next
End Function

站长的加密方法,有没有办法改某个参数,变成不同的加密方式?
我试了通过改变为-1,改为-2,对过长的密码的就不行了

tmtony

你要加密的内容有没有中文, 有中文的加密方法不太好找

台灯

看不懂啊