Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Игорь Голов -

Visual Basic .NET - Криптография, защита данных

Все примеры / Безопасность / Криптография, защита данных

Защита строк по алгоритму DES

Автор: Игорь Голов | добавлено: 06.03.2010, 14:03 | просмотров: 2357 (1+) | комментариев: 0 | рейтинг: *x0
Техническая реализация, в виде класса, алгоритма шифрования строковых данных.

Код

Imports System.Text
Imports System.Security.Cryptography

Public Class Crypt_Decrypt_String
  Public Function CryptString(ByVal DataString As String) As String
    Dim Rez_String As String = ""

    If DataString <> "" Then
      Dim Coding As UnicodeEncoding = New UnicodeEncoding()
      Dim Key As Byte() = New Byte() {93, 252, 76, 113, 209, 29, 253, 168}
      Dim Vector As Byte() = New Byte() {172, 44, 172, 193, 7, 48, 131, 165}
      Dim Data As Byte() = Coding.GetBytes(DataString)
      Dim Crypting As DES = New DESCryptoServiceProvider
      Dim Rez As Byte() = Crypting.CreateEncryptor(Key, Vector).TransformFinalBlock(Data, 0, Data.Length)

      Rez_String = Coding.GetString(Rez, 0, Rez.Length)


    End If
    Return Rez_String
  End Function
  Public Function DecryptString(ByVal DataString As String) As String
    Dim Rez_String As String = ""

    If DataString <> "" Then
      Dim Coding As UnicodeEncoding = New UnicodeEncoding()
      Dim Key As Byte() = New Byte() {93, 252, 76, 113, 209, 29, 253, 168}
      Dim Vector As Byte() = New Byte() {172, 44, 172, 193, 7, 48, 131, 165}
      Dim Data As Byte() = Coding.GetBytes(DataString)
      Dim Crypting As DES = New DESCryptoServiceProvider
      Dim Rez As Byte() = Crypting.CreateDecryptor(Key, Vector).TransformFinalBlock(Data, 0, Data.Length)

      Rez_String = Coding.GetString(Rez, 0, Rez.Length)


    End If
    Return Rez_String


  End Function
End Class
Файлы string_crypt-decrypt_des.zip (70,46 Кб)
Об авторе

Игорь Голов

Нет информации об авторе...

См. также:
Профиль автора
Игорь Голов
Другие примеры этого автора (всего: 4)
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Люди на Kbyte.Ru
Реклама
Счетчики