Hallo zusammen, ich probiere gerade Strings in einer Ini Datei zu verschluesseln und entschluesseln.
Die Verschluesselung klapt aber die Entschluesselung nicht.
Kann mir da jemand bitte weiter helfen? Danke im voraus.
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;