Leer archivo binario en Vbs

[kapo.damy]

hola a todos de nuevo. estoy armando otro scriptque lea un archivo binario (byte por byte o cada 32bytes no bits  ) y encriptarlo.  utilizo este codigo para realizar la operaciones de encriptacion/decriprtacion.

Código [Seleccionar] Expandir


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

el codigo cifra el valor de la variable cadena con la contraseña marca y arroja el resultado nuevacadena.
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

[Novlucker]

Te sugiero ir directamente a lo de la aplicación de consola, el problema con vbs es que seguro tendrás problemas con muchos de los caractéres

Saludos

[kapo.damy]

Te sugiero ir directamente a lo de la aplicación de consola, el problema con vbs es que seguro tendrás problemas con muchos de los caractéres

Saludos

ok, pero se puede leer un archivo directamente en hexadecimal. o mas bien como guardo el contenido de un archivo en un array (digo array para ser mas practico), tal vez si modifico el codigo para adecuarlo al tipo de contenido con el que trabajo funcione¿¿??