#!/usr/local/bin/perl

# Autogenerated block to include site configuration
# generated on Tue Nov 2 17:15:57 MST 1999
BEGIN {
  %::RIPEConfig = (
	  VERSION => q#3.0.0b2#,
	  LIBDIR => q#/home/david/yyy/lib#,
	  DEFCONFIG => q#/home/david/yyy/etc/ripedb.config#,
	  WHOISHOST => q#whois.6bone.net#,
  );

  # Add library path unless running from source directory
  use FindBin;
  if ($FindBin::Bin =~ m#/src$#) {
     unshift @INC, $FindBin::Bin;
     $::RIPEConfig{DEFCONFIG}=$FindBin::Bin."/../etc/ripedb.config";
  } else {
     unshift @INC, $::RIPEConfig{LIBDIR};
  }
  # Select DBM package other then the default one
  use Fcntl; use DB_File; $DBMPACKAGE="DB_File";
}

# End of autogenerated block


#	$RCSfile: cryptpw.pl,v $
#	$Revision: 1.1.1.1 $
#	$Author: eddy $
#	$Date: 1997/10/27 20:13:45 $

#  Original code is written by David Kessens

# Copyright (c) 1993, 1994, 1995, 1996, 1997  The TERENA Association
# Copyright (c) 1998                              RIPE NCC
#
# All Rights Reserved
#
# Permission to use, copy, modify, and distribute this software and its
# documentation for any purpose and without fee is hereby granted,
# provided that the above copyright notice appear in all copies and that
# both that copyright notice and this permission notice appear in
# supporting documentation, and that the name of the author not be
# used in advertising or publicity pertaining to distribution of the
# software without specific, written prior permission.
#
# THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
# ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS; IN NO EVENT SHALL
# AUTHOR BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY
# DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
# AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

# Copyright (c) 1997,1998 by the University of Southern California
# All rights reserved.
#
# Permission to use, copy, modify, and distribute this software and its
# documentation in source and binary forms for lawful non-commercial
# purposes and without fee is hereby granted, provided that the above
# copyright notice appear in all copies and that both the copyright
# notice and this permission notice appear in supporting documentation,
# and that any documentation, advertising materials, and other materials
# related to such distribution and use acknowledge that the software was
# developed by the University of Southern California, Information
# Sciences Institute. The name of the USC may not be used to endorse or
# promote products derived from this software without specific prior
# written permission.
#
# THE UNIVERSITY OF SOUTHERN CALIFORNIA DOES NOT MAKE ANY
# REPRESENTATIONS ABOUT THE SUITABILITY OF THIS SOFTWARE FOR ANY
# PURPOSE.  THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE,
# TITLE, AND NON-INFRINGEMENT.
#
# IN NO EVENT SHALL USC, OR ANY OTHER CONTRIBUTOR BE LIABLE FOR ANY
# SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES, WHETHER IN CONTRACT, TORT,
# OR OTHER FORM OF ACTION, ARISING OUT OF OR IN CONNECTION WITH, THE USE
# OR PERFORMANCE OF THIS SOFTWARE.

#
#  Author(s): David Kessens <david@Qwest.net>

#
# cryptpw encrypts a password for use in the
# CRYPT-PW field in the 'mntner' objects

if (!((scalar(@ARGV) == 2) && ($ARGV[0]) && ($ARGV[1]))) {
   
   print STDERR "Error in arguments list:\n" if (@ARGV);
   
   print STDERR "\nUsage:\n\n$0 PasswordString SaltString\n\n";
   
   exit 1 if (@ARGV);
   
}
else {
   
   local($password)=$ARGV[0];
   local($salt)=$ARGV[1];

   local($cryptpw)=crypt($password,$salt);

   print "Crypted password: ", $cryptpw, "\n";

   # for debugging ;-):
   #
   #if ( crypt($password, $cryptpw) eq $cryptpw ) {
   #   print "match\n";
   #}
   #else { 
   #   print "no match \n";
   #}
   
}