Forums Scripts & Popups Help socket code by westor

alias ipl {
  if $exists(paises.txt) == $false { echo -at 5 Archivo 1paises.txt no encontrado en 1 $mircdir , ponga el archivo en esa ruta e intentelo nuevamente! | halt }
  if (!$1) { echo -at 11,12Debe ingresar la IP a buscar en este formato: 7,12 $+ /ip 111.111.111.111 | return }
  if ($remove($1,.) !isnum) { echo -at 7,12Error: 11,12La IP ingresada no es correcta!, ¿No habrá querido buscar un SERVIDOR? | return }
  var %s = InfoIP_ $+ $ticks $+ _ $+ $rand(1,10000000)
  if ($sock(%s)) { sockclose %s }
  .timer[ $+ %s $+ ] 1 10 ipl_error %s $1
  echo -at ***** Buscando información de la IP:  $+ $1 $+  *****
  sockopen -e %s geoiptool.com 443
  sockmark %s $1
}


ON *:SOCKOPEN:InfoIP_*: {
  if ($sockerr) { echo -at 7,12Error: 11,12Problema de conexión, no se pudo conectar a la página! | sockclose $sockname | return }
  sockwrite -nt $sockname GET /?ip= $+ $sock($sockname).mark HTTP/1.1
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.3; WOW64; rv:33.0) Gecko/20100101 Firefox/33.0
  sockwrite -nt $sockname Accept-Language: es-es,es
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: close
  sockwrite -nt $sockname $crlf
}

