SICAU教务系统登录密码加密算法的VB方式实现

关于一个算法。这个算法是SICAU教务系统在账号登录时采取的一个加密算法。算法的实现并不复杂。

具体如下：

 Function Form1pwdvalue(ByVal pwdvalue As String, ByVal Temp As Double) As String

     Dim dcode

     Dim dcode1

     Dim dcode2 As String

     Dim tmpstr

     Dim dcodelen

     Dim i

     dcode = pwdvalue

     dcode1 = ""

     dcode2 = Temp

     dcode2 = "" & dcode2 *

     dcodelen = Len(dcode)

     For i =  To dcodelen

         tmpstr = Mid(dcode, i, )

         dcode1 = dcode1 + ChrW(AscW(Mid(tmpstr, , )) - i - Mid(dcode2, i, ))

     Next

     Form1pwdvalue = dcode1

 End Function

有趣的是即使密码“输错了”，这个算法加密的结果仍然相同。这里的输错是指大写写。无论密码中那个字符的大小错误均能通过。

例如：

abcdef=ABcDeF

关键在于： ChrW(AscW(Mid(tmpstr, , )) - i - Mid(dcode2, i, ))

这条语句。

巴特西

SICAU教务系统登录密码加密算法的VB方式实现

最新文章

热门文章