av网站免费线看精品_国产做a爱视频免费不_深爱激情网开心五月天_伊人五月天在线视频网
 
慧網(wǎng)動態(tài) 常見問題 網(wǎng)絡(luò)營銷 網(wǎng)站設(shè)計 行業(yè)動態(tài) 網(wǎng)站優(yōu)化
RC4經(jīng)典加密算法VB版本代碼
發(fā)布時間：2005-03-17　　　瀏覽次數(shù)：1234918
[ 來源：動網(wǎng) |作者：佚名 ] VB版rc4算法 Public Sub main()Dim key As StringFor i = 1 To 16Randomizekey = key & Chr(Rnd * 255)Next iMsgBox RC4(RC4("Welcome To Plindge Studio!", key), key)End SubPublic Function RC4(inp As String, key As String) As StringDim S(0 To 255) As Byte, K(0 To 255) As Byte, i As LongDim j As Long, temp As Byte, Y As Byte, t As Long, x As LongDim Outp As String For i = 0 To 255S(i) = iNext j = 1For i = 0 To 255If j > Len(key) Then j = 1K(i) = Asc(Mid(key, j, 1))j = j + 1Next i j = 0For i = 0 To 255j = (j + S(i) + K(i)) Mod 256temp = S(i)S(i) = S(j)S(j) = tempNext i i = 0j = 0For x = 1 To Len(inp)i = (i + 1) Mod 256j = (j + S(i)) Mod 256temp = S(i)S(i) = S(j)S(j) = tempt = (S(i) + (S(j) Mod 256)) Mod 256Y = S(t) Outp = Outp & Chr(Asc(Mid(inp, x, 1)) Xor Y)NextRC4 = OutpEnd Function 來源：http://edu.chinaz.com
立即預(yù)約