Private Sub cmdEncrypt_Click(sender As System.Object, _
e As System.EventArgs) Handles cmdEncrypt.Click
Dim memStream As New MemoryStream()
Dim encStream As New CryptoStream(memStream, _
RijndaelManager.CreateEncryptor(), CryptoStreamMode.Write)
Dim sw As New StreamWriter(encStream)
sw.WriteLine(txtEncrypt.Text)
sw.Close()
encStream.Close()
My.Computer.FileSystem.WriteAllBytes("C:\myFile.data", _
memStream.ToArray(), False)
memStream.Close()
End Sub
Private Sub cmdDecrypt_Click(sender As System.Object, _
e As System.EventArgs) Handles cmdDecrypt.Click
Dim buffer As Byte() = _
My.Computer.FileSystem.ReadAllBytes("C:\myFile.data")
Dim memStream As New MemoryStream(buffer)
Dim decStream As New CryptoStream(memStream, _
RijndaelManager.CreateDecryptor(), CryptoStreamMode.Read)
Dim sr As New StreamReader(decStream)
txtEncrypt.Text = sr.ReadToEnd()
sr.Close()
decStream.Close()
memStream.Close()
End Sub
Private Sub frmRijndael_Load(sender As System.Object, _
e As System.EventArgs) Handles MyBase.Load
'указываем ключ
RijndaelManager.Key = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, _
9, 10, 11, 12, 13, 14, 15, 16}
'указываем вектор инициализации
RijndaelManager.IV = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, _
9, 10, 11, 12, 13, 14, 15, 16}
End Sub
End Class
Вопросы к практической работе
1. Опишите принципы работы симметричных алгоритмов шифрования.
2. Приведите примеры наиболее распространенных симметричных алгоритмов шифрования.
3. Опишите предназначение класса RijndaelManaged.
4. Опишите работу функций CreateEncryptor и CreateDecryptor класса RijndaelManaged.
ПРАКТИЧЕСКАЯ РАБОТА №5
Тестирование программного обеспечения
Цель работы: ознакомиться с основными понятиями процесса тестирования программного обеспечения и его проведением в средах Microsoft Visual Studio 2010 Ultimate и Microsoft Test Manager 2010.