ON *:SOCKREAD:InfoIP_*: {
  if ($sockerr) { echo -at 7,12Error: 11,12Problema de de conexión, no se puede leer desde la página! | sockclose $sockname | return }
  var %r
  sockread %r
  var %r = $remove(%r,$chr(9),$chr(10),$chr(13))
  ;echo -at READ: %r
  if ($sockbr == 0) { return }
  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;,í,&#244;,ó,&#193;,Á,&#201;,É,&#205;,Í,&#211;,Ó,&#218;,Ú,&#209;,Ñ,&#241;,ñ,&#250;',ú) | 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) {
    ;echo -at ==> 4 $httpstrip(%r) 
    if ($len($httpstrip(%r)) == 0) || (!$httpstrip(%r)) { goto zero | halt }
    var %country $httpstrip(%r)
    var %country = $replace(%country,&#250;,ú,&#225;,á,&#233;,é,&#237;,í,&#244;,ó,&#193;,Á,&#201;,É,&#205;,Í,&#211;,Ó,&#218;,Ú,&#209;,Ñ,&#241;,ñ)
    set -e %country_ [ $+ [ $sockname ] ] %country
    if (%country === Ve) { var %country = Venezuela }
    if (%country === Países) { var %country = Países Bajos }
    if ($len(%country) == 0) || (!%country) { goto zero | halt } 
    else { echo -at 12País:1 %country $+  }
  }
  if ($left(%r,8) == content:) && (*<br>* iswm %r) {
    echo -at 12Servidor:1 $gettok($gettok(%r,2,39),1,60) $+ 
  }
  if ($left(%r,8) == content:) && (*<br>* iswm %r) {
    echo -at 12IP:1 $replace($remove($gettok(%r,2,62),<br,'),&#250;,ú,&#225;',á,&#233;',é,&#237;',í,&#244;',ó,&#193;',Á,&#201;',É,&#205;',Í,&#211;',Ó,&#218;',Ú,&#209;',Ñ,&#241;',ñ,&#250;',ú,&#225;,á,&#233;,é,&#237;,í,&#244;,ó,&#193;,Á,&#201;,É,&#205;,Í,&#211;,Ó,&#218;,Ú,&#209;,Ñ,&#241;,ñ) $+ 
  }
  if (*<span style="white-space: nowrap">* iswm %r) && (*</span></td>* iswm %r) { echo -at 12Área Metropolitana:1 $httpstrip(%r) $+  }
  if (%time_ [ $+ [ $sockname ] ]) && (<td align="left" >* iswm %r) { return }
  if (%time_ [ $+ [ $sockname ] ]) { echo -at 12Hora local:1 $httpstrip(%r) $+  | unset %time_ [ $+ [ $sockname ] ] }
  if ($left(%r,4) == Hora) && (*</td>* iswm %r) { set -e %time_ [ $+ [ $sockname ] ] 1 }

  if (%code_ [ $+ [ $sockname ] ]) && (<td align="left" >* iswm %r) { return }
  if (%code_ [ $+ [ $sockname ] ]) { set -e %zero $httpstrip(%r) | echo -at 12Código de País:1 $left($httpstrip(%r),2) $+  | unset %code_ [ $+ [ $sockname ] ] }
  :zero
  if ($len(%country_ [ $+ [ $sockname ] ]) == 0) && ($len(%country) == 0) && (%zero) {  echo -at 12País:1 $read(paises.txt,s,$gettok(%zero,1,32))  | unset %zero | unset %country_ [ $+ [ $sockname ] ] | unset %country }
  ;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) | unset %zero }
  if (*<td align="left">C&#243;digo de pa&#237;s</td>* iswm %r) { set -e %code_ [ $+ [ $sockname ] ] 1 }

  if (%reg_ [ $+ [ $sockname ] ]) && (<td align="left" >* iswm %r) { return }
  if (%reg_ [ $+ [ $sockname ] ]) { var %desc $httpstrip(%r) | $iif($len(%desc) < 4,echo -at 12Región:1 Desconocido,echo -at 12Región:1 $httpstrip(%r) $+ ) | unset %reg_ [ $+ [ $sockname ] ] }
  if (*<td align="left">Regi&#243;n</td>* iswm %r) { set -e %reg_ [ $+ [ $sockname ] ] 1 }

  if (%city_ [ $+ [ $sockname ] ]) && (<td align="left" >* iswm %r) { return }
  if (%city_ [ $+ [ $sockname ] ]) { echo -at 12Ciudad:1 $httpstrip(%r) $+  | unset %city_ [ $+ [ $sockname ] ] }
  if (*<td align="left">Ciudad</td>* iswm %r) { set -e %city_ [ $+ [ $sockname ] ] 1 }

  if (%post_ [ $+ [ $sockname ] ]) && (<td align="left" >* iswm %r) { return }
  if (%post_ [ $+ [ $sockname ] ]) { echo -at 12Código Postal:1 $httpstrip(%r) $+  | unset %post_ [ $+ [ $sockname ] ] }
  if (*<td align="left">C&#243;digo postal</td>* iswm %r) { set -e %post_ [ $+ [ $sockname ] ] 1 }

  if (%isp_ [ $+ [ $sockname ] ]) { echo -at 12ISP:1 $httpstrip(%r) $+  | unset %isp_ [ $+ [ $sockname ] ] }
  if (*<td align="left" width="33%">* iswm %r) { set -e %isp_ [ $+ [ $sockname ] ] 1 }
}

ON *:SOCKCLOSE:InfoIP_*: {
  .timer[ $+ $sockname $+ ] off
  unset %isp_ [ $+ [ $sockname ] ]
  unset %reg_ [ $+ [ $sockname ] ]
  unset %post_ [ $+ [ $sockname ] ]
  unset %code_ [ $+ [ $sockname ] ]
  unset %country_ [ $+ [ $sockname ] ]
  unset %time_ [ $+ [ $sockname ] ]
  unset %city_ [ $+ [ $sockname ] ]
  unset %country
  unset %zero
  if (%serv_ [ $+ [ $server ] ]) {  echo -at ***** Final de información del servidor:  $+ $sock($sockname).mark $+  ***** | unset %serv_ [ $+ [ $server ] ] | halt  }
  else {  echo -at ***** Final de información de la IP:  $+ $sock($sockname).mark $+  ***** }
}

alias ipl_error {
  if (!$1) { return }
  echo -at 7,12Error: 11,12Se ha producido un problema de conexión buscando IP/Servidor 7,12 $qt($2) 11,12, inténtelo nuevamente en minutos!  
  if ($sock($1)) { sockclose $1 }
}

alias httpstrip {
  var %xx = $replace($1-,&#x26;,$chr(38),$chr(124),-,$chr(125),-,&#125;,-,&#124;,-,&quot;,$chr(34),&amp;,&,&lt;,<,&gt;,>,&nbsp;,$chr(32),&#x26;#039;,$chr(39),$chr(13),$chr(32))
  var %x = $remove(%xx,<![CDATA[,]]>,$chr(2),$chr(4),$chr(9),$chr(31),$chr(22),$chr(29),$chr(10),$chr(13))
  var %i = $regsub(%x,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x)
  return %x
}