VB.Net by API/System.Security.Cryptography/CryptoStream
New CryptoStream
<source lang="vbnet"> Imports System Imports System.Xml Imports System.Xml.Schema Imports System.IO Imports System.Data.OleDb Imports System.Data.rumon Imports System.Data.SqlClient Imports System.Data Imports System.Security Imports System.Security.Cryptography
Public Class MainClass
Shared Sub Main() Dim fs As FileStream = New FileStream("DSencrypted.dat",FileMode.Create, FileAccess.Write) Dim MyDS As DataSet = New DataSet() Dim MyDS2 As DataSet = New DataSet() Dim Connection As SqlConnection = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=MyDatabase;Integrated Security=SSPI") Connection.Open() Dim MyDA As SqlDataAdapter = New SqlDataAdapter("SELECT * FROM Employee", Connection) MyDA.Fill(MyDS, "Employee") Dim DES As DESCryptoServiceProvider = New DESCryptoServiceProvider() Dim DESencrypter As ICryptoTransform = DES.CreateEncryptor() Dim cryptStream As CryptoStream = New CryptoStream(fs, DESencrypter, CryptoStreamMode.Write) MyDS.WriteXml(cryptStream, XmlWriteMode.WriteSchema) cryptStream.Close()
Dim fsRead As FileStream = New FileStream("DSencrypted.dat", _ FileMode.Open, FileAccess.Read) Dim DESdecrypter As ICryptoTransform = DES.CreateDecryptor() Dim decryptStream As CryptoStream = New CryptoStream(fsRead, _ DESdecrypter, CryptoStreamMode.Read) Dim plainStreamR As XmlTextReader = New XmlTextReader(decryptStream) MyDS2.ReadXml(plainStreamR, XmlReadMode.ReadSchema) End Sub
End Class
</source>