on *:snotice:*client connecting*:{ who +I $9 }
raw 352:*:{ proxy $4 }
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 ] ]) {
/msg #kontrol [BILGI] Giren [Nick: %proxynick ] [ IP : %proxyip   ][Proxy Girisi]
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 ] ]) {
/msg #kontrol [BILGI] Giren [Nick: %proxynick ] [ IP : %proxyip   ][Proxy Girisi]
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) {
/msg #kontrol [BILGI] Giren [Nick: %proxynick ] [ IP : %proxyip   ][Proxy Girisi]
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 ] ]) {
/msg #kontrol [BILGI] Giren [Nick: %proxynick ] [ IP : %proxyip   ][Proxy Girisi]
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 ] ]) {
/msg #kontrol [BILGI] Giren [Nick: %proxynick ] [ IP : %proxyip   ][Proxy Girisi]
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 ] ]) {
/msg #kontrol [BILGI] Giren [Nick: %proxynick ] [ IP : %proxyip   ][Proxy Girisi]
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 ] ]) {
/msg #kontrol [BILGI] Giren [Nick: %proxynick ] [ IP : %proxyip   ][Proxy Girisi]
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 ] ]) {
/msg #kontrol [BILGI] Giren [Nick: %proxynick ] [ IP : %proxyip   ][Proxy Girisi]
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 ] ]) {
/msg #kontrol [BILGI] Giren [Nick: %proxynick ] [ IP : %proxyip   ][Proxy Girisi]
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 ] ] {
/msg #kontrol [BILGI] Giren [Nick: %proxynick ] [ IP : %proxyip   ][Proxy Girisi]
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
}
}