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. usar algun compresor 7zip rar zip o aprlicacion encriptador de base64 aes ras ..... alguno que trabaje por linea de comandos. y se acabo el problema .
en resumen intentare encontrar alguna aplicacion por linea de comandos util. pero agredeceria poder aprender como se hace en Vbs.
saludos