Oracle Transportation Management reference hash implementation

oracle_tm.pl

#!/usr/bin/env perl
# Oracle Transportation Management reference hash implementation
# Fri 14 Jun 2019 11:02:08 PM CDT, jgosney@terahash.com

use strict;
use warnings;

use Crypt::Digest::SHA256 qw(sha256);
use MIME::Base64;

my $iterations = 1000;
my $password = "hashcat";
my $salt = "1234567890";

my $hash = sha256($salt.$password);

for (my $i = 1; $i < $iterations; $i++) {
    $hash = sha256($hash)
}

chomp($hash = encode_base64($hash));

printf("otm_sha256:%d:%s:%s\n", $iterations, $salt, $hash);