Blowfish decrypt

[RaZ]

Hello,

I've use this to decrypt http://forum.egghelp.org/viewtopic.php?t=4269 but my bot no responding in channel with this code:

set key "keytest"
bind pub - "#test *" decryptall

proc decryptall { nick uhost handle chan arg } {
global key
set arg [decrypt $key [string range $arg 4 9999]]
eval [$nick $uhost $handle $chan $arg]
}

Please, help me, i'm noobie

[demond]

what is that [eval] supposed to do?

you are confused with Tcl syntax, square brackets mean command substitution, and $nick is not a Tcl command

[Alchera]

Code: Select all

putserv "PRIVMSG $chan :arg = $arg"

You obviously didn't read the posted code correctly. There's no mention of [eval]. Replace that line with the one above.

[RaZ]

with

putserv "PRIVMSG $chan :arg = $arg"

its ok but the bot no reply, example:

set key "keytest"

bind pub - !test pub:test
bind pub - "#test *" decryptall

proc pub:test { nick uhost handle channel arg } {
putquick "PRIVMSG $channel :HELLO"
}

proc decryptall { nick uhost handle chan arg } {
global key
set arg [decrypt $key [string range $arg 4 9999]]
putserv "PRIVMSG $chan :arg = $arg"
}

but i f i wrote !test, the bot dont reply "HELLO"

[RaZ]

fixed!

set proc [pub:test $nick $uhost $handle $channel [string range $arg 0 9999]]



Thanks

[demond]

with

putserv "PRIVMSG $chan :arg = $arg"

its ok but the bot no reply, example:

set key "keytest"

bind pub - !test pub:test
bind pub - "#test *" decryptall

proc pub:test { nick uhost handle channel arg } {
putquick "PRIVMSG $channel :HELLO"
}

proc decryptall { nick uhost handle chan arg } {
global key
set arg [decrypt $key [string range $arg 4 9999]]
putserv "PRIVMSG $chan :arg = $arg"
}

but i f i wrote !test, the bot dont reply "HELLO"

bot's own output doesn't get echoed back to it (only to other channel members, not to message originator), so the bind doesn't get triggered; you cannot test your scripts this way