verschlüsslung nach polibios

Goolix · Beiträge: 83

also das thema ist polibios... folgende aufgaben stellen sich dabei:

Die Normalmatrix:

A B C D E
F G H J K
L M N O P
Q R S T U
V W X Y Z

Jeder Puchstabe in einem eigenen Editierfeld, das "I" fällt weg, weil die Griechen das noch nicht kannten.

Die Schlüsselmatrix:

in einem Editierfeld den schlüssel (zB: STV)

S T V A B
C D E F G
H J K L M
N O P Q R
U W X Y Z

Das schlüsselwort also in den ersten feldern und dannach das alphabeth (ohne I),
nur ohne die buchstaben die im schlüssel vorkahmen...

nachdem diese erstellt wurde, soll ich damit nen wort verschlüsseln...

die buchstaben werden dann also in koordinaten angegeben:

Buchstabe = Spalte|Zeile

BSP:
S = 11
E = 32
U = 15
usw.

kann mir einer helfen... wie haben garkeine befehle dafür bekommen oder so...

Gausi · Verfasst: Di 22.06.04 11:36

Na, dafür bracht man auch keine besonderen Befehle.
Zuerst speicherst du die Schlüsselmatrix in ein 2D-Array. Das finde ich jetzt n bissel knifflig aber ich mus die Aufgabe ja auch nicht lösen :roll:

Dann hast du ein Wort gegeben, was wahrscheinlich in einer String-Variable steht.
Das Grundgerüst sieht dann so aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

for i:=0 to length(meinstring) do 
begin
  buchstabe:=meinstring[i];
  Zahl:=position_von(buchstabe);
  Edit.text:=Edit.text + inttostr(zahl) + ', ';
end;

Jetzt die Frage, wie man an die Zahl kommt:

markieren

Delphi-Quelltext

1:
2:
3:
4:

function position_von(buchstabe:char):integer;
for x:=1 to 5 do
    for y:=1 to 5 do
       if schlüsselarray[x][y]=buchstabe then result=...//n bissel überlegen muss schon noch sein...

_________________
We are, we were and will not be.

Goolix · Beiträge: 83

jo danke, das hat mich auf jeden fall weitergebracht

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme