Mercurial > emacs
comparison lisp/net/ntlm.el @ 111570:ffe2002d45c4
merge trunk
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 08 Sep 2010 12:55:57 +0900 |
parents | 5b9f64b04a04 |
children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
111569:0187fc875872 | 111570:ffe2002d45c4 |
---|---|
25 ;;; Commentary: | 25 ;;; Commentary: |
26 | 26 |
27 ;; This library is a direct translation of the Samba release 2.2.0 | 27 ;; This library is a direct translation of the Samba release 2.2.0 |
28 ;; implementation of Windows NT and LanManager compatible password | 28 ;; implementation of Windows NT and LanManager compatible password |
29 ;; encryption. | 29 ;; encryption. |
30 ;; | 30 ;; |
31 ;; Interface functions: | 31 ;; Interface functions: |
32 ;; | 32 ;; |
33 ;; ntlm-build-auth-request | 33 ;; ntlm-build-auth-request |
34 ;; This will return a binary string, which should be used in the | 34 ;; This will return a binary string, which should be used in the |
35 ;; base64 encoded form and it is the caller's responsibility to encode | 35 ;; base64 encoded form and it is the caller's responsibility to encode |
36 ;; the returned string with base64. | 36 ;; the returned string with base64. |
37 ;; | 37 ;; |
38 ;; ntlm-build-auth-response | 38 ;; ntlm-build-auth-response |
39 ;; It is the caller's responsibility to pass a base64 decoded string | 39 ;; It is the caller's responsibility to pass a base64 decoded string |
40 ;; (which will be a binary string) as the first argument and to | 40 ;; (which will be a binary string) as the first argument and to |
41 ;; encode the returned string with base64. The second argument user | 41 ;; encode the returned string with base64. The second argument user |
42 ;; should be given in user@domain format. | 42 ;; should be given in user@domain format. |
43 ;; | 43 ;; |
44 ;; ntlm-get-password-hashes | 44 ;; ntlm-get-password-hashes |
45 ;; | 45 ;; |
46 ;; | 46 ;; |
47 ;; NTLM authentication procedure example: | 47 ;; NTLM authentication procedure example: |
48 ;; | 48 ;; |
532 (setq len (* len 2)) | 532 (setq len (* len 2)) |
533 (md4 wpwd len))) | 533 (md4 wpwd len))) |
534 | 534 |
535 (provide 'ntlm) | 535 (provide 'ntlm) |
536 | 536 |
537 ;; arch-tag: 348ace18-f8e2-4176-8fe9-d9ab4e96f296 | |
538 ;;; ntlm.el ends here | 537 ;;; ntlm.el ends here |