CRYPTER / DECRYPTER

-- Voici l'algo :
-- Dans une list box LIST1

j = 0
For i = 0 To 256
    j = j + i
    List1.AddItem ((i + j) Mod 256)
Next

plW = 0
k = 0
For SizeRead = 1 To SizeFile
    Get #1, , CarLu
    
    plW = plW + 1
    If plW > Len(PassWD) Then plW = 1
    
    k = k + 1
    If k > List1.ListCount - 1 Then k = 1

    Code = Asc(Mid(PassWD, plW, 1)) + Asc(List1.List(k))      -- on parcour la liste
    CarCry = (CarLu + Code) Mod 256                                 -- et le mot de passe
    Put #2, , CarCry
Next
Close #1
Close #2