вопрос по php и htpasswd Опции

[deex]

на других форумах молчат, попытаю счастья здесь

народ, помогите пожалуйста правильно создать пароль для htpasswd средствами php

вот пример, но пароль получается невалидный:

<?php   

if($_POST)   
{   
    $text = trim($_POST['pass']);   
    $pass = crypt($text, base64_encode($text));   

    file_put_contents('./.htpasswd', trim($_POST['login']).':'. $pass);   

    $access = '<Files .htpasswd>   
   deny from all   
</Files>   

AuthType Basic   
AuthName "Restricted Area"   
AuthUserFile ' .getcwd(). '/.htpasswd   
Require valid-user';   

    file_put_contents('./.htaccess', $access);   

    echo '<b>done.</b> <br /><br />';   

}   

?><form method='post'>   
login: <input type='text' name='login' /><br />   
pass: <input type='text' name='pass' /><br />   
<input type='submit' value='create pass' /></form>

[deex]

ну задаю я сам, т.к. это тестовый скрипт
и задавал всегда или admin:pass или 1:1

так что кодировка ничего не решает

нашёл инфу о том, что хеш из htpasswd (имеющий вид - $apr1$km3.....$DFX3dj2OP9wylDPCfoM9x1)
является хешем MD5 (ARP)

осталось понять как создать его средствами пхп
гугл ничего не может подсказать


решение:

function crypt_apr1_md5($plainpasswd) {  
    $salt = substr(str_shuffle("abcdefghijklmnopqrstuvwxyz0123456789"), 0, 8);  
    $len = strlen($plainpasswd);  
    $text = $plainpasswd.'$apr1$'.$salt;  
    $bin = pack("H32", md5($plainpasswd.$salt.$plainpasswd));  
    for($i = $len; $i > 0; $i -= 16) { $text .= substr($bin, 0, min(16, $i)); }  
    for($i = $len; $i > 0; $i >>= 1) { $text .= ($i & 1) ? chr(0) : $plainpasswd{0}; }  
    $bin = pack("H32", md5($text));  
    for($i = 0; $i < 1000; $i++) {  
        $new = ($i & 1) ? $plainpasswd : $bin;  
        if ($i % 3) $new .= $salt;  
        if ($i % 7) $new .= $plainpasswd;  
        $new .= ($i & 1) ? $bin : $plainpasswd;  
        $bin = pack("H32", md5($new));  
    }  
$tmp = ''; 
    for ($i = 0; $i < 5; $i++) {  
        $k = $i + 6;  
        $j = $i + 12;  
        if ($j == 16) $j = 5;  
        $tmp = $bin[$i].$bin[$k].$bin[$j].$tmp;  
    }  
    $tmp = chr(0).chr(0).$bin[11].$tmp;  
    $tmp = strtr(strrev(substr(base64_encode($tmp), 2)),  
    "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwx  yz0123456789+/",  
    "./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmn  opqrstuvwxyz");  
    return "$"."apr1"."$".$salt."$".$tmp;  
}