ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
Перезагрузить страницу Нужен скрипт!
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Нужен скрипт!
  #1  
Старый 19.10.2007, 01:48
Аватар для fly
fly
Постоянный
Регистрация: 15.04.2007
Сообщений: 645
Провел на форуме:
967842

Репутация: 251


Отправить сообщение для fly с помощью ICQ
Exclamation Нужен скрипт!
Если кто может, нужен скрипт на php с интерфейсом!
Идея такая.
У меня есть большое кол-во web шеллов , надо реализовать обычный чекер ,т.е. он просто будет показывать есть ли на месте мой шелл
+ меню добавления и удаления.

Т.е. примерно так

[host] Status
http://ssss.ru/mmmm/shell.php Yes

И если нет

[host] Status
http://ssss.ru/mmmm/shell.php No

Заплачу 5wmz!


Функция чека
Код:
  function getstaturl($url)
  {
    $url = parse_url($url);
    if (!isset($url['host'])) return false;
    $url['path'] = isset($url['path']) ? $url['path'] : "/";

    $fp = fsockopen($url['host'], 80, $errno, $errstr, 5);
    if (!$fp) return false;

    $out  = "HEAD {$url['path']} HTTP/1.1\r\n";
    $out .= "Host: {$url['host']}\r\n";
    $out .= "Connection: Close\r\n\r\n";

    fwrite($fp, $out);

    for ($headers = ''; !feof($fp); )
    {
      $str = fgets($fp, 4096) . "\r\n";
      if (preg_match("/^HTTP\\/\\d+\\.\\d+\\s+200\\s+OK\\s*$/iX", $str))
      {
        fclose($fp);
        return "<div class\"style1\">Yes</div>";
      }
    }

    fclose($fp);
    return "<font c
Последний раз редактировалось fly; 19.10.2007 в 01:59..
 
Ответить с цитированием

  #2  
Старый 19.10.2007, 02:03
Аватар для inv
inv
Banned
Регистрация: 03.08.2007
Сообщений: 313
Провел на форуме:
951141

Репутация: 291
По умолчанию
в асю стукни или напиши свою
 
Ответить с цитированием

  #3  
Старый 19.10.2007, 03:29
Аватар для demonoid
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
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужен Скрипт защита странички sxsanti PHP, PERL, MySQL, JavaScript 21 18.10.2007 09:40
Нужен скрипт. firedemon PHP, PERL, MySQL, JavaScript 5 29.09.2007 02:17
Нужен скрипт на Perl GrAmOzEkA Разное - Покупка, продажа, обмен 5 20.11.2006 17:47
НУжен Хелп Хацкеров anakin Болталка 18 21.09.2006 19:21



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