X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=CreditCard.pm;h=b940f908b330f9638dcc20fd03f9a33487f7375a;hb=6f0ebd80c234fc7c31259ecf69731b0c34ba770e;hp=c37d8c6885038cacf0691d7f2e50c060e5181609;hpb=a772f511e52a8b3e481e55f356d5613a72d9f3c6;p=Business-CreditCard.git diff --git a/CreditCard.pm b/CreditCard.pm index c37d8c6..b940f90 100644 --- a/CreditCard.pm +++ b/CreditCard.pm @@ -1,20 +1,13 @@ package Business::CreditCard; -# Business::CreditCard.pm -# # Jon Orwant, # -# 12 Jul 96 - created -# 17 Jan 97 - 0.21 released. -# short numbers and numbers with letters are no longer kosher. -# 1 Feb 2001 - 0.22 released, new maintainer, MakeMaker installation -# 3 May 2001 - 0.23 released, silly bug in test.pl -# # Copyright 1995,1996,1997 Jon Orwant. All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. -# -# Version 0.23. Module list status is "Rdpf." +# +# Current maintainer is Ivan Kohler . +# Please don't bother Jon with emails about this module. require 5; @@ -23,7 +16,7 @@ use vars qw( @ISA $VERSION ); @ISA = qw( Exporter ); -$VERSION = "0.23"; +$VERSION = "0.28"; =head1 NAME @@ -49,8 +42,24 @@ The validate() subroutine returns 1 if the card number provided passes the checksum test, and 0 otherwise. The cardtype() subroutine returns a string containing the type of -card: "MasterCard", "VISA", and so on. My list is not complete; -I welcome additions. +card. My list is not complete; I welcome additions. + +Possible return values are: + + VISA card + MasterCard + Discover card + American Express card + Diner's Club/Carte Blanche + enRoute + JCB + BankCard + Switch + Solo + Unknown + +"Not a credit card" is returned on obviously invalid +data values. The generate_last_digit() subroutine computes and returns the last digit of the card given the preceding digits. With a 16-digit card, @@ -80,6 +89,10 @@ orwant@tpj.com Current maintainer is Ivan Kohler . Please don't bother Jon with emails about this module. +Lee Lawrence , Neale Banks and +Max Becker contributed support for additional card +types. Lee also contributed a working test.pl. + =cut @EXPORT = qw(cardtype validate generate_last_digit); @@ -93,14 +106,47 @@ sub cardtype { return "Not a credit card" unless length($number) >= 13 && 0+$number; - return "VISA card" if substr($number,0,1) == "4"; - return "MasterCard" if substr($number,0,1) == "5"; - return "Discover card" if substr($number,0,1) == "6"; - return "American Express card" if substr($number,0,2) == "37"; - return "Diner's Club, Transmedia, or other dining/entertainment card" if substr($number,0,1) == "3"; + return "VISA card" if $number =~ /^4\d{12}(\d{3})?$/o; + return "MasterCard" if $number =~ /^5[1-5]\d{14}$/o; + return "Discover card" if $number =~ /^6011\d{12}$/o; + return "American Express card" if $number =~ /^3[47]\d{13}$/o; + return "Diner's Club/Carte Blanche" + if $number =~ /^3(0[0-5]|[68]\d)\d{11}$/o; + return "enRoute" if $number =~ /^2(014|149)\d{11}$/o; + return "JCB" if $number =~ /^(3\d{4}|2131|1800)\d{11}$/o; + return "BankCard" if $number =~ /^56(10\d\d|022[1-5])\d{10}$/o; + return "Switch" + if $number =~ /^49(03(0[2-9]|3[5-9])|11(0[1-2]|7[4-9]|8[1-2])|36[0-9]{2})\d{10}(\d{2,3})?$/o + || $number =~ /^564182\d{10}(\d{2,3})?$/o + || $number =~ /^6(3(33[0-4][0-9])|759[0-9]{2})\d{10}(\d{2,3})?$/o; + return "Solo" + if $number =~ /^6(3(34[5-9][0-9])|767[0-9]{2})\d{10}(\d{2,3})?$/o; return "Unknown"; } +# from http://perl.about.com/compute/perl/library/nosearch/P073000.htm +# verified by http://www.beachnet.com/~hstiles/cardtype.html +# Card Type Prefix Length +# MasterCard 51-55 16 +# VISA 4 13, 16 +# American Express (AMEX) 34, 37 15 +# Diners Club/Carte Blanche 300-305, 36, 38 14 +# enRoute 2014, 2149 15 +# Discover 6011 16 +# JCB 3 16 +# JCB 2131, 1800 15 +# +# from Neale Banks +# According to a booklet I have from Westpac (an Aussie bank), a card number +# starting with 5610 or 56022[1-5] is a BankCard +# BankCards have exactly 16 digits. +# +# from "Becker, Max" +# It's mostly used in the UK and is either called "Switch" or "Solo". +# Card Type Prefix Length +# Switch various 16,18,19 +# Solo 63, 6767 16,18,19 + sub generate_last_digit { my ($number) = @_; my ($i, $sum, $weight);