#!/usr/bin/perl -s
$salt1 = ‘yI1n7odGejBedTejaj8’ if ! $salt1;
$salt2 = ‘$1$EgMajByp$’ if ! $salt2;
$str = shift or die;
$ret = substr(crypt($salt1 . $str, $salt2), length($salt2));
$ret =~ tr/\//,/;
print “/protect:$ret$str\n”;
что есть $str = shift or die;
что есть crypt($salt1 . $str, $salt2)
что есть $ret =~ tr/\//,/;
спасибо