Como usar un Certificado desde el almacén de Windows y asignarle una password

[javipes]

snif!


me he olfidado una funcion importante que es la que carga infocertificado, pues no lo hace directamente, ya que los valores hexadecimales me aparecen cruzados. Para cargar infocertificado cuando el usuario elige un certificado del combo utilizo esto:

Código Delphi [-]
procedure cmbCertificadosChange(Sender: TObject);
var certif:string; x:ansistring;
  function ReverseWord(s:ansistring):ansistring;
  var t:ansistring; l1,l2:ansichar; i:integer;
  begin
  t:='';
  for i:=length(s)div 2 downto 1 do
    begin
    l2:=s[2*i]; l1:=s[2*i-1];
    t:=t+l1+l2;
    end;
  result:=t;
  end;
begin
  certif:=cmbCertificados.Items[cmbCertificados.itemIndex];
  x:=DMEnvioLAF.SerialNum_Certificado(certif);
 infoCertificados:=ReverseWord(x);
end;

lamento la omisión

[javipes]

me vais a matar, hace falta la funcion para obtener el numero de serie del certificado

Código Delphi [-]
function SerialNum_Certificado(Nombre_Certificado: String): String;
var
  hStore: HCERTSTORE;
  PrevContext, CurContext: PCERT_CONTEXT;
  cbSize: DWORD;
  sNombre: String;
begin
  // Devuelve el Serial Number del certificado indicado
  Result := '';

  hStore := CertOpenSystemStore(0, PChar('MY'));
  if Assigned(hStore) then
  begin
    PrevContext := nil;
    CurContext := CertEnumCertificatesInStore(hStore, PrevContext);
    while Assigned(CurContext) do
    begin
      sNombre := '';
      cbSize := CertGetNameString(CurContext, CERT_NAME_SIMPLE_DISPLAY_TYPE, 0,
        nil, nil, 0);
      if cbSize > 0 then
      begin
        SetLength(sNombre, cbSize - 1);
        CertGetNameString(CurContext, CERT_NAME_SIMPLE_DISPLAY_TYPE, 0, nil,
          PChar(sNombre), cbSize);
        if SameText(Nombre_Certificado, sNombre) then
        begin
          Result := GetCertSerialNumber(@CurContext^.pCertInfo^.SerialNumber);
          break;
        end;
      end;

      PrevContext := CurContext;
      CurContext := CertEnumCertificatesInStore(hStore, PrevContext);
    end;
  end;
end;

ahora ya creo que esta todo. SI echarais algo en falta me lo decis. Esto me ha funcionado en Delphi Berlin y en Delphi Alexandria

[austral_es]

Muchísimas gracias javipes y bmfranky!!

En el caso de javipes sino te pide la contraseña ¿puede ser porque tu certificado no la requiera? nuestros certificados sí la requieren (estamos usando unos propios y otros como el DNIe) y en los dos casos nos salta la ventana de windows pidiendo la contraseña, y esto era lo que queríamos evitar cargando el certificado desde el almacén y asignandole pal password.

De todas formas estamos estudiando los dos códigos, a ver si podemos tener algo en claro para nuestro caso.

[bmfranky]

Empezado por austral_es

Muchísimas gracias javipes y bmfranky!!

En el caso de javipes sino te pide la contraseña ¿puede ser porque tu certificado no la requiera? nuestros certificados sí la requieren (estamos usando unos propios y otros como el DNIe) y en los dos casos nos salta la ventana de windows pidiendo la contraseña, y esto era lo que queríamos evitar cargando el certificado desde el almacén y asignandole pal password.

De todas formas estamos estudiando los dos códigos, a ver si podemos tener algo en claro para nuestro caso.

Hola, una vez en el almacen de windows, cuando lo abres con mi codigo, no pide nada, cuando lo agregaste a windows, ya lo pidio, otra cosa es el del DNI-E ,ese para poder usarlo, si o si has de introducir la clave, tambien al almacenarlo en la base de datos puedes guardar, cargar la contraseña que tu asignes encriptada, haciendo automatico el desbloqueo del mismo una vez ya guardada en la base de datos.
Solo volveria a pedir la clave, al actualizar el certificado, una vez caducado.