Mostrar Temas
) y encriptarlo. utilizo este codigo para realizar la operaciones de encriptacion/decriprtacion.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
estoy armando un script vbs en donde lee un archivo (sus datos mediante un programita), lo calcula, y lo convierte(con otro programita). pero me he clavado justo en el inico 
.
), me vi obligado a usar demasiadas veces el comando call. por lo que se me hace un lio tremendo