Multi network IP whois!

+ 0 likes

Please Register to submit score.

Average Score	6.8
Scores Submitted	5
Date Added	Jul 12, 2007
Last Updated	Jul 17, 2007

Introduction

As always, when im extremly bored, I make something random. And here is what i came to think of. I know you can use $ialchan(), but I decided to use this version of it ;p.

The script supports searches of anything like this:
/findip *!*@test.*
/findip *!*@test.com

Etc.

As the script is using $wildtok(), wildcards such as ? and * are accepted. It does not support ident or realnick searches.

Here is an example of the output:

*!*@*.support.dairc matched "Lindrian". The user can be found on #testing on DaIRC.
"Lindrian" has been idle for 5hrs 39mins 20secs

-----------------------------------------------

Oh and, paste it in remotes (alt + r).

-----------------------------------------------

I would suggest turning /who on join ON, to keep your IAL updated at all times. Ive input the raws to halt the output of the /who events.

I havent tested the script very much, but there shoudnt be any bugs.

Enjoy.

Regards, Lindrian.

-------------------------

Updated the code, It uses $ialchan() now.

-------------------------

Updated: Noticed a flaw in the IAL checking for channels, seperated alias, works fine now.

-----------

Updated, the script now supports wildcards, optional.

/findip -w *!*@some.ip.com <- wildcards (? *)

/findip *!*@some.ip.com <- Exact match.

--

You can now also scan CHANNELS!
/findip -c[w] NAME #CHANNEL
-c = channel switch
-cw = Channel switch with wildcard.

------

New format added to the script.

*!*@*.net matched 20 user(s), [Toshiba],bahn,LGKeiz,Navi,nVidiaFreak. Advil|beed (*!*@daIRC-B9D0B457.lsanca.dsl-w.verizon.net) can be found on #deltaanime at DaIRC.
"Advil|beed" has been idle for 9mins 5secs.

---

Updated the way of showing address and all nets the user matched.

Grab the Code

; ����������������������������������������
; IP whois 1.0 - coded by Lindrian (firas.dib@gmail.com)
; Do not edit anything in here unless you really know what you're doing!
; Remember, ripping is lame.
; ����������������������������������������

