.
und an alle HATER der Protect hält auch einer 1gb leitung stand da sich das program nicht mit den internet verbiendet und ein ddos nur die internetleitung angreift und nicht den root selbst(Als hardware), Sedrika kann es bezeugenQuote:
Func _GetConnectionFromPort($sPort = '80')
Local $sErgebnis, $aPort
Local $pid = Run(@ComSpec & " /c " & 'netstat -np TCP |findstr ":'&$sPort&'"', "", @SW_HIDE, $STDOUT_CHILD)
Do
$sErgebnis &= StdoutRead($pid)
Until @error
$aPort = StringSplit($sErgebnis, @CRLF, 3)
For $i = UBound($aPort) - 1 To 0 Step -1
If StringInStr($aPort[$i], 'HERGESTELLT') Then
$aPort[$i] = StringRegExpReplace($aPort[$i], '(\s+)(\S+)(\s+)(\S+)(\s+)(\S+):(\S+)(\s+)(\S+)', '$6')
ElseIf StringInStr($aPort[$i], 'WARTEND') Then
$aPort[$i] = StringRegExpReplace($aPort[$i], '(\s+)(\S+)(\s+)(\S+)(\s+)(\S+):(\S+)(\s+)(\S+)', '$6')
Else
_ArrayDelete($aPort, $i)
EndIf
Next
If Not IsArray($aPort) Then Return SetError(1, 0, "")
$check = ""
For $x = 1 to UBound($aPort)-1
$check &= $aPort[$x]&@CRLF
Next
$aFile = StringSplit($check, @CRLF,1)
Global $aCounts[$aFile[0] + 1]
Global $iCount = 0
For $x = 1 To $aFile[0]
If $aFile[$x] = "" Then ContinueLoop
$aCounts[$x] = 1
$iCount += 1
For $i = $x + 1 To $aFile[0]
If $aFile[$x] = $aFile[$i] Then
$aCounts[$x] += 1
$aFile[$i] = ""
EndIf
Next
Next
Global $aOutput[$iCount + 1][2]
$aOutput[0][0] = 1
For $x = 1 To $aFile[0]
If $aFile[$x] = "" Then ContinueLoop
$aOutput[$aOutput[0][0]][0] = $aFile[$x]
$aOutput[$aOutput[0][0]][1] = $aCounts[$x]
$aOutput[0][0] += 1
Next
Return $aOutput
EndFunc
Func _Check($ipbyarray,$mac = "50")
For $x = 0 to UBound($ipbyarray)-1
If $ipbyarray[$x][1] >= "50" Then
_checkBlockIP($ipbyarray[$x][0])
ConsoleWrite("BLOCKED "&$ipbyarray[$x][0]&@CRLF)
EndIf
Next
EndFunc
Func _Add($ip)
$command2 = "netsh ipsec static add filter filterlist=DDoS-Protect srcaddr=" & $ip & " dstaddr=Me"
$CMD = Run(@ComSpec & " /c " & $command2, @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
FileWrite("Log\Block.ini",$ip&@CRLF)
; netsh ipsec static add filter filterlist=DDoS-Protect srcaddr=85.181.236.179 dstaddr=Me"
EndFunc ;==>_Add
Func _checkBlockIP($ip)
$str = StringInStr(FileRead("Log\Block.ini"),$ip)
If $str = "0" Then
_Add($ip)
EndIf
EndFunc ;==>_checkBlockIP
Func _createIPsec()
Run(@ComSpec & " /c netsh ipsec static add filterlist name=DDoS-Protect", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
Sleep(1000)
Run(@ComSpec & " /c netsh ipsec static add filteraction name=BlockIP action=block", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
Sleep(1000)
Run(@ComSpec & " /c netsh ipsec static add filter filterlist=DDoS-Protect srcaddr=192.168.192.100 dstaddr=Me", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
Sleep(1000)
Run(@ComSpec & " /c netsh ipsec static add policy name=DDoS-Protec-Policy assign=yes", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
Sleep(1000)
Run(@ComSpec & " /c netsh ipsec static add rule name=DDoSProtectRule policy=DDoS-Protec-Policy filterlist=DDoS-Protect filteraction=BlockIP", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
Sleep(100)
Run(@ComSpec & " /c netsh ipsec static delete filter filterlist=DDoS-Protect srcaddr=192.168.192.100 dstaddr=Me", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
Sleep(1000)
IniWrite("Log\Settings.ls", "Create", "Policy", "1")
EndFunc ;==>_createIPsec