unhex-full.pl

unhex-full.pl

#!/usr/bin/env perl

# Created: 2016-06-15
# Credit: undeath, https://hashcat.net/forum/thread-3522.html

use utf8;
#use open ':std', ':encoding(UTF-8)';

while (<>) {
    if ($_ =~ m/(.*):\$HEX\[([A-Fa-f0-9]+)\]/) {
        print $1 . ':' . pack("H*", $2), "\n"
    } elsif ($_ =~ m/(.*):HEX\[([A-Fa-f0-9]+)\]/) {
        print $1 . ':' . pack("H*", $2), "\n"
    } elsif ($_ =~ m/^\$HEX\[([A-Fa-f0-9]+)\]/) {
        print pack("H*", $1), "\n"
    } elsif ($_ =~ m/^HEX\[([A-Fa-f0-9]+)\]/) {
        print pack("H*", $1), "\n"
    } else {
        print $_;
    }
}