-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á:
Pronto Agora De Dos clicks no button1 e Adicione este Click no evento Button1_Click
Caso queira Descryptar:
--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
Código:
TextBox2.Text = gusdnide.Encrypt(TextBox1.Text) ' Isso Encrypta
Código:
TextBox2.Text = gusdnide.Decrypt(TextBox1.Text)' Isso Decrypta
Comment