ChattChitto

Posted: **26 Dec 2010, 06:02**

Today we are going to learn how to make a basic encrypter

ok what we need is:
2 buttons
2 textbox's

ok first click on textbox1 and on properties look for text and write in Password and put it at the top of the program

name button1 Encrypt and button2 Decrypt now make textbox2 a multiline.

now lets get to the codeing.

click on button1 (Encrypt) and enter in this:

Code: Select all

Try
            DES.Key = Hash.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox1.Text))
            DES.Mode = Security.Cryptography.CipherMode.ECB
            Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = DES.CreateEncryptor
            Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox2.Text)
            TextBox2.Text = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
        Catch ex As Exception
            MessageBox.Show("The following error(s) have occurred: " & ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

and now double click on button2 (Decrypt) and enter in this:

Code: Select all

Try
            DES.Key = Hash.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox1.Text))
            DES.Mode = Security.Cryptography.CipherMode.ECB
            Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = DES.CreateDecryptor
            Dim Buffer As Byte() = Convert.FromBase64String(TextBox2.Text)
            TextBox2.Text = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
        Catch ex As Exception
            MessageBox.Show("The following error(s) have occurred: " & ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

now double click on form1 and look for public class form1 and enter in this:

Code: Select all

Dim DES As New System.Security.Cryptography.TripleDESCryptoServiceProvider
    Dim Hash As New System.Security.Cryptography.MD5CryptoServiceProvider

and your done! now test it enter in your desired text in textbox2 and enter a password in textbox1 and click encrypt!

ChattChitto

[VB.net] Simple text encryption

[VB.net] Simple text encryption