IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Merhaba arkadaşlar.

Sunucumdaki #X kanalıma "sock botun" proxy olarak algılamadıklarını #Y ve #Z kanalına sajoin yapmasını istiyorum. Proxy algıladıklarını geçerli işlemi yapsın herhangi bir değişiklik önemli değil önemli olan proxy olmayanlari sajoinlemesi.

Kod sistemi aktif/deaktif edilebilsin. .proxy aktif komutundan bağımsız çalışacak şekilde olabilirse sevinirim.

Bunun için gerekli kodu verebilirseniz sevinirim. Teşekkür ederim.
Proxy koruma kodu

Kod:

#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

  }

}