Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Где можно найти исходники 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 }
|
|
|
подробно о проекте
Анализ криптографических сетевых...
