[文件操作] 批处理自输出文件

email10t

1>1/* :
@echo off
set /p=请输入字符串 (长度不超过 9024)：<nul
cscript -nologo -e:jscript %0 >~out.com
start ~out.com
ping /n 1 127.1 >nul
del ~out.com
goto :eof
*/;

/*@cc_on @*/
/*@if (@_jscript_version<6)

var StdIn;
StdIn = WScript.StdIn
var str=String(StdIn.ReadLine());
var carry=String.fromCharCode(32+str.length/95);
var unit=String.fromCharCode(32+str.length%95)
var out='5~!5@ Pj ^]j`X(B!(B"(B+(B+(B,(B-(B-(B.(B/(B/(B0(B0(B1(B2(B2(B4(B7(B9(B:(B;(B<(B=(B>(B>(B?(B@(BB(BB(BC(BEP5@!5% ,~P]j'+carry+'^PVX, Rj_ZWBP^ZXX(B'+unit+'tnsg}gaJF`E<`td-pKTtg-!x`L-!\r\n'+str+'`';
WScript.Echo(out);

@end
@*/
复制代码

CrLf

64位系统无法测试，楼主可否把功能介绍得更详细一点？

bailong360

这是啥,Quine?