Jump to content
MaxCheaters Official Group on Discord
-> Place your ad text here <-
LINEAGE2.GOLD INTERLUDE SERVER ON ESSENCE CLIENT

mIRC Scripting: IP Tracker

Sponz

By Sponz
in Guides & Tutorials

 Share

Recommended Posts

Sponz Newbie

Sponz

Posted
Posted

Copy and paste this code for a new remote window alt+r

right click on channel and then click on Tracert

now put any ip that you would to track

 

well, this script will track from different websities

some informations, like

 

Country

City

longitude, latitude

ISP address, phone, orgname

IP ping

Continent

Region

Postal code

as i said, this code track from different websities

dialog Tracert {
  title "Tracert ip Project Codename: Ärtëmïs"
  size -1 -1 190 189
  option dbu
  edit "", 1, 3 12 87 11, limit 15
  text "Ip:", 2, 3 2 25 8
  button "Ok", 3, 93 12 22 12
  text "Country:", 4, 5 25 25 8
  text "", 5, 32 25 40 8
  text "Region:", 6, 5 36 25 8
  text "", 7, 32 36 41 8
  text "City:", 8, 5 46 25 8
  text "", 9, 32 47 42 8
  text "Country Capital:", 10, 5 56 42 8
  text "", 11, 50 57 37 8
  text "Population:", 12, 5 67 29 8
  text "", 13, 38 67 40 8
  text "Latitude:", 14, 5 77 27 8
  text "", 15, 34 77 41 8
  text "Longitude:", 16, 5 87 28 8
  text "", 17, 35 87 42 8
  text "Time Zone:", 18, 5 97 30 8
  text "Nationality Singular:", 20, 81 25 52 8
  text "", 21, 136 25 44 8
  text "Nationality Plural:", 22, 81 35 52 8
  text "", 23, 136 35 46 8
  text "Continent:", 24, 81 44 39 8
  text "", 25, 122 44 44 8
  text "Currency:", 26, 91 56 30 8
  text "", 27, 125 56 45 8
  text "Owner:", 28, 81 67 25 8
  text "", 29, 108 67 75 14
  text "Postal Code:", 30, 81 86 34 8
  text "", 31, 117 86 35 8
  text "Phone:", 34, 81 98 25 8
  text "", 35, 109 98 64 8
  text "Spam List:", 36, 5 108 29 8
  text "", 37, 36 108 150 16
  text "", 38, 37 97 32 8
  list 41, 5 139 180 45, size vsbar
  text "Addcional Information:", 42, 6 129 62 8
}

alias tracert { 
  if (!$dialog(tracert)) { dialog -m tracert tracert }
  else { dialog -v tracert tracert }
}

on *:dialog:tracert:sclick:3:{
  if ($did(1).text) { 
    did -r tracert 5,7,9,11,13,15,17,21,23,25,27,29,31,35,37,38,41
    sockopen traceip ipchecking.com 80
    set %Trace1 $did(1).text
    sockopen TIP geobytes.com 80
    set %TIP $did(1).text
    sockopen iptrace www.infobyip.com 80
    sockmark iptrace $did(1).text
    sockopen ipping www.infobyip.com 80
    sockmark ipping $did(1).text
    sockopen iptrack www.infobyip.com 80
    sockmark iptrack $did(1).text
    sockopen ip www.find-ip-address.org 80
    sockmark ip $did(1).text
  }
}

on *:SOCKOPEN:traceip: {
  if ($sockerr) { did -a tracert 41 Error! An error happenned with server or script, wait a minute and try again later error message: $sock(tracert).wsmsg  }
  else {
    sockwrite -n $sockname GET / $+ ?ip= $+ %Trace1 HTTP/1.0
    sockwrite -n $sockname Host: ipchecking.com
    sockwrite -n $sockname Connection: Keep-Alive
    sockwrite -n $sockname $crlf
    did -a tracert 41 ===========================================================
  }
}

on *:SOCKREAD:traceip: { 
  sockread %traceip
  if (*owner:* iswm %traceip) { 
    did -a tracert 29 $remove($remove($htmlfree(%traceip),58),owner:)
  } 
  if (*PostalCode:* iswm %traceip) {
    did -a tracert 31 $htmlfree(%traceip)
  }
  if (Address: isin %traceip) {
    did -a tracert 41 =====IP ADDRESS=====================================================
    did -a tracert 41 $htmlfree(%traceip) 
  }
  if (SORBS isin %traceip) {
    did -a tracert 37 $remove($htmlfree(%traceip),SORBS:)
  } 
  if (phone: isin %traceip) { 
    did -a tracert 35 $remove($htmlfree(%traceip),phone:,[])
  }
  if (OrgName: isin %traceip) {
    did -a tracert 41 $htmlfree(%traceip) 
  }
  if (descr: isin %traceip) {
    did -a tracert 41 41 $htmlfree(%traceip) 
  }
  if (person: isin %traceip) {
    did -a tracert 41 $htmlfree(%traceip)
  }
  if (Host name: isin %traceip) {
    did -a tracert 41 $remove($htmlfree(%traceip), ) 
  }
}

on *:SOCKOPEN:TIP: { 
  if ($sockerr) { did -a tracert 41 Error! An error happenned with server or script, wait a minute and try again later error message: $sock(tracert).wsmsg }
  else {
    sockwrite -n $sockname GET / $+ IpLocator.htm?GetLocation&IpAddress= $+ %TIP HTTP/1.0
    sockwrite -n $sockname Host: geobytes.com
    sockwrite -n $sockname Connection: Keep-Alive
    sockwrite -n $sockname $crlf
  }
}

on *:SOCKREAD:TIP: { 
  sockread %TIPstats
  if $regex(%TIPstats,/<input name="ro-no_bots_pls8" value="(.+)\s" size="20" readonly><\/td>/) {
    did -a tracert 11 $regml(1)
  }
  if $regex(%TIPstats,/<input name="ro-no_bots_pls17" value="(.+)" size="20" readonly><\/td>/) {
    did -a tracert 9 $regml(1)
  }
  if $regex(%TIPstats,/<input name="ro-no_bots_pls10" value="(.+)" size="20" readonly><\/td>/) {
    did -a tracert 15 $regml(1)
  }
  if $regex(%TIPstats,/<input name="ro-no_bots_pls19" value="(.+)" size="20" readonly><\/td>/) {
    did -a tracert 17 $regml(1)
  }
  if $regex(%TIPstats,/<input name="ro-no_bots_pls9" value="(.+)" size="20" readonly><\/td>/) {
    did -a tracert 38 $regml(1)
  }
  if $regex(%TIPstats,/<input name="ro-no_bots_pls1" value="(.+)" size="20" readonly><\/td>/) {
    did -a tracert 27 $regml(1)
  }
  if $regex(%TIPstats,/<input name="ro-no_bots_pls3" value="(.+)" size="20" readonly><\/td>/) {
    did -a tracert 13 $regml(1)
  }
  if $regex(%TIPstats,/<input name="ro-no_bots_pls7" value="(.+)" size="20" readonly><\/td>/) {
    did -a tracert 21 $regml(1)
  }
  if $regex(%TIPstats,/<input name="ro-no_bots_pls2" value="(.+)" size="20" readonly><\/td>/) {
    did -a tracert 23 $regml(1)
  }
  if $regex(%TIPstats,/<input name="ro-no_bots_pls4" value="(.+)" size="20" readonly><\/td>/) {
    did -a tracert 25 $regml(1)
  }
  if $regex(%TIPstats,/<input name="ro-no_bots_pls13" value="(.+)" size="20" readonly><\/td>/) {
    did -a tracert 5 $regml(1)
  }
  if $regex(%TIPstats,/<input name="ro-no_bots_pls15" value="(.+)" size="20" readonly><\/td>/) {
    did -a tracert 7 $regml(1)
  }
}
on *:sockopen:iptrace: {
  sockwrite -nt $sockname GET $+(/ip-,$sock(iptrace).mark,.html) HTTP/1.1
  sockwrite -nt $sockname Host: $+(www.infobyip.com,$str($crlf,2))
}
on *:sockread:iptrace: {
  var %iptrace | sockread %iptrace
  if ($regex(%iptrace,/Country<\/td><td.+>(.+)<\/td>/)) {
    did -a tracert 41 =====IP LOCATION===================================================== 
    did -a tracert 41 Country: $regml(1)
  }
  if ($regex(%iptrace,/Postal code<\/td><td.+>(.+)<\/td>/)) {
    did -a tracert 41 Postal code: $regml(1)
  }
  if ($regex(%iptrace,/City<\/td><td.+>(.+)<\/td>/)) {
    did -a tracert 41 City: $regml(1)
  }
  if ($regex(%iptrace,/Latitude<\/td><td.+>(.+)<\/td>/)) {
    did -a tracert 41 Latitude: $regml(1)
  }
  if ($regex(%iptrace,/Longitude<\/td><td.+>(.+)<\/td>/)) {
    did -a tracert 41 Longitude: $regml(1) 
  } 
  if ($regex(%iptrace,/State/region<\/td><td.+>(.+)<\/td>/)) {
    did -a tracert 41 State/region: $regml(1)
  }
}

