中国DOS联盟

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

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

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-06-25 05:10

欢迎新会员 weidu　 RSS
共 48,002 主题排行 / 350,077 发帖 / 今日 1 篇 / 48,217 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]********再次替换加密******** 查看 2,325　回复 10

楼主 [原创]********再次替换加密******** 发表于 2007-11-29 22:42　·　中国北京电信

s11ss

银牌会员

★★★

积分 2,098
发帖 566
注册 2007-09-11 07:27
18年会员
UID 97070
性别男

状态离线

@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 ]

本帖最近评分记录（共 3 条）点击查看详情

评分人	分数	时间
fastslz	-6	2007-11-30 11:48
lxmxn	+12	2007-11-30 12:20
knoppix7	+4	2007-11-30 18:59

第 2 楼发表于 2007-11-30 02:04　·　中国上海联通

HAT

版主

★★★★★

积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别男

状态离线

学习

第 3 楼发表于 2007-11-30 11:55　·　中国上海松江区电信

fastslz

铂金会员

★★★★

DOS一根葱

积分 5,493
发帖 2,315
注册 2006-05-01 10:41
20年会员
UID 54766
性别男
来自上海

状态离线

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

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

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

第 4 楼发表于 2007-11-30 13:16　·　中国北京电信

s11ss

银牌会员

★★★

积分 2,098
发帖 566
注册 2007-09-11 07:27
18年会员
UID 97070
性别男

状态离线

在调用解密后的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