Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-06-2024
Galahad Galahad is offline
Miembro
 
Registrado: abr 2007
Posts: 240
Poder: 19
Galahad Va por buen camino
error en desencriptación aes

Hola, buenas tardes
Estoy intentando utilizar la libreria DCcrypt2 para desencriptar una cadena de texto que consigo a partir de un servicio REST.
utilizando el código inferior se produce el error 'Range check error' en la línea que muestro a continuación

"DCP_rijndael.Init(apisecret[1], 128, @iv[1]);")

¿ alguien sabe porque puede ser o si se puede hacer de otra manera con estos componentes ?
Por otro lado, trabajamos con Delphi 12.1 , ¿ no tiene algo delphi de manera nativa para trabajar con este tipo de encriptado (aes/cbc) ?.
Lo he estado buscando , pero no he encontrado nada.


Código Delphi [-]
function Decrypt( Astr,apikey,apisecret:String ):string;
var d,s,iv:string;
    DCP_rijndael: TDCP_rijndael;
begin
  d:= Base64Decodestr(astr);
  DCP_rijndael := TDCP_rijndael.Create(self);
  try
    DCP_rijndael.Algorithm := 'AES/CBC/PKCS5PADDING';
    DCP_rijndael.CipherMode := cmCBC;
    DCP_rijndael.Init(apisecret[1], 128, @iv[1]);
    DCP_rijndael.SetIV(apikey);
    DCP_rijndael.DecryptCBC(d,s,Length(d));
  finally
    DCP_rijndael.free;
  end;

end;
Responder Con Cita
 



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
DEPLOY ANDROID 64 BITS SOLUCIÓN A [PAClient Error] Error: E6408 Y SIMILARES dani36652 Desarrollo en Delphi para Android 5 31-01-2020 22:11:37
Intraweb - Database Server Error: SQL State:08001, SQL Error Code: 17 bitbow Delphi para la web 2 12-11-2015 22:28:15
ibase_query() [function.ibase-query]: Dynamic SQL Error SQL error code = -104 Token MALBOTO22 PHP 8 06-05-2015 19:22:39
Encriptación y desencriptación de datos mcalmanovici Varios 9 15-07-2008 15:34:47
Encriptacion/Desencriptacion de Archivo TXT Maury Manosalva OOP 9 22-09-2005 02:04:55


La franja horaria es GMT +2. Ahora son las 15:52:10.


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