tolongin donk gimana nih supaya jalan :
>>dan kayaknya baris berikut di modul Expect harus dibenerin:
>> exec($cmd);
>>jadi
>> exec(@_);
>
>udah dilakukan yang gini di expect.pm tapi masih tetap gagal di
>"kagak ada new unix password\n" nih di user biasa kenapa ya ?
>udah diset rws-r-s-r-x root.root di passwd.pl
>
>#!/usr/bin/perl
>use Expect;
>$timeout_pswd=2;
>
>$<=$>;
>$(=$);
>
>$user=$ARGV[0];
>$password=$ARGV[1];
>$t=Expect->spawn('/usr/bin/passwd',$user) || die "gagal passwd\n";
>$t->log_stdout(1);
>
>#0,1,2,3 or undef
>$t->debug(1);
>
>print ("$< $>\n");
>
>$unknown=$t->expect($timeout_pswd,'Unknown');
>if ($unknown) {die "unknown\n";}
>
>$only_root=$t->expect($timeout_pswd,'Only root');
>if ($only_root) {die "Only Root\n";}
>
>$t->expect($timeout_pswd,'New UNIX password:') || die "kagak ada new
>unix password\n";
>#$t->expect($timeout_pswd,'-re','.*New.*') || die "kagak ada new unix
>password\n";
>print $t "$password\r";
>
>$t->expect($timeout_pswd,'Retype new UNIX password:') || die "gagal
>retype\n";
>print $t "$password\r";
>
>$t->expect($timeout_pswd,'successfully') || die "tidak sukses\n";
>$t->soft_close;
>
>
>>ada masalah lagi (ini berhubungan dengan PAM?). kalo password yang
>>kita masukkan terlalu pendek atau 'based on a dictionary word',
>>dan kita confirm password yang sama di prompt berikutnya, 'token
>>manipulation' gagal. (sementara kalo kita jalanin sebagai root/
>>bukan suid root, berhasil).
>
>
>ini salah tulis bukan nih ?
>bukan suid root "berhasil" jadi user biasa "berhasil"?
>jadi kalo suid root "gak berhasil passwd dengan gampang" ?
>soalnya menurut percobaan saya sih kalo root pasti "password
>bermasalah" sukses, tapi kalo user biasa passwd macem macem masalah
>mulai dari too short, too simple, doesnt enough different characcter,
>based on dictionary word.
>nah kalo suid root bisa "segampang" root bener gak ?
>
>itu yakin nih chpasswd ngak bisa suid root ?
>
>
>---------------------------------------------------------------------
-----------
>Utk berhenti langganan, kirim email ke
[EMAIL PROTECTED]
>Informasi arsip di http://www.linux.or.id/milis.php3
>Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
>Hosted by http://www.Indoglobal.com
>
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
Hosted by http://www.Indoglobal.com
