【已解决】转换 js 格式为 au3

chishingchan

一个注册机的 js 代码函数，求高手转换为 au3 格式，谢谢！

function randomSerial() {
    var $chars = 'L23456789ABCDEFGHJKMNPQRSTUVWXYZ';
    var maxPos = $chars.length;
    var serial = '';
    for (i = 0; i < 22; i++) {
        serial += $chars.charAt(Math.floor(Math.random() * maxPos));
    }
    serial += (e => {
        for (var t = "", i = 0; i < 2; i++) {
            for (var a = 0, s = 0; s < 16; s += 2) a += $chars.indexOf(e[i + s]);
            t += $chars[a %= $chars.length]
        }
        return t
    })(serial)
    return serial.slice(0, 6) + "-" + serial.slice(6, 12) + "-" + serial.slice(12, 18) + "-" + serial.slice(18, 24);
}
console.log(randomSerial());

haijie1223

#NoTrayIcon
#PRE_UseX64=n
ConsoleWrite(randomSerial() & @CRLF)
Func randomSerial();仅支持32位进程
        Local $JSCode = 'function calc(e){for(var t="",i=0;i<2;i++){for(var a=0,s=0;s<16;s+=2)a+=$chars.indexOf(e[i+s]);t+=$chars[a%=$chars.length]}return t}' & _
                        'function randomSerial(){var $chars=''L23456789ABCDEFGHJKMNPQRSTUVWXYZ'';var maxPos=$chars.length;var serial='''';' & _
                        'for(i=0;i<22;i++){serial+=$chars.charAt(Math.floor(Math.random()*maxPos));}serial+=(serial);' & _
                        'return serial.slice(0,6)+"-"+serial.slice(6,12)+"-"+serial.slice(12,18)+"-"+serial.slice(18,24);}'
        Local $JScript = ObjCreate('ScriptControl')
        $JScript.language = 'jscript'
        $JScript.addcode($JSCode)
        Return $JScript.run("randomSerial")
EndFunc   ;==>randomSerial

chishingchan

haijie1223 发表于 2023-3-2 21:55

像加穿了一件外衣一样！

haijie1223

chishingchan 发表于 2023-3-2 23:24
像加穿了一件外衣一样！

有外衣穿就很不错了，没时间逐字翻译

chishingchan

haijie1223 发表于 2023-3-3 08:30
有外衣穿就很不错了，没时间逐字翻译

老大，能不能帮忙转换  .rs 格式为 .js 格式再加外衣？因为之前那个算出来的号不能用了！

keygen.rs

use random_string::generate;

const LICENSE_CHARS: &str = "L23456789ABCDEFGHJKMNPQRSTUVWXYZ";
fn main() {
    generate_license();
}

fn generate_license(){
    let mut license = generate(22, LICENSE_CHARS);
    for n in  0..2 {
        let mut o = 0;
        for i in (0..16).step_by(2) {
            o += LICENSE_CHARS.find(&license[n+i..=n+i]).unwrap()
        }
        o %= LICENSE_CHARS.len();
        license += &LICENSE_CHARS[o..=o];
    }
    license.insert(6, '-');
    license.insert(13, '-');
    license.insert(20, '-');
    println!("License for you: {}", license);
}

haijie1223

chishingchan 发表于 2023-3-5 21:24
老大，能不能帮忙转换  .rs 格式为 .js 格式再加外衣？因为之前那个算出来的号不能用了！

keygen.rs

竟然这样赤裸裸的求代码~~要不要支持一下论坛建设

ConsoleWrite(generate_license() & @CRLF)
Func generate_license()
        Local $license = '', $LICENSE_CHARS = "L23456789ABCDEFGHJKMNPQRSTUVWXYZ";
        For $i = 1 To 22
                $license &= StringMid($LICENSE_CHARS, Random(1, StringLen($LICENSE_CHARS), 1), 1)
        Next
        For $i = 0 To 1
                Local $p = 0;
                For $j = 0 To 15 Step 2
                        $p += StringInStr($LICENSE_CHARS, StringMid($license, $i + $j + 1, 1)) - 1;
                Next
                $license &= StringMid($LICENSE_CHARS, Mod($p, StringLen($LICENSE_CHARS)) + 1, 1)
        Next
        Local $arr = StringRegExp($license, '\w{6}', 3)
        Local $ret = ''
        For $i = 0 To UBound($arr) - 1
                $ret &= $arr[$i] & '-'
        Next
        Return StringTrimRight($ret, 1)
EndFunc   ;==>generate_license

chishingchan

haijie1223 发表于 2023-3-5 22:50
竟然这样赤裸裸的求代码~~要不要支持一下论坛建设

老大，我也没办法！关键是 .rs 代码看不懂。谢谢啦！

chishingchan

笔记：

1、下载并安装 Node.js
2、CMD>npm -v（测试用）
3、CMD>npm install -g asar
4、CMD>asar --version（测试用）
5、CMD>asar extract 需解包.asar 目标目录
6、asar pack 目标目录 需打包.asar

7-Zip plugins\Asar7z：
Asar7z (tc4shell.com)

https://www.tc4shell.com/binary/Asar.zip