Código:
Dim uni As New UnicodeEncoding
Dim Contra As Byte() = uni.GetBytes(TextBox1.Text)
Dim DATOS As New DESCryptoServiceProvider
Dim encriptador As ICryptoTransform = DATOS.CreateEncryptor(DATOS.Key, DATOS.IV)
Dim encrmemo As New MemoryStream()
Dim cryptoStream As New CryptoStream(encrmemo, encriptador, CryptoStreamMode.Write)
cryptoStream.Write(Contra, 0, Contra.Length)
cryptoStream.Close()
Dim StrEncr As Byte() = encrmemo.ToArray()
'DESENC
Dim DESencriptador As ICryptoTransform = DATOS.CreateDecryptor(DATOS.Key, DATOS.IV)
Dim DESencrmemo As New MemoryStream(StrEncr)
Dim DEScryptoStream As New CryptoStream(DESencrmemo, DESencriptador, CryptoStreamMode.Read)
Dim message As String
message = New StreamReader(DEScryptoStream).ReadToEnd()
MsgBox(message)
La valiable "Contra" que uso arriba, es el Byte() que me llega para compilar...
Es increible.. Pero si le das para que encripte: "ELHACKER", devuelve descifrado: "E"
Si das a que encripte: "Chunu" descifra y devuelve: "C"
Solo el 1º caracter!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!