random userid on connect using oidentd.

[Cristian]

Change the variables:

ident - put in the idents you wish the bot should take its pick from. fx. "userid1 userid2 userid3 userid4 userid5"
conf - type in the full path to the .oidentd.conf fx. "/home/username/.oidentd.conf"

and you're are done

Please report any errors or bugs here.

Code: Select all

# oidentd.tcl Version 1.0 - An eggdrop script for using spoofed 
# ident replys with the oidentd (Version 2.0.4).
#
# Copyright (C) 2002 Stephan Brendel 
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
#
# 

# -------------------------------------------------------------------------


namespace eval oident {

   namespace eval variable {
      #Set this to your idents you like to use with this Eggdrop
      variable ident "userid1 userid2 userid3 userid4 userid5"
      #Set this to the full path of your .oidentd.conf [/home/username/.oidentd.conf]
      variable conf "/home/username/.oidentd.conf"
   }
   bind evnt - connect-server [namespace current]::setident

   proc setident {type} {
      set file [open $::oident::variable::conf "w"]

      if {[llength $::oident::variable::ident] == 1} {
         set ident "$::oident::variable::ident"
      } elseif {[llength $::oident::variable::ident] > 1} {
         set ident "[lindex "$::oident::variable::ident" [rand [expr [llength $::oident::variable::ident] - 1]]]"
      }
      puts $file "global { reply \"$ident\"}"
      close $file
      putlog "\002OIdent\002 Ident set to $ident"
   }
}   
putlog "oidentd.tcl Version 1.0 coded by Stephan Brendel loaded"
putlog "\00304[string range [info script] 0 end]\00304 \002loaded\003\002. Edited by \002W\002ebsite: http://sp00fed.org"

[daveyw]

Why you should use random idents?

I don't think that's a good idea, what if some bots are added and he will reconnect with other ident, then its possible that the other bots doesn't recognizing him. And if that are protection bots it can be a botfight, if he will do something.

[Cristian]

well, you can use it for random userid's or you could just add one userid, and it will use it.

About the bot fight, if you script your bots correct it will never happen ;)

[SilverRain]

NOTE: NEVER EVER use this script on BNCs/Bots if you have a Quakenet trust, it will result in the glining of your IP RANGE