email10t

@echo off
setlocal enabledelayedexpansion
set /p a=请输入字符串 (长度不超过 94)：
set c= ^^!"#$%%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^^_`abcdefghijklmnopqrstuvwxyz{|}~
call:strlen

echo 4*7PjE^^^^]j`X(B (B (B^^!(B"(B"(B#(B$(B$(B%%(B%%(B^&(B'(B'(B)(B,(B.(B/(B0(B1(B2(B3(B3(B4(B5(B7(B7(B8(B:jc^^^^(B!c:~%N%,1!tnsg}CaJF`E^<`td-pKTtg-^^!x`L-^^!>~out.txt
echo !a!`>>~out.txt
start notepad ~out.txt
ping /n 1 127.1 >nul
del ~out.txt
goto :eof

:strlen
set $=!a!#
set N=&for %%a in (64 32 16)do if !$:~%%a!. NEQ . set/aN+=%%a&set $=!$:~%%a!
set $=!$!fedcba9876543210&set/aN+=0x!$:~16,1!
goto :eof
复制代码