Spam Email Addresses for Spam Email Address BotsThis page is an example of a tactic that can be used to make crawler bots less effective.
It randomly generates 60 bogus email addresses, and puts them in the easiest format for
crawlers to find, the mailto: HTML link.
Junk E-mail #1-20:cVIHDCc@microsoft.com webmaster-or-mistress@worldbank.org AKrFRwC.smith@123greetings.com GiKkY@gcaqwpjn.com.bd pFslUx@123greetings.com VWrUjx.jones@hn-qmdhqkoa.co.uk txkwfM@urtqp.com dLNnX@microsoft.com mCAhaT@microsoft.com VtUc@zkpjllgr.pro webmaster-or-mistress@aol.co.uk XxTA.quim@123greetings.com zqCtdiMH@fuocize.co.uk KcO.smith@123greetings.com YckDzNHG@owwqi-r.info nJaybLS@wsc-j.info lsLiz@123greetings.com jT@aol.co.uk pubSH.jones@aol.com OSoeZ@aol.com I am a stupid clawler bot. I am still hungry. Feed me more!
Crawler bots will hungrily devour all these email addresses, only to find later that their
address database is full of useless spam. Populating the spammers databases' like this will
slightly decrease the effectiveness of crawling the web for addresses, making it more
work for less money. If you own a webpage, it is easy to make a page that does this,
if you feel like helping to decrease the effectiveness of spammers'
methods. Below is the ASP code that makes this page:
dim d(28)
d(0) = "ormita.com.au"
d(1) = "microsoft.com"
d(2) = "msn.com"
d(3) = "aol.com"
d(4) = "yahoo.com"
d(5) = "aol.co.uk"
d(6) = "123greetings.com"
d(7) = "worldbank.org"
d(8) = ".org"
d(9) = ".net"
d(10) = ".name"
d(11) = ".co.uk"
d(12) = ".dk"
d(13) = ".com.bd"
d(14) = ".info"
d(15) = ".com"
d(16) = ".de"
d(17) = ".tv"
d(18) = ".ws"
d(19) = ".pro"
d(20) = "sales"
d(21) = "accounting"
d(22) = "plutocrats"
d(23) = "webmaster-or-mistress"
d(24) = "bot.handlers"
d(25) = "spam-mongers"
d(26) = "advertising"
d(27) = "sales-team"
d(28) = "marketing"
if (request.querystring("page")>0) then
pageno= request.querystring("page")
else
pageno=0
end if
response.write "Junk E-mail #" & 1+pageno*20 & "-" & 20+pageno*20 & ":"
randomize
for address = 1 to 20
temp=""
n = 12+int(rnd*90)
select case n
case 20,21,22,23,24,25,26,27,28
temp = d(n)
case else
j=int(rnd*6)+ int(rnd*2)+int(rnd*2)+int(rnd*2)+2
for c = 1 to j
k = int(rnd*52)
if (k > 25) then k=k+6
temp = temp & chr(65+k)
if (rnd>0.96) and c0.93) then temp=temp & ".smith"
if (rnd>0.97) then temp=temp & ".jones"
temp = temp & "@"
i = int(rnd*20)
select case i
case 0,1,2,3,4,5,6,7
temp = temp & d(i)
case else
j = int (rnd*3)+ int (rnd*3)+ int(rnd*2)+ int(rnd*2)+ int(rnd*2)+ int(rnd*2)+ int(rnd*2)+ int(rnd*2)+ int(rnd*2)+2
for c = 1 to j
temp = temp & chr(97+int(rnd*26))
if (rnd>0.92) and c"&temp;&" "
next
Response.Write " I am a "
for i = 1 to pageno
response.write "very "
next
Response.Write "stupid clawler bot. I am still hungry. Feed me more! "
|