Lorsque vous cryptez un mot de passe sur le web ou hors ligne, vous devez généralement utiliser la fonction de hachage MD5 qui vous permet de crypter les mots de passe et faire correspondre les hash avec entrée donnée d'un utilisateur tentant de vous connecter A hachage représente essentiellement une unité de données de taille variable convertis en un montant fixe de caractères dans une séquence. Afin de mener à bien ce processus , vous devez placer un utilitaire MD5 dans le même répertoire que votre fichier VBS si le script peut exécuter l'utilitaire et générer une valeur de hachage MD5 de lui. Instructions
1

Accéder au site Fourmilab et télécharger le fichier "zip" de l'utilitaire de ligne de commande MD5. Ouvrez le fichier Zip de l'endroit où vous l'avez téléchargé et extraire le contenu dans le répertoire du fichier VBS vous souhaitez crypter avec .
2

Ouvrez votre fichier VBS dans un éditeur de code.
< Br > Hôtels 3

Collez le code suivant dans votre script:

MD5Hash Fonction publique ( sFileName )

' Ce script est fourni sous la licence Creative Commons situé
< p > ' à http://creativecommons.org/licenses/by-nc/2.5/. Il ne peut pas

' être utilisé à des fins commerciales avec le consentement exprimé par écrit

»de NateRice.com

Const OpenAsDefault = -2

Const FailIfNotExist = 0

Const ForReading = 1

oMD5CmdShell Dim, oMD5CmdFSO , sTemp , sTempFile , fMD5CmdFile , sPath

fResultsFile Dim, sResults

Set oMD5CmdShell = CreateObject (" WScript.Shell " )

Set oMD5CmdFSO = CreateObject (" Scripting.FileSystemObject " )

Stemp = oMD5CmdShell.ExpandEnvironmentStrings ( "% TEMP% »)

sTempFile = sTemp & "\\ " & oMD5CmdFSO.GetTempName

' ------ Vérifiez Input File Existence -----

If Not oMD5CmdFSO.FileExists ( sFileName ) Puis

MD5Hash = " forfait: . fichier d'entrée valide"

Else

Set fMD5CmdFile = oMD5CmdFSO.GetFile ( sFileName )

sPath = fMD5CmdFile.ShortPath
< p> sFileName = sPath

Set fMD5CmdFile = Nothing

End If

' -------------------- ------------------

oMD5CmdShell.Run "% comspec % /c md5.exe -n" et sFileName & _

" > " et sTempFile , 0, vrai

Set fResultsFile = _

oMD5CmdFSO.OpenTextFile ( sTempFile , ForReading , FailIfNotExist , OpenAsDefault )

sResults = fResultsFile.ReadAll < br >

sResults = trim ( Replace ( sResults , vbCrLf , "") )

fResultsFile.Close

oMD5CmdFSO.DeleteFile sTempFile

Si len ( sResults ) = 32 et IsHex ( sResults ) Puis

MD5Hash = sResults

Else

MD5Hash = "Echec ".

End If

Set oMD5CmdShell = Nothing Set

oMD5CmdFSO = Nothing

Fin de Fonction:

Private Function IsHex ( sHexCheck )

' Ce script est fourni sous la licence Creative Commons situé

' à http://creativecommons.org/licenses/by-nc/2.5/. Il ne peut pas

' être utilisé à des fins commerciales avec le consentement exprimé par écrit

»de NateRice.com

Dim SX, bCharCheck , sHexValue , sHexValues ​​, aHexValues ​​< br >

sHexCheck = UCase ( sHexCheck )

sHexValues ​​= " 0,1,2,3,4,5,6,7,8,9 A, B , C, D , E, F "

aHexValues ​​= split ( sHexValues ​​, ", ")

pour SX = 1 To Len ( sHexCheck )

bCharCheck = False

Chaque sHexValue en aHexValues ​​

Si UCase (Mid ( sHexCheck , SX , 1)) = sHexValue Puis

bCharCheck = True

sortie pour ma

End If < br >

Suivant

Si bCharCheck <> True Then

IsHex = False

Exit Function End If

Suivant

IsHex = True

End Function
4

Descendez jusqu'à la zone de votre code que vous souhaitez crypter vos mots de passe. Cela peut paraître après que l'utilisateur de votre application fournit des données concernant le nom d'utilisateur et votre mot de passe. Vous pouvez même utiliser une partie aléatoire de code VBS juste pour tester la fonction. Tapez la commande suivante : strHash As String = MD5Hash ("C: \\ password.ini " ) . Cela fait immédiatement un hash de votre fichier de mot de passe et maintient le hash à l'intérieur d'une valeur appelée « strHash . " Vous pouvez modifier cette fonction de vos préférences . Remplacer " C: \\ password.ini " . Avec le chemin d'accès du fichier de mot de passe