Informatik klausur / krytologie

[Christian Seehase]

Moin Timo,

meinst Du das etwa so:

Delphi-Quellcode:

var
  sGeheim : string;

const
  _sAlpha = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

procedure TForm1.Button1Click(Sender: TObject);

var
  sBasis : string;
  i      : integer;

begin
  // Erzeugen des Geheimalphabetes
  sBasis  := UpperCase(Edit1.Text)+_sAlpha;
  sGeheim := StringOfChar(#32,26);
  for i := 1 to 26 do
  begin
    sGeheim[i] := sBasis[1];
    sBasis     := StringReplace(sBasis,sGeheim[i],'',[rfReplaceAll]);
  end;
  // Nur zu Testzwecken
  ShowMessage(sGeheim);
end;

procedure TForm1.Button2Click(Sender: TObject);

var
  i         : integer;
  sCrypt    : string;
  sOriginal : string;

begin
  // Ergebnis initialisieren
  sCrypt    := StringOfChar(#32,Length(Edit2.Text));
  sOriginal := UpperCase(Edit2.Text);
  // Alle Zeichen A bis Z codieren, den Rest
  // unverändert übernehmen
  for i := 1 to Length(Edit2.Text) do
  begin
    if sOriginal[i] in ['A'..'Z'] then
    begin
      sCrypt[i] := sGeheim[ord(sOriginal[i])-64];
    end
    else
    begin
      sCrypt[i] := sOriginal[i];
    end;
  end;
  Edit3.Text := sCrypt;
end;