XProfan

CLS
/*
Kreditkartennummer vérifier
vorläufig seulement:
American Express
MasterCard
EuroCard
VISA
*/

Proc CheckCard

    Paramètres KN$
    var Lang&=len(KN$)
    Déclarer Index&,Nr$,Zaehler&,Gesamt&
    var Multi&=1

    WhileNot Index&=Lang&

        Nr$=Mid $(KN$,Lang&-Index&,1)

        si Multi&=1

            Zaehler&=val(Nr$)
            Multi&=2

        d'autre

            Zaehler&=val(Nr$)*2
            Multi&=1

        endif

        Inc Index&

        si len(Str$(Zaehler&))=2

            Gesamt&=Gesamt&+val(left$(Str$(Zaehler&),1))+val(right$(Str$(Zaehler&),1))

        d'autre

            Gesamt&=Gesamt&+Zaehler&

        endif

    Endwhile

    var PZ&=10-(Gesamt& MOD 10)

    si Str$(PZ&)=right$(KN$,1)

        Imprimer "gültig"

    d'autre

        Imprimer "ungültig"

    endif

ENDPROC

'Beispiel:
CheckCard "468345782937652"' gültige numéro
CheckCard "4683457829376529"' ungültige numéro
Waitinput