daily pastebin goal
9%
SHARE
TWEET

Socket Server [IDX]

Berandal666 Jul 9th, 2017 (edited) 142 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl -w
  2.     use strict;
  3.     use IO::Socket;
  4.      
  5.     sub Wait {
  6.         wait; # wait needed to keep <defunct> pids from building up
  7.     }
  8.      
  9.     $SIG{CHLD} = \&Wait;
  10.      
  11.     my $server = IO::Socket::INET->new(
  12.         LocalPort   => 1337,    # set port
  13.         Type        => SOCK_STREAM,
  14.         Reuse       => 1,
  15.         Listen      => 10) or die "$@\n";
  16.     my $client ;
  17.      
  18.     while($client = $server->accept()) {
  19.         select $client;
  20.         print $client "HTTP/1.0 200 OK\r\n";
  21.         print $client "Content-type: text/html\r\n\r\n";
  22.         print $client '<center><br><br><br><h1>Hacked</h1><h2>Berandal wuz here</h2></center>'; # set your html content
  23.     }
  24.     continue {
  25.         close($client); #kills hangs
  26.         kill CHLD => -$$;
  27.     }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top