COMODO Firewall auto ddos detector

[Mast3rpyr0]

Made this to work with COMODO firewall to automattically send ips of DDOS attackers (Some reason i get alot of them) to my isp. i kinda got bored of the project so all that got finished was the setup GUI, which works fine.

Feel free to do what you will to it.

expandcollapse popup

#include <GUIConstants.au3>

$MainWindow = GuiCreate("Comodo DDOS AutoDetect", 300, 270)
$Config = @ProgramFilesDir & "\Comodo\AntiDDOS\Config.ini"
GUICtrlCreateLabel("Configure Comodo DDOS AutoDetect", 60, 20)
GUICtrlCreateLabel("Send Log To:", 10, 53)
GUICtrlCreateLabel("Send Log From:", 10, 93)
GUICtrlCreateLabel("Log Location:", 10, 133)
GUICtrlCreateLabel("Check Every:", 10, 173)
If FileExists($Config) Then
$ConfigInfo = IniReadSection($Config, "ConfigInfo")
$To = GUICtrlCreateInput($ConfigInfo[1][1], 90, 50, 150)
$From = GUICtrlCreateInput($ConfigInfo[2][1], 90, 90, 150)
$LogFile = GUICtrlCreateInput($ConfigInfo[3][1], 90, 130, 150)
$Browse = GUICtrlCreateButton("Browse", 245, 127, 50)
$update = GUICtrlCreateCombo($ConfigInfo[4][1], 90, 170, 75)
GUICtrlSetData($update, "24 Hours|3 Days", "12 Hours")
Else
$To = GUICtrlCreateInput("", 90, 50, 150)
$From = GUICtrlCreateInput("", 90, 90, 150)
$LogFile = GUICtrlCreateInput("", 90, 130, 150)
$Browse = GUICtrlCreateButton("Browse", 245, 127, 50)
$update = GUICtrlCreateCombo("12 Hours", 90, 170, 75)
GUICtrlSetData($update, "24 Hours|3 Days", "12 Hours")
EndIf
$Save = GUICtrlCreateButton("Save and Arm", 100, 230, 100)
GUISetState(@SW_SHOW, $MainWindow)


While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Save
            Save()
        Case $Browse
            $Browse2 = FileOpenDialog("Select a log file", @AppDataDir, "All(*.*)")
            $LogFile = GUICtrlRead($Browse2)
    EndSwitch
WEnd

Func Save()
    $To = GUICtrlRead($To)
    $From = GUICtrlRead($From)
    $LogFile = GUICtrlRead($LogFile)
    $Update = GUICtrlRead($Update)
    $WriteToFile = "[ConfigInfo]" & @CRLF & "To=" & $To & @CRLF & "From=" & $From & @CRLF & "LogFile=" & $LogFile & @CRLF & "Update=" & $Update
    $Config = @ProgramFilesDir & "\Comodo\AntiDDOS\Config.ini"
    $Config2 = FileOpen($Config, 2)
    FileWrite($Config2, $WriteToFile)
    FileClose($Config2)
EndFunc

Edited August 10, 2007 by Mast3rpyr0

[ptrex]

@Mast3rpyr0

I am not using any COMODO Firewalls, but you might get some ideas from my Log Analyzer for XP.

Firewall Log Analyzer

Regards

ptrex

[JustinReno]

I use it, its pretty cool. Works nice..

[Mast3rpyr0]

@Mast3rpyr0

I am not using any COMODO Firewalls, but you might get some ideas from my Log Analyzer for XP.

Firewall Log Analyzer

Regards

ptrex

Thats a pretty nice program, especially for your first. I think that will do just nicely thanks.

[ptrex]

@Mast3rpyr0

You are welcome !!

Regards,

ptrex