hashcat_passwords.pl

#!/usr/bin/perl

use strict;
use warnings;
use List::MoreUtils qw(uniq);

open FILE, "/home/smooker/.hashcat/hashcat.potfile";

chomp(my @lines = <FILE>);

my @uni = uniq @lines;

foreach my $ln (@uni) {
#       print "1.".$ln."\n";

        if ( $ln =~ m/([0-9a-fA-F]+)\*([0-9a-fA-F]+)\:(\S+)/ ) {
                print "".$1."\t".$2."\t".$3."\n";
                my( $hex ) = pack( 'H*', $2 );
                print "ESSID: $hex\n";
        }
}
close FILE;