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

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

Вернуться   Форум программистов > .NET Frameworks (точка нет фреймворки) > ASP.NET
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 27.03.2014, 09:49   #1
marycya
Новичок
Джуниор
 
Регистрация: 27.03.2014
Сообщений: 1
По умолчанию Не работает шифрование по ГОСТ 28147-89

Создавала веб-приложение(ASP.Net) для шифрования по данным гостам,написала код (на основе шифрования DES), но он не рабочий(VS ошибок не выдаёт, но при непосредственном использовании введённые в Textarea символы не зашифровываются и не выводятся на Label.
Код(Файла Default.aspx.vb):

Код:
Imports System.Security.Cryptography
Imports System.Text
Imports System.IO
Imports CryptoPro.Sharpei
Namespace КР_Прокофьева
    Public Class WebForm1
        Inherits System.Web.UI.Page
        Protected Sub btnEncrypt_Click(ByVal sender As Object, ByVal txt As Object, ByVal lblResult As Object, ByVal ByVale As System.EventArgs)
            Dim gost As Gost28147CryptoServiceProvider
            Dim gost_Encryptor As ICryptoTransform = gost.CreateEncryptor
            Dim fs As New FileStream(Server.MapPath("temp.dat"), FileMode.Create)
            Dim gostCryptoStream As New CryptoStream(fs, gost_Encryptor, CryptoStreamMode.Write)
            Dim enc As UnicodeEncoding, bytes() As Byte
            bytes = enc.GetBytes(txt.Value)
            gostCryptoStream.Write(bytes, 0, bytes.Length)
            gostCryptoStream.Close()
            fs.Close()
            fs = Nothing
            fs = New FileStream(Server.MapPath("temp.dat"), FileMode.Open)
            Dim sr As New StreamReader(fs)
            lblResult.Text = sr.ReadToEnd
            sr.Close()
            fs.Close()
            File.Delete(Server.MapPath("temp.dat"))
 
        End Sub
    End Class
End Namespace

Последний раз редактировалось marycya; 27.03.2014 в 13:50.
marycya вне форума Ответить с цитированием
Старый 27.03.2014, 20:09   #2
Streletz
Старожил
 
Регистрация: 03.01.2014
Сообщений: 2,870
По умолчанию

Цитата:
введённые в Textarea
Используйте многострочный TextBox.

Последний раз редактировалось Streletz; 27.03.2014 в 20:19.
Streletz вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Шифрование ГОСТ 28147-89 в Delphi. Написал, но не работает munthrekosh Общие вопросы Delphi 2 22.12.2013 16:06
Проблема с ГОСТ 28147-89 (симетричное шифрование) MNaz C# (си шарп) 1 12.01.2013 22:35
ГОСТ 28147-89 VaDim12 Фриланс 5 15.11.2012 20:28
нужны исходники гост 28147-89 indarium Общие вопросы Delphi 1 14.11.2012 16:14