1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/usr/local/bin/perl -w
use blib;
use AFS::KAS;
use AFS::KTC_PRINCIPAL;
use AFS::KTC_TOKEN;
use AFS::KTC_EKEY;
use AFS::Cell qw(localcell);
use AFS qw(checkafs);
die "Usage: user \n" if ($#ARGV != 0);
my $user = AFS::KTC_PRINCIPAL->new(shift);
checkafs('principal new');
$user->cell(localcell) if ($user->cell eq '');
my $oldkey = AFS::KTC_EKEY->ReadPassword("Old Password:");
checkafs('Read old Passwd');
my $newkey = AFS::KTC_EKEY->ReadPassword("New Password:", 1, $user->cell);
checkafs('Read new Passwd');
my $token = AFS::KTC_TOKEN->GetAdminToken($user, $oldkey, 300);
checkafs('GetAdmintoken');
my $kas = AFS::KAS->AuthServerConn($token, &AFS::KA_MAINTENANCE_SERVICE);
checkafs('AuthServerConn');
my $rkey = $kas->randomkey;
my $ok = $kas->ChangePassword($user->name, $user->instance, $rkey, $newkey);
printf("Password changed: %s \n", $ok ? 'yes' : 'no');
checkafs('ChangePassword');
|
