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
RC4加密演算法
rc4於1987年提出，和des演算法一樣，是一種對稱加密演算法，也就是說使用的金鑰為單鑰 或稱為私鑰 但不同於des的是，rc4不是對明文進行分組處理，而是位元組流的方式依次加密明文中的每乙個位元組，解密的時候也是依次對密文中的每乙個位元組進行解密。rc4演算法的特點是演算法簡單，執行速度快，而且...
RC4加密演算法
簡介 包括初始化演算法 ksa 和加密演算法兩大部分 主要 初始化部分 這個基本上是固定的 void rc4 init unsigned char s,unsigned char key,unsigned long len s最開始是傳入的長度為256的char型空陣列，用來存放初始化後的s key...
RC4加密演算法
rc4於1987年提出，和des演算法一樣，是一種對稱加密演算法，也就是說使用的金鑰為單鑰 或稱為私鑰 但不同於des的是，rc4不是對明文進行分組處理，而是位元組流的方式依次加密明文中的每乙個位元組，解密的時候也是依次對密文中的每乙個位元組進行解密。rc4演算法的特點是演算法簡單，執行速度快，而且...