fork download 
  1. #!/bin/perl
  2. use strict;use warnings;use LWP::UserAgent;$|=1;my $OO0O0=LWP::UserAgent->new;$OO0O0->agent("\x46\x46\x20\x53\x63\x61\x6e\x6e\x65\x72\x2e");print "\x0a";print "\x2b\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2b\x0a";print "\x7c\x20\x20\x20\x20\x41\x6f\x64\x72\x75\x6c\x65\x7a\x27\x73\x20\x44\x4e\x53\x64\x69\x67\x67\x65\x72\x20\x54\x6f\x6f\x6c\x20\x20\x20\x20\x7c\x0a";print "\x2b\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2b\x0a";print "\x0a\x55\x73\x61\x67\x65\x20\x3a\x20$0\x20\x44\x6f\x6d\x61\x69\x6e\x5f\x6e\x61\x6d\x65";print "\x0a\x45\x78\x2e\x20\x20\x20\x3a\x20$0\x20\x67\x6f\x6f\x67\x6c\x65\x2e\x63\x6f\x6d";print "\x0a\x0a";my $OO000O=$ARGV[0];if(!$OO000O){exit;}my $OO0=$OO0O0->get("\x68\x74\x74\x70\x3a\x2f\x2f\x77\x77\x77\x2e\x64\x6e\x73\x64\x69\x67\x67\x65\x72\x2e\x63\x6f\x6d\x2f\x68\x6f\x73\x74\x63\x6f\x6c\x6c\x69\x73\x69\x6f\x6e\x2e\x70\x68\x70\x3f\x68\x6f\x73\x74\x3d" . $OO000O . "\x26\x6d\x61\x73\x6b\x3d\x32\x34");$OO0=$OO0->content;$OO0=~m/<b>(.*)hit\(s\)<\/b><br>/;my $OOO0O=$1;print "\x5b\x2b\x5d\x20\x54\x6f\x74\x61\x6c\x20\x68\x69\x74\x73\x20\x3a\x20$OOO0O\x0a";print "\x5b\x2b\x5d\x20\x46\x69\x6e\x64\x69\x6e\x67\x20\x41\x64\x6d\x69\x6e\x20\x66\x6f\x6c\x64\x65\x72\x73\x2e\x0a\x0a";my $OOO0=0;for($OOO0=1;$OOO0<$OOO0O;$OOO0=$OOO0+40){$OO0=$OO0O0->get("\x68\x74\x74\x70\x3a\x2f\x2f\x77\x77\x77\x2e\x64\x6e\x73\x64\x69\x67\x67\x65\x72\x2e\x63\x6f\x6d\x2f\x68\x6f\x73\x74\x63\x6f\x6c\x6c\x69\x73\x69\x6f\x6e\x2e\x70\x68\x70\x3f\x68\x6f\x73\x74\x3d" . $OO000O . "\x26\x6d\x61\x73\x6b\x3d\x32\x34\x26\x6e\x65\x74\x3d\x26\x6e\x65\x78\x74\x3d".$OOO0);$OO0=$OO0->content;while($OO0=~ m/rel="\x6e\x6f\x66\x6f\x6c\x6c\x6f\x77">(.*?)<\/a>/g){my $OO00O=$1;my $OOOO0=$OO0O0->get("\x68\x74\x74\x70\x3a\x2f\x2f".$OO00O."\x2f\x61\x64\x6d\x69\x6e\x2f");if($OOOO0->status_line=~ /200 OK/){print "\x5b\x21\x5d\x20\x68\x74\x74\x70\x3a\x2f\x2f$OO00O\x2f\x61\x64\x6d\x69\x6e\x2f\x20\x3a\x20\x41\x76\x61\x69\x6c\x61\x62\x6c\x65\x2e\x20\x3a\x29\x0a"};$OOOO0=$OO0O0->get("\x68\x74\x74\x70\x3a\x2f\x2f".$OO00O."\x2f\x61\x64\x6d\x69\x6e\x69\x73\x74\x72\x61\x74\x6f\x72\x2f");if($OOOO0->status_line=~ /200 OK/){print "\x5b\x21\x5d\x20\x68\x74\x74\x70\x3a\x2f\x2f$OO00O\x2f\x61\x64\x6d\x69\x6e\x69\x73\x74\x72\x61\x74\x6f\x72\x2f\x20\x3a\x20\x41\x76\x61\x69\x6c\x61\x62\x6c\x65\x2e\x20\x3a\x29\x0a"};$OOOO0=$OO0O0->get("\x68\x74\x74\x70\x3a\x2f\x2f".$OO00O."\x2f\x6c\x6f\x67\x69\x6e\x2f");if($OOOO0->status_line=~ /200 OK/){print "\x5b\x21\x5d\x20\x68\x74\x74\x70\x3a\x2f\x2f$OO00O\x2f\x6c\x6f\x67\x69\x6e\x2f\x20\x3a\x20\x41\x76\x61\x69\x6c\x61\x62\x6c\x65\x2e\x20\x3a\x29\x0a"};$OOOO0=$OO0O0->get("\x68\x74\x74\x70\x3a\x2f\x2f".$OO00O."\x2f\x77\x65\x62\x61\x64\x6d\x69\x6e\x2f");if($OOOO0->status_line=~ /200 OK/){print "\x5b\x21\x5d\x20\x68\x74\x74\x70\x3a\x2f\x2f$OO00O\x2f\x77\x65\x62\x61\x64\x6d\x69\x6e\x2f\x20\x3a\x20\x41\x76\x61\x69\x6c\x61\x62\x6c\x65\x2e\x20\x3a\x29\x0a"};}}
  3.  
Runtime error #stdin #stdout 0s 4728KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/JTAL0
language:
Perl (perl 5.28.1)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!