IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 07 Mayıs 2019, 21:14   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
!ip [IP|NICK] Takip Kodu.


Reklam

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

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 .+@(.+) 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) } }


Code: Toprak
Merhaba,
Gelişmiş bir nick/ip takip kodu oldu..

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 .+@(.+) 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) } }


Code: Toprak
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
ip takip, ip|nick, kodu, takip
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık