anchor.diff:      (negotiate-extended-sessionsecurity
        (desl ntowf 
   	   (subseq (md5 (usb8 server-challenge client-challenge)) 0 8)))
  -    (t (nt-response-v1* ntowf server-challenge))))
  +    (t (nt-response-v1 ntowf server-challenge))))
   
   (defun lm-response-v1* (lmowf ntowf server-challenge client-challenge 
   		     &key negotiate-extended-sessionsecurity negotiate-lm-key)
  
positive.code:     (ironclad:encrypt cipher data msg)
      msg))
  
  (defun ntowf-v1 (string)
    "This works correctly"
    (md4 (pack string :wstring)))
  
  (defun hmac-md5 (key data)
    (let ((hmac (ironclad:make-hmac key :md5)))
      (ironclad:update-hmac hmac data)
      (ironclad:hmac-digest hmac)))
  
  (defun password-md4 (password)
    (md4 (pack password :wstring)))
  
  (defun ntowf-v2 (username domain pword-md4)
    "Tested and works"
    (hmac-md5 pword-md4
  
negative.code:   "Tested and works"
    (ntowf-v2 username domain pword-md4))
  
  ;; 3.4.5.1 KXKEY http://msdn.microsoft.com/en-us/library/cc236710.aspx
  (defun key-exchange-key (session-base-key lm-response server-challenge lmowf
                           &key negotiate-lm-key request-non-nt-session-key negotiate-extended-sessionsecurity)
    (cond
  