Extract User From /etc/passwd Tool

[HashoR]

Extract User From /etc/passwd Tool

با سلام

اینم یه برنامه خوب
نحوی اجرا : perl Extract.pl


#!/usr/bin/perl

# Title : /etc/passwd Users Extract
# Coder : Lagripe-Dz


use LWP::Simple;

print("

####################################
# /etc/passwd Users Extract ! #
# Simple TooL By Lagripe-Dz #
# Say Bism Allah and start ;) #
# Greets To Very Secret #
# and All Coder'z #
####################################

");

@users = ();

sleep(1);

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

$etc_passwd = <>;

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

$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 !


ما را چه به اینــــــــــــــــــــ حرفا...!

[ly0kha]

This command can do that:
cat /etc/passwd | cut -f 1 -d ':'