Título: Archivos corruptos al descifrar el archivo original Publicado por: GRANLUPIN23 en 26 Octubre 2006, 19:20 pm Hola muchachos , he estado tratando de crear un simple encriptador den archivos con la funcion XOR pero cuando lo descifro no no me devuelveel archivo original...
Dim Tem As String ... Tem = Input$(INLINE, #Rcn1) Put #WCnl, , Encript(Tem ) ..... La Funciones Encript si funciona poque la he probado en un Textbox y cifra y descifra bien osea alli no esta el problema....( lo desencrito aplicando de nuevo la funcion Encript sobre los datos (lo mismo que con un XOR) Creo que es por el tratammiento e datos ¿ Los String no almacenan bien los archivos binarios? (Una vez lo lei en el Manual Microsoft de Vbl) tambien lei que en el primer caractrer de una cadena string se almacena la longitud de la cadena y que por eso debo saltar el primer caracter....no entiendo esto....porque he visto que varias funciones escritas aqui en este foro que manejan archivos con cadenas String como si.nada ...a ver si alguno de ustedes me podria aclarar esa duda por favor...les estaria muy agradecido... |