2011-01-24から1日間の記事一覧

Perlで偽造クレジットカードを見分ける

元の数)4417 1234 5678 9113 この右の2桁目からひとつ置きに2倍に掛けてみると... 8 2 2 6 10 14 18 2 それを、元の数の右1桁目からひとつ置きに拾った数... 4 7 2 4 6 8 1 3 に足します。2桁の数は十の位と1の位を足して1桁にしましょう。 式)8+4+2+7…