Forums Scripts & Popups Help socket

alias ip {

  if ($1 == $null) { echo -a 10 You must enter the IP address to find, in this format 12 $+ /ip 111.111.111.111 | return }

  if ($sock(InfoIP) != $null) sockclose InfoIP

  set %InfoIP $1

  sockopen InfoIP geoip.flagfox.net 80

  echo -ae 9,1Seeking information of IP: %InfoIP

}

on 1:sockopen:InfoIP: {

  if ($sockerr > 0) { echo -a 9,1Could not connect to the page. }

  else {

    sockwrite -nt $sockname GET geoip.flagfox.net $+ %InfoIP $+ &ip= $+ %InfoIP HTTP/1.1

    sockwrite -nt $sockname Host: geoip.flagfox.net:80

    sockwrite -nt $sockname Connection: close

    sockwrite -nt $sockname $crlf

  }
}


on 1:sockread:InfoIP: {

  :VerInfoIP

  sockread -f %DatosIP

  if ($sockbr == 0) { return }

  if (<title> isin %DatosIP) { echo -ae 5Title: $gettok($gettok(%DatosIP,2,62),1,60) }

  if (Hostname isin %DatosIP) echo -a 12Hostname:1 $gettok(%DatosIP,2,58)

  if (Continent isin %DatosIP) echo -a 12Continent:1 $gettok(%DatosIP,2,58)

  if (Country isin %DatosIP) echo -a 12Country:1 $gettok(%DatosIP,2,58)

  if (Metropolis isin %DatosIP) echo -a 12Metropolis:1 $gettok(%DatosIP,2,58)

  if (City isin %DatosIP) echo -a 12City:1 $gettok(%DatosIP,2,58)

  if (IP Address isin %DatosIP) echo -a 12IP:1 $gettok(%DatosIP,2,58)

  if (ISP isin %DatosIP) echo -a 12ISP:1 $gettok(%DatosIP,2,58)

  if (Country Code isin %DatosIP) echo -a 12Country Code:1 $gettok(%DatosIP,2,58)

  goto VerInfoIP

}

on 1:sockclose:InfoIP: { echo -a 4Search Completed! }

sockwrite -nt $sockname GET geoip.flagfox.net  $+ %InfoIP $+ &ip= $+ %InfoIP HTTP/1.1

sockwrite -nt $sockname GET /?ip= $+ %InfoIP HTTP/1.1

if (*<span style="white-space: nowrap"><a href="http://en.wikipedia.org/wiki/* iswm %r) && (*target="_blank" title="* iswm %r) { echo -a 12Country:1 $httpstrip(%r) $+  }

[22:09:22] ***** Searching informations for IP: 179.24.139.26 *****
[22:09:24] ISP: Administracion Nacional de Telecomunicaciones (AS6057)
[22:09:24] Continent: South America
[22:09:25] Country: Uruguay
[22:09:25] Country Code: UY (URY)
[22:09:25] Region: Montevideo
[22:09:25] Local Time: 18 Nov 2014 18:09 UYST
[22:09:25] Latitude & Longitude: -34.858, -56.171
[22:09:25] Hostname: r179-24-139-26.dialup.adsl.anteldata.net.uy
[22:09:25] City: Montevideo
[22:09:26] ***** End of 179.24.139.26 IP lookup *****

if (*<a href="http://es.wikipedia.org/wiki/* iswm %r) && ($left(%r,2) == <a) && (*target="_blank" title="Entrada de Wikipedia para* iswm %r) { var %esp = $replace($httpstrip(%r),&#250;,ú,&#225;,á,&#233;,é,&#237;í,&#233;ó,&#193;,Á,&#201;,É,&#205;,Í,&#211;,Ó,&#218;,Ú) | echo -at 12Continente:1 %esp $+  }
  if (*<span style="white-space: nowrap"><a href="http://es.wikipedia.org/wiki/* iswm %r) && (*target="_blank" title="Entrada de Wikipedia para* iswm %r) {
    var %country $httpstrip(%r)
    var %country = $replace(%country,&#250;,ú,&#225;,á,&#233;,é,&#237;í,&#233;ó,&#193;,Á,&#201;,É,&#205;,Í,&#211;,Ó,&#218;,Ú)
    set -e %country_ [ $+ [ $sockname ] ] %country
    echo -at 12País:1 %country $+ 

if (*<span style="white-space: nowrap"><a href="http://es.wikipedia.org/wiki/* iswm %r) && (*target="_blank" title="Entrada de Wikipedia para* iswm %r) {

 if ($len(%country_ [ $+ [ $sockname ] ]) == 0) { $iif(UY isin %zero,echo -at 12País:1 Uruguay) | $iif(TH isin %zero,echo -at 12País:1 Tailandia) |  $iif(US isin %zero,echo -at 12País:1 Estados Unidos) | $iif(BY isin %zero,echo -at 12País:1 Bielorrusia) | $iif(IT isin %zero,echo -at 12País:1 Italia) | $iif(CO isin %zero,echo -at 12País:1 Colombia) | $iif(TR isin %zero,echo -at 12País:1 Turquía) | $iif(BR isin %zero,echo -at 12País:1 Brasil) | $iif(AR isin %zero,echo -at 12País:1 Argentina) | $iif(EC isin %zero,echo -at 12País:1 Ecuador) }