neorobin

测试环境中文编码未处理好, 以下用40个英文字母替代中文文本:

@echo off
setlocal enableDelayedExpansion
set nl=^


for /l %%i in (0x100 1 0x127) do set nums=!nums!%%i,
for /l %%i in (40 -1 1) do (
  set /a rad=!random!%%%%i*4
  for %%p in (!rad!) do (
    set get=!nums:~%%p,3!
    set /a val=get"&0xff
    set ind=!ind!!val!,
    for %%a in (!get!) do set nums=!nums:%%a,=!
  )
)

for /f "usebackq delims=" %%l in ("%~0") do (
  if /i "%%l"==":endText" set getText=0
  if $!getText!==$1 set str=!str!%%l
  if /i "%%l"==":text" set getText=1
)

for %%i in (!ind!) do (
  set new=!new!!str:~%%i,1!
  set /a lineOffs=cnt/8-%%i/8,colOffs=cnt%%8-%%i%%8
  set "offs=!offs!!lineOffs!:!colOffs! "
  if #!rem!==#7 set new=!new!!nl!& set offs=!offs!!nl!
  set /a cnt+=1,rem=cnt%%8
)

echo !new!
echo !offs!
pause
exit

:text
abcdefgh
ijklmnop
qrstuvwx
yzABCDEF
GHIJKLMN
:endText
复制代码

neorobin

各位的算法, 我没有仔细研究, 粗略看了下发现大家都用了些一样的技巧或方法,
我写的有些长, 想了下, 下面两段

for /l %%i in (40 -1 1) ...
for %%i in (!ind!) ...
复制代码

可以整合在一起, ind 和 cnt 两个变量省去了, (另外用位运算对 8 求商和余数只是看起来酷点呵, 没什么实质):

for /l %%i in (0 1 39) do (
  set /a "rem=%%i&7, rand=!random!%%(40-%%i)*4
  for %%p in (!rand!) do set get=!nums:~%%p,3!
  set /a "val=get&0xff, lineOffs=(%%i>>3)-(val>>3), colOffs=(%%i&7)-(val&7)
  set "offs=!offs!!lineOffs!:!colOffs! "
  for %%v in (!val!) do set new=!new!!str:~%%v,1!
  if #!rem!==#7 set new=!new!!nl!& set offs=!offs!!nl!
  for %%a in (!get!) do set nums=!nums:%%a,=!
)
复制代码