İp Locator

[Toprak]

Kod, adından da anlaşılacağı üzere sorgulanan IP ile ilgili bilgileri yansıtıyor. Kodu remote bölümüne ekledikten sonra sağ tık yaparak IP Locator seçeneğinden sorgu menüsünü açabilirsiniz. Kodun önceki veri çekmeye çalıştığı siteyi biraz inceledim. Site, 25 sorguya izin veriyordu, sonrasında üyelik istiyordu. Farklı bir siteden güncelledim. (Bazı bölümlerini Türkçeleştirdim.) Html kod filtreleri ile ilgili bir aliasıda htmlfree aliası ile değiştirdim.
Not: Kodda bulunan Bolge: kısmı Türkiye IP'lerinde genellikle Şehiri veriyor(Türkiyede Eyalet sistemi olmadığı için.), yurt dışı IP'lerde ise alttaki örnek resimlerde gözüktüğü gibi Bölge ismini vermektedir. (Kodda hata olduğunu düşünmeyin yani)
Kod, tatlı ve sade bir dialog şeklinde olduğu için hoşuma gitti, kullanmak isteyen olursa şuan çalışan hali aşağıdadır. İyi forumlar.

Proxy IP ile denediğim bir örnek resim1:
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])

Örnek resim2:
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])


; IP locator v1.0 - entropy dalnet

;============================== MENUS

menu menubar,status,channel,query {
-
IP Locator { locate }
-
}

;============================== DIALOGS

dialog locate {
title "IP Locator"
size -1 -1 134 93
option dbu notheme
text "IP Address", 1, 4 4 26 8, right
edit "", 2, 32 2 62 11
button "Bul", 3, 96 2 34 11
text "Durum", 4, 4 16 25 8, right
edit "", 5, 32 14 62 11, read
text "Sehir:", 6, 4 34 25 8, right
text "Bolge:", 7, 4 43 25 8, right
text "Ulke:", 8, 4 52 25 8, right
text "ISS:", 9, 4 61 25 8, right
text "", 10, 32 34 98 8
text "", 11, 32 43 98 8
text "", 12, 32 52 98 8
text "", 13, 32 61 98 8
button "Clipboard", 14, 62 78 34 11
button "OK", 15, 96 78 34 11, ok
box "", 16, -4 25 142 4
box "", 17, -3 70 142 4
}

;============================== ALIASES

alias -l locate {
if ($1) {
did -ra locate 5 Socket Aciliyor...
did -r locate 10,11,12,13
sockclose locate
sockopen locate [Only Registered Users Can See Links] 80
sockmark locate $1-
}
else {
dialog $iif($dialog(locate),-x,-m) locate locate
}
}

alias -l endlocate {
did -ra locate 5 Islem Tamamlandi.
if (%ip) { did -ra locate 10 %city | did -ra locate 11 %state | did -ra locate 12 %country | did -ra locate 13 %isp }
else { did -r locate 10,11,12,13 | did -ra locate 5 Birsey Bulunamadi . }
unset %isp
unset %ip
unset %city
unset %state
unset %country
unset %isp
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$chr(32),%x), %x = $remove(%x,&nbsp;)
return %x
}
;============================== EVENTS

on *:dialog:locate:sclick:14:{
var %a = IP: $did(2).text City: $did(10).text State: $did(11).text Country: $did(12).text ISP: $did(13).text
clipboard %a
}
on *:dialog:locate:sclick:3:{
if (!$did(2).text) { beep | return }
locate $did(2).text
}
on *:sockopen:locate:{
if ($sockerr > 0 && $dialog(locate)) { did -ra locate 5 Socket Acma Hatasi. | did -r locate 10,11,12,13 | return }
sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) [Only Registered Users Can See Links]
sockwrite -n $sockname Host: $+([Only Registered Users Can See Links]$str($crlf, 2))
sockwrite -n $sockname Connection: close
}
on *:sockread:locate:{
if ($sockerr > 0 && $dialog(locate)) { did -ra locate 5 Socket Okuma Hatası. | did -r locate 10,11,12,13 | return }
did -ra locate 5 Veri okunuyor...
var %q | sockread %q | tokenize 32 $htmlfree(%q)
if $regex(%q,/<i>.+/A) { $iif(*Country:* iswm $2,set -e %country $3-) $iif(*Region:* iswm $2,set -e %state $3-) $iif(*City:* iswm $2,set -e %city $3-) $iif(*Provider:* iswm $2,set -e %isp $3-) }
set -e %ip $sock($sockname).mark
.timertrace 1 1 endlocate
}