доброго времени суток. очень нужна помощь. делаю дипломную работу. тема дипломной работы - шифрование данных.
с частью кода более менее разобрался. вот в чём именно нужна помощь.
1. напишите пожалуйста комментарии к каждой строке кода:
ну например:
...
dim a as integer //описание переменных
...
-------------------------------------------------------------
(шифрование текста)
Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
Public Class TextEncrypt
Dim DES As New TripleDESCryptoServiceProvider
Dim MD5 As New MD5CryptoServiceProvider
Private Sub btn_back_Click(sender As Object, e As EventArgs) Handles btn_back.Click
Me.Close()
End Sub
Private Sub btn_encrypt_Click(sender As System.Object, e As System.EventArgs) Handles btn_encrypt.Click
DES.Key = MD5Hash(txt_key.Text)
DES.Mode = CipherMode.ECB
Dim Buffer As Byte() = UTF8Encoding.UTF8.GetBytes(txt_originalText.Text)
txt_encryptText.Text = Convert.ToBase64String(DES.CreateEncryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
End Sub
Function MD5Hash(ByVal value As String) As Byte()
Return MD5.ComputeHash(UTF8Encoding.UTF8.GetBytes(value))
End Function
End Class
-------------------------------------------------------------
(расшифровка текста)
Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
Public Class TextDecrypt
Dim DES As New TripleDESCryptoServiceProvider
Dim MD5 As New MD5CryptoServiceProvider
Private Sub btn_back_Click(sender As Object, e As EventArgs) Handles btn_back.Click
Me.Close()
End Sub
Private Sub btn_decrypt_Click(sender As System.Object, e As System.EventArgs) Handles btn_decrypt.Click
Try
DES.Key = MD5Hash(txt_Key.Text)
DES.Mode = CipherMode.ECB
Dim Buffer As Byte() = Convert.FromBase64String(txt_encryptText.Text)
txt_originalText.Text = UTF8Encoding.UTF8.GetString(DES.CreateDecryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
Catch ex As Exception
MsgBox("Неправильный ключ!")
End Try
End Sub
Function MD5Hash(ByVal value As String) As Byte()
Return MD5.ComputeHash(UTF8Encoding.UTF8.GetBytes(value))
End Function
End Class
===============================================
2. и вот что ещё. как можно реализовать ещё и шифрование целых файлов (не только текстовых) таким же ну или похожим способом?
заранее спасибо