diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-04-26 17:10:33 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-04-26 17:10:33 -0400 |
commit | ff0095ff928dca78bf07148c4081191fd57f9c4d (patch) | |
tree | 9af74ca04fc2a4f0b5237c492c9e411458c8c010 /captain/crypt.f90 | |
parent | 9d912cdd8f2fc637a5876ca21a7ce5906e34e889 (diff) | |
download | levitating-ff0095ff928dca78bf07148c4081191fd57f9c4d.tar.gz levitating-ff0095ff928dca78bf07148c4081191fd57f9c4d.zip |
Added routines for validating user passwords and creating new users. Added routines for looking up sessions.
Diffstat (limited to 'captain/crypt.f90')
-rw-r--r-- | captain/crypt.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/captain/crypt.f90 b/captain/crypt.f90 index fc76fdb..c14d4bb 100644 --- a/captain/crypt.f90 +++ b/captain/crypt.f90 @@ -46,7 +46,7 @@ contains ! Build the salt prefix = "$2b$"//c_null_char - c_salt_ptr = crypt_gensalt_c(c_loc(prefix), 16, c_null_ptr, 0) + c_salt_ptr = crypt_gensalt_c(c_loc(prefix), int(16,kind=c_long), c_null_ptr, 0) allocate(character(len=len_trim(phrase)+1) :: c_phrase) c_phrase = trim(phrase)//c_null_char |