En liten quick'n dirty parser i Perl för SQL tabell dumpen:
CODE
#!/usr/bin/perl
use warnings;
use strict;
open SILENT, "silent.html" or die "Couldn't open sw SQL dump file: $!\n";
my @pass;
while (<SILENT>) { #table is not newline separated
while (/<tr>(.*?)<\/tr>/g) {
my $trow = $1;
my @table =();
while ($trow =~ /<td>(.*?)<\/td>/g) {
push @table, $1;
}
print "id : $table[0]\n";
print "login: $table[1]\n";
print "pass : $table[2]\n";
print "email: $table[3]\n";
print "addr : $table[4]\n\n\n";
push @pass, $table[2];
}
}
close(SILENT);
print "sorting password list...";
my @sorted = sort @pass;
print "done!\n";
print "sw pwlist:\n";
print "$_\n" foreach (@sorted);
Den separerar inte ut dubletter eller översätter åäö (ser ut som UTF-8 som blivit kopierat till iso-8859) och är inte så minneseffektiv direkt, men det är lätt fixat.
Gillar hacket, men
lite dumt av personen som utförde det att sitta uppkopplad mot IRC direkt och diskutera det. Vad det nu finns att diskutera. Det är ju att be om polisanmälan, fast det kanske personen vill...
EDIT: Skrämmande många som har lösenord i stil med 123456 och zxcvbn. Fast de enklaste blev förstås knäckta först. Man kanske bör dra ner hela SQL tabellen istället för att få en representativ bild.