Ich versuche dateien zu verschlüsseln mit Twofish und der Combonente TDCP_twofish.
Leider funktioniert das ganze nicht ganz so wie ich es mir vorstelle.
Die Datei wird verschlüsselt aber ich bekomme die nicht richtig entschlüsselt.
Ich hoffe doch das mir jemand weiter helfen kann?
Wer die Kombos nicht kennt, dem kann ich die senden.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
| procedure TForm1.Button1Click(Sender: TObject);
var
FileStream: TMemoryStream;
begin
FileStream := TMemoryStream.Create;
FileStream.LoadFromFile('D:\test.exe');
Twofish.InitStr('test');
Twofish.EncryptStream(FileStream,FileStream,256);
FileStream.SaveToFile('D:\test.dec');
FileStream.Free;
showmessage('fertig');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
FileStream: TMemoryStream;
begin
FileStream := TMemoryStream.Create;
FileStream.LoadFromFile('D:\test.dec');
Twofish.InitStr('test');
Twofish.DecryptStream(FileStream,FileStream,256);
FileStream.SaveToFile('D:\test2.exe');
FileStream.Free;
showmessage('fertig');
end; |
Moderiert von 
raziel: Code- durch Delphi-Tags ersetztModeriert von raziel: Topic aus Sonstiges (Delphi) verschoben am So 19.03.2006 um 20:36
