Entschluesselung geht nicht.

[Helmi]

Zitat von lucius:

Delphi-Quellcode:

procedure THaupt.Button4Click(Sender: TObject);
var
    Cipher: TDCP_rc4;
    KeyStr: string;
begin
KeyStr:= 'blabla';
Cipher:= TDCP_rc4.Create(Self);
Cipher.InitStr(KeyStr,TDCP_sha1);

with TIniFile.Create(label2.caption +  '\LTN.ini') do
try
Useredit.text := ReadString('Inloggevens:', 'Username', '');
Result.caption := ReadString('Inloggevens:', 'Passwort', Cipher.DecryptString('')); <---- Entschluess.
finally
Free;

Cipher.Burn;
Cipher.Free;
end;
end;

Hallo,

ich kenne zwar die Ent-/Ver-Schlüsselung nicht. Aber ich denk mir, dass es rein theoretisch so heissen müsste:
Result.caption := Cipher.DecryptString(ReadString('Inloggevens:', 'Passwort', '')); <---- Entschluess. //NEU