Beliebige Datei als Bild tarnen

[Fox007]

Hallo
Ich arbeite gerade an einem Verschlüsselungs und Security Tool, mit dem es möglich sein soll Dateien auf unterschiedlichste Weise zu Tarnen bzw zu verschlüsseln.

Das verschlüsseln ist nicht so das Problem da es da recht gute Libarys gibt.
Aber wie könnte man es am besten realisieren eine Bild Datei vor ein File zu hängen und das ganze File als Bild zu tarnen.

Das File wäre dann von der größe natürlich Bilddatei+Zu tarnende Datei.
Wenn man aber das File öffnet sieht man nur das Bild und kann die daten nur mit hilfe des programmes wieder vom Bild trennen.

Irgendwelche Ideen?

Wäre sowas ohne Assembler überhaupt möglich?

THX =)

[Christian Seehase]

Moin Fox,

ein möglicher Weg (ungetestet).

1. Erstelle zwei Streams (z.B. 1xFile, 1xMemory)
2. Lade das Bild in den FileStream
3. Lade die Datei in den anderen Stream
4. Kopiere den Stream mit der Datei an das Ende dessen mit dem Bild
5. Speichere den kombinierten Stream ab

Ob man jetzt das Bild noch anzeigen kann weiss ich nicht, wäre aber möglich.

Die zu versteckende Date darf aber nicht zu gross werden, sonst fällt die Dateigrösse auf.

[Duffy]

Hallo,
im Easy Delphi Helper habe ich folgenden Tip gefunden. Vielleicht hilft er ja weiter ...

Zitat:

Dateien miteinander verschmelzen

Wer einen Installer unter Delphi schreiben möchte, wird vielleicht eine Methode vermissen, mit denen man Files verschmelzen und wieder trennen kann. Dies kann man mit beiden Prozeduren erreichen.
Join dient zum verschmelzen der beiden Dateien und Split trennt beide wieder.
Nach dem verschmelzen ist die Hauptfile immer noch voll ausführbar (wenn sie keinen CRC Check oder so was besitzt) und die 2. Datei in der Hauptdatei drin.
Beim Aufruf von Split wird die 2. Datei aus der 1. angelegt und die 1. Datei verkürzt.


procedure Join (Main_FileName, Hidden_Filename : string);
var
MainFile : TFileStream;
HiddenFile : TFileStream;
SizeOfFile : Cardinal;
SearchWord : string[10];
begin
MainFile := TFileStream.Create(Main_FileName, fmOpenReadWrite or fmShareDenyWrite);
try
SizeOfFile := MainFile.Size;
HiddenFile := TFileStream.Create(Hidden_Filename, fmOpenRead or fmShareDenyNone);
try
MainFile.Seek(0, soFromEnd);
MainFile.CopyFrom(HiddenFile, 0);
MainFile.Seek(0, soFromEnd);
finally
HiddenFile.Free;
end;
SearchWord := IntToStr(SizeOfFile) + #0;
MainFile.Seek(0, soFromEnd);
MainFile.WriteBuffer(SearchWord, SizeOf(SearchWord));
finally
MainFile.Free;
end;
end;

procedure Split(Main_FileName, NewFromMain_Filename : string);
var
MainFile : TFileStream;
SplitFile : TFileStream;
HelpStr : string[10];
GetSize : integer;
begin
MainFile := TFileStream.create(Main_FileName, fmOpenReadWrite or fmShareDenyWrite);
try
SplitFile := TFileStream.Create(NewFromMain_Filename, fmCreate or fmShareDenyNone);
try
MainFile.Position := MainFile.Size - 11;
MainFile.Read(HelpStr, 10);
GetSize := StrToInt(HelpStr);
MainFile.Position := GetSize;
SplitFile.CopyFrom(MainFile, MainFile.Size-GetSize);
SplitFile.Size := SplitFile.Size - 11;
MainFile.Size := GetSize;
finally
SplitFile.Free;
end;
finally
MainFile.Free;
end;
end;


Das Verschmelzen der Dateien erfolgt so:

Join('C:\Datei.exe', 'C:\ReadMe.txt');

Und das Trennen mit folgendem Aufruf(wenn Datei.exe die zusammengeschmolzene Datei ist):

Split('C:\Datei.exe', 'C:\TheHidden.txt');


--
Name: Manuel Wiersch
E-Mail: mailto:[e-mail]

bye

[flomei]

Zitat:

Zitat von Christian Seehase

1. Kopiere den Stream mit der Datei an das Ende dessen mit dem Bild
2. Speichere den kombinierten Stream ab

Wie eine MP3 mit einem ID3 Tag am Ende, oder?

MfG Florian :hi:

[Marco Haffner]

Du meinst wohl Steganographie?
Auf SwissDelphiCenter ist ein Beispiel zu finden.

[Fox007]

Zitat:

Nach dem verschmelzen ist die Hauptfile immer noch voll ausführbar (wenn sie keinen CRC Check oder so was besitzt) und die 2. Datei in der Hauptdatei drin.

sollte klappen..
mal testen

thx für den tipp

[Fox007]

thx to Duffy =)

fuktioniert einwandfrei..

Das Proggie wird dann demnächst bei Freeware gepostet

THX für die mühe