Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

Closes #27
  • Loading branch information...
commit cd8c558024fbdf4a6717115eff787a734d6d20b3 1 parent 8b962d1
@marijnh authored
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))))
Please sign in to comment.
Something went wrong with that request. Please try again.