Entwickler-Ecke
Sonstiges (Delphi) - verschlüsslung nach polibios
Goolix - Di 22.06.04 10:39
Titel: verschlüsslung nach polibios
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 - 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:
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:
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=... |
Goolix - Di 22.06.04 11:50
jo danke, das hat mich auf jeden fall weitergebracht
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!