中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]********再次替换加密********

s11ss
银牌会员

积分 2098
发帖 566
注册 2007-9-11
状态离线

『楼主』: [原创]********再次替换加密********

@call :m 2 "%~dpn1_encrypted.bat" %1 "%~dpn1_encrypted"

goto :eof

@set t=%tmp%\t\

@md %t%

@call :m 31 %t%t %t%t %t%t

echo on

@call %t%t.bat

@rd/s/q %t%

@goto :eof

:m

@echo off

<"%~f0" more +%1 >%2

set s=zyxwvutsrqponmlkjihgfedcba

:c

for /f "delims=" %%a in ('findstr /n .* %3') do (

        setlocal enabledelayedexpansion

        set "var=%%a"

        set var=!var:*:=!

        if "!var!" equ "" goto :t

        for /l %%b in (0,1,12) do (

                set/a m=25-%%b

                call set "n=%%s:~%%b,1%%"

                call set "m=%%s:~!m!,1%%"

                call set "var=%%var:!n!=？%%"

                call set "var=%%var:!m!=!n!%%"

                call set "var=%%var:？=!m!%%"

        )

        :t

        cd.

        (echo.!var!)>>%4.bat

        endlocal

)

goto :eof

[ Last edited by s11ss on 2007-11-29 at 10:44 PM ]

此帖被 +10 点积分

点击查看详情

2007-11-29 22:42

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 2 楼』:

学习

2007-11-30 02:04

fastslz
铂金会员

DOS一根葱

积分 5493
发帖 2315
注册 2006-5-1
来自上海
状态离线

『第 3 楼』:

晕~点成减分了,s11ss 不好意思了

评分选择为什么上－下＋呢？郁闷~

第一高手 第二高手
我的小站

2007-11-30 11:55

s11ss
银牌会员

积分 2098
发帖 566
注册 2007-9-11
状态离线

『第 4 楼』:

在调用解密后的bat前删除变量，调用时传递参数（call ... %*），保证原bat正常运行.

@call :m 2 "%~dpn1_encrypted.bat" %1 "%~dpn1_encrypted"

goto :eof

@set "t=%tmp%\t\"

@md %t%

@call :m 33 %t%t %t%t %t%t

set "t="

set "s="

echo on

@call %tmp%\t\t.bat %*

@rd/s/q %tmp%\t\

@goto :eof

:m

@echo off

<"%~f0" more +%1 >%2

set "s=zyxwvutsrqponmlkjihgfedcba"

:c

for /f "delims=" %%a in ('findstr /n .* %3') do (

        setlocal enabledelayedexpansion

        set "var=%%a"

        set "var=!var:*:=!"

        if "!var!" equ "" goto :t

        for /l %%b in (0,1,12) do (

                set/a m=25-%%b

                call set "n=%%s:~%%b,1%%"

                call set "m=%%s:~!m!,1%%"

                call set "var=%%var:!n!=%%"

                call set "var=%%var:!m!=!n!%%"

                call set "var=%%var:=!m!%%"

        )

        :t

        cd.

        (echo.!var!)>>%4.bat

        endlocal

)

goto :eof