raw &311:*:{ echo -a $timestamp 12|¯¯¯¯13( 0whois $2 13 )12¯¯¯¯¯¯¯¯¯¯¯11 ¯¯¯¯¯ ¯¯¯¯ ¯¯¯13 ¯¯ ¯ | echo -a $timestamp 12| 0nick:14 $2 | echo -a $timestamp 12| 0name:14 ( $+ $6- $+ ) | echo -a $timestamp 12| 0hostname:14 $3 $+ @ $+ $4 | halt }
raw &314:*:echo -a $timestamp 12| 0name:14 $2- | halt
raw &312:*:echo -a $timestamp 12| 0server:14 $3 ( $+ $4- $+ ) 0IP:12 $serverip | halt
raw &369:*:echo -a $timestamp 12| 0whowas:14 $2- | halt
raw &379:*:echo -a $timestamp 12| 0using modes:14 $6- | halt
raw &307:*:echo -a $timestamp 12| 0registered nick:14 Yes | halt
raw &319:*:echo -a $timestamp 12| 0channels:14 $3- | halt
raw &313:*:echo -a $timestamp 12| 0oper status:12 $5- | halt
raw &671:*:echo -a $timestamp 12| 0SSL:12 $4- | halt
raw &310:*:echo -a $timestamp 12| 0raw info:12 $4- | halt
raw &320:*:echo -a $timestamp 12| 0raw info:12 $3- | halt
raw &330:*:echo -a $timestamp 12| 0raw info:12 $4- | halt
raw &317:*:echo -a $timestamp 12| 0idle:14 $duration($3) | halt
raw &301:*:echo -a $timestamp 12| 0away:14 $3- | halt
raw &318:*:echo -a $timestamp 12|____13( 0end whois $2 13 )12_____________ _______ 11_____ _____ ____ ___ 13__ _ | halt
raw &378:*:{
haltdef
var %host = $remove($6,*@)
hadd -mu1800 userhost $2 %host
if $longip(%host) {
echo -a $timestamp 12| 0real IP:12 $6
return
}
if $hget(iptable,%host) {
echo -a $timestamp 12| 0real Host:12 $6 0real IP:12 $ifmatch
return
}
echo -a $timestamp 12| 0real Host:12 $6 0Getting IP...
hadd -m iptable %host 0
.dns -h %host
}
On *:dns:{
if $hget(iptable,$dns(1).addr) == 0 {
hadd -mu1800 iptable $dns(1).addr $iif($dns(1).ip,$ifmatch,Unresolved)
halt
}
echo -a $timestamp 13> 11dns12 [13!12]
var %n = $dns(0)
if (!$dns(0)) { echo -a $timestamp 12.11.13. 11Resolve 4Failed }
while (%n > 0) {
echo -a $timestamp 12.11.13. 11Resolved 12: 13[12 $+ $dns(%n).addr $+ 13]12 To 13[12 $+ $dns(%n).ip $+ 13] $iif($dns(%n).nick != $null, 13[12 $+ $dns(%n).nick $+ 13]) | HALTDEF
dec %n
}
}
alias listip {
var %i = $hget(userhost,0).item
window -t20,40 @listip
while %i {
var %nick = $hget(userhost,%i).item, %ip = $hget(userhost,%nick), %i = %i - 1
if $hget(iptable,%ip) {
var %host = %ip, %ip = $ifmatch
}
aline @listip $+(Nick: %nick,$chr(9),IP: %ip,$chr(9),$iif(%host,Host: %host,Unresolved))
}
}
Sunday, August 28, 2011
whoisdns.mrc
Labels:
mIRCScripts,
Remote
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment