您好,欢迎来到三六零分类信息网!老站,搜索引擎当天收录,欢迎发信息

信用卡效验程序

2025/8/6 15:08:29发布23次查看
=0; $inti-=2){ 
$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); 
}
?>
该用户其它信息

VIP推荐

免费发布信息,免费发布B2B信息网站平台 - 三六零分类信息网 沪ICP备09012988号-2
企业名录 Product