Hallo Community,
ich arbeite da gerade an etwas. Der Sinn dahinter bleibt vorerst geheim
Nun zum Problem. Ich habe gerade mal folgendes Skript runtergeschrieben:
Spoiler anzeigen
Dim $result
$data = FileOpen("logo.jpg", 16)
$hex = FileRead($data)
$binary = StringTrimLeft($hex, 2)
[/autoit] [autoit][/autoit] [autoit]FileWrite("string1.txt", $binary)
[/autoit] [autoit][/autoit] [autoit]$binary = HexToBinary($binary)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$aNumber = StringRegExp($binary, "\d{4}", 3)
[/autoit] [autoit][/autoit] [autoit]For $i = 0 To UBound($aNumber) - 1
$result &= BinaryToHex($aNumber[$i])
Next
FileWrite("string2.txt", $result)
[/autoit] [autoit][/autoit] [autoit]FileWrite("logo2.jpg", $result)
[/autoit] [autoit][/autoit] [autoit]Func HexToBinary($binary)
$binary = StringReplace($binary, "0", "0000")
$binary = StringReplace($binary, "1", "0001")
$binary = StringReplace($binary, "2", "0010")
$binary = StringReplace($binary, "3", "0011")
$binary = StringReplace($binary, "4", "0100")
$binary = StringReplace($binary, "5", "0101")
$binary = StringReplace($binary, "6", "0110")
$binary = StringReplace($binary, "7", "0111")
$binary = StringReplace($binary, "8", "1000")
$binary = StringReplace($binary, "9", "1001")
$binary = StringReplace($binary, "A", "1010")
$binary = StringReplace($binary, "B", "1011")
$binary = StringReplace($binary, "C", "1100")
$binary = StringReplace($binary, "D", "1101")
$binary = StringReplace($binary, "E", "1110")
$binary = StringReplace($binary, "F", "1111")
Return $binary
EndFunc
Func BinaryToHex($binary)
$binary = StringReplace($binary, "0000", "0")
$binary = StringReplace($binary, "0001", "1")
$binary = StringReplace($binary, "0010", "2")
$binary = StringReplace($binary, "0011", "3")
$binary = StringReplace($binary, "0100", "4")
$binary = StringReplace($binary, "0101", "5")
$binary = StringReplace($binary, "0110", "6")
$binary = StringReplace($binary, "0111", "7")
$binary = StringReplace($binary, "1000", "8")
$binary = StringReplace($binary, "1001", "9")
$binary = StringReplace($binary, "1010", "A")
$binary = StringReplace($binary, "1011", "B")
$binary = StringReplace($binary, "1100", "C")
$binary = StringReplace($binary, "1101", "D")
$binary = StringReplace($binary, "1110", "E")
$binary = StringReplace($binary, "1111", "F")
Return $binary
EndFunc
Bitte nicht hauen. Es geht auch sauberer, aber ich wollte es eben mal testen.
Wie ihr sehen könnt, speichere ich beide Strings wieder ab um diese dann mal zu vergleichen. Diese sind komplett identisch.
Nur wenn ich das Bild wieder erzeugen möchte, gibt er mir ein doppelt so großes, unbrauchbares Bild wieder aus.
Vllt. habt ihr ja einen Lösungsansatz.
Viele Grüße,
sh0r7y