BASIC認証

.htaccess

作成はこちらへ

AuthUserFile /home/hoge/.htpasswd
AuthGroupFile /dev/null
AuthName "Enter User and Password"
AuthType Basic

require valid-user

<Files ~ "^.(htpasswd|htaccess)$">
    deny from all
</Files>

AuthUserFile : .htpasswdのパス（フルパス）

.htpasswdはユーザ名とパスワードをコロンで区切る

例．user:sample pass:test123

sample:$1$VSV.l/ng$103c.C3XAaqN/8D4kv.jE0

perlソース

#!/usr/bin/perl
 use strict;
 use CGI;

 my $q = new CGI;
 my $pass = $q->param('pass');
 my $encpass = &encrypt_passwd($pass);
 print "Content-type: text/plain\n\n";
 print ${encpass};
 exit;

 sub encrypt_passwd {
     my($pass)=@_;
     my @salt_word = ('a'..'z','A'..'Z','0'..'9','.','/');
     srand;
     my $idx1 = int(rand(63));
     my $idx2 = int(rand(63));
     my $salt = $salt_word[$idx1] . $salt_word[$idx2];
     return crypt($pass, $salt);
 }