Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 27.03.2013, 15:12   #1
danada1
Пользователь
 
Регистрация: 27.01.2013
Сообщений: 41
Восклицание Объясните принцип работы

Добрый день. Объясните на понятном языке по какому принципу происходит кодирование текста. Как ключ влияет на преобразование исходного текста в зашифрованный. Есть какие-нибудь формулы?

(шифрование текста)
Код:
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
danada1 вне форума
Старый 27.03.2013, 15:20   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Думаете, что создание кросспост (дубля) темы, Вам чем-то сильно поможет?!
Не думаю...


закрываю данную тему.


а ваша тема тут:шифрование текстовых данных
Serge_Bliznykov вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Объясните принцип работы ф-ции.... MyXa C# (си шарп) 2 01.11.2012 16:56
объясните принцип программы s4egol Помощь студентам 2 28.10.2012 17:51
принцип работы программы sasha14486 Общие вопросы C/C++ 1 22.05.2011 12:36
Delphi, объясните принцип рисования StringGrid. Canvas paranoiac Помощь студентам 1 31.03.2011 00:27
Принцип работы NS-серверов Ivan_32 Свободное общение 1 31.10.2010 03:38