«Разработка программного модуля иллюстрирующую процедур генерации и проверки эцп»

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. ФЗ от 10.01.2002 N1-ФЗ «Об электронной цифровой подписи»

2. Алексенцев А. И. «Информационная безопасность»
3. Анин «Защита компьютерной информации», Санкт-Петербург, 2006
4. Баричев С.Г., Гончаров В.В., Серов Р.Е. - Основы современной криптографии Москва, Горячая линия – Телеком, 2001
5. Брюс Шнайер. Прикладная криптография. Протоколы, алгоритмы, исходные тексты на Си. – М.: Издательство ТРИУМФ, 2008 г.
6. Гурвиц Г.А. Microsoft Access 2007. Разработка приложений на реальном примере - СПб.: БХВ-Петербург, 2007.
7. Михеева В.Д., Харитонова И.А. Microsoft® Access 2002 - СПб.: БХВ-Петербург, 2003 - 1040 с.: ил.
8. Петров А.А - Компьютерная безопасность. Криптографические методы защиты. ДМК Москва, 2009 г.
9. Титоренко Г. А. Брага В. В. - Автоматизированные информационные технологии в экономике. М.: Триумф, 2009г.
10. Володин А. «Кто заверит ЭЦП» - журнал «Банковские системы» - 2005 г.
11. Василенко В.А. – «Кодирование и защита информации», статья.
12. Терехов А.Н., Тискин А.В. – Криптография с открытым ключом: от теории к стандарту, статья.
13. www.cryptopro.ru
14. www.digitalsign.ru
15. www.e-sign.ru

Приложения

Приложение 1

Приложение 2

Public Class frmMain
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' Проверка подписи реализуется через аутентификацию с использованием
' публичного (открытого) ключа отправителя (дешифровка блока подписи)
If myReceiver.VerifyHash(mySender.PublicParameters, _
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.Text)
' Шифрование данных с использованием публичного ключа получателя
encrypted = mySender.EncryptData(myReceiver.PublicParameters, toEncrypt)
' конвертирование вывода в base64/Radix
TextBox2.Text = Convert.ToBase64String(encrypted)
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(encrypted)
' конвертирование вывода в base64/Radix
TextBox3.Text = Convert.ToBase64String(encrypted)
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(encrypted)
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