Bonjour,
je voudrais créer un système de clé pour mon application qui serait générée et vérifiée en fonction du prénom et du nom.
Je pensais à ajouter le contenu de la textbox prénom et la textbox nom et décaler de 3 lettres chaque lettre pour générer la clé (méthode utilisée par Jules César )

Ainsi, si par exemple mon prénom est : "ABCD" et mon nom est "EFGH", ma clé sera : "DEFGHIJK" car ABCDEFGH --> DEFGHIJK
J'utilise donc la méthode replace mais qui malheureusement ne supporte que deux surcharges, je dois donc trouver une parade pour pour lui donner l'équivalent de chaque lettre.
J'ai donc trouvé ce code qui "empile" plusieurs variables, mais apparemment cela ne doit pas être possible puisque mon code ne marche que pour quelques lettres ( les dernières il me semble ) :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
        Dim PrénomEtNom As String = TextBoxVotrePrénom.Text + TextBoxVotreNom.Text
        Dim CalculCléAD As String = Nothing
        Dim CalculCléBE As String = Nothing
        Dim CalculCléCF As String = Nothing
        Dim CalculCléDG As String = Nothing
        Dim CalculCléEH As String = Nothing
        Dim CalculCléFI As String = Nothing
        Dim CalculCléGJ As String = Nothing
        Dim CalculCléHK As String = Nothing
        Dim CalculCléIL As String = Nothing
        Dim CalculCléJM As String = Nothing
        Dim CalculCléKN As String = Nothing
        Dim CalculCléLO As String = Nothing
        Dim CalculCléMP As String = Nothing
        Dim CalculCléNQ As String = Nothing
        Dim CalculCléOR As String = Nothing
        Dim CalculCléPS As String = Nothing
        Dim CalculCléQT As String = Nothing
        Dim CalculCléRU As String = Nothing
        Dim CalculCléSV As String = Nothing
        Dim CalculCléTW As String = Nothing
        Dim CalculCléUX As String = Nothing
        Dim CalculCléVY As String = Nothing
        Dim CalculCléWZ As String = Nothing
        Dim CalculCléXA As String = Nothing
        Dim CalculCléYB As String = Nothing
        Dim CalculCléZC As String = Nothing
        CalculCléAD = Replace(PrénomEtNom, "A", "D")
        CalculCléBE = Replace(CalculCléAD, "B", "E")
        CalculCléCF = Replace(CalculCléBE, "C", "F")
        CalculCléDG = Replace(CalculCléCF, "D", "G")
        CalculCléEH = Replace(CalculCléDG, "E", "H")
        CalculCléFI = Replace(CalculCléEH, "F", "I")
        CalculCléGJ = Replace(CalculCléFI, "G", "J")
        CalculCléHK = Replace(CalculCléGJ, "H", "K")
        CalculCléIL = Replace(CalculCléHK, "I", "L")
        CalculCléJM = Replace(CalculCléIL, "J", "M")
        CalculCléKN = Replace(CalculCléJM, "K", "N")
        CalculCléLO = Replace(CalculCléKN, "L", "O")
        CalculCléMP = Replace(CalculCléLO, "M", "P")
        CalculCléNQ = Replace(CalculCléMP, "N", "Q")
        CalculCléOR = Replace(CalculCléNQ, "O", "R")
        CalculCléPS = Replace(CalculCléOR, "P", "S")
        CalculCléQT = Replace(CalculCléPS, "Q", "T")
        CalculCléRU = Replace(CalculCléQT, "R", "U")
        CalculCléSV = Replace(CalculCléRU, "S", "V")
        CalculCléTW = Replace(CalculCléSV, "T", "W")
        CalculCléUX = Replace(CalculCléTW, "U", "X")
        CalculCléVY = Replace(CalculCléUX, "V", "Y")
        CalculCléWZ = Replace(CalculCléVY, "W", "Z")
        CalculCléXA = Replace(CalculCléWZ, "X", "A")
        CalculCléYB = Replace(CalculCléXA, "Y", "B")
        CalculCléZC = Replace(CalculCléYB, "Z", "C")
        TextBoxVotreClé.Text = CalculCléZC
Auriez vous une astuce ? Merci !