Dim UNICODE As New UnicodeEncoding()
        Dim DATOS As New DESCryptoServiceProvider 'aca va a estar la KEY y el IV aleatorios
        Dim xxx As String = UNICODE .GetString(DATOS.Key) 'guardo en el String XXX la key en UNICODE

'ahora la grabo en mi .txt en UNICODE
        Dim sw As New IO.StreamWriter("c:\prueba.txt", True, System.Text.Encoding.Unicode)
        sw.WriteLine(xxx)
        sw.Close()

'ahora la leo en unicode...
        Dim sr As New IO.StreamReader("c:\prueba.txt")
        Dim keyleida As String
        keyleida = sr.ReadLine()
        MsgBox(keyleida)
        sr.Close()

        Dim uni As New UnicodeEncoding()
        Dim KEYDE1 As Integer = 0
        Dim DATOS As New DESCryptoServiceProvider
        Dim FIN As Boolean = False
        Dim i As Integer = 0
        While FIN = False
            i = (i + 1)
            FIN = True
            Try
                KEYDE1 &= 1
                DATOS.Key = uni.GetBytes(KEYDE1)
            Catch ex As ArgumentException
                FIN = False
            End Try
            If i = 501 Then
                MsgBox("501 y no encontre nada...")
                FIN = True
            End If
        End While
        MsgBox("Opcion: " & i & "Valor: " & KEYDE1)

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