alias tor_ { if ($1) { inc %xx sockopen $+(tor*,%xx) rbls.org 80 sockmark $+(tor*,%xx) $1 } } on *:sockopen:tor*:{ var %s sockwrite -n $sockname %s GET / $+ $sock($sockname).mark HTTP/1.1 %s Host: rbls.org %s $crlf } on *:sockread:tor*:{ var %x [ $+ [ $sockname ] ] sockread %x [ $+ [ $sockname ] ] if (*<tr class="rblred">*tor.dan.me* iswm %x [ $+ [ $sockname ] ]) { swbot gline $+(*@,$sock($sockname).mark) - 4,1 • 14,1L4,1a14,1m4,1e14,1r Cl4,1ea14,1r Sy4,1s4,1t4,1e14,1m 4,1•  sockclose $sockname } if (*<tr class="rblred">*rbl.efnetrbl* iswm %x [ $+ [ $sockname ] ]) { swbot gline $+(*@,$sock($sockname).mark) - 4,1 • 14,1L4,1a14,1m4,1e14,1r Cl4,1ea14,1r Sy4,1s4,1t4,1e14,1m 4,1•  sockclose $sockname } } alias kontrol1 { if ($1) { var %xxx $rand(0,999999999999999999999999) sockopen $+(torr*,%xxx) anonymouse.org 80 sockmark $+(torr*,%xxx) $1 sockopen $+(dtor*,%xxx) rbls.org 80 sockmark $+(dtor*,%xxx) $1 sockopen $+(btor*,%xxx) anonymouse.org 80 sockmark $+(btor*,%xxx) $1 sockopen $+(ctor*,%xxx) anonymouse.org 80 sockmark $+(ctor*,%xxx) $1 } } on *:sockopen:torr*:{ var %s sockwrite -n $sockname %s GET /cgi-bin/anon-www.cgi/http://www.ircnet.com/cgi-bin/bl.cgi?ip= $+ $sock($sockname).mark HTTP/1.1 %s Host: anonymouse.org %s $crlf } on *:sockread:torr*:{ var %x [ $+ [ $sockname ] ] sockread %x [ $+ [ $sockname ] ] if (*listed in tor* iswm %x [ $+ [ $sockname ] ]) { if (%proxy == on) { swbot gline $+(*@,$sock($sockname).mark) - 4,1 • 14,1L4,1a14,1m4,1e14,1r Cl4,1ea14,1r Sy4,1s4,1t4,1e14,1m 4,1•  sockclose $sockname } } if (*listed in rbl* iswm %x [ $+ [ $sockname ] ]) { swbot gline $+(*@,$sock($sockname).mark) - 4,1 • 14,1L4,1a14,1m4,1e14,1r Cl4,1ea14,1r Sy4,1s4,1t4,1e14,1m 4,1•  sockclose $sockname } } on *:sockopen:dtor*:{ var %s sockwrite -n $sockname %s GET / $+ $sock($sockname).mark HTTP/1.1 %s Host: rbls.org %s $crlf } on *:sockread:dtor*:{ var %x [ $+ [ $sockname ] ] sockread %x [ $+ [ $sockname ] ] if (*<tr class="rblred">*opm.tornevall.org* iswm %x [ $+ [ $sockname ] ]) { swbot gline $+(*@,$sock($sockname).mark) - 4,1 • 14,1L4,1a14,1m4,1e14,1r Cl4,1ea14,1r Sy4,1s4,1t4,1e14,1m 4,1•  sockclose $sockname } if (*<tr class="rblred">*rbl.efnet* iswm %x [ $+ [ $sockname ] ]) { swbot gline $+(*@,$sock($sockname).mark) - 4,1 • 14,1L4,1a14,1m4,1e14,1r Cl4,1ea14,1r Sy4,1s4,1t4,1e14,1m 4,1•  sockclose $sockname } if (*<tr class="rblred">*dnsbl.ahbl.org* iswm %x [ $+ [ $sockname ] ]) { swbot gline $+(*@,$sock($sockname).mark) - 4,1 • 14,1L4,1a14,1m4,1e14,1r Cl4,1ea14,1r Sy4,1s4,1t4,1e14,1m 4,1•  sockclose $sockname } } on *:sockopen:btor*:{ var %s sockwrite -n $sockname %s GET /cgi-bin/anon-www.cgi/http://proxybl.org/lookup.do?ip= $+ $sock($sockname).mark HTTP/1.1 %s Host: anonymouse.org %s $crlf } on *:sockread:btor*:{ var %xx [ $+ [ $sockname ] ] sockread %xx [ $+ [ $sockname ] ] if (*There is an entry for the IP or ID * iswm %xx [ $+ [ $sockname ] ]) { swbot gline $+(*@,$sock($sockname).mark) - 4,1 • 14,1L4,1a14,1m4,1e14,1r Cl4,1ea14,1r Sy4,1s4,1t4,1e14,1m 4,1•  sockclose $sockname } } on *:sockopen:ctor*:{ var %s sockwrite -n $sockname %s GET /cgi-bin/anon-www.cgi/http://dronebl.org/lookup.do?ip= $+ $sock($sockname).mark HTTP/1.1 %s Host: anonymouse.org %s $crlf } on *:sockread:ctor*:{ var %xx [ $+ [ $sockname ] ] sockread %xx [ $+ [ $sockname ] ] if (*There have been listings for the host* iswm %xx [ $+ [ $sockname ] ]) { swbot gline $+(*@,$sock($sockname).mark) - 4,1 • 14,1L4,1a14,1m4,1e14,1r Cl4,1ea14,1r Sy4,1s4,1t4,1e14,1m 4,1•  sockclose $sockname } } alias torproxy { if ($1) { inc %x1 sockopen $+(mor*,%x1) rbls.org 80 sockmark $+(mor*,%x1) $1 } } on *:sockopen:mor*:{ var %m sockwrite -n $sockname %m GET / $+ $sock($sockname).mark HTTP/1.1 %m Host: rbls.org %m $crlf } on *:sockread:mor*:{ var %x [ $+ [ $sockname ] ] sockread %x [ $+ [ $sockname ] ] if *is listed in opm.tornevall.org* iswm %x [ $+ [ $sockname ] ] || *is listed in rbl.efnetrbl.org* iswm %x [ $+ [ $sockname ] ] || *is listed in tor.dan.me.uk* iswm %x [ $+ [ $sockname ] ] { swbot gline $+(*@,$sock($sockname).mark) - 4,1 • 14,1L4,1a14,1m4,1e14,1r Cl4,1ea14,1r Sy4,1s4,1t4,1e14,1m 4,1•  if !$read(tor.txt,w,$sock($sockname).mark) { write tor.txt $sock($sockname).mark } sockclose $sockname } }