' C'est le réflecteur qui introduit une' 'asymétrie ce qui permet le codage
'   CHIFFREMENT ET DECHIFFREMENT
'Inspirés par la machine Enigma
'Créé par Jacques Donner le 3/06/2015

a=13: b=7: c=19     'Position initiale des rotors
Rotor$(0) = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Rotor$(1) = "EKMFLGDQVZNTOWYHXUSPAIBRCJ"
Rotor$(2) = "AJDKSIRUXBLHWTMCQGZNPYFVOE"
Rotor$(3) = "BDFHJLCPRTXVZNYEIWGAKMUSQO"
Rotor$(4) = "ESOVPZJAYQUIRHXLNFTGKDCMWB"   'Non utilisé
Rotor$(5) = "VZBRGITYUPSDNHLXAWMJQOFECK"   'Non utilisé
Reflect$ = "YRUHQSLDPXNGOKMIEBFZCWVJAT"
 
open "Systdata.bas" for input as #1
input #1,ttx$ 
close #1
 
input "Message à chiffrer ou déchiffrer ? ";tex$ 
if tex$= "" then tex$=ttx$ 
tex$ = upper$(tex$):cls
lt = len(tex$) :global t$,n
'
for p = 1 to lt
    n=1 : t$ = mid$(tex$,p,1)
    call enig 0,1,a 'entrée,sortie,code
    call enig 1,2,b
    call enig 2,3,c
    R=asc(t$)-64
    t$=mid$(Reflect$,R,1)
    call enig 3,2,c
    call enig 2,1,b
    call enig 1,0,a
    tt$=tt$+t$
    a=a+1     'compteur
    if a>26 then a=1 : b=b+1
    if b>26 then b=1 : c=c+1
    if c>26 then c=1
next p
 
print tex$ : print tt$;" ";lt
open "Systdata.bas" for output as #1
print #1,tt$
close #1
end
 
sub enig e,s,co  'entrée,sortie,code
    n=n+1 : if n>4 then co=0-co
    R=instr(Rotor$(e),t$,1) : R=R+co
    If R>26 then R=R-26
    If R<1 then R=R+26
    t$=mid$(Rotor$(s),R,1)
end sub