htpasswd help

[km]

I try to generate the .htpasswd myself with the scripts like this:-

$salt = pack("HH",$FORM{'user'});
$password = crypt($FORM{'password'},$salt);

but I still got authorization error with wrong password?
everything seems to be fine. does $salt can be $anything?
Help!