Skip to content
Browse files

Don't pass a string to md5:md5sum-sequence

Closes #27
  • Loading branch information...
1 parent 4a31b24 commit 714a9c1bdccb6dabe78af6328e85faa80c208d47 @marijnh marijnh committed with Dec 3, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 cl-postgres/messages.lisp
View
2 cl-postgres/messages.lisp
@@ -78,7 +78,7 @@ message definitions themselves stay readable."
#.*optimize*)
(flet ((md5-and-hex (sequence)
(bytes-to-hex-string (md5:md5sum-sequence sequence))))
- (let* ((pass1 (md5-and-hex (concatenate 'string password user)))
+ (let* ((pass1 (md5-and-hex (enc-string-bytes (concatenate 'string password user))))
(pass2 (md5-and-hex (concatenate '(vector (unsigned-byte 8) *) (enc-string-bytes pass1) salt))))
(concatenate 'string "md5" pass2))))

0 comments on commit 714a9c1

Please sign in to comment.
Something went wrong with that request. Please try again.