Delphi-Quellcode:
function TRSA.verschluessle(wort:string):string;
var laenge,j,C:integer;
var ausgabe:string;
begin
laenge:=length(wort);
ausgabe:= '';
for j:=0 to laenge-1 do
begin
C:=floor(power((ord(wort[j])),e)) mod N;
ausgabe:=ausgabe+ inttostr(C);
end;
result:=ausgabe;
end;
das sieht ja auhc ok aus auf dem ersten Blick
nur in deinem letzten Posting stand
for i=0 to (i-1) do
und hierbei würde die Schleife nie benutzt werden