diff options
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 |