Загрузить web-страницу со скрытым IP

Delphi , Интернет и Сети , TCP/IP

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ Add a button and memo }

 implementation

 {$R *.dfm}

 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;

Привет! Я переведу текст на русский язык:

Это фрагмент кода Delphi, который загружает веб-страницу с помощью функции URLDownloadToFile из модуля Urlmon, скрывая адрес IP-сервера. Автор утверждает, что этот код должен работать, но он не был протестирован.

Вот шаг за шагом, что делает код:

1. Создается пустой GUID (exGuid) и его значение устанавливается в 0.0.0.0.
2. Определяется структура _tagBindInfo (tag) с следующими свойствами:
   • iid: IID (Interface ID), установленный в exGuid.
   • cbSize: Размер интерфейса, установленный в длину URL ('www.big-x.cjb.net').
   • securityAttributes: Указатель на дескриптор безопасности, скрывающий адрес IP.
3. Вызывается функция URLDownloadToFile с следующими параметрами:
   • ca: Пустой интерфейс (iInterface тип).
   • url: URL веб-страницы для загрузки ('www.big-x.cjb.net').
   • filename: Имя файла, где будет сохраняться загруженный контент ('filename.htm').
   • dwReserved: Резервный параметр, установленный в 1.
   • stat: Инстанция интерфейса iBindStatusCallBack, используемого для мониторинга прогресса загрузки.
4. Если загрузка неудачна, отображается сообщение об ошибке с помощью ShowMessage.
5. Наконец, содержимое загруженного файла загружается в мемо-контрол (memo1) с помощью LoadFromFile.

Обратите внимание, что этот код имеет некоторые проблемы:

• Указатель на securityAttributes не инициализирован.
• Свойство cbSize установлено в длину URL, но неизвестно, почему это необходимо или как это связано с процессом загрузки.
• Нет обработки ошибок для случаев, когда загрузка fails из-за проблем с сетью, ошибок сервера и других причин.

Чтобы улучшить этот код, вы можете:

1. Инициализировать указатель на securityAttributes и установить его значения правильно.
2. Использовать более надежный способ скрывать адрес IP, например, используя VPN или прокси-серверы.
3. Реализовать корректную обработку ошибок для случаев неудачной загрузки.
4. Рассмотреть использование более современного и надежного метода загрузки веб-страниц, например, используя библиотеку HTTP-клиента Indy.

В целом, хотя этот код пытается скрывать адрес IP во время процесса загрузки, неизвестно, будет ли он работать или быть эффективным в этом отношении.

Данное описание статьи в русском языке: Программа на Delphi, которая загружает web-страницу с скрытым IP-адресом.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TCP/IP ::