Pequeña aplicación para cifrado de texto
‘se importa la libretia de cryptagrafia (esta nos permite hacer el cifrado)
Imports System.Security.Cryptography
Public Class Form1
Private Sub Cmb_Cifrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Cifrar.Click
CifradoMd5(Text_Cifrar.Text)
End Sub
Private Sub Cmb_Limpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Limpiar.Click
Text_Cifrar.Clear()
Text_Cifrar.Focus()
Tex_TextoCifrado.Clear()
End Sub
‘toda la magia del cifrado sucede en esta funcion
Private Sub CifradoMd5(ByVal TextoCifrar As String)
‘Variable para almacenar el textomd5
Dim TextoCifrado As String
TextoCifrado = “”
‘se crea una instancia
Dim md5 As New MD5CryptoServiceProvider
‘variable para almacenar la cantidad de bytes del texto a cifrar
Dim bytValue() As Byte
‘variable para almacenar el hash
Dim bytHash() As Byte
‘variable para el ciclo
Dim i As Integer
‘calcula los bytes del texto introducido y lo almacena en una variable
bytValue = System.Text.Encoding.UTF8.GetBytes(TextoCifrar)
‘Calcula el valor hash para la matriz de bytes especificada.
bytHash = md5.ComputeHash(bytValue)
‘se “limpia” el proceso md5 (por si se ha utilizado antes)
md5.Clear()
‘for tomar el valor hash de la variable bythash y convertirla a texto
For i = 0 To bytHash.Length – 1
TextoCifrado &= bytHash(i).ToString(“x”).PadLeft(2, “0”)
Next
Tex_TextoCifrado.Text = TextoCifrado
End Sub
End Class
Para descargar el proyecto has clic aqui
