Автор: Пользователь скрыл имя, 07 Декабря 2010 в 00:25, курсовая работа
В данной работе будет рассмотрено наиболее удобное средство защиты электронных документов от искажений, позволяющее при этом однозначно идентифицировать отправителя сообщения, является электронная цифровая подпись (ЭЦП).
Введение 4
Глава 1. Аналитическая часть. 6
1.1 Понятие ЭЦП. Основные алгоритмы реализации ЭЦП. 6
1.2 Аналоги информационной системы ЭЦП 21
1.3 Постановка задачи 28
Глава 2. Проектная часть 29
2.1 Моделирование бизнес - процессов 29
2.2 Информационное моделирование 32
2.3 Программные модули 40
Глава3. Технология работы с информационной системой «ЭЦП» 47
3.1 Технология работы с информационной системой «ЭЦП» 47
3.1 Перспективы развития информационной системы 49
Глава 4. Обоснование экономической эффективности 50
Заключение 53
Список использованной литературы 54
Приложение 55
Президент
Российской Федерации
В. Путин
Приложение 3
Public Class
frmMain
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' Проверка
подписи реализуется через
' публичного
(открытого) ключа отправителя
(дешифровка блока подписи)
If myReceiver.VerifyHash(
encrypted, signature) Then
MsgBox("Signature Valid", MsgBoxStyle.Information)
Button4.Enabled = True
Else
MsgBox("Invalid Signature", MsgBoxStyle.Exclamation)
Button4.Enabled
= False
End If
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
If Me.TxtPlainText.Text = "" Then
MsgBox("Please enter a string to sign", MsgBoxStyle.Information)
Exit Sub
End If
' Конвертация
строковых данных в массив байт
toEncrypt =
enc.GetBytes(TxtPlainText.
' Шифрование
данных с использованием
encrypted =
mySender.EncryptData(
' конвертирование
вывода в base64/Radix
TextBox2.Text
= Convert.ToBase64String(
Me.Button2.Enabled
= True
End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' Хэширование
шифрованных данных и
' using the
sender's private key. (Signature Block)
signature =
mySender.HashAndSign(
' конвертирование
вывода в base64/Radix
TextBox3.Text
= Convert.ToBase64String(
Me.Button3.Enabled = True
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button4.Click
TextBox4.Text
= myReceiver.DecryptData(
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button5.Click
myReceiver = Nothing
mySender = Nothing
End
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Form3.Show()
End Sub
End Class