TEK TABANCA
Uzman Üye
Selamın aleyküm arkadaşlar sizlere bugün Encrypt & Decrypt vb.net projesi verecegim
gelistirmek size kalmış
programdan görüntüler
kodlara gelecek olursak
1 adet class modülü ekliyoruz class modülümüze şu kodları giriyoruz ;
Sonra 2 adet textbox
2 adet button ekliyoruz
button1 girilecek kodlar ;
button2 girilecek kodlar;
not: Microsoft Visual Basic 2010 Express İle Kodlanmıştır
gelistirmek size kalmış
programdan görüntüler
kodlara gelecek olursak
1 adet class modülü ekliyoruz class modülümüze şu kodları giriyoruz ;
Kod:
Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
Imports System.Windows.Forms
Public Class Crypto
Private Shared DES As New TripleDESCryptoServiceProvider
Private Shared MD5 As New MD5CryptoServiceProvider
Public Shared Function MD5Hash(ByVal value As String) As Byte()
Return MD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(value))
End Function
Public Shared Function Encrypt(ByVal stringToEncrypt As String, ByVal key As String) As String
DES.Key = Crypto.MD5Hash(key)
DES.Mode = CipherMode.ECB
Dim Buffer As Byte() = ASCIIEncoding.ASCII.GetBytes(stringToEncrypt)
Return Convert.ToBase64String(DES.CreateEncryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
End Function
Public Shared Function Decrypt(ByVal encryptedString As String, ByVal key As String) As String
Try
DES.Key = Crypto.MD5Hash(key)
DES.Mode = CipherMode.ECB
Dim Buffer As Byte() = Convert.FromBase64String(encryptedString)
Return ASCIIEncoding.ASCII.GetString(DES.CreateDecryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
Catch ex As Exception
MessageBox.Show("Geçersiz Anahtar", "Şifre Çözme Başarısız", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
End Function
End ClassSonra 2 adet textbox
2 adet button ekliyoruz
button1 girilecek kodlar ;
Kod:
'Bu Verileri Şifreler
Dim key As String = "123"
textbox2.Text = Crypto.Encrypt(textbox1.Text, key)
textbox1.Text = ""
MsgBox("Başarıyla Şifrelendi= " & EarnTextBox2.Text, MsgBoxStyle.Information)
Kod:
'Bu verilerin şifresini çözer
Dim key As String = "123"
textbox1.Text = Crypto.Decrypt(textbox2.Text, key)
textbox2.Text = ""
MsgBox("Şifreleme Çözüldü= " & EarnTextBox2.Text, MsgBoxStyle.Information)not: Microsoft Visual Basic 2010 Express İle Kodlanmıştır
Bağlantıları görmek için lütfen
Giriş Yap
Bağlantıları görmek için lütfen
Giriş Yap
