comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Convertir Cualquier Cadena De Texto A Md5

  • 0 Respuestas
  • 1418 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado kraft

  • *
  • Underc0der
  • Mensajes: 1
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« en: Marzo 11, 2013, 11:14:11 pm »
Es tema pasado, pero quería probar esto de los foros  :P
en vb.net se agregan 2 textbox's y un button, y los que conozcan el tema ya entienden lo que digo
si alguno tiene dudas (que no creo) estaré dispuesto a hacer lo que pueda
bien, ahi está:
_____________________________________________________________________
Código: C#
  1. Imports System.Text
  2. Imports System.Security.Cryptography
  3. Public Class Form2
  4.    
  5.  
  6.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  7.         CifradoMd5(TextBox1.Text)
  8.     End Sub
  9.     Private Sub CifradoMd5(ByVal TextoCifrar As String)
  10.         Dim TextoCifrado As String
  11.         TextoCifrado = ""
  12.         Dim md5 As New MD5CryptoServiceProvider
  13.         Dim bytValue() As Byte
  14.         Dim bytHash() As Byte
  15.         Dim i As Integer
  16.  
  17.         bytValue = System.Text.Encoding.UTF8.GetBytes(TextoCifrar)
  18.  
  19.         bytHash = md5.ComputeHash(bytValue)
  20.         md5.Clear()
  21.  
  22.         For i = 0 To bytHash.Length - 1
  23.             TextoCifrado &= bytHash(i).ToString("x").PadLeft(2, "0")
  24.         Next
  25.         TextBox2.Text = TextoCifrado
  26.         Form1.TextBox3.Text = TextoCifrado
  27.     End Sub
  28. End Class
_______________________________________________________________
« Última modificación: Enero 05, 2015, 09:57:07 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!