alias sorgula {
  if (!$1) { echo -a Örnek: /sorgula 1.2.3.4 | return }
  unset %head.done
  set %ip.raw $null
  set %ip.addr $1
  sockopen -e ip.lookup ipwho.is 443
}

on *:sockopen:ip.lookup:{
  if ($sockerr) { echo -a Bağlantı hatası. | return }

  sockwrite -nt $sockname GET /json/$+ %ip.addr HTTP/1.1
  sockwrite -nt $sockname Host: ipwho.is
  sockwrite -nt $sockname User-Agent: mIRC
  sockwrite -nt $sockname Connection: close
  sockwrite -nt $sockname $crlf
}

on *:sockread:ip.lookup:{
  var %l
  sockread %l

  ; header bitti mi?
  if (!$len(%l)) { set %head.done 1 | return }
  if (%l == $chr(13)) { set %head.done 1 | return }
  if (!%head.done) return

  ; json verisini ekle
  set %ip.raw %ip.raw %l
}

on *:sockclose:ip.lookup:{
  if (%ip.raw == $null) {
    echo -a Sunucu veri göndermedi.
    unset %ip.*
    return
  }

  var %j = %ip.raw
  var %asn = Bulunamadı
  var %ulke = Bulunamadı
  var %kita = Bulunamadı
  var %bolge = Bulunamadı
  var %sehir = Bulunamadı
  var %isp = Bulunamadı
  var %tur = Bulunamadı
  var %domain = Bulunamadı

  if ($regex(%j,/"asn":\s*([0-9]+)/)) set %asn $regml(1)
  if ($regex(%j,/"country":"([^"]+)"/)) set %ulke $regml(1)
  if ($regex(%j,/"continent":"([^"]+)"/)) set %kita $regml(1)
  if ($regex(%j,/"region":"([^"]+)"/)) set %bolge $regml(1)
  if ($regex(%j,/"city":"([^"]+)"/)) set %sehir $regml(1)
  if ($regex(%j,/"isp":"([^"]+)"/)) set %isp $regml(1)
  if ($regex(%j,/"type":"([^"]+)"/)) set %tur $regml(1)
  if ($regex(%j,/"domain":"([^"]+)"/)) set %domain $regml(1)

  echo -a ASN: $fixutf(%asn)
  echo -a Ülke: $fixutf(%ulke)
  echo -a Kıta: $fixutf(%kita)
  echo -a Bölge: $fixutf(%bolge)
  echo -a Şehir: $fixutf(%sehir)
  echo -a ISP: $fixutf(%isp)
  echo -a Tür: $fixutf(%tur)
  echo -a Domain: $fixutf(%domain)

  unset %ip.*
  unset %head.done
}

alias fixutf {
  return $replace($1-,\u0130,İ,\u0131,ı,\u00dc,Ü,\u00fc,ü,\u011e,Ğ,\u011f,ğ,\u015e,Ş,\u015f,ş,\u00d6,Ö,\u00f6,ö,\u00c7,Ç,\u00e7,ç)
}

/echo -a $fixutf(\u00f6\u011f\u015f)

öğş

alias sorgula {
  if (!$1) { echo -a Lütfen bir IP giriniz. Örnek: /sorgula 1.2.3.4 | return }
  set %ipaddr $1
  set %ipdata $null
  echo -a IP %ipaddr bilgileri sorgulanıyor...
  sockopen -e iplookup ipwho.is 80
}
on *:SOCKOPEN:iplookup: {
  if ($sockerr) { echo -a Sunucuyla bağlantı kurulamıyor. | sockclose $sockname | return }
  sockwrite -n $sockname GET / $+ %ipaddr HTTP/1.1
  sockwrite -n $sockname Host: ipwho.is
  sockwrite -n $sockname User-Agent: mIRC
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:iplookup: {
  if ($sockerr) { echo -a Sunucuyla bağlantı hatası. | sockclose $sockname | return }
  var %tmp
  sockread %tmp
  if (%tmp != $null) {
    ; HTTP headerları geç
    if (!$regex(%tmp,/^(HTTP\/|Content-|Server:|Date:|Connection:)/i)) {
      set %ipdata %ipdata $+ %tmp
    }
  }
}
on *:SOCKCLOSE:iplookup: { .timer 1 1 showdata }
alias showdata {
  if (%ipdata == $null) { echo -a Gösterilecek veri yok. | unset %ipaddr | unset %ipdata | return }

  var %type = Bulunamadı
  var %asn = Bulunamadı
  var %country = Bulunamadı
  var %region = Bulunamadı
  var %city = Bulunamadı
  var %org = Bulunamadı
  var %domain = Bulunamadı
  var %continent = Bulunamadı

  if ($regex(%ipdata,/"type":"([^"]+)"/i))       { set %type $regml(1) }
  if ($regex(%ipdata,/"continent":"([^"]+)"/i))  { set %continent $regml(1) }
  if ($regex(%ipdata,/"asn":\s*([0-9]+)/i))      { set %asn $regml(1) }
  if ($regex(%ipdata,/"isp":"([^"]+)"/i))        { set %org $regml(1) }
  if ($regex(%ipdata,/"country":"([^"]+)"/i))    { set %country $regml(1) }
  if ($regex(%ipdata,/"region":"([^"]+)"/i))     { set %region $regml(1) }
  if ($regex(%ipdata,/"city":"([^"]+)"/i))       { set %city $regml(1) }
  if ($regex(%ipdata,/"domain":"([^"]+)"/i))     { set %domain $regml(1) }
  if ($regex(%ipdata,/"hostname":"([^"]+)"/i))   { set %domain $regml(1) }

  echo -a 3,1[ K U L L A N I C I   B İ L G İ L E R İ ]
  echo -a 9ASN: 10 $utf2tr(%asn)
  echo -a 9Ülke: 10 $utf2tr(%country)
  echo -a 9Kıta: 10 $utf2tr(%continent)
  echo -a 9Bölge: 10 $utf2tr(%region)
  echo -a 9Şehir: 10 $utf2tr(%city)
  echo -a 9ISP: 10 $utf2tr(%org)
  echo -a 9IP Türü: 10 $utf2tr(%type)
  echo -a 9Alan Adı: 10 $utf2tr(%domain)

  unset %ipaddr
  unset %ipdata
}

alias utf2tr {
  var %text = $1-
  %text = $replace(%text,\u0130,İ,\u0131,ı,\u00dc,Ü,\u00fc,ü,\u011e,Ğ,\u011f,ğ,\u015e,Ş,\u015f,ş,\u00d6,Ö,\u00f6,ö,\u00c7,Ç,\u00e7,ç)
  return %text
}