废死了劲儿终于找到一个能用的,发现原来是 lenb 和 len 以及 ascb 和 asc 等等之间的一B之差
PublicSub main() Dim key AsString For i =1To16 Randomize key = key &Chr(Rnd*255) Next i MsgBox RC4(RC4("Welcome To Plindge Studio!", key), key) End Sub PrivateFunction RC4(ByVal inp AsString, _ key AsString) AsString Dim s(0To255) AsByte, k(0To255) AsByte, i AsLong Dim j AsLong, temp AsByte, y
废死了劲儿终于找到一个能用的,发现原来是 lenb 和 len 以及 ascb 和 asc 等等之间的一B之差 Public Sub main()Dim key As StringFor i = 1 To 16Randomizekey = key & Chr(Rnd * 255)Next iMsgBox RC4(RC4("Welcome To Plindge Studio!", key