Skip to content

Instantly share code, notes, and snippets.

@smooker
Created March 23, 2023 16:15
Show Gist options
  • Save smooker/34f45724031d2ed9af74987ceee3de48 to your computer and use it in GitHub Desktop.
Save smooker/34f45724031d2ed9af74987ceee3de48 to your computer and use it in GitHub Desktop.
#!/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;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment