Thread Proxy Perl verändern der Browseranzeige (3 answers)
Opened by IceRage at 2010-01-30 14:44

IceRage
 2010-01-30 14:44
#131591 #131591
User since
2008-09-07
93 Artikel
BenutzerIn
[default_avatar]
Hallo allerseits

Auf der Suche nach einer Möglichkeit html-content an meinen Browser zu verändern, bin ich auf einen Perl-Proxycode gestoßen.

[/code]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl -w
 
 my $PORT = 8017;
 
 use HTTP::Daemon;
 use LWP::UserAgent;
 
 my $proxy = HTTP::Daemon->new( LocalPort => $PORT );
 die "@_" unless defined $proxy;
 print "Listening on port $PORT\n";
 
 my $ua = LWP::UserAgent->new;
 $ua->agent("miniproxy/1.0");
 
 while (my $conn = $proxy->accept) {
     while (my $request = $conn->get_request) {
         my $response = $ua->simple_request($request);
         print $response;
         $conn->send_response($response);
     }
     $conn->close;
 }


Das sieht soweit super einfach aus, aber ich dachte schon, dass es so einfach wohl nicht wird. Auf diese Weise wird mir zunächst mal, die komplette Page in der Konsole ausgegeben. Allerdings auch noch sehr viel mehr. Ich gehe mal davon aus, dass diese ganzen kryptischen Zeichen, etwas mit PHP Variablen, Sitzungsdaten oder so ähnlich zu tun haben.

Mir geht es eigentlich nur darum Folgendes zu tun:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/bin/perl -w
 
 my $PORT = 8017;
 
 use HTTP::Daemon;
 use LWP::UserAgent;
 
 my $proxy = HTTP::Daemon->new( LocalPort => $PORT );
 die "@_" unless defined $proxy;
 print "Listening on port $PORT\n";
 
 my $ua = LWP::UserAgent->new;
 $ua->agent("miniproxy/1.0");
 
 while (my $conn = $proxy->accept) {
     while (my $request = $conn->get_request) {
         my $response = $ua->simple_request($request);
         $response =~ s/name=\"name\"/name=\name\ value=\"sich verändernder String\"/;
         print $response;
         $conn->send_response($response);
     }
     $conn->close;
 }


Damit möchte ich in die Response an den Browser ein bereits ausgefülltes Formularfeld schicken ("sicher verändernder String"). Leider funktioniert das so nicht. Die Seite wird normal angezeigt. Wenn ich einfach als Test irgendeinen String an die response ranhänge ($response .= "teststring"), dann bekomme ich eine leere Seite angezeigt.

Vielen Dank im Voraus,

IceRage

View full thread Proxy Perl verändern der Browseranzeige