中国DOS联盟

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

学习

晕~点成减分了,s11ss 不好意思了
评分选择为什么上－下＋呢？郁闷~

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

只是把A的位置换成Z只是把它们倒过来了..
不过我现在还不能写出这样的东东,,,
顶了...

呵呵，确实算法很简单，算法最复杂的是第一次替换加密，估计实用性也更强：
http://www.cn-dos.net/forum/viewthread.php?tid=33546&fpage=1&highlight=%2Bs11ss

学习中

学习ing。。。。。

顶了，希望你再接再厉做出更完美的！

这种加密方法要怎么样才能还原呢。

学习一下。