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...
