[rootturkhacks.com~]
duyuru LiNK KISALTMAK / TEMA VEYA SCRiPT iSTEĞiNDE BULUNMAK YASAKTIR!
duyuru GiZLi iÇERiKLERE "asdafsdfsdf" TARZI YORUM YAPMAK BAN SEBEBIDIR !
hack forum

!ip [IP|NICK] Takip Kodu.

#1
Merhaba,
Gelişmiş bir nick/ip takip kodu oldu..

[Resim: kc0G76.png]

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 == [COLOR="Red"]7005[/COLOR],Mobil,$iif(%_port == [COLOR="red"]1985[/COLOR],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)
  }
}
Kırmızı olarak mobil ve web portu işaretledim onu kendinize göre düzenleyiniz.
imza
Ölmek için doğmuştur ya insan; O yüzden her yağmur sonrası Toprak kokusunu sever.
Alıntı
#2
Teşekkürler
imza
Kırık link ve kural ihlallerini ihbar ediniz
[Resim: QP9DEZ.jpg]
Alıntı


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Fullname Takip Sistemi Enyalios 0 15 10-25-2020, 01:26 PM
Son Mesaj: Enyalios
  Admin Nick, İdent, Host koruması Addon Enyalios 0 17 10-25-2020, 01:24 PM
Son Mesaj: Enyalios
  Standart Kanal Temizle Kodu Enyalios 0 13 10-25-2020, 01:22 PM
Son Mesaj: Enyalios
  Post Otomatik Nick ve Oper Şifresini Girmek isterseniz.Diyaloglu Sistem Enyalios 0 10 10-25-2020, 01:19 PM
Son Mesaj: Enyalios
  Spor Bulten Skor Takip Kodu Enyalios 0 15 10-23-2020, 03:32 PM
Son Mesaj: Enyalios



Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi
brazzers premium accounts izmit escort porno beylikdüzü escort avcılar escort porno cami halısı vdcasino vdcasino giriş ilbet casino siteleri taraftarium24 ilbet giriş kurtköy escort izmir escort izmir escort izmir escort