diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-04-14 09:21:19 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-04-14 09:21:19 -0400 |
| commit | 9d912cdd8f2fc637a5876ca21a7ce5906e34e889 (patch) | |
| tree | 6cdaf3fc549ac2cf4481f1b10201cb7eac2eef1c /captain/captain.f90 | |
| parent | 4392961dd95582b91e173f9ae40ac510b9afe7d4 (diff) | |
| download | levitating-9d912cdd8f2fc637a5876ca21a7ce5906e34e889.tar.gz levitating-9d912cdd8f2fc637a5876ca21a7ce5906e34e889.zip | |
Crypt module working with bcrypt passwords correctly.
Diffstat (limited to 'captain/captain.f90')
| -rw-r--r-- | captain/captain.f90 | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/captain/captain.f90 b/captain/captain.f90 index 76ea768..94b2f96 100644 --- a/captain/captain.f90 +++ b/captain/captain.f90 @@ -79,9 +79,10 @@ contains subroutine parse_options use config + use m_crypt implicit none - character(len=1024)::option + character(len=1024)::option, tmp logical::config_loaded integer::i @@ -105,6 +106,17 @@ contains call get_command_argument(i, option) call load_configuration(trim(option)) config_loaded = .true. + + ! This option shouldn't be public, and it just verifies the + ! m_crypt module works... + else if(trim(option) == "--hash") then + i = i + 1 + call get_command_argument(i, option) + tmp = hash(option) + Print *, "Hash: "//trim(tmp) + Print *, "Verify: "//trim(option), verify_hash(trim(option), tmp) + Print *, "Unverify: "//trim(option)//"X", verify_hash(trim(option)//"X", tmp) + stop end if |