RC4 verschlüsselt keinen Punkt im String

[shmia]

Mach doch mal eine Testfunktion zum Beweisen des Fehlers.
Das nennt man übrigens Unit Tests
Hier mal eine grobe Vorlage:

Delphi-Quellcode:

procedure Teste_RC4;
var
   s, t : string;
begin
   s := 'ein Teststring ohne Punkt';
   t := RC4_encode(s);

   // entschlüsselter String muss gleich dem Orginal sein
   Assert(s = RC4_decode(t));

   // 2. Test
   s := 'mail.domain.de';
   t := RC4_encode(s);

   // entschlüsselter String muss gleich dem Orginal sein
   Assert(s = RC4_decode(t));
end;