Algoritmo de Euclides estendido em Perl
Publicado por Perfil removido (última atualização em 12/04/2013)
[ Hits: 3.873 ]
Para economizar explicações, relembrando criptografia de chave assimétrica com este artigo: http://www.vivaolinux.com.br/artigo/Criptografia-assimetrica-com-o-RSA?pagina=4 bem na página que mais interessa neste momento.
Parte do problema consiste em:
"Dado dois números inteiros positivos E e N, encontre um terceiro inteiro positivo D de tal modo que E vezes D quando dividido por N dê resto 1."
É a proposta desse código.
#!/usr/bin/perl =pod 0 1 101 29 3 1 0 29 14 2 -3 1 14 1 14 7 -2 dispensa calculo da segunda coluna =cut use warnings; use strict; sub gcd_ext { my @n=(0, shift, shift); my @d1=(1, 0); # my @d2=(0, 1); my @q = (0); while ($n[-1]!=0) { push (@n,$n[-2]%$n[-1]); push (@q,($n[-3]-$n[-1])/$n[-2]); push (@d1,$d1[-2]-$q[-1]*$d1[-1]); # push (@d2,$d2[-2]-$q[-1]*$d2[-1]); } return ($d1[-2]<0?$n[2]+$d1[-2]:$d1[-2]); } my $x = 29; my $y = 101; my $z = gcd_ext($x,$y); print "$x * x = 1 (mod $y)\n"; print "$x . $z dividido por $y tem resto 1.\n"
Testando a agilidade do sistema de arquivos
Calculadora com Perl com menos de 10 linhas de código
Nenhum coment�rio foi encontrado.
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Converter os repositórios Debian para o novo formato com as chaves
Instalando Spotify no Debian 13
Realizar overclock no Miyoo Mini (plus ou normal)
linux mint reconhece microfone de lapela como fone de ouvido sem micro... (5)
E aí? O Warsaw já está funcionando no Debian 13? (2)
Dúvidas sobre a originalidade de conteúdos online (12)