帮帮忙,告诉我为什么要这样写!^-^!我已经等好长时间了.

[kimurakenshin]

这是一段加密解密程序中的一部分,根据从文本框中读出的password,进行变化,然后利用password进行加密,解密
' Translate a password into an offset value.
Private Function NumericPassword(ByVal password As String) As Long
Dim value As Long
Dim ch As Long
Dim shift1 As Long
Dim shift2 As Long
Dim i As Integer
Dim str_len As Integer

str_len = Len(password)
For i = 1 To str_len
' Add the next letter.
ch = Asc(Mid$(password, i, 1))
value = value Xor (ch * 2 ^ shift1)
value = value Xor (ch * 2 ^ shift2)

' Change the shift offsets.
shift1 = (shift1 + 7) Mod 19
shift2 = (shift2 + 13) Mod 23
Next i
NumericPassword = value
End Function

[kimurakenshin]

我实在不知道为什么这样写,把(shift1+7) mod 19 ,为什?

[kimurakenshin]

各位大侠,帮帮忙吧,小女子在这里有礼了.在线等~~~~~~~~~~~~~~~

[海牛]

Up

[kimurakenshin]

大侠,我快想破头了,为什么呢?

[lrb820102]

我想是对密码长度的限制而设的

[jone999]

这么复杂的加密，要怎么解密啊？难道不打算解密吗，

[yunfeng007]

改变shift值的偏移量

[beibeilong]

这个应该是spec里面规定的加密或者解密的过程吧？我猜(shift1+7) mod 19 可能是要保证在一定的长度以内shift1都不能相同。

[LiangWu25]

呵呵，这段加密程序怎么这么熟悉？我在第一家公司也是段加密的代码!(是不是都从网上Down下来的啊？)我开始也认为很神奇，研究半天，最后头晕，放弃。我觉得弄清加密原理是最重要的，这段加密代码，是把一个字串中字符的ASC值改变，最后变成一串乱码，没什么神奇的，清楚这些，你可以自己写自己的加密代码，至于它怎么去改变ASC值，那是它自己的算法，算法不同，结果就不同，可是原理和目的都是一样，就是通过改变原字符的ASC值最后变为密码。你应该有它的加密解密源码吧？我想如果你花时间研究它这段算法是怎么回事，还不如自己动手写一段自己的加密程序，很好玩的，试试。