Clone Scanner Extended

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	5.0
Scores Submitted	1
Date Added	Jan 10, 2008
Last Updated	Jan 10, 2008
Tags	channel clone mirc name scanner user window

Introduction

I wanted a more detailed clone scanner that did more than just addresses. I was tired of having vhosts daunt me. So I made this, now this was tested on daIRC, you might have to edit it a bit to get it to work on your preferred server.

This script compares addresses, real names, user names, and nick similarities. It shows results in a custom window.

To Use:
Wait for someone to join a channel or do /clonescan to do a full channel scan.

Grab the Code

Raw 315:*:{
  haltdef
}

Raw 352:*:{
  tokenize 32 $3-
  .ialmark $4 $1 $+ @ $+ $2 $7-
  haltdef
}

Raw 375:*:{
  halt
}

Raw 376:*:{
  halt
}

On *:Join:*:{
  echo $chan 3,1[ $+ $asctime(hh:nn:ssTT) $+ ] * Address( $+ $nick $+ ): $address($nick,5)
  echo $chan 3,1[ $+ $asctime(hh:nn:ssTT) $+ ] * Options( $+ $nick $+ ): Please press F5 - Kick or F6 - Ban or F7 - KickBan  
  set %LastNick. [ $+ [ $Chan ] ] $nick
  set %GetNewInfo 1
  whois $nick
  If ( $nick == $me ) {
    .who $chan
  }
  clonescanuser $Nick
}

alias clonescanuser {
  var %Nick.Nick $$1
  tokenize 32 $IAL($$1).Mark
  var %Nick.RealName $2- 
  var %Nick.Address $1
  var %I 1
  var %Max $Nick($Chan,0)
  var %Result $false
  var %FirstFind $false
  While (%I <= %Max) {
    var %Nick2.Nick $Nick($Chan, [ %I ])
    tokenize 32 $IAL(%Nick2.Nick).Mark
    var %Nick2.RealName $2- 
    var %Nick2.Address $1
    If (%Nick2.Nick iswm %Nick.Nick) { var %Result $true }
    If (%Nick.Nick iswm %Nick2.Nick) { var %Result $true }
    If (%Nick2.RealName iswm %Nick.RealName) { var %Result $true }
    If (%Nick.RealName iswm %Nick2.RealName) { var %Result $true }
    If (%Nick.RealName == %Nick2.RealName) { var %Result $true }
    If (%Nick2.Address == %Nick.Address ) { var %Result $true }
    If (%Nick2.Address iswm %Nick.Address ) { var %Result $true }
    If (%Nick.Address iswm %Nick2.Address ) { var %Result $true }
    If (%Nick.Nick == %Nick2.Nick) { var %Result $false }  
    inc %I
    If (%Result == $true) {
      If (%FirstFind == $false) {
        aline 3 @CloneScan *
        aline 3 @CloneScan * 9Clone User:     0[11Nick: 0 $+ %Nick.Nick $+ ] 0[11Address: 0 $+ %Nick.Address $+ ] 0[11Real Name: 0 $+ %Nick.RealName $+ ]
        var %FirstFind == $true)
      }
      set %CheckedUsers %CheckedUsers %Nick.Nick %Nick2.Nick
      aline 3 @CloneScan * 4Clone detected: 0[11Nick: 0 $+ %Nick2.Nick $+ ] 0[11Address: 0 $+ %Nick2.Address $+ ] 0[11Real Name: 0 $+ %Nick2.RealName $+ ]
      var %Result $false
    }
  }
  If (%FirstFind != $false) {
    aline 3 @CloneScan *
  }
}

alias clonescan {
  var %I 1
  var %Max $Nick($Chan,0)
  set %CheckedUsers
  window -ak0xz @CloneScan
  clear @CloneScan
  While (%I <= %Max) {
    var %Nick $Nick($Chan, [ %I ])
    If (%Nick !isin %CheckedUsers) { 
      clonescanuser %Nick
    }
    inc %I
  }
  unset %CheckedUsers
}

raw 311:*: {
  If (%GetNewInfo == 1) {
    tokenize 32 $2-
    .ialmark $1 $2 $+ @ $+ $3 $5-
    unset %GetNewInfo 
    halt
  }
}

alias whois { If (%GetNewInfo != 1) { uwho $$1 } }

Comments

(1) RSS

Go to Bottom

Joshuaxiong1

Comments: 91

mIRC Snippet: Clone Scanner Extended
Posted on Jan 12, 2008 9:10 pm

* /set: line too long (line 61, remote.ini)

Clone Scanner Extended

Introduction

Grab the Code

Comments

ThievingSix

My Snippet Tags

Contact

Sponsors


Last seen: Jan 16, 2008 Profile Snippets (2) Comments Received (6) Comments Submitted (2)