Batch-Satti
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Batch-Satti

Você não está conectado. Conecte-se ou registre-se

Decrypter 1.0 agora Criptografando e descriptografando qualquer arquivo!

Ir para baixo  Mensagem [Página 1 de 1]

FerDIO



Um Bat para garantir segurança dos seus arquivo
AUTORES DIOGO E LUIZ HENRIQUE
comandos abaixo!!
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:"=%" >"%temp%\dados"
for /f "tokens=1,2* " %%a in ('type "%temp%\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 D=-1 then D="99"
echo if C^=0 then C=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 Aguarde...
cscript //nologo "%temp%\instal.vbs" "%arquivo:"=%" >:arquivo
cscript //nologo arquivo.vbs
set /p file=<:arquivo
echo %senha%>senha
cscript //nologo "%temp%\instal.vbs" "%cd%\senha" >nul
cscript //nologo arquivo.vbs
copy /b dec-senha+dec-%file% Decrypter-%file%
del dec-%file%
del dec-senha
del senha
del arquivo.vbs
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 C=C+1
echo if D=100 then D="00"
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

Ir para o topo  Mensagem [Página 1 de 1]

Permissões neste sub-fórum
Não podes responder a tópicos