Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Proxy-Server leitet keine https-Seiten weiter (https://www.delphipraxis.net/102169-proxy-server-leitet-keine-https-seiten-weiter.html)

skyobserver 24. Okt 2007 14:54


Proxy-Server leitet keine https-Seiten weiter
 
Hallo zusammen,

ich möchte mit einem selbstgeschrieben Proxy-Server Internet-Seiten filtern.
Den bisher geschriebenen Code habe ich aus vielen Beiträgen aus der DP zusammen-
gesucht (verwende Delphi7 und Indy9):

Delphi-Quellcode:
procedure TfrmMain.IdhttpserverProxyCommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  Method: TIdHTTPMethod;
  Source, Dest: TStream;
  Url: AnsiString;
begin
  try
    AResponseInfo.ContentText := '';

    if Pos('ups.com', ARequestInfo.Host) = 0 then Exit; //Nur "ups.com"-Seiten zulassen

    try
      while idhttpProxy.Tag = 1 do Application.ProcessMessages;

      idhttpProxy.Tag := 1;

      if ARequestInfo.Command = 'GET' then Method := hmGet
      else if ARequestInfo.Command = 'POST' then Method := hmPost
      else if ARequestInfo.Command = 'HEAD' then Method := hmHead
      else
      begin
        AResponseInfo.ResponseNo := 501;
        Exit;
      end;

      Source := nil;
      Dest := nil;
      if Method <> hmHead then
      begin
        AResponseInfo.ContentStream := TMemoryStream.Create;
        if Method = hmPost then Source := ARequestInfo.PostStream;
        Dest := AResponseInfo.ContentStream;
      end;

      Url := 'http://'+ARequestInfo.Host+ARequestInfo.Document;
      if Length(ARequestInfo.QueryParams) > 0 then Url := Url+'?'+ARequestInfo.QueryParams;

      idhttpProxy.DoRequest(Method, Url, Source, Dest);
    finally
      AResponseInfo.ResponseNo := idhttpProxy.Response.ResponseCode;
      AResponseInfo.ResponseText := idhttpProxy.Response.ResponseText;
      AResponseInfo.RawHeaders.Assign(idhttpProxy.Response.RawHeaders);

      idhttpProxy.Tag := 0;
    end;
  except
  end;
end;
Die Prozedur gestattet nur das Laden von Internet-Seiten von Hosts mit "ups.com".
Das funktioniert soweit ganz gut...nur wenn man sich über eine https-Seite anmelden
muß klappt's nicht mehr...

Ich habe schon den Indy Http-Client und -Server Komponenten einen SSL-IO-Handler hinzugefügt
(habe ich hier irgendwo gelesen) und die SSL-DLLs für Indy besorgt, aber Zugriffe auf
"https://..." werden völlig ignoriert!?!

Hat jemand eine Idee was fehlt? :gruebel:

Habe von einer Indy HTTP-Proxy Komponente gelesen - finde ich aber bei mir nicht... :(

SubData 24. Okt 2007 14:59

Re: Proxy-Server leitet keine https-Seiten weiter
 
Ist im Browser denn auch eingestellt, dass bei HTTPS dein Proxy verwendet werden soll? :)

mkinzler 24. Okt 2007 15:02

Re: Proxy-Server leitet keine https-Seiten weiter
 
ist der proxy auch dafür eingerichtet (weiterer Port, 443 CONNECT erlaubt, ...)?

skyobserver 24. Okt 2007 15:08

Re: Proxy-Server leitet keine https-Seiten weiter
 
@SubData:

JA!

In meiner Firma surfe ich bereits über einen Proxy.
Der selbstgeschriebene Proxy soll zusätzlich als Filter
dazwischen. Ohne ihn funktioniert es...


@mkinzler:
Zitat:

weiterer Port, 443 CONNECT erlaubt
Ich glaube nicht...wo müßte das denn geschehen?

mkinzler 24. Okt 2007 15:21

Re: Proxy-Server leitet keine https-Seiten weiter
 
Der Proxy muss auch auf Port 443 weiterleiten und muß CONNECT erlauben.

skyobserver 25. Okt 2007 08:14

Re: Proxy-Server leitet keine https-Seiten weiter
 
Ich verwende TIdHTTPServer und TIdHTTP von Indy.

-Wie leite ich da auf den Port 443 Weiter?

-Wie Erlaube ich CONNECT?

mkinzler 25. Okt 2007 08:30

Re: Proxy-Server leitet keine https-Seiten weiter
 
Beides im Proxy.
was für ein Proxyserver wird verwendet?

skyobserver 25. Okt 2007 08:56

Re: Proxy-Server leitet keine https-Seiten weiter
 
...Den Proxy will ich doch selber schreiben (DAS IST DAS PROBLEM)...

Ich verwende TIdHTTPServer (Richtung Browser) und TIdHTTP (Richtung Parent-Proxy).
Bei erlaubten Web-Seiten soll eine Anfrage des Browsers an TidHTTPServer über
TidHTTP an den Parent-Proxy weitergeleitet werden und das Ergebnis wieder über
idHTTPServer an den Browser zurückgegeben werden.

Dafür habe ich das Ereignis OnCommandGet von idHTTPServer implementiert (siehe
Anfang des Threads). Der so entstandene Proxy-Server funktioniert allerdings
nur bei http.

Die Frage ist also: Was muß ich erweitern (Komponenten, Einstellungen...) damit
es auch mit https klappt?

Das reine hinzufügen von SSL-IO-Handlern hat nichts gebracht (ich benutze das
wohl nicht richtig...)

mkinzler 25. Okt 2007 09:00

Re: Proxy-Server leitet keine https-Seiten weiter
 
Warum nicht TIdHTTPProxyServer?

skyobserver 25. Okt 2007 09:04

Re: Proxy-Server leitet keine https-Seiten weiter
 
TIdHTTPProxyServer gibt es bei mir (Indy9) nicht!

Kann es sein, das diese Komponente erst mit Indy10 eingeführt wurde?
Kann in der Firma wegen Kompatibilität zu anderen Projekten nicht
ohne weiteres auf Indy10 upgraden...


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:32 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz