Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Encriptando & Decriptando MD5 vb.net

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Encriptando & Decriptando MD5 vb.net

    -Crie um novo projeto xD
    --Adicione dois TextBox & um Button
    ---Adicione uma nova Class: Projec > Add Class > Name : GuiaDoHacker Aperte OK > Exclui oque tiver escrito e Cola este código lá:
    Código:
    Imports System.Text
    Imports System.Security.Cryptography
    
    Public Class gusdnide
        Private Shared TripleDES As New TripleDESCryptoServiceProvider
        Private Shared MD5 As New MD5CryptoServiceProvider
        Private Const key As String = "CHAVE12345teste"
    
        Public Shared Function MD5Hash(ByVal value As String) As Byte()
    
            Dim byteArray() As Byte = ASCIIEncoding.ASCII.GetBytes(value)
            Return MD5.ComputeHash(byteArray)
    
        End Function
        Public Shared Function Encrypt(ByVal texto As String) As String
    
            Try
                TripleDES.Key = gusdnide.MD5Hash(key)
                TripleDES.Mode = CipherMode.ECB
                Dim Buffer As Byte() = ASCIIEncoding.ASCII.GetBytes(texto)
                Return Convert.ToBase64String(TripleDES.CreateEncryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Guia do hacker", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return String.Empty
            End Try
    
        End Function
        Public Shared Function Decrypt(ByVal texto As String) As String
            Try
                TripleDES.Key = gusdnide.MD5Hash(key)
                TripleDES.Mode = CipherMode.ECB
                Dim Buffer As Byte() = Convert.FromBase64String(texto)
                Return ASCIIEncoding.ASCII.GetString(TripleDES.CreateDecryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Guia do Hacker", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return String.Empty
            End Try
        End Function
    End Class
    Pronto Agora De Dos clicks no button1 e Adicione este Click no evento Button1_Click
    Código:
    TextBox2.Text = gusdnide.Encrypt(TextBox1.Text) ' Isso Encrypta
    Caso queira Descryptar:
    Código:
    TextBox2.Text = gusdnide.Decrypt(TextBox1.Text)' Isso Decrypta

  • Font Size
    #2
    eu ja sabia fazer isso mais vai ajudar alguns leigos

    Comment

    X
    Working...
    X