alias findip {
  if ($istok(*!*@ *!* *!*@*,$1,32)) || ($istok(*!*@ *!* *!*@* !* *! *,$2,32)) { echo $color(info) -a You may notsearch for the term $qt($iif($1 != -w,$1,$2)) $+ . | return }
  if ($left($1,1) == $chr(45)) && (!$istok(-c -cw -w,$1,32)) { echo $color(info) -a $qt($1) is not a supported switch! | return }
  var %x = 1, %user = $iif($1,$1,$$?1="Enter hostmask (eg, *!*@ABC123.456.AOL.COM)")
  if ($1 == -w) { var %user = $iif($2,$2,$$?2="Enter hostmask (eg, *!*@ABC???.456.AOL.*)") }
  if ($1 == -c) || ($1 == -cw) { 
    if (!$2) || (!$3) {
      echo $color(info) -a You did not speceify a $iif(!$2,nick!,#channel!)
    }
    elseif ($2) && ($3) {
      set %prefix $right($1,1)
      findip2 $2 $iif($left($3,1) != $chr(35),$v2 $+ $3,$3)
    }
    return
  } 
  while ($scon(%x)) {
    scon %x
    var %y = 1, %z = $comchan($me,0)
    while (%y <= %z) { 
      var %i = $comchan($me,%z), %o = $ialchan(%user,%i,1)
      if ($1 == -w) && ($wildtok(%o,$+(*,%user,*),1,32)) || (%user isin %o) {
        var %nickr = $ialchan(%user,%i,1).nick, %net = $addtok(%net,$network,44), %idle = $_idle(%nickr), %address = $address(%nickr,2)
        set %match 1
      }
      elseif ($+(*!*@,$gettok(%o,2,64)) == %user) {
        var %nickr = $ialchan(%user,%i,1).nick, %net = $addtok(%net,$network,44), %idle = $_idle(%nickr), %address = $address(%nickr,2)
        set %match 1
      }
      inc %y
    }
    inc %x
  }
  if (%match) {
    var %aa = $match(*!*@ $+ $gettok($ialchan(%user,%i,1),2,64),%nickr)
    echo $color(info) -a %user matched $iif($numtok(%aa,44) > 1,$v1 user(s) $+ $chr(44)  $sorttok($gettok(%aa,1-5,44),44),$qt(%nickr)) $+ . %nickr $iif(%address,( $+ $v1 $+ )) can be found on $sorttok(%chan,44) at %net $+ .
    echo $color(info) -a $qt(%nickr) has been idle for %idle $+ .
  }
  else {
    echo $color(info) -a No matches for $qt(%user) found. This may be due to not having your IAL updated!
    $iif($numtok($chan.err($me),44) >= 1, echo $color(info) -a The following channels do not have an updated IAL: $sorttok($chan.err($me),44) $+ $chr(44) Try enabling $qt(/who on join) in the menu section.)
  }
  unset %match %chan %chan.err %_nick %searcher
}

alias findip2 {
  if ($me !ison $2) { echo $color(info) -a You're not on $2 $+ ! | return }
  if ($2 ischan) {
    if (!$chan($2).ial) { echo $color(info) -a Your IAL for $2 is not updated! Please retry | return }
    if $+(*!*@,$gettok($ialchan($1,$2,1),2,64)) == $1 && (%prefix != w) {
      echo $color(info) -a Scan result for $2 $+ :
      echo $color(info) -a $1 matched $qt($ialchan($1,$2,1).nick) $+ . 
      echo $color(info) -a $ialchan($1,$2,1).nick has been idle for $_idle($ialchan($1,$2,1).nick)
    }
    elseif (%prefix == w) && ($wildtok($ialchan($1,$2,1),$+(*,%user,*),1,32)) {
      echo $color(info) -a Scan result for $2 $+ :
      echo $color(info) -a $1 matched $qt($ialchan($1,$2,1).nick) $+ . 
      echo $color(info) -a $ialchan($1,$2,1).nick has been idle for $_idle($ialchan($1,$2,1).nick)
    }
    else {
      echo $color(info) -a There was no result for $qt($1) on $2 $+ .
    }
  }
  unset %prefix
}

alias -l _idle {
  var %z = $comchan($1,0), %idle = ?
  while (%z) {
    var %i = $comchan($1,%z)
    %chan = $addtok(%chan,%i,44)
    if ($nick($comchan($1,%z),$1).idle < %idle) || (%idle == ?) { 
      %idle = $iif($duration($nick($comchan($1,%z),$1).idle),$v1,error)
    }
    dec %z
  }
  return %idle
}

alias -l chan.err {
  var %x = 1
  while ($scon(%x)) {
    scon %x
    var %i = $comchan($1,0)
    while (%i) {
      if (!$chan($comchan($me,%i)).ial) { 
        %chan.err = $addtok(%chan.err,$comchan($1,%i),44) 
      }
      dec %i
    }
    inc %x
  }
  return %chan.err
}

alias -l match {
  var %x = 1
  while ($scon(%x)) {
    scon %x
    var %y = 1, %z = $comchan($me,0)
    while (%y <= %z) {
      var %a = 1, %b = $nick($comchan($me,%y),0)
      while (%a <= %b) {
        var %i = $comchan($me,%y), %nick = $nick(%i,%a)
        if $1 iswm $ial($nick($comchan($me,%y),%a)) {
          %_nick = $addtok(%_nick,$nick($comchan($me,%y),%a),44)
        }
        inc %a
      }
      inc %y
    }
    inc %x
  }
  return $iif($numtok(%_nick,44) != 0,%_nick,$2)
}

menu channel,status {
  Ipwhois
  ..$iif($group(#ipwhois) == off,Enable,Disable) /who on join: $iif($group(#ipwhois) == off,Enable,Disable) #ipwhois
  ..-
  ..Search for an IP: findip
  ..Search for an IP (wildcard): findip -w 
}

#ipwhois on
on me:*:join:#: $+(.,timer,.,$r(5,150),$chan) 1 $r(5,10) who $chan

raw 315:*: haltdef
raw 352:*: haltdef
#ipwhois end

; eof

Comments

(15) RSS

Go to Bottom

xDaeMoN

Comments: 696

mIRC Snippet: Multi network IP whois!
Posted on Jul 12, 2007 12:11 pm

I don't really see the need of using $wildtok in this case when you can just use "iswm". ;)

Lindrian

Comments: 719

mIRC Snippet: Multi network IP whois!
Posted on Jul 12, 2007 12:33 pm

Doesnt make much difference acually does it :P?

xDaeMoN

Comments: 696

mIRC Snippet: Multi network IP whois!
Posted on Jul 12, 2007 1:11 pm

Not really =) Since you're using IAL, you can also use $ial or $ialchan.

Lindrian

Comments: 719

mIRC Snippet: Multi network IP whois!
Posted on Jul 12, 2007 1:28 pm

May I quote myself?

I know you can use $ialchan(), but I decided to use this version of it ;p.

-----

I just dont like the usage of "iswm", and $wildtok() does the same thing, no biggie.

xDaeMoN

Comments: 696

mIRC Snippet: Multi network IP whois!
Posted on Jul 12, 2007 1:40 pm

Oh I didn't read that part lol =P The thing is, it's much more efficient to just use $ial instead of looping to each nick on each channel of each network you have. ;)

Lindrian

Comments: 719

mIRC Snippet: Multi network IP whois!
Posted on Jul 13, 2007 5:40 am

Alrighty. Code updated and uses $ialchan() now. I hope this will get the score a snatch above 4 atleast >_<

Dizzlenub

Comments: 51

mIRC Snippet: Multi network IP whois!
Posted on Jul 13, 2007 5:12 pm

None of it works fer me...says mah IAL isnt updated.

Can anyone explain it? I'm stupid.

Lindrian

Comments: 719

mIRC Snippet: Multi network IP whois!
Posted on Jul 13, 2007 5:32 pm

Try updating your ial, enable it through menus. Then type: /findip *!*@some.ip.com

Remember, it only searches YOUR $comchan(), so to just "test" it, use your friends IP or so.

Lindrian

Comments: 719

mIRC Snippet: Multi network IP whois!
Posted on Jul 14, 2007 4:42 am

Apparantly it still isnt enough for more then a 4, makes me lol.
Anyhow, for the user who rated, i would appreciate if you could explain why you rated it 4 so i can enhance it.

kerstt

Comments: 64

mIRC Snippet: Multi network IP whois!
Posted on Jul 14, 2007 1:28 pm

nice script :)

8/10

also there are people on here who think its funny to rate everything a "1"

Lindrian

Comments: 719

mIRC Snippet: Multi network IP whois!
Posted on Jul 14, 2007 4:55 pm

Yeah, I have noticed that. Very, very annoying. Thanks for your virtual score, kerstt. Even though it doesnt show up in the score itself.

Lindrian

Comments: 719

mIRC Snippet: Multi network IP whois!
Posted on Jul 14, 2007 4:58 pm

As they do on most other sites, I would like to add an option for a professional review, from reviewers (russel, daemon etc), and then keep this old rating system. So there will be 1 professional review, and another score database for all users to rate. Like they use on mirc.net

Lindrian

Comments: 719

mIRC Snippet: Multi network IP whois!
Posted on Jul 16, 2007 5:49 am

Updated the code, several times ;P

sharpknife

Comments: 13

mIRC Snippet: Multi network IP whois!
Posted on Jul 17, 2007 10:26 pm

I'm not that smart, would there be a way to put this script into others? Like to find the person on a certain IP then message them?

Lindrian

Comments: 719

mIRC Snippet: Multi network IP whois!
Posted on Jul 18, 2007 3:00 am

How do you mean sharp? I can try edit it for you.

Multi network IP whois!

Introduction

Grab the Code

Comments

Lindrian

My Snippet Tags

Contact

Friends (13)

Sponsors

		Sweden
Last seen: Aug 21, 2008 Profile \| Website Friends (13) Scripts (1) Snippets (34) Images (21) Comments Received (482) Comments Submitted (719) Forum Posts (1188)