NetForumlari Nacizane  Paylasim Platformu NetForumlari Nacizane  Paylasim Platformu


Go Back   NetForumlari Nacizane Paylasim Platformu > IRC • mIRC • Hosting • Genel IRCD > mIRC Scripting ( Genel ) > Hazır Kodlar



Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
Paylaş LinkBack Seçenekler Stil
Alt 05-02-11, 13:19   #1
PeriLice - ait Kullanıcı Resmi (Avatar)
Üyelik tarihi: Sep 2009
Yaş: 25
Mesajlar: 3.735
Konular: 2310
Aldığı Teşekkür : 1
NF Puanı : 11293
NF Seviyesi : PeriLice has a reputation beyond repute PeriLice has a reputation beyond repute PeriLice has a reputation beyond repute PeriLice has a reputation beyond repute PeriLice has a reputation beyond repute PeriLice has a reputation beyond repute PeriLice has a reputation beyond repute PeriLice has a reputation beyond repute PeriLice has a reputation beyond repute PeriLice has a reputation beyond repute PeriLice has a reputation beyond repute
Whois çekene ait yerel bilgiler

Kodun amacı:

+W modesine sahip (Helper,Oper,Admin vs vs) biri iseniz ve size whois çekildiğinde,
-irc.Sunucu.com- *** L4roXyL (asas@78.190.73.236) did a /whois on you.
şeklinde uyarı alıyorsanız koddan yararlanabilirsiniz.
Size whois çekenin ip no'sundan hareketle [Link Görmek ve Forumumuzdan Yararlanmak İçin Üye Olmasınız. ] adresinden yerel bağlantı bilgilerini size sunacaktır.

Bu resim yeniden boyutlandırılmıştır.Orjinal boyutunda görmek için tıklayın. Resmin Orjinal Boyutu 1360x768 80KB.


Kod:
on *:sockopen:whoiz:{ sockwrite -n $sockname GET /index.php?query= $+ %difyipno HTTP/1.1 sockwrite -n $sockname Host: www.iplocation.net $+ $crlf $+ $crlf sockwrite -n $sockname $clrf } on *:sockread:whoiz:{ if ($sockerr) { echo -a Veri alımında Hata oluştu. | halt } else { var %difi sockread %difi if (*Country*Region*City* iswm %difi) { set %dify $htmlfree($replace(%difi,</td>,$chr(32))) } elseif (*Registry*Information* iswm %difi) { sockclose whoiz if $regex(%dify,/Region City ISP (.+) Google Map for.+Geolocation data from/i) { set %difuzyon $regml(1) if !$window(@Whois) { window -adk0 +let @Whois 700 80 290 132 Verdana 12 | titlebar @Whois yerel bilgiler... } else { window -a @Whois } aline @Whois 11,1Nick1...11:8 %difyyerelnick 1.................................................... aline @Whois 11,1IP no1.11:8 $token(%difuzyon,1,32) 1..................................................... aline @Whois 11,1Ülke1...............11:9 $token(%difuzyon,2,32) 1............................................ aline @Whois 11,1Bölge1.............11:9 $token(%difuzyon,3,32) 1....................................... aline @Whois 11,1Şehir1..............11:9 $token(%difuzyon,4,32) 1...................................... aline @Whois 11,1Organizasyon:9 $token(%difuzyon,5-,32) 1................................................. aline @Whois 0,1----------------Bilgi Sonu------------------------------------------------------------ unset %dif* } } } } alias bağlantı { sockclose whoiz sockopen whoiz www.iplocation.net 80 } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) return %x } on *:snotice:*whois*on*you*: { if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) { hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41)) set -e %difyipno $remove($token($3,2,64),$chr(41)) set -e %difyyerelnick $2 bağlantı echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor... } }

Size whois çeken nick için 1 defa işlem yapmaktadır(flood olayına engel olmak için).

Resimde 2 türlü görüntü bir aradır.Bir tanesi window(pencere) diğer ise tip(baloncuk).
Yukarıdaki kod sadece window(pencere) halinde görünüm sağlamaktadır.
Şayet mirciniz destekliyorsa tip(baloncuk) olarak görmek isterseniz kod içerisinde mavi kısmı siler aşağıdaki dizinleri yerine eklersiniz.
Her ikisinide görmek istiyorsanız mavi kısmın hemen üstüne aşağıdaki kodu ilave edersiniz.



Görünüm seçeneklerini biraz daha arttırarak kendinize göre de düzenleyebilirsiniz.

İşinize yaraması dileğiyle...
Hoşca paylaşımlar

Alıntıdır.(Difuzyon' a teşekkürler)
PeriLice isimli Üye şimdilik offline konumundadır  
Alıntı ile Cevapla
Cevapla

Sosyal Ağlar

Etiketler
ait , bilgiler , cekene , whois , yerel


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
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


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Whois Sajoin JuSt Hazır Kodlar 0 16-03-09 13:00
Whois Sajoin FreeStiLL Hazır Kodlar 0 18-02-09 18:18
Whois Çekene Ait Yerel Bilgiler Jin Hazır Kodlar 0 10-02-09 23:41
İmzasını geri çekene 100 bin dolar ! Şirine Flash Haberler 0 19-12-08 13:50
Whois Raw huLk Hazır Kodlar 2 29-01-08 11:42


Forum Yasal Uyarı

Powered by vBulletin® Version 3.8.7 .
Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO 3.6.0 RC 2

İçerik sağlayacı paylaşım sitelerinden biri olan NetForumlari.COM Adresimizde 5651 Sayılı Kanun'un 8. Maddesine ve T.C.K'nın 125. Maddesine göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur. NetForumlari.COM hakkında yapılacak tüm hukuksal Şikayetler, Yöneticilerimiz ile iletişime geçilmesi yada iletişim formunu doldurulması halinde ilgili kanunlar ve yönetmelikler çerçevesinde en geç 1 (Bir) Hafta içerisinde NetForumlari yönetimi olarak tarafımızdan gereken işlemler yapılacak ve size dönüş sağlanacaktır. info@netforumlari.com
hastaneler | cikcik | tivitır | güzel sözler | ankara avukat