信用卡效验程序

<?php

////////////////////////////////////////////////////
//                                                //
// 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<sizeof($add);$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);
}

?>