Trying to decrypt blowfish

2004-12-22T18:51:05-04:00

this is in a wrong forum, but anyway:

try to get an error traceback with .set errorInfo

your proc has syntax errors, you probably meant $doarg, not $darg; also, I don't see $procs declared as global

Statistics: Posted by demond — Wed Dec 22, 2004 6:51 pm

Trying to decrypt blowfish

2004-12-22T07:17:48-04:00

Hej,

Im making a new script, wich should be able to use blowfisch.
The encryption part goes ok, but im having troubles with the decryption command.

Here a few code snippets

Code:

#the blowfish settingsset response(USEBLOW) 1set response(BLOWKEY) "f0rt3sting0nlyatthismoment!"set response(BLOWHEADER) "+OK"#the binding of incoming encrypted thingsbind pub -|- [set response(BLOWHEADER)] proc_decrypt#the decrypting procproc proc_decrypt { nick uhost hand chan arg } {global usedproc responseset commandline [decrypt $response(BLOWKEY) $arg]    set docommand [lindex $commandline 0]    set doarg [lrange $commandline 1 end]foreach curproc $procs {    set curproc [split $curproc :]    if { $docommand == [subst [lindex $curproc 0]] } {    [lindex $eachproc 1] $nick $uhost $hand $chan $darg    return    }    }}

Afaik this should be right. I looked at other scripts using blowfish enc/decryption and it seems to work there.
But... im getting this wierd error that the proc proc_decrypt is missing an argument:

[13:55] Tcl error [proc_decrypt]: no value given for parameter "hand" to "decrypt"

Kinda wierd, caus if i remove the hand argument, it says the proc is getting called with to many arguments.
Can someone help me with this strange problem?

dw33p

Statistics: Posted by dw33p — Wed Dec 22, 2004 7:17 am

egghelp/eggheads community

Trying to decrypt blowfish

Trying to decrypt blowfish