scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use our own md5 library to generate MD5 sum instead of calling an external program.

This commit is contained in:
mainzelm 2003-01-16 16:40:51 +00:00
parent 4bcf374d8e
commit 1087695e37
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/lib/pop3.scm
View File

@ -210,7 +210,9 @@
(define (pop3-login/APOP connection login password) (define (pop3-login/APOP connection login password)
(let* ((key (string-append (pop3-connection-challenge connection) (let* ((key (string-append (pop3-connection-challenge connection)
password)) password))
(digest (md5-digest key)) (digest (number->string
(md5-digest->number (md5-digest-for-string key))
16))
(status (pop3-send-command connection (status (pop3-send-command connection
(format #f "APOP ~a ~a" login digest)))) (format #f "APOP ~a ~a" login digest))))
(set-pop3-connection-login! connection login) (set-pop3-connection-login! connection login)