Alternative zu "Xor" [VB6] + Fud RC4

[Tix]

Da jetzt Avs auch VB Functionen wie Xor detecten hab ich mal eine alternative dafür geschrieben :

Da es in vb auch kein nand gibt musst ich dafür auch ein replacement schreiben.


Hier Beispiel wie ihr es testen könnt :

Private Sub Form_Load()
If (10 Xor 10) = xori(10, 10) Then
    MsgBox "Funktioniert!"
End If
End Sub

Private Function nand(a, b)
    nand = Not ((a And b))
End Function

Private Function xori(a, b)
    xori = nand(nand(a, nand(a, b)), nand(b, nand(a, b)))
End Function

Hab auch mal in einer detecteten RC4 Verschlüsselung das Xor Replaced und ist nun wieder schön FUD.


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) = xori(Key(X), F(Temp + F((Y + F(Y)) Mod 254)))
Next X
RC4 = StrConv(Key, vbUnicode)
End Function

Private Function nand(a, b)
    nand = Not ((a And b))
End Function

Private Function xori(a, b)
    xori = nand(nand(a, nand(a, b)), nand(b, nand(a, b)))
End Function