Voila une petite source qui permet de savoir si le numero d'une carte bancaire est bon. Normalement il n'y a pas de reel bug. si il y en a, pliz veuillez me le dire .
2eme modif: un zip avec un generateur automatique (permet de comprendre la fonction random)
Source / Exemple :
function GoodCB(number:string):boolean;
var
i,LTotal:integer;
nunombre:array[1..16] of byte;
NewNumber,Total:string;
label Fin;
begin
NewNumber:='0';Total:='0';
if length(number)<>16 then goto Fin;
for I:=1 to (length(number) div 2) do
begin
nunombre[(I*2)-1]:=strtoint(number[(I*2)-1])*2;
nunombre[(I*2)]:=strtoint(number[(I*2)]);
if nunombre[(I*2)-1]>9 then nunombre[(I*2)-1]:=nunombre[(I*2)-1]-9;
if nunombre[(I*2)]>9 then nunombre[(I*2)]:=nunombre[(I*2)]-9;
NewNumber:=NewNumber+inttostr(nunombre[(I*2)-1])+inttostr(nunombre[(I*2)])
end;
for I:=1 to 16 do
begin
Total:=inttostr(strtoint(Total)+(nunombre[I]));
end;
LTotal:=length(total);
if Total[LTotal]='0' then
result:=true
else
Fin:
result:=false;
end;
Conclusion :
pliz des commentaires, meme pour m'insulter :)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.