CODEUR À CLE

Commentaire de Gobillot le 03/01/2007 03:11:19

Bonjour,

Une fonction pour trouver le nombre magik:

Private Function Calcul_Magik(cle As Integer) As Integer
    Dim i As Integer
    For i = 1 To 36
        If (cle * i) Mod 37 = 1 Then
           Calcul_Magik = i
           Exit For
           End If
        Next
End Function

voici le résultat pour les premières valeurs
   Cle = 2:  Magik = 19
   Cle = 3:  Magik = 25
   Cle = 4:  Magik = 28
   Cle = 5:  Magik = 15
   Cle = 6:  Magik = 31
   Cle = 7:  Magik = 16
   Cle = 8:  Magik = 14
   Cle = 9:  Magik = 33
   Cle = 10: Magik = 26
   Cle = 11: Magik = 27
   Cle = 12: Magik = 34
   Cle = 13: Magik = 20

pour les autres valeurs modulo 37 c'est la même chose
ainsi la valeur 457 correspond au 13 (457 = 12*37 + 13)
qui a pour correspondant le nombre magik 20 (ou 57,94,131,168,205,242,etc ...)

il y a un problème dans le codage pour la lettre "A", comme R=0 elle sera codée de la même façon (donc toujours "A") quelle que soit la clé

d'ailleurs il y a une erreur dans le code, c'est toujours la lettre "A" qui est répétée
  If Mid(Text2.Text, x, 1) = "a" Or Mid(Text2.Text, x, 1) = "A" Then R = 0
  If Mid(Text2.Text, x, 1) = "b" Or Mid(Text2.Text, x, 1) = "A" Then R = 1
  If Mid(Text2.Text, x, 1) = "c" Or Mid(Text2.Text, x, 1) = "A" Then R = 2
  If Mid(Text2.Text, x, 1) = "d" Or Mid(Text2.Text, x, 1) = "A" Then R = 3
  If Mid(Text2.Text, x, 1) = "e" Or Mid(Text2.Text, x, 1) = "A" Then R = 4
  If Mid(Text2.Text, x, 1) = "f" Or Mid(Text2.Text, x, 1) = "A" Then R = 5
  If Mid(Text2.Text, x, 1) = "g" Or Mid(Text2.Text, x, 1) = "A" Then R = 6
  etc ...

tu pourrais simplifier tous ces tests par une fonction plus simple pour la recherche de R:
   c$ = Ucase$(Mid(Text2.Text, x, 1))
   R = Chr$(Asc(c) - 65)  (uniquement pour les lettres)
  
   ou pour l'ensemble:
   s$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ., !éèà?'()"
   R = InStr(s$, c$) - 1