Ok, can someone give me a list of known bad ip address?
User agent strings are getting less reliable for weeding out spammers mainly because they can easily spoofed and that increasingly we are seeing more 'mechanical turks' being employed. Hapless souls who think that they can earn a living posting links or harvesting email addresses at one cent a time.
<%
'declare variables
Dim sIP
Dim sIParray(40)
'assign our blocked IP addresses to our array
sIParray(0) = "84.108.121.252"
sIParray(1) = "87.118.108.40"
sIParray(2) = "88.119.247.27"
sIParray(3) = "89.139.190.183"
sIParray(4) = "91.207.225.2"
sIParray(5) = "94.102.63.15"
sIParray(6) = "212.95.54.175"
sIParray(7) = "194.8.75.206"
sIParray(8) = "212.178.15.201"
sIParray(8) = "194.8.75.155"
sIParray(8) = "194.8.75.64"
sIParray(9) = "91.64.167.67"
sIParray(10) = "84.178.3.101"
sIParray(11) = "194.8.75.157"
sIParray(12) = "194.8.74.53"
sIParray(12) = "188.163.41.9"
sIParray(13) = "194.8.74.124"
sIParray(14) = "89.149.244.88"
sIParray(15) = "194.8.75.155"
sIParray(16) = "60.19.24.7"
sIParray(17) = "188.134.40.30"
sIParray(18) = "194.8.75.151"
sIParray(19) = "217.162.98.26"
sIParray(20) = "194.8.75.96"
sIParray(21) = "89.28.114.111"
sIParray(22) = "213.219.103.117"
sIParray(23) = "94.102.63.13"
'retrieve the visitors IP address
sIP = Request.ServerVariables("REMOTE_ADDR")
'loop through the banned IPs using the UBound function
For i = 0 to UBound(sIParray)
'check if IP address matches any of the blocked IPs
If sIP = sIParray(i) Then
Response.Redirect "browser closer.html"
End If
Next
%>
There are other ways of doing this, htaccess for instance.
Incidently these are all fresh spammer IPs from the last few days from my forum.
--------------------------------------------------------------------
Add a little more flavour to the access denied page with a nifty little bit of perl script or even javascript that will crash the offending browser for good measure.
--------------------------------------------------------------