Traduction language Ti
Posted: 18 Jan 2020, 16:39
Bonjour, je viens de commencer le cryptage (je suis en Ts Spé Maths) et j'ai trouvé un programme pour le chiffrement affine mais malheureusement pour Ti-Nspire pourriez vous m'aider dans sa traduction?
Le programme :
C'est le programme : archives_voir.php?id=1419788
Merci
Le programme :
- Code: Select all
Define chiffrer(mot)=
Func
Local motchiffre,i,x
motchiffre:=""
For i,1,dim(mot)
x:=mid(mot,i,1)
If x≠" " Then
x:=ltrtonbr(x)
x:=expr(cleaffine)
x:=nbrtoltr(x)
motchiffre:=motchiffre&x
Else
motchiffre:=motchiffre&" "
EndIf
EndFor
Return motchiffre
EndFunc
C'est le programme : archives_voir.php?id=1419788
Merci