o bat se chama Decrypter
ainda esta em faze de testes portando esta rodando apenas com arquivos de texto.
ainda esta em faze de testes portando esta rodando apenas com arquivos de texto.
- Código:
@echo off
title Decrypter 1.0 Beta
:file
cls
echo [1]Criptografar
echo [2]Descriptografar
set /p o=">"
if "%O%"=="1" goto 1
if "%o%"=="2" goto 2
goto file
:2
cls
call :vbs2
echo Arraste o arquivo desejado e pressione enter.
set /p arquivo=
if not exist "%arquivo:"=%" (msg * Arquivo nÆo encontrado!&goto file)
echo Entre com a senha:
set /p senha=
echo Aguarde...
cscript //nologo "%temp%\instal.vbs" "%arquivo:"=%" >dados
for /f "tokens=1,2* " %%a in (dados) do set dados%%a=%%b
if not "%senha%"=="%dados2%" (
msg * Senha incorreta
del arquivo.vbs
del dados
exit
)
cscript //nologo arquivo.vbs
del arquivo.vbs
del dados
msg * Processo completo.
exit
:vbs2
(
echo on error resume next
echo dim linha,nome,file,novo,C,D,E,senha
echo set arquivo ^= CreateObject^("Scripting.FileSystemObject"^).OpenTextFile^(wsh.arguments^(0^),1^)
echo nome^=wsh.arguments^(0^)
echo i^=1
echo while not mid^(nome,Len^(nome^),1^)^=""
echo file^=mid^(nome,Len^(nome^),1^)+file
echo nome^=mid^(nome,1,Len^(nome^)-1^)
echo i^=i+1
echo wend
echo novo^="arquivo.vbs"
echo set vbs ^= CreateObject^("Scripting.FileSystemObject"^).OpenTextFile^(novo,2,true^)
echo vbs.writeline "on error resume next"
echo vbs.writeline "set arquivo = CreateObject(""Scripting.FileSystemObject"").OpenTextFile(""Dec-"+file+""",2,true)"
echo while not D="0D"
echo C^=hex^(asc^(arquivo.read^(1^)^)^)
echo D=C-1
echo if C^<=0 then D=C
echo if len^(D^)^=1 then D^="0"+D
echo senha=senha ^& chr^(clng^("&H" ^& D^)^)
echo wend
echo C^=hex^(asc^(arquivo.read^(1^)^)^)
echo while not arquivo.atendofstream
echo C^=hex^(asc^(arquivo.read^(1^)^)^)
echo D=C-1
echo if C^<=0 then D=C
echo if len^(D^)^=1 then D^="0"+D
echo linha^=linha ^& D
echo if len^(linha^)^=510 then escrever^(^)
echo wend
echo escrever^(^)
echo vbs.writeline "arquivo.close"
echo vbs.close
echo arquivo.close
echo wsh.echo "1 " ^& file
echo wsh.echo "2 " ^& senha
echo sub escrever^(^)
echo vbs.writeline "for i=1 to 510 step 2 : arquivo.write chr(clng(""&H""+mid("""+linha+""",i,2))):next"
echo linha^=""
echo end sub
)>"%temp%\instal.vbs"
exit/b
:1
cls
call :vbs1
echo Arraste o arquivo desejado e pressione enter.
set /p arquivo=
if not exist "%arquivo:"=%" (msg * Arquivo nÆo encontrado!&goto file)
echo Entre com a senha:
set /p senha=
echo %senha%>senha
cscript //nologo "%temp%\instal.vbs" "%cd%\senha"
cscript //nologo arquivo.vbs
echo Aguarde...
cscript //nologo "%temp%\instal.vbs" "%arquivo:"=%" >:arquivo
cscript //nologo arquivo.vbs
set /p file=<:arquivo
copy /b dec-senha+dec-%file% Decrypter-%file%
del arquivo.vbs
del dec-senha
del dec-%file%
del senha
msg * Processo Completo.
exit
:vbs1
(
echo on error resume next
echo dim linha,nome,file,novo,C,D,E
echo set arquivo ^= CreateObject^("Scripting.FileSystemObject"^).OpenTextFile^(wsh.arguments^(0^),1^)
echo nome^=wsh.arguments^(0^)
echo i^=1
echo while not mid^(nome,Len^(nome^),1^)^=""
echo file^=mid^(nome,Len^(nome^),1^)+file
echo nome^=mid^(nome,1,Len^(nome^)-1^)
echo i^=i+1
echo wend
echo novo^="arquivo.vbs"
echo set vbs ^= CreateObject^("Scripting.FileSystemObject"^).OpenTextFile^(novo,2,true^)
echo vbs.writeline "on error resume next"
echo vbs.writeline "set arquivo = CreateObject(""Scripting.FileSystemObject"").OpenTextFile(""Dec-"+file+""",2,true)"
echo while not arquivo.atendofstream
echo C^=hex^(asc^(arquivo.read^(1^)^)^)
echo D=C+1
echo if C^<=0 then D=C
echo if len^(D^)^=1 then D^="0"+D
echo linha^=linha ^& D
echo if len^(linha^)^=510 then escrever^(^)
echo wend
echo escrever^(^)
echo vbs.writeline "arquivo.close"
echo vbs.close
echo arquivo.close
echo wsh.echo file
echo sub escrever^(^)
echo vbs.writeline "for i=1 to 510 step 2 : arquivo.write chr(clng(""&H""+mid("""+linha+""",i,2))):next"
echo linha^=""
echo end sub
)>"%temp%\instal.vbs"
exit/b