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))
這條語句。
浙公網安備 33010602011771號