Einzelnen Beitrag anzeigen

Avax2k

Registriert seit: 6. Okt 2005
186 Beiträge
 
Delphi 2005 Professional
 
#6

Re: Aufruf von Verschlüsselungsverfahren

  Alt 27. Okt 2005, 19:17
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.
  Mit Zitat antworten Zitat