SICAU教务系统登录密码加密算法的VB方式实现
关于一个算法。这个算法是SICAU教务系统在账号登录时采取的一个加密算法。算法的实现并不复杂。
具体如下：
1 Function Form1pwdvalue(ByVal pwdvalue As String, ByVal Temp As Double) As String 2 Dim dcode 3 Dim dcode1 4 Dim dcode2 As String 5 Dim tmpstr 6 Dim dcodelen 7 Dim i 8 dcode = pwdvalue 9 dcode1 = "" 10 dcode2 = Temp 11 dcode2 = "" & dcode2 * 137 12 dcodelen = Len(dcode) 13 For i = 1 To dcodelen 14 tmpstr = Mid(dcode, i, 1) 15 dcode1 = dcode1 + ChrW(AscW(Mid(tmpstr, 1, 1)) - i - Mid(dcode2, i, 1)) 16 Next 17 Form1pwdvalue = dcode1 18 End Function
有趣的是即使密码“输错了”，这个算法加密的结果仍然相同。这里的输错是指大写写。无论密码中那个字符的大小错误均能通过。
例如：
abcdef=ABcDeF
关键在于： 1 ChrW(AscW(Mid(tmpstr, 1, 1)) - i - Mid(dcode2, i, 1))
这条语句。
