1:

nachricht^schlüssel modulo n					

1:
2:
3:
4:

  e := 1;
  for i := 1 to y do        // (x^y) mod z = e.
    e := (e*x) mod z;
  result := e;					

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

  e := 1;
  for i := 1 to y do        // (x^y) mod z = e.
    e := (e*x);

  e := e mod z;
  result := e;					

1:
2:
3:
4:

e := 1*2;
e := 2*2;   //2^1*2^1
e := 4*4;   //2^2*2^2
e := 16*16; //2^4*2^4					

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

for i := 1 to n do
begin
  res := res * res mod m;
  if b_i = 1 then
    res := (res * a) mod m;
end;					

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

function expmod( b, x, m : Integer) : Integer;
begin
  Result := 1;
  while ( x > 0 ) do
  begin
    if (x mod 2) > 0 then
      Result := ( Result * b ) mod m;
    b := ( b * b ) mod m;
    x := x div 2;
  end;
end;					

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

Function BM_Power(Base, Exp: TBigNumber): TBigNumber;
Var
    X: Integer;
Begin
    SetLength(Result, 1);                                                       //Set 1 as the Result
    Result[0] := 1;

    For X := Length(Exp) * 8 - 1 Downto 0 Do
    Begin
        BM_Assign(Result, BM_Multiply(Result, Result));

        If Exp[X Div 8] And ($01 Shl (X Mod 8)) <> 0 Then
            BM_Assign(Result, BM_Multiply(Result, Base));
    End;
End;					

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

function SquareAndMultiply( B, X, M: TBigNumber ): TBigNumber;
const C: array [0..7] of Byte = ( $01, $02, $04, $08, $10, $20, $40, $80 );
var i, j   : Integer;
begin
  Result := BMD_StrToBigNum( '1', false );
  for i := High(X) downto 0 do
  begin
    for j := 7 downto 0 do
    begin
      Result := BM_Modulo( BM_Multiply( Result, Result ), M );
      if (X[i] AND C[j] ) > 0 then
        Result := BM_Modulo( BM_Multiply( Result, B ), M );
    end;
  end;
end;					

1:

keystring := inttostr(strtoint(keystring) shr 1);