SHARE
TWEET

Socket Server

AgusSR Jul 8th, 2017 (edited) 1,608 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 '<H1>L0c4lh34rtz ft. ShiennaMARIA</H1><BR><H2>INDOXPLOIT</H2><embed src="https://www.youtube.com/v/TmhibQ28GKE&autoplay=1&playlist=TmhibQ28GKE" wmode="transparent" type="application/x-shockwave-flash" height="0" width="0"></embed>'; # set your html content
  23. }
  24. continue {
  25.     close($client); #kills hangs
  26.     kill CHLD => -$$;
  27. }
RAW Paste Data
Top