anchor.diff:  		(the (unsigned-byte 7)
   		     (logxor (aref key i)
   			     (nth i 8octets)))))))
  -    (format t "~X~%" key)
  +    ;;(format t "~X~%" key)
       ;; left shift and add a parity bit
       (dotimes (i 8)
         (let ((octet (aref key i)))
  
positive.code: 	       (ash (logand octet #x20) -4)
  	       (ash (logand octet #x40) -6))))
  
  (defun make-des-key (password salt)
    (let ((octets (concatenate 'list
  			     (babel:string-to-octets password)
  
negative.code: 
  ;; This is copied/ported from the C codes found here 
  ;; http://opensource.apple.com/source/Kerberos/Kerberos-62/KerberosFramework/Kerberos5/Sources/lib/crypto/nfold.c
  ;; this works
  (defun n-fold (octets n)
    "The horrific n-fold function as specifed in the rfc."
    (let ((inbytes (ash (* (length octets) 8) -3))
  