Forum: Programmieren allgemein
by Teekeks,
15. Sep 2010
Guck dir das doch mal an: du gibst den dateinamen an und gibst bei outstream einen vorher schon erzeugten Stream mit an.
Nach dieser Funktion hast du in outStream die Datei als entschlüsselten Stream drin.
Forum: Programmieren allgemein
by Teekeks,
15. Sep 2010
function StreamCrypt(InFile: String; Key: TWordTriple; Encrypt: Boolean; out outstream:TMemoryStream): boolean;
var
MIn: TMemoryStream;
begin
MIn := TMemoryStream.Create;
Try
MIn.LoadFromFile(InFile);
outstream.SetSize(MIn.Size);
if Encrypt then
result:=MemoryEncrypt(MIn.Memory, MIn.Size, outstream.Memory, outstream.Size, Key)
Forum: Programmieren allgemein
by Teekeks,
15. Sep 2010
Wenn das was du entschlüsselst in einen Stream anstatt in eine Datei speicherst, sollte das gehen...