Home > Linux > Programming > Libraries

# Algorithm::LUHN 1.00

 User Rating:Rated by: NOT RATED0 user(s)
 Developer: License / Price: Last Updated: Category: Tim Ayers | More programs Perl Artistic License / FREE May 17th, 2007, 00:05 GMT ROOT / Programming / Libraries

 Read user reviews (0)  Refer to a friend  Subscribe

## Algorithm::LUHN is a Perl module to calculate the modulus 10 double add double checksum.

Algorithm::LUHN is a Perl module to calculate the modulus 10 double add double checksum.

SYNOPSIS

use Algorithm::LUHN qw/check_digit is_valid/;

\$c = check_digit("43881234567");
print "It worksn" if is_valid("43881234567\$c");

\$c = check_digit("A2C4E6G8"); # this will cause an error

print "Valid LUHN characters are:n";
my %vc = Algorithm::LUHN::valid_chars();
for (sort keys %vc) {
print "\$_ => \$vc{\$_}n";
}

Algorithm::LUHN::valid_chars(map {\$_ => ord(\$_)-ord('A')+10} A..Z);
\$c = check_digit("A2C4E6G8");
print "It worked againn" if is_valid("A2C4E6G8\$c");

This module calculates the Modulus 10 Double Add Double checksum, also known as the LUHN Formula. This algorithm is used to verify credit card numbers and Standard & Poor's security identifiers such as CUSIP's and CSIN's.

You can find plenty of information about the algorithm by searching the web for "modulus 10 double add double".

Requirements:

· Perl

Product's homepage

Requirements:

· Perl

### TAGS:

calculate modulus | double checksum | Perl module | Algorithm::LUHN | calculate | modulus

Go to top