-
Notifications
You must be signed in to change notification settings - Fork 16
/
Site Lister.pl
57 lines (51 loc) · 2.99 KB
/
Site Lister.pl
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:hackingerboy@gmail.com
# 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;
}