valida pis/pasep

Formulários
#1

Alguém ja utilizou alguma biblioteca para validação de pis/pasep no scriptcase?

Att Arquimedes

#2

function checkPIS($pis)
{
$pis = str_pad( ereg_replace(’[^0-9]’, ‘’, $pis), 11, ‘0’, STR_PAD_LEFT);

if (strlen($pis) != 11 || intval($pis) == 0) {
return false;
} else {
for ($d = 0, $p = 3, $c = 0; $c < 10; $c++) {
$d += $pis{$c} * $p;
$p = ($p < 3) ? 9 : --$p;
}

$d = ((10 * $d) % 11) % 10;

return ($pis{$c} == $d) ? true : false;
}
}