#! /local/bin/perl

if ($#ARGV < 0) { 
 print "Syntax: crypting.pl (Schluessel der Codierung) (Zu codierender String)\n" 
} else {

$c=crypt($ARGV[1],$ARGV[0]);
print "$c\n";

}