Wanneer u een wachtwoord op het web of offline te versleutelen , je meestal moet de MD5 hash- functie die u toelaat om wachtwoorden te versleutelen en overeenkomen met de hash met input gegeven van een gebruiker probeert in te loggen gebruiken . een hash is eigenlijk een eenheid van data van variabele grootte omgezet in een vast aantal tekens in een sequentie . Teneinde dit proces uit te voeren , moet u een MD5 hulpprogramma plaatst in dezelfde map als het VBS -bestand , zodat het script kan het hulpprogramma uit te voeren en het genereren van een MD5 hash-waarde van het. Instructies
1 Ga naar de Fourmilab website en download de " ZIP " bestand voor de MD5 command line utility . Open het zip-bestand uit waar je het gedownload en extraheer de inhoud naar de directory van het VBS- bestand dat u wilt versleutelen met . Kopen van 2 Open uw VBS -bestand in een code-editor .
< Br > Goedkope 3 Plak de volgende code in uw script : Overheidsfunctie MD5Hash
( sFileName ) op ' Dit script wordt verstrekt onder de Creative Commons -licentie gelegen
' op http://creativecommons.org/licenses/by-nc/2.5/. Het mag niet
' worden gebruikt voor commerciële doeleinden met de uitdrukkelijke, schriftelijke toestemming
' van 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
' ------ Controleer Input File Existance -----
Als Niet oMD5CmdFSO.FileExists ( sFileName ) dan
MD5Hash = " Mislukt : . Invalid Input File "
Else
Stel fMD5CmdFile = oMD5CmdFSO.GetFile ( sFileName ) sPath = fMD5CmdFile.ShortPath
sFileName = sPath
Set fMD5CmdFile = Nothing End
Als
' -------------------- ------------------ oMD5CmdShell.Run " % Comspec % /c md5.exe - n"
& sFileName & _
" > " & sTempFile , 0 , True Set
fResultsFile = _ oMD5CmdFSO.OpenTextFile
( sTempFile , ForReading , FailIfNotExist , OpenAsDefault ) sResults
= fResultsFile.ReadAll < br sResults > = bekleding (Replace ( sResults , vbCRLF , " " ) ) fResultsFile.Close oMD5CmdFSO.DeleteFile sTempFile
Als len ( sResults ) = 32 en IsHex ( sResults ) dan = sResults
Else MD5Hash
MD5Hash
= " mislukt . " End
Als Set oMD5CmdShell
= Niets
Stel oMD5CmdFSO = Nothing
End Function
Private Function IsHex ( sHexCheck ) op ' Dit script wordt verstrekt onder de Creative Commons -licentie gelegen < br > ' op http://creativecommons.org/licenses/by-nc/2.5/. Het mag niet
' worden gebruikt voor commerciële doeleinden met de uitdrukkelijke, schriftelijke toestemming
' van 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 , " , " ) op Twitter sX = 1 To Len ( sHexCheck ) bCharCheck
= False
voor Elke sHexValue in aHexValues
Als UCase ( Mid ( sHexCheck , sX , 1 ) ) = sHexValue bCharCheck dan
= True Exit
Voor End
Als < br Volgende
> Als bCharCheck < > True IsHex = False Exit Function End dan
Als
Volgende IsHex = True End Function
4
Blader omlaag naar het gebied in de code die u wilt uw wachtwoorden te versleutelen . Dit zou kunnen verschijnen nadat de gebruiker van uw aanvraag levert input ten aanzien van de gebruikersnaam en het wachtwoord . U mag een willekeurig deel van uw VBS code zelfs alleen gebruiken om de functie te testen . Typ het volgende : Dim strHash As String = MD5Hash ( " C : \\ password.ini " ) . Dit maakt meteen een hash van het wachtwoord bestand en houdt de hash in een waarde genaamd " strHash . " U kunt dit wijzigen naar uw voorkeur . Vervang " C : \\ password.ini " . Met het pad van het wachtwoord bestand
|
