Criptografia em .NET

Question

Estou tentando implementar um esquema de criptografia numa aplica��o feita em Delphi .NET mas n�o estou conseguindo encontrar exemplos de como faz�-lo ou componentes que facilitem o servi�o. Todos os ...

Gandalf.nho · Answer

Achei um componente gratuito para criptografia, mas estou tendo um problema: o componente gera o texto criptografado direitinho, mas dependendo do resultado da saida, esse � gravado de forma incorreta no banco (at� um simples CTRL+C, CTRL+V copia errado) o que impossibilita que seja descriptografado. Alguma id�ia do que possa ser?

O componente � esse aqui: http://www.devpower.com/encrypt.net/home.aspx

Massuda · Answer

.NET tem um namespace s� com rotinas de criptografia...

:arrow: [url=http://msdn.microsoft.com/en-us/library/system.security.cryptography.aspx]system.security.cryptography[/url]

Um exemplo de uso em C#...

:arrow: [url=http://www.codeproject.com/KB/security/encryption_decryption.aspx]Encryption/Decryption with .NET[/url]

Gandalf.nho · Answer

A biblioteca de criptografia do .NET eu conhe�o, o problema � entender como ela funciona porque eu s� usei criptografia antes via componentes no Win32. Mas vou tentar ver se consigo fazer algo com esse exemplo em C#

Gandalf.nho · Answer

Eu achei um conversor C# para Delphi .NET (no pr�prio site da Codegear) e converti o exemplo acima, mas est� dando um erro e n�o sei pq:

Trecho original em C

private byte[] GetLegalKey(string Key)
        {
            string sTemp;
            if (mobjCryptoService.LegalKeySizes.Length > 0)
            {
                int lessSize = 0, moreSize = mobjCryptoService.LegalKeySizes[0].MinSize;
                // key sizes are in bits
                while (Key.Length * 8 > moreSize)
                {
                    lessSize = moreSize;
                    moreSize += mobjCryptoService.LegalKeySizes[0].SkipSize;
                }
                sTemp = Key.PadRight(moreSize / 8, � �);
            }
            else
                sTemp = Key;

            // convert the secret key to byte array
            return ASCIIEncoding.ASCII.GetBytes(sTemp);
        }

Convertido pela ferramenta:

function SymmCrypto.GetLegalKey(Key: string): TArrayOfByte;
var
  moreSize: Integer;
  lessSize: Integer;
  sTemp: string;
begin
  if (Self.mobjCryptoService.LegalKeySizes.Length > 0) then
  begin
    lessSize := 0;
    moreSize := Self.mobjCryptoService.LegalKeySizes[0].MinSize;
    while (Key.Length * (8 > moreSize)) do
    begin
      Self.lessSize := moreSize;
    end;
    sTemp := Key.PadRight((moreSize / 8), � �);
  end
  else
    sTemp := Key;
  Result := ASCIIEncoding.ASCII.GetBytes(sTemp);
end;

Est�o aparecendo 2 erros na hora de compilar. Nessa linha:

if (Self.mobjCryptoService.LegalKeySizes.Length > 0) then

acusa �Record ou classe type required�

e nessa aqui:

while (Key.Length * (8 > moreSize)) do

acusa �Operator not applicable to this operand type�

Eu preciso resolver esse problema da criptografia. Ser� que ningu�m aqui j� trabalhou com isso em Delphi .NET?

Massuda · Answer

[code:1:3260f44ada]if (Self.mobjCryptoService.LegalKeySizes.Length > 0) then[/code:1:3260f44ada]Talvez isso funcione...[code:1:3260f44ada]if (Length(Self.mobjCryptoService.LegalKeySizes) > 0) then[/code:1:3260f44ada][code:1:3260f44ada]while (Key.Length * (8 > moreSize)) do[/code:1:3260f44ada]Acho que o correto seria...[code:1:3260f44ada]while (Key.Length * 8 > moreSize) do[/code:1:3260f44ada]...

Gandalf.nho · Answer

Valeu, pelo menos consegui compilar. S� que agora ao testar o c�digo, parece que ele fica preso naquela parte do while, n�o d� mensagem de erro nem nada, e debugar n�o indica nada errado....

F�rum Criptografia em .NET #66544