Este código es algo similar a lo expuesto por H0ax, pero en lugar de unir dos archivos binarios, insertará dentro de un binario contenido Ascii sin afectar la ejecución del archivo luego de añadir el contenido. Vale aclarar que se ha hecho tratando de que sea lo más comprensible posible, sin añadirle rutinas o funciones complejas, de esa forma es más fácil "traducirlo" a cualquier otro lenguaje. Tengase en cuenta que si el objetivo del uso de este programa es paraf enviar datos confidenciales por correo electrónico, en caso de escojer una imágen, esta debe ser lo más pequeña posible, y preferiblemente algo, no una imágen vacia que genere sospechas al pasar por el server.
Código: Seleccionar todo
CLS
DIM File AS STRING
DIM Text AS STRING
PRINT " Ascii to Bin"
PRINT " Por Alien [blackhat4all@gmail.com]"
PRINT " Para el proyecto BlackHat [BlackHat4all@gmail.com]"
PRINT "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
INPUT "Escriba la dirección del archivo que va a modificar: ", File
INPUT "Escriba el texto que desea poner dentro del archivo: ", Text
OPEN (File) FOR APPEND AS #1
PRINT #1, ""
PRINT #1, "***************************** BlackHat ****************************"
PRINT #1, Text
CLOSE #1
No pienso que este código pueda llevar mucha explicación o comentarios. Sólo una cosa, a la hora de ponerle el texto que se insertará en el archivo, este no debe tener coma (,), ya que generaría un error y volvería a pedir que se le entre el texto nuevamente.
