Passwortabfrage bei Verschlüsselung

[Kutter111]

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;