klassische Verfahren I

Aus ProgrammingWiki

Archivierte Version vom 2012-01-12T21:35:21+00:00. Aktuelle Version

Inhaltsverzeichnis

1 Rückwärtsschrift
2 Vokale ersetzen
3 Beispiel 3: Zickzackschrift
4 Der Cäsar-Algorithmus
5 Implementation

Aufgabe: Entscheide für jedes der unten aufgeführten Beispiele, ob es sich um ein Substitutions-
oder Transpositionsverfahren handelt. 
Beim Substitutionsverfahren wird jedes Zeichen des Klartextes durch ein anderes ersetzt. 
Beim Transpositionsverfahren bleiben die Zeichen gleich, ändern aber durch Tauschen ihre Position.

Rückwärtsschrift

Gegeben ist 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;

Teste den Quelltext für ein paar Beispiele.

writeln(rueck('testen'));

Vokale ersetzen

Analog zu "Drei Chinesen mit dem Kontrabass" werden die Vokale eines Textes durch den eingegebenen Buchstaben ersetzt.

writeln(vokale('Probiertext eingeben','o'));

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'));

Der Cäsar-Algorithmus

Teste das Programm mit verschiedenen Eingaben.
Erkläre mit eigenen Worten, was das Programm macht.

var k:String; v:Integer;

function caesar_test(klar:string; v:integer):string;
var a,i,ascii:integer; wort:String;
begin
  a:=length(klar);
  wort:='';
  for i:=1 to a do
     begin
       ascii:=(klar[i]); //ord noch nicht bekannt, einfach weglassen, dann wandelt er automatisch um
       if (ascii<91) and (ascii>64)
          then begin ascii:=ascii+v;
                     if ascii>90 then ascii:=ascii-26;
                     wort:=wort+chr(ascii);
               end
          else wort:=wort+' ';
     end;
   result:=wort;
end;

k:= inputDialog('Klartext');
v:= StrToInt(inputDialog('Verschiebezahl'));
writeln (caesar_test(k,v));

Implementation

writeln(caesar('HALLO',2));

klassische Verfahren I

Inhaltsverzeichnis

Rückwärtsschrift

Vokale ersetzen

Beispiel 3: Zickzackschrift

Der Cäsar-Algorithmus

Implementation

Suche