шифрование текстовых данных

[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. и вот что ещё. как можно реализовать ещё и шифрование целых файлов (не только текстовых) таким же ну или похожим способом?

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

[s-andriano]

1. Комментарии пишутся ДО написания кода, а не после него.
2. Если тема дипломной работы - шифрование данных, то эти исходники Вам не помогут - самого шифрования тут нет, есть лишь обращение к внешним процедурам, осуществляющим шифрование.
3. Шифрование бинарных данных в любом случае можно произвести при помощи алгоритма, используемого для шифрования текста. В зависимости от алгоритма шифрования это можно сделать либо сразу с не преобразованными данными, либо после UUE преобразования данных.

[danada1]

а напишите хотя бы что это за способ (метод) шифрования, чтобы побольше найти информации о нём в интернете.

[Ezhik Kihze]

Вы код хотя бы по дииагонали смотрли, когда скачали?

Dim DES As New TripleDESCryptoServiceProvider

[Serge_Bliznykov]

Сообщение от Ezhik Kihze

Вы код хотя бы по дииагонали смотрли, когда скачали?

Dim DES As New TripleDESCryptoServiceProvider

Коллега, ему эта строчка ровным счётом ни о чём не говорит, Вы что, думаете, он знает, какие бывают алгоритмы шифрования?..

danada1, вы, очевидно, взяли код, который использует криптопровайдер, обеспечивающий шифрование по алгоритму Triple DES.

[Ezhik Kihze]

Вы что, думаете, он знает, какие бывают алгоритмы шифрования?..

Надеялся. Он же все-таки дипломную работу по этой теме пишет.

[s-andriano]

Она надеется, что какой-нибудь он ей напишет.