با سلام خدمت تمامی دوستان

اگر امکان دار کد زیر :
sub set_password {
my $auth = shift;
my($pass) = @_;
my @alpha = ('a'..'z', 'A'..'Z', 0..9);
my $salt = join '', map $alpha[rand @alpha], 1..2;
$auth->column('password', crypt $pass, $salt);
}

رو واسه من به یک زبان برنامه نویسی دیگر مثل سی ، پاسکال یا پی اچ پی برکردونید که قابل فهم باشه
ممنون