[Bozkurt-]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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 443
}

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ı Kurulamıyor.
    sockclose $sockname
    return
  }
  var %temp
  sockread %temp
  if (%temp != $null) {
    ; HTTP headerları atla
    if (!$regex(%temp, /^HTTP\/|^[A-Za-z\-]+:/i)) {
      set %ipdata %ipdata $+ %temp
    }
  }
}

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ı

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

  echo -a 3,1[ K U L L A N I C I B İ L G İ L E R İ ]   9ASN  : 10 $utf2tr(%asn) 9Ülke  : 10 $utf2tr(%country) 9Kıta  : 10 $utf2tr(%continent) 9Bölge  : 10 $utf2tr(%region) 9Şehir  : 10 $utf2tr(%city) 9ISP  : 10 $utf2tr(%org) 9IP TÜRÜ  : 10 $utf2tr(%type) 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
}

Kullanım şekli :

/sorgula ipadresi ÖRN : /sorgula 8.8.8.8

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Çalışması için 6.35 ve üzeri ssl destekli bir mirc kullanıyor olmanız gerekiyor. https prorokolü üzerinden 443 portundan veri çekmektedir. Mirciniz ssl değilse ssl yapmanız gerekiyor.