Proteção / Desproteção de arquivos

[-Mizuki. 4]

Olá pessoal, hoje vou dar uma pequena demonstração de criptografia / descriptografia em pascal(delphi).

 

Primeiro vamos adicionar em nosso ****:

 

4 Edits e 2 buttons.

 

Agora vamos renomear cada um deles da seguinte maneira:

 

Edit 1 - Diretório do arquivo [ Propriedade Text ]

Edit 2 - Local onde será salvo\nome [ Propriedade Text ]

Edit 3 - Diretório do arquivo [ Propriedade Text ]

Edit 4 - Local onde será salvo\nome [ Propriedade Text ]

Button 1 - Proteger [ Propriedade Caption ]

Button 2 - Desproteger [ Propriedade Caption ]

 

Organize-os da seguinte maneira:

 

 

Agora vamos aos códigos;

 

Declare a função:

 

{Coloque abaixo de:

implementation

{$R *.dfm}

procedure EnDecryptFile(INFName, OutFName : String; Chave : Word);
var
InMS, OutMS : TMemoryStream;
I : Integer;
C : byte;
begin
InMS := TMemoryStream.Create;
OutMS := TMemoryStream.Create;
try
InMS.LoadFromFile(INFName);
InMS.Position := 0;
for I := 0 to InMS.Size - 1 do
begin
InMS.Read(C, 1);
C := (C xor not(ord(chave shr I)));
OutMS.Write(C,1);
end;
OutMS.SaveToFile(OutFName);
finally
InMS.Free;
OutMS.Free;
end;
end;

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

No button 2:

 

EnDecryptFile(edit3.Text, edit4.Text, 12);

 

Tutorial como usar:

 

No campo diretório do arquivo, você deve colocar o diretório de onde esta o arquivo a ser protegido/desprotegido exemplo:

C:\arquivo.txt

Não se esqueça de por o \arquivo.extensão

 

No segundo campo, você deve colocar o diretório\nome.extensão do arquivo protegido que será criado.

 

Mas lembre-se, este aplicativo protege apenas arquivos que contém texto, ou seja, extensões como .txt, .doc, .pdf e por ai vai...

 

Pronto :D

[gaabscps 7]

Poderia explicar como a função trabalha?

 

Tem diversos comandos nela que não sei como funcionam, como o TMemoryStream, que é muito usado, mas não vejo explicações sobre ele.

 

 

Fora isso, faltou os créditos da rotina de comandos, que no caso pertence ao site

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[RickKM 2]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Espero ter ajudado um pouquinho, mas não sei como funciona a linha que modifica o byte =]

Vou estudar essa linha quando eu descobrir eu posto!

[4444leozinho4444 0]

Pow maneiro mano parabéns.

[gaabscps 7]

Espero ter ajudado um pouquinho, mas não sei como funciona a linha que modifica o byte =]

Vou estudar essa linha quando eu descobrir eu posto![/font]

 

Vlw, mas postei aquilo mesmo para o autor ver que não se deve apenas copiar e colar, mas aprender como funciona

[AceStryker 25]

Isso não é bem encriptação né, você só esta estragando o programa...Tanto é que o programa nem abre quando esta encriptado, isto porque você tirou dele a assinatura PE, a assinatura MZ e todos os cabeçalhos do programa, se você quiser encriptar realmente, sugiro que só mexa com a seção .code e que crie uma seção ou uma função de desencriptação e mova o EP para lá, ai sim o programa funcionará

[C£rberus 1]

Muito bom e sobretudo simples, continue assim !