Imports System.Security.Cryptography
Imports System.Text.ASCIIEncoding
Imports System.IO
Public Class Tester
Public Shared Sub Main
'Dim str As String = "1234567890asdfgh"
'must be exactly 16 characters long
Dim sSource, sKey, sIV, sResult As String
sSource = "string"
Dim objDES As New DESCryptoServiceProvider()
Dim objStream As New MemoryStream(ASCII.GetBytes(sSource), False)
sKey = "12345678"
sIV = "12345678"
objDES.IV = ASCII.GetBytes(sIV)
objDES.Key = ASCII.GetBytes(sKey)
sResult = ASCII.GetChars(objDES.CreateEncryptor().TransformFinalBlock(ASCII.GetBytes(sSource), 0, sSource.Length))
Console.WriteLine(sResult)
'sResult = ASCII.GetChars(objDES.CreateDecryptor().TransformFinalBlock(ASCII.GetBytes(sSource), 0, sSource.Length))
'Console.WriteLine(sResult)
End Sub
End Class
|