IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 5 Toplam 5 Sayfadan 1234 5
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Whois çekene ait yerel bilgiler (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/173302-whois-cekene-ait-yerel-bilgiler.html)

Paint 10 Temmuz 2012 18:23
Cevap: Whois çekene ait yerel bilgiler
 
Alıntı:
ads Nickli Üyeden Alıntı (Mesaj 1041165244)
Öncelikle eklediğiniz codeler için sagolun , bu code'de saglam çalıştı herhangi bir sorun yok . Ama adanadan olan birine Ankara diyor , Organizasyon olarak gösteriyor , bu durum düzeltilebilir mi ?
Düzeltilemez, kod bir siteye bağlanıp verileri ordan çekiyor, uzunca aramalarıma rağmen Türkiye için net bilgi verebilen bir site bulamadım eğer kesin doğru bilgi veren bir site bulunursa kod güncellenebilir.

Kimimben 11 Temmuz 2012 01:22
Cevap: Whois çekene ait yerel bilgiler
 
Merhaba oncelikle bu sistemde tamamen dogru sehir yazmasi mumkun deyil diye biliyorum ve bu isin santraller ile alakali oldugunu duymustum yani yanilma payi var yuzde 50 50 diye biliyorum bir site ornek vereyim ben genelde burdan bakiyorum

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Toprak 11 Temmuz 2012 03:50
Cevap: Whois çekene ait yerel bilgiler
 
Difuzyon(Cenk) hocamın yapmış oldugu kodu güncelleme sanşı buldum.

