./c0de/perl/sitelist.txt

0.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
#!/usr/bin/perl 
#################################### 
# (C)oded by h4ckinger 
# Hackinger's Web Page: www.hackinger.org 
# plz send e-mail me when u find a bug in this script 
# mail:[email protected] 
# server site lister v0.1 
# Private Tool 
# greatz ; 
# Darkcode,CyberGhost,excellance,redLine,The_BeKiR 
# and All my Friends... 
#################################### 
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 h4ckinger-ghost_boy<\/title>//; 
print "h4ckinger's Server Site Lister\n(C)oded by h4ckinger - ghost_boy\n\n---------------------------------------\n"; 
$content=~s/<br>/\n/g; 
 
print "$content---------------------------------------"; 
 
} 
 
 
sub usage{ 
if($unix){ 
system("clear"); 
} 
else{system("cls");} 
print q[ 
============================================================ =========== 
h4ckinger's Server Site Lister 
(C)oded by h4ckinger - ghost_boy 
www.hackinger.org 
usage: list.pl <site> 
example: list.pl hackinger.org 
============================================================ =========== 
]; 
exit; 
}

Back