Initial import of the ircii-pana-1.1-final source tree.

git-svn-id: svn://svn.code.sf.net/p/bitchx/code/tags/ircii-pana-1.1-final@1 13b04d17-f746-0410-82c6-800466cd88b0

doc/tcl/op-crypt.tcl

@@ -0,0 +1,53 @@
+if {![info exists blowfish_version]} {
+	putscr "You MUST load the blowfish encryption module prior to loading this!"
+	return 0
+}
+
+set crypt_timeout 60
+
+#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
+	if [onchan $n [_T]] {
+		if {![info exists cryptkeeper([string tolower $n])]} {
+			putscr "You must first set a pair of crypt keys before using this."
+			putscr "Try /addcrypt <nick> <key1> <key2>"
+			return 0
+		}
+		putserv "privmsg $n :crypt_op"
+		set cryptlist([string tolower $n]) [utimer $crypt_timeout "unset cryptlist([string tolower $n])"]
+	}
+	return 0
+}
+
+bind msg -1 crypt_op crypt_response
+
+proc crypt_response {n u h a} {
+	global cryptkeeper cryptlist
+	if {![info exists cryptlist([string tolower $n])]} {
+		putscr "$n requesting UNAUTHORIZED crypt verification!"
+		return 1
+	} {
+		unset cryptlist([string tolower $n])
+		putserv "privmsg $n :crypt_reply [encrypt [lindex $cryptkeeper([string tolower $n]) 1] [decrypt [lindex $cryptkeeper([string tolower $n]) 0] $a]]"
+	}
+	return 1
+}
+
+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."
+}
+return 0