Ao criptografar uma senha na Web ou off-line, você geralmente deve usar a função hash MD5 que permite encriptar chaves e combinar o hash com o contributo dado de um usuário tentar efetuar login. Um hash representa basicamente uma unidade de dados de variável tamanho convertido para um valor fixo de caracteres em uma seqüência. A fim de realizar este processo, você deve colocar um utilitário MD5 no mesmo diretório do arquivo VBS para que o script pode executar o utilitário e gerar um valor hash MD5 dele.
Ir para o site FourmiLab e baixar o "fecho eclair" arquivo para o utilitário de linha de comando MD5. Abra o arquivo Zip a partir de onde você fez o download e extraia o conteúdo para o diretório do arquivo VBS você quiser criptografar com.
Abra o arquivo VBS em um editor de código.
Cole o seguinte código em seu script:
Função Pública MD5Hash (sFileName)
`Este script é fornecido sob a licença Creative Commons localizada
`em https://creativecommons.org/licenses/by-nc/2.5/ . Não pode
`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")
Definir oMD5CmdFSO = CreateObject ("Scripting.FileSystemObject")
sTemp = oMD5CmdShell.ExpandEnvironmentStrings ("% TEMP%")
sTempFile = sTemp & "" & oMD5CmdFSO.GetTempName
"------ Verifique Existance Input File ----;
Se não for oMD5CmdFSO.FileExists (sFileName) Em seguida
MD5Hash = "Falha: Invalid Input File."
Outro
Definir fMD5CmdFile = oMD5CmdFSO.GetFile (sFileName)
sPath = fMD5CmdFile.ShortPath
sFileName = sPath
Definir fMD5CmdFile = Nothing
Fim se
`-------------------------------------;
oMD5CmdShell.Run "% Comspec% / c md5.exe -n " & sFileName & _
" gt; " & sTempFile, 0, True
Definir fResultsFile = _
oMD5CmdFSO.OpenTextFile (sTempFile, ForReading, FailIfNotExist, OpenAsDefault)
sResults = fResultsFile.ReadAll
sResults = trim (Replace (sResults, vbCRLF,""))
fResultsFile.Close
oMD5CmdFSO.DeleteFile sTempFile
Se len (sResults) = 32 E IsHex (sResults) Em seguida,
MD5Hash = sResults
Outro
MD5Hash = "Falhou."
Fim se
Definir oMD5CmdShell = Nothing
Definir oMD5CmdFSO = Nothing
End Function
Função privada IsHex (sHexCheck)
`Este script é fornecido sob a licença Creative Commons localizada
`em https://creativecommons.org/licenses/by-nc/2.5/ . Não pode
`Ser usado para fins comerciais com o consentimento expresso por escrito
`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, ",")
Para sX = 1 To Len (sHexCheck)
bCharCheck = False
Para Cada sHexValue Em aHexValues
Se UCase (Mid (sHexCheck, SX 1)) = sHexValue seguida
bCharCheck = True
Exit For
Fim se
Próximo
Se bCharCheck lt; gt; True Then
IsHex = False
Função Exit
Fim se
Próximo
IsHex = True
End Function
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 dados sobre o nome de usuário e senha. Você pode até 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"). Isso imediatamente faz um hash de seu arquivo de senhas e mantém o hash dentro de um valor chamado "strHash." Você pode mudar este a sua preferência. Substituir "C: password.ini" com o caminho do arquivo de senha.