|
Lines 894-900
Link Here
|
| 894 |
|
894 |
|
| 895 |
warn "calculate salt\n" if $verbose > 1; |
895 |
warn "calculate salt\n" if $verbose > 1; |
| 896 |
# to64 |
896 |
# to64 |
| 897 |
for ($i = 0; $i < 8; $i++) { |
897 |
for ($i = 0; $i < 27; $i++) { |
| 898 |
srand(time + $rand + $$); |
898 |
srand(time + $rand + $$); |
| 899 |
$rand = rand(25*29*17 + $rand); |
899 |
$rand = rand(25*29*17 + $rand); |
| 900 |
$salt .= $itoa64[$rand & $#itoa64]; |
900 |
$salt .= $itoa64[$rand & $#itoa64]; |