Автор:
Игорь Голов | добавлено: 06.03.2010, 14:03 | просмотров: 2407 (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