Ip Lookup Info tramite socket - Informazioni IP Host

Incollare questo negli aliases , vi fornirà , connettendosi ad un sito web e recuperando le info necessarie, il lookup di un IP , o di un dominio.
per farlo funzionare /whoisip IP o DOMINIO

Code:
alias whoisip {
  sockclose whois
  if ($regex($1,/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/))  {
    sockopen whois whois.cyberabuse.org 43
    set %whois.ip $1-
  }
  if (!$regex($1,/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/)) {
    .enable #DNS
    .dns $1-
  }
}

#DNS off
on *:DNS:{
  if ($dns(0).ip) {
    set %whois.ip $dns(0).ip
    sockopen whois whois.cyberabuse.org 43
  }
  else {
    msg $active Info L'ip l'host o il nickname inseriti non sono validi
  }
  .disable #DNS
  halt
}
#DNS end

on *:sockopen:whois: {
  if ($sockerr) {
    msg $active Impossibile connettersi al server!

    sockclose whois
  }
  else {
    sockwrite -nt whois %whois.ip
  }
}

on *:sockread:whois: {
  sockread %data
  if %data {
    if (%data == % http://www.cyberabuse.org/whois/)  {
      sockclose $sockname
      msg $active 4 - -- ---] Ip Info 4 [--- -- -
      msg $active 4 - -- ---] Powered by mAx` Helper.ircgate.it 4 [--- -- -
      msg $active 4 - -- ---] h t t p : / / w w w . m i r c - s c r i p t i n g . b l o g s p o t . c o m 4 [--- -- -
    }
    if (% $+ * !iswm %data) {
      msg $active 4 - -- ---] %data 4 [--- -- -   
    }
  }
}