Nick’in Ülke Şehirini Bulma





Benzer bir kodu daha öncesinde vermiştik bu biraz daha kesin sonuçlar vermektedir, başlıktan da anlayacağınız üzere bir nicke ait Ülke ve Şehir’i size vermektedir.

Bu kesin bir yöntem değildir, Avrupa ülkelerinde internet sabit IP üzerinden çalışmaktadır bu demektirki, her internet bağlantısının kendine ait bir IP adresi var fakat Türkiye de bu iş böyle değildir, her modemi kapatıp açtığınızda size farklı bir IP atanmaktadır, örnek vermek gerekir ise siz Izmirden bağlanıyorsunuz diyelim, modemi kapatıp açtınız Izmir’deki IP blogunda hiç boş IP kalmadı ise sizi en yakın veri merkezine aktarır muhtemel Manisa ya da Aydın, böylece Izmir’den bağlansanızda Şehiriniz, Manisa ya da Aydın görünecektir, bu bilgiler internet bağlantınızın çekildiği yerdir. Fakat melissadata sitesi çok güncel bir sitedir, Şehir ve Ülkelerde en yüksek oranda doğruluğu bi site sayesinde alabilirsiniz.

Kodumuz:

!! KODU KOPYALA !!
CODE:

  1. raw 340:*:{
  2. if $2- == $null { msg #opers Ulkesine Baktiginiz Nick – %ulkenick -  Sunucumuzda Online Degil, Lütfen Baska Bir Nick Deneyiniz. | halt }
  3. set %ulkenick $remove($gettok($2-,1,61),*)
  4. set %ulkeip $gettok($2-,2,64)
  5. ulkebul
  6. halt
  7. }
  8. alias ulkebul {
  9. sockclose ulke
  10. sockopen ulke <a href=“http://www.melissadata.com/” target=“_blank”>www.melissadata.com</a> 80
  11. }
  12. on *:sockopen:ulke:{
  13. if ($sockerr) { msg #opers İşlem Gerçekleştirilemedi Lütfen Daha Sonra  Tekrar Deneyin | halt }
  14. sockwrite -n $sockname GET /lookups/iplocation.asp?ipaddress= $+ %ulkeip  HTTP/1.1
  15. sockwrite -n $sockname Host: <a href=“http://www.melissadata.com/” target=“_blank”>www.melissadata.com</a> $+ $crlf $+ $crlf
  16. sockwrite -n $sockname $clrf
  17. }
  18. on *:sockread:ulke:{
  19. var %ulkeoku
  20. sockread %ulkeoku
  21. if (%ulkeoku != $null) {
  22. if (*&gt;City&lt;* iswm %ulkeoku) { msg #opers %mesajnick 2 $+  %ulkenick Sehir :4 $remove(%ulkeoku,&lt;tr&gt;&lt;td  align=“right”&gt;City&lt;/td&gt;&lt;td&gt;&lt;b&gt;,&lt;/b&gt;&lt;/td&gt;&lt;/tr&gt;,  ) }
  23. if (*State*or*Region* iswm %ulkeoku) { msg #dns %mesajnick 2 $+  %ulkenick Bolge :4 $remove(%ulkeoku,&lt;tr&gt;&lt;td  align=“right”&gt;State or  Region&lt;/td&gt;&lt;td&gt;&lt;b&gt;,&lt;/b&gt;&lt;/td&gt;&lt;/tr&gt;, )  }
  24. if (*&gt;Country&lt;* iswm %ulkeoku) { msg #dns %mesajnick 2 $+  %ulkenick Ulke :4 $remove(%ulkeoku,&lt;tr&gt;&lt;td  align=“right”&gt;Country&lt;/td&gt;&lt;td&gt;&lt;b&gt;,&lt;/b&gt;&lt;/td&gt;&lt;/tr&gt;,  ) }
  25. if (*&gt;ISP&lt;* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick  Baglandigi ADSL :4 $remove(%ulkeoku,&lt;tr&gt;&lt;td  align=“right”&gt;ISP&lt;/td&gt;&lt;td&gt;&lt;b&gt;,&amp;nbsp;&lt;/b&gt;&lt;/td&gt;&lt;/tr&gt;,  ) | sockclose $sockname }
  26. }
  27. }
  28. on *:text:*:#opers:{
  29. if ($1 == !ulke) {
  30. if ($sock(ulke)) { msg #kanal Suanda Baska Bir Nick‘in Bilgilerine  Bakiliyor Lütfen Daha Sonra Tekrar Deneyin | halt }
  31. set %ulkenick $remove($2,*)
  32. set %mesajnick $nick
  33. userip $2
  34. msg $chan Lütfen Bekleyiniz…
  35. msg $chan $2 Nick’inin ISP Adresi Kontrol Ediliyor..
  36. }
  37. }

 

Çalışma prensipi; #Opers kanalında !ulke Nick komutunu girerek kişiye ait bilgileri alabiliyorsunuz.

Etiketler: , , , , , ,

Bu yazı Çarşamba, 07 Nisan 2010, 11:00 tarihinde mIRC Script kategorisi altında yayınlandı. Bu yazıya yapılacak yorumlardan haberdar olmak için RSS 2.0 beslemesini kullanabilirsiniz. Yorum yapabilirsiniz, veya kendi sitenizden geri izleme yapabilirsiniz.

Yorum yapın