22.12.2020, 21:09
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:
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
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 SubDer 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