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

Тема в разделе "Delphi - Сети", создана пользователем ..::Kobra::.., 25 мар 2007.

Статус темы:
Закрыта.
  1. ..::Kobra::..

    ..::Kobra::.. Гость

    Эта тему уже в низу описанная, но автору не кто не ответил..
    Я попробую задать ещё раз. Как проверить работает ли прокси и анонимный ли он?
    Я всё перепробовал, может, как нибуть сделать 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

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

Поделиться этой страницей