Når du kryptere et passord på nettet eller offline, du vanligvis må bruke MD5 hashing funksjon som lar deg kryptere passord og matche hash med innspill gitt fra en bruker forsøker å logge i. En hash representerer i utgangspunktet en enhet av data av varierende størrelse konverteres til et fast antall tegn i en sekvens . For å gjennomføre denne prosessen , må du plassere en MD5 -verktøyet i samme katalog som VBS filen slik at skriptet kan utføre nytte og generere en MD5 hash-verdi fra den. Instruksjoner
en

Gå til FourmiLab hjemmeside og laste ned " ZIP " filen for MD5 kommandolinje verktøyet . Åpne Zip -filen fra der du lastet den ned og pakk ut innholdet i mappen for VBS filen du vil kryptere med .
2

Åpne VBS filen i en kode editor.


3

Lim inn følgende kode inn i manuset : en

Public Function MD5Hash ( sFileName )

' Dette skriptet er gitt under Creative Commons-lisensen ligger
< p > 'at http://creativecommons.org/licenses/by-nc/2.5/. Det kan ikke

' brukes til kommersielle formål uten uttrykt skriftlig samtykke

"av NateRice.com

Konst OpenAsDefault = -2

Konst FailIfNotExist = 0

Konst ForReading = 1

Dim oMD5CmdShell , oMD5CmdFSO , STEMP , sTempFile , fMD5CmdFile , Späth

Dim fResultsFile , sResults

Set oMD5CmdShell = CreateObject ( " WScript.Shell ")

Set oMD5CmdFSO = CreateObject ( " Scripting.FileSystemObject ")

STEMP = oMD5CmdShell.ExpandEnvironmentStrings ( "% TEMP % ")

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

' ------ Bekreft Input File Existance -----
p Hvis ikke oMD5CmdFSO.FileExists ( sFileName ) Så

MD5Hash = " feilet: . Invalid Input File"

Else

Sett fMD5CmdFile = oMD5CmdFSO.GetFile ( sFileName )

Späth = fMD5CmdFile.ShortPath
< p> sFileName = Späth

Set fMD5CmdFile = Ingenting

End If

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

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

" > "& sTempFile , 0 , Sann

Set fResultsFile = _

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

sResults = fResultsFile.ReadAll

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

fResultsFile.Close

oMD5CmdFSO.DeleteFile sTempFile
p Hvis len ( sResults ) = 32 og IsHex ( sResults ) Så

MD5Hash = sResults

Else

MD5Hash = "Klarte . "

End If

Set oMD5CmdShell = Ingenting

Sett oMD5CmdFSO = Ingenting

End Function

Private Function IsHex ( sHexCheck )

' Dette skriptet er gitt under Creative Commons- lisensen ligger

' på http://creativecommons.org/licenses/by-nc/2.5/. Det kan ikke

' brukes til kommersielle formål uten uttrykt skriftlig samtykke

"av 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 ​​, " , ")

For sX = 1 To Len ( sHexCheck )

bCharCheck = False

Hver sHexValue i aHexValues ​​
p Hvis UCase ( Mid ( sHexCheck , SX , 1 ) ) = sHexValue Deretter

bCharCheck = sant

Exit For

End If

Neste
p Hvis bCharCheck < > True Deretter

IsHex = False

Exit Function

End If

Neste

IsHex = sant

End Function
4

Rull ned til området i koden din som du ønsker å kryptere passordene dine. Dette kan vises etter at brukeren av programmet gir innspill om brukernavn og passord. Du kan også bruke en tilfeldig del av VBS kode bare for å teste funksjonen. Skriv inn følgende : Dim strHash As String = MD5Hash ( "C : \\ password.ini ") . Dette gjør umiddelbart en hash av passordet filen og holder hash inne en verdi som kalles " strHash . " Du kan endre dette til dine preferanser. Erstatt " C : \\ password.ini " . Med banen passord filen