$ perl -E 'say crypt "string", "sa"'
saQ9i9dEI8LLA