raw 352:*:{   proxy $4 } on *:snotice:*Client connecting*: {   .who +I $9 } alias proxy {   var %rand $rand(0,99999)   sockopen $+(ktor,%rand)  
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80   sockmark $+(ktor,%rand) $1 }  on *:sockopen:ktor*: {   var %komut sockwrite -nt $sockname, %post $+(ip=,$sock($sockname).mark,&GO%21=GO%21)   %komut POST /ip_check HTTP/1.1   %komut Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Connection: keep-alive   %komut Content-Length: $len(%post)   %komut Cache-Control: max-age=0   %komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8   %komut Origin: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
User-Agent: Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.64 Safari/537.31   %komut Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Accept-Encoding: gzip,deflate,sdch   %komut Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4   %komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.3   %komut Cookie: PHPSESSID=90b5ae6ed385b312ea3dcccb50c126e1; ck_lang=en; __atuvc=18%7C1   %komut    %komut %post } on *:sockread:ktor*: {   var %x | sockread %x | tokenize 32 %x   if $regex($1-,/(XBL|SBL|XBL|SPAMCOP|CBL|NJABL|SURBL|HTTP:BL).+red/i) {     gzline $+(*@,$sock($sockname).mark) 1h 1IP adresinizde 4PROXY 1girişi tespit edilmiştir.     if !$window(@prxy-tor) { window -neg1 @prxy-tor } | echo @prxy-tor ( $+ $time $+ ) $+(4 $chr(32),$sock($sockname).mark),$chr(32)) 1IP adresinizde 4PROXY 1girişi tespit edilmiştir.      sockclose $sockname         halt   } }

on *:snotice:*Client connecting*:if $remove($8,:) == 6669 { .who +I $9 }

on *:snotice:*client connecting*:{
  var %s = $left($10,-1) 
  if ip-pool.com isin %s { halt }
  if club-internet.fr isin %s { halt }
  if hinet.net isin %s { halt }
  if netcologne.de isin %s { halt }
  if turkmetro.net isin %s { halt }
  if bgwan.com isin %s { halt }
  if telenet.be isin %s { halt }
  if optonline.net isin %s { halt }
  if unitymediagroup.de isin %s { halt }
  if $regex(%s,/(net|com|org|hr)\b) { gzline $9 3d 14Host Banned

if $remove($8,:) == 6669 { return }

alias po {
  return 3128 8080 22 1080 80 3124 6588 9090 80
}
alias to { return 10 }
alias tr {
  set %prx $ticks | .dns $1 
  set %ip  $1 | var %pi = 1
  while (%pi < $gettok($po,0,32)) {
    var %ki = $gettok($po,%pi,32) 
    var %pxn  $+(prx-, $left($md5($+($r(a,z),$r(1,999),$ticks,$r(A,Z))),$r(2,30) ),=,$1)
    sockopen %pxn %ip %ki  
    $+(.timer,%pxn) 1 $to .sockclose %pxn 
    inc %pi
  }
  ; echo 4Taranan portlar:3 $gettok($po,0,32) (Ad.) :2 $po
}
on *:sockopen:prx-*: {
  if ($sockerr) { sockclose $sockname | return }
  echo 2 $chr(32)4PORT: $sock($sockname).port 4TIP: $sock($sockname).type 4AÇIK\KAPALI: $portfree($sockerr) 4HATA\WS_Err: $sock($sockname).wserr 4MESAJ\WS_Msg: $sock($sockname).wsmsg 
  if ($portfree($sockerr)) && (o isincs $usermode) {

    ; gzline $+(*@,$sock($sockname).ip) 1D Proxy yasaktir.- $+ $left($sock($sockname).ip,-3) $+ ***: $+ $sock($sockname).port 

    return
  }
  .sockclose $sockname
}

on *:sockread:prx-*:{ 
  if ($sockerr > 0) { echo :HATA: $sock($sockname).wserr | return }
  echo 4 -s :---> $sock($sockname).ip $sock($sockname).port 
  sockclose  $sockname
}
on *:dns:{
  if (%prx) {
    var %di = $dns(0)
    while (%di > 0) {
      echo 2 $chr(32) 4DNS: $dns(%di) 4ADRES: $dns(%di).addr \ $dns(%di).ip
      dec %di
    }
    unset %prx | unset %ip
    halt
  }
  unset %prx | unset %ip
}

on *:SNOTICE:*Client*connecting*:if !$regex($left($8,-1),(665(6|7|8|9)))) { who $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-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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
  }
}