Ako šifrovať heslá vo VBS skript

Pri zašifrovanie hesla na webe alebo offline , zvyčajne musíte použiť MD5 hashovanie funkciu , ktorá vám umožní zašifrovať heslá a odpovedať hash sa vstupom danej od užívateľa pokúšajúci sa prihlásiť A hash v podstate predstavuje jednotku dát premenlivej veľkosti prevedený na pevnú čiastku znakov v poradí . Za účelom vykonania tohto procesu , je nutné umiestniť MD5 nástroj v rovnakom adresári ako súbor vbs , takže skript môže spustiť nástroj a generovať hodnotu hash MD5 z neho . Pokyny dovolená 1

Prejdite na webové stránky FourmiLab a stiahnite si súbor " ZIP " pre MD5 nástroje príkazového riadku . Otvorte súbor Zip od miesta , kde ste ho stiahli a extrahujte jeho obsah do adresára z VBS súbor , ktorý chcete zašifrovať pomocou .
2

Otvorte VBS súbor v editore kódu.

Sims 3

vložte nasledujúci kód do vášho skriptu :

Public Function MD5Hash ( sFileName )

" Tento skript je k dispozícii pod licenciou Creative Commons sa nachádza

" na http://creativecommons.org/licenses/by-nc/2.5/. To nemusí

" byť použitý pre komerčné účely sa z vyjadril písomný súhlas

" z NateRice.com

Const OpenAsDefault = -2

Const FailIfNotExist = 0

Const 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

' ------ Skontrolujte , či vstupný súbor Existance -----

Ak nie oMD5CmdFSO.FileExists ( sFileName ) Potom

MD5Hash = " Chyba : . Invalid Input File "

Else

Set fMD5CmdFile = oMD5CmdFSO.GetFile ( sFileName )

Späth = fMD5CmdFile.ShortPath

sFileName = Späth

Set fMD5CmdFile = Nothing

End If

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

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

" > " & sTempFile , 0 , pravda

Set fResultsFile = _

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

sResults = fResultsFile.ReadAll

sResults = trim ( Nahradiť ( sResults , vbCrLf , " " ) )

fResultsFile.Close

oMD5CmdFSO.DeleteFile sTempFile

If Ľan ( sResults ) = 32 A IsHex ( sResults ) Potom

MD5Hash = sResults

Else

MD5Hash = " Chyba " .

End If

Nastaviť oMD5CmdShell = Nothing

Set oMD5CmdFSO = Nothing

End Function

Private Function IsHex ( sHexCheck )

" je tento skript dispozícii pod licenciou Creative Commons umiestnený

' na http://creativecommons.org/licenses/by-nc/2.5/. To nemusí

" byť použitý pre komerčné účely sa z predchádzajúceho písomného súhlasu

" z NateRice.com

Dim SX bCharCheck , sHexValue , sHexValues ​​, aHexValues ​​

sHexCheck = UCAS ( sHexCheck )

sHexValues ​​= " 0,1,2,3,4,5,6,7,8,9 , A , B , C , D , E , F "

aHexValues ​​= Split ( sHexValues ​​, " , " )

sx = 1 To Ľan ( sHexCheck )

bCharCheck = False

každý sHexValue V aHexValues ​​

Ak UCAS ( Mid ( sHexCheck , SX , 1 ) ) = sHexValue potom

bCharCheck = true

Exit na predaj

End If

Ďalšie

Ak bCharCheck < > True Then

IsHex = False

Exit Function

End If

ďalšie

IsHex = true

End Function
4

Prejdite nadol do priestoru vo vašom kóde , ktorý by ste chceli šifrovať heslá . To sa môže javiť po užívateľovi vašej aplikácie poskytuje vstup , pokiaľ ide o užívateľské meno a heslo . Môžete dokonca použiť náhodné časť svojho VBS kódu len vyskúšať funkciu . Zadajte nasledujúce : Dim strHash As String = MD5Hash ( " C : \\ password.ini " ) . To okamžite vytvorí hash vášho súboru s heslami a udržuje hash vnútornú hodnotu s názvom " strHash . " Môžete zmeniť podľa svojich potrieb . Nahradiť " C : \\ password.ini " s cestou k súboru s heslami
.

• Predchádzajúca strana: Ako používať SWF vo VB MDI formuláre 
• Ďalšia strana: Ako Zadajte arabčine v jazyku Visual Basic