Imports system
Imports system.security.cryptography
Imports System.Text
Imports system.io
Public Class Encryptor
Private shared iv as byte () = {& H12, & H34, & H56, & H78, & H90, & Hab, & HCD, & HEF}
Private shared key as byte () = encoding.utf8.getbytes ("24681357")
Public Shared Function Desencrypt (ByVal Strtext As String) AS String
DIM BYTEXT as byte () = encoding.utf8.getbytes (Strtext)
DIM DES AS New DescryptoServiceProvider
DIM MS AS New MemoryStream
DIM CS AS New CryptostReam (MS, DES.CREATEENCRYPTOR (Key, IV), CRYPTOSTREAMMODE.WRITE
cs.write (bytext, 0, bytext.length)
cs.flushfinalblock ()
Return Convert.TOBASE64STRING (ms.toarray ())
END FUNCTION
Public Shared Function deSDecrypt (Byval Strtext As String) AS String
DIM BYTEXT (STRText.length - 1) AS BYTE
DIM DES AS New DescryptoServiceProvider
Bytext = Convert.FromBase64String (Strtext)
DIM MS AS New MemoryStream
DIM CS AS New CryptostReam (MS, DES.CREATEDECRYPTOR (Key, IV), CRYPTOSTREAMMODE.WRITE
cs.write (bytext, 0, bytext.length)
cs.flushfinalblock ()
DIM Encoding as new system.text.utf8encoding
Return encoding.getstring (ms.toarray ())
END FUNCTION
END CLASS
