Delphi: Mit Rcx Text verschlüsseln

[Larsi]

hi,
wie kann ich mit rcx einen einfachen text verschlüsseln???



MFG Lars Wiltfang

[DeluxXx]

Hm also wenn ich mich nicht täusche müsstest du hier die Antwort auf deine Frage finden :
Forum Beitrag
(3 Beitrag hinzugefügt von CalganX und verfasst von negaH)

[Larsi]

Delphi-Quellcode:

begin 
  CipherText := RCxEncode(RCxRandomString(16) + 'Nachricht', 'Passwort'); 

  PlainText := RCxDecode(CipherText, 'Passwort'); 
  Delete(PlainText, 1, 16); 
end;

so :gruebel: :gruebel: :gruebel: ???

also irgendwie versteh ichs nicht warum da nachrict und passwort hinzugefügt ist, soll das dann 'nachricht Passwort' sein was verschlüsselt wird???

[negaH]

Delphi-Quellcode:

  CipherText := RCxEncode(RCxRandomString(16) + Memo.Text, Passwort.Text);

  PlainText := RCxDecode(CipherText, Passwort.Text);
  Delete(PlainText, 1, 16);

Memo ist ein TMemo in das du den Text der verschlüsselt werden soll eingibst. Passwort ist ein TEdit in dem du das Passwort mit dem verschlüsselt werden soll eigibst. CipherText ist dann der verschlüsselte Text aus dem Memo.

Gruß Hagen

[Larsi]

kan großen dank hagen und wie kann man das wieder entschlüsseln? und ich muss doch nur die rcx unit bei uses eintragen, oder???

[Larsi]

oh habs grad selber gesehen sry