есть у меня базы данных в ручныю переберать и изменять что либо трудно да и какйо пасс лист из них получится вот решили мы прогу для нашей цели написать может комунибуть поможет суть ее раздилить какой либо файл где находится пробел на 2 части (мне понадобилось создать брутлист ) part1 1234567 holykiller 1234567 holykiller dreamworks harlequin jack1e azn13oi116 1987dq s3ntm3 7777777777 colo123 creature syndicate ssbbraz auroranova william willxcool dozn8sdqn dualshock elephant coldwind feishi5227 wljackie hellfire hidex85 xiuhan babaluso playboy dreamfire 310523 xhan2x 1)после запуска создатся 3 файла в 1file.txt левый столбик 2file.txt правый столбик ну а в 3file.txt все вместе то что мы указали при Type the original file path and name чтобы роверить если программу не ошиблась писали для winxp =) #!/usr/bin/perl print "Type the original file path and name:\n"; my $path=<STDIN>; open(FILE,"$path") or die("$path not found"); open(FILE2,">text2.txt"); open(FILE3,">text3.txt"); while(<FILE>) { @arr=split(//,$_); $flag=0; for($i=0;$i<=$#arr;$i++) { if($arr[$i] ne " " and $flag==0) { print FILE2 "$arr[$i]"; } elsif($arr[$i] ne " " and $flag!=0) { print FILE3 "$arr[$i]"; } elsif($arr[$i] eq " ") { $flag=1; } } print FILE2 "\n"; } close(FILE2); close(FILE3); open(FILE2,"text2.txt"); open(FILE3,"text3.txt"); open(FILE4,">text4.txt"); print FILE4 <FILE2>,<FILE3>; close(FILE); close(FILE2); close(FILE3); close(FILE4); print "\n\ndone!"; такс возникло пару минусов, сегодня завтра я изменю ее 1) можно добовлять в главный passw.txt лист новые пароли, и проверять если нету таких уже в списке 2)программа автоматически будет удалять повторные пароли которые уже находятся в списке для брута 3)можно будет менять списки для брута если, пароль больше 9 символов а задали 8 максимум что больше 8 будет удалятся.. например для ICQ