Archivos corruptos al descifrar el archivo original

[GRANLUPIN23]

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...