Hi,
I'm trying to create a dictionary file for my
bruteforce program.
I have a huge dictionary file and I want to trim it
down according the requirements.
The output should be a dictionary file that is minimum
6 characters and maximum 15 characters with at least 4
letters and 2 numbers in it.. no special characters
whatsoever.. This should be a simple regex but it's
been a while since i wrote my last regexp program.
Need to refresh my perl basics a little bit..
So far I got this:
#!/usr/bin/perl
use warnings;
use strict;
my $wordlist = shift @ARGV;
#my $newwordlist = shift @ARGV;
open INPUTFILE, "$wordlist" or die $!;
#open OUTPUTFILE, ">$output" or die $!;
while (<INPUTFILE>){
next if !(/\b\w\w\w\w\b/);
print;
}
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
