Fake crypotography

[Fennek]

Hallo,

Sunburst, der aktuelle hack von SolarWind und vielen anderen hat auch kreative Wirkungen: Da viele IT-Security-Firmen die malware analysieren, gibt es einiges zu lernen. Ein link zu einem alten "Die größten Krypto-Fehler von Malware-Autoren" Youtube-Video (https://youtu.be/loy84K3AJ5Q?t=121 von Virus Bulletin) inspirierte mich zu einem eigenen Versuch:

Code:

Const Pt As String = "Hello World"

Sub encode()
Dim By() As Byte
Dim Hx As String

By = StrConv(Left(Pt & "#AbCdEfGhIjKlMnOpQrStUvWxYz", 15), vbFromUnicode) ' right-padding 15
For b = 1 To UBound(By)
    By(b) = By(b) Xor By(b - 1)
Next b
For b = 0 To UBound(By)
    Hx = Hx & Right("00" & Hex(By(b)), 2)
Next b
Cells(1, 1) = Hx
End Sub

Sub decode()
Dim By() As Byte
Dim Cy As String, Tx As String

Cy = Cells(1, 1)
ReDim By(Len(Cy) / 2)
For i = 1 To Len(Cy) Step 2
    By(b) = Val("&H" & Mid(Cy, i, 2))
    b = b + 1
Next i

For b = UBound(By) To 1 Step -1
    By(b) = By(b) Xor By(b - 1)
    Tx = Chr(By(b)) & Tx
Next b
Tx = Chr(By(0)) & Tx


Cells(2, 1) = Split(Tx, "#")(0)
End Sub

Der Klartext Pt wird mit "Encode()" xor verschlüsselt und als Hex in Zelle A1 geschrieben. "Decode()" stellt den ursprüngliche Text wieder her.

Unter Kryptographen hat der Code gute Chance den Preis des "dümmsten Codes" zu erhalten, aber Nicht-Kryptographen dürften ziemlich suchen müssen.

mfg