![]() |
Re: "Verschlüsselte" Bilddateien "entschlüsse
Delphi-Quellcode:
const
FileName = 'D:\Temp\karten.decoded.png'; var Source: TFileStream; Header: array [0..3] of AnsiChar; Stream: TMemoryStream; Buffer: PByte; Index: Integer; begin Source := TFileStream.Create(FileName, fmOpenRead); try Stream := TMemoryStream.Create(); try Header := 'CF10'; Stream.WriteBuffer(Header, SizeOf(Header)); if Source.Size > 0 then begin Source.Position := 0; Stream.CopyFrom(Source, Source.Size); Buffer := Stream.Memory; Inc(Buffer, SizeOf(Header)); for Index := 1 to Stream.Size - SizeOf(Header) do begin Buffer^ := Buffer^ xor $8D; Inc(Buffer); end; end; Stream.SaveToFile(ExtractFilePath(FileName) + ChangeFileExt( StringReplace(ExtractFileName(FileName), '.decoded', '', [rfReplaceAll, rfIgnoreCase]), '.encoded') + ExtractFileExt(FileName)); finally Stream.Free(); end; finally Source.Free(); end; end; |
Re: "Verschlüsselte" Bilddateien "entschlüsse
Ok danke, dass funktioniert soweit. Leider jedoch, akzeptiert das Fremdprogramm meine verschlüsselten Bilder noch nicht. Ich halte eine Fehlermeldung, obwohl die ersten Bytes meiner und der Original-Dateien gleich sind: 43 46 31 30 04 DD C3 CA 80 87 97 87 8D 8D 8D 80 C4 C5 C9 DF 8D 8D
Leider habe ich keine Ahnung wieso das Programm meine nicht als originale erkennt. :? |
Re: "Verschlüsselte" Bilddateien "entschlüsse
Dekodiere eine Originaldatei, kodiere sie wieder und mache dann einen Binärvergleich (fc /b a.dat b.dat).
Wenn das funktioniert, dann liegt das Geheimnis woanders (in den Daten selbst). |
Re: "Verschlüsselte" Bilddateien "entschlüsse
Zitat:
|
Re: "Verschlüsselte" Bilddateien "entschlüsse
Du hast doch bestimmt mehrere Bilddateien die "verschlüsselt" sind.
Haben alle die Bytefolge CF10 am Anfang der Datei stehen, oder variert die Bytefolge. Könnte es eine Größenangabe sein: CF10 -> 53008 Bytes ?(nur eine Vermutung) Grüße Klaus |
Re: "Verschlüsselte" Bilddateien "entschlüsse
Ja alle verschlüsselten haben CF10 am Anfang, denn sonst könnte ich ja die anderen Dateien mittels Nicos Code nicht dekodieren. Ich hoffe nur nicht, dass Dateigrößen o.a. abgefragt werden. :?
|
Re: "Verschlüsselte" Bilddateien "entschlüsse
Zitat:
|
Re: "Verschlüsselte" Bilddateien "entschlüsse
Hi,
ich habe mal Filemon angeschmissen und geguckt, worauf das Programm so alles zugreift. Und siehe da, es kam eine Datei zum Vorschein, filedat.dat. Diese Datei mit dem Editor angeguckt, zeigt mir "CF10" und wirres Zeug an. Ok denke ich mir, jagst du es mal durch Nicos Algorithmus. Und tatsächlich, war auch diese Datei so verschlüsselt. In diesem entschlüsselten Text finden sich alle Dateinamen und vermutlich Informationen, wodurch mein Austauschen anscheinend schief läuft. Die Dateinamen stehen im Klartext drin, die weiteren Infos sind allerdings weiterhin wirres Zeug. Auszug: Zitat:
Kann damit jemand etwas anfangen? |
Re: "Verschlüsselte" Bilddateien "entschlüsse
Es könnte ne MD% Checksumme sein. Die hat 128 bit/16 Bytes das könnte hinkommen. (Du hättest dann 16 Buchstaben bei 1Byte/Buchstabe)
Oder evtl. ne Größenangabe ... ist das ein genauer Auszug oder hast du da zwischendrin was gekürzt? |
Re: "Verschlüsselte" Bilddateien "entschlüsse
Genauer kurzer Auszug aus der Datei.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:41 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz