Search Ip from connect info For Cheiron on Sep 23, 2019

By Tai_Pan on Nov 02, 2019

Search Ip from connect info
For By Cheiron on Sep 23, 2019

Open a text file with the name IP and place it in the mIRC home directory.
Add the above code to the remote. ( Alt + R )
It will record incoming and outgoing nicks.
You can interrogate him as Nick or IP. My English is bad.
I hope I understood your problem correctly. ;)

Code;


Search Ip from connect info
For  By Cheiron on Sep 23, 2019
on *:input:#Ops:{
  if $regex($1,/^[!.]searchip$/Si) { 
    if !$2 { msg # 5Please Specify Nick / IP.. 12Use Of:4.searchip 12and 4!searchip 7or 4.searchnick 12or 4!searchnick }
    elseif $regex($2,/\d+\.\d+\.\d+\.\d+/Si) {
      if !$isfile($+(IP/,$strip($2),.txt)) { msg # 10 $+(,$strip($2),) 12™ ® 4INo Recorded Data for IP Number Found.. 12® ™ | return }
      msg # 4=====" 2Nickname 4"======" 2Ident 4"======" 2Action 4"=======" 2Time 4"======= " 2Date 4"=====
      msg # 2-
      var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar {
        var %:read = $read($+(IP/,$strip($2),.txt),%:_ar)
        msg # 2-4Nick:3 $token(%:read,2,32) 2- 4Ident:2 $token(%:read,3,32) 2-4 Action:11 $token(%:read,4-,32) 2-4 Time:2 $token($token(%:read,1,32),2,191) 2-9 $iif($date == $token($token(%:read,1,32),1,191),Today,$token($token(%:read,1,32),1,191))
        dec %:_ar
      }
      msg # 2-
      msg # 13™ ® 4Information:10 $+(,$strip($2),) 4Number Of IP2 $+(,$lines($+(IP/,$strip($2),.txt)),) 4Number of Records Listed.. 13® ™
      msg # 13===============================================================
      msg # 2-
      .hadd -ms Ns-list $strip($2) #
      ns list $+(*@,$strip($2))
    }
    else {
      if !$isfile($+(IP/,$strip($2),.txt)) { msg # 10 $+(,$strip($5),) 12™ ® 4No Data Found for This Nick .. 12® ™ | return }
      msg # 4=====" 2IP Number 4"======" 2Ident 4"=======" 2Action 4"========" 2Time 4"==== " 2Date 4"=====
      msg # 2-
      var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar {
        var %:read = $read($+(IP/,$strip($2),.txt),%:_ar)
        msg # 2-4IP:3 $token(%:read,2,32) 2- 4Ident:2 $token(%:read,3,32) 2- 4 Action:11 $token(%:read,4-,32) 2- 4 Time:2 $token($token(%:read,1,32),2,191) 2-9 $iif($date == $token($token(%:read,1,32),1,191),Today,$token($token(%:read,1,32),1,191))
        dec %:_ar
      }
      msg # 2-
      msg # 13™ ® 4Information:10 $+(,$strip($2),) 4For This Nickname2 $+(,$lines($+(IP/,$strip($2),.txt)),) 4Number of Records Listed.. 13® ™
      msg # 13===============================================================
      msg # 2-
    }
  }
}
on *:notice:*:?:{
  if ($nick == NickServ) {
    if $regex($1-,/Matching Data:/Si) && $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { 
      msg # $hget(Ns-list,$regml(1)) 10 $+(,$regml(1),) 9Registered Nick List of IP Number: 
    }
    elseif $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) && $hget(Ns-list,$regml(1)) { 
    msg # $hget(Ns-list,$regml(1)) 4IP Owner Nick:2 $strip($1) }
    elseif $regex($1-,/End Of List/Si) { 
      $iif($4 == 0/0,msg $hget(NS-list,1).data 12™ ® 4NickServ has No Registered or Identified Nick.. 12 ® ™) 
      .hfree -sw Ns-list
    }
  }
}

on *:snotice:*:{
  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5), %_hub $regml(1)
    var %_girs = $iif(%_hub == at,%_port HUB,$iif(%_port == 6667,Mobil,$iif(%_port == 7003,Web,IRC))) Has Logged in
    $iif(!$isdir(IP),.mkdir IP)
    .write $+(IP/,%_ip,.txt) $+($date,¿,$time) %_nick %_ident %_girs
    .write $+(IP/,%_nick,.txt) $+($date,¿,$time) %_ip %_ident %_girs
  }
  elseif $regex($1-,/his\/her nickname to/Si) { 
    var %_nk = $token($1-,-1,32), %_it $token($token($1-,1,64),2,40), %_ips $token($token($1-,2,64),1,41)
    $iif(!$isdir(IP),.mkdir IP)
    .write $+(IP/,%_ips,.txt) $+($date,¿,$time) %_nk %_it Changed his Nickname
    .write $+(IP/,%_nk,.txt) $+($date,¿,$time) %_ips %_it Changed his Nickname
  }
  elseif $regex($1-,/Permanent (.+) added for .+@(.+) on.+from (.+)!.+/Si) { 
  .hadd -msu15 IRC-Login $regml(1) $regml(2) $regml(3) Command Applied }
  elseif $regex($1-,/Client exiting/Si) { 
    if $regex($1-,/Client exiting\: (.+) \((.+)@(.+)\) .+/Si) { 
    var %_cnk = $regml(1), %_cit $regml(2), %_cip $regml(3) }
    elseif $regex($1-,/Client exiting at .+: (.+)!(.+)@(.+)/Si) { 
    var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) }
    var %:ban = $hget(IRC-Login,%_cip)
    $iif(!$isdir(IP),.mkdir IP)
    .write $+(IP/,%_cip,.txt) $+($date,¿,$time) %_cnk %_cit $iif(%:ban,%:ban,Logged Out)
    .write $+(IP/,%_cnk,.txt) $+($date,¿,$time) %_cip %_cit $iif(%:ban,%:ban,Logged Out)
    $iif($hget(IRC-Login,%_cip),.hdel -ms IRC-Login %_cip)
  }
}

Comments

Sign in to comment.
biase   -  May 06, 2020

nice..
you might want to check $longip in help file, it's more better for validating ip compared to $regex because
\d+ detect more than 255

 Respond  
Cheiron   -  Nov 04, 2019

Having numerous issues here.

firstly.. i can only trigger it on the botself and not from a command from a user in the room
secondly.. it constantly tells me there is no recorded data for ip number found

Thats initial report back

Tai_Pan  -  Nov 06, 2019

This code records the IP and nicknames of the people entering and leaving the server from the moment you add it by making mirc script Alt + R. Place the IP.txt document in the mIRC home directory. Replace on :input:#Ops:{ on :text:#Ops:{ with so that everyone can use it... Set server ports to your own server. LİNE: var %_girs = $iif(%_hub == at,%_port HUB,$iif(%_port == 6667,Mobil,$iif(%_port == 7003,Web,IRC)))

Sign in to comment

Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.