Pesquisar na Comunidade
Mostrando resultados para as tags ''generate''.
Encontrado 1 registro
-
[Criptografia] Gerando Hash MD5 e SHA1 de Strings e Arquivos
Newt Scamander postou um tópico no fórum em Visual Basic
Adicione ao projeto: 3 Botões 3 Caixas de Texto 2 RádioButtons 1 OpenFileDialog O layout é de sua preferência, deixei o meu assim: Function gerarMD5(palavra as String) as String Dim fornece As New SHA1CryptoServiceProvider Dim byteHash() As Byte Dim hash As String = "" byteHash = fornece.ComputeHash(Encoding.UTF8.GetBytes(palavra)) fornece.Clear() hash = BitConverter.ToString(byteHash).Replace("-", String.Empty) Return hash.ToLower Function gerarSHA1(palavra as String) as String Dim fornece As New MD5CryptoServiceProvider Dim byteHash() As Byte Dim hash As String = "" byteHash = fornece.ComputeHash(Encoding.UTF8.GetBytes(palavra)) fornece.Clear() hash = BitConverter.ToString(byteHash).Replace("-", String.Empty) Return hash.ToLower Function gerarHashArq(caminho as String) as String Dim fornece As New MD5CryptoServiceProvider Dim byteHash() As Byte Dim hash As String = "" Dim arquivoStream As FileStream = File.OpenRead(caminhoArquivo) arquivoStream.Position = 0 byteHash = fornece.ComputeHash(arquivoStream) hash = BitConverter.ToString(byteHash).Replace("-", String.Empty) Return hash.ToLower Botão Generate If (tbString.Text <> "") Then If (rbSHA1.Checked) Then tbResult.Text = gerarSHA1(tbString.Text) ElseIf (rbMD5.Checked) Then tbResult.Text = gerarMD5(tbString.Text) Else MsgBox("Escolha algum tipo") End If Else MsgBox("Preencha o campo") End If Botão File Search Dim hash As String = "" If (OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK) Then hash = gerarHashArq(OpenFileDialog1.FileName) End If tbSearch.Text = OpenFileDialog1.FileName tbResult.Text = hash Botão Clear tbResult.Clear() tbSearch.Clear() tbString.Clear() rbMD5.Checked = False rbSHA1.Checked = False Não comentei o código por preguiça rs. Qualquer dúvida que vocês tiverem comentem que eu respondo. Se quiserem testar a funcionalidade do programa existem diversos sites onlines que fazem isso: [Hidden Content] [Hidden Content] Para calcular hash de arquivos - [Hidden Content] *** Cálculo do hash do arquivo é somente para MD5, mas da pra expandir facilmente ^^. [Hidden Content]
