1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

Procedure CreateRandomValues(var a:Array of byte); 
Var i,v,index1,index2:byte;
Begin 
  For i:=0 to High(a) do a[i]:=i; //Werte vorbelegen;

  For i:=0 to 255 do Begin
    index1:=Random(Length(a));
    index2:=Random(Length(a));
    v:=a[index1];
    a[index1]:=a[index2];
    a[index2]:=v;
  End;

End;

function GetArrayIndex(wert:Integer; ascci:array of Byte): Integer;
var
  i:byte;
begin
  result:=-1;
  for i:=0 to High(ascci) do begin
    if ascci[i] = wert then begin
      result:=i;
      exit;
    end;  
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  ascci:array[0..255] of Byte;
  i:Integer;
begin
  Edit2.Text:='';
  RandSeed:=StrToInt(Edit3.Text);
  CreateRandomValues(ascci);

  for i:=0 to Length(Edit1.Text) do begin
    Edit2.Text:=Edit2.Text + chr( ascci[ ord(Edit1.Text[i+1]) ] );
  end;

 // ArrayToFile(ascci);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  ascci:array[0..255] of Byte;
  i:Integer;
begin
  Edit4.Text:='';

  RandSeed:=StrToInt(Edit3.Text);
  CreateRandomValues(ascci);

  for i:=0 to Length(Edit2.Text)-1 do begin
    Edit4.Text:=Edit4.Text + CHR( GetArrayIndex(ord(edit2.text[i+1]),ascci)  );
  end;
end;