1:
2:
3:
4:
5:
6:
7:

 mov  ax,42
 shr  ax,2
 or   ax,0A
 push ax
 mov  ax,13
 pop  bx
 xor  ax,bx					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function ver(text, key:String) :String; //Verschlüsselt den "text" mit dem Schlüssel "key"
var s,s2:String;
    i:integer;
begin
s2:= '';
keyint:=0;
for i:=1 to length(Text) do begin //vom ersten bis zum letzten Buchstaben des Textes...
  s:=Char(byte( Ord(Text[i])+(Ord(keychar(key))))); //Verwandel den Buchstaben Nummer "i" in eine Zahl, addiere die Zahl des Schlüssels, verwandel das ganze zurück in einen Buchstaben (der Befehl Char() wird fast immer mit char(byte(65)) benutzt. warum auch immer...(65 ist übrigens 'a'))
  s2:=s2+s; //füge den neuen Buchstaben an "s2" an
end;
ver:=s2; //liefere "s2" zurück
s2:='';
end;