klassische Verfahren I

Aus ProgrammingWiki

Archivierte Version vom 2012-01-12T21:06:30+00:00. Aktuelle Version

Alle bis etwa 1950 entwickelten und benutzten Verfahren gehören zu den klassischen Verfahren.
Dabei werden Substitutionsverfahren (jedes Zeichen des Klartextes wird durch ein anderes ersetzt) und Transpositionsverfahren (die Zeichen bleiben gleich, ändern aber durch Tauschen ihre Position) unterschieden.
Aufgabe 1: Entscheide für jedes Beispiel, ob es sich um ein Substitutions- oder Transpositionsverfahren handelt.

Beispiel 1: Rückwärtsschrift

Aufgabe 2: Schreibe eine Funktion, die einen eingegebenen Text rückwärts ausgibt.

function rueck(klar:string):string;
var wort:string; 
    i:integer;
begin
  wort:='';
  for i:=length(klar) downto 1 do
   wort:=wort+klar[i]; 
  result:=wort;
end

Jetzt kannst du den Quelltext erst mal für ein paar Beispiele testen.

writeln(rueck('testen'));

Zur Sicherheit drücke jetzt den check-Button.

Beispiel 2: Vokale ersetzen

Ihr kennt sicher aus eurer Kinderzeit das Lied "Drei Chinesen mit dem Kontrabass". Entsprechend diesem musikalischen Spiel ersetzen wir im nächsten Beispiel die Vokale eines Textes durch den Buchstaben, der für v eingegeben wird.
Aufgabe 3: Vervollständige für dieses Beispiel den Quelltext.

function vokale(klar,v:string):string;
var wort:string;
    i:integer;
begin
  wort:='';
  for i:=1 to length(klar) do
   case klar[i] of
    'a','A','e','E','i','I','o','O','u','U': wort:=wort+v;
   else
    wort:=wort+klar[i];
   end;
  result:=wort;
end;

Jetzt kannst du den Quelltext wieder an ein paar Beispielen testen.

writeln(vokale('drei Chinesen','i'));

Beispiel 3: Zickzackschrift

Eine etwas kompliziertere Variante der Verschlüsselung ist die Zickzackschrift.
Die Buchstaben werden nicht durch andere Zeichen oder Symbole ersetzt, sondern einfach neu gemischt. Dieses Prinzip nennt man auch "Anagramm". Zerlege den Text in zwei gleich lange Zeilen und lies dann im Zickzack:
Beispiel:

n t e i t n i b i e w r e s c t a w r e u z t n e d e e m r ä m n i h b r e d n

wird zu

n t e i t n i b i e w r e s c t a w r e
u z t n e d e e m r ä m n i h b r e d n

im Zickzack gelesen: nutzetintendiebeimerwärmensichtbarwerden

Aufgabe 4: Vervollständige nun den Quelltext.

function zickzack_test(klar:string;):string;
var l,i,n:integer; wort:string;
begin
  wort:='';
  l:=length(klar);
  if l mod 2 = 0 then n:=l div 2
                 else n:=l div 2 +1;
  for i:=1 to n do wort:=wort+klar[i]+klar[n+i];
  result:=wort;
end;

Und nun wieder ein Test.

writeln(zickzack('Testergebnis'));

klassische Verfahren I

Beispiel 1: Rückwärtsschrift

Beispiel 2: Vokale ersetzen

Beispiel 3: Zickzackschrift

Suche