/usr/share/vile/perl/lock.pm is in vile-common 9.8q-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 | package lock;
use strict;
require Vile::Exporter;
use vars qw(@ISA %REGISTRY);
@ISA = 'Vile::Exporter';
%REGISTRY = ( 'lock' => [ \&lock, 'lock vile session' ] );
our $word;
sub getpass {
my ($text) = @_;
print "Enter password to $text: ";
undef $word;
for (
;
( my $char = Vile::keystroke() ) != 13 ;
$word .= sprintf "%c", $char
)
{
;
}
$word;
}
sub lock {
my ( $word, $pass, $salt );
my $work = Vile::working(0);
$pass = ( getpwuid($<) )[1];
$salt = substr( $pass, 0, 2 );
if ( $pass == "x" ) {
# if the system has shadow passwords, make our own
$word = getpass("lock");
$salt = substr( $word, 0, 2 );
$pass = crypt( $word, $salt );
}
while (1) {
sleep 1;
$word = getpass("unlock");
last if ( crypt( $word, $salt ) eq $pass );
print "Wrong password!";
}
Vile::working($work);
print "";
}
1;
__END__
=head1 NAME
lock - lock a vile session
=head1 SYNOPSIS
In .vilerc:
perl "use lock"
In [x]vile:
:lock
=head1 DESCRIPTION
This command allows the user to lock his [x]vile session.
Once the session is locked, "Enter password to unlock: "
prompt will appear in the status line prompting for the
password. The session will give unlock and give control
back to the user only when the correct password is entered.
This password is the same as what the user used to login to
the machine.
=head1 CAVEATS
When the session is locked, ideally the modeline and the
editing buffers should blank out to prevent others seeing
any data, but this does not happen presently.
=head1 CREDITS
Vile, Perl and Vile's Perl interface.
=head1 AUTHOR
Kuntal Daftary (daftary@cisco.com), 1998
=cut
|