Protocollo di crittografia di CesareConversione testo (stringa) <-> numeri (lista)Alphabet:=" 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:="VADO A CASA DI ZORRO";

NiM+SSJTRzYiUTVWQURPfkF+Q0FTQX5ESX5aT1JST0Yl

L:=StringToList(S);

NiM+SSJMRzYiNzYiI0EiIiIiIiUiIzoiIiFGKEYrIiIkRigiIz5GKEYrRikiIipGKyIjRUYqIiM9RjBGKg==

Shift della lista modulo 27: codifica e decodificaScelta del valore di shift (= chiave unica, poich\351 crittografia a chiave privata)s:=3;

NiM+SSJzRzYiIiIk

Codifica della lista e conversione nel testo da inviareg:= (j) -> L[j]+s: C1:=[seq( g(j), j=1..nops(L))]: C:=map(modp,C1,27);

NiM+SSJDRzYiNzYiI0QiIiUiIigiIz0iIiRGKEYrIiInRigiI0FGKEYrRikiIzdGKyIiI0YqIiNARjBGKg==

MC:=ListToString(C);

NiM+SSNNQ0c2IlE1WURHUkNEQ0ZEVkRDR0xDQlJVVVJGJQ==

Decodifica della stringa via conversrione in lista e poi di nuovo in testoN:=StringToList(MC);

NiM+SSJORzYiNzYiI0QiIiUiIigiIz0iIiRGKEYrIiInRigiI0FGKEYrRikiIzdGKyIiI0YqIiNARjBGKg==

g:= (j) -> N[j]+(27-s): H1:=[seq( g(j), j=1..nops(L))]: H:=map(modp,H1,27);

NiM+SSJIRzYiNzYiI0EiIiIiIiUiIzoiIiFGKEYrIiIkRigiIz5GKEYrRikiIipGKyIjRUYqIiM9RjBGKg==

M:=ListToString(H);

NiM+SSJNRzYiUTVWQURPfkF+Q0FTQX5ESX5aT1JST0Yl