Mega Code Archive
New CryptoStream
<![CDATA[
Imports System
Imports System.Xml
Imports System.Xml.Schema
Imports System.IO
Imports System.Data.OleDb
Imports System.Data.Common
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
]]>