Perl crypt 函数

• 

  描述

  crypt 使用系统 crypt() 函数对字符串EXPR进行加密。SALT的值用于从多个变体之一中选择一个加密版本。您无法解密以这种方式加密的字符串。通常使用一种方法，首先加密字符串，然后加密密码以与加密的字符串进行比较。如果您以这种形式使用它，请考虑提供加密的密码作为SALT。
• 

  句法

  以下是此函数的简单语法-

  
  crypt EXPR,SALT
  

• 

  返回值

  此函数返回加密的字符串。
• 

  示例

  以下是显示其基本用法的示例代码-

   
  $pwd = (getpwuid($<))[1];
  
  system "stty -echo";
  print "Password: ";
  chomp($word = <STDIN>);
  print "\n";
  system "stty echo";
  
  if (crypt($word, $pwd) ne $pwd) {
     die "Sorry wrong password\n";
  } else {
     print "ok, correct password\n";
  }
  

  执行结果：

  
  Password: