в 16:40, 26 мая 2010

2010-05-26T16:40:16Z

Admin: 1 версия

2010-05-26T12:50:34Z

1 версия

Новая страница

==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>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net by API/System.Security.Cryptography/CryptoStream - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия