Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   "Verschlüsselte" Bilddateien "entschlüsseln" (https://www.delphipraxis.net/122856-verschluesselte-bilddateien-entschluesseln.html)

nicodex 23. Okt 2008 13:52

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;

The Riddler 23. Okt 2008 14:19

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. :?

nicodex 23. Okt 2008 14:21

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).

The Riddler 23. Okt 2008 14:33

Re: "Verschlüsselte" Bilddateien "entschlüsse
 
Zitat:

Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Dokumente und Einstellungen\Pierre\Desktop>fc /b cardsa.png cardsb.png
Vergleichen der Dateien cardsa.png und CARDSB.PNG
FC: Keine Unterschiede gefunden
:cry:

Klaus01 23. Okt 2008 14:34

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

The Riddler 23. Okt 2008 14:42

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. :?

nicodex 23. Okt 2008 14:48

Re: "Verschlüsselte" Bilddateien "entschlüsse
 
Zitat:

Zitat von The Riddler
Zitat:

FC: Keine Unterschiede gefunden
:cry:

Dann gehe ich davon aus, dass die Anwendung das Format deiner Daten nicht mag oder sich an einer anderen Stelle weitere Definitionen/Attribute (Größen, Prüfsummen, ...) befinden.

The Riddler 23. Okt 2008 16:20

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:

..ˆr#.ÑÿDD_.Ì7.“.....+..cards/karten.png.Ɖ..bQ*1;.³.û^5ö.?..... .
In HEX: 2E 00 88 72 23 1A D1 FF 44 44 5F 09 CC 37 7F 93 16 17 02 0B 0C 2B und so weiter

Kann damit jemand etwas anfangen?

jfheins 23. Okt 2008 17:09

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?

The Riddler 23. Okt 2008 19:21

Re: "Verschlüsselte" Bilddateien "entschlüsse
 
Genauer kurzer Auszug aus der Datei.


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:41 Uhr.
Seite 2 von 3     12 3      

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