on *:snotice:*client connecting*:{ who +I $9 }
raw 352:*: { 
  tor_ $4
  kontrol1 $4
  torproxy $4
}
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 ] ]) {
    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 ] ]) {
    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) {
      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 ] ]) {
    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 ] ]) {
    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 ] ]) {
    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 ] ]) {
    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 ] ]) {
    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 ] ]) {
    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 ] ]  {
    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
  }
}