olá pessoal estou usando o codigo abaixo para criptografar arquivos, porem como não tenho tanta experiencia, não sei se esse codigo é realmente seguro, se é facil quebra-lo, gostaria de uma opinião de voces
procedure TfrmPrincipal.proEnDecryptFile1(arquivo : string);
var
InMS, OutMS: TMemoryStream;
I : Integer;
C: byte;
path :string;
chave, constante : Int64;
begin
chave := 951289643752110;
constante := 9187236486;
InMS := TMemoryStream.Create;
OutMS := TMemoryStream.Create;
path := arquivo;
try
InMS.LoadFromFile(path);
InMS.Position := 0;
for I := 0 to InMS.Size - 1 do
begin
InMS.Read(C, 1);
C := (C xor not (ord(chave + constante shr I)));
OutMS.Write(C, 1);
end;
OutMS.SaveToFile(path);
finally
InMS.Free;
OutMS.Free;
end;
end;
Pergunta
aalessandre
olá pessoal estou usando o codigo abaixo para criptografar arquivos, porem como não tenho tanta experiencia, não sei se esse codigo é realmente seguro, se é facil quebra-lo, gostaria de uma opinião de voces
agradeço as respostas
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.