Shulou(Shulou.com)06/02 Report--

This article mainly introduces VB.NET how to achieve DES encryption, has a certain reference value, interested friends can refer to, I hope you can learn a lot after reading this article, the following let the editor take you to understand it.

VB.NET DES encryption Code:

Imports System Imports System.Collections.Generic Imports System.Text Imports System.IO Imports System.Security Imports System.Security.Cryptography Namespace ZU14 NotInheritable Public Class DES Private iv As String = "1234 yzo" Private key As String = "123encryption offset in yzo" /'/ DES, must be > = 8-bit long string'/ Public Property IV () As String Get Return iv End Get Set iv = value End Set End Property'/'/ DES encrypted private key Must be an 8-bit long string'/ Public Property Key () As String Get Return key End Get Set key = value End Set End Property'/'/ a pair of strings encrypted with DES'/ string to be encrypted / encrypted BASE64 encoded string Public Function Encrypt (sourceString As String) As String Dim btKey As Byte () = Encoding.Default.GetBytes (key) Dim btIV As Byte () = Encoding.Default.GetBytes (iv) Dim des As New DESCryptoServiceProvider () Dim ms As New MemoryStream () Try Dim inData As Byte () = Encoding.Default.GetBytes (sourceString) Try Dim cs As New CryptoStream (ms Des.CreateEncryptor (btKey, btIV), CryptoStreamMode.Write) Try cs.Write (inData, 0 InData.Length) cs.FlushFinalBlock () Finally cs.Dispose () End Try Return Convert.ToBase64String (ms.ToArray ()) Catch End Try Finally ms.Dispose () End Try End Function 'Encrypt' / / a pair of DES encrypted strings decrypted'/'/ string to be decrypted / decrypted string Public Function Decrypt (encryptedString As String) As String Dim btKey As Byte () = Encoding.Default.GetBytes (key) Dim btIV As Byte () = Encoding.Default.GetBytes (iv) Dim des As New DESCryptoServiceProvider () Dim ms As New MemoryStream () Try Dim inData As Byte () = Convert.FromBase64String (encryptedString) Try Dim cs As New CryptoStream (ms Des.CreateDecryptor (btKey, btIV), CryptoStreamMode.Write) Try cs.Write (inData, 0 InData.Length) cs.FlushFinalBlock () Finally cs.Dispose () End Try Return Encoding.Default.GetString (ms.ToArray ()) Catch End Try Finally ms.Dispose () End Try End Function 'Decrypt' /'/ an DES encryption of the contents of the file'/'/ the absolute path of the file to be encrypted / the absolute path of the encrypted file Overloads Public Sub EncryptFile (sourceFile As String) DestFile As String) If Not File.Exists (sourceFile) Then Throw New FileNotFoundException ("the specified file path does not exist!" , sourceFile) End If Dim btKey As Byte () = Encoding.Default.GetBytes (key) Dim btIV As Byte () = Encoding.Default.GetBytes (iv) Dim des As New DESCryptoServiceProvider () Dim btFile As Byte () = File.ReadAllBytes (sourceFile) Dim fs As New FileStream (destFile, FileMode.Create, FileAccess.Write) Try Try Dim cs As New CryptoStream (fs, des.CreateEncryptor (btKey, btIV), CryptoStreamMode.Write) Try cs.Write (btFile, 0 BtFile.Length) cs.FlushFinalBlock () Finally cs.Dispose () End Try Catch Finally fs.Close () End Try Finally fs.Dispose () End Try End Sub 'EncryptFile' / / encrypt the contents of the file with DES After encryption, the absolute path of the original file'/'/ the file to be encrypted is overwritten Overloads Public Sub EncryptFile (sourceFile As String) EncryptFile (sourceFile, sourceFile) End Sub 'EncryptFile' /'/ a pair of file contents are decrypted by DES'/'/ the absolute path of the file to be decrypted'/ the absolute path of the file saved after decryption is Overloads Public Sub DecryptFile (sourceFile As String) DestFile As String) If Not File.Exists (sourceFile) Then Throw New FileNotFoundException ("the specified file path does not exist!" , sourceFile) End If Dim btKey As Byte () = Encoding.Default.GetBytes (key) Dim btIV As Byte () = Encoding.Default.GetBytes (iv) Dim des As New DESCryptoServiceProvider () Dim btFile As Byte () = File.ReadAllBytes (sourceFile) Dim fs As New FileStream (destFile, FileMode.Create, FileAccess.Write) Try Try Dim cs As New CryptoStream (fs, des.CreateDecryptor (btKey, btIV), CryptoStreamMode.Write) Try cs.Write (btFile, 0 BtFile.Length) cs.FlushFinalBlock () Finally cs.Dispose () End Try Catch Finally fs.Close () End Try Finally fs.Dispose () End Try End Sub 'DecryptFile' / / decrypt the contents of the file by DES After encryption, the absolute path of the original file'/'/ the file to be decrypted is overwritten Overloads Public Sub DecryptFile (sourceFile As String) DecryptFile (sourceFile, sourceFile) End Sub 'DecryptFile End Class' DES End Namespace 'ZU14

How to use VB.NET DES encryption:

Dim des As New ZU14.DES () des.IV = "abcd ha ha laugh" des.Key = "must be eight" Dim es As String = des.Encrypt ("in") Console.WriteLine (es) Console.Write (des.Decrypt (es)) des.EncryptFile ("d:\ a.txt", "d:\ b.txt") des.DecryptFile ("d:\ b.txt") Console.ReadKey (True) Thank you for reading this article carefully I hope the article "how to achieve DES encryption in VB.NET" shared by the editor is helpful to everyone. At the same time, I also hope that you can support us and pay attention to the industry information channel. More related knowledge is waiting for you to learn!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.