Hallo Leute,
ich habe da mal wieder ein Problem und hoffe ihr könnt mir da vielleicht weiter helfen.
Also ich möchte in mein Programm eine RSA Verschlüsselung einbauen. Das Problem dabei ist das bei diesem Algorithmus der Modulo von einer potenzierten Zahl ausgerechnet werden muss.
In dem untenstehenden Beispiel (das noch nicht ganz fertig ist) habe ich z.B. eine Zahl hoch 7 und mod 143 genommen. aber leider verlangt Delphi von der Potenzierfunktion power eine Zahl vom Typ extended und mod weigert sich diese Zahl zu akzeptieren.
Vielen Dank schon mal im voraus
Fran
Delphi-Quellcode:
function TForm1.crypt(unver:
string):
string;
var i: integer;
ver:
string;
tmp,tmp2: extended;
begin
for i:=1
to Length(unver)
do
begin
tmp:=ord(unver[i]);
//ASCII Wert ermitteln
tmp2:= power(tmp,7)
mod 143;
result:=floattostr(tmp2);
end;
end;