Lieber Besucher, herzlich willkommen bei: Linux Forum Linux-Web.de. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
use IO::Socket; use IO::Select; print "1\n"; my $l = IO::Socket::INET->new(Proto => 'tcp',LocalPort => 1338,Listen => 5,Reuse => 1); die "Unable to setup socket: $!\n" unless defined $l; print "2\n"; my $s = IO::Select->new($l); print "3\n"; $s->add($l); print "4"; |
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Mainzl0r« (18.09.2007, 22:14)
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 |
use IO::Socket; use IO::Select; print "1\n"; my $l = IO::Socket::INET->new( Proto => 'tcp',LocalPort => 1338, Listen => 5, Reuse => 1 ); die "Unable to setup socket: $!\n" unless defined $l; print "2\n"; my $s = IO::Select->new(); print "3\n"; $s->add($l); print "4\n"; while(1) { print "5\n"; my @r = IO::Select->select($s, undef, undef, undef); print "6\n"; foreach (@r) { print "7\n"; if($_ eq $l) { my $n = $l->accept; my %f; $s->add($n); if(<$n>=~m/\?(.+) http/i) { print "[".$n->peerhost()."] $1\n"; my @a = split(/&/, $1); foreach (@a) { ($e, $v) = split(/=/, $_); if($e && $v) { $v =~ tr/+/ /; $v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $f{$e} = $v; } } } print $n "HTTP/1.0 200 OK\r\n"; print $n "Content-type: text/html\n\n"; if($f{p}) { if($f{p} eq "i") { &i($n, $f{u}, $f{m}); } elsif($f{p} eq "s") { &s($n, $f{u}); } else { &c($n); } } else { &l($n, $f{u}); } } else { &c($_); } } } |
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »Mainzl0r« (19.09.2007, 11:43)
Quellcode |
|
1 2 3 4 5 6 7 8 9 |
Die Webseite kann nicht angezeigt werden. Wahrscheinlichste Ursachen: Sie haben keine Verbindung mit dem Internet hergestellt. Es ist ein Problem mit der Website aufgetreten. Die Adresse enthält eventuell einen Tippfehler. Mögliche Vorgehensweise: Diagnose von Verbindungsproblemen |
Quellcode |
|
1 2 3 4 5 6 7 8 9 |
Die Webseite kann nicht angezeigt werden. Wahrscheinlichste Ursache: Einige Inhalte bzw. Dateien auf dieser Webseite erfordern ein Programm, das Sie nicht installiert haben. Mögliche Vorgehensweise: Suchen Sie online nach einem Programm, mit dem diese Webinhalte angezeigt werden können. Geben Sie die Adresse erneut ein. |
Quellcode |
|
1 |
telnet IP 1338 |
Quellcode |
|
1 |
ping IP |
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 |
$ perl -w socket.pl 1 2 3 4 5 6 7 Undefined subroutine &main::c called at socket.pl line 60. $ |
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 |
sub c { $s->remove($_[0]); $_[0]->close; } sub s { my ($s,$u) = @_; if($u) { print $s "<html>\n"; print $s "<head>\n"; print $s "<script language=javascript>\n"; print $s " function s() {\n"; print $s " }\n"; print $s "</script>\n"; print $s "</head>\n"; print $s "<body>\n"; print $s "Einfach was schreibt. Es wird sich zeigen ob jemand da ist *g*<br>"; for($i=0; $i<=100; $i++) { print $s "<!-- buffer //-->\n"; } } else { print $s "u?"; &c($s); } } sub i { my ($s,$u,$m) = @_; if($u) { &m($s, "<b>$u<b>: $m") if($m); print $s "<html>\n"; print $s "<head>\n"; print $s "<script language=javascript>\n"; print $s qq{ <script language=javascript> \n}; print $s qq{ function scroller() { \n}; print $s qq{ window.scrollBy(0,20); \n}; print $s qq{ window.setTimeout("scroller()",20) \n}; print $s qq{ } \n}; print $s qq{ scroller(); \n}; print $s qq{ </script> \n}; print $s "</script>\n"; print $s "</head>\n"; print $s "<body onload=f()>\n"; print $s "<form action=/ method=get name=e>\n"; print $s " <div align=center>\n"; print $s " <input type=hidden name=u value=$u>\n"; print $s " <input type=hidden name=p value=i>\n"; print $s " <input type=text name=m size=50>\n"; print $s " <input type=submit value=Chat>\n"; print $s " </div>\n"; print $s "</form>\n"; print $s "</body>\n"; print $s "</html>\n"; } else { print $s "u?"; } &c($s); } sub l { my ($s,$u) = @_; if($u) { print $s qq{<html>\n}; print $s qq{<head>\n}; print $s qq{<frameset rows="*,75">\n}; print $s qq{ <frame name="stream" src="/?p=s&u=$u" marginwidth="10" marginheight="10" scrolling="yes" frameborder="0" noresize>\n}; print $s qq{ <frame name="input" src="/?p=i&u=$u&m=Ich bin da *g*" marginwidth="10" marginheight="10" scrolling="no" frameborder="0" noresize>\n}; print $s qq{ <noframes></noframes>\n}; print $s qq{</frameset>\n}; print $s qq{</head>\n}; print $s qq{<body>\n}; } else { print $s "<html>\n"; print $s "<head>\n"; print $s "</head>\n"; print $s "<body>\n"; print $s "<form action=/ method=get>\n"; print $s "Nick:\n"; print $s " <input type=text name=u>\n"; print $s " <input type=submit value=Login>\n"; print $s "</form>\n"; print $s "</body>\n"; print $s "</html>\n"; } &c($s); } sub m { foreach ($s->can_write) { print $_ "$_[1] <br>\n" if($_ ne $_[0]); } } |
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Mainzl0r« (19.09.2007, 13:41)