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 de faire correspondre le hachage avec entrée donnée à partir d`un utilisateur qui tente de se connecter. Un hachage représente essentiellement une unité de données de la variable la taille convertie en une quantité 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 afin que le script peut exécuter l`utilitaire et de générer une valeur de hachage MD5 de lui.
Allez sur le site et télécharger le Fourmilab "ZIP *: FRANÇAIS" fichier pour l`utilitaire MD5 de ligne de commande. 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 voulez chiffrer avec.
Ouvrez votre fichier VBS dans un éditeur de code.
Collez le code suivant dans votre script:
Fonction publique MD5Hash (sFileName)
`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 écrit
`De NateRice.com
Const OpenAsDefault = -2
Const FailIfNotExist = 0
Const ForReading = 1
Dim oMD5CmdShell, oMD5CmdFSO, sTemp, sTempFile, fMD5CmdFile, sPath
Dim fResultsFile, sResults
Set oMD5CmdShell = CreateObject ("WScript.Shell")
Set oMD5CmdFSO = CreateObject ("Scripting.FileSystemObject")
sTemp = oMD5CmdShell.ExpandEnvironmentStrings ("% TEMP%")
sTempFile = sTemp & "" & oMD5CmdFSO.GetTempName
`------ Vérifiez le fichier d`entrée Existance ----;
Si Non oMD5CmdFSO.FileExists (sFileName), puis
MD5Hash = "Échec: fichier d`entrée non valide."
Autre
Set fMD5CmdFile = oMD5CmdFSO.GetFile (sFileName)
sPath = fMD5CmdFile.ShortPath
sFileName = sPath
Réglez fMD5CmdFile = Nothing
Fin si
`-------------------------------------;
oMD5CmdShell.Run "% Comspec% / c md5.exe -n " & sFileName & _
" gt; " & sTempFile, 0, True
Set fResultsFile = _
oMD5CmdFSO.OpenTextFile (sTempFile, ForReading, FailIfNotExist, OpenAsDefault)
sResults = fResultsFile.ReadAll
sResults = TRIM (Remplacer (sResults, vbCRLF,""))
fResultsFile.Close
oMD5CmdFSO.DeleteFile sTempFile
Si len (sResults) = 32 et IsHex (sResults) Ensuite,
MD5Hash = sResults
Autre
MD5Hash = "Échoué."
Fin si
Réglez oMD5CmdShell = Nothing
Réglez oMD5CmdFSO = Nothing
End Function
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 écrit
`De NateRice.com
Dim sX, bCharCheck, sHexValue, sHexValues, aHexValues
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
Pour chaque sHexValue Dans aHexValues
Si UCase (Mid (sHexCheck, sX, 1)) = sHexValue Ensuite,
bCharCheck = True
exit For
Fin si
Prochain
Si bCharCheck lt; gt; True Then
IsHex = False
exit Function
Fin si
Prochain
IsHex = True
End Function
Faites défiler jusqu`à la zone dans votre code que vous souhaitez crypter vos mots de passe. Cela peut apparaître après l`utilisateur de votre application fournit des données concernant le nom d`utilisateur et mot de passe. Vous pouvez même utiliser une partie aléatoire de votre code VBS juste pour tester la fonction. Tapez le texte suivant: Dim strHash As String = MD5Hash ("C: password.ini"). Cela rend immédiatement un hachage de votre fichier de mot de passe et maintient le hachage intérieur d`une valeur appelée "strHash." Vous pouvez changer cela à votre préférence. Remplacer "C: password.ini" avec le chemin du fichier de mot de passe.