fallo de codificacion con rc4

Iniciado por sancakoky, 22 Noviembre 2011, 17:27 PM

0 Miembros y 1 Visitante están viendo este tema.

sancakoky

Buenas, tengo un txt con texto cifrado por rc4 (é×tÝÊ€c{´   ýgõâ)
¿Como podria coger el contenido de ese txt y guardarlo en un string?
He intentado con

     Dim datos As New StreamReader(c:\a.txt)
           TextBox1.Text = datos.ReadToEnd
      datos.Close()

Pero debe tener un problema de codificacion y no detecta bien los caracteres con lo que no carga correctamente en el textbox1 el contenido.
¿Como se soluciona esto?
Nota:Del textbox no es porque sustituyendolo por una variable sigue fallando

Novlucker

... y el error exacto es ...?

Saludos
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

sancakoky

Perdonar porque quizas no me haya explicado bien.
Yo ya tengo un archivo en c:\ llamado a.txt y este archivo esta escrito en rc4(por ejemplo tiene escrito é×tÝÊ€c{´   ýgõâ)
Pongo el codigo lo mas simplificado posible.
boton para cargar en el textbox multilinea el contenido del archivo c:\a.txt

Private Sub buscartxtencriptado_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buscartxtencriptado.Click
        Dim datos As New System.IO.StreamReader("C:\a")
        Dim alldata As String = datos.ReadToEnd
        datos.Close()
           TextBox1.Text = alldata
    End Sub

AQUI ESTA EL PRIMER FALLO, en el textbox no se carga é×tÝÊ€c{´   ýgõâ)
sino que por algun misterio se carga é�t�ʀc{�   ��g��)
¿De que otra forma podria leer entero el archivo txt para almacenarlo en la variable alldata como tipo string para cargarlo en el textbox?
Falla porque estoy intentando almacenarlo en un string ?

Unbr0ken

Cita de: SnowcrashDiscutir con desconocidos por internet es un ejercicio de imbéciles; todos acaban siendo quinceañeros arrogantes con cantidades infinitas de tiempo libre.

NO resuelvo dudas vía MP, para algo está el foro.

sancakoky

StreamReader(filename, System.Text.Encoding.Default)
Muchas gracias Unbr0ken, ya sabia yo que el fallo andaba por ahí
El problema ahora lo tengo al querer escribir en el archivo varias veces con writeline(1,"lo que sea"), ya que cuando pasa de linea de alguna manera misteriosa hace como un cierre del archivo porque al pasarle Dim alldata As String = datos.ReadToEnd alldata tan solo recoge el primer writeline que se escribio en el archivo y nada mas.
Es raro porque si modifico yo el archivo pulsando intro si lo lee bien pero la writeline debe de cerrar lo que envia con algo raro porque para readtoend es el final del archivo cuando en realidad no lo es.