ITBUG的专栏

Public key(1 To 3) As Long Private Const base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrst uvwxyz0123456789+/" Public Sub GenKey() Dim d As Long, phi As Long, e As Long Dim m As Long, x As Long

Option Explicit Dim w1 As String, w2 As String, w3 As String, w4 As String Function MD5F(ByVal tempstr As String, ByVal w As String, ByVal X As S tring, ByVal y As String, ByVal z As String, ByVal Xin

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 Strin

 一、算法实现（转自绿色兵团） 1.    处理密钥: 1.1  从用户处获得64位密钥.(每第8位为校验位,为使密钥有正确的奇偶校验,每 个密钥要有奇      数个”1”位.(本文如未特指，均指二进制位) 1.2    具体过程: 1.2.1    对密钥实施变换,使得变换以后的密钥的各个位与原密钥位对应关系如 下表所示:          表一为忽略校验位以后情况 1      2