howto: convert btcrecover bc: hashes to hashcat hash format

Code:
#!/usr/bin/env perl



# Author: philsmd

# Date: August 2020

# License: public domain, credits go to philsmd and hashcat



use strict;

use warnings;



use MIME::Base64 qw (decode_base64);



# Example:

# YmM6CcwT/6fzCWA95uNbWemYLaaJDCQbQ59hvgNpUlQLXu3DUa02UDvnzdsUAgC3gZPC:abc



if (scalar (@ARGV) != 1)

{

  print "USAGE: $0 <base64 string>\n";



  exit (1);

}



my $base64_string = $ARGV[0];



if (length ($base64_string) != 68)

{

  print "ERROR: The base64 string (hash, salt, iterations) was not specified correctly as the second command line argument\n";



  exit (1);

}



my $bin_string = decode_base64 ($base64_string);



if (length ($bin_string) != 3 + 32 + 8 + 4 + 4)

{

  print "ERROR: the base64 decoded string does NOT have a valid length\n";



  exit (1);

}



if (substr ($bin_string, 0, 3) ne "bc:")

{

  print "ERROR: signature of the decoded base64 string did not match 'bc:'\n";



  exit (1);

}



my $mkey  = substr ($bin_string,  3, 32);

my $salt  = substr ($bin_string, 35,  8);

my $iter  = substr ($bin_string, 43,  4);

my $crc32 = substr ($bin_string, 47,  4);



$iter = unpack ("L<", $iter);



print sprintf ("\$bitcoin\$%i\$%s\$%i\$%s\$%i\$%i\$%s\$%i\$%s\n",

  length ($mkey) * 2,

  unpack ("H*", $mkey),

  length ($salt) * 2,

  unpack ("H*", $salt),

  $iter,

  # fake data at the end:

  2,

  unpack ("H*", "\x00"),

  2,

  unpack ("H*", "\x00"),

);



exit (0);