官方澳门新永利下载: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

官方澳门新永利下载 1官方澳门新永利下载 2public Sub main()Sub main()
官方澳门新永利下载 3Dim key As String
官方澳门新永利下载 4For i = 1 To 16
官方澳门新永利下载 5Randomize
官方澳门新永利下载 6key = key & Chr(Rnd * 255)
官方澳门新永利下载 7Next i
官方澳门新永利下载 8MsgBox RC4(RC4(“Welcome To Plindge Studio!”, key), key)
官方澳门新永利下载 9End Sub
官方澳门新永利下载 10官方澳门新永利下载 11Public Function RC4()Function RC4(inp As String, key As String) As String
官方澳门新永利下载 12Dim S(0 To 255) As Byte, K(0 To 255) As Byte, i As Long
官方澳门新永利下载 13Dim j As Long, temp As Byte, Y As Byte, t As Long, x As Long
官方澳门新永利下载 14Dim Outp As String 
官方澳门新永利下载 15for i = 0 To 255
官方澳门新永利下载 16S(i) = i
官方澳门新永利下载 17Next
官方澳门新永利下载 18j = 1
官方澳门新永利下载 19For i = 0 To 255
官方澳门新永利下载 20If j > Len(key) Then j = 1
官方澳门新永利下载 21K(i) = Asc(Mid(key, j, 1))
官方澳门新永利下载 22j = j + 1
官方澳门新永利下载 23Next i
官方澳门新永利下载 24j = 0
官方澳门新永利下载 25For i = 0 To 255
官方澳门新永利下载 26j = (j + S(i) + K(i)) Mod 256
官方澳门新永利下载 27temp = S(i)
官方澳门新永利下载 28S(i) = S(j)
官方澳门新永利下载 29S(j) = temp
官方澳门新永利下载 30Next i
官方澳门新永利下载 31i = 0
官方澳门新永利下载 32j = 0
官方澳门新永利下载 33For x = 1 To Len(inp)
官方澳门新永利下载 34i = (i + 1) Mod 256
官方澳门新永利下载 35j = (j + S(i)) Mod 256
官方澳门新永利下载 36temp = S(i)
官方澳门新永利下载 37S(i) = S(j)
官方澳门新永利下载 38S(j) = temp
官方澳门新永利下载 39t = (S(i) + (S(j) Mod 256)) Mod 256
官方澳门新永利下载 40Y = S(t)
官方澳门新永利下载 41outp = Outp & Chr(Asc(Mid(inp, x, 1)) Xor Y)
官方澳门新永利下载 42Next
官方澳门新永利下载 43RC4 = Outp
官方澳门新永利下载 44End Function

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

发表评论

电子邮件地址不会被公开。 必填项已用*标注