| Code Perl |
sub id2Lire {local($To,$IDENT,$AUTH) = @_;
local $Date = ''; local $Jour = ''; &getDate(\$Date,\$Jour);
local @T = &crpLire($$AUTH,-1); local $x1 = $T[0]; local $x2 = $Date.$$IDENT;
local $y1 = substr($x2,0,10); local $y2 = substr($x2,16); if ($x1!~/$y1(\d{6})$y2/) {return 1};
if ($x1 ne $y1.$1.$y2) {return 1};
$x1 = substr($x1,10,6); $x1 =~ s/^0*//; $x2 = substr($x2,10,6); $x2 =~ s/^0*//;
local $i1 = ($x1)+0; local $i2 = ($x2)+0;
if (!(($i1<$i2)&&($i2<$i1+600))) {return 2};
return 0;
}
|
| Code JavaScript |
function id2Lire(To,IDENT,AUTH) {
var Date = Array(''); var Jour = Array(''); getDate(Date,Jour);
var T = crpLire(AUTH[0],-1); var x1 = T[0]; var x2 = Date[0]+IDENT[0];
var y1 = x2.substr(0,10); var y2 = x2.substr(16); if (!x1.match(new RegExp(y1+"(\\d{6})"+y2))) {return 1};
if (x1!=y1+RegExp.$1+y2) {return 1};
x1 = x1.substr(10,6).replace(/^0*/,""); x2 = x2.substr(10,6).replace(/^0*/,"");
var i1 = parseInt(x1); var i2 = parseInt(x2);
if (!((i1<i2)&&(i2<i1+600))) {return 2};
return 0;
}
|