Line 48: Public Shared Function Decrypt(ByVal strText As String, ByVal sDecrKey As String) As String
Line 49: Dim IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
Line 50: Dim inputByteArray(strText.Length) As Byte
Line 51: Try
Line 52: Dim byKey() As Byte = System.Text.Encoding.UTF8.GetBytes(Left(sDecrKey, 8))
|