Carte bancaire

Soyez le premier à donner votre avis sur cette source.

Vue 49 547 fois - Téléchargée 2 686 fois

Description

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 :)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

mokhoss
Messages postés
1
Date d'inscription
dimanche 10 décembre 2006
Statut
Membre
Dernière intervention
10 décembre 2006
-
slt, dsl je suis new sur cette site mais je peux savoir avec quel genre de logiciel vous utilisez pour lire les fichiers qui sont dans le zip.

Expliké moi svp un peut.

ciao
smugglershe
Messages postés
1
Date d'inscription
samedi 17 avril 2004
Statut
Membre
Dernière intervention
17 avril 2004
-
aidez moi, je voulais avoir un code source pour pirater un compte banacier , c'est àd ire avoir le mot de ^passe de ce compte.mon maiol : mister_unknown1@hotmail.com
balgrim
Messages postés
52
Date d'inscription
vendredi 26 avril 2002
Statut
Membre
Dernière intervention
28 octobre 2003
-
PS: c a titre educatif que je balance ces sources. le reso code source ne sera pas ten responsable de la mauvaise utilisation du logicel...(Ni moi d'ailleurs)
Voila, ct pour dire sa :o)
DelphiCool
Messages postés
462
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009
-
plus on est de fou, et plus on rit

Bienvenue ;-)
balgrim
Messages postés
52
Date d'inscription
vendredi 26 avril 2002
Statut
Membre
Dernière intervention
28 octobre 2003
-
L'ancien programmeur basic dit:Arf, je suis demasquer!!!!.Par contre j'avais pas vue qu'il existé deja une source pour se code :- enfin, un proverbe dit "mieux vaut plus que pas assez"

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.