Tai_Pan

Tai_Pan

Joined
Aug 31, 2019

Activity Stream

Tai_Pan created a Page  -  Nov 02, 2019

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

Tai_Pan   -  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;


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

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.