VB.Net by API/System.Security.Cryptography/CryptoStream

Материал из VB Эксперт
Перейти к: навигация, поиск

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>