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