Hallo,
ich habe sowohl Delphi 3 und 5(Std).
Da ich mich aufgrund der derzeitigen Umstände zum Umdenken angeregt wurde, habe ich begonnen, mir selbst ein Programm zu schreiben, welches meine Dateien verschlüsseln soll.
Jetzt stehe ich vor der Wahl der Methoden, die Zeichenketten durch die Funktionen bzw. teils sogar "nur" Prozeduren (blowfish; später evtl. AES; diese sind bereits vorprogrammierte Units) zu jagen.
die erste Funktion verarbeitet Blöcke á 64 Bit.
Ich möchte aber kein Padding, sondern die Länge der Cipher-Texte gleich belassen. d.h., daß also 1:1.
Anfangs jedenfalls.
(Wie) kann ich das mit Streams erreichen?
Oder nähme ich besser "blockread" oder "memorymapped files"?
Also ich müßte einen Stream zum Lesen und Schreiben gleichzeitig öffnen. => fmOpenReadwrite
Das Blöde is, daß ich schon mit meinem ersten Versuch mit XOR gescheitert bin. - Siehe den Source unten.
Wobei ich mir auch nicht sicher bin, ob das der richtige Weg Ansatz dafür ist.
Denn ich denke mir dann den Stream durch die Funktion zu jagen. Komplett. Nicht nur einzelne Blöcke. (richtig so?)
Also dann ähnlich wie: blowfishEnc(Sin.Read( ));
geht das überhaupt?
Oder wie machen andere Verschlüsselungsprogramme das?
Denn ich will nicht nur einen kurzen 500 Buchstaben langen Text veschlüsseln, sondern eine ganze Datei. (bis zu 1,5 GB)
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
i,l:byte;
fil1, fil2: String;
sIn, sOut : TFilestream;
Buffer:array[0..7] of byte;
begin
sIn := TFilestream.Create('.\datei.txt', fmOpenReadWrite);
while not (sIn.Position >= sizeof(sIn)) do
begin
l:= sIn.Read(Buffer[0],8);
for i:=0 to l - 1 do
buffer[i]:= buffer[i] xor $FF;
sin.Write(Buffer[0],l); //Die Mehtode Write enthält ein create falls nil oder was???
end;
sout.free; sin.free;
end;
sout << war gedacht, um in eine andere Datei zu verschlüsseln.
Doch eigentlich möchte ich die Datei überschreiben. D.h. sIN => in sIN speichern.
Danke.
Sprachen und Entwicklungsumgebungen
Antwort
15. Jul 2013, 20:50
Zitat
Linear-Darstellung
