
Originally Posted by
rshift
Nice work, I'm going to have a go at one of the disks once I get it downloaded.
Where are those wordlists you found?
rshift, he's hosting his wordlists on mediafire, u can find links on his blog @ g0tmi1k dot blogspot dot com and search for "February Update - ISOs and Dictionaries"
g0tmi1k i see that you cut and paste your usernames' last letter to the beginning for added brute force possibilities. here are two ways to do it with perl.. also a capitalization switcher for the first letter of each word.. theres probably a much easier way to code these but im new to perl and just did it for the challenge. i didnt bother using filehandles in the script to save output to a new file u can just redirect it on command line...
One way to do it:
Code:
#! /usr/bin/perl
# Usage: perl <filename.pl> <userlist>
# moves last character of a word to the beginning.
while (<>) {
print $_;
chomp $_;
$char=(chop $_);
$str=$_;
print "$char$str\n";
}
Another way:
Code:
#! /usr/bin/perl
# Usage: perl <filename.pl> <userlist>
# moves last character of a word to the beginning.
print $_;
$len = length $_;
$len = $len-2;
$last_letter = substr($_, $len, 1);
$first_letters = substr($_, 0, $len);
print "$last_letter$first_letters\n";
}
This will change the first letter of each word from upper to lowercase and vice versa.
Code:
#! /usr/bin/perl
# Usage: perl <filename.pl> <userlist>
while (<>) {
print;
@chars = split '', $_;
$char = shift(@chars);
if ($char =~ /[A-Za-z]/) {
$char =~ tr/A-Za-z/a-zA-Z/;
unshift(@chars, $char);
print @chars;
} else {
}
}