Бурное развитие Интернет коммерции обозначило необходимость внедрения технологий электронной торговли для любого современного предприятия
жүктеу/скачать 493,5 Kb.
|
Разработка электронной цифровой подписи
Глава V. Заключительные и переходные положения Статья 20. Приведение нормативных правовых актов в соответствие с настоящим Федеральным законом 1. Нормативные правовые акты Российской Федерации подлежат приведению в соответствие с настоящим Федеральным законом в течение трех месяцев со дня вступления в силу настоящего Федерального закона. 2. Учредительные документы удостоверяющих центров, выдающих сертификаты ключей подписей для использования в информационных системах общего пользования, подлежат приведению в соответствие с настоящим Федеральным законом в течение шести месяцев со дня вступления в силу настоящего Федерального закона. Статья 21. Переходные положения Удостоверяющие центры, создаваемые после вступления в силу настоящего Федерального закона до начала ведения уполномоченным федеральным органом исполнительной власти реестра сертификатов ключей подписей, должны отвечать требованиям настоящего Федерального закона, за исключением требования предварительно представлять сертификаты ключей подписей своих уполномоченных лиц уполномоченному федеральному органу исполнительной власти. Соответствующие сертификаты должны быть представлены указанному органу не позднее чем через три месяца со дня вступления в силу настоящего Федерального закона. Приложение 3 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 1 . Анин «Защита компьютерной информации» 2 Брюс Шнайер. Прикладная криптография. Протоколы, алгоритмы, исходные тексты на Си. жүктеу/скачать 493,5 Kb. Достарыңызбен бөлісу:
|