Пишем сканер директорий сайта - Proxy-Base Community - Анонимность и безопасность в интернете.
Бесплатные прокси. Количество:
Прокси для пользователей форума (API). Количество:
Купить доступ к прокси-листам (API). Количество:
 



Информация по хайдам / репутации

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Бесплатные прокси уже в Telegram
Все инфопродукты и приватная информация бесплатно
Старый 29.08.2010, 12:08   #1 (permalink)
HTTP
 
Регистрация: 08.02.2010
Сообщений: 12
Member ID: 6486

Репутация: 20
Репутация: 20
Сказал(а) спасибо: 3
Поблагодарили 16 раз(а) в 7 сообщениях
Топикстартер (автор темы) По умолчанию Пишем сканер директорий сайта

И так, для этого нам понадобится Delphi (у меня 7-ая) и Indy ( у меня 10-ая ).
Приступим.
Загружать список дир мы будем в Memo1 для этого кинем ее на форму.
А отображать результаты в TreeView'е потому как он удобен( может кто то не согласиться но это все таки мое мнение )
Кинем на форму собственно TreeView1 и Edit куда будем вбивать название сайта, а так же кнопочку Button.
И так начинаем сканирование сайта
В мемо я сразу же загрузил списочек не большой .
Код:
add/
addnews/
adm/
adm2/
admin.asp
admin.cfg
admin.dat
admin.html
admin.inc
admin.php
admin.pw
admin/
admin_.php
admin_area/
admin_files/
admin1.asp
admin1.html
admin1.php
admin1/
admin2.asp
admin2.html
admin2.php
admin4_account/
admin4_colon/
admincontrol.asp
admincontrol.html
admincontrol.php
admincp/
administer/
administr8.asp
administr8.html
administr8.php
administr8/
administratie/
administration.html
administration.php
administration/
administrator.asp
administrator.html
administrator.php
administrator/
administratoraccounts/
administrators/
administrivia/
adminka.php
adminpanel.asp
adminpanel.html
adminpanel.php
adminpro/
admins.asp
admins.html
admins.php
admins/
AdminTools/
advanced/
aggregator/
ajax/
alogin.php
also order_log.dat
alterra/
am/
api/
app_code/
apps/
archive/
archives/
article/
aspnet_client/
audio/
auth.php
author/
autobackup.php
autologin/
avi/
awald/
backup.php
backup.rar
backup.sql
backup.txt
backup/
bad/
Создадим "глобальные переменные" ( могу не правильно выразиться)) )
Код:
 
var
  C200 : TTreeNode;
  C403 : TTreeNode;
  C301 : TTreeNode;
  C401 : TTreeNode;
  C404 : TTreeNode;
  C302 : TTreeNode;
теперь о процедуре сканирования:
Код:
var
dira:string;//в переменную будем грузить нашу директорию
resp:string;//здесь будет ответ от сервера
i:Integer;//ну и как обычно "i" )
begin
//Проверим что бы в конце имени сайта стоял слеш / если его там нет то поставим
 if Copy(Form1.Edit1.Text,Length(Form1.Edit1.Text),1)<>'/' then
 Form1.Edit1.Text:=Form1.Edit1.Text+'/';
//Отрубаем Edit1 что бы с ним не баловались) хотя... можно было просто загрузить в переменную текст Edit'a и не парится)
 Form1.Edit1.Enabled:=true;
//Создаем корневые точки в TreeView1
 C200:=Form1.TreeView1.Items.AddChild(nil,'200 OK');
//nil поставил так как нужно создать без родителя
 C403:=Form1.TreeView1.Items.AddChild(nil,'403 Forbidden');
 C301:=Form1.TreeView1.Items.AddChild(nil,'301 Moved Permanently');
 C401:=Form1.TreeView1.Items.AddChild(nil,'401 Unauthorized');
 C404:=Form1.TreeView1.Items.AddChild(nil,'404 Not Found');
 C302:=Form1.TreeView1.Items.AddChild(nil,'302 Found');
//теперь цикл.
 for i:=0 to Form1.Memo1.Lines.Count-1 do
 begin
 dira:=Form1.Memo1.Lines.Strings[i];//Получаем диру
 if Copy(dira,1,1)='/' then Delete(dira,1,1);//Если первым идет / слеш то удаляем на хрен его) так как получиться что то типа http://site.ru//admin
//что не есть гуд
//что бы не вылезли ошибки)
try
Form1.idhttp1.Get(Form1.Edit1.Text+dira);//получаем страничку 
except
end;

resp:=IntToStr(Form1.idhttp1.ResponseCode);//Получаем код ответа от сервера
Form1.TreeView1.Items.AddChild(getnode(resp),Form1.Edit1.Text+dira);
//Добовляем "ребенка" в Treeview1  с текстом сайта + диры 
//о функции getnode позже не множко)
end;
Form1.Edit1.Enabled:=true; //Врубаем edit1
такс а теперь о мини функции getnode
Код:
function getnode(code:string):TTreeNode;
begin
if code='200' then result:=C200;
if code='403' then result:=C403;
if code='301' then result:=C301;
if code='401' then result:=C401;
if code='404' then result:=C404;
if code='302' then result:=C302;
//Т.е. даем ей код ответа от сервера, она нам возвращает указатель на TTreeNode что бы потом нам его использовать)
end;
Ну вот собственно и все)
Вот что получилось у меня:


Да и что бы формачка не подвисала закинул все это в поток...

Кому не понятно вот сорцы:
http://multi-up.com/327747


P.S. Сильно не пинайте))
Если что то не так, попровляйте





© CraftR14, For CodingWorld.Ru in 2010.
__________________
© CodingWorld.Ru
CraftR14 вне форума   Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
сканер сайтов. KeNtAvRrr Системы и сети, взлом и защита, анонимность в сети 16 03.05.2012 12:00
сканер портов k0tt0d Программирование 4 13.06.2010 10:32
Чат для сайта NekitoSP Флейм 44 04.06.2010 06:53
Пишем инжекты для Zeus 2FED Системы и сети, взлом и защита, анонимность в сети 0 14.04.2010 07:42
ST Proxy Scanner - шустрый SOCKS сканер Proxy-Base Proxy SOFT 8 23.06.2009 12:55




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.