Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #is.gd sub by Ford_Lawnmower irc.geekshed.net
- #Example use: print(&isgd("http://geekshed.net"));
- use strict;
- use IO::Socket::INET;
- use URI::Escape;
- sub isgd {
- my ($host) = uri_escape($_[0]);
- my ($myurl) = "/create.php?format=simple&url=$host";
- my $socket = IO::Socket::INET->new(
- PeerAddr => 'is.gd',
- PeerPort => 'http(80)',
- Proto => 'tcp',
- ) or die("Error :: $!");
- print($socket "GET $myurl HTTP/1.1\r\n");
- print($socket "Host: is.gd\r\n");
- print($socket "User-Agent: Opera 10.4\r\n");
- print($socket "Connection: close\r\n");
- print($socket "\r\n");
- while (<$socket>) {
- my $line = <$socket>;
- #print "$line \n";
- if (defined($line) && $line =~ /http:\/\//) {
- return "$line";
- }
- }
- $socket->close();
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement