Initial -m 22001 support

This commit is contained in:
Jens Steube
2019-12-19 22:14:42 +01:00
parent 161775b1b6
commit 2cc4244e14
5 changed files with 2288 additions and 7 deletions

View File

@@ -181,11 +181,24 @@ sub module_verify_hash
{
my $line = shift;
my @data = split (':', $line);
my $index1 = index ($line, ":");
return unless scalar @data == 10;
return if $index1 < 1;
my ($signature, $type, undef, $macap, $macsta, $essid, $anonce, $eapol, $mp, $word) = @data;
my $word = substr ($line, $index1 + 1);
my $hash_in = substr ($line, 0, $index1);
my @data = split ('\*', $hash_in);
my ($signature, $type, $pmkidmic, $macap, $macsta, $essid, $anonce, $eapol, $mp) = @data;
return unless defined $signature;
return unless defined $type;
return unless defined $pmkidmic;
return unless defined $macap;
return unless defined $macsta;
return unless defined $essid;
return unless ($signature eq "WPA");