Informatik klausur / krytologie

[nailor]

So, dann noch das dabei

Delphi-Quellcode:

function TForm1.Encrypt(Plain_Text: String; KeyToUse: String): String;
var
    i,j:         integer;
    lpt,lks:      integer;   //Längenangaben: PlainText, KeyString
begin
lks := Length(KeyToUse);    //Länge  der Schlüsselzeilen
lpt := Length(Plain_Text);  //Länge  des zu verschlüsselnden Textes

SetLength(Result,lpt);      //Länge  des Ergebnisses

for i := 1 to lpt do                         //Den kompletten String lang
 for j := 1 to lks do                        //Die komplette Schlüssel-Zeile
  if Plain_Text[i] = Allowed[j] then         //vergleichen
   begin
    Result[i] := KeyToUse[j];                //und den entsprechenden Eintrag
    Break;                                   //wählen und abbrechen
   end
  else
   if j = lks then                           //Wenn nicht gleich und alle durch
     Result[i] := Plain_Text[i];             //alten nehmen
end;


function TForm1.Decrypt(Crypted_Text: String; KeyToUse: String): String;
var
    i,j:         integer;    //Schleifenvariablen
    lct,lks:     integer;    //Längenvariablen
begin
lks := Length(KeyToUse);     //Länge der Schlüssezeilen
lct := Length(Crypted_Text); //Länge der zu entschlüsselnden Textes

SetLength(Result,lct);       //Länge des Ergebnisses

for i := 1 to lct do                        //Den kompletten String lang
 for j := 1 to lks do                       //Die komplette Schlüssel-Zeile
  if KeyToUse[j] = Crypted_Text[i] then     //vergleichen
   begin
    Result[i] := Allowed[j];         //und den entsprechenden Eintrag
    Break;                           //wählen und abbrechen
   end
  else
   if j = lks then                   //Wenn nicht gleich und alle durch
     Result[i] := Crypted_Text[i];   //gleich lassen
end;

und dann kannst du mit
EinString := Encrypt('blabla',Schlussel);
Test := DeCrypt(Einstring,Schlussel);

ver und entschlüsseln.

Test muss dann 'blabla' ergeben. Du kannst die variable "allowed" nach belieben ändern.
Der Code ist für deinen Fall nicht der einfachste, aber du kannst dafür einfach: