Okay...
aber wenn das Passwort in der verschlüsselten Datei ist kann ich es doch nicht mit einem in einem TEdit eingegebenen Text vergleichen, oder doch?
Vielleicht ist ein bisschen Code gut( wie gesagt, aus der Doc von dspcrypt2 etwas abgewandelt):
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var Cipher: TDCP_rc4;
KeyStr: string;
TextInhalt:TStringList;
begin
TextInhalt:=TStringlist.Create;
TextInhalt.LoadFromFile('C:\PW.TXT');
KeyStr:= '';
if InputQuery('Passphrase','Enter passphrase',KeyStr) then
begin
Cipher:= TDCP_rc4.Create(Self);
Cipher.InitStr(KeyStr,TDCP_sha1);
TextInhalt.Text:= Cipher.DecryptString(TextInhalt.Text);
Cipher.Burn;
Cipher.Free;
TextInhalt.SaveToFile('C:\PW.TXT');
end;
TextInhalt.Free;
end;