$dbl[$intintj] = $dig[$inti] * 2;
$intintj++;
}
$dblsz = sizeof($dbl);
$validate =0;
for ($inti=0;$inti$add = tochararray($dbl[$inti]);
for ($intintj=0;$intintj$validate += $add[$intintj];
}
$add = '';
}
for ($inti=($numdig-1); $inti>=0; $inti-=2){
$validate += $dig[$inti];
}
if (substr($validate, -1, 1) == '0') return 1;
else return 0;
}
// takes a string and returns an array of characters
function tochararray($intinput){
$len = strlen($intinput);
for ($intintj=0;$intintj$char[$intintj] = substr($intinput, $intintj, 1);
}
return ($char);
}
?>
