Algoritmo de Euclides estendido em Perl
Publicado por Perfil removido (última atualização em 12/04/2013)
[ Hits: 3.578 ]
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"
Nenhum comentário foi encontrado.
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Como instalar o navegador TOR no seu Linux
Instalando Zoom Client no Ubuntu 24.04 LTS
Instalando Zoom Client no Fedora 40
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin
Dificuldade em ler binário (16)
Configurar Crontab [RESOLVIDO] (6)