bank_card.js

 function init() {
     undefined = "undefined";
     mkCClist();
 }

 function ccchk(cdi) {
     output1 = "";
     if (cdi != "" && cdi != null) {
         output1 = "Processing...";
         var cf = sbtString(cdi, " -/abcdefghijklmnopqrstuvwyzABCDEFGHIJLMNOPQRSTUVWYZ|\#()[]{}?%&=!?+*.,;:'");
         var cn = chkCard(cf);
         var clcd = chkLCD(cf);
         var clcdt = "NOT PASSED";
         if (clcd) {
             clcdt = "PASSED";
         }
         var ccck = chkCCCksum(cf, cn);
         var ccckt = "NOT PASSED";
         if (ccck) {
             ccckt = "PASSED";
         }
         var cjd = "INVALID CARD NUMBER";
         if (clcd && ccck) {
             cjd = "This card number appears to be valid.";
         }
         var out = "";
         out += "Card type       : " + cn + "\n";
         out += "CCChecksum      : " + ccckt + "\n";
         out += "Luhn Check Digit: " + clcdt + "\n";
         out += cjd;
         output1 = out;
     }
 }

 function ccngen(p, tr) {
     tr *= 1.0;
     if (tr < 1 || tr == null) {
         tr = 1;
     }
     output2 = "";
     if (p != "" && p != null) {
         var cn = chkCard(p);//去掉非数字
         for (var i = tr; i >= 1; i--) {
             output2 = "Processing... " + i;
             var cdi = sbtStringSpRnd(p, "x", "0123456789");  //非x保留，x替换为一个0-9的随机数
             var cf = sbtString(cdi, " -/abcdefghijklmnopqrstuvwyzABCDEFGHIJLMNOPQRSTUVWYZ");//数字保留字母去掉
             var clcd = chkLCD(cf);
             var ccck = chkCCCksum(cf, cn);
             if (clcd && ccck) {
                 break;
             }
         }
         var out = "Couldn't find any valid number for given pattern";
         if (clcd && ccck) {
             var cn = chkCard(cdi);
             var ccnspc = "";
    //         for (var j = 0; j <= 3; j++) {
    //             if (document.console.ccnsp.options[j].selected) {
    //                 break;
    //             }
             }
 //            if (j == 1) {
 //                ccnspc = " ";
 //            }
 //            if (j == 2) {
 //                ccnspc = "-";
 //            }
             var cdif = "";
             for (var i = 1; i <= cdi.length; i++) {
                 var aS = midS(cdi, i, 1);
                 if (aS == " ") {
                     aS = ccnspc;
                 }
                 cdif += aS;
             }
             var out =  cdif;
         }
         output2 = out;
         return output2;
     }

 function chgccp() {
     mkCClist();
 //    for (var j = 0; j <= tw - 1; j++) {
 //        if (document.console.ccpp.options[j].selected) {
 //            break;
 //        }
 //    }
 //    document.console.ccp.value = c[j + 1];
 }

 function chkCard(cdi) {
     cdi += "";
     if (c[1] == undefined || c[1] == null || c[1] == "") {
         mkCClist();
     }
     var ccn = 0;
     var cn = "unknown"
     var cf = sbtString(cdi, " -/abcdefghijklmnopqrstuvwyzABCDEFGHIJLMNOPQRSTUVWYZ");//去掉非数字
     if (leftS(cf, 1) == "4") {
         cf = leftS(cf, 8);
     }
     for (var i = 1; i <= tw; i++) {
         var cct = sbtString(c[i], " -/abcdefghijklmnopqrstuvwyzABCDEFGHIJLMNOPQRSTUVWYZ");
         if (leftS(cf, 1) == "4") {
             cct = leftS(cct, 8);
         }
         var ccc = cmpPattern(cf, cct);
         if (ccc) {
             ccn = i;
             break;
         }
     }
     if (ccn > 0) {
         cn = cd[i];
     }
     return cn;
 }

 function chkCCCksum(cf, cn) {
     var r = false;
     var w = "21";
     // if (linstr(cn,"AmEx") || linstr(cn,"Diner")) {var w="12";}
     var ml = "";
     var j = 1;
     for (var i = 1; i <= cf.length - 1; i++) {
         var m = midS(cf, i, 1) * midS(w, j, 1);
         m = sumDigits(m);
         ml += "" + m;
         j++;
         if (j > w.length) {
             j = 1;
         }
     }
     var ml2 = sumDigits(ml, -1);
     var ml1 = (sumDigits(ml2, -1) * 10 - ml2) % 10;
     if (ml1 == rightS(cf, 1)) {
         r = true;
     }
     return r;
 }

 function chkLCD(cf) {
     var r = false;
     cf += "";
     var bl = isdiv(cf.length, 2);
     var ctd = 0;
     for (var i = 1; i <= cf.length; i++) {
         var cdg = midS(cf, i, 1);
         if (isdiv(i, 2) != bl) {
             cdg *= 2;
             if (cdg > 9) {
                 cdg -= 9;
             }
         }
         ctd += cdg * 1.0;
     }
     if (isdiv(ctd, 10)) {
         r = true;
     }
     return r;
 }

 function mkCClist() {
     tw = 2;
     c = new makeArray(tw);
     cd = new makeArray(tw);
     var i = 1;
     c[i] = "622202360547xxxxxxx";
     cd[i] = "工商银行";
     i++;
     c[i] = "622617310xxxxxxx";
     cd[i] = "民生银行";
     i++;
 }

 // Powered by MilkieX - http://www.ElfQrin.com
 function leftS(aS, n) {//截取参数一中参数二个字符返回
     aS += "";
     var rS = "";
     if (n >= 1) {
         rS = aS.substring(0, n);
     }
     return rS;
 }

 function rightS(aS, n) {
     aS += "";
     var rS = "";
     if (n >= 1) {
         rS = aS.substring(aS.length - n, aS.length);
     }
     return rS;
 }

 function midS(aS, n, n2) {
     aS += "";
     var rS = "";
     if (n2 == null || n2 == "") {
         n2 = aS.length;
     }
     n *= 1;
     n2 *= 1;
     if (n < 0) {
         n++;
     }
     rS = aS.substring(n - 1, n - 1 + n2);
     return rS;
 }

 function linstr(aS, bS) {
     aS += "";
     bS += "";
     var r = false;
     if (leftS(aS, bS.length) == bS) {
         r = true;
     }
     return r;
 }

 function sbtString(s1, s2) {//参数1 中的字符在参数2中没有时 将该字符追加到返回值中
     var ous = "";
     s1 += "";
     s2 += "";
     for (var i = 1; i <= s1.length; i++) {
         var c1 = s1.substring(i - 1, i);
         var c2 = s2.indexOf(c1);
         if (c2 == -1) {
             ous += c1;
         }
     }
     return ous;
 }

 function sbtStringSpRnd(s1, s2, bS) {
     if (bS == null || bS == "") {
         bS = "0123456789";
     }
     var ous = "";
     bS += "";
     for (var i = 1; i <= s1.length; i++) {
         var c1 = s1.substring(i - 1, i);//从头开始截取参数1
         var c2 = s2.indexOf(c1);//从参数一中截取的字符在参数二中的位置
         if (c2 == -1) {
             ous += c1;//如果参数二中没有参数1中截取的字符则将该字符存入ous，否则存入mids（'0123456789'，random（1,9）,1）
             //mids取参数1的第参数二位到参数二加参数三位，这他妈不就是0-9随便取一个数吗？
         } else {
             ous += midS(bS, Math.floor(Math.random() * (bS.length - 1)) + 1, 1);
         }
     }
     return ous;
 }

 function cmpPattern(a, p, x) {
     if (x == "" || x == null) {
         x = "x";
     }
     x = "" + x.substring(0, 1);
     a += "";
     p += "";
     r = false;
     mc = 0;
     if (a.length == p.length) {
         for (var i = 1; i <= a.length; i++) {
             a1 = midS(a, i, 1);
             p1 = midS(p, i, 1);
             if (a1 == p1 || p1 == x) {
                 mc++;
             }
         }
     }
     if (mc == a.length) {
         r = true;
     }
     return r;
 }

 function isdiv(a, b) {
     if (b == null) {
         b = 2;
     }
     a *= 1.0;
     b *= 1.0;
     var r = false;
     if (a / b == Math.floor(a / b)) {
         r = true;
     }
     return r;
 }

 function sumDigits(n, m) {
     if (m == 0 || m == null) {
         m = 1;
     }
     n += "";
     if (m > 0) {
         while (n.length > m) {
             var r = 0;
             for (var i = 1; i <= n.length; i++) {
                 r += 1.0 * midS(n, i, 1);
             }
             n = "" + r;
         }
     } else {
         for (var j = 1; j <= Math.abs(m); j++) {
             var r = 0;
             for (var i = 1; i <= n.length; i++) {
                 r += 1.0 * midS(n, i, 1);
             }
             n = "" + r;
         }
     }
     r = n;
     return r;
 }

 function makeArray(n) {
     this.length = n;
     for (var i = 1; i <= n; i++) {
         this[i] = 0;
     }
     return this;
 }

 // End of MilkieX
 //var dl=""+document.location; dl=dl.toLowerCase(); if (dl.substring(0,22)!="http://www.elfqrin.com" && dl.substring(0,16)!="file:///c|/data/") {window.location="/";}
 init();

 result=ccngen("622617310xxxxxxx","1000");
 OUT.println(result);
 vars.put("BANKCARD_NO",result);