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: