RC4经典加密算法VB版本代码

王朝vb·作者佚名  2006-12-16
窄屏简体版  字體: |||超大  

VB版rc4算法

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

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航