perl批量更改密码

trt2008

请大家多指正

#!/usr/bin/perl

use strict;
use warnings;
use Net::SSH::Expect;  
use String::MkPasswd qw(mkpasswd);


my $user = "user";
my $pass = 123456;
my $root_pass = 123456;
my $new_user_pass = mkpasswd(-length => 15, -minnum => 3, -minlower => 3 , -minupper => 3, -minspecial => 3);
my $port = 22;



open (FILE, "</var/bak/test/iplist") or die "can't open file: $!\n";
while (<FILE>) {
    print;
    &ssh_host( "$_", "$port", "$user", "$pass" );
}
close(FILE);


sub ssh_host() {
    my ( $host, $port, $user, $pass ) = @_;
    my $ssh = Net::SSH::Expect->new(
        host        => $host,
        port        => $port,
        password    => $pass,
        user        => $user,
        no_terminal => 0,
        raw_pty     => 1,
        timeout     => 5,
    );

    open (FH, ">> /var/bak/test/log_$host") or die "can't open file: $!\n";

    print FH "-" x 80, "\n";
    my $start_time = localtime;
    print FH "start \tat $start_time\n";

    $ssh->debug(0);
    $ssh->run_ssh() or die "SSH process couldn't start: $!\n";

    $ssh->waitfor( '\(yes\/no\)\?$', 5 );
    $ssh->send("yes\n");
    $ssh->waitfor( 'password:\s*$/', 5 );
    $ssh->send("$pass");

    $ssh->send("su - root");
    $ssh->waitfor( 'Password:\s*$', 5 );
    $ssh->send("$root_pass");
    $ssh->waitfor( '#\s*', 5 );

    print FH "root login ok. \n";

    $ssh->send("passwd");

    $ssh->waitfor( 'password:\s*$', 5 );
    $ssh->send("$new_user_pass");

    $ssh->waitfor( 'password:\s*$', 5 );
    $ssh->send("$new_user_pass");
    $ssh->waitfor( '#\s*', 5 );

    my $ls = $ssh->exec("id");
    print FH "$ls\n";
    print FH "chang password ok!!!!!!!\n";
    print FH "$new_user_pass\n";

    my $end_time = localtime;
    print FH "end \tat $end_time\n";

    $ssh->close();

    close FH;

    print "-" x 80, "\n";
}

szedwin

我也分享一个用perl写的修改密码的程序:

http://www.ywjs.net/read.php?tid-1040.html

经过验证这个已经成功修改密码, 不足之处在于多并发未实现.

obsd178

这个帖子真的不错，我要抓下来试试看！

soopo

多谢分享.收藏

laputa73

普通用户貌似不能直接用单行命令改。
下面这样是不行的
$ echo 12345 | passwd user
输入现有的登录口令：
$

buzzle

回复 24# laputa73


   我以前用passwd命令在shell脚本中修改root密码，非root没试过.


ssh  后跟用户名@IP “cmd”就可以执行命令啊.

laputa73

直接在shell脚本passwd修改多简单.
buzzle 发表于 2010-06-19 09:46

非root用户shell可以改密码么？
passwd命令好像是不允许用sh输入密码的?
还有ssh登录，sh怎么实现?
(chpasswd命令只允许root用的)
要实现普通用户登录并修改密码还是要用expect的。

expect模块的好处是可以模拟终端交互，可以直接用系统的ssh命令。不用单独安装其他的ssh相关模块。

laputa73

可以直接用expect模块。
你这样每次登陆都有可能wait 5s.很慢
应该yes/no/password一起等
可以并发。
比如一次起5个session

buzzle

直接在shell脚本passwd修改多简单.

wjlcn

学习了