Hi, Carsten! Trying to kill the keyboard, Carsten Meyer (cmeyer@mail.com) produced 0,7K in 20 lines:
Hat jemand eine Idee wie man einen Daemon auf Port 31789 ausetzen kann, der es für die Scriptkiddies (Back Orifice) etwas ... ... etwas *interessanter* macht? >:->
UNgetestet (nicht von der UN getestet) und nur ein Kern! use IO::Socket; use IO::Select; $::Socket_Proto = new IO::Socket::INET ( LocalPort => $::LISTEN_PORT, # also 31789 Proto => $::PROTO, # tcp/udp Listen => 5, Reuse => 1, ) die "Unable to create listening socket: $!\n" unless $::Socket_Proto; $::Master_Socket = new IO::Select($:Socket_Proto); while ($::Master_Socket->can_read) { # wait for connection # do whatever, probably fork (perhaps using forkfunc?) # sleep a bit (1/4 s), so client can accept call ... select (undef, undef, undef, 0.25); } -Wolfgang --------------------------------------------------------------------- To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com For additional commands, e-mail: suse-linux-help@suse.com