#!/bin/echo Usage: cd /path/to/eggdrop ; ./e
# Challenge authentication script. Load as eggdrop configuration file.
# (c) 2000 by Mixter <mixter@newyorkoffice.com>
set mod-path . ; loadmodule blowfish
puts -nonewline "Tcl size: " ; flush stdout ; set siz [gets stdin]
puts "-*- Blowfish check: [encrypt . .] Tcl size: $siz -*-"
puts -nonewline "Nickname: " ; flush stdout ; set n [gets stdin]
puts -nonewline "Challenge: " ; flush stdout ; set challenge [gets stdin]
set chk [encrypt $challenge [encrypt $n [file size entity.tcl]]]
puts $chk ; exec sleep 5 ; die [exec clear]
