#!/usr/bin/perl
# Simple script to take a username and password and
# return a line suitable for pasting into the CVS
# password file
#
($u,$p,$g)=@ARGV;
@d=(A..Z,a..z);
$s=$d[rand(52)].$d[rand52];
print $u.":".crypt($p,$s).":".$g."n";
cvs帐号维护
最新推荐文章于 2021-05-01 03:27:34 发布