Calcular mod

[Wesley Silva 0]

com faço para calcular o mod de um numero quebrado?tipo assim:923 elevado a 13 é = 3,5287599305438144088053954490759e+38;3,5287599305438144088053954490759e+38 mod 1927 = ?????;como faço isso?

[marcio.theis 3]

Por curiosidade, para o que precisa deste cálculo, pois mesmo se pegar somente a parte inteira do n° elevado (Power(923,13)) ele não vai conseguir passar para inteiro e fazer o MOD, vou ver aqui se tem outra forma...

[Wesley Silva 0]

Esse calculo e para gerar uma criptografar

[marcio.theis 3]

Entendo, mas o comando MOD somente irá conseguir executar com números inteiros...

[Wesley Silva 0]

Vou te explicar o que to querendo!!!

é o seguinte:

Isso chama-se Assinatura digital, segue o exemplo abaixo.

 

Uma frase bastante popular foi cifrada com uso de RSA com

P=47 e Q=41 e D=13 e E=1557 e N=1927 e Z=1840

o criptograma obtido é :

923 1894 434 1618 1894 135 1 460 434 1894 871

Qual é esta frase?

Para saber qual é esta frase e preciso fazer este calculo,

Formula:

923 elevado a D=13 mod N=1927.

segue o codigo:

procedure TForm1.ButTrocaClick(Sender: TObject);var  expo,base,b,n,a : integer;  i,c : Double;begin	  expo := 13;	  base := 923;	  n := 1927;	  i := exp(ln(base)*expo);	  a := i mod n;	  Edit7.Text := FloatToStr(a);end;end.

[Roger Oliveira 0]

Para calcular isto não é possível pois os números excedem o tamanho máximo, mesmo usando funções de bigInteger. Então você precisa usar "Operações Modulares" busca no google sobre isso... seria você quebrar a potenciação em várias partes e calcular aos poucos, é assim que é feito em rotinas de criptografia como o RSA nesse caso.

 

Abraço.

 

 

 

 

Vou te explicar o que to querendo!!!

é o seguinte:

Isso chama-se Assinatura digital, segue o exemplo abaixo.

 

Uma frase bastante popular foi cifrada com uso de RSA com

P=47 e Q=41 e D=13 e E=1557 e N=1927 e Z=1840

o criptograma obtido é :

923 1894 434 1618 1894 135 1 460 434 1894 871

Qual é esta frase?

Para saber qual é esta frase e preciso fazer este calculo,

Formula:

923 elevado a D=13 mod N=1927.

segue o codigo:

procedure TForm1.ButTrocaClick(Sender: TObject);
var
  expo,base,b,n,a : integer;
  i,c : Double;

begin
	  expo := 13;
	  base := 923;
	  n := 1927;

	  i := exp(ln(base)*expo);
	  a := i mod n;
	  Edit7.Text := FloatToStr(a);
end;

end.

[Mário Monteiro 179]

Olá Roger Oliveira,

 

Obrigado por compartilhar seu conhecimento conosco.

 

Continue contribuindo respondendo os tópicos mais recentes.