Discussion :

[alexxxx69]

Bonjour,

Je dois générer une clé pour un logiciel.

Je pars d'une clé numérique de 50 chiffres contenant toutes les infos qu'il me faut et je dois arriver à une clé alphanumérique de 25 caractères (5*5).

Mon problème est que je ne sais pas comment passer d'un nombre à 2 chiffre à un caractère facilement saisissable (0 à 9 et A à Z) car mes nombre vont de 00 à 99 et que les caractères ASCII sont de 48 à 57 et 65 à 90.

La clé doit facilement être décodée.

Si quelqu'un a une idée ?

Merci d'avance

[DAUDET78]

les caractères ASCII sont de 48 à 57 et 65 à 90.

les caractères ASCII vont de 48 à 90 et 97 à 122.....
Mais de toutes les façons tu n'as pas assez de caractères pour coder une bijection de 0 à 99 ... il en faut deux. Soit tu codes en Hexa (donc de 00 à 63) ou avec deux caractères alphabétiques

[alexxxx69]

pour les codes ASCII je parlais des chiffres de 1 à 9 et des lettre majuscules

Sinon j'ai rien trouvé donc je suis parti sur 25 chiffres au lieu de 50

[DarkVader]

Bonjour,
Sauf erreur, la conversion d'un nombre de 50 chiffres en base 10
en nécessite déjà 29 en base 50 et ce n'est qu'une conversion pas une encryption

ex
12345678901234567890123456789012345678901234567890 <=> X70MLTVVhfEnLFLU7daKnInXlQR7e (soit 29car)

par contre une chaine de 25 car en base 50 permet d'encoder une chaine de 42 car en base 10
123456789012345678901234567890123456789012 <=> 23S7WTmgUhAFTMfmbnHj34FUC

[DarkVader]

Bonsoir,
à retardement ...
Il y a maintenant cette solution qui s'obtient en une seule ligne avec la librairie vb6i
soit l'exemple suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.ScaleMode = 1
    Me.Width = 7000
    Me.Height = 2000
    '-------------------
 
        Dim sDatas As String, sKey As String, sDatas1 As String
 
        ' génération de la clé          '
        ' pour l'exemple                  '
        sDatas = RndZ(StringN(50, "9"), StringN(49, "1"))
 
        ' Conversion base 10 en base 35 '
        sKey = ConvertBaseZ(sDatas, 10, 35)
        ' Restauration des données      '
        sDatas1 = ConvertBaseZ(sKey, 35, 10)
 
        Me.Print "Données initiales : " & sDatas
        Me.Print "Données modifiées : " & sKey
        Me.Print " => " & sDatas1, "Restoration : "; CBool(CompZ(sDatas, sDatas1) = "0")
 
End Sub

toutefois, en regard du titre, une simple conversion de base ne remplacera pas un encryptage (RSA ou AES)
qu'il est aisé d'obtenir avec AES_Crypt/AES_Uncrypt ou RSA_Crypt/RSA_Uncrypt (avec la même librairie).

Mais c'est aussi sans aborder le problème de la protection d'une application par une simple clé
car le sujet est autrement plus complexe notamment au niveau du code interne
qui ne s’accommode d'aucune protection basée sur des instructions conditionnelles.