RC4經典加密演算法VB版本代碼,希朢高手改為asp的vbs版本在asp中利用.^-^_基礎教程 | 幫客之家
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 Public Function RC4(inp As String, key As String) As String Dim S(0 To 255) As ......