package AFS::KTC_EKEY;
#------------------------------------------------------------------------------
# RCS-Id: "@(#)$RCS-Id: src/KTC_EKEY/KTC_EKEY.pm 7a64d4d Wed May 1 22:05:49 2013 +0200 Norbert E Gruener$"
#
# © 2001-2010 Norbert E. Gruener <nog@MPA-Garching.MPG.de>
#
# This library is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#------------------------------------------------------------------------------
use AFS ();
use vars qw(@ISA $VERSION);
@ISA = qw(AFS);
$VERSION = 'v2.6.4';
sub UserReadPassword {
my $class = shift;
AFS::ka_UserReadPassword(@_);
}
sub ReadPassword {
my $class = shift;
AFS::ka_ReadPassword(@_);
}
sub StringToKey {
my $class = shift;
AFS::ka_StringToKey(@_);
}
sub des_string_to_key {
my $class = shift;
AFS::ka_des_string_to_key(@_);
}
# struct ktc_encryptionKey {
# char data[8];
# };
1;