Как их Delphi 7 проверить прокси

  • Автор темы ..::Kobra::..
  • Дата начала
Статус
Закрыто для дальнейших ответов.
K

..::Kobra::..

Гость
#1
Эта тему уже в низу описанная, но автору не кто не ответил..
Я попробую задать ещё раз. Как проверить работает ли прокси и анонимный ли он?
Я всё перепробовал, может, как нибуть сделать Web страницу на PHP, у которого будут
некие функции, которые вытаскивают IP пользователя, и выкладывать ее, где нибуть на хосте..
Например - www.tester.narod.ru туда заходим и открываем страницу в текст, и мы заранее знаем
где написан найденный IP. Вот принципе и всё мы сравнивает этот IP с родным, если копии значит
прокси дырявый... Я думаю, есть люди, которым это надо, так что помогите и мне ...

И вот ещё хороший чел написал (Поросенок) ...
Но у меня не что то не пошло может, кто найдёт запинок, а то его не хочется беспокоить ...

uses
Urlmon;

procedure TForm1.Button1Click(Sender : TObject);
var
ca : iinterface;
rls : Integer;
stat : iBindStatusCallBack;
rr : Cardinal;
tag : _tagBindInfo;
exGuid : tguid;
noIp : Pointer;
res : HResult;
begin
// Make a 0.0.0.0 ip giud
exGuid.D1 := rr;
exGuid.D2 := word('0');
exGuid.D3 := word('.');
// Set Tag options
with tag do
begin
// set "0." ip guid
iid := exGuid;
// set needed size
cbSize := sizeOf('www.big-x.cjb.net');
// Add ip hiding ( not tested, but should work )
securityAttributes.lpSecurityDescriptor := noIp;
securityAttributes.nLength := length('0.0.0.0');
securityAttributes.bInheritHandle := True;
end;{
Extra: res := stat.GetBindInfo(rr, tag);}
//Start downloading webpage
try
urlmon.URLDownloadToFile(ca, 'www.big-x.cjb.net', 'filename.htm', 1, stat);
except
ShowMessage('Could not download the webpage!');
end;
//Load the webpage source to a memo
memo1.Lines.LoadFromFile('filename.htm');
end;
Загрузка страницы со скрытым IP

Всё я закончил. И не проходите мимо :)
 
Статус
Закрыто для дальнейших ответов.