Quando você criptografa uma senha na Web ou offline, você normalmente deve usar a função hash MD5 que lhe permite criptografar senhas e coincide com o hash com a entrada dada a partir de um usuário que está tentando para entrar A hash representa basicamente uma unidade de dados de tamanho variável convertido para um valor fixo de caracteres em uma seqüência. Para realizar este processo , você deve colocar um utilitário MD5 no mesmo diretório que o seu arquivo VBS para que o script pode executar o utilitário e gerar um valor de hash MD5 a partir dele. Instruções
1
Ir para o site FourmiLab e baixe o arquivo " ZIP" para o comando utilitário de linha de MD5. Abra o arquivo Zip de onde você fez o download e extraia o conteúdo para o diretório dos VBS arquivo que você deseja criptografar com .
2
Abra o arquivo VBS em um editor de código.
< Br >
3
cole o seguinte código no seu script:
MD5Hash Função Pública ( sFileName )
' Este script é fornecido sob a licença Creative Commons localizado
' em http://creativecommons.org/licenses/by-nc/2.5/. Pode não
' ser usado para fins comerciais , com o consentimento expresso por escrito
' de NateRice.com
Const OpenAsDefault = -2
Const FailIfNotExist = 0
Const ForReading = 1
Dim oMD5CmdShell , oMD5CmdFSO , sTemp , sTempFile , fMD5CmdFile , sPath
Dim fResultsFile , sResults
Definir oMD5CmdShell = CreateObject (" WScript.Shell" )
Set oMD5CmdFSO = CreateObject (" Scripting.FileSystemObject " )
sTemp = oMD5CmdShell.ExpandEnvironmentStrings ("% TEMP %")
sTempFile = sTemp & " \\ " & oMD5CmdFSO.GetTempName
' ------ Verifique Input File Existance -----
Se Não oMD5CmdFSO.FileExists ( sFileName ) Então
MD5Hash = "Falha : . arquivo de entrada inválida"
Else
Set fMD5CmdFile = oMD5CmdFSO.GetFile ( sFileName )
sPath = fMD5CmdFile.ShortPath
sFileName = sPath
Set fMD5CmdFile = Nothing
End If
' -------------------- ------------------
oMD5CmdShell.Run "% comspec % /c md5.exe -n" e sFileName & _
" > "& sTempFile , 0 , Verdadeiro
Set fResultsFile = _
oMD5CmdFSO.OpenTextFile ( sTempFile , ForReading , FailIfNotExist , OpenAsDefault )
sResults = fResultsFile.ReadAll < br >
sResults = trim ( Replace ( sResults , vbCRLF , "") )
fResultsFile.Close
oMD5CmdFSO.DeleteFile sTempFile
Se len ( sResults ) = 32 e IsHex ( sResults ) Então
MD5Hash = sResults
Else
MD5Hash = "Falha ".
End If
Definir oMD5CmdShell = Nada
Definir oMD5CmdFSO = Nothing End Function
privada IsHex Função ( sHexCheck )
' Este script é fornecido sob a licença Creative Commons localizado
'no http://creativecommons.org/licenses/by-nc/2.5/. Pode não
' ser usado para fins comerciais , com o consentimento expresso por escrito
' 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 ," ", )
Para sX = 1 To Len ( sHexCheck )
bCharCheck = False
Para Cada sHexValue em aHexValues
Se UCase ( Mid ( sHexCheck , sX , 1)) = sHexValue Então
bCharCheck = True
Exit For
End If < br >
Próxima
Se bCharCheck < > True Then
IsHex = False
Exit Function End If
Próxima
IsHex = true
End Function
4
Desça até a área em seu código que você gostaria de criptografar suas senhas . Isso pode aparecer após o usuário do seu aplicativo fornece entrada sobre o nome de usuário e senha . Você pode até mesmo usar uma parte aleatória do seu código VBS apenas para testar a função. Digite o seguinte : Dim strHash As String = MD5Hash ( "C: \\ password.ini " ) . Isto imediatamente faz um hash do seu arquivo de senhas e mantém o hash dentro de um valor chamado " strHash ". Você pode mudar essa a sua preferência. Substitua "C: \\ password.ini " com o caminho do arquivo de senhas
.
