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:

procedure TRSA.Button1Click(Sender: TObject);

var i, j, B, RSAC: Integer;
Buchstabe: Char;
BB: Extended;

begin
PublicKey:=StrToFloat(Edit3.Text);
BB:=1;                               //BB ist quasi der Buchstabe nachdem dieser hoch den Public Key genommen wurde
Edit8.visible:=true;
label10.Visible:=true;
label11.visible:=true;
label11.Caption:='';

for i:=1 to 2 do begin
BB:=1;
Buchstabe:=Edit7.Text[i];
B:=Ord(Buchstabe);

for j:=1 to Trunc(PublicKey) do begin
BB:=BB*B;
end;

RSAC:=trunc(BB) mod(n);      //n ist die Zweite Zahl des Public Keys
Label11.Caption:=Label11.Caption+IntToStr(RSAC)+' ';
end;

Edit8.Text:=Label11.Caption;

end;					

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

const
cRSACipherBlockSize : array[TLbAsymKeySize] of Word =
    (cBytes128, cBytes256, cBytes512, cBytes768, cBytes1024);
.
.
.
function  EncryptRSA1024(PublicKey : TLbRSAKey; const InBlock : TRSAPlainBlock1024;
            var OutBlock : TRSACipherBlock1024) : Longint;
  { encrypt plaintext block with 1024-bit RSA public key }
begin
  if (PublicKey.KeySize <> aks1024) then
    raise Exception.Create(sRSABlockSize1024Err);
  Result := EncryptRSAEx(PublicKey, @InBlock, @OutBlock, SizeOf(InBlock));
end;

function  DecryptRSA1024(PrivateKey : TLbRSAKey; const InBlock : TRSACipherBlock1024;
            var OutBlock : TRSAPlainBlock1024) : Longint;
  { decrypt ciphertext block with 1024-bit RSA private key }
begin
  if (PrivateKey.KeySize <> aks1024) then
    raise Exception.Create(sRSABlockSize1024Err);
  Result := DecryptRSAEx(PrivateKey, @InBlock, @OutBlock);
end;					

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

procedure TRSA.Button1Click(Sender: TObject);

var i, j, B, RSAC: Integer;
Buchstabe: Char;
BB: Int64;                     //<---geändert

begin
PublicKey:=StrToFloat(Edit3.Text);
BB:=1;                              

for i:=1 to 2 do begin              //hier ist muss ich noch gucken wie ich die Stringlänge ermittle. Vorerst werden nur die ersten beiden Zeichen chiffriert
BB:=1;
Buchstabe:=Edit7.Text[i];
B:=Ord(Buchstabe);

for j:=1 to Trunc(PublicKey) do begin
BB:=BB*B;
end;

RSAC:=BB mod(n);                               //<----Trunc() entfernt da inkompatible Datentypen
end;

end;					

1:
2:
3:

for j:=1 to Trunc(PublicKey) do begin
BB:=BB*B;
end;					

1:
2:
3:

for j:=1 to Trunc(PublicKey) do begin
BB:=BB*B mod n;
end;					

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

procedure TForm1.Button1Click(Sender: TObject);  //Der Rechner
var i,x,y :integer;
z: Extended;

begin
Memo1.Lines.Clear;
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
z:=1;

for i:=1 to y do begin
z:=z*x;
Memo1.Lines.Add(FloatToStr(z));
end;

Edit3.Text:=FloatToStr(z);
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:

procedure TRSA.Button1Click(Sender: TObject);  //RSA

var i, j, B, RSAC, x: Integer;
Buchstabe: Char;
BB: Extended;   //BB ist das z im Rechner und ebenfalls Extended

begin
PublicKey:=StrToFloat(Edit3.Text);
BB:=1;
x:=length(Edit7.Text);
Edit8.visible:=true;
label10.Visible:=true;
label11.visible:=true;
label11.Caption:='';

for i:=1 to x do begin
BB:=1;                             //Z wird 1 gesetzt
Buchstabe:=Edit7.Text;
B:=Ord(Buchstabe);

for j:=1 to Trunc(PublicKey) do begin          //das Trunc kann ich beim Rechner seltsamerweise wegnehmen. Ich wer hier Public Key gleich mal als Integer definieren
BB:=BB*B;                                      //Z * die alte Zahl PublicKey-Mal. Die Zahl wird also offensichtlich nciht zu groß
end;

RSAC:=trunc(BB) mod(n);
Label11.Caption:=Label11.Caption+IntToStr(RSAC)+' ';
end;

Edit8.Text:=Label11.Caption;

end;					

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

procedure TForm1.Button2Click(Sender: TObject);
var
k,f: Extended;
begin
f:=StrToFloat(Edit5.Text);
Memo1.Lines.Add(FloatToStr(f));
k:=trunc(z) mod(trunc(f));
Edit6.Text:=FloatToStr(k);
end;