Advertisement
Ford

is.gd perl sub

Sep 8th, 2013
207
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.76 KB | None | 0 0
  1. #is.gd sub by Ford_Lawnmower irc.geekshed.net
  2. #Example use: print(&isgd("http://geekshed.net"));
  3. use strict;
  4. use IO::Socket::INET;
  5. use URI::Escape;
  6. sub isgd {
  7.   my ($host) = uri_escape($_[0]);
  8.   my ($myurl) = "/create.php?format=simple&url=$host";
  9.   my $socket = IO::Socket::INET->new(
  10.     PeerAddr => 'is.gd',
  11.     PeerPort => 'http(80)',
  12.     Proto    => 'tcp',
  13.   ) or die("Error :: $!");
  14.   print($socket "GET $myurl HTTP/1.1\r\n");
  15.   print($socket "Host: is.gd\r\n");
  16.   print($socket "User-Agent: Opera 10.4\r\n");
  17.   print($socket "Connection: close\r\n");
  18.   print($socket "\r\n");
  19.   while (<$socket>) {
  20.     my $line = <$socket>;
  21.     #print "$line \n";
  22.     if (defined($line) && $line =~ /http:\/\//) {
  23.       return "$line";
  24.     }
  25.   }
  26.   $socket->close();
  27. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement