FTP Login-Versuche limitieren

I would also make sure that IPS is on for FTP servers.

:TOP

if exist diff.txt del diff.txt

for /f %%f in ('dir /od C:\WINDOWS\system32\LogFiles\MSFTPSVC1 /b/s') do @set t11=%%f

if exist current.log fc %t11% current.log > diff.txt

findstr /c:"PASS - 530" diff.txt 

if not errorlevel 1 call cscript autobanftp.vbs diff.txt >> autoban.log

copy %t11% current.log /y



sleep 10

goto :TOP

Const ForReading = 1

Dim ips

Set counts = CreateObject("Scripting.Dictionary")

Set objFSOstats = CreateObject("Scripting.FileSystemObject")

Set objFTPSVC = GetObject("IIS://localhost/MSFTPSVC")

Set objFTPIPSec = objFTPSVC.IPSecurity



If Wscript.Arguments.Count > 0 Then

strFlag = Wscript.arguments.Item(0)

End If



If IsEmpty(strFlag) Then                'No arguments have been received

wscript.echo "Must supply an filename"

wscript.quit

End If



Set objTextFile = objFSOstats.OpenTextFile(strflag, ForReading)



'Read each line and count the number for badpass login attempts per IP

i=0

Do Until objTextFile.AtEndOfStream

    i=i+1

    logline = objTextFile.Readline

    If InStr(logline,"PASS - 530") Then 

     parsevar=split(logline)

     If not counts.exists(parsevar(2)) Then 

     counts.add parsevar(2),1 

     wscript.echo "*****"

     wscript.echo "New IP: " & parsevar(2)

     Else 

     counts(parsevar(2))=counts(parsevar(2))+1

    End If

     End If

Loop



For each ip in Counts.keys

tempd=date()

tempt=Time()

wscript.echo tempd,tempt

wscript.echo "Counteed " &  counts(ip) & " failed logons on IP: " & ip

If counts(ip) > 5 Then 

'Kill the route to the machine then add it to the array of banned IPs.

wscript.echo "Killing route for ip: " & ip 

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "ROUTE ADD " & ip & " MASK 255.255.255.255 192.168.1.2", 1, True

Set WshShell = Nothing

ftpban(ip)

End If

Next





Sub ftpban(ipaddress)

'Append the newly banned IPs to the currently banned IPs  



nogo=0 ' Dont do the ban if the address is already in the deny list

bannedIPArray = objFTPIPSec.IPDeny

  Dim newiparray()

  ReDim newiparray(ubound(bannedIPArray)+1)

  'wscript.echo newiparray(ubound(bannedIPArray)+1)

  For i = 0 to ubound(bannedIPArray)

newiparray(i)=bannedIPArray(i)

   'wscript.echo i,newiparray(i)

   clientIP = Left(bannedIPArray(i),InStr(bannedIPArray(i),",")-1)

   If ipaddress = ClientIP Then nogo=1

  Next



If not nogo=1 Then 



newiparray(ubound(bannedIPArray)+1)= ipaddress & ",255.255.255.255"

wscript.echo "Banned: " &ipaddress & ",255.255.255.255"



objFTPIPSec.IPDeny = newiparray

objFTPSVC.IPSecurity = objFTPIPSec

objFTPSVC.SetInfo    

End If

End Sub