Hallo
Ich habe es geschafft einen Text mit der Polybios-Chiffre zu chiffrieren, aber ich weiß nicht wie man es dechiffriert.
HALLO --> 23 11 32 32 35
Nun benötige ich eure Hilfe, wie mache ich es nun?
Ich habe mir dabei gedacht, dass z.B. bei der 23 (H), die 2 zu einer 5 wird und mit der 3 addiert wird.
Dadurch etsteht die 8 und H ist ja der 8. Buchstabe im Alphabet.
Aber wie mache ich dass und wie soll es im Text gehen '23 11 32 32 35'
Achja ich muss noch dazu sagen ich bin kein Delphi Ass also erklärt es mir so, dass ich es noch halbwegs verstehen kann^^
Hier der Delphi-Quelltext
Code:
procedure Thoi.verschluesseln (klartext: TStrings; Geheimtext: TStrings);
var
i: integer;
txt, sch: string;
begin
sch:=gibschluessel;
Geheimtext.text:='';
geheimtext.text:=geheimtext.text + Zahlenumwandler(klartext.text);
end;
function Thoi.Zahlenumwandler(klartext: String):string;
var
a, b, i:integer;
begin
for i:=1 to length(klartext) do begin
a:=(((ord(klartext[i]) - 64) div 5)) + 1;
b:=(((ord(klartext[i]) - 64) mod 5));
if b = 0 then begin
a:= a - 1;
b:= b + 5;
end;
result:=result + inttostr(a) + inttostr(b);
end;
end;
end.