Нужна пoмoщь с написанием программы

[danada1]

доброго времени суток. очень нужна помощь. делаю дипломную работу. тема дипломной работы - шифрование данных.
с частью кода более менее разобрался. вот в чём именно нужна помощь.
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_orig inalText.Text)
txt_encryptText.Text = Convert.ToBase64String(DES.CreateEn cryptor().TransformFinalBlock(Buffe r, 0, Buffer.Length))
End Sub
Function MD5Hash(ByVal value As String) As Byte()
Return MD5.ComputeHash(UTF8Encoding.UTF8.G etBytes(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_encryp tText.Text)
txt_originalText.Text = UTF8Encoding.UTF8.GetString(DES.Cre ateDecryptor().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.G etBytes(value))
End Function
End Class
=================================== ============
2. и вот что ещё. как можно реализовать ещё и шифрование целых файлов (не только текстовых) таким же ну или похожим способом?

заранее спасибо

[mbm]

Мой совет: кинь это на какой нить сайт по фрилансу, предложи что-нить! Выхлоп быстрее получишь.