<<< 返回 access911.net 编程静态资料库索引页

4 种常用加密算法-2-RC4

 

作者:  摘自:  录入:cg1  时间:2003-3-27  浏览人次:6420


专题地址:http://access911.net/fixhtm/73FAB51E13DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

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

VB版rc4算法 

 


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

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

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/73FAB51E13DC.htm

 


上一篇:4 种常用加密算法-1-CFS

下一篇:4 种常用加密算法-3-md5

2017年2月22日生成静态资料