Check digit verification

Need to verify check digit on document numbers.

the algorithm is supplied below

* MUST BE IN PERL IF YOU CANNOT DO IT IN PERL DONT BID!

* READ ENTIRE PROJECT BEFORE BIDDING OTHERWISE WILL BE IGNORED

Algorithm:

Check Digit Calculations

First, break the input into individual characteres and numbers.

Next, convert non-digits into numbers. A through Z are encoded to 10 through 25. The filler character < is encoded as 0.

< A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

0 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Now, multiply each number by the corresponding weighting. The first digit is multipled by 7, the next by 3, and the next by 1. The pattern then repeats (7, 3, 1, 7, 3, 1, 7, 3, 1, etc).

Add up the results, then divide by 10. The remainder is the check digit.

As a special case, if the personal number on the second line is not used (and thus entirely filled with the filler character <), the check digit for that section can be replaced with the filler character <.

An example for the input AB2134:

Input: A B 2 1 3 4 < < <

Value: 10 11 2 1 3 4 0 0 0

Weight: 7 3 1 7 3 1 7 3 1

Products: 70 33 2 7 9 4 0 0 0

Sum: 70 + 33 + 2 + 7 + 9 + 4 + 0 + 0 + 0 = 125

Division: 125 ÷ 10 = 12, remainder 5

Perl

Project ID: #4235119

About the project