Server Site Lister

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Mar 21, 2008
Last Updated	Mar 21, 2008
Tags	lister server site

Introduction

Grab the Code

#!/usr/bin/perl 
#################################### 
# (C)oded by Ivanalicius
# server site lister 
#################################### 
use LWP::UserAgent; 
$xpl = LWP::UserAgent->new( ) or die;

my $OperatingSystem = $^O; 
my $unix = ""; 
if (index(lc($OperatingSystem),"win")!=-1){ 
$unix="0"; #windows system 
}else{ 
$unix="1"; #unix system 
} 
if($unix){ 
system("clear"); 
} 
else{system("cls");} 
$site=$ARGV[0]; 
if(!$site){&usage} 
$res = $xpl->get("http://hackinger.org/tool/whois.php?ip=$site", 'USER_AGENT'=>"hackozilla"); 
if($res->is_success) { 
$content=$res->content; 
$content=~s/<title>Coded by Ivanalicius<\/title>//; 
print "h4ckinger's Server Site Lister\n(C)oded by Ivanalicius - ghost_boy\n\n---------------------------------------\n"; 
$content=~s/<br>/\n/g;

print "$content---------------------------------------";

}

sub usage{ 
if($unix){ 
system("clear"); 
} 
else{system("cls");} 
print q[ 
============================================================ =========== 
Server Site Lister 
(C)oded by Ivanalicius
usage: list.pl <site> 
example: list.pl hackinger.org 
============================================================ =========== 
]; 
exit; 
}

Comments

(0) RSS

Go to Bottom

Server Site Lister

Introduction

Grab the Code

Comments

Ivanalicius

My Snippet Tags

Contact

Friends (11)


Last seen: May 06, 2008 Profile Friends (11) Snippets (21) Images (1) Comments Received (141) Comments Submitted (42) Forum Posts (9)