#!/usr/local/bin/perl

use blib;
use strict;
use warnings;

use AFS::KTC_EKEY;

die "Usage: $0 string\n" if ($#ARGV != 0);

my $string = shift;

my $key = AFS::KTC_EKEY->des_string_to_key($string);
print "KEY = ", $key->string, " \n";
