Tekil Mesaj gösterimi
Alt 26 Mayıs 2013, 01:53   #1
Çevrimdışı
cashmare
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
/nerden ip farklı bi soru ?




S.a arkadaşlar
Şöyle bişeyi nasıl yapabiliriz..

!nerden ip yaptıgım zaman bi ipin bilgileri cıkıyor.. ükle şehir v.s

örnegin

[01:46] <xx> Host: e178088121.adsl.alicedsl.de
[01:46] <xx> Ulke: Germany
[01:46] <xx> Ulke Kodu: DEU
[01:46] <xx> Kita: Europe
[01:46] <xx> Bolge: Berlin
[01:46] <xx> Sehir: Berlin
[01:46] <xx> Organizasyon: Telefonica Germany
[01:46] <xx> Servis Saglayici: Alice DSL

Şimdi yapmak istedigim şu aşagıdaki code ye açma kapama ekleyip
!takipet ip yazdıgım zaman koruma acılcak ve

Sehir
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
erlin yazan bütün ipleri gzline ile uzaklaştırıcak. yani berlin yazıyosa şehrinde. böyle bişeyi nasıl yapabiliriz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias nerden { if $sock(yerbul) { sockclose yerbul } sockopen yerbul
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 } on *:input:#: { if $regex($regsubex($1-,/[[:cntrl:]]/g,return halt),/^((!|.)nerden\40\S+)$/i) { if $regex($2,^\d) { .set -e %nrd $2 | set -e %c_n $chan .nerden } else { .userip $2 .enable #nrdn set -e %c_n $chan } } } on *:sockopen:yerbul:{ sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1 sockwrite -n $sockname host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf } on *:sockread:yerbul: { if ($sockerr) { /msg %c_n Bağlantı Hatası Oluştu! | halt } var %yerbul sockread %yerbul if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { /msg %c_n 2Host:4 $regml(hst,2) } if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { /msg %c_n 2Ulke:4 $regml(cnt,2) } if $regex(cod,%yerbul,/^(<\151>\111\120\40\S{7}\40\S{4}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Ulke Kodu:4 $regml(cod,2) } if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Kita:4 $regml(kta,2) } if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Bolge:4 $regml(rgn,2) } if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Sehir:4 $regml(cty,2) } if $regex(org,%yerbul,/^(<\151>\117\S{11}\72</\151>\40<\142>(.+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Organizasyon:4 $regml(org,2) } if $regex(iss,%yerbul,/^(<\151>\111\123\120\40\S{8}\72</\151>\40<\142>(.+)</\142><\142\162\40\/><\142\162\40\/>)$/i) { /msg %c_n 2Servis Saglayici:4 $regml(iss,2) } } #nrdn off raw 340:*: { if (!$2) { /msg %c_n Sorgulanan Nick Sunucuda bulunmuyor. | goto down } set -e %nrd $regsubex($2,/.+\100(\d+\56\d+\56\d+\56\d+)$/g,\1) .nerden :down .disable #nrdn .halt } #nrdn end


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet