Caesar Verschlüsselung und seine Varianten

[Zeih]

erstma danke für eure beiträge...
meine brute force variante funtzt...

Delphi-Quellcode:

begin
    for k:=0 to 25 do
      begin
         klartext:='';
         for i:=1 to length(geheimtext) do
           begin
           zeichen:=geheimtext[i];
           ASCII:=ord(zeichen);
           ASCII:=ASCII+k;
           if ASCII>90 then ASCII:=ASCII-26;
           klartext:=klartext + chr (ASCII);
           end;
       Eergebnis.Lines.add(Klartext);
      end;
    end;

so...

nächstes Problem wäre nun die Verschlüsselung eines Textes per Caesar-Multiplikation...kann mir jemand ma nen Tipp geben wie ich da ran gehen soll?

hab nur das mathematische zeugs(Beispiel):
f(k)=k*s(Schlüssel) mod p(Primzahl)
k="E"
s=2, p=31
f(5)=(5*2) mod 31
=10 = "J"

nunja...