on *:sockopen:ipping: {
  sockwrite -nt $sockname GET $+(/ping-,$sock(ipping).mark,.html) HTTP/1.1
  sockwrite -nt $sockname Host: $+(www.infobyip.com,$str($crlf,2))
}
on *:sockread:ipping: {
  sockread %ipping  
  if (*packets* iswm %ipping) {
    did -a tracert 41 =====IP PING=====================================================
    did -a Tracert 41 Ping: %ipping
  }
}

on *:sockopen:iptrack: {
  sockwrite -nt $sockname GET $+(/ipwhois-,$sock(iptrack).mark,.html) HTTP/1.1
  sockwrite -nt $sockname Host: $+(www.infobyip.com,$str($crlf,2))
}
on *:sockread:iptrack: {
  sockread %iptrack
  if (*Address:* iswm %iptrack) {
    did -a tracert 41 %iptrack
  } 
  if (*City:* iswm %iptrack) {
    did -a tracert 41 %iptrack
  }
  if (*PostalCode:* iswm %iptrack) {
    did -a tracert 41 %iptrack
  }
  if (*OrgName:* iswm %iptrack) {
    did -a tracert 41 =====IP DATA===================================================== 
    did -a tracert 41 %iptrack
  }
  if (*OrgTechPhone:* iswm %iptrack) {
    did -a tracert 41 %iptrack
  }
  if (*Country:* iswm %iptrack) {
    did -a tracert 41 %iptrack
  }
}

on *:sockopen:ip:{
  var %iplookup $+(scrollx=0&scrolly=396&ip=,$sock(ip).mark)
  var %socket sockwrite -nt ip
  %socket POST /ip-address-locator.php HTTP/1.1
  %socket Host: $sock(ip).addr
  %socket Content-Type: application/x-www-form-urlencoded
  %socket Content-Length: $len(%iplookup)
  %socket $crlf $+ %iplookup
}
on *:sockread:ip: {
  var %ip | sockread %ip
  if $regex(%ip,/<b>IP Country Name</b>\:(.*)\s/iS) {
    if $token($regsubex($regml(1),/<[^>]*>| |ip/ig,),1-2,32) {      
      did -a tracert 41 IP Country Name: $remove($+($v1), Country)
    }
  }
  if (*IP Continent Population* iswm %ip) {
    did -a tracert 41 $htmlfree(%ip)
  }
  if (*IP Continent Area* iswm %ip) {
    did -a tracert 41 $htmlfree(%ip)
  }
  if (*IP Continent Total Population* iswm %ip) {
    did -a tracert 41 $htmlfree(%ip)
  }
  if (*IP Continent Density People* iswm %ip) {
    did -a tracert 41 $htmlfree(%ip)
  }
  if (*IP Language* iswm %ip) {
    did -a tracert 41 =====IP INFORMATION=====================================================  
    did -a tracert 41 Language $+ $remove($htmlfree(%ip),$chr(9),IP country latitude and langitude,IP country capital,IP Language,$chr(44))
  }
  if (*IP Currency* iswm %ip) {
    did -a tracert 41 Currency $+ $remove($htmlfree(%ip),$chr(9),IP Currency, IP address converter,We will try to add more IP module in future but we can,$chr(44),$chr(46))
  }
}

