Batch-Satti
Se você ainda não é um membro cadastre-se!

Existem centenas de scripts para quem é membro.

As categorias para os membros cadastrados são:

BATCH-SCRIPTS COMPLETO.
(Espaço onde são postados os scripts que tenham funcionalidade completa)
BADCONS VIRUS E TROJANS .
(Espaço onde são postados scripts e técnicas em vírus trojans e worm baseados em scripts )
SOMENTE PARA MEMBROS.
(Espaço destinado aos membros discutirem ou tirarem duvidas)
TUTORIAIS E EXPLICAÇÕES.
(Aqui são colocadas as explicações de comandos e técnicas para confecção de scripts )

EXISTEM MUITAS OUTRAS CATEGORIAS MÁS ESSAS SÃO AS PRINCIPAIS !

ENTRE E PARTICIPE !!!!!!!
MENSAGENS AOS MEMBROS :
TIVEMOS QUE AUTORIZAR PROPAGANDAS NO FORUM E TALVEZ O FIREFOX E OUTROS NAVEGADORES NÃO FUNCIONEM
UTILIZEM O INTERNET EXPLORER OU ATUALIZEM PARA O FIREFOX 4.0 BETA

ASS. BOSS-HEAD


Pesquisa personalizada

Decrypter 1.0 agora Criptografando e descriptografando qualquer arquivo!

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Decrypter 1.0 agora Criptografando e descriptografando qualquer arquivo!

Mensagem por FerDIO em Qui Set 09, 2010 6:30 pm

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

FerDIO

Idade : 30

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum