与RC加密算法的首次亲密接触

. 59             POP ECX
0043C807  \. C2 0800        RETN 8

--------------------------------------------------------------------------------
4、附上RC4加密算法的VB源代码(和上面的有点类似,只是我们这里的密钥是固定的，但码表开始又是乱序)
Public Sub main()
Dim key As String
For i = 1 To 16
  Randomize   '每次都随机给个种子值   
'对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个
'数的种子。在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根
'据系统计时器得到的种子。

  key = key & Chr(Rnd * 255)   '随机得到一个长16位的字符串(密钥)，串中每个字符的ASC值被限制在(0~255之间)
Next i
MsgBox RC4(RC4("Welcome To Plindge Studio!", key), key)  '这里又进行两次RC4运算
End Sub

Public Function RC4(inp As String, key As String) As String
Dim S(0 To 255) As Byte, K(0 To 255) As Byte, i As Long
Dim j As Long, temp As Byte, Y As Byte, t As Long, x As Long
Dim Outp As String
For i = 0 To 255
  S(i) = i
Next
j = 1
For i = 0 To 255
  If j > Len(key) Then j = 1
  K(i) = Asc(Mid(key, j, 1))
  j = j + 1
Next i
j = 0
For i = 0 To 255
  j = (j + S(i) + K(i)) Mod 256
  temp = S(i)
  S(i) = S(j)
  S(j) = temp
Next i
i = 0
j = 0
For x = 1 To Len(inp)
  i = (i + 1) Mod 256
  j = (j + S(i)) Mod 256
  temp = S(i)
  S(i) = S(j)
  S(j) = temp
  t = (S(i) + (S(j) Mod 256)) Mod 256
  Y = S(t)
  Outp = Outp & Chr(Asc(Mid(inp, x, 1)) Xor Y)
Next
RC4 = Outp
End Function  

5、得出注册码的可能性
因为作者内定RC加密后的值有三个，必须在密钥"506938841"可知的情况下，解密RC算法逆推出可能的注册码，然后再找到符合填入注册码时符合要求的注册码

关键词：与RC加密算法的首次亲密接触