XProfan

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

Proc CheckCard

    Parameters KN$
    var Lang&=len(KN$)
    Declare Index&,Nr$,Zaehler&,Gesamt&
    var Multi&=1

    WhileNot Index&=Lang&

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

        if Multi&=1

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

        else

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

        else

            Gesamt&=Gesamt&+Zaehler&

        endif

    EndWhile

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

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

        Print "gültig"

    else

        Print "ungültig"

    endif

Endproc

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