Script to reset emaill account password in cpanel

 To reset the  emailaccount password on a cPanel server without login whm or cpanel,  You can use the given script to reset the password.

#!/usr/bin/perl -wl
# cpanel – chemailpass Copyright(c) 2011 prajith.in.
# All rights Reserved.
# http://prajith.in

BEGIN { unshift @INC, ‘/usr/local/cpanel’; }

use strict;
use Cpanel::SafetyBits ();
use Cpanel::AcctUtils ();
use Cpanel::PublicAPI ();
my ( $email, $pass ) = @ARGV;
use Crypt::PasswdMD5 qw(unix_md5_crypt);
my ( $user, $domain ) = split( /\@/, $email );
if ( !$email ) {
die “Usage: chemailpass <emailaddress> <password>”;
}
if ( !$pass ) {
die “Usage: chemailpass <emailaddress> <password>”;
}
my $owner = Cpanel::AcctUtils::getdomainowner( $domain, { ‘default’ => ” } );
if ( !$owner ) {
die “Cannot find the owner of $domain, try rebuilding /etc/userdomains first with /usr/local/cpanel/scripts/updateuserdomains”;
}
my $pubapi = Cpanel::PublicAPI->new();
my $res = $pubapi->whm_api(‘domainuserdata’, “domain=$domain”);
my $homedir = $res->{‘userdata’}->{‘homedir’};
if ( !$homedir ) {
die “Cannot find the owner of $domain”;
}

open(FILE, “$homedir/etc/$domain/shadow”);
my @list=<FILE>;close FILE;
my $string = $user;
my @f=grep /$string/,@list;

if ( !@f ) {
die “email account not created yet”;
}
system(“/bin/cat $homedir/etc/$domain/shadow|grep -v \”$user\” > $homedir/etc/$domain/shadow”);

my @salt = ( ‘.’, ‘/’, 0 .. 9, ‘A’ .. ‘Z’, ‘a’ .. ‘z’ );

my $password = $pass;
my %encrypted;
my $encrypted = unix_md5_crypt( $password, gensalt(8) );
print $encrypted;
open FILE, “>>$homedir/etc/$domain/shadow” or die $!;
print FILE “$user:$encrypted”;
close FILE;

sub gensalt {
my $count = shift;

my $salt;
for (1..$count) {
$salt .= (@salt)[rand @salt];
}

return $salt;
}

Don’t copy paste the above script directly. Just use given command to download.

wget -O chemilpass.pl prajith.in/cpanel/emailpass