RC4 算法 VB 实现

废死了劲儿终于找到一个能用的，发现原来是 lenb 和 len 以及 ascb 和 asc 等等之间的一B之差

 

Public   Sub  main()
Dim  key  As   String
For  i  =   1   To   16
Randomize
key  =  key  &   Chr ( Rnd   *   255 )
Next  i
MsgBox  RC4(RC4( " Welcome To Plindge Studio! " , key), key)
End Sub


Private   Function  RC4(ByVal 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