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