标题: [原创]********再次替换加密******** [打印本页]
作者: s11ss 时间: 2007-11-29 22:42 标题: [原创]********再次替换加密********
@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 ]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
作者: HAT 时间: 2007-11-30 02:04
学习
作者: fastslz 时间: 2007-11-30 11:55
晕~点成减分了,s11ss 不好意思了
评分选择为什么上－下＋呢？郁闷~
作者: s11ss 时间: 2007-11-30 13:16
在调用解密后的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
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
作者: zouzhxi 时间: 2007-12-5 17:39
只是把A的位置换成Z只是把它们倒过来了..
不过我现在还不能写出这样的东东,,,
顶了...
作者: s11ss 时间: 2007-12-5 17:43
呵呵，确实算法很简单，算法最复杂的是第一次替换加密，估计实用性也更强：
http://www.cn-dos.net/forum/view ... ;highlight=%2Bs11ss
作者: http2www 时间: 2007-12-16 07:52
学习中
作者: 13534980757 时间: 2008-1-7 16:19
学习ing。。。。。
作者: flyfox1047 时间: 2008-1-30 20:24
顶了，希望你再接再厉做出更完美的！
作者: kulelove 时间: 2010-12-18 20:22
这种加密方法要怎么样才能还原呢。
作者: acaigg 时间: 2010-12-25 11:22
学习一下。