Foro de elhacker.net

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)