AutoIt en Español
Bienvenido al foro de Autoit3 en Español.

Aquí encontrarás la documentación oficial del lenguaje y muchos otros recursos relacionados.

Mis mejores deseos de éxitos!

ANTIVIRUS USB

Ver el tema anterior Ver el tema siguiente Ir abajo

ANTIVIRUS USB

Mensaje  rijaf el Jue Ene 06, 2011 9:41 pm

hola a todos este es mi primer trabajo que hice con autoit es para matar lo virus del USB, solo que tenemos que detener la ejecucion del USB presionando la tecla shift varias veces y despues ejecutamos nuestro programa sabiendo cual es la letra del dispositivo de almacenamiento, lo que hasta ahora estoy buscando es como lograr que solo al detectar el USB capte la letra de la unidad y se autoejecute esta pequeña utilidad.
Nota: los que acostumbran a llevar sus ejecutables en su USB les recomiendo que lo guarden en una carpeta porque lo que hace en si es eliminar todos los archivos con extension dll, lnk, exe, ini, bat, inf.
Aqui está el código, espero que les sirva y espero su ayuda.

SplashTextOn("ElimVirus", "RiJaF_HaCk Eliminación de Virus USB", -1, 60, -1, -1, 4, "", 20)
Sleep(3000)
SplashOff()
$unidad = InputBox("ElimVirus HackRijaf", "Introdusca la Letra de la Unidad para ElimVirus", "")
DriveSetLabel($unidad &":", "RiJaF_HaCk")
;cod para hacer visible
FileSetAttrib($unidad & ":\*.*", "-R-S-H-A", 1)
If @error Then
MsgBox(4096,"Error", "Problema al configurar atributos.")
Else
FileDelete($unidad &":\*.exe")
FileDelete($unidad &":\*.dll")
FileDelete($unidad &":\*.inf")
FileDelete($unidad &":\*.bat")
FileDelete($unidad &":\*.lnk")
FileDelete($unidad &":\*.ini")
MsgBox(0,"Ok","Problema Solucionado por Rijaf")
EndIf

rijaf

Mensajes : 1
Reputación : -2
Fecha de inscripción : 06/01/2011

Ver perfil de usuario

Volver arriba Ir abajo

Interesante

Mensaje  AutoitHacks el Jue Jun 16, 2011 2:50 am

interesante tu aporte amigo, con eso de los virus USB uno ya no sabe que vendra de nuevo y siempre hay que estar listos, mira tal vez puedes complementar tu script con uno que hise hace poco Smile

saludos Very Happy

link del script ->> peccebre.comule.com/?p=184

AutoitHacks

Mensajes : 2
Reputación : 0
Fecha de inscripción : 13/06/2011

Ver perfil de usuario http://www.autoit-hacks.tk

Volver arriba Ir abajo

una solucion

Mensaje  paulguitar el Vie Jul 01, 2011 9:53 pm

Hola Rijaf,
modifique el codigo para que sea automatico la deteccion del dispositivo usb.
para que funcione tiene que estar cargado en memoria (como normalmente funciona un antivirus), lo puedes programar al inicio de windows para que siempre este activa la proteccion, no te preocupes por el consumo de recursos, tan solo jala 1 o 2 mb de ram, y nada de prosesador.

puedes probarlo antes de compilarlo, ejecuta el programa.... inserta tu pendrive y sas.. bueno tu ya sabes que sigue.

unos consejos:
- podrias quitar la funcion "DriveSetLabel", cada quien le pone el nombre que quiere a su pendrive, y es molesto que alguna aplicacion te lo modifique.
- no deberias eliminar archivos exe, ya que muchos guardan sus programas el el pendrive, aparte que en raras ocasiones encuentras un virus en la raiz, por lo general se guardan en carpetas especiales ocultas.

;Creado por Rijaf
;Modificado por PAULGUITAR

$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")

$colEvents = $objWMIService.ExecNotificationQuery _
("Select * From __InstanceOperationEvent Within 5 Where " _
& "TargetInstance isa 'Win32_LogicalDisk'")

While 1
$objEvent = $colEvents.NextEvent
If $objEvent.TargetInstance.DriveType = 2 Then
Select
Case $objEvent.Path_.Class() = "__InstanceCreationEvent"
SplashTextOn("ElimVirus", "RiJaF_HaCk Eliminación de Virus USB", -1, 60, -1, -1, 4, "", 20)
Sleep(3000)
SplashOff()
$unidad = $objEvent.TargetInstance.DeviceId
DriveSetLabel($unidad, "RiJaF_HaCk")
;cod para hacer visible
FileSetAttrib($unidad & "\*.*", "-R-S-H-A", 1)
If @error Then
MsgBox(4096,"Error", "Problema al configurar atributos.")
Else
FileDelete($unidad &"\*.exe")
FileDelete($unidad &"\*.dll")
FileDelete($unidad &"\*.inf")
FileDelete($unidad &"\*.bat")
FileDelete($unidad &"\*.lnk")
FileDelete($unidad &"\*.ini")
MsgBox(0,"Ok","Problema Solucionado por Rijaf")
EndIf

EndSelect
EndIf
WEnd

paulguitar

Mensajes : 1
Reputación : 0
Fecha de inscripción : 15/07/2010

Ver perfil de usuario

Volver arriba Ir abajo

Re: ANTIVIRUS USB

Mensaje  Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.