!ip [IP|NICK] Takip Kodu

Aytac

nicktag
Yönetici
Developer
Katılım
4 Şub 2020
Mesajlar
379
Tepkime puanı
50
Puanları
28
Konum
ircland
Web sitesi
www.ircalem.net
mIRC İp takip etme kodu;

Kod:
on *:input:#:{
  if $regex($1,/^[!.&-][ıiİ]p$/Si) { 
    if !$2 { msg # Lütfen Nick/IP belirtiniz. Kullanımı:4 !ip [IP|NICK] }
    elseif $regex($2,/\d+\.\d+\.\d+\.\d+/Si) {
      if !$isfile($+(IP/,$strip($2),.txt)) { msg # $+(,$strip($2),) IP'ine ait kayıt bulunamadı. | return }
      msg # =====" 2Nick "=====" 2Ident "=====" 2Action "=====" 2Saat "===== " 2Tarih "=====
      msg # -
      var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar {
        var %:read = $read($+(IP/,$strip($2),.txt),%:_ar)
        msg # 2-4 $token(%:read,2,32) - ID:2 $token(%:read,3,32) - Aksiyon:2 $token(%:read,4-,32) - Zaman:2 $token($token(%:read,1,32),2,191) -5 $iif($date == $token($token(%:read,1,32),1,191),Bugün,$token($token(%:read,1,32),1,191))
        dec %:_ar
      }
      msg # -
      msg # 4* Bilgi: $+(2,$strip($2),) IP'sine ait $+(4,$lines($+(IP/,$strip($2),.txt)),) adet kayıt sıralanmıştır.
      msg # ===============================================================
      msg # -
      .hadd -ms Ns-list $strip($2) #
      ns list $+(*@,$strip($2))
    }
    else {
      if !$isfile($+(IP/,$strip($2),.txt)) { msg # $+(,$strip($5),) Nick'ine ait kayıt bulunamadı. | return }
      msg # =====" 2IP "=====" 2Ident "=====" 2Action "=====" 2Saat "===== " 2Tarih "=====
      msg # -
      var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar {
        var %:read = $read($+(IP/,$strip($2),.txt),%:_ar)
        msg # 2-4 $token(%:read,2,32) - ID:2 $token(%:read,3,32) - Aksiyon:2 $token(%:read,4-,32) - Zaman:2 $token($token(%:read,1,32),2,191) -5 $iif($date == $token($token(%:read,1,32),1,191),Bugün,$token($token(%:read,1,32),1,191))
        dec %:_ar
      }
      msg # -
      msg # 4* Bilgi: $+(2,$strip($2),) Nick'ine ait $+(4,$lines($+(IP/,$strip($2),.txt)),) adet kayıt sıralanmıştır.
      msg # ===============================================================
      msg # -
    }
  }
}
on *:notice:*:?:{
  if ($nick == NickServ) {
    if $regex($1-,/uyan veriler:/Si) && $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { msg $hget(Ns-list,$regml(1))  $+(2,$regml(1),) IP'ine ait NickServ kayıtları. }
    elseif $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) && $hget(Ns-list,$regml(1)) { msg # $hget(Ns-list,$regml(1)) Nick:4 $strip($1) }
    elseif $regex($1-,/liste sonu/Si) { 
      $iif($4 == 0/0,msg $hget(NS-list,1).data NickServ de identify edilmiş nick bulunmamaktadır.) 
      .hfree -sw Ns-list
    }
  }
}

on *:snotice:*:{
  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5), %_hub $regml(1)
    var %_girs = $iif(%_hub == at,%_port HUB,$iif(%_port == 7005,Mobil,$iif(%_port == 1985,Web,IRC))) Girişi
    $iif(!$isdir(IP),.mkdir IP)
    .write $+(IP/,%_ip,.txt) $+($date,¿,$time) %_nick %_ident %_girs
    .write $+(IP/,%_nick,.txt) $+($date,¿,$time) %_ip %_ident %_girs
  }
  elseif $regex($1-,/his\/her nickname to/Si) { 
    var %_nk = $token($1-,-1,32), %_it $token($token($1-,1,64),2,40), %_ips $token($token($1-,2,64),1,41)
    $iif(!$isdir(IP),.mkdir IP)
    .write $+(IP/,%_ips,.txt) $+($date,¿,$time) %_nk %_it Nick Değişimi
    .write $+(IP/,%_nk,.txt) $+($date,¿,$time) %_ips %_it Nick Değişimi
  }
  elseif $regex($1-,/Permanent (.+) added for [email protected](.+) on.+from (.+)!.+/Si) { .hadd -msu15 IRC-Giris $regml(2) $regml(3) $regml(1) Uyguladı. }
  elseif $regex($1-,/Client exiting/Si) { 
    if $regex($1-,/Client exiting\: (.+) \((.+)@(.+)\) .+/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $regml(3) }
    elseif $regex($1-,/Client exiting at .+: (.+)!(.+)@(.+)/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) }
    var %:ban = $hget(IRC-Giris,%_cip)
    $iif(!$isdir(IP),.mkdir IP)
    .write $+(IP/,%_cip,.txt) $+($date,¿,$time) %_cnk %_cit $iif(%:ban,%:ban,Sunucudan Çıkış)
    .write $+(IP/,%_cnk,.txt) $+($date,¿,$time) %_cip %_cit $iif(%:ban,%:ban,Sunucudan Çıkış)
    $iif($hget(IRC-Giris,%_cip),.hdel -ms IRC-Giris %_cip)
  }
}
 
Üst