Philipp_Frank - Mo 03.03.03 09:17
Titel: Erklärung einer codierung
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TForm2.Button2Click(Sender: TObject);
var lauf, oz : integer;
s : string;
begin
randseed := StrToInt(Edit5.Text); s :='';
for lauf := 1 to length (Memo1.Text) do
begin oz :=ord(Memo1.Text[lauf]);
oz := oz + random (26);
s := s + Chr(oz)
end;
Memo2.Text :=s;
end; |
Hi, kann mir jemand das hier für eine schulpräsentattion erklären. Wir sollen das in ein paar minuten erklären, ich meine ob ihr randseed und ord und chr alles mal einfach erklären könntet? Wäre super.
Gruß Philipp
wulfskin - Mo 03.03.03 10:51
Guten Morgen!
Diese Anweisung ist eine einfache Verschlüsselung. Hier mal die Anweisung erklärt Schritt für Schritt:
- Dem Zufallsgenerator (RandSeed) wird die Zahl im Feld Edit5 zugewiesen. Da die Eigenschaft Text des Edit-Feldes einen String enthält und die Variable RandSeed vom Typ Integer ist, wird der String mit der Funtion StrToInt in einen Integer umgewandelt.
- Mit der For-To-Do-Schleife wird der Inhalt des Memos, Zeichen für Zeichen, durchgegangen.
- Der Variable Oz wird der Ordinal-Wert des aktuellen Zeichens zugewiesen (mit der Funktion Ord). Kurz gesagt: Jedem Buchstabe, jeder Zahl, jedem Sonderzeichen kann ein Zahlenwert zugeordnet werden, der nur für diesen steht! Das Gegenteil davon ist Chr.
- Danach wird zu dem Ordinalwert in Oz eine Zufallszahl, die im Bereich von 0 und 25 liegt, addiert.
- Schliesslich wird dieser Ordinalwert, also dieser Zahlenwert, zurück in einen Buchstaben umgewandelt (Chr) und zu der Zeichenkette S hinzugefügt.
- Das ganze wird nun für jeden Buchstaben im Memo wiederholt. Zum Schluss hat man dann eine codierte Zeichenkette S und diese weist man dann dem 2ten Memo zu. Dort steht dann die verschlüsselte Zeichenkette.
Ich hoffe, es war verständlich genug! Wenn nicht, frag nochmal nach und lies(!) dir zusätzlich mal die Hilfe zu
Ord,
Chr,
RandSeed und
Random durch!
Gruß Hape!
P.S.: Gruß an deinen Lehrer. Es soll mal folgendes in der Hilfe nachlesen ;):
| Zitat: |
Hinweis
Die Implementierung der Funktion Random kann sich bei einer anderen Compiler-Version ändern. Sie sollten Random daher nicht für Verschlüsselungen oder andere Einsatzbereiche verwenden, in denen reproduzierbare Pseudozufallszahlen benötigt werden. |