| DarkSton |
29-11-2022 19:32:00 |
c a delphi7
hola comunidad encontre este codigo AES
Código PHP:
private static byte[] AesEncryptBlock(byte[] plainText, byte[] Key)
{
byte[] output_buffer = new byte[plainText.Length];
using (AesManaged aesAlg = new AesManaged())
{
aesAlg.Mode = CipherMode.ECB;
aesAlg.BlockSize = 128;
aesAlg.KeySize = 128;
aesAlg.Padding = PaddingMode.None;
aesAlg.Key = Key;
// Create a encryptor to perform the stream transform.
ICryptoTransform encryptor = aesAlg.CreateEncryptor(aesAlg.Key, aesAlg.IV);
encryptor.TransformBlock(plainText, 0, plainText.Length, output_buffer, 0);
}
return output_buffer;
}
// not used, but nice to have around
private static byte[] AesDecryptBlock(byte[] cipherText, byte[] Key)
{
byte[] output_buffer = new byte[cipherText.Length];
using (AesManaged aesAlg = new AesManaged())
{
aesAlg.Mode = CipherMode.ECB;
aesAlg.BlockSize = 128;
aesAlg.KeySize = 128;
aesAlg.Padding = PaddingMode.None;
aesAlg.Key = Key;
// Create a decryptor to perform the stream transform.
ICryptoTransform decryptor = aesAlg.CreateDecryptor(aesAlg.Key, aesAlg.IV);
decryptor.TransformBlock(cipherText, 0, cipherText.Length, output_buffer, 0);
}
return output_buffer;
}
static string GLParameters(string username, string password)
{
// final block (unknown) looks like 4 DWORDs, first one being always zero, second always nonzero, third and fourth are occasionally zero
List<byte> result = new List<byte>();
byte[] key = { 0xFA, 0xEE, 0x85, 0xF2, 0x40, 0x73, 0xD9, 0x16, 0x13, 0x90, 0x19, 0x7F, 0x6E, 0x56, 0x2A, 0x67 };
byte[] finalBlock = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 };
result.AddRange(AesEncryptBlock(StringToBytes(username, 16), key));
result.AddRange(AesEncryptBlock(StringToBytes(password, 16), key));
result.AddRange(AesEncryptBlock(finalBlock, key));
return BitConverter.ToString(result.ToArray()).Replace("-", "").ToUpper();
}
como puedo pasarlo a delphi7 |
