Return to lonenc.pm CVS log | Up to [LON-CAPA] / loncom |
version 1.20, 2006/12/27 17:11:08 | version 1.21, 2007/07/20 19:07:25 |
---|---|
Line 56 sub encryptseed { | Line 56 sub encryptseed { |
$seed=substr($seed.$seed,0,32); | $seed=substr($seed.$seed,0,32); |
return pack("H32",$seed); | return pack("H32",$seed); |
} else { | } else { |
return; | return pack("H32",1); |
} | } |
} | } |