XProfan

CLS
/*
Kreditkartennummer prüfen
vorläufig sólo:
American Express
MasterCard
EuroCard
VISA
*/

Proc CheckCard

    Parámetros KN$
    var Lang&=len(KN$)
    Declarar Index&,Nr$,Zaehler&,Gesamt&
    var Multi&=1

    Sinestar encargado Index&=Lang&

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

        if Multi&=1

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

        más

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

        endif

        Inc Index&

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

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

        más

            Gesamt&=Gesamt&+Zaehler&

        endif

    EndWhile

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

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

        Imprimir "gültig"

    más

        Imprimir "ungültig"

    endif

ENDPROC

'Ejemplo:
CheckCard "468345782937652"' gültige Nummer
CheckCard "4683457829376529"' ungültige Nummer
Waitinput