#!/usr/bin/perl
##############################################################################
# Cryptage mot de passe .htpasswd crypt.cgi Version 0.0 #
# Copyright 1999 Michel LO michel@beltsa.net #
# Created 99/08/29 Last Modified 99/08/29 #
##############################################################################
# COPYRIGHT NOTICE #
# Copyright 1999 Michel LO All Rights Reserved. #
##############################################################################
print "Content-type: text/html\n\n";
&lireform;
$passwd = $in{'passwd'};
chomp $passwd;
$perturb = $in{'perturb'};
chomp $perturb;
$passwdc = crypt($passwd, $perturb);
print <<"(EOF)";
Cryptage des mots de passe
(EOF)
##########################################
sub lireform {
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
# Un-Webify plus signs and %-encoding
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
if ($allow_html != 1) {
$value =~ s/<([^>]|\n)*>//g;
}
$in{$name} = $value;
}
}