28febcfea9
git-svn-id: svn://svn.code.sf.net/p/bitchx/code/tags/ircii-pana-1.1-final@1 13b04d17-f746-0410-82c6-800466cd88b0
133 lines
3.2 KiB
Tcl
133 lines
3.2 KiB
Tcl
if {![info exists blowfish_version]} {
|
|
putscr "You MUST load the blowfish encryption module prior to loading this!"
|
|
return
|
|
}
|
|
global crypt_timeout cryptfile
|
|
set crypt_timeout 60
|
|
set cryptfile "/home/by-tor/.BitchX/cryptkeys"
|
|
|
|
#borrowed from alltools.tcl
|
|
proc randstring {count} {
|
|
set rs ""
|
|
for {set j 0} {$j < $count} {incr j} {
|
|
set x [rand 62]
|
|
append rs [string range "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" $x $x]
|
|
}
|
|
unset x
|
|
unset j
|
|
return $rs
|
|
}
|
|
|
|
proc crop {n args} {
|
|
global cryptkeeper cryptlist crypt_timeout
|
|
set ln [string tolower $n]
|
|
if {([onchan $n [_T]]) && ([isop $n [_T]])} {
|
|
if {![info exists cryptkeeper($ln)]} {
|
|
putscr "You must first set a pair of crypt keys before using this."
|
|
putscr "Try /addcrypt <nick> <key1> <key2>"
|
|
return
|
|
}
|
|
putserv "privmsg $n :crypt_op"
|
|
set cryptlist($ln) [utimer $crypt_timeout "killcrypt $n"]
|
|
} {
|
|
putscr "$n is not on [_T], or is not an op."
|
|
}
|
|
return
|
|
}
|
|
|
|
proc killcrypt {n} {
|
|
global cryptlist
|
|
if [info exists cryptlist($n)] { unset cryptlist($n) }
|
|
}
|
|
|
|
bind msg -1 crypt_op crypt_response
|
|
|
|
proc crypt_response {n u h a} {
|
|
global cryptkeeper cryptlist
|
|
set ln [string tolower $n]
|
|
if {![info exists cryptlist($ln)]} {
|
|
putscr "$n requesting UNAUTHORIZED crypt verification!"
|
|
return
|
|
} {
|
|
killutimer $cryptlist($ln)
|
|
unset cryptlist($ln)
|
|
putserv "privmsg $n :crypt_reply [encrypt [lindex $cryptkeeper($ln) 1] [decrypt [lindex $cryptkeeper($ln) 0] $a]]"
|
|
}
|
|
return
|
|
}
|
|
|
|
proc addcrypt {n k1 k2 args} {
|
|
global cryptkeeper
|
|
set cryptkeeper([string tolower $n]) "$k1 $k2"
|
|
putscr "Added $n to the crypt keeper with keys $k1 and $k2."
|
|
savecrypt
|
|
}
|
|
|
|
proc savecrypt {} {
|
|
global cryptfile cryptkeeper filekey
|
|
if {![info exists cryptkeeper]} { return 0 }
|
|
if [set fd [open $cryptfile w]] {
|
|
if [info exists filekey] {
|
|
puts $fd "encrypted"
|
|
puts $fd [encrypt $filekey verified]
|
|
foreach name [array names cryptkeeper] {
|
|
puts $fd [encrypt $filekey "$name $cryptkeeper($name)"]
|
|
}
|
|
} {
|
|
foreach name [array names cryptkeeper] {
|
|
puts $fd "$name $cryptkeeper($name)"
|
|
}
|
|
}
|
|
close $fd
|
|
}
|
|
}
|
|
|
|
proc readcrypt {args} {
|
|
global cryptfile cryptkeeper filekey
|
|
if [file exists $cryptfile] {
|
|
if [info exists cryptkeeper] { unset cryptkeeper }
|
|
set fd [open $cryptfile r]
|
|
set text [gets $fd]
|
|
# Is our file encrypted? (Maximum security here!)
|
|
if {![string compare "encrypted" $text]} {
|
|
set text [gets $fd]
|
|
if {[llength $args] < 1} {
|
|
return "You must supply a file key for the encrypted file."
|
|
}
|
|
set filekey [lindex $args 0]
|
|
if {![string compare "verified" [decrypt $filekey $text]]} {
|
|
while {![eof $fd]} {
|
|
set text [decrypt $filekey [gets $fd]]
|
|
if {[llength $text] == 3} {
|
|
set cryptkeeper([lindex $text 0]) [lrange $text 1 end]
|
|
}
|
|
}
|
|
return
|
|
} {
|
|
return "Invalid cryptfile key."
|
|
}
|
|
}
|
|
while {![eof $fd]} {
|
|
set text [gets $fd]
|
|
if {[llength $text] == 3} {
|
|
set cryptkeeper([lindex $text 0]) [lrange $text 1 end]
|
|
}
|
|
}
|
|
return
|
|
}
|
|
}
|
|
|
|
proc filekey {args} {
|
|
global filekey cryptkeeper
|
|
if {[llength $args] > 0} {
|
|
set filekey [lindex $args 0]
|
|
if [info exists cryptkeeper] { savecrypt }
|
|
return "Set crypt file key to \"$filekey\""
|
|
} {
|
|
return "You must supply a key!"
|
|
}
|
|
}
|
|
|
|
readcrypt
|
|
return
|