Potfile format - to hex or not to hex

[royce]

And here's a rough pass at the reverse:

Code:

#!/usr/bin/env perl # Credit: undeath, https://hashcat.net/forum/thread-3522.html # ... and devilsadvocate ;) use utf8; while (<>) {    if ($_ =~ m/(.*):\$HEX\[([A-Fa-f0-9]+)\]/) {        print $_;    } else {        if ($_ =~ m/(.*?):(.*)/) {            print $1 . ':$HEX[' . unpack("H*", $2) . ']' . "\n"        }    } }