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:

<?php

$s = ""; //<-- Hier Chiffre-Text eingeben.
$a = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
$l = strlen($a);

$t = array();
for($x = 0; $x < strlen($s); $x++) {
    $t[] = strpos($a, $s[$x]);
}

$b = array(1, 3, 5, 7, 9, 11, 15, 17, 19, 21, 23, 25);

foreach($b as $j) {
    for($i = 0; $i < $l; $i++) {
        echo "<br/>\n";
        echo "A = $j, B = $i: ";
        for($x = 0; $x < $l; $x ++) {
            $invtab[($j * $x + $i) % $l] = $x; //Entschlüsslung
            //$invtab[$x] = ($j * $x + $i) % $l; //Verschlüsslung
        }
        for($x = 0; $x < strlen($s); $x++) {
            echo $a[$invtab[$t[$x]]];
        }
    }
}

?>					

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:

function index2chr(idx: Smallint): char;
begin
  Result:= chr(ord('A') + idx);
end;

function chr2idx(cc: char): Smallint;
begin
  Result:= ord(cc) - ord('A');
end;

function mod26(x: smallint): smallint;
begin
  if X >= 0 then
    Result:= x mod 26
  else
    Result:= x mod 26 + 26;
end;

function Decode(s: string; a_index, b: smallint): string;
var
  p: integer;
begin
  Result:= s;
  for p:= 1 to length(s) do
    if s[p] in ['A'..'Z'] then
      Result[p]:= index2chr(mod26(crypt[a_index][1] * (chr2idx(s[p]) - b)));
end;					

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:

function Crypt(s: string; a, b: Integer): string;
var
    i: integer;
    a1: integer;
begin
    SetLength(Result, length(s));
    for i := 1 to length(result) do
    begin
        result[i] := Chr(((Ord(s[i]) - 65) * a + b) mod 26 + 65);
    end;
end;

function DeCrypt(s: string; a, b: Integer): string;
const
    ar1: array[1..12] of Integer = (1, 9, 21, 15, 3, 19, 7, 23, 11, 5, 17, 25);
    ar: array[1..12] of Integer = (1, 3, 5, 7, 9, 11, 15, 17, 19, 21, 23, 25);
var
    i, j: integer;
    a1: integer;
begin
    for j := 1 to 12 do
        if (ar[j] = a) then
        begin
            a1 := ar1[j];
            break;
        end;

    SetLength(Result, length(s));
    for i := 1 to length(result) do
    begin
        result[i] := Chr((Ord(s[i]) - 65 - b + 26) * a1 mod 26 + 65);
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type TSchluessel = Record
  a : Integer;
  b : Integer;
End;

const ar  : Array [0..11] of Integer = (1, 3,  5,  7, 9, 11, 15, 17, 19, 21, 23, 25);
const ar1 : Array [0..11] of Integer = (1, 9,  21,  15,  3, 19,  7, 23, 11,  5, 17, 25);
[...]
private
  arSchluessel : Array of TSchluessel;					

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:

Procedure TForm1.FillSchluessel;
var a, i, b, k : Integer;
    bGGT : Boolean;
begin
  SetLength(arSchluessel, 0);

  for i := low(ar) to high(ar) do
  begin
    a := ar[i];
    {Wert für b suchen}
    for b := a + 1 to 25 do
    begin
      {Prüfen, ob der ggT 1 ist}
      bGGT := False;
      for k := 2 to a do
      begin
        if (a mod k = 0) and (b mod k = 0) then
        begin
          bGGT := True;
          break;
        end;
      end;

      if not bGGT then
      begin
        setLength(arSchluessel, high(arSchluessel) + 2);
        arSchluessel[high(arSchluessel)].a := a;
        arSchluessel[high(arSchluessel)].b := b;
      end;

    end;
  end; {for i }

end;					

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

Function TForm1.Rest (wert : Integer) : Integer;
begin
  if wert >= 0 then
    result := wert mod 26
  else
  begin
    result := wert;
    while result < 0 do
      result := result + 26;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

function TForm1.Decrypt(s: TSchluessel; sText: String): String;
var a1, i, y: Integer;
begin

  result := '';
  {a-1 suchen}
  a1 := 0;
  i := 0;
  while (a1 = 0) and (i <= high(ar)) do
  begin
    if ar[i] = s.a then
      a1 := ar1[i];
    inc(i);
  end;

  {Zeichen für Zeichen entschlüsseln}
  for i := 1 to length(sText) do
  begin
    y := ord(sText[i]) - 65;
    result := result + Chr(rest(a1 * (y - s.b)) + 65);
  end;

end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
  mem.Lines.Clear;
  FillSchluessel;
  for i := 0 to high(arSchluessel) do
  begin
    mem.lines.Add(intToStr(arSchluessel[i].a) + ';' + intToStr(arSchluessel[i].b) + '   ' + Decrypt(arSchluessel[i], eText.Text));
//    mem.Lines.Add(intToStr(arSchluessel[i].a) + ';' + intToStr(arSchluessel[i].b));
  end;

  mem.Lines.Add(intToStr(mem.Lines.Count));


end;					

1:
2:
3:

60%26 ?= 18
26*3 = 78 = 60+18
=> 60%26 = 18