Hallo,
Code
- Public Function RC4(ByVal Data As String, ByVal Password As String) As String
- On Error Resume Next
- Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
- Key() = StrConv(Password, vbFromUnicode)
- For X = 0 To 255
- Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
- F(X) = X
- Next X
- Key() = StrConv(Data, vbFromUnicode)
- For X = 0 To Len(Data)
- Y = (Y + F(Y) + 1) Mod 256
- Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))
- Next X
- RC4 = StrConv(Key, vbUnicode)
- End Function
Wenn man hiervon die Strings ändert wird der RC4 - Code
nicht vom Antivirus erkannt.
Mfg. Lemontree