uses
  Classes, SysUtils,
  {$IFDEF FPC}, dynlibs{$ELSE}, Windows{$ENDIF}

const
  {$IFDEF MSWINDOWS}
  CRYPT32 = 'crypt32.dll';
  ADVAPI32 = 'advapi32.dll';
  {$ELSE}
  CAPILITE2 = '/opt/cprocsp/lib/ia32/libcapi20.so.3.6.1';
  {$ENDIF}

procedure TCryptoVerifyController.LoadLib;

function LoadProc(
  const ALibHandle: {$IFDEF FPC}TLibHandle{$ELSE}THandle{$ENDIF};
  const ALibName: string;
  const AProcName: string): Pointer;
begin
  {$IFDEF FPC}
  Result := GetProcedureAddress(ALibHandle, AProcName);
  {$ELSE}
  Result := GetProcAddress(ALibHandle, PChar(AProcName));
  {$ENDIF}

  if Result = nil then
    raise Exception.CreateFmt(
      'Function %s not found in library %s', [AProcName, ALibName]);
end;

begin
  {$IFDEF MSWINDOWS}

  LibAdvHandle := LoadLibrary(ADVAPI32);

  if {$IFDEF FPC}LibAdvHandle = 0{$ELSE}LibAdvHandle < 32{$ENDIF} then
    raise Exception.CreateFmt('Library %s not found', [ADVAPI32]);

  LibCryptHandle := LoadLibrary(CRYPT32);

  if {$IFDEF FPC}LibCryptHandle = 0{$ELSE}LibCryptHandle < 32{$ENDIF} then
    raise Exception.CreateFmt('Library %s not found', [CRYPT32]);

  FCryptAcquireContext := LoadProc(LibAdvHandle, ADVAPI32, 'CryptAcquireContextW');
  FCryptReleaseContext := LoadProc(LibAdvHandle, ADVAPI32, 'CryptReleaseContext');

  FCryptVerifyDetachedMessageSignature := LoadProc(LibCryptHandle, CRYPT32, 'CryptVerifyDetachedMessageSignature');
  FCertFreeCertificateContext := LoadProc(LibCryptHandle, CRYPT32, 'CertFreeCertificateContext');

  FCertGetCertificateChain := LoadProc(LibCryptHandle, CRYPT32, 'CertGetCertificateChain');
  FCertFreeCertificateChain := LoadProc(LibCryptHandle, CRYPT32, 'CertFreeCertificateChain');

  FCryptGetMessageCertificates := LoadProc(LibCryptHandle, CRYPT32, 'CryptGetMessageCertificates');
  FCertEnumCertificatesInStore := LoadProc(LibCryptHandle, CRYPT32, 'CertEnumCertificatesInStore');
  FCertCloseStore := LoadProc(LibCryptHandle, CRYPT32, 'CertCloseStore');

  {$ELSE}

  LibCapiHandle := LoadLibrary(CAPILITE2);

  if {$IFDEF FPC}LibCapiHandle = 0{$ELSE}LibCapiHandle < 32{$ENDIF} then
    raise Exception.CreateFmt('Library %s not found', [CAPILITE2]);

  FCryptAcquireContext := LoadProc(LibCapiHandle, CAPILITE2, 'CryptAcquireContextW');
  FCryptReleaseContext := LoadProc(LibCapiHandle, CAPILITE2, 'CryptReleaseContext');

  FCryptVerifyDetachedMessageSignature := LoadProc(LibCapiHandle, CAPILITE2, 'CryptVerifyDetachedMessageSignature');
  FCertFreeCertificateContext := LoadProc(LibCapiHandle, CAPILITE2, 'CertFreeCertificateContext');

  FCertGetCertificateChain := LoadProc(LibCapiHandle, CAPILITE2, 'CertGetCertificateChain');
  FCertFreeCertificateChain := LoadProc(LibCapiHandle, CAPILITE2, 'CertFreeCertificateChain');

  FCryptGetMessageCertificates := LoadProc(LibCapiHandle, CAPILITE2, 'CryptGetMessageCertificates');
  FCertEnumCertificatesInStore := LoadProc(LibCapiHandle, CAPILITE2, 'CertEnumCertificatesInStore');
  FCertCloseStore := LoadProc(LibCapiHandle, CAPILITE2, 'CertCloseStore');

  {$ENDIF}
end;

dlsym(0xb770e3d8, "sem_trywait")                 = 0x9bd790
dlsym(0xb770e3d8, "sem_post")                    = 0x9bd8d0
dlsym(0xb770e3d8, "sem_getvalue")                = 0x9bd660
dlsym(0xb770e3d8, "pthread_mutexattr_settype")   = 0x9ba630
dlopen("/opt/cprocsp/lib/ia32/libcapi20."..., 1 <unfinished ...>
--- SIGSEGV (Segmentation fault) ---
Access violation

ldd -r /opt/cprocsp/lib/ia32/libcapi20.so

linux-gate.so.1 =>  (0x00640000)
libcpext.so.3 => /opt/cprocsp/lib/ia32/libcpext.so.3 (0x003a7000)
libcapi10.so.3 => /opt/cprocsp/lib/ia32/libcapi10.so.3 (0x001c3000)
libasn1data.so.3 => /opt/cprocsp/lib/ia32/libasn1data.so.3 (0x00b34000)
librdrsup.so.3 => /opt/cprocsp/lib/ia32/librdrsup.so.3 (0x00110000)
libdl.so.2 => /lib/libdl.so.2 (0x00847000)
libpthread.so.0 => /lib/libpthread.so.0 (0x0012f000)
libstdc++.so.6 => /usr/lib/libstdc++.so.6 (0x001d5000)
libm.so.6 => /lib/libm.so.6 (0x00798000)
libc.so.6 => /lib/libc.so.6 (0x00409000)
libgcc_s.so.1 => /lib/libgcc_s.so.1 (0x0014a000)
/lib/ld-linux.so.2 (0x007f2000)