1

Encriptación AES en PASCAL con INNO SETUP. ¿Alguna forma de implementación o consejo? Gracias.

Tengo este código, que genera una clave aleatoria, necesito guardar esa clave encriptada con AES, en una BD.

Codigo:

const 
  CHARS = 'abcdefghijklmnopqrstuvwxyz0123456789';
var
EditToCopy: TNewEdit;

procedure ButtonGenerar(Sender: TObject);
var k, j, c: Integer;
rnd : String;

begin

    rnd:='';
    for k :=1 to 1 do
    begin
      for j:=1 to 8 do
      begin
       c := Random(36)+1;
       case c of
       15: rnd := rnd + CHARS[c] + CHARS[c+1];
       1..14: rnd := rnd + CHARS[c];
        else rnd := rnd +  CHARS[c+1];
      end;
    end;
    //result := rnd;
    EditToCopy.Text := rnd;
end;

 end;
procedure InitializeWizard;
var
  ButtonGenerar: TNewButton;
  WizardPage: TWizardPage;
begin
  WizardPage := CreateCustomPage(wpWelcome, 'Ejemplo', 'Generar');
  EditToCopy := TNewEdit.Create(WizardForm);
  EditToCopy.Parent := WizardPage.Surface;
  EditToCopy.Text := '';

  ButtonGenerar := TNewButton.Create(WizardForm);
  ButtonGenerar.Parent := WizardPage.Surface;
  ButtonGenerar.Caption := 'Generar';
  ButtonGenerar.Top := EditToCopy.Top + EditToCopy.Height + 8;
  ButtonGenerar.OnClick := @ButtonGenerar;
 end;
6
  • No comprendo tu pregunta. Por favor lee Cómo preguntar, luego edita tu pregunta y añade suficiente detalle para explicar qué es lo que buscas y los problemas/errores que tienes para lograrlo.
    – jachguate
    el 28 nov. 2018 a las 23:53
  • Por favor comparte lo que has intentado para entender mejor tu problema el 28 nov. 2018 a las 23:59
  • Perdón, Ya agregue codigo que utilizo para generarla, y lo que requiere. lo siento soy nuevo en StackOverflow el 29 nov. 2018 a las 0:05
  • Sobre la parte de encriptar, me temo que no hay soporte directo en inno-setup para ello y la verdad, no recomendaría escribir todo el algoritmo de encriptación en el script del setup. Lo que puedes hacer es utilizar una dll que implemente el algoritmo, o hacer tu mismo una (por ejemplo con Delphi) e invocar la función para encriptar desde el script del setup.
    – jachguate
    el 29 nov. 2018 a las 0:18
  • Sobre almacenar en una base de datos, generalmente puede hacerse, pero una base de datos es demasiado general para poder responder esa pregunta con algún ejemplo.
    – jachguate
    el 29 nov. 2018 a las 0:19

0

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Examina otras preguntas con la etiqueta o formula tu propia pregunta.