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