recommit previous changes to simon's re-organized code

[gssapi-openssh.git] / openssh / makegssname.pl

#!/usr/bin/perl

use Convert::ASN1 qw(:tag);
use Digest::MD5 qw(md5);
use MIME::Base64;
 
$oid=shift;
$encoded=encode_object_id($oid);

@entries=unpack("C*",$encoded);
shift @entries; # Get rid of the NULL

print "DER representation: ";
foreach $entry (@entries) {
  print "\\x";
  printf "%02X",$entry;
}
print "\n";

$digest = md5($encoded);
# We only want the first 10 characters;
# Conversations with the authors suggest that we want to use all of the
# characters of the digest.
#$digest = substr($digest,0,10);
print "gsskeyex representation: ",encode_base64($digest),"\n";

sub encode_object_id {
  $string="";

  my @data = ($_[0] =~ /(\d+)/g);

  if(@data < 2) {
      @data = (0);
  }
  else {
      my $first = $data[1] + ($data[0] * 40);
      splice(@data,0,2,$first);
  }

#  my $l = length $string;
  $string .= pack("cw*", 0, @data);
#  substr($string,$l,1) = asn_encode_length(length($string) - $l - 1);
  return $string;
}