ip-tracker

on *:load: { 
  .echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon:  ip-tracker  $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon:  ip-tracker $chr(40) $+ v5.4 $+ $chr(41))
  echo -a _____________________________________________________________________________________
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Add-On yükleniyor... 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Çalışan mIRC15 $version 0Sistem15 Windows $+ $os 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Coder: 15SaNCaK 0,1 E-Mail: 15sancak@outlook.com.tr 
  echo -a 4,1[00,01 SaNCaK 4,1] 15,1 www.mircclub.org 12©SaNCaK 15 1999-2017 
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
on *:unload: { 
  .echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon:  ip-tracker $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Unloading...,igo,Addon:  ip-tracker $chr(40) $+ v5.4 $+ $chr(41))
}


raw 378:*: {
  if ($regex($1-,/is connecting from [*][@](.+)\s(.+)/)) {
    var %host $regml(1)
    var %ip $regml(2)

    set %tracknick $$2
    set %trackip %ip

    sockopen ip-tracker ip-tracker.org 80
  }
}

on *:SOCKOPEN:ip-tracker: {
  if ($sockerr) { 
    echo -a Error: $sock(tracert).wsmsg  
  }
  else {
    sockwrite -n $sockname GET /locator/ip-lookup.php?ip= $+ %trackip HTTP/1.0
    sockwrite -n $sockname Host: www.ip-tracker.org
    sockwrite -n $sockname Connection: Keep-Alive
    sockwrite -n $sockname $crlf
  }
}

on *:SOCKREAD:ip-tracker: { 
  sockread %ip-tracker

  if $regex(%ip-tracker,/<th>IP Address:</th> <td class='tracking'>([^<>]+)/) {
    var %ip $regml(1)
  }

  if $regex(%ip-tracker,/<th>Hostname:</th> <td>([^<>]+)/) {
    var %host $regml(1)
  }

  if $regex(%ip-tracker,/<th>Continent:<\/th><td class='tracking'>([^<>]+)/) {
    var %continent $regml(1)
  }

  if $regex(%ip-tracker,/<th>Country:</th><td>([^<>]+)/) {
    var %country $remove($regml(1),&nbsp;)
  }

  if $regex(%ip-tracker,/<th>Capital:</th><td class='tracking'>([^<>]+)/) {
    var %capital $regml(1)
  }

  if $regex(%ip-tracker,/<th>State:</th><td class='tracking'>([^<>]+)/) {
    var %state $regml(1)
  }

  if $regex(%ip-tracker,/<th>City Location:</th><td>([^<>]+)/) {
    var %city $regml(1)
  }

  if $regex(%ip-tracker,/<th>ISP:</th><td class='tracking'>([^<>]+)/) {
    var %isp $regml(1)
  }

  if $regex(%ip-tracker,/<th>Organization:</th><td>([^<>]+)/) {
    var %organization $regml(1)


    echo -a %tracknick is connnecting from (Contintent: %continent $+ , Country: %country $+ , State: %state $+ , City: %city $+ , ISP: %isp $+ )
    echo -a %tracknick is at Organization %organization
  }
}