'descifro
        Dim DESencriptador As ICryptoTransform = DATOS.CreateDecryptor(D.Key, D.IV)
        Dim ms As New MemoryStream()
        Dim cs As New CryptoStream(ms, DESencriptador, CryptoStreamMode.Write)
        cs.Write(leidotxt, 0, leidotxt.Length)
        Dim Mensaje As String = uni.GetString(ms.ToArray())
        'Dim Mensaje As String = New StreamReader(DEScryptoStream).ReadToEnd

Dim FF% = FreeFile()
    FileOpen(FF, "C:\prueba.txt", OpenMode.Append)
    PrintLine(FF, "texto")
    FileClose(FF)

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)

Dim DATOS As New DESCryptoServiceProvider 'CREO EL OBJETO QUE ME PROPORCIONA UNA KEY Y UNA IV
        Dim KEYSTRING As String
        Dim Key As Byte() = DATOS.Key 'GUARDO EN UNA VARIABLE, LA KEY GENERADA AL AZAR
        KEYSTRING = uni.GetString(Key)'TRANSFORMO ESA KEY A STRING
        MsgBox(KEYSTRING) 'MUESTRO LA KEY, Y SON COMO SIMBOLOS CHINOS :P (TODO BIEN)
        'AHORA GRABO LA KEY EN UN ARCHIVO
        Dim FF% = FreeFile()
        FileOpen(FF, "C:\prueba.kkk", OpenMode.Append)
        PrintLine(FF, KEYSTRING)
        FileClose(FF)
        'AHORA LEO LA KEY DEL MISMO ARCHIVO
        Dim FFa% = FreeFile()
        FileOpen(FF, "C:\prueba.kkk", OpenMode.Input)
        Dim keyleida$ = ""
        Do While Not EOF(FF)
            keyleida = LineInput(FF)
        Loop
        FileClose(FFa)
        MsgBox(keyleida) 'AHORA MUESTRO LA KEY LEIDA Y LO QUE LEYÓ ES: "????"
' AHORA CHEQUEO SI SON IGUALES...
        If KEYSTRING <> keyleida Then
            MsgBox("Son Distintas")
        Else
            MsgBox("Son iguales")
        End If