Einzelnen Beitrag anzeigen

Tyrael Y.

Registriert seit: 28. Jul 2003
Ort: Stuttgart
1.093 Beiträge
 
Delphi 2007 Professional
 
#4

Re: Extended und char - Problem

  Alt 22. Jun 2004, 10:42
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
Levent Yildirim
Erzeugung von Icons aus Bildern:IconLev
  Mit Zitat antworten Zitat