Perl XS interface for a portable traditional crypt function.