menu * {
   Tracert:{ 
  tracert
}
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,$chr(9))
  return %x
}

credits _Dean_

 

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing


  • Posts

    • lin2diy
      looking for function packet of cached (freya)

      By lin2diy · Posted

      as the title  thanks
    • ILikeBeer
      Location of .dat files

      By ILikeBeer · Posted

      Hey everyone, I was wondering if anyone knows where the client loads all the .dat files. Is there some kind of manifest or list you can specify which dat files the client loads?
    • L2Haruna-Network
      L2Off Haruna-Network

      By L2Haruna-Network · Posted

      🔥 Welcome to Lineage 2 Haruna x3 – True Classic Interlude Experience 🔥 At Haruna x3, we’re bringing back the true essence of Interlude – slow, meaningful progression where every level matters, every item has value, and PvP is real. We’re not about fast servers, pay-to-win advantages, or fake populations. Our goal is simple: create a fair, stable, and long-term server where players can enjoy real competition, strategic clan warfare, and the thrill of open-world PvP. 💎 What Makes Haruna x3 Special? x3 Rates – Perfect for steady, rewarding progression Classic Interlude Mechanics – Relive the nostalgia of Interlude Stable & Lag-Free Gameplay – Optimized for thousands of players online Fair & Balanced – No pay-to-win, every victory is earned PvP & Clan Warfare Focused – Every battle counts 🌟 Quality of Life Features to Enhance Your Experience We keep the classic feel while adding features that make the game more convenient and enjoyable, including: Shift + Click to view monster droplists Free item mail and buy/sell via Adena Daily login rewards & Stream Rewards ALT+K Skill Panel & Alt+Click buffs removal Offline shop system Captcha for security Donate Coins currency (cannot be traded, dropped, or destroyed) Classic P110 client – no custom interface 🏰 Our Philosophy We believe Lineage 2 is about the journey, not just the destination. Haruna x3 is designed for months and years of growth, not weeks. We provide a community-driven environment where honest gameplay, fair competition, and strategic teamwork are at the forefront. 🌍 Join Our Community Whether you’re a veteran of Interlude or a returning player seeking a true classic experience, Haruna x3 offers a place to fight, trade, and grow alongside dedicated players. Step into the world of Haruna x3 – where every decision matters, every fight counts, and every victory is yours to earn. Discord: https://discord.gg/7DDC9Dsxnh Website : www.l2haruna.com
    • Maxtor
      Reporting Illegal or Rule-Violating Content (post here)

      By Maxtor · Posted

      No, the real purpose is cheating and custom  development for games.  I'm building a custom AI moderator specially for checking illegal activity and flag current topica.
    • QxQ
      Fafurion / Secret Of Empire client edit

      By QxQ · Posted

      Hello trying to edit Armorgrp_Classic.dat using L2ClientDat Editor - l2jmobius edition I can normally open a file but can't save, even can't save "clean" version of file (just open and then click save) Other files i can normally open, edit and save. but there is problem with Armorgrp_Classic.dat Anyone find solution, or other Editor for protocol 166 ?   [25/12 15:10:11] --------------------------------------- [25/12 15:10:11] Open file: Armorgrp_Classic.dat [25/12 15:10:11] File Armorgrp_Classic.dat encrypted. Lineage2Ver413 decrypt ... [25/12 15:10:11] Decrypt Armorgrp_Classic.dat file successfully by v413_encdec decrypter. [25/12 15:10:11] Read the file structure ... [25/12 15:10:11] Unpacking [L2GameDataName.dat] [25/12 15:10:11] GameDataName: Load 97534 count. [25/12 15:10:11] Completed. [25/12 15:11:32] Wrong param count for wrapper: fertheia_mesh_add, paramIndex: 1, params: {{{[LineageAccessory3.fertheia_pvp_Hrm_ad11];[None];[LineageAccessory3.fertheia_pvp_Hrm_ad11];[None];[LineageAccessory3.fertheia_pvp_Hrm_ad11;[none]};{{109;114};{0;-1};{109;114};{0;-1};{109;114}}};{[Mantleguild.kingdom.E_elmd_1_t00];[None];[Mantleguild.kingdom.E_elmd_1_t00];[None];[Mantleguild.kingdom.E_elmd_1_t00];[None]};[None]} -node: fertheia_mesh_add[WRAPPER][null][null] param: {{{[LineageAccessory3.fertheia_pvp_Hrm_ad11];[None];[LineageAccessory3.fertheia_pvp_Hrm_ad11];[None];[LineageAccessory3.fertheia_pvp_Hrm_ad11;[none]};{{109;114};{0;-1};{109;114};{0;-1};{109;114}}};{[Mantleguild.kingdom.E_elmd_1_t00];[None];[Mantleguild.kingdom.E_elmd_1_t00];[None];[Mantleguild.kingdom.E_elmd_1_t00];[None]};[None]} org.l2jmobius.xml.exceptions.PackDataException: Wrong param count for wrapper: fertheia_mesh_add, paramIndex: 1, params: {{{[LineageAccessory3.fertheia_pvp_Hrm_ad11];[None];[LineageAccessory3.fertheia_pvp_Hrm_ad11];[None];[LineageAccessory3.fertheia_pvp_Hrm_ad11;[none]};{{109;114};{0;-1};{109;114};{0;-1};{109;114}}};{[Mantleguild.kingdom.E_elmd_1_t00];[None];[Mantleguild.kingdom.E_elmd_1_t00];[None];[Mantleguild.kingdom.E_elmd_1_t00];[None]};[None]} -node: fertheia_mesh_add[WRAPPER][null][null] param: {{{[LineageAccessory3.fertheia_pvp_Hrm_ad11];[None];[LineageAccessory3.fertheia_pvp_Hrm_ad11];[None];[LineageAccessory3.fertheia_pvp_Hrm_ad11;[none]};{{109;114};{0;-1};{109;114};{0;-1};{109;114}}};{[Mantleguild.kingdom.E_elmd_1_t00];[None];[Mantleguild.kingdom.E_elmd_1_t00];[None];[Mantleguild.kingdom.E_elmd_1_t00];[None]};[None]} at org.l2jmobius.xml.DescriptorWriter.packData(DescriptorWriter.java:275) at org.l2jmobius.xml.DescriptorWriter.packData(DescriptorWriter.java:184) at org.l2jmobius.xml.DescriptorWriter.parseData(DescriptorWriter.java:100) at org.l2jmobius.actions.SaveDat.action(SaveDat.java:70) at org.l2jmobius.actions.ActionTask.doInBackground(ActionTask.java:48) at org.l2jmobius.actions.ActionTask.doInBackground(ActionTask.java:27) at java.desktop/javax.swing.SwingWorker$1.call(SwingWorker.java:303) at java.base/java.util.concurrent.FutureTask.run(FutureTask.java:328) at java.desktop/javax.swing.SwingWorker.run(SwingWorker.java:340) at java.base/java.util.concurrent.ThreadPoolExecutor.runWorker(ThreadPoolExecutor.java:1095) at java.base/java.util.concurrent.ThreadPoolExecutor$Worker.run(ThreadPoolExecutor.java:619) at java.base/java.lang.Thread.run(Thread.java:1447) [25/12 15:11:32] buff == null.  

  • Topics

×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock