Mt-plugin-makeasin is a project mainly written in Perl, it's free.

Make ASIN Code from ISBN13 and EAN/JAN and so. Japanese zassi code.