La phrase suivante, que Platon fit graver au fronton de l'école de philosophie qu'il fonda, a été cryptée avec le chiffre de César Retrouver cette devise. JNXGN

Réponse :

Bonjour,

Explications étape par étape

Voir ligne numéro 7 de l'image jointe.

const Msg="JNXGNEGXKXGMKXLBEGXLMZXHFXMKX"

dim i as integer, s as string

SCREEN 0: WIDTH 150, 45: _FONT 16

CLS

for i=0 to 25

   s=""

   for j=1 to len(Msg)

       s=s+chr$( (asc(mid$(Msg,j,1))-65+i) mod 26 +65)

   next j

   print i;" ";s

next i

end