egghelp.org community

[virtuoso]

hello.

im trying to run this tcl script,but it doesn't works. the error message i
see is :

[06:42] Tcl error in script for 'need-op':
[06:42] can't read "randbase": no such variable

can some one help me to fix it ? thanks

or if someone knows a better tcl script like this,please tell me...



this is the source code :



#Distributed Eggdrop Keyserver for eggdrop1.3.22

#by nullset{} (nullset@nullset.resnet.gatech.edu)

#

#This is the way overly secure opping script i wrote.

#It started off just as an op script, but then i decided to make the
distributed key server

#And use it in the op script

#It's for those of you who are way overly paranoid, such as myself.

#Please read through and edit it, as your bot will crash if you don't edit
some lines

#If you edit anything, or have questions/comments (ie it sucks, it rules,
it's way overkill)

#email them to me at the address shown above

#Future versions (if ever) will include: A C module for PGP encyrption
(hehe)

#Custom sockets

#More security checking within the script itself

#A maximum ping time so that it won't op the bot if there is more than XX
lag b/w the two

#(Prevents the bot from 'verifying' itself then lagging off right after this
bot puts in the

#mode. If this were to happen, anyone with the nick 'bot1' will be opped.

#Anything else overly complex i can think of. Please use my opping script as
an example

#Of how to use the keyserver....don't let it go to waste by jsut opping.
Send me anything you

#do based on this script.

#The last section of code is the opping script, with usage instructions.
Enjoy

###### INITIAL SETTINGS #######

#how long to keep a key before generating a new one? (in seconds, but the
clock is a bit fast)

set keepvkey "5000"

# Place the nickname of the 'keyserver' bot here

set keyserver "Nutellina"

# This is the key used to encrypt the keys. If it's more than 8 chars long,
the bot will crash

#NOTE: edit this or your bot will crash

set vkey "giustizia"

#This phrase is used to make sure the other bot knows our vkey.

set testphrase "sincerita"

#This is the keyword used for opping.....

set opvword "amore"

#A list of bots you want to receive keys/ask for ops from. noticed this bot
(bot1) isn't in

#its own list

set botlist { ada123 }

#Number of bots

set num_of_vbots "1"

############################################################################
############

#### YOU DONT NEED TO TOUCH ANYTHING BELOW HERE, BUT IF YOU DO, EMAIL ME
WHAT YOU CHANGED

#I'm nullset@nullset.resnet.gatech.edu

############################################################################
#############

#### Keyserver client proc ###########

proc newkey {from command args} {

global keyserver randbase sanekey vkey testphrase newkey

set testkey [lindex "$args" 0]

set testkeya [decrypt $vkey $testkey]

if { $testkeya == $testphrase} {

set newkey [eval lindex "$args" 1]

set randbase [decrypt $vkey $newkey]

putlog "New Key Received from $from."

}

if { $testkeya != $testphrase } {

putlog "Invalid Key Sent from $from. Decrypted = $testkeya"

}

return 0

}

####### Keyserver server proc##############

proc initialize_random {} {

global randbase randnum keepvkey vkey testphrase botlist num_of_vbots

set randbase [eval rand 720]

set keytosend [encrypt $vkey $randbase]

set encphrase [encrypt $vkey $testphrase]

#the catch is there, in case said bot isn't on the botnet

for {set botname 0} {$botname < $num_of_vbots} {incr botname} {

catch [putbot [lindex "$botlist" $botname] "NUKEY $encphrase $keytosend"]

}

utimer $keepvkey initialize_random

return 0

}

#####This is needed to call the keyserver script initially

if { $botnick == $keyserver} {

initialize_random

}

###If we aren't keyserver, we want to receive keys....

if { $botnick != $keyserver} {

bind bot - NUKEY newkey

}

#####################This is the script i wrote to op my bots using the
keys################

#To use it, do '.chanset #yourchan need-op msg_getops #yourchan' and edit
the need-op value#

#In your cfg file #

############################################################################
################

proc msg_op {nick uhost hand args} {

global randbase opvword

set chan [eval lindex "$args" 1]

set chantoop [decrypt $randbase $chan]

set testopword [eval lindex "$args" 0]

set testbase [decrypt $randbase $testopword]

if { $testbase == $opvword } {

if { [handonchan $hand $chantoop] } {

putlog "Opping $nick on $chantoop"

putserv "MODE $chantoop +o $nick"

}

}

}

bind msg b OPME msg_op

proc msg_getops {chan} {

global botlist randbase opvword num_of_vbots

putlog "Asking for ops....."

for {set botnum 0} {$botnum < $num_of_vbots} {incr botnum} {

set bottomsg [lindex "$botlist" $botnum]

set encoded [encrypt $randbase $opvword]

set chann [encrypt $randbase $chan]

putserv "PRIVMSG $bottomsg :OPME $encoded $chann" }

}