# /usr/bin/env perl # Created: 2016-06-15 # Credit: undeath, https://hashcat.net/forum/thread-3522.html while (<>) { if ($_ =~ m/\$HEX\[([A-Fa-f0-9]+)\]/) { print pack("H*", $1), "\n" } else { print $_; } }