[Tkabber-dev] [tclxmpp commit] r93 - * xmpp/ntlm.tcl: Fixed calls to DES::des procedure in case if the

codesite-noreply at google.com codesite-noreply at google.com
Tue Mar 17 15:54:13 MSK 2009


Author: sgolovan
Date: Tue Mar 17 05:53:04 2009
New Revision: 93

Modified:
    trunk/ChangeLog
    trunk/xmpp/ntlm.tcl

Log:
	* xmpp/ntlm.tcl: Fixed calls to DES::des procedure in case if the
	  encrypting text begins with dash.


Modified: trunk/ChangeLog
==============================================================================
--- trunk/ChangeLog	(original)
+++ trunk/ChangeLog	Tue Mar 17 05:53:04 2009
@@ -4,6 +4,9 @@
  	  also. Also, check if an item is already in the cache before adding
  	  it to prevent duplicates when several queries are run simultaneously.

+	* xmpp/ntlm.tcl: Fixed calls to DES::des procedure in case if the
+	  encrypting text begins with dash.
+
  2009-03-15  Sergei Golovan  <sgolovan at nes.ru>

  	* xmpp/data.tcl: Parse data forms media items.

Modified: trunk/xmpp/ntlm.tcl
==============================================================================
--- trunk/xmpp/ntlm.tcl	(original)
+++ trunk/xmpp/ntlm.tcl	Tue Mar 17 05:53:04 2009
@@ -386,8 +386,8 @@
      set key2 [MakeKey [string range $pwd 7 13]]

      # do hash
-    set res1 [DES::des -mode encode -key $key1 $NTLM(LM_MAGIC)]
-    set res2 [DES::des -mode encode -key $key2 $NTLM(LM_MAGIC)]
+    set res1 [DES::des -mode encode -key $key1 -- $NTLM(LM_MAGIC)]
+    set res2 [DES::des -mode encode -key $key2 -- $NTLM(LM_MAGIC)]

      return [binary format a8a8 $res1 $res2]
  }
@@ -438,9 +438,9 @@
      set key2 [MakeKey [string range $hash 7 13]]
      set key3 [MakeKey [string range $hash 14 20]]

-    set res1 [DES::des -mode encode -key $key1 $challenge]
-    set res2 [DES::des -mode encode -key $key2 $challenge]
-    set res3 [DES::des -mode encode -key $key3 $challenge]
+    set res1 [DES::des -mode encode -key $key1 -- $challenge]
+    set res2 [DES::des -mode encode -key $key2 -- $challenge]
+    set res3 [DES::des -mode encode -key $key3 -- $challenge]

      return [binary format a8a8a8 $res1 $res2 $res3]
  }


More information about the Tkabber-dev mailing list