From owner-freebsd-questions  Sun Jan 12 17:59:50 1997
Return-Path: <owner-questions>
Received: (from root@localhost)
          by freefall.freebsd.org (8.8.4/8.8.4) id RAA10658
          for questions-outgoing; Sun, 12 Jan 1997 17:59:50 -0800 (PST)
Received: from cold.org (cold.org [206.81.134.103])
          by freefall.freebsd.org (8.8.4/8.8.4) with ESMTP id RAA10653
          for <freebsd-questions@freebsd.org>; Sun, 12 Jan 1997 17:59:48 -0800 (PST)
Received: from localhost (brandon@localhost) by cold.org (8.8.3/8.8.3) with SMTP id SAA00901; Sun, 12 Jan 1997 18:59:42 -0700 (MST)
Date: Sun, 12 Jan 1997 18:59:42 -0700 (MST)
From: Brandon Gillespie <brandon@cold.org>
To: Robert Chalmers <robert@nanguo.chalmers.com.au>
cc: bsd <freebsd-questions@freebsd.org>
Subject: Re: is there a crypt tool?
In-Reply-To: <199701112327.JAA22330@nanguo.chalmers.com.au>
Message-ID: <Pine.NEB.3.95.970112185646.893A-100000@cold.org>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Sender: owner-questions@freebsd.org
X-Loop: FreeBSD.org
Precedence: bulk

> More to the point, is there a crypt too anywhere. I can't find
> anything on the CD. I know its in the libraries etc, but I need a program,
> seen on Coherent believe it or not, called 'crypt'. Great for creating
> passworded access on the fly.

Create a file named 'crypt', put the following in it, make it executable:

#!/usr/bin/perl

$what = $ARGV[0] || die("Syntax: crypt <what> <salt>\n");
$salt = $ARGV[1] || die("Syntax: crypt <what> <salt>\n");

print crypt($what, $salt) . "\n";