Protocollo di crittografia RSA Conversione testo (stringa) <-> numeri (lista)Definizione dell'alfabetoAlphabet:=" ABCDEFGHIJKLMNOPQRSTUVWXYZ";

NiM+SSlBbHBoYWJldEc2IlE8fkFCQ0RFRkdISUpLTE1OT1BRUlNUVVZXWFlaRiU=

Procedure di conversioneStringToList := proc(text::string) local i; global Alphabet; [seq(SearchText(text[i],Alphabet)-1, i=1..length(text))]; end:ListToString := proc(numlist::list(nonnegint)) local i; global Alphabet; cat(seq(Alphabet[numlist[i]+1], i=1..nops(numlist))); end:Messaggio da inviare convertito in listaS:="CIAO A TUTTI";

NiM+SSJTRzYiUS1DSUFPfkF+VFVUVElGJQ==

L:=StringToList(S);

NiM+SSJMRzYiNy4iIiQiIioiIiIiIzoiIiFGKUYrIiM/IiNARixGLEYo

Codifica del messaggio (la list) in un numeroConversione in base 10 per generare il numero M definito via la lista in base 27M:=sum(L[k]*27^(nops(L)-k), k=1..nops(L));

NiM+SSJNRzYiIjIkUkd2S2s/YT0=

Numero di cifre di Mz:=floor(evalf(log[10](M)+1));

NiM+SSJ6RzYiIiM8

Generazione delle chiaviwith(numtheory):n1:=rand(10^round(z/2)..10^round(z/2+1))();

NiM+SSNuMUc2IiIrbDtkSSUp

n2:=rand(10^round(z/2)..10^round(z/2+1))();

NiM+SSNuMkc2IiIrelIkKSlcKA==

Scelta di p e q e calcolo del modulo (n) e della funzione di Eulerp:=nextprime(n1);

NiM+SSJwRzYiIisicHIwVik=

q:=prevprime(n2);

NiM+SSJxRzYiIituUiQpKVwo

n:=p*q;

NiM+SSJuRzYiIjUoPkclKnBkdFg+Syc=

floor(evalf(log[10](n)+1));

NiMiIz8=

f:=(p-1)*(q-1);

NiM+SSJmRzYiIjVTRC1xPE1kJT5LJw==

Calcolo dell'esponente e e verifica della sua coprimalit\340 con fe:=rand(n)(); while(gcd(e,f) <> 1) do e:=rand(3..f/2)(); end:

NiM+SSJlRzYiIjVOQ0UqXGE2QHZZJQ==

Calcolo di dd:=modp(1/e,f);

NiM+SSJkRzYiIjVQbWp5OFI3OS9U

Scambio del messaggioCodificaC:=Power(M,e) mod n;

NiM+SSJDRzYiIjRaajAlUjQqUidIRw==

DecodificaN:= Power(C,d) mod n;

NiM+SSJORzYiIjIkUkd2S2s/YT0=

Conversione del numero nella lista e poi nella stringa del testoL1:=convert(N,base,27): g:= (j) -> L1[nops(L1)-j]: L3:=[seq( g(j), j=0..nops(L1)-1)];

NiM+SSNMM0c2IjcuIiIkIiIqIiIiIiM6IiIhRilGKyIjPyIjQEYsRixGKA==

ListToString(L3);

NiNRLUNJQU9+QX5UVVRUSTYi