Advertisement
Mr_G4L4XY_ID

Perl Socket Server

Jul 31st, 2018
2,834
0
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   => 8502,    # 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 '<title>Touched By Mr.G4L4XY_!D</title><link rel="shortcut icon" href="http://www.me-exploiter.xyz/images/logo.png" type="image/x-icon"><center><br><br><img src="http://www.me-exploiter.xyz/images/tenor.gif" alt="" /><br><h1>Hacked By Mr.G4L4XY_!D | Indonesian Freedom Security'; # set your html content
  23. }
  24. continue {
  25.     close($client); #kills hangs
  26.     kill CHLD => -$$;
  27. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement