Никто не делал Cpanel чекер на PHP?

[-=lebed=-]

Нужен именно чекер а не брутфорсер.
т.е. имеем файл-лист вида:
login : pass
нужно прочекать эти пары.

[$ED$]

Эксплоит сойдет?

#!/usr/bin/perl
# cpanel11 - expcheck.pl Copyright(c) 2006 cPanel Inc.
# All rights Reserved.
пользователи. ] http://www.cpanel.net
print "cPanel Exploit Checker 3.0\n";
my $notok=0;
foreach my $script ('/usr/local/cpanel/bin/mysqladmin',
'/usr/local/cpanel/bin/hooksadmin') {
my %TA=('unshift( @INC, "/usr/local/cpanel" );'=>0,,
'@INC=grep(!/(^\.|\.\.|\/\.+)/,@INC);'=>0,
'@INC=grep(/^(\/usr\/lib\d*\/perl|\/usr\/local\/lib\d*\/perl|\/usr\/local\/cpanel)/,@INC);'=>0);
print "Checking $script...";
if (! -e $script) { print 'not installed (ok) Done' . "\n"; next(); }
open(SS,'<',$script);
while(my $l = <SS>) {
foreach my $a (keys %TA) {
if (index($l,$a) > -1) { delete $TA{$a}; next(); }
}
}
close(SS);
if ((scalar keys %TA) > 0) {
$notok++;
print "unsafe";
} else {
print "safe";
}
print "..Done\n";
}
if ($notok) { print "Your system has not been patched. Please run
http://layer1.cpanel.net/installer/sec092406.pl \n"; } else { print "Your system has been
patched!\n"; }

[Sharky]

Нужен именно чекер а не брутфорсер.
т.е. имеем файл-лист вида:
login : pass
нужно прочекать эти пары.
в диезовском мани мейкере поправь рут чекер ( кокретно в массив с портами напиши 2082 ) ... достаточно шустро чекает