Entschluesselung geht nicht.

[lucius]

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;

[Helmi]

Zitat:

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:

Delphi-Quellcode:

Result.caption := Cipher.DecryptString(ReadString('Inloggevens:', 'Passwort', '')); <---- Entschluess. //NEU

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Sonstige Fragen zu Delphi" verschoben.
Bitte nur funktionierende Code-Snipsel in die Code-Library setzten, da diese eine Art Nachschlagewerk ist und daher Fragen dort nichts verloren haben.

[MrKnogge]

Was ist TDCP_rc4 ?

Poste doch bitte den Code für das Ver- und Entschlüsseln.

gruss

[himitsu]

dat is 'ne Crypto-Komponente (DCPcryp) und die sollte bei torry zu finden sein ^^


Und Helmi hat schon die richtige Lösung gefunden, denn du hattest den Default-Wert entschlüsselt, an statt der tatsächlich ausgelesenen Daten ;)