[Israel.pm] BruteForcing function

amit sides DiAblo_2 at 012.net.il
Mon Dec 20 07:41:09 PST 2004


oh nevermind...did it by myself...thank you anyways for the idea.

#!/usr/bin/perl
@alphabet = ( 'a' .. 'z', 'A' .. 'Z', '0' .. '9', '!', '_', '-' );

foreach $a (@alphabet)
{
print $a."\n";
    foreach $b (@alphabet)
    {
    print $a.$b."\n";
        foreach $c (@alphabet)
        {
        print $a.$b.$c."\n";
            foreach $d (@alphabet)
            {
            print $a.$b.$c.$d."\n";
            }
        }
    }
}




More information about the Perl mailing list