求以数字条形码批量改名问题？

求高手解决以12位数字条形码文件名批量改为13位条形码数字文件名。
比如一个为779803815290为文件名，改为7798038152909（就是增加最后一位是校验码9）。
这是我网上搜索校验码计算方式。
1.将条形码由校验码向前编号，从1-13。
2.将所有偶数位的数字相加得到①
3.①×3＝②
4.从第三位开始，将所有奇数位数字相加得③。
5.② ③＝④
6.用一个大于或等于④且为10的倍数的数字减去④，所得到的数字就是校验码
http://www.ancc.org.cn/Service/queryTools/Checkcode.aspx