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;
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)
}
}