Discussion :

[MADA BLACK]

Bonjour Forum
Bonjour tout le monde
Tres gentil de vos parts si vous pouvez m'aider a finir ce fichier.
Par exemple j'ai 5 utilisateurs avec 5 mots de passe
MADA1 mot de passe 111
MADA2 mot de passe 222
MADA3 mot de passe 333
MADA4 mot de passe 444
MADA5 mot de passe 555
Text1.Text pour utilisateur
Text2.Text pour mots de passe
Command1 pour comfirmer
La malheur c'est que je veux faire cette methode de Login
sans passer par DataBase Access ou autre.
Est ce qu'on peut la realiser svp??
Cordialement
MADA

[DAUDET78]

Ben oui ......

[MADA BLACK]

Ben oui .. salut cher Daudet78

[DAUDET78]

Ben oui ......

C'est ça que tu veux faire ?
InMotDePasse.zip

[MADA BLACK]

Oui c'est exactement ce que je veux faire .. merci

[DAUDET78]

Oui c'est exactement ce que je veux faire .. merci

Mon programme est une ébauche pour te montrer que c'est possible ......
Maintenant, reste à cacher le Logging et le mot de passe qu'il ne faut pas mettre en dur dans l'EXE (ce que j'ai fait !). En effet, avec un éditeur HEXA, y a plus de secret !
- tu peux les mettre dans un fichier crypté
- tu peux les mettre dans une clé de la base de registre (avec un cryptage du genre le premier caractère +1, le deuxième caractère +2 etc ) et en les mélangeant dans un désordre connu . La base de registre est un tel foutoir que bien malin qui ira y retrouver tes petits !

Par contre, rien n'est inviolable !

[MADA BLACK]

Mon programme est une ébauche pour te montrer que c'est possible ......
Maintenant, reste à cacher le Logging et le mot de passe qu'il ne faut pas mettre en dur dans l'EXE (ce que j'ai fait !). En effet, avec un éditeur HEXA, y a plus de secret !
- tu peux les mettre dans un fichier crypté
- tu peux les mettre dans une clé de la base de registre (avec un cryptage du genre le premier caractère +1, le deuxième caractère +2 etc ) et en les mélangeant dans un désordre connu . La base de registre est un tel foutoir que bien malin qui ira y retrouver tes petits !

Par contre, rien n'est inviolable !

Merci Daudet78 pour ce super lecon
Se sera tres gentil de votre part si vous pouvez m'aider a continuer avec cette methode
Cordialement
MADA

[DAUDET78]

si vous pouvez m'aider a continuer avec cette methode

Faut que tu te renseignes sur la manière d'écrire et de lire une clé du registre en VB6. J'ai fait ça il y a une dizaine d'année...... ça date !

[MADA BLACK]

Oui je vais essayer de comprendre ces principes
Merci dans tous les cas Daudet78
Cordialement
MADA

[l_autodidacte]

J'ai trouvé sur le net(je ne sais plus où) une belle fonction qui fait ce que tu cherches et plus : Cryptage et Décryptage :

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
 Function Scramble(strText$, lngSeed&)
     Dim L&, intRand&, bytASC As Byte
     '---- Force seeded random mode
     Rnd (-1)
     '---- Set (positive) seed
     Randomize Abs(lngSeed)
     '---- Scan through string
     For L = 1 To Len(strText)
         '---- Get ASC of char
         bytASC = Asc(Mid(strText, L))
         '---- Fix for quotes (tilde to quote)
         If bytASC = 126 Then bytASC = 34
         '---- Add a random value from -80 to 80, encode\decode is decided by the seed's sign
         intRand = bytASC + ((Int(Rnd(1) * 160) - 80) * Sgn(lngSeed))
         '---- Cycle char between 32 and 125 (with carry)
         If intRand <= 31 Then
             intRand = 125 - (31 - intRand)
         ElseIf intRand >= 126 Then
             intRand = 32 + (intRand - 126)
         End If
         '---- Fix for quotes (quote to tilde)
         If intRand = 34 Then intRand = 126
          '---- Output string
         Scramble = Scramble & Chr(intRand)
     Next
 End Function

Pour tester, ajoute un CommandButton sur Form1 et ce

Code :

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

1
2
3
4
5
6
7
Sub Command1_Click()
' Cryptage de la chaine EECC :
 Result = Scramble("EECC", 1400)
 MsgBox Result
 ' Décryptage du résultat de la chaine codée
 MsgBox Scramble(Result, -1400)
End Sub

[MADA BLACK]

Bonjour cher L_autodidacte
Merci beaucoup pour votre aide et votre intervention
Tres gentil de votre part
Je ne sais où est exactement le probleme .. j'ai essaye de mettre ces codes pour tester mais j'ai obtenu ce message d'erreur
Merci d'avance pour l'aide
Amicalement
MADA

[l_autodidacte]

Il faut définir Result ainsi : Dim Result As String tout en ajoutant le type de la fonction Function Scramble(strText$, lngSeed&) As String

[MADA BLACK]

Bonjour L'autodidacte
Oui maintenant ca fonctionne tre tres bien
Je vais essayer avec ces codes
Merci beaucoup pour l'aide
Cordialement
MADA

[Bros]

Bonjour

Personnellement je n'utiliserai pas de système qui permet de déchiffrer un mot de passe.

Je le stockerai plutôt hashé (md5,bcrypt, ....) et comparerai le mot de passe entré par l'utilisateur avec celui hashé en base de registre / db / ...

Je ne sais pas ce que tu veux faire avec ton application, mais utiliser des mots de passe que l'on peu déchiffrer est tout bonnement impensable niveau sécurité

[MADA BLACK]

Merci Bros pour votre opinion
Avez vous SVP un petit exemple de ce que vous m'avez parler
Amicalement
MADA