Форум АНТИЧАТ - Помогите

Код:
Недавно одному человеку написал такой скрипт. Необходимо было из /etc/passwd выбрать только валидные логины, у которых существует нормальный рабочий шелл, домашний каталог и еще несколько необходимых параметров. Из всех этих логинов нужно составить пару login:login, для простейшего брута (который как ни странно частенько срабатывает). Все данные записываются в файл, и скармливаются тому же Джону. Скрипт очень простенький, но, как оказалось, очень полезный, поэтому выкладываю его здесь.

CODE 



#!/usr/bin/perl



unless (@ARGV == 2) {



       print "\nUsage: $0 <file with UNIX logins, such as /etc/passwd> <output file>\n

       Example: $0 /etc/passwd brut.txt\n\n";

       exit 0;



}



$pass = $ARGV[0];

$brut = $ARGV[1];



$pass =~ s/[^\/a-z0-9A-Z\-_]//g;



open PASS, "<$pass" or die "Не могу открыть $pass: $!";

open F, ">$brut" or die "Не могу открыть $brut: $!";



while ($line = <PASS>) {



       @new = split(":", $line);



       $name = $new[0];

       $dir = $new[5];

       $shell = $new[6];



       next if $name =~ /\$$/ or $line =~ /^#/;



       print F "$name:$name\n" if $shell =~ /sh$/ and -d $dir;



}



close PASS;

close F
К сожалению копирайты утеряны