tausch erstmal die Reinfolge
und wo knallt es genau?
das kann man beim Debuggen schön rausbekommen
(z.B. F7 und Co.)
Delphi-Quellcode:
//verschlüsseln
rc4init(memo1.Text);
text:=memo2.Text;
text:=rc4encdec(text);
text:=base64enc(text); // ergebnis codieren
memo2.Text:=text;
//entschlüsseln
rc4init(memo1.Text);
text:=memo2.Text;
text:=base64dec(text); // text codieren
text:=rc4encdec(text); // und dann entschlüsseln
memo2.Text:=text;