IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi

Toprak · 04 Ekim 2014, 01:34

c00 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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 {
      .gzline $9 +3800   Proxy Dedektöründen Geçemediniz Sunucu Guvenligi İçin Sunucudan Uzaklaştirildiniz. $date $time $+([,%botnick,]) 
      .msg %operkanali [BILGI][ IP :  $10   ][ NICK :  $9 ][Proxy Girisi][Users]
      inc %istabutun 
      inc %istaProxy
    }
    else {
      %proxya = $gettok($remove($10,$chr(41)),2,64) 
      if $read(proxyport.txt,w,%proxya) { 
        .msg %operkanali [BILGI][ IP :  $10  ][ NICK :  $9 ][Proxy Girisi][Proxyport.Txt] 
        .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 [BILGI][ IP :  $10  ][ NICK :  $9 ][Proxy Girisi][Proxylist.Txt] 
          .gzline $+(*@,$v1) +3800 Tor/Proxy Girişi Yasaktir $date $time $+([,%botnick,]) 
        }
      }
    }
  }
}

123.123.54.55:1080
21.53.100.55:1090

Proxyport.txt içindeki proxyler böyle, kırmızı ile işaretledigim yer dogrumu acaba .

Mavi renk ile işaretledigim yeri proxy hash olarak cekecem proxyleri oraya proxy hash atma komutu nasil ekleyebilirim şimdiden yardımcı olacaklara tşklerimi sunuyorum .

Buyur bu kadar kısaltalım kodu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:snotice:*Client connecting on port*: {
  var %:nick $9, %:ident $token($token($10,1,64),1,40), %:ip $token($token($10,2,64),1,41)
  if ($level(%:nick) == muafnlist) || if ($level(%:nick) == muafclist) || $istok(%muafident,%:ident,32) { return }
  if $level(%:ip) == proxy || $read(proxyport.txt,w,$+(*,%:ip,*)) || $hget(Proxy,%:ip) {
    .gzline $+(*@,%:ip) +3800   Proxy Dedektöründen Geçemediniz Sunucu Guvenligi İçin Sunucudan Uzaklaştirildiniz. $date $time $+([,%botnick,]) 
    .msg %operkanali [BILGI][ IP :  %:ip   ][ NICK :  %:nick ][Proxy Girisi]
    .inc %istabutun | .inc %istaProxy
    return
  }
  .tr %:ip
}