Decryptage mdp sous vba
Résolu
zebulon2503
Messages postés
1319
Statut
Membre
-
Cédric -
Cédric -
Salut.
Je suis en train de programmer un logiciel en vba, et dedans, j'aimerais y ajouter un module de cryptage/decryptage de mot de passe. Jai trouver le code pour le cryptage mais ne voit pas comment retourner l'operation pour effectuer le decryptage...
voici le code :
Public Function Crypter() As String
Dim slettres As String
Dim lcompteur As Long
Dim llongueur As Long
Dim lboucle As Long
Const CLEF As String = "nbvfdszé'(-e`_ijhgfcKLKjhgyuilM^+)açiu-('32azsDRtvBhujkoç_e6trezsXWqazerfcx<;:<?"
Const nbrotationsmax As Long = 13
Dim entree As String
entree = InputBox("Entree une chaine")
llongueur = Len(entree)
slettres = String(llongueur, Chr(0))
For lboucle = 1 To nbrotationsmax
For lcompteur = 1 To llongueur
Mid(slettres, lcompteur, 1) = Chr((Asc(Mid(entree, lcompteur, 1)) + _
(Asc(Mid(CLEF, (lcompteur Mod Len(CLEF)) + 1, 1)) * llongueur)) Mod 256)
Next
entree = slettres
Next
Crypter = slettres
End Function
Quelqu'un pourrait m'aider a comprendre la partie en gras pour pouvoir l'inverser ?
Merci
Je suis en train de programmer un logiciel en vba, et dedans, j'aimerais y ajouter un module de cryptage/decryptage de mot de passe. Jai trouver le code pour le cryptage mais ne voit pas comment retourner l'operation pour effectuer le decryptage...
voici le code :
Public Function Crypter() As String
Dim slettres As String
Dim lcompteur As Long
Dim llongueur As Long
Dim lboucle As Long
Const CLEF As String = "nbvfdszé'(-e`_ijhgfcKLKjhgyuilM^+)açiu-('32azsDRtvBhujkoç_e6trezsXWqazerfcx<;:<?"
Const nbrotationsmax As Long = 13
Dim entree As String
entree = InputBox("Entree une chaine")
llongueur = Len(entree)
slettres = String(llongueur, Chr(0))
For lboucle = 1 To nbrotationsmax
For lcompteur = 1 To llongueur
Mid(slettres, lcompteur, 1) = Chr((Asc(Mid(entree, lcompteur, 1)) + _
(Asc(Mid(CLEF, (lcompteur Mod Len(CLEF)) + 1, 1)) * llongueur)) Mod 256)
Next
entree = slettres
Next
Crypter = slettres
End Function
Quelqu'un pourrait m'aider a comprendre la partie en gras pour pouvoir l'inverser ?
Merci
A voir également:
- Decryptage mdp sous vba
- Reinitialiser pc sans mdp - Guide
- Generateur mdp - Télécharger - Sécurité
- Mettre un mdp sur un dossier - Guide
- Excel compter cellule couleur sans vba - Guide
- Mdp bios oublié - Guide
3 réponses
Salut,
je teste ton code et je regarde mais je te promets rien
et sur vbfrance il existe ce genre de cryptage mais aussi le décriptage!!
je teste ton code et je regarde mais je te promets rien
et sur vbfrance il existe ce genre de cryptage mais aussi le décriptage!!
Salut,
A première vu, ce n'est pas du chiffrement ton algo, mais du hash. Et la particularité du hash est qu'il n'y a pas de réversibilité.
Sinon je ne vois pas pourquoi tu as besoin de ça ?
Si c'est pour de la sécurité. Ne serait-il pas mieux de stocker le hash H du mot de passe (avec un vrai hash comme du MD5 ou du SHA-1 ou autre). Et lorsque l'utilisateur tape son mot de passe M, ton programme va vérifier l'égalité md5(M) = H. Si l'égalité est vraie, alors le mot de passe est correct.
Si c'est pour autre chose ton programme, n'hésite pas à le dire. J'essaierais de t'aider.
Cdt
A première vu, ce n'est pas du chiffrement ton algo, mais du hash. Et la particularité du hash est qu'il n'y a pas de réversibilité.
Sinon je ne vois pas pourquoi tu as besoin de ça ?
Si c'est pour de la sécurité. Ne serait-il pas mieux de stocker le hash H du mot de passe (avec un vrai hash comme du MD5 ou du SHA-1 ou autre). Et lorsque l'utilisateur tape son mot de passe M, ton programme va vérifier l'égalité md5(M) = H. Si l'égalité est vraie, alors le mot de passe est correct.
Si c'est pour autre chose ton programme, n'hésite pas à le dire. J'essaierais de t'aider.
Cdt
J'attends d'exquises excuses ! lool
Bonne continuation mec :-P