ハァ?
Perlのcrypt()はsystemが提供するcrypt(3)への単なるwrapper関数。
crypt(3)はkeyとsaltから値を得る一方向関数なので元には戻せない。