Aufruf von Verschlüsselungsverfahren

[Avax2k]

danke für die Antwort marabu , jeodhc habe ich jetzt ein erneutes Problem

beim folgendem Aufruf

Delphi-Quellcode:

ini.WriteString('Text', 'key', Encode(Edit2.Text, 'a');
...
// wird das Edit2.text Feld ordnungsgemäß encodiert nun zu meinem Problem..
...
ini.ReadString('Text', 'key', Decode(Edit2.Text, 'a');
// hier kommt plötzlich als Ergebnis '' heraus, sprich ein leeres Feld und nicht die gewünschte
//Umwandlung des encodierten Strings wieder in seine Ausgangsform..was kann der Grund dafür sein??

//hier die Encode und die Decode funktion..

function Encode(const Value, Password: String): String; 
begin 
  Result := BinToHexStr(RC4Code(Value, Password));
end; 
...
function Decode(const Value, Password: String): String; 
begin 
  Result := RC4Code(HexToBinStr(Value), Password); 
end;

hoffe dass auch hierbei mir geholfen werden kann.