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)) 

这条语句。

posted @ 2016-12-13 15:11  onedayismway  阅读(462)  评论(0)  编辑  收藏  举报