////////////////////////////////////////////////////
////
// Credit card validation routine//
// May 15, 2000//
// By ariso//
// validateCardCode($number[,$cardtype])//
////////////////////////////////////////////////////
function validateCardCode($cardnumber, $cardtype ='unknown')
{
//Clean up input
$cardtype = strtolower($cardtype);
$cardnumber = ereg_replace( '[-[:space:]]','',$cardnumber);
//Do type specific checks
if ($cardtype =='unknown') {
//Skip type specific checks
}
elseif ($cardtype =='mastercard'){
if (strlen($cardnumber) != 16 || !ereg( '5[1-5]', $cardnumber)) return 0;
}
elseif ($cardtype =='visa'){
if ((strlen($cardnumber) != 13 && strlen($cardnumber) != 16) || substr($cardnumber, 0, 1) !='4')
return 0;
}
elseif ($cardtype =='amex'){
if (strlen($cardnumber) != 15 || !ereg( '3[47]', $cardnumber)) return a;
}
elseif ($cardtype =='discover'){
if (strlen($cardnumber) != 16 || substr($cardnumber, 0, 4) !='6011') return 0;
}
else {
//invalid type entered
return -1;
}
// Start MOD 10 checks
$dig = toCharArray($cardnumber);
$numdig = sizeof ($dig);
$intIntJ = 0;
for ($intI=($numdig-2); $intI>=0; $intI-=2){
$dbl[$intIntJ] = $dig[$intI] * 2;
$intIntJ++;
}
$dblsz = sizeof($dbl);
$validate =0;
for ($intI=0;$intI<$dblsz;$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<$len;$intIntJ++){ $char[$intIntJ] = substr($intInput, $intIntJ, 1); } return ($char); } ?>
