
Código:
Private Sub encrypt()
nuevacadena = ""
lenKey = Len(marca)
KeyPos = 1
LenStr = Len(cadena)
rcadena = StrReverse(cadena)
For x = 1 To LenStr
EncCharNum = Asc (Mid (rcadena, x, 1)) + Asc (Mid (marca, KeyPos, 1))
nuevacadena = nuevacadena & chr(EncCharNum Mod 256)
KeyPos = keypos+1
If KeyPos > lenKey Then KeyPos = 1
Next
End Sub
Private Sub Decrypt()
nuevacadena = ""
lenKey = Len(marca)
KeyPos = 1
LenStr = Len(cadena)
rcadena=StrReverse(cadena)
For x = LenStr To 1 Step -1
DecCharNum = Asc (Mid (rcadena, x, 1)) - Asc (Mid (marca,KeyPos, 1)) + 256
nuevacadena = nuevacadena & chr(DecCharNum Mod 256)
KeyPos = KeyPos+1
If KeyPos > lenKey Then KeyPos = 1
Next
nuevacadena=StrReverse(nuevacadena)
End Sub
con los archivos txt es facil,pero en archivos binarios ¿?. en teoria se podria leer un grupo de bytes, cargarlos en la variable cadena y volcar los bytes de la variable nuevacadena en otro archivo (uno nuevo). yo digo un grupio de bytes pero puede ser hexadecimal,decimal,binario,octetos,etc.



en resumen intentare encontrar alguna aplicacion por linea de comandos util. pero agredeceria poder aprender como se hace en Vbs.
saludos