Function Crypte(N) ' Fonction de cryptage dynamique, la clef est aléatoire ( 26 cas possible )
Off_Initial = Int(1 + 25 * Rnd())
Nout = Chr(63 + Off_Initial)
For i = 1 To Len(N)
Offset = Int(16 * Sin(i + Off_Initial))
Nout = Nout & Chr(Offset + Asc(Mid(N, i, 1)))
Next i
Crypte = Nout
End Function
Function Decrypte(N) ' Fonction inverse de la fonction de cryptage, la clef est extraite du premier caractère.
Off_Initial = Asc(Left(N, 1)) - 63
Nout = ""
For i = 2 To Len(N)
Offset = Int(16 * Sin(i - 1 + Off_Initial))
Nout = Nout & Chr(Asc(Mid(N, i, 1)) - Offset)
Next i
Decrypte = Nout
End Function