VB 6.0中的RC4加密算法
来源:互联网 发布:电脑游戏端口被限制 编辑:程序博客网 时间:2024/05/18 01:16
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
Private Sub cmdEncode_Click()
Dim key As String
For i = 1 To 16
Randomize
key = key & Chr(Rnd * 255)
Next i
Text2.Text = RC4(RC4(Text1.Text, key), key)'调用
End Sub
- VB 6.0中的RC4加密算法
- 经典加密算法在VB中的实现(3)- RC4
- VB的RC4加密算法,支持中文
- VB 6.0中的MD5加密算法
- RC4加密算法
- rc4加密算法
- RC4加密算法
- RC4加密算法
- RC4加密算法
- rc4加密算法
- RC4加密算法
- RC4加密算法在C++中的实现
- RC4加密算法在C++中的实现(转)
- RC4加密算法在C#中的实现
- RC4加密算法在C++中的实现
- RC4加密算法在C#中的实现
- RC4加密算法在C++中的实现
- RC4流加密算法
- UltraEdit编码问题研究
- Tomcat目录结构
- 《Java程序员的推荐阅读书籍》
- 自增减操作符探索
- 进程间通讯《三》
- VB 6.0中的RC4加密算法
- 怎样插入竖直线
- 毕业旅行·厦门·鼓浪屿
- 重载<在集合set与优先队列priority_queue中的不同
- ACE 的Hello world:: 最简单的ACE 程序!
- 推荐--jQuery使用手册(转摘)
- 数学名词中英文对照
- Cppunit 也有这么框架?哪个更好用一些呢?
- 用BEFORE触发器修正数据错误