Comment crypter un mot de passe dans le script VBS

Lorsque vous cryptez un mot de passe sur le Web ou en 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 hachage avec entrée donnée d'un utilisateur qui tente de se connecter. Un hachage représente essentiellement une unité de données de la variable taille convertie en un montant fixe de caractères dans une séquence. Afin de mener à bien ce processus, vous devez placer un utilitaire de 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.

Instructions

Allez sur le site et télécharger le Fourmilab "Postal" 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é
'au https://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
Réglez oMD5CmdShell = CreateObject ("WScript.Shell")
Réglez oMD5CmdFSO = CreateObject ("Scripting.FileSystemObject")
sTemp = oMD5CmdShell.ExpandEnvironmentStrings ("% TEMP%")
sTempFile = sTemp & "" & oMD5CmdFSO.GetTempName
«------ Vérifier fichier d'entrée Existance ----;
Si non oMD5CmdFSO.FileExists (sFilename), puis
```
MD5Hash = "Échec: Fichier d'entrée non valide."
```
Autre
```
Réglez 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
Réglez 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é
'au https://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 Pour Len (sHexCheck)
```
bCharCheck = FalsePour chaque sHexValue Dans aHexValues
Si UCase (Mid (sHexCheck, SX, 1)) = Alors sHexValue
bCharCheck = True
Exit For
Fin si
Suivant
Si bCharCheck lt; gt; True Then
IsHex = False
Exit Function
Fin si
```
Suivant
IsHex = True
End Function
Faites défiler jusqu'à la zone dans votre code que vous souhaitez crypter vos mots de passe. Cela peut paraître après que l'utilisateur de votre application fournit entrée 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 la commande suivante: 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 modifier cette fonction de vos préférences. Remplacer "C: password.ini" avec le chemin du fichier de mot de passe.

Les sujets:

Réponses populaires

Questions connexes

Comment crypter un mot de passe dans le script VBS

Instructions

Questions connexes