Нужен скрипт! — ANTICHAT Forum

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

19.10.2007, 03:29

~~demonoid~~

Banned

Регистрация: 12.01.2007

Сообщений: 113

Провел на форуме:
4094601

Репутация: 495

Зачем так мучаться на php?

Код:

#!/usr/bin/perl -w
use LWP::UserAgent;
use strict;
use warnings;

my ( $ua,$response) = ( LWP::UserAgent->new,undef );
my $shell_file = 'web-shell.txt';

open ( my $WS, '<', $shell_file) or exit print '[!] Can\'t open web-shell file : $shell_file \n';

while( <$WS> )
{
   chomp;
   $response = $ua->get( $_ );
   printf "[STATUS] : %s [URL] : %s \n",$response->status_line=~/(\d+)/,$_;
}

close( $WS );

файл:web-shell.txt

Код:

http://old.antichat.ru/txt/old/anonumus.shtml
http://zbrute.antichat.ru/about.html
http://old.antichat.ru/shell.php

Код:

C:\>perl -w s.pl
[STATUS] : 200 [URL] : http://old.antichat.ru/txt/old/anonumus.shtml
[STATUS] : 200 [URL] : http://zbrute.antichat.ru/about.html
[STATUS] : 500 [URL] : http://old.antichat.ru/shell.php