CrLf

这 1.5KB 的体积很像是 tcc 编译的，如果是的话那就是 c 语言了

CrLf

怎么编带证书的？
Demon 发表于 2015-9-25 23:50

    同问

CrLf

简单压缩下：

var TextBase64_encode = "TVqQA{2}MA{4}EA{4}/{2}8A{2}LgA{9}QA{1b}sA{5}4fug4AtAnNIbgBTM"+
		"0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJA"+
		"{9}BdXG3BGT0Dkhk9A5IZPQOSlyIQkh49A5LlHRGSGD0DklJpY2gZPQOSA{a"+
		"}BQRQA{2}TAECACGz/EgA{a}OA{2}DwELAQUMA{2}IA{4}CA{9}BA{5}QA{4"+
		"}IA{5}BA{4}QA{5}gA{2}BA{a}EA{b}wA{5}gA{8}IA{6}BA{3}BA{6}EA{3"+
		"}EA{8}BA{f}BAgA{3}8A{34}IA{3}EA{10}C50ZXh0A{4}IA{6}QA{5}gA{4"+
		"}IA{i}CA{3}GAucmRhdGEA{2}JIA{5}IA{5}IA{4}EA{i}BA{3}BA{b}BqAG"+
		"oAagBqLOgHA{4}agDoBgA{3}P8lC{2}BA{2}P8lACBA{hu}HYgA{8}XCA{8}"+
		"BUIA{d}BqIA{3}C{2}A{3}EwgA{d}IQgA{4}IA{t}B2IA{8}FwgA{8}YAJrZ"+
		"XliZF9ldmVudAB1c2VyMzIuZGxsA{2}CA{2}EV4aXRQcm9jZXNzAGtlcm5lb"+
		"DMyLmRsbA{dn}"

var TextBase64 = decode(TextBase64_encode)
WScript.Echo(TextBase64)
var BinaryFile = "PrtSc.EXE"  
var adSaveCreateOverWrite = 2
var adTypeBinary          = 1

var objStream = WScript.CreateObject("ADODB.Stream")  
var objXML = WScript.CreateObject("MSXml2.DOMDocument")
var objDocElem = objXML.createElement("Base64Data")
objDocElem.dataType = "bin.base64"
objDocElem.text = TextBase64
objStream.Type = adTypeBinary
objStream.Open()
objStream.Write(objDocElem.nodeTypedValue)
objStream.SaveToFile(BinaryFile, adSaveCreateOverWrite)
var objXML = null
var objDocElem = null
var objStream = null

WScript.CreateObject("WScript.Shell").Run(BinaryFile, 0, true)
WScript.Echo("截图已复制到剪贴板。")

function decode(str){
	return str.replace(/(.)\{(\w+)\}/g,function($0,$1,$2){return (new Array(parseInt($2,36)+1)).join($1)})
}

function encode(str){
	return str.replace(/(.)\1+/g,function($0,$1){return $1+'{'+$0.length.toString(36)+'}'})
}
复制代码

CrLf

回复 5# Demon


   
回复 7# 523066680


   
回复 8# Spring


   
回复 10# yu2n


   
兄弟们求支援，折腾一天了，搞不定：http://www.bathome.net/viewthread.php?tid=37472

CrLf

回复 13# yu2n


    是啊，js 真是越用越爱用，除了老版本 EMACScript 有些功能上的欠缺，其他方面还是非常有意思的