一段生成linux passwd的perl脚本
来源:互联网 发布:黑暗之魂世界观知乎 编辑:程序博客网 时间:2024/05/16 16:04
脚本如下,最终是用crypttext来加密。不懂的是中间这句,my$plaintext=shift;
有了解的讲解一下。
#!/usr/bin/perl
srand (time());
my $randletter = "(int (rand (26)) + (int (rand (1) + .5) % 2 ? 65 : 97))";
my $salt = sprintf ("%c%c", eval $randletter, eval $randletter);
my $plaintext = shift;
my $crypttext = crypt ($plaintext, $salt);
print "${crypttext}/n";
有了解的讲解一下。
#!/usr/bin/perl
srand (time());
my $randletter = "(int (rand (26)) + (int (rand (1) + .5) % 2 ? 65 : 97))";
my $salt = sprintf ("%c%c", eval $randletter, eval $randletter);
my $plaintext = shift;
my $crypttext = crypt ($plaintext, $salt);
print "${crypttext}/n";
- 一段生成linux passwd的perl脚本
- 一段生成随机数的perl代码
- LINUX的passwd文件
- Linux的第一个perl脚本
- 解析LINUX的passwd文件
- 解析LINUX的passwd文件
- 解析LINUX的passwd文件
- 解析LINUX的passwd文件
- 解析LINUX的passwd文件
- 解析LINUX的passwd文件
- 解析LINUX的passwd文件
- Ubuntu Linux的root passwd
- linux的 /etc/passwd文件
- linux下监视网卡流量的一段脚本
- 一段在ubuntu linux上安装codelite的脚本
- 一段linux上统计平均响应时间的awk脚本
- perl从/etc/passwd找出udi>500的用户
- Perl 脚本的特点
- 上帝的需求是什么?--谈软件的需求设计
- 终于注册了我的blog
- 微软建议的ASP性能优化28条守则
- 关于无法阅读CHM文件的解决方法
- C#.NET 常用函数详解
- 一段生成linux passwd的perl脚本
- 博客广告联盟,让博客也像作家一样赚钱
- 我来调侃中国的软件公司,呵呵
- 管理十大经典理论
- 软件开发流程
- 毕设log
- 有Blogg一年了,到现在还不会用,今天想试试,复制别人的asp.net常用代码
- AJAX开发简略
- 企业内部消息系统