Как я могу зашифровать данные в Delphi и в C #, чтобы они были совместимы? - PullRequest
Новая
       21

Как я могу зашифровать данные в Delphi и в C #, чтобы они были совместимы?

0 голосов
/ 08 февраля 2012

Я хотел бы зашифровать некоторые данные на клиенте в моем приложении Delphi таким образом, чтобы это было совместимо с шифрованием на моем сервере.На моем сервере я шифрую данные, используя этот код C #: 

public class AesCryptUtils
{

    private static byte[] _salt = Encoding.ASCII.GetBytes("o6806642kbM7c5");

    /// <summary> 
    /// Encrypt the given string using AES.  The string can be decrypted using  
    /// DecryptStringAES().  The sharedSecret parameters must match. 
    /// </summary> 
    /// <param name="plainText">The text to encrypt.</param> 
    /// <param name="sharedSecret">A password used to generate a key for encryption.</param> 
    public static string EncryptStringAES(string plainText, string sharedSecret)
    {
        if (string.IsNullOrEmpty(plainText))
            throw new ArgumentNullException("plainText");
        if (string.IsNullOrEmpty(sharedSecret))
            throw new ArgumentNullException("sharedSecret");

        string outStr = null;                       // Encrypted string to return 
        AesManaged aesAlg = null;              // AesManaged object used to encrypt the data. 

        try
        {
            // generate the key from the shared secret and the salt 
            Rfc2898DeriveBytes key = new Rfc2898DeriveBytes(sharedSecret, _salt);

            // Create a AesManaged object 
            // with the specified key and IV. 
            aesAlg = new AesManaged();
            aesAlg.Key = key.GetBytes(aesAlg.KeySize / 8);
            aesAlg.IV = key.GetBytes(aesAlg.BlockSize / 8);

            // Create a decrytor to perform the stream transform. 
            ICryptoTransform encryptor = aesAlg.CreateEncryptor(aesAlg.Key, aesAlg.IV);

            // Create the streams used for encryption. 
            using (MemoryStream msEncrypt = new MemoryStream())
            {
                using (CryptoStream csEncrypt = new CryptoStream(msEncrypt, encryptor, CryptoStreamMode.Write))
                {
                    using (StreamWriter swEncrypt = new StreamWriter(csEncrypt))
                    {

                        //Write all data to the stream. 
                        swEncrypt.Write(plainText);
                    }
                }
                outStr = Convert.ToBase64String(msEncrypt.ToArray());
            }
        }
        finally
        {
            // Clear the AesManaged object. 
            if (aesAlg != null)
                aesAlg.Clear();
        }

        // Return the encrypted bytes from the memory stream. 
        return outStr;
    }
}

Как этот алгоритм шифрования может быть реализован в Delphi? Полученные зашифрованные данные должны быть одинаковыми при одинаковых входных данных.

1 Ответ

2 голосов
/ 08 февраля 2012

Список связанных вопросов для вашего вопроса содержит эту ссылку , в которой упоминается некоторая реализация AES для Delphi. Я уверен, что вы можете найти что-то еще, и вы всегда можете использовать что-то вроде OpenSSL или CryptoAPI, но вам может понадобиться написать для них привязки Delphi.

Обратите внимание, что, поскольку вы не передаете ключ напрямую, вам также потребуется реализовать вывод ключа.

...