информационная безопасность
без паники и всерьез
 подробно о проекте 		Портрет посетителяСтрашный баг в WindowsАтака на Internet
BugTraq.Ru
 Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Модульный ботнет от русских хакеров 
 Торвальдс и вайбтестеры 
 Атака на GitHub 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
ФОРУМ
если вы видите этот текст, отключите в настройках форума использование JavaScript
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
[Pascal] зачем искать исходники... 18.07.01 05:22  Число просмотров: 1003
Автор: [N\A] Статус: Незарегистрированный пользователь
<"чистая" ссылка>
> Помогите! Где можно найти исходники CGI сканера на DELPHI,
> желательно четвертой версии!

вот пример как обрабатывать ответ сервера.....

{ USED WITHOUT PROXY }
if SocketOpen(st2,host) then begin Sleep(0);
ConStatus:=SocketConnect(st2);
SenStatus:=SocketSend(st2,'HEAD '+Hole+'HTTP/1.0'+#13#10+#13#10+#13#10);
szTarget:= SocketReciv(st2);
if szTarget<>'' then RecStatus:=True;
if {(len=1)or}(ConStatus and SenStatus)=true then begin
if (szTarget<>'') then begin
s:=copy(szTarget, 1,Pos(#13#10,szTarget));
Delete(s, 1,9);
s2:=copy(s,1,Length(s));
Delete(s2, Pos(' ',s2),length(s)-Pos(' ',s2));
if (StrToInt(trim(s2))=200) then begin
TextColor(8);
GotoXY(6,12);
Writeln('BUGS: '+HoleName');
GotoXY(6,13);
Writeln('STATUS: найдено');
WriteLn(t,'[200 Found!] in <a href="http://'+HOST+HOLE+'">'+HOLENAME+'</a><br>');
end else begin
TextColor(8);
GotoXY(6,12);
Writeln('BUGS: '+HoleName);
GotoXY(6,13);
Writeln('STATUS: не найдено');
end;
end;
end;
SocketClose(st2);
end;
{ END USED WITHOUT PROXY }
<programming>
Где можно найти исходники cgi сканера на delphi 12.07.01 21:04  
Автор: me Статус: Незарегистрированный пользователь
<"чистая" ссылка>
Помогите! Где можно найти исходники CGI сканера на DELPHI, желательно четвертой версии!
[Pascal] зачем искать исходники... 18.07.01 05:22  
Автор: [N\A] Статус: Незарегистрированный пользователь
<"чистая" ссылка>
> Помогите! Где можно найти исходники CGI сканера на DELPHI,
> желательно четвертой версии!

вот пример как обрабатывать ответ сервера.....

{ USED WITHOUT PROXY }
if SocketOpen(st2,host) then begin Sleep(0);
ConStatus:=SocketConnect(st2);
SenStatus:=SocketSend(st2,'HEAD '+Hole+'HTTP/1.0'+#13#10+#13#10+#13#10);
szTarget:= SocketReciv(st2);
if szTarget<>'' then RecStatus:=True;
if {(len=1)or}(ConStatus and SenStatus)=true then begin
if (szTarget<>'') then begin
s:=copy(szTarget, 1,Pos(#13#10,szTarget));
Delete(s, 1,9);
s2:=copy(s,1,Length(s));
Delete(s2, Pos(' ',s2),length(s)-Pos(' ',s2));
if (StrToInt(trim(s2))=200) then begin
TextColor(8);
GotoXY(6,12);
Writeln('BUGS: '+HoleName');
GotoXY(6,13);
Writeln('STATUS: найдено');
WriteLn(t,'[200 Found!] in <a href="http://'+HOST+HOLE+'">'+HOLENAME+'</a><br>');
end else begin
TextColor(8);
GotoXY(6,12);
Writeln('BUGS: '+HoleName);
GotoXY(6,13);
Writeln('STATUS: не найдено');
end;
end;
end;
SocketClose(st2);
end;
{ END USED WITHOUT PROXY }
1


Рейтинг@Mail.ru


  Copyright © 2001-2026 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach