SHOW:
|
|
- or go back to the newest paste.
| 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 => 1933, # set port |
| 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 '<H1>mR.ipk403 Inc</H1><BR><H2>NPAZONE TEAM - 0R0W0D0L 734111</H2><embed src="https://www.youtube.com/v/6kMYXRuk2s0&autoplay=1&playlist=TmhibQ28GKE" wmode="transparent" type="application/x-shockwave-flash" height="0" width="0"></embed>'; # set your html content |
| 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 | } |
