Is there a way to extract a password hash from AESCrypt archive?

Code:
#!/usr/bin/env perl



# Author:  philsmd

# Date:    January 2020

# License: public domain (credits go to philsmd and hashcat)



# the main algo can also be seen here:

# (or alternative implementations from https://www.aescrypt.com/download/)

# https://github.com/marcobellaccini/pyAesCrypt/blob/4b09ddc3737c539ee9fac179cab460abbb2b053e/pyAesCrypt/crypto.py#L59-L68



use strict;

use warnings;



use Digest::SHA  qw (sha256);

use Digest::HMAC qw (hmac);



use Encode;



#

# Example file from https://www.aescrypt.com/hello_world.txt

#



# 41 45 53 02 00 00 18 43 52 45 41 54 45 44 5f 42

# 59 00 61 65 73 63 72 79 70 74 20 33 2e 30 35 00

# 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

# 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

# 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

# 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

# 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

# 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

# 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

# 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

# 00 00 00 db 66 a1 f9 73 4f 97 b5 6c 0d 1d ca 0c

# aa 13 c9 4f 01 8c 9e 33 15 e3 04 87 1f d2 59 da

# 97 14 a4 6e 66 d5 8f f7 af 05 44 92 d8 21 d8 82

# 6b c2 7e bc 13 d6 f7 60 7a 3b 3b 0b de 60 a3 a4

# 39 66 34 21 65 70 97 3b a6 49 60 fd 70 e0 5d fa

# 71 b6 61 78 49 de 7d 38 69 b4 6d 1d 9c 84 a2 57

# 77 80 61 66 43 87 15 98 af 07 a6 ab ea a6 ff 82

# 89 2f 6f 0e 24 0c 7e 6f 35 f3 46 73 6a 9e 5a ca

# 35 f7 97 93 cf 5a 79 74 77 5a 3d 50 0a dd 29 4e

# 17 f4 f6 8c



# File format is explained here: https://www.aescrypt.com/aes_file_format.html



# 41 45 53 signature

# 02       version

# 00       reserved

# 00 18    extension size

# 43 52 45 41 54 45 44 5f 42 59 00 61 65 73 63 72 79 70 74 20 33 2e 30 35 extension

# 00 80    extension size

# 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  extension

# 00 00    extension size

# db 66 a1 f9 73 4f 97 b5 6c 0d 1d ca 0c aa 13 c9 IV

# 4f 01 8c 9e 33 15 e3 04 87 1f d2 59 da 97 14 a4 enc IV

# 6e 66 d5 8f f7 af 05 44 92 d8 21 d8 82 6b c2 7e bc 13 d6 f7 60 7a 3b 3b 0b de 60 a3 a4 39 66 34 enc key

# 21 65 70 97 3b a6 49 60 fd 70 e0 5d fa 71 b6 61 78 49 de 7d 38 69 b4 6d 1d 9c 84 a2 57 77 80 61 HMAC

# 66 43 87 15 98 af 07 a6 ab ea a6 ff 82 89 2f 6f content

# 08 file size % 16

# 24 0c 7e 6f 35 f3 46 73 6a 9e 5a ca 35 f7 97 93 cf 5a 79 74 77 5a 3d 50 0a dd 29 4e 17 f4 f6 8c HMAC



# the password of the file that I've discovered by this script is: "hello" (without quotes)



my $iv      = pack ("H*", "db66a1f9734f97b56c0d1dca0caa13c9");

my $enc_iv  = pack ("H*", "4f018c9e3315e304871fd259da9714a4");

my $enc_key = pack ("H*", "6e66d58ff7af054492d821d8826bc27ebc13d6f7607a3b3b0bde60a3a4396634");

my $hmac    = pack ("H*", "216570973ba64960fd70e05dfa71b6617849de7d3869b46d1d9c84a257778061");



#

# Start:

#



my $iiv = $iv . "\x00" x 16;



while (my $word = <>)

{

  chomp ($word);



  my $word_utf16le = encode ('UTF-16LE', $word);



  my $key = $iiv;



  for (my $i = 0; $i < 8192; $i++)

  {

    $key = sha256 ($key . $word_utf16le);

  }



  if (hmac ($enc_iv . $enc_key, $key, \&sha256, 64) eq $hmac)

  {

    print "password found: $word\n";



    exit (0);

  }

}



exit (1);