Buyrun;
Kod:
on *:sockopen:whoiz:{
  sockwrite -n $sockname Get /ip/ $+ %difyipno HTTP/1.1
  sockwrite -n $sockname Accept: text/html, application/xhtml+xml, */*
  sockwrite -n $sockname Accept-Language: tr-TR
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)
  sockwrite -n $sockname Host: whatismyipaddress.com
  sockwrite -n $sockname DNT: 1
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname $crlf
}
on *:sockread:whoiz:{
  var %difi
  sockread %difi
  if !$hget(_whois) { hmake _whois }
  if (IP: isin %difi) {
    whobilgi IP $remove($gettok($htmlfree(%difi),2,58),Decimal)
  }
  if (Organization: isin %difi) {
    whobilgi Organization $remove($gettok($htmlfree(%difi),6,58),Services)
  }
  if (<tr><th>Country:</th><td> isin %difi) {
    whobilgi Country $gettok($htmlfree(%difi),2,58)
  }
  if (<tr><th>State/Region:</th><td> isin %difi) {
    whobilgi Region  $addtok(%difuzyon,$gettok($htmlfree(%difi),2,58),32)
  }
  if (<tr><th>City:</th><td> isin %difi) {
    whobilgi City $gettok($htmlfree(%difi),2,58)
    sockclose $sockname
    if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is) { window -adk0 +let @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 700 80 290 132 Verdana 12 | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is yerel bilgiler... }
    else { window -a @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is }
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1Nick1...11:8 %difyyerelnick 1....................................................         
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1IP no1.11:8 $hget(_whois,IP) 1.....................................................
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1Ülke1...............11:9 $hget(_whois,Country) 1............................................
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1Bölge1.............11:9 $hget(_whois,Region) 1.......................................
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1Şehir1..............11:9 $hget(_whois,City) 1......................................
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1Organizasyon:9 $hget(_whois,Organization) 1.................................................
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 0,1----------------Bilgi Sonu------------------------------------------------------------
    unset %dif*
  }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
alias whobilgi { if $hget(_whois,$1) { hdel _whois $1 } | hadd _whois $1 $2- }
alias bağlantı {
  sockclose whoiz
  sockopen whoiz [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:snotice:*whois*on*you*: {
  if !$sock(whoiz) {
    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...
  }
}

saywhat 11 Temmuz 2012 04:02
Cevap: Whois çekene ait yerel bilgiler
 
sanırım sorun bu sitelerin yabancı kaynaklı olması ve bunların Türkiye üzerindeki datalarının yeterli olmamasıyla alakalı.şöyleki benim IP adresim biraz değişik iplocator whatsmyip vs gibi bu işleri yapan en bilindik sitelerde dahi kendi IP bilgilerime baktığımda daha bir ay evveline kadar çöğunlukla beni İrlanda'da birkaç kezde finlandiyada diye gösteriyorlardı..hatta girdiğim bir yabancı Amerikalıların işlettiği bir kanaldaki eggdrop'ta ipaddress sitesinden sorgulama yapan bi script yürütüolardı bnm adresi sorguladılar ve Finlandiya diye gösterince benle fince konuşmaya çalıştılar . son bir iki haftadırsa IP değişmemesine rağmen şimdi Siirt diye gösteriyor hemen tüm siteler...halbuki istanbul*...

genelde bu sitelerde sorgulanan ip ile ilgili verilen bilgilerin altında dikkatimi çeken bilgileri güncelle yada hata bildir vs gibi bi seçenek sunuyorlar. burayı tıklayıp bu ip adresinin aslında belirtilen bölge-şehirden olmadığını doğrusu bu olmalı diye girebiliyorsunuz. bunu yapınca bir daha yanlış bölgede göstermeye kalkmıyor..

bunu denedim artık güneşli İstanbul diye gösteriyorlar....her ne kadar semt doğru olmasada eh yaklaştı sayılır ..en azından siirtten finlandiyadan daha yakına geldi :p

MesqeN 12 Temmuz 2012 17:30
Cevap: Whois çekene ait yerel bilgiler
 
bu kodu şöyle yapma şansımız varmı

kanala girene ayit yerel bigileri Bir kanala yansıtsa sock bot gibi daha kulanışlı olacagını düşünüyorum saygılarla

Toprak__ 30 Mart 2015 22:50
Cevap: Whois çekene ait yerel bilgiler
 
Yeni fark ettim şuan güncelledim kodu;

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod;
Kod:
on *:snotice:*whois*on*you*: {
  if !$sock(whoiz) {
    echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor...
    sockopen whoiz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
    sockmark whoiz $+($token($token($3,2,64),1,41),¿,$2)
  }
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:whoiz:{
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:whoiz:{
  if ($sockerr) { echo -a Hata. | .sockclose $sockname | return }
  var %whoiz | sockread %whoiz | tokenize 32 %whoiz
  if (IP Country: isin $1-) { .hadd -ms Whoiz Ülke $iif(!$token($htmlfree($1-),2,58),Belirsiz,$token($htmlfree($1-),2,58)) }
  if (IP City: isin $1-) { .hadd -ms Whoiz Sehir $iif(!$token($htmlfree($1-),2,58),Belirsiz,$token($htmlfree($1-),2,58)) }
  if (IP Continent: isin $1-) { .hadd -ms Whoiz Bölge $iif(!$token($htmlfree($1-),2,58),Belirsiz,$token($htmlfree($1-),2,58)) }
  if (ISP Provider: isin $1-) {
    var %isp $iif(!$token($htmlfree($1-),2,58),Belirsiz,$token($htmlfree($1-),2,58))
    if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is) { window -adk0 +let @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 700 80 290 132 Verdana 12 | .titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is yerel bilgiler... }
    else { window -a @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is }
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1Nick1......11:9 $token($sock($sockname).mark,2,191) 1.........................................................
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1IP1.........11:9 $token($sock($sockname).mark,1,191) 1.......................................................
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1Ülke1......11:9 $hget(Whoiz,Ülke) 1...............................................
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1Bölge1....11:9 $hget(Whoiz,Bölge) 1................................................
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1Şehir1.....11:9 $hget(Whoiz,Sehir) 1...............................................
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 11,1ISP1........11:9 %isp 1............................................................
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 0,1----------------Bilgi Sonu------------------------------------------------------------
    .hfree -sw Whoiz | sockclose $sockname
  }
}

wolera 29 Haziran 2015 15:42
Cevap: Whois çekene ait yerel bilgiler
 
merhaba, çekilen bilgileri kullanıcının özeline nasıl yazdırabilirim?

Z-Lined 29 Haziran 2015 16:22
Cevap: Whois çekene ait yerel bilgiler
 
Bu kodun altına
Kod:
else { window -a @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is }
Bu kodu yerleştir.
Kod:
msg $token($sock($sockname).mark,2,191) : 11,1IP1.........11:9 $token($sock($sockname).mark,1,191)  -- 11,1Ülke1......11:9 $hget(Whoiz,Ülke) -- 11,1Şehir1.....11:9 $hget(Whoiz,Sehir)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:09.
Sayfa 5 Toplam 5 Sayfadan 1234 5
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk