Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-11-2022
DarkSton DarkSton is offline
Miembro
 
Registrado: jun 2017
Posts: 64
Poder: 7
DarkSton Va por buen camino
c a delphi7

hola comunidad encontre este codigo AES
Código PHP:
private static byte[] AesEncryptBlock(byte[] plainTextbyte[] 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.KeyaesAlg.IV);
                
encryptor.TransformBlock(plainText0plainText.Lengthoutput_buffer0);
            }

            return 
output_buffer;
        }

        
// not used, but nice to have around
        
private static byte[] AesDecryptBlock(byte[] cipherTextbyte[] 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.KeyaesAlg.IV);
                
decryptor.TransformBlock(cipherText0cipherText.Lengthoutput_buffer0);
            }
            return 
output_buffer;
        }

        static 
string GLParameters(string usernamestring password)
        {
            
// final block (unknown) looks like 4 DWORDs, first one being always zero, second always nonzero, third and fourth are occasionally zero
            
List<byteresult = new List<byte>();
            
byte[] key = { 0xFA0xEE0x850xF20x400x730xD90x160x130x900x190x7F0x6E0x560x2A0x67 };
            
byte[] finalBlock = { 000000000000000};
            
result.AddRange(AesEncryptBlock(StringToBytes(username16), key));
            
result.AddRange(AesEncryptBlock(StringToBytes(password16), key));
            
result.AddRange(AesEncryptBlock(finalBlockkey));
            return 
BitConverter.ToString(result.ToArray()).Replace("-""").ToUpper();
        } 
como puedo pasarlo a delphi7
Responder Con Cita
  #2  
Antiguo 29-11-2022
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 910
Poder: 22
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Un gran maestro del Club Seaone, publico hace tiempo creo recordar funciones para lo que requieres...

Mira en su web http://delphi.jmrds.com/

SeCrypt (Colección de funciones criptográficas)

Saludos cordiales
Responder Con Cita
  #3  
Antiguo 30-11-2022
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
El fragmento de código no es C. Tampoco lo puedes traducir porque se basa en la clase AesManaged cuyo código no aparece ni comentas que esté importado desde una librería.

Mira el código de [seoane].

Saludos.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
donde puedo comprar libros en mexico, la biblia de delphi7 y mastering delphi7? sakuragi Varios 30 12-02-2013 19:37:51
pantallas en delphi7 kiozo Varios 1 10-06-2010 00:09:10
TMS y Delphi7 Troffed Varios 3 24-05-2006 12:38:56
vararrayof en Delphi7 jatorve Conexión con bases de datos 1 14-03-2005 12:00:47
Compilación Delphi7 jatorve Varios 3 08-03-2005 22:38:39


La franja horaria es GMT +2. Ahora son las 15:08:42.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi