Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Seguridad (https://www.clubdelphi.com/foros/forumdisplay.php?f=36)
-   -   Algoritmo de exponenciacion rapidaç (https://www.clubdelphi.com/foros/showthread.php?t=45338)

barracuda 29-06-2007 15:19:58

Algoritmo de exponenciacion rapidaç
 
1 Archivos Adjunto(s)
Como estan todos?, necesito ayuda y no se si alguien alguna vez tuvo que programar el "Algoritmo de exponenciacion rapidaç" que sirve en criptografia para resolver potencias de numeros muy grandes por ejemplo:881 elevado a 39423, cosas que computacionalmente seria inviable, el algoritmo consiste en el archivo zip que estoy adjuntando, que parece simple pero tengo problemas para implementarlo, no molestaria a la comunidad sino fuese que el principal problema que tengo para implementarlo es el tiempo:( y tal vez si alguien ya resolvio ese problema antes sino, de todas formas gracias y ya les estoy comentando como soluciono al problema, saludosss.....

jorge82 16-08-2007 20:05:17

Algoritmo de exponencación binaria
 
Bueno pues supongo que es el mismo algoritmo.

Y aquí dicho algoritmo en Delphi:
Código:

function ExpRapida(x, n: Integer): Cardinal;
begin
  if n = 1 then
    Result := x
  else if (n mod 2 = 0) then
    Result := ExpRapida(x*x, n div 2)
  else if ((n mod 2) mod 2 <> 0) then
    Result := (x * ExpRapida(x*x, (n-1) div 2));
end;

Espero te sirva de algo. :cool:


La franja horaria es GMT +2. Ahora son las 04:12:15.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi