вообщем вот генератор пасов который я написал и потом его включал в genom-- mail bruter 4.0 Code: #! /usr/bin/perl @chr=('',0..9,a..z,A-Z,'$',' '); # выставляем набор символов для паролей # ВАЖНО первый символ не убирать @pas=(0,0,0,0,0,0,0,0,1); # массив символизирующий начальное положение счетчика print"Insert min length or press enter by 1->"; $min=<STDIN>; chomp$min; if($min eq''){$min=1;} print"Insert max length->"; $max=<STDIN>; chomp$max; foreach(@chr){$sum++;} foreach(@pas){$dll++;} # выставляем начально значение счетчика согласно мин длине пароля for ($i = $dll-1; $i >=$dll-$min; $i--) { @pas[$i]=1; } print "All symbols->$sum\n"; print "Cliker length->$dll"; open sdf,">pass.txt"; ### соственна осн цикл генерации while(length($str)<=$max){ for ($i = $dll-1; $i >= 0; $i--) { if(@pas[$i]>($sum-1)){@pas[$i-1]++; @pas[$i]=@pas[$i]-($sum-1);} } $str="@chr[@pas[0]]@chr[@pas[1]]@chr[@pas[2]]@chr[@pas[3]]@chr[@pas[4]]@chr[@pas[5]]@chr[@pas[6]]@chr[@pas[7]]@chr[@pas[8]]"; if(@pas[$dll-1]==$sum){next;} # эта строчка исправляет небольшую колизию при составлении пароля @pas[$dll-1]++; print sdf "$str\n"; } close sdf;
просто подумал что пригодится при написании собственных скриптов какихнить -- вполне удобный и компактный получился генератор чисто как модуль
