Недавно одному человеку написал такой скрипт. Необходимо было из /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
К сожалению копирайты утеряны