|
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é
' à 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
|
