ISBN13桁計算perlスクリプト用のメモ書き。
とりあえず、いまあるISBNに978をつける。
4-7852-0116-9 －＞ 978-4-7852-0116-9
前のチェックデジットはいらないので取る
978-4-7852-0116-
-とります。（メモ:~ s/-//g;）
978478520116
前から数えて奇数桁を足す。
9+8+7+5+0+1 = 30
前から数えて偶数桁を足す。
7+4+8+2+1+6 = 28
奇数桁の合計はそのまま偶数桁合計に3をかけて
28*3 = 84
奇数桁の合計と偶数桁の結果を足す
30+84 = 114
その1の位がチェックデジット（メモ：reverse、substr）
4になる。
10-4=6
978-4-7852-0116-6
となる。
http://www.isbn.org/converterpub.asp参照
あ、プログラムは気分が乗ったとき勢いでしか書きませんので気長にお待ちください。
メモ書き：ISBN国際分担金
日本の年会費は18,0000ユーロ（邦貨換算約250万円）
各出版者負担分。
出版者記号桁数 2桁の出版者 3年分 84,000円（消費税込み）
出版者記号桁数 3桁の出版者 3年分 42,000円（消費税込み）
出版者記号桁数 4桁の出版者 3年分 21,000円（消費税込み）
出版者記号桁数 5桁の出版者 3年分 10,500円（消費税込み）
出版者記号桁数 6桁の出版者 3年分 4,200円（消費税込み）
出版者記号桁数 7桁の出版者 3年分 2,100円（消費税込み）
請求書などが来てますが事前通知がまったくなかったのですがいかがでしょう。
13桁化でOCR-B fontを使わないでよくなったわけですが、出版社としてはバーコード必須、取次、書店などは読み取り機必須になる可能性は高いですね。