Cisco ASA

[M@LIK]

Btw, I wrote this perl script to make the charactersets out of the usernames list, you don't need to chop them or anything, just do:

Code:

perl CiscoASA.pl < usernames

CiscoASA.pl:

Code:

#!/usr/bin/perl # extracts 4 character-sets basesd on given usernames list for *MD5 Cisco ASA* algorithm, written by malik51 #use v5.14; use strict; use warnings; if (scalar(@ARGV) != 0) { die("usage: $0 < usernames\n"); } sub uniq { my %seen; my @newarray; foreach my $item (@_) { unless ($seen{$item}) { push(@newarray, $item); $seen{$item}++; } } undef(%seen); return @newarray; } my @_1_chararr; my @_2_chararr; my @_3_chararr; my @_4_chararr; while (my $line = <STDIN>) { chomp($line); next if (length($line) < 4); push(@_1_chararr, substr($line, 0, 1)); push(@_2_chararr, substr($line, 1, 1)); push(@_3_chararr, substr($line, 2, 1)); push(@_4_chararr, substr($line, 3, 1)); } for my $i (1 .. 4) { my $u = $i - 1; eval ' @_' . $i . '_chararr = uniq(@_' . $i . '_chararr); open(CHARSET' . $i . ', \' > charset' . $i . '.txt\') || die(\'charset' . $i . '.txt: \' . lc($!) . "\n"); print CHARSET' . $i . ' join(\'\', @_' . $i . '_chararr); print STDOUT \'CHARSET' . $i . ' written to .\charset' . $i . '.txt successfully...\' . "\n"; '; warn($@) if ($@); } print STDOUT "\nuse:\n" . '-1 .\charset1.txt -2 .\charset2.txt -3 .\charset3.txt -4 .\charset4.txt ... ?1?2?3?4' . "\n"; exit(0);

It still feels a bit cheesy for me so expect any bugs!