Никакой там защиты нет, просто кидаешь на форму IdHTTP,Memo,Button и пишешь:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var s: TStringList;
begin
s:=TStringList.Create;
s.Add('og=1077746718070');
Memo1.Text:=UTF8ToANSI(IdHTTP1.Post('http://service.nalog.ru:8080/uwsfind.do',s));
s.Free;
end;
(как собственно и было уже написано)
в Memo у тебя теперь:
...
<table id="uwsdata">
<thead><tr>
<th>Полное наименование юридического лица</th>
<th>ОГРН</th>
<th title="Р13001 – Заявление о государственной регистрации изменений, вносимых в учредительные документы юридического лица
Р14001 – Заявление о внесении в Единый государственный реестр юридических лиц изменений в сведения о юридическом лице, не связанных с внесением изменений в учредительные документы">Вид изменений</th>
<th>Дата представления документов</th><th>Входящий номер</th>
<th>Наименование налогового органа</th>
</tr></thead>
<tbody>
<tr><td>Общество с ограниченной ответственностью "ПЕРВАЯ РЕКРУТИНГОВАЯ КОМПАНИЯ"</td><td>1077746718070</td><td>Вносимые в сведения реестра (форма № Р14001) в части: учредителей-физических лиц</td><td>06.02.2009</td><td>36875А</td><td>Межрайонная инспекция ФНС России №46 по г.Москве</td></tr>
</tbody>
</table>
...
</div>
<div id="stat"><div><a href="stat.do?uws=1" target="_blank">Статистика доступа</a></div>Copyright © 2006-10 ФНС России</div>
<div id="bottom"></div>
</body>
</html>
просто по заголовкам в таблице ищещ этот кусок html и уже фильтруешь его