Whois çekene ait yerel bilgiler - Sayfa 5 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Paint · 10 Temmuz 2012, 18:23

ads Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ö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

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...]

11 Temmuz 2012, 03:50

Difuzyon(Cenk) hocamın yapmış oldugu kodu güncelleme sanşı buldum.

Buyrun;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

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

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

Yeni fark ettim şuan güncelledim kodu;

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

merhaba, çekilen bilgileri kullanıcının özeline nasıl yazdırabilirim?

Z-Lined · 29 Haziran 2015, 16:22

Bu kodun altına

Kod: Kodu kopyalamak için üzerine çift tıklayın!

else { window -a @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is }

Bu kodu yerleştir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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)

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Whois Çekene Uyarı	GLamouR	mIRC Scripting Sorunları	9	28 Mayıs 2015 14:27
Whois Çekene Uyarı...	NucLeaR	mIRC Scripting Sorunları	45	19 Kasım 2010 16:59
whois çekene uyarı beraber Sajoin ve 2 kere whois kill olmasını istiyorum nasıldı ?	Rekor37	mIRC Scripting Sorunları	1	06 Haziran 2009 15:34
whois çekene fjoin	KatLiamm	mIRC Scripting Sorunları	10	10 Ekim 2007 01:53
Whois Çekene Karşılama..	By`BiLaL	mIRC Scripting Sorunları	6	17 Mayıs 2007 03:32

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.