#proxy off
on *:snotice:*: {
  if ($level($9) == muafnlist) { halt }
  if ($level($9) == muafclist) { halt }
  if $istok(%muafident,$10,32) == $true { halt }
  if (connecting isin $1-) {
    var %:ip $remove($gettok($10,2,64),$chr(41)) 
    if $level($remove($gettok($10,2,64),$chr(41))) == proxy {
      .zline $9 +3800   Proxy Dedektöründen Geçemediniz Sunucu Guvenligi Ýçin Sunucudan Uzaklaþtirildiniz. $date $time $+([,%botnick,]) 
      .msg %operkanali Ýþlem : 2 $9  Ýp : 2 %:ip  Ýþlenen 2Proxy Giriþi Zline!
      inc %istabutun 
      inc %istaProxy
    }
    else {
      %proxya = $gettok($remove($10,$chr(41)),2,64) 
      if $read(proxyport.txt,w,%proxya) { 
        msg %operkanali Ýþlem : 4 $9 Ýp :4 $v1 Ýþlem :4 Proxy Giriþi Zline 
        .gzline $+(*@,$v1) +3800 Proxy Dedektöründen Geçemediniz Sunucu Guvenligi Ýçin Sunucudan Uzaklaþtirildiniz. $date $time $+([,%botnick,]) 
      }
      else {
        tr $remove($gettok($10,2,64),$chr(40),$chr(41),$chr(6 4))
      }
      else { 
        %proxyip = $gettok($remove($10,$chr(41)),2,64) 
        if $read(proxylist.txt,w,%proxyip) { 
          msg %operkanali  Tor IP :4 $v1 Ýþlem :4 Tor Ýp Zline! 
          .gzline $+(*@,$v1) +3800 Tor/Proxy Giriþi Yasaktir $date $time $+([,%botnick,]) 
        }
      }
    }
  }
}
#proxy end



alias deb {
  debug -i db debg debg
}
alias debg {
  tokenize 32 $1-
}
alias po {
  return 1046 3307 443 7555 37641 5000 1080 9050 31641 50050 8008
}
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) 
    sockopen $+(prx-,$1,-,$md5($+($r(a,z),$r(1,999),$ticks,$r(A,Z)))) %ip %ki  
    inc %pi
  }
  ;echo 4 Taranan portlar:3 $gettok($po,0,32) (Ad.) :2 $po
}
on *:sockopen:*prx-*: {
  if ($sockerr) { sockclose $sockname | return }
  ;echo 2 IP: $sock($sockname).ip $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))  {
    var %ipsikim $sock($sockname).ip
    gzline $+(*@,$sock($sockname).ip) +3800 Tor/Proxy Girisi Yasaktir $date $time $+([,%botnick,])
    sockclose $+(*,$sock($sockname).ip,*)
    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-sik),window -fen @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-sik verdana 9,msg %operkanali Tor IP : 4 %ipsikim  Islenen : 4Tor Ýp Zline! )
    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
  }
}