[H]aKimuss [G]alaCtuss

Chargement de la page en cours...

<html>
<title>ali</title>
<body bgcolor="#000000">
<marquee behavior ="left"><font color="red" size="3"><b>salut Ali</b></font></marquee>
<hr color="red">
<table border="1">
<tr>
<td>
<img src="http://modmyi.com/images/applechic/20080323-Steve_Jobs.gif">
</td>

</tr>
</table>
<hr color="red">

</html>

#!/usr/bin/perl

# Title : /etc/passwd Users Extract
# Coder : Dz-root
# Home : facebook.com/Dz.root.S

use LWP::Simple;

print("

####################################
# | BY Dz-root | #
####################################

");

@users = ();

sleep(1);

print "\n[+] Put etc/passwd link : ";

$etc_passwd = <>;

print "\n[+] Put output FileName : ";

$output = <>;

my $content = get($etc_passwd);

if(!$content){

die("\n[~] Can't get this page > ".$etc_passwd);

}else{

print "\n# start Extract ...\n";

}

while( $content =~ m{(.*?):x:(.*)}g ) {

push(@users, "$1");

}

if(scalar(@users) == 0){

print "\n[~] No user Found in this Page [ ".$etc_passwd." ]";

}else{

print "\n# User'z Founded : [ ".scalar(@users)." ] :D\n";

foreach $user(@users){

open(OUTPUT,">>".$output);
printf OUTPUT "$user\n";

}

close (OUTPUT);

print "\n# User'z OutPut ... ".$output."\n";

print "# Done ..\n";

}

#_EOF !

visiteurs