diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 0000000..cbf7082 --- /dev/null +++ b/.gitattributes @@ -0,0 +1,21 @@ +# Set the default behavior, in case people don't have core.autocrlf set. +* text=auto + +# Explicitly declare text files you want to always be normalized and converted +# to native line endings on checkout. +*.c text +*.h text +*.pas text +*.inc text +*.lpr text +*.lpi text +*.lps text +*.dpk text +*.dproj text +*.md text +*.txt text +COPYING text + +#Binary files +*.odt binary +*.pdf binary diff --git a/.gitignore b/.gitignore index 8df99b6..fac6171 100644 --- a/.gitignore +++ b/.gitignore @@ -1,42 +1,29 @@ + +# Created by https://www.gitignore.io/api/delphi +# Edit at https://www.gitignore.io/?templates=delphi + +### Delphi ### # Uncomment these types if you want even more clean repository. But be careful. # It can make harm to an existing project source. Read explanations below. # # Resource files are binaries containing manifest, project icon and version info. # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. #*.res -# # Type library file (binary). In old Delphi versions it should be stored. # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. #*.tlb -# # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. # Uncomment this if you are not using diagrams or use newer Delphi version. -#*.ddp -# +*.ddp # Visual LiveBindings file. Added in Delphi XE2. # Uncomment this if you are not using LiveBindings Designer. -#*.vlb -# +*.vlb # Deployment Manager configuration file for your project. Added in Delphi XE2. # Uncomment this if it is not mobile development and you do not use remote debug feature. -#*.deployproj -# +*.deployproj # C++ object files produced when C/C++ Output file generation is configured. # Uncomment this if you are not using external objects (zlib library for example). #*.obj -# - -# Default Delphi compiler directories -# Content of this directories are generated with each Compile/Construct of a project. -# Most of the time, files here have not there place in a code repository. -#Win32/ -#Win64/ -#OSX64/ -#OSXARM64/ -#Android/ -#Android64/ -#iOSDevice64/ -#Linux64/ # Delphi compiler-generated binaries (safe to delete) *.exe @@ -56,9 +43,10 @@ *.a *.o *.ocx +*.ppu +*.bak # Delphi autogenerated files (duplicated info) -*.cfg *.hpp *Resource.rc @@ -79,3 +67,10 @@ __recovery/ # Boss dependency manager vendor folder https://github.com/HashLoad/boss modules/ + +# End of https://www.gitignore.io/api/delphi + +#FPC autogenerated files +**/backup +**/units + diff --git a/IdCompilerDefines.inc b/IdCompilerDefines.inc deleted file mode 100644 index cc1bdd8..0000000 --- a/IdCompilerDefines.inc +++ /dev/null @@ -1,1154 +0,0 @@ -{$IFDEF CONDITIONALEXPRESSIONS} - // Must be at the top... - {$IF CompilerVersion >= 24.0} - {$LEGACYIFEND ON} - {$IFEND} -{$ENDIF} - -// General - -// Make this $DEFINE to use the 16 color icons required by Borland -// or DEFINE to use the 256 color Indy versions -{.$DEFINE Borland} - -// When generating C++Builder output files, certain workarounds to compiler -// problems need to be enabled! When invoking DCC on the command-line, use -// the -DBCB parameter. When invoking MSBUILD, include the DCC_Define="BCB" -// attribute in the /p parameter. -{$IFDEF BCB} - {$DEFINE CBUILDER} -{$ELSE} - {$DEFINE DELPHI} -{$ENDIF} - -{$UNDEF STATICLOAD_OPENSSL} - -// Make sure the following are $DEFINE'd only for Delphi/C++Builder 2009 onwards -// as specified further below. The VCL is fully Unicode, where the 'String' -// type maps to System.UnicodeString, not System.AnsiString anymore -{$UNDEF STRING_IS_UNICODE} -{$UNDEF STRING_IS_ANSI} - -// Make sure the following are $DEFINE'd only for suitable environments -// as specified further below. Delphi/C++Builder Mobile/NextGen compilers -// do not support Ansi data types anymore, and is moving away from raw -// pointers as well. -// -// UPDATE: in Delphi/C++Builder 10.4, all Ansi types are supported again on -// all platforms, including the mobile compilers. -{$DEFINE HAS_PAnsiChar} -{$UNDEF NO_ANSI_TYPES} - -// Make sure the following are $DEFINE'd only for suitable environments -// as specified further below. Delphi/C++Builder Mobile/NextGen compilers -// use ARC for TObject life time management. -// -// UPDATE: ARC for TObject lifetime management has been removed in -// Delphi/C++Builder 10.4 mobile compilers. All platforms now use a single -// unified memory management model! -{$UNDEF USE_MARSHALLED_PTRS} -{$UNDEF USE_OBJECT_ARC} - -//Define for Delphi cross-compiler targetting Posix -{$UNDEF USE_VCL_POSIX} - -// detect compiler versions - -{$IFNDEF FPC} - - // TODO: to detect features in Delphi/C++Builder v6 and later, use CompilerVersion - // and RTLVersion constants instead of VERXXX defines. We still support v5, which - // does not have such constants. - - // Delphi 4 - {$IFDEF VER120} - {$DEFINE DCC} - {$DEFINE VCL_40} - {$DEFINE DELPHI_4} - {$ENDIF} - - // C++Builder 4 - {$IFDEF VER125} - {$DEFINE DCC} - {$DEFINE VCL_40} - {$DEFINE CBUILDER_4} - {$ENDIF} - - // Delphi & C++Builder 5 - {$IFDEF VER130} - {$DEFINE DCC} - {$DEFINE VCL_50} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_5} - {$ELSE} - {$DEFINE DELPHI_5} - {$ENDIF} - {$ENDIF} - - //Delphi & C++Builder 6 - {$IFDEF VER140} - {$DEFINE DCC} - {$DEFINE VCL_60} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_6} - {$ELSE} - {$DEFINE DELPHI_6} - {$ENDIF} - {$ENDIF} - - //Delphi 7 - {$IFDEF VER150} - {$DEFINE DCC} - {$DEFINE VCL_70} - {$DEFINE DELPHI_7} // there was no C++ Builder 7 - {$ENDIF} - - //Delphi 8 - {$IFDEF VER160} - {$DEFINE DCC} - {$DEFINE VCL_80} - {$DEFINE DELPHI_8} // there was no C++ Builder 8 - {$ENDIF} - - //Delphi 2005 - {$IFDEF VER170} - {$DEFINE DCC} - {$DEFINE VCL_2005} - {$DEFINE DELPHI_2005} // there was no C++Builder 2005 - {$ENDIF} - - // NOTE: CodeGear decided to make Highlander be a non-breaking release - // (no interface changes, thus fully backwards compatible without any - // end user code changes), so VER180 applies to both BDS 2006 and - // Highlander prior to the release of RAD Studio 2007. Use VER185 to - // identify Highlanger specifically. - - //Delphi & C++Builder 2006 - //Delphi & C++Builder 2007 (Highlander) - {$IFDEF VER180} - {$DEFINE DCC} - {$DEFINE VCL_2006} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_2006} - {$ELSE} - {$DEFINE DELPHI_2006} - {$ENDIF} - {$ENDIF} - - //Delphi & C++Builder 2007 (Highlander) - {$IFDEF VER185} - {$DEFINE DCC} - {$UNDEF VCL_2006} - {$DEFINE VCL_2007} - {$IFDEF CBUILDER} - {$UNDEF CBUILDER_2006} - {$DEFINE CBUILDER_2007} - {$ELSE} - {$UNDEF DELPHI_2006} - {$DEFINE DELPHI_2007} - {$ENDIF} - {$ENDIF} - - // BDS 2007 NET personality uses VER190 instead of 185. - //Delphi .NET 2007 - {$IFDEF VER190} - {$DEFINE DCC} - {$IFDEF CIL} - //Delphi 2007 - {$DEFINE VCL_2007} - {$DEFINE DELPHI_2007} - {$ENDIF} - {$ENDIF} - - //Delphi & C++Builder 2009 (Tiburon) - {$IFDEF VER200} - {$DEFINE DCC} - {$DEFINE VCL_2009} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_2009} - {$ELSE} - {$DEFINE DELPHI_2009} - {$ENDIF} - {$ENDIF} - - //Delphi & C++Builder 2010 (Weaver) - {$IFDEF VER210} - {$DEFINE DCC} - {$DEFINE VCL_2010} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_2010} - {$ELSE} - {$DEFINE DELPHI_2010} - {$ENDIF} - {$ENDIF} - - //Delphi & C++Builder XE (Fulcrum) - {$IFDEF VER220} - //REMOVE DCC DEFINE after the next Fulcrum beta. - //It will be defined there. - {$IFNDEF DCC} - {$DEFINE DCC} - {$ENDIF} - {$DEFINE VCL_XE} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_XE} - {$ELSE} - {$DEFINE DELPHI_XE} - {$ENDIF} - {$ENDIF} - - // DCC is now defined by the Delphi compiler starting in XE2 - - //Delphi & CBuilder XE2 (Pulsar) - {$IFDEF VER230} - {$DEFINE VCL_XE2} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_XE2} - {$ELSE} - {$DEFINE DELPHI_XE2} - {$ENDIF} - {$ENDIF} - - //Delphi & CBuilder XE3 (Waterdragon) - //Delphi & CBuilder XE3.5 (Quintessence - early betas only) - {$IFDEF VER240} - {$DEFINE VCL_XE3} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_XE3} - {$ELSE} - {$DEFINE DELPHI_XE3} - {$ENDIF} - {$ENDIF} - - //Delphi & CBuilder XE4 (Quintessence) - {$IFDEF VER250} - {$UNDEF VCL_XE3} - {$DEFINE VCL_XE4} - {$IFDEF CBUILDER} - {$UNDEF CBUILDER_XE3} - {$DEFINE CBUILDER_XE4} - {$ELSE} - {$UNDEF DELPHI_XE3} - {$DEFINE DELPHI_XE4} - {$ENDIF} - {$ENDIF} - - //Delphi & CBuilder XE5 (Zephyr) - {$IFDEF VER260} - {$DEFINE VCL_XE5} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_XE5} - {$ELSE} - {$DEFINE DELPHI_XE5} - {$ENDIF} - {$ENDIF} - - //Delphi & CBuilder AppMethod - //AppMethod is just XE5 for mobile only, VCL is removed - {$IFDEF VER265} - {$DEFINE VCL_XE5} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_XE5} - {$ELSE} - {$DEFINE DELPHI_XE5} - {$ENDIF} - {$ENDIF} - - //Delphi & CBuilder XE6 (Proteus) - {$IFDEF VER270} - {$DEFINE VCL_XE6} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_XE6} - {$ELSE} - {$DEFINE DELPHI_XE6} - {$ENDIF} - {$ENDIF} - - //Delphi & CBuilder XE7 (Carpathia) - {$IFDEF VER280} - {$DEFINE VCL_XE7} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_XE7} - {$ELSE} - {$DEFINE DELPHI_XE7} - {$ENDIF} - {$ENDIF} - - //Delphi & CBuilder XE8 (Elbrus) - {$IFDEF VER290} - {$DEFINE VCL_XE8} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_XE8} - {$ELSE} - {$DEFINE DELPHI_XE8} - {$ENDIF} - {$ENDIF} - - //Delphi & CBuilder 10.0 Seattle (Aitana) - {$IFDEF VER300} - {$DEFINE VCL_10_0} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_VCL_10_0} - {$ELSE} - {$DEFINE DELPHI_VCL_10_0} - {$ENDIF} - {$ENDIF} - - //Delphi & CBuilder 10.1 Berlin (BigBen) - {$IFDEF VER310} - {$DEFINE VCL_10_1} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_10_1} - {$ELSE} - {$DEFINE DELPHI_10_1} - {$ENDIF} - {$ENDIF} - - //Delphi & CBuilder 10.2 Tokyo (Godzilla) - {$IFDEF VER320} - {$DEFINE VCL_10_2} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_10_2} - {$ELSE} - {$DEFINE DELPHI_10_2} - {$ENDIF} - {$ENDIF} - - //Delphi & CBuilder 10.3 Rio (Carnival) - {$IFDEF VER330} - {$DEFINE VCL_10_3} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_10_3} - {$ELSE} - {$DEFINE DELPHI_10_3} - {$ENDIF} - {$ENDIF} - - //Delphi & CBuilder 10.4 Sydney (Denali) - {$IFDEF VER340} - {$DEFINE VCL_10_4} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_10_4} - {$ELSE} - {$DEFINE DELPHI_10_4} - {$ENDIF} - {$ENDIF} - - //Delphi & CBuilder 11.0 Alexandria (Olympus) - {$IFDEF VER350} - {$DEFINE VCL_11} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_11} - {$ELSE} - {$DEFINE DELPHI_11} - {$ENDIF} - {$ENDIF} - - //Delphi & CBuilder 12.0 Athens (Yukon) - {$IFDEF VER360} - {$DEFINE VCL_12} - {$IFDEF CBUILDER} - {$DEFINE CBUILDER_12} - {$ELSE} - {$DEFINE DELPHI_12} - {$ENDIF} - {$ENDIF} - - // Kylix - // - //Important: Don't use CompilerVersion here as IF's are evaluated before - //IFDEF's and Kylix 1 does not have CompilerVersion defined at all. - {$IFDEF LINUX} - {$DEFINE UNIX} - {$IFDEF CONDITIONALEXPRESSIONS} - {$IF (RTLVersion >= 14.0) and (RTLVersion <= 14.5) } - {$DEFINE KYLIX} - {$IF RTLVersion = 14.5} - {$DEFINE KYLIX_3} - {$ELSEIF RTLVersion >= 14.2} - {$DEFINE KYLIX_2} - {$ELSE} - {$DEFINE KYLIX_1} - {$IFEND} - {$IFEND} - {$ENDIF} - {$ENDIF} - -{$ENDIF} - -// Delphi.NET -// Covers D8+ -{$IFDEF CIL} - // Platform specific conditional. Used for platform specific code. - {$DEFINE DOTNET} - {$DEFINE STRING_IS_UNICODE} -{$ENDIF} - -{$IFDEF KYLIX} - {$DEFINE VCL_60} - {$DEFINE CPUI386} - {$UNDEF USE_BASEUNIX} - - {$IFDEF KYLIX_3} - {$DEFINE KYLIX_3_OR_ABOVE} - {$ENDIF} - - {$IFDEF KYLIX_3_OR_ABOVE} - {$DEFINE KYLIX_2_OR_ABOVE} - {$ELSE} - {$IFDEF KYLIX_2} - {$DEFINE KYLIX_2_OR_ABOVE} - {$ENDIF} - {$ENDIF} - - {$IFDEF KYLIX_2_OR_ABOVE} - {$DEFINE KYLIX_1_OR_ABOVE} - {$ELSE} - {$IFDEF KYLIX_1} - {$DEFINE KYLIX_1_OR_ABOVE} - {$ENDIF} - {$ENDIF} - - {$IFNDEF KYLIX_3_OR_ABOVE} - {$DEFINE KYLIXCOMPAT} - {$ENDIF} -{$ENDIF} - -// FPC (2+) - -{$IFDEF FPC} - // TODO: In FreePascal 4.2.0+, a Delphi-like UnicodeString type is supported. - // However, String/(P)Char do not map to UnicodeString/(P)WideChar unless - // either {$MODE DelphiUnicode} or {$MODESWITCH UnicodeStrings} is used. - // We should consider enabling one of them so Indy uses the same Unicode logic - // in Delphi 2009+ and FreePascal 4.2.0+ and reduces IFDEFs (in particular, - // STRING_UNICODE_MISMATCH, see further below). However, FreePascal's RTL - // is largely not UnicodeString-enabled yet. Maybe we should enable - // {$MODE DelphiUnicode} anyway, and then deal with any RTL function issues - // on an as-needed basis... - {$MODE Delphi} - {$IFDEF FPC_2_7_1_OR_ABOVE} - {.$MODE DelphiUnicode} - {.$MODESWITCH UnicodeStrings} - {.$CODEPAGE UTF8} // needed for Unicode string literals to work properly - {$ENDIF} - //note that we may need further defines for widget types depending on - //what we do and what platforms we support in FPC. - //I'll let Marco think about that one. - {$IFDEF UNIX} - {$DEFINE USE_BASEUNIX} - {$IFDEF LINUX} - //In Linux for I386, you can choose between a Kylix-libc API or - //the standard RTL Unix API. Just pass -dKYLIXCOMPAT to the FPC compiler. - //I will see what I can do about the Makefile. - {$IFDEF KYLIXCOMPAT} - {$IFDEF CPUI386} - {$UNDEF USE_BASEUNIX} - {$ENDIF} - {$ENDIF} - {$ENDIF} - {$IFDEF USE_BASEUNIX} - {$UNDEF KYLIXCOMPAT} - {$ENDIF} - {$ENDIF} - - // FPC_FULLVERSION was added in FPC 2.2.4 - // Have to use Defined() or else Delphi compiler chokes, since it - // evaluates $IF statements before $IFDEF statements... - - {$MACRO ON} // must be on in order to use versioning macros - {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 30101)} - {$DEFINE FPC_3_1_1_OR_ABOVE} - {$IFEND} - {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 30000)} - {$DEFINE FPC_3_0_0_OR_ABOVE} - {$IFEND} - {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20701)} - {$DEFINE FPC_2_7_1_OR_ABOVE} - {$IFEND} - {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20604)} - {$DEFINE FPC_2_6_4_OR_ABOVE} - {$IFEND} - {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20602)} - {$DEFINE FPC_2_6_2_OR_ABOVE} - {$IFEND} - {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20600)} - {$DEFINE FPC_2_6_0_OR_ABOVE} - {$IFEND} - {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20404)} - {$DEFINE FPC_2_4_4_OR_ABOVE} - {$IFEND} - {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20402)} - {$DEFINE FPC_2_4_2_OR_ABOVE} - {$IFEND} - {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20400)} - {$DEFINE FPC_2_4_0_OR_ABOVE} - {$IFEND} - {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20204)} - {$DEFINE FPC_2_2_4_OR_ABOVE} - {$IFEND} - {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20202)} - {$DEFINE FPC_2_2_2_OR_ABOVE} - {$IFEND} - {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20105)} - {$DEFINE FPC_2_1_5_OR_ABOVE} - {$IFEND} - - // just in case - {$IFDEF FPC_3_1_1} - {$DEFINE FPC_3_1_1_OR_ABOVE} - {$ENDIF} - {$IFDEF FPC_3_0_0} - {$DEFINE FPC_3_0_0_OR_ABOVE} - {$ENDIF} - {$IFDEF FPC_2_7_1} - {$DEFINE FPC_2_7_1_OR_ABOVE} - {$ENDIF} - {$IFDEF FPC_2_6_4} - {$DEFINE FPC_2_6_4_OR_ABOVE} - {$ENDIF} - {$IFDEF FPC_2_6_2} - {$DEFINE FPC_2_6_2_OR_ABOVE} - {$ENDIF} - {$IFDEF FPC_2_6_0} - {$DEFINE FPC_2_6_0_OR_ABOVE} - {$ENDIF} - {$IFDEF FPC_2_4_4} - {$DEFINE FPC_2_4_4_OR_ABOVE} - {$ENDIF} - {$IFDEF FPC_2_4_2} - {$DEFINE FPC_2_4_2_OR_ABOVE} - {$ENDIF} - {$IFDEF FPC_2_4_0} - {$DEFINE FPC_2_4_0_OR_ABOVE} - {$ENDIF} - {$IFDEF FPC_2_2_4} - {$DEFINE FPC_2_2_4_OR_ABOVE} - {$ENDIF} - {$IFDEF FPC_2_2_2} - {$DEFINE FPC_2_2_2_OR_ABOVE} - {$ENDIF} - {$IFDEF FPC_2_1_5} - {$DEFINE FPC_2_1_5_OR_ABOVE} - {$ENDIF} - - {$IFDEF FPC_3_1_1_OR_ABOVE} - {$DEFINE FPC_3_0_0_OR_ABOVE} - {$ELSE} - {$IFDEF FPC_3_0_0} - {$DEFINE FPC_3_0_0_OR_ABOVE} - {$ENDIF} - {$ENDIF} - - {$IFDEF FPC_3_0_0_OR_ABOVE} - {$DEFINE FPC_2_7_1_OR_ABOVE} - {$ELSE} - {$IFDEF FPC_2_7_1} - {$DEFINE FPC_2_7_1_OR_ABOVE} - {$ENDIF} - {$ENDIF} - - {$IFDEF FPC_2_7_1_OR_ABOVE} - {$DEFINE FPC_2_6_4_OR_ABOVE} - {$ELSE} - {$IFDEF FPC_2_6_4} - {$DEFINE FPC_2_6_4_OR_ABOVE} - {$ENDIF} - {$ENDIF} - - {$IFDEF FPC_2_6_4_OR_ABOVE} - {$DEFINE FPC_2_6_2_OR_ABOVE} - {$ELSE} - {$IFDEF FPC_2_6_2} - {$DEFINE FPC_2_6_2_OR_ABOVE} - {$ENDIF} - {$ENDIF} - - {$IFDEF FPC_2_6_2_OR_ABOVE} - {$DEFINE FPC_2_6_0_OR_ABOVE} - {$ELSE} - {$IFDEF FPC_2_6_0} - {$DEFINE FPC_2_6_0_OR_ABOVE} - {$ENDIF} - {$ENDIF} - - {$IFDEF FPC_2_6_0_OR_ABOVE} - {$DEFINE FPC_2_4_4_OR_ABOVE} - {$ELSE} - {$IFDEF FPC_2_4_4} - {$DEFINE FPC_2_4_4_OR_ABOVE} - {$ENDIF} - {$ENDIF} - - {$IFDEF FPC_2_4_4_OR_ABOVE} - {$DEFINE FPC_2_4_2_OR_ABOVE} - {$ELSE} - {$IFDEF FPC_2_4_2} - {$DEFINE FPC_2_4_2_OR_ABOVE} - {$ENDIF} - {$ENDIF} - - {$IFDEF FPC_2_4_2_OR_ABOVE} - {$DEFINE FPC_2_4_0_OR_ABOVE} - {$ELSE} - {$IFDEF FPC_2_4_0} - {$DEFINE FPC_2_4_0_OR_ABOVE} - {$ENDIF} - {$ENDIF} - - {$IFDEF FPC_2_4_0_OR_ABOVE} - {$DEFINE FPC_2_2_4_OR_ABOVE} - {$ELSE} - {$IFDEF FPC_2_2_4} - {$DEFINE FPC_2_2_4_OR_ABOVE} - {$ENDIF} - {$ENDIF} - - {$IFDEF FPC_2_2_4_OR_ABOVE} - {$DEFINE FPC_2_2_2_OR_ABOVE} - {$ELSE} - {$IFDEF FPC_2_2_2} - {$DEFINE FPC_2_2_2_OR_ABOVE} - {$ENDIF} - {$ENDIF} - - {$IFDEF FPC_2_2_2_OR_ABOVE} - {$DEFINE FPC_2_2_0_OR_ABOVE} - {$ELSE} - {$IFDEF VER2_2} - {$DEFINE FPC_2_2_0_OR_ABOVE} - {$ENDIF} - {$ENDIF} - - {$IFDEF FPC_2_2_0_OR_ABOVE} - {$DEFINE FPC_2_1_5_OR_ABOVE} - {$ELSE} - {$IFDEF FPC_2_1_5} - {$DEFINE FPC_2_1_5_OR_ABOVE} - {$ENDIF} - {$ENDIF} - - {.$IFDEF FPC_2_7_1_OR_ABOVE} - // support for RawByteString and UnicodeString - {.$DEFINE VCL_2009} - {.$DEFINE DELPHI_2009} - {.$ELSE} - {$DEFINE VCL_70} - {$DEFINE DELPHI_7} - {.$ENDIF} -{$ENDIF} - -// end FPC - -{$IFDEF VCL_12} - {$DEFINE VCL_12_OR_ABOVE} -{$ENDIF} - -{$IFDEF VCL_12_OR_ABOVE} - {$DEFINE VCL_11_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_11} - {$DEFINE VCL_11_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_11_OR_ABOVE} - {$DEFINE VCL_10_4_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_10_4} - {$DEFINE VCL_10_4_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_10_4_OR_ABOVE} - {$DEFINE VCL_10_3_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_10_3} - {$DEFINE VCL_10_3_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_10_3_OR_ABOVE} - {$DEFINE VCL_10_2_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_10_2} - {$DEFINE VCL_10_2_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_10_2_OR_ABOVE} - {$DEFINE VCL_10_1_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_10_1} - {$DEFINE VCL_10_1_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_10_1_OR_ABOVE} - {$DEFINE VCL_10_0_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_10_0} - {$DEFINE VCL_10_0_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_10_0_OR_ABOVE} - {$DEFINE VCL_XE8_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_XE8} - {$DEFINE VCL_XE8_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_XE8_OR_ABOVE} - {$DEFINE VCL_XE7_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_XE7} - {$DEFINE VCL_XE7_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_XE7_OR_ABOVE} - {$DEFINE VCL_XE6_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_XE6} - {$DEFINE VCL_XE6_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_XE6_OR_ABOVE} - {$DEFINE VCL_XE5_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_XE5} - {$DEFINE VCL_XE5_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_XE5_OR_ABOVE} - {$DEFINE VCL_XE4_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_XE4} - {$DEFINE VCL_XE4_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_XE4_OR_ABOVE} - {$DEFINE VCL_XE3_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_XE3} - {$DEFINE VCL_XE3_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_XE3_OR_ABOVE} - {$DEFINE VCL_XE2_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_XE2} - {$DEFINE VCL_XE2_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_XE2_OR_ABOVE} - {$DEFINE VCL_XE_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_XE} - {$DEFINE VCL_XE_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_XE_OR_ABOVE} - {$DEFINE VCL_2010_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_2010} - {$DEFINE VCL_2010_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_2010_OR_ABOVE} - {$DEFINE VCL_2009_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_2009} - {$DEFINE VCL_2009_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_2009_OR_ABOVE} - {$DEFINE VCL_2007_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_2007} - {$DEFINE VCL_2007_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_2007_OR_ABOVE} - {$DEFINE VCL_2006_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_2006} - {$DEFINE VCL_2006_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_2006_OR_ABOVE} - {$DEFINE VCL_2005_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_2005} - {$DEFINE VCL_2005_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_2005_OR_ABOVE} - {$DEFINE VCL_8_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_80} - {$DEFINE VCL_8_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_8_OR_ABOVE} - {$DEFINE VCL_7_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_70} - {$DEFINE VCL_7_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_7_OR_ABOVE} - {$DEFINE VCL_6_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_60} - {$DEFINE VCL_6_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_6_OR_ABOVE} - {$DEFINE VCL_5_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_50} - {$DEFINE VCL_5_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_5_OR_ABOVE} - {$DEFINE VCL_4_OR_ABOVE} -{$ELSE} - {$IFDEF VCL_40} - {$DEFINE VCL_4_OR_ABOVE} - {$ENDIF} -{$ENDIF} - -// Normalize Delphi compiler defines to match FPC for consistency: -// -// CPU32 - any 32-bit CPU -// CPU64 - any 64-bit CPU -// WINDOWS - any Windows platform (32-bit, 64-bit, CE) -// WIN32 - Windows 32-bit -// WIN64 - Windows 64-bit -// WINCE - Windows CE -// -// Consult the "Free Pascal Programmer's Guide", Appendix G for the complete -// list of defines that are used. Do not work on this unless you understand -// what the FreePascal developers are doing. Not only do you have to -// descriminate with operating systems, but also with chip architectures -// are well. -// -// DCC Pulsar+ define the following values: -// ASSEMBLER -// DCC -// CONDITIONALEXPRESSIONS -// NATIVECODE -// UNICODE -// MACOS -// MACOS32 -// MACOS64 -// MSWINDOWS -// WIN32 -// WIN64 -// LINUX -// POSIX -// POSIX32 -// CPU386 -// CPUX86 -// CPUX64 -// -// Kylix defines the following values: -// LINUX -// (others??) -// - -{$IFNDEF FPC} - // TODO: We need to use ENDIAN_BIG for big endian chip architectures, - // such as 680x0, PowerPC, Sparc, and MIPS, once DCC supports them, - // provided it does not already define its own ENDIAN values by then... - {$DEFINE ENDIAN_LITTLE} - {$IFNDEF VCL_6_OR_ABOVE} - {$DEFINE MSWINDOWS} - {$ENDIF} - {$IFDEF MSWINDOWS} - {$DEFINE WINDOWS} - {$ENDIF} - // TODO: map Pulsar's non-Windows platform defines... - {$IFDEF VCL_XE2_OR_ABOVE} - {$IFDEF VCL_XE8_OR_ABOVE} - {$IFDEF CPU32BITS} - //any 32-bit CPU - {$DEFINE CPU32} - {$ENDIF} - {$IFDEF CPU64BITS} - {$DEFINE CPU64} - {$ENDIF} - {$ELSE} - {$IFDEF CPU386} - //any 32-bit CPU - {$DEFINE CPU32} - //Intel 386 compatible chip architecture - {$DEFINE CPUI386} - {$ENDIF} - {$IFDEF CPUX86} - {$DEFINE CPU32} - {$ENDIF} - {$IFDEF CPUX64} - //any 64-bit CPU - {$DEFINE CPU64} - //AMD64 compatible chip architecture - {$DEFINE CPUX86_64} //historical name for AMD64 - {$DEFINE CPUAMD64} - {$ENDIF} - {$ENDIF} - {$ELSE} - {$IFNDEF DOTNET} - {$IFNDEF KYLIX} - {$DEFINE I386} - {$ENDIF} - {$ENDIF} - {$DEFINE CPU32} - {$ENDIF} -{$ENDIF} - -{$IFDEF DOTNET} - //differences in DotNET Framework versions. - {$IFDEF VCL_2007_OR_ABOVE} - {$DEFINE DOTNET_2} - {$DEFINE DOTNET_2_OR_ABOVE} - {$ELSE} - {$DEFINE DOTNET_1_1} - {$ENDIF} - {$DEFINE DOTNET_1_1_OR_ABOVE} - // Extra include used in D7 for testing. Remove later when all comps are - // ported. Used to selectively exclude non ported parts. Allowed in places - // IFDEFs are otherwise not permitted. - {$DEFINE DOTNET_EXCLUDE} -{$ENDIF} - -// Check for available features - -{$IFDEF VCL_6_OR_ABOVE} - {$DEFINE HAS_PPointer} - {$IFNDEF FPC} - {$DEFINE HAS_TSelectionEditor} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_2006_OR_ABOVE} - {$DEFINE USE_INLINE} -{$ENDIF} - -{$IFDEF VCL_2009_OR_ABOVE} - {$IFNDEF DOTNET} - {$DEFINE STRING_IS_UNICODE} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_XE3_OR_ABOVE} - {$DEFINE HAS_DIRECTIVE_ZEROBASEDSTRINGS} - {$IFDEF NEXTGEN} - {$DEFINE DCC_NEXTGEN} - {$DEFINE USE_MARSHALLED_PTRS} - {$IFDEF AUTOREFCOUNT} - {$DEFINE USE_OBJECT_ARC} - {$ENDIF} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_XE5_UPDATE2_OR_ABOVE} - {$DEFINE HAS_DIRECTIVE_HPPEMIT_LINKUNIT} - {$DEFINE HAS_DIRECTIVE_HPPEMIT_NAMESPACE} -{$ENDIF} - -{$IFDEF VCL_10_2_OR_ABOVE} - {.$WARN IMPLICIT_INTEGER_CAST_LOSS OFF} - {.$WARN IMPLICIT_CONVERSION_LOSS OFF} - {.$WARN COMBINING_SIGNED_UNSIGNED64 OFF} -{$ENDIF} - -{$IFDEF VCL_10_4_OR_ABOVE} - // 0-based string indexing via '[]' is turned off by default in Delphi 10.4. - // TStringHelper is always 0-indexed, flat RTL functions are always 1-indexed, - // and now '[]' is 1-indexed again on all platforms - {$ZEROBASEDSTRINGS OFF} - // is the default. - {.$UNDEF HAS_DIRECTIVE_ZEROBASEDSTRINGS} -{$ENDIF} - -// Delphi XE+ cross-compiling -{$IFNDEF FPC} - {$IFDEF POSIX} - {$IF RTLVersion >= 22.0} - {$DEFINE UNIX} - {$UNDEF USE_BASEUNIX} - {$DEFINE VCL_CROSS_COMPILE} - {$DEFINE USE_VCL_POSIX} - {$IFEND} - {$ENDIF} - {$IFDEF LINUX} - {$IFDEF CONDITIONALEXPRESSIONS} - {$IF RTLVersion >= 22.0} - {$DEFINE VCL_CROSS_COMPILE} - {$DEFINE USE_VCL_POSIX} - {$IFEND} - {$ENDIF} - {$ENDIF} -{$ENDIF} - -{$IFDEF VCL_CROSS_COMPILE} - {$UNDEF KYLIXCOMPAT} -{$ELSE} - {$IFDEF KYLIXCOMPAT} - {$linklib c} - {$ENDIF} -{$ENDIF} - -{$IFDEF FPC} - {$DEFINE USE_INLINE} - {$IFDEF FPC_UNICODESTRINGS} - {$DEFINE STRING_IS_UNICODE} - {$ENDIF} -{$ENDIF} - -// .NET and Delphi 2009+ support UNICODE strings natively! -// -// NOTE: Do not define UNICODE here. The compiler defines -// the symbol automatically. -{$IFNDEF STRING_IS_UNICODE} - {$DEFINE STRING_IS_ANSI} -{$ENDIF} - -{$IFDEF DCC_NEXTGEN} - {$DEFINE NO_ANSI_TYPES} - {$IFDEF USE_OBJECT_ARC} - // TODO: move these to an appropriate section. Not doing this yet because - // it is a major interface change to switch to Generics and we should - // maintain backwards compatibility with earlier compilers for the time - // being. Defining them only here for now because the non-Generic versions - // of these classes have become deprecated by ARC and so we need to start - // taking advantage of the Generics versions... - {$DEFINE HAS_UNIT_Generics_Collections} - {$DEFINE HAS_GENERICS_TList} - {$DEFINE HAS_GENERICS_TThreadList} - {$ENDIF} -{$ENDIF} - -// TODO: Ansi data types were disabled on mobile platforms in XE3, but -// UTF8String and RawByteString were re-enabled in 10.1 Berlin! What else, -// if anything, was re-enabled to facilitate that? -// -// UPDATE: In 10.4 Sydney, AnsiChar and AnsiString were re-enabled on -// mobile platforms! NEXTGEN is no longer defined in the mobile compilers. -{$IFDEF NO_ANSI_TYPES} - {$UNDEF HAS_PAnsiChar} -{$ENDIF} - -{$IFDEF WIN32} - {$DEFINE WIN32_OR_WIN64} -{$ENDIF} -{$IFDEF WIN64} - {$DEFINE WIN32_OR_WIN64} -{$ENDIF} - -{$IFDEF IOS} - // Support for 64-bit ARM iOS Simulator was added in Delphi 11.2 - // TODO: how to detect iOS Simulator in FPC? Does it support 64-bit ARM? - {$IFDEF CPUARM} - {$IFNDEF IOSSIMULATOR} - // RLebeau: For iOS devices, OpenSSL cannot be used as an external library, - // it must be statically linked into the app. For the iOS simulator, this - // is not true. Users who want to use OpenSSL in iOS device apps will need - // to add the static OpenSSL library to the project and then include the - // IdSSLOpenSSLHeaders_static unit in their uses clause. It hooks up the - // statically linked functions for the IdSSLOpenSSLHeaders unit to use... - {$DEFINE STATICLOAD_OPENSSL} - {$ENDIF} - {$ENDIF} -{$ENDIF} - -{$UNDEF USE_INVALIDATE_MOD_CACHE} -//This must come after the iconv defines because this compiler targets a Unix-like -//operating system. One key difference is that it does have a TEncoding class. -//If this comes before the ICONV defines, it creates problems. -//This also must go before the THandle size calculations. -{$IFDEF VCL_CROSS_COMPILE} - {$IFDEF POSIX} - {$IFNDEF LINUX} - {$DEFINE BSD} - {$ENDIF} - {$DEFINE USE_INVALIDATE_MOD_CACHE} - {$ENDIF} -{$ENDIF} - -//IMPORTANT!!!! -// -//Do not remove this!!! This is to work around a conflict. In DCC, MACOS -//will mean OS X. In FreePascal, the DEFINE MACOS means MacIntosh System OS Classic. -{$IFDEF DCC} - // DCC defines MACOS for both iOS and OS X platforms, need to differentiate - {$IFDEF MACOS} - {$IFNDEF IOS} - {$DEFINE OSX} - {$DEFINE DARWIN} - {$ENDIF} - {$ENDIF} -{$ENDIF} -{$IFDEF FPC} - // FPC defines DARWIN for both OSX and iOS, need to differentiate - {$IFDEF DARWIN} - {$IFNDEF IOS} - {$DEFINE OSX} - {$ENDIF} - {$ENDIF} - {$IFDEF MACOS} - {$DEFINE MACOS_CLASSIC} - {$ENDIF} -{$ENDIF} - -{$IFDEF BSD} - //I think BSD might handle FreeBSD, NetBSD, OpenBSD, and Darwin - {$IFDEF IOS} - {$IFDEF CPUARM64} - {$DEFINE CPU64} - {$ELSE} - {$IFDEF CPUARM32} - {$DEFINE CPU32} - {$ENDIF} - {$ENDIF} - {$ENDIF} -{$ENDIF} -{$IFDEF LINUX} - {$IFDEF LINUX64} - {$DEFINE CPU64} - {$ELSE} - {$IFDEF LINUX32} - {$DEFINE CPU32} - {$ENDIF} - {$ENDIF} -{$ENDIF} - -{end Unix OS specific stuff} - -{$IFDEF DEBUG} - {$UNDEF USE_INLINE} -{$ENDIF} - -// RLebeau 9/5/2013: it would take a lot of work to re-write Indy to support -// both 0-based and 1-based string indexing, so we'll just turn off 0-based -// indexing for now... -{$IFDEF HAS_DIRECTIVE_ZEROBASEDSTRINGS} - {$ZEROBASEDSTRINGS OFF} -{$ENDIF} diff --git a/IdResourceStringsOpenSSL.pas b/IdResourceStringsOpenSSL.pas deleted file mode 100644 index b6bc296..0000000 --- a/IdResourceStringsOpenSSL.pas +++ /dev/null @@ -1,35 +0,0 @@ -unit IdResourceStringsOpenSSL; - -interface - -resourcestring - {IdOpenSSL} - RSOSSFailedToLoad = 'Failed to load %s.'; - RSOSSFailedToLoad_WithErrCode = 'Failed to load %s (error #%d).'; - RSOSSMissingExport_WithErrCode = '%s (error #%d)'; - RSOSSUnsupportedVersion = 'Unsupported SSL Library version: %.8x.'; - RSOSSUnsupportedLibrary = 'Unsupported SSL Library: %s.'; - RSOSSLModeNotSet = 'Mode has not been set.'; - RSOSSLCouldNotLoadSSLLibrary = 'Could not load SSL library.'; - RSOSSLStatusString = 'SSL status: "%s"'; - RSOSSLConnectionDropped = 'SSL connection has dropped.'; - RSOSSLCertificateLookup = 'SSL certificate request error.'; - RSOSSLInternal = 'SSL library internal error.'; - //callback where strings - RSOSSLAlert = '%s Alert'; - RSOSSLReadAlert = '%s Read Alert'; - RSOSSLWriteAlert = '%s Write Alert'; - RSOSSLAcceptLoop = 'Accept Loop'; - RSOSSLAcceptError = 'Accept Error'; - RSOSSLAcceptFailed = 'Accept Failed'; - RSOSSLAcceptExit = 'Accept Exit'; - RSOSSLConnectLoop = 'Connect Loop'; - RSOSSLConnectError = 'Connect Error'; - RSOSSLConnectFailed = 'Connect Failed'; - RSOSSLConnectExit = 'Connect Exit'; - RSOSSLHandshakeStart = 'Handshake Start'; - RSOSSLHandshakeDone = 'Handshake Done'; - -implementation - -end. diff --git a/IdSSLOpenSSL.pas b/IdSSLOpenSSL.pas deleted file mode 100644 index f63d4bb..0000000 --- a/IdSSLOpenSSL.pas +++ /dev/null @@ -1,4154 +0,0 @@ -{ - This file is part of the Indy (Internet Direct) project, and is offered - under the dual-licensing agreement described on the Indy website. - (http://www.indyproject.org/) - - Copyright: - (c) 1993-2024, Chad Z. Hower and the Indy Pit Crew. All rights reserved. -} -unit IdSSLOpenSSL; -{ - Author: Gregor Ibic (gregor.ibic@intelicom.si) - Copyright: (c) Gregor Ibic, Intelicom d.o.o and Indy Working Group. -} - -{ - Indy OpenSSL now uses the standard OpenSSL libraries - for pre-compiled win32 dlls, see: - http://www.openssl.org/related/binaries.html - recommended v0.9.8a or later -} - -{ - Important information concerning OnVerifyPeer: - Rev 1.39 of February 2005 deliberately broke the OnVerifyPeer interface, - which (obviously?) only affects programs that implemented that callback - as part of the SSL negotiation. Note that you really should always - implement OnVerifyPeer, otherwise the certificate of the peer you are - connecting to is NOT checked to ensure it is valid. - - Prior to this, if the SSL library detected a problem with a certificate - or the Depth was insufficient (i.e. the "Ok" parameter in VerifyCallback - is 0 / FALSE), then irrespective of whether your OnVerifyPeer returned True - or False, the SSL connection would be deliberately failed. - - This created a problem in that even if there was only a very minor - problem with one of the certificates in the chain (OnVerifyPeer is called - once for each certificate in the certificate chain), which the user may - have been happy to accept, the SSL negotiation would be failed. However, - changing the code to allow the SSL connection when a user returned True - for OnVerifyPeer would have meant that existing code which depended on - automatic rejection of invalid certificates would then be accepting - invalid certificates, which would have been an unacceptable security - change. - - Consequently, OnVerifyPeer was changed to deliberately break existing code - by adding an AOk parameter. To preserve the previous functionality, your - OnVerifyPeer event should do "Result := AOk;". If you wish to consider - accepting certificates that the SSL library has considered invalid, then - in your OnVerifyPeer, make sure you satisfy yourself that the certificate - really is valid and then set Result to True. In reality, in addition to - checking AOk, you should always implement code that ensures you are only - accepting certificates which are valid (at least from your point of view). - - Ciaran Costelloe, ccostelloe@flogas.ie -} -{ -RLebeau 1/12/2011: Breaking OnVerifyPeer event again, this time to add an -additional AError parameter (patch courtesy of "jvlad", dmda@yandex.ru). -This helps user code distinquish between Self-signed and invalid certificates. -} - -interface - -{$I IdCompilerDefines.inc} - -{$TYPEDADDRESS OFF} - -uses - //facilitate inlining only. - {$IFDEF WINDOWS} - Windows, - {$ENDIF} - Classes, - IdBuffer, - IdCTypes, - IdGlobal, - IdException, - IdStackConsts, - IdSocketHandle, - IdSSLOpenSSLHeaders, - IdComponent, - IdIOHandler, - IdGlobalProtocols, - IdTCPServer, - IdThread, - IdTCPConnection, - IdIntercept, - IdIOHandlerSocket, - IdSSL, - IdSocks, - IdScheduler, - IdYarn; - -type - TIdSSLVersion = (sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1,sslvTLSv1_1,sslvTLSv1_2); - TIdSSLVersions = set of TIdSSLVersion; - TIdSSLMode = (sslmUnassigned, sslmClient, sslmServer, sslmBoth); - TIdSSLVerifyMode = (sslvrfPeer, sslvrfFailIfNoPeerCert, sslvrfClientOnce); - TIdSSLVerifyModeSet = set of TIdSSLVerifyMode; - TIdSSLCtxMode = (sslCtxClient, sslCtxServer); - TIdSSLAction = (sslRead, sslWrite); - -const - DEF_SSLVERSION = sslvTLSv1; - DEF_SSLVERSIONS = [sslvTLSv1]; - P12_FILETYPE = 3; - MAX_SSL_PASSWORD_LENGTH = 128; - -type - TIdSSLULong = packed record - case Byte of - 0: (B1, B2, B3, B4: UInt8); - 1: (W1, W2: UInt16); - 2: (L1: Int32); - 3: (C1: UInt32); - end; - - TIdSSLEVP_MD = record - Length: TIdC_UINT; - MD: Array [0 .. EVP_MAX_MD_SIZE - 1] of TIdAnsiChar; - end; - - TIdSSLByteArray = record - Length: TIdC_UINT; - Data: PByte; - end; - - TIdX509 = class; - TIdSSLIOHandlerSocketOpenSSL = class; - TIdSSLCipher = class; - TCallbackEvent = procedure(const AMsg: String) of object; - TCallbackExEvent = procedure(ASender : TObject; const AsslSocket: PSSL; - const AWhere, Aret: TIdC_INT; const AType, AMsg : String ) of object; - TPasswordEvent = procedure(var Password: String) of object; - TPasswordEventEx = procedure( ASender : TObject; var VPassword: String; const AIsWrite : Boolean) of object; - TVerifyPeerEvent = function(Certificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean of object; - TIOHandlerNotify = procedure(ASender: TIdSSLIOHandlerSocketOpenSSL) of object; - - TIdSSLOptions = class(TPersistent) - protected - fsRootCertFile, - fsCertFile, - fsKeyFile, - fsDHParamsFile: String; - fMethod: TIdSSLVersion; - fSSLVersions : TIdSSLVersions; - fMode: TIdSSLMode; - fVerifyDepth: Integer; - fVerifyMode: TIdSSLVerifyModeSet; - //fVerifyFile, - fVerifyDirs: String; - fCipherList: String; - procedure AssignTo(Destination: TPersistent); override; - procedure SetSSLVersions(const AValue : TIdSSLVersions); - procedure SetMethod(const AValue : TIdSSLVersion); - public - constructor Create; - // procedure Assign(ASource: TPersistent); override; - published - property RootCertFile: String read fsRootCertFile write fsRootCertFile; - property CertFile: String read fsCertFile write fsCertFile; - property KeyFile: String read fsKeyFile write fsKeyFile; - property DHParamsFile: String read fsDHParamsFile write fsDHParamsFile; - property Method: TIdSSLVersion read fMethod write SetMethod default DEF_SSLVERSION; - property SSLVersions : TIdSSLVersions read fSSLVersions write SetSSLVersions default DEF_SSLVERSIONS; - property Mode: TIdSSLMode read fMode write fMode; - property VerifyMode: TIdSSLVerifyModeSet read fVerifyMode write fVerifyMode; - property VerifyDepth: Integer read fVerifyDepth write fVerifyDepth; -// property VerifyFile: String read fVerifyFile write fVerifyFile; - property VerifyDirs: String read fVerifyDirs write fVerifyDirs; - property CipherList: String read fCipherList write fCipherList; - end; - - TIdSSLContext = class(TObject) - protected - fMethod: TIdSSLVersion; - fSSLVersions : TIdSSLVersions; - fMode: TIdSSLMode; - fsRootCertFile, fsCertFile, fsKeyFile, fsDHParamsFile: String; - fVerifyDepth: Integer; - fVerifyMode: TIdSSLVerifyModeSet; -// fVerifyFile: String; - fVerifyDirs: String; - fCipherList: String; - fContext: PSSL_CTX; - fStatusInfoOn: Boolean; -// fPasswordRoutineOn: Boolean; - fVerifyOn: Boolean; - fSessionId: Integer; - fCtxMode: TIdSSLCtxMode; - procedure DestroyContext; - function SetSSLMethod: PSSL_METHOD; - procedure SetVerifyMode(Mode: TIdSSLVerifyModeSet; CheckRoutine: Boolean); - function GetVerifyMode: TIdSSLVerifyModeSet; - procedure InitContext(CtxMode: TIdSSLCtxMode); - public - {$IFDEF USE_OBJECT_ARC}[Weak]{$ENDIF} Parent: TObject; - constructor Create; - destructor Destroy; override; - function Clone : TIdSSLContext; - function LoadRootCert: Boolean; - function LoadCert: Boolean; - function LoadKey: Boolean; - function LoadDHParams: Boolean; - property StatusInfoOn: Boolean read fStatusInfoOn write fStatusInfoOn; -// property PasswordRoutineOn: Boolean read fPasswordRoutineOn write fPasswordRoutineOn; - property VerifyOn: Boolean read fVerifyOn write fVerifyOn; -//THese can't be published in a TObject without a compiler warning. - // published - property SSLVersions : TIdSSLVersions read fSSLVersions write fSSLVersions; - property Method: TIdSSLVersion read fMethod write fMethod; - property Mode: TIdSSLMode read fMode write fMode; - property RootCertFile: String read fsRootCertFile write fsRootCertFile; - property CertFile: String read fsCertFile write fsCertFile; - property CipherList: String read fCipherList write fCipherList; - property KeyFile: String read fsKeyFile write fsKeyFile; - property DHParamsFile: String read fsDHParamsFile write fsDHParamsFile; -// property VerifyMode: TIdSSLVerifyModeSet read GetVerifyMode write SetVerifyMode; -// property VerifyFile: String read fVerifyFile write fVerifyFile; - property VerifyDirs: String read fVerifyDirs write fVerifyDirs; - property VerifyMode: TIdSSLVerifyModeSet read fVerifyMode write fVerifyMode; - property VerifyDepth: Integer read fVerifyDepth write fVerifyDepth; - - end; - - TIdSSLSocket = class(TObject) - protected - {$IFDEF USE_OBJECT_ARC}[Weak]{$ENDIF} fParent: TObject; - fPeerCert: TIdX509; - fSSL: PSSL; - fSSLCipher: TIdSSLCipher; - fSSLContext: TIdSSLContext; - fHostName: String; - function GetPeerCert: TIdX509; - function GetSSLError(retCode: Integer): Integer; - function GetSSLCipher: TIdSSLCipher; - public - constructor Create(Parent: TObject); - destructor Destroy; override; - procedure Accept(const pHandle: TIdStackSocketHandle); - procedure Connect(const pHandle: TIdStackSocketHandle); - function Send(const ABuffer : TIdBytes; AOffset, ALength: Integer): Integer; - function Recv(var ABuffer : TIdBytes): Integer; - function GetSessionID: TIdSSLByteArray; - function GetSessionIDAsString:String; - procedure SetCipherList(CipherList: String); - // - property PeerCert: TIdX509 read GetPeerCert; - property Cipher: TIdSSLCipher read GetSSLCipher; - property HostName: String read fHostName; - end; - - // TIdSSLIOHandlerSocketOpenSSL and TIdServerIOHandlerSSLOpenSSL have some common - // functions, but they do not have a common ancestor, so this interface helps - // bridge the gap... - IIdSSLOpenSSLCallbackHelper = interface(IInterface) - ['{583F1209-10BA-4E06-8810-155FAEC415FE}'] - function GetPassword(const AIsWrite : Boolean): string; - procedure StatusInfo(const ASSL: PSSL; AWhere, ARet: TIdC_INT; const AStatusStr: string); - function VerifyPeer(ACertificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean; - function GetIOHandlerSelf: TIdSSLIOHandlerSocketOpenSSL; - end; - - TIdSSLIOHandlerSocketOpenSSL = class(TIdSSLIOHandlerSocketBase, IIdSSLOpenSSLCallbackHelper) - protected - fSSLContext: TIdSSLContext; - fxSSLOptions: TIdSSLOptions; - fSSLSocket: TIdSSLSocket; - //fPeerCert: TIdX509; - fOnStatusInfo: TCallbackEvent; - FOnStatusInfoEx : TCallbackExEvent; - fOnGetPassword: TPasswordEvent; - fOnGetPasswordEx : TPasswordEventEx; - fOnVerifyPeer: TVerifyPeerEvent; - fSSLLayerClosed: Boolean; - fOnBeforeConnect: TIOHandlerNotify; - // function GetPeerCert: TIdX509; - //procedure CreateSSLContext(axMode: TIdSSLMode); - // - procedure SetPassThrough(const Value: Boolean); override; - procedure DoBeforeConnect(ASender: TIdSSLIOHandlerSocketOpenSSL); virtual; - procedure DoStatusInfo(const AMsg: String); virtual; - procedure DoStatusInfoEx(const AsslSocket: PSSL; - const AWhere, Aret: TIdC_INT; const AWhereStr, ARetStr : String ); - procedure DoGetPassword(var Password: String); virtual; - procedure DoGetPasswordEx(var VPassword: String; const AIsWrite : Boolean); virtual; - - function DoVerifyPeer(Certificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean; virtual; - function RecvEnc(var VBuffer: TIdBytes): Integer; override; - function SendEnc(const ABuffer: TIdBytes; const AOffset, ALength: Integer): Integer; override; - procedure Init; - procedure OpenEncodedConnection; virtual; - //some overrides from base classes - procedure InitComponent; override; - procedure ConnectClient; override; - function CheckForError(ALastResult: Integer): Integer; override; - procedure RaiseError(AError: Integer); override; - - { IIdSSLOpenSSLCallbackHelper } - function GetPassword(const AIsWrite : Boolean): string; - procedure StatusInfo(const ASslSocket: PSSL; AWhere, ARet: TIdC_INT; const AStatusStr: string); - function VerifyPeer(ACertificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean; - function GetIOHandlerSelf: TIdSSLIOHandlerSocketOpenSSL; - - public - destructor Destroy; override; - // TODO: add an AOwner parameter - function Clone : TIdSSLIOHandlerSocketBase; override; - procedure StartSSL; override; - procedure AfterAccept; override; - procedure Close; override; - procedure Open; override; - function Readable(AMSec: Integer = IdTimeoutDefault): Boolean; override; - property SSLSocket: TIdSSLSocket read fSSLSocket write fSSLSocket; - property OnBeforeConnect: TIOHandlerNotify read fOnBeforeConnect write fOnBeforeConnect; - property SSLContext: TIdSSLContext read fSSLContext write fSSLContext; - published - property SSLOptions: TIdSSLOptions read fxSSLOptions write fxSSLOptions; - property OnStatusInfo: TCallbackEvent read fOnStatusInfo write fOnStatusInfo; - property OnStatusInfoEx: TCallbackExEvent read fOnStatusInfoEx write fOnStatusInfoEx; - property OnGetPassword: TPasswordEvent read fOnGetPassword write fOnGetPassword; - property OnGetPasswordEx : TPasswordEventEx read fOnGetPasswordEx write fOnGetPasswordEx; - property OnVerifyPeer: TVerifyPeerEvent read fOnVerifyPeer write fOnVerifyPeer; - end; - - TIdServerIOHandlerSSLOpenSSL = class(TIdServerIOHandlerSSLBase, IIdSSLOpenSSLCallbackHelper) - protected - fxSSLOptions: TIdSSLOptions; - fSSLContext: TIdSSLContext; - fOnStatusInfo: TCallbackEvent; - FOnStatusInfoEx : TCallbackExEvent; - fOnGetPassword: TPasswordEvent; - fOnGetPasswordEx : TPasswordEventEx; - fOnVerifyPeer: TVerifyPeerEvent; - // - //procedure CreateSSLContext(axMode: TIdSSLMode); - //procedure CreateSSLContext; - // - procedure DoStatusInfo(const AMsg: String); virtual; - procedure DoStatusInfoEx(const AsslSocket: PSSL; - const AWhere, Aret: TIdC_INT; const AWhereStr, ARetStr : String ); - procedure DoGetPassword(var Password: String); virtual; -//TPasswordEventEx - procedure DoGetPasswordEx(var VPassword: String; const AIsWrite : Boolean); virtual; - function DoVerifyPeer(Certificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean; virtual; - procedure InitComponent; override; - - { IIdSSLOpenSSLCallbackHelper } - function GetPassword(const AIsWrite : Boolean): string; - procedure StatusInfo(const ASslSocket: PSSL; AWhere, ARet: TIdC_INT; const AStatusStr: string); - function VerifyPeer(ACertificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean; - function GetIOHandlerSelf: TIdSSLIOHandlerSocketOpenSSL; - - public - procedure Init; override; - procedure Shutdown; override; - // AListenerThread is a thread and not a yarn. Its the listener thread. - function Accept(ASocket: TIdSocketHandle; AListenerThread: TIdThread; - AYarn: TIdYarn): TIdIOHandler; override; -// function Accept(ASocket: TIdSocketHandle; AThread: TIdThread) : TIdIOHandler; override; - destructor Destroy; override; - function MakeClientIOHandler : TIdSSLIOHandlerSocketBase; override; - // - function MakeFTPSvrPort : TIdSSLIOHandlerSocketBase; override; - function MakeFTPSvrPasv : TIdSSLIOHandlerSocketBase; override; - // - property SSLContext: TIdSSLContext read fSSLContext; - published - property SSLOptions: TIdSSLOptions read fxSSLOptions write fxSSLOptions; - property OnStatusInfo: TCallbackEvent read fOnStatusInfo write fOnStatusInfo; - property OnStatusInfoEx: TCallbackExEvent read fOnStatusInfoEx write fOnStatusInfoEx; - property OnGetPassword: TPasswordEvent read fOnGetPassword write fOnGetPassword; - property OnGetPasswordEx : TPasswordEventEx read fOnGetPasswordEx write fOnGetPasswordEx; - property OnVerifyPeer: TVerifyPeerEvent read fOnVerifyPeer write fOnVerifyPeer; - end; - - TIdX509Name = class(TObject) - protected - fX509Name: PX509_NAME; - function CertInOneLine: String; - function GetHash: TIdSSLULong; - function GetHashAsString: String; - public - constructor Create(aX509Name: PX509_NAME); - // - property Hash: TIdSSLULong read GetHash; - property HashAsString: string read GetHashAsString; - property OneLine: string read CertInOneLine; - // - property CertificateName: PX509_NAME read fX509Name; - end; - - TIdX509Info = class(TObject) - protected - //Do not free this here because it belongs - //to the X509 or something else. - FX509 : PX509; - public - constructor Create( aX509: PX509); - // - property Certificate: PX509 read FX509; - end; - - TIdX509Fingerprints = class(TIdX509Info) - protected - function GetMD5: TIdSSLEVP_MD; - function GetMD5AsString:String; - function GetSHA1: TIdSSLEVP_MD; - function GetSHA1AsString:String; - function GetSHA224 : TIdSSLEVP_MD; - function GetSHA224AsString : String; - function GetSHA256 : TIdSSLEVP_MD; - function GetSHA256AsString : String; - function GetSHA384 : TIdSSLEVP_MD; - function GetSHA384AsString : String; - function GetSHA512 : TIdSSLEVP_MD; - function GetSHA512AsString : String; - public - property MD5 : TIdSSLEVP_MD read GetMD5; - property MD5AsString : String read GetMD5AsString; -{IMPORTANT!!! - -FIPS approves only these algorithms for hashing. -SHA-1 -SHA-224 -SHA-256 -SHA-384 -SHA-512 - -http://csrc.nist.gov/CryptoToolkit/tkhash.html -} - property SHA1 : TIdSSLEVP_MD read GetSHA1; - property SHA1AsString : String read GetSHA1AsString; - property SHA224 : TIdSSLEVP_MD read GetSHA224; - property SHA224AsString : String read GetSHA224AsString; - property SHA256 : TIdSSLEVP_MD read GetSHA256; - property SHA256AsString : String read GetSHA256AsString; - property SHA384 : TIdSSLEVP_MD read GetSHA384; - property SHA384AsString : String read GetSHA384AsString; - property SHA512 : TIdSSLEVP_MD read GetSHA512; - property SHA512AsString : String read GetSHA512AsString; - end; - - TIdX509SigInfo = class(TIdX509Info) - protected - function GetSignature : String; - function GetSigType : TIdC_INT; - function GetSigTypeAsString : String; - public - property Signature : String read GetSignature; - property SigType : TIdC_INT read GetSigType ; - property SigTypeAsString : String read GetSigTypeAsString; - end; - - TIdX509 = class(TObject) - protected - FFingerprints : TIdX509Fingerprints; - FSigInfo : TIdX509SigInfo; - FCanFreeX509 : Boolean; - FX509 : PX509; - FSubject : TIdX509Name; - FIssuer : TIdX509Name; - FDisplayInfo : TStrings; - function RSubject:TIdX509Name; - function RIssuer:TIdX509Name; - function RnotBefore:TDateTime; - function RnotAfter:TDateTime; - function RFingerprint:TIdSSLEVP_MD; - function RFingerprintAsString:String; - function GetSerialNumber: String; - function GetVersion : TIdC_LONG; - function GetDisplayInfo : TStrings; - public - Constructor Create(aX509: PX509; aCanFreeX509: Boolean = True); virtual; - Destructor Destroy; override; - property Version : TIdC_LONG read GetVersion; - // - property SigInfo : TIdX509SigInfo read FSigInfo; - property Fingerprints : TIdX509Fingerprints read FFingerprints; - // - property Fingerprint: TIdSSLEVP_MD read RFingerprint; - property FingerprintAsString: String read RFingerprintAsString; - property Subject: TIdX509Name read RSubject; - property Issuer: TIdX509Name read RIssuer; - property notBefore: TDateTime read RnotBefore; - property notAfter: TDateTime read RnotAfter; - property SerialNumber : string read GetSerialNumber; - property DisplayInfo : TStrings read GetDisplayInfo; - // - property Certificate: PX509 read FX509; - end; - - TIdSSLCipher = class(TObject) - protected - FSSLSocket: TIdSSLSocket; - function GetDescription: String; - function GetName: String; - function GetBits: Integer; - function GetVersion: String; - public - constructor Create(AOwner: TIdSSLSocket); - destructor Destroy; override; - //These can't be published without a compiler warning. - // published - property Description: String read GetDescription; - property Name: String read GetName; - property Bits: Integer read GetBits; - property Version: String read GetVersion; - end; - EIdOSSLCouldNotLoadSSLLibrary = class(EIdOpenSSLError); - EIdOSSLModeNotSet = class(EIdOpenSSLError); - EIdOSSLGetMethodError = class(EIdOpenSSLError); - EIdOSSLCreatingSessionError = class(EIdOpenSSLError); - EIdOSSLCreatingContextError = class(EIdOpenSSLAPICryptoError); - EIdOSSLLoadingRootCertError = class(EIdOpenSSLAPICryptoError); - EIdOSSLLoadingCertError = class(EIdOpenSSLAPICryptoError); - EIdOSSLLoadingKeyError = class(EIdOpenSSLAPICryptoError); - EIdOSSLLoadingDHParamsError = class(EIdOpenSSLAPICryptoError); - EIdOSSLSettingCipherError = class(EIdOpenSSLError); - EIdOSSLFDSetError = class(EIdOpenSSLAPISSLError); - EIdOSSLDataBindingError = class(EIdOpenSSLAPISSLError); - EIdOSSLAcceptError = class(EIdOpenSSLAPISSLError); - EIdOSSLConnectError = class(EIdOpenSSLAPISSLError); - {$IFNDEF OPENSSL_NO_TLSEXT} - EIdOSSLSettingTLSHostNameError = class(EIdOpenSSLAPISSLError); - {$ENDIF} - -function LoadOpenSSLLibrary: Boolean; -procedure UnLoadOpenSSLLibrary; - -function OpenSSLVersion: string; - -implementation - -uses - {$IFDEF HAS_UNIT_Generics_Collections} - System.Generics.Collections, - {$ENDIF} - {$IFDEF USE_VCL_POSIX} - Posix.SysTime, - Posix.Time, - Posix.Unistd, - {$ENDIF} - IdFIPS, - IdResourceStringsCore, - IdResourceStringsProtocols, - IdResourceStringsOpenSSL, - IdStack, - IdStackBSDBase, - IdAntiFreezeBase, - IdExceptionCore, - IdResourceStrings, - IdThreadSafe, - IdCustomTransparentProxy, - IdURI, - SysUtils, - SyncObjs; - -type - // TODO: TIdThreadSafeObjectList instead? - {$IFDEF HAS_GENERICS_TThreadList} - TIdCriticalSectionThreadList = TThreadList; - TIdCriticalSectionList = TList; - {$ELSE} - // TODO: flesh out to match TThreadList and TList on non-Generics compilers - TIdCriticalSectionThreadList = TThreadList; - TIdCriticalSectionList = TList; - {$ENDIF} - - // RLebeau 1/24/2019: defining this as a private implementation for now to - // avoid a change in the public interface above. This should be rolled into - // the public interface at some point... - TIdSSLOptions_Internal = class(TIdSSLOptions) - public - {$IFDEF USE_OBJECT_ARC}[Weak]{$ENDIF} Parent: TObject; - end; - -var - SSLIsLoaded: TIdThreadSafeBoolean = nil; - LockInfoCB: TIdCriticalSection = nil; - LockPassCB: TIdCriticalSection = nil; - LockVerifyCB: TIdCriticalSection = nil; - CallbackLockList: TIdCriticalSectionThreadList = nil; - -procedure GetStateVars(const sslSocket: PSSL; AWhere, Aret: TIdC_INT; var VTypeStr, VMsg : String); - {$IFDEF USE_INLINE}inline;{$ENDIF} -begin - case AWhere of - SSL_CB_ALERT : - begin - VTypeStr := IndyFormat( RSOSSLAlert,[SSL_alert_type_string_long(Aret)]); - VMsg := String(SSL_alert_type_string_long(Aret)); - end; - SSL_CB_READ_ALERT : - begin - VTypeStr := IndyFormat(RSOSSLReadAlert,[SSL_alert_type_string_long(Aret)]); - VMsg := String( SSL_alert_desc_string_long(Aret)); - end; - SSL_CB_WRITE_ALERT : - begin - VTypeStr := IndyFormat(RSOSSLWriteAlert,[SSL_alert_type_string_long(Aret)]); - VMsg := String( SSL_alert_desc_string_long(Aret)); - end; - SSL_CB_ACCEPT_LOOP : - begin - VTypeStr := RSOSSLAcceptLoop; - VMsg := String( SSL_state_string_long(sslSocket)); - end; - SSL_CB_ACCEPT_EXIT : - begin - if ARet < 0 then begin - VTypeStr := RSOSSLAcceptError; - end else begin - if ARet = 0 then begin - VTypeStr := RSOSSLAcceptFailed; - end else begin - VTypeStr := RSOSSLAcceptExit; - end; - end; - VMsg := String( SSL_state_string_long(sslSocket) ); - end; - SSL_CB_CONNECT_LOOP : - begin - VTypeStr := RSOSSLConnectLoop; - VMsg := String( SSL_state_string_long(sslSocket) ); - end; - SSL_CB_CONNECT_EXIT : - begin - if ARet < 0 then begin - VTypeStr := RSOSSLConnectError; - end else begin - if ARet = 0 then begin - VTypeStr := RSOSSLConnectFailed - end else begin - VTypeStr := RSOSSLConnectExit; - end; - end; - VMsg := String( SSL_state_string_long(sslSocket) ); - end; - SSL_CB_HANDSHAKE_START : - begin - VTypeStr := RSOSSLHandshakeStart; - VMsg := String( SSL_state_string_long(sslSocket) ); - end; - SSL_CB_HANDSHAKE_DONE : - begin - VTypeStr := RSOSSLHandshakeDone; - VMsg := String( SSL_state_string_long(sslSocket) ); - end; - end; -{var LW : TIdC_INT; -begin - VMsg := ''; - LW := Awhere and (not SSL_ST_MASK); - if (LW and SSL_ST_CONNECT) > 0 then begin - VWhereStr := 'SSL_connect:'; - end else begin - if (LW and SSL_ST_ACCEPT) > 0 then begin - VWhereStr := ' SSL_accept:'; - end else begin - VWhereStr := ' undefined:'; - end; - end; -// IdSslStateStringLong - if (Awhere and SSL_CB_LOOP) > 0 then begin - VMsg := IdSslStateStringLong(sslSocket); - end else begin - if (Awhere and SSL_CB_ALERT) > 0 then begin - if (Awhere and SSL_CB_READ > 0) then begin - VWhereStr := VWhereStr + ' read:'+ IdSslAlertTypeStringLong(Aret); - end else begin - VWhereStr := VWhereStr + 'write:'+ IdSslAlertTypeStringLong(Aret); - end;; - VMsg := IdSslAlertDescStringLong(Aret); - end else begin - if (Awhere and SSL_CB_EXIT) > 0 then begin - if ARet = 0 then begin - - VWhereStr := VWhereStr +'failed'; - VMsg := IdSslStateStringLong(sslSocket); - end else begin - if ARet < 0 then begin - VWhereStr := VWhereStr +'error'; - VMsg := IdSslStateStringLong(sslSocket); - end; - end; - end; - end; - end; } -end; - -function PasswordCallback(buf: PIdAnsiChar; size: TIdC_INT; rwflag: TIdC_INT; userdata: Pointer): TIdC_INT; cdecl; -{$IFDEF USE_MARSHALLED_PTRS} -type - TBytesPtr = ^TBytes; -{$ENDIF} -var - Password: String; - {$IFDEF STRING_IS_UNICODE} - LPassword: TIdBytes; - {$ENDIF} - IdSSLContext: TIdSSLContext; - LErr : Integer; - LHelper: IIdSSLOpenSSLCallbackHelper; -begin - //Preserve last eror just in case OpenSSL is using it and we do something that - //clobers it. CYA. - LErr := GStack.WSGetLastError; - try - LockPassCB.Enter; - try - Password := ''; {Do not Localize} - IdSSLContext := TIdSSLContext(userdata); - if Supports(IdSSLContext.Parent, IIdSSLOpenSSLCallbackHelper, IInterface(LHelper)) then begin - Password := LHelper.GetPassword(rwflag > 0); - LHelper := nil; - end; - FillChar(buf^, size, 0); - {$IFDEF STRING_IS_UNICODE} - LPassword := IndyTextEncoding_OSDefault.GetBytes(Password); - if Length(LPassword) > 0 then begin - {$IFDEF USE_MARSHALLED_PTRS} - TMarshal.Copy(TBytesPtr(@LPassword)^, 0, TPtrWrapper.Create(buf), IndyMin(Length(LPassword), size)); - {$ELSE} - Move(LPassword[0], buf^, IndyMin(Length(LPassword), size)); - {$ENDIF} - end; - Result := Length(LPassword); - {$ELSE} - StrPLCopy(buf, Password, size); - Result := Length(Password); - {$ENDIF} - buf[size-1] := #0; // RLebeau: truncate the password if needed - finally - LockPassCB.Leave; - end; - finally - GStack.WSSetLastError(LErr); - end; -end; - -procedure InfoCallback(const sslSocket: PSSL; where, ret: TIdC_INT); cdecl; -var - IdSSLSocket: TIdSSLSocket; - StatusStr : String; - LErr : Integer; - LHelper: IIdSSLOpenSSLCallbackHelper; -begin -{ -You have to save the value of WSGetLastError as some Operating System API -function calls will reset that value and we can't know what a programmer will -do in this event. We need the value of WSGetLastError so we can report -an underlying socket error when the OpenSSL function returns. - -JPM. -} - LErr := GStack.WSGetLastError; - try - LockInfoCB.Enter; - try - IdSSLSocket := TIdSSLSocket(SSL_get_app_data(sslSocket)); - if Supports(IdSSLSocket.fParent, IIdSSLOpenSSLCallbackHelper, IInterface(LHelper)) then begin - StatusStr := IndyFormat(RSOSSLStatusString, [String(SSL_state_string_long(sslSocket))]); - LHelper.StatusInfo(sslSocket, where, ret, StatusStr); - LHelper := nil; - end; - finally - LockInfoCB.Leave; - end; - finally - GStack.WSSetLastError(LErr); - end; -end; - -function TranslateInternalVerifyToSSL(Mode: TIdSSLVerifyModeSet): Integer; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_VERIFY_NONE; - if sslvrfPeer in Mode then begin - Result := Result or SSL_VERIFY_PEER; - end; - if sslvrfFailIfNoPeerCert in Mode then begin - Result := Result or SSL_VERIFY_FAIL_IF_NO_PEER_CERT; - end; - if sslvrfClientOnce in Mode then begin - Result := Result or SSL_VERIFY_CLIENT_ONCE; - end; -end; - -function VerifyCallback(Ok: TIdC_INT; ctx: PX509_STORE_CTX): TIdC_INT; cdecl; -var - hcert: PX509; - Certificate: TIdX509; - hSSL: PSSL; - IdSSLSocket: TIdSSLSocket; - // str: String; - VerifiedOK: Boolean; - Depth: Integer; - Error: Integer; - LOk: Boolean; - LHelper: IIdSSLOpenSSLCallbackHelper; -begin - LockVerifyCB.Enter; - try - VerifiedOK := True; - try - hSSL := X509_STORE_CTX_get_app_data(ctx); - if hSSL = nil then begin - Result := Ok; - Exit; - end; - hcert := X509_STORE_CTX_get_current_cert(ctx); - Certificate := TIdX509.Create(hcert, False); // the certificate is owned by the store - try - IdSSLSocket := TIdSSLSocket(SSL_get_app_data(hSSL)); - Error := X509_STORE_CTX_get_error(ctx); - Depth := X509_STORE_CTX_get_error_depth(ctx); - if not ((Ok > 0) and (IdSSLSocket.fSSLContext.VerifyDepth >= Depth)) then begin - Ok := 0; - {if Error = X509_V_OK then begin - Error := X509_V_ERR_CERT_CHAIN_TOO_LONG; - end;} - end; - LOk := False; - if Ok = 1 then begin - LOk := True; - end; - if Supports(IdSSLSocket.fParent, IIdSSLOpenSSLCallbackHelper, IInterface(LHelper)) then begin - VerifiedOK := LHelper.VerifyPeer(Certificate, LOk, Depth, Error); - LHelper := nil; - end; - finally - FreeAndNil(Certificate); - end; - except - VerifiedOK := False; - end; - //if VerifiedOK and (Ok > 0) then begin - if VerifiedOK {and (Ok > 0)} then begin - Result := 1; - end - else begin - Result := 0; - end; - // Result := Ok; // testing - finally - LockVerifyCB.Leave; - end; -end; - -////////////////////////////////////////////////////// -// Utilities -////////////////////////////////////////////////////// - -function IndySSL_load_client_CA_file(const AFileName: String) : PSTACK_OF_X509_NAME; forward; -function IndySSL_CTX_use_PrivateKey_file(ctx: PSSL_CTX; const AFileName: String; - AType: Integer): TIdC_INT; forward; -function IndySSL_CTX_use_certificate_file(ctx: PSSL_CTX; const AFileName: String; - AType: Integer): TIdC_INT; forward; -function IndySSL_CTX_use_certificate_chain_file(ctx :PSSL_CTX; - const AFileName: String) : TIdC_INT; forward; - -function IndyX509_STORE_load_locations(ctx: PX509_STORE; - const AFileName, APathName: String): TIdC_INT; forward; -function IndySSL_CTX_load_verify_locations(ctx: PSSL_CTX; - const ACAFile, ACAPath: String): TIdC_INT; forward; -function IndySSL_CTX_use_DHparams_file(ctx: PSSL_CTX; - const AFileName: String; AType: Integer): TIdC_INT; forward; - -// TODO -{ -function d2i_DHparams_bio(bp: PBIO; x: PPointer): PDH; inline; -begin - Result := PDH(ASN1_d2i_bio(@DH_new, @d2i_DHparams, bp, x)); -end; -} - -// SSL_CTX_use_PrivateKey_file() and SSL_CTX_use_certificate_file() do not -// natively support PKCS12 certificates/keys, only PEM/ASN1, so load them -// manually... - -function IndySSL_CTX_use_PrivateKey_file_PKCS12(ctx: PSSL_CTX; const AFileName: String): TIdC_INT; -var - LM: TMemoryStream; - B: PBIO; - LKey: PEVP_PKEY; - LCert: PX509; - P12: PPKCS12; - CertChain: PSTACK_OF_X509; - LPassword: array of TIdAnsiChar; - LPasswordPtr: PIdAnsiChar; -begin - Result := 0; - - LM := nil; - try - LM := TMemoryStream.Create; - LM.LoadFromFile(AFileName); - except - // Surpress exception here since it's going to be called by the OpenSSL .DLL - // Follow the OpenSSL .DLL Error conventions. - SSLerr(SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE, ERR_R_SYS_LIB); - LM.Free; - Exit; - end; - - try - B := BIO_new_mem_buf(LM.Memory, LM.Size); - if not Assigned(B) then begin - SSLerr(SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE, ERR_R_BUF_LIB); - Exit; - end; - try - SetLength(LPassword, MAX_SSL_PASSWORD_LENGTH+1); - LPassword[MAX_SSL_PASSWORD_LENGTH] := TIdAnsiChar(0); - LPasswordPtr := PIdAnsiChar(LPassword); - if Assigned(ctx^.default_passwd_callback) then begin - ctx^.default_passwd_callback(LPasswordPtr, MAX_SSL_PASSWORD_LENGTH, 0, ctx^.default_passwd_callback_userdata); - // TODO: check return value for failure - end else begin - // TODO: call PEM_def_callback(), like PEM_read_bio_X509() does - // when default_passwd_callback is nil - end; - P12 := d2i_PKCS12_bio(B, nil); - if not Assigned(P12) then begin - SSLerr(SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE, ERR_R_PKCS12_LIB); - Exit; - end; - try - CertChain := nil; - if PKCS12_parse(P12, LPasswordPtr, LKey, LCert, @CertChain) <> 1 then begin - SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, ERR_R_PKCS12_LIB); - Exit; - end; - try - Result := SSL_CTX_use_PrivateKey(ctx, LKey); - finally - sk_pop_free(CertChain, @X509_free); - X509_free(LCert); - EVP_PKEY_free(LKey); - end; - finally - PKCS12_free(P12); - end; - finally - BIO_free(B); - end; - finally - FreeAndNil(LM); - end; -end; - -function IndySSL_CTX_use_certificate_file_PKCS12(ctx: PSSL_CTX; const AFileName: String): TIdC_INT; -var - LM: TMemoryStream; - B: PBIO; - LCert: PX509; - P12: PPKCS12; - PKey: PEVP_PKEY; - CertChain: PSTACK_OF_X509; - LPassword: array of TIdAnsiChar; - LPasswordPtr: PIdAnsiChar; -begin - Result := 0; - - LM := nil; - try - LM := TMemoryStream.Create; - LM.LoadFromFile(AFileName); - except - // Surpress exception here since it's going to be called by the OpenSSL .DLL - // Follow the OpenSSL .DLL Error conventions. - SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, ERR_R_SYS_LIB); - LM.Free; - Exit; - end; - - try - B := BIO_new_mem_buf(LM.Memory, LM.Size); - if not Assigned(B) then begin - SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, ERR_R_BUF_LIB); - Exit; - end; - try - SetLength(LPassword, MAX_SSL_PASSWORD_LENGTH+1); - LPassword[MAX_SSL_PASSWORD_LENGTH] := TIdAnsiChar(0); - LPasswordPtr := PIdAnsiChar(LPassword); - if Assigned(ctx^.default_passwd_callback) then begin - ctx^.default_passwd_callback(LPasswordPtr, MAX_SSL_PASSWORD_LENGTH, 0, ctx^.default_passwd_callback_userdata); - // TODO: check return value for failure - end else begin - // TODO: call PEM_def_callback(), like PEM_read_bio_X509() does - // when default_passwd_callback is nil - end; - P12 := d2i_PKCS12_bio(B, nil); - if not Assigned(P12) then - begin - SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, ERR_R_PKCS12_LIB); - Exit; - end; - try - CertChain := nil; - if PKCS12_parse(P12, LPasswordPtr, PKey, LCert, @CertChain) <> 1 then begin - SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, ERR_R_PKCS12_LIB); - Exit; - end; - try - Result := SSL_CTX_use_certificate(ctx, LCert); - finally - sk_pop_free(CertChain, @X509_free); - X509_free(LCert); - EVP_PKEY_free(PKey); - end; - finally - PKCS12_free(P12); - end; - finally - BIO_free(B); - end; - finally - FreeAndNil(LM); - end; -end; - -{ - IMPORTANT!!! - - OpenSSL can not handle Unicode file names at all. On Posix systems, UTF8 File - names can be used with OpenSSL. The Windows operating system does not accept - UTF8 file names at all so we have our own routines that will handle Unicode - filenames. Most of this section of code is based on code in the OpenSSL .DLL - which is copyrighted by the OpenSSL developers. Some of it is translated into - Pascal and made some modifications so that it will handle Unicode filenames. -} - -{$IFDEF STRING_IS_UNICODE} - - {$IFDEF WINDOWS} - -function Indy_unicode_X509_load_cert_crl_file(ctx: PX509_LOOKUP; const AFileName: String; - const _type: TIdC_INT): TIdC_INT; forward; -function Indy_unicode_X509_load_cert_file(ctx: PX509_LOOKUP; const AFileName: String; - _type: TIdC_INT): TIdC_INT; forward; - -{ - This is for some file lookup definitions for a LOOKUP method that - uses Unicode filenames instead of ASCII or UTF8. It is not meant - to be portable at all. -} -function by_Indy_unicode_file_ctrl(ctx: PX509_LOOKUP; cmd: TIdC_INT; - const argc: PAnsiChar; argl: TIdC_LONG; out ret: PAnsiChar): TIdC_INT; - cdecl; forward; - -const - Indy_x509_unicode_file_lookup: X509_LOOKUP_METHOD = - ( - name: PAnsiChar('Load file into cache'); - new_item: nil; // * new */ - free: nil; // * free */ - init: nil; // * init */ - shutdown: nil; // * shutdown */ - ctrl: by_Indy_unicode_file_ctrl; // * ctrl */ - get_by_subject: nil; // * get_by_subject */ - get_by_issuer_serial: nil; // * get_by_issuer_serial */ - get_by_fingerprint: nil; // * get_by_fingerprint */ - get_by_alias: nil // * get_by_alias */ - ); - -function Indy_Unicode_X509_LOOKUP_file(): PX509_LOOKUP_METHOD cdecl; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := @Indy_x509_unicode_file_lookup; -end; - -function by_Indy_unicode_file_ctrl(ctx: PX509_LOOKUP; cmd: TIdC_INT; - const argc: PAnsiChar; argl: TIdC_LONG; out ret: PAnsiChar): TIdC_INT; cdecl; -var - LOk: TIdC_INT; - LFileName: String; -begin - LOk := 0; - case cmd of - X509_L_FILE_LOAD: - begin - // Note that typecasting an AnsiChar as a WideChar below is normally a crazy - // thing to do. The thing is that the OpenSSL API is based on PAnsiChar, and - // we are writing this function just for Unicode filenames. argc is actually - // a PWideChar that has been coerced into a PAnsiChar so it can pass through - // OpenSSL APIs... - case argl of - X509_FILETYPE_DEFAULT: - begin - LFileName := GetEnvironmentVariable(String(X509_get_default_cert_file_env)); - if LFileName = '' then begin - LFileName := String(X509_get_default_cert_file); - end; - LOk := Ord(Indy_unicode_X509_load_cert_crl_file(ctx, LFileName, X509_FILETYPE_PEM) <> 0); - if LOk = 0 then begin - X509err(X509_F_BY_FILE_CTRL, X509_R_LOADING_DEFAULTS); - end; - end; - X509_FILETYPE_PEM: - begin - LFileName := PWideChar(Pointer(argc)); - LOk := Ord(Indy_unicode_X509_load_cert_crl_file(ctx, LFileName, X509_FILETYPE_PEM) <> 0); - end; - else - LFileName := PWideChar(Pointer(argc)); - LOk := Ord(Indy_unicode_X509_load_cert_file(ctx, LFileName, TIdC_INT(argl)) <> 0); - end; - end; - end; - Result := LOk; -end; - -function Indy_unicode_X509_load_cert_file(ctx: PX509_LOOKUP; const AFileName: String; - _type: TIdC_INT): TIdC_INT; -var - LM: TMemoryStream; - Lin: PBIO; - LX: PX509; - i, count: Integer; -begin - Result := 0; - count := 0; - - if AFileName = '' then begin - Result := 1; - Exit; - end; - - LM := nil; - try - LM := TMemoryStream.Create; - LM.LoadFromFile(AFileName); - except - // Surpress exception here since it's going to be called by the OpenSSL .DLL - // Follow the OpenSSL .DLL Error conventions. - X509err(X509_F_X509_LOAD_CERT_FILE, ERR_R_SYS_LIB); - LM.Free; - Exit; - end; - - try - Lin := BIO_new_mem_buf(LM.Memory, LM.Size); - if not Assigned(Lin) then begin - X509err(X509_F_X509_LOAD_CERT_FILE, ERR_R_SYS_LIB); - Exit; - end; - try - case _type of - X509_FILETYPE_PEM: - begin - repeat - LX := PEM_read_bio_X509_AUX(Lin, nil, nil, nil); - if not Assigned(LX) then begin - if ((ERR_GET_REASON(ERR_peek_last_error()) - = PEM_R_NO_START_LINE) and (count > 0)) then begin - ERR_clear_error(); - Break; - end else begin - X509err(X509_F_X509_LOAD_CERT_FILE, ERR_R_PEM_LIB); - Exit; - end; - end; - i := X509_STORE_add_cert(ctx^.store_ctx, LX); - if i = 0 then begin - Exit; - end; - Inc(count); - X509_Free(LX); - until False; - Result := count; - end; - X509_FILETYPE_ASN1: - begin - LX := d2i_X509_bio(Lin, nil); - if not Assigned(LX) then begin - X509err(X509_F_X509_LOAD_CERT_FILE, ERR_R_ASN1_LIB); - Exit; - end; - i := X509_STORE_add_cert(ctx^.store_ctx, LX); - if i = 0 then begin - Exit; - end; - Result := i; - end; - else - X509err(X509_F_X509_LOAD_CERT_FILE, X509_R_BAD_X509_FILETYPE); - Exit; - end; - finally - BIO_free(Lin); - end; - finally - FreeAndNil(LM); - end; -end; - -function Indy_unicode_X509_load_cert_crl_file(ctx: PX509_LOOKUP; const AFileName: String; - const _type: TIdC_INT): TIdC_INT; -var - LM: TMemoryStream; - Linf: PSTACK_OF_X509_INFO; - Litmp: PX509_INFO; - Lin: PBIO; - i, count: Integer; -begin - Result := 0; - count := 0; - LM := nil; - - if _type <> X509_FILETYPE_PEM then begin - Result := Indy_unicode_X509_load_cert_file(ctx, AFileName, _type); - Exit; - end; - - try - LM := TMemoryStream.Create; - LM.LoadFromFile(AFileName); - except - // Surpress exception here since it's going to be called by the OpenSSL .DLL - // Follow the OpenSSL .DLL Error conventions. - X509err(X509_F_X509_LOAD_CERT_CRL_FILE, ERR_R_SYS_LIB); - LM.Free; - Exit; - end; - - try - Lin := BIO_new_mem_buf(LM.Memory, LM.Size); - if not Assigned(Lin) then begin - X509err(X509_F_X509_LOAD_CERT_CRL_FILE, ERR_R_SYS_LIB); - Exit; - end; - try - Linf := PEM_X509_INFO_read_bio(Lin, nil, nil, nil); - finally - BIO_free(Lin); - end; - finally - FreeAndNil(LM); - end; - if not Assigned(Linf) then begin - X509err(X509_F_X509_LOAD_CERT_CRL_FILE, ERR_R_PEM_LIB); - Exit; - end; - try - for i := 0 to sk_X509_INFO_num(Linf) - 1 do begin - Litmp := sk_X509_INFO_value(Linf, i); - if Assigned(Litmp^.x509) then begin - X509_STORE_add_cert(ctx^.store_ctx, Litmp^.x509); - Inc(count); - end; - if Assigned(Litmp^.crl) then begin - X509_STORE_add_crl(ctx^.store_ctx, Litmp^.crl); - Inc(count); - end; - end; - finally - sk_X509_INFO_pop_free(Linf, @X509_INFO_free); - end; - Result := count; -end; - -procedure IndySSL_load_client_CA_file_err(var VRes: PSTACK_OF_X509_NAME); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - if Assigned(VRes) then begin - sk_X509_NAME_pop_free(VRes, @X509_NAME_free); - VRes := nil; - end; -end; - -function xname_cmp(const a, b: PPX509_NAME): TIdC_INT; cdecl; -begin - Result := X509_NAME_cmp(a^, b^); -end; - -function IndySSL_load_client_CA_file(const AFileName: String): PSTACK_OF_X509_NAME; -var - LM: TMemoryStream; - LB: PBIO; - Lsk: PSTACK_OF_X509_NAME; - LX: PX509; - LXN, LXNDup: PX509_NAME; - Failed: Boolean; -begin - Result := nil; - Failed := False; - LX := nil; - Lsk := sk_X509_NAME_new(@xname_cmp); - if Assigned(Lsk) then begin - try - LM := nil; - try - LM := TMemoryStream.Create; - LM.LoadFromFile(AFileName); - except - // Surpress exception here since it's going to be called by the OpenSSL .DLL - // Follow the OpenSSL .DLL Error conventions. - SSLerr(SSL_F_SSL_LOAD_CLIENT_CA_FILE, ERR_R_SYS_LIB); - LM.Free; - Exit; - end; - try - LB := BIO_new_mem_buf(LM.Memory, LM.Size); - if Assigned(LB) then begin - try - try - repeat - LX := PEM_read_bio_X509(LB, nil, nil, nil); - if LX = nil then begin - Break; - end; - if not Assigned(Result) then begin - Result := sk_X509_NAME_new_null; - if not Assigned(Result) then begin - SSLerr(SSL_F_SSL_LOAD_CLIENT_CA_FILE, ERR_R_MALLOC_FAILURE); - Failed := True; - Exit; - end; - end; - LXN := X509_get_subject_name(LX); - if not Assigned(LXN) then begin - // error - IndySSL_load_client_CA_file_err(Result); - Failed := True; - Exit; - end; - // * check for duplicates */ - LXNDup := X509_NAME_dup(LXN); - if not Assigned(LXNDup) then begin - // error - IndySSL_load_client_CA_file_err(Result); - Failed := True; - Exit; - end; - if (sk_X509_NAME_find(Lsk, LXNDup) >= 0) then begin - X509_NAME_free(LXNDup); - end else begin - sk_X509_NAME_push(Lsk, LXNDup); - sk_X509_NAME_push(Result, LXNDup); - end; - X509_free(LX); - LX := nil; - until False; - finally - if Assigned(LX) then begin - X509_free(LX); - end; - if Failed and Assigned(Result) then begin - sk_X509_NAME_pop_free(Result, @X509_NAME_free); - Result := nil; - end; - end; - finally - BIO_free(LB); - end; - end - else begin - SSLerr(SSL_F_SSL_LOAD_CLIENT_CA_FILE, ERR_R_MALLOC_FAILURE); - end; - finally - FreeAndNil(LM); - end; - finally - sk_X509_NAME_free(Lsk); - end; - end - else begin - SSLerr(SSL_F_SSL_LOAD_CLIENT_CA_FILE, ERR_R_MALLOC_FAILURE); - end; - if Assigned(Result) then begin - ERR_clear_error; - end; -end; - -function IndySSL_CTX_use_PrivateKey_file(ctx: PSSL_CTX; const AFileName: String; - AType: Integer): TIdC_INT; -var - LM: TMemoryStream; - B: PBIO; - LKey: PEVP_PKEY; - j: TIdC_INT; -begin - Result := 0; - - LM := nil; - try - LM := TMemoryStream.Create; - LM.LoadFromFile(AFileName); - except - // Surpress exception here since it's going to be called by the OpenSSL .DLL - // Follow the OpenSSL .DLL Error conventions. - SSLerr(SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE, ERR_R_SYS_LIB); - LM.Free; - Exit; - end; - - try - B := BIO_new_mem_buf(LM.Memory, LM.Size); - if not Assigned(B) then begin - SSLerr(SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE, ERR_R_BUF_LIB); - Exit; - end; - try - case AType of - SSL_FILETYPE_PEM: - begin - j := ERR_R_PEM_LIB; - LKey := PEM_read_bio_PrivateKey(B, nil, - ctx^.default_passwd_callback, - ctx^.default_passwd_callback_userdata); - end; - SSL_FILETYPE_ASN1: - begin - j := ERR_R_ASN1_LIB; - LKey := d2i_PrivateKey_bio(B, nil); - end; - else - SSLerr(SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE, SSL_R_BAD_SSL_FILETYPE); - Exit; - end; - if not Assigned(LKey) then begin - SSLerr(SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE, j); - Exit; - end; - Result := SSL_CTX_use_PrivateKey(ctx, LKey); - EVP_PKEY_free(LKey); - finally - BIO_free(B); - end; - finally - FreeAndNil(LM); - end; -end; - -function IndySSL_CTX_use_certificate_file(ctx: PSSL_CTX; - const AFileName: String; AType: Integer): TIdC_INT; -var - LM: TMemoryStream; - B: PBIO; - LX: PX509; - j: TIdC_INT; -begin - Result := 0; - - LM := nil; - try - LM := TMemoryStream.Create; - LM.LoadFromFile(AFileName); - except - // Surpress exception here since it's going to be called by the OpenSSL .DLL - // Follow the OpenSSL .DLL Error conventions. - SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, ERR_R_SYS_LIB); - LM.Free; - Exit; - end; - - try - B := BIO_new_mem_buf(LM.Memory, LM.Size); - if not Assigned(B) then begin - SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, ERR_R_BUF_LIB); - Exit; - end; - try - case AType of - SSL_FILETYPE_ASN1: - begin - j := ERR_R_ASN1_LIB; - LX := d2i_X509_bio(B, nil); - end; - SSL_FILETYPE_PEM: - begin - j := ERR_R_PEM_LIB; - LX := PEM_read_bio_X509(B, nil, ctx^.default_passwd_callback, - ctx^.default_passwd_callback_userdata); - end - else begin - SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, SSL_R_BAD_SSL_FILETYPE); - Exit; - end; - end; - if not Assigned(LX) then begin - SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, j); - Exit; - end; - Result := SSL_CTX_use_certificate(ctx, LX); - X509_free(LX); - finally - BIO_free(B); - end; - finally - FreeAndNil(LM); - end; -end; - -function IndySSL_CTX_use_certificate_chain_file(ctx :PSSL_CTX; - const AFileName: String) : TIdC_INT; -var - LM: TMemoryStream; - B: PBIO; - LX: PX509; - ca :PX509; - r: TIdC_INT; - LErr :TIdC_ULONG; - -begin - Result := 0; - - ERR_clear_error(); //* clear error stack for - //* SSL_CTX_use_certificate() */ - - LM := nil; - try - LM := TMemoryStream.Create; - LM.LoadFromFile(AFileName); - except - // Surpress exception here since it's going to be called by the OpenSSL .DLL - // Follow the OpenSSL .DLL Error conventions. - SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_CHAIN_FILE, ERR_R_SYS_LIB); - LM.Free; - Exit; - end; - try - B := BIO_new_mem_buf(LM.Memory, LM.Size); - if not Assigned(B) then begin - SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, ERR_R_BUF_LIB); - Exit; - end; - try - LX := PEM_read_bio_X509_AUX(B, nil, ctx^.default_passwd_callback, - ctx^.default_passwd_callback_userdata); - if (Lx = nil) then begin - SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_CHAIN_FILE, ERR_R_PEM_LIB); - end else begin - Result := SSL_CTX_use_certificate(ctx, Lx); - if (ERR_peek_error() <> 0) then begin - Result := 0; //* Key/certificate mismatch doesn't imply - //* ret==0 ... */ - end; - if Result <> 0 then begin - SSL_CTX_clear_chain_certs(ctx); - repeat - ca := PEM_read_bio_X509(B, nil, - ctx^.default_passwd_callback, - ctx^.default_passwd_callback_userdata); - if ca = nil then begin - break; - end; - r := SSL_CTX_add0_chain_cert(ctx, ca); - if (r = 0) then begin - X509_free(ca); - Result := 0; - break; -// goto end; - end; - //* - //* Note that we must not free r if it was successfully added to - //* the chain (while we must free the main certificate, since its - //* reference count is increased by SSL_CTX_use_certificate). - // */ - until False; - if ca <> nil then begin - //* When the while loop ends, it's usually just EOF. */ - LErr := ERR_peek_last_error(); - if (ERR_GET_LIB(Lerr) = ERR_LIB_PEM) - and (ERR_GET_REASON(Lerr) = PEM_R_NO_START_LINE) then begin - ERR_clear_error(); - end else begin - Result := 0; //* some real error */ - end; - end; - end; - //err: - if LX <> nil then begin - X509_free(LX); - end; - end; - finally - BIO_free(B); - end; - finally - FreeAndNil(LM); - end; -end; - -function IndyX509_STORE_load_locations(ctx: PX509_STORE; - const AFileName, APathName: String): TIdC_INT; -var - lookup: PX509_LOOKUP; -begin - Result := 0; - if AFileName <> '' then begin - lookup := X509_STORE_add_lookup(ctx, Indy_Unicode_X509_LOOKUP_file); - if not Assigned(lookup) then begin - Exit; - end; - // RLebeau: the PAnsiChar(Pointer(...)) cast below looks weird, but it is - // intentional. X509_LOOKUP_load_file() takes a PAnsiChar as input, but - // we are using Unicode strings here. So casting the UnicodeString to a - // raw Pointer and then passing that to X509_LOOKUP_load_file() as PAnsiChar. - // Indy_Unicode_X509_LOOKUP_file will cast it back to PWideChar for processing... - if (X509_LOOKUP_load_file(lookup, PAnsiChar(Pointer(AFileName)), X509_FILETYPE_PEM) <> 1) then begin - Exit; - end; - end; - if APathName <> '' then begin - { TODO: Figure out how to do the hash dir lookup with a Unicode path. } - if (X509_STORE_load_locations(ctx, nil, PAnsiChar(AnsiString(APathName))) <> 1) then begin - Exit; - end; - end; - if (AFileName = '') and (APathName = '') then begin - Exit; - end; - Result := 1; -end; - -function IndySSL_CTX_load_verify_locations(ctx: PSSL_CTX; - const ACAFile, ACAPath: String): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := IndyX509_STORE_load_locations(ctx^.cert_store, ACAFile, ACAPath); -end; - -function IndySSL_CTX_use_DHparams_file(ctx: PSSL_CTX; - const AFileName: String; AType: Integer): TIdC_INT; -var - LM: TMemoryStream; - B: PBIO; - LDH: PDH; - j: Integer; -begin - Result := 0; - - LM := nil; - try - LM := TMemoryStream.Create; - LM.LoadFromFile(AFileName); - except - // Surpress exception here since it's going to be called by the OpenSSL .DLL - // Follow the OpenSSL .DLL Error conventions. - SSLerr(SSL_F_SSL3_CTRL, ERR_R_SYS_LIB); - LM.Free; - Exit; - end; - - try - B := BIO_new_mem_buf(LM.Memory, LM.Size); - if not Assigned(B) then begin - SSLerr(SSL_F_SSL3_CTRL, ERR_R_BUF_LIB); - Exit; - end; - try - case AType of - // TODO - { - SSL_FILETYPE_ASN1: - begin - j := ERR_R_ASN1_LIB; - LDH := d2i_DHparams_bio(B, nil); - end; - } - SSL_FILETYPE_PEM: - begin - j := ERR_R_DH_LIB; - LDH := PEM_read_bio_DHparams(B, nil, ctx^.default_passwd_callback, - ctx^.default_passwd_callback_userdata); - end - else begin - SSLerr(SSL_F_SSL3_CTRL, SSL_R_BAD_SSL_FILETYPE); - Exit; - end; - end; - if not Assigned(LDH) then begin - SSLerr(SSL_F_SSL3_CTRL, j); - Exit; - end; - Result := SSL_CTX_set_tmp_dh(ctx, LDH); - DH_free(LDH); - finally - BIO_free(B); - end; - finally - FreeAndNil(LM); - end; -end; - - {$ENDIF} // WINDOWS - - {$IFDEF UNIX} - -function IndySSL_load_client_CA_file(const AFileName: String) : PSTACK_OF_X509_NAME; -{$IFDEF USE_MARSHALLED_PTRS} -var - M: TMarshaller; -{$ENDIF} -begin - Result := SSL_load_client_CA_file( - {$IFDEF USE_MARSHALLED_PTRS} - M.AsUtf8(AFileName).ToPointer - {$ELSE} - PAnsiChar(UTF8String(AFileName)) - {$ENDIF} - ); -end; - -function IndySSL_CTX_use_PrivateKey_file(ctx: PSSL_CTX; const AFileName: String; - AType: Integer): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -{$IFDEF USE_MARSHALLED_PTRS} -var - M: TMarshaller; -{$ENDIF} -begin - Result := SSL_CTX_use_PrivateKey_file(ctx, - {$IFDEF USE_MARSHALLED_PTRS} - M.AsUtf8(AFileName).ToPointer - {$ELSE} - PAnsiChar(UTF8String(AFileName)) - {$ENDIF} - , AType); -end; - -function IndySSL_CTX_use_certificate_file(ctx: PSSL_CTX; - const AFileName: String; AType: Integer): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -{$IFDEF USE_MARSHALLED_PTRS} -var - M: TMarshaller; -{$ENDIF} -begin - Result := SSL_CTX_use_certificate_file(ctx, - {$IFDEF USE_MARSHALLED_PTRS} - M.AsUtf8(AFileName).ToPointer - {$ELSE} - PAnsiChar(UTF8String(AFileName)) - {$ENDIF} - , AType); -end; - -function IndySSL_CTX_use_certificate_chain_file(ctx :PSSL_CTX; - const AFileName: String) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -{$IFDEF USE_MARSHALLED_PTRS} -var - M: TMarshaller; -{$ENDIF} -begin - Result := SSL_CTX_use_certificate_chain_file(ctx, - {$IFDEF USE_MARSHALLED_PTRS} - M.AsUtf8(AFileName).ToPointer - {$ELSE} - PAnsiChar(UTF8String(AFileName)) - {$ENDIF}); -end; - -{$IFDEF USE_MARSHALLED_PTRS} -function AsUtf8OrNil(var M: TMarshaller; const S: String): Pointer; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - if S <> '' then begin - Result := M.AsUtf8(S).ToPointer; - end else begin - Result := nil; - end; -end; -{$ENDIF} - -function IndyX509_STORE_load_locations(ctx: PX509_STORE; - const AFileName, APathName: String): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -{$IFDEF USE_MARSHALLED_PTRS} -var - M: TMarshaller; -{$ENDIF} -begin - // RLebeau 4/18/2010: X509_STORE_load_locations() expects nil pointers - // for unused values, but casting a string directly to a PAnsiChar - // always produces a non-nil pointer, which causes X509_STORE_load_locations() - // to fail. Need to cast the string to an intermediate Pointer so the - // PAnsiChar cast is applied to the raw data and thus can be nil... - // - // RLebeau 8/18/2017: TMarshaller also produces a non-nil TPtrWrapper for - // an empty string, so need to handle nil specially with marshalled - // strings as well... - // - Result := X509_STORE_load_locations(ctx, - {$IFDEF USE_MARSHALLED_PTRS} - AsUtf8OrNil(M, AFileName), - AsUtf8OrNil(M, APathName) - {$ELSE} - PAnsiChar(Pointer(UTF8String(AFileName))), - PAnsiChar(Pointer(UTF8String(APathName))) - {$ENDIF} - ); -end; - -function IndySSL_CTX_load_verify_locations(ctx: PSSL_CTX; - const ACAFile, ACAPath: String): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - // RLebeau: why are we calling X509_STORE_load_locations() directly - // instead of just calling SSL_CTX_load_verify_locations() with - // UTF-8 input? - - //Result := SSL_CTX_load_verify_locations(ctx, - // {$IFDEF USE_MARSHALLED_PTRS} - // AsUtf8OrNl(ACAFile), - // AsUtf8OrNil(ACAPath) - // {$ELSE} - // PAnsiChar(Pointer(UTF8String(ACAFile))), - // PAnsiChar(Pointer(UTF8String(ACAPath))) - // {$ENDIF} - //); - - Result := IndyX509_STORE_load_locations(ctx^.cert_store, ACAFile, ACAPath); -end; - -function IndySSL_CTX_use_DHparams_file(ctx: PSSL_CTX; - const AFileName: String; AType: Integer): TIdC_INT; -var - B: PBIO; - LDH: PDH; - j: Integer; - {$IFDEF USE_MARSHALLED_PTRS} - M: TMarshaller; - {$ENDIF} -begin - Result := 0; - B := BIO_new_file( - {$IFDEF USE_MARSHALLED_PTRS} - M.AsUtf8(AFileName).ToPointer - {$ELSE} - PAnsiChar(UTF8String(AFileName)) - {$ENDIF} - , 'r'); - if Assigned(B) then begin - try - case AType of - // TODO - { - SSL_FILETYPE_ASN1: - begin - j := ERR_R_ASN1_LIB; - LDH := d2i_DHparams_bio(B, nil); - end; - } - SSL_FILETYPE_PEM: - begin - j := ERR_R_DH_LIB; - LDH := PEM_read_bio_DHparams(B, nil, ctx^.default_passwd_callback, - ctx^.default_passwd_callback_userdata); - end - else begin - SSLerr(SSL_F_SSL3_CTRL, SSL_R_BAD_SSL_FILETYPE); - Exit; - end; - end; - if not Assigned(LDH) then begin - SSLerr(SSL_F_SSL3_CTRL, j); - Exit; - end; - Result := SSL_CTX_set_tmp_dh(ctx, LDH); - DH_free(LDH); - finally - BIO_free(B); - end; - end; -end; - - {$ENDIF} // UNIX - -{$ELSE} // STRING_IS_UNICODE - -function IndySSL_load_client_CA_file(const AFileName: String) : PSTACK_OF_X509_NAME; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_load_client_CA_file(PAnsiChar(AFileName)); -end; - -function IndySSL_CTX_use_PrivateKey_file(ctx: PSSL_CTX; const AFileName: String; - AType: Integer): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_use_PrivateKey_file(ctx, PAnsiChar(AFileName), AType); -end; - -function IndySSL_CTX_use_certificate_file(ctx: PSSL_CTX; - const AFileName: String; AType: Integer): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_use_certificate_file(ctx, PAnsiChar(AFileName), AType); -end; - -function IndySSL_CTX_use_certificate_chain_file(ctx :PSSL_CTX; - const AFileName: String) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_use_certificate_chain_file(ctx, PAnsiChar(AFileName)); -end; - -function IndyX509_STORE_load_locations(ctx: PX509_STORE; - const AFileName, APathName: String): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - // RLebeau 4/18/2010: X509_STORE_load_locations() expects nil pointers - // for unused values, but casting a string directly to a PAnsiChar - // always produces a non-nil pointer, which causes X509_STORE_load_locations() - // to fail. Need to cast the string to an intermediate Pointer so the - // PAnsiChar cast is applied to the raw data and thus can be nil... - // - Result := X509_STORE_load_locations(ctx, - PAnsiChar(Pointer(AFileName)), - PAnsiChar(Pointer(APathName))); -end; - -function IndySSL_CTX_load_verify_locations(ctx: PSSL_CTX; - const ACAFile, ACAPath: String): TIdC_INT; -begin - // RLebeau 4/18/2010: X509_STORE_load_locations() expects nil pointers - // for unused values, but casting a string directly to a PAnsiChar - // always produces a non-nil pointer, which causes X509_STORE_load_locations() - // to fail. Need to cast the string to an intermediate Pointer so the - // PAnsiChar cast is applied to the raw data and thus can be nil... - // - Result := SSL_CTX_load_verify_locations(ctx, - PAnsiChar(Pointer(ACAFile)), - PAnsiChar(Pointer(ACAPath))); -end; - -function IndySSL_CTX_use_DHparams_file(ctx: PSSL_CTX; - const AFileName: String; AType: Integer): TIdC_INT; -var - B: PBIO; - LDH: PDH; - j: Integer; -begin - Result := 0; - B := BIO_new_file(PAnsiChar(AFileName), 'r'); - if Assigned(B) then begin - try - case AType of - // TODO - { - SSL_FILETYPE_ASN1: - begin - j := ERR_R_ASN1_LIB; - LDH := d2i_DHparams_bio(B, nil); - end; - } - SSL_FILETYPE_PEM: - begin - j := ERR_R_DH_LIB; - LDH := PEM_read_bio_DHparams(B, nil, ctx^.default_passwd_callback, - ctx^.default_passwd_callback_userdata); - end - else begin - SSLerr(SSL_F_SSL3_CTRL, SSL_R_BAD_SSL_FILETYPE); - Exit; - end; - end; - if not Assigned(LDH) then begin - SSLerr(SSL_F_SSL3_CTRL, j); - Exit; - end; - Result := SSL_CTX_set_tmp_dh(ctx, LDH); - DH_free(LDH); - finally - BIO_free(B); - end; - end; -end; - -{$ENDIF} - -function AddMins(const DT: TDateTime; const Mins: Extended): TDateTime; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := DT + Mins / (60 * 24) -end; - -function AddHrs(const DT: TDateTime; const Hrs: Extended): TDateTime; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := DT + Hrs / 24.0; -end; - -{$IFDEF OPENSSL_SET_MEMORY_FUNCS} - -function IdMalloc(num: UInt32): Pointer cdecl; -begin - Result := AllocMem(num); -end; - -function IdRealloc(addr: Pointer; num: UInt32): Pointer cdecl; -begin - Result := addr; - ReallocMem(Result, num); -end; - -procedure IdFree(addr: Pointer)cdecl; -begin - FreeMem(addr); -end; - -procedure IdSslCryptoMallocInit; -// replaces the actual alloc routines -// this is useful if you are using a memory manager that can report on leaks -// at shutdown time. -var - r: Integer; -begin - r := CRYPTO_set_mem_functions(@IdMalloc, @IdRealloc, @IdFree); - Assert(r <> 0); -end; -{$ENDIF} - -{$IFNDEF OPENSSL_NO_BIO} -procedure DumpCert(AOut: TStrings; AX509: PX509); -var - LMem: PBIO; - LLen : TIdC_INT; - LBufPtr : PIdAnsiChar; -begin - if Assigned(X509_print) then begin - LMem := BIO_new(BIO_s_mem); - if LMem <> nil then begin - try - X509_print(LMem, AX509); - LLen := BIO_get_mem_data(LMem, LBufPtr); - if (LLen > 0) and (LBufPtr <> nil) then begin - AOut.Text := IndyTextEncoding_UTF8.GetString( - {$IFNDEF VCL_6_OR_ABOVE} - // RLebeau: for some reason, Delphi 5 causes a "There is no overloaded - // version of 'GetString' that can be called with these arguments" compiler - // error if the PByte type-cast is used, even though GetString() actually - // expects a PByte as input. Must be a compiler bug, as it compiles fine - // in Delphi 6. So, converting to TIdBytes until I find a better solution... - RawToBytes(LBufPtr^, LLen) - {$ELSE} - PByte(LBufPtr), LLen - {$ENDIF} - ); - end; - finally - BIO_free(LMem); - end; - end; - end; -end; - -{$ELSE} - -procedure DumpCert(AOut: TStrings; AX509: PX509); -begin -end; - -{$ENDIF} - -{$IFNDEF WIN32_OR_WIN64} -procedure _threadid_func(id : PCRYPTO_THREADID) cdecl; -begin - if Assigned(CRYPTO_THREADID_set_numeric) then begin - CRYPTO_THREADID_set_numeric(id, TIdC_ULONG(CurrentThreadId)); - end; -end; - -function _GetThreadID: TIdC_ULONG; cdecl; -begin - // TODO: Verify how well this will work with fibers potentially running from - // thread to thread or many on the same thread. - Result := TIdC_ULONG(CurrentThreadId); -end; -{$ENDIF} - -procedure SslLockingCallback(mode, n: TIdC_INT; Afile: PIdAnsiChar; - line: TIdC_INT)cdecl; -var - Lock: TIdCriticalSection; - LList: TIdCriticalSectionList; -begin - Assert(CallbackLockList <> nil); - Lock := nil; - - LList := CallbackLockList.LockList; - try - if n < LList.Count then begin - Lock := {$IFDEF HAS_GENERICS_TList}LList.Items[n]{$ELSE}TIdCriticalSection(LList.Items[n]){$ENDIF}; - end; - finally - CallbackLockList.UnlockList; - end; - Assert(Lock <> nil); - if (mode and CRYPTO_LOCK) = CRYPTO_LOCK then begin - Lock.Acquire; - end else begin - Lock.Release; - end; -end; - -procedure PrepareOpenSSLLocking; -var - i, cnt: Integer; - Lock: TIdCriticalSection; - LList: TIdCriticalSectionList; -begin - LList := CallbackLockList.LockList; - try - cnt := _CRYPTO_num_locks; - for i := 0 to cnt - 1 do begin - Lock := TIdCriticalSection.Create; - try - LList.Add(Lock); - except - Lock.Free; - raise; - end; - end; - finally - CallbackLockList.UnlockList; - end; -end; - -// Note that I define UCTTime as PASN1_STRING -function UTCTime2DateTime(UCTTime: PASN1_UTCTIME): TDateTime; -{$IFDEF USE_INLINE} inline; {$ENDIF} -var - year: Word; - month: Word; - day: Word; - hour: Word; - min: Word; - sec: Word; - tz_h: Integer; - tz_m: Integer; -begin - Result := 0; - if UTC_Time_Decode(UCTTime, year, month, day, hour, min, sec, tz_h, tz_m) > 0 then begin - Result := EncodeDate(year, month, day) + EncodeTime(hour, min, sec, 0); - AddMins(Result, tz_m); - AddHrs(Result, tz_h); - Result := UTCTimeToLocalTime(Result); - end; -end; - -{ -function RSACallback(sslSocket: PSSL; e: Integer; KeyLength: Integer):PRSA; cdecl; -const - RSA: PRSA = nil; -var - SSLSocket: TSSLWSocket; - IdSSLSocket: TIdSSLSocket; -begin - IdSSLSocket := TIdSSLSocket(IdSslGetAppData(sslSocket)); - - if Assigned(IdSSLSocket) then begin - IdSSLSocket.TriggerSSLRSACallback(KeyLength); - end; - - Result := RSA_generate_key(KeyLength, RSA_F4, @RSAProgressCallback, ssl); -end; -} - -function LogicalAnd(A, B: Integer): Boolean; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := (A and B) = B; -end; - -function BytesToHexString(APtr: Pointer; ALen: Integer): String; -{$IFDEF USE_INLINE} inline; {$ENDIF} -var - i: Integer; - LPtr: PByte; -begin - Result := ''; - LPtr := PByte(APtr); - for i := 0 to (ALen - 1) do begin - if i <> 0 then begin - Result := Result + ':'; { Do not Localize } - end; - Result := Result + IndyFormat('%.2x', [LPtr^]); - Inc(LPtr); - end; -end; - -function MDAsString(const AMD: TIdSSLEVP_MD): String; -{$IFDEF USE_INLINE} inline; {$ENDIF} -var - i: Integer; -begin - Result := ''; - for i := 0 to AMD.Length - 1 do begin - if i <> 0 then begin - Result := Result + ':'; { Do not Localize } - end; - Result := Result + IndyFormat('%.2x', [Byte(AMD.MD[i])]); - { do not localize } - end; -end; - -function LoadOpenSSLLibrary: Boolean; -begin - Assert(SSLIsLoaded <> nil); - SSLIsLoaded.Lock; - try - if SSLIsLoaded.Value then begin - Result := True; - Exit; - end; - Result := IdSSLOpenSSLHeaders.Load; - if not Result then begin - Exit; - end; -{$IFDEF OPENSSL_SET_MEMORY_FUNCS} - // has to be done before anything that uses memory - IdSslCryptoMallocInit; -{$ENDIF} - // required eg to encrypt a private key when writing - OpenSSL_add_all_ciphers; - OpenSSL_add_all_digests; - InitializeRandom; - // IdSslRandScreen; - SSL_load_error_strings; - // Successful loading if true - Result := SSLeay_add_ssl_algorithms > 0; - if not Result then begin - Exit; - end; - // Create locking structures, we need them for callback routines - Assert(LockInfoCB = nil); - LockInfoCB := TIdCriticalSection.Create; - LockPassCB := TIdCriticalSection.Create; - LockVerifyCB := TIdCriticalSection.Create; - // Handle internal OpenSSL locking - CallbackLockList := TIdCriticalSectionThreadList.Create; - PrepareOpenSSLLocking; - CRYPTO_set_locking_callback(@SslLockingCallback); -{$IFNDEF WIN32_OR_WIN64} - if Assigned(CRYPTO_THREADID_set_callback) then begin - CRYPTO_THREADID_set_callback(@_threadid_func); - end else begin - CRYPTO_set_id_callback(@_GetThreadID); - end; -{$ENDIF} - SSLIsLoaded.Value := True; - Result := True; - finally - SSLIsLoaded.Unlock; - end; -end; - -procedure UnLoadOpenSSLLibrary; -// allow the user to call unload directly? -// will then need to implement reference count -{$IFNDEF USE_OBJECT_ARC} -var - i: Integer; - LList: TIdCriticalSectionList; -{$ENDIF} -begin - // ssl was never loaded - if Assigned(CRYPTO_set_locking_callback) then begin - CRYPTO_set_locking_callback(nil); - end; - CleanupRandom; // <-- RLebeau: why is this here and not in IdSSLOpenSSLHeaders.Unload()? - IdSSLOpenSSLHeaders.Unload; - FreeAndNil(LockInfoCB); - FreeAndNil(LockPassCB); - FreeAndNil(LockVerifyCB); - if Assigned(CallbackLockList) then begin - {$IFDEF USE_OBJECT_ARC} - CallbackLockList.Clear; // Items are auto-freed - {$ELSE} - LList := CallbackLockList.LockList; - begin - try - for i := 0 to LList.Count - 1 do begin - {$IFDEF HAS_GENERICS_TList}LList.Items[i]{$ELSE}TIdCriticalSection(LList.Items[i]){$ENDIF}.Free; - end; - LList.Clear; - finally - CallbackLockList.UnlockList; - end; - end; - {$ENDIF} - FreeAndNil(CallbackLockList); - end; - SSLIsLoaded.Value := False; -end; - -function OpenSSLVersion: string; -begin - Result := ''; - // RLebeau 9/7/2015: even if LoadOpenSSLLibrary() fails, _SSLeay_version() - // might have been loaded OK before the failure occured. LoadOpenSSLLibrary() - // does not unload .. - IdSSLOpenSSL.LoadOpenSSLLibrary; - if Assigned(_SSLeay_version) then begin - Result := String(_SSLeay_version(SSLEAY_VERSION)); - end; -end; - -////////////////////////////////////////////////////// -// TIdSSLOptions -/////////////////////////////////////////////////////// - -constructor TIdSSLOptions.Create; -begin - inherited Create; - fMethod := DEF_SSLVERSION; - fSSLVersions := DEF_SSLVERSIONS; -end; - -procedure TIdSSLOptions.SetMethod(const AValue: TIdSSLVersion); -begin - fMethod := AValue; - if AValue = sslvSSLv23 then begin - fSSLVersions := [sslvSSLv2,sslvSSLv3,sslvTLSv1,sslvTLSv1_1,sslvTLSv1_2]; - end else begin - fSSLVersions := [AValue]; - end; -end; - -procedure TIdSSLOptions.SetSSLVersions(const AValue: TIdSSLVersions); -begin - fSSLVersions := AValue; - if fSSLVersions = [sslvSSLv2] then begin - fMethod := sslvSSLv2; - end - else if fSSLVersions = [sslvSSLv3] then begin - fMethod := sslvSSLv3; - end - else if fSSLVersions = [sslvTLSv1] then begin - fMethod := sslvTLSv1; - end - else if fSSLVersions = [sslvTLSv1_1 ] then begin - fMethod := sslvTLSv1_1; - end - else if fSSLVersions = [sslvTLSv1_2 ] then begin - fMethod := sslvTLSv1_2; - end - else begin - fMethod := sslvSSLv23; - if sslvSSLv23 in fSSLVersions then begin - Exclude(fSSLVersions, sslvSSLv23); - if fSSLVersions = [] then begin - fSSLVersions := [sslvSSLv2,sslvSSLv3,sslvTLSv1,sslvTLSv1_1,sslvTLSv1_2]; - end; - end; - end; -end; - -procedure TIdSSLOptions.AssignTo(Destination: TPersistent); -var - LDest: TIdSSLOptions; -begin - if Destination is TIdSSLOptions then begin - LDest := TIdSSLOptions(Destination); - LDest.RootCertFile := RootCertFile; - LDest.CertFile := CertFile; - LDest.KeyFile := KeyFile; - LDest.DHParamsFile := DHParamsFile; - LDest.Method := Method; - LDest.SSLVersions := SSLVersions; - LDest.Mode := Mode; - LDest.VerifyMode := VerifyMode; - LDest.VerifyDepth := VerifyDepth; - LDest.VerifyDirs := VerifyDirs; - LDest.CipherList := CipherList; - end else begin - inherited AssignTo(Destination); - end; -end; - -/////////////////////////////////////////////////////// -// TIdServerIOHandlerSSLOpenSSL -/////////////////////////////////////////////////////// - -{ TIdServerIOHandlerSSLOpenSSL } - -procedure TIdServerIOHandlerSSLOpenSSL.InitComponent; -begin - inherited InitComponent; - fxSSLOptions := TIdSSLOptions_Internal.Create; - TIdSSLOptions_Internal(fxSSLOptions).Parent := Self; -end; - -destructor TIdServerIOHandlerSSLOpenSSL.Destroy; -begin - FreeAndNil(fxSSLOptions); - inherited Destroy; -end; - -procedure TIdServerIOHandlerSSLOpenSSL.Init; -//see also TIdSSLIOHandlerSocketOpenSSL.Init -begin - //ensure Init isn't called twice - Assert(fSSLContext = nil); - fSSLContext := TIdSSLContext.Create; - fSSLContext.Parent := Self; - fSSLContext.RootCertFile := SSLOptions.RootCertFile; - fSSLContext.CertFile := SSLOptions.CertFile; - fSSLContext.KeyFile := SSLOptions.KeyFile; - fSSLContext.DHParamsFile := SSLOptions.DHParamsFile; - fSSLContext.fVerifyDepth := SSLOptions.fVerifyDepth; - fSSLContext.fVerifyMode := SSLOptions.fVerifyMode; - // fSSLContext.fVerifyFile := SSLOptions.fVerifyFile; - fSSLContext.fVerifyDirs := SSLOptions.fVerifyDirs; - fSSLContext.fCipherList := SSLOptions.fCipherList; - fSSLContext.VerifyOn := Assigned(fOnVerifyPeer); - fSSLContext.StatusInfoOn := Assigned(fOnStatusInfo) or Assigned(FOnStatusInfoEx); - //fSSLContext.PasswordRoutineOn := Assigned(fOnGetPassword); - fSSLContext.fMethod := SSLOptions.Method; - fSSLContext.fMode := SSLOptions.Mode; - fSSLContext.fSSLVersions := SSLOptions.SSLVersions; - - fSSLContext.InitContext(sslCtxServer); -end; - -function TIdServerIOHandlerSSLOpenSSL.Accept(ASocket: TIdSocketHandle; - // This is a thread and not a yarn. Its the listener thread. - AListenerThread: TIdThread; AYarn: TIdYarn ): TIdIOHandler; -var - LIO: TIdSSLIOHandlerSocketOpenSSL; -begin - //using a custom scheduler, AYarn may be nil, so don't assert - Assert(ASocket<>nil); - Assert(fSSLContext<>nil); - Assert(AListenerThread<>nil); - - Result := nil; - LIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil); - try - LIO.PassThrough := True; - LIO.Open; - while not AListenerThread.Stopped do begin - if ASocket.Select(250) then begin - if (not AListenerThread.Stopped) and LIO.Binding.Accept(ASocket.Handle) then begin - //we need to pass the SSLOptions for the socket from the server - // TODO: wouldn't it be easier to just Assign() the server's SSLOptions - // here? Do we really need to share ownership of it? - // LIO.fxSSLOptions.Assign(fxSSLOptions); - FreeAndNil(LIO.fxSSLOptions); - LIO.IsPeer := True; - LIO.fxSSLOptions := fxSSLOptions; - LIO.fSSLSocket := TIdSSLSocket.Create(Self); - LIO.fSSLContext := fSSLContext; - // TODO: to enable server-side SNI, we need to: - // - Set up an additional SSL_CTX for each different certificate; - // - Add a servername callback to each SSL_CTX using SSL_CTX_set_tlsext_servername_callback(); - // - In the callback, retrieve the client-supplied servername with - // SSL_get_servername(ssl, TLSEXT_NAMETYPE_host_name). Figure out the right - // SSL_CTX to go with that host name, then switch the SSL object to that - // SSL_CTX with SSL_set_SSL_CTX(). - - // RLebeau 2/1/2022: note, the following call is basically a no-op for OpenSSL, - // because PassThrough=True and fSSLContext are both assigned above, so there - // is really nothing for TIdSSLIOHandlerSocketOpenSSL.Init() or - // TIdSSLIOHandlerSocketOpenSSL.StartSSL() to do when called by - // TIdSSLIOHandlerSocketOpenSSL.AfterAccept(). If anything, all this will - // really do is update the Binding's IPVersion. But, calling this is consistent - // with other server Accept() implementations, so we should do it here, too... - LIO.AfterAccept; - - Result := LIO; - LIO := nil; - Break; - end; - end; - end; - finally - FreeAndNil(LIO); - end; -end; - -procedure TIdServerIOHandlerSSLOpenSSL.DoStatusInfo(const AMsg: String); -begin - if Assigned(fOnStatusInfo) then begin - fOnStatusInfo(AMsg); - end; -end; - -procedure TIdServerIOHandlerSSLOpenSSL.DoStatusInfoEx(const AsslSocket: PSSL; - const AWhere, Aret: TIdC_INT; const AWhereStr, ARetStr: String); -begin - if Assigned(FOnStatusInfoEx) then begin - FOnStatusInfoEx(Self,AsslSocket,AWhere,Aret,AWHereStr,ARetStr); - end; -end; - -procedure TIdServerIOHandlerSSLOpenSSL.DoGetPassword(var Password: String); -begin - if Assigned(fOnGetPassword) then begin - fOnGetPassword(Password); - end; -end; - -procedure TIdServerIOHandlerSSLOpenSSL.DoGetPasswordEx( - var VPassword: String; const AIsWrite: Boolean); -begin - if Assigned(fOnGetPasswordEx) then begin - fOnGetPasswordEx(Self,VPassword,AIsWrite); - end; -end; - -function TIdServerIOHandlerSSLOpenSSL.DoVerifyPeer(Certificate: TIdX509; - AOk: Boolean; ADepth, AError: Integer): Boolean; -begin - Result := True; - if Assigned(fOnVerifyPeer) then begin - Result := fOnVerifyPeer(Certificate, AOk, ADepth, AError); - end; -end; - -function TIdServerIOHandlerSSLOpenSSL.MakeFTPSvrPort : TIdSSLIOHandlerSocketBase; -var - LIO : TIdSSLIOHandlerSocketOpenSSL; -begin - LIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil); - try - LIO.PassThrough := True; - LIO.OnGetPassword := DoGetPassword; - LIO.OnGetPasswordEx := OnGetPasswordEx; - LIO.IsPeer := True; // RLebeau 1/24/2019: is this still needed now? - LIO.SSLOptions.Assign(SSLOptions); - LIO.SSLOptions.Mode := sslmBoth;{or sslmClient}{doesn't really matter} - LIO.SSLContext := SSLContext; - except - LIO.Free; - raise; - end; - Result := LIO; -end; - -procedure TIdServerIOHandlerSSLOpenSSL.Shutdown; -begin - FreeAndNil(fSSLContext); - inherited Shutdown; -end; - -function TIdServerIOHandlerSSLOpenSSL.MakeFTPSvrPasv : TIdSSLIOHandlerSocketBase; -var - LIO : TIdSSLIOHandlerSocketOpenSSL; -begin - LIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil); - try - LIO.PassThrough := True; - LIO.OnGetPassword := DoGetPassword; - LIO.OnGetPasswordEx := OnGetPasswordEx; - LIO.IsPeer := True; - LIO.SSLOptions.Assign(SSLOptions); - LIO.SSLOptions.Mode := sslmBoth;{or sslmServer} - LIO.SSLContext := nil; - except - LIO.Free; - raise; - end; - Result := LIO; -end; - -{ IIdSSLOpenSSLCallbackHelper } - -function TIdServerIOHandlerSSLOpenSSL.GetPassword(const AIsWrite : Boolean): string; -begin - DoGetPasswordEx(Result, AIsWrite); - if Result = '' then begin - DoGetPassword(Result); - end; -end; - -procedure TIdServerIOHandlerSSLOpenSSL.StatusInfo(const ASslSocket: PSSL; - AWhere, ARet: TIdC_INT; const AStatusStr: string); -var - LType, LMsg: string; -begin - DoStatusInfo(AStatusStr); - if Assigned(fOnStatusInfoEx) then begin - GetStateVars(ASslSocket, AWhere, ARet, LType, LMsg); - DoStatusInfoEx(ASslSocket, AWhere, ARet, LType, LMsg); - end; -end; - -function TIdServerIOHandlerSSLOpenSSL.VerifyPeer(ACertificate: TIdX509; - AOk: Boolean; ADepth, AError: Integer): Boolean; -begin - Result := DoVerifyPeer(ACertificate, AOk, ADepth, AError); -end; - -function TIdServerIOHandlerSSLOpenSSL.GetIOHandlerSelf: TIdSSLIOHandlerSocketOpenSSL; -begin - Result := nil; -end; - -/////////////////////////////////////////////////////// -// TIdSSLIOHandlerSocketOpenSSL -/////////////////////////////////////////////////////// - -function TIdServerIOHandlerSSLOpenSSL.MakeClientIOHandler: TIdSSLIOHandlerSocketBase; -var - LIO : TIdSSLIOHandlerSocketOpenSSL; -begin - LIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil); - try - LIO.PassThrough := True; - // LIO.SSLOptions.Free; - // LIO.SSLOptions := SSLOptions; - // LIO.SSLContext := SSLContext; - LIO.SSLOptions.Assign(SSLOptions); - // LIO.SSLContext := SSLContext; - LIO.SSLContext := nil;//SSLContext.Clone; // BGO: clone does not work, it must be either NIL, or SSLContext - LIO.OnGetPassword := DoGetPassword; - LIO.OnGetPasswordEx := OnGetPasswordEx; - except - LIO.Free; - raise; - end; - Result := LIO; -end; - -{ TIdSSLIOHandlerSocketOpenSSL } - -procedure TIdSSLIOHandlerSocketOpenSSL.InitComponent; -begin - inherited InitComponent; - IsPeer := False; - fxSSLOptions := TIdSSLOptions_Internal.Create; - TIdSSLOptions_Internal(fxSSLOptions).Parent := Self; - fSSLLayerClosed := True; - fSSLContext := nil; -end; - -destructor TIdSSLIOHandlerSocketOpenSSL.Destroy; -begin - FreeAndNil(fSSLSocket); - //we do not destroy these if their Parent is not Self - //because these do not belong to us when we are in a server. - if (fSSLContext <> nil) and (fSSLContext.Parent = Self) then begin - FreeAndNil(fSSLContext); - end; - if (fxSSLOptions <> nil) and - (fxSSLOptions is TIdSSLOptions_Internal) and - (TIdSSLOptions_Internal(fxSSLOptions).Parent = Self) then - begin - FreeAndNil(fxSSLOptions); - end; - inherited Destroy; -end; - -procedure TIdSSLIOHandlerSocketOpenSSL.ConnectClient; -var - LPassThrough: Boolean; -begin - // RLebeau: initialize OpenSSL before connecting the socket... - try - Init; - except - on EIdOSSLCouldNotLoadSSLLibrary do begin - if not PassThrough then raise; - end; - end; - // RLebeau 1/11/07: In case a proxy is being used, pass through - // any data from the base class unencrypted when setting up that - // connection. We should do this anyway since SSL hasn't been - // negotiated yet! - LPassThrough := fPassThrough; - fPassThrough := True; - try - inherited ConnectClient; - finally - fPassThrough := LPassThrough; - end; - DoBeforeConnect(Self); - // CreateSSLContext(sslmClient); - // CreateSSLContext(SSLOptions.fMode); - StartSSL; -end; - -procedure TIdSSLIOHandlerSocketOpenSSL.StartSSL; -begin - if not PassThrough then begin - OpenEncodedConnection; - end; -end; - -procedure TIdSSLIOHandlerSocketOpenSSL.Close; -begin - FreeAndNil(fSSLSocket); - if fSSLContext <> nil then begin - if fSSLContext.Parent = Self then begin - FreeAndNil(fSSLContext); - end else begin - fSSLContext := nil; - end; - end; - inherited Close; -end; - -procedure TIdSSLIOHandlerSocketOpenSSL.Open; -begin - FOpened := False; - inherited Open; -end; - -function TIdSSLIOHandlerSocketOpenSSL.Readable(AMSec: Integer = IdTimeoutDefault): Boolean; -begin - if not fPassThrough then - begin - Result := (fSSLSocket <> nil) and (ssl_pending(fSSLSocket.fSSL) > 0); - if Result then Exit; - end; - Result := inherited Readable(AMSec); -end; - -procedure TIdSSLIOHandlerSocketOpenSSL.SetPassThrough(const Value: Boolean); -begin - if fPassThrough <> Value then begin - if not Value then begin - if BindingAllocated then begin - if Assigned(fSSLContext) then begin - OpenEncodedConnection; - end else begin - raise EIdOSSLCouldNotLoadSSLLibrary.Create(RSOSSLCouldNotLoadSSLLibrary); - end; - end; - end - else begin - // RLebeau 8/16/2019: need to call SSL_shutdown() here if the SSL/TLS session is active. - // This is for FTP when handling CCC and REIN commands. The SSL/TLS session needs to be - // shutdown cleanly on both ends without closing the underlying socket connection because - // it is going to be used for continued unsecure communications! - if (fSSLSocket <> nil) and (fSSLSocket.fSSL <> nil) then begin - // if SSL_shutdown() returns 0, a "close notify" was sent to the peer and SSL_shutdown() - // needs to be called again to receive the peer's "close notify" in response... - if SSL_shutdown(fSSLSocket.fSSL) = 0 then begin - SSL_shutdown(fSSLSocket.fSSL); - end; - end; - {$IFDEF WIN32_OR_WIN64} - // begin bug fix - if BindingAllocated and IndyCheckWindowsVersion(6) then - begin - // disables Vista+ SSL_Read and SSL_Write timeout fix - Binding.SetSockOpt(Id_SOL_SOCKET, Id_SO_RCVTIMEO, 0); - Binding.SetSockOpt(Id_SOL_SOCKET, Id_SO_SNDTIMEO, 0); - end; - // end bug fix - {$ENDIF} - end; - fPassThrough := Value; - end; -end; - -function TIdSSLIOHandlerSocketOpenSSL.RecvEnc(var VBuffer: TIdBytes): Integer; -begin - Result := fSSLSocket.Recv(VBuffer); -end; - -function TIdSSLIOHandlerSocketOpenSSL.SendEnc(const ABuffer: TIdBytes; - const AOffset, ALength: Integer): Integer; -begin - Result := fSSLSocket.Send(ABuffer, AOffset, ALength); -end; - -procedure TIdSSLIOHandlerSocketOpenSSL.AfterAccept; -begin - try - inherited AfterAccept; - // RLebeau: initialize OpenSSL after accepting a client socket... - try - Init; - except - on EIdOSSLCouldNotLoadSSLLibrary do begin - if not PassThrough then raise; - end; - end; - StartSSL; - except - Close; - raise; - end; -end; - -procedure TIdSSLIOHandlerSocketOpenSSL.Init; -//see also TIdServerIOHandlerSSLOpenSSL.Init -begin - if not Assigned(fSSLContext) then begin - fSSLContext := TIdSSLContext.Create; - fSSLContext.Parent := Self; - fSSLContext.RootCertFile := SSLOptions.RootCertFile; - fSSLContext.CertFile := SSLOptions.CertFile; - fSSLContext.KeyFile := SSLOptions.KeyFile; - fSSLContext.DHParamsFile := SSLOptions.DHParamsFile; - fSSLContext.fVerifyDepth := SSLOptions.fVerifyDepth; - fSSLContext.fVerifyMode := SSLOptions.fVerifyMode; - // fSSLContext.fVerifyFile := SSLOptions.fVerifyFile; - fSSLContext.fVerifyDirs := SSLOptions.fVerifyDirs; - fSSLContext.fCipherList := SSLOptions.fCipherList; - fSSLContext.VerifyOn := Assigned(fOnVerifyPeer); - fSSLContext.StatusInfoOn := Assigned(fOnStatusInfo) or Assigned(fOnStatusInfoEx); - //fSSLContext.PasswordRoutineOn := Assigned(fOnGetPassword); - fSSLContext.fMethod := SSLOptions.Method; - fSSLContext.fSSLVersions := SSLOptions.SSLVersions; - fSSLContext.fMode := SSLOptions.Mode; - fSSLContext.InitContext(sslCtxClient); - end; -end; -//} - -procedure TIdSSLIOHandlerSocketOpenSSL.DoStatusInfo(const AMsg: String); -begin - if Assigned(fOnStatusInfo) then begin - fOnStatusInfo(AMsg); - end; -end; - -procedure TIdSSLIOHandlerSocketOpenSSL.DoStatusInfoEx( - const AsslSocket: PSSL; const AWhere, Aret: TIdC_INT; const AWhereStr, - ARetStr: String); -begin - if Assigned(FOnStatusInfoEx) then begin - FOnStatusInfoEx(Self,AsslSocket,AWhere,Aret,AWHereStr,ARetStr); - end; -end; - -procedure TIdSSLIOHandlerSocketOpenSSL.DoGetPassword(var Password: String); -begin - if Assigned(fOnGetPassword) then begin - fOnGetPassword(Password); - end; -end; - -procedure TIdSSLIOHandlerSocketOpenSSL.DoGetPasswordEx(var VPassword: String; - const AIsWrite: Boolean); -begin - if Assigned(fOnGetPasswordEx) then begin - fOnGetPasswordEx(Self,VPassword,AIsWrite); - end; -end; - -function TIdSSLIOHandlerSocketOpenSSL.DoVerifyPeer(Certificate: TIdX509; - AOk: Boolean; ADepth, AError: Integer): Boolean; -begin - Result := True; - if Assigned(fOnVerifyPeer) then begin - Result := fOnVerifyPeer(Certificate, AOk, ADepth, AError); - end; -end; - -procedure TIdSSLIOHandlerSocketOpenSSL.OpenEncodedConnection; -var - {$IFDEF WIN32_OR_WIN64} - LTimeout: Integer; - {$ENDIF} - LMode: TIdSSLMode; - LHost: string; - - // TODO: move the following to TIdSSLIOHandlerSocketBase... - - function GetURIHost: string; - var - LURI: TIdURI; - begin - Result := ''; - if URIToCheck <> '' then - begin - LURI := TIdURI.Create(URIToCheck); - try - Result := LURI.Host; - finally - LURI.Free; - end; - end; - end; - - function GetProxyTargetHost: string; - var - // under ARC, convert a weak reference to a strong reference before working with it - LTransparentProxy, LNextTransparentProxy: TIdCustomTransparentProxy; - begin - Result := ''; - // RLebeau: not reading from the property as it will create a - // default Proxy object if one is not already assigned... - LTransparentProxy := FTransparentProxy; - if Assigned(LTransparentProxy) then - begin - if LTransparentProxy.Enabled then - begin - repeat - LNextTransparentProxy := LTransparentProxy.ChainedProxy; - if not Assigned(LNextTransparentProxy) then Break; - if not LNextTransparentProxy.Enabled then Break; - LTransparentProxy := LNextTransparentProxy; - until False; - Result := LTransparentProxy.Host; - end; - end; - end; - -begin - Assert(Binding<>nil); - if not Assigned(fSSLSocket) then begin - fSSLSocket := TIdSSLSocket.Create(Self); - end; - Assert(fSSLSocket.fSSLContext=nil); - fSSLSocket.fSSLContext := fSSLContext; - {$IFDEF WIN32_OR_WIN64} - // begin bug fix - if IndyCheckWindowsVersion(6) then - begin - // Note: Fix needed to allow SSL_Read and SSL_Write to timeout under - // Vista+ when connection is dropped - LTimeout := FReadTimeOut; - if LTimeout <= 0 then begin - LTimeout := 30000; // 30 seconds - end; - Binding.SetSockOpt(Id_SOL_SOCKET, Id_SO_RCVTIMEO, LTimeout); - Binding.SetSockOpt(Id_SOL_SOCKET, Id_SO_SNDTIMEO, LTimeout); - end; - // end bug fix - {$ENDIF} - // RLebeau 7/2/2015: do not rely on IsPeer to decide whether to call Connect() - // or Accept(). SSLContext.Mode controls whether a client or server method is - // used to handle the connection, so that same value should be used here as well. - // A user encountered a scenario where he needed to connect a TIdTCPClient to a - // TCP server on a hardware device, but run the client's SSLIOHandler as an SSL - // server because the device was initiating the SSL handshake as an SSL client. - // IsPeer was not designed to handle that scenario. Setting IsPeer to True - // allowed Accept() to be called here, but at the cost of causing memory leaks - // in TIdSSLIOHandlerSocketOpenSSL.Destroy() and TIdSSLIOHandlerSocketOpenSSL.Close() - // in client components! IsPeer is intended to be set to True only in server - // components... - LMode := fSSLContext.Mode; - if not (LMode in [sslmClient, sslmServer]) then begin - // Mode must be sslmBoth (or else TIdSSLContext.SetSSLMethod() would have - // raised an exception), so just fall back to previous behavior for now, - // until we can figure out a better way to handle this scenario... - if IsPeer then begin - LMode := sslmServer; - end else begin - LMode := sslmClient; - end; - end; - if LMode = sslmClient then begin - LHost := GetURIHost; - if LHost = '' then - begin - LHost := GetProxyTargetHost; - if LHost = '' then begin - LHost := Self.Host; - end; - end; - fSSLSocket.fHostName := LHost; - fSSLSocket.Connect(Binding.Handle); - end else begin - fSSLSocket.fHostName := ''; - fSSLSocket.Accept(Binding.Handle); - end; - fPassThrough := False; -end; - -procedure TIdSSLIOHandlerSocketOpenSSL.DoBeforeConnect(ASender: TIdSSLIOHandlerSocketOpenSSL); -begin - if Assigned(OnBeforeConnect) then begin - OnBeforeConnect(Self); - end; -end; - - -// TODO: add an AOwner parameter -function TIdSSLIOHandlerSocketOpenSSL.Clone: TIdSSLIOHandlerSocketBase; -var - LIO : TIdSSLIOHandlerSocketOpenSSL; -begin - LIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil); - try - LIO.SSLOptions.Assign( SSLOptions ); - LIO.OnStatusInfo := DoStatusInfo; - LIO.OnGetPassword := DoGetPassword; - LIO.OnGetPasswordEx := OnGetPasswordEx; - LIO.OnVerifyPeer := DoVerifyPeer; - LIO.fSSLSocket := TIdSSLSocket.Create(Self); - except - LIO.Free; - raise; - end; - Result := LIO; -end; - -function TIdSSLIOHandlerSocketOpenSSL.CheckForError(ALastResult: Integer): Integer; -//var -// err: Integer; -begin - if PassThrough then begin - Result := inherited CheckForError(ALastResult); - end else begin - Result := fSSLSocket.GetSSLError(ALastResult); - if Result = SSL_ERROR_NONE then begin - Result := 0; - Exit; - end; - if Result = SSL_ERROR_SYSCALL then begin - Result := inherited CheckForError(Integer(Id_SOCKET_ERROR)); - Exit; - end; - EIdOpenSSLAPISSLError.RaiseExceptionCode(Result, ALastResult, ''); - end; -end; - -procedure TIdSSLIOHandlerSocketOpenSSL.RaiseError(AError: Integer); -begin - if (PassThrough) or (AError = Id_WSAESHUTDOWN) or (AError = Id_WSAECONNABORTED) or (AError = Id_WSAECONNRESET) then begin - inherited RaiseError(AError); - end else begin - EIdOpenSSLAPISSLError.RaiseException(fSSLSocket.fSSL, AError, ''); - end; -end; - -{ IIdSSLOpenSSLCallbackHelper } - -function TIdSSLIOHandlerSocketOpenSSL.GetPassword(const AIsWrite : Boolean): string; -begin - DoGetPasswordEx(Result, AIsWrite); - if Result = '' then begin - DoGetPassword(Result); - end; -end; - -procedure TIdSSLIOHandlerSocketOpenSSL.StatusInfo(const ASslSocket: PSSL; - AWhere, ARet: TIdC_INT; const AStatusStr: string); -var - LType, LMsg: string; -begin - DoStatusInfo(AStatusStr); - if Assigned(fOnStatusInfoEx) then begin - GetStateVars(ASslSocket, AWhere, ARet, LType, LMsg); - DoStatusInfoEx(ASslSocket, AWhere, ARet, LType, LMsg); - end; -end; - -function TIdSSLIOHandlerSocketOpenSSL.VerifyPeer(ACertificate: TIdX509; - AOk: Boolean; ADepth, AError: Integer): Boolean; -begin - Result := DoVerifyPeer(ACertificate, AOk, ADepth, AError); -end; - -function TIdSSLIOHandlerSocketOpenSSL.GetIOHandlerSelf: TIdSSLIOHandlerSocketOpenSSL; -begin - Result := Self; -end; - -{ TIdSSLContext } - -constructor TIdSSLContext.Create; -begin - inherited Create; - //an exception here probably means that you are using the wrong version - //of the openssl libraries. refer to comments at the top of this file. - if not LoadOpenSSLLibrary then begin - raise EIdOSSLCouldNotLoadSSLLibrary.Create(RSOSSLCouldNotLoadSSLLibrary); - end; - fVerifyMode := []; - fMode := sslmUnassigned; - fSessionId := 1; -end; - -destructor TIdSSLContext.Destroy; -begin - DestroyContext; - inherited Destroy; -end; - -procedure TIdSSLContext.DestroyContext; -begin - if fContext <> nil then begin - SSL_CTX_free(fContext); - fContext := nil; - end; -end; - -procedure TIdSSLContext.InitContext(CtxMode: TIdSSLCtxMode); -var - SSLMethod: PSSL_METHOD; - error: TIdC_INT; -// pCAname: PSTACK_X509_NAME; - {$IFDEF USE_MARSHALLED_PTRS} - M: TMarshaller; - {$ENDIF} -begin - // Destroy the context first - DestroyContext; - if fMode = sslmUnassigned then begin - if CtxMode = sslCtxServer then begin - fMode := sslmServer; - end else begin - fMode := sslmClient; - end - end; - // get SSL method function (SSL2, SSL23, SSL3, TLS) - SSLMethod := SetSSLMethod; - // create new SSL context - fContext := SSL_CTX_new(SSLMethod); - if fContext = nil then begin - EIdOSSLCreatingContextError.RaiseException(RSSSLCreatingContextError); - end; - //set SSL Versions we will use - - // in OpenSSL 1.0.2g onwards, SSLv2 is disabled and not exported by default - // at compile-time. If OpenSSL is compiled with "enable-ssl2" enabled so the - // SSLv2_xxx_method() functions are exported, SSLv2 is still disabled by - // default in the SSLv23_xxx_method() functions and must be enabled explicitly... - if IsOpenSSL_SSLv2_Available then begin - if not (sslvSSLv2 in SSLVersions) then begin - SSL_CTX_set_options(fContext, SSL_OP_NO_SSLv2); - end - else if (fMethod = sslvSSLv23) then begin - SSL_CTX_clear_options(fContext, SSL_OP_NO_SSLv2); - end; - end; - // SSLv3 might also be disabled as well.. - if IsOpenSSL_SSLv3_Available then begin - if not (sslvSSLv3 in SSLVersions) then begin - SSL_CTX_set_options(fContext, SSL_OP_NO_SSLv3); - end - else if (fMethod = sslvSSLv23) then begin - SSL_CTX_clear_options(fContext, SSL_OP_NO_SSLv3); - end; - end; - // may as well do the same for all of them... - if IsOpenSSL_TLSv1_0_Available then begin - if not (sslvTLSv1 in SSLVersions) then begin - SSL_CTX_set_options(fContext, SSL_OP_NO_TLSv1); - end - else if (fMethod = sslvSSLv23) then begin - SSL_CTX_clear_options(fContext, SSL_OP_NO_TLSv1); - end; - end; -{IMPORTANT!!! Do not set SSL_CTX_set_options SSL_OP_NO_TLSv1_1 and -SSL_OP_NO_TLSv1_2 if that functionality is not available. OpenSSL 1.0 and -earlier do not support those flags. Those flags would only cause -an invalid MAC when doing SSL.} - if IsOpenSSL_TLSv1_1_Available then begin - if not (sslvTLSv1_1 in SSLVersions) then begin - SSL_CTX_set_options(fContext, SSL_OP_NO_TLSv1_1); - end - else if (fMethod = sslvSSLv23) then begin - SSL_CTX_clear_options(fContext, SSL_OP_NO_TLSv1_1); - end; - end; - if IsOpenSSL_TLSv1_2_Available then begin - if not (sslvTLSv1_2 in SSLVersions) then begin - SSL_CTX_set_options(fContext, SSL_OP_NO_TLSv1_2); - end - else if (fMethod = sslvSSLv23) then begin - SSL_CTX_clear_options(fContext, SSL_OP_NO_TLSv1_2); - end; - end; - - SSL_CTX_set_mode(fContext, SSL_MODE_AUTO_RETRY); - // assign a password lookup routine -// if PasswordRoutineOn then begin - SSL_CTX_set_default_passwd_cb(fContext, @PasswordCallback); - SSL_CTX_set_default_passwd_cb_userdata(fContext, Self); -// end; - - SSL_CTX_set_default_verify_paths(fContext); - // load key and certificate files - if (RootCertFile <> '') or (VerifyDirs <> '') then begin {Do not Localize} - if not LoadRootCert then begin - EIdOSSLLoadingRootCertError.RaiseException(RSSSLLoadingRootCertError); - end; - end; - if CertFile <> '' then begin {Do not Localize} - if not LoadCert then begin - EIdOSSLLoadingCertError.RaiseException(RSSSLLoadingCertError); - end; - end; - if KeyFile <> '' then begin {Do not Localize} - if not LoadKey then begin - EIdOSSLLoadingKeyError.RaiseException(RSSSLLoadingKeyError); - end; - end; - if DHParamsFile <> '' then begin {Do not Localize} - if not LoadDHParams then begin - EIdOSSLLoadingDHParamsError.RaiseException(RSSSLLoadingDHParamsError); - end; - end; - if StatusInfoOn then begin - SSL_CTX_set_info_callback(fContext, InfoCallback); - end; - //if_SSL_CTX_set_tmp_rsa_callback(hSSLContext, @RSACallback); - if fCipherList <> '' then begin {Do not Localize} - error := SSL_CTX_set_cipher_list(fContext, - {$IFDEF USE_MARSHALLED_PTRS} - M.AsAnsi(fCipherList).ToPointer - {$ELSE} - PAnsiChar( - {$IFDEF STRING_IS_ANSI} - fCipherList - {$ELSE} - AnsiString(fCipherList) // explicit cast to Ansi - {$ENDIF} - ) - {$ENDIF} - ); - end else begin - // RLebeau: don't override OpenSSL's default. As OpenSSL evolves, the - // SSL_DEFAULT_CIPHER_LIST constant defined in the C/C++ SDK may change, - // while Indy's define of it might take some time to catch up. We don't - // want users using an older default with newer DLLs... - (* - error := SSL_CTX_set_cipher_list(fContext, - {$IFDEF USE_MARSHALLED_PTRS} - M.AsAnsi(SSL_DEFAULT_CIPHER_LIST).ToPointer - {$ELSE} - SSL_DEFAULT_CIPHER_LIST - {$ENDIF} - ); - *) - error := 1; - end; - if error <= 0 then begin - // TODO: should this be using EIdOSSLSettingCipherError.RaiseException() instead? - raise EIdOSSLSettingCipherError.Create(RSSSLSettingCipherError); - end; - if fVerifyMode <> [] then begin - SetVerifyMode(fVerifyMode, VerifyOn); - end; - if CtxMode = sslCtxServer then begin - SSL_CTX_set_session_id_context(fContext, PByte(@fSessionId), SizeOf(fSessionId)); - end; - // CA list - if RootCertFile <> '' then begin {Do not Localize} - SSL_CTX_set_client_CA_list(fContext, IndySSL_load_client_CA_file(RootCertFile)); - end - - // TODO: provide an event so users can apply their own settings as needed... -end; - -procedure TIdSSLContext.SetVerifyMode(Mode: TIdSSLVerifyModeSet; CheckRoutine: Boolean); -var - Func: TSSL_CTX_set_verify_callback; -begin - if fContext<>nil then begin -// SSL_CTX_set_default_verify_paths(fContext); - if CheckRoutine then begin - Func := VerifyCallback; - end else begin - Func := nil; - end; - SSL_CTX_set_verify(fContext, TranslateInternalVerifyToSSL(Mode), Func); - SSL_CTX_set_verify_depth(fContext, fVerifyDepth); - end; -end; - -function TIdSSLContext.GetVerifyMode: TIdSSLVerifyModeSet; -begin - Result := fVerifyMode; -end; -{ -function TIdSSLContext.LoadVerifyLocations(FileName: String; Dirs: String): Boolean; -begin - Result := False; - - if (Dirs <> '') or (FileName <> '') then begin - if IndySSL_CTX_load_verify_locations(fContext, FileName, Dirs) <= 0 then begin - raise EIdOSSLCouldNotLoadSSLLibrary.Create(RSOSSLCouldNotLoadSSLLibrary); - end; - end; - - Result := True; -end; -} -function SelectTLS1Method(const AMode : TIdSSLMode) : PSSL_METHOD; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := nil; - case AMode of - sslmServer : begin - if Assigned(TLSv1_server_method) then begin - Result := TLSv1_server_method(); - end; - end; - sslmClient : begin - if Assigned(TLSv1_client_method) then begin - Result := TLSv1_client_method(); - end; - end; - else - if Assigned(TLSv1_method) then begin - Result := TLSv1_method(); - end; - end; -end; - -function TIdSSLContext.SetSSLMethod: PSSL_METHOD; -begin - Result := nil; - if fMode = sslmUnassigned then begin - raise EIdOSSLModeNotSet.Create(RSOSSLModeNotSet); - end; - case fMethod of - sslvSSLv2: - case fMode of - sslmServer : begin - if Assigned(SSLv2_server_method) then begin - Result := SSLv2_server_method(); - end; - end; - sslmClient : begin - if Assigned(SSLv2_client_method) then begin - Result := SSLv2_client_method(); - end; - end; - else - if Assigned(SSLv2_method) then begin - Result := SSLv2_method(); - end; - end; - sslvSSLv23: - case fMode of - sslmServer : begin - if Assigned(SSLv23_server_method) then begin - Result := SSLv23_server_method(); - end; - end; - sslmClient : begin - if Assigned(SSLv23_client_method) then begin - Result := SSLv23_client_method(); - end; - end; - else - if Assigned(SSLv23_method) then begin - Result := SSLv23_method(); - end; - end; - sslvSSLv3: - case fMode of - sslmServer : begin - if Assigned(SSLv3_server_method) then begin - Result := SSLv3_server_method(); - end; - end; - sslmClient : begin - if Assigned(SSLv3_client_method) then begin - Result := SSLv3_client_method(); - end; - end; - else - if Assigned(SSLv3_method) then begin - Result := SSLv3_method(); - end; - end; - {IMPORTANT!!! fallback to TLS 1.0 if TLS 1.1 or 1.2 is not available. - This is important because OpenSSL earlier than 1.0.1 does not support this - functionality. - - Todo: Figure out a better fallback. - } - // TODO: get rid of this fallack! If the user didn't choose TLS 1.0, then - // don't falback to it, just fail instead, like with all of the other SSL/TLS - // versions... - sslvTLSv1: - Result := SelectTLS1Method(fMode); - sslvTLSv1_1: - case fMode of - sslmServer : begin - if Assigned(TLSv1_1_server_method) then begin - Result := TLSv1_1_server_method(); - end else begin - Result := SelectTLS1Method(fMode); - end; - end; - sslmClient : begin - if Assigned(TLSv1_1_client_method) then begin - Result := TLSv1_1_client_method(); - end else begin - Result := SelectTLS1Method(fMode); - end; - end; - else - if Assigned(TLSv1_1_method) then begin - Result := TLSv1_1_method(); - end else begin - Result := SelectTLS1Method(fMode); - end; - end; - sslvTLSv1_2: - case fMode of - sslmServer : begin - if Assigned(TLSv1_2_server_method) then begin - Result := TLSv1_2_server_method(); - end else begin - // TODO: fallback to TLSv1.1 if available? - Result := SelectTLS1Method(fMode); - end; - end; - sslmClient : begin - if Assigned(TLSv1_2_client_method) then begin - Result := TLSv1_2_client_method(); - end else begin - // TODO: fallback to TLSv1.1 if available? - Result := SelectTLS1Method(fMode); - end; - end; - else - if Assigned(TLSv1_2_method) then begin - Result := TLSv1_2_method(); - end else begin - // TODO: fallback to TLSv1.1 if available? - Result := SelectTLS1Method(fMode); - end; - end; - end; - if Result = nil then begin - raise EIdOSSLGetMethodError.Create(RSSSLGetMethodError); - end; -end; - -function TIdSSLContext.LoadRootCert: Boolean; -begin - Result := IndySSL_CTX_load_verify_locations(fContext, RootCertFile, VerifyDirs) > 0; -end; - -function TIdSSLContext.LoadCert: Boolean; -begin - if PosInStrArray(ExtractFileExt(CertFile), ['.p12', '.pfx'], False) <> -1 then begin - Result := IndySSL_CTX_use_certificate_file_PKCS12(fContext, CertFile) > 0; - end else begin - //OpenSSL 1.0.2 has a new function, SSL_CTX_use_certificate_chain_file - //that handles a chain of certificates in a PEM file. That is prefered. - if Assigned(SSL_CTX_use_certificate_chain_file) then begin - Result := IndySSL_CTX_use_certificate_chain_file(fContext, CertFile) > 0; - end else begin - Result := IndySSL_CTX_use_certificate_file(fContext, CertFile, SSL_FILETYPE_PEM) > 0; - end; - end; -end; - -function TIdSSLContext.LoadKey: Boolean; -begin - if PosInStrArray(ExtractFileExt(KeyFile), ['.p12', '.pfx'], False) <> -1 then begin - Result := IndySSL_CTX_use_PrivateKey_file_PKCS12(fContext, KeyFile) > 0; - end else begin - Result := IndySSL_CTX_use_PrivateKey_file(fContext, KeyFile, SSL_FILETYPE_PEM) > 0; - end; - if Result then begin - Result := SSL_CTX_check_private_key(fContext) > 0; - end; -end; - -function TIdSSLContext.LoadDHParams: Boolean; -begin - Result := IndySSL_CTX_use_DHparams_file(fContext, fsDHParamsFile, SSL_FILETYPE_PEM) > 0; -end; - -////////////////////////////////////////////////////////////// - -function TIdSSLContext.Clone: TIdSSLContext; -begin - Result := TIdSSLContext.Create; - Result.StatusInfoOn := StatusInfoOn; -// property PasswordRoutineOn: Boolean read fPasswordRoutineOn write fPasswordRoutineOn; - Result.VerifyOn := VerifyOn; - Result.Method := Method; - Result.SSLVersions := SSLVersions; - Result.Mode := Mode; - Result.RootCertFile := RootCertFile; - Result.CertFile := CertFile; - Result.KeyFile := KeyFile; - Result.VerifyMode := VerifyMode; - Result.VerifyDepth := VerifyDepth; -end; - -{ TIdSSLSocket } - -constructor TIdSSLSocket.Create(Parent: TObject); -begin - inherited Create; - fParent := Parent; -end; - -destructor TIdSSLSocket.Destroy; -begin - if fSSL <> nil then begin - // TODO: should this be moved to TIdSSLContext instead? Is this here - // just to make sure the SSL shutdown does not log any messages? - { - if (fSSLContext <> nil) and (fSSLContext.StatusInfoOn) and - (fSSLContext.fContext <> nil) then begin - SSL_CTX_set_info_callback(fSSLContext.fContext, nil); - end; - } - //SSL_set_shutdown(fSSL, SSL_SENT_SHUTDOWN); - SSL_shutdown(fSSL); - SSL_free(fSSL); - fSSL := nil; - end; - FreeAndNil(fSSLCipher); - FreeAndNil(fPeerCert); - inherited Destroy; -end; - -function TIdSSLSocket.GetSSLError(retCode: Integer): Integer; -begin - // COMMENT!!! - // I found out that SSL layer should not interpret errors, cause they will pop up - // on the socket layer. Only thing that the SSL layer should consider is key - // or protocol renegotiation. This is done by loop in read and write - Result := SSL_get_error(fSSL, retCode); - case Result of - SSL_ERROR_NONE: - Result := SSL_ERROR_NONE; - SSL_ERROR_WANT_WRITE: - Result := SSL_ERROR_WANT_WRITE; - SSL_ERROR_WANT_READ: - Result := SSL_ERROR_WANT_READ; - SSL_ERROR_ZERO_RETURN: - Result := SSL_ERROR_ZERO_RETURN; - //Result := SSL_ERROR_NONE; - { - // ssl layer has been disconnected, it is not necessary that also - // socked has been closed - case Mode of - sslemClient: begin - case Action of - sslWrite: begin - if retCode = 0 then begin - Result := 0; - end - else begin - raise EIdException.Create(RSOSSLConnectionDropped); // TODO: create a new Exception class for this - end; - end; - end; - end;} - - //raise EIdException.Create(RSOSSLConnectionDropped); // TODO: create a new Exception class for this - // X509_LOOKUP event is not really an error, just an event - // SSL_ERROR_WANT_X509_LOOKUP: - // raise EIdException.Create(RSOSSLCertificateLookup); // TODO: create a new Exception class for this - SSL_ERROR_SYSCALL: - Result := SSL_ERROR_SYSCALL; - // Result := SSL_ERROR_NONE; - - {//raise EIdException.Create(RSOSSLInternal); // TODO: create a new Exception class for this - if (retCode <> 0) or (DataLen <> 0) then begin - raise EIdException.Create(RSOSSLConnectionDropped); // TODO: create a new Exception class for this - end - else begin - Result := 0; - end;} - - SSL_ERROR_SSL: - // raise EIdException.Create(RSOSSLInternal); // TODO: create a new Exception class for this - Result := SSL_ERROR_SSL; - // Result := SSL_ERROR_NONE; - end; -end; - -procedure TIdSSLSocket.Accept(const pHandle: TIdStackSocketHandle); -//Accept and Connect have a lot of duplicated code -var - error: Integer; - StatusStr: String; - LParentIO: TIdSSLIOHandlerSocketOpenSSL; - LHelper: IIdSSLOpenSSLCallbackHelper; -begin - Assert(fSSL=nil); - Assert(fSSLContext<>nil); - fSSL := SSL_new(fSSLContext.fContext); - if fSSL = nil then begin - raise EIdOSSLCreatingSessionError.Create(RSSSLCreatingSessionError); - end; - error := SSL_set_app_data(fSSL, Self); - if error <= 0 then begin - EIdOSSLDataBindingError.RaiseException(fSSL, error, RSSSLDataBindingError); - end; - error := SSL_set_fd(fSSL, pHandle); - if error <= 0 then begin - EIdOSSLFDSetError.RaiseException(fSSL, error, RSSSLFDSetError); - end; - // RLebeau: if this socket's IOHandler was cloned, no need to reuse the - // original IOHandler's active session ID, since this is a server socket - // that generates its own sessions... - // - // RLebeau: is this actually true? Should we be reusing the original - // IOHandler's active session ID regardless of whether this is a client - // or server socket? What about FTP in non-passive mode, for example? - { - if (LParentIO <> nil) and (LParentIO.fSSLSocket <> nil) and - (LParentIO.fSSLSocket <> Self) then - begin - SSL_copy_session_id(fSSL, LParentIO.fSSLSocket.fSSL); - end; - } - error := SSL_accept(fSSL); - if error <= 0 then begin - EIdOSSLAcceptError.RaiseException(fSSL, error, RSSSLAcceptError); - end; - if Supports(fParent, IIdSSLOpenSSLCallbackHelper, IInterface(LHelper)) then begin - LParentIO := LHelper.GetIOHandlerSelf; - if LParentIO <> nil then begin - StatusStr := 'Cipher: name = ' + Cipher.Name + '; ' + {Do not Localize} - 'description = ' + Cipher.Description + '; ' + {Do not Localize} - 'bits = ' + IntToStr(Cipher.Bits) + '; ' + {Do not Localize} - 'version = ' + Cipher.Version + '; '; {Do not Localize} - LParentIO.DoStatusInfo(StatusStr); - end; - LHelper := nil; - end; -end; - -procedure TIdSSLSocket.Connect(const pHandle: TIdStackSocketHandle); -var - error: Integer; - StatusStr: String; - LParentIO: TIdSSLIOHandlerSocketOpenSSL; - LHelper: IIdSSLOpenSSLCallbackHelper; -begin - Assert(fSSL=nil); - Assert(fSSLContext<>nil); - if Supports(fParent, IIdSSLOpenSSLCallbackHelper, IInterface(LHelper)) then begin - LParentIO := LHelper.GetIOHandlerSelf; - end else begin - LParentIO := nil; - end; - fSSL := SSL_new(fSSLContext.fContext); - if fSSL = nil then begin - raise EIdOSSLCreatingSessionError.Create(RSSSLCreatingSessionError); - end; - error := SSL_set_app_data(fSSL, Self); - if error <= 0 then begin - EIdOSSLDataBindingError.RaiseException(fSSL, error, RSSSLDataBindingError); - end; - error := SSL_set_fd(fSSL, pHandle); - if error <= 0 then begin - EIdOSSLFDSetError.RaiseException(fSSL, error, RSSSLFDSetError); - end; - // RLebeau: if this socket's IOHandler was cloned, reuse the - // original IOHandler's active session ID... - if (LParentIO <> nil) and (LParentIO.fSSLSocket <> nil) and - (LParentIO.fSSLSocket <> Self) then - begin - SSL_copy_session_id(fSSL, LParentIO.fSSLSocket.fSSL); - end; - {$IFNDEF OPENSSL_NO_TLSEXT} - error := SSL_set_tlsext_host_name(fSSL, fHostName); - if error <= 0 then begin - // RLebeau: for the time being, not raising an exception on error, as I don't - // know which OpenSSL versions support this extension, and which error code(s) - // are safe to ignore on those versions... - //EIdOSSLSettingTLSHostNameError.RaiseException(fSSL, error, RSSSLSettingTLSHostNameError); - end; - {$ENDIF} - error := SSL_connect(fSSL); - if error <= 0 then begin - // TODO: if sslv23 is being used, but sslv23 is not being used on the - // remote side, SSL_connect() will fail. In that case, before giving up, - // try re-connecting using a version-specific method for each enabled - // version, maybe one will succeed... - EIdOSSLConnectError.RaiseException(fSSL, error, RSSSLConnectError); - end; - // TODO: even if SSL_connect() returns success, the connection might - // still be insecure if SSL_connect() detected that certificate validation - // actually failed, but ignored it because SSL_VERIFY_PEER was disabled! - // It would report such a failure via SSL_get_verify_result() instead of - // returning an error code, so we should call SSL_get_verify_result() here - // to make sure... - if LParentIO <> nil then begin - StatusStr := 'Cipher: name = ' + Cipher.Name + '; ' + {Do not Localize} - 'description = ' + Cipher.Description + '; ' + {Do not Localize} - 'bits = ' + IntToStr(Cipher.Bits) + '; ' + {Do not Localize} - 'version = ' + Cipher.Version + '; '; {Do not Localize} - LParentIO.DoStatusInfo(StatusStr); - end; - // TODO: enable this - { - var - peercert: PX509; - lHostName: AnsiString; - peercert := SSL_get_peer_certificate(fSSL); - try - lHostName := AnsiString(fHostName); - if (X509_check_host(peercert, PByte(PAnsiChar(lHostName)), Length(lHostName), 0) != 1) and - (not certificate_host_name_override(peercert, PAnsiChar(lHostName)) then - begin - EIdOSSLCertificateError.RaiseException(fSSL, error, 'SSL certificate does not match host name'); - end; - finally - X509_free(peercert); - end; -} -end; - -function TIdSSLSocket.Recv(var ABuffer: TIdBytes): Integer; -var - ret, err: Integer; -begin - repeat - ret := SSL_read(fSSL, PByte(ABuffer), Length(ABuffer)); - if ret > 0 then begin - Result := ret; - Exit; - end; - err := GetSSLError(ret); - if (err = SSL_ERROR_WANT_READ) or (err = SSL_ERROR_WANT_WRITE) then begin - Continue; - end; - if err = SSL_ERROR_ZERO_RETURN then begin - Result := 0; - end else begin - Result := ret; - end; - Exit; - until False; -end; - -function TIdSSLSocket.Send(const ABuffer: TIdBytes; AOffset, ALength: Integer): Integer; -var - ret, err: Integer; -begin - Result := 0; - repeat - ret := SSL_write(fSSL, @ABuffer[AOffset], ALength); - if ret > 0 then begin - Inc(Result, ret); - Inc(AOffset, ret); - Dec(ALength, ret); - if ALength < 1 then begin - Exit; - end; - Continue; - end; - err := GetSSLError(ret); - if (err = SSL_ERROR_WANT_READ) or (err = SSL_ERROR_WANT_WRITE) then begin - Continue; - end; - if err = SSL_ERROR_ZERO_RETURN then begin - Result := 0; - end else begin - Result := ret; - end; - Exit; - until False; -end; - -function TIdSSLSocket.GetPeerCert: TIdX509; -var - LX509: PX509; -begin - if fPeerCert = nil then begin - LX509 := SSL_get_peer_certificate(fSSL); - if LX509 <> nil then begin - fPeerCert := TIdX509.Create(LX509, False); - end; - end; - Result := fPeerCert; -end; - -function TIdSSLSocket.GetSSLCipher: TIdSSLCipher; -begin - if (fSSLCipher = nil) and (fSSL<>nil) then begin - fSSLCipher := TIdSSLCipher.Create(Self); - end; - Result := fSSLCipher; -end; - -function TIdSSLSocket.GetSessionID: TIdSSLByteArray; -var - pSession: PSSL_SESSION; -begin - Result.Length := 0; - Result.Data := nil; - if Assigned(SSL_get_session) and Assigned(SSL_SESSION_get_id) then - begin - if fSSL <> nil then begin - pSession := SSL_get_session(fSSL); - if pSession <> nil then begin - Result.Data := PByte(SSL_SESSION_get_id(pSession, @Result.Length)); - end; - end; - end; -end; - -function TIdSSLSocket.GetSessionIDAsString:String; -var - Data: TIdSSLByteArray; - i: TIdC_UINT; - LDataPtr: PByte; -begin - Result := ''; {Do not Localize} - Data := GetSessionID; - if Data.Length > 0 then begin - for i := 0 to Data.Length-1 do begin - // RLebeau: not all Delphi versions support indexed access using PByte - LDataPtr := Data.Data; - Inc(LDataPtr, I); - Result := Result + IndyFormat('%.2x', [LDataPtr^]);{do not localize} - end; - end; -end; - -procedure TIdSSLSocket.SetCipherList(CipherList: String); -//var -// tmpPStr: PAnsiChar; -begin -{ - fCipherList := CipherList; - fCipherList_Ch := True; - aCipherList := aCipherList+#0; - if hSSL <> nil then f_SSL_set_cipher_list(hSSL, @aCipherList[1]); -} -end; - -/////////////////////////////////////////////////////////////// -// X509 Certificate -/////////////////////////////////////////////////////////////// - -{ TIdX509Name } - -function TIdX509Name.CertInOneLine: String; -var - LOneLine: array[0..2048] of TIdAnsiChar; -begin - if FX509Name = nil then begin - Result := ''; {Do not Localize} - end else begin - Result := String(X509_NAME_oneline(FX509Name, @LOneLine[0], SizeOf(LOneLine))); - end; -end; - -function TIdX509Name.GetHash: TIdSSLULong; -begin - if FX509Name = nil then begin - FillChar(Result, SizeOf(Result), 0) - end else begin - Result.C1 := X509_NAME_hash(FX509Name); - end; -end; - -function TIdX509Name.GetHashAsString: String; -begin - Result := IndyFormat('%.8x', [Hash.L1]); {do not localize} -end; - -constructor TIdX509Name.Create(aX509Name: PX509_NAME); -begin - Inherited Create; - FX509Name := aX509Name; -end; - - -/////////////////////////////////////////////////////////////// -// X509 Certificate -/////////////////////////////////////////////////////////////// - -{ TIdX509Info } - -constructor TIdX509Info.Create(aX509: PX509); -begin - inherited Create; - FX509 := aX509; -end; - -{ TIdX509Fingerprints } - -function TIdX509Fingerprints.GetMD5: TIdSSLEVP_MD; -begin - CheckMD5Permitted; - X509_digest(FX509, EVP_md5, PByte(@Result.MD), Result.Length); -end; - -function TIdX509Fingerprints.GetMD5AsString: String; -begin - Result := MDAsString(MD5); -end; - -function TIdX509Fingerprints.GetSHA1: TIdSSLEVP_MD; -begin - X509_digest(FX509, EVP_sha1, PByte(@Result.MD), Result.Length); -end; - -function TIdX509Fingerprints.GetSHA1AsString: String; -begin - Result := MDAsString(SHA1); -end; - -function TIdX509Fingerprints.GetSHA224 : TIdSSLEVP_MD; -begin - if Assigned(EVP_sha224) then begin - X509_digest(FX509, EVP_sha224, PByte(@Result.MD), Result.Length); - end else begin - FillChar(Result, SizeOf(Result), 0); - end; -end; - -function TIdX509Fingerprints.GetSHA224AsString : String; -begin - if Assigned(EVP_sha224) then begin - Result := MDAsString(SHA224); - end else begin - Result := ''; - end; -end; - -function TIdX509Fingerprints.GetSHA256 : TIdSSLEVP_MD; -begin - if Assigned(EVP_sha256) then begin - X509_digest(FX509, EVP_sha256, PByte(@Result.MD), Result.Length); - end else begin - FillChar(Result, SizeOf(Result), 0); - end; -end; - -function TIdX509Fingerprints.GetSHA256AsString : String; -begin - if Assigned(EVP_sha256) then begin - Result := MDAsString(SHA256); - end else begin - Result := ''; - end; -end; - -function TIdX509Fingerprints.GetSHA384 : TIdSSLEVP_MD; -begin - if Assigned(EVP_SHA384) then begin - X509_digest(FX509, EVP_SHA384, PByte(@Result.MD), Result.Length); - end else begin - FillChar(Result, SizeOf(Result), 0); - end; -end; - -function TIdX509Fingerprints.GetSHA384AsString : String; -begin - if Assigned(EVP_SHA384) then begin - Result := MDAsString(SHA384); - end else begin - Result := ''; - end; -end; - -function TIdX509Fingerprints.GetSHA512 : TIdSSLEVP_MD; -begin - if Assigned(EVP_sha512) then begin - X509_digest(FX509, EVP_sha512, PByte(@Result.MD), Result.Length); - end else begin - FillChar(Result, SizeOf(Result), 0); - end; -end; - -function TIdX509Fingerprints.GetSHA512AsString : String; -begin - if Assigned(EVP_sha512) then begin - Result := MDAsString(SHA512); - end else begin - Result := ''; - end; -end; - -{ TIdX509SigInfo } - -function TIdX509SigInfo.GetSignature: String; -begin - Result := BytesToHexString(FX509^.signature^.data, FX509^.signature^.length); -end; - -function TIdX509SigInfo.GetSigType: TIdC_INT; -begin - Result := X509_get_signature_type(FX509); -end; - -function TIdX509SigInfo.GetSigTypeAsString: String; -begin - Result := String(OBJ_nid2ln(SigType)); -end; - -{ TIdX509 } - -constructor TIdX509.Create(aX509: PX509; aCanFreeX509: Boolean = True); -begin - inherited Create; - //don't create FDisplayInfo unless specifically requested. - FDisplayInfo := nil; - FX509 := aX509; - FCanFreeX509 := aCanFreeX509; - FFingerprints := TIdX509Fingerprints.Create(FX509); - FSigInfo := TIdX509SigInfo.Create(FX509); - FSubject := nil; - FIssuer := nil; -end; - -destructor TIdX509.Destroy; -begin - FreeAndNil(FDisplayInfo); - FreeAndNil(FSubject); - FreeAndNil(FIssuer); - FreeAndNil(FFingerprints); - FreeAndNil(FSigInfo); - { If the X.509 certificate handle was obtained from a certificate - store or from the SSL connection as a peer certificate, then DO NOT - free it here! The memory is owned by the OpenSSL library and will - crash the library if Indy tries to free its private memory here } - if FCanFreeX509 then begin - X509_free(FX509); - end; - inherited Destroy; -end; - - -function TIdX509.GetDisplayInfo: TStrings; -begin - if not Assigned(FDisplayInfo) then begin - FDisplayInfo := TStringList.Create; - DumpCert(FDisplayInfo, FX509); - end; - Result := FDisplayInfo; -end; - -function TIdX509.GetSerialNumber: String; -var - LSN : PASN1_INTEGER; -begin - if FX509 <> nil then begin - LSN := X509_get_serialNumber(FX509); - Result := BytesToHexString(LSN.data, LSN.length); - end else begin - Result := ''; - end; -end; - -function TIdX509.GetVersion : TIdC_LONG; -begin - Result := X509_get_version(FX509); -end; - -function TIdX509.RSubject: TIdX509Name; -var - Lx509_name: PX509_NAME; -Begin - if not Assigned(FSubject) then begin - if FX509 <> nil then begin - Lx509_name := X509_get_subject_name(FX509); - end else begin - Lx509_name := nil; - end; - FSubject := TIdX509Name.Create(Lx509_name); - end; - Result := FSubject; -end; - -function TIdX509.RIssuer: TIdX509Name; -var - Lx509_name: PX509_NAME; -begin - if not Assigned(FIssuer) then begin - if FX509 <> nil then begin - Lx509_name := X509_get_issuer_name(FX509); - end else begin - Lx509_name := nil; - end; - FIssuer := TIdX509Name.Create(Lx509_name); - End; - Result := FIssuer; -end; - -function TIdX509.RFingerprint: TIdSSLEVP_MD; -begin - X509_digest(FX509, EVP_md5, PByte(@Result.MD), Result.Length); -end; - -function TIdX509.RFingerprintAsString: String; -begin - Result := MDAsString(Fingerprint); -end; - -function TIdX509.RnotBefore: TDateTime; -begin - if FX509 = nil then begin - Result := 0 - end else begin - //This is a safe typecast since PASN1_UTCTIME and PASN1_TIME are really - //pointers to ASN1 strings since ASN1_UTCTIME amd ASM1_TIME are ASN1_STRING. - Result := UTCTime2DateTime(PASN1_UTCTIME(X509_get_notBefore(FX509))); - end; -end; - -function TIdX509.RnotAfter:TDateTime; -begin - if FX509 = nil then begin - Result := 0 - end else begin - Result := UTCTime2DateTime(PASN1_UTCTIME(X509_get_notAfter(FX509))); - end; -end; - -/////////////////////////////////////////////////////////////// -// TIdSSLCipher -/////////////////////////////////////////////////////////////// -constructor TIdSSLCipher.Create(AOwner: TIdSSLSocket); -begin - inherited Create; - FSSLSocket := AOwner; -end; - -destructor TIdSSLCipher.Destroy; -begin - inherited Destroy; -end; - -function TIdSSLCipher.GetDescription; -var - Buf: array[0..1024] of TIdAnsiChar; -begin - Result := String(SSL_CIPHER_description(SSL_get_current_cipher(FSSLSocket.fSSL), @Buf[0], SizeOf(Buf)-1)); -end; - -function TIdSSLCipher.GetName:String; -begin - Result := String(SSL_CIPHER_get_name(SSL_get_current_cipher(FSSLSocket.fSSL))); -end; - -function TIdSSLCipher.GetBits:TIdC_INT; -begin - SSL_CIPHER_get_bits(SSL_get_current_cipher(FSSLSocket.fSSL), Result); -end; - -function TIdSSLCipher.GetVersion:String; -begin - Result := String(SSL_CIPHER_get_version(SSL_get_current_cipher(FSSLSocket.fSSL))); -end; - -initialization - Assert(SSLIsLoaded=nil); - SSLIsLoaded := TIdThreadSafeBoolean.Create; - - RegisterSSL('OpenSSL','Indy Pit Crew', {do not localize} - 'Copyright '+Char(169)+' 1993 - 2024'#10#13 + {do not localize} - 'Chad Z. Hower (Kudzu) and the Indy Pit Crew. All rights reserved.', {do not localize} - 'Open SSL Support DLL Delphi and C++Builder interface', {do not localize} - 'http://www.indyproject.org/'#10#13 + {do not localize} - 'Original Author - Gregor Ibic', {do not localize} - TIdSSLIOHandlerSocketOpenSSL, - TIdServerIOHandlerSSLOpenSSL); - - TIdSSLIOHandlerSocketOpenSSL.RegisterIOHandler; -finalization - // TODO: TIdSSLIOHandlerSocketOpenSSL.UnregisterIOHandler; - UnLoadOpenSSLLibrary; - //free the lock last as unload makes calls that use it - FreeAndNil(SSLIsLoaded); -end. diff --git a/IdSSLOpenSSLHeaders.pas b/IdSSLOpenSSLHeaders.pas deleted file mode 100644 index fbc8460..0000000 --- a/IdSSLOpenSSLHeaders.pas +++ /dev/null @@ -1,26976 +0,0 @@ -{ - This file is part of the Indy (Internet Direct) project, and is offered - under the dual-licensing agreement described on the Indy website. - (http://www.indyproject.org/) - - Copyright: - (c) 1993-2024, Chad Z. Hower and the Indy Pit Crew. All rights reserved. -} -unit IdSSLOpenSSLHeaders; - -{ - Author: Gregor Ibic (gregor.ibic@intelicom.si) - Copyright: (c) Gregor Ibic, Intelicom d.o.o and Indy Working Group. -} -{ -Note to self:: -===== Win32 with mingw32 ==== -Configuring for mingw - no-camellia [default] OPENSSL_NO_CAMELLIA (skip dir) - no-capieng [default] OPENSSL_NO_CAPIENG (skip dir) - no-cms [default] OPENSSL_NO_CMS (skip dir) - no-gmp [default] OPENSSL_NO_GMP (skip dir) - no-jpake [experimental] OPENSSL_NO_JPAKE (skip dir) - no-krb5 [krb5-flavor not specified] OPENSSL_NO_KRB5 - no-mdc2 [default] OPENSSL_NO_MDC2 (skip dir) - no-montasm [default] - no-rc5 [default] OPENSSL_NO_RC5 (skip dir) - no-rfc3779 [default] OPENSSL_NO_RFC3779 (skip dir) - no-seed [default] OPENSSL_NO_SEED (skip dir) - no-shared [default] - no-zlib [default] - no-zlib-dynamic [default] -IsMK1MF=1 -CC =gcc -CFLAG =-DOPENSSL_THREADS -DDSO_WIN32 -mno-cygwin -DL_ENDIAN -fomit-frame-pointer -O3 -march=i486 -Wall -D_WIN32_WINNT=0x333 -DOPENSSL_BN_ASM_PART_WORDS -DOPENSSL_IA32_SSE2 -DSHA1_ASM -DMD5_ASM -DRMD160_ASM -DAES_ASM -EX_LIBS =-lwsock32 -lgdi32 -CPUID_OBJ =x86cpuid-cof.o -BN_ASM =bn86-cof.o co86-cof.o -DES_ENC =dx86-cof.o yx86-cof.o -AES_ASM_OBJ =ax86-cof.o -BF_ENC =bx86-cof.o -CAST_ENC =cx86-cof.o -RC4_ENC =rx86-cof.o rc4_skey.o -RC5_ENC =r586-cof.o -MD5_OBJ_ASM =mx86-cof.o -SHA1_OBJ_ASM =sx86-cof.o s512sse2-cof.o -RMD160_OBJ_ASM=rm86-cof.o -PROCESSOR = -RANLIB =true -ARFLAGS = -PERL =perl -THIRTY_TWO_BIT mode -DES_PTR used -DES_RISC1 used -DES_UNROLL used -BN_LLONG mode -RC4_INDEX mode -RC4_CHUNK is undefined - -Configured for mingw. -Generating x86 for GNU assember -Bignum -DES -crypt -Blowfish -CAST5 -RC4 -MD5 -SHA1 -RIPEMD160 -RC5\32 -CPUID -Generating makefile -Generating DLL definition files -Building the libraries -Building OpenSSL -===== Win64 ====== -Targeting Windows Server 2003 X64 RETAIL - -perl Configure VC-WIN64A - -W:\openssl\openssl-0.9.8k>perl Configure VC-WIN64A -Configuring for VC-WIN64A - no-camellia [default] OPENSSL_NO_CAMELLIA (skip dir) - no-capieng [default] OPENSSL_NO_CAPIENG (skip dir) - no-cms [default] OPENSSL_NO_CMS (skip dir) - no-gmp [default] OPENSSL_NO_GMP (skip dir) - no-jpake [experimental] OPENSSL_NO_JPAKE (skip dir) - no-krb5 [krb5-flavor not specified] OPENSSL_NO_KRB5 - no-mdc2 [default] OPENSSL_NO_MDC2 (skip dir) - no-montasm [default] - no-rc5 [default] OPENSSL_NO_RC5 (skip dir) - no-rfc3779 [default] OPENSSL_NO_RFC3779 (skip dir) - no-seed [default] OPENSSL_NO_SEED (skip dir) - no-shared [default] - no-zlib [default] - no-zlib-dynamic [default] -IsMK1MF=1 -CC =cl -CFLAG =-DOPENSSL_THREADS -DDSO_WIN32 -EX_LIBS = -CPUID_OBJ = -BN_ASM =bn_asm.o -DES_ENC =des_enc.o fcrypt_b.o -AES_ASM_OBJ =aes_core.o aes_cbc.o -BF_ENC =bf_enc.o -CAST_ENC =c_enc.o -RC4_ENC =rc4_enc.o rc4_skey.o -RC5_ENC =rc5_enc.o -MD5_OBJ_ASM = -SHA1_OBJ_ASM = -RMD160_OBJ_ASM= -PROCESSOR = -RANLIB =true -ARFLAGS = -PERL =perl -SIXTY_FOUR_BIT mode -DES_INT used -RC4_CHUNK is unsigned long long - -Configured for VC-WIN64A. - -W:\openssl\openssl-0.9.8k>ms\do_win64a - -W:\openssl\openssl-0.9.8k>perl util\mkfiles.pl 1>MINFO - -W:\openssl\openssl-0.9.8k>perl ms\uplink.pl win64a 1>ms\uptable.asm - -W:\openssl\openssl-0.9.8k>ml64 -c -Foms\uptable.obj ms\uptable.asm -Microsoft (R) Macro Assembler (AMD64) Version 8.00.40310.39 -Copyright (C) Microsoft Corporation. All rights reserved. - - Assembling: ms\uptable.asm - -W:\openssl\openssl-0.9.8k>perl util\mk1mf.pl no-asm VC-WIN64A 1>ms\nt.mak - -W:\openssl\openssl-0.9.8k>perl util\mk1mf.pl dll no-asm VC-WIN64A 1>ms\ntdll.ma -k - -W:\openssl\openssl-0.9.8k>perl util\mkdef.pl 32 libeay 1>ms\libeay32.def - -W:\openssl\openssl-0.9.8k>perl util\mkdef.pl 32 ssleay 1>ms\ssleay32.def - -CFLAG= /MD /Ox /W3 /Gs0 /GF /Gy /nologo --DWIN32_LEAN_AND_MEAN -DL_ENDIAN -DDSO_WIN32 -DOPENSSL_SYSNAME_WIN32 --DOPENSSL_SYSNAME_WINNT -DUNICODE -D_UNICODE -D_CRT_SECURE_NO_DEPRECATE --D_CRT_NONSTDC_NO_DEPRECATE -DOPENSSL_USE_APPLINK -I. /Fdout32dll --DOPENSSL_NO_CAMELLIA -DOPENSSL_NO_SEED -DOPENSSL_NO_RC5 -DOPENSSL_NO_MDC2 --DOPENSSL_NO_CMS -DOPENSSL_NO_JPAKE -DOPENSSL_NO_CAPIENG -DOPENSSL_NO_KRB5 --DOPENSSL_NO_DYNAMIC_ENGINE - -} - -interface - -{$I IdCompilerDefines.inc} - -{$WRITEABLECONST OFF} - -{$IFNDEF FPC} - {$IFDEF WIN32} - {$ALIGN OFF} - {$ENDIF} - {$IFDEF WIN64} - {$ALIGN ON} - {$ENDIF} - {$IFNDEF WIN32_OR_WIN64} - {$IFNDEF VCL_CROSS_COMPILE} - {$message error error alignment!} - {$ENDIF} - {$ENDIF} -{$ELSE} - {$packrecords C} -{$ENDIF} - -//THe OpenSSL developers use a IF 0 and an IF 1 convention for selectively -//enabling or disabling things. -{$DEFINE USE_THIS} -{.$DEFINE OMIT_THIS} -{ -IMPORTANT!!!! - -A lot of IFDEF's and defines have to used because OpenSSL has a number of options' -and those can effect the API. The options are determined by a "configure" script -that generates apporpriate make files with the appropriate defines. If you do -custom compiles of OpenSSL or if it's compiled differently that what I assume, -you will need to add or deactivate the defines. - -my $x86_gcc_des="DES_PTR DES_RISC1 DES_UNROLL"; - -# MD2_CHAR slags pentium pros -my $x86_gcc_opts="RC4_INDEX MD2_INT"; -... -# This is what $depflags will look like with the above defaults -# (we need this to see if we should advise the user to run "make depend"): -my $default_depflags = " -DOPENSSL_NO_CAMELLIA -DOPENSSL_NO_CAPIENG -DOPENSSL_NO_CMS -DOPENSSL_NO_GMP -DOPENSSL_NO_JPAKE -DOPENSSL_NO_MDC2 -DOPENSSL_NO_RC5 -DOPENSSL_NO_RFC3779 -DOPENSSL_NO_SEED"; - -} - -// # Our development configs -// "purify", "purify gcc:-g -DPURIFY -Wall::(unknown)::-lsocket -lnsl::::", -// "debug", "gcc:-DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DBN_CTX_DEBUG -DCRYPTO_MDEBUG -DOPENSSL_NO_ASM -ggdb -g2 -Wformat -Wshadow -Wmissing-prototypes -Wmissing-declarations -Werror::(unknown)::-lefence::::", -// "debug-ben", "gcc:-DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DBN_CTX_DEBUG -DCRYPTO_MDEBUG -DPEDANTIC -DDEBUG_SAFESTACK -O2 -pedantic -Wall -Wshadow -Werror -pipe::(unknown):::::bn86-elf.o co86-elf.o", -// "debug-ben-openbsd","gcc:-DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DBN_CTX_DEBUG -DCRYPTO_MDEBUG -DPEDANTIC -DDEBUG_SAFESTACK -DOPENSSL_OPENBSD_DEV_CRYPTO -DOPENSSL_NO_ASM -O2 -pedantic -Wall -Wshadow -Werror -pipe::(unknown)::::", -// "debug-ben-openbsd-debug","gcc:-DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DBN_CTX_DEBUG -DCRYPTO_MDEBUG -DPEDANTIC -DDEBUG_SAFESTACK -DOPENSSL_OPENBSD_DEV_CRYPTO -DOPENSSL_NO_ASM -g3 -O2 -pedantic -Wall -Wshadow -Werror -pipe::(unknown)::::", -// "debug-ben-debug", "gcc:-DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DBN_CTX_DEBUG -DCRYPTO_MDEBUG -DPEDANTIC -DDEBUG_SAFESTACK -g3 -O2 -pedantic -Wall -Wshadow -Werror -pipe::(unknown)::::::", -// "debug-ben-strict", "gcc:-DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DBN_CTX_DEBUG -DCRYPTO_MDEBUG -DCONST_STRICT -O2 -Wall -Wshadow -Werror -Wpointer-arith -Wcast-qual -Wwrite-strings -pipe::(unknown)::::::", -// "debug-rse","cc:-DTERMIOS -DL_ENDIAN -pipe -O -g -ggdb3 -Wall::(unknown):::BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}", -// "debug-bodo", "gcc:-DL_ENDIAN -DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DBIO_PAIR_DEBUG -DPEDANTIC -g -march=i486 -pedantic -Wshadow -Wall -Wcast-align -Wstrict-prototypes -Wmissing-prototypes -Wno-long-long -Wundef -Wconversion -pipe::-D_REENTRANT:::BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}", -// "debug-ulf", "gcc:-DTERMIOS -DL_ENDIAN -march=i486 -Wall -DBN_DEBUG -DBN_DEBUG_RAND -DREF_CHECK -DCONF_DEBUG -DBN_CTX_DEBUG -DCRYPTO_MDEBUG -DOPENSSL_NO_ASM -g -Wformat -Wshadow -Wmissing-prototypes -Wmissing-declarations:::CYGWIN32:::${no_asm}:win32:cygwin-shared:::.dll", -// "debug-steve64", "gcc:-m64 -DL_ENDIAN -DTERMIO -DREF_CHECK -DCONF_DEBUG -DDEBUG_SAFESTACK -DCRYPTO_MDEBUG_ALL -DPEDANTIC -DOPENSSL_NO_DEPRECATED -g -pedantic -Wall -Werror -Wno-long-long -Wsign-compare -DMD32_REG_T=int::-D_REENTRANT::-ldl:SIXTY_FOUR_BIT_LONG RC4_CHUNK BF_PTR2 DES_INT DES_UNROLL:${x86_64_asm}:dlfcn:linux-shared:-fPIC:-m64:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "debug-steve32", "gcc:-m32 -DL_ENDIAN -DREF_CHECK -DCONF_DEBUG -DDEBUG_SAFESTACK -DCRYPTO_MDEBUG_ALL -DPEDANTIC -DOPENSSL_NO_DEPRECATED -g -pedantic -Wno-long-long -Wall -Werror -Wshadow -pipe::-D_REENTRANT::-rdynamic -ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:linux-shared:-fPIC:-m32:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "debug-steve", "gcc:-DL_ENDIAN -DREF_CHECK -DCONF_DEBUG -DDEBUG_SAFESTACK -DCRYPTO_MDEBUG_ALL -DPEDANTIC -m32 -g -pedantic -Wno-long-long -Wall -Werror -Wshadow -pipe::-D_REENTRANT::-rdynamic -ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:linux-shared", -// "debug-steve-opt", "gcc:-DL_ENDIAN -DREF_CHECK -DCONF_DEBUG -DDEBUG_SAFESTACK -DCRYPTO_MDEBUG_ALL -DPEDANTIC -m32 -O3 -g -pedantic -Wno-long-long -Wall -Werror -Wshadow -pipe::-D_REENTRANT::-rdynamic -ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:linux-shared", -// "debug-steve-linux-pseudo64", "gcc:-DL_ENDIAN -DREF_CHECK -DCONF_DEBUG -DBN_CTX_DEBUG -DDEBUG_SAFESTACK -DCRYPTO_MDEBUG_ALL -DOPENSSL_NO_ASM -g -mcpu=i486 -Wall -Werror -Wshadow -pipe::-D_REENTRANT::-rdynamic -ldl:SIXTY_FOUR_BIT:${no_asm}:dlfcn:linux-shared", -// "debug-levitte-linux-elf","gcc:-DLEVITTE_DEBUG -DREF_CHECK -DCONF_DEBUG -DBN_DEBUG -DBN_DEBUG_RAND -DCRYPTO_MDEBUG -DENGINE_CONF_DEBUG -DL_ENDIAN -DTERMIO -D_POSIX_SOURCE -DPEDANTIC -ggdb -g3 -mcpu=i486 -pedantic -ansi -Wall -Wshadow -Wcast-align -Wstrict-prototypes -Wmissing-prototypes -Wno-long-long -Wundef -Wconversion -pipe::-D_REENTRANT::-ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "debug-levitte-linux-noasm","gcc:-DLEVITTE_DEBUG -DREF_CHECK -DCONF_DEBUG -DBN_DEBUG -DBN_DEBUG_RAND -DCRYPTO_MDEBUG -DENGINE_CONF_DEBUG -DOPENSSL_NO_ASM -DL_ENDIAN -DTERMIO -D_POSIX_SOURCE -DPEDANTIC -ggdb -g3 -mcpu=i486 -pedantic -ansi -Wall -Wshadow -Wcast-align -Wstrict-prototypes -Wmissing-prototypes -Wno-long-long -Wundef -Wconversion -pipe::-D_REENTRANT::-ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${no_asm}:dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "debug-levitte-linux-elf-extreme","gcc:-DLEVITTE_DEBUG -DREF_CHECK -DCONF_DEBUG -DBN_DEBUG -DBN_DEBUG_RAND -DCRYPTO_MDEBUG -DENGINE_CONF_DEBUG -DL_ENDIAN -DTERMIO -D_POSIX_SOURCE -DPEDANTIC -ggdb -g3 -mcpu=i486 -pedantic -ansi -Wall -W -Wundef -Wshadow -Wcast-align -Wstrict-prototypes -Wmissing-prototypes -Wno-long-long -Wundef -Wconversion -pipe::-D_REENTRANT::-ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "debug-levitte-linux-noasm-extreme","gcc:-DLEVITTE_DEBUG -DREF_CHECK -DCONF_DEBUG -DBN_DEBUG -DBN_DEBUG_RAND -DCRYPTO_MDEBUG -DENGINE_CONF_DEBUG -DOPENSSL_NO_ASM -DL_ENDIAN -DTERMIO -D_POSIX_SOURCE -DPEDANTIC -ggdb -g3 -mcpu=i486 -pedantic -ansi -Wall -W -Wundef -Wshadow -Wcast-align -Wstrict-prototypes -Wmissing-prototypes -Wno-long-long -Wundef -Wconversion -pipe::-D_REENTRANT::-ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${no_asm}:dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "debug-geoff","gcc:-DBN_DEBUG -DBN_DEBUG_RAND -DBN_STRICT -DPURIFY -DOPENSSL_NO_DEPRECATED -DOPENSSL_NO_ASM -DOPENSSL_NO_INLINE_ASM -DL_ENDIAN -DTERMIO -DPEDANTIC -O1 -ggdb2 -Wall -Werror -Wundef -pedantic -Wshadow -Wpointer-arith -Wbad-function-cast -Wcast-align -Wsign-compare -Wmissing-prototypes -Wmissing-declarations -Wno-long-long::-D_REENTRANT::-ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${no_asm}:dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "debug-linux-pentium","gcc:-DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DCRYPTO_MDEBUG -DL_ENDIAN -DTERMIO -g -mcpu=pentium -Wall::-D_REENTRANT::-ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn", -// "debug-linux-ppro","gcc:-DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DCRYPTO_MDEBUG -DL_ENDIAN -DTERMIO -g -mcpu=pentiumpro -Wall::-D_REENTRANT::-ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn", -// "debug-linux-elf","gcc:-DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DCRYPTO_MDEBUG -DL_ENDIAN -DTERMIO -g -march=i486 -Wall::-D_REENTRANT::-lefence -ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "debug-linux-elf-noefence","gcc:-DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DCRYPTO_MDEBUG -DL_ENDIAN -DTERMIO -g -march=i486 -Wall::-D_REENTRANT::-ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "dist", "cc:-O::(unknown)::::::", - -// # Basic configs that should work on any (32 and less bit) box -// "gcc", "gcc:-O3::(unknown):::BN_LLONG:::", -// "cc", "cc:-O::(unknown)::::::", - -// ####VOS Configurations -// "vos-gcc","gcc:-O3 -Wall -D_POSIX_C_SOURCE=200112L -D_BSD -DB_ENDIAN::(unknown):VOS:-Wl,-map:BN_LLONG:${no_asm}:::::.so:", -// "debug-vos-gcc","gcc:-O0 -g -Wall -D_POSIX_C_SOURCE=200112L -D_BSD -DB_ENDIAN -DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DCRYPTO_MDEBUG::(unknown):VOS:-Wl,-map:BN_LLONG:${no_asm}:::::.so:", - -// #### Solaris x86 with GNU C setups -// # -DOPENSSL_NO_INLINE_ASM switches off inline assembler. We have to do it -// # here because whenever GNU C instantiates an assembler template it -// # surrounds it with #APP #NO_APP comment pair which (at least Solaris -// # 7_x86) /usr/ccs/bin/as fails to assemble with "Illegal mnemonic" -// # error message. -// "solaris-x86-gcc","gcc:-O3 -fomit-frame-pointer -march=pentium -Wall -DL_ENDIAN -DOPENSSL_NO_INLINE_ASM::-D_REENTRANT::-lsocket -lnsl -ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:solaris-shared:-fPIC:-shared:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// # -shared -static-libgcc might appear controversial, but modules taken -// # from static libgcc do not have relocations and linking them into our -// # shared objects doesn't have any negative side-effects. On the contrary, -// # doing so makes it possible to use gcc shared build with Sun C. Given -// # that gcc generates faster code [thanks to inline assembler], I would -// # actually recommend to consider using gcc shared build even with vendor -// # compiler:-) -// # -// "solaris64-x86_64-gcc","gcc:-m64 -O3 -Wall -DL_ENDIAN -DMD32_REG_T=int::-D_REENTRANT::-lsocket -lnsl -ldl:SIXTY_FOUR_BIT_LONG RC4_CHUNK BF_PTR2 DES_INT DES_UNROLL:${x86_64_asm}:dlfcn:solaris-shared:-fPIC:-m64 -shared -static-libgcc:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// -// #### Solaris x86 with Sun C setups -// "solaris-x86-cc","cc:-fast -O -Xa::-D_REENTRANT::-lsocket -lnsl -ldl:BN_LLONG RC4_CHAR RC4_CHUNK DES_PTR DES_UNROLL BF_PTR:${no_asm}:dlfcn:solaris-shared:-KPIC:-G -dy -z text:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "solaris64-x86_64-cc","cc:-fast -xarch=amd64 -xstrconst -Xa -DL_ENDIAN::-D_REENTRANT::-lsocket -lnsl -ldl:SIXTY_FOUR_BIT_LONG RC4_CHUNK BF_PTR2 DES_INT DES_UNROLL:${x86_64_asm}:dlfcn:solaris-shared:-KPIC:-xarch=amd64 -G -dy -z text:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", - -// #### SPARC Solaris with GNU C setups -// "solaris-sparcv7-gcc","gcc:-O3 -fomit-frame-pointer -Wall -DB_ENDIAN -DBN_DIV2W::-D_REENTRANT::-lsocket -lnsl -ldl:BN_LLONG RC4_CHAR RC4_CHUNK DES_UNROLL BF_PTR:${no_asm}:dlfcn:solaris-shared:-fPIC:-shared:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "solaris-sparcv8-gcc","gcc:-mv8 -O3 -fomit-frame-pointer -Wall -DB_ENDIAN -DBN_DIV2W::-D_REENTRANT::-lsocket -lnsl -ldl:BN_LLONG RC4_CHAR RC4_CHUNK DES_UNROLL BF_PTR::sparcv8.o:des_enc-sparc.o fcrypt_b.o:::::::::dlfcn:solaris-shared:-fPIC:-shared:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// # -m32 should be safe to add as long as driver recognizes -mcpu=ultrasparc -// "solaris-sparcv9-gcc","gcc:-m32 -mcpu=ultrasparc -O3 -fomit-frame-pointer -Wall -DB_ENDIAN -DBN_DIV2W::-D_REENTRANT:ULTRASPARC:-lsocket -lnsl -ldl:BN_LLONG RC4_CHAR RC4_CHUNK DES_UNROLL BF_PTR::sparcv8plus.o:des_enc-sparc.o fcrypt_b.o:::::::::dlfcn:solaris-shared:-fPIC:-shared:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "solaris64-sparcv9-gcc","gcc:-m64 -mcpu=ultrasparc -O3 -Wall -DB_ENDIAN::-D_REENTRANT:ULTRASPARC:-lsocket -lnsl -ldl:SIXTY_FOUR_BIT_LONG RC4_CHAR RC4_CHUNK DES_INT DES_PTR DES_RISC1 DES_UNROLL BF_PTR:::des_enc-sparc.o fcrypt_b.o:::::::::dlfcn:solaris-shared:-fPIC:-m64 -shared:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// #### -// "debug-solaris-sparcv8-gcc","gcc:-DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DCRYPTO_MDEBUG_ALL -O -g -mv8 -Wall -DB_ENDIAN::-D_REENTRANT::-lsocket -lnsl -ldl:BN_LLONG RC4_CHAR RC4_CHUNK DES_UNROLL BF_PTR::sparcv8.o::::::::::dlfcn:solaris-shared:-fPIC:-shared:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "debug-solaris-sparcv9-gcc","gcc:-DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DCRYPTO_MDEBUG_ALL -DPEDANTIC -O -g -mcpu=ultrasparc -pedantic -ansi -Wall -Wshadow -Wno-long-long -D__EXTENSIONS__ -DB_ENDIAN -DBN_DIV2W::-D_REENTRANT:ULTRASPARC:-lsocket -lnsl -ldl:BN_LLONG RC4_CHAR RC4_CHUNK DES_UNROLL BF_PTR::sparcv8plus.o:des_enc-sparc.o fcrypt_b.o:::::::::dlfcn:solaris-shared:-fPIC:-shared:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", - -// #### SPARC Solaris with Sun C setups -// # SC4.0 doesn't pass 'make test', upgrade to SC5.0 or SC4.2. -// # SC4.2 is ok, better than gcc even on bn as long as you tell it -xarch=v8 -// # SC5.0 note: Compiler common patch 107357-01 or later is required! -// "solaris-sparcv7-cc","cc:-xO5 -xstrconst -xdepend -Xa -DB_ENDIAN -DBN_DIV2W::-D_REENTRANT::-lsocket -lnsl -ldl:BN_LLONG RC4_CHAR RC4_CHUNK DES_PTR DES_RISC1 DES_UNROLL BF_PTR:${no_asm}:dlfcn:solaris-shared:-KPIC:-G -dy -z text:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "solaris-sparcv8-cc","cc:-xarch=v8 -xO5 -xstrconst -xdepend -Xa -DB_ENDIAN -DBN_DIV2W::-D_REENTRANT::-lsocket -lnsl -ldl:BN_LLONG RC4_CHAR RC4_CHUNK DES_PTR DES_RISC1 DES_UNROLL BF_PTR::sparcv8.o:des_enc-sparc.o fcrypt_b.o:::::::::dlfcn:solaris-shared:-KPIC:-G -dy -z text:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "solaris-sparcv9-cc","cc:-xtarget=ultra -xarch=v8plus -xO5 -xstrconst -xdepend -Xa -DB_ENDIAN -DBN_DIV2W::-D_REENTRANT:ULTRASPARC:-lsocket -lnsl -ldl:BN_LLONG RC4_CHAR RC4_CHUNK_LL DES_PTR DES_RISC1 DES_UNROLL BF_PTR::sparcv8plus.o:des_enc-sparc.o fcrypt_b.o:::::::::dlfcn:solaris-shared:-KPIC:-G -dy -z text:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "solaris64-sparcv9-cc","cc:-xtarget=ultra -xarch=v9 -xO5 -xstrconst -xdepend -Xa -DB_ENDIAN::-D_REENTRANT:ULTRASPARC:-lsocket -lnsl -ldl:SIXTY_FOUR_BIT_LONG RC4_CHAR RC4_CHUNK DES_INT DES_PTR DES_RISC1 DES_UNROLL BF_PTR:::des_enc-sparc.o fcrypt_b.o:::::::::dlfcn:solaris-shared:-KPIC:-xarch=v9 -G -dy -z text:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR):/usr/ccs/bin/ar rs", -// #### -// "debug-solaris-sparcv8-cc","cc:-DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DCRYPTO_MDEBUG_ALL -xarch=v8 -g -O -xstrconst -Xa -DB_ENDIAN -DBN_DIV2W::-D_REENTRANT::-lsocket -lnsl -ldl:BN_LLONG RC4_CHAR RC4_CHUNK DES_PTR DES_RISC1 DES_UNROLL BF_PTR::sparcv8.o::::::::::dlfcn:solaris-shared:-KPIC:-G -dy -z text:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "debug-solaris-sparcv9-cc","cc:-DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DCRYPTO_MDEBUG_ALL -xtarget=ultra -xarch=v8plus -g -O -xstrconst -Xa -DB_ENDIAN -DBN_DIV2W::-D_REENTRANT:ULTRASPARC:-lsocket -lnsl -ldl:BN_LLONG RC4_CHAR RC4_CHUNK_LL DES_PTR DES_RISC1 DES_UNROLL BF_PTR::sparcv8plus.o::::::::::dlfcn:solaris-shared:-KPIC:-G -dy -z text:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", - -// #### SunOS configs, assuming sparc for the gcc one. -// #"sunos-cc", "cc:-O4 -DNOPROTO -DNOCONST::(unknown):SUNOS::DES_UNROLL:${no_asm}::", -// "sunos-gcc","gcc:-O3 -mv8 -Dssize_t=int::(unknown):SUNOS::BN_LLONG RC4_CHAR RC4_CHUNK DES_UNROLL DES_PTR DES_RISC1:${no_asm}::", - -// #### IRIX 5.x configs -// # -mips2 flag is added by ./config when appropriate. -// "irix-gcc","gcc:-O3 -DTERMIOS -DB_ENDIAN::(unknown):::BN_LLONG MD2_CHAR RC4_INDEX RC4_CHAR RC4_CHUNK DES_UNROLL DES_RISC2 DES_PTR BF_PTR:${no_asm}:dlfcn:irix-shared:::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "irix-cc", "cc:-O2 -use_readonly_const -DTERMIOS -DB_ENDIAN::(unknown):::BN_LLONG RC4_CHAR RC4_CHUNK DES_PTR DES_RISC2 DES_UNROLL BF_PTR:${no_asm}:dlfcn:irix-shared:::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// #### IRIX 6.x configs -// # Only N32 and N64 ABIs are supported. If you need O32 ABI build, invoke -// # './Configure irix-cc -o32' manually. -// "irix-mips3-gcc","gcc:-mabi=n32 -O3 -DTERMIOS -DB_ENDIAN -DBN_DIV3W::-D_SGI_MP_SOURCE:::MD2_CHAR RC4_INDEX RC4_CHAR RC4_CHUNK_LL DES_UNROLL DES_RISC2 DES_PTR BF_PTR SIXTY_FOUR_BIT::bn-mips3.o::::::::::dlfcn:irix-shared::-mabi=n32:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "irix-mips3-cc", "cc:-n32 -mips3 -O2 -use_readonly_const -G0 -rdata_shared -DTERMIOS -DB_ENDIAN -DBN_DIV3W::-D_SGI_MP_SOURCE:::DES_PTR RC4_CHAR RC4_CHUNK_LL DES_RISC2 DES_UNROLL BF_PTR SIXTY_FOUR_BIT::bn-mips3.o::::::::::dlfcn:irix-shared::-n32:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// # N64 ABI builds. -// "irix64-mips4-gcc","gcc:-mabi=64 -mips4 -O3 -DTERMIOS -DB_ENDIAN -DBN_DIV3W::-D_SGI_MP_SOURCE:::RC4_CHAR RC4_CHUNK DES_RISC2 DES_UNROLL SIXTY_FOUR_BIT_LONG::bn-mips3.o::::::::::dlfcn:irix-shared::-mabi=64:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "irix64-mips4-cc", "cc:-64 -mips4 -O2 -use_readonly_const -G0 -rdata_shared -DTERMIOS -DB_ENDIAN -DBN_DIV3W::-D_SGI_MP_SOURCE:::RC4_CHAR RC4_CHUNK DES_RISC2 DES_UNROLL SIXTY_FOUR_BIT_LONG::bn-mips3.o::::::::::dlfcn:irix-shared::-64:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", - -// #### Unified HP-UX ANSI C configs. -// # Special notes: -// # - Originally we were optimizing at +O4 level. It should be noted -// # that the only difference between +O3 and +O4 is global inter- -// # procedural analysis. As it has to be performed during the link -// # stage the compiler leaves behind certain pseudo-code in lib*.a -// # which might be release or even patch level specific. Generating -// # the machine code for and analyzing the *whole* program appears -// # to be *extremely* memory demanding while the performance gain is -// # actually questionable. The situation is intensified by the default -// # HP-UX data set size limit (infamous 'maxdsiz' tunable) of 64MB -// # which is way too low for +O4. In other words, doesn't +O3 make -// # more sense? -// # - Keep in mind that the HP compiler by default generates code -// # suitable for execution on the host you're currently compiling at. -// # If the toolkit is ment to be used on various PA-RISC processors -// # consider './config +DAportable'. -// # - +DD64 is chosen in favour of +DA2.0W because it's meant to be -// # compatible with *future* releases. -// # - If you run ./Configure hpux-parisc-[g]cc manually don't forget to -// # pass -D_REENTRANT on HP-UX 10 and later. -// # - -DMD32_XARRAY triggers workaround for compiler bug we ran into in -// # 32-bit message digests. (For the moment of this writing) HP C -// # doesn't seem to "digest" too many local variables (they make "him" -// # chew forever:-). For more details look-up MD32_XARRAY comment in -// # crypto/sha/sha_lcl.h. -// # -// # -// # Since there is mention of this in shlib/hpux10-cc.sh -// "hpux-parisc-cc-o4","cc:-Ae +O4 +ESlit -z -DB_ENDIAN -DBN_DIV2W -DMD32_XARRAY::-D_REENTRANT::-ldld:BN_LLONG DES_PTR DES_UNROLL DES_RISC1:${no_asm}:dl:hpux-shared:+Z:-b:.sl.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "hpux-parisc-gcc","gcc:-O3 -DB_ENDIAN -DBN_DIV2W::-D_REENTRANT::-Wl,+s -ldld:BN_LLONG DES_PTR DES_UNROLL DES_RISC1:${no_asm}:dl:hpux-shared:-fPIC:-shared:.sl.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "hpux-parisc2-gcc","gcc:-march=2.0 -O3 -DB_ENDIAN -D_REENTRANT::::-Wl,+s -ldld:SIXTY_FOUR_BIT RC4_CHAR RC4_CHUNK DES_PTR DES_UNROLL DES_RISC1::pa-risc2.o::::::::::dl:hpux-shared:-fPIC:-shared:.sl.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "hpux64-parisc2-gcc","gcc:-O3 -DB_ENDIAN -D_REENTRANT::::-ldl:SIXTY_FOUR_BIT_LONG MD2_CHAR RC4_INDEX RC4_CHAR DES_UNROLL DES_RISC1 DES_INT::pa-risc2W.o::::::::::dlfcn:hpux-shared:-fpic:-shared:.sl.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", - -// # More attempts at unified 10.X and 11.X targets for HP C compiler. -// # -// # Chris Ruemmler -// # Kevin Steves -// "hpux-parisc-cc","cc:+O3 +Optrs_strongly_typed -Ae +ESlit -DB_ENDIAN -DBN_DIV2W -DMD32_XARRAY::-D_REENTRANT::-Wl,+s -ldld:MD2_CHAR RC4_INDEX RC4_CHAR DES_UNROLL DES_RISC1 DES_INT:${no_asm}:dl:hpux-shared:+Z:-b:.sl.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "hpux-parisc1_0-cc","cc:+DAportable +O3 +Optrs_strongly_typed -Ae +ESlit -DB_ENDIAN -DMD32_XARRAY::-D_REENTRANT::-Wl,+s -ldld:MD2_CHAR RC4_INDEX RC4_CHAR DES_UNROLL DES_RISC1 DES_INT:${no_asm}:dl:hpux-shared:+Z:-b:.sl.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "hpux-parisc2-cc","cc:+DA2.0 +DS2.0 +O3 +Optrs_strongly_typed -Ae +ESlit -DB_ENDIAN -DMD32_XARRAY -D_REENTRANT::::-Wl,+s -ldld:SIXTY_FOUR_BIT MD2_CHAR RC4_INDEX RC4_CHAR DES_UNROLL DES_RISC1 DES_INT::pa-risc2.o::::::::::dl:hpux-shared:+Z:-b:.sl.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "hpux64-parisc2-cc","cc:+DD64 +O3 +Optrs_strongly_typed -Ae +ESlit -DB_ENDIAN -DMD32_XARRAY -D_REENTRANT::::-ldl:SIXTY_FOUR_BIT_LONG MD2_CHAR RC4_INDEX RC4_CHAR DES_UNROLL DES_RISC1 DES_INT::pa-risc2W.o::::::::::dlfcn:hpux-shared:+Z:+DD64 -b:.sl.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", - -// # HP/UX IA-64 targets -// "hpux-ia64-cc","cc:-Ae +DD32 +O2 +Olit=all -z -DB_ENDIAN -D_REENTRANT::::-ldl:SIXTY_FOUR_BIT MD2_CHAR RC4_INDEX DES_UNROLL DES_RISC1 DES_INT:${ia64_asm}:dlfcn:hpux-shared:+Z:+DD32 -b:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// # Frank Geurts has patiently assisted with -// # with debugging of the following config. -// "hpux64-ia64-cc","cc:-Ae +DD64 +O3 +Olit=all -z -DB_ENDIAN -D_REENTRANT::::-ldl:SIXTY_FOUR_BIT_LONG MD2_CHAR RC4_INDEX DES_UNROLL DES_RISC1 DES_INT:${ia64_asm}:dlfcn:hpux-shared:+Z:+DD64 -b:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// # GCC builds... -// "hpux-ia64-gcc","gcc:-O3 -DB_ENDIAN -D_REENTRANT::::-ldl:SIXTY_FOUR_BIT MD2_CHAR RC4_INDEX DES_UNROLL DES_RISC1 DES_INT:${ia64_asm}:dlfcn:hpux-shared:-fpic:-shared:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "hpux64-ia64-gcc","gcc:-mlp64 -O3 -DB_ENDIAN -D_REENTRANT::::-ldl:SIXTY_FOUR_BIT_LONG MD2_CHAR RC4_INDEX DES_UNROLL DES_RISC1 DES_INT:${ia64_asm}:dlfcn:hpux-shared:-fpic:-mlp64 -shared:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", - -// # Legacy HPUX 9.X configs... -// "hpux-cc", "cc:-DB_ENDIAN -DBN_DIV2W -DMD32_XARRAY -Ae +ESlit +O2 -z::(unknown)::-Wl,+s -ldld:DES_PTR DES_UNROLL DES_RISC1:${no_asm}:dl:hpux-shared:+Z:-b:.sl.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "hpux-gcc", "gcc:-DB_ENDIAN -DBN_DIV2W -O3::(unknown)::-Wl,+s -ldld:DES_PTR DES_UNROLL DES_RISC1:${no_asm}:dl:hpux-shared:-fPIC:-shared:.sl.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", - -// #### HP MPE/iX http://jazz.external.hp.com/src/openssl/ -// "MPE/iX-gcc", "gcc:-D_ENDIAN -DBN_DIV2W -O3 -D_POSIX_SOURCE -D_SOCKET_SOURCE -I/SYSLOG/PUB::(unknown):MPE:-L/SYSLOG/PUB -lsyslog -lsocket -lcurses:BN_LLONG DES_PTR DES_UNROLL DES_RISC1:::", - -// # DEC Alpha OSF/1/Tru64 targets. -// # -// # "What's in a name? That which we call a rose -// # By any other word would smell as sweet." -// # -// # - William Shakespeare, "Romeo & Juliet", Act II, scene II. -// # -// # For gcc, the following gave a %50 speedup on a 164 over the 'DES_INT' version -// # -// "osf1-alpha-gcc", "gcc:-O3::(unknown):::SIXTY_FOUR_BIT_LONG RC4_CHUNK DES_UNROLL DES_RISC1:${no_asm}:dlfcn:alpha-osf1-shared:::.so", -// "osf1-alpha-cc", "cc:-std1 -tune host -O4 -readonly_strings::(unknown):::SIXTY_FOUR_BIT_LONG RC4_CHUNK:${no_asm}:dlfcn:alpha-osf1-shared:::.so", -// "tru64-alpha-cc", "cc:-std1 -tune host -fast -readonly_strings::-pthread:::SIXTY_FOUR_BIT_LONG RC4_CHUNK:${no_asm}:dlfcn:alpha-osf1-shared::-msym:.so", - -// #### -// #### Variety of LINUX:-) -// #### -// # *-generic* is endian-neutral target, but ./config is free to -// # throw in -D[BL]_ENDIAN, whichever appropriate... -// "linux-generic32","gcc:-DTERMIO -O3 -fomit-frame-pointer -Wall::-D_REENTRANT::-ldl:BN_LLONG RC4_CHAR RC4_CHUNK DES_INT DES_UNROLL BF_PTR:${no_asm}:dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "linux-ppc", "gcc:-DB_ENDIAN -DTERMIO -O3 -Wall::-D_REENTRANT::-ldl:BN_LLONG RC4_CHAR RC4_CHUNK DES_RISC1 DES_UNROLL::linux_ppc32.o::::::::::dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// #### IA-32 targets... -// "linux-ia32-icc", "icc:-DL_ENDIAN -DTERMIO -O2 -no_cpprt::-D_REENTRANT::-ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:linux-shared:-KPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "linux-elf", "gcc:-DL_ENDIAN -DTERMIO -O3 -fomit-frame-pointer -Wall::-D_REENTRANT::-ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "linux-aout", "gcc:-DL_ENDIAN -DTERMIO -O3 -fomit-frame-pointer -march=i486 -Wall::(unknown):::BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_out_asm}", -// #### -// "linux-generic64","gcc:-DTERMIO -O3 -Wall::-D_REENTRANT::-ldl:SIXTY_FOUR_BIT_LONG RC4_CHAR RC4_CHUNK DES_INT DES_UNROLL BF_PTR:${no_asm}:dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "linux-ppc64", "gcc:-m64 -DB_ENDIAN -DTERMIO -O3 -Wall::-D_REENTRANT::-ldl:SIXTY_FOUR_BIT_LONG RC4_CHAR RC4_CHUNK DES_RISC1 DES_UNROLL::linux_ppc64.o::::::::::dlfcn:linux-shared:-fPIC:-m64:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "linux-ia64", "gcc:-DL_ENDIAN -DTERMIO -O3 -Wall::-D_REENTRANT::-ldl:SIXTY_FOUR_BIT_LONG RC4_CHUNK:${ia64_asm}:dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "linux-ia64-ecc","ecc:-DL_ENDIAN -DTERMIO -O2 -Wall -no_cpprt::-D_REENTRANT::-ldl:SIXTY_FOUR_BIT_LONG RC4_CHUNK:${ia64_asm}:dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "linux-ia64-icc","icc:-DL_ENDIAN -DTERMIO -O2 -Wall -no_cpprt::-D_REENTRANT::-ldl:SIXTY_FOUR_BIT_LONG RC4_CHUNK:${ia64_asm}:dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "linux-x86_64", "gcc:-m64 -DL_ENDIAN -DTERMIO -O3 -Wall -DMD32_REG_T=int::-D_REENTRANT::-ldl:SIXTY_FOUR_BIT_LONG RC4_CHUNK BF_PTR2 DES_INT DES_UNROLL:${x86_64_asm}:dlfcn:linux-shared:-fPIC:-m64:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// #### SPARC Linux setups -// # Ray Miller has patiently -// # assisted with debugging of following two configs. -// "linux-sparcv8","gcc:-mv8 -DB_ENDIAN -DTERMIO -O3 -fomit-frame-pointer -Wall -DBN_DIV2W::-D_REENTRANT::-ldl:BN_LLONG RC4_CHAR RC4_CHUNK DES_UNROLL BF_PTR::sparcv8.o:des_enc-sparc.o fcrypt_b.o:::::::::dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// # it's a real mess with -mcpu=ultrasparc option under Linux, but -// # -Wa,-Av8plus should do the trick no matter what. -// "linux-sparcv9","gcc:-m32 -mcpu=ultrasparc -DB_ENDIAN -DTERMIO -O3 -fomit-frame-pointer -Wall -Wa,-Av8plus -DBN_DIV2W::-D_REENTRANT:ULTRASPARC:-ldl:BN_LLONG RC4_CHAR RC4_CHUNK DES_UNROLL BF_PTR::sparcv8plus.o:des_enc-sparc.o fcrypt_b.o:::::::::dlfcn:linux-shared:-fPIC:-m32:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// # GCC 3.1 is a requirement -// "linux64-sparcv9","gcc:-m64 -mcpu=ultrasparc -DB_ENDIAN -DTERMIO -O3 -fomit-frame-pointer -Wall::-D_REENTRANT:ULTRASPARC:-ldl:SIXTY_FOUR_BIT_LONG RC4_CHAR RC4_CHUNK DES_UNROLL BF_PTR::::::::::::dlfcn:linux-shared:-fPIC:-m64:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// #### Alpha Linux with GNU C and Compaq C setups -// # Special notes: -// # - linux-alpha+bwx-gcc is ment to be used from ./config only. If you -// # ought to run './Configure linux-alpha+bwx-gcc' manually, do -// # complement the command line with -mcpu=ev56, -mcpu=ev6 or whatever -// # which is appropriate. -// # - If you use ccc keep in mind that -fast implies -arch host and the -// # compiler is free to issue instructions which gonna make elder CPU -// # choke. If you wish to build "blended" toolkit, add -arch generic -// # *after* -fast and invoke './Configure linux-alpha-ccc' manually. -// # -// # -// # -// "linux-alpha-gcc","gcc:-O3 -DL_ENDIAN -DTERMIO::-D_REENTRANT::-ldl:SIXTY_FOUR_BIT_LONG RC4_CHUNK DES_RISC1 DES_UNROLL:${no_asm}:dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "linux-alpha+bwx-gcc","gcc:-O3 -DL_ENDIAN -DTERMIO::-D_REENTRANT::-ldl:SIXTY_FOUR_BIT_LONG RC4_CHAR RC4_CHUNK DES_RISC1 DES_UNROLL:${no_asm}:dlfcn:linux-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "linux-alpha-ccc","ccc:-fast -readonly_strings -DL_ENDIAN -DTERMIO::-D_REENTRANT:::SIXTY_FOUR_BIT_LONG RC4_CHUNK DES_INT DES_PTR DES_RISC1 DES_UNROLL:${no_asm}", -// "linux-alpha+bwx-ccc","ccc:-fast -readonly_strings -DL_ENDIAN -DTERMIO::-D_REENTRANT:::SIXTY_FOUR_BIT_LONG RC4_CHAR RC4_CHUNK DES_INT DES_PTR DES_RISC1 DES_UNROLL:${no_asm}", - -// #### *BSD [do see comment about ${BSDthreads} above!] -// "BSD-generic32","gcc:-DTERMIOS -O3 -fomit-frame-pointer -Wall::${BSDthreads}:::BN_LLONG RC2_CHAR RC4_INDEX DES_INT DES_UNROLL:${no_asm}:dlfcn:bsd-gcc-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "BSD-x86", "gcc:-DL_ENDIAN -DTERMIOS -O3 -fomit-frame-pointer -Wall::${BSDthreads}:::BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_out_asm}:dlfcn:bsd-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "BSD-x86-elf", "gcc:-DL_ENDIAN -DTERMIOS -O3 -fomit-frame-pointer -Wall::${BSDthreads}:::BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:bsd-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "debug-BSD-x86-elf", "gcc:-DL_ENDIAN -DTERMIOS -O3 -Wall -g::${BSDthreads}:::BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:bsd-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "BSD-sparcv8", "gcc:-DB_ENDIAN -DTERMIOS -O3 -mv8 -Wall::${BSDthreads}:::BN_LLONG RC2_CHAR RC4_INDEX DES_INT DES_UNROLL::sparcv8.o:des_enc-sparc.o fcrypt_b.o:::::::::dlfcn:bsd-gcc-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", - -// "BSD-generic64","gcc:-DTERMIOS -O3 -Wall::${BSDthreads}:::SIXTY_FOUR_BIT_LONG RC4_CHUNK DES_INT DES_UNROLL:${no_asm}:dlfcn:bsd-gcc-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// # -DMD32_REG_T=int doesn't actually belong in sparc64 target, it -// # simply *happens* to work around a compiler bug in gcc 3.3.3, -// # triggered by RIPEMD160 code. -// "BSD-sparc64", "gcc:-DB_ENDIAN -DTERMIOS -O3 -DMD32_REG_T=int -Wall::${BSDthreads}:::SIXTY_FOUR_BIT_LONG RC2_CHAR RC4_CHUNK DES_INT DES_PTR DES_RISC2 BF_PTR:::des_enc-sparc.o fcrypt_b.o:::::::::dlfcn:bsd-gcc-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "BSD-ia64", "gcc:-DL_ENDIAN -DTERMIOS -O3 -Wall::${BSDthreads}:::SIXTY_FOUR_BIT_LONG RC4_CHUNK:${ia64_asm}:dlfcn:bsd-gcc-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "BSD-x86_64", "gcc:-DL_ENDIAN -DTERMIOS -O3 -DMD32_REG_T=int -Wall::${BSDthreads}:::SIXTY_FOUR_BIT_LONG RC4_CHUNK DES_INT DES_UNROLL:${x86_64_asm}:dlfcn:bsd-gcc-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", - -// "bsdi-elf-gcc", "gcc:-DPERL5 -DL_ENDIAN -fomit-frame-pointer -O3 -march=i486 -Wall::(unknown)::-ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:bsd-gcc-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", - -// "nextstep", "cc:-O -Wall::(unknown):::BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:::", -// "nextstep3.3", "cc:-O3 -Wall::(unknown):::BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:::", - -// # NCR MP-RAS UNIX ver 02.03.01 -// "ncr-scde","cc:-O6 -Xa -Hoff=BEHAVED -686 -Hwide -Hiw::(unknown)::-lsocket -lnsl -lc89:${x86_gcc_des} ${x86_gcc_opts}:::", - -// # QNX -// "qnx4", "cc:-DL_ENDIAN -DTERMIO::(unknown):::${x86_gcc_des} ${x86_gcc_opts}:", -// "qnx6", "cc:-DL_ENDIAN -DTERMIOS::(unknown)::-lsocket:${x86_gcc_des} ${x86_gcc_opts}:", - -// #### SCO/Caldera targets. -// # -// # Originally we had like unixware-*, unixware-*-pentium, unixware-*-p6, etc. -// # Now we only have blended unixware-* as it's the only one used by ./config. -// # If you want to optimize for particular microarchitecture, bypass ./config -// # and './Configure unixware-7 -Kpentium_pro' or whatever appropriate. -// # Note that not all targets include assembler support. Mostly because of -// # lack of motivation to support out-of-date platforms with out-of-date -// # compiler drivers and assemblers. Tim Rice has -// # patiently assisted to debug most of it. -// # -// # UnixWare 2.0x fails destest with -O. -// "unixware-2.0","cc:-DFILIO_H -DNO_STRINGS_H::-Kthread::-lsocket -lnsl -lresolv -lx:${x86_gcc_des} ${x86_gcc_opts}:::", -// "unixware-2.1","cc:-O -DFILIO_H::-Kthread::-lsocket -lnsl -lresolv -lx:${x86_gcc_des} ${x86_gcc_opts}:::", -// "unixware-7","cc:-O -DFILIO_H -Kalloca::-Kthread::-lsocket -lnsl:BN_LLONG MD2_CHAR RC4_INDEX ${x86_gcc_des}:${x86_elf_asm}:dlfcn:svr5-shared:-Kpic::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "unixware-7-gcc","gcc:-DL_ENDIAN -DFILIO_H -O3 -fomit-frame-pointer -march=pentium -Wall::-D_REENTRANT::-lsocket -lnsl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:gnu-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// # SCO 5 - Ben Laurie says the -O breaks the SCO cc. -// "sco5-cc", "cc:-belf::(unknown)::-lsocket -lnsl:${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:svr3-shared:-Kpic::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "sco5-gcc", "gcc:-O3 -fomit-frame-pointer::(unknown)::-lsocket -lnsl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:svr3-shared:-fPIC::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", - -// #### IBM's AIX. -// "aix3-cc", "cc:-O -DB_ENDIAN -qmaxmem=16384::(unknown):AIX::BN_LLONG RC4_CHAR:::", -// "aix-gcc", "gcc:-O -DB_ENDIAN::-pthread:AIX::BN_LLONG RC4_CHAR::aix_ppc32.o::::::::::dlfcn:aix-shared::-shared -Wl,-G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::-X 32", -// "aix64-gcc","gcc:-maix64 -O -DB_ENDIAN::-pthread:AIX::SIXTY_FOUR_BIT_LONG RC4_CHAR::aix_ppc64.o::::::::::dlfcn:aix-shared::-maix64 -shared -Wl,-G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::-X64", -// # Below targets assume AIX 5. Idea is to effectively disregard $OBJECT_MODE -// # at build time. $OBJECT_MODE is respected at ./config stage! -// "aix-cc", "cc:-q32 -O -DB_ENDIAN -qmaxmem=16384 -qro -qroconst::-qthreaded:AIX::BN_LLONG RC4_CHAR::aix_ppc32.o::::::::::dlfcn:aix-shared::-q32 -G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::-X 32", -// "aix64-cc", "cc:-q64 -O -DB_ENDIAN -qmaxmem=16384 -qro -qroconst::-qthreaded:AIX::SIXTY_FOUR_BIT_LONG RC4_CHAR::aix_ppc64.o::::::::::dlfcn:aix-shared::-q64 -G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::-X 64", - -// # -// # Cray T90 and similar (SDSC) -// # It's Big-endian, but the algorithms work properly when B_ENDIAN is NOT -// # defined. The T90 ints and longs are 8 bytes long, and apparently the -// # B_ENDIAN code assumes 4 byte ints. Fortunately, the non-B_ENDIAN and -// # non L_ENDIAN code aligns the bytes in each word correctly. -// # -// # The BIT_FIELD_LIMITS define is to avoid two fatal compiler errors: -// #'Taking the address of a bit field is not allowed. ' -// #'An expression with bit field exists as the operand of "sizeof" ' -// # (written by Wayne Schroeder ) -// # -// # j90 is considered the base machine type for unicos machines, -// # so this configuration is now called "cray-j90" ... -// "cray-j90", "cc: -DBIT_FIELD_LIMITS -DTERMIOS::(unknown):CRAY::SIXTY_FOUR_BIT_LONG DES_INT:::", - -// # -// # Cray T3E (Research Center Juelich, beckman@acl.lanl.gov) -// # -// # The BIT_FIELD_LIMITS define was written for the C90 (it seems). I added -// # another use. Basically, the problem is that the T3E uses some bit fields -// # for some st_addr stuff, and then sizeof and address-of fails -// # I could not use the ams/alpha.o option because the Cray assembler, 'cam' -// # did not like it. -// "cray-t3e", "cc: -DBIT_FIELD_LIMITS -DTERMIOS::(unknown):CRAY::SIXTY_FOUR_BIT_LONG RC4_CHUNK DES_INT:::", - -// # DGUX, 88100. -// "dgux-R3-gcc", "gcc:-O3 -fomit-frame-pointer::(unknown):::RC4_INDEX DES_UNROLL:::", -// "dgux-R4-gcc", "gcc:-O3 -fomit-frame-pointer::(unknown)::-lnsl -lsocket:RC4_INDEX DES_UNROLL:::", -// "dgux-R4-x86-gcc", "gcc:-O3 -fomit-frame-pointer -DL_ENDIAN::(unknown)::-lnsl -lsocket:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}", - -// # Sinix/ReliantUNIX RM400 -// # NOTE: The CDS++ Compiler up to V2.0Bsomething has the IRIX_CC_BUG optimizer problem. Better use -g */ -// "ReliantUNIX","cc:-KPIC -g -DTERMIOS -DB_ENDIAN::-Kthread:SNI:-lsocket -lnsl -lc -L/usr/ucblib -lucb:BN_LLONG DES_PTR DES_RISC2 DES_UNROLL BF_PTR:${no_asm}:dlfcn:reliantunix-shared:::.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)", -// "SINIX","cc:-O::(unknown):SNI:-lsocket -lnsl -lc -L/usr/ucblib -lucb:RC4_INDEX RC4_CHAR:::", -// "SINIX-N","/usr/ucb/cc:-O2 -misaligned::(unknown)::-lucb:RC4_INDEX RC4_CHAR:::", - -// # SIEMENS BS2000/OSD: an EBCDIC-based mainframe -// "BS2000-OSD","c89:-O -XLLML -XLLMK -XL -DB_ENDIAN -DTERMIOS -DCHARSET_EBCDIC::(unknown)::-lsocket -lnsl:THIRTY_TWO_BIT DES_PTR DES_UNROLL MD2_CHAR RC4_INDEX RC4_CHAR BF_PTR:::", - -// # OS/390 Unix an EBCDIC-based Unix system on IBM mainframe -// # You need to compile using the c89.sh wrapper in the tools directory, because the -// # IBM compiler does not like the -L switch after any object modules. -// # -// "OS390-Unix","c89.sh:-O -DB_ENDIAN -DCHARSET_EBCDIC -DNO_SYS_PARAM_H -D_ALL_SOURCE::(unknown):::THIRTY_TWO_BIT DES_PTR DES_UNROLL MD2_CHAR RC4_INDEX RC4_CHAR BF_PTR:::", - -// # Win64 targets, WIN64I denotes IA-64 and WIN64A - AMD64 -// "VC-WIN64I","cl::::WIN64I::SIXTY_FOUR_BIT RC4_CHUNK_LL DES_INT EXPORT_VAR_AS_FN:${no_asm}:win32", -// "VC-WIN64A","cl::::WIN64A::SIXTY_FOUR_BIT RC4_CHUNK_LL DES_INT EXPORT_VAR_AS_FN:${no_asm}:win32", - -// # Visual C targets -// "VC-NT","cl::::WINNT::BN_LLONG RC4_INDEX EXPORT_VAR_AS_FN ${x86_gcc_opts}:${no_asm}:win32", -// "VC-CE","cl::::WINCE::BN_LLONG RC4_INDEX EXPORT_VAR_AS_FN ${x86_gcc_opts}:${no_asm}:win32", -// "VC-WIN32","cl::::WIN32::BN_LLONG RC4_INDEX EXPORT_VAR_AS_FN ${x86_gcc_opts}:${no_asm}:win32", - -// # Borland C++ 4.5 -// "BC-32","bcc32::::WIN32::BN_LLONG DES_PTR RC4_INDEX EXPORT_VAR_AS_FN:${no_asm}:win32", - -// # MinGW -// "mingw", "gcc:-mno-cygwin -DL_ENDIAN -fomit-frame-pointer -O3 -march=i486 -Wall -D_WIN32_WINNT=0x333:::MINGW32:-lwsock32 -lgdi32:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts} EXPORT_VAR_AS_FN:${x86_coff_asm}:win32:cygwin-shared:-D_WINDLL -DOPENSSL_USE_APPLINK:-mno-cygwin -shared:.dll.a", - -// # UWIN -// "UWIN", "cc:-DTERMIOS -DL_ENDIAN -O -Wall:::UWIN::BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${no_asm}:win32", - -// # Cygwin -// "Cygwin-pre1.3", "gcc:-DTERMIOS -DL_ENDIAN -fomit-frame-pointer -O3 -m486 -Wall::(unknown):CYGWIN32::BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${no_asm}:win32", -// "Cygwin", "gcc:-DTERMIOS -DL_ENDIAN -fomit-frame-pointer -O3 -march=i486 -Wall:::CYGWIN32::BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_coff_asm}:dlfcn:cygwin-shared:-D_WINDLL:-shared:.dll.a", -// "debug-Cygwin", "gcc:-DTERMIOS -DL_ENDIAN -march=i486 -Wall -DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DCRYPTO_MDEBUG -DOPENSSL_NO_ASM -g -Wformat -Wshadow -Wmissing-prototypes -Wmissing-declarations -Werror:::CYGWIN32:::${no_asm}:dlfcn:cygwin-shared:-D_WINDLL:-shared:.dll.a", - -// # NetWare from David Ward (dsward@novell.com) -// # requires either MetroWerks NLM development tools, or gcc / nlmconv -// # NetWare defaults socket bio to WinSock sockets. However, -// # the builds can be configured to use BSD sockets instead. -// # netware-clib => legacy CLib c-runtime support -// "netware-clib", "mwccnlm::::::${x86_gcc_opts}::", -// "netware-clib-bsdsock", "mwccnlm::::::${x86_gcc_opts}::", -// "netware-clib-gcc", "i586-netware-gcc:-nostdinc -I/ndk/nwsdk/include/nlm -I/ndk/ws295sdk/include -DL_ENDIAN -DNETWARE_CLIB -DOPENSSL_SYSNAME_NETWARE -O2 -Wall:::::${x86_gcc_opts}::", -// "netware-clib-bsdsock-gcc", "i586-netware-gcc:-nostdinc -I/ndk/nwsdk/include/nlm -DNETWARE_BSDSOCK -DNETDB_USE_INTERNET -DL_ENDIAN -DNETWARE_CLIB -DOPENSSL_SYSNAME_NETWARE -O2 -Wall:::::${x86_gcc_opts}::", -// # netware-libc => LibC/NKS support -// "netware-libc", "mwccnlm::::::BN_LLONG ${x86_gcc_opts}::", -// "netware-libc-bsdsock", "mwccnlm::::::BN_LLONG ${x86_gcc_opts}::", -// "netware-libc-gcc", "i586-netware-gcc:-nostdinc -I/ndk/libc/include -I/ndk/libc/include/winsock -DL_ENDIAN -DNETWARE_LIBC -DOPENSSL_SYSNAME_NETWARE -DTERMIO -O2 -Wall:::::BN_LLONG ${x86_gcc_opts}::", -// "netware-libc-bsdsock-gcc", "i586-netware-gcc:-nostdinc -I/ndk/libc/include -DNETWARE_BSDSOCK -DL_ENDIAN -DNETWARE_LIBC -DOPENSSL_SYSNAME_NETWARE -DTERMIO -O2 -Wall:::::BN_LLONG ${x86_gcc_opts}::", - -// # DJGPP -// "DJGPP", "gcc:-I/dev/env/WATT_ROOT/inc -DTERMIOS -DL_ENDIAN -fomit-frame-pointer -O2 -Wall:::MSDOS:-L/dev/env/WATT_ROOT/lib -lwatt:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_out_asm}:", - -// # Ultrix from Bernhard Simon -// "ultrix-cc","cc:-std1 -O -Olimit 2500 -DL_ENDIAN::(unknown):::::::", -// "ultrix-gcc","gcc:-O3 -DL_ENDIAN::(unknown):::BN_LLONG::::", -// # K&R C is no longer supported; you need gcc on old Ultrix installations -// ##"ultrix","cc:-O2 -DNOPROTO -DNOCONST -DL_ENDIAN::(unknown):::::::", - -// ##### MacOS X (a.k.a. Rhapsody or Darwin) setup -// "rhapsody-ppc-cc","cc:-O3 -DB_ENDIAN::(unknown):MACOSX_RHAPSODY::BN_LLONG RC4_CHAR RC4_CHUNK DES_UNROLL BF_PTR:${no_asm}::", -// "darwin-ppc-cc","cc:-arch ppc -O3 -DB_ENDIAN::-D_REENTRANT:MACOSX:-Wl,-search_paths_first%:BN_LLONG RC4_CHAR RC4_CHUNK DES_UNROLL BF_PTR::osx_ppc32.o::::::::::dlfcn:darwin-shared:-fPIC -fno-common:-arch ppc -dynamiclib:.\$(SHLIB_MAJOR).\$(SHLIB_MINOR).dylib", -// "darwin64-ppc-cc","cc:-arch ppc64 -O3 -DB_ENDIAN::-D_REENTRANT:MACOSX:-Wl,-search_paths_first%:SIXTY_FOUR_BIT_LONG RC4_CHAR RC4_CHUNK DES_UNROLL BF_PTR::osx_ppc64.o::::::::::dlfcn:darwin-shared:-fPIC -fno-common:-arch ppc64 -dynamiclib:.\$(SHLIB_MAJOR).\$(SHLIB_MINOR).dylib", -// "darwin-i386-cc","cc:-arch i386 -O3 -fomit-frame-pointer -DL_ENDIAN::-D_REENTRANT:MACOSX:-Wl,-search_paths_first%:BN_LLONG RC4_CHAR RC4_CHUNK DES_UNROLL BF_PTR:${no_asm}:dlfcn:darwin-shared:-fPIC -fno-common:-arch i386 -dynamiclib:.\$(SHLIB_MAJOR).\$(SHLIB_MINOR).dylib", -// "debug-darwin-i386-cc","cc:-arch i386 -g3 -DL_ENDIAN::-D_REENTRANT:MACOSX:-Wl,-search_paths_first%:BN_LLONG RC4_CHAR RC4_CHUNK DES_UNROLL BF_PTR:${no_asm}:dlfcn:darwin-shared:-fPIC -fno-common:-arch i386 -dynamiclib:.\$(SHLIB_MAJOR).\$(SHLIB_MINOR).dylib", -// "darwin64-x86_64-cc","cc:-arch x86_64 -O3 -fomit-frame-pointer -DL_ENDIAN -DMD32_REG_T=int -Wall::-D_REENTRANT:MACOSX:-Wl,-search_paths_first%:SIXTY_FOUR_BIT_LONG RC4_CHAR RC4_CHUNK BF_PTR2 DES_INT DES_UNROLL:${no_asm}:dlfcn:darwin-shared:-fPIC -fno-common:-arch x86_64 -dynamiclib:.\$(SHLIB_MAJOR).\$(SHLIB_MINOR).dylib", -// "debug-darwin-ppc-cc","cc:-DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DCRYPTO_MDEBUG -DB_ENDIAN -g -Wall -O::-D_REENTRANT:MACOSX::BN_LLONG RC4_CHAR RC4_CHUNK DES_UNROLL BF_PTR::osx_ppc32.o::::::::::dlfcn:darwin-shared:-fPIC -fno-common:-dynamiclib:.\$(SHLIB_MAJOR).\$(SHLIB_MINOR).dylib", - -// ##### A/UX -// "aux3-gcc","gcc:-O2 -DTERMIO::(unknown):AUX:-lbsd:RC4_CHAR RC4_CHUNK DES_UNROLL BF_PTR:::", - -// ##### Sony NEWS-OS 4.x -// "newsos4-gcc","gcc:-O -DB_ENDIAN::(unknown):NEWS4:-lmld -liberty:BN_LLONG RC4_CHAR RC4_CHUNK DES_PTR DES_RISC1 DES_UNROLL BF_PTR::::", - -// ##### GNU Hurd -// "hurd-x86", "gcc:-DL_ENDIAN -DTERMIOS -O3 -fomit-frame-pointer -march=i486 -Wall::-D_REENTRANT::-ldl:BN_LLONG ${x86_gcc_des} ${x86_gcc_opts}:${x86_elf_asm}:dlfcn:linux-shared:-fPIC", - -// ##### OS/2 EMX -// "OS2-EMX", "gcc::::::::", - -// ##### VxWorks for various targets -// "vxworks-ppc405","ccppc:-g -msoft-float -mlongcall -DCPU=PPC405 -I\$(WIND_BASE)/target/h:::VXWORKS:-r:::::", -// "vxworks-ppc750","ccppc:-ansi -nostdinc -DPPC750 -D_REENTRANT -fvolatile -fno-builtin -fno-for-scope -fsigned-char -Wall -msoft-float -mlongcall -DCPU=PPC604 -I\$(WIND_BASE)/target/h \$(DEBUG_FLAG):::VXWORKS:-r:::::", -// "vxworks-ppc750-debug","ccppc:-ansi -nostdinc -DPPC750 -D_REENTRANT -fvolatile -fno-builtin -fno-for-scope -fsigned-char -Wall -msoft-float -mlongcall -DCPU=PPC604 -I\$(WIND_BASE)/target/h -DBN_DEBUG -DREF_CHECK -DCONF_DEBUG -DCRYPTO_MDEBUG -DPEDANTIC -DDEBUG_SAFESTACK -DDEBUG -g:::VXWORKS:-r:::::", -// "vxworks-ppc860","ccppc:-nostdinc -msoft-float -DCPU=PPC860 -DNO_STRINGS_H -I\$(WIND_BASE)/target/h:::VXWORKS:-r:::::", -// "vxworks-mipsle","ccmips:-B\$(WIND_BASE)/host/\$(WIND_HOST_TYPE)/lib/gcc-lib/ -DL_ENDIAN -EL -Wl,-EL -mips2 -mno-branch-likely -G 0 -fno-builtin -msoft-float -DCPU=MIPS32 -DMIPSEL -DNO_STRINGS_H -I\$(WIND_BASE)/target/h:::VXWORKS:-r::${no_asm}::::::ranlibmips:", - -// ##### Compaq Non-Stop Kernel (Tandem) -// "tandem-c89","c89:-Ww -D__TANDEM -D_XOPEN_SOURCE -D_XOPEN_SOURCE_EXTENDED=1 -D_TANDEM_SOURCE -DB_ENDIAN::(unknown):::THIRTY_TWO_BIT:::", - -{enable if you want FIPS support and are using an openssl library with FIPS support compiled in.} -{$DEFINE OPENSSL_FIPS} -//use this only for Safe Stack define and some define changes in OpenSSL 1.0 -//defines. - -{$UNDEF OPENSSL_1_0} - -{$IFDEF WIN32} - {$DEFINE OPENSSL_SYSNAME_WIN32} - {$DEFINE OPENSSL_SYS_WIN32} - {$DEFINE L_ENDIAN} - {$DEFINE DSO_WIN32} - - {$DEFINE BN_LLONG} - {$DEFINE RC4_INDEX} - {$DEFINE EXPORT_VAR_AS_FN} - {$DEFINE RC4_INDEX} - {$DEFINE MD2_INT} - - {$DEFINE _CRT_SECURE_NO_DEPRECATE} - {$DEFINE _CRT_NONSTDC_NO_DEPRECATE} - {$DEFINE BN_ASM} - {$DEFINE MD5_ASM} - {$DEFINE SHA1_ASM} - {$DEFINE RMD160_ASM} - {$DEFINE OPENSSL_NO_CMS} - {$DEFINE OPENSSL_NO_GMP} - {$DEFINE OPENSSL_NO_CAMELLIA} - {$DEFINE OPENSSL_NO_RC5} - {$DEFINE OPENSSL_NO_MD2} - {$DEFINE OPENSSL_NO_MDC2} - {$DEFINE OPENSSL_NO_KRB5} - {$DEFINE OPENSSL_NO_MDC} - {$DEFINE OPENSSL_NO_DYNAMIC_ENGINE} - {$DEFINE OPENSSL_NO_RFC3779} - {$DEFINE OPENSSL_NO_SEED} - - {$DEFINE OPENSSL_NO_CAPIENG} - {$DEFINE OPENSSL_NO_JPAKE} - {$DEFINE OPENSSL_1_0} -{$ENDIF} - -{$IFDEF WINCE} - {$DEFINE BN_LLONG} - {$DEFINE RC4_INDEX} - {$DEFINE EXPORT_VAR_AS_FN} - {$DEFINE RC4_INDEX} - {$DEFINE MD2_INT} - {$DEFINE OPENSSL_NO_CMS} - {$DEFINE OPENSSL_NO_CAMELLIA} - {$DEFINE OPENSSL_NO_RC5} - {$DEFINE OPENSSL_NO_MD2} - {$DEFINE OPENSSL_NO_MDC2} - {$DEFINE OPENSSL_NO_KRB5} - {$DEFINE OPENSSL_NO_DYNAMIC_ENGINE} - - {$DEFINE EXPORT_VAR_AS_FN} - {$DEFINE OPENSSL_NO_RFC3779} - {$DEFINE OPENSSL_NO_SEED} - {$DEFINE OPENSSL_NO_CAPIENG} - {$DEFINE OPENSSL_NO_JPAKE} -{$ENDIF} - -{$IFDEF WIN64} - //"VC-WIN64A","cl::::WIN64A::-SIXTY_FOUR_BIT RC4_CHUNK_LL DES_INT EXPORT_VAR_AS_FN:${no_asm}:win32", - {$DEFINE SIXTY_FOUR_BIT} - {$DEFINE RC4_CHUNK_LL} - {$DEFINE DES_INT} - {$DEFINE EXPORT_VAR_AS_FN} - - {$DEFINE L_ENDIAN} - - {$DEFINE DSO_WIN32} - {$DEFINE OPENSSL_SYSNAME_WIN32} - {$DEFINE OPENSSL_SYSNAME_WINNT} - {$DEFINE UNICODE} - {$DEFINE _UNICODE} - {$DEFINE _CRT_SECURE_NO_DEPRECATE} - {$DEFINE _CRT_NONSTDC_NO_DEPRECATE} - {$DEFINE OPENSSL_NO_CAMELLIA} - {$DEFINE OPENSSL_NO_RC5} - {$DEFINE OPENSSL_NO_MD2} - {$DEFINE OPENSSL_NO_MDC2} - {$DEFINE OPENSSL_NO_KRB5} - {$DEFINE OPENSSL_NO_DYNAMIC_ENGINE} - - {$DEFINE EXPORT_VAR_AS_FN} - {$DEFINE OPENSSL_NO_GMP} - {$DEFINE OPENSSL_NO_RFC3779} - {$DEFINE OPENSSL_NO_SEED} - {$DEFINE OPENSSL_NO_CAPIENG} - {$DEFINE OPENSSL_NO_JPAKE} - {$DEFINE OPENSSL_1_0} -{$ENDIF} - -{$IFDEF UNIX} -//attempt to get this right from FreeBSD CVS -//Makefile compile options. The file is located -//at http://www.freebsd.org/cgi/cvsweb.cgi/src/crypto/openssl/ . - {$DEFINE OPENSSL_NO_CAMELLIA} - {$DEFINE OPENSSL_NO_GMP} - {$DEFINE OPENSSL_NO_MD2} - {$DEFINE OPENSSL_NO_MDC2} - {$DEFINE OPENSSL_NO_RC5} - {$DEFINE OPENSSL_NO_SEED} - {$DEFINE OPENSSL_NO_RFC3779} - - {$DEFINE OPENSSL_NO_CAPIENG} - {$DEFINE OPENSSL_NO_JPAKE} -{$ENDIF} - -//#if (defined(OPENSSL_NO_RSA) || defined(OPENSSL_NO_MD5)) && !defined(OPENSSL_NO_SSL2) -//#define OPENSSL_NO_SSL2 -//#endif -{$IFDEF OPENSSL_NO_RSA} - {$IFNDEF OPENSSL_NO_SSL2} - {$DEFINE OPENSSL_NO_SSL2} - {$ENDIF} -{$ENDIF} -{$IFDEF OPENSSL_NO_MD5} - {$IFNDEF OPENSSL_NO_SSL2} - {$DEFINE OPENSSL_NO_SSL2} - {$ENDIF} -{$ENDIF} - -{$IFDEF WIN64} - {$DEFINE SYS_WIN} -{$ENDIF} -{$IFDEF WIN32} - {$DEFINE SYS_WIN} -{$ENDIF} -{$IFDEF WINCE} - {$DEFINE SYS_WIN} -{$ENDIF} - -{$IFNDEF SIXTY_FOUR_BIT} - {$IFNDEF SIXTY_FOUR_BIT_LONG} -//I've over simplified this because we don't support 8 or 16bit architectures - {$DEFINE THIRTY_TWO_BIT} - {$ENDIF} -{$ENDIF} -{$IFDEF OPENSSL_1_0} - {$DEFINE DEBUG_SAFESTACK} - {$UNDEF OPENSSL_NO_SEED} - {$UNDEF OPENSSL_NO_MDC2} - {$UNDEF OPENSSL_NO_CMS} - {$UNDEF OPENSSL_NO_CAPIENG} -{$ENDIF} - -// the following emits are a workaround to a -// name conflict with Win32 API header files -(*$HPPEMIT '#include '*) -{$IFDEF SYS_WIN} -(*$HPPEMIT '#undef X509_NAME'*) -(*$HPPEMIT '#undef X509_EXTENSIONS'*) -(*$HPPEMIT '#undef X509_CERT_PAIR'*) -(*$HPPEMIT '#undef PKCS7_ISSUER_AND_SERIAL'*) -(*$HPPEMIT '#undef OCSP_RESPONSE'*) -(*$HPPEMIT '#undef OCSP_REQUEST'*) -(*$HPPEMIT '#undef PKCS7_SIGNER_INFO'*) -(*$HPPEMIT '#undef OCSP_REQUEST'*) -(*$HPPEMIT '#undef OCSP_RESPONSE'*) -{$ENDIF} - -// the following emits are a workaround to allow -// compiling in C++ without having to re-define -// OpenSSL data types and without having to -// include the OpenSSL header files -{$IFDEF HAS_DIRECTIVE_HPPEMIT_NAMESPACE} -{$HPPEMIT OPENNAMESPACE} -{$ELSE} -(*$HPPEMIT 'namespace Idsslopensslheaders'*) -(*$HPPEMIT '{'*) -{$ENDIF} -(*$HPPEMIT ' struct SSL;'*) -(*$HPPEMIT ' typedef SSL* PSSL;'*) -(*$HPPEMIT ' struct SSL_CTX;'*) -(*$HPPEMIT ' typedef SSL_CTX* PSSL_CTX;'*) -(*$HPPEMIT ' struct SSL_METHOD;'*) -(*$HPPEMIT ' typedef SSL_METHOD* PSSL_METHOD;'*) -(*$HPPEMIT ' struct X509;'*) -(*$HPPEMIT ' typedef X509* PX509;'*) -(*$HPPEMIT ' struct X509_NAME;'*) -(*$HPPEMIT ' typedef X509_NAME* PX509_NAME;'*) -{$IFDEF HAS_DIRECTIVE_HPPEMIT_NAMESPACE} -{$HPPEMIT CLOSENAMESPACE} -{$ELSE} -(*$HPPEMIT '}'*) -{$ENDIF} - -// RLebeau: why are the following types not being placed in -// the Idsslopensslheaders namespace with the types above? -(*$HPPEMIT 'struct RSA;'*) -(*$HPPEMIT 'typedef RSA* PRSA;'*) -(*$HPPEMIT 'struct DSA;'*) -(*$HPPEMIT 'typedef DSA* PDSA;'*) -(*$HPPEMIT 'struct DH;'*) -(*$HPPEMIT 'typedef DH* PDH;'*) -(*$HPPEMIT 'typedef void* PEC_KEY;'*) - -uses - IdException, - IdGlobal, - {$IFDEF WINDOWS} - Windows, - IdWinsock2, - {$ENDIF} - {$IFDEF USE_VCL_POSIX} - Posix.SysSocket, - Posix.SysTime, - Posix.SysTypes, - {$ENDIF} - {$IFDEF KYLIXCOMPAT} - libc, - {$ENDIF} - {$IFDEF USE_BASEUNIX} - baseunix, - sockets, - {$ENDIF} - SysUtils, - IdCTypes; - -//temp for compile tests -{.$DEFINE SSLEAY_MACROS} - -const - {$IFNDEF HAS_PAnsiChar} - cNull: TIdAnsiChar = 0; - {$ENDIF} - - {$EXTERNALSYM CONF_MFLAGS_IGNORE_ERRORS} - CONF_MFLAGS_IGNORE_ERRORS = $1; - {$EXTERNALSYM CONF_MFLAGS_IGNORE_RETURN_CODES} - CONF_MFLAGS_IGNORE_RETURN_CODES = $2; - {$EXTERNALSYM CONF_MFLAGS_SILENT} - CONF_MFLAGS_SILENT = $4; - {$EXTERNALSYM CONF_MFLAGS_NO_DSO} - CONF_MFLAGS_NO_DSO = $8; - {$EXTERNALSYM CONF_MFLAGS_IGNORE_MISSING_FILE} - CONF_MFLAGS_IGNORE_MISSING_FILE = $10; - {$EXTERNALSYM CONF_MFLAGS_DEFAULT_SECTION} - CONF_MFLAGS_DEFAULT_SECTION = $20; - {$EXTERNALSYM CONF_F_CONF_DUMP_FP} - CONF_F_CONF_DUMP_FP = 104; - {$EXTERNALSYM CONF_F_CONF_LOAD} - CONF_F_CONF_LOAD = 100; - {$EXTERNALSYM CONF_F_CONF_LOAD_BIO} - CONF_F_CONF_LOAD_BIO = 102; - {$EXTERNALSYM CONF_F_CONF_LOAD_FP} - CONF_F_CONF_LOAD_FP = 103; - {$EXTERNALSYM CONF_F_CONF_MODULES_LOAD} - CONF_F_CONF_MODULES_LOAD = 116; - {$EXTERNALSYM CONF_F_DEF_LOAD} - CONF_F_DEF_LOAD = 120; - {$EXTERNALSYM CONF_F_DEF_LOAD_BIO} - CONF_F_DEF_LOAD_BIO = 121; - {$EXTERNALSYM CONF_F_MODULE_INIT} - CONF_F_MODULE_INIT = 115; - {$EXTERNALSYM CONF_F_MODULE_LOAD_DSO} - CONF_F_MODULE_LOAD_DSO = 117; - {$EXTERNALSYM CONF_F_CONF_PARSE_LIST} - CONF_F_CONF_PARSE_LIST = 119; - {$EXTERNALSYM CONF_F_MODULE_RUN} - CONF_F_MODULE_RUN = 118; - {$EXTERNALSYM CONF_F_NCONF_DUMP_BIO} - CONF_F_NCONF_DUMP_BIO = 105; - {$EXTERNALSYM CONF_F_NCONF_DUMP_FP} - CONF_F_NCONF_DUMP_FP = 106; - {$EXTERNALSYM CONF_F_NCONF_GET_NUMBER} - CONF_F_NCONF_GET_NUMBER = 107; - {$EXTERNALSYM CONF_F_NCONF_GET_NUMBER_E} - CONF_F_NCONF_GET_NUMBER_E = 112; - {$EXTERNALSYM CONF_F_NCONF_GET_SECTION} - CONF_F_NCONF_GET_SECTION = 108; - {$EXTERNALSYM CONF_F_NCONF_GET_STRING} - CONF_F_NCONF_GET_STRING = 109; - {$EXTERNALSYM CONF_F_NCONF_LOAD} - CONF_F_NCONF_LOAD = 113; - {$EXTERNALSYM CONF_F_NCONF_LOAD_BIO} - CONF_F_NCONF_LOAD_BIO = 110; - {$EXTERNALSYM CONF_F_NCONF_LOAD_FP} - CONF_F_NCONF_LOAD_FP = 114; - {$EXTERNALSYM CONF_F_NCONF_NEW} - CONF_F_NCONF_NEW = 111; - {$EXTERNALSYM CONF_F_STR_COPY} - CONF_F_STR_COPY = 101; - -//* Reason codes. */ - {$EXTERNALSYM CONF_R_ERROR_LOADING_DSO} - CONF_R_ERROR_LOADING_DSO = 110; - {$EXTERNALSYM CONF_R_LIST_CANNOT_BE_NULL} - CONF_R_LIST_CANNOT_BE_NULL = 115; - {$EXTERNALSYM CONF_R_MISSING_CLOSE_SQUARE_BRACKET} - CONF_R_MISSING_CLOSE_SQUARE_BRACKET = 100; - {$EXTERNALSYM CONF_R_MISSING_EQUAL_SIGN} - CONF_R_MISSING_EQUAL_SIGN = 101; - {$EXTERNALSYM CONF_R_MISSING_FINISH_FUNCTION} - CONF_R_MISSING_FINISH_FUNCTION = 111; - {$EXTERNALSYM CONF_R_MISSING_INIT_FUNCTION} - CONF_R_MISSING_INIT_FUNCTION = 112; - {$EXTERNALSYM CONF_R_MODULE_INITIALIZATION_ERROR} - CONF_R_MODULE_INITIALIZATION_ERROR = 109; - {$EXTERNALSYM CONF_R_NO_CLOSE_BRACE} - CONF_R_NO_CLOSE_BRACE = 102; - {$EXTERNALSYM CONF_R_NO_CONF} - CONF_R_NO_CONF = 105; - {$EXTERNALSYM CONF_R_NO_CONF_OR_ENVIRONMENT_VARIABLE} - CONF_R_NO_CONF_OR_ENVIRONMENT_VARIABLE = 106; - {$EXTERNALSYM CONF_R_NO_SECTION} - CONF_R_NO_SECTION = 107; - {$EXTERNALSYM CONF_R_NO_SUCH_FILE} - CONF_R_NO_SUCH_FILE = 114; - {$EXTERNALSYM CONF_R_NO_VALUE} - CONF_R_NO_VALUE = 108; - {$EXTERNALSYM CONF_R_UNABLE_TO_CREATE_NEW_SECTION} - CONF_R_UNABLE_TO_CREATE_NEW_SECTION = 103; - {$EXTERNALSYM CONF_R_UNKNOWN_MODULE_NAME} - CONF_R_UNKNOWN_MODULE_NAME = 113; - {$EXTERNALSYM CONF_R_VARIABLE_HAS_NO_VALUE} - CONF_R_VARIABLE_HAS_NO_VALUE = 104; - - {$EXTERNALSYM ASN1_F_A2D_ASN1_OBJECT} - ASN1_F_A2D_ASN1_OBJECT = 100; - {$EXTERNALSYM ASN1_F_A2I_ASN1_ENUMERATED} - ASN1_F_A2I_ASN1_ENUMERATED = 236; - {$EXTERNALSYM ASN1_F_A2I_ASN1_INTEGER} - ASN1_F_A2I_ASN1_INTEGER = 101; - {$EXTERNALSYM ASN1_F_A2I_ASN1_STRING} - ASN1_F_A2I_ASN1_STRING = 102; - {$EXTERNALSYM ASN1_F_ASN1_COLLATE_PRIMITIVE} - ASN1_F_ASN1_COLLATE_PRIMITIVE = 103; - {$EXTERNALSYM ASN1_F_ASN1_D2I_BIO} - ASN1_F_ASN1_D2I_BIO = 104; - {$EXTERNALSYM ASN1_F_ASN1_D2I_FP} - ASN1_F_ASN1_D2I_FP = 105; - {$EXTERNALSYM ASN1_F_ASN1_DUP} - ASN1_F_ASN1_DUP = 106; - {$EXTERNALSYM ASN1_F_ASN1_ENUMERATED_SET} - ASN1_F_ASN1_ENUMERATED_SET = 232; - {$EXTERNALSYM ASN1_F_ASN1_ENUMERATED_TO_BN} - ASN1_F_ASN1_ENUMERATED_TO_BN = 233; - {$EXTERNALSYM ASN1_F_ASN1_GENERALIZEDTIME_NEW} - ASN1_F_ASN1_GENERALIZEDTIME_NEW = 222; - {$EXTERNALSYM ASN1_F_ASN1_GET_OBJECT} - ASN1_F_ASN1_GET_OBJECT = 107; - {$EXTERNALSYM ASN1_F_ASN1_HEADER_NEW} - ASN1_F_ASN1_HEADER_NEW = 108; - {$EXTERNALSYM ASN1_F_ASN1_I2D_BIO} - ASN1_F_ASN1_I2D_BIO = 109; - {$EXTERNALSYM ASN1_F_ASN1_I2D_FP} - ASN1_F_ASN1_I2D_FP = 110; - {$EXTERNALSYM ASN1_F_ASN1_INTEGER_SET} - ASN1_F_ASN1_INTEGER_SET = 111; - {$EXTERNALSYM ASN1_F_ASN1_INTEGER_TO_BN} - ASN1_F_ASN1_INTEGER_TO_BN = 112; - {$EXTERNALSYM ASN1_F_ASN1_OBJECT_NEW} - ASN1_F_ASN1_OBJECT_NEW = 113; - - {$EXTERNALSYM ASN1_F_ASN1_OUTPUT_DATA} - ASN1_F_ASN1_OUTPUT_DATA= 207; - - {$EXTERNALSYM ASN1_F_ASN1_PACK_STRING} - ASN1_F_ASN1_PACK_STRING = 245; - {$EXTERNALSYM ASN1_F_ASN1_PBE_SET} - ASN1_F_ASN1_PBE_SET = 253; - {$EXTERNALSYM ASN1_F_ASN1_SEQ_PACK} - ASN1_F_ASN1_SEQ_PACK = 246; - {$EXTERNALSYM ASN1_F_ASN1_SEQ_UNPACK} - ASN1_F_ASN1_SEQ_UNPACK = 247; - {$EXTERNALSYM ASN1_F_ASN1_SIGN} - ASN1_F_ASN1_SIGN = 114; - {$EXTERNALSYM ASN1_F_ASN1_STRING_NEW} - ASN1_F_ASN1_STRING_NEW = 115; - {$EXTERNALSYM ASN1_F_ASN1_STRING_TYPE_NEW} - ASN1_F_ASN1_STRING_TYPE_NEW = 116; - {$EXTERNALSYM ASN1_F_ASN1_TYPE_GET_INT_OCTETSTRING} - ASN1_F_ASN1_TYPE_GET_INT_OCTETSTRING = 117; - {$EXTERNALSYM ASN1_F_ASN1_TYPE_GET_OCTETSTRING} - ASN1_F_ASN1_TYPE_GET_OCTETSTRING = 118; - {$EXTERNALSYM ASN1_F_ASN1_TYPE_NEW} - ASN1_F_ASN1_TYPE_NEW = 119; - {$EXTERNALSYM ASN1_F_ASN1_UNPACK_STRING} - ASN1_F_ASN1_UNPACK_STRING = 248; - {$EXTERNALSYM ASN1_F_ASN1_UTCTIME_NEW} - ASN1_F_ASN1_UTCTIME_NEW = 120; - {$EXTERNALSYM ASN1_F_ASN1_VERIFY} - ASN1_F_ASN1_VERIFY = 121; - {$EXTERNALSYM ASN1_F_B64_READ_ASN1} - ASN1_F_B64_READ_ASN1 = 208; - {$EXTERNALSYM ASN1_F_B64_WRITE_ASN1} - ASN1_F_B64_WRITE_ASN1 = 209; - {$EXTERNALSYM ASN1_F_BIO_NEW_NDEF} - ASN1_F_BIO_NEW_NDEF = 212; - {$EXTERNALSYM ASN1_F_BITSTR_CB} - ASN1_F_BITSTR_CB = 180; - {$EXTERNALSYM ASN1_F_SMIME_READ_ASN1} - ASN1_F_SMIME_READ_ASN1 = 210; - {$EXTERNALSYM ASN1_F_SMIME_TEXT} - ASN1_F_SMIME_TEXT = 211; - - - {$EXTERNALSYM ASN1_F_AUTHORITY_KEYID_NEW} - ASN1_F_AUTHORITY_KEYID_NEW = 237; - {$EXTERNALSYM ASN1_F_BASIC_CONSTRAINTS_NEW} - ASN1_F_BASIC_CONSTRAINTS_NEW = 226; - {$EXTERNALSYM ASN1_F_BN_TO_ASN1_ENUMERATED} - ASN1_F_BN_TO_ASN1_ENUMERATED = 234; - {$EXTERNALSYM ASN1_F_BN_TO_ASN1_INTEGER} - ASN1_F_BN_TO_ASN1_INTEGER = 122; - {$EXTERNALSYM ASN1_F_D2I_ASN1_BIT_STRING} - ASN1_F_D2I_ASN1_BIT_STRING = 123; - {$EXTERNALSYM ASN1_F_D2I_ASN1_BMPSTRING} - ASN1_F_D2I_ASN1_BMPSTRING = 124; - {$EXTERNALSYM ASN1_F_D2I_ASN1_BOOLEAN} - ASN1_F_D2I_ASN1_BOOLEAN = 125; - {$EXTERNALSYM ASN1_F_D2I_ASN1_BYTES} - ASN1_F_D2I_ASN1_BYTES = 126; - {$EXTERNALSYM ASN1_F_D2I_ASN1_ENUMERATED} - ASN1_F_D2I_ASN1_ENUMERATED = 235; - {$EXTERNALSYM ASN1_F_D2I_ASN1_GENERALIZEDTIME} - ASN1_F_D2I_ASN1_GENERALIZEDTIME = 223; - {$EXTERNALSYM ASN1_F_D2I_ASN1_HEADER} - ASN1_F_D2I_ASN1_HEADER = 127; - {$EXTERNALSYM ASN1_F_D2I_ASN1_INTEGER} - ASN1_F_D2I_ASN1_INTEGER = 128; - {$EXTERNALSYM ASN1_F_D2I_ASN1_OBJECT} - ASN1_F_D2I_ASN1_OBJECT = 129; - {$EXTERNALSYM ASN1_F_D2I_ASN1_OCTET_STRING} - ASN1_F_D2I_ASN1_OCTET_STRING = 130; - {$EXTERNALSYM ASN1_F_D2I_ASN1_PRINT_TYPE} - ASN1_F_D2I_ASN1_PRINT_TYPE = 131; - {$EXTERNALSYM ASN1_F_D2I_ASN1_SET} - ASN1_F_D2I_ASN1_SET = 132; - {$EXTERNALSYM ASN1_F_D2I_ASN1_TIME} - ASN1_F_D2I_ASN1_TIME = 224; - {$EXTERNALSYM ASN1_F_D2I_ASN1_TYPE} - ASN1_F_D2I_ASN1_TYPE = 133; - {$EXTERNALSYM ASN1_F_D2I_ASN1_TYPE_BYTES} - ASN1_F_D2I_ASN1_TYPE_BYTES = 134; - {$EXTERNALSYM ASN1_F_D2I_ASN1_UINTEGER} - ASN1_F_D2I_ASN1_UINTEGER = 280; - {$EXTERNALSYM ASN1_F_D2I_ASN1_UTCTIME} - ASN1_F_D2I_ASN1_UTCTIME = 135; - {$EXTERNALSYM ASN1_F_D2I_ASN1_UTF8STRING} - ASN1_F_D2I_ASN1_UTF8STRING = 266; - {$EXTERNALSYM ASN1_F_D2I_ASN1_VISIBLESTRING} - ASN1_F_D2I_ASN1_VISIBLESTRING = 267; - {$EXTERNALSYM ASN1_F_D2I_AUTHORITY_KEYID} - ASN1_F_D2I_AUTHORITY_KEYID = 238; - {$EXTERNALSYM ASN1_F_D2I_BASIC_CONSTRAINTS} - ASN1_F_D2I_BASIC_CONSTRAINTS = 227; - {$EXTERNALSYM ASN1_F_D2I_DHPARAMS} - ASN1_F_D2I_DHPARAMS = 136; - {$EXTERNALSYM ASN1_F_D2I_DIST_POINT} - ASN1_F_D2I_DIST_POINT = 276; - {$EXTERNALSYM ASN1_F_D2I_DIST_POINT_NAME} - ASN1_F_D2I_DIST_POINT_NAME = 277; - {$EXTERNALSYM ASN1_F_D2I_DSAPARAMS} - ASN1_F_D2I_DSAPARAMS = 137; - {$EXTERNALSYM ASN1_F_D2I_DSAPRIVATEKEY} - ASN1_F_D2I_DSAPRIVATEKEY = 138; - {$EXTERNALSYM ASN1_F_D2I_DSAPUBLICKEY} - ASN1_F_D2I_DSAPUBLICKEY = 139; - {$EXTERNALSYM ASN1_F_D2I_GENERAL_NAME} - ASN1_F_D2I_GENERAL_NAME = 230; - {$EXTERNALSYM ASN1_F_D2I_NETSCAPE_CERT_SEQUENCE} - ASN1_F_D2I_NETSCAPE_CERT_SEQUENCE = 228; - {$EXTERNALSYM ASN1_F_D2I_NETSCAPE_PKEY} - ASN1_F_D2I_NETSCAPE_PKEY = 140; - {$EXTERNALSYM ASN1_F_D2I_NETSCAPE_RSA} - ASN1_F_D2I_NETSCAPE_RSA = 141; - {$EXTERNALSYM ASN1_F_D2I_NETSCAPE_RSA_2} - ASN1_F_D2I_NETSCAPE_RSA_2 = 142; - {$EXTERNALSYM ASN1_F_D2I_NETSCAPE_SPKAC} - ASN1_F_D2I_NETSCAPE_SPKAC = 143; - {$EXTERNALSYM ASN1_F_D2I_NETSCAPE_SPKI} - ASN1_F_D2I_NETSCAPE_SPKI = 144; - {$EXTERNALSYM ASN1_F_D2I_NOTICEREF} - ASN1_F_D2I_NOTICEREF = 268; - {$EXTERNALSYM ASN1_F_D2I_PBE2PARAM} - ASN1_F_D2I_PBE2PARAM = 262; - {$EXTERNALSYM ASN1_F_D2I_PBEPARAM} - ASN1_F_D2I_PBEPARAM = 249; - {$EXTERNALSYM ASN1_F_D2I_PBKDF2PARAM} - ASN1_F_D2I_PBKDF2PARAM = 263; - {$EXTERNALSYM ASN1_F_D2I_PKCS12} - ASN1_F_D2I_PKCS12 = 254; - {$EXTERNALSYM ASN1_F_D2I_PKCS12_BAGS} - ASN1_F_D2I_PKCS12_BAGS = 255; - {$EXTERNALSYM ASN1_F_D2I_PKCS12_MAC_DATA} - ASN1_F_D2I_PKCS12_MAC_DATA = 256; - {$EXTERNALSYM ASN1_F_D2I_PKCS12_SAFEBAG} - ASN1_F_D2I_PKCS12_SAFEBAG = 257; - {$EXTERNALSYM ASN1_F_D2I_PKCS7} - ASN1_F_D2I_PKCS7 = 145; - {$EXTERNALSYM ASN1_F_D2I_PKCS7_DIGEST} - ASN1_F_D2I_PKCS7_DIGEST = 146; - {$EXTERNALSYM ASN1_F_D2I_PKCS7_ENCRYPT} - ASN1_F_D2I_PKCS7_ENCRYPT = 147; - {$EXTERNALSYM ASN1_F_D2I_PKCS7_ENC_CONTENT} - ASN1_F_D2I_PKCS7_ENC_CONTENT = 148; - {$EXTERNALSYM ASN1_F_D2I_PKCS7_ENVELOPE} - ASN1_F_D2I_PKCS7_ENVELOPE = 149; - {$EXTERNALSYM ASN1_F_D2I_PKCS7_ISSUER_AND_SERIAL} - ASN1_F_D2I_PKCS7_ISSUER_AND_SERIAL = 150; - {$EXTERNALSYM ASN1_F_D2I_PKCS7_RECIP_INFO} - ASN1_F_D2I_PKCS7_RECIP_INFO = 151; - {$EXTERNALSYM ASN1_F_D2I_PKCS7_SIGNED} - ASN1_F_D2I_PKCS7_SIGNED = 152; - {$EXTERNALSYM ASN1_F_D2I_PKCS7_SIGNER_INFO} - ASN1_F_D2I_PKCS7_SIGNER_INFO = 153; - {$EXTERNALSYM ASN1_F_D2I_PKCS7_SIGN_ENVELOPE} - ASN1_F_D2I_PKCS7_SIGN_ENVELOPE = 154; - {$EXTERNALSYM ASN1_F_D2I_PKCS8_PRIV_KEY_INFO} - ASN1_F_D2I_PKCS8_PRIV_KEY_INFO = 250; - {$EXTERNALSYM ASN1_F_D2I_PKEY_USAGE_PERIOD} - ASN1_F_D2I_PKEY_USAGE_PERIOD = 239; - {$EXTERNALSYM ASN1_F_D2I_POLICYINFO} - ASN1_F_D2I_POLICYINFO = 269; - {$EXTERNALSYM ASN1_F_D2I_POLICYQUALINFO} - ASN1_F_D2I_POLICYQUALINFO = 270; - {$EXTERNALSYM ASN1_F_D2I_PRIVATEKEY} - ASN1_F_D2I_PRIVATEKEY = 155; - {$EXTERNALSYM ASN1_F_D2I_PUBLICKEY} - ASN1_F_D2I_PUBLICKEY = 156; - {$EXTERNALSYM ASN1_F_D2I_RSAPRIVATEKEY} - ASN1_F_D2I_RSAPRIVATEKEY = 157; - {$EXTERNALSYM ASN1_F_D2I_RSAPUBLICKEY} - ASN1_F_D2I_RSAPUBLICKEY = 158; - {$EXTERNALSYM ASN1_F_D2I_SXNET} - ASN1_F_D2I_SXNET = 241; - {$EXTERNALSYM ASN1_F_D2I_SXNETID} - ASN1_F_D2I_SXNETID = 243; - {$EXTERNALSYM ASN1_F_D2I_USERNOTICE} - ASN1_F_D2I_USERNOTICE = 271; - {$EXTERNALSYM ASN1_F_D2I_X509} - ASN1_F_D2I_X509 = 159; - {$EXTERNALSYM ASN1_F_D2I_X509_ALGOR} - ASN1_F_D2I_X509_ALGOR = 160; - {$EXTERNALSYM ASN1_F_D2I_X509_ATTRIBUTE} - ASN1_F_D2I_X509_ATTRIBUTE = 161; - {$EXTERNALSYM ASN1_F_D2I_X509_CINF} - ASN1_F_D2I_X509_CINF = 162; - {$EXTERNALSYM ASN1_F_D2I_X509_CRL} - ASN1_F_D2I_X509_CRL = 163; - {$EXTERNALSYM ASN1_F_D2I_X509_CRL_INFO} - ASN1_F_D2I_X509_CRL_INFO = 164; - {$EXTERNALSYM ASN1_F_D2I_X509_EXTENSION} - ASN1_F_D2I_X509_EXTENSION = 165; - {$EXTERNALSYM ASN1_F_D2I_X509_KEY} - ASN1_F_D2I_X509_KEY = 166; - {$EXTERNALSYM ASN1_F_D2I_X509_NAME} - ASN1_F_D2I_X509_NAME = 167; - {$EXTERNALSYM ASN1_F_D2I_X509_NAME_ENTRY} - ASN1_F_D2I_X509_NAME_ENTRY = 168; - {$EXTERNALSYM ASN1_F_D2I_X509_PKEY} - ASN1_F_D2I_X509_PKEY = 169; - {$EXTERNALSYM ASN1_F_D2I_X509_PUBKEY} - ASN1_F_D2I_X509_PUBKEY = 170; - {$EXTERNALSYM ASN1_F_D2I_X509_REQ} - ASN1_F_D2I_X509_REQ = 171; - {$EXTERNALSYM ASN1_F_D2I_X509_REQ_INFO} - ASN1_F_D2I_X509_REQ_INFO = 172; - {$EXTERNALSYM ASN1_F_D2I_X509_REVOKED} - ASN1_F_D2I_X509_REVOKED = 173; - {$EXTERNALSYM ASN1_F_D2I_X509_SIG} - ASN1_F_D2I_X509_SIG = 174; - {$EXTERNALSYM ASN1_F_D2I_X509_VAL} - ASN1_F_D2I_X509_VAL = 175; - {$EXTERNALSYM ASN1_F_DIST_POINT_NAME_NEW} - ASN1_F_DIST_POINT_NAME_NEW = 278; - {$EXTERNALSYM ASN1_F_DIST_POINT_NEW} - ASN1_F_DIST_POINT_NEW = 279; - {$EXTERNALSYM ASN1_F_GENERAL_NAME_NEW} - ASN1_F_GENERAL_NAME_NEW = 231; - {$EXTERNALSYM ASN1_F_I2D_ASN1_HEADER} - ASN1_F_I2D_ASN1_HEADER = 176; - {$EXTERNALSYM ASN1_F_I2D_ASN1_TIME} - ASN1_F_I2D_ASN1_TIME = 225; - {$EXTERNALSYM ASN1_F_I2D_DHPARAMS} - ASN1_F_I2D_DHPARAMS = 177; - {$EXTERNALSYM ASN1_F_I2D_DSAPARAMS} - ASN1_F_I2D_DSAPARAMS = 178; - {$EXTERNALSYM ASN1_F_I2D_DSAPRIVATEKEY} - ASN1_F_I2D_DSAPRIVATEKEY = 179; - {$EXTERNALSYM ASN1_F_I2D_DSAPUBLICKEY} - ASN1_F_I2D_DSAPUBLICKEY = 180; - {$EXTERNALSYM ASN1_F_I2D_NETSCAPE_RSA} - ASN1_F_I2D_NETSCAPE_RSA = 181; - {$EXTERNALSYM ASN1_F_I2D_PKCS7} - ASN1_F_I2D_PKCS7 = 182; - {$EXTERNALSYM ASN1_F_I2D_PRIVATEKEY} - ASN1_F_I2D_PRIVATEKEY = 183; - {$EXTERNALSYM ASN1_F_I2D_PUBLICKEY} - ASN1_F_I2D_PUBLICKEY = 184; - {$EXTERNALSYM ASN1_F_I2D_RSAPRIVATEKEY} - ASN1_F_I2D_RSAPRIVATEKEY = 185; - {$EXTERNALSYM ASN1_F_I2D_RSAPUBLICKEY} - ASN1_F_I2D_RSAPUBLICKEY = 186; - {$EXTERNALSYM ASN1_F_I2D_X509_ATTRIBUTE} - ASN1_F_I2D_X509_ATTRIBUTE = 187; - {$EXTERNALSYM ASN1_F_I2T_ASN1_OBJECT} - ASN1_F_I2T_ASN1_OBJECT = 188; - {$EXTERNALSYM ASN1_F_NETSCAPE_CERT_SEQUENCE_NEW} - ASN1_F_NETSCAPE_CERT_SEQUENCE_NEW = 229; - {$EXTERNALSYM ASN1_F_NETSCAPE_PKEY_NEW} - ASN1_F_NETSCAPE_PKEY_NEW = 189; - {$EXTERNALSYM ASN1_F_NETSCAPE_SPKAC_NEW} - ASN1_F_NETSCAPE_SPKAC_NEW = 190; - {$EXTERNALSYM ASN1_F_NETSCAPE_SPKI_NEW} - ASN1_F_NETSCAPE_SPKI_NEW = 191; - {$EXTERNALSYM ASN1_F_NOTICEREF_NEW} - ASN1_F_NOTICEREF_NEW = 272; - {$EXTERNALSYM ASN1_F_PBE2PARAM_NEW} - ASN1_F_PBE2PARAM_NEW = 264; - {$EXTERNALSYM ASN1_F_PBEPARAM_NEW} - ASN1_F_PBEPARAM_NEW = 251; - {$EXTERNALSYM ASN1_F_PBKDF2PARAM_NEW} - ASN1_F_PBKDF2PARAM_NEW = 265; - {$EXTERNALSYM ASN1_F_PKCS12_BAGS_NEW} - ASN1_F_PKCS12_BAGS_NEW = 258; - {$EXTERNALSYM ASN1_F_PKCS12_MAC_DATA_NEW} - ASN1_F_PKCS12_MAC_DATA_NEW = 259; - {$EXTERNALSYM ASN1_F_PKCS12_NEW} - ASN1_F_PKCS12_NEW = 260; - {$EXTERNALSYM ASN1_F_PKCS12_SAFEBAG_NEW} - ASN1_F_PKCS12_SAFEBAG_NEW = 261; - {$EXTERNALSYM ASN1_F_PKCS5_PBE2_SET} - ASN1_F_PKCS5_PBE2_SET = 281; - {$EXTERNALSYM ASN1_F_PKCS7_DIGEST_NEW} - ASN1_F_PKCS7_DIGEST_NEW = 192; - {$EXTERNALSYM ASN1_F_PKCS7_ENCRYPT_NEW} - ASN1_F_PKCS7_ENCRYPT_NEW = 193; - {$EXTERNALSYM ASN1_F_PKCS7_ENC_CONTENT_NEW} - ASN1_F_PKCS7_ENC_CONTENT_NEW = 194; - {$EXTERNALSYM ASN1_F_PKCS7_ENVELOPE_NEW} - ASN1_F_PKCS7_ENVELOPE_NEW = 195; - {$EXTERNALSYM ASN1_F_PKCS7_ISSUER_AND_SERIAL_NEW} - ASN1_F_PKCS7_ISSUER_AND_SERIAL_NEW = 196; - {$EXTERNALSYM ASN1_F_PKCS7_NEW} - ASN1_F_PKCS7_NEW = 197; - {$EXTERNALSYM ASN1_F_PKCS7_RECIP_INFO_NEW} - ASN1_F_PKCS7_RECIP_INFO_NEW = 198; - {$EXTERNALSYM ASN1_F_PKCS7_SIGNED_NEW} - ASN1_F_PKCS7_SIGNED_NEW = 199; - {$EXTERNALSYM ASN1_F_PKCS7_SIGNER_INFO_NEW} - ASN1_F_PKCS7_SIGNER_INFO_NEW = 200; - {$EXTERNALSYM ASN1_F_PKCS7_SIGN_ENVELOPE_NEW} - ASN1_F_PKCS7_SIGN_ENVELOPE_NEW = 201; - {$EXTERNALSYM ASN1_F_PKCS8_PRIV_KEY_INFO_NEW} - ASN1_F_PKCS8_PRIV_KEY_INFO_NEW = 252; - {$EXTERNALSYM ASN1_F_PKEY_USAGE_PERIOD_NEW} - ASN1_F_PKEY_USAGE_PERIOD_NEW = 240; - {$EXTERNALSYM ASN1_F_POLICYINFO_NEW} - ASN1_F_POLICYINFO_NEW = 273; - {$EXTERNALSYM ASN1_F_POLICYQUALINFO_NEW} - ASN1_F_POLICYQUALINFO_NEW = 274; - {$EXTERNALSYM ASN1_F_SXNETID_NEW} - ASN1_F_SXNETID_NEW = 244; - {$EXTERNALSYM ASN1_F_SXNET_NEW} - ASN1_F_SXNET_NEW = 242; - {$EXTERNALSYM ASN1_F_USERNOTICE_NEW} - ASN1_F_USERNOTICE_NEW = 275; - {$EXTERNALSYM ASN1_F_X509_ALGOR_NEW} - ASN1_F_X509_ALGOR_NEW = 202; - {$EXTERNALSYM ASN1_F_X509_ATTRIBUTE_NEW} - ASN1_F_X509_ATTRIBUTE_NEW = 203; - {$EXTERNALSYM ASN1_F_X509_CINF_NEW} - ASN1_F_X509_CINF_NEW = 204; - {$EXTERNALSYM ASN1_F_X509_CRL_INFO_NEW} - ASN1_F_X509_CRL_INFO_NEW = 205; - {$EXTERNALSYM ASN1_F_X509_CRL_NEW} - ASN1_F_X509_CRL_NEW = 206; - {$EXTERNALSYM ASN1_F_X509_DHPARAMS_NEW} - ASN1_F_X509_DHPARAMS_NEW = 207; - {$EXTERNALSYM ASN1_F_X509_EXTENSION_NEW} - ASN1_F_X509_EXTENSION_NEW = 208; - {$EXTERNALSYM ASN1_F_X509_INFO_NEW} - ASN1_F_X509_INFO_NEW = 209; - {$EXTERNALSYM ASN1_F_X509_KEY_NEW} - ASN1_F_X509_KEY_NEW = 210; - {$EXTERNALSYM ASN1_F_X509_NAME_ENTRY_NEW} - ASN1_F_X509_NAME_ENTRY_NEW = 211; - {$EXTERNALSYM ASN1_F_X509_NAME_NEW} - ASN1_F_X509_NAME_NEW = 212; - {$EXTERNALSYM ASN1_F_X509_NEW} - ASN1_F_X509_NEW = 213; - {$EXTERNALSYM ASN1_F_X509_PKEY_NEW} - ASN1_F_X509_PKEY_NEW = 214; - {$EXTERNALSYM ASN1_F_X509_PUBKEY_NEW} - ASN1_F_X509_PUBKEY_NEW = 215; - {$EXTERNALSYM ASN1_F_X509_REQ_INFO_NEW} - ASN1_F_X509_REQ_INFO_NEW = 216; - {$EXTERNALSYM ASN1_F_X509_REQ_NEW} - ASN1_F_X509_REQ_NEW = 217; - {$EXTERNALSYM ASN1_F_X509_REVOKED_NEW} - ASN1_F_X509_REVOKED_NEW = 218; - {$EXTERNALSYM ASN1_F_X509_SIG_NEW} - ASN1_F_X509_SIG_NEW = 219; - {$EXTERNALSYM ASN1_F_X509_VAL_FREE} - ASN1_F_X509_VAL_FREE = 220; - {$EXTERNALSYM ASN1_F_X509_VAL_NEW} - ASN1_F_X509_VAL_NEW = 221; - {$EXTERNALSYM ASN1_OBJECT_FLAG_CRITICAL} - ASN1_OBJECT_FLAG_CRITICAL = $02; - {$EXTERNALSYM ASN1_OBJECT_FLAG_DYNAMIC} - ASN1_OBJECT_FLAG_DYNAMIC = $01; - {$EXTERNALSYM ASN1_OBJECT_FLAG_DYNAMIC_DATA} - ASN1_OBJECT_FLAG_DYNAMIC_DATA = $08; - {$EXTERNALSYM ASN1_OBJECT_FLAG_DYNAMIC_STRINGS} - ASN1_OBJECT_FLAG_DYNAMIC_STRINGS = $04; - {$EXTERNALSYM ASN1_R_ADDING_OBJECT} - ASN1_R_ADDING_OBJECT = 171; - {$EXTERNALSYM ASN1_R_ASN1_PARSE_ERROR} - ASN1_R_ASN1_PARSE_ERROR= 198; - {$EXTERNALSYM ASN1_R_ASN1_SIG_PARSE_ERROR} - ASN1_R_ASN1_SIG_PARSE_ERROR = 199; - - {$EXTERNALSYM ASN1_R_AUX_ERROR} - ASN1_R_AUX_ERROR = 100; - {$EXTERNALSYM ASN1_R_BAD_CLASS} - ASN1_R_BAD_CLASS = 101; - {$EXTERNALSYM ASN1_R_BAD_OBJECT_HEADER} - ASN1_R_BAD_OBJECT_HEADER = 102; - {$EXTERNALSYM ASN1_R_BAD_PASSWORD_READ} - ASN1_R_BAD_PASSWORD_READ = 103; - {$EXTERNALSYM ASN1_R_BAD_TAG} - ASN1_R_BAD_TAG = 104; - {$EXTERNALSYM ASN1_R_BMPSTRING_IS_WRONG_LENGTH} - ASN1_R_BMPSTRING_IS_WRONG_LENGTH = 210; - {$EXTERNALSYM ASN1_R_BN_LIB} - ASN1_R_BN_LIB = 105; - {$EXTERNALSYM ASN1_R_BOOLEAN_IS_WRONG_LENGTH} - ASN1_R_BOOLEAN_IS_WRONG_LENGTH = 106; - {$EXTERNALSYM ASN1_R_BUFFER_TOO_SMALL} - ASN1_R_BUFFER_TOO_SMALL = 107; - {$EXTERNALSYM ASN1_R_CIPHER_HAS_NO_OBJECT_IDENTIFIER} - ASN1_R_CIPHER_HAS_NO_OBJECT_IDENTIFIER = 108; - {$EXTERNALSYM ASN1_R_DATA_IS_WRONG} - ASN1_R_DATA_IS_WRONG = 109; - {$EXTERNALSYM ASN1_R_DECODE_ERROR} - ASN1_R_DECODE_ERROR = 110; - {$EXTERNALSYM ASN1_R_DECODING_ERROR} - ASN1_R_DECODING_ERROR = 111; - {$EXTERNALSYM ASN1_R_DEPTH_EXCEEDED} - ASN1_R_DEPTH_EXCEEDED = 174; - {$EXTERNALSYM ASN1_R_ENCODE_ERROR} - ASN1_R_ENCODE_ERROR = 112; - {$EXTERNALSYM ASN1_R_ERROR_GETTING_TIME} - ASN1_R_ERROR_GETTING_TIME = 173; - {$EXTERNALSYM ASN1_R_ERROR_LOADING_SECTION} - ASN1_R_ERROR_LOADING_SECTION = 172; - {$EXTERNALSYM ASN1_R_ERROR_PARSING_SET_ELEMENT} - ASN1_R_ERROR_PARSING_SET_ELEMENT = 113; - {$EXTERNALSYM ASN1_R_ERROR_SETTING_CIPHER_PARAMS} - ASN1_R_ERROR_SETTING_CIPHER_PARAMS = 114; - {$EXTERNALSYM ASN1_R_EXPECTING_AN_INTEGER} - ASN1_R_EXPECTING_AN_INTEGER = 115; - {$EXTERNALSYM ASN1_R_EXPECTING_AN_OBJECT} - ASN1_R_EXPECTING_AN_OBJECT = 116; - {$EXTERNALSYM ASN1_R_EXPECTING_A_BOOLEAN} - ASN1_R_EXPECTING_A_BOOLEAN = 117; - {$EXTERNALSYM ASN1_R_EXPECTING_A_TIME} - ASN1_R_EXPECTING_A_TIME = 118; - {$EXTERNALSYM ASN1_R_EXPLICIT_LENGTH_MISMATCH} - ASN1_R_EXPLICIT_LENGTH_MISMATCH = 119; - {$EXTERNALSYM ASN1_R_EXPLICIT_TAG_NOT_CONSTRUCTED} - ASN1_R_EXPLICIT_TAG_NOT_CONSTRUCTED = 120; - {$EXTERNALSYM ASN1_R_FIELD_MISSING} - ASN1_R_FIELD_MISSING = 121; - {$EXTERNALSYM ASN1_R_FIRST_NUM_TOO_LARGE} - ASN1_R_FIRST_NUM_TOO_LARGE = 122; - {$EXTERNALSYM ASN1_R_HEADER_TOO_LONG} - ASN1_R_HEADER_TOO_LONG = 123; - {$EXTERNALSYM ASN1_R_ILLEGAL_BITSTRING_FORMAT} - ASN1_R_ILLEGAL_BITSTRING_FORMAT = 175; - {$EXTERNALSYM ASN1_R_ILLEGAL_BOOLEAN} - ASN1_R_ILLEGAL_BOOLEAN = 176; - {$EXTERNALSYM ASN1_R_ILLEGAL_CHARACTERS} - ASN1_R_ILLEGAL_CHARACTERS = 124; - {$EXTERNALSYM ASN1_R_ILLEGAL_FORMAT} - ASN1_R_ILLEGAL_FORMAT = 177; - {$EXTERNALSYM ASN1_R_ILLEGAL_HEX} - ASN1_R_ILLEGAL_HEX = 178; - {$EXTERNALSYM ASN1_R_ILLEGAL_IMPLICIT_TAG} - ASN1_R_ILLEGAL_IMPLICIT_TAG = 179; - {$EXTERNALSYM ASN1_R_ILLEGAL_INTEGER} - ASN1_R_ILLEGAL_INTEGER = 180; - {$EXTERNALSYM ASN1_R_ILLEGAL_NESTED_TAGGING} - ASN1_R_ILLEGAL_NESTED_TAGGING = 181; - {$EXTERNALSYM ASN1_R_ILLEGAL_NULL} - ASN1_R_ILLEGAL_NULL = 125; - {$EXTERNALSYM ASN1_R_ILLEGAL_NULL_VALUE} - ASN1_R_ILLEGAL_NULL_VALUE = 182; - {$EXTERNALSYM ASN1_R_ILLEGAL_OBJECT} - ASN1_R_ILLEGAL_OBJECT = 183; - {$EXTERNALSYM ASN1_R_ILLEGAL_OPTIONAL_ANY} - ASN1_R_ILLEGAL_OPTIONAL_ANY = 126; - {$EXTERNALSYM ASN1_R_ILLEGAL_OPTIONS_ON_ITEM_TEMPLATE} - ASN1_R_ILLEGAL_OPTIONS_ON_ITEM_TEMPLATE = 170; - {$EXTERNALSYM ASN1_R_ILLEGAL_TAGGED_ANY} - ASN1_R_ILLEGAL_TAGGED_ANY = 127; - {$EXTERNALSYM ASN1_R_ILLEGAL_TIME_VALUE} - ASN1_R_ILLEGAL_TIME_VALUE = 184; - {$EXTERNALSYM ASN1_R_INTEGER_NOT_ASCII_FORMAT} - ASN1_R_INTEGER_NOT_ASCII_FORMAT = 185; - {$EXTERNALSYM ASN1_R_INTEGER_TOO_LARGE_FOR_LONG} - ASN1_R_INTEGER_TOO_LARGE_FOR_LONG = 128; - {$EXTERNALSYM ASN1_R_INVALID_BMPSTRING_LENGTH} - ASN1_R_INVALID_BMPSTRING_LENGTH = 129; - {$EXTERNALSYM ASN1_R_INVALID_DIGIT} - ASN1_R_INVALID_DIGIT = 130; - {$EXTERNALSYM ASN1_R_INVALID_MIME_TYPE} - ASN1_R_INVALID_MIME_TYPE = 200; - {$EXTERNALSYM ASN1_R_INVALID_MODIFIER} - ASN1_R_INVALID_MODIFIER = 186; - {$EXTERNALSYM ASN1_R_INVALID_NUMBER} - ASN1_R_INVALID_NUMBER = 187; - {$EXTERNALSYM ASN1_R_INVALID_OBJECT_ENCODING} - ASN1_R_INVALID_OBJECT_ENCODING = 212; - - {$EXTERNALSYM ASN1_R_INVALID_SEPARATOR} - ASN1_R_INVALID_SEPARATOR = 131; - {$EXTERNALSYM ASN1_R_INVALID_TIME_FORMAT} - ASN1_R_INVALID_TIME_FORMAT = 132; - {$EXTERNALSYM ASN1_R_INVALID_UNIVERSALSTRING_LENGTH} - ASN1_R_INVALID_UNIVERSALSTRING_LENGTH = 133; - {$EXTERNALSYM ASN1_R_INVALID_UTF8STRING} - ASN1_R_INVALID_UTF8STRING = 134; - {$EXTERNALSYM ASN1_R_IV_TOO_LARGE} - ASN1_R_IV_TOO_LARGE = 135; - {$EXTERNALSYM ASN1_R_LENGTH_ERROR} - ASN1_R_LENGTH_ERROR = 136; - {$EXTERNALSYM ASN1_R_LIST_ERROR} - ASN1_R_LIST_ERROR = 188; - {$EXTERNALSYM ASN1_R_MIME_NO_CONTENT_TYPE} - ASN1_R_MIME_NO_CONTENT_TYPE = 201; - {$EXTERNALSYM ASN1_R_MIME_PARSE_ERROR} - ASN1_R_MIME_PARSE_ERROR = 202; - {$EXTERNALSYM ASN1_R_MIME_SIG_PARSE_ERROR} - ASN1_R_MIME_SIG_PARSE_ERROR = 203; - {$EXTERNALSYM ASN1_R_MISSING_EOC} - ASN1_R_MISSING_EOC = 137; - {$EXTERNALSYM ASN1_R_MISSING_SECOND_NUMBER} - ASN1_R_MISSING_SECOND_NUMBER = 138; - {$EXTERNALSYM ASN1_R_MISSING_VALUE} - ASN1_R_MISSING_VALUE = 189; - {$EXTERNALSYM ASN1_R_MSTRING_NOT_UNIVERSAL} - ASN1_R_MSTRING_NOT_UNIVERSAL = 139; - {$EXTERNALSYM ASN1_R_MSTRING_WRONG_TAG} - ASN1_R_MSTRING_WRONG_TAG = 140; - {$EXTERNALSYM ASN1_R_NESTED_ASN1_STRING} - ASN1_R_NESTED_ASN1_STRING = 197; - {$EXTERNALSYM ASN1_R_NON_HEX_CHARACTERS} - ASN1_R_NON_HEX_CHARACTERS = 141; - {$EXTERNALSYM ASN1_R_NOT_ASCII_FORMAT} - ASN1_R_NOT_ASCII_FORMAT = 190; - {$EXTERNALSYM ASN1_R_NOT_ENOUGH_DATA} - ASN1_R_NOT_ENOUGH_DATA = 142; - {$EXTERNALSYM ASN1_R_NO_CONTENT_TYPE} - ASN1_R_NO_CONTENT_TYPE = 204; - {$EXTERNALSYM ASN1_R_NO_MATCHING_CHOICE_TYPE} - ASN1_R_NO_MATCHING_CHOICE_TYPE = 143; - {$EXTERNALSYM ASN1_R_NO_MULTIPART_BODY_FAILURE} - ASN1_R_NO_MULTIPART_BODY_FAILURE = 205; - {$EXTERNALSYM ASN1_R_NO_MULTIPART_BOUNDARY} - ASN1_R_NO_MULTIPART_BOUNDARY = 206; - {$EXTERNALSYM ASN1_R_NO_SIG_CONTENT_TYPE} - ASN1_R_NO_SIG_CONTENT_TYPE = 207; - {$EXTERNALSYM ASN1_R_NULL_IS_WRONG_LENGTH} - ASN1_R_NULL_IS_WRONG_LENGTH = 144; - {$EXTERNALSYM ASN1_R_OBJECT_NOT_ASCII_FORMAT} - ASN1_R_OBJECT_NOT_ASCII_FORMAT = 191; - {$EXTERNALSYM ASN1_R_ODD_NUMBER_OF_CHARS} - ASN1_R_ODD_NUMBER_OF_CHARS = 145; - {$EXTERNALSYM ASN1_R_PRIVATE_KEY_HEADER_MISSING} - ASN1_R_PRIVATE_KEY_HEADER_MISSING = 146; - {$EXTERNALSYM ASN1_R_SECOND_NUMBER_TOO_LARGE} - ASN1_R_SECOND_NUMBER_TOO_LARGE = 147; - {$EXTERNALSYM ASN1_R_SEQUENCE_LENGTH_MISMATCH} - ASN1_R_SEQUENCE_LENGTH_MISMATCH = 148; - {$EXTERNALSYM ASN1_R_SEQUENCE_NOT_CONSTRUCTED} - ASN1_R_SEQUENCE_NOT_CONSTRUCTED = 149; - {$EXTERNALSYM ASN1_R_SEQUENCE_OR_SET_NEEDS_CONFIG} - ASN1_R_SEQUENCE_OR_SET_NEEDS_CONFIG = 192; - {$EXTERNALSYM ASN1_R_SHORT_LINE} - ASN1_R_SHORT_LINE = 150; - {$EXTERNALSYM ASN1_R_SIG_INVALID_MIME_TYPE} - ASN1_R_SIG_INVALID_MIME_TYPE = 208; - {$EXTERNALSYM ASN1_R_STREAMING_NOT_SUPPORTED} - ASN1_R_STREAMING_NOT_SUPPORTED = 209; - {$EXTERNALSYM ASN1_R_STRING_TOO_LONG} - ASN1_R_STRING_TOO_LONG = 151; - {$EXTERNALSYM ASN1_R_STRING_TOO_SHORT} - ASN1_R_STRING_TOO_SHORT = 152; - {$EXTERNALSYM ASN1_R_TAG_VALUE_TOO_HIGH} - ASN1_R_TAG_VALUE_TOO_HIGH = 153; - {$EXTERNALSYM ASN1_R_THE_ASN1_OBJECT_IDENTIFIER_IS_NOT_KNOWN_FOR_THIS_MD} - ASN1_R_THE_ASN1_OBJECT_IDENTIFIER_IS_NOT_KNOWN_FOR_THIS_MD = 154; - {$EXTERNALSYM ASN1_R_TIME_NOT_ASCII_FORMAT} - ASN1_R_TIME_NOT_ASCII_FORMAT = 193; - {$EXTERNALSYM ASN1_R_TOO_LONG} - ASN1_R_TOO_LONG = 155; - {$EXTERNALSYM ASN1_R_TYPE_NOT_CONSTRUCTED} - ASN1_R_TYPE_NOT_CONSTRUCTED = 156; - {$EXTERNALSYM ASN1_R_UNABLE_TO_DECODE_RSA_KEY} - ASN1_R_UNABLE_TO_DECODE_RSA_KEY = 157; - {$EXTERNALSYM ASN1_R_UNABLE_TO_DECODE_RSA_PRIVATE_KEY} - ASN1_R_UNABLE_TO_DECODE_RSA_PRIVATE_KEY = 158; - {$EXTERNALSYM ASN1_R_UNEXPECTED_EOC} - ASN1_R_UNEXPECTED_EOC = 159; - {$EXTERNALSYM ASN1_R_UNIVERSALSTRING_IS_WRONG_LENGTH} - ASN1_R_UNIVERSALSTRING_IS_WRONG_LENGTH = 211; - {$EXTERNALSYM ASN1_R_UNKNOWN_FORMAT} - ASN1_R_UNKNOWN_FORMAT = 160; - {$EXTERNALSYM ASN1_R_UNKNOWN_MESSAGE_DIGEST_ALGORITHM} - ASN1_R_UNKNOWN_MESSAGE_DIGEST_ALGORITHM = 161; - {$EXTERNALSYM ASN1_R_UNKNOWN_OBJECT_TYPE} - ASN1_R_UNKNOWN_OBJECT_TYPE = 162; - {$EXTERNALSYM ASN1_R_UNKNOWN_PUBLIC_KEY_TYPE} - ASN1_R_UNKNOWN_PUBLIC_KEY_TYPE = 163; - {$EXTERNALSYM ASN1_R_UNKNOWN_TAG} - ASN1_R_UNKNOWN_TAG = 194; - {$EXTERNALSYM ASN1_R_UNKOWN_FORMAT} - ASN1_R_UNKOWN_FORMAT = 195; - {$EXTERNALSYM ASN1_R_UNSUPPORTED_ANY_DEFINED_BY_TYPE} - ASN1_R_UNSUPPORTED_ANY_DEFINED_BY_TYPE = 164; - {$EXTERNALSYM ASN1_R_UNSUPPORTED_CIPHER} - ASN1_R_UNSUPPORTED_CIPHER = 165; - {$EXTERNALSYM ASN1_R_UNSUPPORTED_ENCRYPTION_ALGORITHM} - ASN1_R_UNSUPPORTED_ENCRYPTION_ALGORITHM = 166; - {$EXTERNALSYM ASN1_R_UNSUPPORTED_PUBLIC_KEY_TYPE} - ASN1_R_UNSUPPORTED_PUBLIC_KEY_TYPE = 167; - {$EXTERNALSYM ASN1_R_UNSUPPORTED_TYPE} - ASN1_R_UNSUPPORTED_TYPE = 196; - {$EXTERNALSYM ASN1_R_WRONG_TAG} - ASN1_R_WRONG_TAG = 168; - {$EXTERNALSYM ASN1_R_WRONG_TYPE} - ASN1_R_WRONG_TYPE = 169; - - {$EXTERNALSYM ASN1_STRING_FLAG_BITS_LEFT} - ASN1_STRING_FLAG_BITS_LEFT = $08; - {$EXTERNALSYM ASN1_STRING_FLAG_NDEF} - ASN1_STRING_FLAG_NDEF = $010; -//* This flag is used by the CMS code to indicate that a string is not -// * complete and is a place holder for content when it had all been -// * accessed. The flag will be reset when content has been written to it. -// */ - {$EXTERNALSYM ASN1_STRING_FLAG_CONT} - ASN1_STRING_FLAG_CONT = $020; - {$EXTERNALSYM ASN1_LONG_UNDEF} - ASN1_LONG_UNDEF = $7fffffff; //0x7fffffffL - - {$EXTERNALSYM UB_NAME} - UB_NAME = 32768; - {$EXTERNALSYM UB_COMMON_NAME} - UB_COMMON_NAME = 64; - {$EXTERNALSYM UB_LOCALITY_NAME} - UB_LOCALITY_NAME = 128; - {$EXTERNALSYM UB_STATE_NAME} - UB_STATE_NAME = 128; - {$EXTERNALSYM UB_ORGANIZATION_NAME} - UB_ORGANIZATION_NAME = 64; - {$EXTERNALSYM UB_ORGANIZATION_UNIT_NAME} - UB_ORGANIZATION_UNIT_NAME = 64; - {$EXTERNALSYM UB_TITLE} - UB_TITLE = 64; - {$EXTERNALSYM UB_EMAIL_ADDRESS} - UB_EMAIL_ADDRESS = 128; - - {$EXTERNALSYM ASN1_STRFLGS_ESC_2253} - ASN1_STRFLGS_ESC_2253 = 1; - {$EXTERNALSYM ASN1_STRFLGS_ESC_CTRL} - ASN1_STRFLGS_ESC_CTRL = 2; - {$EXTERNALSYM ASN1_STRFLGS_ESC_MSB} - ASN1_STRFLGS_ESC_MSB = 4; - {$EXTERNALSYM ASN1_STRFLGS_ESC_QUOTE} - ASN1_STRFLGS_ESC_QUOTE = 8; - - {$EXTERNALSYM ASN1_STRFLGS_UTF8_CONVERT} - ASN1_STRFLGS_UTF8_CONVERT = $10; - {$EXTERNALSYM ASN1_STRFLGS_IGNORE_TYPE} - ASN1_STRFLGS_IGNORE_TYPE = $20; - {$EXTERNALSYM ASN1_STRFLGS_SHOW_TYPE} - ASN1_STRFLGS_SHOW_TYPE = $40; - {$EXTERNALSYM ASN1_STRFLGS_DUMP_ALL} - ASN1_STRFLGS_DUMP_ALL = $80; - {$EXTERNALSYM ASN1_STRFLGS_DUMP_UNKNOWN} - ASN1_STRFLGS_DUMP_UNKNOWN = $100; - {$EXTERNALSYM ASN1_STRFLGS_DUMP_DER} - ASN1_STRFLGS_DUMP_DER = $200; - {$EXTERNALSYM ASN1_STRFLGS_RFC2253} - ASN1_STRFLGS_RFC2253 = ASN1_STRFLGS_ESC_2253 or - ASN1_STRFLGS_ESC_CTRL or - ASN1_STRFLGS_ESC_MSB or - ASN1_STRFLGS_UTF8_CONVERT or - ASN1_STRFLGS_DUMP_UNKNOWN or - ASN1_STRFLGS_DUMP_DER; - - {$EXTERNALSYM BIO_BIND_NORMAL} - BIO_BIND_NORMAL = 0; - {$EXTERNALSYM BIO_BIND_REUSEADDR} - BIO_BIND_REUSEADDR = 2; - {$EXTERNALSYM BIO_BIND_REUSEADDR_IF_UNUSED} - BIO_BIND_REUSEADDR_IF_UNUSED = 1; - {$EXTERNALSYM BIO_CB_CTRL} - BIO_CB_CTRL = $06; - {$EXTERNALSYM BIO_CB_FREE} - BIO_CB_FREE = $01; - {$EXTERNALSYM BIO_CB_GETS} - BIO_CB_GETS = $05; - {$EXTERNALSYM BIO_CB_PUTS} - BIO_CB_PUTS = $04; - {$EXTERNALSYM BIO_CB_READ} - BIO_CB_READ = $02; - {$EXTERNALSYM BIO_CB_RETURN} - BIO_CB_RETURN = $80; - {$EXTERNALSYM BIO_CB_WRITE} - BIO_CB_WRITE = $03; - {$EXTERNALSYM BIO_CLOSE} - BIO_CLOSE = $01; - {$EXTERNALSYM BIO_CONN_S_BEFORE} - BIO_CONN_S_BEFORE = 1; - {$EXTERNALSYM BIO_CONN_S_BLOCKED_CONNECT} - BIO_CONN_S_BLOCKED_CONNECT = 7; - {$EXTERNALSYM BIO_CONN_S_CONNECT} - BIO_CONN_S_CONNECT = 5; - {$EXTERNALSYM BIO_CONN_S_CREATE_SOCKET} - BIO_CONN_S_CREATE_SOCKET = 4; - {$EXTERNALSYM BIO_CONN_S_GET_IP} - BIO_CONN_S_GET_IP = 2; - {$EXTERNALSYM BIO_CONN_S_GET_PORT} - BIO_CONN_S_GET_PORT = 3; - {$EXTERNALSYM BIO_CONN_S_NBIO} - BIO_CONN_S_NBIO = 8; - {$EXTERNALSYM BIO_CONN_S_OK} - BIO_CONN_S_OK = 6; - {$EXTERNALSYM BIO_CTRL_DUP} - BIO_CTRL_DUP = 12; - {$EXTERNALSYM BIO_CTRL_EOF} - BIO_CTRL_EOF = 2; - {$EXTERNALSYM BIO_CTRL_FLUSH} - BIO_CTRL_FLUSH = 11; - {$EXTERNALSYM BIO_CTRL_GET} - BIO_CTRL_GET = 5; - {$EXTERNALSYM BIO_CTRL_GET_CALLBACK} - BIO_CTRL_GET_CALLBACK = 15; - {$EXTERNALSYM BIO_CTRL_GET_CLOSE} - BIO_CTRL_GET_CLOSE = 8; - {$EXTERNALSYM BIO_CTRL_INFO} - BIO_CTRL_INFO = 3; - {$EXTERNALSYM BIO_CTRL_PENDING} - BIO_CTRL_PENDING = 10; - {$EXTERNALSYM BIO_CTRL_POP} - BIO_CTRL_POP = 7; - {$EXTERNALSYM BIO_CTRL_PUSH} - BIO_CTRL_PUSH = 6; - {$EXTERNALSYM BIO_CTRL_RESET} - BIO_CTRL_RESET = 1; - {$EXTERNALSYM BIO_CTRL_SET} - BIO_CTRL_SET = 4; - {$EXTERNALSYM BIO_CTRL_SET_CALLBACK} - BIO_CTRL_SET_CALLBACK = 14; - {$EXTERNALSYM BIO_CTRL_SET_CLOSE} - BIO_CTRL_SET_CLOSE = 9; - {$EXTERNALSYM BIO_CTRL_SET_FILENAME} - BIO_CTRL_SET_FILENAME = 30; - //* dgram BIO stuff */ - {$EXTERNALSYM BIO_CTRL_DGRAM_CONNECT} - BIO_CTRL_DGRAM_CONNECT = 31; //* BIO dgram special */ - {$EXTERNALSYM BIO_CTRL_DGRAM_SET_CONNECTED} - BIO_CTRL_DGRAM_SET_CONNECTED = 32; //* allow for an externally - //* connected socket to be - //* passed in */ - {$EXTERNALSYM BIO_CTRL_DGRAM_SET_RECV_TIMEOUT} - BIO_CTRL_DGRAM_SET_RECV_TIMEOUT = 33; //* setsockopt, essentially */ - {$EXTERNALSYM BIO_CTRL_DGRAM_GET_RECV_TIMEOUT} - BIO_CTRL_DGRAM_GET_RECV_TIMEOUT = 34; //* getsockopt, essentially */ - {$EXTERNALSYM BIO_CTRL_DGRAM_SET_SEND_TIMEOUT} - BIO_CTRL_DGRAM_SET_SEND_TIMEOUT = 35; //* setsockopt, essentially */ - {$EXTERNALSYM BIO_CTRL_DGRAM_GET_SEND_TIMEOUT} - BIO_CTRL_DGRAM_GET_SEND_TIMEOUT = 36; //* getsockopt, essentially */ - - {$EXTERNALSYM BIO_CTRL_DGRAM_GET_RECV_TIMER_EXP} - BIO_CTRL_DGRAM_GET_RECV_TIMER_EXP = 37; //* flag whether the last */ - {$EXTERNALSYM BIO_CTRL_DGRAM_GET_SEND_TIMER_EXP} - BIO_CTRL_DGRAM_GET_SEND_TIMER_EXP = 38; //* I/O operation tiemd out */ - - -//* #ifdef IP_MTU_DISCOVER */ - {$EXTERNALSYM BIO_CTRL_DGRAM_MTU_DISCOVER} - BIO_CTRL_DGRAM_MTU_DISCOVER = 39; //* set DF bit on egress packets */ -//* #endif */ - - {$EXTERNALSYM BIO_CTRL_DGRAM_QUERY_MTU} - BIO_CTRL_DGRAM_QUERY_MTU = 40; //* as kernel for current MTU */ - {$EXTERNALSYM BIO_CTRL_DGRAM_GET_MTU} - BIO_CTRL_DGRAM_GET_MTU = 41; //* get cached value for MTU */ - {$EXTERNALSYM BIO_CTRL_DGRAM_SET_MTU} - BIO_CTRL_DGRAM_SET_MTU = 42; //* set cached value for - // * MTU. want to use this - // * if asking the kernel - // * fails */ - - {$EXTERNALSYM BIO_CTRL_DGRAM_MTU_EXCEEDED} - BIO_CTRL_DGRAM_MTU_EXCEEDED = 43; //* check whether the MTU - // * was exceed in the - // * previous write - // * operation */ - {$EXTERNALSYM BIO_CTRL_DGRAM_GET_PEER} - BIO_CTRL_DGRAM_GET_PEER = 46; - - {$EXTERNALSYM BIO_CTRL_DGRAM_SET_PEER} - BIO_CTRL_DGRAM_SET_PEER = 44; //* Destination for the data */ - {$EXTERNALSYM BIO_CTRL_DGRAM_SET_NEXT_TIMEOUT} - BIO_CTRL_DGRAM_SET_NEXT_TIMEOUT = 45; //* Next DTLS handshake timeout to - - {$EXTERNALSYM BIO_CTRL_WPENDING} - BIO_CTRL_WPENDING = 13; - {$EXTERNALSYM BIO_C_DESTROY_BIO_PAIR} - BIO_C_DESTROY_BIO_PAIR = 139; - {$EXTERNALSYM BIO_C_DO_STATE_MACHINE} - BIO_C_DO_STATE_MACHINE = 101; - {$EXTERNALSYM BIO_C_FILE_SEEK} - BIO_C_FILE_SEEK = 128; - {$EXTERNALSYM BIO_C_FILE_TELL} - BIO_C_FILE_TELL = 133; - {$EXTERNALSYM BIO_C_GET_ACCEPT} - BIO_C_GET_ACCEPT = 124; - {$EXTERNALSYM BIO_C_GET_BIND_MODE} - BIO_C_GET_BIND_MODE = 132; - {$EXTERNALSYM BIO_C_GET_BUFF_NUM_LINES} - BIO_C_GET_BUFF_NUM_LINES = 116; - {$EXTERNALSYM BIO_C_GET_BUF_MEM_PTR} - BIO_C_GET_BUF_MEM_PTR = 115; - {$EXTERNALSYM BIO_C_GET_CIPHER_CTX} - BIO_C_GET_CIPHER_CTX = 129; - {$EXTERNALSYM BIO_C_GET_CIPHER_STATUS} - BIO_C_GET_CIPHER_STATUS = 113; - {$EXTERNALSYM BIO_C_GET_CONNECT} - BIO_C_GET_CONNECT = 123; - {$EXTERNALSYM BIO_C_GET_FD} - BIO_C_GET_FD = 105; - {$EXTERNALSYM BIO_C_GET_FILE_PTR} - BIO_C_GET_FILE_PTR = 107; - {$EXTERNALSYM BIO_C_GET_MD} - BIO_C_GET_MD = 112; - {$EXTERNALSYM BIO_C_GET_MD_CTX} - BIO_C_GET_MD_CTX = 120; - - {$EXTERNALSYM BIO_C_GET_PROXY_PARAM} - BIO_C_GET_PROXY_PARAM = 121; - {$EXTERNALSYM BIO_C_GET_READ_REQUEST} - BIO_C_GET_READ_REQUEST = 141; - {$EXTERNALSYM BIO_C_GET_SOCKS} - BIO_C_GET_SOCKS = 134; - - {$EXTERNALSYM BIO_C_GET_SSL} - BIO_C_GET_SSL = 110; - {$EXTERNALSYM BIO_C_GET_SSL_NUM_RENEGOTIATES} - BIO_C_GET_SSL_NUM_RENEGOTIATES = 126; - {$EXTERNALSYM BIO_C_GET_WRITE_BUF_SIZE} - BIO_C_GET_WRITE_BUF_SIZE = 137; - {$EXTERNALSYM BIO_C_GET_WRITE_GUARANTEE} - BIO_C_GET_WRITE_GUARANTEE = 140; - {$EXTERNALSYM BIO_C_MAKE_BIO_PAIR} - BIO_C_MAKE_BIO_PAIR = 138; - {$EXTERNALSYM BIO_C_SET_ACCEPT} - BIO_C_SET_ACCEPT = 118; - {$EXTERNALSYM BIO_C_SET_BIND_MODE} - BIO_C_SET_BIND_MODE = 131; - {$EXTERNALSYM BIO_C_SET_BUFF_READ_DATA} - BIO_C_SET_BUFF_READ_DATA = 122; - {$EXTERNALSYM BIO_C_SET_BUFF_SIZE} - BIO_C_SET_BUFF_SIZE = 117; - {$EXTERNALSYM BIO_C_SET_BUF_MEM} - BIO_C_SET_BUF_MEM = 114; - {$EXTERNALSYM BIO_C_SET_BUF_MEM_EOF_RETURN} - BIO_C_SET_BUF_MEM_EOF_RETURN = 130; - {$EXTERNALSYM BIO_C_SET_CONNECT} - BIO_C_SET_CONNECT = 100; - {$EXTERNALSYM BIO_C_SET_FD} - BIO_C_SET_FD = 104; - {$EXTERNALSYM BIO_C_SET_FILENAME} - BIO_C_SET_FILENAME = 108; - {$EXTERNALSYM BIO_C_SET_FILE_PTR} - BIO_C_SET_FILE_PTR = 106; - {$EXTERNALSYM BIO_C_SET_MD} - BIO_C_SET_MD = 111; - {$EXTERNALSYM BIO_C_SET_NBIO} - BIO_C_SET_NBIO = 102; - {$EXTERNALSYM BIO_C_SET_PROXY_PARAM} - BIO_C_SET_PROXY_PARAM = 103; - {$EXTERNALSYM BIO_C_SET_SOCKS} - BIO_C_SET_SOCKS = 135; - {$EXTERNALSYM BIO_C_SET_SSL} - BIO_C_SET_SSL = 109; - {$EXTERNALSYM BIO_C_SET_SSL_RENEGOTIATE_BYTES} - BIO_C_SET_SSL_RENEGOTIATE_BYTES = 125; - {$EXTERNALSYM BIO_C_SET_SSL_RENEGOTIATE_TIMEOUT} - BIO_C_SET_SSL_RENEGOTIATE_TIMEOUT = 127; - {$EXTERNALSYM BIO_C_SET_WRITE_BUF_SIZE} - BIO_C_SET_WRITE_BUF_SIZE = 136; - {$EXTERNALSYM BIO_C_SHUTDOWN_WR} - BIO_C_SHUTDOWN_WR = 142; - {$EXTERNALSYM BIO_C_NREAD0} - BIO_C_NREAD0 = 143; - {$EXTERNALSYM BIO_C_NREAD} - BIO_C_NREAD = 144; - {$EXTERNALSYM BIO_C_NWRITE0} - BIO_C_NWRITE0 = 145; - {$EXTERNALSYM BIO_C_NWRITE} - BIO_C_NWRITE = 146; - {$EXTERNALSYM BIO_C_RESET_READ_REQUEST} - BIO_C_RESET_READ_REQUEST = 147; - {$EXTERNALSYM BIO_C_SET_MD_CTX} - BIO_C_SET_MD_CTX = 148; - {$EXTERNALSYM BIO_C_SSL_MODE} - BIO_C_SSL_MODE = 119; - {$EXTERNALSYM BIO_FLAGS_BASE64_NO_NL} - BIO_FLAGS_BASE64_NO_NL = $100; - {$EXTERNALSYM BIO_FLAGS_IO_SPECIAL} - BIO_FLAGS_IO_SPECIAL = $04; - {$EXTERNALSYM BIO_FLAGS_READ} - BIO_FLAGS_READ = $01; - {$EXTERNALSYM BIO_FLAGS_WRITE} - BIO_FLAGS_WRITE = $02; - {$EXTERNALSYM BIO_FLAGS_RWS} - BIO_FLAGS_RWS = BIO_FLAGS_READ or - BIO_FLAGS_WRITE or - BIO_FLAGS_IO_SPECIAL; - {$EXTERNALSYM BIO_FLAGS_SHOULD_RETRY} - BIO_FLAGS_SHOULD_RETRY = $08; - {$EXTERNALSYM BIO_FP_APPEND} - BIO_FP_APPEND = $08; - {$EXTERNALSYM BIO_FP_READ} - BIO_FP_READ = $02; - {$EXTERNALSYM BIO_FP_TEXT} - BIO_FP_TEXT = $10; - {$EXTERNALSYM BIO_FP_WRITE} - BIO_FP_WRITE = $04; - {$EXTERNALSYM BIO_F_ACPT_STATE} - BIO_F_ACPT_STATE = 100; - {$EXTERNALSYM BIO_F_BIO_ACCEPT} - BIO_F_BIO_ACCEPT = 101; - {$EXTERNALSYM BIO_F_BIO_BER_GET_HEADER} - BIO_F_BIO_BER_GET_HEADER = 102; - {$EXTERNALSYM BIO_F_BIO_CTRL} - BIO_F_BIO_CTRL = 103; - {$EXTERNALSYM BIO_F_BIO_GETHOSTBYNAME} - BIO_F_BIO_GETHOSTBYNAME = 120; - {$EXTERNALSYM BIO_F_BIO_GETS} - BIO_F_BIO_GETS = 104; - {$EXTERNALSYM BIO_F_BIO_GET_ACCEPT_SOCKET} - BIO_F_BIO_GET_ACCEPT_SOCKET = 105; - {$EXTERNALSYM BIO_F_BIO_GET_HOST_IP} - BIO_F_BIO_GET_HOST_IP = 106; - {$EXTERNALSYM BIO_F_BIO_GET_PORT} - BIO_F_BIO_GET_PORT = 107; - {$EXTERNALSYM BIO_F_BIO_MAKE_PAIR} - BIO_F_BIO_MAKE_PAIR = 121; - {$EXTERNALSYM BIO_F_BIO_NEW} - BIO_F_BIO_NEW = 108; - {$EXTERNALSYM BIO_F_BIO_NEW_FILE} - BIO_F_BIO_NEW_FILE = 109; - {$EXTERNALSYM BIO_F_BIO_PUTS} - BIO_F_BIO_PUTS = 110; - {$EXTERNALSYM BIO_F_BIO_READ} - BIO_F_BIO_READ = 111; - {$EXTERNALSYM BIO_F_BIO_SOCK_INIT} - BIO_F_BIO_SOCK_INIT = 112; - {$EXTERNALSYM BIO_F_BIO_WRITE} - BIO_F_BIO_WRITE = 113; - {$EXTERNALSYM BIO_F_BUFFER_CTRL} - BIO_F_BUFFER_CTRL = 114; - {$EXTERNALSYM BIO_F_CONN_STATE} - BIO_F_CONN_STATE = 115; - {$EXTERNALSYM BIO_F_FILE_CTRL} - BIO_F_FILE_CTRL = 116; - {$EXTERNALSYM BIO_F_MEM_WRITE} - BIO_F_MEM_WRITE = 117; - {$EXTERNALSYM BIO_F_SSL_NEW} - BIO_F_SSL_NEW = 118; - {$EXTERNALSYM BIO_F_WSASTARTUP} - BIO_F_WSASTARTUP = 119; - {$EXTERNALSYM BIO_GHBN_CTRL_CACHE_SIZE} - BIO_GHBN_CTRL_CACHE_SIZE = 3; - {$EXTERNALSYM BIO_GHBN_CTRL_FLUSH} - BIO_GHBN_CTRL_FLUSH = 5; - {$EXTERNALSYM BIO_GHBN_CTRL_GET_ENTRY} - BIO_GHBN_CTRL_GET_ENTRY = 4; - {$EXTERNALSYM BIO_GHBN_CTRL_HITS} - BIO_GHBN_CTRL_HITS = 1; - {$EXTERNALSYM BIO_GHBN_CTRL_MISSES} - BIO_GHBN_CTRL_MISSES = 2; - {$EXTERNALSYM BIO_NOCLOSE} - BIO_NOCLOSE = $00; - {$EXTERNALSYM BIO_RR_CONNECT} - BIO_RR_CONNECT = $02; - {$EXTERNALSYM BIO_RR_SSL_X509_LOOKUP} - BIO_RR_SSL_X509_LOOKUP = $01; - {$EXTERNALSYM BIO_R_ACCEPT_ERROR} - BIO_R_ACCEPT_ERROR = 100; - {$EXTERNALSYM BIO_R_BAD_FOPEN_MODE} - BIO_R_BAD_FOPEN_MODE = 101; - {$EXTERNALSYM BIO_R_BAD_HOSTNAME_LOOKUP} - BIO_R_BAD_HOSTNAME_LOOKUP = 102; - {$EXTERNALSYM BIO_R_BROKEN_PIPE} - BIO_R_BROKEN_PIPE = 124; - {$EXTERNALSYM BIO_R_CONNECT_ERROR} - BIO_R_CONNECT_ERROR = 103; - {$EXTERNALSYM BIO_R_ERROR_SETTING_NBIO} - BIO_R_ERROR_SETTING_NBIO = 104; - {$EXTERNALSYM BIO_R_ERROR_SETTING_NBIO_ON_ACCEPTED_SOCKET} - BIO_R_ERROR_SETTING_NBIO_ON_ACCEPTED_SOCKET = 105; - {$EXTERNALSYM BIO_R_ERROR_SETTING_NBIO_ON_ACCEPT_SOCKET} - BIO_R_ERROR_SETTING_NBIO_ON_ACCEPT_SOCKET = 106; - {$EXTERNALSYM BIO_R_GETHOSTBYNAME_ADDR_IS_NOT_AF_INET} - BIO_R_GETHOSTBYNAME_ADDR_IS_NOT_AF_INET = 107; - {$EXTERNALSYM BIO_R_INVALID_ARGUMENT} - BIO_R_INVALID_ARGUMENT = 125; - {$EXTERNALSYM BIO_R_INVALID_IP_ADDRESS} - BIO_R_INVALID_IP_ADDRESS = 108; - {$EXTERNALSYM BIO_R_IN_USE} - BIO_R_IN_USE = 123; - {$EXTERNALSYM BIO_R_KEEPALIVE} - BIO_R_KEEPALIVE = 109; - {$EXTERNALSYM BIO_R_NBIO_CONNECT_ERROR} - BIO_R_NBIO_CONNECT_ERROR = 110; - {$EXTERNALSYM BIO_R_NO_ACCEPT_PORT_SPECIFIED} - BIO_R_NO_ACCEPT_PORT_SPECIFIED = 111; - {$EXTERNALSYM BIO_R_NO_HOSTNAME_SPECIFIED} - BIO_R_NO_HOSTNAME_SPECIFIED = 112; - {$EXTERNALSYM BIO_R_NO_PORT_DEFINED} - BIO_R_NO_PORT_DEFINED = 113; - {$EXTERNALSYM BIO_R_NO_PORT_SPECIFIED} - BIO_R_NO_PORT_SPECIFIED = 114; - {$EXTERNALSYM BIO_R_NULL_PARAMETER} - BIO_R_NULL_PARAMETER = 115; - {$EXTERNALSYM BIO_R_TAG_MISMATCH} - BIO_R_TAG_MISMATCH = 116; - {$EXTERNALSYM BIO_R_UNABLE_TO_BIND_SOCKET} - BIO_R_UNABLE_TO_BIND_SOCKET = 117; - {$EXTERNALSYM BIO_R_UNABLE_TO_CREATE_SOCKET} - BIO_R_UNABLE_TO_CREATE_SOCKET = 118; - {$EXTERNALSYM BIO_R_UNABLE_TO_LISTEN_SOCKET} - BIO_R_UNABLE_TO_LISTEN_SOCKET = 119; - {$EXTERNALSYM BIO_R_UNINITIALIZED} - BIO_R_UNINITIALIZED = 120; - {$EXTERNALSYM BIO_R_UNSUPPORTED_METHOD} - BIO_R_UNSUPPORTED_METHOD = 121; - {$EXTERNALSYM BIO_R_WSASTARTUP} - BIO_R_WSASTARTUP = 122; - {$EXTERNALSYM BIO_TYPE_ACCEPT} - BIO_TYPE_ACCEPT = 13 or $0400 or $0100; - {$EXTERNALSYM BIO_TYPE_BASE64} - BIO_TYPE_BASE64 = 11 or $0200; - {$EXTERNALSYM BIO_TYPE_BER} - BIO_TYPE_BER = 18 or $0200; - {$EXTERNALSYM BIO_TYPE_BIO} - BIO_TYPE_BIO = 19 or $0400; - {$EXTERNALSYM BIO_TYPE_BUFFER} - BIO_TYPE_BUFFER = 9 or $0200; - {$EXTERNALSYM BIO_TYPE_CIPHER} - BIO_TYPE_CIPHER = 10 or $0200; - {$EXTERNALSYM BIO_TYPE_CONNECT} - BIO_TYPE_CONNECT = 12 or $0400 or $0100; - {$EXTERNALSYM BIO_TYPE_DESCRIPTOR} - BIO_TYPE_DESCRIPTOR = $0100; - {$EXTERNALSYM BIO_TYPE_FD} - BIO_TYPE_FD = 4 or $0400 or $0100; - {$EXTERNALSYM BIO_TYPE_FILE} - BIO_TYPE_FILE = 2 or $0400; - {$EXTERNALSYM BIO_TYPE_FILTER} - BIO_TYPE_FILTER = $0200; - {$EXTERNALSYM BIO_TYPE_MD} - BIO_TYPE_MD = 8 or $0200; - {$EXTERNALSYM BIO_TYPE_MEM} - BIO_TYPE_MEM = 1 or $0400; - {$EXTERNALSYM BIO_TYPE_NBIO_TEST} - BIO_TYPE_NBIO_TEST = 16 or $0200; - {$EXTERNALSYM BIO_TYPE_NONE} - BIO_TYPE_NONE = 0; - {$EXTERNALSYM BIO_TYPE_NULL} - BIO_TYPE_NULL = 6 or $0400; - {$EXTERNALSYM BIO_TYPE_NULL_FILTER} - BIO_TYPE_NULL_FILTER = 17 or $0200; - {$EXTERNALSYM BIO_TYPE_PROXY_CLIENT} - BIO_TYPE_PROXY_CLIENT = 14 or $0200; - {$EXTERNALSYM BIO_TYPE_PROXY_SERVER} - BIO_TYPE_PROXY_SERVER = 15 or $0200; - {$EXTERNALSYM BIO_TYPE_SOCKET} - BIO_TYPE_SOCKET = 5 or $0400 or $0100; - {$EXTERNALSYM BIO_TYPE_SOURCE_SINK} - BIO_TYPE_SOURCE_SINK = $0400; - {$EXTERNALSYM BIO_TYPE_SSL} - BIO_TYPE_SSL = 7 or $0200; - {$EXTERNALSYM BIO_TYPE_LINEBUFFER} - BIO_TYPE_LINEBUFFER = 20 or $0200; - {$EXTERNALSYM BIO_TYPE_DGRAM} - BIO_TYPE_DGRAM = 21 or $0400 or $0100; - {$EXTERNALSYM BIO_TYPE_COMP} - BIO_TYPE_COMP = 23 or $0200; - - {$IFDEF SIXTY_FOUR_BIT_LONG} - {$EXTERNALSYM BN_BITS} - BN_BITS = 128; - {$EXTERNALSYM BN_BYTES} - BN_BYTES = 8; - {$EXTERNALSYM BN_BITS2} - BN_BITS2 = 64; - {$EXTERNALSYM BN_BITS4} - BN_BITS4 = 32; - {$EXTERNALSYM BN_DEC_FMT1} - BN_DEC_FMT1 = '%lu'; {Do not localize} - {$EXTERNALSYM BN_DEC_FMT2} - BN_DEC_FMT2 = '%019lu'; {Do not localize} - {$EXTERNALSYM BN_DEC_NUM} - BN_DEC_NUM = 19; - {$ENDIF} - {$IFDEF SIXTY_FOUR_BIT} - {$UNDEF BN_LLONG} - {$UNDEF BN_ULLONG} - {$EXTERNALSYM OPENSSL_BN_BITS} - OPENSSL_BN_BITS = 128; - {$EXTERNALSYM OPENSSL_BN_BYTES} - OPENSSL_BN_BYTES = 8; - {$EXTERNALSYM OPENSSL_BN_BITS2} - OPENSSL_BN_BITS2 = 64; - {$EXTERNALSYM OPENSSL_BN_BITS4} - OPENSSL_BN_BITS4 = 32; - {$EXTERNALSYM OPENSSL_BN_DEC_FMT1} - OPENSSL_BN_DEC_FMT1 = '%llu'; {Do not localize} - {$EXTERNALSYM OPENSSL_BN_DEC_FMT2} - OPENSSL_BN_DEC_FMT2 = '%019llu'; {Do not localize} - {$EXTERNALSYM OPENSSL_BN_DEC_NUM} - OPENSSL_BN_DEC_NUM = 19; - {$ENDIF} - {$IFDEF THIRTY_TWO_BIT} - {$EXTERNALSYM BN_BITS} - BN_BITS = 64; - {$EXTERNALSYM BN_BYTES} - BN_BYTES = 4; - {$EXTERNALSYM BN_BITS2} - BN_BITS2 = 32; - {$EXTERNALSYM BN_BITS4} - BN_BITS4 = 16; - {$EXTERNALSYM BN_DEC_FMT1} - BN_DEC_FMT1 = '%lu'; {Do not localize} - {$EXTERNALSYM BN_DEC_FMT2} - BN_DEC_FMT2 = '%09lu'; {Do not localize} - {$EXTERNALSYM BN_DEC_NUM} - BN_DEC_NUM = 9; - {$ENDIF} - {$EXTERNALSYM BN_CTX_NUM} - BN_CTX_NUM = 12; - {$IFNDEF OPENSSL_NO_DEPRECATED} - {$EXTERNALSYM BN_DEFAULT_BITS} - BN_DEFAULT_BITS = 1280; - {$ENDIF} - {$EXTERNALSYM BN_FLG_FREE} - BN_FLG_FREE = $8000; - {$EXTERNALSYM BN_FLG_MALLOCED} - BN_FLG_MALLOCED = $01; - {$EXTERNALSYM BN_FLG_STATIC_DATA} - BN_FLG_STATIC_DATA = $02; - {$EXTERNALSYM BN_FLG_CONSTTIME} - BN_FLG_CONSTTIME = $04; - //* avoid leaking exponent information through timing, - //* BN_mod_exp_mont() will call BN_mod_exp_mont_consttime, - //* BN_div() will call BN_div_no_branch, - // * BN_mod_inverse() will call BN_mod_inverse_no_branch. - // */ - {$IFNDEF OPENSSL_NO_DEPRECATED} - {$EXTERNALSYM BN_FLG_EXP_CONSTTIME} - BN_FLG_EXP_CONSTTIME = BN_FLG_CONSTTIME; //* deprecated name for the flag */ - //* avoid leaking exponent information through timings - //* (BN_mod_exp_mont() will call BN_mod_exp_mont_consttime) */ - {$ENDIF} - {$EXTERNALSYM BN_F_BN_BLINDING_CONVERT} - BN_F_BN_BLINDING_CONVERT = 100; - {$EXTERNALSYM BN_F_BN_BLINDING_INVERT} - BN_F_BN_BLINDING_INVERT = 101; - {$EXTERNALSYM BN_F_BN_BLINDING_NEW} - BN_F_BN_BLINDING_NEW = 102; - {$EXTERNALSYM BN_F_BN_BLINDING_UPDATE} - BN_F_BN_BLINDING_UPDATE = 103; - {$EXTERNALSYM BN_F_BN_BN2DEC} - BN_F_BN_BN2DEC = 104; - {$EXTERNALSYM BN_F_BN_BN2HEX} - BN_F_BN_BN2HEX = 105; - {$EXTERNALSYM BN_F_BN_CTX_NEW} - BN_F_BN_CTX_NEW = 106; - {$EXTERNALSYM BN_F_BN_DIV} - BN_F_BN_DIV = 107; - {$EXTERNALSYM BN_F_BN_DIV_NO_BRANCH} - BN_F_BN_DIV_NO_BRANCH = 138; - {$EXTERNALSYM BN_F_BN_EXPAND2} - BN_F_BN_EXPAND2 = 108; - {$EXTERNALSYM BN_F_BN_MOD_EXP_MONT} - BN_F_BN_MOD_EXP_MONT = 109; - {$EXTERNALSYM BN_F_BN_MOD_INVERSE} - BN_F_BN_MOD_INVERSE = 110; - {$EXTERNALSYM BN_F_BN_MOD_INVERSE_NO_BRANCH} - BN_F_BN_MOD_INVERSE_NO_BRANCH = 139; - {$EXTERNALSYM BN_F_BN_MOD_MUL_RECIPROCAL} - BN_F_BN_MOD_MUL_RECIPROCAL = 111; - {$EXTERNALSYM BN_F_BN_MPI2BN} - BN_F_BN_MPI2BN = 112; - {$EXTERNALSYM BN_F_BN_NEW} - BN_F_BN_NEW = 113; - {$EXTERNALSYM BN_F_BN_RAND} - BN_F_BN_RAND = 114; - {$EXTERNALSYM BN_F_BN_USUB} - BN_F_BN_USUB = 115; - {$EXTERNALSYM BN_MASK2} - BN_MASK2 = $ffffffff; - {$EXTERNALSYM BN_MASK2h} - BN_MASK2h = $ffff0000; - {$EXTERNALSYM BN_MASK2h1} - BN_MASK2h1 = $ffff8000; - {$EXTERNALSYM BN_MASK2l} - BN_MASK2l = $ffff; - {$EXTERNALSYM BN_R_ARG2_LT_ARG3} - BN_R_ARG2_LT_ARG3 = 100; - {$EXTERNALSYM BN_R_BAD_RECIPROCAL} - BN_R_BAD_RECIPROCAL = 101; - {$EXTERNALSYM BN_R_CALLED_WITH_EVEN_MODULUS} - BN_R_CALLED_WITH_EVEN_MODULUS = 102; - {$EXTERNALSYM BN_R_DIV_BY_ZERO} - BN_R_DIV_BY_ZERO = 103; - {$EXTERNALSYM BN_R_ENCODING_ERROR} - BN_R_ENCODING_ERROR = 104; - {$EXTERNALSYM BN_R_EXPAND_ON_STATIC_BIGNUM_DATA} - BN_R_EXPAND_ON_STATIC_BIGNUM_DATA = 105; - {$EXTERNALSYM BN_R_INVALID_LENGTH} - BN_R_INVALID_LENGTH = 106; - {$EXTERNALSYM BN_R_NOT_INITIALIZED} - BN_R_NOT_INITIALIZED = 107; - {$EXTERNALSYM BN_R_NO_INVERSE} - BN_R_NO_INVERSE = 108; - {$EXTERNALSYM BN_TBIT} - BN_TBIT = $80000000; - {$EXTERNALSYM BUFSIZ} - BUFSIZ = 1024; - {$EXTERNALSYM BUF_F_BUF_MEM_GROW} - BUF_F_BUF_MEM_GROW = 100; - {$EXTERNALSYM BUF_F_BUF_MEM_NEW} - BUF_F_BUF_MEM_NEW = 101; - {$EXTERNALSYM BUF_F_BUF_STRDUP} - BUF_F_BUF_STRDUP = 102; - - //function codes - {$EXTERNALSYM RAND_F_ENG_RAND_GET_RAND_METHOD} - RAND_F_ENG_RAND_GET_RAND_METHOD = 108; - {$EXTERNALSYM RAND_F_FIPS_RAND} - RAND_F_FIPS_RAND = 103; - {$EXTERNALSYM RAND_F_FIPS_RAND_BYTES} - RAND_F_FIPS_RAND_BYTES = 102; - {$EXTERNALSYM RAND_F_FIPS_RAND_GET_RAND_METHOD} - RAND_F_FIPS_RAND_GET_RAND_METHOD = 109; - {$EXTERNALSYM RAND_F_FIPS_RAND_SET_DT} - RAND_F_FIPS_RAND_SET_DT = 106; - {$EXTERNALSYM RAND_F_FIPS_SET_DT} - RAND_F_FIPS_SET_DT = 104; - {$EXTERNALSYM RAND_F_FIPS_SET_PRNG_SEED} - RAND_F_FIPS_SET_PRNG_SEED = 107; - {$EXTERNALSYM RAND_F_FIPS_SET_TEST_MODE} - RAND_F_FIPS_SET_TEST_MODE = 105; - {$EXTERNALSYM RAND_F_RAND_GET_RAND_METHOD} - RAND_F_RAND_GET_RAND_METHOD = 101; - {$EXTERNALSYM RAND_F_SSLEAY_RAND_BYTES} - RAND_F_SSLEAY_RAND_BYTES = 100; - -//* Reason codes. */ - {$EXTERNALSYM RAND_R_NON_FIPS_METHOD} - RAND_R_NON_FIPS_METHOD = 105; - {$EXTERNALSYM RAND_R_NOT_IN_TEST_MODE} - RAND_R_NOT_IN_TEST_MODE = 106; - {$EXTERNALSYM RAND_R_NO_KEY_SET} - RAND_R_NO_KEY_SET = 107; - {$EXTERNALSYM RAND_R_PRNG_ASKING_FOR_TOO_MUCH} - RAND_R_PRNG_ASKING_FOR_TOO_MUCH = 101; - {$EXTERNALSYM RAND_R_PRNG_ERROR} - RAND_R_PRNG_ERROR = 108; - {$EXTERNALSYM RAND_R_PRNG_KEYED} - RAND_R_PRNG_KEYED = 109; - {$EXTERNALSYM RAND_R_PRNG_NOT_REKEYED} - RAND_R_PRNG_NOT_REKEYED = 102; - {$EXTERNALSYM RAND_R_PRNG_NOT_RESEEDED} - RAND_R_PRNG_NOT_RESEEDED = 103; - {$EXTERNALSYM RAND_R_PRNG_NOT_SEEDED} - RAND_R_PRNG_NOT_SEEDED = 100; - {$EXTERNALSYM RAND_R_PRNG_SEED_MUST_NOT_MATCH_KEY} - RAND_R_PRNG_SEED_MUST_NOT_MATCH_KEY = 110; - {$EXTERNALSYM RAND_R_PRNG_STUCK} - RAND_R_PRNG_STUCK = 104; - - {$EXTERNALSYM B_ASN1_BIT_STRING} - B_ASN1_BIT_STRING = $0400; - {$EXTERNALSYM B_ASN1_BMPSTRING} - B_ASN1_BMPSTRING = $0800; - {$EXTERNALSYM B_ASN1_GENERALSTRING} - B_ASN1_GENERALSTRING = $0080; - {$EXTERNALSYM B_ASN1_GRAPHICSTRING} - B_ASN1_GRAPHICSTRING = $0020; - {$EXTERNALSYM B_ASN1_IA5STRING} - B_ASN1_IA5STRING = $0010; - {$EXTERNALSYM B_ASN1_ISO64STRING} - B_ASN1_ISO64STRING = $0040; - {$EXTERNALSYM B_ASN1_NUMERICSTRING} - B_ASN1_NUMERICSTRING = $0001; - {$EXTERNALSYM B_ASN1_OCTET_STRING} - B_ASN1_OCTET_STRING = $0200; - {$EXTERNALSYM B_ASN1_PRINTABLESTRING} - B_ASN1_PRINTABLESTRING = $0002; - {$EXTERNALSYM B_ASN1_T61STRING} - B_ASN1_T61STRING = $0004; - {$EXTERNALSYM B_ASN1_TELETEXSTRING} - B_ASN1_TELETEXSTRING = $0008; - {$EXTERNALSYM B_ASN1_UNIVERSALSTRING} - B_ASN1_UNIVERSALSTRING = $0100; - {$EXTERNALSYM B_ASN1_UNKNOWN} - B_ASN1_UNKNOWN = $1000; - {$EXTERNALSYM B_ASN1_UTF8STRING} - B_ASN1_UTF8STRING = $2000; - {$EXTERNALSYM B_ASN1_VIDEOTEXSTRING} - B_ASN1_VIDEOTEXSTRING = $0008; - {$EXTERNALSYM B_ASN1_VISIBLESTRING} - B_ASN1_VISIBLESTRING = $0040; - {$EXTERNALSYM B_ASN1_UTCTIME} - B_ASN1_UTCTIME = $4000; - {$EXTERNALSYM B_ASN1_GENERALIZEDTIME} - B_ASN1_GENERALIZEDTIME = $8000; - {$EXTERNALSYM B_ASN1_SEQUENCE} - B_ASN1_SEQUENCE = $10000; - {$EXTERNALSYM B_ASN1_TIME} - B_ASN1_TIME = B_ASN1_UTCTIME or - {$EXTERNALSYM B_ASN1_PRINTABLE} - B_ASN1_GENERALIZEDTIME; - - {$EXTERNALSYM B_ASN1_PRINTABLE} - B_ASN1_PRINTABLE = B_ASN1_NUMERICSTRING or - {$EXTERNALSYM B_ASN1_DIRECTORYSTRING} - B_ASN1_PRINTABLESTRING or - {$EXTERNALSYM B_ASN1_DIRECTORYSTRING} - B_ASN1_T61STRING or - {$EXTERNALSYM B_ASN1_DIRECTORYSTRING} - B_ASN1_IA5STRING or - {$EXTERNALSYM B_ASN1_DIRECTORYSTRING} - B_ASN1_BIT_STRING or - {$EXTERNALSYM B_ASN1_DIRECTORYSTRING} - B_ASN1_UNIVERSALSTRING or - {$EXTERNALSYM B_ASN1_DIRECTORYSTRING} - B_ASN1_BMPSTRING or - {$EXTERNALSYM B_ASN1_DIRECTORYSTRING} - B_ASN1_UTF8STRING or - {$EXTERNALSYM B_ASN1_DIRECTORYSTRING} - B_ASN1_SEQUENCE or - {$EXTERNALSYM B_ASN1_DIRECTORYSTRING} - B_ASN1_UNKNOWN; - {$EXTERNALSYM B_ASN1_DIRECTORYSTRING} - B_ASN1_DIRECTORYSTRING = B_ASN1_PRINTABLESTRING or - {$EXTERNALSYM B_ASN1_DISPLAYTEXT} - B_ASN1_TELETEXSTRING or - {$EXTERNALSYM B_ASN1_DISPLAYTEXT} - B_ASN1_BMPSTRING or - {$EXTERNALSYM B_ASN1_DISPLAYTEXT} - B_ASN1_UNIVERSALSTRING or - {$EXTERNALSYM B_ASN1_DISPLAYTEXT} - B_ASN1_UTF8STRING; - {$EXTERNALSYM B_ASN1_DISPLAYTEXT} - B_ASN1_DISPLAYTEXT = B_ASN1_IA5STRING or - {$EXTERNALSYM MBSTRING_FLAG} - B_ASN1_VISIBLESTRING or - {$EXTERNALSYM MBSTRING_FLAG} - B_ASN1_BMPSTRING or - {$EXTERNALSYM MBSTRING_FLAG} - B_ASN1_UTF8STRING; - {$EXTERNALSYM MBSTRING_FLAG} - MBSTRING_FLAG = $1000; - {$EXTERNALSYM MBSTRING_UTF8} - MBSTRING_UTF8 = MBSTRING_FLAG; - {$EXTERNALSYM MBSTRING_ASC} - MBSTRING_ASC = MBSTRING_FLAG or 1; - {$EXTERNALSYM MBSTRING_BMP} - MBSTRING_BMP = MBSTRING_FLAG or 2; - {$EXTERNALSYM MBSTRING_UNIV} - MBSTRING_UNIV = MBSTRING_FLAG or 4; - {$EXTERNALSYM SMIME_OLDMIME} - SMIME_OLDMIME = $400; - {$EXTERNALSYM SMIME_CRLFEOL} - SMIME_CRLFEOL = $800; - {$EXTERNALSYM SMIME_STREAM} - SMIME_STREAM = $1000; - - {$EXTERNALSYM _CLOCKS_PER_SEC_} - _CLOCKS_PER_SEC_ = 1000; - {$EXTERNALSYM _CLOCKS_PER_SEC_} - {$EXTERNALSYM CLOCKS_PER_SEC} - CLOCKS_PER_SEC = _CLOCKS_PER_SEC_; - {$EXTERNALSYM CLOCKS_PER_SEC} - {$EXTERNALSYM CLK_TCK} - CLK_TCK = CLOCKS_PER_SEC; - {$EXTERNALSYM CLK_TCK} -//* Function codes. */ - {$EXTERNALSYM COMP_F_BIO_ZLIB_FLUSH} - COMP_F_BIO_ZLIB_FLUSH = 99; - {$EXTERNALSYM COMP_F_BIO_ZLIB_NEW} - COMP_F_BIO_ZLIB_NEW = 100; - {$EXTERNALSYM COMP_F_BIO_ZLIB_READ} - COMP_F_BIO_ZLIB_READ = 101; - {$EXTERNALSYM COMP_F_BIO_ZLIB_WRITE} - COMP_F_BIO_ZLIB_WRITE = 102; - -//* Reason codes. */ - {$EXTERNALSYM COMP_R_ZLIB_DEFLATE_ERROR} - COMP_R_ZLIB_DEFLATE_ERROR = 99; - {$EXTERNALSYM COMP_R_ZLIB_INFLATE_ERROR} - COMP_R_ZLIB_INFLATE_ERROR = 100; - {$EXTERNALSYM COMP_R_ZLIB_NOT_SUPPORTED} - COMP_R_ZLIB_NOT_SUPPORTED = 101; - - {$EXTERNALSYM CRYPTO_EX_INDEX_BIO} - CRYPTO_EX_INDEX_BIO = 0; - {$EXTERNALSYM CRYPTO_EX_INDEX_SSL} - CRYPTO_EX_INDEX_SSL = 1; - {$EXTERNALSYM CRYPTO_EX_INDEX_SSL_CTX} - CRYPTO_EX_INDEX_SSL_CTX = 2; - {$EXTERNALSYM CRYPTO_EX_INDEX_SSL_SESSION} - CRYPTO_EX_INDEX_SSL_SESSION = 3; - {$EXTERNALSYM CRYPTO_EX_INDEX_X509_STORE} - CRYPTO_EX_INDEX_X509_STORE = 4; - {$EXTERNALSYM CRYPTO_EX_INDEX_X509_STORE_CTX} - CRYPTO_EX_INDEX_X509_STORE_CTX = 5; - {$EXTERNALSYM CRYPTO_EX_INDEX_RSA} - CRYPTO_EX_INDEX_RSA = 6; - {$EXTERNALSYM CRYPTO_EX_INDEX_DSA} - CRYPTO_EX_INDEX_DSA = 7; - {$EXTERNALSYM CRYPTO_EX_INDEX_DH} - CRYPTO_EX_INDEX_DH = 8; - {$EXTERNALSYM CRYPTO_EX_INDEX_ENGINE} - CRYPTO_EX_INDEX_ENGINE = 9; - {$EXTERNALSYM CRYPTO_EX_INDEX_X509} - CRYPTO_EX_INDEX_X509 = 10; - {$EXTERNALSYM CRYPTO_EX_INDEX_UI} - CRYPTO_EX_INDEX_UI = 11; - {$EXTERNALSYM CRYPTO_EX_INDEX_ECDSA} - CRYPTO_EX_INDEX_ECDSA = 12; - {$EXTERNALSYM CRYPTO_EX_INDEX_ECDH} - CRYPTO_EX_INDEX_ECDH = 13; - {$EXTERNALSYM CRYPTO_EX_INDEX_COMP} - CRYPTO_EX_INDEX_COMP = 14; - {$EXTERNALSYM CRYPTO_EX_INDEX_STORE} - CRYPTO_EX_INDEX_STORE = 15; - {$EXTERNALSYM CRYPTO_EX_INDEX_USER} - CRYPTO_EX_INDEX_USER = 100; - - {$EXTERNALSYM CRYPTO_F_CRYPTO_GET_EX_NEW_INDEX} - CRYPTO_F_CRYPTO_GET_EX_NEW_INDEX = 100; - {$EXTERNALSYM CRYPTO_F_CRYPTO_GET_NEW_DYNLOCKID} - CRYPTO_F_CRYPTO_GET_NEW_DYNLOCKID = 103; - {$EXTERNALSYM CRYPTO_F_CRYPTO_GET_NEW_LOCKID} - CRYPTO_F_CRYPTO_GET_NEW_LOCKID = 101; - {$EXTERNALSYM CRYPTO_F_CRYPTO_SET_EX_DATA} - CRYPTO_F_CRYPTO_SET_EX_DATA = 102; - {$EXTERNALSYM CRYPTO_F_DEF_ADD_INDEX} - CRYPTO_F_DEF_ADD_INDEX = 104; - {$EXTERNALSYM CRYPTO_F_DEF_GET_CLASS} - CRYPTO_F_DEF_GET_CLASS = 105; - {$EXTERNALSYM CRYPTO_F_INT_DUP_EX_DATA} - CRYPTO_F_INT_DUP_EX_DATA = 106; - {$EXTERNALSYM CRYPTO_F_INT_FREE_EX_DATA} - CRYPTO_F_INT_FREE_EX_DATA = 107; - {$EXTERNALSYM CRYPTO_F_INT_NEW_EX_DATA} - CRYPTO_F_INT_NEW_EX_DATA = 108; - {$EXTERNALSYM CRYPTO_R_NO_DYNLOCK_CREATE_CALLBACK} - CRYPTO_R_NO_DYNLOCK_CREATE_CALLBACK = 100; - - {$EXTERNALSYM CRYPTO_LOCK} - CRYPTO_LOCK = 1; - {$EXTERNALSYM CRYPTO_LOCK_ERR} - CRYPTO_LOCK_ERR = 1; - {$EXTERNALSYM CRYPTO_LOCK_ERR_HASH} - CRYPTO_LOCK_ERR_HASH = 2; - {$EXTERNALSYM CRYPTO_LOCK_X509} - CRYPTO_LOCK_X509 = 3; - {$EXTERNALSYM CRYPTO_LOCK_X509_INFO} - CRYPTO_LOCK_X509_INFO = 4; - {$EXTERNALSYM CRYPTO_LOCK_X509_PKEY} - CRYPTO_LOCK_X509_PKEY = 5; - {$EXTERNALSYM CRYPTO_LOCK_X509_CRL} - CRYPTO_LOCK_X509_CRL = 6; - {$EXTERNALSYM CRYPTO_LOCK_X509_REQ} - CRYPTO_LOCK_X509_REQ = 7; - {$EXTERNALSYM CRYPTO_LOCK_DSA} - CRYPTO_LOCK_DSA = 8; - {$EXTERNALSYM CRYPTO_LOCK_RSA} - CRYPTO_LOCK_RSA = 9; - {$EXTERNALSYM CRYPTO_LOCK_EVP_PKEY} - CRYPTO_LOCK_EVP_PKEY = 10; - {$EXTERNALSYM CRYPTO_LOCK_X509_STORE} - CRYPTO_LOCK_X509_STORE = 11; - {$EXTERNALSYM CRYPTO_LOCK_SSL_CTX} - CRYPTO_LOCK_SSL_CTX = 12; - {$EXTERNALSYM CRYPTO_LOCK_SSL_CERT} - CRYPTO_LOCK_SSL_CERT = 13; - {$EXTERNALSYM CRYPTO_LOCK_SSL_SESSION} - CRYPTO_LOCK_SSL_SESSION = 14; - {$EXTERNALSYM CRYPTO_LOCK_SSL_SESS_CERT} - CRYPTO_LOCK_SSL_SESS_CERT = 15; - {$EXTERNALSYM CRYPTO_LOCK_SSL} - CRYPTO_LOCK_SSL = 16; - {$EXTERNALSYM CRYPTO_LOCK_SSL_METHOD} - CRYPTO_LOCK_SSL_METHOD = 17; - {$EXTERNALSYM CRYPTO_LOCK_RAND} - CRYPTO_LOCK_RAND = 18; -// CRYPTO_LOCK_RAND = 17; - {$EXTERNALSYM CRYPTO_LOCK_RAND2} - CRYPTO_LOCK_RAND2 = 19; - {$EXTERNALSYM CRYPTO_LOCK_MALLOC} - CRYPTO_LOCK_MALLOC = 20; -//was CRYPTO_LOCK_MALLOC = 18; - {$EXTERNALSYM CRYPTO_LOCK_BIO} - CRYPTO_LOCK_BIO = 21; -//was CRYPTO_LOCK_BIO = 19; - {$EXTERNALSYM CRYPTO_LOCK_GETHOSTBYNAME} - CRYPTO_LOCK_GETHOSTBYNAME = 22; -//was CRYPTO_LOCK_GETHOSTBYNAME = 20; - {$EXTERNALSYM CRYPTO_LOCK_GETSERVBYNAME} - CRYPTO_LOCK_GETSERVBYNAME = 23; -//was CRYPTO_LOCK_GETSERVBYNAME = 21; - {$EXTERNALSYM CRYPTO_LOCK_READDIR} - CRYPTO_LOCK_READDIR = 24; -//was CRYPTO_LOCK_READDIR = 22; - {$EXTERNALSYM CRYPTO_LOCK_RSA_BLINDING} - CRYPTO_LOCK_RSA_BLINDING = 25; -//was CRYPTO_LOCK_RSA_BLINDING = 23; - {$EXTERNALSYM CRYPTO_LOCK_DH} - CRYPTO_LOCK_DH = 26; - {$EXTERNALSYM CRYPTO_LOCK_MALLOC2} - CRYPTO_LOCK_MALLOC2 = 27; - {$EXTERNALSYM CRYPTO_LOCK_DSO} - CRYPTO_LOCK_DSO = 28; - {$EXTERNALSYM CRYPTO_LOCK_DYNLOCK} - CRYPTO_LOCK_DYNLOCK = 29; - {$EXTERNALSYM CRYPTO_LOCK_ENGINE} - CRYPTO_LOCK_ENGINE = 30; - {$EXTERNALSYM CRYPTO_LOCK_UI} - CRYPTO_LOCK_UI = 31; - {$EXTERNALSYM CRYPTO_LOCK_ECDSA} - CRYPTO_LOCK_ECDSA = 32; - {$EXTERNALSYM CRYPTO_LOCK_EC} - CRYPTO_LOCK_EC = 33; - {$EXTERNALSYM CRYPTO_LOCK_ECDH} - CRYPTO_LOCK_ECDH = 34; - {$EXTERNALSYM CRYPTO_LOCK_BN} - CRYPTO_LOCK_BN = 35; - {$EXTERNALSYM CRYPTO_LOCK_EC_PRE_COMP} - CRYPTO_LOCK_EC_PRE_COMP = 36; - {$EXTERNALSYM CRYPTO_LOCK_STORE} - CRYPTO_LOCK_STORE = 37; - {$EXTERNALSYM CRYPTO_LOCK_COMP} - CRYPTO_LOCK_COMP = 38; - {$IFNDEF OPENSSL_FIPS} - {$EXTERNALSYM CRYPTO_NUM_LOCKS} - CRYPTO_NUM_LOCKS = 39; -// was OPENSSL_CRYPTO_NUM_LOCKS = 24; - {$ELSE} - {$EXTERNALSYM CRYPTO_LOCK_FIPS} - CRYPTO_LOCK_FIPS = 39; - {$EXTERNALSYM CRYPTO_LOCK_FIPS2} - CRYPTO_LOCK_FIPS2 = 40; - {$EXTERNALSYM CRYPTO_NUM_LOCKS} - CRYPTO_NUM_LOCKS = 41; - {$ENDIF} - {$EXTERNALSYM CRYPTO_MEM_CHECK_DISABLE} - CRYPTO_MEM_CHECK_DISABLE = $3; - {$EXTERNALSYM CRYPTO_MEM_CHECK_ENABLE} - CRYPTO_MEM_CHECK_ENABLE = $2; - {$EXTERNALSYM CRYPTO_MEM_CHECK_OFF} - CRYPTO_MEM_CHECK_OFF = $0; - {$EXTERNALSYM CRYPTO_MEM_CHECK_ON} - CRYPTO_MEM_CHECK_ON = $1; - {$EXTERNALSYM CRYPTO_READ} - CRYPTO_READ = 4; - {$EXTERNALSYM CRYPTO_UNLOCK} - CRYPTO_UNLOCK = 2; - {$EXTERNALSYM CRYPTO_WRITE} - CRYPTO_WRITE = 8; - {$EXTERNALSYM V_CRYPTO_MDEBUG_TIME} - V_CRYPTO_MDEBUG_TIME = $1; - {$EXTERNALSYM V_CRYPTO_MDEBUG_THREAD} - V_CRYPTO_MDEBUG_THREAD = $2; - {$IFNDEF OPENSSL_NO_AES} - {$EXTERNALSYM AES_ENCRYPT} - AES_ENCRYPT = 1; - {$EXTERNALSYM AES_DECRYPT} - AES_DECRYPT = 0; - {$EXTERNALSYM AES_MAXNR} - AES_MAXNR = 14; - {$EXTERNALSYM AES_BLOCK_SIZE} - AES_BLOCK_SIZE = 16; - {$ENDIF} -//* These values are used as commands to DSO_ctrl() */ - {$EXTERNALSYM DSO_CTRL_GET_FLAGS} - DSO_CTRL_GET_FLAGS = 1; - {$EXTERNALSYM DSO_CTRL_SET_FLAGS} - DSO_CTRL_SET_FLAGS = 2; - {$EXTERNALSYM DSO_CTRL_OR_FLAGS} - DSO_CTRL_OR_FLAGS = 3; - -///* By default, DSO_load() will translate the provided filename into a form -// * typical for the platform (more specifically the DSO_METHOD) using the -// * dso_name_converter function of the method. Eg. win32 will transform "blah" -// * into "blah.dll", and dlfcn will transform it into "libblah.so". The -// * behaviour can be overriden by setting the name_converter callback in the DSO -// * object (using DSO_set_name_converter()). This callback could even utilise -// * the DSO_METHOD's converter too if it only wants to override behaviour for -// * one or two possible DSO methods. However, the following flag can be set in a -// * DSO to prevent *any* native name-translation at all - eg. if the caller has -// * prompted the user for a path to a driver library so the filename should be -// * interpreted as-is. */ - {$EXTERNALSYM DSO_FLAG_NO_NAME_TRANSLATION} - DSO_FLAG_NO_NAME_TRANSLATION = $01; -///* An extra flag to give if only the extension should be added as -// * translation. This is obviously only of importance on Unix and -// * other operating systems where the translation also may prefix -// * the name with something, like 'lib', and ignored everywhere else. -// * This flag is also ignored if DSO_FLAG_NO_NAME_TRANSLATION is used -// * at the same time. */ - {$EXTERNALSYM DSO_FLAG_NAME_TRANSLATION_EXT_ONLY} - DSO_FLAG_NAME_TRANSLATION_EXT_ONLY = $02; - -///* The following flag controls the translation of symbol names to upper -// * case. This is currently only being implemented for OpenVMS. -// */ - {$EXTERNALSYM DSO_FLAG_UPCASE_SYMBOL} - DSO_FLAG_UPCASE_SYMBOL = $10; - -//* This flag loads the library with public symbols. -// * Meaning: The exported symbols of this library are public -// * to all libraries loaded after this library. -// * At the moment only implemented in unix. -// */ - {$EXTERNALSYM DSO_FLAG_GLOBAL_SYMBOLS} - DSO_FLAG_GLOBAL_SYMBOLS = $20; - //seed.h - {$IFNDEF OPENSSL_NO_SEED} - {$IFDEF AES_LONG} //* look whether we need 'long' to get 32 bits */ - {$DEFINE SEED_LONG} - {$ENDIF} - {$EXTERNALSYM SEED_BLOCK_SIZE} - SEED_BLOCK_SIZE = 16; - {$EXTERNALSYM SEED_KEY_LENGTH} - SEED_KEY_LENGTH = 16; - {$ENDIF} - {$IFNDEF OPENSSL_NO_CAST} - {$EXTERNALSYM CAST_BLOCK} - CAST_BLOCK = 8; - {$EXTERNALSYM CAST_DECRYPT} - CAST_DECRYPT = 0; - {$EXTERNALSYM CAST_ENCRYPT} - CAST_ENCRYPT = 1; - {$EXTERNALSYM CAST_KEY_LENGTH} - CAST_KEY_LENGTH = 16; - {$ENDIF} - {$IFNDEF OPENSSL_NO_DES} - {$EXTERNALSYM DES_CBC_MODE} - DES_CBC_MODE = 0; - {$EXTERNALSYM DES_DECRYPT} - DES_DECRYPT = 0; - {$EXTERNALSYM DES_ENCRYPT} - DES_ENCRYPT = 1; - {$EXTERNALSYM DES_PCBC_MODE} - DES_PCBC_MODE = 1; - {$ENDIF} - {$IFNDEF OPENSSL_NO_DH} - //the OpenSSL developers probably only wanted to make sure this was defined. - {$EXTERNALSYM DH_MAX_MODULUS_BITS} - DH_MAX_MODULUS_BITS = 10000; - {$EXTERNALSYM DH_FIPS_MIN_MODULUS_BITS} - DH_FIPS_MIN_MODULUS_BITS = 1024; - {$EXTERNALSYM DH_FLAG_CACHE_MONT_P} - DH_FLAG_CACHE_MONT_P = $01; - {$EXTERNALSYM DH_FLAG_NO_EXP_CONSTTIME} - DH_FLAG_NO_EXP_CONSTTIME = $02; - {$EXTERNALSYM DH_GENERATOR_2} - DH_GENERATOR_2 = 2; - {$EXTERNALSYM DH_GENERATOR_5} - DH_GENERATOR_5 = 5; - {$EXTERNALSYM DH_CHECK_P_NOT_PRIME} - DH_CHECK_P_NOT_PRIME = $01; - {$EXTERNALSYM DH_CHECK_P_NOT_STRONG_PRIME} - DH_CHECK_P_NOT_STRONG_PRIME = $02; - {$EXTERNALSYM DH_UNABLE_TO_CHECK_GENERATOR} - DH_UNABLE_TO_CHECK_GENERATOR = $04; - {$EXTERNALSYM DH_NOT_SUITABLE_GENERATOR} - DH_NOT_SUITABLE_GENERATOR = $08; - {$EXTERNALSYM DH_CHECK_PUBKEY_TOO_SMALL} - DH_CHECK_PUBKEY_TOO_SMALL = $01; - {$EXTERNALSYM DH_CHECK_PUBKEY_TOO_LARGE} - DH_CHECK_PUBKEY_TOO_LARGE = $02; - {$EXTERNALSYM DH_CHECK_P_NOT_SAFE_PRIME} - DH_CHECK_P_NOT_SAFE_PRIME = DH_CHECK_P_NOT_STRONG_PRIME; - {$EXTERNALSYM DH_F_DHPARAMS_PRINT} - DH_F_DHPARAMS_PRINT = 100; - {$EXTERNALSYM DH_F_DHPARAMS_PRINT_FP} - DH_F_DHPARAMS_PRINT_FP = 101; - {$EXTERNALSYM DH_F_COMPUTE_KEY} - DH_F_COMPUTE_KEY = 102; - {$EXTERNALSYM DH_F_GENERATE_KEY} - DH_F_GENERATE_KEY = 103; - {$EXTERNALSYM DH_F_GENERATE_PARAMETERS} - DH_F_GENERATE_PARAMETERS = 104; - {$EXTERNALSYM DH_F_DH_NEW_METHOD} - DH_F_DH_NEW_METHOD = 105; - {$EXTERNALSYM DH_F_DH_NEW} - DH_F_DH_NEW = 105; - {$EXTERNALSYM DH_F_DH_BUILTIN_GENPARAMS} - DH_F_DH_BUILTIN_GENPARAMS = 106; - {$EXTERNALSYM DH_F_DH_COMPUTE_KEY} - DH_F_DH_COMPUTE_KEY = 107; - //was DH_F_DH_COMPUTE_KEY = 102; - {$EXTERNALSYM DH_F_DH_GENERATE_KEY} - DH_F_DH_GENERATE_KEY = 108; - //was DH_F_DH_GENERATE_KEY = 103; - {$EXTERNALSYM DH_F_DH_GENERATE_PARAMETERS} - DH_F_DH_GENERATE_PARAMETERS = 109; - //was DH_F_DH_GENERATE_PARAMETERS = 104; - {$EXTERNALSYM DH_R_NO_PRIVATE_VALUE} - DH_R_NO_PRIVATE_VALUE = 100; - {$EXTERNALSYM DH_R_BAD_GENERATOR} - DH_R_BAD_GENERATOR = 101; - {$EXTERNALSYM DH_R_INVALID_PUBKEY} - DH_R_INVALID_PUBKEY = 102; - {$EXTERNALSYM DH_R_MODULUS_TOO_LARGE} - DH_R_MODULUS_TOO_LARGE = 103; - {$EXTERNALSYM DH_R_KEY_SIZE_TOO_SMALL} - DH_R_KEY_SIZE_TOO_SMALL = 104; - {$ENDIF} - {$IFNDEF OPENSSL_NO_DSA} - //I think the OpenSSL developers wanted to make sure this was defined. - {$EXTERNALSYM DSA_MAX_MODULUS_BITS} - DSA_MAX_MODULUS_BITS = 10000; - {$EXTERNALSYM DSA_FIPS_MIN_MODULUS_BITS} - DSA_FIPS_MIN_MODULUS_BITS = 1024; - {$EXTERNALSYM DSA_FLAG_CACHE_MONT_P} - DSA_FLAG_CACHE_MONT_P = $01; - {$EXTERNALSYM DSA_FLAG_NO_EXP_CONSTTIME} - DSA_FLAG_NO_EXP_CONSTTIME = $02; //* new with 0.9.7h; the built-in DSA -///* If this flag is set the DSA method is FIPS compliant and can be used -// * in FIPS mode. This is set in the validated module method. If an -// * application sets this flag in its own methods it is its reposibility -// * to ensure the result is compliant. -// */ - {$EXTERNALSYM DSA_FLAG_FIPS_METHOD} - DSA_FLAG_FIPS_METHOD = $0400; -///* If this flag is set the operations normally disabled in FIPS mode are -// * permitted it is then the applications responsibility to ensure that the -// * usage is compliant. -// */ - {$EXTERNALSYM DSA_FLAG_NON_FIPS_ALLOW} - DSA_FLAG_NON_FIPS_ALLOW = $0400; - {$EXTERNALSYM DSA_F_D2I_DSA_SIG} - DSA_F_D2I_DSA_SIG = 110; - {$EXTERNALSYM DSA_F_DSAPARAMS_PRINT} - DSA_F_DSAPARAMS_PRINT = 100; - {$EXTERNALSYM DSA_F_DSAPARAMS_PRINT_FP} - DSA_F_DSAPARAMS_PRINT_FP = 101; - {$EXTERNALSYM DSA_F_DSA_BUILTIN_KEYGEN} - DSA_F_DSA_BUILTIN_KEYGEN = 119; - {$EXTERNALSYM DSA_F_DSA_BUILTIN_PARAMGEN} - DSA_F_DSA_BUILTIN_PARAMGEN = 118; - {$EXTERNALSYM DSA_F_DSA_DO_SIGN} - DSA_F_DSA_DO_SIGN = 112; - {$EXTERNALSYM DSA_F_DSA_DO_VERIFY} - DSA_F_DSA_DO_VERIFY = 113; - {$EXTERNALSYM DSA_F_DSA_IS_PRIME} - DSA_F_DSA_IS_PRIME = 102; - {$EXTERNALSYM DSA_F_DSA_NEW} - DSA_F_DSA_NEW = 103; - {$EXTERNALSYM DSA_F_DSA_PRINT} - DSA_F_DSA_PRINT = 104; - {$EXTERNALSYM DSA_F_DSA_PRINT_FP} - DSA_F_DSA_PRINT_FP = 105; - {$EXTERNALSYM DSA_F_DSA_SIGN} - DSA_F_DSA_SIGN = 106; - {$EXTERNALSYM DSA_F_DSA_SIGN_SETUP} - DSA_F_DSA_SIGN_SETUP = 107; - {$EXTERNALSYM DSA_F_DSA_SIG_NEW} - DSA_F_DSA_SIG_NEW = 109; - {$EXTERNALSYM DSA_F_DSA_VERIFY} - DSA_F_DSA_VERIFY = 108; - {$EXTERNALSYM DSA_F_DSA_GENERATE_PARAMETERS} - DSA_F_DSA_GENERATE_PARAMETERS = 117; - {$EXTERNALSYM DSA_F_I2D_DSA_SIG} - DSA_F_I2D_DSA_SIG = 111; - {$EXTERNALSYM DSA_F_SIG_CB} - DSA_F_SIG_CB = 114; - {$EXTERNALSYM DSA_R_DATA_TOO_LARGE_FOR_KEY_SIZE} - DSA_R_DATA_TOO_LARGE_FOR_KEY_SIZE = 100; - {$EXTERNALSYM DSA_R_MISSING_PARAMETERS} - DSA_R_MISSING_PARAMETERS = 101; - {$EXTERNALSYM DSA_R_BAD_Q_VALUE} - DSA_R_BAD_Q_VALUE = 102; - {$EXTERNALSYM DSA_R_MODULUS_TOO_LARGE} - DSA_R_MODULUS_TOO_LARGE = 103; - {$EXTERNALSYM DSA_R_NON_FIPS_METHOD} - DSA_R_NON_FIPS_METHOD = 104; - {$EXTERNALSYM DSA_R_OPERATION_NOT_ALLOWED_IN_FIPS_MODE} - DSA_R_OPERATION_NOT_ALLOWED_IN_FIPS_MODE = 105; - {$EXTERNALSYM DSA_R_KEY_SIZE_TOO_SMALL} - DSA_R_KEY_SIZE_TOO_SMALL = 106; - {$ENDIF} - {$IFNDEF NO_EC} - {$EXTERNALSYM ECC_MAX_FIELD_BITS} - ECC_MAX_FIELD_BITS = 661; - {$EXTERNALSYM EC_NAMED_CURVE} - EC_NAMED_CURVE = $001; - {$EXTERNALSYM POINT_CONVERSION_COMPRESSED} - POINT_CONVERSION_COMPRESSED = 2; - {$EXTERNALSYM POINT_CONVERSION_UNCOMPRESSED} - POINT_CONVERSION_UNCOMPRESSED = 4; - {$EXTERNALSYM POINT_CONVERSION_HYBRID} - POINT_CONVERSION_HYBRID = 6; - {$EXTERNALSYM EC_PKEY_NO_PARAMETERS} - EC_PKEY_NO_PARAMETERS = $001; - {$EXTERNALSYM EC_PKEY_NO_PUBKEY} - EC_PKEY_NO_PUBKEY = $002; -//* Error codes for the EC functions. */ -//* Function codes. */ - {$EXTERNALSYM EC_F_COMPUTE_WNAF} - EC_F_COMPUTE_WNAF = 143; - {$EXTERNALSYM EC_F_D2I_ECPARAMETERS} - EC_F_D2I_ECPARAMETERS = 144; - {$EXTERNALSYM EC_F_D2I_ECPKPARAMETERS} - EC_F_D2I_ECPKPARAMETERS = 145; - {$EXTERNALSYM EC_F_D2I_ECPRIVATEKEY} - EC_F_D2I_ECPRIVATEKEY = 146; - {$EXTERNALSYM EC_F_ECPARAMETERS_PRINT} - EC_F_ECPARAMETERS_PRINT = 147; - {$EXTERNALSYM EC_F_ECPARAMETERS_PRINT_FP} - EC_F_ECPARAMETERS_PRINT_FP = 148; - {$EXTERNALSYM EC_F_ECPKPARAMETERS_PRINT} - EC_F_ECPKPARAMETERS_PRINT = 149; - {$EXTERNALSYM EC_F_ECPKPARAMETERS_PRINT_FP} - EC_F_ECPKPARAMETERS_PRINT_FP = 150; - {$EXTERNALSYM EC_F_ECP_NIST_MOD_192} - EC_F_ECP_NIST_MOD_192 = 203; - {$EXTERNALSYM EC_F_ECP_NIST_MOD_224} - EC_F_ECP_NIST_MOD_224 = 204; - {$EXTERNALSYM EC_F_ECP_NIST_MOD_256} - EC_F_ECP_NIST_MOD_256 = 205; - {$EXTERNALSYM EC_F_ECP_NIST_MOD_521} - EC_F_ECP_NIST_MOD_521 = 206; - {$EXTERNALSYM EC_F_EC_ASN1_GROUP2CURVE} - EC_F_EC_ASN1_GROUP2CURVE = 153; - {$EXTERNALSYM EC_F_EC_ASN1_GROUP2FIELDID} - EC_F_EC_ASN1_GROUP2FIELDID = 154; - {$EXTERNALSYM EC_F_EC_ASN1_GROUP2PARAMETERS} - EC_F_EC_ASN1_GROUP2PARAMETERS = 155; - {$EXTERNALSYM EC_F_EC_ASN1_GROUP2PKPARAMETERS} - EC_F_EC_ASN1_GROUP2PKPARAMETERS = 156; - {$EXTERNALSYM EC_F_EC_ASN1_PARAMETERS2GROUP} - EC_F_EC_ASN1_PARAMETERS2GROUP = 157; - {$EXTERNALSYM EC_F_EC_ASN1_PKPARAMETERS2GROUP} - EC_F_EC_ASN1_PKPARAMETERS2GROUP = 158; - {$EXTERNALSYM EC_F_EC_EX_DATA_SET_DATA} - EC_F_EC_EX_DATA_SET_DATA = 211; - {$EXTERNALSYM EC_F_EC_GF2M_MONTGOMERY_POINT_MULTIPLY} - EC_F_EC_GF2M_MONTGOMERY_POINT_MULTIPLY = 208; - {$EXTERNALSYM EC_F_EC_GF2M_SIMPLE_GROUP_CHECK_DISCRIMINANT} - EC_F_EC_GF2M_SIMPLE_GROUP_CHECK_DISCRIMINANT = 159; - {$EXTERNALSYM EC_F_EC_GF2M_SIMPLE_GROUP_SET_CURVE} - EC_F_EC_GF2M_SIMPLE_GROUP_SET_CURVE = 195; - {$EXTERNALSYM EC_F_EC_GF2M_SIMPLE_OCT2POINT} - EC_F_EC_GF2M_SIMPLE_OCT2POINT = 160; - {$EXTERNALSYM EC_F_EC_GF2M_SIMPLE_POINT2OCT} - EC_F_EC_GF2M_SIMPLE_POINT2OCT = 161; - {$EXTERNALSYM EC_F_EC_GF2M_SIMPLE_POINT_GET_AFFINE_COORDINATES} - EC_F_EC_GF2M_SIMPLE_POINT_GET_AFFINE_COORDINATES = 162; - {$EXTERNALSYM EC_F_EC_GF2M_SIMPLE_POINT_SET_AFFINE_COORDINATES} - EC_F_EC_GF2M_SIMPLE_POINT_SET_AFFINE_COORDINATES = 163; - {$EXTERNALSYM EC_F_EC_GF2M_SIMPLE_SET_COMPRESSED_COORDINATES} - EC_F_EC_GF2M_SIMPLE_SET_COMPRESSED_COORDINATES = 164; - {$EXTERNALSYM EC_F_EC_GFP_MONT_FIELD_DECODE} - EC_F_EC_GFP_MONT_FIELD_DECODE = 133; - {$EXTERNALSYM EC_F_EC_GFP_MONT_FIELD_ENCODE} - EC_F_EC_GFP_MONT_FIELD_ENCODE = 134; - {$EXTERNALSYM EC_F_EC_GFP_MONT_FIELD_MUL} - EC_F_EC_GFP_MONT_FIELD_MUL = 131; - {$EXTERNALSYM EC_F_EC_GFP_MONT_FIELD_SET_TO_ONE} - EC_F_EC_GFP_MONT_FIELD_SET_TO_ONE = 209; - {$EXTERNALSYM EC_F_EC_GFP_MONT_FIELD_SQR} - EC_F_EC_GFP_MONT_FIELD_SQR = 132; - {$EXTERNALSYM EC_F_EC_GFP_MONT_GROUP_SET_CURVE} - EC_F_EC_GFP_MONT_GROUP_SET_CURVE = 189; - {$EXTERNALSYM EC_F_EC_GFP_MONT_GROUP_SET_CURVE_GFP} - EC_F_EC_GFP_MONT_GROUP_SET_CURVE_GFP = 135; - {$EXTERNALSYM EC_F_EC_GFP_NIST_FIELD_MUL} - EC_F_EC_GFP_NIST_FIELD_MUL = 200; - {$EXTERNALSYM EC_F_EC_GFP_NIST_FIELD_SQR} - EC_F_EC_GFP_NIST_FIELD_SQR = 201; - {$EXTERNALSYM EC_F_EC_GFP_NIST_GROUP_SET_CURVE} - EC_F_EC_GFP_NIST_GROUP_SET_CURVE = 202; - {$EXTERNALSYM EC_F_EC_GFP_SIMPLE_GROUP_CHECK_DISCRIMINANT} - EC_F_EC_GFP_SIMPLE_GROUP_CHECK_DISCRIMINANT = 165; - {$EXTERNALSYM EC_F_EC_GFP_SIMPLE_GROUP_SET_CURVE} - EC_F_EC_GFP_SIMPLE_GROUP_SET_CURVE = 166; - {$EXTERNALSYM EC_F_EC_GFP_SIMPLE_GROUP_SET_CURVE_GFP} - EC_F_EC_GFP_SIMPLE_GROUP_SET_CURVE_GFP = 100; - {$EXTERNALSYM EC_F_EC_GFP_SIMPLE_GROUP_SET_GENERATOR} - EC_F_EC_GFP_SIMPLE_GROUP_SET_GENERATOR = 101; - {$EXTERNALSYM EC_F_EC_GFP_SIMPLE_MAKE_AFFINE} - EC_F_EC_GFP_SIMPLE_MAKE_AFFINE = 102; - {$EXTERNALSYM EC_F_EC_GFP_SIMPLE_OCT2POINT} - EC_F_EC_GFP_SIMPLE_OCT2POINT = 103; - {$EXTERNALSYM EC_F_EC_GFP_SIMPLE_POINT2OCT} - EC_F_EC_GFP_SIMPLE_POINT2OCT = 104; - {$EXTERNALSYM EC_F_EC_GFP_SIMPLE_POINTS_MAKE_AFFINE} - EC_F_EC_GFP_SIMPLE_POINTS_MAKE_AFFINE = 137; - {$EXTERNALSYM EC_F_EC_GFP_SIMPLE_POINT_GET_AFFINE_COORDINATES} - EC_F_EC_GFP_SIMPLE_POINT_GET_AFFINE_COORDINATES = 167; - {$EXTERNALSYM EC_F_EC_GFP_SIMPLE_POINT_GET_AFFINE_COORDINATES_GFP} - EC_F_EC_GFP_SIMPLE_POINT_GET_AFFINE_COORDINATES_GFP = 105; - {$EXTERNALSYM EC_F_EC_GFP_SIMPLE_POINT_SET_AFFINE_COORDINATES} - EC_F_EC_GFP_SIMPLE_POINT_SET_AFFINE_COORDINATES = 168; - {$EXTERNALSYM EC_F_EC_GFP_SIMPLE_POINT_SET_AFFINE_COORDINATES_GFP} - EC_F_EC_GFP_SIMPLE_POINT_SET_AFFINE_COORDINATES_GFP = 128; - {$EXTERNALSYM EC_F_EC_GFP_SIMPLE_SET_COMPRESSED_COORDINATES} - EC_F_EC_GFP_SIMPLE_SET_COMPRESSED_COORDINATES = 169; - {$EXTERNALSYM EC_F_EC_GFP_SIMPLE_SET_COMPRESSED_COORDINATES_GFP} - EC_F_EC_GFP_SIMPLE_SET_COMPRESSED_COORDINATES_GFP = 129; - {$EXTERNALSYM EC_F_EC_GROUP_CHECK} - EC_F_EC_GROUP_CHECK = 170; - {$EXTERNALSYM EC_F_EC_GROUP_CHECK_DISCRIMINANT} - EC_F_EC_GROUP_CHECK_DISCRIMINANT = 171; - {$EXTERNALSYM EC_F_EC_GROUP_COPY} - EC_F_EC_GROUP_COPY = 106; - {$EXTERNALSYM EC_F_EC_GROUP_GET0_GENERATOR} - EC_F_EC_GROUP_GET0_GENERATOR = 139; - {$EXTERNALSYM EC_F_EC_GROUP_GET_COFACTOR} - EC_F_EC_GROUP_GET_COFACTOR = 140; - {$EXTERNALSYM EC_F_EC_GROUP_GET_CURVE_GF2M} - EC_F_EC_GROUP_GET_CURVE_GF2M = 172; - {$EXTERNALSYM EC_F_EC_GROUP_GET_CURVE_GFP} - EC_F_EC_GROUP_GET_CURVE_GFP = 130; - {$EXTERNALSYM EC_F_EC_GROUP_GET_DEGREE} - EC_F_EC_GROUP_GET_DEGREE = 173; - {$EXTERNALSYM EC_F_EC_GROUP_GET_ORDER} - EC_F_EC_GROUP_GET_ORDER = 141; - {$EXTERNALSYM EC_F_EC_GROUP_GET_PENTANOMIAL_BASIS} - EC_F_EC_GROUP_GET_PENTANOMIAL_BASIS = 193; - {$EXTERNALSYM EC_F_EC_GROUP_GET_TRINOMIAL_BASIS} - EC_F_EC_GROUP_GET_TRINOMIAL_BASIS = 194; - {$EXTERNALSYM EC_F_EC_GROUP_NEW} - EC_F_EC_GROUP_NEW = 108; - {$EXTERNALSYM EC_F_EC_GROUP_NEW_BY_CURVE_NAME} - EC_F_EC_GROUP_NEW_BY_CURVE_NAME = 174; - {$EXTERNALSYM EC_F_EC_GROUP_NEW_FROM_DATA} - EC_F_EC_GROUP_NEW_FROM_DATA = 175; - {$EXTERNALSYM EC_F_EC_GROUP_PRECOMPUTE_MULT} - EC_F_EC_GROUP_PRECOMPUTE_MULT = 142; - {$EXTERNALSYM EC_F_EC_GROUP_SET_CURVE_GF2M} - EC_F_EC_GROUP_SET_CURVE_GF2M = 176; - {$EXTERNALSYM EC_F_EC_GROUP_SET_CURVE_GFP} - EC_F_EC_GROUP_SET_CURVE_GFP = 109; - {$EXTERNALSYM EC_F_EC_GROUP_SET_EXTRA_DATA} - EC_F_EC_GROUP_SET_EXTRA_DATA = 110; - {$EXTERNALSYM EC_F_EC_GROUP_SET_GENERATOR} - EC_F_EC_GROUP_SET_GENERATOR = 111; - {$EXTERNALSYM EC_F_EC_KEY_CHECK_KEY} - EC_F_EC_KEY_CHECK_KEY = 177; - {$EXTERNALSYM EC_F_EC_KEY_COPY} - EC_F_EC_KEY_COPY = 178; - {$EXTERNALSYM EC_F_EC_KEY_GENERATE_KEY} - EC_F_EC_KEY_GENERATE_KEY = 179; - {$EXTERNALSYM EC_F_EC_KEY_NEW} - EC_F_EC_KEY_NEW = 182; - {$EXTERNALSYM EC_F_EC_KEY_PRINT} - EC_F_EC_KEY_PRINT = 180; - {$EXTERNALSYM EC_F_EC_KEY_PRINT_FP} - EC_F_EC_KEY_PRINT_FP = 181; - {$EXTERNALSYM EC_F_EC_POINTS_MAKE_AFFINE} - EC_F_EC_POINTS_MAKE_AFFINE = 136; - {$EXTERNALSYM EC_F_EC_POINTS_MUL} - EC_F_EC_POINTS_MUL = 138; - {$EXTERNALSYM EC_F_EC_POINT_ADD} - EC_F_EC_POINT_ADD = 112; - {$EXTERNALSYM EC_F_EC_POINT_CMP} - EC_F_EC_POINT_CMP = 113; - {$EXTERNALSYM EC_F_EC_POINT_COPY} - EC_F_EC_POINT_COPY = 114; - {$EXTERNALSYM EC_F_EC_POINT_DBL} - EC_F_EC_POINT_DBL = 115; - {$EXTERNALSYM EC_F_EC_POINT_GET_AFFINE_COORDINATES_GF2M} - EC_F_EC_POINT_GET_AFFINE_COORDINATES_GF2M = 183; - {$EXTERNALSYM EC_F_EC_POINT_GET_AFFINE_COORDINATES_GFP} - EC_F_EC_POINT_GET_AFFINE_COORDINATES_GFP = 116; - {$EXTERNALSYM EC_F_EC_POINT_GET_JPROJECTIVE_COORDINATES_GFP} - EC_F_EC_POINT_GET_JPROJECTIVE_COORDINATES_GFP = 117; - {$EXTERNALSYM EC_F_EC_POINT_INVERT} - EC_F_EC_POINT_INVERT = 210; - {$EXTERNALSYM EC_F_EC_POINT_IS_AT_INFINITY} - EC_F_EC_POINT_IS_AT_INFINITY = 118; - {$EXTERNALSYM EC_F_EC_POINT_IS_ON_CURVE} - EC_F_EC_POINT_IS_ON_CURVE = 119; - {$EXTERNALSYM EC_F_EC_POINT_MAKE_AFFINE} - EC_F_EC_POINT_MAKE_AFFINE = 120; - {$EXTERNALSYM EC_F_EC_POINT_MUL} - EC_F_EC_POINT_MUL = 184; - {$EXTERNALSYM EC_F_EC_POINT_NEW} - EC_F_EC_POINT_NEW = 121; - {$EXTERNALSYM EC_F_EC_POINT_OCT2POINT} - EC_F_EC_POINT_OCT2POINT = 122; - {$EXTERNALSYM EC_F_EC_POINT_POINT2OCT} - EC_F_EC_POINT_POINT2OCT = 123; - {$EXTERNALSYM EC_F_EC_POINT_SET_AFFINE_COORDINATES_GF2M} - EC_F_EC_POINT_SET_AFFINE_COORDINATES_GF2M = 185; - {$EXTERNALSYM EC_F_EC_POINT_SET_AFFINE_COORDINATES_GFP} - EC_F_EC_POINT_SET_AFFINE_COORDINATES_GFP = 124; - {$EXTERNALSYM EC_F_EC_POINT_SET_COMPRESSED_COORDINATES_GF2M} - EC_F_EC_POINT_SET_COMPRESSED_COORDINATES_GF2M = 186; - {$EXTERNALSYM EC_F_EC_POINT_SET_COMPRESSED_COORDINATES_GFP} - EC_F_EC_POINT_SET_COMPRESSED_COORDINATES_GFP = 125; - {$EXTERNALSYM EC_F_EC_POINT_SET_JPROJECTIVE_COORDINATES_GFP} - EC_F_EC_POINT_SET_JPROJECTIVE_COORDINATES_GFP = 126; - {$EXTERNALSYM EC_F_EC_POINT_SET_TO_INFINITY} - EC_F_EC_POINT_SET_TO_INFINITY = 127; - {$EXTERNALSYM EC_F_EC_PRE_COMP_DUP} - EC_F_EC_PRE_COMP_DUP = 207; - {$EXTERNALSYM EC_F_EC_PRE_COMP_NEW} - EC_F_EC_PRE_COMP_NEW = 196; - {$EXTERNALSYM EC_F_EC_WNAF_MUL} - EC_F_EC_WNAF_MUL = 187; - {$EXTERNALSYM EC_F_EC_WNAF_PRECOMPUTE_MULT} - EC_F_EC_WNAF_PRECOMPUTE_MULT = 188; - {$EXTERNALSYM EC_F_I2D_ECPARAMETERS} - EC_F_I2D_ECPARAMETERS = 190; - {$EXTERNALSYM EC_F_I2D_ECPKPARAMETERS} - EC_F_I2D_ECPKPARAMETERS = 191; - {$EXTERNALSYM EC_F_I2D_ECPRIVATEKEY} - EC_F_I2D_ECPRIVATEKEY = 192; - {$EXTERNALSYM EC_F_I2O_ECPUBLICKEY} - EC_F_I2O_ECPUBLICKEY = 151; - {$EXTERNALSYM EC_F_O2I_ECPUBLICKEY} - EC_F_O2I_ECPUBLICKEY = 152; -//* Reason codes. */ - {$EXTERNALSYM EC_R_ASN1_ERROR} - EC_R_ASN1_ERROR = 115; - {$EXTERNALSYM EC_R_ASN1_UNKNOWN_FIELD} - EC_R_ASN1_UNKNOWN_FIELD = 116; - {$EXTERNALSYM EC_R_BUFFER_TOO_SMALL} - EC_R_BUFFER_TOO_SMALL = 100; - {$EXTERNALSYM EC_R_D2I_ECPKPARAMETERS_FAILURE} - EC_R_D2I_ECPKPARAMETERS_FAILURE = 117; - {$EXTERNALSYM EC_R_DISCRIMINANT_IS_ZERO} - EC_R_DISCRIMINANT_IS_ZERO = 118; - {$EXTERNALSYM EC_R_EC_GROUP_NEW_BY_NAME_FAILURE} - EC_R_EC_GROUP_NEW_BY_NAME_FAILURE = 119; - {$EXTERNALSYM EC_R_FIELD_TOO_LARGE} - EC_R_FIELD_TOO_LARGE = 138; - {$EXTERNALSYM EC_R_GROUP2PKPARAMETERS_FAILURE} - EC_R_GROUP2PKPARAMETERS_FAILURE = 120; - {$EXTERNALSYM EC_R_I2D_ECPKPARAMETERS_FAILURE} - EC_R_I2D_ECPKPARAMETERS_FAILURE = 121; - {$EXTERNALSYM EC_R_INCOMPATIBLE_OBJECTS} - EC_R_INCOMPATIBLE_OBJECTS = 101; - {$EXTERNALSYM EC_R_INVALID_ARGUMENT} - EC_R_INVALID_ARGUMENT = 112; - {$EXTERNALSYM EC_R_INVALID_COMPRESSED_POINT} - EC_R_INVALID_COMPRESSED_POINT = 110; - {$EXTERNALSYM EC_R_INVALID_COMPRESSION_BIT} - EC_R_INVALID_COMPRESSION_BIT = 109; - {$EXTERNALSYM EC_R_INVALID_ENCODING} - EC_R_INVALID_ENCODING = 102; - {$EXTERNALSYM EC_R_INVALID_FIELD} - EC_R_INVALID_FIELD = 103; - {$EXTERNALSYM EC_R_INVALID_FORM} - EC_R_INVALID_FORM = 104; - {$EXTERNALSYM EC_R_INVALID_GROUP_ORDER} - EC_R_INVALID_GROUP_ORDER = 122; - {$EXTERNALSYM EC_R_INVALID_PENTANOMIAL_BASIS} - EC_R_INVALID_PENTANOMIAL_BASIS = 132; - {$EXTERNALSYM EC_R_INVALID_PRIVATE_KEY} - EC_R_INVALID_PRIVATE_KEY = 123; - {$EXTERNALSYM EC_R_INVALID_TRINOMIAL_BASIS} - EC_R_INVALID_TRINOMIAL_BASIS = 137; - {$EXTERNALSYM EC_R_MISSING_PARAMETERS} - EC_R_MISSING_PARAMETERS = 124; - {$EXTERNALSYM EC_R_MISSING_PRIVATE_KEY} - EC_R_MISSING_PRIVATE_KEY = 125; - {$EXTERNALSYM EC_R_NOT_A_NIST_PRIME} - EC_R_NOT_A_NIST_PRIME = 135; - {$EXTERNALSYM EC_R_NOT_A_SUPPORTED_NIST_PRIME} - EC_R_NOT_A_SUPPORTED_NIST_PRIME = 136; - {$EXTERNALSYM EC_R_NOT_IMPLEMENTED} - EC_R_NOT_IMPLEMENTED = 126; - {$EXTERNALSYM EC_R_NOT_INITIALIZED} - EC_R_NOT_INITIALIZED = 111; - {$EXTERNALSYM EC_R_NO_FIELD_MOD} - EC_R_NO_FIELD_MOD = 133; - {$EXTERNALSYM EC_R_PASSED_NULL_PARAMETER} - EC_R_PASSED_NULL_PARAMETER = 134; - {$EXTERNALSYM EC_R_PKPARAMETERS2GROUP_FAILURE} - EC_R_PKPARAMETERS2GROUP_FAILURE = 127; - {$EXTERNALSYM EC_R_POINT_AT_INFINITY} - EC_R_POINT_AT_INFINITY = 106; - {$EXTERNALSYM EC_R_POINT_IS_NOT_ON_CURVE} - EC_R_POINT_IS_NOT_ON_CURVE = 107; - {$EXTERNALSYM EC_R_SLOT_FULL} - EC_R_SLOT_FULL = 108; - {$EXTERNALSYM EC_R_UNDEFINED_GENERATOR} - EC_R_UNDEFINED_GENERATOR = 113; - {$EXTERNALSYM EC_R_UNDEFINED_ORDER} - EC_R_UNDEFINED_ORDER = 128; - {$EXTERNALSYM EC_R_UNKNOWN_GROUP} - EC_R_UNKNOWN_GROUP = 129; - {$EXTERNALSYM EC_R_UNKNOWN_ORDER} - EC_R_UNKNOWN_ORDER = 114; - {$EXTERNALSYM EC_R_UNSUPPORTED_FIELD} - EC_R_UNSUPPORTED_FIELD = 131; - {$EXTERNALSYM EC_R_WRONG_ORDER} - EC_R_WRONG_ORDER = 130; - {$ENDIF} - {$IFNDEF OPENSSL_NO_ECDSA} - {$EXTERNALSYM ECDSA_F_ECDSA_DATA_NEW_METHOD} - ECDSA_F_ECDSA_DATA_NEW_METHOD = 100; - {$EXTERNALSYM ECDSA_F_ECDSA_DO_SIGN} - ECDSA_F_ECDSA_DO_SIGN = 101; - {$EXTERNALSYM ECDSA_F_ECDSA_DO_VERIFY} - ECDSA_F_ECDSA_DO_VERIFY = 102; - {$EXTERNALSYM ECDSA_F_ECDSA_SIGN_SETUP} - ECDSA_F_ECDSA_SIGN_SETUP = 103; - {$EXTERNALSYM ECDSA_R_BAD_SIGNATURE} - ECDSA_R_BAD_SIGNATURE = 100; - {$EXTERNALSYM ECDSA_R_DATA_TOO_LARGE_FOR_KEY_SIZE} - ECDSA_R_DATA_TOO_LARGE_FOR_KEY_SIZE = 101; - {$EXTERNALSYM ECDSA_R_ERR_EC_LIB} - ECDSA_R_ERR_EC_LIB = 102; - {$EXTERNALSYM ECDSA_R_MISSING_PARAMETERS} - ECDSA_R_MISSING_PARAMETERS = 103; - {$EXTERNALSYM ECDSA_R_RANDOM_NUMBER_GENERATION_FAILED} - ECDSA_R_RANDOM_NUMBER_GENERATION_FAILED = 104; - {$EXTERNALSYM ECDSA_R_SIGNATURE_MALLOC_FAILED} - ECDSA_R_SIGNATURE_MALLOC_FAILED = 105; - {$ENDIF} - {$IFNDEF OPENSSL_NO_ECDH} - {$EXTERNALSYM ECDH_F_ECDH_COMPUTE_KEY} - ECDH_F_ECDH_COMPUTE_KEY = 100; - {$EXTERNALSYM ECDH_F_ECDH_DATA_NEW_METHOD} - ECDH_F_ECDH_DATA_NEW_METHOD = 101; - {$EXTERNALSYM ECDH_R_KDF_FAILED} - ECDH_R_KDF_FAILED = 102; - {$EXTERNALSYM ECDH_R_NO_PRIVATE_VALUE} - ECDH_R_NO_PRIVATE_VALUE = 100; - {$EXTERNALSYM ECDH_R_POINT_ARITHMETIC_FAILURE} - ECDH_R_POINT_ARITHMETIC_FAILURE = 101; - {$ENDIF} - {$IFNDEF OPENSSL_NO_BF} - {$EXTERNALSYM BF_BLOCK} - BF_BLOCK = 8; - {$EXTERNALSYM BF_DECRYPT} - BF_DECRYPT = 0; - {$EXTERNALSYM BF_ENCRYPT} - BF_ENCRYPT = 1; - {$EXTERNALSYM BF_ROUNDS} - BF_ROUNDS = 16; - {$ENDIF} - {$EXTERNALSYM EVP_MAX_MD_SIZE} - EVP_MAX_MD_SIZE = 64; //* longest known is SHA512 */ - value I found, 16+20; - {$EXTERNALSYM EVP_MAX_KEY_LENGTH} - EVP_MAX_KEY_LENGTH = 32; //value I found, 24; - {$EXTERNALSYM EVP_MAX_IV_LENGTH} - EVP_MAX_IV_LENGTH = 16; //value I found, 8; - {$EXTERNALSYM EVP_MAX_BLOCK_LENGTH} - EVP_MAX_BLOCK_LENGTH=32; - {$EXTERNALSYM NID_dhKeyAgreement} - NID_dhKeyAgreement = 28; - - {$EXTERNALSYM NID_dsa} - NID_dsa = 116; - - {$EXTERNALSYM NID_dsa_2} - NID_dsa_2 = 67; - - {$EXTERNALSYM NID_dsaWithSHA} - NID_dsaWithSHA = 66; - - {$EXTERNALSYM NID_dsaWithSHA1} - NID_dsaWithSHA1 = 113; - - {$EXTERNALSYM NID_dsaWithSHA1_2} - NID_dsaWithSHA1_2 = 70; - - {$EXTERNALSYM EVP_PKEY_MO_SIGN} - EVP_PKEY_MO_SIGN = $0001; - {$EXTERNALSYM EVP_PKEY_MO_VERIFY} - EVP_PKEY_MO_VERIFY = $0002; - - {$EXTERNALSYM EVP_PKEY_MO_ENCRYPT} - EVP_PKEY_MO_ENCRYPT = $0004; - {$EXTERNALSYM EVP_PKEY_MO_DECRYPT} - EVP_PKEY_MO_DECRYPT = $0008; - - {$EXTERNALSYM EVP_MD_FLAG_FIPS} - EVP_MD_FLAG_FIPS = $0400; - //* Note if suitable for use in FIPS mode */ - {$EXTERNALSYM EVP_MD_FLAG_PKEY_DIGEST} - EVP_MD_FLAG_PKEY_DIGEST = $0002; //* digest is a "clone" digest used -// * which is a copy of an existing -// * one for a specific public key type. -// * EVP_dss1() etc */ -//* Digest uses EVP_PKEY_METHOD for signing instead of MD specific signing */ - - {$EXTERNALSYM EVP_MD_FLAG_PKEY_METHOD_SIGNATURE} - EVP_MD_FLAG_PKEY_METHOD_SIGNATURE = $0004; //note: conflicts with FIPS - -//* DigestAlgorithmIdentifier flags... */ - - {$EXTERNALSYM EVP_MD_FLAG_DIGALGID_MASK} - EVP_MD_FLAG_DIGALGID_MASK = $0018; - -//* NULL or absent parameter accepted. Use NULL */ - - {$EXTERNALSYM EVP_MD_FLAG_DIGALGID_NULL} - EVP_MD_FLAG_DIGALGID_NULL = $0000; - -//* NULL or absent parameter accepted. Use NULL for PKCS#1 otherwise absent */ - - {$EXTERNALSYM EVP_MD_FLAG_DIGALGID_ABSENT} - EVP_MD_FLAG_DIGALGID_ABSENT = $0008; - -//* Custom handling via ctrl */ - - {$EXTERNALSYM EVP_MD_FLAG_DIGALGID_CUSTOM} - EVP_MD_FLAG_DIGALGID_CUSTOM = $0018; - - {$EXTERNALSYM EVP_MD_FLAG_SVCTX} - EVP_MD_FLAG_SVCTX = $0800; - //* pass EVP_MD_SVCTX to sign/verify */ - -//* Digest ctrls */ - - {$EXTERNALSYM EVP_MD_CTRL_DIGALGID} - EVP_MD_CTRL_DIGALGID = $1; - {$EXTERNALSYM EVP_MD_CTRL_MICALG} - EVP_MD_CTRL_MICALG = $2; - -//* Minimum Algorithm specific ctrl value */ - - {$EXTERNALSYM EVP_MD_CTRL_ALG_CTRL} - EVP_MD_CTRL_ALG_CTRL = $1000; - - {$EXTERNALSYM NID_undef} - NID_undef = 0; - {$EXTERNALSYM NID_rsaEncryption} - NID_rsaEncryption = 6; - {$EXTERNALSYM NID_rsa} - NID_rsa = 19; - {$EXTERNALSYM NID_X9_62_id_ecPublicKey} - NID_X9_62_id_ecPublicKey = 408; - - {$EXTERNALSYM EVP_PKEY_NONE} - EVP_PKEY_NONE = NID_undef; - {$EXTERNALSYM EVP_PKEY_RSA} - EVP_PKEY_RSA = NID_rsaEncryption; - {$EXTERNALSYM EVP_PKEY_RSA2} - EVP_PKEY_RSA2 = NID_rsa; - {$EXTERNALSYM EVP_PKEY_DSA} - EVP_PKEY_DSA = NID_dsa; - {$EXTERNALSYM EVP_PKEY_DSA1} - EVP_PKEY_DSA1 = NID_dsa_2; - {$EXTERNALSYM EVP_PKEY_DSA2} - EVP_PKEY_DSA2 = NID_dsaWithSHA; - {$EXTERNALSYM EVP_PKEY_DSA3} - EVP_PKEY_DSA3 = NID_dsaWithSHA1; - {$EXTERNALSYM EVP_PKEY_DSA4} - EVP_PKEY_DSA4 = NID_dsaWithSHA1_2; - - {$EXTERNALSYM EVP_PKEY_DH} - EVP_PKEY_DH = NID_dhKeyAgreement; - {$EXTERNALSYM EVP_PKEY_EC} - EVP_PKEY_EC = NID_X9_62_id_ecPublicKey; - - {$EXTERNALSYM EVP_PKT_SIGN} - EVP_PKT_SIGN = $0010; - {$EXTERNALSYM EVP_PKT_ENC} - EVP_PKT_ENC = $0020; - {$EXTERNALSYM EVP_PKT_EXCH} - EVP_PKT_EXCH = $0040; - {$EXTERNALSYM EVP_PKT_EXP} - EVP_PKT_EXP = $1000; - - {$EXTERNALSYM EVP_PKS_RSA} - EVP_PKS_RSA = $0100; - {$EXTERNALSYM EVP_PKS_DSA} - EVP_PKS_DSA = $0200; - {$EXTERNALSYM EVP_PKS_EC} - EVP_PKS_EC = $0400; - - {$EXTERNALSYM EVP_PK_RSA} - EVP_PK_RSA = $0001; - {$EXTERNALSYM EVP_PK_DSA} - EVP_PK_DSA = $0002; - {$EXTERNALSYM EVP_PK_DH} - EVP_PK_DH = $0004; - {$EXTERNALSYM EVP_PK_EC} - EVP_PK_EC = $0008; - - {$EXTERNALSYM EVP_BLOWFISH_KEY_SIZE} - EVP_BLOWFISH_KEY_SIZE = 16; - {$EXTERNALSYM EVP_CAST5_KEY_SIZE} - EVP_CAST5_KEY_SIZE = 16; - {$EXTERNALSYM EVP_RC2_KEY_SIZE} - EVP_RC2_KEY_SIZE = 16; - {$EXTERNALSYM EVP_RC4_KEY_SIZE} - EVP_RC4_KEY_SIZE = 16; - {$EXTERNALSYM EVP_RC5_32_12_16_KEY_SIZE} - EVP_RC5_32_12_16_KEY_SIZE = 16; - {$EXTERNALSYM EVP_MD_CTX_FLAG_ONESHOT} - EVP_MD_CTX_FLAG_ONESHOT = $0001; - //* digest update will be called - //* once only */ - {$EXTERNALSYM EVP_MD_CTX_FLAG_CLEANED} - EVP_MD_CTX_FLAG_CLEANED = $0002; - //* context has already been - //* cleaned */ - {$EXTERNALSYM EVP_MD_CTX_FLAG_REUSE} - EVP_MD_CTX_FLAG_REUSE = $0004; - //* Don't free up ctx->md_data - //* in EVP_MD_CTX_cleanup */ - //OpenSSL 1.0.0. - //* FIPS and pad options are ignored in 1.0.0, definitions are here -// * so we don't accidentally reuse the values for other purposes. -// */ - - {$EXTERNALSYM EVP_MD_CTX_FLAG_NON_FIPS_ALLOW} - EVP_MD_CTX_FLAG_NON_FIPS_ALLOW = $0008; //* Allow use of non FIPS digest -// * in FIPS mode */ - -//* The following PAD options are also currently ignored in 1.0.0, digest -// * parameters are handled through EVP_DigestSign*() and EVP_DigestVerify*() -// * instead. -// */ - - - {$EXTERNALSYM EVP_MD_CTX_FLAG_PAD_MASK} - EVP_MD_CTX_FLAG_PAD_MASK = $F0; //* RSA mode to use */ - {$EXTERNALSYM EVP_MD_CTX_FLAG_PAD_PKCS1} - EVP_MD_CTX_FLAG_PAD_PKCS1 = $00; //* PKCS#1 v1.5 mode */ - {$EXTERNALSYM EVP_MD_CTX_FLAG_PAD_X931} - EVP_MD_CTX_FLAG_PAD_X931 = $10; //* X9.31 mode */ - {$EXTERNALSYM EVP_MD_CTX_FLAG_PAD_PSS} - EVP_MD_CTX_FLAG_PAD_PSS = $20; //* PSS mode */ -//#define M_EVP_MD_CTX_FLAG_PSS_SALT(ctx) \ -// ((ctx->flags>>16) &0xFFFF) /* seed length */ - {$EXTERNALSYM EVP_MD_CTX_FLAG_PSS_MDLEN} - EVP_MD_CTX_FLAG_PSS_MDLEN = $FFFF; //* salt len same as digest */ - {$EXTERNALSYM EVP_MD_CTX_FLAG_PSS_MREC} - EVP_MD_CTX_FLAG_PSS_MREC = $FFFE; //* salt max or auto recovered */ - {$EXTERNALSYM EVP_MD_CTX_FLAG_NO_INIT} - EVP_MD_CTX_FLAG_NO_INIT = $0100; //* Don't initialize md_data */ - - //* Modes for ciphers */ - {$EXTERNALSYM EVP_CIPH_STREAM_CIPHER} - EVP_CIPH_STREAM_CIPHER = $0; - {$EXTERNALSYM EVP_CIPH_ECB_MODE} - EVP_CIPH_ECB_MODE = $1; - {$EXTERNALSYM EVP_CIPH_CBC_MODE} - EVP_CIPH_CBC_MODE = $2; - {$EXTERNALSYM EVP_CIPH_CFB_MODE} - EVP_CIPH_CFB_MODE = $3; - {$EXTERNALSYM EVP_CIPH_OFB_MODE} - EVP_CIPH_OFB_MODE = $4; - {$EXTERNALSYM EVP_CIPH_CTR_MODE} - EVP_CIPH_CTR_MODE = $5; - {$EXTERNALSYM EVP_CIPH_GCM_MODE} - EVP_CIPH_GCM_MODE = $6; - {$EXTERNALSYM EVP_CIPH_CCM_MODE} - EVP_CIPH_CCM_MODE = $7; - {$EXTERNALSYM EVP_CIPH_XTS_MODE} - EVP_CIPH_XTS_MODE = $10001; - {$EXTERNALSYM EVP_CIPH_MODE} - EVP_CIPH_MODE = $F0007; - -//* Set if variable length cipher */ - {$EXTERNALSYM EVP_CIPH_VARIABLE_LENGTH} - EVP_CIPH_VARIABLE_LENGTH = $8; -//* Set if the iv handling should be done by the cipher itself */ - {$EXTERNALSYM EVP_CIPH_CUSTOM_IV} - EVP_CIPH_CUSTOM_IV = $10; -//* Set if the cipher's init() function should be called if key is NULL */ - {$EXTERNALSYM EVP_CIPH_ALWAYS_CALL_INIT} - EVP_CIPH_ALWAYS_CALL_INIT = $20; -//* Call ctrl() to init cipher parameters */ - {$EXTERNALSYM EVP_CIPH_CTRL_INIT} - EVP_CIPH_CTRL_INIT = $40; -//* Don't use standard key length function */ - {$EXTERNALSYM EVP_CIPH_CUSTOM_KEY_LENGTH} - EVP_CIPH_CUSTOM_KEY_LENGTH = $80; -//* Don't use standard block padding */ - {$EXTERNALSYM EVP_CIPH_NO_PADDING} - EVP_CIPH_NO_PADDING = $100; -//* cipher handles random key generation */ - {$EXTERNALSYM EVP_CIPH_RAND_KEY} - EVP_CIPH_RAND_KEY = $200; -//* cipher has its own additional copying logic */ - {$EXTERNALSYM EVP_CIPH_CUSTOM_COPY} - EVP_CIPH_CUSTOM_COPY = $400; -//* Allow use default ASN1 get/set iv */ - {$EXTERNALSYM EVP_CIPH_FLAG_DEFAULT_ASN1} - EVP_CIPH_FLAG_DEFAULT_ASN1 = $1000; -//* Buffer length in bits not bytes: CFB1 mode only */ - {$EXTERNALSYM EVP_CIPH_FLAG_LENGTH_BITS} - EVP_CIPH_FLAG_LENGTH_BITS = $2000; -//* Note if suitable for use in FIPS mode */ - {$EXTERNALSYM EVP_CIPH_FLAG_FIPS} - EVP_CIPH_FLAG_FIPS = $4000; -//* Allow non FIPS cipher in FIPS mode */ - {$EXTERNALSYM EVP_CIPH_FLAG_NON_FIPS_ALLOW} - EVP_CIPH_FLAG_NON_FIPS_ALLOW = $8000; -///* Cipher handles any and all padding logic as well -// * as finalisation. -// */ - {$EXTERNALSYM EVP_CIPH_FLAG_CUSTOM_CIPHER} - EVP_CIPH_FLAG_CUSTOM_CIPHER = $100000; - {$EXTERNALSYM EVP_CIPH_FLAG_AEAD_CIPHER} - EVP_CIPH_FLAG_AEAD_CIPHER = $200000; - - {$EXTERNALSYM EVP_CTRL_INIT} - EVP_CTRL_INIT = $0; - {$EXTERNALSYM EVP_CTRL_SET_KEY_LENGTH} - EVP_CTRL_SET_KEY_LENGTH = $1; - {$EXTERNALSYM EVP_CTRL_GET_RC2_KEY_BITS} - EVP_CTRL_GET_RC2_KEY_BITS = $2; - {$EXTERNALSYM EVP_CTRL_SET_RC2_KEY_BITS} - EVP_CTRL_SET_RC2_KEY_BITS = $3; - {$EXTERNALSYM EVP_CTRL_GET_RC5_ROUNDS} - EVP_CTRL_GET_RC5_ROUNDS = $4; - {$EXTERNALSYM EVP_CTRL_SET_RC5_ROUNDS} - EVP_CTRL_SET_RC5_ROUNDS = $5; - {$EXTERNALSYM EVP_CTRL_RAND_KEY} - EVP_CTRL_RAND_KEY = $6; - {$EXTERNALSYM EVP_CTRL_PBE_PRF_NID} - EVP_CTRL_PBE_PRF_NID = $7; - {$EXTERNALSYM EVP_CTRL_COPY} - EVP_CTRL_COPY = $8; - {$EXTERNALSYM EVP_CTRL_GCM_SET_IVLEN} - EVP_CTRL_GCM_SET_IVLEN = $9; - {$EXTERNALSYM EVP_CTRL_GCM_GET_TAG} - EVP_CTRL_GCM_GET_TAG = $10; - {$EXTERNALSYM EVP_CTRL_GCM_SET_TAG} - EVP_CTRL_GCM_SET_TAG = $11; - {$EXTERNALSYM EVP_CTRL_GCM_SET_IV_FIXED} - EVP_CTRL_GCM_SET_IV_FIXED = $12; - {$EXTERNALSYM EVP_CTRL_GCM_IV_GEN} - EVP_CTRL_GCM_IV_GEN = $13; - {$EXTERNALSYM EVP_CTRL_CCM_SET_IVLEN} - EVP_CTRL_CCM_SET_IVLEN = EVP_CTRL_GCM_SET_IVLEN; - {$EXTERNALSYM EVP_CTRL_CCM_GET_TAG} - EVP_CTRL_CCM_GET_TAG = EVP_CTRL_GCM_GET_TAG; - {$EXTERNALSYM EVP_CTRL_CCM_SET_TAG} - EVP_CTRL_CCM_SET_TAG = EVP_CTRL_GCM_SET_TAG; - {$EXTERNALSYM EVP_CTRL_CCM_SET_L} - EVP_CTRL_CCM_SET_L = $14; - {$EXTERNALSYM EVP_CTRL_CCM_SET_MSGLEN} - EVP_CTRL_CCM_SET_MSGLEN = $15; - -///* AEAD cipher deduces payload length and returns number of bytes -// * required to store MAC and eventual padding. Subsequent call to -// * EVP_Cipher even appends/verifies MAC. -// */ - {$EXTERNALSYM EVP_CTRL_AEAD_TLS1_AAD} - EVP_CTRL_AEAD_TLS1_AAD = $16; -//* Used by composite AEAD ciphers, no-op in GCM, CCM... */ - {$EXTERNALSYM EVP_CTRL_AEAD_SET_MAC_KEY} - EVP_CTRL_AEAD_SET_MAC_KEY = $17; -//* Set the GCM invocation field, decrypt only */ - {$EXTERNALSYM EVP_CTRL_GCM_SET_IV_INV} - EVP_CTRL_GCM_SET_IV_INV = $18; -//* PBE type */ - -//* GCM TLS constants */ -//* Length of fixed part of IV derived from PRF */ - {$EXTERNALSYM EVP_GCM_TLS_FIXED_IV_LEN} - EVP_GCM_TLS_FIXED_IV_LEN = 4; -//* Length of explicit part of IV part of TLS records */ - {$EXTERNALSYM EVP_GCM_TLS_EXPLICIT_IV_LEN} - EVP_GCM_TLS_EXPLICIT_IV_LEN = 8; -//* Length of tag for TLS */ - {$EXTERNALSYM EVP_GCM_TLS_TAG_LEN} - EVP_GCM_TLS_TAG_LEN = 16; - -//* Can appear as the outermost AlgorithmIdentifier */ - {$EXTERNALSYM EVP_PBE_TYPE_OUTER} - EVP_PBE_TYPE_OUTER = $0; -//* Is an PRF type OID */ - {$EXTERNALSYM EVP_PBE_TYPE_PRF} - EVP_PBE_TYPE_PRF = $1; - - {$EXTERNALSYM ASN1_PKEY_ALIAS} - ASN1_PKEY_ALIAS = $1; - {$EXTERNALSYM ASN1_PKEY_DYNAMIC} - ASN1_PKEY_DYNAMIC = $2; - {$EXTERNALSYM ASN1_PKEY_SIGPARAM_NULL} - ASN1_PKEY_SIGPARAM_NULL = $4; - {$EXTERNALSYM ASN1_PKEY_CTRL_PKCS7_SIGN} - ASN1_PKEY_CTRL_PKCS7_SIGN = $1; - {$EXTERNALSYM ASN1_PKEY_CTRL_PKCS7_ENCRYPT} - ASN1_PKEY_CTRL_PKCS7_ENCRYPT = $2; - {$EXTERNALSYM ASN1_PKEY_CTRL_DEFAULT_MD_NID} - ASN1_PKEY_CTRL_DEFAULT_MD_NID = $3; - {$EXTERNALSYM ASN1_PKEY_CTRL_CMS_SIGN} - ASN1_PKEY_CTRL_CMS_SIGN = $5; - {$EXTERNALSYM ASN1_PKEY_CTRL_CMS_ENVELOPE} - ASN1_PKEY_CTRL_CMS_ENVELOPE = $7; - - {$EXTERNALSYM EVP_PKEY_OP_UNDEFINED} - EVP_PKEY_OP_UNDEFINED = 0; - {$EXTERNALSYM EVP_PKEY_OP_PARAMGEN} - EVP_PKEY_OP_PARAMGEN =(1 shl 1); - {$EXTERNALSYM EVP_PKEY_OP_KEYGEN} - EVP_PKEY_OP_KEYGEN = (1 shl 2); - {$EXTERNALSYM EVP_PKEY_OP_SIGN} - EVP_PKEY_OP_SIGN = (1 shl 3); - {$EXTERNALSYM EVP_PKEY_OP_VERIFY} - EVP_PKEY_OP_VERIFY = (1 shl 4); - {$EXTERNALSYM EVP_PKEY_OP_VERIFYRECOVER} - EVP_PKEY_OP_VERIFYRECOVER = (1 shl 5); - {$EXTERNALSYM EVP_PKEY_OP_SIGNCTX} - EVP_PKEY_OP_SIGNCTX = (1 shl 6); - {$EXTERNALSYM EVP_PKEY_OP_VERIFYCTX} - EVP_PKEY_OP_VERIFYCTX = (1 shl 7); - {$EXTERNALSYM EVP_PKEY_OP_ENCRYPT} - EVP_PKEY_OP_ENCRYPT = (1 shl 8); - {$EXTERNALSYM EVP_PKEY_OP_DECRYPT} - EVP_PKEY_OP_DECRYPT = (1 shl 9); - {$EXTERNALSYM EVP_PKEY_OP_DERIVE} - EVP_PKEY_OP_DERIVE = (1 shl 10); - - {$EXTERNALSYM EVP_PKEY_OP_TYPE_SIG} - EVP_PKEY_OP_TYPE_SIG = - {$EXTERNALSYM EVP_PKEY_OP_TYPE_CRYPT} - (EVP_PKEY_OP_SIGN or EVP_PKEY_OP_VERIFY or EVP_PKEY_OP_VERIFYRECOVER - {$EXTERNALSYM EVP_PKEY_OP_TYPE_CRYPT} - or EVP_PKEY_OP_SIGNCTX or EVP_PKEY_OP_VERIFYCTX); - - {$EXTERNALSYM EVP_PKEY_OP_TYPE_CRYPT} - EVP_PKEY_OP_TYPE_CRYPT = (EVP_PKEY_OP_ENCRYPT or EVP_PKEY_OP_DECRYPT); - -// EVP_PKEY_OP_TYPE_NOGEN = -// (EVP_PKEY_OP_SIG or EVP_PKEY_OP_CRYPT or EVP_PKEY_OP_DERIVE); -// guessing from above. THere may be a typo in the header. - {$EXTERNALSYM EVP_PKEY_OP_TYPE_NOGEN} - EVP_PKEY_OP_TYPE_NOGEN = - {$EXTERNALSYM EVP_PKEY_OP_TYPE_GEN} - (EVP_PKEY_OP_TYPE_SIG or EVP_PKEY_OP_TYPE_CRYPT or EVP_PKEY_OP_DERIVE); - - {$EXTERNALSYM EVP_PKEY_OP_TYPE_GEN} - EVP_PKEY_OP_TYPE_GEN = - (EVP_PKEY_OP_PARAMGEN or EVP_PKEY_OP_KEYGEN); - - {$EXTERNALSYM EVP_PKEY_CTRL_MD} - EVP_PKEY_CTRL_MD = 1; - {$EXTERNALSYM EVP_PKEY_CTRL_PEER_KEY} - EVP_PKEY_CTRL_PEER_KEY = 2; - - {$EXTERNALSYM EVP_PKEY_CTRL_PKCS7_ENCRYPT} - EVP_PKEY_CTRL_PKCS7_ENCRYPT = 3; - {$EXTERNALSYM EVP_PKEY_CTRL_PKCS7_DECRYPT} - EVP_PKEY_CTRL_PKCS7_DECRYPT = 4; - - {$EXTERNALSYM EVP_PKEY_CTRL_PKCS7_SIGN} - EVP_PKEY_CTRL_PKCS7_SIGN = 5; - - {$EXTERNALSYM EVP_PKEY_CTRL_SET_MAC_KEY} - EVP_PKEY_CTRL_SET_MAC_KEY = 6; - - {$EXTERNALSYM EVP_PKEY_CTRL_DIGESTINIT} - EVP_PKEY_CTRL_DIGESTINIT = 7; - -//* Used by GOST key encryption in TLS */ - - {$EXTERNALSYM EVP_PKEY_CTRL_SET_IV} - EVP_PKEY_CTRL_SET_IV = 8; - {$EXTERNALSYM EVP_PKEY_CTRL_CMS_ENCRYPT} - EVP_PKEY_CTRL_CMS_ENCRYPT = 9; - {$EXTERNALSYM EVP_PKEY_CTRL_CMS_DECRYPT} - EVP_PKEY_CTRL_CMS_DECRYPT = 10; - {$EXTERNALSYM EVP_PKEY_CTRL_CMS_SIGN} - EVP_PKEY_CTRL_CMS_SIGN = 11; - {$EXTERNALSYM EVP_PKEY_CTRL_CIPHER} - EVP_PKEY_CTRL_CIPHER = 12; - {$EXTERNALSYM EVP_PKEY_ALG_CTRL} - EVP_PKEY_ALG_CTRL = $1000; - - {$EXTERNALSYM EVP_PKEY_FLAG_AUTOARGLEN} - EVP_PKEY_FLAG_AUTOARGLEN = 2; -///* Method handles all operations: don't assume any digest related -// * defaults. -// */ - {$EXTERNALSYM EVP_PKEY_FLAG_SIGCTX_CUSTOM} - EVP_PKEY_FLAG_SIGCTX_CUSTOM = 4; - {$EXTERNALSYM EVP_F_AESNI_INIT_KEY} - EVP_F_AESNI_INIT_KEY = 165; - {$EXTERNALSYM EVP_F_AESNI_XTS_CIPHER} - EVP_F_AESNI_XTS_CIPHER = 176; - {$EXTERNALSYM EVP_F_AES_INIT_KEY} - EVP_F_AES_INIT_KEY = 133; - {$EXTERNALSYM EVP_F_ALG_MODULE_INIT} - EVP_F_ALG_MODULE_INIT = 138; - {$EXTERNALSYM EVP_F_AES_XTS} - EVP_F_AES_XTS = 172; - {$EXTERNALSYM EVP_F_AES_XTS_CIPHER} - EVP_F_AES_XTS_CIPHER = 175; - {$EXTERNALSYM EVP_F_CAMELLIA_INIT_KEY} - EVP_F_CAMELLIA_INIT_KEY = 159; - {$EXTERNALSYM EVP_F_CMAC_INIT} - EVP_F_CMAC_INIT = 173; - {$EXTERNALSYM EVP_F_D2I_PKEY} - EVP_F_D2I_PKEY = 100; - {$EXTERNALSYM EVP_F_DO_SIGVER_INIT} - EVP_F_DO_SIGVER_INIT = 161; - {$EXTERNALSYM EVP_F_DO_EVP_ENC_ENGINE} - EVP_F_DO_EVP_ENC_ENGINE = 140; - {$EXTERNALSYM EVP_F_DSAPKEY2PKCS8} - EVP_F_DSAPKEY2PKCS8 = 134; - {$EXTERNALSYM EVP_F_DSA_PKEY2PKCS8} - EVP_F_DSA_PKEY2PKCS8 = 135; - {$EXTERNALSYM EVP_F_ECDSA_PKEY2PKCS8} - EVP_F_ECDSA_PKEY2PKCS8 = 129; - {$EXTERNALSYM EVP_F_ECKEY_PKEY2PKCS8} - EVP_F_ECKEY_PKEY2PKCS8 = 132; - {$EXTERNALSYM EVP_F_EVP_CIPHERINIT_EX} - EVP_F_EVP_CIPHERINIT_EX = 123; - {$EXTERNALSYM EVP_F_EVP_CIPHER_CTX_COPY} - EVP_F_EVP_CIPHER_CTX_COPY = 163; - {$EXTERNALSYM EVP_F_EVP_CIPHER_CTX_CTRL} - EVP_F_EVP_CIPHER_CTX_CTRL = 124; - {$EXTERNALSYM EVP_F_EVP_CIPHER_CTX_SET_KEY_LENGTH} - EVP_F_EVP_CIPHER_CTX_SET_KEY_LENGTH = 122; - {$EXTERNALSYM EVP_F_EVP_DECRYPTFINAL_EX} - EVP_F_EVP_DECRYPTFINAL_EX = 101; - //was EVP_F_EVP_DECRYPTFINAL = 101; - {$EXTERNALSYM EVP_F_EVP_DIGESTINIT_EX} - EVP_F_EVP_DIGESTINIT_EX = 128; - {$EXTERNALSYM EVP_F_EVP_ENCRYPTFINAL_EX} - EVP_F_EVP_ENCRYPTFINAL_EX = 127; - {$EXTERNALSYM EVP_F_EVP_MD_CTX_COPY_EX} - EVP_F_EVP_MD_CTX_COPY_EX = 110; - {$EXTERNALSYM EVP_F_EVP_MD_SIZE} - EVP_F_EVP_MD_SIZE = 162; - //was EVP_F_EVP_MD_CTX_COPY = 110; - {$EXTERNALSYM EVP_F_EVP_OPENINIT} - EVP_F_EVP_OPENINIT = 102; - {$EXTERNALSYM EVP_F_EVP_PBE_ALG_ADD} - EVP_F_EVP_PBE_ALG_ADD = 115; - {$EXTERNALSYM EVP_F_EVP_PBE_ALG_ADD_TYPE} - EVP_F_EVP_PBE_ALG_ADD_TYPE = 160; - {$EXTERNALSYM EVP_F_EVP_PBE_CIPHERINIT} - EVP_F_EVP_PBE_CIPHERINIT = 116; - {$EXTERNALSYM EVP_F_EVP_PKCS82PKEY} - EVP_F_EVP_PKCS82PKEY = 111; - {$EXTERNALSYM EVP_F_EVP_PKEY2PKCS8_BROKEN} - EVP_F_EVP_PKEY2PKCS8_BROKEN = 113; - //was EVP_F_EVP_PKEY2PKCS8 = 113; - {$EXTERNALSYM EVP_F_EVP_PKCS82PKEY_BROKEN} - EVP_F_EVP_PKCS82PKEY_BROKEN = 136; - {$EXTERNALSYM EVP_F_EVP_PKEY_COPY_PARAMETERS} - EVP_F_EVP_PKEY_COPY_PARAMETERS = 103; - {$EXTERNALSYM EVP_F_EVP_PKEY_CTX_CTRL} - EVP_F_EVP_PKEY_CTX_CTRL = 137; - {$EXTERNALSYM EVP_F_EVP_PKEY_CTX_CTRL_STR} - EVP_F_EVP_PKEY_CTX_CTRL_STR = 150; - {$EXTERNALSYM EVP_F_EVP_PKEY_CTX_DUP} - EVP_F_EVP_PKEY_CTX_DUP = 156; - {$EXTERNALSYM EVP_F_EVP_PKEY_DECRYPT} - EVP_F_EVP_PKEY_DECRYPT = 104; - {$EXTERNALSYM EVP_F_EVP_PKEY_DECRYPT_INIT} - EVP_F_EVP_PKEY_DECRYPT_INIT = 138; - {$EXTERNALSYM EVP_F_EVP_PKEY_DECRYPT_OLD} - EVP_F_EVP_PKEY_DECRYPT_OLD = 151; - {$EXTERNALSYM EVP_F_EVP_PKEY_DERIVE} - EVP_F_EVP_PKEY_DERIVE = 153; - {$EXTERNALSYM EVP_F_EVP_PKEY_DERIVE_INIT} - EVP_F_EVP_PKEY_DERIVE_INIT = 154; - {$EXTERNALSYM EVP_F_EVP_PKEY_DERIVE_SET_PEER} - EVP_F_EVP_PKEY_DERIVE_SET_PEER = 155; - {$EXTERNALSYM EVP_F_EVP_PKEY_ENCRYPT} - EVP_F_EVP_PKEY_ENCRYPT = 105; - {$EXTERNALSYM EVP_F_EVP_PKEY_ENCRYPT_INIT} - EVP_F_EVP_PKEY_ENCRYPT_INIT = 139; - {$EXTERNALSYM EVP_F_EVP_PKEY_ENCRYPT_OLD} - EVP_F_EVP_PKEY_ENCRYPT_OLD = 152; - {$EXTERNALSYM EVP_F_EVP_PKEY_GET1_DH} - EVP_F_EVP_PKEY_GET1_DH = 119; - {$EXTERNALSYM EVP_F_EVP_PKEY_GET1_DSA} - EVP_F_EVP_PKEY_GET1_DSA = 120; - {$EXTERNALSYM EVP_F_EVP_PKEY_GET1_ECDSA} - EVP_F_EVP_PKEY_GET1_ECDSA = 130; - {$EXTERNALSYM EVP_F_EVP_PKEY_GET1_EC_KEY} - EVP_F_EVP_PKEY_GET1_EC_KEY = 131; - {$EXTERNALSYM EVP_F_EVP_PKEY_GET1_RSA} - EVP_F_EVP_PKEY_GET1_RSA = 121; - {$EXTERNALSYM EVP_F_EVP_PKEY_KEYGEN} - EVP_F_EVP_PKEY_KEYGEN = 146; - {$EXTERNALSYM EVP_F_EVP_PKEY_KEYGEN_INIT} - EVP_F_EVP_PKEY_KEYGEN_INIT = 147; - {$EXTERNALSYM EVP_F_EVP_PKEY_NEW} - EVP_F_EVP_PKEY_NEW = 106; - {$EXTERNALSYM EVP_F_EVP_PKEY_PARAMGEN} - EVP_F_EVP_PKEY_PARAMGEN = 148; - {$EXTERNALSYM EVP_F_EVP_PKEY_PARAMGEN_INIT} - EVP_F_EVP_PKEY_PARAMGEN_INIT = 149; - {$EXTERNALSYM EVP_F_EVP_PKEY_SIGN} - EVP_F_EVP_PKEY_SIGN = 140; - {$EXTERNALSYM EVP_F_EVP_PKEY_SIGN_INIT} - EVP_F_EVP_PKEY_SIGN_INIT = 141; - {$EXTERNALSYM EVP_F_EVP_PKEY_VERIFY} - EVP_F_EVP_PKEY_VERIFY = 142; - {$EXTERNALSYM EVP_F_EVP_PKEY_VERIFY_INIT} - EVP_F_EVP_PKEY_VERIFY_INIT = 143; - {$EXTERNALSYM EVP_F_EVP_PKEY_VERIFY_RECOVER} - EVP_F_EVP_PKEY_VERIFY_RECOVER = 144; - {$EXTERNALSYM EVP_F_EVP_PKEY_VERIFY_RECOVER_INIT} - EVP_F_EVP_PKEY_VERIFY_RECOVER_INIT = 145; - {$EXTERNALSYM EVP_F_EVP_RIJNDAEL} - EVP_F_EVP_RIJNDAEL = 126; - {$EXTERNALSYM EVP_F_EVP_SIGNFINAL} - EVP_F_EVP_SIGNFINAL = 107; - {$EXTERNALSYM EVP_F_EVP_VERIFYFINAL} - EVP_F_EVP_VERIFYFINAL = 108; - {$EXTERNALSYM EVP_F_FIPS_CIPHERINIT} - EVP_F_FIPS_CIPHERINIT = 166; - {$EXTERNALSYM EVP_F_FIPS_CIPHER_CTX_COPY} - EVP_F_FIPS_CIPHER_CTX_COPY = 170; - {$EXTERNALSYM EVP_F_FIPS_CIPHER_CTX_CTRL} - EVP_F_FIPS_CIPHER_CTX_CTRL = 167; - {$EXTERNALSYM EVP_F_FIPS_CIPHER_CTX_SET_KEY_LENGTH} - EVP_F_FIPS_CIPHER_CTX_SET_KEY_LENGTH = 171; - {$EXTERNALSYM EVP_F_FIPS_DIGESTINIT} - EVP_F_FIPS_DIGESTINIT = 168; - {$EXTERNALSYM EVP_F_FIPS_MD_CTX_COPY} - EVP_F_FIPS_MD_CTX_COPY = 169; - {$EXTERNALSYM EVP_F_HMAC_INIT_EX} - EVP_F_HMAC_INIT_EX = 174; - {$EXTERNALSYM EVP_F_INT_CTX_NEW} - EVP_F_INT_CTX_NEW = 157; - {$EXTERNALSYM EVP_F_PKCS5_PBE_KEYIVGEN} - EVP_F_PKCS5_PBE_KEYIVGEN = 117; - {$EXTERNALSYM EVP_F_PKCS5_V2_PBKDF2_KEYIVGEN} - EVP_F_PKCS5_V2_PBKDF2_KEYIVGEN = 164; - - {$EXTERNALSYM EVP_F_PKCS5_V2_PBE_KEYIVGEN} - EVP_F_PKCS5_V2_PBE_KEYIVGEN = 118; - {$EXTERNALSYM EVP_F_PKCS8_SET_BROKEN} - EVP_F_PKCS8_SET_BROKEN = 112; - {$EXTERNALSYM EVP_F_PKEY_SET_TYPE} - EVP_F_PKEY_SET_TYPE = 158; - - //was EVP_F_EVP_PKCS8_SET_BROKEN = 112; - {$EXTERNALSYM EVP_F_RC2_MAGIC_TO_METH} - EVP_F_RC2_MAGIC_TO_METH = 109; - {$EXTERNALSYM EVP_F_RC5_CTRL} - EVP_F_RC5_CTRL = 125; - {$EXTERNALSYM EVP_R_AES_IV_SETUP_FAILED} - EVP_R_AES_IV_SETUP_FAILED = 162; - {$EXTERNALSYM EVP_R_AES_KEY_SETUP_FAILED} - EVP_R_AES_KEY_SETUP_FAILED = 143; - {$EXTERNALSYM EVP_R_ASN1_LIB} - EVP_R_ASN1_LIB = 140; - {$EXTERNALSYM EVP_R_BAD_BLOCK_LENGTH} - EVP_R_BAD_BLOCK_LENGTH = 136; - {$EXTERNALSYM EVP_R_BAD_DECRYPT} - EVP_R_BAD_DECRYPT = 100; - {$EXTERNALSYM EVP_R_BN_DECODE_ERROR} - EVP_R_BN_DECODE_ERROR = 112; - {$EXTERNALSYM EVP_R_BN_PUBKEY_ERROR} - EVP_R_BN_PUBKEY_ERROR = 113; - {$EXTERNALSYM EVP_R_BUFFER_TOO_SMALL} - EVP_R_BUFFER_TOO_SMALL = 155; - {$EXTERNALSYM EVP_R_CIPHER_PARAMETER_ERROR} - EVP_R_CIPHER_PARAMETER_ERROR = 122; - {$EXTERNALSYM EVP_R_COMMAND_NOT_SUPPORTED} - EVP_R_COMMAND_NOT_SUPPORTED = 147; - {$EXTERNALSYM EVP_R_DECODE_ERROR} - EVP_R_DECODE_ERROR = 114; - {$EXTERNALSYM EVP_R_DIFFERENT_KEY_TYPES} - EVP_R_DIFFERENT_KEY_TYPES = 101; - {$EXTERNALSYM EVP_R_DIFFERENT_PARAMETERS} - EVP_R_DIFFERENT_PARAMETERS = 153; - {$EXTERNALSYM EVP_R_DISABLED_FOR_FIPS} - EVP_R_DISABLED_FOR_FIPS = 163; //was 144; - - {$EXTERNALSYM EVP_R_ENCODE_ERROR} - EVP_R_ENCODE_ERROR = 115; - {$EXTERNALSYM EVP_R_ERROR_LOADING_SECTION} - EVP_R_ERROR_LOADING_SECTION = 165; - {$EXTERNALSYM EVP_R_ERROR_SETTING_FIPS_MODE} - EVP_R_ERROR_SETTING_FIPS_MODE = 166; - - {$EXTERNALSYM EVP_R_EVP_PBE_CIPHERINIT_ERROR} - EVP_R_EVP_PBE_CIPHERINIT_ERROR = 119; - {$EXTERNALSYM EVP_R_EXPECTING_AN_RSA_KEY} - EVP_R_EXPECTING_AN_RSA_KEY = 127; - {$EXTERNALSYM EVP_R_EXPECTING_A_DH_KEY} - EVP_R_EXPECTING_A_DH_KEY = 128; - {$EXTERNALSYM EVP_R_EXPECTING_A_DSA_KEY} - EVP_R_EXPECTING_A_DSA_KEY = 129; - {$EXTERNALSYM EVP_R_EXPECTING_A_ECDSA_KEY} - EVP_R_EXPECTING_A_ECDSA_KEY = 141; - {$EXTERNALSYM EVP_R_EXPECTING_A_EC_KEY} - EVP_R_EXPECTING_A_EC_KEY = 142; - {$EXTERNALSYM EVP_R_FIPS_MODE_NOT_SUPPORTED} - EVP_R_FIPS_MODE_NOT_SUPPORTED = 167; - {$EXTERNALSYM EVP_R_INITIALIZATION_ERROR} - EVP_R_INITIALIZATION_ERROR = 134; - {$EXTERNALSYM EVP_R_INPUT_NOT_INITIALIZED} - EVP_R_INPUT_NOT_INITIALIZED = 111; - {$EXTERNALSYM EVP_R_INVALID_DIGEST} - EVP_R_INVALID_DIGEST = 152; - {$EXTERNALSYM EVP_R_INVALID_KEY_LENGTH} - EVP_R_INVALID_KEY_LENGTH = 130; - {$EXTERNALSYM EVP_R_INVALID_OPERATION} - EVP_R_INVALID_OPERATION = 148; - {$EXTERNALSYM EVP_R_INVALID_FIPS_MODE} - EVP_R_INVALID_FIPS_MODE = 168; //was: 148; - {$EXTERNALSYM EVP_R_IV_TOO_LARGE} - EVP_R_IV_TOO_LARGE = 102; - {$EXTERNALSYM EVP_R_KEYGEN_FAILURE} - EVP_R_KEYGEN_FAILURE = 120; - {$EXTERNALSYM EVP_R_MESSAGE_DIGEST_IS_NULL} - EVP_R_MESSAGE_DIGEST_IS_NULL = 159; - {$EXTERNALSYM EVP_R_METHOD_NOT_SUPPORTED} - EVP_R_METHOD_NOT_SUPPORTED = 144; - {$EXTERNALSYM EVP_R_MISSING_PARMATERS} - EVP_R_MISSING_PARMATERS = 103; - {$EXTERNALSYM EVP_R_NO_CIPHER_SET} - EVP_R_NO_CIPHER_SET = 131; - {$EXTERNALSYM EVP_R_NO_DEFAULT_DIGEST} - EVP_R_NO_DEFAULT_DIGEST = 158; - {$EXTERNALSYM EVP_R_NO_DIGEST_SET} - EVP_R_NO_DIGEST_SET = 139; - {$EXTERNALSYM EVP_R_NO_DSA_PARAMETERS} - EVP_R_NO_DSA_PARAMETERS = 116; - {$EXTERNALSYM EVP_R_NO_KEY_SET} - EVP_R_NO_KEY_SET = 154; - {$EXTERNALSYM EVP_R_NO_OPERATION_SET} - EVP_R_NO_OPERATION_SET = 149; - {$EXTERNALSYM EVP_R_NO_SIGN_FUNCTION_CONFIGURED} - EVP_R_NO_SIGN_FUNCTION_CONFIGURED = 104; - {$EXTERNALSYM EVP_R_NO_VERIFY_FUNCTION_CONFIGURED} - EVP_R_NO_VERIFY_FUNCTION_CONFIGURED = 105; - {$EXTERNALSYM EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE} - EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE = 150; - {$EXTERNALSYM EVP_R_OPERATON_NOT_INITIALIZED} - EVP_R_OPERATON_NOT_INITIALIZED = 151; - {$EXTERNALSYM EVP_R_PKCS8_UNKNOWN_BROKEN_TYPE} - EVP_R_PKCS8_UNKNOWN_BROKEN_TYPE = 117; - {$EXTERNALSYM EVP_R_PRIVATE_KEY_DECODE_ERROR} - EVP_R_PRIVATE_KEY_DECODE_ERROR = 145; - {$EXTERNALSYM EVP_R_PRIVATE_KEY_ENCODE_ERROR} - EVP_R_PRIVATE_KEY_ENCODE_ERROR = 146; - {$EXTERNALSYM EVP_R_PUBLIC_KEY_NOT_RSA} - EVP_R_PUBLIC_KEY_NOT_RSA = 106; - {$EXTERNALSYM EVP_R_TOO_LARGE} - EVP_R_TOO_LARGE = 164; - {$EXTERNALSYM EVP_R_UNKNOWN_CIPHER} - EVP_R_UNKNOWN_CIPHER = 160; - {$EXTERNALSYM EVP_R_UNKNOWN_DIGEST} - EVP_R_UNKNOWN_DIGEST = 161; - {$EXTERNALSYM EVP_R_UNKNOWN_OPTION} - EVP_R_UNKNOWN_OPTION = 169; //149; - {$EXTERNALSYM EVP_R_UNKNOWN_PBE_ALGORITHM} - EVP_R_UNKNOWN_PBE_ALGORITHM = 121; - {$EXTERNALSYM EVP_R_UNSUPPORTED_CIPHER} - EVP_R_UNSUPPORTED_CIPHER = 107; - {$EXTERNALSYM EVP_R_UNSUPORTED_NUMBER_OF_ROUNDS} - EVP_R_UNSUPORTED_NUMBER_OF_ROUNDS = 135; - - {$EXTERNALSYM EVP_R_UNSUPPORTED_KEYLENGTH} - EVP_R_UNSUPPORTED_KEYLENGTH = 123; - {$EXTERNALSYM EVP_R_UNSUPPORTED_KEY_DERIVATION_FUNCTION} - EVP_R_UNSUPPORTED_KEY_DERIVATION_FUNCTION = 124; - {$EXTERNALSYM EVP_R_UNSUPPORTED_KEY_SIZE} - EVP_R_UNSUPPORTED_KEY_SIZE = 108; - {$EXTERNALSYM EVP_R_UNSUPPORTED_PRF} - EVP_R_UNSUPPORTED_PRF = 125; - {$EXTERNALSYM EVP_R_UNSUPPORTED_PRIVATE_KEY_ALGORITHM} - EVP_R_UNSUPPORTED_PRIVATE_KEY_ALGORITHM = 118; - {$EXTERNALSYM EVP_R_UNSUPPORTED_SALT_TYPE} - EVP_R_UNSUPPORTED_SALT_TYPE = 126; - {$EXTERNALSYM EVP_R_WRONG_FINAL_BLOCK_LENGTH} - EVP_R_WRONG_FINAL_BLOCK_LENGTH = 109; - {$EXTERNALSYM EVP_R_WRONG_PUBLIC_KEY_TYPE} - EVP_R_WRONG_PUBLIC_KEY_TYPE = 110; - {$EXTERNALSYM EVP_R_SEED_KEY_SETUP_FAILED} - EVP_R_SEED_KEY_SETUP_FAILED = 162; - {$IFDEF OPENSSL_FIPS} -//* Function codes. */ - {$EXTERNALSYM FIPS_F_DH_BUILTIN_GENPARAMS} - FIPS_F_DH_BUILTIN_GENPARAMS = 100; - {$EXTERNALSYM FIPS_F_DSA_BUILTIN_PARAMGEN} - FIPS_F_DSA_BUILTIN_PARAMGEN = 101; - {$EXTERNALSYM FIPS_F_DSA_DO_SIGN} - FIPS_F_DSA_DO_SIGN = 102; - {$EXTERNALSYM FIPS_F_DSA_DO_VERIFY} - FIPS_F_DSA_DO_VERIFY = 103; - {$EXTERNALSYM FIPS_F_EVP_CIPHERINIT_EX} - FIPS_F_EVP_CIPHERINIT_EX = 124; - {$EXTERNALSYM FIPS_F_EVP_DIGESTINIT_EX} - FIPS_F_EVP_DIGESTINIT_EX = 125; - {$EXTERNALSYM FIPS_F_FIPS_CHECK_DSA} - FIPS_F_FIPS_CHECK_DSA = 104; - {$EXTERNALSYM FIPS_F_FIPS_CHECK_INCORE_FINGERPRINT} - FIPS_F_FIPS_CHECK_INCORE_FINGERPRINT = 105; - {$EXTERNALSYM FIPS_F_FIPS_CHECK_RSA} - FIPS_F_FIPS_CHECK_RSA = 106; - {$EXTERNALSYM FIPS_F_FIPS_DSA_CHECK} - FIPS_F_FIPS_DSA_CHECK = 107; - {$EXTERNALSYM FIPS_F_FIPS_MODE_SET} - FIPS_F_FIPS_MODE_SET = 108; - {$EXTERNALSYM FIPS_F_FIPS_PKEY_SIGNATURE_TEST} - FIPS_F_FIPS_PKEY_SIGNATURE_TEST = 109; - {$EXTERNALSYM FIPS_F_FIPS_SELFTEST_AES} - FIPS_F_FIPS_SELFTEST_AES = 110; - {$EXTERNALSYM FIPS_F_FIPS_SELFTEST_DES} - FIPS_F_FIPS_SELFTEST_DES = 111; - {$EXTERNALSYM FIPS_F_FIPS_SELFTEST_DSA} - FIPS_F_FIPS_SELFTEST_DSA = 112; - {$EXTERNALSYM FIPS_F_FIPS_SELFTEST_HMAC} - FIPS_F_FIPS_SELFTEST_HMAC = 113; - {$EXTERNALSYM FIPS_F_FIPS_SELFTEST_RNG} - FIPS_F_FIPS_SELFTEST_RNG = 114; - {$EXTERNALSYM FIPS_F_FIPS_SELFTEST_SHA1} - FIPS_F_FIPS_SELFTEST_SHA1 = 115; - {$EXTERNALSYM FIPS_F_HASH_FINAL} - FIPS_F_HASH_FINAL = 123; - {$EXTERNALSYM FIPS_F_RSA_BUILTIN_KEYGEN} - FIPS_F_RSA_BUILTIN_KEYGEN = 116; - {$EXTERNALSYM FIPS_F_RSA_EAY_PRIVATE_DECRYPT} - FIPS_F_RSA_EAY_PRIVATE_DECRYPT = 117; - {$EXTERNALSYM FIPS_F_RSA_EAY_PRIVATE_ENCRYPT} - FIPS_F_RSA_EAY_PRIVATE_ENCRYPT = 118; - {$EXTERNALSYM FIPS_F_RSA_EAY_PUBLIC_DECRYPT} - FIPS_F_RSA_EAY_PUBLIC_DECRYPT = 119; - {$EXTERNALSYM FIPS_F_RSA_EAY_PUBLIC_ENCRYPT} - FIPS_F_RSA_EAY_PUBLIC_ENCRYPT = 120; - {$EXTERNALSYM FIPS_F_RSA_X931_GENERATE_KEY_EX} - FIPS_F_RSA_X931_GENERATE_KEY_EX = 121; - {$EXTERNALSYM FIPS_F_SSLEAY_RAND_BYTES} - FIPS_F_SSLEAY_RAND_BYTES = 122; -//* Reason codes. */ - {$EXTERNALSYM FIPS_R_CANNOT_READ_EXE} - FIPS_R_CANNOT_READ_EXE = 103; - {$EXTERNALSYM FIPS_R_CANNOT_READ_EXE_DIGEST} - FIPS_R_CANNOT_READ_EXE_DIGEST = 104; - {$EXTERNALSYM FIPS_R_CONTRADICTING_EVIDENCE} - FIPS_R_CONTRADICTING_EVIDENCE = 114; - {$EXTERNALSYM FIPS_R_EXE_DIGEST_DOES_NOT_MATCH} - FIPS_R_EXE_DIGEST_DOES_NOT_MATCH = 105; - {$EXTERNALSYM FIPS_R_FINGERPRINT_DOES_NOT_MATCH} - FIPS_R_FINGERPRINT_DOES_NOT_MATCH = 110; - {$EXTERNALSYM FIPS_R_FINGERPRINT_DOES_NOT_MATCH_NONPIC_RELOCATED} - FIPS_R_FINGERPRINT_DOES_NOT_MATCH_NONPIC_RELOCATED = 111; - {$EXTERNALSYM FIPS_R_FINGERPRINT_DOES_NOT_MATCH_SEGMENT_ALIASING} - FIPS_R_FINGERPRINT_DOES_NOT_MATCH_SEGMENT_ALIASING = 112; - {$EXTERNALSYM FIPS_R_FIPS_MODE_ALREADY_SET} - FIPS_R_FIPS_MODE_ALREADY_SET = 102; - {$EXTERNALSYM FIPS_R_FIPS_SELFTEST_FAILED} - FIPS_R_FIPS_SELFTEST_FAILED = 106; - {$EXTERNALSYM FIPS_R_INVALID_KEY_LENGTH} - FIPS_R_INVALID_KEY_LENGTH = 109; - {$EXTERNALSYM FIPS_R_KEY_TOO_SHORT} - FIPS_R_KEY_TOO_SHORT = 108; - {$EXTERNALSYM FIPS_R_NON_FIPS_METHOD} - FIPS_R_NON_FIPS_METHOD = 100; - {$EXTERNALSYM FIPS_R_PAIRWISE_TEST_FAILED} - FIPS_R_PAIRWISE_TEST_FAILED = 107; - {$EXTERNALSYM FIPS_R_RSA_DECRYPT_ERROR} - FIPS_R_RSA_DECRYPT_ERROR = 115; - {$EXTERNALSYM FIPS_R_RSA_ENCRYPT_ERROR} - FIPS_R_RSA_ENCRYPT_ERROR = 116; - {$EXTERNALSYM FIPS_R_SELFTEST_FAILED} - FIPS_R_SELFTEST_FAILED = 101; - {$EXTERNALSYM FIPS_R_TEST_FAILURE} - FIPS_R_TEST_FAILURE = 117; - {$EXTERNALSYM FIPS_R_UNSUPPORTED_PLATFORM} - FIPS_R_UNSUPPORTED_PLATFORM = 113; - {$ENDIF} - {$IFNDEF OPENSSL_NO_ENGINE} -//* These flags are used to control combinations of algorithm (methods) -// * by bitwise "OR"ing. */ - {$EXTERNALSYM ENGINE_METHOD_RSA : TIdC_UINT} - ENGINE_METHOD_RSA : TIdC_UINT = $0001; - {$EXTERNALSYM ENGINE_METHOD_DSA : TIdC_UINT} - ENGINE_METHOD_DSA : TIdC_UINT = $0002; - {$EXTERNALSYM ENGINE_METHOD_DH : TIdC_UINT} - ENGINE_METHOD_DH : TIdC_UINT = $0004; - {$EXTERNALSYM ENGINE_METHOD_RAND : TIdC_UINT} - ENGINE_METHOD_RAND : TIdC_UINT = $0008; - {$EXTERNALSYM ENGINE_METHOD_ECDH : TIdC_UINT} - ENGINE_METHOD_ECDH : TIdC_UINT = $0010; - {$EXTERNALSYM ENGINE_METHOD_ECDSA : TIdC_UINT} - ENGINE_METHOD_ECDSA : TIdC_UINT = $0020; - {$EXTERNALSYM ENGINE_METHOD_CIPHERS : TIdC_UINT} - ENGINE_METHOD_CIPHERS : TIdC_UINT = $0040; - {$EXTERNALSYM ENGINE_METHOD_DIGESTS : TIdC_UINT} - ENGINE_METHOD_DIGESTS : TIdC_UINT = $0080; - {$EXTERNALSYM ENGINE_METHOD_STORE : TIdC_UINT} - ENGINE_METHOD_STORE : TIdC_UINT = $0100; - {$EXTERNALSYM ENGINE_METHOD_PKEY_METHS : TIdC_UINT} - ENGINE_METHOD_PKEY_METHS : TIdC_UINT = $0200; - {$EXTERNALSYM ENGINE_METHOD_PKEY_ASN1_METHS : TIdC_UINT} - ENGINE_METHOD_PKEY_ASN1_METHS : TIdC_UINT = $0400; - -//* Obvious all-or-nothing cases. */ - {$EXTERNALSYM ENGINE_METHOD_ALL : TIdC_UINT} - ENGINE_METHOD_ALL : TIdC_UINT = $FFFF; - {$EXTERNALSYM ENGINE_METHOD_NONE : TIdC_UINT} - ENGINE_METHOD_NONE : TIdC_UINT = $0000; - {$EXTERNALSYM ENGINE_TABLE_FLAG_NOINIT : TIdC_UINT} - ENGINE_TABLE_FLAG_NOINIT : TIdC_UINT = $0001; - - {$EXTERNALSYM ENGINE_FLAGS_MANUAL_CMD_CTRL : TIdC_INT} - ENGINE_FLAGS_MANUAL_CMD_CTRL : TIdC_INT = $0002; - {$EXTERNALSYM ENGINE_FLAGS_BY_ID_COPY : TIdC_INT} - ENGINE_FLAGS_BY_ID_COPY : TIdC_INT = $0004; - {$EXTERNALSYM ENGINE_CMD_FLAG_NUMERIC : TIdC_UINT} - ENGINE_CMD_FLAG_NUMERIC : TIdC_UINT = $0001; - {$EXTERNALSYM ENGINE_CMD_FLAG_STRING : TIdC_UINT} - ENGINE_CMD_FLAG_STRING : TIdC_UINT = $0002; - {$EXTERNALSYM ENGINE_CMD_FLAG_NO_INPUT : TIdC_UINT} - ENGINE_CMD_FLAG_NO_INPUT : TIdC_UINT = $0004; - {$EXTERNALSYM ENGINE_CMD_FLAG_INTERNAL : TIdC_UINT} - ENGINE_CMD_FLAG_INTERNAL : TIdC_UINT = $0008; - - {$EXTERNALSYM ENGINE_CTRL_SET_LOGSTREAM} - ENGINE_CTRL_SET_LOGSTREAM = 1; - {$EXTERNALSYM ENGINE_CTRL_SET_PASSWORD_CALLBACK} - ENGINE_CTRL_SET_PASSWORD_CALLBACK = 2; - {$EXTERNALSYM ENGINE_CTRL_HUP} - ENGINE_CTRL_HUP = 3; - //* Close and reinitialise any - // handles/connections etc. */ - {$EXTERNALSYM ENGINE_CTRL_SET_USER_INTERFACE} - ENGINE_CTRL_SET_USER_INTERFACE = 4; //* Alternative to callback */ - {$EXTERNALSYM _CALLBACK_DATA} - _CALLBACK_DATA = 5; - //* User-specific data, used - // when calling the password - // callback and the user - // interface */ - {$EXTERNALSYM D_CONFIGURATION} - D_CONFIGURATION = 6; - //* Load a configuration, given - //a string that represents a - //file name or so */ - {$EXTERNALSYM D_SECTION} - D_SECTION = 7; - ///* Load data from a given - //section in the already loaded - //configuration */ - -////* Returns non-zero if the supplied ENGINE has a ctrl() handler. If "not", then -// * all the remaining control commands will return failure, so it is worth -// * checking this first if the caller is trying to "discover" the engine's -// * capabilities and doesn't want errors generated unnecessarily. */ - {$EXTERNALSYM ENGINE_CTRL_HAS_CTRL_FUNCTION} - ENGINE_CTRL_HAS_CTRL_FUNCTION = 10; -///* Returns a positive command number for the first command supported by the -// * engine. Returns zero if no ctrl commands are supported. */ - {$EXTERNALSYM ENGINE_CTRL_GET_FIRST_CMD_TYPE} - ENGINE_CTRL_GET_FIRST_CMD_TYPE = 11; -///* The 'long' argument specifies a command implemented by the engine, and the -// * return value is the next command supported, or zero if there are no more. */ - {$EXTERNALSYM ENGINE_CTRL_GET_NEXT_CMD_TYPE} - ENGINE_CTRL_GET_NEXT_CMD_TYPE = 12; -///* The 'void*' argument is a command name (cast from 'const char *'), and the -// * return value is the command that corresponds to it. */ - {$EXTERNALSYM ENGINE_CTRL_GET_CMD_FROM_NAME} - ENGINE_CTRL_GET_CMD_FROM_NAME = 13; -///* The next two allow a command to be converted into its corresponding string -// * form. In each case, the 'long' argument supplies the command. In the NAME_LEN -// * case, the return value is the length of the command name (not counting a -// * trailing EOL). In the NAME case, the 'void*' argument must be a string buffer -// * large enough, and it will be populated with the name of the command (WITH a -// * trailing EOL). */ - {$EXTERNALSYM ENGINE_CTRL_GET_NAME_LEN_FROM_CMD} - ENGINE_CTRL_GET_NAME_LEN_FROM_CMD = 14; - {$EXTERNALSYM ENGINE_CTRL_GET_NAME_FROM_CMD} - ENGINE_CTRL_GET_NAME_FROM_CMD = 15; -//* The next two are similar but give a "short description" of a command. */ - {$EXTERNALSYM ENGINE_CTRL_GET_DESC_LEN_FROM_CMD} - ENGINE_CTRL_GET_DESC_LEN_FROM_CMD = 16; - {$EXTERNALSYM ENGINE_CTRL_GET_DESC_FROM_CMD} - ENGINE_CTRL_GET_DESC_FROM_CMD = 17; -///* With this command, the return value is the OR'd combination of -// * ENGINE_CMD_FLAG_*** values that indicate what kind of input a given -// * engine-specific ctrl command expects. */ - {$EXTERNALSYM ENGINE_CTRL_GET_CMD_FLAGS} - ENGINE_CTRL_GET_CMD_FLAGS = 18; - -///* ENGINE implementations should start the numbering of their own control -// * commands from this value. (ie. ENGINE_CMD_BASE, ENGINE_CMD_BASE + 1, etc). */ - {$EXTERNALSYM ENGINE_CMD_BASE} - ENGINE_CMD_BASE = 200; - -///* NB: These 2 nCipher "chil" control commands are deprecated, and their -// * functionality is now available through ENGINE-specific control commands -// * (exposed through the above-mentioned 'CMD'-handling). Code using these 2 -// * commands should be migrated to the more general command handling before these -// * are removed. */ - -//* Flags specific to the nCipher "chil" engine */ - {$EXTERNALSYM ENGINE_CTRL_CHIL_SET_FORKCHECK} - ENGINE_CTRL_CHIL_SET_FORKCHECK = 100; -///* Depending on the value of the (long)i argument, this sets or -// * unsets the SimpleForkCheck flag in the CHIL API to enable or -// * disable checking and workarounds for applications that fork(). -// */ - {$EXTERNALSYM ENGINE_CTRL_CHIL_NO_LOCKING} - ENGINE_CTRL_CHIL_NO_LOCKING = 101; -///* This prevents the initialisation function from providing mutex -// * callbacks to the nCipher library. */ - -///* Binary/behaviour compatibility levels */ - {$EXTERNALSYM OSSL_DYNAMIC_VERSION : TIdC_UINT} - OSSL_DYNAMIC_VERSION : TIdC_UINT = $00020000; -///* Binary versions older than this are too old for us (whether we're a loader or -// * a loadee) */ - {$EXTERNALSYM OSSL_DYNAMIC_OLDEST : TIdC_UINT} - OSSL_DYNAMIC_OLDEST : TIdC_UINT = $00020000; -//* Function codes. */ - {$EXTERNALSYM ENGINE_F_DYNAMIC_CTRL} - ENGINE_F_DYNAMIC_CTRL = 180; - {$EXTERNALSYM ENGINE_F_DYNAMIC_GET_DATA_CTX} - ENGINE_F_DYNAMIC_GET_DATA_CTX = 181; - {$EXTERNALSYM ENGINE_F_DYNAMIC_LOAD} - ENGINE_F_DYNAMIC_LOAD = 182; - {$EXTERNALSYM ENGINE_F_DYNAMIC_SET_DATA_CTX} - ENGINE_F_DYNAMIC_SET_DATA_CTX = 183; - {$EXTERNALSYM ENGINE_F_ENGINE_ADD} - ENGINE_F_ENGINE_ADD = 105; - {$EXTERNALSYM ENGINE_F_ENGINE_BY_ID} - ENGINE_F_ENGINE_BY_ID = 106; - {$EXTERNALSYM ENGINE_F_ENGINE_CMD_IS_EXECUTABLE} - ENGINE_F_ENGINE_CMD_IS_EXECUTABLE = 170; - {$EXTERNALSYM ENGINE_F_ENGINE_CTRL} - ENGINE_F_ENGINE_CTRL = 142; - {$EXTERNALSYM ENGINE_F_ENGINE_CTRL_CMD} - ENGINE_F_ENGINE_CTRL_CMD = 178; - {$EXTERNALSYM ENGINE_F_ENGINE_CTRL_CMD_STRING} - ENGINE_F_ENGINE_CTRL_CMD_STRING = 171; - {$EXTERNALSYM ENGINE_F_ENGINE_FINISH} - ENGINE_F_ENGINE_FINISH = 107; - {$EXTERNALSYM ENGINE_F_ENGINE_FREE_UTIL} - ENGINE_F_ENGINE_FREE_UTIL = 108; - {$EXTERNALSYM ENGINE_F_ENGINE_GET_CIPHER} - ENGINE_F_ENGINE_GET_CIPHER = 185; - {$EXTERNALSYM ENGINE_F_ENGINE_GET_DEFAULT_TYPE} - ENGINE_F_ENGINE_GET_DEFAULT_TYPE = 177; - {$EXTERNALSYM ENGINE_F_ENGINE_GET_DIGEST} - ENGINE_F_ENGINE_GET_DIGEST = 186; - {$EXTERNALSYM ENGINE_F_ENGINE_GET_NEXT} - ENGINE_F_ENGINE_GET_NEXT = 115; - {$EXTERNALSYM ENGINE_F_ENGINE_GET_PKEY_ASN1_METH} - ENGINE_F_ENGINE_GET_PKEY_ASN1_METH = 193; - {$EXTERNALSYM ENGINE_F_ENGINE_GET_PKEY_METH} - ENGINE_F_ENGINE_GET_PKEY_METH = 192; - {$EXTERNALSYM ENGINE_F_ENGINE_GET_PREV} - ENGINE_F_ENGINE_GET_PREV = 116; - {$EXTERNALSYM ENGINE_F_ENGINE_INIT} - ENGINE_F_ENGINE_INIT = 119; - {$EXTERNALSYM ENGINE_F_ENGINE_LIST_ADD} - ENGINE_F_ENGINE_LIST_ADD = 120; - {$EXTERNALSYM ENGINE_F_ENGINE_LIST_REMOVE} - ENGINE_F_ENGINE_LIST_REMOVE = 121; - {$EXTERNALSYM ENGINE_F_ENGINE_LOAD_PRIVATE_KEY} - ENGINE_F_ENGINE_LOAD_PRIVATE_KEY = 150; - {$EXTERNALSYM ENGINE_F_ENGINE_LOAD_PUBLIC_KEY} - ENGINE_F_ENGINE_LOAD_PUBLIC_KEY = 151; - //was ENGINE_F_ENGINE_LOAD_SSL_CLIENT_CERT = 192; - {$EXTERNALSYM ENGINE_F_ENGINE_LOAD_SSL_CLIENT_CERT} - ENGINE_F_ENGINE_LOAD_SSL_CLIENT_CERT = 194; - - {$EXTERNALSYM ENGINE_F_ENGINE_NEW} - ENGINE_F_ENGINE_NEW = 122; - {$EXTERNALSYM ENGINE_F_ENGINE_REMOVE} - ENGINE_F_ENGINE_REMOVE = 123; - {$EXTERNALSYM ENGINE_F_ENGINE_SET_DEFAULT_STRING} - ENGINE_F_ENGINE_SET_DEFAULT_STRING = 189; - {$EXTERNALSYM ENGINE_F_ENGINE_SET_DEFAULT_TYPE} - ENGINE_F_ENGINE_SET_DEFAULT_TYPE = 126; - {$EXTERNALSYM ENGINE_F_ENGINE_SET_ID} - ENGINE_F_ENGINE_SET_ID = 129; - {$EXTERNALSYM ENGINE_F_ENGINE_SET_NAME} - ENGINE_F_ENGINE_SET_NAME = 130; - {$EXTERNALSYM ENGINE_F_ENGINE_TABLE_REGISTER} - ENGINE_F_ENGINE_TABLE_REGISTER = 184; - {$EXTERNALSYM ENGINE_F_ENGINE_UNLOAD_KEY} - ENGINE_F_ENGINE_UNLOAD_KEY = 152; - {$EXTERNALSYM ENGINE_F_ENGINE_UNLOCKED_FINISH} - ENGINE_F_ENGINE_UNLOCKED_FINISH = 191; - {$EXTERNALSYM ENGINE_F_ENGINE_UP_REF} - ENGINE_F_ENGINE_UP_REF = 190; - {$EXTERNALSYM ENGINE_F_INT_CTRL_HELPER} - ENGINE_F_INT_CTRL_HELPER = 172; - {$EXTERNALSYM ENGINE_F_INT_ENGINE_CONFIGURE} - ENGINE_F_INT_ENGINE_CONFIGURE = 188; - {$EXTERNALSYM ENGINE_F_INT_ENGINE_MODULE_INIT} - ENGINE_F_INT_ENGINE_MODULE_INIT = 187; - {$EXTERNALSYM ENGINE_F_LOG_MESSAGE} - ENGINE_F_LOG_MESSAGE = 141; -//* Reason codes. */ - {$EXTERNALSYM ENGINE_R_ALREADY_LOADED} - ENGINE_R_ALREADY_LOADED = 100; - {$EXTERNALSYM ENGINE_R_ARGUMENT_IS_NOT_A_NUMBER} - ENGINE_R_ARGUMENT_IS_NOT_A_NUMBER = 133; - {$EXTERNALSYM ENGINE_R_CMD_NOT_EXECUTABLE} - ENGINE_R_CMD_NOT_EXECUTABLE = 134; - {$EXTERNALSYM ENGINE_R_COMMAND_TAKES_INPUT} - ENGINE_R_COMMAND_TAKES_INPUT = 135; - {$EXTERNALSYM ENGINE_R_COMMAND_TAKES_NO_INPUT} - ENGINE_R_COMMAND_TAKES_NO_INPUT = 136; - {$EXTERNALSYM ENGINE_R_CONFLICTING_ENGINE_ID} - ENGINE_R_CONFLICTING_ENGINE_ID = 103; - {$EXTERNALSYM ENGINE_R_CTRL_COMMAND_NOT_IMPLEMENTED} - ENGINE_R_CTRL_COMMAND_NOT_IMPLEMENTED = 119; - {$EXTERNALSYM ENGINE_R_DH_NOT_IMPLEMENTED} - ENGINE_R_DH_NOT_IMPLEMENTED = 139; - {$EXTERNALSYM ENGINE_R_DSA_NOT_IMPLEMENTED} - ENGINE_R_DSA_NOT_IMPLEMENTED = 140; - {$EXTERNALSYM ENGINE_R_DSO_FAILURE} - ENGINE_R_DSO_FAILURE = 104; - {$EXTERNALSYM ENGINE_R_DSO_NOT_FOUND} - ENGINE_R_DSO_NOT_FOUND = 132; - {$EXTERNALSYM ENGINE_R_ENGINES_SECTION_ERROR} - ENGINE_R_ENGINES_SECTION_ERROR = 148; -//was: ENGINE_R_ENGINE_CONFIGURATION_ERROR = 101; - {$EXTERNALSYM ENGINE_R_ENGINE_CONFIGURATION_ERROR} - ENGINE_R_ENGINE_CONFIGURATION_ERROR = 102; - - {$EXTERNALSYM ENGINE_R_ENGINE_IS_NOT_IN_LIST} - ENGINE_R_ENGINE_IS_NOT_IN_LIST = 105; - {$EXTERNALSYM ENGINE_R_ENGINE_SECTION_ERROR} - ENGINE_R_ENGINE_SECTION_ERROR = 149; - {$EXTERNALSYM ENGINE_R_FAILED_LOADING_PRIVATE_KEY} - ENGINE_R_FAILED_LOADING_PRIVATE_KEY = 128; - {$EXTERNALSYM ENGINE_R_FAILED_LOADING_PUBLIC_KEY} - ENGINE_R_FAILED_LOADING_PUBLIC_KEY = 129; - {$EXTERNALSYM ENGINE_R_FINISH_FAILED} - ENGINE_R_FINISH_FAILED = 106; - {$EXTERNALSYM ENGINE_R_GET_HANDLE_FAILED} - ENGINE_R_GET_HANDLE_FAILED = 107; - {$EXTERNALSYM ENGINE_R_ID_OR_NAME_MISSING} - ENGINE_R_ID_OR_NAME_MISSING = 108; - {$EXTERNALSYM ENGINE_R_INIT_FAILED} - ENGINE_R_INIT_FAILED = 109; - {$EXTERNALSYM ENGINE_R_INTERNAL_LIST_ERROR} - ENGINE_R_INTERNAL_LIST_ERROR = 110; - {$EXTERNALSYM ENGINE_R_INVALID_ARGUMENT} - ENGINE_R_INVALID_ARGUMENT = 143; - {$EXTERNALSYM ENGINE_R_INVALID_CMD_NAME} - ENGINE_R_INVALID_CMD_NAME = 137; - {$EXTERNALSYM ENGINE_R_INVALID_CMD_NUMBER} - ENGINE_R_INVALID_CMD_NUMBER = 138; - {$EXTERNALSYM ENGINE_R_INVALID_INIT_VALUE} - ENGINE_R_INVALID_INIT_VALUE = 151; - {$EXTERNALSYM ENGINE_R_INVALID_STRING} - ENGINE_R_INVALID_STRING = 150; - {$EXTERNALSYM ENGINE_R_NOT_INITIALISED} - ENGINE_R_NOT_INITIALISED = 117; - {$EXTERNALSYM ENGINE_R_NOT_LOADED} - ENGINE_R_NOT_LOADED = 112; - {$EXTERNALSYM ENGINE_R_NO_CONTROL_FUNCTION} - ENGINE_R_NO_CONTROL_FUNCTION = 120; - {$EXTERNALSYM ENGINE_R_NO_INDEX} - ENGINE_R_NO_INDEX = 144; - {$EXTERNALSYM ENGINE_R_NO_LOAD_FUNCTION} - ENGINE_R_NO_LOAD_FUNCTION = 125; - {$EXTERNALSYM ENGINE_R_NO_REFERENCE} - ENGINE_R_NO_REFERENCE = 130; - {$EXTERNALSYM ENGINE_R_NO_SUCH_ENGINE} - ENGINE_R_NO_SUCH_ENGINE = 116; - {$EXTERNALSYM ENGINE_R_NO_UNLOAD_FUNCTION} - ENGINE_R_NO_UNLOAD_FUNCTION = 126; - {$EXTERNALSYM ENGINE_R_PROVIDE_PARAMETERS} - ENGINE_R_PROVIDE_PARAMETERS = 113; - {$EXTERNALSYM ENGINE_R_RSA_NOT_IMPLEMENTED} - ENGINE_R_RSA_NOT_IMPLEMENTED = 141; - {$EXTERNALSYM ENGINE_R_UNIMPLEMENTED_CIPHER} - ENGINE_R_UNIMPLEMENTED_CIPHER = 146; - {$EXTERNALSYM ENGINE_R_UNIMPLEMENTED_DIGEST} - ENGINE_R_UNIMPLEMENTED_DIGEST = 147; - {$EXTERNALSYM ENGINE_R_UNIMPLEMENTED_PUBLIC_KEY_METHOD} - ENGINE_R_UNIMPLEMENTED_PUBLIC_KEY_METHOD = 101; - {$EXTERNALSYM ENGINE_R_VERSION_INCOMPATIBILITY} - ENGINE_R_VERSION_INCOMPATIBILITY = 145; -{$ENDIF} - {$EXTERNALSYM MSS_EXIT_FAILURE} - MSS_EXIT_FAILURE = 1; - {$EXTERNALSYM MSS_EXIT_SUCCESS} - MSS_EXIT_SUCCESS = 0; - {$EXTERNALSYM FILENAME_MAX} - FILENAME_MAX = 1024; - {$EXTERNALSYM FOPEN_MAX} - FOPEN_MAX = 20; - {$IFNDEF OPENSSL_NO_IDEA} - {$EXTERNALSYM IDEA_BLOCK} - IDEA_BLOCK = 8; - {$EXTERNALSYM IDEA_DECRYPT} - IDEA_DECRYPT = 0; - {$EXTERNALSYM IDEA_ENCRYPT} - IDEA_ENCRYPT = 1; - {$EXTERNALSYM IDEA_KEY_LENGTH} - IDEA_KEY_LENGTH = 16; - {$ENDIF} - {$EXTERNALSYM IS_SEQUENCE} - IS_SEQUENCE = 0; - {$EXTERNALSYM IS_SET} - IS_SET = 1; - {$EXTERNALSYM KRBDES_DECRYPT} - KRBDES_DECRYPT = DES_DECRYPT; - {$EXTERNALSYM KRBDES_ENCRYPT} - KRBDES_ENCRYPT = DES_ENCRYPT; - {$EXTERNALSYM LH_LOAD_MULT} - LH_LOAD_MULT = 256; - {$EXTERNALSYM L_ctermid} - L_ctermid = 16; - {$EXTERNALSYM L_cuserid} - L_cuserid = 9; - {$EXTERNALSYM L_tmpnam} - L_tmpnam = 1024; - //chamellia.h - {$IFNDEF OPENSSL_NO_CAMELLIA} - {$EXTERNALSYM CAMELLIA_ENCRYPT} - CAMELLIA_ENCRYPT = 1; - {$EXTERNALSYM CAMELLIA_DECRYPT} - CAMELLIA_DECRYPT = 0; -//* This should be a hidden type, but EVP requires that the size be known */ - - {$EXTERNALSYM CAMELLIA_BLOCK_SIZE} - CAMELLIA_BLOCK_SIZE = 16; - {$EXTERNALSYM CAMELLIA_TABLE_BYTE_LEN} - CAMELLIA_TABLE_BYTE_LEN = 272; - {$EXTERNALSYM CAMELLIA_TABLE_WORD_LEN} - CAMELLIA_TABLE_WORD_LEN = (CAMELLIA_TABLE_BYTE_LEN / 4); - {$ENDIF} - //whrlpool.h - {$EXTERNALSYM WHIRLPOOL_DIGEST_LENGTH} - WHIRLPOOL_DIGEST_LENGTH = (512 div 8); - {$EXTERNALSYM WHIRLPOOL_BBLOCK} - WHIRLPOOL_BBLOCK = 512; - {$EXTERNALSYM WHIRLPOOL_COUNTER} - WHIRLPOOL_COUNTER = (256 div 8); - {$IFNDEF OPENSSL_NO_MD2} - {$EXTERNALSYM MD2_BLOCK} - MD2_BLOCK = 16; - {$EXTERNALSYM MD2_DIGEST_LENGTH} - MD2_DIGEST_LENGTH = 16; - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD4} - {$EXTERNALSYM MD4_CBLOCK} - MD4_CBLOCK = 64; - {$EXTERNALSYM MD4_LBLOCK} - MD4_LBLOCK = (MD4_CBLOCK div 4); - {$EXTERNALSYM MD4_DIGEST_LENGTH} - MD4_DIGEST_LENGTH = 16; - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD5} - {$EXTERNALSYM MD5_CBLOCK} - MD5_CBLOCK = 64; - {$EXTERNALSYM MD5_LBLOCK} - MD5_LBLOCK = 16; //(MD5_CBLOCK/4); - {$EXTERNALSYM MD5_DIGEST_LENGTH} - MD5_DIGEST_LENGTH = 16; - {$ENDIF} - {$IFNDEF OPENSSL_NO_MDC2} - {$EXTERNALSYM OPENSSL_MDC2_BLOCK} - OPENSSL_MDC2_BLOCK = 8; - {$EXTERNALSYM OPENSSL_MDC2_DIGEST_LENGTH} - OPENSSL_MDC2_DIGEST_LENGTH = 16; - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA} - {$EXTERNALSYM SHA_LBLOCK} - SHA_LBLOCK = 16; - {$EXTERNALSYM SHA_CBLOCK} - SHA_CBLOCK = 64; //(SHA_LBLOCK * 4); - {$EXTERNALSYM SHA_DIGEST_LENGTH} - SHA_DIGEST_LENGTH = 20; - {$EXTERNALSYM SHA_LAST_BLOCK} - SHA_LAST_BLOCK = ( SHA_CBLOCK -8); - {$EXTERNALSYM SHA256_CBLOCK} - SHA256_CBLOCK = ( SHA_LBLOCK * 4); - {$EXTERNALSYM SHA224_DIGEST_LENGTH} - SHA224_DIGEST_LENGTH = 28; - {$EXTERNALSYM SHA256_DIGEST_LENGTH} - SHA256_DIGEST_LENGTH = 32; - {$EXTERNALSYM SHA384_DIGEST_LENGTH} - SHA384_DIGEST_LENGTH = 48; - {$EXTERNALSYM SHA512_DIGEST_LENGTH} - SHA512_DIGEST_LENGTH = 64; - {$IFNDEF OPENSSL_NO_SHA512} - {$EXTERNALSYM SHA512_CBLOCK} - SHA512_CBLOCK = (SHA_LBLOCK*8); - {$ENDIF} - {$ENDIF} - {$EXTERNALSYM LN_SMIMECapabilities} - LN_SMIMECapabilities = 'S/MIME Capabilities'; {Do not localize} - {$EXTERNALSYM LN_X500} - LN_X500 = 'X500'; {Do not localize} - {$EXTERNALSYM LN_X509} - LN_X509 = 'X509'; {Do not localize} - {$EXTERNALSYM LN_algorithm} - LN_algorithm = 'algorithm'; {Do not localize} - {$EXTERNALSYM LN_authority_key_identifier} - LN_authority_key_identifier = 'X509v3 Authority Key Identifier'; {Do not localize} - {$EXTERNALSYM LN_basic_constraints} - LN_basic_constraints = 'X509v3 Basic Constraints'; {Do not localize} - {$EXTERNALSYM LN_bf_cbc} - LN_bf_cbc = 'bf-cbc'; {Do not localize} - {$EXTERNALSYM LN_bf_cfb64} - LN_bf_cfb64 = 'bf-cfb'; {Do not localize} - {$EXTERNALSYM LN_bf_ecb} - LN_bf_ecb = 'bf-ecb'; {Do not localize} - {$EXTERNALSYM LN_bf_ofb64} - LN_bf_ofb64 = 'bf-ofb'; {Do not localize} - {$EXTERNALSYM LN_cast5_cbc} - LN_cast5_cbc = 'cast5-cbc'; {Do not localize} - {$EXTERNALSYM LN_cast5_cfb64} - LN_cast5_cfb64 = 'cast5-cfb'; {Do not localize} - {$EXTERNALSYM LN_cast5_ecb} - LN_cast5_ecb = 'cast5-ecb'; {Do not localize} - {$EXTERNALSYM LN_cast5_ofb64} - LN_cast5_ofb64 = 'cast5-ofb'; {Do not localize} - {$EXTERNALSYM LN_certBag} - LN_certBag = 'certBag'; {Do not localize} - {$EXTERNALSYM LN_certificate_policies} - LN_certificate_policies = 'X509v3 Certificate Policies'; {Do not localize} - {$EXTERNALSYM LN_client_auth} - LN_client_auth = 'TLS Web Client Authentication'; {Do not localize} - {$EXTERNALSYM LN_code_sign} - LN_code_sign = 'Code Signing'; {Do not localize} - {$EXTERNALSYM LN_commonName} - LN_commonName = 'commonName'; {Do not localize} - {$EXTERNALSYM LN_countryName} - LN_countryName = 'countryName'; {Do not localize} - {$EXTERNALSYM LN_crlBag} - LN_crlBag = 'crlBag'; {Do not localize} - {$EXTERNALSYM LN_crl_distribution_points} - LN_crl_distribution_points = 'X509v3 CRL Distribution Points'; {Do not localize} - {$EXTERNALSYM LN_crl_number} - LN_crl_number = 'X509v3 CRL Number'; {Do not localize} - {$EXTERNALSYM LN_crl_reason} - LN_crl_reason = 'CRL Reason Code'; {Do not localize} - {$EXTERNALSYM LN_delta_crl} - LN_delta_crl = 'X509v3 Delta CRL Indicator'; {Do not localize} - {$EXTERNALSYM LN_des_cbc} - LN_des_cbc = 'des-cbc'; {Do not localize} - {$EXTERNALSYM LN_des_cfb64} - LN_des_cfb64 = 'des-cfb'; {Do not localize} - {$EXTERNALSYM LN_des_ecb} - LN_des_ecb = 'des-ecb'; {Do not localize} - {$EXTERNALSYM LN_des_ede} - LN_des_ede = 'des-ede'; {Do not localize} - {$EXTERNALSYM LN_des_ede3} - LN_des_ede3 = 'des-ede3'; {Do not localize} - {$EXTERNALSYM LN_des_ede3_cbc} - LN_des_ede3_cbc = 'des-ede3-cbc'; {Do not localize} - {$EXTERNALSYM LN_des_ede3_cfb64} - LN_des_ede3_cfb64 = 'des-ede3-cfb'; {Do not localize} - {$EXTERNALSYM LN_des_ede3_ofb64} - LN_des_ede3_ofb64 = 'des-ede3-ofb'; {Do not localize} - {$EXTERNALSYM LN_des_ede_cbc} - LN_des_ede_cbc = 'des-ede-cbc'; {Do not localize} - {$EXTERNALSYM LN_des_ede_cfb64} - LN_des_ede_cfb64 = 'des-ede-cfb'; {Do not localize} - {$EXTERNALSYM LN_des_ede_ofb64} - LN_des_ede_ofb64 = 'des-ede-ofb'; {Do not localize} - {$EXTERNALSYM LN_des_ofb64} - LN_des_ofb64 = 'des-ofb'; {Do not localize} - {$EXTERNALSYM LN_description} - LN_description = 'description'; {Do not localize} - {$EXTERNALSYM LN_desx_cbc} - LN_desx_cbc = 'desx-cbc'; {Do not localize} - {$EXTERNALSYM LN_dhKeyAgreement} - LN_dhKeyAgreement = 'dhKeyAgreement'; {Do not localize} - {$EXTERNALSYM LN_dsa} - LN_dsa = 'dsaEncryption'; {Do not localize} - {$EXTERNALSYM LN_dsaWithSHA} - LN_dsaWithSHA = 'dsaWithSHA'; {Do not localize} - {$EXTERNALSYM LN_dsaWithSHA1} - LN_dsaWithSHA1 = 'dsaWithSHA1'; {Do not localize} - {$EXTERNALSYM LN_dsaWithSHA1_2} - LN_dsaWithSHA1_2 = 'dsaWithSHA1-old'; {Do not localize} - {$EXTERNALSYM LN_dsa_2} - LN_dsa_2 = 'dsaEncryption-old'; {Do not localize} - {$EXTERNALSYM LN_email_protect} - LN_email_protect = 'E-mail Protection'; {Do not localize} - {$EXTERNALSYM LN_ext_key_usage} - LN_ext_key_usage = 'X509v3 Extended Key Usage'; {Do not localize} - {$EXTERNALSYM LN_friendlyName} - LN_friendlyName = 'friendlyName'; {Do not localize} - {$EXTERNALSYM LN_givenName} - LN_givenName = 'givenName'; {Do not localize} - {$EXTERNALSYM LN_hmacWithSHA1} - LN_hmacWithSHA1 = 'hmacWithSHA1'; {Do not localize} - {$EXTERNALSYM LN_id_pbkdf2} - LN_id_pbkdf2 = 'PBKDF2'; {Do not localize} - {$EXTERNALSYM LN_id_qt_cps} - LN_id_qt_cps = 'Policy Qualifier CPS'; {Do not localize} - {$EXTERNALSYM LN_id_qt_unotice} - LN_id_qt_unotice = 'Policy Qualifier User Notice'; {Do not localize} - {$EXTERNALSYM LN_idea_cbc} - LN_idea_cbc = 'idea-cbc'; {Do not localize} - {$EXTERNALSYM LN_idea_cfb64} - LN_idea_cfb64 = 'idea-cfb'; {Do not localize} - {$EXTERNALSYM LN_idea_ecb} - LN_idea_ecb = 'idea-ecb'; {Do not localize} - {$EXTERNALSYM LN_idea_ofb64} - LN_idea_ofb64 = 'idea-ofb'; {Do not localize} - {$EXTERNALSYM LN_initials} - LN_initials = 'initials'; {Do not localize} - {$EXTERNALSYM LN_invalidity_date} - LN_invalidity_date = 'Invalidity Date'; {Do not localize} - {$EXTERNALSYM LN_issuer_alt_name} - LN_issuer_alt_name = 'X509v3 Issuer Alternative Name'; {Do not localize} - {$EXTERNALSYM LN_keyBag} - LN_keyBag = 'keyBag'; {Do not localize} - {$EXTERNALSYM LN_key_usage} - LN_key_usage = 'X509v3 Key Usage'; {Do not localize} - {$EXTERNALSYM LN_localKeyID} - LN_localKeyID = 'localKeyID'; {Do not localize} - {$EXTERNALSYM LN_localityName} - LN_localityName = 'localityName'; {Do not localize} - {$EXTERNALSYM LN_md2} - LN_md2 = 'md2'; {Do not localize} - {$EXTERNALSYM LN_md2WithRSAEncryption} - LN_md2WithRSAEncryption = 'md2WithRSAEncryption'; {Do not localize} - {$EXTERNALSYM LN_md4} - LN_md4 = 'md4'; {Do not localize} - {$EXTERNALSYM LN_md5} - LN_md5 = 'md5'; {Do not localize} - {$EXTERNALSYM LN_md5WithRSA} - LN_md5WithRSA = 'md5WithRSA'; {Do not localize} - {$EXTERNALSYM LN_md5WithRSAEncryption} - LN_md5WithRSAEncryption = 'md5WithRSAEncryption'; {Do not localize} - {$EXTERNALSYM LN_md5_sha1} - LN_md5_sha1 = 'md5-sha1'; {Do not localize} - {$EXTERNALSYM LN_mdc2} - LN_mdc2 = 'mdc2'; {Do not localize} - {$EXTERNALSYM LN_mdc2WithRSA} - LN_mdc2WithRSA = 'mdc2withRSA'; {Do not localize} - {$EXTERNALSYM LN_ms_code_com} - LN_ms_code_com = 'Microsoft Commercial Code Signing'; {Do not localize} - {$EXTERNALSYM LN_ms_code_ind} - LN_ms_code_ind = 'Microsoft Individual Code Signing'; {Do not localize} - {$EXTERNALSYM LN_ms_ctl_sign} - LN_ms_ctl_sign = 'Microsoft Trust List Signing'; {Do not localize} - {$EXTERNALSYM LN_ms_efs} - LN_ms_efs = 'Microsoft Encrypted File System'; {Do not localize} - {$EXTERNALSYM LN_ms_sgc} - LN_ms_sgc = 'Microsoft Server Gated Crypto'; {Do not localize} - {$EXTERNALSYM LN_netscape} - LN_netscape = 'Netscape Communications Corp.'; {Do not localize} - {$EXTERNALSYM LN_netscape_base_url} - LN_netscape_base_url = 'Netscape Base Url'; {Do not localize} - {$EXTERNALSYM LN_netscape_ca_policy_url} - LN_netscape_ca_policy_url = 'Netscape CA Policy Url'; {Do not localize} - {$EXTERNALSYM LN_netscape_ca_revocation_url} - LN_netscape_ca_revocation_url = 'Netscape CA Revocation Url'; {Do not localize} - {$EXTERNALSYM LN_netscape_cert_extension} - LN_netscape_cert_extension = 'Netscape Certificate Extension'; {Do not localize} - {$EXTERNALSYM LN_netscape_cert_sequence} - LN_netscape_cert_sequence = 'Netscape Certificate Sequence'; {Do not localize} - {$EXTERNALSYM LN_netscape_cert_type} - LN_netscape_cert_type = 'Netscape Cert Type'; {Do not localize} - {$EXTERNALSYM LN_netscape_comment} - LN_netscape_comment = 'Netscape Comment'; {Do not localize} - {$EXTERNALSYM LN_netscape_data_type} - LN_netscape_data_type = 'Netscape Data Type'; {Do not localize} - {$EXTERNALSYM LN_netscape_renewal_url} - LN_netscape_renewal_url = 'Netscape Renewal Url'; {Do not localize} - {$EXTERNALSYM LN_netscape_revocation_url} - LN_netscape_revocation_url = 'Netscape Revocation Url'; {Do not localize} - {$EXTERNALSYM LN_netscape_ssl_server_name} - LN_netscape_ssl_server_name = 'Netscape SSL Server Name'; {Do not localize} - {$EXTERNALSYM LN_ns_sgc} - LN_ns_sgc = 'Netscape Server Gated Crypto'; {Do not localize} - {$EXTERNALSYM LN_organizationName} - LN_organizationName = 'organizationName'; {Do not localize} - {$EXTERNALSYM LN_organizationalUnitName} - LN_organizationalUnitName = 'organizationalUnitName'; {Do not localize} - {$EXTERNALSYM LN_pbeWithMD2AndDES_CBC} - LN_pbeWithMD2AndDES_CBC = 'pbeWithMD2AndDES-CBC'; {Do not localize} - {$EXTERNALSYM LN_pbeWithMD2AndRC2_CBC} - LN_pbeWithMD2AndRC2_CBC = 'pbeWithMD2AndRC2-CBC'; {Do not localize} - {$EXTERNALSYM LN_pbeWithMD5AndCast5_CBC} - LN_pbeWithMD5AndCast5_CBC = 'pbeWithMD5AndCast5CBC'; {Do not localize} - {$EXTERNALSYM LN_pbeWithMD5AndDES_CBC} - LN_pbeWithMD5AndDES_CBC = 'pbeWithMD5AndDES-CBC'; {Do not localize} - {$EXTERNALSYM LN_pbeWithMD5AndRC2_CBC} - LN_pbeWithMD5AndRC2_CBC = 'pbeWithMD5AndRC2-CBC'; {Do not localize} - {$EXTERNALSYM LN_pbeWithSHA1AndDES_CBC} - LN_pbeWithSHA1AndDES_CBC = 'pbeWithSHA1AndDES-CBC'; {Do not localize} - {$EXTERNALSYM LN_pbeWithSHA1AndRC2_CBC} - LN_pbeWithSHA1AndRC2_CBC = 'pbeWithSHA1AndRC2-CBC'; {Do not localize} - {$EXTERNALSYM LN_pbe_WithSHA1And128BitRC2_CBC} - LN_pbe_WithSHA1And128BitRC2_CBC = 'pbeWithSHA1And128BitRC2-CBC'; {Do not localize} - {$EXTERNALSYM LN_pbe_WithSHA1And128BitRC4} - LN_pbe_WithSHA1And128BitRC4 = 'pbeWithSHA1And128BitRC4'; {Do not localize} - {$EXTERNALSYM LN_pbe_WithSHA1And2_Key_TripleDES_CBC} - LN_pbe_WithSHA1And2_Key_TripleDES_CBC = 'pbeWithSHA1And2-KeyTripleDES-CBC'; {Do not localize} - {$EXTERNALSYM LN_pbe_WithSHA1And3_Key_TripleDES_CBC} - LN_pbe_WithSHA1And3_Key_TripleDES_CBC = 'pbeWithSHA1And3-KeyTripleDES-CBC'; {Do not localize} - {$EXTERNALSYM LN_pbe_WithSHA1And40BitRC2_CBC} - LN_pbe_WithSHA1And40BitRC2_CBC = 'pbeWithSHA1And40BitRC2-CBC'; {Do not localize} - {$EXTERNALSYM LN_pbe_WithSHA1And40BitRC4} - LN_pbe_WithSHA1And40BitRC4 = 'pbeWithSHA1And40BitRC4'; {Do not localize} - {$EXTERNALSYM LN_pbes2} - LN_pbes2 = 'PBES2'; {Do not localize} - {$EXTERNALSYM LN_pbmac1} - LN_pbmac1 = 'PBMAC1'; {Do not localize} - {$EXTERNALSYM LN_pkcs} - LN_pkcs = 'pkcs'; {Do not localize} - {$EXTERNALSYM LN_pkcs3} - LN_pkcs3 = 'pkcs3'; {Do not localize} - {$EXTERNALSYM LN_pkcs7} - LN_pkcs7 = 'pkcs7'; {Do not localize} - {$EXTERNALSYM LN_pkcs7_data} - LN_pkcs7_data = 'pkcs7-data'; {Do not localize} - {$EXTERNALSYM LN_pkcs7_digest} - LN_pkcs7_digest = 'pkcs7-digestData'; {Do not localize} - {$EXTERNALSYM LN_pkcs7_encrypted} - LN_pkcs7_encrypted = 'pkcs7-encryptedData'; {Do not localize} - {$EXTERNALSYM LN_pkcs7_enveloped} - LN_pkcs7_enveloped = 'pkcs7-envelopedData'; {Do not localize} - {$EXTERNALSYM LN_pkcs7_signed} - LN_pkcs7_signed = 'pkcs7-signedData'; {Do not localize} - {$EXTERNALSYM LN_pkcs7_signedAndEnveloped} - LN_pkcs7_signedAndEnveloped = 'pkcs7-signedAndEnvelopedData'; {Do not localize} - {$EXTERNALSYM LN_pkcs8ShroudedKeyBag} - LN_pkcs8ShroudedKeyBag = 'pkcs8ShroudedKeyBag'; {Do not localize} - {$EXTERNALSYM LN_pkcs9} - LN_pkcs9 = 'pkcs9'; {Do not localize} - {$EXTERNALSYM LN_pkcs9_challengePassword} - LN_pkcs9_challengePassword = 'challengePassword'; {Do not localize} - {$EXTERNALSYM LN_pkcs9_contentType} - LN_pkcs9_contentType = 'contentType'; {Do not localize} - {$EXTERNALSYM LN_pkcs9_countersignature} - LN_pkcs9_countersignature = 'countersignature'; {Do not localize} - {$EXTERNALSYM LN_pkcs9_emailAddress} - LN_pkcs9_emailAddress = 'emailAddress'; {Do not localize} - {$EXTERNALSYM LN_pkcs9_extCertAttributes} - LN_pkcs9_extCertAttributes = 'extendedCertificateAttributes'; {Do not localize} - {$EXTERNALSYM LN_pkcs9_messageDigest} - LN_pkcs9_messageDigest = 'messageDigest'; {Do not localize} - {$EXTERNALSYM LN_pkcs9_signingTime} - LN_pkcs9_signingTime = 'signingTime'; {Do not localize} - {$EXTERNALSYM LN_pkcs9_unstructuredAddress} - LN_pkcs9_unstructuredAddress = 'unstructuredAddress'; {Do not localize} - {$EXTERNALSYM LN_pkcs9_unstructuredName} - LN_pkcs9_unstructuredName = 'unstructuredName'; {Do not localize} - {$EXTERNALSYM LN_private_key_usage_period} - LN_private_key_usage_period = 'X509v3 Private Key Usage Period'; {Do not localize} - {$EXTERNALSYM LN_rc2_40_cbc} - LN_rc2_40_cbc = 'rc2-40-cbc'; {Do not localize} - {$EXTERNALSYM LN_rc2_64_cbc} - LN_rc2_64_cbc = 'rc2-64-cbc'; {Do not localize} - {$EXTERNALSYM LN_rc2_cbc} - LN_rc2_cbc = 'rc2-cbc'; {Do not localize} - {$EXTERNALSYM LN_rc2_cfb64} - LN_rc2_cfb64 = 'rc2-cfb'; {Do not localize} - {$EXTERNALSYM LN_rc2_ecb} - LN_rc2_ecb = 'rc2-ecb'; {Do not localize} - {$EXTERNALSYM LN_rc2_ofb64} - LN_rc2_ofb64 = 'rc2-ofb'; {Do not localize} - {$EXTERNALSYM LN_rc4} - LN_rc4 = 'rc4'; {Do not localize} - {$EXTERNALSYM LN_rc4_40} - LN_rc4_40 = 'rc4-40'; {Do not localize} - {$EXTERNALSYM LN_rc5_cbc} - LN_rc5_cbc = 'rc5-cbc'; {Do not localize} - {$EXTERNALSYM LN_rc5_cfb64} - LN_rc5_cfb64 = 'rc5-cfb'; {Do not localize} - {$EXTERNALSYM LN_rc5_ecb} - LN_rc5_ecb = 'rc5-ecb'; {Do not localize} - {$EXTERNALSYM LN_rc5_ofb64} - LN_rc5_ofb64 = 'rc5-ofb'; {Do not localize} - {$EXTERNALSYM LN_ripemd160} - LN_ripemd160 = 'ripemd160'; {Do not localize} - {$EXTERNALSYM LN_ripemd160WithRSA} - LN_ripemd160WithRSA = 'ripemd160WithRSA'; {Do not localize} - {$EXTERNALSYM LN_rle_compression} - LN_rle_compression = 'run length compression'; {Do not localize} - {$EXTERNALSYM LN_rsa} - LN_rsa = 'rsa'; {Do not localize} - {$EXTERNALSYM LN_rsaEncryption} - LN_rsaEncryption = 'rsaEncryption'; {Do not localize} - {$EXTERNALSYM LN_rsadsi} - LN_rsadsi = 'rsadsi'; {Do not localize} - {$EXTERNALSYM LN_safeContentsBag} - LN_safeContentsBag = 'safeContentsBag'; {Do not localize} - {$EXTERNALSYM LN_sdsiCertificate} - LN_sdsiCertificate = 'sdsiCertificate'; {Do not localize} - {$EXTERNALSYM LN_secretBag} - LN_secretBag = 'secretBag'; {Do not localize} - {$EXTERNALSYM LN_serialNumber} - LN_serialNumber = 'serialNumber'; {Do not localize} - {$EXTERNALSYM LN_server_auth} - LN_server_auth = 'TLS Web Server Authentication'; {Do not localize} - {$EXTERNALSYM LN_sha} - LN_sha = 'sha'; {Do not localize} - {$EXTERNALSYM LN_sha1} - LN_sha1 = 'sha1'; {Do not localize} - {$EXTERNALSYM LN_sha1WithRSA} - LN_sha1WithRSA = 'sha1WithRSA'; {Do not localize} - {$EXTERNALSYM LN_sha1WithRSAEncryption} - LN_sha1WithRSAEncryption = 'sha1WithRSAEncryption'; {Do not localize} - {$EXTERNALSYM LN_shaWithRSAEncryption} - LN_shaWithRSAEncryption = 'shaWithRSAEncryption'; {Do not localize} - {$EXTERNALSYM LN_sha256WithRSAEncryption} - LN_sha256WithRSAEncryption = 'sha256WithRSAEncryption'; {Do not localize} - {$EXTERNALSYM LN_sha384WithRSAEncryption} - LN_sha384WithRSAEncryption = 'sha384WithRSAEncryption'; {Do not localize} - {$EXTERNALSYM LN_sha512WithRSAEncryption} - LN_sha512WithRSAEncryption = 'sha512WithRSAEncryption'; {do not localize} - {$EXTERNALSYM LN_sha224WithRSAEncryption} - LN_sha224WithRSAEncryption = 'sha224WithRSAEncryption'; {Do not localize} - {$EXTERNALSYM LN_stateOrProvinceName} - LN_stateOrProvinceName = 'stateOrProvinceName'; {Do not localize} - {$EXTERNALSYM LN_subject_alt_name} - LN_subject_alt_name = 'X509v3 Subject Alternative Name'; {Do not localize} - {$EXTERNALSYM LN_subject_key_identifier} - LN_subject_key_identifier = 'X509v3 Subject Key Identifier'; {Do not localize} - {$EXTERNALSYM LN_surname} - LN_surname = 'surname'; {Do not localize} - {$EXTERNALSYM LN_sxnet} - LN_sxnet = 'Strong Extranet ID'; {Do not localize} - {$EXTERNALSYM LN_time_stamp} - LN_time_stamp = 'Time Stamping'; {Do not localize} - {$EXTERNALSYM LN_title} - LN_title = 'title'; {Do not localize} - {$EXTERNALSYM LN_undef} - LN_undef = 'undefined'; {Do not localize} - {$EXTERNALSYM LN_uniqueIdentifier} - LN_uniqueIdentifier = 'uniqueIdentifier'; {Do not localize} - {$EXTERNALSYM LN_x509Certificate} - LN_x509Certificate = 'x509Certificate'; {Do not localize} - {$EXTERNALSYM LN_x509Crl} - LN_x509Crl = 'x509Crl'; {Do not localize} - {$EXTERNALSYM LN_zlib_compression} - LN_zlib_compression = 'zlib compression'; {Do not localize} - {$EXTERNALSYM NID_SMIMECapabilities} - NID_SMIMECapabilities = 167; - {$EXTERNALSYM NID_X500} - NID_X500 = 11; - {$EXTERNALSYM NID_X509} - NID_X509 = 12; - {$EXTERNALSYM NID_algorithm} - NID_algorithm = 38; - {$EXTERNALSYM NID_authority_key_identifier} - NID_authority_key_identifier = 90; - {$EXTERNALSYM NID_basic_constraints} - NID_basic_constraints = 87; - {$EXTERNALSYM NID_bf_cbc} - NID_bf_cbc = 91; - {$EXTERNALSYM NID_bf_cfb64} - NID_bf_cfb64 = 93; - {$EXTERNALSYM NID_bf_ecb} - NID_bf_ecb = 92; - {$EXTERNALSYM NID_bf_ofb64} - NID_bf_ofb64 = 94; - {$EXTERNALSYM NID_cast5_cbc} - NID_cast5_cbc = 108; - {$EXTERNALSYM NID_cast5_cfb64} - NID_cast5_cfb64 = 110; - {$EXTERNALSYM NID_cast5_ecb} - NID_cast5_ecb = 109; - {$EXTERNALSYM NID_cast5_ofb64} - NID_cast5_ofb64 = 111; - {$EXTERNALSYM NID_certBag} - NID_certBag = 152; - {$EXTERNALSYM NID_certificate_policies} - NID_certificate_policies = 89; - {$EXTERNALSYM NID_client_auth} - NID_client_auth = 130; - {$EXTERNALSYM NID_code_sign} - NID_code_sign = 131; - {$EXTERNALSYM NID_commonName} - NID_commonName = 13; - {$EXTERNALSYM NID_countryName} - NID_countryName = 14; - {$EXTERNALSYM NID_crlBag} - NID_crlBag = 153; - {$EXTERNALSYM NID_crl_distribution_points} - NID_crl_distribution_points = 103; - {$EXTERNALSYM NID_crl_number} - NID_crl_number = 88; - {$EXTERNALSYM NID_crl_reason} - NID_crl_reason = 141; - {$EXTERNALSYM NID_delta_crl} - NID_delta_crl = 140; - {$EXTERNALSYM NID_des_cbc} - NID_des_cbc = 31; - {$EXTERNALSYM NID_des_cfb64} - NID_des_cfb64 = 30; - {$EXTERNALSYM NID_des_ecb} - NID_des_ecb = 29; - {$EXTERNALSYM NID_des_ede} - NID_des_ede = 32; - {$EXTERNALSYM NID_des_ede3} - NID_des_ede3 = 33; - {$EXTERNALSYM NID_des_ede3_cbc} - NID_des_ede3_cbc = 44; - {$EXTERNALSYM NID_des_ede3_cfb64} - NID_des_ede3_cfb64 = 61; - {$EXTERNALSYM NID_des_ede3_ofb64} - NID_des_ede3_ofb64 = 63; - {$EXTERNALSYM NID_des_ede_cbc} - NID_des_ede_cbc = 43; - {$EXTERNALSYM NID_des_ede_cfb64} - NID_des_ede_cfb64 = 60; - {$EXTERNALSYM NID_des_ede_ofb64} - NID_des_ede_ofb64 = 62; - {$EXTERNALSYM NID_des_ofb64} - NID_des_ofb64 = 45; - {$EXTERNALSYM NID_description} - NID_description = 107; - {$EXTERNALSYM NID_desx_cbc} - NID_desx_cbc = 80; - {$EXTERNALSYM NID_email_protect} - NID_email_protect = 132; - {$EXTERNALSYM NID_ext_key_usage} - NID_ext_key_usage = 126; - {$EXTERNALSYM NID_friendlyName} - NID_friendlyName = 156; - {$EXTERNALSYM NID_givenName} - NID_givenName = 99; - {$EXTERNALSYM NID_hmacWithSHA1} - NID_hmacWithSHA1 = 163; - {$EXTERNALSYM NID_id_kp} - NID_id_kp = 128; - {$EXTERNALSYM NID_id_pbkdf2} - NID_id_pbkdf2 = 69; - {$EXTERNALSYM NID_id_pkix} - NID_id_pkix = 127; - {$EXTERNALSYM NID_id_qt_cps} - NID_id_qt_cps = 164; - {$EXTERNALSYM NID_id_qt_unotice} - NID_id_qt_unotice = 165; - {$EXTERNALSYM NID_idea_cbc} - NID_idea_cbc = 34; - {$EXTERNALSYM NID_idea_cfb64} - NID_idea_cfb64 = 35; - {$EXTERNALSYM NID_idea_ecb} - NID_idea_ecb = 36; - {$EXTERNALSYM NID_idea_ofb64} - NID_idea_ofb64 = 46; - {$EXTERNALSYM NID_initials} - NID_initials = 101; - {$EXTERNALSYM NID_invalidity_date} - NID_invalidity_date = 142; - {$EXTERNALSYM NID_issuer_alt_name} - NID_issuer_alt_name = 86; - {$EXTERNALSYM NID_keyBag} - NID_keyBag = 150; - {$EXTERNALSYM NID_key_usage} - NID_key_usage = 83; - {$EXTERNALSYM NID_ld_ce} - NID_ld_ce = 81; - {$EXTERNALSYM NID_localKeyID} - NID_localKeyID = 157; - {$EXTERNALSYM NID_localityName} - NID_localityName = 15; - {$EXTERNALSYM NID_md2} - NID_md2 = 3; - {$EXTERNALSYM NID_md2WithRSAEncryption} - NID_md2WithRSAEncryption = 7; - {$EXTERNALSYM NID_md4} - NID_md4 = 257; - {$EXTERNALSYM NID_md4WithRSAEncryption} - NID_md4WithRSAEncryption = 396; - {$EXTERNALSYM NID_md5} - NID_md5 = 4; - {$EXTERNALSYM NID_md5WithRSA} - NID_md5WithRSA = 104; - {$EXTERNALSYM NID_md5WithRSAEncryption} - NID_md5WithRSAEncryption = 8; - {$EXTERNALSYM NID_md5_sha1} - NID_md5_sha1 = 114; - {$EXTERNALSYM NID_mdc2} - NID_mdc2 = 95; - {$EXTERNALSYM NID_mdc2WithRSA} - NID_mdc2WithRSA = 96; - {$EXTERNALSYM NID_ms_code_com} - NID_ms_code_com = 135; - {$EXTERNALSYM NID_ms_code_ind} - NID_ms_code_ind = 134; - {$EXTERNALSYM NID_ms_ctl_sign} - NID_ms_ctl_sign = 136; - {$EXTERNALSYM NID_ms_efs} - NID_ms_efs = 138; - {$EXTERNALSYM NID_ms_sgc} - NID_ms_sgc = 137; - {$EXTERNALSYM NID_netscape} - NID_netscape = 57; - {$EXTERNALSYM NID_netscape_base_url} - NID_netscape_base_url = 72; - {$EXTERNALSYM NID_netscape_ca_policy_url} - NID_netscape_ca_policy_url = 76; - {$EXTERNALSYM NID_netscape_ca_revocation_url} - NID_netscape_ca_revocation_url = 74; - {$EXTERNALSYM NID_netscape_cert_extension} - NID_netscape_cert_extension = 58; - {$EXTERNALSYM NID_netscape_cert_sequence} - NID_netscape_cert_sequence = 79; - {$EXTERNALSYM NID_netscape_cert_type} - NID_netscape_cert_type = 71; - {$EXTERNALSYM NID_netscape_comment} - NID_netscape_comment = 78; - {$EXTERNALSYM NID_netscape_data_type} - NID_netscape_data_type = 59; - {$EXTERNALSYM NID_netscape_renewal_url} - NID_netscape_renewal_url = 75; - {$EXTERNALSYM NID_netscape_revocation_url} - NID_netscape_revocation_url = 73; - {$EXTERNALSYM NID_netscape_ssl_server_name} - NID_netscape_ssl_server_name = 77; - {$EXTERNALSYM NID_ns_sgc} - NID_ns_sgc = 139; - {$EXTERNALSYM NID_organizationName} - NID_organizationName = 17; - {$EXTERNALSYM NID_organizationalUnitName} - NID_organizationalUnitName = 18; - {$EXTERNALSYM NID_pbeWithMD2AndDES_CBC} - NID_pbeWithMD2AndDES_CBC = 9; - {$EXTERNALSYM NID_pbeWithMD2AndRC2_CBC} - NID_pbeWithMD2AndRC2_CBC = 168; - {$EXTERNALSYM NID_pbeWithMD5AndCast5_CBC} - NID_pbeWithMD5AndCast5_CBC = 112; - {$EXTERNALSYM NID_pbeWithMD5AndDES_CBC} - NID_pbeWithMD5AndDES_CBC = 10; - {$EXTERNALSYM NID_pbeWithMD5AndRC2_CBC} - NID_pbeWithMD5AndRC2_CBC = 169; - {$EXTERNALSYM NID_pbeWithSHA1AndDES_CBC} - NID_pbeWithSHA1AndDES_CBC = 170; - {$EXTERNALSYM NID_pbeWithSHA1AndRC2_CBC} - NID_pbeWithSHA1AndRC2_CBC = 68; - {$EXTERNALSYM NID_pbe_WithSHA1And128BitRC2_CBC} - NID_pbe_WithSHA1And128BitRC2_CBC = 148; - {$EXTERNALSYM NID_pbe_WithSHA1And128BitRC4} - NID_pbe_WithSHA1And128BitRC4 = 144; - {$EXTERNALSYM NID_pbe_WithSHA1And2_Key_TripleDES_CBC} - NID_pbe_WithSHA1And2_Key_TripleDES_CBC = 147; - {$EXTERNALSYM NID_pbe_WithSHA1And3_Key_TripleDES_CBC} - NID_pbe_WithSHA1And3_Key_TripleDES_CBC = 146; - {$EXTERNALSYM NID_pbe_WithSHA1And40BitRC2_CBC} - NID_pbe_WithSHA1And40BitRC2_CBC = 149; - {$EXTERNALSYM NID_pbe_WithSHA1And40BitRC4} - NID_pbe_WithSHA1And40BitRC4 = 145; - {$EXTERNALSYM NID_pbes2} - NID_pbes2 = 161; - {$EXTERNALSYM NID_pbmac1} - NID_pbmac1 = 162; - {$EXTERNALSYM NID_pkcs} - NID_pkcs = 2; - {$EXTERNALSYM NID_pkcs3} - NID_pkcs3 = 27; - {$EXTERNALSYM NID_pkcs7} - NID_pkcs7 = 20; - {$EXTERNALSYM NID_pkcs7_data} - NID_pkcs7_data = 21; - {$EXTERNALSYM NID_pkcs7_digest} - NID_pkcs7_digest = 25; - {$EXTERNALSYM NID_pkcs7_encrypted} - NID_pkcs7_encrypted = 26; - {$EXTERNALSYM NID_pkcs7_enveloped} - NID_pkcs7_enveloped = 23; - {$EXTERNALSYM NID_pkcs7_signed} - NID_pkcs7_signed = 22; - {$EXTERNALSYM NID_pkcs7_signedAndEnveloped} - NID_pkcs7_signedAndEnveloped = 24; - {$EXTERNALSYM NID_pkcs8ShroudedKeyBag} - NID_pkcs8ShroudedKeyBag = 151; - {$EXTERNALSYM NID_pkcs9} - NID_pkcs9 = 47; - {$EXTERNALSYM NID_pkcs9_challengePassword} - NID_pkcs9_challengePassword = 54; - {$EXTERNALSYM NID_pkcs9_contentType} - NID_pkcs9_contentType = 50; - {$EXTERNALSYM NID_pkcs9_countersignature} - NID_pkcs9_countersignature = 53; - {$EXTERNALSYM NID_pkcs9_emailAddress} - NID_pkcs9_emailAddress = 48; - {$EXTERNALSYM NID_pkcs9_extCertAttributes} - NID_pkcs9_extCertAttributes = 56; - {$EXTERNALSYM NID_pkcs9_messageDigest} - NID_pkcs9_messageDigest = 51; - {$EXTERNALSYM NID_pkcs9_signingTime} - NID_pkcs9_signingTime = 52; - {$EXTERNALSYM NID_pkcs9_unstructuredAddress} - NID_pkcs9_unstructuredAddress = 55; - {$EXTERNALSYM NID_pkcs9_unstructuredName} - NID_pkcs9_unstructuredName = 49; - {$EXTERNALSYM NID_private_key_usage_period} - NID_private_key_usage_period = 84; - {$EXTERNALSYM NID_rc2_40_cbc} - NID_rc2_40_cbc = 98; - {$EXTERNALSYM NID_rc2_64_cbc} - NID_rc2_64_cbc = 166; - {$EXTERNALSYM NID_rc2_cbc} - NID_rc2_cbc = 37; - {$EXTERNALSYM NID_rc2_cfb64} - NID_rc2_cfb64 = 39; - {$EXTERNALSYM NID_rc2_ecb} - NID_rc2_ecb = 38; - {$EXTERNALSYM NID_rc2_ofb64} - NID_rc2_ofb64 = 40; - {$EXTERNALSYM NID_rc4} - NID_rc4 = 5; - {$EXTERNALSYM NID_rc4_40} - NID_rc4_40 = 97; - {$EXTERNALSYM NID_rc5_cbc} - NID_rc5_cbc = 120; - {$EXTERNALSYM NID_rc5_cfb64} - NID_rc5_cfb64 = 122; - {$EXTERNALSYM NID_rc5_ecb} - NID_rc5_ecb = 121; - {$EXTERNALSYM NID_rc5_ofb64} - NID_rc5_ofb64 = 123; - {$EXTERNALSYM NID_ripemd160} - NID_ripemd160 = 117; - {$EXTERNALSYM NID_ripemd160WithRSA} - NID_ripemd160WithRSA = 119; - {$EXTERNALSYM NID_rle_compression} - NID_rle_compression = 124; - {$EXTERNALSYM NID_rsadsi} - NID_rsadsi = 1; - {$EXTERNALSYM NID_safeContentsBag} - NID_safeContentsBag = 155; - {$EXTERNALSYM NID_sdsiCertificate} - NID_sdsiCertificate = 159; - {$EXTERNALSYM NID_secretBag} - NID_secretBag = 154; - {$EXTERNALSYM NID_serialNumber} - NID_serialNumber = 105; - {$EXTERNALSYM NID_server_auth} - NID_server_auth = 129; - {$EXTERNALSYM NID_sha} - NID_sha = 41; - {$EXTERNALSYM NID_sha1} - NID_sha1 = 64; - {$EXTERNALSYM NID_sha1WithRSA} - NID_sha1WithRSA = 115; - {$EXTERNALSYM NID_sha1WithRSAEncryption} - NID_sha1WithRSAEncryption = 65; - {$EXTERNALSYM NID_sha256WithRSAEncryption} - NID_sha256WithRSAEncryption = 668; - {$EXTERNALSYM NID_sha384WithRSAEncryption} - NID_sha384WithRSAEncryption = 669; - {$EXTERNALSYM NID_sha512WithRSAEncryption} - NID_sha512WithRSAEncryption = 670; - {$EXTERNALSYM NID_sha224WithRSAEncryption} - NID_sha224WithRSAEncryption = 671; - {$EXTERNALSYM NID_shaWithRSAEncryption} - NID_shaWithRSAEncryption = 42; - {$EXTERNALSYM NID_stateOrProvinceName} - NID_stateOrProvinceName = 16; - {$EXTERNALSYM NID_subject_alt_name} - NID_subject_alt_name = 85; - {$EXTERNALSYM NID_subject_key_identifier} - NID_subject_key_identifier = 82; - {$EXTERNALSYM NID_surname} - NID_surname = 100; - {$EXTERNALSYM NID_sxnet} - NID_sxnet = 143; - {$EXTERNALSYM NID_time_stamp} - NID_time_stamp = 133; - {$EXTERNALSYM NID_title} - NID_title = 106; - {$EXTERNALSYM NID_uniqueIdentifier} - NID_uniqueIdentifier = 102; - {$EXTERNALSYM NID_x509Certificate} - NID_x509Certificate = 158; - {$EXTERNALSYM NID_x509Crl} - NID_x509Crl = 160; - {$EXTERNALSYM NID_zlib_compression} - NID_zlib_compression = 125; - {$EXTERNALSYM OBJ_F_OBJ_CREATE} - OBJ_F_OBJ_CREATE = 100; - {$EXTERNALSYM OBJ_F_OBJ_DUP} - OBJ_F_OBJ_DUP = 101; - {$EXTERNALSYM OBJ_F_OBJ_NID2LN} - OBJ_F_OBJ_NID2LN = 102; - {$EXTERNALSYM OBJ_F_OBJ_NID2OBJ} - OBJ_F_OBJ_NID2OBJ = 103; - {$EXTERNALSYM OBJ_F_OBJ_NID2SN} - OBJ_F_OBJ_NID2SN = 104; - {$EXTERNALSYM OBJ_NAME_ALIAS} - OBJ_NAME_ALIAS = $8000; - {$EXTERNALSYM OBJ_NAME_TYPE_CIPHER_METH} - OBJ_NAME_TYPE_CIPHER_METH = $02; - {$EXTERNALSYM OBJ_NAME_TYPE_COMP_METH} - OBJ_NAME_TYPE_COMP_METH = $04; - {$EXTERNALSYM OBJ_NAME_TYPE_MD_METH} - OBJ_NAME_TYPE_MD_METH = $01; - {$EXTERNALSYM OBJ_NAME_TYPE_NUM} - OBJ_NAME_TYPE_NUM = $05; - {$EXTERNALSYM OBJ_NAME_TYPE_PKEY_METH} - OBJ_NAME_TYPE_PKEY_METH = $03; - {$EXTERNALSYM OBJ_NAME_TYPE_UNDEF} - OBJ_NAME_TYPE_UNDEF = $00; - {$EXTERNALSYM OBJ_R_MALLOC_FAILURE} - OBJ_R_MALLOC_FAILURE = 100; - {$EXTERNALSYM OBJ_R_UNKNOWN_NID} - OBJ_R_UNKNOWN_NID = 101; - {$EXTERNALSYM OPENSSL_VERSION_NUMBER} - OPENSSL_VERSION_NUMBER = $1000105f; // MMNNFFPPS Major, Minor, Fix, Patch, Status - {$EXTERNALSYM OPENSSL_VERSION_TEXT} -{$IFDEF OPENSSL_FIPS} - OPENSSL_VERSION_TEXT = 'OpenSSL 1.0.1e-fips 11 Feb 2013'; {Do not localize} -{$ELSE} - OPENSSL_VERSION_TEXT = 'OpenSSL 1.0.1e 11 Feb 2013'; {Do not localize} -{$ENDIF} - {$EXTERNALSYM OPENSSL_VERSION_PTEXT} - OPENSSL_VERSION_PTEXT = ' part of '+ OPENSSL_VERSION_TEXT; {Do not localize} - {$EXTERNALSYM PEM_BUFSIZE} - PEM_BUFSIZE = 1024; - {$EXTERNALSYM PEM_DEK_DES_CBC} - PEM_DEK_DES_CBC = 40; - {$EXTERNALSYM PEM_DEK_DES_ECB} - PEM_DEK_DES_ECB = 60; - {$EXTERNALSYM PEM_DEK_DES_EDE} - PEM_DEK_DES_EDE = 50; - {$EXTERNALSYM PEM_DEK_IDEA_CBC} - PEM_DEK_IDEA_CBC = 45; - {$EXTERNALSYM PEM_DEK_RSA} - PEM_DEK_RSA = 70; - {$EXTERNALSYM PEM_DEK_RSA_MD2} - PEM_DEK_RSA_MD2 = 80; - {$EXTERNALSYM PEM_DEK_RSA_MD5} - PEM_DEK_RSA_MD5 = 90; - {$EXTERNALSYM PEM_ERROR} - PEM_ERROR = 30; - {$EXTERNALSYM PEM_F_DEF_CALLBACK} - PEM_F_DEF_CALLBACK = 100; - {$EXTERNALSYM PEM_F_LOAD_IV} - PEM_F_LOAD_IV = 101; - {$EXTERNALSYM PEM_F_PEM_ASN1_READ} - PEM_F_PEM_ASN1_READ = 102; - {$EXTERNALSYM PEM_F_PEM_ASN1_READ_BIO} - PEM_F_PEM_ASN1_READ_BIO = 103; - {$EXTERNALSYM PEM_F_PEM_ASN1_WRITE} - PEM_F_PEM_ASN1_WRITE = 104; - {$EXTERNALSYM PEM_F_PEM_ASN1_WRITE_BIO} - PEM_F_PEM_ASN1_WRITE_BIO = 105; - {$EXTERNALSYM PEM_F_PEM_DO_HEADER} - PEM_F_PEM_DO_HEADER = 106; - {$EXTERNALSYM PEM_F_PEM_F_PEM_WRITE_PKCS8PRIVATEKEY} - PEM_F_PEM_F_PEM_WRITE_PKCS8PRIVATEKEY = 118; - {$EXTERNALSYM PEM_F_PEM_GET_EVP_CIPHER_INFO} - PEM_F_PEM_GET_EVP_CIPHER_INFO = 107; - {$EXTERNALSYM PEM_F_PEM_READ} - PEM_F_PEM_READ = 108; - {$EXTERNALSYM PEM_F_PEM_READ_BIO} - PEM_F_PEM_READ_BIO = 109; - {$EXTERNALSYM PEM_F_PEM_SEALFINAL} - PEM_F_PEM_SEALFINAL = 110; - {$EXTERNALSYM PEM_F_PEM_SEALINIT} - PEM_F_PEM_SEALINIT = 111; - {$EXTERNALSYM PEM_F_PEM_SIGNFINAL} - PEM_F_PEM_SIGNFINAL = 112; - {$EXTERNALSYM PEM_F_PEM_WRITE} - PEM_F_PEM_WRITE = 113; - {$EXTERNALSYM PEM_F_PEM_WRITE_BIO} - PEM_F_PEM_WRITE_BIO = 114; - {$EXTERNALSYM PEM_F_PEM_WRITE_BIO_PKCS8PRIVATEKEY} - PEM_F_PEM_WRITE_BIO_PKCS8PRIVATEKEY = 119; - {$EXTERNALSYM PEM_F_PEM_X509_INFO_READ} - PEM_F_PEM_X509_INFO_READ = 115; - {$EXTERNALSYM PEM_F_PEM_X509_INFO_READ_BIO} - PEM_F_PEM_X509_INFO_READ_BIO = 116; - {$EXTERNALSYM PEM_F_PEM_X509_INFO_WRITE_BIO} - PEM_F_PEM_X509_INFO_WRITE_BIO = 117; - {$EXTERNALSYM PEM_MD_MD2} - PEM_MD_MD2 = NID_md2; - {$EXTERNALSYM PEM_MD_MD2_RSA} - PEM_MD_MD2_RSA = NID_md2WithRSAEncryption; - {$EXTERNALSYM PEM_MD_MD5} - PEM_MD_MD5 = NID_md5; - {$EXTERNALSYM PEM_MD_MD5_RSA} - PEM_MD_MD5_RSA = NID_md5WithRSAEncryption; - {$EXTERNALSYM PEM_MD_SHA} - PEM_MD_SHA = NID_sha; - {$EXTERNALSYM PEM_MD_SHA_RSA} - PEM_MD_SHA_RSA = NID_sha1WithRSAEncryption; - {$EXTERNALSYM PEM_OBJ_UNDEF} - PEM_OBJ_UNDEF = 0; - {$EXTERNALSYM PEM_OBJ_X509} - PEM_OBJ_X509 = 1; - {$EXTERNALSYM PEM_OBJ_X509_REQ} - PEM_OBJ_X509_REQ = 2; - {$EXTERNALSYM PEM_OBJ_CRL} - PEM_OBJ_CRL = 3; - {$EXTERNALSYM PEM_OBJ_SSL_SESSION} - PEM_OBJ_SSL_SESSION = 4; - {$EXTERNALSYM PEM_OBJ_PRIV_KEY} - PEM_OBJ_PRIV_KEY = 10; - {$EXTERNALSYM PEM_OBJ_PRIV_RSA} - PEM_OBJ_PRIV_RSA = 11; - {$EXTERNALSYM PEM_OBJ_PRIV_DSA} - PEM_OBJ_PRIV_DSA = 12; - {$EXTERNALSYM PEM_OBJ_PRIV_DH} - PEM_OBJ_PRIV_DH = 13; - {$EXTERNALSYM PEM_OBJ_PUB_RSA} - PEM_OBJ_PUB_RSA = 14; - {$EXTERNALSYM PEM_OBJ_PUB_DSA} - PEM_OBJ_PUB_DSA = 15; - {$EXTERNALSYM PEM_OBJ_PUB_DH} - PEM_OBJ_PUB_DH = 16; - {$EXTERNALSYM PEM_OBJ_DHPARAMS} - PEM_OBJ_DHPARAMS = 17; - {$EXTERNALSYM PEM_OBJ_DSAPARAMS} - PEM_OBJ_DSAPARAMS = 18; - {$EXTERNALSYM PEM_OBJ_PRIV_RSA_PUBLIC} - PEM_OBJ_PRIV_RSA_PUBLIC = 19; - {$EXTERNALSYM PEM_OBJ_PRIV_ECDSA} - PEM_OBJ_PRIV_ECDSA = 20; - {$EXTERNALSYM PEM_OBJ_PUB_ECDSA} - PEM_OBJ_PUB_ECDSA = 21; - {$EXTERNALSYM PEM_OBJ_ECPARAMETERS} - PEM_OBJ_ECPARAMETERS = 22; - {$EXTERNALSYM PEM_R_BAD_BASE64_DECODE} - PEM_R_BAD_BASE64_DECODE = 100; - {$EXTERNALSYM PEM_R_BAD_DECRYPT} - PEM_R_BAD_DECRYPT = 101; - {$EXTERNALSYM PEM_R_BAD_END_LINE} - PEM_R_BAD_END_LINE = 102; - {$EXTERNALSYM PEM_R_BAD_IV_CHARS} - PEM_R_BAD_IV_CHARS = 103; - {$EXTERNALSYM PEM_R_BAD_PASSWORD_READ} - PEM_R_BAD_PASSWORD_READ = 104; - {$EXTERNALSYM PEM_R_ERROR_CONVERTING_PRIVATE_KEY} - PEM_R_ERROR_CONVERTING_PRIVATE_KEY = 115; - {$EXTERNALSYM PEM_R_NOT_DEK_INFO} - PEM_R_NOT_DEK_INFO = 105; - {$EXTERNALSYM PEM_R_NOT_ENCRYPTED} - PEM_R_NOT_ENCRYPTED = 106; - {$EXTERNALSYM PEM_R_NOT_PROC_TYPE} - PEM_R_NOT_PROC_TYPE = 107; - {$EXTERNALSYM PEM_R_NO_START_LINE} - PEM_R_NO_START_LINE = 108; - {$EXTERNALSYM PEM_R_PROBLEMS_GETTING_PASSWORD} - PEM_R_PROBLEMS_GETTING_PASSWORD = 109; - {$EXTERNALSYM PEM_R_PUBLIC_KEY_NO_RSA} - PEM_R_PUBLIC_KEY_NO_RSA = 110; - {$EXTERNALSYM PEM_R_READ_KEY} - PEM_R_READ_KEY = 111; - {$EXTERNALSYM PEM_R_SHORT_HEADER} - PEM_R_SHORT_HEADER = 112; - {$EXTERNALSYM PEM_R_UNSUPPORTED_CIPHER} - PEM_R_UNSUPPORTED_CIPHER = 113; - {$EXTERNALSYM PEM_R_UNSUPPORTED_ENCRYPTION} - PEM_R_UNSUPPORTED_ENCRYPTION = 114; - {$EXTERNALSYM PEM_STRING_EVP_PKEY} - PEM_STRING_EVP_PKEY = 'ANY PRIVATE KEY'; {Do not localize} - {$EXTERNALSYM PEM_STRING_X509_OLD} - PEM_STRING_X509_OLD = 'X509 CERTIFICATE'; {Do not localize} - {$EXTERNALSYM PEM_STRING_X509} - PEM_STRING_X509 = 'CERTIFICATE'; {Do not localize} - {$EXTERNALSYM PEM_STRING_X509_PAIR} - PEM_STRING_X509_PAIR = 'CERTIFICATE PAIR'; {Do not localize} - {$EXTERNALSYM PEM_STRING_X509_TRUSTED} - PEM_STRING_X509_TRUSTED = 'TRUSTED CERTIFICATE'; {Do not localize} - {$EXTERNALSYM PEM_STRING_X509_REQ_OLD} - PEM_STRING_X509_REQ_OLD = 'NEW CERTIFICATE REQUEST'; {Do not localize} - {$EXTERNALSYM PEM_STRING_X509_REQ} - PEM_STRING_X509_REQ = 'CERTIFICATE REQUEST'; {Do not localize} - {$EXTERNALSYM PEM_STRING_X509_CRL} - PEM_STRING_X509_CRL = 'X509 CRL'; {Do not localize} - {$EXTERNALSYM PEM_STRING_PUBLIC} - PEM_STRING_PUBLIC = 'PUBLIC KEY'; {Do not localize} - {$EXTERNALSYM PEM_STRING_RSA} - PEM_STRING_RSA = 'RSA PRIVATE KEY'; {Do not localize} - {$EXTERNALSYM PEM_STRING_RSA_PUBLIC} - PEM_STRING_RSA_PUBLIC = 'RSA PUBLIC KEY'; {Do not localize} - {$EXTERNALSYM PEM_STRING_DSA} - PEM_STRING_DSA = 'DSA PRIVATE KEY'; {Do not localize} - {$EXTERNALSYM PEM_STRING_DSA_PUBLIC} - PEM_STRING_DSA_PUBLIC = 'DSA PUBLIC KEY'; {Do not localize} - {$EXTERNALSYM PEM_STRING_PKCS7} - PEM_STRING_PKCS7 = 'PKCS7'; {Do not localize} - {$EXTERNALSYM PEM_STRING_PKCS7_SIGNED} - PEM_STRING_PKCS7_SIGNED ='PKCS #7 SIGNED DATA'; {Do not localize} - {$EXTERNALSYM PEM_STRING_PKCS8} - PEM_STRING_PKCS8 = 'ENCRYPTED PRIVATE KEY'; {Do not localize} - {$EXTERNALSYM PEM_STRING_PKCS8INF} - PEM_STRING_PKCS8INF = 'PRIVATE KEY'; {Do not localize} - {$EXTERNALSYM PEM_STRING_DHPARAMS} - PEM_STRING_DHPARAMS = 'DH PARAMETERS'; {Do not localize} - {$EXTERNALSYM PEM_STRING_SSL_SESSION} - PEM_STRING_SSL_SESSION = 'SSL SESSION PARAMETERS'; {Do not localize} - {$EXTERNALSYM PEM_STRING_DSAPARAMS} - PEM_STRING_DSAPARAMS = 'DSA PARAMETERS'; {Do not localize} - {$EXTERNALSYM PEM_STRING_ECDSA_PUBLIC} - PEM_STRING_ECDSA_PUBLIC = 'ECDSA PUBLIC KEY'; {Do not localize} - {$EXTERNALSYM PEM_STRING_ECPARAMETERS} - PEM_STRING_ECPARAMETERS = 'EC PARAMETERS'; {Do not localize} - {$EXTERNALSYM PEM_STRING_ECPRIVATEKEY} - PEM_STRING_ECPRIVATEKEY = 'EC PRIVATE KEY'; {Do not localize} - {$EXTERNALSYM PEM_STRING_CMS} - PEM_STRING_CMS = 'CMS'; {Do not localize} - {$EXTERNALSYM PEM_TYPE_CLEAR} - PEM_TYPE_CLEAR = 40; - {$EXTERNALSYM PEM_TYPE_ENCRYPTED} - PEM_TYPE_ENCRYPTED = 10; - {$EXTERNALSYM PEM_TYPE_MIC_CLEAR} - PEM_TYPE_MIC_CLEAR = 30; - {$EXTERNALSYM PEM_TYPE_MIC_ONLY} - PEM_TYPE_MIC_ONLY = 20; - {$EXTERNALSYM PKCS5_DEFAULT_ITER} - PKCS5_DEFAULT_ITER = 2048; - {$EXTERNALSYM PKCS5_SALT_LEN} - PKCS5_SALT_LEN = 8; - {$EXTERNALSYM PKCS7_F_PKCS7_ADD_CERTIFICATE} - PKCS7_F_PKCS7_ADD_CERTIFICATE = 100; - {$EXTERNALSYM PKCS7_F_PKCS7_ADD_CRL} - PKCS7_F_PKCS7_ADD_CRL = 101; - {$EXTERNALSYM PKCS7_F_PKCS7_ADD_RECIPIENT_INFO} - PKCS7_F_PKCS7_ADD_RECIPIENT_INFO = 102; - {$EXTERNALSYM PKCS7_F_PKCS7_ADD_SIGNER} - PKCS7_F_PKCS7_ADD_SIGNER = 103; - {$EXTERNALSYM PKCS7_F_PKCS7_CTRL} - PKCS7_F_PKCS7_CTRL = 104; - {$EXTERNALSYM PKCS7_F_PKCS7_DATADECODE} - PKCS7_F_PKCS7_DATADECODE = 112; - {$EXTERNALSYM PKCS7_F_PKCS7_DATAINIT} - PKCS7_F_PKCS7_DATAINIT = 105; - {$EXTERNALSYM PKCS7_F_PKCS7_DATASIGN} - PKCS7_F_PKCS7_DATASIGN = 106; - {$EXTERNALSYM PKCS7_F_PKCS7_DATAVERIFY} - PKCS7_F_PKCS7_DATAVERIFY = 107; - {$EXTERNALSYM PKCS7_F_PKCS7_SET_CIPHER} - PKCS7_F_PKCS7_SET_CIPHER = 108; - {$EXTERNALSYM PKCS7_F_PKCS7_SET_CONTENT} - PKCS7_F_PKCS7_SET_CONTENT = 109; - {$EXTERNALSYM PKCS7_F_PKCS7_SET_TYPE} - PKCS7_F_PKCS7_SET_TYPE = 110; - {$EXTERNALSYM PKCS7_F_PKCS7_SIGNATUREVERIFY} - PKCS7_F_PKCS7_SIGNATUREVERIFY = 113; - {$EXTERNALSYM PKCS7_OP_GET_DETACHED_SIGNATURE} - PKCS7_OP_GET_DETACHED_SIGNATURE = 2; - {$EXTERNALSYM PKCS7_OP_SET_DETACHED_SIGNATURE} - PKCS7_OP_SET_DETACHED_SIGNATURE = 1; - {$EXTERNALSYM PKCS7_R_CIPHER_NOT_INITIALIZED} - PKCS7_R_CIPHER_NOT_INITIALIZED = 116; - {$EXTERNALSYM PKCS7_R_DECRYPTED_KEY_IS_WRONG_LENGTH} - PKCS7_R_DECRYPTED_KEY_IS_WRONG_LENGTH = 100; - {$EXTERNALSYM PKCS7_R_DIGEST_FAILURE} - PKCS7_R_DIGEST_FAILURE = 101; - {$EXTERNALSYM PKCS7_R_INTERNAL_ERROR} - PKCS7_R_INTERNAL_ERROR = 102; - {$EXTERNALSYM PKCS7_R_MISSING_CERIPEND_INFO} - PKCS7_R_MISSING_CERIPEND_INFO = 103; - {$EXTERNALSYM PKCS7_R_NO_RECIPIENT_MATCHES_CERTIFICATE} - PKCS7_R_NO_RECIPIENT_MATCHES_CERTIFICATE = 115; - {$EXTERNALSYM PKCS7_R_OPERATION_NOT_SUPPORTED_ON_THIS_TYPE} - PKCS7_R_OPERATION_NOT_SUPPORTED_ON_THIS_TYPE = 104; - {$EXTERNALSYM PKCS7_R_SIGNATURE_FAILURE} - PKCS7_R_SIGNATURE_FAILURE = 105; - {$EXTERNALSYM PKCS7_R_UNABLE_TO_FIND_CERTIFICATE} - PKCS7_R_UNABLE_TO_FIND_CERTIFICATE = 106; - {$EXTERNALSYM PKCS7_R_UNABLE_TO_FIND_MEM_BIO} - PKCS7_R_UNABLE_TO_FIND_MEM_BIO = 107; - {$EXTERNALSYM PKCS7_R_UNABLE_TO_FIND_MESSAGE_DIGEST} - PKCS7_R_UNABLE_TO_FIND_MESSAGE_DIGEST = 108; - {$EXTERNALSYM PKCS7_R_UNKNOWN_DIGEST_TYPE} - PKCS7_R_UNKNOWN_DIGEST_TYPE = 109; - {$EXTERNALSYM PKCS7_R_UNKNOWN_OPERATION} - PKCS7_R_UNKNOWN_OPERATION = 110; - {$EXTERNALSYM PKCS7_R_UNSUPPORTED_CIPHER_TYPE} - PKCS7_R_UNSUPPORTED_CIPHER_TYPE = 111; - {$EXTERNALSYM PKCS7_R_UNSUPPORTED_CONTENT_TYPE} - PKCS7_R_UNSUPPORTED_CONTENT_TYPE = 112; - {$EXTERNALSYM PKCS7_R_WRONG_CONTENT_TYPE} - PKCS7_R_WRONG_CONTENT_TYPE = 113; - {$EXTERNALSYM PKCS7_R_WRONG_PKCS7_TYPE} - PKCS7_R_WRONG_PKCS7_TYPE = 114; - {$EXTERNALSYM PKCS7_S_BODY} - PKCS7_S_BODY = 1; - {$EXTERNALSYM PKCS7_S_HEADER} - PKCS7_S_HEADER = 0; - {$EXTERNALSYM PKCS7_S_TAIL} - PKCS7_S_TAIL = 2; - {$EXTERNALSYM PKCS8_NEG_PRIVKEY} - PKCS8_NEG_PRIVKEY = 4; - {$EXTERNALSYM PKCS8_NS_DB} - PKCS8_NS_DB = 3; - {$EXTERNALSYM PKCS8_EMBEDDED_PARAM} - PKCS8_EMBEDDED_PARAM = 2; - {$EXTERNALSYM PKCS8_NO_OCTET} - PKCS8_NO_OCTET = 1; - {$EXTERNALSYM PKCS8_OK} - PKCS8_OK = 0; - {$EXTERNALSYM P_tmpdir} - P_tmpdir = '/tmp'; {Do not localize} - {$EXTERNALSYM MSS_RAND_MAX} - MSS_RAND_MAX = $7fffffff; - {$IFNDEF OPENSSL_NO_RC2} - {$EXTERNALSYM RC2_BLOCK} - RC2_BLOCK = 8; - {$EXTERNALSYM RC2_DECRYPT} - RC2_DECRYPT = 0; - {$EXTERNALSYM RC2_ENCRYPT} - RC2_ENCRYPT = 1; - {$EXTERNALSYM RC2_KEY_LENGTH} - RC2_KEY_LENGTH = 16; - {$ENDIF} - {$IFNDEF OPENSSL_NO_RC5} - {$EXTERNALSYM RC5_12_ROUNDS} - RC5_12_ROUNDS = 12; - {$EXTERNALSYM RC5_16_ROUNDS} - RC5_16_ROUNDS = 16; - {$EXTERNALSYM RC5_32_BLOCK} - RC5_32_BLOCK = 8; - {$EXTERNALSYM RC5_32_KEY_LENGTH} - RC5_32_KEY_LENGTH = 16; - {$EXTERNALSYM RC5_8_ROUNDS} - RC5_8_ROUNDS = 8; - {$EXTERNALSYM RC5_DECRYPT} - RC5_DECRYPT = 0; - {$EXTERNALSYM RC5_ENCRYPT} - RC5_ENCRYPT = 1; - {$ENDIF} - {$IFNDEF OPENSSL_NO_HMAC} - {$EXTERNALSYM HMAC_MAX_MD_CBLOCK} - HMAC_MAX_MD_CBLOCK = 128; //* largest known is SHA512 */ - {$ENDIF} - {$IFNDEF OPENSSL_NO_RIPEMD} - {$EXTERNALSYM RIPEMD160_BLOCK} - RIPEMD160_BLOCK = 16; - {$EXTERNALSYM RIPEMD160_CBLOCK} - RIPEMD160_CBLOCK = 64; - {$EXTERNALSYM RIPEMD160_DIGEST_LENGTH} - RIPEMD160_DIGEST_LENGTH = 20; - {$EXTERNALSYM RIPEMD160_LAST_BLOCK} - RIPEMD160_LAST_BLOCK = 56; - {$EXTERNALSYM RIPEMD160_LBLOCK} - RIPEMD160_LBLOCK = 16; - {$EXTERNALSYM RIPEMD160_LENGTH_BLOCK} - RIPEMD160_LENGTH_BLOCK = 8; - {$ENDIF} - {$IFNDEF OPENSSL_NO_RSA} -///* If this flag is set the RSA method is FIPS compliant and can be used -// * in FIPS mode. This is set in the validated module method. If an -// * application sets this flag in its own methods it is its reposibility -// * to ensure the result is compliant. -// */ - - {$EXTERNALSYM RSA_FLAG_FIPS_METHOD} - RSA_FLAG_FIPS_METHOD = $0400; - -///* If this flag is set the operations normally disabled in FIPS mode are -// * permitted it is then the applications responsibility to ensure that the -// * usage is compliant. -// */ - - {$EXTERNALSYM RSA_FLAG_NON_FIPS_ALLOW} - RSA_FLAG_NON_FIPS_ALLOW = $0400; - - {$EXTERNALSYM RSA_3} - RSA_3 = $3; - {$EXTERNALSYM RSA_F4} - RSA_F4 = $10001; - {$EXTERNALSYM RSA_FLAG_BLINDING} - RSA_FLAG_BLINDING = $08; - {$EXTERNALSYM RSA_FLAG_CACHE_PRIVATE} - RSA_FLAG_CACHE_PRIVATE = $04; - {$EXTERNALSYM RSA_FLAG_CACHE_PUBLIC} - RSA_FLAG_CACHE_PUBLIC = $02; - {$EXTERNALSYM RSA_FLAG_EXT_PKEY} - RSA_FLAG_EXT_PKEY = $20; - {$EXTERNALSYM RSA_FLAG_SIGN_VER} - RSA_FLAG_SIGN_VER = $0040; - {$EXTERNALSYM RSA_FLAG_NO_BLINDING} - RSA_FLAG_NO_BLINDING =$0080; //* new with 0.9.6j and 0.9.7b; the built-in - //* RSA implementation now uses blinding by - //* default (ignoring RSA_FLAG_BLINDING), - //* but other engines might not need it - //*/ - {$EXTERNALSYM RSA_FLAG_NO_CONSTTIME} - RSA_FLAG_NO_CONSTTIME = $0100; //* new with 0.9.8f; the built-in RSA - //* implementation now uses constant time - //* operations by default in private key operations, - //* e.g., constant time modular exponentiation, - //* modular inverse without leaking branches, - //* division without leaking branches. This - //* flag disables these constant time - //* operations and results in faster RSA - //* private key operations. - //*/ -{$IFNDEF OPENSSL_NO_DEPRECATED} - {$EXTERNALSYM RSA_FLAG_NO_EXP_CONSTTIME} - RSA_FLAG_NO_EXP_CONSTTIME = RSA_FLAG_NO_CONSTTIME; //* deprecated name for the flag*/ - //* new with 0.9.7h; the built-in RSA - //* implementation now uses constant time - //* modular exponentiation for secret exponents - //* by default. This flag causes the - //* faster variable sliding window method to - //* be used for all exponents. - //*/ -{$ENDIF} - //the openssl developers probably only wanted to define this if it was not already defined. - {$EXTERNALSYM RSA_MAX_MODULUS_BITS} - RSA_MAX_MODULUS_BITS = 16384; - {$EXTERNALSYM RSA_FIPS_MIN_MODULUS_BITS} - RSA_FIPS_MIN_MODULUS_BITS = 1024; - //the openssl developers probably only wanted to define this if it was not already defined. - {$EXTERNALSYM RSA_SMALL_MODULUS_BITS} - RSA_SMALL_MODULUS_BITS = 3072; - //the openssl developers probably only wanted to define this if it was not already defined. - {$EXTERNALSYM RSA_MAX_PUBEXP_BITS} - RSA_MAX_PUBEXP_BITS = 64; //* exponent limit enforced for "large" modulus only */ - - {$EXTERNALSYM RSA_FLAG_THREAD_SAFE} - RSA_FLAG_THREAD_SAFE = $10; - //* function codes */ - {$EXTERNALSYM RSA_F_FIPS_RSA_SIGN} - RSA_F_FIPS_RSA_SIGN = 140; - {$EXTERNALSYM RSA_F_FIPS_RSA_VERIFY} - RSA_F_FIPS_RSA_VERIFY = 141; - {$EXTERNALSYM RSA_F_MEMORY_LOCK} - RSA_F_MEMORY_LOCK = 100; - {$EXTERNALSYM RSA_F_RSA_CHECK_KEY} - RSA_F_RSA_CHECK_KEY = 123; - {$EXTERNALSYM RSA_F_RSA_EAY_PRIVATE_DECRYPT} - RSA_F_RSA_EAY_PRIVATE_DECRYPT = 101; - {$EXTERNALSYM RSA_F_RSA_EAY_PRIVATE_ENCRYPT} - RSA_F_RSA_EAY_PRIVATE_ENCRYPT = 102; - {$EXTERNALSYM RSA_F_RSA_EAY_PUBLIC_DECRYPT} - RSA_F_RSA_EAY_PUBLIC_DECRYPT = 103; - {$EXTERNALSYM RSA_F_RSA_EAY_PUBLIC_ENCRYPT} - RSA_F_RSA_EAY_PUBLIC_ENCRYPT = 104; - {$EXTERNALSYM RSA_F_RSA_GENERATE_KEY} - RSA_F_RSA_GENERATE_KEY = 105; - {$EXTERNALSYM RSA_F_RSA_NEW_METHOD} - RSA_F_RSA_NEW_METHOD = 106; - {$EXTERNALSYM RSA_F_RSA_PADDING_ADD_NONE} - RSA_F_RSA_PADDING_ADD_NONE = 107; - {$EXTERNALSYM RSA_F_RSA_PADDING_ADD_PKCS1_OAEP} - RSA_F_RSA_PADDING_ADD_PKCS1_OAEP = 121; - {$EXTERNALSYM RSA_F_RSA_PADDING_ADD_PKCS1_TYPE_1} - RSA_F_RSA_PADDING_ADD_PKCS1_TYPE_1 = 108; - {$EXTERNALSYM RSA_F_RSA_PADDING_ADD_PKCS1_TYPE_2} - RSA_F_RSA_PADDING_ADD_PKCS1_TYPE_2 = 109; - {$EXTERNALSYM RSA_F_RSA_PADDING_ADD_SSLV23} - RSA_F_RSA_PADDING_ADD_SSLV23 = 110; - {$EXTERNALSYM RSA_F_RSA_PADDING_CHECK_NONE} - RSA_F_RSA_PADDING_CHECK_NONE = 111; - {$EXTERNALSYM RSA_F_RSA_PADDING_CHECK_PKCS1_OAEP} - RSA_F_RSA_PADDING_CHECK_PKCS1_OAEP = 122; - {$EXTERNALSYM RSA_F_RSA_PADDING_CHECK_PKCS1_TYPE_1} - RSA_F_RSA_PADDING_CHECK_PKCS1_TYPE_1 = 112; - {$EXTERNALSYM RSA_F_RSA_PADDING_CHECK_PKCS1_TYPE_2} - RSA_F_RSA_PADDING_CHECK_PKCS1_TYPE_2 = 113; - {$EXTERNALSYM RSA_F_RSA_PADDING_CHECK_SSLV23} - RSA_F_RSA_PADDING_CHECK_SSLV23 = 114; - {$EXTERNALSYM RSA_F_RSA_PRINT} - RSA_F_RSA_PRINT = 115; - {$EXTERNALSYM RSA_F_RSA_PRINT_FP} - RSA_F_RSA_PRINT_FP = 116; - {$EXTERNALSYM RSA_F_RSA_PRIVATE_ENCRYPT} - RSA_F_RSA_PRIVATE_ENCRYPT = 137; - {$EXTERNALSYM RSA_F_RSA_PUBLIC_DECRYPT} - RSA_F_RSA_PUBLIC_DECRYPT = 138; - {$EXTERNALSYM RSA_F_RSA_SETUP_BLINDING} - RSA_F_RSA_SETUP_BLINDING = 136; - {$EXTERNALSYM RSA_F_RSA_SET_DEFAULT_METHOD} - RSA_F_RSA_SET_DEFAULT_METHOD = 139; - {$EXTERNALSYM RSA_F_RSA_SET_METHOD} - RSA_F_RSA_SET_METHOD = 142; - {$EXTERNALSYM RSA_F_RSA_SIGN} - RSA_F_RSA_SIGN = 117; - {$EXTERNALSYM RSA_F_RSA_SIGN_ASN1_OCTET_STRING} - RSA_F_RSA_SIGN_ASN1_OCTET_STRING = 118; - {$EXTERNALSYM RSA_F_RSA_VERIFY} - RSA_F_RSA_VERIFY = 119; - {$EXTERNALSYM RSA_F_RSA_VERIFY_ASN1_OCTET_STRING} - RSA_F_RSA_VERIFY_ASN1_OCTET_STRING = 120; - {$EXTERNALSYM RSA_F_RSA_VERIFY_PKCS1_PSS} - RSA_F_RSA_VERIFY_PKCS1_PSS = 126; - {$EXTERNALSYM RSA_METHOD_FLAG_NO_CHECK} - RSA_METHOD_FLAG_NO_CHECK = $01; - {$EXTERNALSYM RSA_NO_PADDING} - RSA_NO_PADDING = 3; - {$EXTERNALSYM RSA_PKCS1_OAEP_PADDING} - RSA_PKCS1_OAEP_PADDING = 4; - {$EXTERNALSYM RSA_PKCS1_PADDING} - RSA_PKCS1_PADDING = 1; - {$EXTERNALSYM RSA_R_ALGORITHM_MISMATCH} - RSA_R_ALGORITHM_MISMATCH = 100; - {$EXTERNALSYM RSA_R_BAD_E_VALUE} - RSA_R_BAD_E_VALUE = 101; - {$EXTERNALSYM RSA_R_BAD_FIXED_HEADER_DECRYPT} - RSA_R_BAD_FIXED_HEADER_DECRYPT = 102; - {$EXTERNALSYM RSA_R_BAD_PAD_BYTE_COUNT} - RSA_R_BAD_PAD_BYTE_COUNT = 103; - {$EXTERNALSYM RSA_R_BAD_SIGNATURE} - RSA_R_BAD_SIGNATURE = 104; - {$EXTERNALSYM RSA_R_BLOCK_TYPE_IS_NOT_01} - RSA_R_BLOCK_TYPE_IS_NOT_01 = 106; - {$EXTERNALSYM RSA_R_BLOCK_TYPE_IS_NOT_02} - RSA_R_BLOCK_TYPE_IS_NOT_02 = 107; - {$EXTERNALSYM RSA_R_DATA_GREATER_THAN_MOD_LEN} - RSA_R_DATA_GREATER_THAN_MOD_LEN = 108; - {$EXTERNALSYM RSA_R_DATA_TOO_LARGE} - RSA_R_DATA_TOO_LARGE = 109; - {$EXTERNALSYM RSA_R_DATA_TOO_LARGE_FOR_KEY_SIZE} - RSA_R_DATA_TOO_LARGE_FOR_KEY_SIZE = 110; - {$EXTERNALSYM RSA_R_DATA_TOO_SMALL} - RSA_R_DATA_TOO_SMALL = 111; - {$EXTERNALSYM RSA_R_DATA_TOO_SMALL_FOR_KEY_SIZE} - RSA_R_DATA_TOO_SMALL_FOR_KEY_SIZE = 122; - {$EXTERNALSYM RSA_R_DIGEST_TOO_BIG_FOR_RSA_KEY} - RSA_R_DIGEST_TOO_BIG_FOR_RSA_KEY = 112; - {$EXTERNALSYM RSA_R_DMP1_NOT_CONGRUENT_TO_D} - RSA_R_DMP1_NOT_CONGRUENT_TO_D = 124; - {$EXTERNALSYM RSA_R_DMQ1_NOT_CONGRUENT_TO_D} - RSA_R_DMQ1_NOT_CONGRUENT_TO_D = 125; - {$EXTERNALSYM RSA_R_D_E_NOT_CONGRUENT_TO_1} - RSA_R_D_E_NOT_CONGRUENT_TO_1 = 123; - {$EXTERNALSYM RSA_R_IQMP_NOT_INVERSE_OF_Q} - RSA_R_IQMP_NOT_INVERSE_OF_Q = 126; - {$EXTERNALSYM RSA_R_KEY_SIZE_TOO_SMALL} - RSA_R_KEY_SIZE_TOO_SMALL = 120; - {$EXTERNALSYM RSA_R_LAST_OCTET_INVALID} - RSA_R_LAST_OCTET_INVALID = 134; - {$EXTERNALSYM RSA_R_MODULUS_TOO_LARGE} - RSA_R_MODULUS_TOO_LARGE = 105; - {$EXTERNALSYM RSA_R_NON_FIPS_METHOD} - RSA_R_NON_FIPS_METHOD = 141; - {$EXTERNALSYM RSA_R_NO_PUBLIC_EXPONENT} - RSA_R_NO_PUBLIC_EXPONENT = 140; - {$EXTERNALSYM RSA_R_NULL_BEFORE_BLOCK_MISSING} - RSA_R_NULL_BEFORE_BLOCK_MISSING = 113; - {$EXTERNALSYM RSA_R_N_DOES_NOT_EQUAL_P_Q} - RSA_R_N_DOES_NOT_EQUAL_P_Q = 127; - {$EXTERNALSYM RSA_R_OAEP_DECODING_ERROR} - RSA_R_OAEP_DECODING_ERROR = 121; - {$EXTERNALSYM RSA_R_OPERATION_NOT_ALLOWED_IN_FIPS_MODE} - RSA_R_OPERATION_NOT_ALLOWED_IN_FIPS_MODE = 142; - {$EXTERNALSYM RSA_R_PADDING_CHECK_FAILED} - RSA_R_PADDING_CHECK_FAILED = 114; - {$EXTERNALSYM RSA_R_P_NOT_PRIME} - RSA_R_P_NOT_PRIME = 128; - {$EXTERNALSYM RSA_R_Q_NOT_PRIME} - RSA_R_Q_NOT_PRIME = 129; - {$EXTERNALSYM RSA_R_SLEN_CHECK_FAILED} - RSA_R_SLEN_CHECK_FAILED = 136; - {$EXTERNALSYM RSA_R_SLEN_RECOVERY_FAILED} - RSA_R_SLEN_RECOVERY_FAILED = 135; - {$EXTERNALSYM RSA_R_SSLV3_ROLLBACK_ATTACK} - RSA_R_SSLV3_ROLLBACK_ATTACK = 115; - {$EXTERNALSYM RSA_R_THE_ASN1_OBJECT_IDENTIFIER_IS_NOT_KNOWN_FOR_THIS_MD} - RSA_R_THE_ASN1_OBJECT_IDENTIFIER_IS_NOT_KNOWN_FOR_THIS_MD = 116; - {$EXTERNALSYM RSA_R_UNKNOWN_ALGORITHM_TYPE} - RSA_R_UNKNOWN_ALGORITHM_TYPE = 117; - {$EXTERNALSYM RSA_R_UNKNOWN_PADDING_TYPE} - RSA_R_UNKNOWN_PADDING_TYPE = 118; - {$EXTERNALSYM RSA_R_WRONG_SIGNATURE_LENGTH} - RSA_R_WRONG_SIGNATURE_LENGTH = 119; - {$EXTERNALSYM RSA_SSLV23_PADDING} - RSA_SSLV23_PADDING = 2; - {$ENDIF} - {$EXTERNALSYM SEEK_CUR} - SEEK_CUR = 1; - {$EXTERNALSYM SEEK_END} - SEEK_END = 2; - {$EXTERNALSYM SEEK_SET} - SEEK_SET = 0; - {$EXTERNALSYM SN_Algorithm} - SN_Algorithm = 'Algorithm'; {Do not localize} - {$EXTERNALSYM SN_SMIMECapabilities} - SN_SMIMECapabilities = 'SMIME-CAPS'; {Do not localize} - {$EXTERNALSYM SN_authority_key_identifier} - SN_authority_key_identifier = 'authorityKeyIdentifier'; {Do not localize} - {$EXTERNALSYM SN_basic_constraints} - SN_basic_constraints = 'basicConstraints'; {Do not localize} - {$EXTERNALSYM SN_bf_cbc} - SN_bf_cbc = 'BF-CBC'; {Do not localize} - {$EXTERNALSYM SN_bf_cfb64} - SN_bf_cfb64 = 'BF-CFB'; {Do not localize} - {$EXTERNALSYM SN_bf_ecb} - SN_bf_ecb = 'BF-ECB'; {Do not localize} - {$EXTERNALSYM SN_bf_ofb64} - SN_bf_ofb64 = 'BF-OFB'; {Do not localize} - {$EXTERNALSYM SN_cast5_cbc} - SN_cast5_cbc = 'CAST5-CBC'; {Do not localize} - {$EXTERNALSYM SN_cast5_cfb64} - SN_cast5_cfb64 = 'CAST5-CFB'; {Do not localize} - {$EXTERNALSYM SN_cast5_ecb} - SN_cast5_ecb = 'CAST5-ECB'; {Do not localize} - {$EXTERNALSYM SN_cast5_ofb64} - SN_cast5_ofb64 = 'CAST5-OFB'; {Do not localize} - {$EXTERNALSYM SN_certificate_policies} - SN_certificate_policies = 'certificatePolicies'; {Do not localize} - {$EXTERNALSYM SN_client_auth} - SN_client_auth = 'clientAuth'; {Do not localize} - {$EXTERNALSYM SN_code_sign} - SN_code_sign = 'codeSigning'; {Do not localize} - {$EXTERNALSYM SN_commonName} - SN_commonName = 'CN'; {Do not localize} - {$EXTERNALSYM SN_countryName} - SN_countryName = 'C'; {Do not localize} - {$EXTERNALSYM SN_crl_distribution_points} - SN_crl_distribution_points = 'crlDistributionPoints'; {Do not localize} - {$EXTERNALSYM SN_crl_number} - SN_crl_number = 'crlNumber'; {Do not localize} - {$EXTERNALSYM SN_crl_reason} - SN_crl_reason = 'CRLReason'; {Do not localize} - {$EXTERNALSYM SN_delta_crl} - SN_delta_crl = 'deltaCRL'; {Do not localize} - {$EXTERNALSYM SN_des_cbc} - SN_des_cbc = 'DES-CBC'; {Do not localize} - {$EXTERNALSYM SN_des_cfb64} - SN_des_cfb64 = 'DES-CFB'; {Do not localize} - {$EXTERNALSYM SN_des_ecb} - SN_des_ecb = 'DES-ECB'; {Do not localize} - {$EXTERNALSYM SN_des_ede} - SN_des_ede = 'DES-EDE'; {Do not localize} - {$EXTERNALSYM SN_des_ede3} - SN_des_ede3 = 'DES-EDE3'; {Do not localize} - {$EXTERNALSYM SN_des_ede3_cbc} - SN_des_ede3_cbc = 'DES-EDE3-CBC'; {Do not localize} - {$EXTERNALSYM SN_des_ede3_cfb64} - SN_des_ede3_cfb64 = 'DES-EDE3-CFB'; {Do not localize} - {$EXTERNALSYM SN_des_ede3_ofb64} - SN_des_ede3_ofb64 = 'DES-EDE3-OFB'; {Do not localize} - {$EXTERNALSYM SN_des_ede_cbc} - SN_des_ede_cbc = 'DES-EDE-CBC'; {Do not localize} - {$EXTERNALSYM SN_des_ede_cfb64} - SN_des_ede_cfb64 = 'DES-EDE-CFB'; {Do not localize} - {$EXTERNALSYM SN_des_ede_ofb64} - SN_des_ede_ofb64 = 'DES-EDE-OFB'; {Do not localize} - {$EXTERNALSYM SN_des_ofb64} - SN_des_ofb64 = 'DES-OFB'; {Do not localize} - {$EXTERNALSYM SN_description} - SN_description = 'D'; {Do not localize} - {$EXTERNALSYM SN_desx_cbc} - SN_desx_cbc = 'DESX-CBC'; {Do not localize} - {$EXTERNALSYM SN_dsa} - SN_dsa = 'DSA'; {Do not localize} - {$EXTERNALSYM SN_dsaWithSHA} - SN_dsaWithSHA = 'DSA-SHA'; {Do not localize} - {$EXTERNALSYM SN_dsaWithSHA1} - SN_dsaWithSHA1 = 'DSA-SHA1'; {Do not localize} - {$EXTERNALSYM SN_dsaWithSHA1_2} - SN_dsaWithSHA1_2 = 'DSA-SHA1-old'; {Do not localize} - {$EXTERNALSYM SN_dsa_2} - SN_dsa_2 = 'DSA-old'; {Do not localize} - {$EXTERNALSYM SN_X9_62_id_ecPublicKey} - SN_X9_62_id_ecPublicKey = 'id-ecPublicKey'; {Do not localize} - {$EXTERNALSYM SN_email_protect} - SN_email_protect = 'emailProtection'; {Do not localize} - {$EXTERNALSYM SN_ext_key_usage} - SN_ext_key_usage = 'extendedKeyUsage'; {Do not localize} - {$EXTERNALSYM SN_givenName} - SN_givenName = 'G'; {Do not localize} - {$EXTERNALSYM SN_id_kp} - SN_id_kp = 'id-kp'; {Do not localize} - {$EXTERNALSYM SN_id_pkix} - SN_id_pkix = 'PKIX'; {Do not localize} - {$EXTERNALSYM SN_id_qt_cps} - SN_id_qt_cps = 'id-qt-cps'; {Do not localize} - {$EXTERNALSYM SN_id_qt_unotice} - SN_id_qt_unotice = 'id-qt-unotice'; {Do not localize} - {$EXTERNALSYM SN_idea_cbc} - SN_idea_cbc = 'IDEA-CBC'; {Do not localize} - {$EXTERNALSYM SN_idea_cfb64} - SN_idea_cfb64 = 'IDEA-CFB'; {Do not localize} - {$EXTERNALSYM SN_idea_ecb} - SN_idea_ecb = 'IDEA-ECB'; {Do not localize} - {$EXTERNALSYM SN_idea_ofb64} - SN_idea_ofb64 = 'IDEA-OFB'; {Do not localize} - {$EXTERNALSYM SN_identified_organization} - SN_identified_organization = 'identified-organization'; {Do not localize} - {$EXTERNALSYM SN_initials} - SN_initials = 'I'; {Do not localize} - {$EXTERNALSYM SN_invalidity_date} - SN_invalidity_date = 'invalidityDate'; {Do not localize} - {$EXTERNALSYM SN_iso} - SN_iso = 'ISO'; {Do not localize} - {$EXTERNALSYM SN_issuer_alt_name} - SN_issuer_alt_name = 'issuerAltName'; {Do not localize} - {$EXTERNALSYM SN_itu_t} - SN_itu_t = 'ITU-T'; {Do not localize} - {$EXTERNALSYM SN_joint_iso_itu_t} - SN_joint_iso_itu_t = 'JOINT-ISO-ITU-T'; {Do not localize} - {$EXTERNALSYM SN_key_usage} - SN_key_usage = 'keyUsage'; {Do not localize} - {$EXTERNALSYM SN_ld_ce} - SN_ld_ce = 'ld-ce'; {Do not localize} - {$EXTERNALSYM SN_localityName} - SN_localityName = 'L'; {Do not localize} - {$EXTERNALSYM SN_md2} - SN_md2 = 'MD2'; {Do not localize} - {$EXTERNALSYM SN_md2WithRSAEncryption} - SN_md2WithRSAEncryption = 'RSA-MD2'; {Do not localize} - {$EXTERNALSYM SN_md5} - SN_md5 = 'MD5'; {Do not localize} - {$EXTERNALSYM SN_md5WithRSA} - SN_md5WithRSA = 'RSA-NP-MD5'; {Do not localize} - {$EXTERNALSYM SN_md5WithRSAEncryption} - SN_md5WithRSAEncryption = 'RSA-MD5'; {Do not localize} - {$EXTERNALSYM SN_md5_sha1} - SN_md5_sha1 = 'MD5-SHA1'; {Do not localize} - {$EXTERNALSYM SN_mdc2} - SN_mdc2 = 'MDC2'; {Do not localize} - {$EXTERNALSYM SN_mdc2WithRSA} - SN_mdc2WithRSA = 'RSA-MDC2'; {Do not localize} - {$EXTERNALSYM SN_member_body} - SN_member_body ='member-body'; {Do not localize} - {$EXTERNALSYM SN_ms_code_com} - SN_ms_code_com = 'msCodeCom'; {Do not localize} - {$EXTERNALSYM SN_ms_code_ind} - SN_ms_code_ind = 'msCodeInd'; {Do not localize} - {$EXTERNALSYM SN_ms_ctl_sign} - SN_ms_ctl_sign = 'msCTLSign'; {Do not localize} - {$EXTERNALSYM SN_ms_efs} - SN_ms_efs = 'msEFS'; {Do not localize} - {$EXTERNALSYM SN_ms_sgc} - SN_ms_sgc = 'msSGC'; {Do not localize} - {$EXTERNALSYM SN_netscape} - SN_netscape = 'Netscape'; {Do not localize} - {$EXTERNALSYM SN_netscape_base_url} - SN_netscape_base_url = 'nsBaseUrl'; {Do not localize} - {$EXTERNALSYM SN_netscape_ca_policy_url} - SN_netscape_ca_policy_url = 'nsCaPolicyUrl'; {Do not localize} - {$EXTERNALSYM SN_netscape_ca_revocation_url} - SN_netscape_ca_revocation_url = 'nsCaRevocationUrl'; {Do not localize} - {$EXTERNALSYM SN_netscape_cert_extension} - SN_netscape_cert_extension = 'nsCertExt'; {Do not localize} - {$EXTERNALSYM SN_netscape_cert_sequence} - SN_netscape_cert_sequence = 'nsCertSequence'; {Do not localize} - {$EXTERNALSYM SN_netscape_cert_type} - SN_netscape_cert_type = 'nsCertType'; {Do not localize} - {$EXTERNALSYM SN_netscape_comment} - SN_netscape_comment = 'nsComment'; {Do not localize} - {$EXTERNALSYM SN_netscape_data_type} - SN_netscape_data_type = 'nsDataType'; {Do not localize} - {$EXTERNALSYM SN_netscape_renewal_url} - SN_netscape_renewal_url = 'nsRenewalUrl'; {Do not localize} - {$EXTERNALSYM SN_netscape_revocation_url} - SN_netscape_revocation_url = 'nsRevocationUrl'; {Do not localize} - {$EXTERNALSYM SN_netscape_ssl_server_name} - SN_netscape_ssl_server_name = 'nsSslServerName'; {Do not localize} - {$EXTERNALSYM SN_ns_sgc} - SN_ns_sgc = 'nsSGC'; {Do not localize} - {$EXTERNALSYM SN_organizationName} - SN_organizationName = 'O'; {Do not localize} - {$EXTERNALSYM SN_organizationalUnitName} - SN_organizationalUnitName = 'OU'; {Do not localize} - {$EXTERNALSYM SN_pkcs9_emailAddress} - SN_pkcs9_emailAddress = 'Email'; {Do not localize} - {$EXTERNALSYM SN_private_key_usage_period} - SN_private_key_usage_period = 'privateKeyUsagePeriod'; {Do not localize} - {$EXTERNALSYM SN_rc2_40_cbc} - SN_rc2_40_cbc = 'RC2-40-CBC'; {Do not localize} - {$EXTERNALSYM SN_rc2_64_cbc} - SN_rc2_64_cbc = 'RC2-64-CBC'; {Do not localize} - {$EXTERNALSYM SN_rc2_cbc} - SN_rc2_cbc = 'RC2-CBC'; {Do not localize} - {$EXTERNALSYM SN_rc2_cfb64} - SN_rc2_cfb64 = 'RC2-CFB'; {Do not localize} - {$EXTERNALSYM SN_rc2_ecb} - SN_rc2_ecb = 'RC2-ECB'; {Do not localize} - {$EXTERNALSYM SN_rc2_ofb64} - SN_rc2_ofb64 = 'RC2-OFB'; {Do not localize} - {$EXTERNALSYM SN_rc4} - SN_rc4 = 'RC4'; {Do not localize} - {$EXTERNALSYM SN_rc4_40} - SN_rc4_40 = 'RC4-40'; {Do not localize} - {$EXTERNALSYM SN_rc5_cbc} - SN_rc5_cbc = 'RC5-CBC'; {Do not localize} - {$EXTERNALSYM SN_rc5_cfb64} - SN_rc5_cfb64 = 'RC5-CFB'; {Do not localize} - {$EXTERNALSYM SN_rc5_ecb} - SN_rc5_ecb = 'RC5-ECB'; {Do not localize} - {$EXTERNALSYM SN_rc5_ofb64} - SN_rc5_ofb64 = 'RC5-OFB'; {Do not localize} - {$EXTERNALSYM SN_ripemd160} - SN_ripemd160 = 'RIPEMD160'; {Do not localize} - {$EXTERNALSYM SN_ripemd160WithRSA} - SN_ripemd160WithRSA = 'RSA-RIPEMD160'; {Do not localize} - {$EXTERNALSYM SN_rle_compression} - SN_rle_compression = 'RLE'; {Do not localize} - {$EXTERNALSYM SN_rsa} - SN_rsa = 'RSA'; {Do not localize} - {$EXTERNALSYM SN_serialNumber} - SN_serialNumber = 'SN'; {Do not localize} - {$EXTERNALSYM SN_server_auth} - SN_server_auth = 'serverAuth'; {Do not localize} - {$EXTERNALSYM SN_sha} - SN_sha = 'SHA'; {Do not localize} - {$EXTERNALSYM SN_sha1} - SN_sha1 = 'SHA1'; {Do not localize} - {$EXTERNALSYM SN_sha1WithRSA} - SN_sha1WithRSA = 'RSA-SHA1-2'; {Do not localize} - {$EXTERNALSYM SN_sha1WithRSAEncryption} - SN_sha1WithRSAEncryption = 'RSA-SHA1'; {Do not localize} - {$EXTERNALSYM SN_shaWithRSAEncryption} - SN_shaWithRSAEncryption = 'RSA-SHA'; {Do not localize} - {$EXTERNALSYM SN_stateOrProvinceName} - SN_stateOrProvinceName = 'ST'; {Do not localize} - {$EXTERNALSYM SN_subject_alt_name} - SN_subject_alt_name = 'subjectAltName'; {Do not localize} - {$EXTERNALSYM SN_subject_key_identifier} - SN_subject_key_identifier = 'subjectKeyIdentifier'; {Do not localize} - {$EXTERNALSYM SN_surname} - SN_surname = 'S'; {Do not localize} - {$EXTERNALSYM SN_sxnet} - SN_sxnet = 'SXNetID'; {Do not localize} - {$EXTERNALSYM SN_time_stamp} - SN_time_stamp = 'timeStamping'; {Do not localize} - {$EXTERNALSYM SN_title} - SN_title = 'T'; {Do not localize} - {$EXTERNALSYM SN_undef} - SN_undef = 'UNDEF'; {Do not localize} - {$EXTERNALSYM SN_uniqueIdentifier} - SN_uniqueIdentifier = 'UID'; {Do not localize} - {$EXTERNALSYM SN_zlib_compression} - SN_zlib_compression = 'ZLIB'; {Do not localize} - {$EXTERNALSYM OCSP_DEFAULT_NONCE_LENGTH} - OCSP_DEFAULT_NONCE_LENGTH = 16; - {$EXTERNALSYM OCSP_NOCERTS} - OCSP_NOCERTS = $1; - {$EXTERNALSYM OCSP_NOINTERN} - OCSP_NOINTERN = $2; - {$EXTERNALSYM OCSP_NOSIGS} - OCSP_NOSIGS = $4; - {$EXTERNALSYM OCSP_NOCHAIN} - OCSP_NOCHAIN = $8; - {$EXTERNALSYM OCSP_NOVERIFY} - OCSP_NOVERIFY = $10; - {$EXTERNALSYM OCSP_NOEXPLICIT} - OCSP_NOEXPLICIT = $20; - {$EXTERNALSYM OCSP_NOCASIGN} - OCSP_NOCASIGN = $40; - {$EXTERNALSYM OCSP_NODELEGATED} - OCSP_NODELEGATED = $80; - {$EXTERNALSYM OCSP_NOCHECKS} - OCSP_NOCHECKS = $100; - {$EXTERNALSYM OCSP_TRUSTOTHER} - OCSP_TRUSTOTHER = $200; - {$EXTERNALSYM OCSP_RESPID_KEY} - OCSP_RESPID_KEY = $400; - {$EXTERNALSYM OCSP_NOTIME} - OCSP_NOTIME = $800; - {$EXTERNALSYM OCSP_RESPONSE_STATUS_SUCCESSFUL} - OCSP_RESPONSE_STATUS_SUCCESSFUL = 0; - {$EXTERNALSYM OCSP_RESPONSE_STATUS_MALFORMEDREQUEST} - OCSP_RESPONSE_STATUS_MALFORMEDREQUEST = 1; - {$EXTERNALSYM OCSP_RESPONSE_STATUS_INTERNALERROR} - OCSP_RESPONSE_STATUS_INTERNALERROR = 2; - {$EXTERNALSYM OCSP_RESPONSE_STATUS_TRYLATER} - OCSP_RESPONSE_STATUS_TRYLATER = 3; - {$EXTERNALSYM OCSP_RESPONSE_STATUS_SIGREQUIRED} - OCSP_RESPONSE_STATUS_SIGREQUIRED = 5; - {$EXTERNALSYM OCSP_RESPONSE_STATUS_UNAUTHORIZED} - OCSP_RESPONSE_STATUS_UNAUTHORIZED = 6; - {$EXTERNALSYM OCSP_REVOKED_STATUS_NOSTATUS} - OCSP_REVOKED_STATUS_NOSTATUS = -1; - {$EXTERNALSYM OCSP_REVOKED_STATUS_UNSPECIFIED} - OCSP_REVOKED_STATUS_UNSPECIFIED = 0; - {$EXTERNALSYM OCSP_REVOKED_STATUS_KEYCOMPROMISE} - OCSP_REVOKED_STATUS_KEYCOMPROMISE = 1; - {$EXTERNALSYM OCSP_REVOKED_STATUS_CACOMPROMISE} - OCSP_REVOKED_STATUS_CACOMPROMISE = 2; - {$EXTERNALSYM OCSP_REVOKED_STATUS_AFFILIATIONCHANGED} - OCSP_REVOKED_STATUS_AFFILIATIONCHANGED = 3; - {$EXTERNALSYM OCSP_REVOKED_STATUS_SUPERSEDED} - OCSP_REVOKED_STATUS_SUPERSEDED = 4; - {$EXTERNALSYM OCSP_REVOKED_STATUS_CESSATIONOFOPERATION} - OCSP_REVOKED_STATUS_CESSATIONOFOPERATION = 5; - {$EXTERNALSYM OCSP_REVOKED_STATUS_CERTIFICATEHOLD} - OCSP_REVOKED_STATUS_CERTIFICATEHOLD = 6; - {$EXTERNALSYM OCSP_REVOKED_STATUS_REMOVEFROMCRL} - OCSP_REVOKED_STATUS_REMOVEFROMCRL = 8; - {$EXTERNALSYM V_OCSP_CERTSTATUS_GOOD} - V_OCSP_CERTSTATUS_GOOD = 0; - {$EXTERNALSYM V_OCSP_CERTSTATUS_REVOKED} - V_OCSP_CERTSTATUS_REVOKED = 1; - {$EXTERNALSYM V_OCSP_CERTSTATUS_UNKNOWN} - V_OCSP_CERTSTATUS_UNKNOWN = 2; - {$EXTERNALSYM OCSP_F_ASN1_STRING_ENCODE} - OCSP_F_ASN1_STRING_ENCODE = 100; - {$EXTERNALSYM OCSP_F_D2I_OCSP_NONCE} - OCSP_F_D2I_OCSP_NONCE = 102; - {$EXTERNALSYM OCSP_F_OCSP_BASIC_ADD1_STATUS} - OCSP_F_OCSP_BASIC_ADD1_STATUS = 103; - {$EXTERNALSYM OCSP_F_OCSP_BASIC_SIGN} - OCSP_F_OCSP_BASIC_SIGN = 104; - {$EXTERNALSYM OCSP_F_OCSP_BASIC_VERIFY} - OCSP_F_OCSP_BASIC_VERIFY = 105; - {$EXTERNALSYM OCSP_F_OCSP_CERT_ID_NEW} - OCSP_F_OCSP_CERT_ID_NEW = 101; - {$EXTERNALSYM OCSP_F_OCSP_CHECK_DELEGATED} - OCSP_F_OCSP_CHECK_DELEGATED = 106; - {$EXTERNALSYM OCSP_F_OCSP_CHECK_IDS} - OCSP_F_OCSP_CHECK_IDS = 107; - {$EXTERNALSYM OCSP_F_OCSP_CHECK_ISSUER} - OCSP_F_OCSP_CHECK_ISSUER = 108; - {$EXTERNALSYM OCSP_F_OCSP_CHECK_VALIDITY} - OCSP_F_OCSP_CHECK_VALIDITY = 115; - {$EXTERNALSYM OCSP_F_OCSP_MATCH_ISSUERID} - OCSP_F_OCSP_MATCH_ISSUERID = 109; - {$EXTERNALSYM OCSP_F_OCSP_PARSE_URL} - OCSP_F_OCSP_PARSE_URL = 114; - {$EXTERNALSYM OCSP_F_OCSP_REQUEST_SIGN} - OCSP_F_OCSP_REQUEST_SIGN = 110; - {$EXTERNALSYM OCSP_F_OCSP_REQUEST_VERIFY} - OCSP_F_OCSP_REQUEST_VERIFY = 116; - {$EXTERNALSYM OCSP_F_OCSP_RESPONSE_GET1_BASIC} - OCSP_F_OCSP_RESPONSE_GET1_BASIC = 111; - {$EXTERNALSYM OCSP_F_OCSP_SENDREQ_BIO} - OCSP_F_OCSP_SENDREQ_BIO = 112; - {$EXTERNALSYM OCSP_F_PARSE_HTTP_LINE1} - OCSP_F_PARSE_HTTP_LINE1 = 117; - {$EXTERNALSYM OCSP_F_REQUEST_VERIFY} - OCSP_F_REQUEST_VERIFY = 113; -//* Reason codes. */ - {$EXTERNALSYM OCSP_R_BAD_DATA} - OCSP_R_BAD_DATA = 100; - {$EXTERNALSYM OCSP_R_CERTIFICATE_VERIFY_ERROR} - OCSP_R_CERTIFICATE_VERIFY_ERROR = 101; - {$EXTERNALSYM OCSP_R_DIGEST_ERR} - OCSP_R_DIGEST_ERR = 102; - {$EXTERNALSYM OCSP_R_ERROR_IN_NEXTUPDATE_FIELD} - OCSP_R_ERROR_IN_NEXTUPDATE_FIELD = 122; - {$EXTERNALSYM OCSP_R_ERROR_IN_THISUPDATE_FIELD} - OCSP_R_ERROR_IN_THISUPDATE_FIELD = 123; - {$EXTERNALSYM OCSP_R_ERROR_PARSING_URL} - OCSP_R_ERROR_PARSING_URL = 121; - {$EXTERNALSYM OCSP_R_MISSING_OCSPSIGNING_USAGE} - OCSP_R_MISSING_OCSPSIGNING_USAGE = 103; - {$EXTERNALSYM OCSP_R_NEXTUPDATE_BEFORE_THISUPDATE} - OCSP_R_NEXTUPDATE_BEFORE_THISUPDATE = 124; - {$EXTERNALSYM OCSP_R_NOT_BASIC_RESPONSE} - OCSP_R_NOT_BASIC_RESPONSE = 104; - {$EXTERNALSYM OCSP_R_NO_CERTIFICATES_IN_CHAIN} - OCSP_R_NO_CERTIFICATES_IN_CHAIN = 105; - {$EXTERNALSYM OCSP_R_NO_CONTENT} - OCSP_R_NO_CONTENT = 106; - {$EXTERNALSYM OCSP_R_NO_PUBLIC_KEY} - OCSP_R_NO_PUBLIC_KEY = 107; - {$EXTERNALSYM OCSP_R_NO_RESPONSE_DATA} - OCSP_R_NO_RESPONSE_DATA = 108; - {$EXTERNALSYM OCSP_R_NO_REVOKED_TIME} - OCSP_R_NO_REVOKED_TIME = 109; - {$EXTERNALSYM OCSP_R_PRIVATE_KEY_DOES_NOT_MATCH_CERTIFICATE} - OCSP_R_PRIVATE_KEY_DOES_NOT_MATCH_CERTIFICATE = 110; - {$EXTERNALSYM OCSP_R_REQUEST_NOT_SIGNED} - OCSP_R_REQUEST_NOT_SIGNED = 128; - {$EXTERNALSYM OCSP_R_RESPONSE_CONTAINS_NO_REVOCATION_DATA} - OCSP_R_RESPONSE_CONTAINS_NO_REVOCATION_DATA = 111; - {$EXTERNALSYM OCSP_R_ROOT_CA_NOT_TRUSTED} - OCSP_R_ROOT_CA_NOT_TRUSTED = 112; - {$EXTERNALSYM OCSP_R_SERVER_READ_ERROR} - OCSP_R_SERVER_READ_ERROR = 113; - {$EXTERNALSYM OCSP_R_SERVER_RESPONSE_ERROR} - OCSP_R_SERVER_RESPONSE_ERROR = 114; - {$EXTERNALSYM OCSP_R_SERVER_RESPONSE_PARSE_ERROR} - OCSP_R_SERVER_RESPONSE_PARSE_ERROR = 115; - {$EXTERNALSYM OCSP_R_SERVER_WRITE_ERROR} - OCSP_R_SERVER_WRITE_ERROR = 116; - {$EXTERNALSYM OCSP_R_SIGNATURE_FAILURE} - OCSP_R_SIGNATURE_FAILURE = 117; - {$EXTERNALSYM OCSP_R_SIGNER_CERTIFICATE_NOT_FOUND} - OCSP_R_SIGNER_CERTIFICATE_NOT_FOUND = 118; - {$EXTERNALSYM OCSP_R_STATUS_EXPIRED} - OCSP_R_STATUS_EXPIRED = 125; - {$EXTERNALSYM OCSP_R_STATUS_NOT_YET_VALID} - OCSP_R_STATUS_NOT_YET_VALID = 126; - {$EXTERNALSYM OCSP_R_STATUS_TOO_OLD} - OCSP_R_STATUS_TOO_OLD = 127; - {$EXTERNALSYM OCSP_R_UNKNOWN_MESSAGE_DIGEST} - OCSP_R_UNKNOWN_MESSAGE_DIGEST = 119; - {$EXTERNALSYM OCSP_R_UNKNOWN_NID} - OCSP_R_UNKNOWN_NID = 120; - {$EXTERNALSYM OCSP_R_UNSUPPORTED_REQUESTORNAME_TYPE} - OCSP_R_UNSUPPORTED_REQUESTORNAME_TYPE = 129; - {$EXTERNALSYM SSL_ST_CONNECT} - SSL_ST_CONNECT = $1000; - {$EXTERNALSYM SSL_ST_ACCEPT} - SSL_ST_ACCEPT = $2000; - {$EXTERNALSYM SSL_ST_MASK} - SSL_ST_MASK = $0FFF; - {$EXTERNALSYM SSL_ST_INIT} - SSL_ST_INIT = SSL_ST_CONNECT or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL_ST_BEFORE} - SSL_ST_BEFORE = $4000; - {$EXTERNALSYM SSL_ST_OK} - SSL_ST_OK = $03; - {$EXTERNALSYM SSL_ST_RENEGOTIATE} - SSL_ST_RENEGOTIATE = $04 or SSL_ST_INIT; - {$EXTERNALSYM SSL_CB_LOOP} - SSL_CB_LOOP = $01; - {$EXTERNALSYM SSL_CB_EXIT} - SSL_CB_EXIT = $02; - {$EXTERNALSYM SSL_CB_READ} - SSL_CB_READ = $04; - {$EXTERNALSYM SSL_CB_WRITE} - SSL_CB_WRITE = $08; - {$EXTERNALSYM SSL_CB_ALERT} - SSL_CB_ALERT = $4000; - - {$EXTERNALSYM SSL_CB_READ_ALERT} - SSL_CB_READ_ALERT = SSL_CB_ALERT or SSL_CB_READ; - {$EXTERNALSYM SSL_CB_WRITE_ALERT} - SSL_CB_WRITE_ALERT = SSL_CB_ALERT or SSL_CB_WRITE; - {$EXTERNALSYM SSL_CB_ACCEPT_LOOP} - SSL_CB_ACCEPT_LOOP = SSL_ST_ACCEPT or SSL_CB_LOOP; - {$EXTERNALSYM SSL_CB_ACCEPT_EXIT} - SSL_CB_ACCEPT_EXIT = SSL_ST_ACCEPT or SSL_CB_EXIT; - {$EXTERNALSYM SSL_CB_CONNECT_LOOP} - SSL_CB_CONNECT_LOOP = SSL_ST_CONNECT or SSL_CB_LOOP; - {$EXTERNALSYM SSL_CB_CONNECT_EXIT} - SSL_CB_CONNECT_EXIT = SSL_ST_CONNECT or SSL_CB_EXIT; - {$EXTERNALSYM SSL_CB_HANDSHAKE_START} - SSL_CB_HANDSHAKE_START = $10; - {$EXTERNALSYM SSL_CB_HANDSHAKE_DONE} - SSL_CB_HANDSHAKE_DONE = $20; - {$EXTERNALSYM SSL_ST_READ_BODY} - SSL_ST_READ_BODY = $F1; - {$EXTERNALSYM SSL_ST_READ_DONE} - SSL_ST_READ_DONE = $F2; - {$EXTERNALSYM SSL_ST_READ_HEADER} - SSL_ST_READ_HEADER = $F0; - - {$EXTERNALSYM SSL23_ST_CR_SRVR_HELLO_A} - SSL23_ST_CR_SRVR_HELLO_A = $220 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL23_ST_CR_SRVR_HELLO_B} - SSL23_ST_CR_SRVR_HELLO_B = $221 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL23_ST_CW_CLNT_HELLO_A} - SSL23_ST_CW_CLNT_HELLO_A = $210 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL23_ST_CW_CLNT_HELLO_B} - SSL23_ST_CW_CLNT_HELLO_B = $211 or SSL_ST_CONNECT; - - {$EXTERNALSYM SSL23_ST_SR_CLNT_HELLO_A} - SSL23_ST_SR_CLNT_HELLO_A = $210 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL23_ST_SR_CLNT_HELLO_B} - SSL23_ST_SR_CLNT_HELLO_B = $211 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_AT_MD5_WITH_RSA_ENCRYPTION} - SSL2_AT_MD5_WITH_RSA_ENCRYPTION = $01; - {$EXTERNALSYM SSL2_CF_5_BYTE_ENC} - SSL2_CF_5_BYTE_ENC = $01; - {$EXTERNALSYM SSL2_CF_8_BYTE_ENC} - SSL2_CF_8_BYTE_ENC = $02; - {$EXTERNALSYM SSL2_CHALLENGE_LENGTH} - SSL2_CHALLENGE_LENGTH = 16; - {$EXTERNALSYM SSL2_CK_DES_192_EDE3_CBC_WITH_MD5} - SSL2_CK_DES_192_EDE3_CBC_WITH_MD5 = $020700c0; - {$EXTERNALSYM SSL2_CK_DES_192_EDE3_CBC_WITH_SHA} - SSL2_CK_DES_192_EDE3_CBC_WITH_SHA = $020701c0; - {$EXTERNALSYM SSL2_CK_DES_64_CBC_WITH_MD5} - SSL2_CK_DES_64_CBC_WITH_MD5 = $02060040; - {$EXTERNALSYM SSL2_CK_DES_64_CBC_WITH_SHA} - SSL2_CK_DES_64_CBC_WITH_SHA = $02060140; - {$EXTERNALSYM SSL2_CK_DES_64_CFB64_WITH_MD5_1} - SSL2_CK_DES_64_CFB64_WITH_MD5_1 = $02ff0800; - {$EXTERNALSYM SSL2_CK_IDEA_128_CBC_WITH_MD5} - SSL2_CK_IDEA_128_CBC_WITH_MD5 = $02050080; - {$EXTERNALSYM SSL2_CK_NULL} - SSL2_CK_NULL = $02ff0810; - {$EXTERNALSYM SSL2_CK_NULL_WITH_MD5} - SSL2_CK_NULL_WITH_MD5 = $02000000; - {$EXTERNALSYM SSL2_CK_RC2_128_CBC_EXPORT40_WITH_MD5} - SSL2_CK_RC2_128_CBC_EXPORT40_WITH_MD5 = $02040080; - {$EXTERNALSYM SSL2_CK_RC2_128_CBC_WITH_MD5} - SSL2_CK_RC2_128_CBC_WITH_MD5 = $02030080; - {$EXTERNALSYM SSL2_CK_RC4_128_EXPORT40_WITH_MD5} - SSL2_CK_RC4_128_EXPORT40_WITH_MD5 = $02020080; - {$EXTERNALSYM SSL2_CK_RC4_128_WITH_MD5} - SSL2_CK_RC4_128_WITH_MD5 = $02010080; - {$EXTERNALSYM SSL2_CK_RC4_64_WITH_MD5} - SSL2_CK_RC4_64_WITH_MD5 = $02080080; - {$EXTERNALSYM SSL2_CONNECTION_ID_LENGTH} - SSL2_CONNECTION_ID_LENGTH = 16; - {$EXTERNALSYM SSL2_CT_X509_CERTIFICATE} - SSL2_CT_X509_CERTIFICATE = $01; - {$EXTERNALSYM SSL2_MAX_CERT_CHALLENGE_LENGTH} - SSL2_MAX_CERT_CHALLENGE_LENGTH = 32; - {$EXTERNALSYM SSL2_MAX_CHALLENGE_LENGTH} - SSL2_MAX_CHALLENGE_LENGTH = 32; - {$EXTERNALSYM SSL2_MAX_CONNECTION_ID_LENGTH} - SSL2_MAX_CONNECTION_ID_LENGTH = 16; - {$EXTERNALSYM SSL2_MAX_KEY_MATERIAL_LENGTH} - SSL2_MAX_KEY_MATERIAL_LENGTH = 24; - {$EXTERNALSYM SSL2_MAX_MASTER_KEY_LENGTH_IN_BITS} - SSL2_MAX_MASTER_KEY_LENGTH_IN_BITS = 256; - {$EXTERNALSYM SSL2_MAX_RECORD_LENGTH_3_BYTE_HEADER} - SSL2_MAX_RECORD_LENGTH_3_BYTE_HEADER = 16383; - {$EXTERNALSYM SSL2_MAX_SSL_SESSION_ID_LENGTH} - SSL2_MAX_SSL_SESSION_ID_LENGTH = 32; - {$EXTERNALSYM SSL2_MIN_CERT_CHALLENGE_LENGTH} - SSL2_MIN_CERT_CHALLENGE_LENGTH = 16; - {$EXTERNALSYM SSL2_MIN_CHALLENGE_LENGTH} - SSL2_MIN_CHALLENGE_LENGTH = 16; - {$EXTERNALSYM SSL2_MT_CLIENT_CERTIFICATE} - SSL2_MT_CLIENT_CERTIFICATE = 8; - {$EXTERNALSYM SSL2_MT_CLIENT_FINISHED} - SSL2_MT_CLIENT_FINISHED = 3; - {$EXTERNALSYM SSL2_MT_CLIENT_HELLO} - SSL2_MT_CLIENT_HELLO = 1; - {$EXTERNALSYM SSL2_MT_CLIENT_MASTER_KEY} - SSL2_MT_CLIENT_MASTER_KEY = 2; - {$EXTERNALSYM SSL2_MT_ERROR} - SSL2_MT_ERROR = 0; - {$EXTERNALSYM SSL2_MT_REQUEST_CERTIFICATE} - SSL2_MT_REQUEST_CERTIFICATE = 7; - {$EXTERNALSYM SSL2_MT_SERVER_FINISHED} - SSL2_MT_SERVER_FINISHED = 6; - {$EXTERNALSYM SSL2_MT_SERVER_HELLO} - SSL2_MT_SERVER_HELLO = 4; - {$EXTERNALSYM SSL2_MT_SERVER_VERIFY} - SSL2_MT_SERVER_VERIFY = 5; - {$EXTERNALSYM SSL2_PE_BAD_CERTIFICATE} - SSL2_PE_BAD_CERTIFICATE = $0004; - {$EXTERNALSYM SSL2_PE_NO_CERTIFICATE} - SSL2_PE_NO_CERTIFICATE = $0002; - {$EXTERNALSYM SSL2_PE_NO_CIPHER} - SSL2_PE_NO_CIPHER = $0001; - {$EXTERNALSYM SSL2_PE_UNDEFINED_ERROR} - SSL2_PE_UNDEFINED_ERROR = $0000; - {$EXTERNALSYM SSL2_PE_UNSUPPORTED_CERTIFICATE_TYPE} - SSL2_PE_UNSUPPORTED_CERTIFICATE_TYPE = $0006; - {$EXTERNALSYM SSL2_SSL_SESSION_ID_LENGTH} - SSL2_SSL_SESSION_ID_LENGTH = 16; - {$EXTERNALSYM SSL2_ST_CLIENT_START_ENCRYPTION} - SSL2_ST_CLIENT_START_ENCRYPTION = $80 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_GET_CLIENT_FINISHED_A} - SSL2_ST_GET_CLIENT_FINISHED_A = $50 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_GET_CLIENT_FINISHED_B} - SSL2_ST_GET_CLIENT_FINISHED_B = $51 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_GET_CLIENT_HELLO_A} - SSL2_ST_GET_CLIENT_HELLO_A = $10 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_GET_CLIENT_HELLO_B} - SSL2_ST_GET_CLIENT_HELLO_B = $11 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_GET_CLIENT_HELLO_C} - SSL2_ST_GET_CLIENT_HELLO_C = $12 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_GET_CLIENT_MASTER_KEY_A} - SSL2_ST_GET_CLIENT_MASTER_KEY_A = $30 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_GET_CLIENT_MASTER_KEY_B} - SSL2_ST_GET_CLIENT_MASTER_KEY_B = $31 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_GET_SERVER_FINISHED_A} - SSL2_ST_GET_SERVER_FINISHED_A = $70 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_GET_SERVER_FINISHED_B} - SSL2_ST_GET_SERVER_FINISHED_B = $71 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_GET_SERVER_HELLO_A} - SSL2_ST_GET_SERVER_HELLO_A = $20 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_GET_SERVER_HELLO_B} - SSL2_ST_GET_SERVER_HELLO_B = $21 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_GET_SERVER_VERIFY_A} - SSL2_ST_GET_SERVER_VERIFY_A = $60 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_GET_SERVER_VERIFY_B} - SSL2_ST_GET_SERVER_VERIFY_B = $61 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_SEND_CLIENT_CERTIFICATE_A} - SSL2_ST_SEND_CLIENT_CERTIFICATE_A = $50 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_SEND_CLIENT_CERTIFICATE_B} - SSL2_ST_SEND_CLIENT_CERTIFICATE_B = $51 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_SEND_CLIENT_CERTIFICATE_C} - SSL2_ST_SEND_CLIENT_CERTIFICATE_C = $52 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_SEND_CLIENT_CERTIFICATE_D} - SSL2_ST_SEND_CLIENT_CERTIFICATE_D = $53 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_SEND_CLIENT_FINISHED_A} - SSL2_ST_SEND_CLIENT_FINISHED_A = $40 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_SEND_CLIENT_FINISHED_B} - SSL2_ST_SEND_CLIENT_FINISHED_B = $41 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_SEND_CLIENT_HELLO_A} - SSL2_ST_SEND_CLIENT_HELLO_A = $10 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_SEND_CLIENT_HELLO_B} - SSL2_ST_SEND_CLIENT_HELLO_B = $11 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_SEND_CLIENT_MASTER_KEY_A} - SSL2_ST_SEND_CLIENT_MASTER_KEY_A = $30 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_SEND_CLIENT_MASTER_KEY_B} - SSL2_ST_SEND_CLIENT_MASTER_KEY_B = $31 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_SEND_REQUEST_CERTIFICATE_A} - SSL2_ST_SEND_REQUEST_CERTIFICATE_A = $70 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_SEND_REQUEST_CERTIFICATE_B} - SSL2_ST_SEND_REQUEST_CERTIFICATE_B = $71 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_SEND_REQUEST_CERTIFICATE_C} - SSL2_ST_SEND_REQUEST_CERTIFICATE_C = $72 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_SEND_REQUEST_CERTIFICATE_D} - SSL2_ST_SEND_REQUEST_CERTIFICATE_D = $73 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_SEND_SERVER_FINISHED_A} - SSL2_ST_SEND_SERVER_FINISHED_A = $60 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_SEND_SERVER_FINISHED_B} - SSL2_ST_SEND_SERVER_FINISHED_B = $61 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_SEND_SERVER_HELLO_A} - SSL2_ST_SEND_SERVER_HELLO_A = $20 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_SEND_SERVER_HELLO_B} - SSL2_ST_SEND_SERVER_HELLO_B = $21 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_SEND_SERVER_VERIFY_A} - SSL2_ST_SEND_SERVER_VERIFY_A = $40 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_SEND_SERVER_VERIFY_B} - SSL2_ST_SEND_SERVER_VERIFY_B = $41 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_SEND_SERVER_VERIFY_C} - SSL2_ST_SEND_SERVER_VERIFY_C = $42 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_SERVER_START_ENCRYPTION} - SSL2_ST_SERVER_START_ENCRYPTION = $80 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_ST_X509_GET_CLIENT_CERTIFICATE} - SSL2_ST_X509_GET_CLIENT_CERTIFICATE = $90 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL2_ST_X509_GET_SERVER_CERTIFICATE} - SSL2_ST_X509_GET_SERVER_CERTIFICATE = $90 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL2_TXT_DES_192_EDE3_CBC_WITH_MD5} - SSL2_TXT_DES_192_EDE3_CBC_WITH_MD5 = 'DES-CBC3-MD5'; {Do not localize} - {$EXTERNALSYM SSL2_TXT_DES_192_EDE3_CBC_WITH_SHA} - SSL2_TXT_DES_192_EDE3_CBC_WITH_SHA = 'DES-CBC3-SHA'; {Do not localize} - {$EXTERNALSYM SSL2_TXT_DES_64_CBC_WITH_MD5} - SSL2_TXT_DES_64_CBC_WITH_MD5 = 'DES-CBC-MD5'; {Do not localize} - {$EXTERNALSYM SSL2_TXT_DES_64_CBC_WITH_SHA} - SSL2_TXT_DES_64_CBC_WITH_SHA = 'DES-CBC-SHA'; {Do not localize} - {$EXTERNALSYM SSL2_TXT_DES_64_CFB64_WITH_MD5_1} - SSL2_TXT_DES_64_CFB64_WITH_MD5_1 = 'DES-CFB-M1'; {Do not localize} - {$EXTERNALSYM SSL2_TXT_IDEA_128_CBC_WITH_MD5} - SSL2_TXT_IDEA_128_CBC_WITH_MD5 = 'IDEA-CBC-MD5'; {Do not localize} - {$EXTERNALSYM SSL2_TXT_NULL} - SSL2_TXT_NULL = 'NULL'; {Do not localize} - {$EXTERNALSYM SSL2_TXT_NULL_WITH_MD5} - SSL2_TXT_NULL_WITH_MD5 = 'NULL-MD5'; {Do not localize} - {$EXTERNALSYM SSL2_TXT_RC2_128_CBC_EXPORT40_WITH_MD5} - SSL2_TXT_RC2_128_CBC_EXPORT40_WITH_MD5 = 'EXP-RC2-CBC-MD5'; {Do not localize} - {$EXTERNALSYM SSL2_TXT_RC2_128_CBC_WITH_MD5} - SSL2_TXT_RC2_128_CBC_WITH_MD5 = 'RC2-CBC-MD5'; {Do not localize} - {$EXTERNALSYM SSL2_TXT_RC4_128_EXPORT40_WITH_MD5} - SSL2_TXT_RC4_128_EXPORT40_WITH_MD5 = 'EXP-RC4-MD5'; {Do not localize} - {$EXTERNALSYM SSL2_TXT_RC4_128_WITH_MD5} - SSL2_TXT_RC4_128_WITH_MD5 = 'RC4-MD5'; {Do not localize} - {$EXTERNALSYM SSL2_TXT_RC4_64_WITH_MD5} - SSL2_TXT_RC4_64_WITH_MD5 = 'RC4-64-MD5'; {Do not localize} - {$EXTERNALSYM SSL2_VERSION} - SSL2_VERSION = $0002; - {$EXTERNALSYM SSL2_VERSION_MAJOR} - SSL2_VERSION_MAJOR = $00; - {$EXTERNALSYM SSL2_VERSION_MINOR} - SSL2_VERSION_MINOR = $02; - {$EXTERNALSYM SSL3_AD_BAD_CERTIFICATE} - SSL3_AD_BAD_CERTIFICATE = 42; - {$EXTERNALSYM SSL3_AD_BAD_RECORD_MAC} - SSL3_AD_BAD_RECORD_MAC = 20; - {$EXTERNALSYM SSL3_AD_CERTIFICATE_EXPIRED} - SSL3_AD_CERTIFICATE_EXPIRED = 45; - {$EXTERNALSYM SSL3_AD_CERTIFICATE_REVOKED} - SSL3_AD_CERTIFICATE_REVOKED = 44; - {$EXTERNALSYM SSL3_AD_CERTIFICATE_UNKNOWN} - SSL3_AD_CERTIFICATE_UNKNOWN = 46; - {$EXTERNALSYM SSL3_AD_CLOSE_NOTIFY} - SSL3_AD_CLOSE_NOTIFY = 0; - {$EXTERNALSYM SSL3_AD_DECOMPRESSION_FAILURE} - SSL3_AD_DECOMPRESSION_FAILURE = 30; - {$EXTERNALSYM SSL3_AD_HANDSHAKE_FAILURE} - SSL3_AD_HANDSHAKE_FAILURE = 40; - {$EXTERNALSYM SSL3_AD_ILLEGAL_PARAMETER} - SSL3_AD_ILLEGAL_PARAMETER = 47; - {$EXTERNALSYM TLS1_HB_REQUEST} - TLS1_HB_REQUEST = 1; - {$EXTERNALSYM TLS1_HB_RESPONSE} - TLS1_HB_RESPONSE = 2; - {$EXTERNALSYM SSL3_AD_NO_CERTIFICATE} - SSL3_AD_NO_CERTIFICATE = 41; - {$EXTERNALSYM SSL3_AD_UNEXPECTED_MESSAGE} - SSL3_AD_UNEXPECTED_MESSAGE = 10; - {$EXTERNALSYM SSL3_AD_UNSUPPORTED_CERTIFICATE} - SSL3_AD_UNSUPPORTED_CERTIFICATE = 43; - {$EXTERNALSYM SSL3_AL_FATAL} - SSL3_AL_FATAL = 2; - {$EXTERNALSYM SSL3_AL_WARNING} - SSL3_AL_WARNING = 1; - {$EXTERNALSYM SSL3_CC_CLIENT} - SSL3_CC_CLIENT = $10; - {$EXTERNALSYM SSL3_CC_READ} - SSL3_CC_READ = $01; - {$EXTERNALSYM SSL3_CC_SERVER} - SSL3_CC_SERVER = $20; - {$EXTERNALSYM SSL3_CC_WRITE} - SSL3_CC_WRITE = $02; - {$EXTERNALSYM SSL3_CHANGE_CIPHER_CLIENT_READ} - SSL3_CHANGE_CIPHER_CLIENT_READ = SSL3_CC_CLIENT or SSL3_CC_READ; - {$EXTERNALSYM SSL3_CHANGE_CIPHER_CLIENT_WRITE} - SSL3_CHANGE_CIPHER_CLIENT_WRITE = SSL3_CC_CLIENT or SSL3_CC_WRITE; - {$EXTERNALSYM SSL3_CHANGE_CIPHER_SERVER_READ} - SSL3_CHANGE_CIPHER_SERVER_READ = SSL3_CC_SERVER or SSL3_CC_READ; - {$EXTERNALSYM SSL3_CHANGE_CIPHER_SERVER_WRITE} - SSL3_CHANGE_CIPHER_SERVER_WRITE = SSL3_CC_SERVER or SSL3_CC_WRITE; - {$EXTERNALSYM SSL3_CK_ADH_DES_192_CBC_SHA} - SSL3_CK_ADH_DES_192_CBC_SHA = $0300001B; - {$EXTERNALSYM SSL3_CK_ADH_DES_40_CBC_SHA} - SSL3_CK_ADH_DES_40_CBC_SHA = $03000019; - {$EXTERNALSYM SSL3_CK_ADH_DES_64_CBC_SHA} - SSL3_CK_ADH_DES_64_CBC_SHA = $0300001A; - {$EXTERNALSYM SSL3_CK_ADH_RC4_128_MD5} - SSL3_CK_ADH_RC4_128_MD5 = $03000018; - {$EXTERNALSYM SSL3_CK_ADH_RC4_40_MD5} - SSL3_CK_ADH_RC4_40_MD5 = $03000017; - {$EXTERNALSYM SSL3_CK_DH_DSS_DES_192_CBC3_SHA} - SSL3_CK_DH_DSS_DES_192_CBC3_SHA = $0300000D; - {$EXTERNALSYM SSL3_CK_DH_DSS_DES_40_CBC_SHA} - SSL3_CK_DH_DSS_DES_40_CBC_SHA = $0300000B; - {$EXTERNALSYM SSL3_CK_DH_DSS_DES_64_CBC_SHA} - SSL3_CK_DH_DSS_DES_64_CBC_SHA = $0300000C; - {$EXTERNALSYM SSL3_CK_DH_RSA_DES_192_CBC3_SHA} - SSL3_CK_DH_RSA_DES_192_CBC3_SHA = $03000010; - {$EXTERNALSYM SSL3_CK_DH_RSA_DES_40_CBC_SHA} - SSL3_CK_DH_RSA_DES_40_CBC_SHA = $0300000E; - {$EXTERNALSYM SSL3_CK_DH_RSA_DES_64_CBC_SHA} - SSL3_CK_DH_RSA_DES_64_CBC_SHA = $0300000F; - {$EXTERNALSYM SSL3_CK_EDH_DSS_DES_192_CBC3_SHA} - SSL3_CK_EDH_DSS_DES_192_CBC3_SHA = $03000013; - {$EXTERNALSYM SSL3_CK_EDH_DSS_DES_40_CBC_SHA} - SSL3_CK_EDH_DSS_DES_40_CBC_SHA = $03000011; - {$EXTERNALSYM SSL3_CK_EDH_DSS_DES_64_CBC_SHA} - SSL3_CK_EDH_DSS_DES_64_CBC_SHA = $03000012; - {$EXTERNALSYM SSL3_CK_EDH_RSA_DES_192_CBC3_SHA} - SSL3_CK_EDH_RSA_DES_192_CBC3_SHA = $03000016; - {$EXTERNALSYM SSL3_CK_EDH_RSA_DES_40_CBC_SHA} - SSL3_CK_EDH_RSA_DES_40_CBC_SHA = $03000014; - {$EXTERNALSYM SSL3_CK_EDH_RSA_DES_64_CBC_SHA} - SSL3_CK_EDH_RSA_DES_64_CBC_SHA = $03000015; - {$EXTERNALSYM SSL3_CK_FZA_DMS_FZA_SHA} - SSL3_CK_FZA_DMS_FZA_SHA = $0300001D; - {$EXTERNALSYM SSL3_CK_FZA_DMS_NULL_SHA} - SSL3_CK_FZA_DMS_NULL_SHA = $0300001C; - {$EXTERNALSYM SSL3_CK_FZA_DMS_RC4_SHA} - SSL3_CK_FZA_DMS_RC4_SHA = $0300001E; - {$EXTERNALSYM SSL3_CK_RSA_DES_192_CBC3_SHA} - SSL3_CK_RSA_DES_192_CBC3_SHA = $0300000A; - {$EXTERNALSYM SSL3_CK_RSA_DES_40_CBC_SHA} - SSL3_CK_RSA_DES_40_CBC_SHA = $03000008; - {$EXTERNALSYM SSL3_CK_RSA_DES_64_CBC_SHA} - SSL3_CK_RSA_DES_64_CBC_SHA = $03000009; - {$EXTERNALSYM SSL3_CK_RSA_IDEA_128_SHA} - SSL3_CK_RSA_IDEA_128_SHA = $03000007; - //* Signalling cipher suite value: from draft-ietf-tls-renegotiation-03.txt */ - {$EXTERNALSYM SSL3_CK_SCSV} - SSL3_CK_SCSV = $030000FF; - - {$EXTERNALSYM SSL3_CK_RSA_NULL_MD5} - SSL3_CK_RSA_NULL_MD5 = $03000001; - {$EXTERNALSYM SSL3_CK_RSA_NULL_SHA} - SSL3_CK_RSA_NULL_SHA = $03000002; - {$EXTERNALSYM SSL3_CK_RSA_RC2_40_MD5} - SSL3_CK_RSA_RC2_40_MD5 = $03000006; - {$EXTERNALSYM SSL3_CK_RSA_RC4_128_MD5} - SSL3_CK_RSA_RC4_128_MD5 = $03000004; - {$EXTERNALSYM SSL3_CK_RSA_RC4_128_SHA} - SSL3_CK_RSA_RC4_128_SHA = $03000005; - {$EXTERNALSYM SSL3_CK_RSA_RC4_40_MD5} - SSL3_CK_RSA_RC4_40_MD5 = $03000003; - - {$EXTERNALSYM SSL3_CT_RSA_SIGN} - SSL3_CT_RSA_SIGN = 1; - {$EXTERNALSYM SSL3_CT_DSS_SIGN} - SSL3_CT_DSS_SIGN = 2; - {$EXTERNALSYM SSL3_CT_RSA_FIXED_DH} - SSL3_CT_RSA_FIXED_DH = 3; - {$EXTERNALSYM SSL3_CT_DSS_FIXED_DH} - SSL3_CT_DSS_FIXED_DH = 4; - {$EXTERNALSYM SSL3_CT_RSA_EPHEMERAL_DH} - SSL3_CT_RSA_EPHEMERAL_DH = 5; - {$EXTERNALSYM SSL3_CT_DSS_EPHEMERAL_DH} - SSL3_CT_DSS_EPHEMERAL_DH = 6; - - {$EXTERNALSYM SSL3_CT_FORTEZZA_DMS} - SSL3_CT_FORTEZZA_DMS = 20; - {$EXTERNALSYM SSL3_CT_NUMBER} - SSL3_CT_NUMBER = 9; //was 7; - - {$EXTERNALSYM SSL3_FLAGS_DELAY_CLIENT_FINISHED} - SSL3_FLAGS_DELAY_CLIENT_FINISHED = $0002; - {$EXTERNALSYM SSL3_FLAGS_NO_RENEGOTIATE_CIPHERS} - SSL3_FLAGS_NO_RENEGOTIATE_CIPHERS = $0001; - {$EXTERNALSYM SSL3_FLAGS_POP_BUFFER} - SSL3_FLAGS_POP_BUFFER = $0004; - {$EXTERNALSYM TLS1_FLAGS_TLS_PADDING_BUG} - TLS1_FLAGS_TLS_PADDING_BUG = $0008; - {$EXTERNALSYM TLS1_FLAGS_SKIP_CERT_VERIFY} - TLS1_FLAGS_SKIP_CERT_VERIFY = $0010; - {$EXTERNALSYM TLS1_FLAGS_KEEP_HANDSHAKE} - TLS1_FLAGS_KEEP_HANDSHAKE = $0020; - - {* SSL3_FLAGS_SGC_RESTART_DONE is set when we - * restart a handshake because of MS SGC and so prevents us - * from restarting the handshake in a loop. It's reset on a - * renegotiation, so effectively limits the client to one restart - * per negotiation. This limits the possibility of a DDoS - * attack where the client handshakes in a loop using SGC to - * restart. Servers which permit renegotiation can still be - * effected, but we can't prevent that. - *} - {$EXTERNALSYM SSL3_FLAGS_SGC_RESTART_DONE} - SSL3_FLAGS_SGC_RESTART_DONE = $0040; - - {$EXTERNALSYM SSL3_MASTER_SECRET_SIZE} - SSL3_MASTER_SECRET_SIZE = 48; - {$EXTERNALSYM SSL3_MAX_SSL_SESSION_ID_LENGTH} - SSL3_MAX_SSL_SESSION_ID_LENGTH = 32; - {$EXTERNALSYM SSL3_MT_HELLO_REQUEST} - SSL3_MT_HELLO_REQUEST = 0; - {$EXTERNALSYM SSL3_MT_CLIENT_REQUEST} - SSL3_MT_CLIENT_REQUEST = 0; - {$EXTERNALSYM SSL3_MT_CLIENT_HELLO} - SSL3_MT_CLIENT_HELLO = 1; - {$EXTERNALSYM SSL3_MT_SERVER_HELLO} - SSL3_MT_SERVER_HELLO = 2; - {$EXTERNALSYM SSL3_MT_NEWSESSION_TICKET} - SSL3_MT_NEWSESSION_TICKET = 4; - {$EXTERNALSYM SSL3_MT_CERTIFICATE} - SSL3_MT_CERTIFICATE = 11; - {$EXTERNALSYM SSL3_MT_SERVER_KEY_EXCHANGE} - SSL3_MT_SERVER_KEY_EXCHANGE = 12; - {$EXTERNALSYM SSL3_MT_CERTIFICATE_REQUEST} - SSL3_MT_CERTIFICATE_REQUEST = 13; - {$EXTERNALSYM SSL3_MT_SERVER_DONE} - SSL3_MT_SERVER_DONE = 14; - {$EXTERNALSYM SSL3_MT_CERTIFICATE_VERIFY} - SSL3_MT_CERTIFICATE_VERIFY = 15; - {$EXTERNALSYM SSL3_MT_CLIENT_KEY_EXCHANGE} - SSL3_MT_CLIENT_KEY_EXCHANGE = 16; - {$EXTERNALSYM SSL3_MT_FINISHED} - SSL3_MT_FINISHED = 20; - {$EXTERNALSYM SSL3_MT_CERTIFICATE_STATUS} - SSL3_MT_CERTIFICATE_STATUS = 22; - {$EXTERNALSYM SSL3_MT_NEXT_PROTO} - SSL3_MT_NEXT_PROTO = 67; - {$EXTERNALSYM DTLS1_MT_HELLO_VERIFY_REQUEST} - DTLS1_MT_HELLO_VERIFY_REQUEST = 3; - {$EXTERNALSYM SSL3_MT_CCS} - SSL3_MT_CCS = 1; - {$EXTERNALSYM SSL3_RANDOM_SIZE} - SSL3_RANDOM_SIZE = 32; - {$EXTERNALSYM SSL3_RS_BLANK} - SSL3_RS_BLANK = 1; - {$EXTERNALSYM SSL3_RS_ENCODED} - SSL3_RS_ENCODED = 2; - {$EXTERNALSYM SSL3_RS_PART_READ} - SSL3_RS_PART_READ = 4; - {$EXTERNALSYM SSL3_RS_PART_WRITE} - SSL3_RS_PART_WRITE = 5; - {$EXTERNALSYM SSL3_RS_PLAIN} - SSL3_RS_PLAIN = 3; - {$EXTERNALSYM SSL3_RS_READ_MORE} - SSL3_RS_READ_MORE = 3; - {$EXTERNALSYM SSL3_RT_ALERT} - SSL3_RT_ALERT = 21; - {$EXTERNALSYM SSL3_RT_APPLICATION_DATA} - SSL3_RT_APPLICATION_DATA = 23; - {$EXTERNALSYM TLS1_RT_HEARTBEAT} - TLS1_RT_HEARTBEAT = 24; - {$EXTERNALSYM SSL3_RT_CHANGE_CIPHER_SPEC} - SSL3_RT_CHANGE_CIPHER_SPEC = 20; - {$EXTERNALSYM SSL3_RT_HANDSHAKE} - SSL3_RT_HANDSHAKE = 22; - {$EXTERNALSYM SSL3_RT_HEADER_LENGTH} - SSL3_RT_HEADER_LENGTH = 5; - {$EXTERNALSYM SSL3_RT_MAX_MD_SIZE} - SSL3_RT_MAX_MD_SIZE = 64; - {$EXTERNALSYM SSL_RT_MAX_CIPHER_BLOCK_SIZE} - SSL_RT_MAX_CIPHER_BLOCK_SIZE = 16; - {$EXTERNALSYM SSL3_RT_MAX_EXTRA} - SSL3_RT_MAX_EXTRA = (16384); - - {$EXTERNALSYM SSL3_RT_MAX_PLAIN_LENGTH} - SSL3_RT_MAX_PLAIN_LENGTH = 16384; - {$EXTERNALSYM SSL3_RT_MAX_COMPRESSED_OVERHEAD} - SSL3_RT_MAX_COMPRESSED_OVERHEAD = 1024; - {$EXTERNALSYM SSL3_RT_MAX_ENCRYPTED_OVERHEAD} - SSL3_RT_MAX_ENCRYPTED_OVERHEAD = (256 + SSL3_RT_MAX_MD_SIZE); - {$EXTERNALSYM SSL3_RT_SEND_MAX_ENCRYPTED_OVERHEAD} - SSL3_RT_SEND_MAX_ENCRYPTED_OVERHEAD = (SSL_RT_MAX_CIPHER_BLOCK_SIZE + SSL3_RT_MAX_MD_SIZE); - {$EXTERNALSYM SSL3_RT_MAX_COMPRESSED_LENGTH} -{$ifdef OPENSSL_NO_COMP} - SSL3_RT_MAX_COMPRESSED_LENGTH = SSL3_RT_MAX_PLAIN_LENGTH; -{$else} - SSL3_RT_MAX_COMPRESSED_LENGTH = - (SSL3_RT_MAX_PLAIN_LENGTH+SSL3_RT_MAX_COMPRESSED_OVERHEAD); -{$endif} - {$EXTERNALSYM SSL3_RT_MAX_ENCRYPTED_LENGTH} - SSL3_RT_MAX_ENCRYPTED_LENGTH = - (SSL3_RT_MAX_ENCRYPTED_OVERHEAD+SSL3_RT_MAX_COMPRESSED_LENGTH); - {$EXTERNALSYM SSL3_RT_MAX_PACKET_SIZE} - SSL3_RT_MAX_PACKET_SIZE = - (SSL3_RT_MAX_ENCRYPTED_LENGTH+SSL3_RT_HEADER_LENGTH); - - {$EXTERNALSYM SSL3_RT_MAX_DATA_SIZE} - SSL3_RT_MAX_DATA_SIZE = 1024*1024; - - {$EXTERNALSYM SSL3_SESSION_ID_SIZE} - SSL3_SESSION_ID_SIZE = 32; - {$EXTERNALSYM SSL3_SSL_SESSION_ID_LENGTH} - SSL3_SSL_SESSION_ID_LENGTH = 32; - {$EXTERNALSYM SSL3_ST_CR_CERT_A} - SSL3_ST_CR_CERT_A = $130 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CR_CERT_B} - SSL3_ST_CR_CERT_B = $131 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CR_CERT_REQ_A} - SSL3_ST_CR_CERT_REQ_A = $150 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CR_CERT_REQ_B} - SSL3_ST_CR_CERT_REQ_B = $151 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CR_CHANGE_A} - SSL3_ST_CR_CHANGE_A = $1C0 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CR_CHANGE_B} - SSL3_ST_CR_CHANGE_B = $1C1 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CR_FINISHED_A} - SSL3_ST_CR_FINISHED_A = $1D0 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CR_FINISHED_B} - SSL3_ST_CR_FINISHED_B = $1D1 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CR_SESSION_TICKET_A} - SSL3_ST_CR_SESSION_TICKET_A = ($1E0 or SSL_ST_CONNECT); - {$EXTERNALSYM SSL3_ST_CR_SESSION_TICKET_B} - SSL3_ST_CR_SESSION_TICKET_B = ($1E1 or SSL_ST_CONNECT); - {$EXTERNALSYM SSL3_ST_CR_CERT_STATUS_A} - SSL3_ST_CR_CERT_STATUS_A = ($1F0 or SSL_ST_CONNECT); - {$EXTERNALSYM SSL3_ST_CR_CERT_STATUS_B} - SSL3_ST_CR_CERT_STATUS_B = ($1F1 or SSL_ST_CONNECT); - {$EXTERNALSYM SSL3_ST_CR_KEY_EXCH_A} - SSL3_ST_CR_KEY_EXCH_A = $140 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CR_KEY_EXCH_B} - SSL3_ST_CR_KEY_EXCH_B = $141 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CR_SRVR_DONE_A} - SSL3_ST_CR_SRVR_DONE_A = $160 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CR_SRVR_DONE_B} - SSL3_ST_CR_SRVR_DONE_B = $161 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CR_SRVR_HELLO_A} - SSL3_ST_CR_SRVR_HELLO_A = $120 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CR_SRVR_HELLO_B} - SSL3_ST_CR_SRVR_HELLO_B = $121 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CW_CERT_A} - SSL3_ST_CW_CERT_A = $170 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CW_CERT_B} - SSL3_ST_CW_CERT_B = $171 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CW_CERT_C} - SSL3_ST_CW_CERT_C = $172 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CW_CERT_D} - SSL3_ST_CW_CERT_D = $173 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CW_CERT_VRFY_A} - SSL3_ST_CW_CERT_VRFY_A = $190 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CW_CERT_VRFY_B} - SSL3_ST_CW_CERT_VRFY_B = $191 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CW_CHANGE_A} - SSL3_ST_CW_CHANGE_A = $1A0 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CW_CHANGE_B} - SSL3_ST_CW_CHANGE_B = $1A1 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CW_NEXT_PROTO_A} - SSL3_ST_CW_NEXT_PROTO_A = ($200 or SSL_ST_CONNECT); - {$EXTERNALSYM SSL3_ST_CW_NEXT_PROTO_B} - SSL3_ST_CW_NEXT_PROTO_B = ($201 or SSL_ST_CONNECT); - -{$ifndef OPENSSL_NO_SCTP} - {$EXTERNALSYM DTLS1_SCTP_ST_CW_WRITE_SOCK} - DTLS1_SCTP_ST_CW_WRITE_SOCK = $310 or SSL_ST_CONNECT; - {$EXTERNALSYM DTLS1_SCTP_ST_CR_READ_SOCK} - DTLS1_SCTP_ST_CR_READ_SOCK = $320 or SSL_ST_CONNECT; -{$endif} - {$EXTERNALSYM SSL3_ST_CW_CLNT_HELLO_A} - SSL3_ST_CW_CLNT_HELLO_A = $110 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CW_CLNT_HELLO_B} - SSL3_ST_CW_CLNT_HELLO_B = $111 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CW_FINISHED_A} - SSL3_ST_CW_FINISHED_A = $1B0 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CW_FINISHED_B} - SSL3_ST_CW_FINISHED_B = $1B1 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CW_FLUSH} - SSL3_ST_CW_FLUSH = $100 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CW_KEY_EXCH_A} - SSL3_ST_CW_KEY_EXCH_A = $180 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_CW_KEY_EXCH_B} - SSL3_ST_CW_KEY_EXCH_B = $181 or SSL_ST_CONNECT; - {$EXTERNALSYM SSL3_ST_SR_CERT_A} - SSL3_ST_SR_CERT_A = $180 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SR_CERT_B} - SSL3_ST_SR_CERT_B = $181 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SR_CERT_VRFY_A} - SSL3_ST_SR_CERT_VRFY_A = $1A0 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SR_CERT_VRFY_B} - SSL3_ST_SR_CERT_VRFY_B = $1A1 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SR_CHANGE_A} - SSL3_ST_SR_CHANGE_A = $1B0 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SR_CHANGE_B} - SSL3_ST_SR_CHANGE_B = $1B1 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SR_NEXT_PROTO_A} - SSL3_ST_SR_NEXT_PROTO_A = ($210 or SSL_ST_ACCEPT); - {$EXTERNALSYM SSL3_ST_SR_NEXT_PROTO_B} - SSL3_ST_SR_NEXT_PROTO_B = ($211 or SSL_ST_ACCEPT); - {$EXTERNALSYM SSL3_ST_SR_CLNT_HELLO_A} - SSL3_ST_SR_CLNT_HELLO_A = $110 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SR_CLNT_HELLO_B} - SSL3_ST_SR_CLNT_HELLO_B = $111 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SR_CLNT_HELLO_C} - SSL3_ST_SR_CLNT_HELLO_C = $112 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SR_FINISHED_A} - SSL3_ST_SR_FINISHED_A = $1C0 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SR_FINISHED_B} - SSL3_ST_SR_FINISHED_B = $1C1 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SR_KEY_EXCH_A} - SSL3_ST_SR_KEY_EXCH_A = $190 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SR_KEY_EXCH_B} - SSL3_ST_SR_KEY_EXCH_B = $191 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_CERT_A} - SSL3_ST_SW_CERT_A = $140 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_CERT_B} - SSL3_ST_SW_CERT_B = $141 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_CERT_REQ_A} - SSL3_ST_SW_CERT_REQ_A = $160 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_CERT_REQ_B} - SSL3_ST_SW_CERT_REQ_B = $161 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_CHANGE_A} - SSL3_ST_SW_CHANGE_A = $1D0 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_CHANGE_B} - SSL3_ST_SW_CHANGE_B = $1D1 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_FINISHED_A} - SSL3_ST_SW_FINISHED_A = $1E0 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_FINISHED_B} - SSL3_ST_SW_FINISHED_B = $1E1 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_SESSION_TICKET_A} - SSL3_ST_SW_SESSION_TICKET_A = ($1F0 or SSL_ST_ACCEPT); - {$EXTERNALSYM SSL3_ST_SW_SESSION_TICKET_B} - SSL3_ST_SW_SESSION_TICKET_B = ($1F1 or SSL_ST_ACCEPT); - {$EXTERNALSYM SSL3_ST_SW_CERT_STATUS_A} - SSL3_ST_SW_CERT_STATUS_A = ($200 or SSL_ST_ACCEPT); - {$EXTERNALSYM SSL3_ST_SW_CERT_STATUS_B} - SSL3_ST_SW_CERT_STATUS_B = ($201 or SSL_ST_ACCEPT); - {$EXTERNALSYM SSL3_ST_SW_FLUSH} - SSL3_ST_SW_FLUSH = $100 or SSL_ST_ACCEPT; -{$ifndef OPENSSL_NO_SCTP} - {$EXTERNALSYM DTLS1_SCTP_ST_SW_WRITE_SOCK} - DTLS1_SCTP_ST_SW_WRITE_SOCK = ($310 or SSL_ST_ACCEPT); - {$EXTERNALSYM DTLS1_SCTP_ST_SR_READ_SOCK} - DTLS1_SCTP_ST_SR_READ_SOCK = ($320 or SSL_ST_ACCEPT); -{$endif} - {$EXTERNALSYM SSL3_ST_SW_HELLO_REQ_A} - SSL3_ST_SW_HELLO_REQ_A = $120 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_HELLO_REQ_B} - SSL3_ST_SW_HELLO_REQ_B = $121 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_HELLO_REQ_C} - SSL3_ST_SW_HELLO_REQ_C = $122 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_KEY_EXCH_A} - SSL3_ST_SW_KEY_EXCH_A = $150 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_KEY_EXCH_B} - SSL3_ST_SW_KEY_EXCH_B = $151 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_SRVR_DONE_A} - SSL3_ST_SW_SRVR_DONE_A = $170 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_SRVR_DONE_B} - SSL3_ST_SW_SRVR_DONE_B = $171 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_SRVR_HELLO_A} - SSL3_ST_SW_SRVR_HELLO_A = $130 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_ST_SW_SRVR_HELLO_B} - SSL3_ST_SW_SRVR_HELLO_B = $131 or SSL_ST_ACCEPT; - {$EXTERNALSYM SSL3_TXT_ADH_DES_192_CBC_SHA} - SSL3_TXT_ADH_DES_192_CBC_SHA = 'ADH-DES-CBC3-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_ADH_DES_40_CBC_SHA} - SSL3_TXT_ADH_DES_40_CBC_SHA = 'EXP-ADH-DES-CBC-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_ADH_DES_64_CBC_SHA} - SSL3_TXT_ADH_DES_64_CBC_SHA = 'ADH-DES-CBC-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_ADH_RC4_128_MD5} - SSL3_TXT_ADH_RC4_128_MD5 = 'ADH-RC4-MD5'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_ADH_RC4_40_MD5} - SSL3_TXT_ADH_RC4_40_MD5 = 'EXP-ADH-RC4-MD5'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_DH_DSS_DES_192_CBC3_SHA} - SSL3_TXT_DH_DSS_DES_192_CBC3_SHA = 'DH-DSS-DES-CBC3-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_DH_DSS_DES_40_CBC_SHA} - SSL3_TXT_DH_DSS_DES_40_CBC_SHA = 'EXP-DH-DSS-DES-CBC-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_DH_DSS_DES_64_CBC_SHA} - SSL3_TXT_DH_DSS_DES_64_CBC_SHA = 'DH-DSS-DES-CBC-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_DH_RSA_DES_192_CBC3_SHA} - SSL3_TXT_DH_RSA_DES_192_CBC3_SHA = 'DH-RSA-DES-CBC3-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_DH_RSA_DES_40_CBC_SHA} - SSL3_TXT_DH_RSA_DES_40_CBC_SHA = 'EXP-DH-RSA-DES-CBC-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_DH_RSA_DES_64_CBC_SHA} - SSL3_TXT_DH_RSA_DES_64_CBC_SHA = 'DH-RSA-DES-CBC-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_EDH_DSS_DES_192_CBC3_SHA} - SSL3_TXT_EDH_DSS_DES_192_CBC3_SHA = 'EDH-DSS-DES-CBC3-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_EDH_DSS_DES_40_CBC_SHA} - SSL3_TXT_EDH_DSS_DES_40_CBC_SHA = 'EXP-EDH-DSS-DES-CBC-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_EDH_DSS_DES_64_CBC_SHA} - SSL3_TXT_EDH_DSS_DES_64_CBC_SHA = 'EDH-DSS-DES-CBC-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_EDH_RSA_DES_192_CBC3_SHA} - SSL3_TXT_EDH_RSA_DES_192_CBC3_SHA = 'EDH-RSA-DES-CBC3-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_EDH_RSA_DES_40_CBC_SHA} - SSL3_TXT_EDH_RSA_DES_40_CBC_SHA = 'EXP-EDH-RSA-DES-CBC-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_EDH_RSA_DES_64_CBC_SHA} - SSL3_TXT_EDH_RSA_DES_64_CBC_SHA = 'EDH-RSA-DES-CBC-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_FZA_DMS_FZA_SHA} - SSL3_TXT_FZA_DMS_FZA_SHA = 'FZA-FZA-CBC-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_FZA_DMS_NULL_SHA} - SSL3_TXT_FZA_DMS_NULL_SHA = 'FZA-NULL-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_FZA_DMS_RC4_SHA} - SSL3_TXT_FZA_DMS_RC4_SHA = 'FZA-RC4-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_RSA_DES_192_CBC3_SHA} - SSL3_TXT_RSA_DES_192_CBC3_SHA = 'DES-CBC3-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_RSA_DES_40_CBC_SHA} - SSL3_TXT_RSA_DES_40_CBC_SHA = 'EXP-DES-CBC-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_RSA_DES_64_CBC_SHA} - SSL3_TXT_RSA_DES_64_CBC_SHA = 'DES-CBC-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_RSA_IDEA_128_SHA} - SSL3_TXT_RSA_IDEA_128_SHA = 'IDEA-CBC-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_RSA_NULL_MD5} - SSL3_TXT_RSA_NULL_MD5 = 'NULL-MD5'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_RSA_NULL_SHA} - SSL3_TXT_RSA_NULL_SHA = 'NULL-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_RSA_RC2_40_MD5} - SSL3_TXT_RSA_RC2_40_MD5 = 'EXP-RC2-CBC-MD5'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_RSA_RC4_128_MD5} - SSL3_TXT_RSA_RC4_128_MD5 = 'RC4-MD5'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_RSA_RC4_128_SHA} - SSL3_TXT_RSA_RC4_128_SHA = 'RC4-SHA'; {Do not localize} - {$EXTERNALSYM SSL3_TXT_RSA_RC4_40_MD5} - SSL3_TXT_RSA_RC4_40_MD5 = 'EXP-RC4-MD5'; {Do not localize} - {$EXTERNALSYM SSL3_VERSION} - SSL3_VERSION = $0300; - {$EXTERNALSYM SSL3_VERSION_MAJOR} - SSL3_VERSION_MAJOR = $03; - {$EXTERNALSYM SSL3_VERSION_MINOR} - SSL3_VERSION_MINOR = $00; - {$EXTERNALSYM SSLEAY_VERSION} - SSLEAY_VERSION = 0; -//* #define SSLEAY_OPTIONS 1 no longer supported */ - {$EXTERNALSYM SSLEAY_CFLAGS} - SSLEAY_CFLAGS = 2; - {$EXTERNALSYM SSLEAY_BUILT_ON} - SSLEAY_BUILT_ON = 3; - {$EXTERNALSYM SSLEAY_PLATFORM} - SSLEAY_PLATFORM = 4; - {$EXTERNALSYM SSLEAY_DIR} - SSLEAY_DIR = 5; - //tls1.h - {$EXTERNALSYM TLS1_AD_DECRYPTION_FAILED} - TLS1_AD_DECRYPTION_FAILED = 21; - {$EXTERNALSYM TLS1_AD_RECORD_OVERFLOW} - TLS1_AD_RECORD_OVERFLOW = 22; - {$EXTERNALSYM TLS1_AD_UNKNOWN_CA} - TLS1_AD_UNKNOWN_CA = 48; - {$EXTERNALSYM TLS1_AD_ACCESS_DENIED} - TLS1_AD_ACCESS_DENIED = 49; - {$EXTERNALSYM TLS1_AD_DECODE_ERROR} - TLS1_AD_DECODE_ERROR = 50; - {$EXTERNALSYM TLS1_AD_DECRYPT_ERROR} - TLS1_AD_DECRYPT_ERROR = 51; - {$EXTERNALSYM TLS1_AD_EXPORT_RESTRICTION} - TLS1_AD_EXPORT_RESTRICTION = 60; - {$EXTERNALSYM TLS1_AD_PROTOCOL_VERSION} - TLS1_AD_PROTOCOL_VERSION = 70; - {$EXTERNALSYM TLS1_AD_INSUFFICIENT_SECURITY} - TLS1_AD_INSUFFICIENT_SECURITY = 71; - {$EXTERNALSYM TLS1_AD_INTERNAL_ERROR} - TLS1_AD_INTERNAL_ERROR = 80; - {$EXTERNALSYM TLS1_AD_USER_CANCELLED} - TLS1_AD_USER_CANCELLED = 90; - {$EXTERNALSYM TLS1_AD_NO_RENEGOTIATION} - TLS1_AD_NO_RENEGOTIATION = 100; - //* codes 110-114 are from RFC3546 */ - {$EXTERNALSYM TLS1_AD_UNSUPPORTED_EXTENSION} - TLS1_AD_UNSUPPORTED_EXTENSION = 110; - {$EXTERNALSYM TLS1_AD_CERTIFICATE_UNOBTAINABLE} - TLS1_AD_CERTIFICATE_UNOBTAINABLE = 111; - {$EXTERNALSYM TLS1_AD_UNRECOGNIZED_NAME} - TLS1_AD_UNRECOGNIZED_NAME = 112; - {$EXTERNALSYM TLS1_AD_BAD_CERTIFICATE_STATUS_RESPONSE} - TLS1_AD_BAD_CERTIFICATE_STATUS_RESPONSE = 113; - {$EXTERNALSYM TLS1_AD_BAD_CERTIFICATE_HASH_VALUE} - TLS1_AD_BAD_CERTIFICATE_HASH_VALUE = 114; - {$EXTERNALSYM TLS1_AD_UNKNOWN_PSK_IDENTITY} - TLS1_AD_UNKNOWN_PSK_IDENTITY = 115;//* fatal */ -//* ExtensionType values from RFC 3546 */ - {$EXTERNALSYM TLSEXT_TYPE_server_name} - TLSEXT_TYPE_server_name = 0; - {$EXTERNALSYM TLSEXT_TYPE_max_fragment_length} - TLSEXT_TYPE_max_fragment_length = 1; - {$EXTERNALSYM TLSEXT_TYPE_client_certificate_url} - TLSEXT_TYPE_client_certificate_url = 2; - {$EXTERNALSYM TLSEXT_TYPE_trusted_ca_keys} - TLSEXT_TYPE_trusted_ca_keys = 3; - {$EXTERNALSYM TLSEXT_TYPE_truncated_hmac} - TLSEXT_TYPE_truncated_hmac = 4; - {$EXTERNALSYM TLSEXT_TYPE_status_request} - TLSEXT_TYPE_status_request =5; - {$EXTERNALSYM TLSEXT_TYPE_user_mapping} - TLSEXT_TYPE_user_mapping = 6; - {$EXTERNALSYM TLSEXT_TYPE_client_authz} - TLSEXT_TYPE_client_authz = 7; - {$EXTERNALSYM TLSEXT_TYPE_server_authz} - TLSEXT_TYPE_server_authz = 8; - {$EXTERNALSYM TLSEXT_TYPE_cert_type} - TLSEXT_TYPE_cert_type = 9; - {$EXTERNALSYM TLSEXT_TYPE_elliptic_curves} - TLSEXT_TYPE_elliptic_curves = 10; - {$EXTERNALSYM TLSEXT_TYPE_ec_point_formats} - TLSEXT_TYPE_ec_point_formats = 11; - {$EXTERNALSYM TLSEXT_TYPE_srp} - TLSEXT_TYPE_srp = 12; - {$EXTERNALSYM TLSEXT_TYPE_signature_algorithms} - TLSEXT_TYPE_signature_algorithms = 13; - {$EXTERNALSYM TLSEXT_TYPE_use_srtp} - TLSEXT_TYPE_use_srtp = 14; - {$EXTERNALSYM TLSEXT_TYPE_heartbeat} - TLSEXT_TYPE_heartbeat = 15; - {$EXTERNALSYM TLSEXT_TYPE_session_ticket} - TLSEXT_TYPE_session_ticket = 35; - {$IFNDEF OPENSSL_NO_NEXTPROTONEG} -//* This is not an IANA defined extension number */ - {$EXTERNALSYM TLSEXT_TYPE_next_proto_neg} - TLSEXT_TYPE_next_proto_neg = 13172; - {$ENDIF} - //* Temporary extension type */ - {$EXTERNALSYM TLSEXT_TYPE_renegotiate} - TLSEXT_TYPE_renegotiate = $ff01; - - //* NameType value from RFC 3546 */ - {$EXTERNALSYM TLSEXT_NAMETYPE_host_name} - TLSEXT_NAMETYPE_host_name = 0; -//* status request value from RFC 3546 */ - {$EXTERNALSYM TLSEXT_STATUSTYPE_ocsp} - TLSEXT_STATUSTYPE_ocsp = 1; - {$EXTERNALSYM TLSEXT_ECPOINTFORMAT_first} - TLSEXT_ECPOINTFORMAT_first = 0; - {$EXTERNALSYM TLSEXT_ECPOINTFORMAT_uncompressed} - TLSEXT_ECPOINTFORMAT_uncompressed = 0; - {$EXTERNALSYM TLSEXT_ECPOINTFORMAT_ansiX962_compressed_prime} - TLSEXT_ECPOINTFORMAT_ansiX962_compressed_prime = 1; - {$EXTERNALSYM TLSEXT_ECPOINTFORMAT_ansiX962_compressed_char2} - TLSEXT_ECPOINTFORMAT_ansiX962_compressed_char2 = 2; - {$EXTERNALSYM TLSEXT_ECPOINTFORMAT_last} - TLSEXT_ECPOINTFORMAT_last = 2; - {$EXTERNALSYM TLSEXT_signature_anonymous} - TLSEXT_signature_anonymous = 0; - {$EXTERNALSYM TLSEXT_signature_rsa} - TLSEXT_signature_rsa = 1; - {$EXTERNALSYM TLSEXT_signature_dsa} - TLSEXT_signature_dsa = 2; - {$EXTERNALSYM TLSEXT_signature_ecdsa} - TLSEXT_signature_ecdsa = 3; - {$EXTERNALSYM TLSEXT_hash_none} - TLSEXT_hash_none = 0; - {$EXTERNALSYM TLSEXT_hash_md5} - TLSEXT_hash_md5 = 1; - {$EXTERNALSYM TLSEXT_hash_sha1} - TLSEXT_hash_sha1 = 2; - {$EXTERNALSYM TLSEXT_hash_sha224} - TLSEXT_hash_sha224 = 3; - {$EXTERNALSYM TLSEXT_hash_sha256} - TLSEXT_hash_sha256 = 4; - {$EXTERNALSYM TLSEXT_hash_sha384} - TLSEXT_hash_sha384 = 5; - {$EXTERNALSYM TLSEXT_hash_sha512} - TLSEXT_hash_sha512 = 6; - -{$IFNDEF OPENSSL_NO_TLSEXT} - {$EXTERNALSYM TLSEXT_MAXLEN_host_name} - TLSEXT_MAXLEN_host_name = 255; - {$EXTERNALSYM SSL_TLSEXT_ERR_OK} - SSL_TLSEXT_ERR_OK = 0; - {$EXTERNALSYM SSL_TLSEXT_ERR_ALERT_WARNING} - SSL_TLSEXT_ERR_ALERT_WARNING = 1; - {$EXTERNALSYM SSL_TLSEXT_ERR_ALERT_FATAL} - SSL_TLSEXT_ERR_ALERT_FATAL = 2; - {$EXTERNALSYM SSL_TLSEXT_ERR_NOACK} - SSL_TLSEXT_ERR_NOACK = 3; - {$IFDEF OPENSSL_NO_HEARTBEATS} - {$EXTERNALSYM SSL_TLSEXT_HB_DONT_SEND_REQUESTS} - SSL_TLSEXT_HB_ENABLED = $01; - {$EXTERNALSYM SSL_TLSEXT_HB_DONT_SEND_REQUESTS} - SSL_TLSEXT_HB_DONT_SEND_REQUESTS = $02; - {$EXTERNALSYM SSL_TLSEXT_HB_DONT_RECV_REQUESTS} - SSL_TLSEXT_HB_DONT_RECV_REQUESTS = $04; - {$ENDIF} -{$ENDIF} - // - {$EXTERNALSYM SSLEAY_VERSION_NUMBER} - SSLEAY_VERSION_NUMBER = OPENSSL_VERSION_NUMBER; - {$EXTERNALSYM SSL_AD_REASON_OFFSET} - SSL_AD_REASON_OFFSET = 1000; - {$EXTERNALSYM SSL_AD_CLOSE_NOTIFY} - SSL_AD_CLOSE_NOTIFY = SSL3_AD_CLOSE_NOTIFY; - {$EXTERNALSYM SSL_AD_UNEXPECTED_MESSAGE} - SSL_AD_UNEXPECTED_MESSAGE = SSL3_AD_UNEXPECTED_MESSAGE; - {$EXTERNALSYM SSL_AD_BAD_RECORD_MAC} - SSL_AD_BAD_RECORD_MAC = SSL3_AD_BAD_RECORD_MAC; - {$EXTERNALSYM SSL_AD_DECRYPTION_FAILED} - SSL_AD_DECRYPTION_FAILED = TLS1_AD_DECRYPTION_FAILED; - {$EXTERNALSYM SSL_AD_RECORD_OVERFLOW} - SSL_AD_RECORD_OVERFLOW = TLS1_AD_RECORD_OVERFLOW; - {$EXTERNALSYM SSL_AD_DECOMPRESSION_FAILURE} - SSL_AD_DECOMPRESSION_FAILURE = SSL3_AD_DECOMPRESSION_FAILURE; - {$EXTERNALSYM SSL_AD_HANDSHAKE_FAILURE} - SSL_AD_HANDSHAKE_FAILURE = SSL3_AD_HANDSHAKE_FAILURE; - {$EXTERNALSYM SSL_AD_NO_CERTIFICATE} - SSL_AD_NO_CERTIFICATE = SSL3_AD_NO_CERTIFICATE; - {$EXTERNALSYM SSL_AD_BAD_CERTIFICATE} - SSL_AD_BAD_CERTIFICATE = SSL3_AD_BAD_CERTIFICATE; - {$EXTERNALSYM SSL_AD_UNSUPPORTED_CERTIFICATE} - SSL_AD_UNSUPPORTED_CERTIFICATE = SSL3_AD_UNSUPPORTED_CERTIFICATE; - {$EXTERNALSYM SSL_AD_CERTIFICATE_REVOKED} - SSL_AD_CERTIFICATE_REVOKED = SSL3_AD_CERTIFICATE_REVOKED; - {$EXTERNALSYM SSL_AD_CERTIFICATE_EXPIRED} - SSL_AD_CERTIFICATE_EXPIRED = SSL3_AD_CERTIFICATE_EXPIRED; - {$EXTERNALSYM SSL_AD_CERTIFICATE_UNKNOWN} - SSL_AD_CERTIFICATE_UNKNOWN = SSL3_AD_CERTIFICATE_UNKNOWN; - {$EXTERNALSYM SSL_AD_ILLEGAL_PARAMETER} - SSL_AD_ILLEGAL_PARAMETER = SSL3_AD_ILLEGAL_PARAMETER; - - {$EXTERNALSYM SSL_AD_UNKNOWN_CA} - SSL_AD_UNKNOWN_CA = TLS1_AD_UNKNOWN_CA; - {$EXTERNALSYM SSL_AD_ACCESS_DENIED} - SSL_AD_ACCESS_DENIED = TLS1_AD_ACCESS_DENIED; - {$EXTERNALSYM SSL_AD_DECODE_ERROR} - SSL_AD_DECODE_ERROR = TLS1_AD_DECODE_ERROR; - {$EXTERNALSYM SSL_AD_DECRYPT_ERROR} - SSL_AD_DECRYPT_ERROR = TLS1_AD_DECRYPT_ERROR; - {$EXTERNALSYM SSL_AD_EXPORT_RESTRICTION} - SSL_AD_EXPORT_RESTRICTION = TLS1_AD_EXPORT_RESTRICTION; - {$EXTERNALSYM SSL_AD_PROTOCOL_VERSION} - SSL_AD_PROTOCOL_VERSION = TLS1_AD_PROTOCOL_VERSION; - {$EXTERNALSYM SSL_AD_INSUFFICIENT_SECURITY} - SSL_AD_INSUFFICIENT_SECURITY = TLS1_AD_INSUFFICIENT_SECURITY; - {$EXTERNALSYM SSL_AD_INTERNAL_ERROR} - SSL_AD_INTERNAL_ERROR = TLS1_AD_INTERNAL_ERROR; - {$EXTERNALSYM SSL_AD_USER_CANCELLED} - SSL_AD_USER_CANCELLED = TLS1_AD_USER_CANCELLED; - {$EXTERNALSYM SSL_AD_NO_RENEGOTIATION} - SSL_AD_NO_RENEGOTIATION = TLS1_AD_NO_RENEGOTIATION; - {$EXTERNALSYM SSL_AD_UNSUPPORTED_EXTENSION} - SSL_AD_UNSUPPORTED_EXTENSION = TLS1_AD_UNSUPPORTED_EXTENSION; - {$EXTERNALSYM SSL_AD_CERTIFICATE_UNOBTAINABLE} - SSL_AD_CERTIFICATE_UNOBTAINABLE = TLS1_AD_CERTIFICATE_UNOBTAINABLE; - {$EXTERNALSYM SSL_AD_UNRECOGNIZED_NAME} - SSL_AD_UNRECOGNIZED_NAME = TLS1_AD_UNRECOGNIZED_NAME; - {$EXTERNALSYM SSL_AD_BAD_CERTIFICATE_STATUS_RESPONSE} - SSL_AD_BAD_CERTIFICATE_STATUS_RESPONSE = TLS1_AD_BAD_CERTIFICATE_STATUS_RESPONSE; - {$EXTERNALSYM SSL_AD_BAD_CERTIFICATE_HASH_VALUE} - SSL_AD_BAD_CERTIFICATE_HASH_VALUE = TLS1_AD_BAD_CERTIFICATE_HASH_VALUE; - {$EXTERNALSYM SSL_AD_UNKNOWN_PSK_IDENTITY} - SSL_AD_UNKNOWN_PSK_IDENTITY = TLS1_AD_UNKNOWN_PSK_IDENTITY; //* fatal */ - - - - - {$EXTERNALSYM SSL_CTRL_NEED_TMP_RSA} - SSL_CTRL_NEED_TMP_RSA = 1; - {$EXTERNALSYM SSL_CTRL_SET_TMP_RSA} - SSL_CTRL_SET_TMP_RSA = 2; - {$EXTERNALSYM SSL_CTRL_SET_TMP_DH} - SSL_CTRL_SET_TMP_DH = 3; - {$EXTERNALSYM SSL_CTRL_SET_TMP_ECDH} - SSL_CTRL_SET_TMP_ECDH = 4; - {$EXTERNALSYM SSL_CTRL_SET_TMP_RSA_CB} - SSL_CTRL_SET_TMP_RSA_CB = 5; - {$EXTERNALSYM SSL_CTRL_SET_TMP_DH_CB} - SSL_CTRL_SET_TMP_DH_CB = 6; - {$EXTERNALSYM SSL_CTRL_SET_TMP_ECDH_CB} - SSL_CTRL_SET_TMP_ECDH_CB = 7; - {$IFNDEF NO_TLSEXT} - //* see tls1.h for macros based on these */ - {$EXTERNALSYM SSL_CTRL_SET_TLSEXT_SERVERNAME_CB} - SSL_CTRL_SET_TLSEXT_SERVERNAME_CB = 53; - {$EXTERNALSYM SSL_CTRL_SET_TLSEXT_SERVERNAME_ARG} - SSL_CTRL_SET_TLSEXT_SERVERNAME_ARG = 54; - {$EXTERNALSYM SSL_CTRL_SET_TLSEXT_HOSTNAME} - SSL_CTRL_SET_TLSEXT_HOSTNAME = 55; - {$EXTERNALSYM SSL_CTRL_SET_TLSEXT_DEBUG_CB} - SSL_CTRL_SET_TLSEXT_DEBUG_CB = 56; - {$EXTERNALSYM SSL_CTRL_SET_TLSEXT_DEBUG_ARG} - SSL_CTRL_SET_TLSEXT_DEBUG_ARG = 57; - {$EXTERNALSYM SSL_CTRL_GET_TLSEXT_TICKET_KEYS} - SSL_CTRL_GET_TLSEXT_TICKET_KEYS = 58; - {$EXTERNALSYM SSL_CTRL_SET_TLSEXT_TICKET_KEYS} - SSL_CTRL_SET_TLSEXT_TICKET_KEYS = 59; - {$EXTERNALSYM SSL_CTRL_SET_TLSEXT_OPAQUE_PRF_INPUT} - SSL_CTRL_SET_TLSEXT_OPAQUE_PRF_INPUT = 60; - {$EXTERNALSYM SSL_CTRL_SET_TLSEXT_OPAQUE_PRF_INPUT_CB} - SSL_CTRL_SET_TLSEXT_OPAQUE_PRF_INPUT_CB = 61; - {$EXTERNALSYM SSL_CTRL_SET_TLSEXT_OPAQUE_PRF_INPUT_CB_ARG} - SSL_CTRL_SET_TLSEXT_OPAQUE_PRF_INPUT_CB_ARG = 62; - {$EXTERNALSYM SSL_CTRL_SET_TLSEXT_STATUS_REQ_CB} - SSL_CTRL_SET_TLSEXT_STATUS_REQ_CB = 63; - {$EXTERNALSYM SSL_CTRL_SET_TLSEXT_STATUS_REQ_CB_ARG} - SSL_CTRL_SET_TLSEXT_STATUS_REQ_CB_ARG = 64; - {$EXTERNALSYM SSL_CTRL_SET_TLSEXT_STATUS_REQ_TYPE} - SSL_CTRL_SET_TLSEXT_STATUS_REQ_TYPE = 65; - {$EXTERNALSYM SSL_CTRL_GET_TLSEXT_STATUS_REQ_EXTS} - SSL_CTRL_GET_TLSEXT_STATUS_REQ_EXTS = 66; - {$EXTERNALSYM SSL_CTRL_SET_TLSEXT_STATUS_REQ_EXTS} - SSL_CTRL_SET_TLSEXT_STATUS_REQ_EXTS = 67; - {$EXTERNALSYM SSL_CTRL_GET_TLSEXT_STATUS_REQ_IDS} - SSL_CTRL_GET_TLSEXT_STATUS_REQ_IDS = 68; - {$EXTERNALSYM SSL_CTRL_SET_TLSEXT_STATUS_REQ_IDS} - SSL_CTRL_SET_TLSEXT_STATUS_REQ_IDS = 69; - {$EXTERNALSYM SSL_CTRL_GET_TLSEXT_STATUS_REQ_OCSP_RESP} - SSL_CTRL_GET_TLSEXT_STATUS_REQ_OCSP_RESP = 70; - {$EXTERNALSYM SSL_CTRL_SET_TLSEXT_STATUS_REQ_OCSP_RESP} - SSL_CTRL_SET_TLSEXT_STATUS_REQ_OCSP_RESP = 71; - {$EXTERNALSYM SSL_CTRL_SET_TLSEXT_TICKET_KEY_CB} - SSL_CTRL_SET_TLSEXT_TICKET_KEY_CB = 72; - {$EXTERNALSYM SSL_CTRL_SET_TLS_EXT_SRP_USERNAME_CB} - SSL_CTRL_SET_TLS_EXT_SRP_USERNAME_CB = 75; - {$EXTERNALSYM SSL_CTRL_SET_SRP_VERIFY_PARAM_CB} - SSL_CTRL_SET_SRP_VERIFY_PARAM_CB = 76; - {$EXTERNALSYM SSL_CTRL_SET_SRP_GIVE_CLIENT_PWD_CB} - SSL_CTRL_SET_SRP_GIVE_CLIENT_PWD_CB = 77; - {$EXTERNALSYM SSL_CTRL_SET_SRP_ARG} - SSL_CTRL_SET_SRP_ARG = 78; - {$EXTERNALSYM SSL_CTRL_SET_TLS_EXT_SRP_USERNAME} - SSL_CTRL_SET_TLS_EXT_SRP_USERNAME = 79; - {$EXTERNALSYM SSL_CTRL_SET_TLS_EXT_SRP_STRENGTH} - SSL_CTRL_SET_TLS_EXT_SRP_STRENGTH = 80; - {$EXTERNALSYM SSL_CTRL_SET_TLS_EXT_SRP_PASSWORD} - SSL_CTRL_SET_TLS_EXT_SRP_PASSWORD = 81; - {$ifndef OPENSSL_NO_HEARTBEATS} - {$EXTERNALSYM SSL_CTRL_TLS_EXT_SEND_HEARTBEAT} - SSL_CTRL_TLS_EXT_SEND_HEARTBEAT = 85; - {$EXTERNALSYM SSL_CTRL_GET_TLS_EXT_HEARTBEAT_PENDING} - SSL_CTRL_GET_TLS_EXT_HEARTBEAT_PENDING = 86; - {$EXTERNALSYM SSL_CTRL_SET_TLS_EXT_HEARTBEAT_NO_REQUESTS} - SSL_CTRL_SET_TLS_EXT_HEARTBEAT_NO_REQUESTS = 87; - {$endif} - {$ENDIF} - {$EXTERNALSYM SSL_CTRL_SET_ECDH_AUTO} - SSL_CTRL_SET_ECDH_AUTO = 94; - - {$EXTERNALSYM DTLS_CTRL_GET_TIMEOUT} - DTLS_CTRL_GET_TIMEOUT = 73; - {$EXTERNALSYM DTLS_CTRL_HANDLE_TIMEOUT} - DTLS_CTRL_HANDLE_TIMEOUT = 74; - {$EXTERNALSYM DTLS_CTRL_LISTEN} - DTLS_CTRL_LISTEN = 75; - - {$EXTERNALSYM SSL_CTRL_GET_RI_SUPPORT} - SSL_CTRL_GET_RI_SUPPORT = 76; - {$EXTERNALSYM SSL_CTRL_CLEAR_OPTIONS} - SSL_CTRL_CLEAR_OPTIONS = 77; - {$EXTERNALSYM SSL_CTRL_CLEAR_MODE} - SSL_CTRL_CLEAR_MODE = 78; - {$EXTERNALSYM SSL_CTRL_GET_EXTRA_CHAIN_CERTS} - SSL_CTRL_GET_EXTRA_CHAIN_CERTS = 82; - {$EXTERNALSYM SSL_CTRL_CLEAR_EXTRA_CHAIN_CERTS} - SSL_CTRL_CLEAR_EXTRA_CHAIN_CERTS = 83; - {$EXTERNALSYM SSL_CTRL_CHAIN} //OpenSSL 1.0.2 - SSL_CTRL_CHAIN = 88; - {$EXTERNALSYM SSL_CTRL_CHAIN_CERT} //OpenSSL 1.0.2 - SSL_CTRL_CHAIN_CERT = 89; - {$EXTERNALSYM SSL_CTRL_GET_CHAIN_CERTS} //OpenSSL 1.0.2 - SSL_CTRL_GET_CHAIN_CERTS = 115; - {$EXTERNALSYM SSL_CTRL_GET_SESSION_REUSED} - SSL_CTRL_GET_SESSION_REUSED = 8; - {$EXTERNALSYM SSL_CTRL_GET_CLIENT_CERT_REQUEST} - SSL_CTRL_GET_CLIENT_CERT_REQUEST = 9; - {$EXTERNALSYM SSL_CTRL_GET_NUM_RENEGOTIATIONS} - SSL_CTRL_GET_NUM_RENEGOTIATIONS = 10; - {$EXTERNALSYM SSL_CTRL_CLEAR_NUM_RENEGOTIATIONS} - SSL_CTRL_CLEAR_NUM_RENEGOTIATIONS = 11; - {$EXTERNALSYM SSL_CTRL_GET_TOTAL_RENEGOTIATIONS} - SSL_CTRL_GET_TOTAL_RENEGOTIATIONS = 12; - {$EXTERNALSYM SSL_CTRL_GET_FLAGS} - SSL_CTRL_GET_FLAGS = 13; - {$EXTERNALSYM SSL_CTRL_EXTRA_CHAIN_CERT} - SSL_CTRL_EXTRA_CHAIN_CERT = 14; - {$EXTERNALSYM SSL_CTRL_SET_MSG_CALLBACK} - SSL_CTRL_SET_MSG_CALLBACK = 15; - {$EXTERNALSYM SSL_CTRL_SET_MSG_CALLBACK_ARG} - SSL_CTRL_SET_MSG_CALLBACK_ARG = 16; -//* only applies to datagram connections */ - {$EXTERNALSYM SSL_CTRL_SET_MTU} - SSL_CTRL_SET_MTU = 17; -//* Stats */ - {$EXTERNALSYM SSL_CTRL_SESS_NUMBER} - SSL_CTRL_SESS_NUMBER = 20; - {$EXTERNALSYM SSL_CTRL_SESS_CONNECT} - SSL_CTRL_SESS_CONNECT = 21; - {$EXTERNALSYM SSL_CTRL_SESS_CONNECT_GOOD} - SSL_CTRL_SESS_CONNECT_GOOD = 22; - {$EXTERNALSYM SSL_CTRL_SESS_CONNECT_RENEGOTIATE} - SSL_CTRL_SESS_CONNECT_RENEGOTIATE = 23; - {$EXTERNALSYM SSL_CTRL_SESS_ACCEPT} - SSL_CTRL_SESS_ACCEPT = 24; - {$EXTERNALSYM SSL_CTRL_SESS_ACCEPT_GOOD} - SSL_CTRL_SESS_ACCEPT_GOOD = 25; - {$EXTERNALSYM SSL_CTRL_SESS_ACCEPT_RENEGOTIATE} - SSL_CTRL_SESS_ACCEPT_RENEGOTIATE = 26; - {$EXTERNALSYM SSL_CTRL_SESS_HIT} - SSL_CTRL_SESS_HIT = 27; - {$EXTERNALSYM SSL_CTRL_SESS_CB_HIT} - SSL_CTRL_SESS_CB_HIT = 28; - {$EXTERNALSYM SSL_CTRL_SESS_MISSES} - SSL_CTRL_SESS_MISSES = 29; - {$EXTERNALSYM SSL_CTRL_SESS_TIMEOUTS} - SSL_CTRL_SESS_TIMEOUTS = 30; - {$EXTERNALSYM SSL_CTRL_SESS_CACHE_FULL} - SSL_CTRL_SESS_CACHE_FULL = 31; - {$EXTERNALSYM SSL_CTRL_OPTIONS} - SSL_CTRL_OPTIONS = 32; - {$EXTERNALSYM SSL_CTRL_MODE} - SSL_CTRL_MODE = 33; - {$EXTERNALSYM SSL_CTRL_GET_READ_AHEAD} - SSL_CTRL_GET_READ_AHEAD = 40; - {$EXTERNALSYM SSL_CTRL_SET_READ_AHEAD} - SSL_CTRL_SET_READ_AHEAD = 41; - {$EXTERNALSYM SSL_CTRL_SET_SESS_CACHE_SIZE} - SSL_CTRL_SET_SESS_CACHE_SIZE = 42; - {$EXTERNALSYM SSL_CTRL_GET_SESS_CACHE_SIZE} - SSL_CTRL_GET_SESS_CACHE_SIZE = 43; - {$EXTERNALSYM SSL_CTRL_SET_SESS_CACHE_MODE} - SSL_CTRL_SET_SESS_CACHE_MODE = 44; - {$EXTERNALSYM SSL_CTRL_GET_SESS_CACHE_MODE} - SSL_CTRL_GET_SESS_CACHE_MODE = 45; - {$EXTERNALSYM SSL_CTRL_GET_MAX_CERT_LIST} - SSL_CTRL_GET_MAX_CERT_LIST = 50; - {$EXTERNALSYM SSL_CTRL_SET_MAX_CERT_LIST} - SSL_CTRL_SET_MAX_CERT_LIST = 51; - {$EXTERNALSYM SSL_CTRL_SET_MAX_SEND_FRAGMENT} - SSL_CTRL_SET_MAX_SEND_FRAGMENT = 52; - - {$EXTERNALSYM SSL_DEFAULT_CIPHER_LIST} - SSL_DEFAULT_CIPHER_LIST = 'AES:ALL:!aNULL:!eNULL:+RC4:@STRENGTH'; //* low priority for RC4 */ - {$EXTERNALSYM SSL_ERROR_NONE} - SSL_ERROR_NONE = 0; - {$EXTERNALSYM SSL_ERROR_SSL} - SSL_ERROR_SSL = 1; - {$EXTERNALSYM SSL_ERROR_WANT_READ} - SSL_ERROR_WANT_READ = 2; - {$EXTERNALSYM SSL_ERROR_WANT_WRITE} - SSL_ERROR_WANT_WRITE = 3; - {$EXTERNALSYM SSL_ERROR_WANT_X509_LOOKUP} - SSL_ERROR_WANT_X509_LOOKUP = 4; - {$EXTERNALSYM SSL_ERROR_SYSCALL} - SSL_ERROR_SYSCALL = 5; - {$EXTERNALSYM SSL_ERROR_ZERO_RETURN} - SSL_ERROR_ZERO_RETURN = 6; - {$EXTERNALSYM SSL_ERROR_WANT_CONNECT} - SSL_ERROR_WANT_CONNECT = 7; - {$EXTERNALSYM SSL_ERROR_WANT_ACCEPT} - SSL_ERROR_WANT_ACCEPT = 8; - {$EXTERNALSYM X509_FILETYPE_ASN1} - X509_FILETYPE_ASN1 = 2; - {$EXTERNALSYM SSL_FILETYPE_ASN1} - SSL_FILETYPE_ASN1 = X509_FILETYPE_ASN1; - {$EXTERNALSYM X509_FILETYPE_PEM} - X509_FILETYPE_PEM = 1; - {$EXTERNALSYM SSL_FILETYPE_PEM} - SSL_FILETYPE_PEM = X509_FILETYPE_PEM; - {$EXTERNALSYM SSL_F_CLIENT_CERTIFICATE} - SSL_F_CLIENT_CERTIFICATE = 100; - {$EXTERNALSYM SSL_F_CLIENT_HELLO} - SSL_F_CLIENT_HELLO = 101; - {$EXTERNALSYM SSL_F_CLIENT_MASTER_KEY} - SSL_F_CLIENT_MASTER_KEY = 102; - {$EXTERNALSYM SSL_F_D2I_SSL_SESSION} - SSL_F_D2I_SSL_SESSION = 103; - {$EXTERNALSYM SSL_F_DO_SSL3_WRITE} - SSL_F_DO_SSL3_WRITE = 104; - {$EXTERNALSYM SSL_F_DTLS1_ACCEPT} - SSL_F_DTLS1_ACCEPT = 246; - {$EXTERNALSYM SSL_F_DTLS1_ADD_CERT_TO_BUF} - SSL_F_DTLS1_ADD_CERT_TO_BUF = 295; //was 280; - {$EXTERNALSYM SSL_F_DTLS1_BUFFER_RECORD} - SSL_F_DTLS1_BUFFER_RECORD = 247; - {$EXTERNALSYM SSL_F_DTLS1_CHECK_TIMEOUT_NUM} - SSL_F_DTLS1_CHECK_TIMEOUT_NUM = 316; - {$EXTERNALSYM SSL_F_DTLS1_CLIENT_HELLO} - SSL_F_DTLS1_CLIENT_HELLO = 248; - {$EXTERNALSYM SSL_F_DTLS1_CONNECT} - SSL_F_DTLS1_CONNECT = 249; - {$EXTERNALSYM SSL_F_DTLS1_ENC} - SSL_F_DTLS1_ENC = 250; - {$EXTERNALSYM SSL_F_DTLS1_GET_HELLO_VERIFY} - SSL_F_DTLS1_GET_HELLO_VERIFY = 251; - {$EXTERNALSYM SSL_F_DTLS1_GET_MESSAGE} - SSL_F_DTLS1_GET_MESSAGE = 252; - {$EXTERNALSYM SSL_F_DTLS1_GET_MESSAGE_FRAGMENT} - SSL_F_DTLS1_GET_MESSAGE_FRAGMENT = 253; - {$EXTERNALSYM SSL_F_DTLS1_GET_RECORD} - SSL_F_DTLS1_GET_RECORD = 254; - {$EXTERNALSYM SSL_F_DTLS1_HANDLE_TIMEOUT} - SSL_F_DTLS1_HANDLE_TIMEOUT = 297; //was 282 - {$EXTERNALSYM SSL_F_DTLS1_HEARTBEAT} - SSL_F_DTLS1_HEARTBEAT = 305; - {$EXTERNALSYM SSL_F_DTLS1_OUTPUT_CERT_CHAIN} - SSL_F_DTLS1_OUTPUT_CERT_CHAIN = 255; - {$EXTERNALSYM SSL_F_DTLS1_PREPROCESS_FRAGMENT} - SSL_F_DTLS1_PREPROCESS_FRAGMENT = 288; //was 277; - {$EXTERNALSYM SSL_F_DTLS1_PROCESS_OUT_OF_SEQ_MESSAGE} - SSL_F_DTLS1_PROCESS_OUT_OF_SEQ_MESSAGE = 256; - {$EXTERNALSYM SSL_F_DTLS1_PROCESS_RECORD} - SSL_F_DTLS1_PROCESS_RECORD = 257; - {$EXTERNALSYM SSL_F_DTLS1_READ_BYTES} - SSL_F_DTLS1_READ_BYTES = 258; - {$EXTERNALSYM SSL_F_DTLS1_READ_FAILED} - SSL_F_DTLS1_READ_FAILED = 259; - {$EXTERNALSYM SSL_F_DTLS1_SEND_CERTIFICATE_REQUEST} - SSL_F_DTLS1_SEND_CERTIFICATE_REQUEST = 260; - {$EXTERNALSYM SSL_F_DTLS1_SEND_CLIENT_CERTIFICATE} - SSL_F_DTLS1_SEND_CLIENT_CERTIFICATE = 261; - {$EXTERNALSYM SSL_F_DTLS1_SEND_CLIENT_KEY_EXCHANGE} - SSL_F_DTLS1_SEND_CLIENT_KEY_EXCHANGE = 262; - {$EXTERNALSYM SSL_F_DTLS1_SEND_CLIENT_VERIFY} - SSL_F_DTLS1_SEND_CLIENT_VERIFY = 263; - {$EXTERNALSYM SSL_F_DTLS1_SEND_HELLO_VERIFY_REQUEST} - SSL_F_DTLS1_SEND_HELLO_VERIFY_REQUEST = 264; - {$EXTERNALSYM SSL_F_DTLS1_SEND_SERVER_CERTIFICATE} - SSL_F_DTLS1_SEND_SERVER_CERTIFICATE = 265; - {$EXTERNALSYM SSL_F_DTLS1_SEND_SERVER_HELLO} - SSL_F_DTLS1_SEND_SERVER_HELLO = 266; - {$EXTERNALSYM SSL_F_DTLS1_SEND_SERVER_KEY_EXCHANGE} - SSL_F_DTLS1_SEND_SERVER_KEY_EXCHANGE = 267; - {$EXTERNALSYM SSL_F_DTLS1_WRITE_APP_DATA_BYTES} - SSL_F_DTLS1_WRITE_APP_DATA_BYTES = 268; - {$EXTERNALSYM SSL_F_GET_CLIENT_FINISHED} - SSL_F_GET_CLIENT_FINISHED = 105; - {$EXTERNALSYM SSL_F_GET_CLIENT_HELLO} - SSL_F_GET_CLIENT_HELLO = 106; - {$EXTERNALSYM SSL_F_GET_CLIENT_MASTER_KEY} - SSL_F_GET_CLIENT_MASTER_KEY = 107; - {$EXTERNALSYM SSL_F_GET_SERVER_FINISHED} - SSL_F_GET_SERVER_FINISHED = 108; - {$EXTERNALSYM SSL_F_GET_SERVER_HELLO} - SSL_F_GET_SERVER_HELLO = 109; - {$EXTERNALSYM SSL_F_GET_SERVER_VERIFY} - SSL_F_GET_SERVER_VERIFY = 110; - {$EXTERNALSYM SSL_F_I2D_SSL_SESSION} - SSL_F_I2D_SSL_SESSION = 111; - {$EXTERNALSYM SSL_F_READ_N} - SSL_F_READ_N = 112; - {$EXTERNALSYM SSL_F_REQUEST_CERTIFICATE} - SSL_F_REQUEST_CERTIFICATE = 113; - {$EXTERNALSYM SSL_F_SERVER_HELLO} - SSL_F_SERVER_HELLO = 114; - {$EXTERNALSYM SSL_F_SSL23_ACCEPT} - SSL_F_SSL23_ACCEPT = 115; - {$EXTERNALSYM SSL_F_SSL3_ADD_CERT_TO_BUF} - SSL_F_SSL3_ADD_CERT_TO_BUF = 296; //was 281; - - {$EXTERNALSYM SSL_F_SSL23_CLIENT_HELLO} - SSL_F_SSL23_CLIENT_HELLO = 116; - {$EXTERNALSYM SSL_F_SSL23_CONNECT} - SSL_F_SSL23_CONNECT = 117; - {$EXTERNALSYM SSL_F_SSL23_GET_CLIENT_HELLO} - SSL_F_SSL23_GET_CLIENT_HELLO = 118; - {$EXTERNALSYM SSL_F_SSL23_GET_SERVER_HELLO} - SSL_F_SSL23_GET_SERVER_HELLO = 119; - {$EXTERNALSYM SSL_F_SSL23_READ} - SSL_F_SSL23_READ = 120; - {$EXTERNALSYM SSL_F_SSL23_WRITE} - SSL_F_SSL23_WRITE = 121; - {$EXTERNALSYM SSL_F_SSL2_ACCEPT} - SSL_F_SSL2_ACCEPT = 122; - {$EXTERNALSYM SSL_F_SSL2_CONNECT} - SSL_F_SSL2_CONNECT = 123; - {$EXTERNALSYM SSL_F_SSL2_ENC_INIT} - SSL_F_SSL2_ENC_INIT = 124; - {$EXTERNALSYM SSL_F_SSL2_READ} - SSL_F_SSL2_READ = 125; - {$EXTERNALSYM SSL_F_SSL2_SET_CERTIFICATE} - SSL_F_SSL2_SET_CERTIFICATE = 126; - {$EXTERNALSYM SSL_F_SSL2_WRITE} - SSL_F_SSL2_WRITE = 127; - {$EXTERNALSYM SSL_F_SSL3_ACCEPT} - SSL_F_SSL3_ACCEPT = 128; - {$EXTERNALSYM SSL_F_SSL3_CHANGE_CIPHER_STATE} - SSL_F_SSL3_CHANGE_CIPHER_STATE = 129; - {$EXTERNALSYM SSL_F_SSL3_CHECK_CERT_AND_ALGORITHM} - SSL_F_SSL3_CHECK_CERT_AND_ALGORITHM = 130; - {$EXTERNALSYM SSL_F_SSL3_CHECK_CLIENT_HELLO} - SSL_F_SSL3_CHECK_CLIENT_HELLO = 304; - {$EXTERNALSYM SSL_F_SSL3_CLIENT_HELLO} - SSL_F_SSL3_CLIENT_HELLO = 131; - {$EXTERNALSYM SSL_F_SSL3_CONNECT} - SSL_F_SSL3_CONNECT = 132; - {$EXTERNALSYM SSL_F_SSL3_CTRL} - SSL_F_SSL3_CTRL = 213; - {$EXTERNALSYM SSL_F_SSL3_CTX_CTRL} - SSL_F_SSL3_CTX_CTRL = 133; - {$EXTERNALSYM SSL_F_SSL3_DIGEST_CACHED_RECORDS} - SSL_F_SSL3_DIGEST_CACHED_RECORDS = 293; - {$EXTERNALSYM SSL_F_SSL3_DO_CHANGE_CIPHER_SPEC} - SSL_F_SSL3_DO_CHANGE_CIPHER_SPEC = 292;//was 279; - {$EXTERNALSYM SSL_F_SSL3_ENC} - SSL_F_SSL3_ENC = 134; - {$EXTERNALSYM SSL_F_SSL3_GET_CERTIFICATE_REQUEST} - SSL_F_SSL3_GET_CERTIFICATE_REQUEST = 135; - {$EXTERNALSYM SSL_F_SSL3_GET_CERT_STATUS} - SSL_F_SSL3_GET_CERT_STATUS = 289;//was 288; - {$EXTERNALSYM SSL_F_SSL3_GET_CERT_VERIFY} - SSL_F_SSL3_GET_CERT_VERIFY = 136; - {$EXTERNALSYM SSL_F_SSL3_GET_CLIENT_CERTIFICATE} - SSL_F_SSL3_GET_CLIENT_CERTIFICATE = 137; - {$EXTERNALSYM SSL_F_SSL3_GET_CLIENT_HELLO} - SSL_F_SSL3_GET_CLIENT_HELLO = 138; - {$EXTERNALSYM SSL_F_SSL3_GET_CLIENT_KEY_EXCHANGE} - SSL_F_SSL3_GET_CLIENT_KEY_EXCHANGE = 139; - {$EXTERNALSYM SSL_F_SSL3_GET_FINISHED} - SSL_F_SSL3_GET_FINISHED = 140; - {$EXTERNALSYM SSL_F_SSL3_GET_KEY_EXCHANGE} - SSL_F_SSL3_GET_KEY_EXCHANGE = 141; - {$EXTERNALSYM SSL_F_SSL3_GET_MESSAGE} - SSL_F_SSL3_GET_MESSAGE = 142; - {$EXTERNALSYM SSL_F_SSL3_GET_NEW_SESSION_TICKET} - SSL_F_SSL3_GET_NEW_SESSION_TICKET = 283; - {$EXTERNALSYM SSL_F_SSL3_GET_NEXT_PROTO} - SSL_F_SSL3_GET_NEXT_PROTO = 306; - {$EXTERNALSYM SSL_F_SSL3_GET_RECORD} - SSL_F_SSL3_GET_RECORD = 143; - {$EXTERNALSYM SSL_F_SSL3_GET_SERVER_CERTIFICATE} - SSL_F_SSL3_GET_SERVER_CERTIFICATE = 144; - {$EXTERNALSYM SSL_F_SSL3_GET_SERVER_DONE} - SSL_F_SSL3_GET_SERVER_DONE = 145; - {$EXTERNALSYM SSL_F_SSL3_GET_SERVER_HELLO} - SSL_F_SSL3_GET_SERVER_HELLO = 146; - {$EXTERNALSYM SSL_F_SSL3_HANDSHAKE_MAC} - SSL_F_SSL3_HANDSHAKE_MAC = 285; - {$EXTERNALSYM SSL_F_SSL3_NEW_SESSION_TICKET} - SSL_F_SSL3_NEW_SESSION_TICKET = 287; //was 284; - {$EXTERNALSYM SSL_F_SSL3_OUTPUT_CERT_CHAIN} - SSL_F_SSL3_OUTPUT_CERT_CHAIN = 147; - {$EXTERNALSYM SSL_F_SSL3_READ_BYTES} - SSL_F_SSL3_READ_BYTES = 148; - {$EXTERNALSYM SSL_F_SSL3_READ_N} - SSL_F_SSL3_READ_N = 149; - {$EXTERNALSYM SSL_F_SSL3_SEND_CERTIFICATE_REQUEST} - SSL_F_SSL3_SEND_CERTIFICATE_REQUEST = 150; - {$EXTERNALSYM SSL_F_SSL3_SEND_CLIENT_CERTIFICATE} - SSL_F_SSL3_SEND_CLIENT_CERTIFICATE = 151; - {$EXTERNALSYM SSL_F_SSL3_SEND_CLIENT_KEY_EXCHANGE} - SSL_F_SSL3_SEND_CLIENT_KEY_EXCHANGE = 152; - {$EXTERNALSYM SSL_F_SSL3_SEND_CLIENT_VERIFY} - SSL_F_SSL3_SEND_CLIENT_VERIFY = 153; - {$EXTERNALSYM SSL_F_SSL3_SEND_SERVER_CERTIFICATE} - SSL_F_SSL3_SEND_SERVER_CERTIFICATE = 154; - {$EXTERNALSYM SSL_F_SSL3_SEND_SERVER_KEY_EXCHANGE} - SSL_F_SSL3_SEND_SERVER_KEY_EXCHANGE = 155; - {$EXTERNALSYM SSL_F_SSL3_SETUP_KEY_BLOCK} - SSL_F_SSL3_SETUP_KEY_BLOCK = 157; - {$EXTERNALSYM SSL_F_SSL3_SETUP_READ_BUFFER} - SSL_F_SSL3_SETUP_READ_BUFFER = 156; - {$EXTERNALSYM SSL_F_SSL3_SETUP_WRITE_BUFFER} - SSL_F_SSL3_SETUP_WRITE_BUFFER = 291; - {$EXTERNALSYM SSL_F_SSL3_WRITE_BYTES} - SSL_F_SSL3_WRITE_BYTES = 158; - {$EXTERNALSYM SSL_F_SSL3_WRITE_PENDING} - SSL_F_SSL3_WRITE_PENDING = 159; - {$EXTERNALSYM SSL_F_SSL_ADD_CLIENTHELLO_RENEGOTIATE_EXT} - SSL_F_SSL_ADD_CLIENTHELLO_RENEGOTIATE_EXT = 298;//was 285; - {$EXTERNALSYM SSL_F_SSL_ADD_CLIENTHELLO_TLSEXT} - SSL_F_SSL_ADD_CLIENTHELLO_TLSEXT = 277; //was 272; - {$EXTERNALSYM SSL_F_SSL_ADD_CLIENTHELLO_USE_SRTP_EXT} - SSL_F_SSL_ADD_CLIENTHELLO_USE_SRTP_EXT = 307; - {$EXTERNALSYM SSL_F_SSL_ADD_DIR_CERT_SUBJECTS_TO_STACK} - SSL_F_SSL_ADD_DIR_CERT_SUBJECTS_TO_STACK = 215; - {$EXTERNALSYM SSL_F_SSL_ADD_FILE_CERT_SUBJECTS_TO_STACK} - SSL_F_SSL_ADD_FILE_CERT_SUBJECTS_TO_STACK = 216; - {$EXTERNALSYM SSL_F_SSL_ADD_SERVERHELLO_RENEGOTIATE_EXT} - SSL_F_SSL_ADD_SERVERHELLO_RENEGOTIATE_EXT = 299;//was 286; - {$EXTERNALSYM SSL_F_SSL_ADD_SERVERHELLO_TLSEXT} - SSL_F_SSL_ADD_SERVERHELLO_TLSEXT = 278; //was 273; - {$EXTERNALSYM SSL_F_SSL_ADD_SERVERHELLO_USE_SRTP_EXT} - SSL_F_SSL_ADD_SERVERHELLO_USE_SRTP_EXT = 308; - {$EXTERNALSYM SSL_F_SSL_BAD_METHOD} - SSL_F_SSL_BAD_METHOD = 160; - {$EXTERNALSYM SSL_F_SSL_BYTES_TO_CIPHER_LIST} - SSL_F_SSL_BYTES_TO_CIPHER_LIST = 161; - {$EXTERNALSYM SSL_F_SSL_CERT_DUP} - SSL_F_SSL_CERT_DUP = 221; - {$EXTERNALSYM SSL_F_SSL_CERT_INST} - SSL_F_SSL_CERT_INST = 222; - {$EXTERNALSYM SSL_F_SSL_CERT_INSTANTIATE} - SSL_F_SSL_CERT_INSTANTIATE = 214; - {$EXTERNALSYM SSL_F_SSL_CERT_NEW} - SSL_F_SSL_CERT_NEW = 162; - {$EXTERNALSYM SSL_F_SSL_CHECK_PRIVATE_KEY} - SSL_F_SSL_CHECK_PRIVATE_KEY = 163; - {$EXTERNALSYM SSL_F_SSL_CHECK_SERVERHELLO_TLSEXT} - SSL_F_SSL_CHECK_SERVERHELLO_TLSEXT = 280;//was 274; - {$EXTERNALSYM SSL_F_SSL_CHECK_SRVR_ECC_CERT_AND_ALG} - SSL_F_SSL_CHECK_SRVR_ECC_CERT_AND_ALG = 279; - {$EXTERNALSYM SSL_F_SSL_CIPHER_PROCESS_RULESTR} - SSL_F_SSL_CIPHER_PROCESS_RULESTR = 230; - {$EXTERNALSYM SSL_F_SSL_CIPHER_STRENGTH_SORT} - SSL_F_SSL_CIPHER_STRENGTH_SORT = 231; - {$EXTERNALSYM SSL_F_SSL_CLEAR} - SSL_F_SSL_CLEAR = 164; - {$EXTERNALSYM SSL_F_SSL_COMP_ADD_COMPRESSION_METHOD} - SSL_F_SSL_COMP_ADD_COMPRESSION_METHOD = 165; - {$EXTERNALSYM SSL_F_SSL_CREATE_CIPHER_LIST} - SSL_F_SSL_CREATE_CIPHER_LIST = 166; - {$EXTERNALSYM SSL_F_SSL_CTRL} - SSL_F_SSL_CTRL = 232; - {$EXTERNALSYM SSL_F_SSL_CTX_CHECK_PRIVATE_KEY} - SSL_F_SSL_CTX_CHECK_PRIVATE_KEY = 168; - {$EXTERNALSYM SSL_F_SSL_CTX_MAKE_PROFILES} - SSL_F_SSL_CTX_MAKE_PROFILES = 309; - {$EXTERNALSYM SSL_F_SSL_CTX_NEW} - SSL_F_SSL_CTX_NEW = 169; - {$EXTERNALSYM SSL_F_SSL_CTX_SET_CIPHER_LIST} - SSL_F_SSL_CTX_SET_CIPHER_LIST = 269; - {$EXTERNALSYM SSL_F_SSL_CTX_SET_CLIENT_CERT_ENGINE} - SSL_F_SSL_CTX_SET_CLIENT_CERT_ENGINE = 290; //was 278; - {$EXTERNALSYM SSL_F_SSL_CTX_SET_PURPOSE} - SSL_F_SSL_CTX_SET_PURPOSE = 226; - {$EXTERNALSYM SSL_F_SSL_CTX_SET_SESSION_ID_CONTEXT} - SSL_F_SSL_CTX_SET_SESSION_ID_CONTEXT = 219; - {$EXTERNALSYM SSL_F_SSL_CTX_SET_SSL_VERSION} - SSL_F_SSL_CTX_SET_SSL_VERSION = 170; - {$EXTERNALSYM SSL_F_SSL_CTX_SET_TRUST} - SSL_F_SSL_CTX_SET_TRUST = 229; - {$EXTERNALSYM SSL_F_SSL_CTX_USE_CERTIFICATE} - SSL_F_SSL_CTX_USE_CERTIFICATE = 171; - {$EXTERNALSYM SSL_F_SSL_CTX_USE_CERTIFICATE_ASN1} - SSL_F_SSL_CTX_USE_CERTIFICATE_ASN1 = 172; - {$EXTERNALSYM SSL_F_SSL_CTX_USE_CERTIFICATE_CHAIN_FILE} - SSL_F_SSL_CTX_USE_CERTIFICATE_CHAIN_FILE = 220; - {$EXTERNALSYM SSL_F_SSL_CTX_USE_CERTIFICATE_FILE} - SSL_F_SSL_CTX_USE_CERTIFICATE_FILE = 173; - {$EXTERNALSYM SSL_F_SSL_CTX_USE_PRIVATEKEY} - SSL_F_SSL_CTX_USE_PRIVATEKEY = 174; - {$EXTERNALSYM SSL_F_SSL_CTX_USE_PRIVATEKEY_ASN1} - SSL_F_SSL_CTX_USE_PRIVATEKEY_ASN1 = 175; - {$EXTERNALSYM SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE} - SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE = 176; - {$EXTERNALSYM SSL_F_SSL_CTX_USE_PSK_IDENTITY_HINT} - SSL_F_SSL_CTX_USE_PSK_IDENTITY_HINT = 272; - {$EXTERNALSYM SSL_F_SSL_CTX_USE_RSAPRIVATEKEY} - SSL_F_SSL_CTX_USE_RSAPRIVATEKEY = 177; - {$EXTERNALSYM SSL_F_SSL_CTX_USE_RSAPRIVATEKEY_ASN1} - SSL_F_SSL_CTX_USE_RSAPRIVATEKEY_ASN1 = 178; - {$EXTERNALSYM SSL_F_SSL_CTX_USE_RSAPRIVATEKEY_FILE} - SSL_F_SSL_CTX_USE_RSAPRIVATEKEY_FILE = 179; - {$EXTERNALSYM SSL_F_SSL_DO_HANDSHAKE} - SSL_F_SSL_DO_HANDSHAKE = 180; - {$EXTERNALSYM SSL_F_SSL_GET_NEW_SESSION} - SSL_F_SSL_GET_NEW_SESSION = 181; - {$EXTERNALSYM SSL_F_SSL_GET_PREV_SESSION} - SSL_F_SSL_GET_PREV_SESSION = 217; - {$EXTERNALSYM SSL_F_SSL_GET_SERVER_SEND_CERT} - SSL_F_SSL_GET_SERVER_SEND_CERT = 182; - {$EXTERNALSYM SSL_F_SSL_GET_SERVER_SEND_PKEY} - SSL_F_SSL_GET_SERVER_SEND_PKEY = 317; - {$EXTERNALSYM SSL_F_SSL_GET_SIGN_PKEY} - SSL_F_SSL_GET_SIGN_PKEY = 183; - {$EXTERNALSYM SSL_F_SSL_INIT_WBIO_BUFFER} - SSL_F_SSL_INIT_WBIO_BUFFER = 184; - {$EXTERNALSYM SSL_F_SSL_LOAD_CLIENT_CA_FILE} - SSL_F_SSL_LOAD_CLIENT_CA_FILE = 185; - {$EXTERNALSYM SSL_F_SSL_NEW} - SSL_F_SSL_NEW = 186; - {$EXTERNALSYM SSL_F_SSL_PARSE_CLIENTHELLO_RENEGOTIATE_EXT} - SSL_F_SSL_PARSE_CLIENTHELLO_RENEGOTIATE_EXT = 300; //was 287; - {$EXTERNALSYM SSL_F_SSL_PARSE_CLIENTHELLO_TLSEXT} - SSL_F_SSL_PARSE_CLIENTHELLO_TLSEXT = 302; //was 290; - {$EXTERNALSYM SSL_F_SSL_PARSE_CLIENTHELLO_USE_SRTP_EXT} - SSL_F_SSL_PARSE_CLIENTHELLO_USE_SRTP_EXT = 310; - {$EXTERNALSYM SSL_F_SSL_PARSE_SERVERHELLO_RENEGOTIATE_EXT} - SSL_F_SSL_PARSE_SERVERHELLO_RENEGOTIATE_EXT = 301;//was 289; - {$EXTERNALSYM SSL_F_SSL_PARSE_SERVERHELLO_TLSEXT} - SSL_F_SSL_PARSE_SERVERHELLO_TLSEXT = 303; //was 291; - {$EXTERNALSYM SSL_F_SSL_PARSE_SERVERHELLO_USE_SRTP_EXT} - SSL_F_SSL_PARSE_SERVERHELLO_USE_SRTP_EXT = 311; - {$EXTERNALSYM SSL_F_SSL_PEEK} - SSL_F_SSL_PEEK = 270; - {$EXTERNALSYM SSL_F_SSL_PREPARE_CLIENTHELLO_TLSEXT} - SSL_F_SSL_PREPARE_CLIENTHELLO_TLSEXT = 281; //was 275; - {$EXTERNALSYM SSL_F_SSL_PREPARE_SERVERHELLO_TLSEXT} - SSL_F_SSL_PREPARE_SERVERHELLO_TLSEXT = 282;//was 276; - {$EXTERNALSYM SSL_F_SSL_READ} - SSL_F_SSL_READ = 223; - {$EXTERNALSYM SSL_F_SSL_RSA_PRIVATE_DECRYPT} - SSL_F_SSL_RSA_PRIVATE_DECRYPT = 187; - {$EXTERNALSYM SSL_F_SSL_RSA_PUBLIC_ENCRYPT} - SSL_F_SSL_RSA_PUBLIC_ENCRYPT = 188; - {$EXTERNALSYM SSL_F_SSL_SESSION_NEW} - SSL_F_SSL_SESSION_NEW = 189; - {$EXTERNALSYM SSL_F_SSL_SESSION_PRINT_FP} - SSL_F_SSL_SESSION_PRINT_FP = 190; - {$EXTERNALSYM SSL_F_SSL_SESSION_SET1_ID_CONTEXT} - SSL_F_SSL_SESSION_SET1_ID_CONTEXT = 312; - {$EXTERNALSYM SSL_F_SSL_SESS_CERT_NEW} - SSL_F_SSL_SESS_CERT_NEW = 225; - {$EXTERNALSYM SSL_F_SSL_SET_CERT} - SSL_F_SSL_SET_CERT = 191; - {$EXTERNALSYM SSL_F_SSL_SET_FD} - SSL_F_SSL_SET_FD = 192; - {$EXTERNALSYM SSL_F_SSL_SET_PKEY} - SSL_F_SSL_SET_PKEY = 193; - {$EXTERNALSYM SSL_F_SSL_SET_RFD} - SSL_F_SSL_SET_RFD = 194; - {$EXTERNALSYM SSL_F_SSL_SET_SESSION} - SSL_F_SSL_SET_SESSION = 195; - {$EXTERNALSYM SSL_F_SSL_SET_SESSION_ID_CONTEXT} - SSL_F_SSL_SET_SESSION_ID_CONTEXT = 218; - {$EXTERNALSYM SSL_F_SSL_SET_SESSION_TICKET_EXT} - SSL_F_SSL_SET_SESSION_TICKET_EXT = 294; - {$EXTERNALSYM SSL_F_SSL_SET_WFD} - SSL_F_SSL_SET_WFD = 196; - {$EXTERNALSYM SSL_F_SSL_SHUTDOWN} - SSL_F_SSL_SHUTDOWN = 224; - {$EXTERNALSYM SSL_F_SSL_SRP_CTX_INIT} - SSL_F_SSL_SRP_CTX_INIT = 313; - {$EXTERNALSYM SSL_F_SSL_UNDEFINED_FUNCTION} - SSL_F_SSL_UNDEFINED_FUNCTION = 197; - {$EXTERNALSYM SSL_F_SSL_USE_CERTIFICATE} - SSL_F_SSL_USE_CERTIFICATE = 198; - {$EXTERNALSYM SSL_F_SSL_USE_CERTIFICATE_ASN1} - SSL_F_SSL_USE_CERTIFICATE_ASN1 = 199; - {$EXTERNALSYM SSL_F_SSL_USE_CERTIFICATE_FILE} - SSL_F_SSL_USE_CERTIFICATE_FILE = 200; - {$EXTERNALSYM SSL_F_SSL_USE_PRIVATEKEY} - SSL_F_SSL_USE_PRIVATEKEY = 201; - {$EXTERNALSYM SSL_F_SSL_USE_PRIVATEKEY_ASN1} - SSL_F_SSL_USE_PRIVATEKEY_ASN1 = 202; - {$EXTERNALSYM SSL_F_SSL_USE_PRIVATEKEY_FILE} - SSL_F_SSL_USE_PRIVATEKEY_FILE = 203; - {$EXTERNALSYM SSL_F_SSL_USE_PSK_IDENTITY_HINT} - SSL_F_SSL_USE_PSK_IDENTITY_HINT = 273; - {$EXTERNALSYM SSL_F_SSL_USE_RSAPRIVATEKEY} - SSL_F_SSL_USE_RSAPRIVATEKEY = 204; - {$EXTERNALSYM SSL_F_SSL_USE_RSAPRIVATEKEY_ASN1} - SSL_F_SSL_USE_RSAPRIVATEKEY_ASN1 = 205; - {$EXTERNALSYM SSL_F_SSL_USE_RSAPRIVATEKEY_FILE} - SSL_F_SSL_USE_RSAPRIVATEKEY_FILE = 206; - {$EXTERNALSYM SSL_F_SSL_VERIFY_CERT_CHAIN} - SSL_F_SSL_VERIFY_CERT_CHAIN = 207; - {$EXTERNALSYM SSL_F_SSL_WRITE} - SSL_F_SSL_WRITE = 208; - {$EXTERNALSYM SSL_F_TLS1_CERT_VERIFY_MAC} - SSL_F_TLS1_CERT_VERIFY_MAC = 286; - {$EXTERNALSYM SSL_F_TLS1_CHANGE_CIPHER_STATE} - SSL_F_TLS1_CHANGE_CIPHER_STATE = 209; - {$EXTERNALSYM SSL_F_TLS1_CHECK_SERVERHELLO_TLSEXT} - SSL_F_TLS1_CHECK_SERVERHELLO_TLSEXT = 274; - {$EXTERNALSYM SSL_F_TLS1_ENC} - SSL_F_TLS1_ENC = 210; - {$EXTERNALSYM SSL_F_TLS1_EXPORT_KEYING_MATERIAL} - SSL_F_TLS1_EXPORT_KEYING_MATERIAL = 314; - {$EXTERNALSYM SSL_F_TLS1_HEARTBEAT} - SSL_F_TLS1_HEARTBEAT = 315; - {$EXTERNALSYM SSL_F_TLS1_PREPARE_CLIENTHELLO_TLSEXT} - SSL_F_TLS1_PREPARE_CLIENTHELLO_TLSEXT = 275; - {$EXTERNALSYM SSL_F_TLS1_PREPARE_SERVERHELLO_TLSEXT} - SSL_F_TLS1_PREPARE_SERVERHELLO_TLSEXT = 276; - {$EXTERNALSYM SSL_F_TLS1_PRF} - SSL_F_TLS1_PRF = 284; - {$EXTERNALSYM SSL_F_TLS1_SETUP_KEY_BLOCK} - SSL_F_TLS1_SETUP_KEY_BLOCK = 211; - {$EXTERNALSYM SSL_F_WRITE_PENDING} - SSL_F_WRITE_PENDING = 212; - {$EXTERNALSYM SSL_MAX_KEY_ARG_LENGTH} - SSL_MAX_KEY_ARG_LENGTH = 8; - {$EXTERNALSYM SSL_MAX_MASTER_KEY_LENGTH} - SSL_MAX_MASTER_KEY_LENGTH = 48; - {$EXTERNALSYM SSL_MAX_SID_CTX_LENGTH} - SSL_MAX_SID_CTX_LENGTH = 32; - {$EXTERNALSYM SSL_MAX_KRB5_PRINCIPAL_LENGTH} - SSL_MAX_KRB5_PRINCIPAL_LENGTH = 256; - {$EXTERNALSYM SSL_MAX_SSL_SESSION_ID_LENGTH} - SSL_MAX_SSL_SESSION_ID_LENGTH = 32; - {$EXTERNALSYM SSL_MODE_ENABLE_PARTIAL_WRITE} - SSL_MODE_ENABLE_PARTIAL_WRITE = $00000001; - {$EXTERNALSYM SSL_MODE_ACCEPT_MOVING_WRITE_BUFFER} - SSL_MODE_ACCEPT_MOVING_WRITE_BUFFER = $00000002; - {$EXTERNALSYM SSL_MODE_AUTO_RETRY} - SSL_MODE_AUTO_RETRY = $00000004; - {$EXTERNALSYM SSL_MODE_NO_AUTO_CHAIN} - SSL_MODE_NO_AUTO_CHAIN = $00000008; -///* Save RAM by releasing read and write buffers when they're empty. (SSL3 and -// * TLS only.) "Released" buffers are put onto a free-list in the context -// * or just freed (depending on the context's setting for freelist_max_len). */ - {$EXTERNALSYM SSL_MODE_RELEASE_BUFFERS} - SSL_MODE_RELEASE_BUFFERS = $00000010; - {$IFDEF OPENSSL_NO_BUF_FREELISTS} - {$EXTERNALSYM SSL_MAX_BUF_FREELIST_LEN_DEFAULT} - SSL_MAX_BUF_FREELIST_LEN_DEFAULT = 32; - {$ENDIF} - {$EXTERNALSYM SSL_NOTHING} - SSL_NOTHING = 1; - {$EXTERNALSYM SSL_WRITING} - SSL_WRITING = 2; - {$EXTERNALSYM SSL_READING} - SSL_READING = 3; - {$EXTERNALSYM SSL_X509_LOOKUP} - SSL_X509_LOOKUP = 4; - {$EXTERNALSYM SSL_OP_MICROSOFT_SESS_ID_BUG} - SSL_OP_MICROSOFT_SESS_ID_BUG = $00000001; - {$EXTERNALSYM SSL_OP_NETSCAPE_CHALLENGE_BUG} - SSL_OP_NETSCAPE_CHALLENGE_BUG = $00000002; -//* Allow initial connection to servers that don't support RI */ - {$EXTERNALSYM SSL_OP_LEGACY_SERVER_CONNECT} - SSL_OP_LEGACY_SERVER_CONNECT = $00000004; - - {$EXTERNALSYM SSL_OP_NETSCAPE_REUSE_CIPHER_CHANGE_BUG} - SSL_OP_NETSCAPE_REUSE_CIPHER_CHANGE_BUG = $00000008; - {$EXTERNALSYM SSL_OP_SSLREF2_REUSE_CERT_TYPE_BUG} - SSL_OP_SSLREF2_REUSE_CERT_TYPE_BUG = $00000010; - {$EXTERNALSYM SSL_OP_MICROSOFT_BIG_SSLV3_BUFFER} - SSL_OP_MICROSOFT_BIG_SSLV3_BUFFER = $00000020; - {$EXTERNALSYM SSL_OP_MSIE_SSLV2_RSA_PADDING} - SSL_OP_MSIE_SSLV2_RSA_PADDING = $00000040; - {$EXTERNALSYM SSL_OP_SSLEAY_080_CLIENT_DH_BUG} - SSL_OP_SSLEAY_080_CLIENT_DH_BUG = $00000080; - {$EXTERNALSYM SSL_OP_TLS_D5_BUG} - SSL_OP_TLS_D5_BUG = $00000100; - {$EXTERNALSYM SSL_OP_TLS_BLOCK_PADDING_BUG} - SSL_OP_TLS_BLOCK_PADDING_BUG = $00000200; - {$EXTERNALSYM SSL_OP_DONT_INSERT_EMPTY_FRAGMENTS} - SSL_OP_DONT_INSERT_EMPTY_FRAGMENTS = $00000800; - {$EXTERNALSYM SSL_OP_ALL} - SSL_OP_ALL = $00000FFF; //this was $000FFFFF; before 0.9.7 - {$EXTERNALSYM SSL_OP_NO_QUERY_MTU} - SSL_OP_NO_QUERY_MTU = $00001000; - {$EXTERNALSYM SSL_OP_COOKIE_EXCHANGE} - SSL_OP_COOKIE_EXCHANGE = $00002000; - {$EXTERNALSYM SSL_OP_NO_TICKET} - SSL_OP_NO_TICKET = $00004000; -//* Use Cisco's "speshul" version of DTLS_BAD_VER (as client) */ - {$EXTERNALSYM SSL_OP_CISCO_ANYCONNECT} - SSL_OP_CISCO_ANYCONNECT = $00008000; - {$EXTERNALSYM SSL_OP_NO_SESSION_RESUMPTION_ON_RENEGOTIATION} - SSL_OP_NO_SESSION_RESUMPTION_ON_RENEGOTIATION = $00010000; -//* Don't use compression even if supported */ - {$EXTERNALSYM SSL_OP_NO_COMPRESSION} - SSL_OP_NO_COMPRESSION = $00020000; -//* Permit unsafe legacy renegotiation */ - {$EXTERNALSYM SSL_OP_ALLOW_UNSAFE_LEGACY_RENEGOTIATION} - SSL_OP_ALLOW_UNSAFE_LEGACY_RENEGOTIATION = $00040000; - - {$EXTERNALSYM SSL_OP_SINGLE_ECDH_USE} - SSL_OP_SINGLE_ECDH_USE = $00080000; - {$EXTERNALSYM SSL_OP_SINGLE_DH_USE} - SSL_OP_SINGLE_DH_USE = $00100000; - {$EXTERNALSYM SSL_OP_EPHEMERAL_RSA} - SSL_OP_EPHEMERAL_RSA = $00200000; - {$EXTERNALSYM SSL_OP_CIPHER_SERVER_PREFERENCE} - SSL_OP_CIPHER_SERVER_PREFERENCE = $00400000; - {$EXTERNALSYM SSL_OP_TLS_ROLLBACK_BUG} - SSL_OP_TLS_ROLLBACK_BUG = $00800000; //was $00000400; - {$EXTERNALSYM SSL_OP_NO_SSLv2} - SSL_OP_NO_SSLv2 = $01000000; - {$EXTERNALSYM SSL_OP_NO_SSLv3} - SSL_OP_NO_SSLv3 = $02000000; - {$EXTERNALSYM SSL_OP_NO_TLSv1} - SSL_OP_NO_TLSv1 = $04000000; - {$EXTERNALSYM SSL_OP_NO_TLSv1_2} - SSL_OP_NO_TLSv1_2 = $08000000; - {$EXTERNALSYM SSL_OP_NO_TLSv1_1} - SSL_OP_NO_TLSv1_1 = $10000000; - {$EXTERNALSYM SSL_OP_PKCS1_CHECK_1} - SSL_OP_PKCS1_CHECK_1 = $00; //was $08000000; - {$EXTERNALSYM SSL_OP_PKCS1_CHECK_2} - SSL_OP_PKCS1_CHECK_2 = $00; //was $10000000; - - {$EXTERNALSYM SSL_OP_NETSCAPE_CA_DN_BUG} - SSL_OP_NETSCAPE_CA_DN_BUG = $20000000; - //OPENSSL_SSL_OP_NON_EXPORT_FIRST was removed for OpenSSL 0.9.7 (that was $40000000;) - {$EXTERNALSYM SSL_OP_NETSCAPE_DEMO_CIPHER_CHANGE_BUG} - SSL_OP_NETSCAPE_DEMO_CIPHER_CHANGE_BUG = $40000000;// was $80000000; -//* Make server add server-hello extension from early version of -// * cryptopro draft, when GOST ciphersuite is negotiated. -// * Required for interoperability with CryptoPro CSP 3.x -// */ - {$EXTERNALSYM SSL_OP_CRYPTOPRO_TLSEXT_BUG} - SSL_OP_CRYPTOPRO_TLSEXT_BUG = $80000000; - - {$EXTERNALSYM SSL_RECEIVED_SHUTDOWN} - SSL_RECEIVED_SHUTDOWN = 2; - {$EXTERNALSYM SSL_R_APP_DATA_IN_HANDSHAKE} - SSL_R_APP_DATA_IN_HANDSHAKE = 100; - {$EXTERNALSYM SSL_R_ATTEMPT_TO_REUSE_SESSION_IN_DIFFERENT_CONTEXT} - SSL_R_ATTEMPT_TO_REUSE_SESSION_IN_DIFFERENT_CONTEXT = 272; - {$EXTERNALSYM SSL_R_BAD_ALERT_RECORD} - SSL_R_BAD_ALERT_RECORD = 101; - {$EXTERNALSYM SSL_R_BAD_AUTHENTICATION_TYPE} - SSL_R_BAD_AUTHENTICATION_TYPE = 102; - {$EXTERNALSYM SSL_R_BAD_CHANGE_CIPHER_SPEC} - SSL_R_BAD_CHANGE_CIPHER_SPEC = 103; - {$EXTERNALSYM SSL_R_BAD_CHECKSUM} - SSL_R_BAD_CHECKSUM = 104; - {$EXTERNALSYM SSL_R_BAD_CLIENT_REQUEST} - SSL_R_BAD_CLIENT_REQUEST = 105; - {$EXTERNALSYM SSL_R_BAD_DATA_RETURNED_BY_CALLBACK} - SSL_R_BAD_DATA_RETURNED_BY_CALLBACK = 106; - {$EXTERNALSYM SSL_R_BAD_DECOMPRESSION} - SSL_R_BAD_DECOMPRESSION = 107; - {$EXTERNALSYM SSL_R_BAD_DH_G_LENGTH} - SSL_R_BAD_DH_G_LENGTH = 108; - {$EXTERNALSYM SSL_R_BAD_DH_PUB_KEY_LENGTH} - SSL_R_BAD_DH_PUB_KEY_LENGTH = 109; - {$EXTERNALSYM SSL_R_BAD_DH_P_LENGTH} - SSL_R_BAD_DH_P_LENGTH = 110; - {$EXTERNALSYM SSL_R_BAD_DIGEST_LENGTH} - SSL_R_BAD_DIGEST_LENGTH = 111; - {$EXTERNALSYM SSL_R_BAD_DSA_SIGNATURE} - SSL_R_BAD_DSA_SIGNATURE = 112; - {$EXTERNALSYM SSL_R_BAD_ECC_CERT} - SSL_R_BAD_ECC_CERT = 304; - {$EXTERNALSYM SSL_R_BAD_ECDSA_SIGNATURE} - SSL_R_BAD_ECDSA_SIGNATURE = 305; - {$EXTERNALSYM SSL_R_BAD_ECPOINT} - SSL_R_BAD_ECPOINT = 306; - {$EXTERNALSYM SSL_R_BAD_HANDSHAKE_LENGTH} - SSL_R_BAD_HANDSHAKE_LENGTH = 332; - {$EXTERNALSYM SSL_R_BAD_HELLO_REQUEST} - SSL_R_BAD_HELLO_REQUEST = 105; - {$EXTERNALSYM SSL_R_BAD_LENGTH} - SSL_R_BAD_LENGTH = 271; - {$EXTERNALSYM SSL_R_BAD_MAC_DECODE} - SSL_R_BAD_MAC_DECODE = 113; - {$EXTERNALSYM SSL_R_BAD_MAC_LENGTH} - SSL_R_BAD_MAC_LENGTH = 333; - {$EXTERNALSYM SSL_R_BAD_MESSAGE_TYPE} - SSL_R_BAD_MESSAGE_TYPE = 114; - {$EXTERNALSYM SSL_R_BAD_PACKET_LENGTH} - SSL_R_BAD_PACKET_LENGTH = 115; - {$EXTERNALSYM SSL_R_BAD_PROTOCOL_VERSION_NUMBER} - SSL_R_BAD_PROTOCOL_VERSION_NUMBER = 116; - {$EXTERNALSYM SSL_R_BAD_PSK_IDENTITY_HINT_LENGTH} - SSL_R_BAD_PSK_IDENTITY_HINT_LENGTH = 316; - {$EXTERNALSYM SSL_R_BAD_RESPONSE_ARGUMENT} - SSL_R_BAD_RESPONSE_ARGUMENT = 117; - {$EXTERNALSYM SSL_R_BAD_RSA_DECRYPT} - SSL_R_BAD_RSA_DECRYPT = 118; - {$EXTERNALSYM SSL_R_BAD_RSA_ENCRYPT} - SSL_R_BAD_RSA_ENCRYPT = 119; - {$EXTERNALSYM SSL_R_BAD_RSA_E_LENGTH} - SSL_R_BAD_RSA_E_LENGTH = 120; - {$EXTERNALSYM SSL_R_BAD_RSA_MODULUS_LENGTH} - SSL_R_BAD_RSA_MODULUS_LENGTH = 121; - {$EXTERNALSYM SSL_R_BAD_RSA_SIGNATURE} - SSL_R_BAD_RSA_SIGNATURE = 122; - {$EXTERNALSYM SSL_R_BAD_SIGNATURE} - SSL_R_BAD_SIGNATURE = 123; - {$EXTERNALSYM SSL_R_BAD_SRP_A_LENGTH} - SSL_R_BAD_SRP_A_LENGTH = 347; - {$EXTERNALSYM SSL_R_BAD_SRP_B_LENGTH} - SSL_R_BAD_SRP_B_LENGTH = 348; - {$EXTERNALSYM SSL_R_BAD_SRP_G_LENGTH} - SSL_R_BAD_SRP_G_LENGTH = 349; - {$EXTERNALSYM SSL_R_BAD_SRP_N_LENGTH} - SSL_R_BAD_SRP_N_LENGTH = 350; - {$EXTERNALSYM SSL_R_BAD_SRP_S_LENGTH} - SSL_R_BAD_SRP_S_LENGTH = 351; - {$EXTERNALSYM SSL_R_BAD_SRTP_MKI_VALUE} - SSL_R_BAD_SRTP_MKI_VALUE = 352; - {$EXTERNALSYM SSL_R_BAD_SRTP_PROTECTION_PROFILE_LIST} - SSL_R_BAD_SRTP_PROTECTION_PROFILE_LIST = 353; - - {$EXTERNALSYM SSL_R_BAD_SSL_FILETYPE} - SSL_R_BAD_SSL_FILETYPE = 124; - {$EXTERNALSYM SSL_R_BAD_SSL_SESSION_ID_LENGTH} - SSL_R_BAD_SSL_SESSION_ID_LENGTH = 125; - {$EXTERNALSYM SSL_R_BAD_STATE} - SSL_R_BAD_STATE = 126; - {$EXTERNALSYM SSL_R_BAD_WRITE_RETRY} - SSL_R_BAD_WRITE_RETRY = 127; - {$EXTERNALSYM SSL_R_BIO_NOT_SET} - SSL_R_BIO_NOT_SET = 128; - {$EXTERNALSYM SSL_R_BLOCK_CIPHER_PAD_IS_WRONG} - SSL_R_BLOCK_CIPHER_PAD_IS_WRONG = 129; - {$EXTERNALSYM SSL_R_BN_LIB} - SSL_R_BN_LIB = 130; - {$EXTERNALSYM SSL_R_CA_DN_LENGTH_MISMATCH} - SSL_R_CA_DN_LENGTH_MISMATCH = 131; - {$EXTERNALSYM SSL_R_CA_DN_TOO_LONG} - SSL_R_CA_DN_TOO_LONG = 132; - {$EXTERNALSYM SSL_R_CCS_RECEIVED_EARLY} - SSL_R_CCS_RECEIVED_EARLY = 133; - {$EXTERNALSYM SSL_R_CERTIFICATE_VERIFY_FAILED} - SSL_R_CERTIFICATE_VERIFY_FAILED = 134; - {$EXTERNALSYM SSL_R_CERT_LENGTH_MISMATCH} - SSL_R_CERT_LENGTH_MISMATCH = 135; - {$EXTERNALSYM SSL_R_CHALLENGE_IS_DIFFERENT} - SSL_R_CHALLENGE_IS_DIFFERENT = 136; - {$EXTERNALSYM SSL_R_CIPHER_CODE_WRONG_LENGTH} - SSL_R_CIPHER_CODE_WRONG_LENGTH = 137; - {$EXTERNALSYM SSL_R_CIPHER_OR_HASH_UNAVAILABLE} - SSL_R_CIPHER_OR_HASH_UNAVAILABLE = 138; - {$EXTERNALSYM SSL_R_CIPHER_TABLE_SRC_ERROR} - SSL_R_CIPHER_TABLE_SRC_ERROR = 139; - {$EXTERNALSYM SSL_R_CLIENTHELLO_TLSEXT} - SSL_R_CLIENTHELLO_TLSEXT = 226; //was 157; - {$EXTERNALSYM SSL_R_COMPRESSED_LENGTH_TOO_LONG} - SSL_R_COMPRESSED_LENGTH_TOO_LONG = 140; - {$EXTERNALSYM SSL_R_COMPRESSION_DISABLED} - SSL_R_COMPRESSION_DISABLED = 343; - {$EXTERNALSYM SSL_R_COMPRESSION_FAILURE} - SSL_R_COMPRESSION_FAILURE = 141; - {$EXTERNALSYM SSL_R_COMPRESSION_LIBRARY_ERROR} - SSL_R_COMPRESSION_LIBRARY_ERROR = 142; - {$EXTERNALSYM SSL_R_CONNECTION_ID_IS_DIFFERENT} - SSL_R_CONNECTION_ID_IS_DIFFERENT = 143; - {$EXTERNALSYM SSL_R_CONNECTION_TYPE_NOT_SET} - SSL_R_CONNECTION_TYPE_NOT_SET = 144; - {$EXTERNALSYM SSL_R_DATA_BETWEEN_CCS_AND_FINISHED} - SSL_R_DATA_BETWEEN_CCS_AND_FINISHED = 145; - {$EXTERNALSYM SSL_R_DATA_LENGTH_TOO_LONG} - SSL_R_DATA_LENGTH_TOO_LONG = 146; - {$EXTERNALSYM SSL_R_DECRYPTION_FAILED} - SSL_R_DECRYPTION_FAILED = 147; - {$EXTERNALSYM SSL_R_DH_PUBLIC_VALUE_LENGTH_IS_WRONG} - SSL_R_DH_PUBLIC_VALUE_LENGTH_IS_WRONG = 148; - {$EXTERNALSYM SSL_R_DIGEST_CHECK_FAILED} - SSL_R_DIGEST_CHECK_FAILED = 149; - {$EXTERNALSYM SSL_R_DTLS_MESSAGE_TOO_BIG} - SSL_R_DTLS_MESSAGE_TOO_BIG = 334; //was 318; - {$EXTERNALSYM SSL_R_ECC_CERT_NOT_FOR_KEY_AGREEMENT} - SSL_R_ECC_CERT_NOT_FOR_KEY_AGREEMENT = 317; - {$EXTERNALSYM SSL_R_ECC_CERT_NOT_FOR_SIGNING} - SSL_R_ECC_CERT_NOT_FOR_SIGNING = 318; - {$EXTERNALSYM SSL_R_ECC_CERT_SHOULD_HAVE_RSA_SIGNATURE} - SSL_R_ECC_CERT_SHOULD_HAVE_RSA_SIGNATURE = 322; - {$EXTERNALSYM SSL_R_ECC_CERT_SHOULD_HAVE_SHA1_SIGNATURE} - SSL_R_ECC_CERT_SHOULD_HAVE_SHA1_SIGNATURE = 323; - {$EXTERNALSYM SSL_R_ECGROUP_TOO_LARGE_FOR_CIPHER} - SSL_R_ECGROUP_TOO_LARGE_FOR_CIPHER = 310; - {$EXTERNALSYM SSL_R_EMPTY_SRTP_PROTECTION_PROFILE_LIST} - SSL_R_EMPTY_SRTP_PROTECTION_PROFILE_LIST = 354; - {$EXTERNALSYM SSL_R_ENCRYPTED_LENGTH_TOO_LONG} - SSL_R_ENCRYPTED_LENGTH_TOO_LONG = 150; - {$EXTERNALSYM SSL_R_ERROR_IN_RECEIVED_CIPHER_LIST} - SSL_R_ERROR_IN_RECEIVED_CIPHER_LIST = 151; - {$EXTERNALSYM SSL_R_EXCESSIVE_MESSAGE_SIZE} - SSL_R_EXCESSIVE_MESSAGE_SIZE = 152; - {$EXTERNALSYM SSL_R_EXTRA_DATA_IN_MESSAGE} - SSL_R_EXTRA_DATA_IN_MESSAGE = 153; - {$EXTERNALSYM SSL_R_GOT_A_FIN_BEFORE_A_CCS} - SSL_R_GOT_A_FIN_BEFORE_A_CCS = 154; - {$EXTERNALSYM SSL_R_GOT_NEXT_PROTO_BEFORE_A_CCS} - SSL_R_GOT_NEXT_PROTO_BEFORE_A_CCS = 355; - {$EXTERNALSYM SSL_R_GOT_NEXT_PROTO_WITHOUT_EXTENSION} - SSL_R_GOT_NEXT_PROTO_WITHOUT_EXTENSION = 356; - {$EXTERNALSYM SSL_R_HTTPS_PROXY_REQUEST} - SSL_R_HTTPS_PROXY_REQUEST = 155; - {$EXTERNALSYM SSL_R_HTTP_REQUEST} - SSL_R_HTTP_REQUEST = 156; - {$EXTERNALSYM SSL_R_ILLEGAL_PADDING} - SSL_R_ILLEGAL_PADDING = 283; - {$EXTERNALSYM SSL_R_INCONSISTENT_COMPRESSION} - SSL_R_INCONSISTENT_COMPRESSION = 340; - {$EXTERNALSYM SSL_R_INTERNAL_ERROR} - SSL_R_INTERNAL_ERROR = 157; - {$EXTERNALSYM SSL_R_INVALID_CHALLENGE_LENGTH} - SSL_R_INVALID_CHALLENGE_LENGTH = 158; - {$EXTERNALSYM SSL_R_INVALID_COMMAND} - SSL_R_INVALID_COMMAND = 280; - {$EXTERNALSYM SSL_R_INVALID_PURPOSE} - SSL_R_INVALID_PURPOSE = 278; - {$EXTERNALSYM SSL_R_INVALID_STATUS_RESPONSE} - SSL_R_INVALID_STATUS_RESPONSE = 316; - {$EXTERNALSYM SSL_R_INVALID_TICKET_KEYS_LENGTH} - SSL_R_INVALID_TICKET_KEYS_LENGTH = 275; - {$EXTERNALSYM SSL_R_INVALID_TRUST} - SSL_R_INVALID_TRUST = 279; - {$EXTERNALSYM SSL_R_LENGTH_MISMATCH} - SSL_R_LENGTH_MISMATCH = 159; - {$EXTERNALSYM SSL_R_LENGTH_TOO_SHORT} - SSL_R_LENGTH_TOO_SHORT = 160; - {$EXTERNALSYM SSL_R_LIBRARY_BUG} - SSL_R_LIBRARY_BUG = 274; - {$EXTERNALSYM SSL_R_LIBRARY_HAS_NO_CIPHERS} - SSL_R_LIBRARY_HAS_NO_CIPHERS = 161; - {$EXTERNALSYM SSL_R_MISSING_DH_DSA_CERT} - SSL_R_MISSING_DH_DSA_CERT = 162; - {$EXTERNALSYM SSL_R_MISSING_DH_KEY} - SSL_R_MISSING_DH_KEY = 163; - {$EXTERNALSYM SSL_R_MISSING_DH_RSA_CERT} - SSL_R_MISSING_DH_RSA_CERT = 164; - {$EXTERNALSYM SSL_R_MISSING_DSA_SIGNING_CERT} - SSL_R_MISSING_DSA_SIGNING_CERT = 165; - {$EXTERNALSYM SSL_R_MISSING_EXPORT_TMP_DH_KEY} - SSL_R_MISSING_EXPORT_TMP_DH_KEY = 166; - {$EXTERNALSYM SSL_R_MISSING_EXPORT_TMP_RSA_KEY} - SSL_R_MISSING_EXPORT_TMP_RSA_KEY = 167; - {$EXTERNALSYM SSL_R_MISSING_RSA_CERTIFICATE} - SSL_R_MISSING_RSA_CERTIFICATE = 168; - {$EXTERNALSYM SSL_R_MISSING_RSA_ENCRYPTING_CERT} - SSL_R_MISSING_RSA_ENCRYPTING_CERT = 169; - {$EXTERNALSYM SSL_R_MISSING_RSA_SIGNING_CERT} - SSL_R_MISSING_RSA_SIGNING_CERT = 170; - {$EXTERNALSYM SSL_R_MISSING_TMP_DH_KEY} - SSL_R_MISSING_TMP_DH_KEY = 171; - {$EXTERNALSYM SSL_R_MISSING_TMP_RSA_KEY} - SSL_R_MISSING_TMP_RSA_KEY = 172; - {$EXTERNALSYM SSL_R_MISSING_TMP_RSA_PKEY} - SSL_R_MISSING_TMP_RSA_PKEY = 173; - {$EXTERNALSYM SSL_R_MISSING_VERIFY_MESSAGE} - SSL_R_MISSING_VERIFY_MESSAGE = 174; - {$EXTERNALSYM SSL_R_MULTIPLE_SGC_RESTARTS} - SSL_R_MULTIPLE_SGC_RESTARTS = 346; - {$EXTERNALSYM SSL_R_NON_SSLV2_INITIAL_PACKET} - SSL_R_NON_SSLV2_INITIAL_PACKET = 175; - {$EXTERNALSYM SSL_R_NO_CERTIFICATES_RETURNED} - SSL_R_NO_CERTIFICATES_RETURNED = 176; - {$EXTERNALSYM SSL_R_NO_CERTIFICATE_ASSIGNED} - SSL_R_NO_CERTIFICATE_ASSIGNED = 177; - {$EXTERNALSYM SSL_R_NO_CERTIFICATE_RETURNED} - SSL_R_NO_CERTIFICATE_RETURNED = 178; - {$EXTERNALSYM SSL_R_NO_CERTIFICATE_SET} - SSL_R_NO_CERTIFICATE_SET = 179; - {$EXTERNALSYM SSL_R_NO_CERTIFICATE_SPECIFIED} - SSL_R_NO_CERTIFICATE_SPECIFIED = 180; - {$EXTERNALSYM SSL_R_NO_CIPHERS_AVAILABLE} - SSL_R_NO_CIPHERS_AVAILABLE = 181; - {$EXTERNALSYM SSL_R_NO_CIPHERS_PASSED} - SSL_R_NO_CIPHERS_PASSED = 182; - {$EXTERNALSYM SSL_R_NO_CIPHERS_SPECIFIED} - SSL_R_NO_CIPHERS_SPECIFIED = 183; - {$EXTERNALSYM SSL_R_NO_CIPHER_LIST} - SSL_R_NO_CIPHER_LIST = 184; - {$EXTERNALSYM SSL_R_NO_CIPHER_MATCH} - SSL_R_NO_CIPHER_MATCH = 185; - {$EXTERNALSYM SSL_R_NO_CLIENT_CERT_METHOD} - SSL_R_NO_CLIENT_CERT_METHOD = 317; - {$EXTERNALSYM SSL_R_NO_CLIENT_CERT_RECEIVED} - SSL_R_NO_CLIENT_CERT_RECEIVED = 186; - {$EXTERNALSYM SSL_R_NO_COMPRESSION_SPECIFIED} - SSL_R_NO_COMPRESSION_SPECIFIED = 187; - {$EXTERNALSYM SSL_R_NO_METHOD_SPECIFIED} - SSL_R_NO_METHOD_SPECIFIED = 188; - {$EXTERNALSYM SSL_R_NO_PRIVATEKEY} - SSL_R_NO_PRIVATEKEY = 189; - {$EXTERNALSYM SSL_R_NO_PRIVATE_KEY_ASSIGNED} - SSL_R_NO_PRIVATE_KEY_ASSIGNED = 190; - {$EXTERNALSYM SSL_R_NO_PROTOCOLS_AVAILABLE} - SSL_R_NO_PROTOCOLS_AVAILABLE = 191; - {$EXTERNALSYM SSL_R_NO_PUBLICKEY} - SSL_R_NO_PUBLICKEY = 192; - //was 318 - {$EXTERNALSYM SSL_R_NO_RENEGOTIATION} - SSL_R_NO_RENEGOTIATION = 319; - {$EXTERNALSYM SSL_R_NO_SHARED_CIPHER} - SSL_R_NO_SHARED_CIPHER = 193; - {$EXTERNALSYM SSL_R_NO_VERIFY_CALLBACK} - SSL_R_NO_VERIFY_CALLBACK = 194; - {$EXTERNALSYM SSL_R_NULL_SSL_CTX} - SSL_R_NULL_SSL_CTX = 195; - {$EXTERNALSYM SSL_R_NULL_SSL_METHOD_PASSED} - SSL_R_NULL_SSL_METHOD_PASSED = 196; - {$EXTERNALSYM SSL_R_OLD_SESSION_CIPHER_NOT_RETURNED} - SSL_R_OLD_SESSION_CIPHER_NOT_RETURNED = 197; - {$EXTERNALSYM SSL_R_ONLY_TLS_ALLOWED_IN_FIPS_MODE} - SSL_R_ONLY_TLS_ALLOWED_IN_FIPS_MODE = 297; - {$EXTERNALSYM SSL_R_PACKET_LENGTH_TOO_LONG} - SSL_R_PACKET_LENGTH_TOO_LONG = 198; - {$EXTERNALSYM SSL_R_PARSE_TLSEXT} - SSL_R_PARSE_TLSEXT = 223; - {$EXTERNALSYM SSL_R_PATH_TOO_LONG} - SSL_R_PATH_TOO_LONG = 270; - {$EXTERNALSYM SSL_R_PEER_DID_NOT_RETURN_A_CERTIFICATE} - SSL_R_PEER_DID_NOT_RETURN_A_CERTIFICATE = 199; - {$EXTERNALSYM SSL_R_PEER_ERROR} - SSL_R_PEER_ERROR = 200; - {$EXTERNALSYM SSL_R_PEER_ERROR_CERTIFICATE} - SSL_R_PEER_ERROR_CERTIFICATE = 201; - {$EXTERNALSYM SSL_R_PEER_ERROR_NO_CERTIFICATE} - SSL_R_PEER_ERROR_NO_CERTIFICATE = 202; - {$EXTERNALSYM SSL_R_PEER_ERROR_NO_CIPHER} - SSL_R_PEER_ERROR_NO_CIPHER = 203; - {$EXTERNALSYM SSL_R_PEER_ERROR_UNSUPPORTED_CERTIFICATE_TYPE} - SSL_R_PEER_ERROR_UNSUPPORTED_CERTIFICATE_TYPE = 204; - {$EXTERNALSYM SSL_R_PRE_MAC_LENGTH_TOO_LONG} - SSL_R_PRE_MAC_LENGTH_TOO_LONG = 205; - {$EXTERNALSYM SSL_R_PROBLEMS_MAPPING_CIPHER_FUNCTIONS} - SSL_R_PROBLEMS_MAPPING_CIPHER_FUNCTIONS = 206; - {$EXTERNALSYM SSL_R_PROTOCOL_IS_SHUTDOWN} - SSL_R_PROTOCOL_IS_SHUTDOWN = 207; - {$EXTERNALSYM SSL_R_PUBLIC_KEY_ENCRYPT_ERROR} - SSL_R_PUBLIC_KEY_ENCRYPT_ERROR = 208; - {$EXTERNALSYM SSL_R_PUBLIC_KEY_IS_NOT_RSA} - SSL_R_PUBLIC_KEY_IS_NOT_RSA = 209; - {$EXTERNALSYM SSL_R_PUBLIC_KEY_NOT_RSA} - SSL_R_PUBLIC_KEY_NOT_RSA = 210; - {$EXTERNALSYM SSL_R_READ_BIO_NOT_SET} - SSL_R_READ_BIO_NOT_SET = 211; - {$EXTERNALSYM SSL_R_READ_WRONG_PACKET_TYPE} - SSL_R_READ_WRONG_PACKET_TYPE = 212; - {$EXTERNALSYM SSL_R_RECORD_LENGTH_MISMATCH} - SSL_R_RECORD_LENGTH_MISMATCH = 213; - {$EXTERNALSYM SSL_R_RECORD_TOO_LARGE} - SSL_R_RECORD_TOO_LARGE = 214; - {$EXTERNALSYM SSL_R_RECORD_TOO_SMALL} - SSL_R_RECORD_TOO_SMALL = 298; - {$EXTERNALSYM SSL_R_RENEGOTIATE_EXT_TOO_LONG} - SSL_R_RENEGOTIATE_EXT_TOO_LONG = 320; - {$EXTERNALSYM SSL_R_RENEGOTIATION_ENCODING_ERR} - SSL_R_RENEGOTIATION_ENCODING_ERR = 321; - {$EXTERNALSYM SSL_R_RENEGOTIATION_MISMATCH} - SSL_R_RENEGOTIATION_MISMATCH = 322; - {$EXTERNALSYM SSL_R_REQUIRED_CIPHER_MISSING} - SSL_R_REQUIRED_CIPHER_MISSING = 215; - {$EXTERNALSYM SSL_R_REUSE_CERT_LENGTH_NOT_ZERO} - SSL_R_REUSE_CERT_LENGTH_NOT_ZERO = 216; - {$EXTERNALSYM SSL_R_REUSE_CERT_TYPE_NOT_ZERO} - SSL_R_REUSE_CERT_TYPE_NOT_ZERO = 217; - {$EXTERNALSYM SSL_R_REUSE_CIPHER_LIST_NOT_ZERO} - SSL_R_REUSE_CIPHER_LIST_NOT_ZERO = 218; - {$EXTERNALSYM SSL_R_SCSV_RECEIVED_WHEN_RENEGOTIATING} - SSL_R_SCSV_RECEIVED_WHEN_RENEGOTIATING = 324; - {$EXTERNALSYM SSL_R_SERVERHELLO_TLSEXT} - SSL_R_SERVERHELLO_TLSEXT = 224; - {$EXTERNALSYM SSL_R_SESSION_ID_CONTEXT_UNINITIALIZED} - SSL_R_SESSION_ID_CONTEXT_UNINITIALIZED = 277; - {$EXTERNALSYM SSL_R_SHORT_READ} - SSL_R_SHORT_READ = 219; - {$EXTERNALSYM SSL_R_SIGNATURE_FOR_NON_SIGNING_CERTIFICATE} - SSL_R_SIGNATURE_FOR_NON_SIGNING_CERTIFICATE = 220; - {$EXTERNALSYM SSL_R_SSL23_DOING_SESSION_ID_REUSE} - SSL_R_SSL23_DOING_SESSION_ID_REUSE = 221; - {$EXTERNALSYM SSL_R_SSL2_CONNECTION_ID_TOO_LONG} - SSL_R_SSL2_CONNECTION_ID_TOO_LONG = 299; - {$EXTERNALSYM SSL_R_SSL3_EXT_INVALID_SERVERNAME} - SSL_R_SSL3_EXT_INVALID_SERVERNAME = 225; - {$EXTERNALSYM SSL_R_SSL3_EXT_INVALID_SERVERNAME_TYPE} - SSL_R_SSL3_EXT_INVALID_SERVERNAME_TYPE = 226; - {$EXTERNALSYM SSL_R_SSL3_SESSION_ID_TOO_LONG} - SSL_R_SSL3_SESSION_ID_TOO_LONG = 300; - {$EXTERNALSYM SSL_R_SSL3_SESSION_ID_TOO_SHORT} - SSL_R_SSL3_SESSION_ID_TOO_SHORT = 222; - {$EXTERNALSYM SSL_R_SSLV3_ALERT_BAD_CERTIFICATE} - SSL_R_SSLV3_ALERT_BAD_CERTIFICATE = 1042; - {$EXTERNALSYM SSL_R_SSLV3_ALERT_BAD_RECORD_MAC} - SSL_R_SSLV3_ALERT_BAD_RECORD_MAC = 1020; - {$EXTERNALSYM SSL_R_SSLV3_ALERT_CERTIFICATE_EXPIRED} - SSL_R_SSLV3_ALERT_CERTIFICATE_EXPIRED = 1045; - {$EXTERNALSYM SSL_R_SSLV3_ALERT_CERTIFICATE_REVOKED} - SSL_R_SSLV3_ALERT_CERTIFICATE_REVOKED = 1044; - {$EXTERNALSYM SSL_R_SSLV3_ALERT_CERTIFICATE_UNKNOWN} - SSL_R_SSLV3_ALERT_CERTIFICATE_UNKNOWN = 1046; - {$EXTERNALSYM SSL_R_SSLV3_ALERT_DECOMPRESSION_FAILURE} - SSL_R_SSLV3_ALERT_DECOMPRESSION_FAILURE = 1030; - {$EXTERNALSYM SSL_R_SSLV3_ALERT_HANDSHAKE_FAILURE} - SSL_R_SSLV3_ALERT_HANDSHAKE_FAILURE = 1040; - {$EXTERNALSYM SSL_R_SSLV3_ALERT_ILLEGAL_PARAMETER} - SSL_R_SSLV3_ALERT_ILLEGAL_PARAMETER = 1047; - {$EXTERNALSYM SSL_R_SSLV3_ALERT_NO_CERTIFICATE} - SSL_R_SSLV3_ALERT_NO_CERTIFICATE = 1041; - {$EXTERNALSYM SSL_R_SSLV3_ALERT_PEER_ERROR_CERTIFICATE} - SSL_R_SSLV3_ALERT_PEER_ERROR_CERTIFICATE = 223; - {$EXTERNALSYM SSL_R_SSLV3_ALERT_PEER_ERROR_NO_CERTIFICATE} - SSL_R_SSLV3_ALERT_PEER_ERROR_NO_CERTIFICATE = 224; - {$EXTERNALSYM SSL_R_SSLV3_ALERT_PEER_ERROR_NO_CIPHER} - SSL_R_SSLV3_ALERT_PEER_ERROR_NO_CIPHER = 225; - {$EXTERNALSYM SSL_R_SSLV3_ALERT_PEER_ERROR_UNSUPPORTED_CERTIFICATE_TYPE} - SSL_R_SSLV3_ALERT_PEER_ERROR_UNSUPPORTED_CERTIFICATE_TYPE = 226; - {$EXTERNALSYM SSL_R_SSLV3_ALERT_UNEXPECTED_MESSAGE} - SSL_R_SSLV3_ALERT_UNEXPECTED_MESSAGE = 1010; - {$EXTERNALSYM SSL_R_SSLV3_ALERT_UNKNOWN_REMOTE_ERROR_TYPE} - SSL_R_SSLV3_ALERT_UNKNOWN_REMOTE_ERROR_TYPE = 227; - {$EXTERNALSYM SSL_R_SSLV3_ALERT_UNSUPPORTED_CERTIFICATE} - SSL_R_SSLV3_ALERT_UNSUPPORTED_CERTIFICATE = 1043; - {$EXTERNALSYM SSL_R_SSL_CTX_HAS_NO_DEFAULT_SSL_VERSION} - SSL_R_SSL_CTX_HAS_NO_DEFAULT_SSL_VERSION = 228; - {$EXTERNALSYM SSL_R_SSL_HANDSHAKE_FAILURE} - SSL_R_SSL_HANDSHAKE_FAILURE = 229; - {$EXTERNALSYM SSL_R_SSL_LIBRARY_HAS_NO_CIPHERS} - SSL_R_SSL_LIBRARY_HAS_NO_CIPHERS = 230; - {$EXTERNALSYM SSL_R_SSL_SESSION_ID_CONTEXT_TOO_LONG} - SSL_R_SSL_SESSION_ID_CONTEXT_TOO_LONG = 273; - {$EXTERNALSYM SSL_R_SSL_SESSION_ID_IS_DIFFERENT} - SSL_R_SSL_SESSION_ID_IS_DIFFERENT = 231; - {$EXTERNALSYM SSL_R_TLSV1_ALERT_ACCESS_DENIED} - SSL_R_TLSV1_ALERT_ACCESS_DENIED = 1049; - {$EXTERNALSYM SSL_R_TLSV1_ALERT_DECODE_ERROR} - SSL_R_TLSV1_ALERT_DECODE_ERROR = 1050; - {$EXTERNALSYM SSL_R_TLSV1_ALERT_DECRYPTION_FAILED} - SSL_R_TLSV1_ALERT_DECRYPTION_FAILED = 1021; - {$EXTERNALSYM SSL_R_TLSV1_ALERT_DECRYPT_ERROR} - SSL_R_TLSV1_ALERT_DECRYPT_ERROR = 1051; - {$EXTERNALSYM SSL_R_TLSV1_ALERT_EXPORT_RESTRICION} - SSL_R_TLSV1_ALERT_EXPORT_RESTRICION = 1060; - {$EXTERNALSYM SSL_R_TLSV1_ALERT_INSUFFICIENT_SECURITY} - SSL_R_TLSV1_ALERT_INSUFFICIENT_SECURITY = 1071; - {$EXTERNALSYM SSL_R_TLSV1_ALERT_INTERNAL_ERROR} - SSL_R_TLSV1_ALERT_INTERNAL_ERROR = 1080; - {$EXTERNALSYM SSL_R_TLSV1_ALERT_NO_RENEGOTIATION} - SSL_R_TLSV1_ALERT_NO_RENEGOTIATION = 1100; - {$EXTERNALSYM SSL_R_TLSV1_ALERT_PROTOCOL_VERSION} - SSL_R_TLSV1_ALERT_PROTOCOL_VERSION = 1070; - {$EXTERNALSYM SSL_R_TLSV1_ALERT_RECORD_OVERFLOW} - SSL_R_TLSV1_ALERT_RECORD_OVERFLOW = 1022; - {$EXTERNALSYM SSL_R_TLSV1_ALERT_UNKNOWN_CA} - SSL_R_TLSV1_ALERT_UNKNOWN_CA = 1048; - {$EXTERNALSYM SSL_R_TLSV1_ALERT_USER_CANCLED} - SSL_R_TLSV1_ALERT_USER_CANCLED = 1090; - {$EXTERNALSYM SSL_R_TLS_CLIENT_CERT_REQ_WITH_ANON_CIPHER} - SSL_R_TLS_CLIENT_CERT_REQ_WITH_ANON_CIPHER = 232; - {$EXTERNALSYM SSL_R_TLS_INVALID_ECPOINTFORMAT_LIST} - SSL_R_TLS_INVALID_ECPOINTFORMAT_LIST = 227; - {$EXTERNALSYM SSL_R_TLS_PEER_DID_NOT_RESPOND_WITH_CERTIFICATE_LIST} - SSL_R_TLS_PEER_DID_NOT_RESPOND_WITH_CERTIFICATE_LIST = 233; - {$EXTERNALSYM SSL_R_TLS_RSA_ENCRYPTED_VALUE_LENGTH_IS_WRONG} - SSL_R_TLS_RSA_ENCRYPTED_VALUE_LENGTH_IS_WRONG = 234; - {$EXTERNALSYM SSL_R_TRIED_TO_USE_UNSUPPORTED_CIPHER} - SSL_R_TRIED_TO_USE_UNSUPPORTED_CIPHER = 235; - {$EXTERNALSYM SSL_R_UNABLE_TO_DECODE_DH_CERTS} - SSL_R_UNABLE_TO_DECODE_DH_CERTS = 236; - {$EXTERNALSYM SSL_R_UNABLE_TO_EXTRACT_PUBLIC_KEY} - SSL_R_UNABLE_TO_EXTRACT_PUBLIC_KEY = 237; - {$EXTERNALSYM SSL_R_UNABLE_TO_FIND_DH_PARAMETERS} - SSL_R_UNABLE_TO_FIND_DH_PARAMETERS = 238; - {$EXTERNALSYM SSL_R_UNABLE_TO_FIND_PUBLIC_KEY_PARAMETERS} - SSL_R_UNABLE_TO_FIND_PUBLIC_KEY_PARAMETERS = 239; - {$EXTERNALSYM SSL_R_UNABLE_TO_FIND_SSL_METHOD} - SSL_R_UNABLE_TO_FIND_SSL_METHOD = 240; - {$EXTERNALSYM SSL_R_UNABLE_TO_LOAD_SSL2_MD5_ROUTINES} - SSL_R_UNABLE_TO_LOAD_SSL2_MD5_ROUTINES = 241; - {$EXTERNALSYM SSL_R_UNABLE_TO_LOAD_SSL3_MD5_ROUTINES} - SSL_R_UNABLE_TO_LOAD_SSL3_MD5_ROUTINES = 242; - {$EXTERNALSYM SSL_R_UNABLE_TO_LOAD_SSL3_SHA1_ROUTINES} - SSL_R_UNABLE_TO_LOAD_SSL3_SHA1_ROUTINES = 243; - {$EXTERNALSYM SSL_R_UNEXPECTED_MESSAGE} - SSL_R_UNEXPECTED_MESSAGE = 244; - {$EXTERNALSYM SSL_R_UNEXPECTED_RECORD} - SSL_R_UNEXPECTED_RECORD = 245; - {$EXTERNALSYM SSL_R_UNINITIALIZED} - SSL_R_UNINITIALIZED = 276; - {$EXTERNALSYM SSL_R_UNKNOWN_ALERT_TYPE} - SSL_R_UNKNOWN_ALERT_TYPE = 246; - {$EXTERNALSYM SSL_R_UNKNOWN_CERTIFICATE_TYPE} - SSL_R_UNKNOWN_CERTIFICATE_TYPE = 247; - {$EXTERNALSYM SSL_R_UNKNOWN_CIPHER_RETURNED} - SSL_R_UNKNOWN_CIPHER_RETURNED = 248; - {$EXTERNALSYM SSL_R_UNKNOWN_CIPHER_TYPE} - SSL_R_UNKNOWN_CIPHER_TYPE = 249; - {$EXTERNALSYM SSL_R_UNKNOWN_KEY_EXCHANGE_TYPE} - SSL_R_UNKNOWN_KEY_EXCHANGE_TYPE = 250; - {$EXTERNALSYM SSL_R_UNKNOWN_PKEY_TYPE} - SSL_R_UNKNOWN_PKEY_TYPE = 251; - {$EXTERNALSYM SSL_R_UNKNOWN_PROTOCOL} - SSL_R_UNKNOWN_PROTOCOL = 252; - {$EXTERNALSYM SSL_R_UNKNOWN_REMOTE_ERROR_TYPE} - SSL_R_UNKNOWN_REMOTE_ERROR_TYPE = 253; - {$EXTERNALSYM SSL_R_UNKNOWN_SSL_VERSION} - SSL_R_UNKNOWN_SSL_VERSION = 254; - {$EXTERNALSYM SSL_R_UNSUPPORTED_STATUS_TYPE} - SSL_R_UNSUPPORTED_STATUS_TYPE = 329; - {$EXTERNALSYM SSL_R_UNKNOWN_STATE} - SSL_R_UNKNOWN_STATE = 255; - {$EXTERNALSYM SSL_R_UNSAFE_LEGACY_RENEGOTIATION_DISABLED} - SSL_R_UNSAFE_LEGACY_RENEGOTIATION_DISABLED = 323; - {$EXTERNALSYM SSL_R_UNSUPPORTED_CIPHER} - SSL_R_UNSUPPORTED_CIPHER = 256; - {$EXTERNALSYM SSL_R_UNSUPPORTED_COMPRESSION_ALGORITHM} - SSL_R_UNSUPPORTED_COMPRESSION_ALGORITHM = 257; - {$EXTERNALSYM SSL_R_UNSUPPORTED_DIGEST_TYPE} - SSL_R_UNSUPPORTED_DIGEST_TYPE = 326; - {$EXTERNALSYM SSL_R_UNSUPPORTED_PROTOCOL} - SSL_R_UNSUPPORTED_PROTOCOL = 258; - {$EXTERNALSYM SSL_R_UNSUPPORTED_SSL_VERSION} - SSL_R_UNSUPPORTED_SSL_VERSION = 259; - {$EXTERNALSYM SSL_R_USE_SRTP_NOT_NEGOTIATED} - SSL_R_USE_SRTP_NOT_NEGOTIATED = 369; - {$EXTERNALSYM SSL_R_WRITE_BIO_NOT_SET} - SSL_R_WRITE_BIO_NOT_SET = 260; - {$EXTERNALSYM SSL_R_WRONG_CIPHER_RETURNED} - SSL_R_WRONG_CIPHER_RETURNED = 261; - {$EXTERNALSYM SSL_R_WRONG_MESSAGE_TYPE} - SSL_R_WRONG_MESSAGE_TYPE = 262; - {$EXTERNALSYM SSL_R_WRONG_NUMBER_OF_KEY_BITS} - SSL_R_WRONG_NUMBER_OF_KEY_BITS = 263; - {$EXTERNALSYM SSL_R_WRONG_SIGNATURE_LENGTH} - SSL_R_WRONG_SIGNATURE_LENGTH = 264; - {$EXTERNALSYM SSL_R_WRONG_SIGNATURE_SIZE} - SSL_R_WRONG_SIGNATURE_SIZE = 265; - {$EXTERNALSYM SSL_R_WRONG_SIGNATURE_TYPE} - SSL_R_WRONG_SIGNATURE_TYPE = 370; - {$EXTERNALSYM SSL_R_WRONG_SSL_VERSION} - SSL_R_WRONG_SSL_VERSION = 266; - {$EXTERNALSYM SSL_R_WRONG_VERSION_NUMBER} - SSL_R_WRONG_VERSION_NUMBER = 267; - {$EXTERNALSYM SSL_R_X509_LIB} - SSL_R_X509_LIB = 268; - {$EXTERNALSYM SSL_R_X509_VERIFICATION_SETUP_PROBLEMS} - SSL_R_X509_VERIFICATION_SETUP_PROBLEMS = 269; - {$EXTERNALSYM SSL_SENT_SHUTDOWN} - SSL_SENT_SHUTDOWN = 1; - {$EXTERNALSYM SSL_SESSION_ASN1_VERSION} - SSL_SESSION_ASN1_VERSION = $0001; - {$EXTERNALSYM SSL_SESSION_CACHE_MAX_SIZE_DEFAULT} - SSL_SESSION_CACHE_MAX_SIZE_DEFAULT = 1024*20; - {$EXTERNALSYM SSL_SESS_CACHE_CLIENT} - SSL_SESS_CACHE_CLIENT = $0001; - {$EXTERNALSYM SSL_SESS_CACHE_SERVER} - SSL_SESS_CACHE_SERVER = $0002; - {$EXTERNALSYM SSL_SESS_CACHE_BOTH} - SSL_SESS_CACHE_BOTH = SSL_SESS_CACHE_CLIENT or SSL_SESS_CACHE_SERVER; - {$EXTERNALSYM SSL_SESS_CACHE_NO_AUTO_CLEAR} - SSL_SESS_CACHE_NO_AUTO_CLEAR = $0080; - {$EXTERNALSYM SSL_SESS_CACHE_NO_INTERNAL_LOOKUP} - SSL_SESS_CACHE_NO_INTERNAL_LOOKUP = $0100; - {$EXTERNALSYM SSL_SESS_CACHE_OFF} - SSL_SESS_CACHE_OFF = $0000; - {$ifndef OPENSSL_NO_NEXTPROTONEG} - {$EXTERNALSYM OPENSSL_NPN_UNSUPPORTED} - OPENSSL_NPN_UNSUPPORTED = 0; - {$EXTERNALSYM OPENSSL_NPN_NEGOTIATED} - OPENSSL_NPN_NEGOTIATED = 1; - {$EXTERNALSYM OPENSSL_NPN_NO_OVERLAP} - OPENSSL_NPN_NO_OVERLAP = 2; - {$endif} -{$ifndef OPENSSL_NO_PSK} -//* the maximum length of the buffer given to callbacks containing the -// * resulting identity/psk */ - {$EXTERNALSYM PSK_MAX_IDENTITY_LEN} - PSK_MAX_IDENTITY_LEN = 128; - {$EXTERNALSYM PSK_MAX_PSK_LEN} - PSK_MAX_PSK_LEN = 256; -{$endif} - - - - {$EXTERNALSYM SSL_TXT_LOW} - SSL_TXT_LOW = 'LOW'; {Do not localize} - {$EXTERNALSYM SSL_TXT_MEDIUM} - SSL_TXT_MEDIUM = 'MEDIUM'; {Do not localize} - {$EXTERNALSYM SSL_TXT_HIGH} - SSL_TXT_HIGH = 'HIGH'; {Do not localize} - {$EXTERNALSYM SSL_TXT_FIPS} - SSL_TXT_FIPS = 'FIPS'; {Do not localize} - {$EXTERNALSYM SSL_TXT_kFZA} - SSL_TXT_kFZA = 'kFZA'; {Do not localize} - {$EXTERNALSYM SSL_TXT_aFZA} - SSL_TXT_aFZA = 'aFZA'; {Do not localize} - {$EXTERNALSYM SSL_TXT_eFZA} - SSL_TXT_eFZA = 'eFZA'; {Do not localize} - {$EXTERNALSYM SSL_TXT_FZA} - SSL_TXT_FZA = 'FZA'; {Do not localize} - {$EXTERNALSYM SSL_TXT_aNULL} - SSL_TXT_aNULL = 'aNULL'; {Do not localize} - {$EXTERNALSYM SSL_TXT_eNULL} - SSL_TXT_eNULL = 'eNULL'; {Do not localize} - {$EXTERNALSYM SSL_TXT_NULL} - SSL_TXT_NULL = 'NULL'; {Do not localize} - {$EXTERNALSYM SSL_TXT_kKRB5} - SSL_TXT_kKRB5 = 'kKRB5';{Do not localize} - {$EXTERNALSYM SSL_TXT_aKRB5} - SSL_TXT_aKRB5 ='aKRB5';{Do not localize} - {$EXTERNALSYM SSL_TXT_KRB5} - SSL_TXT_KRB5 = 'KRB5';{Do not localize} - {$EXTERNALSYM SSL_TXT_kRSA} - SSL_TXT_kRSA = 'kRSA'; {Do not localize} - {$EXTERNALSYM SSL_TXT_kDHr} - SSL_TXT_kDHr = 'kDHr'; {Do not localize} - {$EXTERNALSYM SSL_TXT_kDHd} - SSL_TXT_kDHd = 'kDHd'; {Do not localize} - {$EXTERNALSYM SSL_TXT_kEDH} - SSL_TXT_kEDH = 'kEDH'; {Do not localize} - {$EXTERNALSYM SSL_TXT_aRSA} - SSL_TXT_aRSA = 'aRSA'; {Do not localize} - {$EXTERNALSYM SSL_TXT_aDSS} - SSL_TXT_aDSS = 'aDSS'; {Do not localize} - {$EXTERNALSYM SSL_TXT_aDH} - SSL_TXT_aDH = 'aDH'; {Do not localize} - {$EXTERNALSYM SSL_TXT_RSA} - SSL_TXT_RSA = 'RSA'; {Do not localize} - {$EXTERNALSYM SSL_TXT_DH} - SSL_TXT_DH = 'DH'; {Do not localize} - {$EXTERNALSYM SSL_TXT_EDH} - SSL_TXT_EDH = 'EDH'; {Do not localize} - {$EXTERNALSYM SSL_TXT_ADH_C} - SSL_TXT_ADH_C = 'ADH'; {Do not localize} - {$EXTERNALSYM SSL_TXT_aDH_S} - SSL_TXT_aDH_S = 'aDH'; {Do not localize} - {$EXTERNALSYM SSL_TXT_DSS} - SSL_TXT_DSS = 'DSS'; {Do not localize} - {$EXTERNALSYM SSL_TXT_DES} - SSL_TXT_DES = 'DES'; {Do not localize} - {$EXTERNALSYM SSL_TXT_3DES} - SSL_TXT_3DES = '3DES'; {Do not localize} - {$EXTERNALSYM SSL_TXT_RC4} - SSL_TXT_RC4 = 'RC4'; {Do not localize} - {$EXTERNALSYM SSL_TXT_RC2} - SSL_TXT_RC2 = 'RC2'; {Do not localize} - {$EXTERNALSYM SSL_TXT_IDEA} - SSL_TXT_IDEA = 'IDEA'; {Do not localize} - {$EXTERNALSYM SSL_TXT_SEED} - SSL_TXT_SEED = 'SEED'; {Do not localize} - {$EXTERNALSYM SSL_TXT_AES} - SSL_TXT_AES = 'AES'; {Do not localize} - {$EXTERNALSYM SSL_TXT_CAMELLIA} - SSL_TXT_CAMELLIA = 'CAMELLIA'; {Do not localize} - {$EXTERNALSYM SSL_TXT_MD5} - SSL_TXT_MD5 = 'MD5'; {Do not localize} - {$EXTERNALSYM SSL_TXT_SHA1} - SSL_TXT_SHA1 = 'SHA1'; {Do not localize} - {$EXTERNALSYM SSL_TXT_SHA} - SSL_TXT_SHA = 'SHA'; {Do not localize} - {$EXTERNALSYM SSL_TXT_EXP} - SSL_TXT_EXP = 'EXP'; {Do not localize} - {$EXTERNALSYM SSL_TXT_EXPORT} - SSL_TXT_EXPORT = 'EXPORT'; {Do not localize} - {$EXTERNALSYM SSL_TXT_EXP40} - SSL_TXT_EXP40 = 'EXPORT40'; {Do not localize} - {$EXTERNALSYM SSL_TXT_EXP56} - SSL_TXT_EXP56 = 'EXPORT56'; {Do not localize} - {$EXTERNALSYM SSL_TXT_SSLV2} - SSL_TXT_SSLV2 = 'SSLv2'; {Do not localize} - {$EXTERNALSYM SSL_TXT_SSLV3} - SSL_TXT_SSLV3 = 'SSLv3'; {Do not localize} - {$EXTERNALSYM SSL_TXT_TLSV1} - SSL_TXT_TLSV1 = 'TLSv1'; {Do not localize} - {$EXTERNALSYM SSL_TXT_ALL} - SSL_TXT_ALL = 'ALL'; {Do not localize} - {$EXTERNALSYM SSL_TXT_ECC} - SSL_TXT_ECC = 'ECCdraft'; //* ECC ciphersuites are not yet official */ - {$EXTERNALSYM SSL_TXT_DES_192_EDE3_CBC_WITH_MD5} - SSL_TXT_DES_192_EDE3_CBC_WITH_MD5 = SSL2_TXT_DES_192_EDE3_CBC_WITH_MD5; - {$EXTERNALSYM SSL_TXT_DES_192_EDE3_CBC_WITH_SHA} - SSL_TXT_DES_192_EDE3_CBC_WITH_SHA = SSL2_TXT_DES_192_EDE3_CBC_WITH_SHA; - {$EXTERNALSYM SSL_TXT_DES_64_CBC_WITH_MD5} - SSL_TXT_DES_64_CBC_WITH_MD5 = SSL2_TXT_DES_64_CBC_WITH_MD5; - {$EXTERNALSYM SSL_TXT_DES_64_CBC_WITH_SHA} - SSL_TXT_DES_64_CBC_WITH_SHA = SSL2_TXT_DES_64_CBC_WITH_SHA; - {$EXTERNALSYM SSL_TXT_IDEA_128_CBC_WITH_MD5} - SSL_TXT_IDEA_128_CBC_WITH_MD5 = SSL2_TXT_IDEA_128_CBC_WITH_MD5; - {$EXTERNALSYM SSL_TXT_NULL_WITH_MD5} - SSL_TXT_NULL_WITH_MD5 = SSL2_TXT_NULL_WITH_MD5; - {$EXTERNALSYM SSL_TXT_RC2_128_CBC_EXPORT40_WITH_MD5} - SSL_TXT_RC2_128_CBC_EXPORT40_WITH_MD5 = SSL2_TXT_RC2_128_CBC_EXPORT40_WITH_MD5; - {$EXTERNALSYM SSL_TXT_RC2_128_CBC_WITH_MD5} - SSL_TXT_RC2_128_CBC_WITH_MD5 = SSL2_TXT_RC2_128_CBC_WITH_MD5; - {$EXTERNALSYM SSL_TXT_RC4_128_EXPORT40_WITH_MD5} - SSL_TXT_RC4_128_EXPORT40_WITH_MD5 = SSL2_TXT_RC4_128_EXPORT40_WITH_MD5; - {$EXTERNALSYM SSL_TXT_RC4_128_WITH_MD5} - SSL_TXT_RC4_128_WITH_MD5 = SSL2_TXT_RC4_128_WITH_MD5; - {$EXTERNALSYM SSL_VERIFY_CLIENT_ONCE} - SSL_VERIFY_CLIENT_ONCE = $04; - {$EXTERNALSYM SSL_VERIFY_FAIL_IF_NO_PEER_CERT} - SSL_VERIFY_FAIL_IF_NO_PEER_CERT = $02; - {$EXTERNALSYM SSL_VERIFY_NONE} - SSL_VERIFY_NONE = $00; - {$EXTERNALSYM SSL_VERIFY_PEER} - SSL_VERIFY_PEER = $01; - - {$EXTERNALSYM SSL_MAC_FLAG_READ_MAC_STREAM} - SSL_MAC_FLAG_READ_MAC_STREAM = 1; - {$EXTERNALSYM SSL_MAC_FLAG_WRITE_MAC_STREAM} - SSL_MAC_FLAG_WRITE_MAC_STREAM = 2; - {$EXTERNALSYM TLS1_ALLOW_EXPERIMENTAL_CIPHERSUITES} - TLS1_ALLOW_EXPERIMENTAL_CIPHERSUITES = 0; - {$EXTERNALSYM TLS1_2_VERSION} - TLS1_2_VERSION = $0303; - {$EXTERNALSYM TLS1_2_VERSION_MAJOR} - TLS1_2_VERSION_MAJOR = $03; - {$EXTERNALSYM TLS1_2_VERSION_MINOR} - TLS1_2_VERSION_MINOR = $03; - {$EXTERNALSYM TLS1_1_VERSION} - TLS1_1_VERSION = $0302; - {$EXTERNALSYM TLS1_1_VERSION_MAJOR} - TLS1_1_VERSION_MAJOR = $03; - {$EXTERNALSYM TLS1_1_VERSION_MINOR} - TLS1_1_VERSION_MINOR = $02; - {$EXTERNALSYM TLS1_VERSION} - TLS1_VERSION = $0301; - {$EXTERNALSYM TLS1_VERSION_MAJOR} - TLS1_VERSION_MAJOR = $03; - {$EXTERNALSYM TLS1_VERSION_MINOR} - TLS1_VERSION_MINOR = $01; - - {$IFNDEF OPENSSL_NO_HEARTBEATS} - {$EXTERNALSYM SSL_TLSEXT_HB_ENABLED} - SSL_TLSEXT_HB_ENABLED = $01; - {$EXTERNALSYM SSL_TLSEXT_HB_DONT_SEND_REQUESTS} - SSL_TLSEXT_HB_DONT_SEND_REQUESTS = $02; - {$EXTERNALSYM SSL_TLSEXT_HB_DONT_RECV_REQUESTS} - SSL_TLSEXT_HB_DONT_RECV_REQUESTS = $04; - - {$ENDIF} - - //* PSK ciphersuites from 4279 */ - {$EXTERNALSYM TLS1_CK_PSK_WITH_RC4_128_SHA} - TLS1_CK_PSK_WITH_RC4_128_SHA = $0300008A; - {$EXTERNALSYM TLS1_CK_PSK_WITH_3DES_EDE_CBC_SHA} - TLS1_CK_PSK_WITH_3DES_EDE_CBC_SHA = $0300008B; - {$EXTERNALSYM TLS1_CK_PSK_WITH_AES_128_CBC_SHA} - TLS1_CK_PSK_WITH_AES_128_CBC_SHA = $0300008C; - {$EXTERNALSYM TLS1_CK_PSK_WITH_AES_256_CBC_SHA} - TLS1_CK_PSK_WITH_AES_256_CBC_SHA = $0300008D; - - {$EXTERNALSYM TLS1_CK_RSA_EXPORT1024_WITH_RC4_56_MD5} - TLS1_CK_RSA_EXPORT1024_WITH_RC4_56_MD5 = $03000060; - {$EXTERNALSYM TLS1_CK_RSA_EXPORT1024_WITH_RC2_CBC_56_MD5} - TLS1_CK_RSA_EXPORT1024_WITH_RC2_CBC_56_MD5 = $03000061; - {$EXTERNALSYM TLS1_CK_RSA_EXPORT1024_WITH_DES_CBC_SHA} - TLS1_CK_RSA_EXPORT1024_WITH_DES_CBC_SHA = $03000062; - {$EXTERNALSYM TLS1_CK_DHE_DSS_EXPORT1024_WITH_DES_CBC_SHA} - TLS1_CK_DHE_DSS_EXPORT1024_WITH_DES_CBC_SHA = $03000063; - {$EXTERNALSYM TLS1_CK_RSA_EXPORT1024_WITH_RC4_56_SHA} - TLS1_CK_RSA_EXPORT1024_WITH_RC4_56_SHA = $03000064; - {$EXTERNALSYM TLS1_CK_DHE_DSS_EXPORT1024_WITH_RC4_56_SHA} - TLS1_CK_DHE_DSS_EXPORT1024_WITH_RC4_56_SHA = $03000065; - {$EXTERNALSYM TLS1_CK_DHE_DSS_WITH_RC4_128_SHA} - TLS1_CK_DHE_DSS_WITH_RC4_128_SHA = $03000066; -//* AES ciphersuites from RFC3268 */ - {$EXTERNALSYM TLS1_CK_RSA_WITH_AES_128_SHA} - TLS1_CK_RSA_WITH_AES_128_SHA = $0300002F; - {$EXTERNALSYM TLS1_CK_DH_DSS_WITH_AES_128_SHA} - TLS1_CK_DH_DSS_WITH_AES_128_SHA = $03000030; - {$EXTERNALSYM TLS1_CK_DH_RSA_WITH_AES_128_SHA} - TLS1_CK_DH_RSA_WITH_AES_128_SHA = $03000031; - {$EXTERNALSYM TLS1_CK_DHE_DSS_WITH_AES_128_SHA} - TLS1_CK_DHE_DSS_WITH_AES_128_SHA = $03000032; - {$EXTERNALSYM TLS1_CK_DHE_RSA_WITH_AES_128_SHA} - TLS1_CK_DHE_RSA_WITH_AES_128_SHA = $03000033; - {$EXTERNALSYM TLS1_CK_ADH_WITH_AES_128_SHA} - TLS1_CK_ADH_WITH_AES_128_SHA = $03000034; - {$EXTERNALSYM TLS1_CK_RSA_WITH_AES_256_SHA} - TLS1_CK_RSA_WITH_AES_256_SHA = $03000035; - {$EXTERNALSYM TLS1_CK_DH_DSS_WITH_AES_256_SHA} - TLS1_CK_DH_DSS_WITH_AES_256_SHA = $03000036; - {$EXTERNALSYM TLS1_CK_DH_RSA_WITH_AES_256_SHA} - TLS1_CK_DH_RSA_WITH_AES_256_SHA = $03000037; - {$EXTERNALSYM TLS1_CK_DHE_DSS_WITH_AES_256_SHA} - TLS1_CK_DHE_DSS_WITH_AES_256_SHA = $03000038; - {$EXTERNALSYM TLS1_CK_DHE_RSA_WITH_AES_256_SHA} - TLS1_CK_DHE_RSA_WITH_AES_256_SHA = $03000039; - {$EXTERNALSYM TLS1_CK_ADH_WITH_AES_256_SHA} - TLS1_CK_ADH_WITH_AES_256_SHA = $0300003A; -//* TLS v1.2 ciphersuites */ - {$EXTERNALSYM TLS1_CK_RSA_WITH_NULL_SHA256} - TLS1_CK_RSA_WITH_NULL_SHA256 = $0300003B; - {$EXTERNALSYM TLS1_CK_RSA_WITH_AES_128_SHA256} - TLS1_CK_RSA_WITH_AES_128_SHA256 = $0300003C; - {$EXTERNALSYM TLS1_CK_RSA_WITH_AES_256_SHA256} - TLS1_CK_RSA_WITH_AES_256_SHA256 = $0300003D; - {$EXTERNALSYM TLS1_CK_DH_DSS_WITH_AES_128_SHA256} - TLS1_CK_DH_DSS_WITH_AES_128_SHA256 = $0300003E; - {$EXTERNALSYM TLS1_CK_DH_RSA_WITH_AES_128_SHA256} - TLS1_CK_DH_RSA_WITH_AES_128_SHA256 = $0300003F; - {$EXTERNALSYM TLS1_CK_DHE_DSS_WITH_AES_128_SHA256} - TLS1_CK_DHE_DSS_WITH_AES_128_SHA256 = $03000040; - -//* Camellia ciphersuites from RFC4132 */ - {$EXTERNALSYM TLS1_CK_RSA_WITH_CAMELLIA_128_CBC_SHA} - TLS1_CK_RSA_WITH_CAMELLIA_128_CBC_SHA = $03000041; - {$EXTERNALSYM TLS1_CK_DH_DSS_WITH_CAMELLIA_128_CBC_SHA} - TLS1_CK_DH_DSS_WITH_CAMELLIA_128_CBC_SHA = $03000042; - {$EXTERNALSYM TLS1_CK_DH_RSA_WITH_CAMELLIA_128_CBC_SHA} - TLS1_CK_DH_RSA_WITH_CAMELLIA_128_CBC_SHA = $03000043; - {$EXTERNALSYM TLS1_CK_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA} - TLS1_CK_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA = $03000044; - {$EXTERNALSYM TLS1_CK_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA} - TLS1_CK_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA = $03000045; - {$EXTERNALSYM TLS1_CK_ADH_WITH_CAMELLIA_128_CBC_SHA} - TLS1_CK_ADH_WITH_CAMELLIA_128_CBC_SHA = $03000046; - {$EXTERNALSYM TLS1_CK_RSA_WITH_CAMELLIA_256_CBC_SHA} - TLS1_CK_RSA_WITH_CAMELLIA_256_CBC_SHA = $03000084; - {$EXTERNALSYM TLS1_CK_DH_DSS_WITH_CAMELLIA_256_CBC_SHA} - TLS1_CK_DH_DSS_WITH_CAMELLIA_256_CBC_SHA = $03000085; - {$EXTERNALSYM TLS1_CK_DH_RSA_WITH_CAMELLIA_256_CBC_SHA} - TLS1_CK_DH_RSA_WITH_CAMELLIA_256_CBC_SHA = $03000086; - {$EXTERNALSYM TLS1_CK_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA} - TLS1_CK_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA = $03000087; - {$EXTERNALSYM TLS1_CK_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA} - TLS1_CK_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA = $03000088; - {$EXTERNALSYM TLS1_CK_ADH_WITH_CAMELLIA_256_CBC_SHA} - TLS1_CK_ADH_WITH_CAMELLIA_256_CBC_SHA = $03000089; - -//* TLS v1.2 ciphersuites */ - {$EXTERNALSYM TLS1_CK_DHE_RSA_WITH_AES_128_SHA256} - TLS1_CK_DHE_RSA_WITH_AES_128_SHA256 = $03000067; - {$EXTERNALSYM TLS1_CK_DH_DSS_WITH_AES_256_SHA256} - TLS1_CK_DH_DSS_WITH_AES_256_SHA256 = $03000068; - {$EXTERNALSYM TLS1_CK_DH_RSA_WITH_AES_256_SHA256} - TLS1_CK_DH_RSA_WITH_AES_256_SHA256 = $03000069; - {$EXTERNALSYM TLS1_CK_DHE_DSS_WITH_AES_256_SHA256} - TLS1_CK_DHE_DSS_WITH_AES_256_SHA256 = $0300006A; - {$EXTERNALSYM TLS1_CK_DHE_RSA_WITH_AES_256_SHA256} - TLS1_CK_DHE_RSA_WITH_AES_256_SHA256 = $0300006B; - {$EXTERNALSYM TLS1_CK_ADH_WITH_AES_128_SHA256} - TLS1_CK_ADH_WITH_AES_128_SHA256 = $0300006C; - {$EXTERNALSYM TLS1_CK_ADH_WITH_AES_256_SHA256} - TLS1_CK_ADH_WITH_AES_256_SHA256 = $0300006D; - //* SEED ciphersuites from RFC4162 */ - {$EXTERNALSYM TLS1_CK_RSA_WITH_SEED_SHA} - TLS1_CK_RSA_WITH_SEED_SHA = $03000096; - {$EXTERNALSYM TLS1_CK_DH_DSS_WITH_SEED_SHA} - TLS1_CK_DH_DSS_WITH_SEED_SHA = $03000097; - {$EXTERNALSYM TLS1_CK_DH_RSA_WITH_SEED_SHA} - TLS1_CK_DH_RSA_WITH_SEED_SHA = $03000098; - {$EXTERNALSYM TLS1_CK_DHE_DSS_WITH_SEED_SHA} - TLS1_CK_DHE_DSS_WITH_SEED_SHA = $03000099; - {$EXTERNALSYM TLS1_CK_DHE_RSA_WITH_SEED_SHA} - TLS1_CK_DHE_RSA_WITH_SEED_SHA = $0300009A; - {$EXTERNALSYM TLS1_CK_ADH_WITH_SEED_SHA} - TLS1_CK_ADH_WITH_SEED_SHA = $0300009B; - -//* TLS v1.2 GCM ciphersuites from RFC5288 */ - {$EXTERNALSYM TLS1_CK_RSA_WITH_AES_128_GCM_SHA256} - TLS1_CK_RSA_WITH_AES_128_GCM_SHA256 = $0300009C; - {$EXTERNALSYM TLS1_CK_RSA_WITH_AES_256_GCM_SHA384} - TLS1_CK_RSA_WITH_AES_256_GCM_SHA384 = $0300009D; - {$EXTERNALSYM TLS1_CK_DHE_RSA_WITH_AES_128_GCM_SHA256} - TLS1_CK_DHE_RSA_WITH_AES_128_GCM_SHA256 = $0300009E; - {$EXTERNALSYM TLS1_CK_DHE_RSA_WITH_AES_256_GCM_SHA384} - TLS1_CK_DHE_RSA_WITH_AES_256_GCM_SHA384 = $0300009F; - {$EXTERNALSYM TLS1_CK_DH_RSA_WITH_AES_128_GCM_SHA256} - TLS1_CK_DH_RSA_WITH_AES_128_GCM_SHA256 = $030000A0; - {$EXTERNALSYM TLS1_CK_DH_RSA_WITH_AES_256_GCM_SHA384} - TLS1_CK_DH_RSA_WITH_AES_256_GCM_SHA384 = $030000A1; - {$EXTERNALSYM TLS1_CK_DHE_DSS_WITH_AES_128_GCM_SHA256} - TLS1_CK_DHE_DSS_WITH_AES_128_GCM_SHA256 = $030000A2; - {$EXTERNALSYM TLS1_CK_DHE_DSS_WITH_AES_256_GCM_SHA384} - TLS1_CK_DHE_DSS_WITH_AES_256_GCM_SHA384 = $030000A3; - {$EXTERNALSYM TLS1_CK_DH_DSS_WITH_AES_128_GCM_SHA256} - TLS1_CK_DH_DSS_WITH_AES_128_GCM_SHA256 = $030000A4; - {$EXTERNALSYM TLS1_CK_DH_DSS_WITH_AES_256_GCM_SHA384} - TLS1_CK_DH_DSS_WITH_AES_256_GCM_SHA384 = $030000A5; - {$EXTERNALSYM TLS1_CK_ADH_WITH_AES_128_GCM_SHA256} - TLS1_CK_ADH_WITH_AES_128_GCM_SHA256 = $030000A6; - {$EXTERNALSYM TLS1_CK_ADH_WITH_AES_256_GCM_SHA384} - TLS1_CK_ADH_WITH_AES_256_GCM_SHA384 = $030000A7; -//* ECC ciphersuites from draft-ietf-tls-ecc-12.txt with changes soon to be in draft 13 */ - {$EXTERNALSYM TLS1_CK_ECDH_ECDSA_WITH_NULL_SHA} - TLS1_CK_ECDH_ECDSA_WITH_NULL_SHA = $0300C001; - {$EXTERNALSYM TLS1_CK_ECDH_ECDSA_WITH_RC4_128_SHA} - TLS1_CK_ECDH_ECDSA_WITH_RC4_128_SHA = $0300C002; - {$EXTERNALSYM TLS1_CK_ECDH_ECDSA_WITH_DES_192_CBC3_SHA} - TLS1_CK_ECDH_ECDSA_WITH_DES_192_CBC3_SHA = $0300C003; - {$EXTERNALSYM TLS1_CK_ECDH_ECDSA_WITH_AES_128_CBC_SHA} - TLS1_CK_ECDH_ECDSA_WITH_AES_128_CBC_SHA = $0300C004; - {$EXTERNALSYM TLS1_CK_ECDH_ECDSA_WITH_AES_256_CBC_SHA} - TLS1_CK_ECDH_ECDSA_WITH_AES_256_CBC_SHA = $0300C005; - {$EXTERNALSYM TLS1_CK_ECDHE_ECDSA_WITH_NULL_SHA} - TLS1_CK_ECDHE_ECDSA_WITH_NULL_SHA = $0300C006; - {$EXTERNALSYM TLS1_CK_ECDHE_ECDSA_WITH_RC4_128_SHA} - TLS1_CK_ECDHE_ECDSA_WITH_RC4_128_SHA = $0300C007; - {$EXTERNALSYM TLS1_CK_ECDHE_ECDSA_WITH_DES_192_CBC3_SHA} - TLS1_CK_ECDHE_ECDSA_WITH_DES_192_CBC3_SHA = $0300C008; - {$EXTERNALSYM TLS1_CK_ECDHE_ECDSA_WITH_AES_128_CBC_SHA} - TLS1_CK_ECDHE_ECDSA_WITH_AES_128_CBC_SHA = $0300C009; - {$EXTERNALSYM TLS1_CK_ECDHE_ECDSA_WITH_AES_256_CBC_SHA} - TLS1_CK_ECDHE_ECDSA_WITH_AES_256_CBC_SHA = $0300C00A; - {$EXTERNALSYM TLS1_CK_ECDH_RSA_WITH_NULL_SHA} - TLS1_CK_ECDH_RSA_WITH_NULL_SHA = $0300C00B; - {$EXTERNALSYM TLS1_CK_ECDH_RSA_WITH_RC4_128_SHA} - TLS1_CK_ECDH_RSA_WITH_RC4_128_SHA = $0300C00C; - {$EXTERNALSYM TLS1_CK_ECDH_RSA_WITH_DES_192_CBC3_SHA} - TLS1_CK_ECDH_RSA_WITH_DES_192_CBC3_SHA = $0300C00D; - {$EXTERNALSYM TLS1_CK_ECDH_RSA_WITH_AES_128_CBC_SHA} - TLS1_CK_ECDH_RSA_WITH_AES_128_CBC_SHA = $0300C00E; - {$EXTERNALSYM TLS1_CK_ECDH_RSA_WITH_AES_256_CBC_SHA} - TLS1_CK_ECDH_RSA_WITH_AES_256_CBC_SHA = $0300C00F; - {$EXTERNALSYM TLS1_CK_ECDHE_RSA_WITH_NULL_SHA} - TLS1_CK_ECDHE_RSA_WITH_NULL_SHA = $0300C010; - {$EXTERNALSYM TLS1_CK_ECDHE_RSA_WITH_RC4_128_SHA} - TLS1_CK_ECDHE_RSA_WITH_RC4_128_SHA = $0300C011; - {$EXTERNALSYM TLS1_CK_ECDHE_RSA_WITH_DES_192_CBC3_SHA} - TLS1_CK_ECDHE_RSA_WITH_DES_192_CBC3_SHA = $0300C012; - {$EXTERNALSYM TLS1_CK_ECDHE_RSA_WITH_AES_128_CBC_SHA} - TLS1_CK_ECDHE_RSA_WITH_AES_128_CBC_SHA = $0300C013; - {$EXTERNALSYM TLS1_CK_ECDHE_RSA_WITH_AES_256_CBC_SHA} - TLS1_CK_ECDHE_RSA_WITH_AES_256_CBC_SHA = $0300C014; - {$EXTERNALSYM TLS1_CK_ECDH_anon_WITH_NULL_SHA} - TLS1_CK_ECDH_anon_WITH_NULL_SHA = $0300C015; - {$EXTERNALSYM TLS1_CK_ECDH_anon_WITH_RC4_128_SHA} - TLS1_CK_ECDH_anon_WITH_RC4_128_SHA = $0300C016; - {$EXTERNALSYM TLS1_CK_ECDH_anon_WITH_DES_192_CBC3_SHA} - TLS1_CK_ECDH_anon_WITH_DES_192_CBC3_SHA = $0300C017; - {$EXTERNALSYM TLS1_CK_ECDH_anon_WITH_AES_128_CBC_SHA} - TLS1_CK_ECDH_anon_WITH_AES_128_CBC_SHA = $0300C018; - {$EXTERNALSYM TLS1_CK_ECDH_anon_WITH_AES_256_CBC_SHA} - TLS1_CK_ECDH_anon_WITH_AES_256_CBC_SHA = $0300C019; -//* SRP ciphersuites from RFC 5054 */ - {$EXTERNALSYM TLS1_CK_SRP_SHA_WITH_3DES_EDE_CBC_SHA} - TLS1_CK_SRP_SHA_WITH_3DES_EDE_CBC_SHA = $0300C01A; - {$EXTERNALSYM TLS1_CK_SRP_SHA_RSA_WITH_3DES_EDE_CBC_SHA} - TLS1_CK_SRP_SHA_RSA_WITH_3DES_EDE_CBC_SHA = $0300C01B; - {$EXTERNALSYM TLS1_CK_SRP_SHA_DSS_WITH_3DES_EDE_CBC_SHA} - TLS1_CK_SRP_SHA_DSS_WITH_3DES_EDE_CBC_SHA = $0300C01C; - {$EXTERNALSYM TLS1_CK_SRP_SHA_WITH_AES_128_CBC_SHA} - TLS1_CK_SRP_SHA_WITH_AES_128_CBC_SHA = $0300C01D; - {$EXTERNALSYM TLS1_CK_SRP_SHA_RSA_WITH_AES_128_CBC_SHA} - TLS1_CK_SRP_SHA_RSA_WITH_AES_128_CBC_SHA = $0300C01E; - {$EXTERNALSYM TLS1_CK_SRP_SHA_DSS_WITH_AES_128_CBC_SHA} - TLS1_CK_SRP_SHA_DSS_WITH_AES_128_CBC_SHA = $0300C01F; - {$EXTERNALSYM TLS1_CK_SRP_SHA_WITH_AES_256_CBC_SHA} - TLS1_CK_SRP_SHA_WITH_AES_256_CBC_SHA = $0300C020; - {$EXTERNALSYM TLS1_CK_SRP_SHA_RSA_WITH_AES_256_CBC_SHA} - TLS1_CK_SRP_SHA_RSA_WITH_AES_256_CBC_SHA = $0300C021; - {$EXTERNALSYM TLS1_CK_SRP_SHA_DSS_WITH_AES_256_CBC_SHA} - TLS1_CK_SRP_SHA_DSS_WITH_AES_256_CBC_SHA = $0300C022; - -//* ECDH HMAC based ciphersuites from RFC5289 */ - - {$EXTERNALSYM TLS1_CK_ECDHE_ECDSA_WITH_AES_128_SHA256} - TLS1_CK_ECDHE_ECDSA_WITH_AES_128_SHA256 = $0300C023; - {$EXTERNALSYM TLS1_CK_ECDHE_ECDSA_WITH_AES_256_SHA384} - TLS1_CK_ECDHE_ECDSA_WITH_AES_256_SHA384 = $0300C024; - {$EXTERNALSYM TLS1_CK_ECDH_ECDSA_WITH_AES_128_SHA256} - TLS1_CK_ECDH_ECDSA_WITH_AES_128_SHA256 = $0300C025; - {$EXTERNALSYM TLS1_CK_ECDH_ECDSA_WITH_AES_256_SHA384} - TLS1_CK_ECDH_ECDSA_WITH_AES_256_SHA384 = $0300C026; - {$EXTERNALSYM TLS1_CK_ECDHE_RSA_WITH_AES_128_SHA256} - TLS1_CK_ECDHE_RSA_WITH_AES_128_SHA256 = $0300C027; - {$EXTERNALSYM TLS1_CK_ECDHE_RSA_WITH_AES_256_SHA384} - TLS1_CK_ECDHE_RSA_WITH_AES_256_SHA384 = $0300C028; - {$EXTERNALSYM TLS1_CK_ECDH_RSA_WITH_AES_128_SHA256} - TLS1_CK_ECDH_RSA_WITH_AES_128_SHA256 = $0300C029; - {$EXTERNALSYM TLS1_CK_ECDH_RSA_WITH_AES_256_SHA384} - TLS1_CK_ECDH_RSA_WITH_AES_256_SHA384 = $0300C02A; - -//* ECDH GCM based ciphersuites from RFC5289 */ - {$EXTERNALSYM TLS1_CK_ECDHE_ECDSA_WITH_AES_128_GCM_SHA256} - TLS1_CK_ECDHE_ECDSA_WITH_AES_128_GCM_SHA256 = $0300C02B; - {$EXTERNALSYM TLS1_CK_ECDHE_ECDSA_WITH_AES_256_GCM_SHA384} - TLS1_CK_ECDHE_ECDSA_WITH_AES_256_GCM_SHA384 = $0300C02C; - {$EXTERNALSYM TLS1_CK_ECDH_ECDSA_WITH_AES_128_GCM_SHA256} - TLS1_CK_ECDH_ECDSA_WITH_AES_128_GCM_SHA256 = $0300C02D; - {$EXTERNALSYM TLS1_CK_ECDH_ECDSA_WITH_AES_256_GCM_SHA384} - TLS1_CK_ECDH_ECDSA_WITH_AES_256_GCM_SHA384 = $0300C02E; - {$EXTERNALSYM TLS1_CK_ECDHE_RSA_WITH_AES_128_GCM_SHA256} - TLS1_CK_ECDHE_RSA_WITH_AES_128_GCM_SHA256 = $0300C02F; - {$EXTERNALSYM TLS1_CK_ECDHE_RSA_WITH_AES_256_GCM_SHA384} - TLS1_CK_ECDHE_RSA_WITH_AES_256_GCM_SHA384 = $0300C030; - {$EXTERNALSYM TLS1_CK_ECDH_RSA_WITH_AES_128_GCM_SHA256} - TLS1_CK_ECDH_RSA_WITH_AES_128_GCM_SHA256 = $0300C031; - {$EXTERNALSYM TLS1_CK_ECDH_RSA_WITH_AES_256_GCM_SHA384} - TLS1_CK_ECDH_RSA_WITH_AES_256_GCM_SHA384 = $0300C032; - - - {$EXTERNALSYM TLS1_FINISH_MAC_LENGTH} - TLS1_FINISH_MAC_LENGTH = 12; - {$EXTERNALSYM TLS1_TXT_RSA_EXPORT1024_WITH_RC4_56_MD5} - TLS1_TXT_RSA_EXPORT1024_WITH_RC4_56_MD5 = 'EXP1024-RC4-MD5'; - {$EXTERNALSYM TLS1_TXT_RSA_EXPORT1024_WITH_RC2_CBC_56_MD5} - TLS1_TXT_RSA_EXPORT1024_WITH_RC2_CBC_56_MD5 = 'EXP1024-RC2-CBC-MD5'; - {$EXTERNALSYM TLS1_TXT_RSA_EXPORT1024_WITH_DES_CBC_SHA} - TLS1_TXT_RSA_EXPORT1024_WITH_DES_CBC_SHA = 'EXP1024-DES-CBC-SHA'; - {$EXTERNALSYM TLS1_TXT_DHE_DSS_EXPORT1024_WITH_DES_CBC_SHA} - TLS1_TXT_DHE_DSS_EXPORT1024_WITH_DES_CBC_SHA = 'EXP1024-DHE-DSS-DES-CBC-SHA'; - {$EXTERNALSYM TLS1_TXT_RSA_EXPORT1024_WITH_RC4_56_SHA} - TLS1_TXT_RSA_EXPORT1024_WITH_RC4_56_SHA = 'EXP1024-RC4-SHA'; - {$EXTERNALSYM TLS1_TXT_DHE_DSS_EXPORT1024_WITH_RC4_56_SHA} - TLS1_TXT_DHE_DSS_EXPORT1024_WITH_RC4_56_SHA = 'EXP1024-DHE-DSS-RC4-SHA'; - {$EXTERNALSYM TLS1_TXT_DHE_DSS_WITH_RC4_128_SHA} - TLS1_TXT_DHE_DSS_WITH_RC4_128_SHA = 'DHE-DSS-RC4-SHA'; -//* AES ciphersuites from RFC3268 */ - {$EXTERNALSYM TLS1_TXT_RSA_WITH_AES_128_SHA} - TLS1_TXT_RSA_WITH_AES_128_SHA = 'AES128-SHA'; - {$EXTERNALSYM TLS1_TXT_DH_DSS_WITH_AES_128_SHA} - TLS1_TXT_DH_DSS_WITH_AES_128_SHA ='DH-DSS-AES128-SHA'; - {$EXTERNALSYM TLS1_TXT_DH_RSA_WITH_AES_128_SHA} - TLS1_TXT_DH_RSA_WITH_AES_128_SHA = 'DH-RSA-AES128-SHA'; - {$EXTERNALSYM TLS1_TXT_DHE_DSS_WITH_AES_128_SHA} - TLS1_TXT_DHE_DSS_WITH_AES_128_SHA = 'DHE-DSS-AES128-SHA'; - {$EXTERNALSYM TLS1_TXT_DHE_RSA_WITH_AES_128_SHA} - TLS1_TXT_DHE_RSA_WITH_AES_128_SHA = 'DHE-RSA-AES128-SHA'; - {$EXTERNALSYM TLS1_TXT_ADH_WITH_AES_128_SHA} - TLS1_TXT_ADH_WITH_AES_128_SHA = 'ADH-AES128-SHA'; - {$EXTERNALSYM TLS1_TXT_RSA_WITH_AES_256_SHA} - TLS1_TXT_RSA_WITH_AES_256_SHA = 'AES256-SHA'; - {$EXTERNALSYM TLS1_TXT_DH_DSS_WITH_AES_256_SHA} - TLS1_TXT_DH_DSS_WITH_AES_256_SHA ='DH-DSS-AES256-SHA'; - {$EXTERNALSYM TLS1_TXT_DH_RSA_WITH_AES_256_SHA} - TLS1_TXT_DH_RSA_WITH_AES_256_SHA = 'DH-RSA-AES256-SHA'; - {$EXTERNALSYM TLS1_TXT_DHE_DSS_WITH_AES_256_SHA} - TLS1_TXT_DHE_DSS_WITH_AES_256_SHA = 'DHE-DSS-AES256-SHA'; - {$EXTERNALSYM TLS1_TXT_DHE_RSA_WITH_AES_256_SHA} - TLS1_TXT_DHE_RSA_WITH_AES_256_SHA ='DHE-RSA-AES256-SHA'; - {$EXTERNALSYM TLS1_TXT_ADH_WITH_AES_256_SHA} - TLS1_TXT_ADH_WITH_AES_256_SHA = 'ADH-AES256-SHA'; -//* ECC ciphersuites from draft-ietf-tls-ecc-01.txt (Mar 15, 2001) */ - {$EXTERNALSYM TLS1_TXT_ECDH_ECDSA_WITH_NULL_SHA} - TLS1_TXT_ECDH_ECDSA_WITH_NULL_SHA = 'ECDH-ECDSA-NULL-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDH_ECDSA_WITH_RC4_128_SHA} - TLS1_TXT_ECDH_ECDSA_WITH_RC4_128_SHA = 'ECDH-ECDSA-RC4-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDH_ECDSA_WITH_DES_192_CBC3_SHA} - TLS1_TXT_ECDH_ECDSA_WITH_DES_192_CBC3_SHA = 'ECDH-ECDSA-DES-CBC3-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDH_ECDSA_WITH_AES_128_CBC_SHA} - TLS1_TXT_ECDH_ECDSA_WITH_AES_128_CBC_SHA = 'ECDH-ECDSA-AES128-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDH_ECDSA_WITH_AES_256_CBC_SHA} - TLS1_TXT_ECDH_ECDSA_WITH_AES_256_CBC_SHA = 'ECDH-ECDSA-AES256-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDHE_ECDSA_WITH_NULL_SHA} - TLS1_TXT_ECDHE_ECDSA_WITH_NULL_SHA = 'ECDHE-ECDSA-NULL-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDHE_ECDSA_WITH_RC4_128_SHA} - TLS1_TXT_ECDHE_ECDSA_WITH_RC4_128_SHA = 'ECDHE-ECDSA-RC4-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDHE_ECDSA_WITH_DES_192_CBC3_SHA} - TLS1_TXT_ECDHE_ECDSA_WITH_DES_192_CBC3_SHA = 'ECDHE-ECDSA-DES-CBC3-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDHE_ECDSA_WITH_AES_128_CBC_SHA} - TLS1_TXT_ECDHE_ECDSA_WITH_AES_128_CBC_SHA = 'ECDHE-ECDSA-AES128-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDHE_ECDSA_WITH_AES_256_CBC_SHA} - TLS1_TXT_ECDHE_ECDSA_WITH_AES_256_CBC_SHA = 'ECDHE-ECDSA-AES256-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDH_RSA_WITH_NULL_SHA} - TLS1_TXT_ECDH_RSA_WITH_NULL_SHA = 'ECDH-RSA-NULL-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDH_RSA_WITH_RC4_128_SHA} - TLS1_TXT_ECDH_RSA_WITH_RC4_128_SHA = 'ECDH-RSA-RC4-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDH_RSA_WITH_DES_192_CBC3_SHA} - TLS1_TXT_ECDH_RSA_WITH_DES_192_CBC3_SHA = 'ECDH-RSA-DES-CBC3-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDH_RSA_WITH_AES_128_CBC_SHA} - TLS1_TXT_ECDH_RSA_WITH_AES_128_CBC_SHA = 'ECDH-RSA-AES128-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDH_RSA_WITH_AES_256_CBC_SHA} - TLS1_TXT_ECDH_RSA_WITH_AES_256_CBC_SHA = 'ECDH-RSA-AES256-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDHE_RSA_WITH_NULL_SHA} - TLS1_TXT_ECDHE_RSA_WITH_NULL_SHA = 'ECDHE-RSA-NULL-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDHE_RSA_WITH_RC4_128_SHA} - TLS1_TXT_ECDHE_RSA_WITH_RC4_128_SHA = 'ECDHE-RSA-RC4-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDHE_RSA_WITH_DES_192_CBC3_SHA} - TLS1_TXT_ECDHE_RSA_WITH_DES_192_CBC3_SHA = 'ECDHE-RSA-DES-CBC3-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDHE_RSA_WITH_AES_128_CBC_SHA} - TLS1_TXT_ECDHE_RSA_WITH_AES_128_CBC_SHA = 'ECDHE-RSA-AES128-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDHE_RSA_WITH_AES_256_CBC_SHA} - TLS1_TXT_ECDHE_RSA_WITH_AES_256_CBC_SHA = 'ECDHE-RSA-AES256-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDH_anon_WITH_NULL_SHA} - TLS1_TXT_ECDH_anon_WITH_NULL_SHA = 'AECDH-NULL-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDH_anon_WITH_RC4_128_SHA} - TLS1_TXT_ECDH_anon_WITH_RC4_128_SHA = 'AECDH-RC4-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDH_anon_WITH_DES_192_CBC3_SHA} - TLS1_TXT_ECDH_anon_WITH_DES_192_CBC3_SHA = 'AECDH-DES-CBC3-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDH_anon_WITH_AES_128_CBC_SHA} - TLS1_TXT_ECDH_anon_WITH_AES_128_CBC_SHA = 'AECDH-AES128-SHA'; - {$EXTERNALSYM TLS1_TXT_ECDH_anon_WITH_AES_256_CBC_SHA} - TLS1_TXT_ECDH_anon_WITH_AES_256_CBC_SHA = 'AECDH-AES256-SHA'; -//* Camellia ciphersuites from RFC4132 */ - {$EXTERNALSYM TLS1_TXT_RSA_WITH_CAMELLIA_128_CBC_SHA} - TLS1_TXT_RSA_WITH_CAMELLIA_128_CBC_SHA = 'CAMELLIA128-SHA'; - {$EXTERNALSYM TLS1_TXT_DH_DSS_WITH_CAMELLIA_128_CBC_SHA} - TLS1_TXT_DH_DSS_WITH_CAMELLIA_128_CBC_SHA = 'DH-DSS-CAMELLIA128-SHA'; - {$EXTERNALSYM TLS1_TXT_DH_RSA_WITH_CAMELLIA_128_CBC_SHA} - TLS1_TXT_DH_RSA_WITH_CAMELLIA_128_CBC_SHA = 'DH-RSA-CAMELLIA128-SHA'; - {$EXTERNALSYM TLS1_TXT_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA} - TLS1_TXT_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA = 'DHE-DSS-CAMELLIA128-SHA'; - {$EXTERNALSYM TLS1_TXT_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA} - TLS1_TXT_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA = 'DHE-RSA-CAMELLIA128-SHA'; - {$EXTERNALSYM TLS1_TXT_ADH_WITH_CAMELLIA_128_CBC_SHA} - TLS1_TXT_ADH_WITH_CAMELLIA_128_CBC_SHA = 'ADH-CAMELLIA128-SHA'; - {$EXTERNALSYM TLS1_TXT_RSA_WITH_CAMELLIA_256_CBC_SHA} - TLS1_TXT_RSA_WITH_CAMELLIA_256_CBC_SHA = 'CAMELLIA256-SHA'; - {$EXTERNALSYM TLS1_TXT_DH_DSS_WITH_CAMELLIA_256_CBC_SHA} - TLS1_TXT_DH_DSS_WITH_CAMELLIA_256_CBC_SHA = 'DH-DSS-CAMELLIA256-SHA'; - {$EXTERNALSYM TLS1_TXT_DH_RSA_WITH_CAMELLIA_256_CBC_SHA} - TLS1_TXT_DH_RSA_WITH_CAMELLIA_256_CBC_SHA = 'DH-RSA-CAMELLIA256-SHA'; - {$EXTERNALSYM TLS1_TXT_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA} - TLS1_TXT_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA = 'DHE-DSS-CAMELLIA256-SHA'; - {$EXTERNALSYM TLS1_TXT_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA} - TLS1_TXT_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA = 'DHE-RSA-CAMELLIA256-SHA'; - {$EXTERNALSYM TLS1_TXT_ADH_WITH_CAMELLIA_256_CBC_SHA} - TLS1_TXT_ADH_WITH_CAMELLIA_256_CBC_SHA = 'ADH-CAMELLIA256-SHA'; -//* SEED ciphersuites from RFC4162 */ - {$EXTERNALSYM TLS1_TXT_RSA_WITH_SEED_SHA} - TLS1_TXT_RSA_WITH_SEED_SHA = 'SEED-SHA'; - {$EXTERNALSYM TLS1_TXT_DH_DSS_WITH_SEED_SHA} - TLS1_TXT_DH_DSS_WITH_SEED_SHA = 'DH-DSS-SEED-SHA'; - {$EXTERNALSYM TLS1_TXT_DH_RSA_WITH_SEED_SHA} - TLS1_TXT_DH_RSA_WITH_SEED_SHA = 'DH-RSA-SEED-SHA'; - {$EXTERNALSYM TLS1_TXT_DHE_DSS_WITH_SEED_SHA} - TLS1_TXT_DHE_DSS_WITH_SEED_SHA = 'DHE-DSS-SEED-SHA'; - {$EXTERNALSYM TLS1_TXT_DHE_RSA_WITH_SEED_SHA} - TLS1_TXT_DHE_RSA_WITH_SEED_SHA = 'DHE-RSA-SEED-SHA'; - {$EXTERNALSYM TLS1_TXT_ADH_WITH_SEED_SHA} - TLS1_TXT_ADH_WITH_SEED_SHA = 'ADH-SEED-SHA'; -//* TLS v1.2 ciphersuites */ - {$EXTERNALSYM TLS1_TXT_RSA_WITH_NULL_SHA256} - TLS1_TXT_RSA_WITH_NULL_SHA256 = 'NULL-SHA256'; - {$EXTERNALSYM TLS1_TXT_RSA_WITH_AES_128_SHA256} - TLS1_TXT_RSA_WITH_AES_128_SHA256 = 'AES128-SHA256'; - {$EXTERNALSYM TLS1_TXT_RSA_WITH_AES_256_SHA256} - TLS1_TXT_RSA_WITH_AES_256_SHA256 = 'AES256-SHA256'; - {$EXTERNALSYM TLS1_TXT_DH_DSS_WITH_AES_128_SHA256} - TLS1_TXT_DH_DSS_WITH_AES_128_SHA256 = 'DH-DSS-AES128-SHA256'; - {$EXTERNALSYM TLS1_TXT_DH_RSA_WITH_AES_128_SHA256} - TLS1_TXT_DH_RSA_WITH_AES_128_SHA256 = 'DH-RSA-AES128-SHA256'; - {$EXTERNALSYM TLS1_TXT_DHE_DSS_WITH_AES_128_SHA256} - TLS1_TXT_DHE_DSS_WITH_AES_128_SHA256 = 'DHE-DSS-AES128-SHA256'; - {$EXTERNALSYM TLS1_TXT_DHE_RSA_WITH_AES_128_SHA256} - TLS1_TXT_DHE_RSA_WITH_AES_128_SHA256 = 'DHE-RSA-AES128-SHA256'; - {$EXTERNALSYM TLS1_TXT_DH_DSS_WITH_AES_256_SHA256} - TLS1_TXT_DH_DSS_WITH_AES_256_SHA256 = 'DH-DSS-AES256-SHA256'; - {$EXTERNALSYM TLS1_TXT_DH_RSA_WITH_AES_256_SHA256} - TLS1_TXT_DH_RSA_WITH_AES_256_SHA256 = 'DH-RSA-AES256-SHA256'; - {$EXTERNALSYM TLS1_TXT_DHE_DSS_WITH_AES_256_SHA256} - TLS1_TXT_DHE_DSS_WITH_AES_256_SHA256 = 'DHE-DSS-AES256-SHA256'; - {$EXTERNALSYM TLS1_TXT_DHE_RSA_WITH_AES_256_SHA256} - TLS1_TXT_DHE_RSA_WITH_AES_256_SHA256 = 'DHE-RSA-AES256-SHA256'; - {$EXTERNALSYM TLS1_TXT_ADH_WITH_AES_128_SHA256} - TLS1_TXT_ADH_WITH_AES_128_SHA256 = 'ADH-AES128-SHA256'; - {$EXTERNALSYM TLS1_TXT_ADH_WITH_AES_256_SHA256} - TLS1_TXT_ADH_WITH_AES_256_SHA256 = 'ADH-AES256-SHA256'; - -//* TLS v1.2 GCM ciphersuites from RFC5288 */ - {$EXTERNALSYM TLS1_TXT_RSA_WITH_AES_128_GCM_SHA256} - TLS1_TXT_RSA_WITH_AES_128_GCM_SHA256 = 'AES128-GCM-SHA256'; - {$EXTERNALSYM TLS1_TXT_RSA_WITH_AES_256_GCM_SHA384} - TLS1_TXT_RSA_WITH_AES_256_GCM_SHA384 = 'AES256-GCM-SHA384'; - {$EXTERNALSYM TLS1_TXT_DHE_RSA_WITH_AES_128_GCM_SHA256} -TLS1_TXT_DHE_RSA_WITH_AES_128_GCM_SHA256 = 'DHE-RSA-AES128-GCM-SHA256'; - {$EXTERNALSYM TLS1_TXT_DHE_RSA_WITH_AES_256_GCM_SHA384} -TLS1_TXT_DHE_RSA_WITH_AES_256_GCM_SHA384 = 'DHE-RSA-AES256-GCM-SHA384'; - {$EXTERNALSYM TLS1_TXT_DH_RSA_WITH_AES_128_GCM_SHA256} - TLS1_TXT_DH_RSA_WITH_AES_128_GCM_SHA256 = 'DH-RSA-AES128-GCM-SHA256'; - {$EXTERNALSYM TLS1_TXT_DH_RSA_WITH_AES_256_GCM_SHA384} - TLS1_TXT_DH_RSA_WITH_AES_256_GCM_SHA384 = 'DH-RSA-AES256-GCM-SHA384'; - {$EXTERNALSYM TLS1_TXT_DHE_DSS_WITH_AES_128_GCM_SHA256} - TLS1_TXT_DHE_DSS_WITH_AES_128_GCM_SHA256 = 'DHE-DSS-AES128-GCM-SHA256'; - {$EXTERNALSYM TLS1_TXT_DHE_DSS_WITH_AES_256_GCM_SHA384} - TLS1_TXT_DHE_DSS_WITH_AES_256_GCM_SHA384 = 'DHE-DSS-AES256-GCM-SHA384'; - {$EXTERNALSYM TLS1_TXT_DH_DSS_WITH_AES_128_GCM_SHA256} - TLS1_TXT_DH_DSS_WITH_AES_128_GCM_SHA256 = 'DH-DSS-AES128-GCM-SHA256'; - {$EXTERNALSYM TLS1_TXT_DH_DSS_WITH_AES_256_GCM_SHA384} - TLS1_TXT_DH_DSS_WITH_AES_256_GCM_SHA384 = 'DH-DSS-AES256-GCM-SHA384'; - {$EXTERNALSYM TLS1_TXT_ADH_WITH_AES_128_GCM_SHA256} - TLS1_TXT_ADH_WITH_AES_128_GCM_SHA256 = 'ADH-AES128-GCM-SHA256'; - {$EXTERNALSYM TLS1_TXT_ADH_WITH_AES_256_GCM_SHA384} - TLS1_TXT_ADH_WITH_AES_256_GCM_SHA384 = 'ADH-AES256-GCM-SHA384'; - -//* ECDH HMAC based ciphersuites from RFC5289 */ - - {$EXTERNALSYM TLS1_TXT_ECDHE_ECDSA_WITH_AES_128_SHA256} - TLS1_TXT_ECDHE_ECDSA_WITH_AES_128_SHA256 = 'ECDHE-ECDSA-AES128-SHA256'; - {$EXTERNALSYM TLS1_TXT_ECDHE_ECDSA_WITH_AES_256_SHA384} - TLS1_TXT_ECDHE_ECDSA_WITH_AES_256_SHA384 = 'ECDHE-ECDSA-AES256-SHA384'; - {$EXTERNALSYM TLS1_TXT_ECDH_ECDSA_WITH_AES_128_SHA256} - TLS1_TXT_ECDH_ECDSA_WITH_AES_128_SHA256 = 'ECDH-ECDSA-AES128-SHA256'; - {$EXTERNALSYM TLS1_TXT_ECDH_ECDSA_WITH_AES_256_SHA384} - TLS1_TXT_ECDH_ECDSA_WITH_AES_256_SHA384 = 'ECDH-ECDSA-AES256-SHA384'; - {$EXTERNALSYM TLS1_TXT_ECDHE_RSA_WITH_AES_128_SHA256} - TLS1_TXT_ECDHE_RSA_WITH_AES_128_SHA256 = 'ECDHE-RSA-AES128-SHA256'; - {$EXTERNALSYM TLS1_TXT_ECDHE_RSA_WITH_AES_256_SHA384} - TLS1_TXT_ECDHE_RSA_WITH_AES_256_SHA384 = 'ECDHE-RSA-AES256-SHA384'; - {$EXTERNALSYM TLS1_TXT_ECDH_RSA_WITH_AES_128_SHA256} - TLS1_TXT_ECDH_RSA_WITH_AES_128_SHA256 = 'ECDH-RSA-AES128-SHA256'; - {$EXTERNALSYM TLS1_TXT_ECDH_RSA_WITH_AES_256_SHA384} - TLS1_TXT_ECDH_RSA_WITH_AES_256_SHA384 = 'ECDH-RSA-AES256-SHA384'; - -//* ECDH GCM based ciphersuites from RFC5289 */ - {$EXTERNALSYM TLS1_TXT_ECDHE_ECDSA_WITH_AES_128_GCM_SHA256} - TLS1_TXT_ECDHE_ECDSA_WITH_AES_128_GCM_SHA256 = 'ECDHE-ECDSA-AES128-GCM-SHA256'; - {$EXTERNALSYM TLS1_TXT_ECDHE_ECDSA_WITH_AES_256_GCM_SHA384} - TLS1_TXT_ECDHE_ECDSA_WITH_AES_256_GCM_SHA384 = 'ECDHE-ECDSA-AES256-GCM-SHA384'; - {$EXTERNALSYM TLS1_TXT_ECDH_ECDSA_WITH_AES_128_GCM_SHA256} - TLS1_TXT_ECDH_ECDSA_WITH_AES_128_GCM_SHA256 = 'ECDH-ECDSA-AES128-GCM-SHA256'; - {$EXTERNALSYM TLS1_TXT_ECDH_ECDSA_WITH_AES_256_GCM_SHA384} - TLS1_TXT_ECDH_ECDSA_WITH_AES_256_GCM_SHA384 = 'ECDH-ECDSA-AES256-GCM-SHA384'; - {$EXTERNALSYM TLS1_TXT_ECDHE_RSA_WITH_AES_128_GCM_SHA256} - TLS1_TXT_ECDHE_RSA_WITH_AES_128_GCM_SHA256 = 'ECDHE-RSA-AES128-GCM-SHA256'; - {$EXTERNALSYM TLS1_TXT_ECDHE_RSA_WITH_AES_256_GCM_SHA384} - TLS1_TXT_ECDHE_RSA_WITH_AES_256_GCM_SHA384 = 'ECDHE-RSA-AES256-GCM-SHA384'; - {$EXTERNALSYM TLS1_TXT_ECDH_RSA_WITH_AES_128_GCM_SHA256} - TLS1_TXT_ECDH_RSA_WITH_AES_128_GCM_SHA256 = 'ECDH-RSA-AES128-GCM-SHA256'; - {$EXTERNALSYM TLS1_TXT_ECDH_RSA_WITH_AES_256_GCM_SHA384} - TLS1_TXT_ECDH_RSA_WITH_AES_256_GCM_SHA384 = 'ECDH-RSA-AES256-GCM-SHA384'; - - {$EXTERNALSYM TLS_CT_RSA_SIGN} - TLS_CT_RSA_SIGN = 1; - {$EXTERNALSYM TLS_CT_DSS_SIGN} - TLS_CT_DSS_SIGN = 2; - {$EXTERNALSYM TLS_CT_RSA_FIXED_DH} - TLS_CT_RSA_FIXED_DH = 3; - {$EXTERNALSYM TLS_CT_DSS_FIXED_DH} - TLS_CT_DSS_FIXED_DH = 4; - {$EXTERNALSYM TLS_CT_ECDSA_SIGN} - TLS_CT_ECDSA_SIGN = 64; - {$EXTERNALSYM TLS_CT_RSA_FIXED_ECDH} - TLS_CT_RSA_FIXED_ECDH = 65; - {$EXTERNALSYM TLS_CT_ECDSA_FIXED_ECDH} - TLS_CT_ECDSA_FIXED_ECDH = 66; - {$EXTERNALSYM TLS_CT_GOST94_SIGN} - TLS_CT_GOST94_SIGN = 21; - {$EXTERNALSYM TLS_CT_GOST01_SIGN} - TLS_CT_GOST01_SIGN = 22; -///* when correcting this number, correct also SSL3_CT_NUMBER in ssl3.h (see -// * comment there) */ - {$EXTERNALSYM TLS_CT_NUMBER} - TLS_CT_NUMBER = 9; //was 4; - - {$EXTERNALSYM TLS_MD_CLIENT_FINISH_CONST} - TLS_MD_CLIENT_FINISH_CONST = 'client finished'; {Do not localize} - {$EXTERNALSYM TLS_MD_CLIENT_FINISH_CONST_SIZE} - TLS_MD_CLIENT_FINISH_CONST_SIZE = 15; - {$EXTERNALSYM TLS_MD_SERVER_FINISH_CONST} - TLS_MD_SERVER_FINISH_CONST = 'server finished'; {Do not localize} - {$EXTERNALSYM TLS_MD_SERVER_FINISH_CONST_SIZE} - TLS_MD_SERVER_FINISH_CONST_SIZE = 15; - {$EXTERNALSYM TLS_MD_KEY_EXPANSION_CONST} - TLS_MD_KEY_EXPANSION_CONST = 'key expansion'; {Do not localize} - {$EXTERNALSYM TLS_MD_KEY_EXPANSION_CONST_SIZE} - TLS_MD_KEY_EXPANSION_CONST_SIZE = 13; - {$EXTERNALSYM TLS_MD_CLIENT_WRITE_KEY_CONST} - TLS_MD_CLIENT_WRITE_KEY_CONST = 'client write key'; {Do not localize} - {$EXTERNALSYM TLS_MD_CLIENT_WRITE_KEY_CONST_SIZE} - TLS_MD_CLIENT_WRITE_KEY_CONST_SIZE = 16; - {$EXTERNALSYM TLS_MD_SERVER_WRITE_KEY_CONST} - TLS_MD_SERVER_WRITE_KEY_CONST = 'server write key'; {Do not localize} - {$EXTERNALSYM TLS_MD_SERVER_WRITE_KEY_CONST_SIZE} - TLS_MD_SERVER_WRITE_KEY_CONST_SIZE = 16; - {$EXTERNALSYM TLS_MD_IV_BLOCK_CONST} - TLS_MD_IV_BLOCK_CONST = 'IV block'; {Do not localize} - {$EXTERNALSYM TLS_MD_IV_BLOCK_CONST_SIZE} - TLS_MD_IV_BLOCK_CONST_SIZE = 8; - {$EXTERNALSYM TLS_MD_MASTER_SECRET_CONST} - TLS_MD_MASTER_SECRET_CONST = 'master secret'; {Do not localize} - {$EXTERNALSYM TLS_MD_MASTER_SECRET_CONST_SIZE} - TLS_MD_MASTER_SECRET_CONST_SIZE = 13; - {$EXTERNALSYM TLS_MD_MAX_CONST_SIZE} - TLS_MD_MAX_CONST_SIZE = 20; - - {$EXTERNALSYM TMP_MAX} - TMP_MAX = 26; - {$EXTERNALSYM V_ASN1_APPLICATION} - V_ASN1_APPLICATION = $40; - {$EXTERNALSYM V_ASN1_APP_CHOOSE} - V_ASN1_APP_CHOOSE = -2; - {$EXTERNALSYM V_ASN1_BIT_STRING} - V_ASN1_BIT_STRING = 3; - {$EXTERNALSYM V_ASN1_BMPSTRING} - V_ASN1_BMPSTRING = 30; - {$EXTERNALSYM V_ASN1_BOOLEAN} - V_ASN1_BOOLEAN = 1; - {$EXTERNALSYM V_ASN1_CONSTRUCTED} - V_ASN1_CONSTRUCTED = $20; - {$EXTERNALSYM V_ASN1_CONTEXT_SPECIFIC} - V_ASN1_CONTEXT_SPECIFIC = $80; - {$EXTERNALSYM V_ASN1_ENUMERATED} - V_ASN1_ENUMERATED = 10; - {$EXTERNALSYM V_ASN1_EOC} - V_ASN1_EOC = 0; - {$EXTERNALSYM V_ASN1_EXTERNAL} - V_ASN1_EXTERNAL = 8; - {$EXTERNALSYM V_ASN1_GENERALIZEDTIME} - V_ASN1_GENERALIZEDTIME = 24; - {$EXTERNALSYM V_ASN1_GENERALSTRING} - V_ASN1_GENERALSTRING = 27; - {$EXTERNALSYM V_ASN1_GRAPHICSTRING} - V_ASN1_GRAPHICSTRING = 25; - {$EXTERNALSYM V_ASN1_IA5STRING} - V_ASN1_IA5STRING = 22; - {$EXTERNALSYM V_ASN1_INTEGER} - V_ASN1_INTEGER = 2; - {$EXTERNALSYM V_ASN1_ISO64STRING} - V_ASN1_ISO64STRING = 26; - {$EXTERNALSYM V_ASN1_NEG_ENUMERATED} - V_ASN1_NEG_ENUMERATED = 10+$100; - {$EXTERNALSYM V_ASN1_NEG_INTEGER} - V_ASN1_NEG_INTEGER = 2+$100; - {$EXTERNALSYM V_ASN1_NULL} - V_ASN1_NULL = 5; - {$EXTERNALSYM V_ASN1_NUMERICSTRING} - V_ASN1_NUMERICSTRING = 18; - {$EXTERNALSYM V_ASN1_OBJECT} - V_ASN1_OBJECT = 6; - {$EXTERNALSYM V_ASN1_OBJECT_DESCRIPTOR} - V_ASN1_OBJECT_DESCRIPTOR = 7; - {$EXTERNALSYM V_ASN1_OCTET_STRING} - V_ASN1_OCTET_STRING = 4; - {$EXTERNALSYM V_ASN1_PRIMATIVE_TAG} - V_ASN1_PRIMATIVE_TAG = $1f; - {$EXTERNALSYM V_ASN1_PRIMITIVE_TAG} - V_ASN1_PRIMITIVE_TAG = $1f; - {$EXTERNALSYM V_ASN1_PRINTABLESTRING} - V_ASN1_PRINTABLESTRING = 19; - {$EXTERNALSYM V_ASN1_PRIVATE} - V_ASN1_PRIVATE = $c0; - {$EXTERNALSYM V_ASN1_REAL} - V_ASN1_REAL = 9; - {$EXTERNALSYM V_ASN1_SEQUENCE} - V_ASN1_SEQUENCE = 16; - {$EXTERNALSYM V_ASN1_SET} - V_ASN1_SET = 17; - {$EXTERNALSYM V_ASN1_T61STRING} - V_ASN1_T61STRING = 20; - {$EXTERNALSYM V_ASN1_TELETEXSTRING} - V_ASN1_TELETEXSTRING = 20; - {$EXTERNALSYM V_ASN1_UNDEF} - V_ASN1_UNDEF = -1; - {$EXTERNALSYM V_ASN1_UNIVERSAL} - V_ASN1_UNIVERSAL = $00; - {$EXTERNALSYM V_ASN1_UNIVERSALSTRING} - V_ASN1_UNIVERSALSTRING = 28; - {$EXTERNALSYM V_ASN1_UTCTIME} - V_ASN1_UTCTIME = 23; - {$EXTERNALSYM V_ASN1_UTF8STRING} - V_ASN1_UTF8STRING = 12; - {$EXTERNALSYM V_ASN1_VIDEOTEXSTRING} - V_ASN1_VIDEOTEXSTRING = 21; - {$EXTERNALSYM V_ASN1_VISIBLESTRING} - V_ASN1_VISIBLESTRING = 26; - {$EXTERNALSYM WINNT} - WINNT = 1; - {$EXTERNALSYM X509_TRUST_DEFAULT} - X509_TRUST_DEFAULT = -1; //* Only valid in purpose settings */ - {$EXTERNALSYM X509_TRUST_COMPAT} - X509_TRUST_COMPAT = 1; - {$EXTERNALSYM X509_TRUST_SSL_CLIENT} - X509_TRUST_SSL_CLIENT = 2; - {$EXTERNALSYM X509_TRUST_SSL_SERVER} - X509_TRUST_SSL_SERVER = 3; - {$EXTERNALSYM X509_TRUST_EMAIL} - X509_TRUST_EMAIL = 4; - {$EXTERNALSYM X509_TRUST_OBJECT_SIGN} - X509_TRUST_OBJECT_SIGN = 5; - {$EXTERNALSYM X509_TRUST_OCSP_SIGN} - X509_TRUST_OCSP_SIGN = 6; - {$EXTERNALSYM X509_TRUST_OCSP_REQUEST} - X509_TRUST_OCSP_REQUEST = 7; - {$EXTERNALSYM X509_TRUST_TSA} - X509_TRUST_TSA = 8; - {$EXTERNALSYM X509_TRUST_MIN} - X509_TRUST_MIN = 1; - {$EXTERNALSYM X509_TRUST_MAX} - X509_TRUST_MAX = 8; - {$EXTERNALSYM X509_EXT_PACK_STRING} - X509_EXT_PACK_STRING = 2; - {$EXTERNALSYM X509_EXT_PACK_UNKNOWN} - X509_EXT_PACK_UNKNOWN = 1; - {$EXTERNALSYM X509_EX_V_INIT} - X509_EX_V_INIT = $0001; - {$EXTERNALSYM X509_EX_V_NETSCAPE_HACK} - X509_EX_V_NETSCAPE_HACK = $8000; - {$EXTERNALSYM X509_FILETYPE_DEFAULT} - X509_FILETYPE_DEFAULT = 3; - {$EXTERNALSYM X509_F_ADD_CERT_DIR} - X509_F_ADD_CERT_DIR = 100; - {$EXTERNALSYM X509_F_BY_FILE_CTRL} - X509_F_BY_FILE_CTRL = 101; - {$EXTERNALSYM X509_F_DIR_CTRL} - X509_F_DIR_CTRL = 102; - {$EXTERNALSYM X509_F_GET_CERT_BY_SUBJECT} - X509_F_GET_CERT_BY_SUBJECT = 103; - {$EXTERNALSYM X509_F_X509V3_ADD_EXT} - X509_F_X509V3_ADD_EXT = 104; - {$EXTERNALSYM X509_F_X509_EXTENSION_CREATE_BY_NID} - X509_F_X509_EXTENSION_CREATE_BY_NID = 108; - {$EXTERNALSYM X509_F_X509_EXTENSION_CREATE_BY_OBJ} - X509_F_X509_EXTENSION_CREATE_BY_OBJ = 109; - - {$EXTERNALSYM X509_F_X509_GET_PUBKEY_PARAMETERS} - X509_F_X509_GET_PUBKEY_PARAMETERS = 110; - {$EXTERNALSYM X509_F_X509_LOAD_CERT_FILE} - X509_F_X509_LOAD_CERT_FILE = 111; - {$EXTERNALSYM X509_F_X509_LOAD_CRL_FILE} - X509_F_X509_LOAD_CRL_FILE = 112; - {$EXTERNALSYM X509_F_X509_NAME_ADD_ENTRY} - X509_F_X509_NAME_ADD_ENTRY = 113; - {$EXTERNALSYM X509_F_X509_NAME_ENTRY_CREATE_BY_NID} - X509_F_X509_NAME_ENTRY_CREATE_BY_NID = 114; - {$EXTERNALSYM X509_F_X509_NAME_ENTRY_SET_OBJECT} - X509_F_X509_NAME_ENTRY_SET_OBJECT = 115; - {$EXTERNALSYM X509_F_X509_NAME_ONELINE} - X509_F_X509_NAME_ONELINE = 116; - {$EXTERNALSYM X509_F_X509_NAME_PRINT} - X509_F_X509_NAME_PRINT = 117; - {$EXTERNALSYM X509_F_X509_PRINT_FP} - X509_F_X509_PRINT_FP = 118; - {$EXTERNALSYM X509_F_X509_PUBKEY_GET} - X509_F_X509_PUBKEY_GET = 119; - - {$EXTERNALSYM X509_F_X509_PUBKEY_SET} - X509_F_X509_PUBKEY_SET = 120; - {$EXTERNALSYM X509_F_X509_REQ_PRINT} - X509_F_X509_REQ_PRINT = 121; - {$EXTERNALSYM X509_F_X509_REQ_PRINT_FP} - X509_F_X509_REQ_PRINT_FP = 122; - {$EXTERNALSYM X509_F_X509_REQ_TO_X509} - X509_F_X509_REQ_TO_X509 = 123; - {$EXTERNALSYM X509_F_X509_STORE_ADD_CERT} - X509_F_X509_STORE_ADD_CERT = 124; - {$EXTERNALSYM X509_F_X509_STORE_ADD_CRL} - X509_F_X509_STORE_ADD_CRL = 125; - {$EXTERNALSYM X509_F_X509_TO_X509_REQ} - X509_F_X509_TO_X509_REQ = 126; - {$EXTERNALSYM X509_F_X509_VERIFY_CERT} - X509_F_X509_VERIFY_CERT = 127; - {$EXTERNALSYM X509_F_X509_CHECK_PRIVATE_KEY} - X509_F_X509_CHECK_PRIVATE_KEY = 128; - {$EXTERNALSYM X509_F_NETSCAPE_SPKI_B64_DECODE} - X509_F_NETSCAPE_SPKI_B64_DECODE = 129; - - {$EXTERNALSYM X509_F_NETSCAPE_SPKI_B64_ENCODE} - X509_F_NETSCAPE_SPKI_B64_ENCODE = 130; - {$EXTERNALSYM X509_F_X509_NAME_ENTRY_CREATE_BY_TXT} - X509_F_X509_NAME_ENTRY_CREATE_BY_TXT = 131; - {$EXTERNALSYM X509_F_X509_LOAD_CERT_CRL_FILE} - X509_F_X509_LOAD_CERT_CRL_FILE = 132; - {$EXTERNALSYM X509_F_X509_TRUST_ADD} - X509_F_X509_TRUST_ADD = 133; - - {$EXTERNALSYM X509_F_X509_STORE_CTX_PURPOSE_INHERIT} - X509_F_X509_STORE_CTX_PURPOSE_INHERIT = 134; - {$EXTERNALSYM X509_F_X509AT_ADD1_ATTR} - X509_F_X509AT_ADD1_ATTR = 135; - {$EXTERNALSYM X509_F_X509_ATTRIBUTE_CREATE_BY_NID} - X509_F_X509_ATTRIBUTE_CREATE_BY_NID = 136; - {$EXTERNALSYM X509_F_X509_ATTRIBUTE_CREATE_BY_OBJ} - X509_F_X509_ATTRIBUTE_CREATE_BY_OBJ = 137; - {$EXTERNALSYM X509_F_X509_ATTRIBUTE_SET1_DATA} - X509_F_X509_ATTRIBUTE_SET1_DATA = 138; - {$EXTERNALSYM X509_F_X509_ATTRIBUTE_GET0_DATA} - X509_F_X509_ATTRIBUTE_GET0_DATA = 139; - - {$EXTERNALSYM X509_F_X509_ATTRIBUTE_CREATE_BY_TXT} - X509_F_X509_ATTRIBUTE_CREATE_BY_TXT = 140; - {$EXTERNALSYM X509_F_X509_TRUST_SET} - X509_F_X509_TRUST_SET = 141; - {$EXTERNALSYM X509_F_X509_STORE_CTX_NEW} - X509_F_X509_STORE_CTX_NEW = 142; - {$EXTERNALSYM X509_F_X509_STORE_CTX_INIT} - X509_F_X509_STORE_CTX_INIT = 143; - {$EXTERNALSYM X509_F_X509_REQ_CHECK_PRIVATE_KEY} - X509_F_X509_REQ_CHECK_PRIVATE_KEY = 144; - {$EXTERNALSYM X509_F_CHECK_POLICY} - X509_F_CHECK_POLICY = 145; - {$EXTERNALSYM X509_F_X509_STORE_CTX_GET1_ISSUER} - X509_F_X509_STORE_CTX_GET1_ISSUER = 146; - {$EXTERNALSYM X509_F_X509_CRL_PRINT_FP} - X509_F_X509_CRL_PRINT_FP = 147; - - {$EXTERNALSYM X509_LU_CRL} - X509_LU_CRL = 2; - {$EXTERNALSYM X509_LU_FAIL} - X509_LU_FAIL = 0; - {$EXTERNALSYM X509_LU_PKEY} - X509_LU_PKEY = 3; - {$EXTERNALSYM X509_LU_RETRY} - X509_LU_RETRY = -1; - {$EXTERNALSYM X509_LU_X509} - X509_LU_X509 = 1; - {$EXTERNALSYM X509_L_ADD_DIR} - X509_L_ADD_DIR = 2; - {$EXTERNALSYM X509_L_FILE_LOAD} - X509_L_FILE_LOAD = 1; - {$EXTERNALSYM X509_R_BAD_X509_FILETYPE} - X509_R_BAD_X509_FILETYPE = 100; - {$EXTERNALSYM X509_R_BASE64_DECODE_ERROR} - X509_R_BASE64_DECODE_ERROR = 118; - {$EXTERNALSYM X509_R_CANT_CHECK_DH_KEY} - X509_R_CANT_CHECK_DH_KEY = 114; - {$EXTERNALSYM X509_R_CERT_ALREADY_IN_HASH_TABLE} - X509_R_CERT_ALREADY_IN_HASH_TABLE = 101; - {$EXTERNALSYM X509_R_ERR_ASN1_LIB} - X509_R_ERR_ASN1_LIB = 102; - {$EXTERNALSYM X509_R_INVALID_DIRECTORY} - X509_R_INVALID_DIRECTORY = 113; - {$EXTERNALSYM X509_R_INVALID_FIELD_NAME} - X509_R_INVALID_FIELD_NAME = 119; - {$EXTERNALSYM X509_R_INVALID_TRUST} - X509_R_INVALID_TRUST = 123; - {$EXTERNALSYM X509_R_KEY_TYPE_MISMATCH} - X509_R_KEY_TYPE_MISMATCH = 115; - {$EXTERNALSYM X509_R_KEY_VALUES_MISMATCH} - X509_R_KEY_VALUES_MISMATCH = 116; - {$EXTERNALSYM X509_R_LOADING_CERT_DIR} - X509_R_LOADING_CERT_DIR = 103; - {$EXTERNALSYM X509_R_LOADING_DEFAULTS} - X509_R_LOADING_DEFAULTS = 104; - {$EXTERNALSYM X509_R_METHOD_NOT_SUPPORTED} - X509_R_METHOD_NOT_SUPPORTED = 124; - {$EXTERNALSYM X509_R_NO_CERT_SET_FOR_US_TO_VERIFY} - X509_R_NO_CERT_SET_FOR_US_TO_VERIFY = 105; - {$EXTERNALSYM X509_R_PUBLIC_KEY_DECODE_ERROR} - X509_R_PUBLIC_KEY_DECODE_ERROR = 125; - {$EXTERNALSYM X509_R_PUBLIC_KEY_ENCODE_ERROR} - X509_R_PUBLIC_KEY_ENCODE_ERROR = 126; - {$EXTERNALSYM X509_R_SHOULD_RETRY} - X509_R_SHOULD_RETRY = 106; - {$EXTERNALSYM X509_R_UNABLE_TO_FIND_PARAMETERS_IN_CHAIN} - X509_R_UNABLE_TO_FIND_PARAMETERS_IN_CHAIN = 107; - {$EXTERNALSYM X509_R_UNABLE_TO_GET_CERTS_PUBLIC_KEY} - X509_R_UNABLE_TO_GET_CERTS_PUBLIC_KEY = 108; - {$EXTERNALSYM X509_R_UNKNOWN_KEY_TYPE} - X509_R_UNKNOWN_KEY_TYPE = 117; - {$EXTERNALSYM X509_R_UNKNOWN_NID} - X509_R_UNKNOWN_NID = 109; - {$EXTERNALSYM X509_R_UNKNOWN_PURPOSE_ID} - X509_R_UNKNOWN_PURPOSE_ID = 121; - {$EXTERNALSYM X509_R_UNSUPPORTED_ALGORITHM} - X509_R_UNSUPPORTED_ALGORITHM = 111; - {$EXTERNALSYM X509_R_WRONG_LOOKUP_TYPE} - X509_R_WRONG_LOOKUP_TYPE = 112; - {$EXTERNALSYM X509_R_WRONG_TYPE} - X509_R_WRONG_TYPE = 122; - - {$EXTERNALSYM X509_V_ERR_UNSPECIFIED} - X509_V_ERR_UNSPECIFIED = 1; - {$EXTERNALSYM X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT} - X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT = 2; - {$EXTERNALSYM X509_V_ERR_UNABLE_TO_GET_CRL} - X509_V_ERR_UNABLE_TO_GET_CRL = 3; - {$EXTERNALSYM X509_V_ERR_UNABLE_TO_DECRYPT_CERT_SIGNATURE} - X509_V_ERR_UNABLE_TO_DECRYPT_CERT_SIGNATURE = 4; - {$EXTERNALSYM X509_V_ERR_UNABLE_TO_DECRYPT_CRL_SIGNATURE} - X509_V_ERR_UNABLE_TO_DECRYPT_CRL_SIGNATURE = 5; - {$EXTERNALSYM X509_V_ERR_UNABLE_TO_DECODE_ISSUER_PUBLIC_KEY} - X509_V_ERR_UNABLE_TO_DECODE_ISSUER_PUBLIC_KEY = 6; - {$EXTERNALSYM X509_V_ERR_CERT_SIGNATURE_FAILURE} - X509_V_ERR_CERT_SIGNATURE_FAILURE = 7; - {$EXTERNALSYM X509_V_ERR_CRL_SIGNATURE_FAILURE} - X509_V_ERR_CRL_SIGNATURE_FAILURE = 8; - {$EXTERNALSYM X509_V_ERR_CERT_NOT_YET_VALID} - X509_V_ERR_CERT_NOT_YET_VALID = 9; - {$EXTERNALSYM X509_V_ERR_CERT_HAS_EXPIRED} - X509_V_ERR_CERT_HAS_EXPIRED = 10; - {$EXTERNALSYM X509_V_ERR_CRL_NOT_YET_VALID} - X509_V_ERR_CRL_NOT_YET_VALID = 11; - {$EXTERNALSYM X509_V_ERR_CRL_HAS_EXPIRED} - X509_V_ERR_CRL_HAS_EXPIRED = 12; - {$EXTERNALSYM X509_V_ERR_ERROR_IN_CERT_NOT_BEFORE_FIELD} - X509_V_ERR_ERROR_IN_CERT_NOT_BEFORE_FIELD = 13; - {$EXTERNALSYM X509_V_ERR_ERROR_IN_CERT_NOT_AFTER_FIELD} - X509_V_ERR_ERROR_IN_CERT_NOT_AFTER_FIELD = 14; - {$EXTERNALSYM X509_V_ERR_ERROR_IN_CRL_LAST_UPDATE_FIELD} - X509_V_ERR_ERROR_IN_CRL_LAST_UPDATE_FIELD = 15; - {$EXTERNALSYM X509_V_ERR_ERROR_IN_CRL_NEXT_UPDATE_FIELD} - X509_V_ERR_ERROR_IN_CRL_NEXT_UPDATE_FIELD = 16; - {$EXTERNALSYM X509_V_ERR_OUT_OF_MEM} - X509_V_ERR_OUT_OF_MEM = 17; - {$EXTERNALSYM X509_V_ERR_DEPTH_ZERO_SELF_SIGNED_CERT} - X509_V_ERR_DEPTH_ZERO_SELF_SIGNED_CERT = 18; - {$EXTERNALSYM X509_V_ERR_SELF_SIGNED_CERT_IN_CHAIN} - X509_V_ERR_SELF_SIGNED_CERT_IN_CHAIN = 19; - {$EXTERNALSYM X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT_LOCALLY} - X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT_LOCALLY = 20; - {$EXTERNALSYM X509_V_ERR_UNABLE_TO_VERIFY_LEAF_SIGNATURE} - X509_V_ERR_UNABLE_TO_VERIFY_LEAF_SIGNATURE = 21; - {$EXTERNALSYM X509_V_ERR_CERT_CHAIN_TOO_LONG} - X509_V_ERR_CERT_CHAIN_TOO_LONG = 22; - {$EXTERNALSYM X509_V_ERR_CERT_REVOKED} - X509_V_ERR_CERT_REVOKED = 23; - {$EXTERNALSYM X509_V_ERR_INVALID_CA} - X509_V_ERR_INVALID_CA = 24; - {$EXTERNALSYM X509_V_ERR_PATH_LENGTH_EXCEEDED} - X509_V_ERR_PATH_LENGTH_EXCEEDED = 25; - {$EXTERNALSYM X509_V_ERR_INVALID_PURPOSE} - X509_V_ERR_INVALID_PURPOSE = 26; - {$EXTERNALSYM X509_V_ERR_CERT_UNTRUSTED} - X509_V_ERR_CERT_UNTRUSTED = 27; - {$EXTERNALSYM X509_V_ERR_CERT_REJECTED} - X509_V_ERR_CERT_REJECTED = 28; -//* These are 'informational' when looking for issuer cert */ - {$EXTERNALSYM X509_V_ERR_SUBJECT_ISSUER_MISMATCH} - X509_V_ERR_SUBJECT_ISSUER_MISMATCH = 29; - {$EXTERNALSYM X509_V_ERR_AKID_SKID_MISMATCH} - X509_V_ERR_AKID_SKID_MISMATCH = 30; - {$EXTERNALSYM X509_V_ERR_AKID_ISSUER_SERIAL_MISMATCH} - X509_V_ERR_AKID_ISSUER_SERIAL_MISMATCH = 31; - {$EXTERNALSYM X509_V_ERR_KEYUSAGE_NO_CERTSIGN} - X509_V_ERR_KEYUSAGE_NO_CERTSIGN = 32; - {$EXTERNALSYM X509_V_ERR_UNABLE_TO_GET_CRL_ISSUER} - X509_V_ERR_UNABLE_TO_GET_CRL_ISSUER = 33; - {$EXTERNALSYM X509_V_ERR_UNHANDLED_CRITICAL_EXTENSION} - X509_V_ERR_UNHANDLED_CRITICAL_EXTENSION = 34; - {$EXTERNALSYM X509_V_ERR_KEYUSAGE_NO_CRL_SIGN} - X509_V_ERR_KEYUSAGE_NO_CRL_SIGN = 35; - {$EXTERNALSYM X509_V_ERR_UNHANDLED_CRITICAL_CRL_EXTENSION} - X509_V_ERR_UNHANDLED_CRITICAL_CRL_EXTENSION = 36; - {$EXTERNALSYM X509_V_ERR_INVALID_NON_CA} - X509_V_ERR_INVALID_NON_CA = 37; - {$EXTERNALSYM X509_V_ERR_PROXY_PATH_LENGTH_EXCEEDED} - X509_V_ERR_PROXY_PATH_LENGTH_EXCEEDED = 38; - {$EXTERNALSYM X509_V_ERR_KEYUSAGE_NO_DIGITAL_SIGNATURE} - X509_V_ERR_KEYUSAGE_NO_DIGITAL_SIGNATURE = 39; - {$EXTERNALSYM X509_V_ERR_PROXY_CERTIFICATES_NOT_ALLOWED} - X509_V_ERR_PROXY_CERTIFICATES_NOT_ALLOWED = 40; - {$EXTERNALSYM X509_V_ERR_INVALID_EXTENSION} - X509_V_ERR_INVALID_EXTENSION = 41; - {$EXTERNALSYM X509_V_ERR_INVALID_POLICY_EXTENSION} - X509_V_ERR_INVALID_POLICY_EXTENSION = 42; - {$EXTERNALSYM X509_V_ERR_NO_EXPLICIT_POLICY} - X509_V_ERR_NO_EXPLICIT_POLICY = 43; - {$EXTERNALSYM X509_V_ERR_DIFFERENT_CRL_SCOPE} - X509_V_ERR_DIFFERENT_CRL_SCOPE = 44; - {$EXTERNALSYM X509_V_ERR_UNSUPPORTED_EXTENSION_FEATURE} - X509_V_ERR_UNSUPPORTED_EXTENSION_FEATURE = 45; - - {$EXTERNALSYM X509_V_ERR_UNNESTED_RESOURCE} - X509_V_ERR_UNNESTED_RESOURCE = 46; //was 44; - {$EXTERNALSYM X509_V_ERR_PERMITTED_VIOLATION} - X509_V_ERR_PERMITTED_VIOLATION = 47; - {$EXTERNALSYM X509_V_ERR_EXCLUDED_VIOLATION} - X509_V_ERR_EXCLUDED_VIOLATION = 48; - {$EXTERNALSYM X509_V_ERR_SUBTREE_MINMAX} - X509_V_ERR_SUBTREE_MINMAX = 49; - {$EXTERNALSYM X509_V_ERR_APPLICATION_VERIFICATION} - X509_V_ERR_APPLICATION_VERIFICATION = 50; - {$EXTERNALSYM X509_V_ERR_UNSUPPORTED_CONSTRAINT_TYPE} - X509_V_ERR_UNSUPPORTED_CONSTRAINT_TYPE = 51; - {$EXTERNALSYM X509_V_ERR_UNSUPPORTED_CONSTRAINT_SYNTAX} - X509_V_ERR_UNSUPPORTED_CONSTRAINT_SYNTAX = 52; - {$EXTERNALSYM X509_V_ERR_UNSUPPORTED_NAME_SYNTAX} - X509_V_ERR_UNSUPPORTED_NAME_SYNTAX = 53; - {$EXTERNALSYM X509_V_ERR_CRL_PATH_VALIDATION_ERROR} - X509_V_ERR_CRL_PATH_VALIDATION_ERROR = 54; - {$EXTERNALSYM X509_V_ERR_PATH_LOOP} - X509_V_ERR_PATH_LOOP = 55; - {$EXTERNALSYM X509_V_ERR_SUITE_B_INVALID_VERSION} - X509_V_ERR_SUITE_B_INVALID_VERSION = 56; - {$EXTERNALSYM X509_V_ERR_SUITE_B_INVALID_ALGORITHM} - X509_V_ERR_SUITE_B_INVALID_ALGORITHM = 57; - {$EXTERNALSYM X509_V_ERR_SUITE_B_INVALID_CURVE} - X509_V_ERR_SUITE_B_INVALID_CURVE = 58; - {$EXTERNALSYM X509_V_ERR_SUITE_B_INVALID_SIGNATURE_ALGORITHM} - X509_V_ERR_SUITE_B_INVALID_SIGNATURE_ALGORITHM = 59; - {$EXTERNALSYM X509_V_ERR_SUITE_B_LOS_NOT_ALLOWED} - X509_V_ERR_SUITE_B_LOS_NOT_ALLOWED = 60; - {$EXTERNALSYM X509_V_ERR_SUITE_B_CANNOT_SIGN_P_384_WITH_P_256} - X509_V_ERR_SUITE_B_CANNOT_SIGN_P_384_WITH_P_256 = 61; - {$EXTERNALSYM X509_V_ERR_HOSTNAME_MISMATCH} - X509_V_ERR_HOSTNAME_MISMATCH = 62; - {$EXTERNALSYM X509_V_ERR_EMAIL_MISMATCH} - X509_V_ERR_EMAIL_MISMATCH = 63; - {$EXTERNALSYM X509_V_ERR_IP_ADDRESS_MISMATCH} - X509_V_ERR_IP_ADDRESS_MISMATCH = 64; - {$EXTERNALSYM X509_V_ERR_DANE_NO_MATCH} - X509_V_ERR_DANE_NO_MATCH = 65; - {$EXTERNALSYM X509_V_ERR_EE_KEY_TOO_SMALL} - X509_V_ERR_EE_KEY_TOO_SMALL = 66; - {$EXTERNALSYM X509_V_ERR_CA_KEY_TOO_SMALL} - X509_V_ERR_CA_KEY_TOO_SMALL = 67; - {$EXTERNALSYM X509_V_ERR_CA_MD_TOO_WEAK} - X509_V_ERR_CA_MD_TOO_WEAK = 68; - {$EXTERNALSYM X509_V_ERR_INVALID_CALL} - X509_V_ERR_INVALID_CALL = 69; - {$EXTERNALSYM X509_V_ERR_STORE_LOOKUP} - X509_V_ERR_STORE_LOOKUP = 70; - {$EXTERNALSYM X509_V_ERR_NO_VALID_SCTS} - X509_V_ERR_NO_VALID_SCTS = 71; - {$EXTERNALSYM X509_V_ERR_PROXY_SUBJECT_NAME_VIOLATION} - X509_V_ERR_PROXY_SUBJECT_NAME_VIOLATION = 72; - {$EXTERNALSYM X509_V_ERR_OCSP_VERIFY_NEEDED} - X509_V_ERR_OCSP_VERIFY_NEEDED = 73; - {$EXTERNALSYM X509_V_ERR_OCSP_VERIFY_FAILED} - X509_V_ERR_OCSP_VERIFY_FAILED = 74; - {$EXTERNALSYM X509_V_ERR_OCSP_CERT_UNKNOWN} - X509_V_ERR_OCSP_CERT_UNKNOWN = 75; - - //* Certificate verify flags */ - - //* Send issuer+subject checks to verify_cb */ - {$EXTERNALSYM X509_V_FLAG_CB_ISSUER_CHECK} - X509_V_FLAG_CB_ISSUER_CHECK = $1; - //* Use check time instead of current time */ - {$EXTERNALSYM X509_V_FLAG_USE_CHECK_TIME} - X509_V_FLAG_USE_CHECK_TIME = $2; - //* Lookup CRLs */ - {$EXTERNALSYM X509_V_FLAG_CRL_CHECK} - X509_V_FLAG_CRL_CHECK = $4; - //* Lookup CRLs for whole chain */ - {$EXTERNALSYM X509_V_FLAG_CRL_CHECK_ALL} - X509_V_FLAG_CRL_CHECK_ALL = $8; - //* Ignore unhandled critical extensions */ - {$EXTERNALSYM X509_V_FLAG_IGNORE_CRITICAL} - X509_V_FLAG_IGNORE_CRITICAL = $10; -//* Disable workarounds for broken certificates */ - {$EXTERNALSYM X509_V_FLAG_X509_STRICT} - X509_V_FLAG_X509_STRICT = $20; -//* Enable proxy certificate validation */ - {$EXTERNALSYM X509_V_FLAG_ALLOW_PROXY_CERTS} - X509_V_FLAG_ALLOW_PROXY_CERTS = $40; -//* Enable policy checking */ - {$EXTERNALSYM X509_V_FLAG_POLICY_CHECK} - X509_V_FLAG_POLICY_CHECK = $80; -//* Policy variable require-explicit-policy */ - {$EXTERNALSYM X509_V_FLAG_EXPLICIT_POLICY} - X509_V_FLAG_EXPLICIT_POLICY = $100; -//* Policy variable inhibit-any-policy */ - {$EXTERNALSYM X509_V_FLAG_INHIBIT_ANY} - X509_V_FLAG_INHIBIT_ANY = $200; -//* Policy variable inhibit-policy-mapping */ - {$EXTERNALSYM X509_V_FLAG_INHIBIT_MAP} - X509_V_FLAG_INHIBIT_MAP = $400; -//* Notify callback that policy is OK */ - {$EXTERNALSYM X509_V_FLAG_NOTIFY_POLICY} - X509_V_FLAG_NOTIFY_POLICY = $800; -//* Extended CRL features such as indirect CRLs, alternate CRL signing keys */ - {$EXTERNALSYM X509_V_FLAG_EXTENDED_CRL_SUPPORT} - X509_V_FLAG_EXTENDED_CRL_SUPPORT = $1000; -//* Delta CRL support */ - {$EXTERNALSYM X509_V_FLAG_USE_DELTAS} - X509_V_FLAG_USE_DELTAS = $2000; -//* Check selfsigned CA signature */ - {$EXTERNALSYM X509_V_FLAG_CHECK_SS_SIGNATURE} - X509_V_FLAG_CHECK_SS_SIGNATURE = $4000; - - {$EXTERNALSYM X509_VP_FLAG_DEFAULT} - X509_VP_FLAG_DEFAULT = $1; - {$EXTERNALSYM X509_VP_FLAG_OVERWRITE} - X509_VP_FLAG_OVERWRITE = $2; - {$EXTERNALSYM X509_VP_FLAG_RESET_FLAGS} - X509_VP_FLAG_RESET_FLAGS = $4; - {$EXTERNALSYM X509_VP_FLAG_LOCKED} - X509_VP_FLAG_LOCKED = $8; - {$EXTERNALSYM X509_VP_FLAG_ONCE} - X509_VP_FLAG_ONCE = $10; - {$EXTERNALSYM X509_V_FLAG_POLICY_MASK} - X509_V_FLAG_POLICY_MASK = (X509_V_FLAG_POLICY_CHECK or - X509_V_FLAG_EXPLICIT_POLICY or - X509_V_FLAG_INHIBIT_ANY or - X509_V_FLAG_INHIBIT_MAP); - - {$EXTERNALSYM X509_V_OK} - X509_V_OK = 0; - {$EXTERNALSYM X509v3_KU_CRL_SIGN} - X509v3_KU_CRL_SIGN = $0002; - {$EXTERNALSYM X509v3_KU_DATA_ENCIPHERMENT} - X509v3_KU_DATA_ENCIPHERMENT = $0010; - {$EXTERNALSYM X509v3_KU_DECIPHER_ONLY} - X509v3_KU_DECIPHER_ONLY = $8000; - {$EXTERNALSYM X509v3_KU_DIGITAL_SIGNATURE} - X509v3_KU_DIGITAL_SIGNATURE = $0080; - {$EXTERNALSYM X509v3_KU_ENCIPHER_ONLY} - X509v3_KU_ENCIPHER_ONLY = $0001; - {$EXTERNALSYM X509v3_KU_KEY_AGREEMENT} - X509v3_KU_KEY_AGREEMENT = $0008; - {$EXTERNALSYM X509v3_KU_KEY_CERT_SIGN} - X509v3_KU_KEY_CERT_SIGN = $0004; - {$EXTERNALSYM X509v3_KU_KEY_ENCIPHERMENT} - X509v3_KU_KEY_ENCIPHERMENT = $0020; - {$EXTERNALSYM X509v3_KU_NON_REPUDIATION} - X509v3_KU_NON_REPUDIATION = $0040; - {$EXTERNALSYM X509v3_KU_UNDEF} - X509v3_KU_UNDEF = $ffff; - {$EXTERNALSYM X509V3_EXT_DYNAMIC} - X509V3_EXT_DYNAMIC = $1; - {$EXTERNALSYM X509V3_EXT_CTX_DEP} - X509V3_EXT_CTX_DEP = $2; - {$EXTERNALSYM X509V3_EXT_MULTILINE} - X509V3_EXT_MULTILINE = $4; - {$EXTERNALSYM GEN_OTHERNAME} - GEN_OTHERNAME = 0; - {$EXTERNALSYM GEN_EMAIL} - GEN_EMAIL = 1; - {$EXTERNALSYM GEN_DNS} - GEN_DNS = 2; - {$EXTERNALSYM GEN_X400} - GEN_X400 = 3; - {$EXTERNALSYM GEN_DIRNAME} - GEN_DIRNAME = 4; - {$EXTERNALSYM GEN_EDIPARTY} - GEN_EDIPARTY = 5; - {$EXTERNALSYM GEN_URI} - GEN_URI = 6; - {$EXTERNALSYM GEN_IPADD} - GEN_IPADD = 7; - {$EXTERNALSYM GEN_RID} - GEN_RID = 8; - {$EXTERNALSYM CRLDP_ALL_REASONS} - CRLDP_ALL_REASONS = $807f; - {$EXTERNALSYM CRL_REASON_NONE} - CRL_REASON_NONE = -1; - {$EXTERNALSYM CRL_REASON_UNSPECIFIED} - CRL_REASON_UNSPECIFIED = 0; - {$EXTERNALSYM CRL_REASON_KEY_COMPROMISE} - CRL_REASON_KEY_COMPROMISE = 1; - {$EXTERNALSYM CRL_REASON_CA_COMPROMISE} - CRL_REASON_CA_COMPROMISE = 2; - {$EXTERNALSYM CRL_REASON_AFFILIATION_CHANGED} - CRL_REASON_AFFILIATION_CHANGED = 3; - {$EXTERNALSYM CRL_REASON_SUPERSEDED} - CRL_REASON_SUPERSEDED = 4; - {$EXTERNALSYM CRL_REASON_CESSATION_OF_OPERATION} - CRL_REASON_CESSATION_OF_OPERATION = 5; - {$EXTERNALSYM CRL_REASON_CERTIFICATE_HOLD} - CRL_REASON_CERTIFICATE_HOLD = 6; - {$EXTERNALSYM CRL_REASON_REMOVE_FROM_CRL} - CRL_REASON_REMOVE_FROM_CRL = 8; - {$EXTERNALSYM CRL_REASON_PRIVILEGE_WITHDRAWN} - CRL_REASON_PRIVILEGE_WITHDRAWN = 9; - {$EXTERNALSYM CRL_REASON_AA_COMPROMISE} - CRL_REASON_AA_COMPROMISE = 10; - -//* Values in idp_flags field */ -//* IDP present */ - {$EXTERNALSYM IDP_PRESENT} - IDP_PRESENT = $1; -//* IDP values inconsistent */ - {$EXTERNALSYM IDP_INVALID} - IDP_INVALID = $2; -//* onlyuser true */ - {$EXTERNALSYM IDP_ONLYUSER} - IDP_ONLYUSER = $4; -//* onlyCA true */ - {$EXTERNALSYM IDP_ONLYCA} - IDP_ONLYCA = $8; -//* onlyattr true */ - {$EXTERNALSYM IDP_ONLYATTR} - IDP_ONLYATTR = $10; -//* indirectCRL true */ - {$EXTERNALSYM IDP_INDIRECT} - IDP_INDIRECT = $20; -//* onlysomereasons present */ - {$EXTERNALSYM IDP_REASONS} - IDP_REASONS = $40; - - //* X509_PURPOSE stuff */ - {$EXTERNALSYM EXFLAG_BCONS} - EXFLAG_BCONS = $1; - {$EXTERNALSYM EXFLAG_KUSAGE} - EXFLAG_KUSAGE = $2; - {$EXTERNALSYM EXFLAG_XKUSAGE} - EXFLAG_XKUSAGE = $4; - {$EXTERNALSYM EXFLAG_NSCERT} - EXFLAG_NSCERT = $8; - {$EXTERNALSYM EXFLAG_CA} - EXFLAG_CA = $10; - //* Really self issued not necessarily self signed */ - {$EXTERNALSYM EXFLAG_SI} - EXFLAG_SI = $20; - {$EXTERNALSYM EXFLAG_SS} - EXFLAG_SS = $20; - {$EXTERNALSYM EXFLAG_V1} - EXFLAG_V1 = $40; - {$EXTERNALSYM EXFLAG_INVALID} - EXFLAG_INVALID = $80; - {$EXTERNALSYM EXFLAG_SET} - EXFLAG_SET = $100; - {$EXTERNALSYM EXFLAG_CRITICAL} - EXFLAG_CRITICAL = $200; - {$EXTERNALSYM EXFLAG_PROXY} - EXFLAG_PROXY = $400; - {$EXTERNALSYM EXFLAG_INVALID_POLICY} - EXFLAG_INVALID_POLICY = $800; - {$EXTERNALSYM KU_DIGITAL_SIGNATURE} - KU_DIGITAL_SIGNATURE = $0080; - {$EXTERNALSYM KU_NON_REPUDIATION} - KU_NON_REPUDIATION = $0040; - {$EXTERNALSYM KU_KEY_ENCIPHERMENT} - KU_KEY_ENCIPHERMENT = $0020; - {$EXTERNALSYM KU_DATA_ENCIPHERMENT} - KU_DATA_ENCIPHERMENT = $0010; - {$EXTERNALSYM KU_KEY_AGREEMENT} - KU_KEY_AGREEMENT = $0008; - {$EXTERNALSYM KU_KEY_CERT_SIGN} - KU_KEY_CERT_SIGN = $0004; - {$EXTERNALSYM KU_CRL_SIGN} - KU_CRL_SIGN = $0002; - {$EXTERNALSYM KU_ENCIPHER_ONLY} - KU_ENCIPHER_ONLY = $0001; - {$EXTERNALSYM KU_DECIPHER_ONLY} - KU_DECIPHER_ONLY = $8000; - {$EXTERNALSYM NS_SSL_CLIENT} - NS_SSL_CLIENT = $80; - {$EXTERNALSYM NS_SSL_SERVER} - NS_SSL_SERVER = $40; - {$EXTERNALSYM NS_SMIME} - NS_SMIME = $20; - {$EXTERNALSYM NS_OBJSIGN} - NS_OBJSIGN = $10; - {$EXTERNALSYM NS_SSL_CA} - NS_SSL_CA = $04; - {$EXTERNALSYM NS_SMIME_CA} - NS_SMIME_CA = $02; - {$EXTERNALSYM NS_OBJSIGN_CA} - NS_OBJSIGN_CA = $01; - {$EXTERNALSYM NS_ANY_CA} - NS_ANY_CA = (NS_SSL_CA or NS_SMIME_CA or - {$EXTERNALSYM XKU_SSL_SERVER} - NS_OBJSIGN_CA); - {$EXTERNALSYM XKU_SSL_SERVER} - XKU_SSL_SERVER = $1; - {$EXTERNALSYM XKU_SSL_CLIENT} - XKU_SSL_CLIENT = $2; - {$EXTERNALSYM XKU_SMIME} - XKU_SMIME = $4; - {$EXTERNALSYM XKU_CODE_SIGN} - XKU_CODE_SIGN = $8; - {$EXTERNALSYM XKU_SGC} - XKU_SGC = $10; - {$EXTERNALSYM XKU_OCSP_SIGN} - XKU_OCSP_SIGN = $20; - {$EXTERNALSYM XKU_TIMESTAMP} - XKU_TIMESTAMP = $40; - {$EXTERNALSYM XKU_DVCS} - XKU_DVCS = $80; - {$EXTERNALSYM X509_PURPOSE_DYNAMIC} - X509_PURPOSE_DYNAMIC = $1; - {$EXTERNALSYM X509_PURPOSE_DYNAMIC_NAME} - X509_PURPOSE_DYNAMIC_NAME = $2; - - {$EXTERNALSYM X509_PURPOSE_SSL_CLIENT} - X509_PURPOSE_SSL_CLIENT = 1; - {$EXTERNALSYM X509_PURPOSE_SSL_SERVER} - X509_PURPOSE_SSL_SERVER = 2; - {$EXTERNALSYM X509_PURPOSE_NS_SSL_SERVER} - X509_PURPOSE_NS_SSL_SERVER = 3; - {$EXTERNALSYM X509_PURPOSE_SMIME_SIGN} - X509_PURPOSE_SMIME_SIGN = 4; - {$EXTERNALSYM X509_PURPOSE_SMIME_ENCRYPT} - X509_PURPOSE_SMIME_ENCRYPT = 5; - {$EXTERNALSYM X509_PURPOSE_CRL_SIGN} - X509_PURPOSE_CRL_SIGN = 6; - {$EXTERNALSYM X509_PURPOSE_ANY} - X509_PURPOSE_ANY = 7; - {$EXTERNALSYM X509_PURPOSE_OCSP_HELPER} - X509_PURPOSE_OCSP_HELPER = 8; - {$EXTERNALSYM X509_PURPOSE_TIMESTAMP_SIGN} - X509_PURPOSE_TIMESTAMP_SIGN = 9; - - {$EXTERNALSYM X509_PURPOSE_MIN} - X509_PURPOSE_MIN = 1; - {$EXTERNALSYM X509_PURPOSE_MAX} - X509_PURPOSE_MAX = 9; - - -//* Flags for X509V3_EXT_print() */ - - {$EXTERNALSYM X509V3_EXT_UNKNOWN_MASK} - X509V3_EXT_UNKNOWN_MASK = TIdC_LONG($f shl 16); -//* Return error for unknown extensions */ - {$EXTERNALSYM X509V3_EXT_DEFAULT} - X509V3_EXT_DEFAULT = 0; -//* Print error for unknown extensions */ - {$EXTERNALSYM X509V3_EXT_ERROR_UNKNOWN} - X509V3_EXT_ERROR_UNKNOWN = (TIdC_LONG(1) shl 16); -//* ASN1 parse unknown extensions */ - {$EXTERNALSYM X509V3_EXT_PARSE_UNKNOWN} - X509V3_EXT_PARSE_UNKNOWN = (TIdC_LONG(2) shl 16); -//* BIO_dump unknown extensions */ - {$EXTERNALSYM X509V3_EXT_DUMP_UNKNOWN} - X509V3_EXT_DUMP_UNKNOWN = (TIdC_LONG(3) shl 16); - -//* Flags for X509V3_add1_i2d */ - {$EXTERNALSYM X509V3_ADD_OP_MASK} - X509V3_ADD_OP_MASK = TIdC_LONG($f); - {$EXTERNALSYM X509V3_ADD_DEFAULT} - X509V3_ADD_DEFAULT = TIdC_LONG(0); - {$EXTERNALSYM X509V3_ADD_APPEND} - X509V3_ADD_APPEND = TIdC_LONG(1); - {$EXTERNALSYM X509V3_ADD_REPLACE} - X509V3_ADD_REPLACE = TIdC_LONG(2); - {$EXTERNALSYM X509V3_ADD_REPLACE_EXISTING} - X509V3_ADD_REPLACE_EXISTING = TIdC_LONG(3); - {$EXTERNALSYM X509V3_ADD_KEEP_EXISTING} - X509V3_ADD_KEEP_EXISTING = TIdC_LONG(4); - {$EXTERNALSYM X509V3_ADD_DELETE} - X509V3_ADD_DELETE = TIdC_LONG(5); - {$EXTERNALSYM X509V3_ADD_SILENT} - X509V3_ADD_SILENT = TIdC_LONG($10); - - {$IFNDEF OPENSSL_NO_RFC3779} - {$EXTERNALSYM ASIdOrRange_id} - ASIdOrRange_id = 0; - {$EXTERNALSYM ASIdOrRange_range} - ASIdOrRange_range = 1; - - {$EXTERNALSYM ASIdentifierChoice_inherit} - ASIdentifierChoice_inherit = 0; - {$EXTERNALSYM ASIdentifierChoice_asIdsOrRanges} - ASIdentifierChoice_asIdsOrRanges = 1; - - {$EXTERNALSYM IPAddressOrRange_addressPrefix} - IPAddressOrRange_addressPrefix = 0; - {$EXTERNALSYM IPAddressOrRange_addressRange} - IPAddressOrRange_addressRange = 1; - - {$EXTERNALSYM IPAddressChoice_inherit} - IPAddressChoice_inherit = 0; - {$EXTERNALSYM IPAddressChoice_addressesOrRanges} - IPAddressChoice_addressesOrRanges = 1; - -// /* -// * API tag for elements of the ASIdentifer SEQUENCE. -// */ - {$EXTERNALSYM V3_ASID_ASNUM} - V3_ASID_ASNUM = 0; - {$EXTERNALSYM V3_ASID_RDI} - V3_ASID_RDI = 1; - -//* -// * AFI values, assigned by IANA. It'd be nice to make the AFI -// * handling code totally generic, but there are too many little things -// * that would need to be defined for other address families for it to -// * be worth the trouble. -// */ - {$EXTERNALSYM IANA_AFI_IPV4} - IANA_AFI_IPV4 = 1; - {$EXTERNALSYM IANA_AFI_IPV6} - IANA_AFI_IPV6 = 2; - {$ENDIF} - - //* Function codes. */ - {$EXTERNALSYM X509V3_F_A2I_GENERAL_NAME} - X509V3_F_A2I_GENERAL_NAME = 164; - {$EXTERNALSYM X509V3_F_ASIDENTIFIERCHOICE_CANONIZE} - X509V3_F_ASIDENTIFIERCHOICE_CANONIZE = 161; - {$EXTERNALSYM X509V3_F_ASIDENTIFIERCHOICE_IS_CANONICAL} - X509V3_F_ASIDENTIFIERCHOICE_IS_CANONICAL = 162; - {$EXTERNALSYM X509V3_F_COPY_EMAIL} - X509V3_F_COPY_EMAIL = 122; - {$EXTERNALSYM X509V3_F_COPY_ISSUER} - X509V3_F_COPY_ISSUER = 123; - {$EXTERNALSYM X509V3_F_DO_DIRNAME} - X509V3_F_DO_DIRNAME = 144; - {$EXTERNALSYM X509V3_F_DO_EXT_CONF} - X509V3_F_DO_EXT_CONF = 124; - {$EXTERNALSYM X509V3_F_DO_EXT_I2D} - X509V3_F_DO_EXT_I2D = 135; - {$EXTERNALSYM X509V3_F_DO_EXT_NCONF} - X509V3_F_DO_EXT_NCONF = 151; - {$EXTERNALSYM X509V3_F_DO_I2V_NAME_CONSTRAINTS} - X509V3_F_DO_I2V_NAME_CONSTRAINTS = 148; - {$EXTERNALSYM X509V3_F_GNAMES_FROM_SECTNAME} - X509V3_F_GNAMES_FROM_SECTNAME = 156; - {$EXTERNALSYM X509V3_F_HEX_TO_STRING} - X509V3_F_HEX_TO_STRING = 111; - {$EXTERNALSYM X509V3_F_I2S_ASN1_ENUMERATED} - X509V3_F_I2S_ASN1_ENUMERATED = 121; - {$EXTERNALSYM X509V3_F_I2S_ASN1_IA5STRING} - X509V3_F_I2S_ASN1_IA5STRING = 149; - {$EXTERNALSYM X509V3_F_I2S_ASN1_INTEGER} - X509V3_F_I2S_ASN1_INTEGER = 120; - {$EXTERNALSYM X509V3_F_I2V_AUTHORITY_INFO_ACCESS} - X509V3_F_I2V_AUTHORITY_INFO_ACCESS = 138; - {$EXTERNALSYM X509V3_F_NOTICE_SECTION} - X509V3_F_NOTICE_SECTION =132; - {$EXTERNALSYM X509V3_F_NREF_NOS} - X509V3_F_NREF_NOS =133; - {$EXTERNALSYM X509V3_F_POLICY_SECTION} - X509V3_F_POLICY_SECTION =131; - {$EXTERNALSYM X509V3_F_PROCESS_PCI_VALUE} - X509V3_F_PROCESS_PCI_VALUE =150; - {$EXTERNALSYM X509V3_F_R2I_CERTPOL} - X509V3_F_R2I_CERTPOL =130; - {$EXTERNALSYM X509V3_F_R2I_PCI} - X509V3_F_R2I_PCI = 155; - {$EXTERNALSYM X509V3_F_S2I_ASN1_IA5STRING} - X509V3_F_S2I_ASN1_IA5STRING = 100; - {$EXTERNALSYM X509V3_F_S2I_ASN1_INTEGER} - X509V3_F_S2I_ASN1_INTEGER = 108; - {$EXTERNALSYM X509V3_F_S2I_ASN1_OCTET_STRING} - X509V3_F_S2I_ASN1_OCTET_STRING = 112; - {$EXTERNALSYM X509V3_F_S2I_ASN1_SKEY_ID} - X509V3_F_S2I_ASN1_SKEY_ID = 114; - {$EXTERNALSYM X509V3_F_S2I_SKEY_ID} - X509V3_F_S2I_SKEY_ID = 115; - {$EXTERNALSYM X509V3_F_SET_DIST_POINT_NAME} - X509V3_F_SET_DIST_POINT_NAME = 158; - {$EXTERNALSYM X509V3_F_STRING_TO_HEX} - X509V3_F_STRING_TO_HEX = 113; - {$EXTERNALSYM X509V3_F_SXNET_ADD_ID_ASC} - X509V3_F_SXNET_ADD_ID_ASC = 125; - {$EXTERNALSYM X509V3_F_SXNET_ADD_ID_INTEGER} - X509V3_F_SXNET_ADD_ID_INTEGER = 126; - {$EXTERNALSYM X509V3_F_SXNET_ADD_ID_ULONG} - X509V3_F_SXNET_ADD_ID_ULONG = 127; - {$EXTERNALSYM X509V3_F_SXNET_GET_ID_ASC} - X509V3_F_SXNET_GET_ID_ASC = 128; - {$EXTERNALSYM X509V3_F_SXNET_GET_ID_ULONG} - X509V3_F_SXNET_GET_ID_ULONG = 129; - {$EXTERNALSYM X509V3_F_V2I_ASIDENTIFIERS} - X509V3_F_V2I_ASIDENTIFIERS = 163; - {$EXTERNALSYM X509V3_F_V2I_ASN1_BIT_STRING} - X509V3_F_V2I_ASN1_BIT_STRING = 101; - {$EXTERNALSYM X509V3_F_V2I_AUTHORITY_INFO_ACCESS} - X509V3_F_V2I_AUTHORITY_INFO_ACCESS = 139; - {$EXTERNALSYM X509V3_F_V2I_AUTHORITY_KEYID} - X509V3_F_V2I_AUTHORITY_KEYID = 119; - {$EXTERNALSYM X509V3_F_V2I_BASIC_CONSTRAINTS} - X509V3_F_V2I_BASIC_CONSTRAINTS = 102; - {$EXTERNALSYM X509V3_F_V2I_CRLD} - X509V3_F_V2I_CRLD = 134; - {$EXTERNALSYM X509V3_F_V2I_EXTENDED_KEY_USAGE} - X509V3_F_V2I_EXTENDED_KEY_USAGE = 103; - {$EXTERNALSYM X509V3_F_V2I_GENERAL_NAMES} - X509V3_F_V2I_GENERAL_NAMES = 118; - {$EXTERNALSYM X509V3_F_V2I_GENERAL_NAME_EX} - X509V3_F_V2I_GENERAL_NAME_EX = 117; - {$EXTERNALSYM X509V3_F_V2I_IDP} - X509V3_F_V2I_IDP = 157; - {$EXTERNALSYM X509V3_F_V2I_IPADDRBLOCKS} - X509V3_F_V2I_IPADDRBLOCKS = 159; - {$EXTERNALSYM X509V3_F_V2I_ISSUER_ALT} - X509V3_F_V2I_ISSUER_ALT = 153; - {$EXTERNALSYM X509V3_F_V2I_NAME_CONSTRAINTS} - X509V3_F_V2I_NAME_CONSTRAINTS = 147; - {$EXTERNALSYM X509V3_F_V2I_POLICY_CONSTRAINTS} - X509V3_F_V2I_POLICY_CONSTRAINTS = 146; - {$EXTERNALSYM X509V3_F_V2I_POLICY_MAPPINGS} - X509V3_F_V2I_POLICY_MAPPINGS = 145; - {$EXTERNALSYM X509V3_F_V2I_SUBJECT_ALT} - X509V3_F_V2I_SUBJECT_ALT = 154; - {$EXTERNALSYM X509V3_F_V3_ADDR_VALIDATE_PATH_INTERNAL} - X509V3_F_V3_ADDR_VALIDATE_PATH_INTERNAL = 160; - {$EXTERNALSYM X509V3_F_V3_GENERIC_EXTENSION} - X509V3_F_V3_GENERIC_EXTENSION = 116; - {$EXTERNALSYM X509V3_F_X509V3_ADD1_I2D} - X509V3_F_X509V3_ADD1_I2D = 140; - {$EXTERNALSYM X509V3_F_X509V3_ADD_VALUE} - X509V3_F_X509V3_ADD_VALUE = 105; - {$EXTERNALSYM X509V3_F_X509V3_EXT_ADD} - X509V3_F_X509V3_EXT_ADD = 104; - {$EXTERNALSYM X509V3_F_X509V3_EXT_ADD_ALIAS} - X509V3_F_X509V3_EXT_ADD_ALIAS = 106; - {$EXTERNALSYM X509V3_F_X509V3_EXT_CONF} - X509V3_F_X509V3_EXT_CONF = 107; - {$EXTERNALSYM X509V3_F_X509V3_EXT_I2D} - X509V3_F_X509V3_EXT_I2D = 136; - {$EXTERNALSYM X509V3_F_X509V3_EXT_NCONF} - X509V3_F_X509V3_EXT_NCONF = 152; - {$EXTERNALSYM X509V3_F_X509V3_GET_SECTION} - X509V3_F_X509V3_GET_SECTION = 142; - {$EXTERNALSYM X509V3_F_X509V3_GET_STRING} - X509V3_F_X509V3_GET_STRING = 143; - {$EXTERNALSYM X509V3_F_X509V3_GET_VALUE_BOOL} - X509V3_F_X509V3_GET_VALUE_BOOL = 110; - {$EXTERNALSYM X509V3_F_X509V3_PARSE_LIST} - X509V3_F_X509V3_PARSE_LIST = 109; - {$EXTERNALSYM X509V3_F_X509_PURPOSE_ADD} - X509V3_F_X509_PURPOSE_ADD = 137; - {$EXTERNALSYM X509V3_F_X509_PURPOSE_SET} - X509V3_F_X509_PURPOSE_SET = 141; - - //* Reason codes. */ - {$EXTERNALSYM X509V3_R_BAD_IP_ADDRESS} - X509V3_R_BAD_IP_ADDRESS = 118; - {$EXTERNALSYM X509V3_R_BAD_OBJECT} - X509V3_R_BAD_OBJECT = 119; - {$EXTERNALSYM X509V3_R_BN_DEC2BN_ERROR} - X509V3_R_BN_DEC2BN_ERROR = 100; - {$EXTERNALSYM X509V3_R_BN_TO_ASN1_INTEGER_ERROR} - X509V3_R_BN_TO_ASN1_INTEGER_ERROR = 101; - {$EXTERNALSYM X509V3_R_DIRNAME_ERROR} - X509V3_R_DIRNAME_ERROR = 149; - {$EXTERNALSYM X509V3_R_DISTPOINT_ALREADY_SET} - X509V3_R_DISTPOINT_ALREADY_SET = 160; - {$EXTERNALSYM X509V3_R_DUPLICATE_ZONE_ID} - X509V3_R_DUPLICATE_ZONE_ID = 133; - {$EXTERNALSYM X509V3_R_ERROR_CONVERTING_ZONE} - X509V3_R_ERROR_CONVERTING_ZONE = 131; - {$EXTERNALSYM X509V3_R_ERROR_CREATING_EXTENSION} - X509V3_R_ERROR_CREATING_EXTENSION = 144; - {$EXTERNALSYM X509V3_R_ERROR_IN_EXTENSION} - X509V3_R_ERROR_IN_EXTENSION = 128; - {$EXTERNALSYM X509V3_R_EXPECTED_A_SECTION_NAME} - X509V3_R_EXPECTED_A_SECTION_NAME = 137; - {$EXTERNALSYM X509V3_R_EXTENSION_EXISTS} - X509V3_R_EXTENSION_EXISTS = 145; - {$EXTERNALSYM X509V3_R_EXTENSION_NAME_ERROR} - X509V3_R_EXTENSION_NAME_ERROR = 115; - {$EXTERNALSYM X509V3_R_EXTENSION_NOT_FOUND} - X509V3_R_EXTENSION_NOT_FOUND = 102; - {$EXTERNALSYM X509V3_R_EXTENSION_SETTING_NOT_SUPPORTED} - X509V3_R_EXTENSION_SETTING_NOT_SUPPORTED = 103; - {$EXTERNALSYM X509V3_R_EXTENSION_VALUE_ERROR} - X509V3_R_EXTENSION_VALUE_ERROR = 116; - {$EXTERNALSYM X509V3_R_ILLEGAL_EMPTY_EXTENSION} - X509V3_R_ILLEGAL_EMPTY_EXTENSION = 151; - {$EXTERNALSYM X509V3_R_ILLEGAL_HEX_DIGIT} - X509V3_R_ILLEGAL_HEX_DIGIT = 113; - {$EXTERNALSYM X509V3_R_INCORRECT_POLICY_SYNTAX_TAG} - X509V3_R_INCORRECT_POLICY_SYNTAX_TAG = 152; - {$EXTERNALSYM X509V3_R_INVALID_MULTIPLE_RDNS} - X509V3_R_INVALID_MULTIPLE_RDNS = 161; - {$EXTERNALSYM X509V3_R_INVALID_ASNUMBER} - X509V3_R_INVALID_ASNUMBER = 162; - {$EXTERNALSYM X509V3_R_INVALID_ASRANGE} - X509V3_R_INVALID_ASRANGE = 163; - {$EXTERNALSYM X509V3_R_INVALID_BOOLEAN_STRING} - X509V3_R_INVALID_BOOLEAN_STRING = 104; - {$EXTERNALSYM X509V3_R_INVALID_EXTENSION_STRING} - X509V3_R_INVALID_EXTENSION_STRING = 105; - {$EXTERNALSYM X509V3_R_INVALID_INHERITANCE} - X509V3_R_INVALID_INHERITANCE = 165; - {$EXTERNALSYM X509V3_R_INVALID_IPADDRESS} - X509V3_R_INVALID_IPADDRESS = 166; - {$EXTERNALSYM X509V3_R_INVALID_NAME} - X509V3_R_INVALID_NAME = 106; - {$EXTERNALSYM X509V3_R_INVALID_NULL_ARGUMENT} - X509V3_R_INVALID_NULL_ARGUMENT = 107; - {$EXTERNALSYM X509V3_R_INVALID_NULL_NAME} - X509V3_R_INVALID_NULL_NAME = 108; - {$EXTERNALSYM X509V3_R_INVALID_NULL_VALUE} - X509V3_R_INVALID_NULL_VALUE = 109; - {$EXTERNALSYM X509V3_R_INVALID_NUMBER} - X509V3_R_INVALID_NUMBER = 140; - {$EXTERNALSYM X509V3_R_INVALID_NUMBERS} - X509V3_R_INVALID_NUMBERS = 141; - {$EXTERNALSYM X509V3_R_INVALID_OBJECT_IDENTIFIER} - X509V3_R_INVALID_OBJECT_IDENTIFIER = 110; - {$EXTERNALSYM X509V3_R_INVALID_OPTION} - X509V3_R_INVALID_OPTION = 138; - {$EXTERNALSYM X509V3_R_INVALID_POLICY_IDENTIFIER} - X509V3_R_INVALID_POLICY_IDENTIFIER = 134; - {$EXTERNALSYM X509V3_R_INVALID_PROXY_POLICY_SETTING} - X509V3_R_INVALID_PROXY_POLICY_SETTING = 153; - {$EXTERNALSYM X509V3_R_INVALID_PURPOSE} - X509V3_R_INVALID_PURPOSE = 146; - {$EXTERNALSYM X509V3_R_INVALID_SAFI} - X509V3_R_INVALID_SAFI = 164; - {$EXTERNALSYM X509V3_R_INVALID_SECTION} - X509V3_R_INVALID_SECTION = 135; - {$EXTERNALSYM X509V3_R_INVALID_SYNTAX} - X509V3_R_INVALID_SYNTAX = 143; - {$EXTERNALSYM X509V3_R_ISSUER_DECODE_ERROR} - X509V3_R_ISSUER_DECODE_ERROR = 126; - {$EXTERNALSYM X509V3_R_MISSING_VALUE} - X509V3_R_MISSING_VALUE = 124; - {$EXTERNALSYM X509V3_R_NEED_ORGANIZATION_AND_NUMBERS} - X509V3_R_NEED_ORGANIZATION_AND_NUMBERS = 142; - {$EXTERNALSYM X509V3_R_NO_CONFIG_DATABASE} - X509V3_R_NO_CONFIG_DATABASE = 136; - {$EXTERNALSYM X509V3_R_NO_ISSUER_CERTIFICATE} - X509V3_R_NO_ISSUER_CERTIFICATE = 121; - {$EXTERNALSYM X509V3_R_NO_ISSUER_DETAILS} - X509V3_R_NO_ISSUER_DETAILS = 127; - {$EXTERNALSYM X509V3_R_NO_POLICY_IDENTIFIER} - X509V3_R_NO_POLICY_IDENTIFIER = 139; - {$EXTERNALSYM X509V3_R_NO_PROXY_CERT_POLICY_LANGUAGE_DEFINED} - X509V3_R_NO_PROXY_CERT_POLICY_LANGUAGE_DEFINED = 154; - {$EXTERNALSYM X509V3_R_NO_PUBLIC_KEY} - X509V3_R_NO_PUBLIC_KEY = 114; - {$EXTERNALSYM X509V3_R_NO_SUBJECT_DETAILS} - X509V3_R_NO_SUBJECT_DETAILS = 125; - {$EXTERNALSYM X509V3_R_ODD_NUMBER_OF_DIGITS} - X509V3_R_ODD_NUMBER_OF_DIGITS = 112; - {$EXTERNALSYM X509V3_R_OPERATION_NOT_DEFINED} - X509V3_R_OPERATION_NOT_DEFINED = 148; - {$EXTERNALSYM X509V3_R_OTHERNAME_ERROR} - X509V3_R_OTHERNAME_ERROR = 147; - {$EXTERNALSYM X509V3_R_POLICY_LANGUAGE_ALREADY_DEFINED} - X509V3_R_POLICY_LANGUAGE_ALREADY_DEFINED = 155; - {$EXTERNALSYM X509V3_R_POLICY_PATH_LENGTH} - X509V3_R_POLICY_PATH_LENGTH = 156; - {$EXTERNALSYM X509V3_R_POLICY_PATH_LENGTH_ALREADY_DEFINED} - X509V3_R_POLICY_PATH_LENGTH_ALREADY_DEFINED = 157; - {$EXTERNALSYM X509V3_R_POLICY_SYNTAX_NOT_CURRENTLY_SUPPORTED} - X509V3_R_POLICY_SYNTAX_NOT_CURRENTLY_SUPPORTED = 158; - {$EXTERNALSYM X509V3_R_POLICY_WHEN_PROXY_LANGUAGE_REQUIRES_NO_POLICY} - X509V3_R_POLICY_WHEN_PROXY_LANGUAGE_REQUIRES_NO_POLICY = 159; - {$EXTERNALSYM X509V3_R_SECTION_NOT_FOUND} - X509V3_R_SECTION_NOT_FOUND = 150; - {$EXTERNALSYM X509V3_R_UNABLE_TO_GET_ISSUER_DETAILS} - X509V3_R_UNABLE_TO_GET_ISSUER_DETAILS = 122; - {$EXTERNALSYM X509V3_R_UNABLE_TO_GET_ISSUER_KEYID} - X509V3_R_UNABLE_TO_GET_ISSUER_KEYID = 123; - {$EXTERNALSYM X509V3_R_UNKNOWN_BIT_STRING_ARGUMENT} - X509V3_R_UNKNOWN_BIT_STRING_ARGUMENT = 111; - {$EXTERNALSYM X509V3_R_UNKNOWN_EXTENSION} - X509V3_R_UNKNOWN_EXTENSION = 129; - {$EXTERNALSYM X509V3_R_UNKNOWN_EXTENSION_NAME} - X509V3_R_UNKNOWN_EXTENSION_NAME = 130; - {$EXTERNALSYM X509V3_R_UNKNOWN_OPTION} - X509V3_R_UNKNOWN_OPTION = 120; - {$EXTERNALSYM X509V3_R_UNSUPPORTED_OPTION} - X509V3_R_UNSUPPORTED_OPTION = 117; - {$EXTERNALSYM X509V3_R_UNSUPPORTED_TYPE} - X509V3_R_UNSUPPORTED_TYPE = 167; - {$EXTERNALSYM X509V3_R_USER_TOO_LONG} - X509V3_R_USER_TOO_LONG = 132; -//* Possible values for status. See ts_resp_print.c && ts_resp_verify.c. */ - {$EXTERNALSYM TS_STATUS_GRANTED} - TS_STATUS_GRANTED = 0; - {$EXTERNALSYM TS_STATUS_GRANTED_WITH_MODS} - TS_STATUS_GRANTED_WITH_MODS = 1; - {$EXTERNALSYM TS_STATUS_REJECTION} - TS_STATUS_REJECTION = 2; - {$EXTERNALSYM TS_STATUS_WAITING} - TS_STATUS_WAITING = 3; - {$EXTERNALSYM TS_STATUS_REVOCATION_WARNING} - TS_STATUS_REVOCATION_WARNING = 4; - {$EXTERNALSYM TS_STATUS_REVOCATION_NOTIFICATION} - TS_STATUS_REVOCATION_NOTIFICATION = 5; - -//* Possible values for failure_info. See ts_resp_print.c && ts_resp_verify.c */ - {$EXTERNALSYM TS_INFO_BAD_ALG} - TS_INFO_BAD_ALG = 0; - {$EXTERNALSYM TS_INFO_BAD_REQUEST} - TS_INFO_BAD_REQUEST = 2; - {$EXTERNALSYM TS_INFO_BAD_DATA_FORMAT} - TS_INFO_BAD_DATA_FORMAT = 5; - {$EXTERNALSYM TS_INFO_TIME_NOT_AVAILABLE} - TS_INFO_TIME_NOT_AVAILABLE = 14; - {$EXTERNALSYM TS_INFO_UNACCEPTED_POLICY} - TS_INFO_UNACCEPTED_POLICY = 15; - {$EXTERNALSYM TS_INFO_UNACCEPTED_EXTENSION} - TS_INFO_UNACCEPTED_EXTENSION = 16; - {$EXTERNALSYM TS_INFO_ADD_INFO_NOT_AVAILABLE} - TS_INFO_ADD_INFO_NOT_AVAILABLE = 17; - {$EXTERNALSYM TS_INFO_SYSTEM_FAILURE} - TS_INFO_SYSTEM_FAILURE = 25; -//* Declarations related to response generation, defined in ts/ts_resp_sign.c. */ -//* Optional flags for response generation. */ -//* Don't include the TSA name in response. */ - {$EXTERNALSYM TS_TSA_NAME} - TS_TSA_NAME = $01; -//* Set ordering to true in response. */ - {$EXTERNALSYM TS_ORDERING} - TS_ORDERING = $02; -///* -// * Include the signer certificate and the other specified certificates in -// * the ESS signing certificate attribute beside the PKCS7 signed data. -// * Only the signer certificates is included by default. -// */ - {$EXTERNALSYM TS_ESS_CERT_ID_CHAIN} - TS_ESS_CERT_ID_CHAIN = $04; -//* At most we accept usec precision. */ - {$EXTERNALSYM TS_MAX_CLOCK_PRECISION_DIGITS} - TS_MAX_CLOCK_PRECISION_DIGITS = 6; -//* Context structure for the generic verify method. */ - -//* Verify the signer's certificate and the signature of the response. */ - {$EXTERNALSYM TS_VFY_SIGNATURE} - TS_VFY_SIGNATURE = TIdC_ULONG(1 shl 0); -//* Verify the version number of the response. */ - {$EXTERNALSYM TS_VFY_VERSION} - TS_VFY_VERSION = TIdC_ULONG(1 shl 1); - ///* Verify if the policy supplied by the user matches the policy of the TSA. */ - {$EXTERNALSYM TS_VFY_POLICY} - TS_VFY_POLICY = TIdC_ULONG(1 shl 2); - -///* Verify the message imprint provided by the user. This flag should not be -// specified with TS_VFY_DATA. */ - {$EXTERNALSYM TS_VFY_IMPRINT} - TS_VFY_IMPRINT = TIdC_ULONG(1 shl 3); -///* Verify the message imprint computed by the verify method from the user -// provided data and the MD algorithm of the response. This flag should not be -// specified with TS_VFY_IMPRINT. */ - {$EXTERNALSYM TS_VFY_DATA} - TS_VFY_DATA = TIdC_ULONG(1 shl 4); -//* Verify the nonce value. */ - {$EXTERNALSYM TS_VFY_NONCE} - TS_VFY_NONCE = TIdC_ULONG(1 shl 5); -//* Verify if the TSA name field matches the signer certificate. */ - {$EXTERNALSYM TS_VFY_SIGNER} - TS_VFY_SIGNER = TIdC_ULONG(1 shl 6); -//* Verify if the TSA name field equals to the user provided name. */ - {$EXTERNALSYM TS_VFY_TSA_NAME} - TS_VFY_TSA_NAME = TIdC_ULONG(1 shl 7); - -//* You can use the following convenience constants. */ - {$EXTERNALSYM TS_VFY_ALL_IMPRINT} - TS_VFY_ALL_IMPRINT = (TS_VFY_SIGNATURE - or TS_VFY_VERSION - or TS_VFY_POLICY - or TS_VFY_IMPRINT - or TS_VFY_NONCE - or TS_VFY_SIGNER - or TS_VFY_TSA_NAME); - {$EXTERNALSYM TS_VFY_ALL_DATA} - TS_VFY_ALL_DATA = (TS_VFY_SIGNATURE - or TS_VFY_VERSION - or TS_VFY_POLICY - or TS_VFY_DATA - or TS_VFY_NONCE - or TS_VFY_SIGNER - or TS_VFY_TSA_NAME); - -//* Error codes for the TS functions. */ - - -//* Function codes. */ - {$EXTERNALSYM TS_F_D2I_TS_RESP} - TS_F_D2I_TS_RESP = 147; - {$EXTERNALSYM TS_F_DEF_SERIAL_CB} - TS_F_DEF_SERIAL_CB = 110; - {$EXTERNALSYM TS_F_DEF_TIME_CB} - TS_F_DEF_TIME_CB = 111; - {$EXTERNALSYM TS_F_ESS_ADD_SIGNING_CERT} - TS_F_ESS_ADD_SIGNING_CERT = 112; - {$EXTERNALSYM TS_F_ESS_CERT_ID_NEW_INIT} - TS_F_ESS_CERT_ID_NEW_INIT = 113; - {$EXTERNALSYM TS_F_ESS_SIGNING_CERT_NEW_INIT} - TS_F_ESS_SIGNING_CERT_NEW_INIT = 114; - {$EXTERNALSYM TS_F_INT_TS_RESP_VERIFY_TOKEN} - TS_F_INT_TS_RESP_VERIFY_TOKEN = 149; - {$EXTERNALSYM TS_F_PKCS7_TO_TS_TST_INFO} - TS_F_PKCS7_TO_TS_TST_INFO = 148; - {$EXTERNALSYM TS_F_TS_ACCURACY_SET_MICROS} - TS_F_TS_ACCURACY_SET_MICROS = 115; - {$EXTERNALSYM TS_F_TS_ACCURACY_SET_MILLIS} - TS_F_TS_ACCURACY_SET_MILLIS = 116; - {$EXTERNALSYM TS_F_TS_ACCURACY_SET_SECONDS} - TS_F_TS_ACCURACY_SET_SECONDS = 117; - {$EXTERNALSYM TS_F_TS_CHECK_IMPRINTS} - TS_F_TS_CHECK_IMPRINTS = 100; - {$EXTERNALSYM TS_F_TS_CHECK_NONCES} - TS_F_TS_CHECK_NONCES = 101; - {$EXTERNALSYM TS_F_TS_CHECK_POLICY} - TS_F_TS_CHECK_POLICY = 102; - {$EXTERNALSYM TS_F_TS_CHECK_SIGNING_CERTS} - TS_F_TS_CHECK_SIGNING_CERTS = 103; - {$EXTERNALSYM TS_F_TS_CHECK_STATUS_INFO} - TS_F_TS_CHECK_STATUS_INFO = 104; - {$EXTERNALSYM TS_F_TS_COMPUTE_IMPRINT} - TS_F_TS_COMPUTE_IMPRINT = 145; - {$EXTERNALSYM TS_F_TS_CONF_SET_DEFAULT_ENGINE} - TS_F_TS_CONF_SET_DEFAULT_ENGINE = 146; - {$EXTERNALSYM TS_F_TS_GET_STATUS_TEXT} - TS_F_TS_GET_STATUS_TEXT = 105; - {$EXTERNALSYM TS_F_TS_MSG_IMPRINT_SET_ALGO} - TS_F_TS_MSG_IMPRINT_SET_ALGO = 118; - {$EXTERNALSYM TS_F_TS_REQ_SET_MSG_IMPRINT} - TS_F_TS_REQ_SET_MSG_IMPRINT = 119; - {$EXTERNALSYM TS_F_TS_REQ_SET_NONCE} - TS_F_TS_REQ_SET_NONCE = 120; - {$EXTERNALSYM TS_F_TS_REQ_SET_POLICY_ID} - TS_F_TS_REQ_SET_POLICY_ID = 121; - {$EXTERNALSYM TS_F_TS_RESP_CREATE_RESPONSE} - TS_F_TS_RESP_CREATE_RESPONSE = 122; - {$EXTERNALSYM TS_F_TS_RESP_CREATE_TST_INFO} - TS_F_TS_RESP_CREATE_TST_INFO = 123; - {$EXTERNALSYM TS_F_TS_RESP_CTX_ADD_FAILURE_INFO} - TS_F_TS_RESP_CTX_ADD_FAILURE_INFO = 124; - {$EXTERNALSYM TS_F_TS_RESP_CTX_ADD_MD} - TS_F_TS_RESP_CTX_ADD_MD = 125; - {$EXTERNALSYM TS_F_TS_RESP_CTX_ADD_POLICY} - TS_F_TS_RESP_CTX_ADD_POLICY = 126; - {$EXTERNALSYM TS_F_TS_RESP_CTX_NEW} - TS_F_TS_RESP_CTX_NEW = 127; - {$EXTERNALSYM TS_F_TS_RESP_CTX_SET_ACCURACY} - TS_F_TS_RESP_CTX_SET_ACCURACY = 128; - {$EXTERNALSYM TS_F_TS_RESP_CTX_SET_CERTS} - TS_F_TS_RESP_CTX_SET_CERTS = 129; - {$EXTERNALSYM TS_F_TS_RESP_CTX_SET_DEF_POLICY} - TS_F_TS_RESP_CTX_SET_DEF_POLICY = 130; - {$EXTERNALSYM TS_F_TS_RESP_CTX_SET_SIGNER_CERT} - TS_F_TS_RESP_CTX_SET_SIGNER_CERT = 131; - {$EXTERNALSYM TS_F_TS_RESP_CTX_SET_STATUS_INFO} - TS_F_TS_RESP_CTX_SET_STATUS_INFO = 132; - {$EXTERNALSYM TS_F_TS_RESP_GET_POLICY} - TS_F_TS_RESP_GET_POLICY = 133; - {$EXTERNALSYM TS_F_TS_RESP_SET_GENTIME_WITH_PRECISION} - TS_F_TS_RESP_SET_GENTIME_WITH_PRECISION = 134; - {$EXTERNALSYM TS_F_TS_RESP_SET_STATUS_INFO} - TS_F_TS_RESP_SET_STATUS_INFO = 135; - {$EXTERNALSYM TS_F_TS_RESP_SET_TST_INFO} - TS_F_TS_RESP_SET_TST_INFO = 150; - {$EXTERNALSYM TS_F_TS_RESP_SIGN} - TS_F_TS_RESP_SIGN = 136; - {$EXTERNALSYM TS_F_TS_RESP_VERIFY_SIGNATURE} - TS_F_TS_RESP_VERIFY_SIGNATURE = 106; - {$EXTERNALSYM TS_F_TS_RESP_VERIFY_TOKEN} - TS_F_TS_RESP_VERIFY_TOKEN = 107; - {$EXTERNALSYM TS_F_TS_TST_INFO_SET_ACCURACY} - TS_F_TS_TST_INFO_SET_ACCURACY = 137; - {$EXTERNALSYM TS_F_TS_TST_INFO_SET_MSG_IMPRINT} - TS_F_TS_TST_INFO_SET_MSG_IMPRINT = 138; - {$EXTERNALSYM TS_F_TS_TST_INFO_SET_NONCE} - TS_F_TS_TST_INFO_SET_NONCE = 139; - {$EXTERNALSYM TS_F_TS_TST_INFO_SET_POLICY_ID} - TS_F_TS_TST_INFO_SET_POLICY_ID = 140; - {$EXTERNALSYM TS_F_TS_TST_INFO_SET_SERIAL} - TS_F_TS_TST_INFO_SET_SERIAL = 141; - {$EXTERNALSYM TS_F_TS_TST_INFO_SET_TIME} - TS_F_TS_TST_INFO_SET_TIME = 142; - {$EXTERNALSYM TS_F_TS_TST_INFO_SET_TSA} - TS_F_TS_TST_INFO_SET_TSA = 143; - {$EXTERNALSYM TS_F_TS_VERIFY} - TS_F_TS_VERIFY = 108; - {$EXTERNALSYM TS_F_TS_VERIFY_CERT} - TS_F_TS_VERIFY_CERT = 109; - {$EXTERNALSYM TS_F_TS_VERIFY_CTX_NEW} - TS_F_TS_VERIFY_CTX_NEW = 144; - -//* Reason codes. */ - {$EXTERNALSYM TS_R_BAD_PKCS7_TYPE} - TS_R_BAD_PKCS7_TYPE = 132; - {$EXTERNALSYM TS_R_BAD_TYPE} - TS_R_BAD_TYPE = 133; - {$EXTERNALSYM TS_R_CERTIFICATE_VERIFY_ERROR} - TS_R_CERTIFICATE_VERIFY_ERROR = 100; - {$EXTERNALSYM TS_R_COULD_NOT_SET_ENGINE} - TS_R_COULD_NOT_SET_ENGINE = 127; - {$EXTERNALSYM TS_R_COULD_NOT_SET_TIME} - TS_R_COULD_NOT_SET_TIME = 115; - {$EXTERNALSYM TS_R_D2I_TS_RESP_INT_FAILED} - TS_R_D2I_TS_RESP_INT_FAILED = 128; - {$EXTERNALSYM TS_R_DETACHED_CONTENT} - TS_R_DETACHED_CONTENT = 134; - {$EXTERNALSYM TS_R_ESS_ADD_SIGNING_CERT_ERROR} - TS_R_ESS_ADD_SIGNING_CERT_ERROR = 116; - {$EXTERNALSYM TS_R_ESS_SIGNING_CERTIFICATE_ERROR} - TS_R_ESS_SIGNING_CERTIFICATE_ERROR = 101; - {$EXTERNALSYM TS_R_INVALID_NULL_POINTER} - TS_R_INVALID_NULL_POINTER = 102; - {$EXTERNALSYM TS_R_INVALID_SIGNER_CERTIFICATE_PURPOSE} - TS_R_INVALID_SIGNER_CERTIFICATE_PURPOSE = 117; - {$EXTERNALSYM TS_R_MESSAGE_IMPRINT_MISMATCH} - TS_R_MESSAGE_IMPRINT_MISMATCH = 103; - {$EXTERNALSYM TS_R_NONCE_MISMATCH} - TS_R_NONCE_MISMATCH = 104; - {$EXTERNALSYM TS_R_NONCE_NOT_RETURNED} - TS_R_NONCE_NOT_RETURNED = 105; - {$EXTERNALSYM TS_R_NO_CONTENT} - TS_R_NO_CONTENT = 106; - {$EXTERNALSYM TS_R_NO_TIME_STAMP_TOKEN} - TS_R_NO_TIME_STAMP_TOKEN = 107; - {$EXTERNALSYM TS_R_PKCS7_ADD_SIGNATURE_ERROR} - TS_R_PKCS7_ADD_SIGNATURE_ERROR = 118; - {$EXTERNALSYM TS_R_PKCS7_ADD_SIGNED_ATTR_ERROR} - TS_R_PKCS7_ADD_SIGNED_ATTR_ERROR = 119; - {$EXTERNALSYM TS_R_PKCS7_TO_TS_TST_INFO_FAILED} - TS_R_PKCS7_TO_TS_TST_INFO_FAILED = 129; - {$EXTERNALSYM TS_R_POLICY_MISMATCH} - TS_R_POLICY_MISMATCH = 108; - {$EXTERNALSYM TS_R_PRIVATE_KEY_DOES_NOT_MATCH_CERTIFICATE} - TS_R_PRIVATE_KEY_DOES_NOT_MATCH_CERTIFICATE = 120; - {$EXTERNALSYM TS_R_RESPONSE_SETUP_ERROR} - TS_R_RESPONSE_SETUP_ERROR = 121; - {$EXTERNALSYM TS_R_SIGNATURE_FAILURE} - TS_R_SIGNATURE_FAILURE = 109; - {$EXTERNALSYM TS_R_THERE_MUST_BE_ONE_SIGNER} - TS_R_THERE_MUST_BE_ONE_SIGNER = 110; - {$EXTERNALSYM TS_R_TIME_SYSCALL_ERROR} - TS_R_TIME_SYSCALL_ERROR = 122; - {$EXTERNALSYM TS_R_TOKEN_NOT_PRESENT} - TS_R_TOKEN_NOT_PRESENT = 130; - {$EXTERNALSYM TS_R_TOKEN_PRESENT} - TS_R_TOKEN_PRESENT = 131; - {$EXTERNALSYM TS_R_TSA_NAME_MISMATCH} - TS_R_TSA_NAME_MISMATCH = 111; - {$EXTERNALSYM TS_R_TSA_UNTRUSTED} - TS_R_TSA_UNTRUSTED = 112; - {$EXTERNALSYM TS_R_TST_INFO_SETUP_ERROR} - TS_R_TST_INFO_SETUP_ERROR = 123; - {$EXTERNALSYM TS_R_TS_DATASIGN} - TS_R_TS_DATASIGN = 124; - {$EXTERNALSYM TS_R_UNACCEPTABLE_POLICY} - TS_R_UNACCEPTABLE_POLICY = 125; - {$EXTERNALSYM TS_R_UNSUPPORTED_MD_ALGORITHM} - TS_R_UNSUPPORTED_MD_ALGORITHM = 126; - {$EXTERNALSYM TS_R_UNSUPPORTED_VERSION} - TS_R_UNSUPPORTED_VERSION = 113; - {$EXTERNALSYM TS_R_WRONG_CONTENT_TYPE} - TS_R_WRONG_CONTENT_TYPE = 114; - - {$UNDEF OPENSSL_NO_CMS} - {$IFNDEF OPENSSL_NO_CMS} - {$EXTERNALSYM CMS_SIGNERINFO_ISSUER_SERIAL} - CMS_SIGNERINFO_ISSUER_SERIAL = 0; - {$EXTERNALSYM CMS_SIGNERINFO_KEYIDENTIFIER} - CMS_SIGNERINFO_KEYIDENTIFIER = 1; - {$EXTERNALSYM CMS_RECIPINFO_TRANS} - CMS_RECIPINFO_TRANS = 0; - {$EXTERNALSYM CMS_RECIPINFO_AGREE} - CMS_RECIPINFO_AGREE = 1; - {$EXTERNALSYM CMS_RECIPINFO_KEK} - CMS_RECIPINFO_KEK = 2; - {$EXTERNALSYM CMS_RECIPINFO_PASS} - CMS_RECIPINFO_PASS = 3; - {$EXTERNALSYM CMS_RECIPINFO_OTHER} - CMS_RECIPINFO_OTHER = 4; - -//* S/MIME related flags */ - {$EXTERNALSYM CMS_TEXT} - CMS_TEXT = $1; - {$EXTERNALSYM CMS_NOCERTS} - CMS_NOCERTS = $2; - {$EXTERNALSYM CMS_NO_CONTENT_VERIFY} - CMS_NO_CONTENT_VERIFY = $4; - {$EXTERNALSYM CMS_NO_ATTR_VERIFY} - CMS_NO_ATTR_VERIFY = $8; - {$EXTERNALSYM CMS_NOSIGS} - CMS_NOSIGS = (CMS_NO_CONTENT_VERIFY or CMS_NO_ATTR_VERIFY); - {$EXTERNALSYM CMS_NOINTERN} - CMS_NOINTERN = $10; - {$EXTERNALSYM CMS_NO_SIGNER_CERT_VERIFY} - CMS_NO_SIGNER_CERT_VERIFY = $20; - {$EXTERNALSYM CMS_NOVERIFY} - CMS_NOVERIFY = $20; - {$EXTERNALSYM CMS_DETACHED} - CMS_DETACHED = $40; - {$EXTERNALSYM CMS_BINARY} - CMS_BINARY = $80; - {$EXTERNALSYM CMS_NOATTR} - CMS_NOATTR = $100; - {$EXTERNALSYM CMS_NOSMIMECAP} - CMS_NOSMIMECAP = $200; - {$EXTERNALSYM CMS_NOOLDMIMETYPE} - CMS_NOOLDMIMETYPE = $400; - {$EXTERNALSYM CMS_CRLFEOL} - CMS_CRLFEOL = $800; - {$EXTERNALSYM CMS_STREAM} - CMS_STREAM = $1000; - {$EXTERNALSYM CMS_NOCRL} - CMS_NOCRL = $2000; - {$EXTERNALSYM CMS_PARTIAL} - CMS_PARTIAL = $4000; - {$EXTERNALSYM CMS_REUSE_DIGEST} - CMS_REUSE_DIGEST = $8000; - {$EXTERNALSYM CMS_USE_KEYID} - CMS_USE_KEYID = $10000; - -//* Error codes for the CMS functions. */ - -//* Function codes. */ - {$EXTERNALSYM CMS_F_CHECK_CONTENT} - CMS_F_CHECK_CONTENT = 99; - {$EXTERNALSYM CMS_F_CMS_ADD0_CERT} - CMS_F_CMS_ADD0_CERT = 164; - {$EXTERNALSYM CMS_F_CMS_ADD0_RECIPIENT_KEY} - CMS_F_CMS_ADD0_RECIPIENT_KEY = 100; - {$EXTERNALSYM CMS_F_CMS_ADD1_RECEIPTREQUEST} - CMS_F_CMS_ADD1_RECEIPTREQUEST = 158; - {$EXTERNALSYM CMS_F_CMS_ADD1_RECIPIENT_CERT} - CMS_F_CMS_ADD1_RECIPIENT_CERT = 101; - {$EXTERNALSYM CMS_F_CMS_ADD1_SIGNER} - CMS_F_CMS_ADD1_SIGNER = 102; - {$EXTERNALSYM CMS_F_CMS_ADD1_SIGNINGTIME} - CMS_F_CMS_ADD1_SIGNINGTIME = 103; - {$EXTERNALSYM CMS_F_CMS_COMPRESS} - CMS_F_CMS_COMPRESS = 104; - {$EXTERNALSYM CMS_F_CMS_COMPRESSEDDATA_CREATE} - CMS_F_CMS_COMPRESSEDDATA_CREATE = 105; - {$EXTERNALSYM CMS_F_CMS_COMPRESSEDDATA_INIT_BIO} - CMS_F_CMS_COMPRESSEDDATA_INIT_BIO = 106; - {$EXTERNALSYM CMS_F_CMS_COPY_CONTENT} - CMS_F_CMS_COPY_CONTENT = 107; - {$EXTERNALSYM CMS_F_CMS_COPY_MESSAGEDIGEST} - CMS_F_CMS_COPY_MESSAGEDIGEST = 108; - {$EXTERNALSYM CMS_F_CMS_DATA} - CMS_F_CMS_DATA = 109; - {$EXTERNALSYM CMS_F_CMS_DATAFINAL} - CMS_F_CMS_DATAFINAL = 110; - {$EXTERNALSYM CMS_F_CMS_DATAINIT} - CMS_F_CMS_DATAINIT = 111; - {$EXTERNALSYM CMS_F_CMS_DECRYPT} - CMS_F_CMS_DECRYPT = 112; - {$EXTERNALSYM CMS_F_CMS_DECRYPT_SET1_KEY} - CMS_F_CMS_DECRYPT_SET1_KEY = 113; - {$EXTERNALSYM CMS_F_CMS_DECRYPT_SET1_PKEY} - CMS_F_CMS_DECRYPT_SET1_PKEY = 114; - {$EXTERNALSYM CMS_F_CMS_DIGESTALGORITHM_FIND_CTX} - CMS_F_CMS_DIGESTALGORITHM_FIND_CTX = 115; - {$EXTERNALSYM CMS_F_CMS_DIGESTALGORITHM_INIT_BIO} - CMS_F_CMS_DIGESTALGORITHM_INIT_BIO = 116; - {$EXTERNALSYM CMS_F_CMS_DIGESTEDDATA_DO_FINAL} - CMS_F_CMS_DIGESTEDDATA_DO_FINAL = 117; - {$EXTERNALSYM CMS_F_CMS_DIGEST_VERIFY} - CMS_F_CMS_DIGEST_VERIFY = 118; - {$EXTERNALSYM CMS_F_CMS_ENCODE_RECEIPT} - CMS_F_CMS_ENCODE_RECEIPT = 161; - {$EXTERNALSYM CMS_F_CMS_ENCRYPT} - CMS_F_CMS_ENCRYPT = 119; - {$EXTERNALSYM CMS_F_CMS_ENCRYPTEDCONTENT_INIT_BIO} - CMS_F_CMS_ENCRYPTEDCONTENT_INIT_BIO = 120; - {$EXTERNALSYM CMS_F_CMS_ENCRYPTEDDATA_DECRYPT} - CMS_F_CMS_ENCRYPTEDDATA_DECRYPT = 121; - {$EXTERNALSYM CMS_F_CMS_ENCRYPTEDDATA_ENCRYPT} - CMS_F_CMS_ENCRYPTEDDATA_ENCRYPT = 122; - {$EXTERNALSYM CMS_F_CMS_ENCRYPTEDDATA_SET1_KEY} - CMS_F_CMS_ENCRYPTEDDATA_SET1_KEY = 123; - {$EXTERNALSYM CMS_F_CMS_ENVELOPEDDATA_CREATE} - CMS_F_CMS_ENVELOPEDDATA_CREATE = 124; - {$EXTERNALSYM CMS_F_CMS_ENVELOPEDDATA_INIT_BIO} - CMS_F_CMS_ENVELOPEDDATA_INIT_BIO = 125; - {$EXTERNALSYM CMS_F_CMS_ENVELOPED_DATA_INIT} - CMS_F_CMS_ENVELOPED_DATA_INIT = 126; - {$EXTERNALSYM CMS_F_CMS_FINAL} - CMS_F_CMS_FINAL = 127; - {$EXTERNALSYM CMS_F_CMS_GET0_CERTIFICATE_CHOICES} - CMS_F_CMS_GET0_CERTIFICATE_CHOICES = 128; - {$EXTERNALSYM CMS_F_CMS_GET0_CONTENT} - CMS_F_CMS_GET0_CONTENT = 129; - {$EXTERNALSYM CMS_F_CMS_GET0_ECONTENT_TYPE} - CMS_F_CMS_GET0_ECONTENT_TYPE = 130; - {$EXTERNALSYM CMS_F_CMS_GET0_ENVELOPED} - CMS_F_CMS_GET0_ENVELOPED = 131; - {$EXTERNALSYM CMS_F_CMS_GET0_REVOCATION_CHOICES} - CMS_F_CMS_GET0_REVOCATION_CHOICES = 132; - {$EXTERNALSYM CMS_F_CMS_GET0_SIGNED} - CMS_F_CMS_GET0_SIGNED = 133; - {$EXTERNALSYM CMS_F_CMS_MSGSIGDIGEST_ADD1} - CMS_F_CMS_MSGSIGDIGEST_ADD1 = 162; - {$EXTERNALSYM CMS_F_CMS_RECEIPTREQUEST_CREATE0} - CMS_F_CMS_RECEIPTREQUEST_CREATE0 = 159; - {$EXTERNALSYM CMS_F_CMS_RECEIPT_VERIFY} - CMS_F_CMS_RECEIPT_VERIFY = 160; - {$EXTERNALSYM CMS_F_CMS_RECIPIENTINFO_DECRYPT} - CMS_F_CMS_RECIPIENTINFO_DECRYPT = 134; - {$EXTERNALSYM CMS_F_CMS_RECIPIENTINFO_KEKRI_DECRYPT} - CMS_F_CMS_RECIPIENTINFO_KEKRI_DECRYPT = 135; - {$EXTERNALSYM CMS_F_CMS_RECIPIENTINFO_KEKRI_ENCRYPT} - CMS_F_CMS_RECIPIENTINFO_KEKRI_ENCRYPT = 136; - {$EXTERNALSYM CMS_F_CMS_RECIPIENTINFO_KEKRI_GET0_ID} - CMS_F_CMS_RECIPIENTINFO_KEKRI_GET0_ID = 137; - {$EXTERNALSYM CMS_F_CMS_RECIPIENTINFO_KEKRI_ID_CMP} - CMS_F_CMS_RECIPIENTINFO_KEKRI_ID_CMP = 138; - {$EXTERNALSYM CMS_F_CMS_RECIPIENTINFO_KTRI_CERT_CMP} - CMS_F_CMS_RECIPIENTINFO_KTRI_CERT_CMP = 139; - {$EXTERNALSYM CMS_F_CMS_RECIPIENTINFO_KTRI_DECRYPT} - CMS_F_CMS_RECIPIENTINFO_KTRI_DECRYPT = 140; - {$EXTERNALSYM CMS_F_CMS_RECIPIENTINFO_KTRI_ENCRYPT} - CMS_F_CMS_RECIPIENTINFO_KTRI_ENCRYPT = 141; - {$EXTERNALSYM CMS_F_CMS_RECIPIENTINFO_KTRI_GET0_ALGS} - CMS_F_CMS_RECIPIENTINFO_KTRI_GET0_ALGS = 142; - {$EXTERNALSYM CMS_F_CMS_RECIPIENTINFO_KTRI_GET0_SIGNER_ID} - CMS_F_CMS_RECIPIENTINFO_KTRI_GET0_SIGNER_ID = 143; - {$EXTERNALSYM CMS_F_CMS_RECIPIENTINFO_SET0_KEY} - CMS_F_CMS_RECIPIENTINFO_SET0_KEY = 144; - {$EXTERNALSYM CMS_F_CMS_RECIPIENTINFO_SET0_PKEY} - CMS_F_CMS_RECIPIENTINFO_SET0_PKEY = 145; - {$EXTERNALSYM CMS_F_CMS_SET1_SIGNERIDENTIFIER} - CMS_F_CMS_SET1_SIGNERIDENTIFIER = 146; - {$EXTERNALSYM CMS_F_CMS_SET_DETACHED} - CMS_F_CMS_SET_DETACHED = 147; - {$EXTERNALSYM CMS_F_CMS_SIGN} - CMS_F_CMS_SIGN = 148; - {$EXTERNALSYM CMS_F_CMS_SIGNED_DATA_INIT} - CMS_F_CMS_SIGNED_DATA_INIT = 149; - {$EXTERNALSYM CMS_F_CMS_SIGNERINFO_CONTENT_SIGN} - CMS_F_CMS_SIGNERINFO_CONTENT_SIGN = 150; - {$EXTERNALSYM CMS_F_CMS_SIGNERINFO_SIGN} - CMS_F_CMS_SIGNERINFO_SIGN = 151; - {$EXTERNALSYM CMS_F_CMS_SIGNERINFO_VERIFY} - CMS_F_CMS_SIGNERINFO_VERIFY = 152; - {$EXTERNALSYM CMS_F_CMS_SIGNERINFO_VERIFY_CERT} - CMS_F_CMS_SIGNERINFO_VERIFY_CERT = 153; - {$EXTERNALSYM CMS_F_CMS_SIGNERINFO_VERIFY_CONTENT} - CMS_F_CMS_SIGNERINFO_VERIFY_CONTENT = 154; - {$EXTERNALSYM CMS_F_CMS_SIGN_RECEIPT} - CMS_F_CMS_SIGN_RECEIPT = 163; - {$EXTERNALSYM CMS_F_CMS_STREAM} - CMS_F_CMS_STREAM = 155; - {$EXTERNALSYM CMS_F_CMS_UNCOMPRESS} - CMS_F_CMS_UNCOMPRESS = 156; - {$EXTERNALSYM CMS_F_CMS_VERIFY} - CMS_F_CMS_VERIFY = 157; - -//* Reason codes. */ - {$EXTERNALSYM CMS_R_ADD_SIGNER_ERROR} - CMS_R_ADD_SIGNER_ERROR = 99; - {$EXTERNALSYM CMS_R_CERTIFICATE_ALREADY_PRESENT} - CMS_R_CERTIFICATE_ALREADY_PRESENT = 175; - {$EXTERNALSYM CMS_R_CERTIFICATE_HAS_NO_KEYID} - CMS_R_CERTIFICATE_HAS_NO_KEYID = 160; - {$EXTERNALSYM CMS_R_CERTIFICATE_VERIFY_ERROR} - CMS_R_CERTIFICATE_VERIFY_ERROR = 100; - {$EXTERNALSYM CMS_R_CIPHER_INITIALISATION_ERROR} - CMS_R_CIPHER_INITIALISATION_ERROR = 101; - {$EXTERNALSYM CMS_R_CIPHER_PARAMETER_INITIALISATION_ERROR} - CMS_R_CIPHER_PARAMETER_INITIALISATION_ERROR = 102; - {$EXTERNALSYM CMS_R_CMS_DATAFINAL_ERROR} - CMS_R_CMS_DATAFINAL_ERROR = 103; - {$EXTERNALSYM CMS_R_CMS_LIB} - CMS_R_CMS_LIB = 104; - {$EXTERNALSYM CMS_R_CONTENTIDENTIFIER_MISMATCH} - CMS_R_CONTENTIDENTIFIER_MISMATCH = 170; - {$EXTERNALSYM CMS_R_CONTENT_NOT_FOUND} - CMS_R_CONTENT_NOT_FOUND = 105; - {$EXTERNALSYM CMS_R_CONTENT_TYPE_MISMATCH} - CMS_R_CONTENT_TYPE_MISMATCH = 171; - {$EXTERNALSYM CMS_R_CONTENT_TYPE_NOT_COMPRESSED_DATA} - CMS_R_CONTENT_TYPE_NOT_COMPRESSED_DATA = 106; - {$EXTERNALSYM CMS_R_CONTENT_TYPE_NOT_ENVELOPED_DATA} - CMS_R_CONTENT_TYPE_NOT_ENVELOPED_DATA = 107; - {$EXTERNALSYM CMS_R_CONTENT_TYPE_NOT_SIGNED_DATA} - CMS_R_CONTENT_TYPE_NOT_SIGNED_DATA = 108; - {$EXTERNALSYM CMS_R_CONTENT_VERIFY_ERROR} - CMS_R_CONTENT_VERIFY_ERROR = 109; - {$EXTERNALSYM CMS_R_CTRL_ERROR} - CMS_R_CTRL_ERROR = 110; - {$EXTERNALSYM CMS_R_CTRL_FAILURE} - CMS_R_CTRL_FAILURE = 111; - {$EXTERNALSYM CMS_R_DECRYPT_ERROR} - CMS_R_DECRYPT_ERROR = 112; - {$EXTERNALSYM CMS_R_DIGEST_ERROR} - CMS_R_DIGEST_ERROR = 161; - {$EXTERNALSYM CMS_R_ERROR_GETTING_PUBLIC_KEY} - CMS_R_ERROR_GETTING_PUBLIC_KEY = 113; - {$EXTERNALSYM CMS_R_ERROR_READING_MESSAGEDIGEST_ATTRIBUTE} - CMS_R_ERROR_READING_MESSAGEDIGEST_ATTRIBUTE = 114; - {$EXTERNALSYM CMS_R_ERROR_SETTING_KEY} - CMS_R_ERROR_SETTING_KEY = 115; - {$EXTERNALSYM CMS_R_ERROR_SETTING_RECIPIENTINFO} - CMS_R_ERROR_SETTING_RECIPIENTINFO = 116; - {$EXTERNALSYM CMS_R_INVALID_ENCRYPTED_KEY_LENGTH} - CMS_R_INVALID_ENCRYPTED_KEY_LENGTH = 117; - {$EXTERNALSYM CMS_R_INVALID_KEY_LENGTH} - CMS_R_INVALID_KEY_LENGTH = 118; - {$EXTERNALSYM CMS_R_MD_BIO_INIT_ERROR} - CMS_R_MD_BIO_INIT_ERROR = 119; - {$EXTERNALSYM CMS_R_MESSAGEDIGEST_ATTRIBUTE_WRONG_LENGTH} - CMS_R_MESSAGEDIGEST_ATTRIBUTE_WRONG_LENGTH = 120; - {$EXTERNALSYM CMS_R_MESSAGEDIGEST_WRONG_LENGTH} - CMS_R_MESSAGEDIGEST_WRONG_LENGTH = 121; - {$EXTERNALSYM CMS_R_MSGSIGDIGEST_ERROR} - CMS_R_MSGSIGDIGEST_ERROR = 172; - {$EXTERNALSYM CMS_R_MSGSIGDIGEST_VERIFICATION_FAILURE} - CMS_R_MSGSIGDIGEST_VERIFICATION_FAILURE = 162; - {$EXTERNALSYM CMS_R_MSGSIGDIGEST_WRONG_LENGTH} - CMS_R_MSGSIGDIGEST_WRONG_LENGTH = 163; - {$EXTERNALSYM CMS_R_NEED_ONE_SIGNER} - CMS_R_NEED_ONE_SIGNER = 164; - {$EXTERNALSYM CMS_R_NOT_A_SIGNED_RECEIPT} - CMS_R_NOT_A_SIGNED_RECEIPT = 165; - {$EXTERNALSYM CMS_R_NOT_ENCRYPTED_DATA} - CMS_R_NOT_ENCRYPTED_DATA = 122; - {$EXTERNALSYM CMS_R_NOT_KEK} - CMS_R_NOT_KEK = 123; - {$EXTERNALSYM CMS_R_NOT_KEY_TRANSPORT} - CMS_R_NOT_KEY_TRANSPORT = 124; - {$EXTERNALSYM CMS_R_NOT_SUPPORTED_FOR_THIS_KEY_TYPE} - CMS_R_NOT_SUPPORTED_FOR_THIS_KEY_TYPE = 125; - {$EXTERNALSYM CMS_R_NO_CIPHER} - CMS_R_NO_CIPHER = 126; - {$EXTERNALSYM CMS_R_NO_CONTENT} - CMS_R_NO_CONTENT = 127; - {$EXTERNALSYM CMS_R_NO_CONTENT_TYPE} - CMS_R_NO_CONTENT_TYPE = 173; - {$EXTERNALSYM CMS_R_NO_DEFAULT_DIGEST} - CMS_R_NO_DEFAULT_DIGEST = 128; - {$EXTERNALSYM CMS_R_NO_DIGEST_SET} - CMS_R_NO_DIGEST_SET = 129; - {$EXTERNALSYM CMS_R_NO_KEY} - CMS_R_NO_KEY = 130; - {$EXTERNALSYM CMS_R_NO_KEY_OR_CERT} - CMS_R_NO_KEY_OR_CERT = 174; - {$EXTERNALSYM CMS_R_NO_MATCHING_DIGEST} - CMS_R_NO_MATCHING_DIGEST = 131; - {$EXTERNALSYM CMS_R_NO_MATCHING_RECIPIENT} - CMS_R_NO_MATCHING_RECIPIENT = 132; - {$EXTERNALSYM CMS_R_NO_MATCHING_SIGNATURE} - CMS_R_NO_MATCHING_SIGNATURE = 166; - {$EXTERNALSYM CMS_R_NO_MSGSIGDIGEST} - CMS_R_NO_MSGSIGDIGEST = 167; - {$EXTERNALSYM CMS_R_NO_PRIVATE_KEY} - CMS_R_NO_PRIVATE_KEY = 133; - {$EXTERNALSYM CMS_R_NO_PUBLIC_KEY} - CMS_R_NO_PUBLIC_KEY = 134; - {$EXTERNALSYM CMS_R_NO_RECEIPT_REQUEST} - CMS_R_NO_RECEIPT_REQUEST = 168; - {$EXTERNALSYM CMS_R_NO_SIGNERS} - CMS_R_NO_SIGNERS = 135; - {$EXTERNALSYM CMS_R_PRIVATE_KEY_DOES_NOT_MATCH_CERTIFICATE} - CMS_R_PRIVATE_KEY_DOES_NOT_MATCH_CERTIFICATE = 136; - {$EXTERNALSYM CMS_R_RECEIPT_DECODE_ERROR} - CMS_R_RECEIPT_DECODE_ERROR = 169; - {$EXTERNALSYM CMS_R_RECIPIENT_ERROR} - CMS_R_RECIPIENT_ERROR = 137; - {$EXTERNALSYM CMS_R_SIGNER_CERTIFICATE_NOT_FOUND} - CMS_R_SIGNER_CERTIFICATE_NOT_FOUND = 138; - {$EXTERNALSYM CMS_R_SIGNFINAL_ERROR} - CMS_R_SIGNFINAL_ERROR = 139; - {$EXTERNALSYM CMS_R_SMIME_TEXT_ERROR} - CMS_R_SMIME_TEXT_ERROR = 140; - {$EXTERNALSYM CMS_R_STORE_INIT_ERROR} - CMS_R_STORE_INIT_ERROR = 141; - {$EXTERNALSYM CMS_R_TYPE_NOT_COMPRESSED_DATA} - CMS_R_TYPE_NOT_COMPRESSED_DATA = 142; - {$EXTERNALSYM CMS_R_TYPE_NOT_DATA} - CMS_R_TYPE_NOT_DATA = 143; - {$EXTERNALSYM CMS_R_TYPE_NOT_DIGESTED_DATA} - CMS_R_TYPE_NOT_DIGESTED_DATA = 144; - {$EXTERNALSYM CMS_R_TYPE_NOT_ENCRYPTED_DATA} - CMS_R_TYPE_NOT_ENCRYPTED_DATA = 145; - {$EXTERNALSYM CMS_R_TYPE_NOT_ENVELOPED_DATA} - CMS_R_TYPE_NOT_ENVELOPED_DATA = 146; - {$EXTERNALSYM CMS_R_UNABLE_TO_FINALIZE_CONTEXT} - CMS_R_UNABLE_TO_FINALIZE_CONTEXT = 147; - {$EXTERNALSYM CMS_R_UNKNOWN_CIPHER} - CMS_R_UNKNOWN_CIPHER = 148; - {$EXTERNALSYM CMS_R_UNKNOWN_DIGEST_ALGORIHM} - CMS_R_UNKNOWN_DIGEST_ALGORIHM = 149; - {$EXTERNALSYM CMS_R_UNKNOWN_ID} - CMS_R_UNKNOWN_ID = 150; - {$EXTERNALSYM CMS_R_UNSUPPORTED_COMPRESSION_ALGORITHM} - CMS_R_UNSUPPORTED_COMPRESSION_ALGORITHM = 151; - {$EXTERNALSYM CMS_R_UNSUPPORTED_CONTENT_TYPE} - CMS_R_UNSUPPORTED_CONTENT_TYPE = 152; - {$EXTERNALSYM CMS_R_UNSUPPORTED_KEK_ALGORITHM} - CMS_R_UNSUPPORTED_KEK_ALGORITHM = 153; - {$EXTERNALSYM CMS_R_UNSUPPORTED_RECIPIENT_TYPE} - CMS_R_UNSUPPORTED_RECIPIENT_TYPE = 154; - {$EXTERNALSYM CMS_R_UNSUPPORTED_RECPIENTINFO_TYPE} - CMS_R_UNSUPPORTED_RECPIENTINFO_TYPE = 155; - {$EXTERNALSYM CMS_R_UNSUPPORTED_TYPE} - CMS_R_UNSUPPORTED_TYPE = 156; - {$EXTERNALSYM CMS_R_UNWRAP_ERROR} - CMS_R_UNWRAP_ERROR = 157; - {$EXTERNALSYM CMS_R_VERIFICATION_FAILURE} - CMS_R_VERIFICATION_FAILURE = 158; - {$EXTERNALSYM CMS_R_WRAP_ERROR} - CMS_R_WRAP_ERROR = 159; - - {$ENDIF} - - {$EXTERNALSYM DSO_F_BEOS_BIND_FUNC} - DSO_F_BEOS_BIND_FUNC = 144; - {$EXTERNALSYM DSO_F_BEOS_BIND_VAR} - DSO_F_BEOS_BIND_VAR = 145; - {$EXTERNALSYM DSO_F_BEOS_LOAD} - DSO_F_BEOS_LOAD = 146; - {$EXTERNALSYM DSO_F_BEOS_NAME_CONVERTER} - DSO_F_BEOS_NAME_CONVERTER = 147; - {$EXTERNALSYM DSO_F_BEOS_UNLOAD} - DSO_F_BEOS_UNLOAD = 148; - {$EXTERNALSYM DSO_F_DLFCN_BIND_FUNC} - DSO_F_DLFCN_BIND_FUNC = 100; - {$EXTERNALSYM DSO_F_DLFCN_BIND_VAR} - DSO_F_DLFCN_BIND_VAR = 101; - {$EXTERNALSYM DSO_F_DLFCN_LOAD} - DSO_F_DLFCN_LOAD = 102; - {$EXTERNALSYM DSO_F_DLFCN_MERGER} - DSO_F_DLFCN_MERGER = 130; - {$EXTERNALSYM DSO_F_DLFCN_NAME_CONVERTER} - DSO_F_DLFCN_NAME_CONVERTER = 123; - {$EXTERNALSYM DSO_F_DLFCN_UNLOAD} - DSO_F_DLFCN_UNLOAD = 103; - {$EXTERNALSYM DSO_F_DL_BIND_FUNC} - DSO_F_DL_BIND_FUNC = 104; - {$EXTERNALSYM DSO_F_DL_BIND_VAR} - DSO_F_DL_BIND_VAR = 105; - {$EXTERNALSYM DSO_F_DL_LOAD} - DSO_F_DL_LOAD = 106; - {$EXTERNALSYM DSO_F_DL_MERGER} - DSO_F_DL_MERGER = 131; - {$EXTERNALSYM DSO_F_DL_NAME_CONVERTER} - DSO_F_DL_NAME_CONVERTER = 124; - {$EXTERNALSYM DSO_F_DL_UNLOAD} - DSO_F_DL_UNLOAD = 107; - {$EXTERNALSYM DSO_F_DSO_BIND_FUNC} - DSO_F_DSO_BIND_FUNC = 108; - {$EXTERNALSYM DSO_F_DSO_BIND_VAR} - DSO_F_DSO_BIND_VAR = 109; - {$EXTERNALSYM DSO_F_DSO_CONVERT_FILENAME} - DSO_F_DSO_CONVERT_FILENAME = 126; - {$EXTERNALSYM DSO_F_DSO_CTRL} - DSO_F_DSO_CTRL = 110; - {$EXTERNALSYM DSO_F_DSO_FREE} - DSO_F_DSO_FREE = 111; - {$EXTERNALSYM DSO_F_DSO_GET_FILENAME} - DSO_F_DSO_GET_FILENAME = 127; - {$EXTERNALSYM DSO_F_DSO_GET_LOADED_FILENAME} - DSO_F_DSO_GET_LOADED_FILENAME = 128; - {$EXTERNALSYM DSO_F_DSO_GLOBAL_LOOKUP} - DSO_F_DSO_GLOBAL_LOOKUP = 139; - {$EXTERNALSYM DSO_F_DSO_LOAD} - DSO_F_DSO_LOAD = 112; - {$EXTERNALSYM DSO_F_DSO_MERGE} - DSO_F_DSO_MERGE = 132; - {$EXTERNALSYM DSO_F_DSO_NEW_METHOD} - DSO_F_DSO_NEW_METHOD = 113; - {$EXTERNALSYM DSO_F_DSO_PATHBYADDR} - DSO_F_DSO_PATHBYADDR = 140; - {$EXTERNALSYM DSO_F_DSO_SET_FILENAME} - DSO_F_DSO_SET_FILENAME = 129; - {$EXTERNALSYM DSO_F_DSO_SET_NAME_CONVERTER} - DSO_F_DSO_SET_NAME_CONVERTER = 122; - {$EXTERNALSYM DSO_F_DSO_UP_REF} - DSO_F_DSO_UP_REF = 114; - {$EXTERNALSYM DSO_F_GLOBAL_LOOKUP_FUNC} - DSO_F_GLOBAL_LOOKUP_FUNC = 138; - {$EXTERNALSYM DSO_F_PATHBYADDR} - DSO_F_PATHBYADDR = 137; - {$EXTERNALSYM DSO_F_VMS_BIND_SYM} - DSO_F_VMS_BIND_SYM = 115; - {$EXTERNALSYM DSO_F_VMS_LOAD} - DSO_F_VMS_LOAD = 116; - {$EXTERNALSYM DSO_F_VMS_MERGER} - DSO_F_VMS_MERGER = 133; - {$EXTERNALSYM DSO_F_VMS_UNLOAD} - DSO_F_VMS_UNLOAD = 117; - {$EXTERNALSYM DSO_F_WIN32_BIND_FUNC} - DSO_F_WIN32_BIND_FUNC = 118; - {$EXTERNALSYM DSO_F_WIN32_BIND_VAR} - DSO_F_WIN32_BIND_VAR = 119; - {$EXTERNALSYM DSO_F_WIN32_GLOBALLOOKUP} - DSO_F_WIN32_GLOBALLOOKUP = 142; - {$EXTERNALSYM DSO_F_WIN32_GLOBALLOOKUP_FUNC} - DSO_F_WIN32_GLOBALLOOKUP_FUNC = 143; - {$EXTERNALSYM DSO_F_WIN32_JOINER} - DSO_F_WIN32_JOINER = 135; - {$EXTERNALSYM DSO_F_WIN32_LOAD} - DSO_F_WIN32_LOAD = 120; - {$EXTERNALSYM DSO_F_WIN32_MERGER} - DSO_F_WIN32_MERGER = 134; - {$EXTERNALSYM DSO_F_WIN32_NAME_CONVERTER} - DSO_F_WIN32_NAME_CONVERTER = 125; - {$EXTERNALSYM DSO_F_WIN32_PATHBYADDR} - DSO_F_WIN32_PATHBYADDR = 141; - {$EXTERNALSYM DSO_F_WIN32_SPLITTER} - DSO_F_WIN32_SPLITTER = 136; - {$EXTERNALSYM DSO_F_WIN32_UNLOAD} - DSO_F_WIN32_UNLOAD = 121; - -//* Reason codes. */ - {$EXTERNALSYM DSO_R_CTRL_FAILED} - DSO_R_CTRL_FAILED = 100; - {$EXTERNALSYM DSO_R_DSO_ALREADY_LOADED} - DSO_R_DSO_ALREADY_LOADED = 110; - {$EXTERNALSYM DSO_R_EMPTY_FILE_STRUCTURE} - DSO_R_EMPTY_FILE_STRUCTURE = 113; - {$EXTERNALSYM DSO_R_FAILURE} - DSO_R_FAILURE = 114; - {$EXTERNALSYM DSO_R_FILENAME_TOO_BIG} - DSO_R_FILENAME_TOO_BIG = 101; - {$EXTERNALSYM DSO_R_FINISH_FAILED} - DSO_R_FINISH_FAILED = 102; - {$EXTERNALSYM DSO_R_INCORRECT_FILE_SYNTAX} - DSO_R_INCORRECT_FILE_SYNTAX = 115; - {$EXTERNALSYM DSO_R_LOAD_FAILED} - DSO_R_LOAD_FAILED = 103; - {$EXTERNALSYM DSO_R_NAME_TRANSLATION_FAILED} - DSO_R_NAME_TRANSLATION_FAILED = 109; - {$EXTERNALSYM DSO_R_NO_FILENAME} - DSO_R_NO_FILENAME = 111; - {$EXTERNALSYM DSO_R_NO_FILE_SPECIFICATION} - DSO_R_NO_FILE_SPECIFICATION = 116; - {$EXTERNALSYM DSO_R_NULL_HANDLE} - DSO_R_NULL_HANDLE = 104; - {$EXTERNALSYM DSO_R_SET_FILENAME_FAILED} - DSO_R_SET_FILENAME_FAILED = 112; - {$EXTERNALSYM DSO_R_STACK_ERROR} - DSO_R_STACK_ERROR = 105; - {$EXTERNALSYM DSO_R_SYM_FAILURE} - DSO_R_SYM_FAILURE = 106; - {$EXTERNALSYM DSO_R_UNLOAD_FAILED} - DSO_R_UNLOAD_FAILED = 107; - {$EXTERNALSYM DSO_R_UNSUPPORTED} - DSO_R_UNSUPPORTED = 108; - - {$ifndef OPENSSL_NO_SRP} - {$EXTERNALSYM SRP_NO_ERROR} - - SRP_NO_ERROR = 0; - {$EXTERNALSYM SRP_ERR_VBASE_INCOMPLETE_FILE} - SRP_ERR_VBASE_INCOMPLETE_FILE = 1; - {$EXTERNALSYM SRP_ERR_VBASE_BN_LIB} - SRP_ERR_VBASE_BN_LIB = 2; - {$EXTERNALSYM SRP_ERR_OPEN_FILE} - SRP_ERR_OPEN_FILE = 3; - {$EXTERNALSYM SRP_ERR_MEMORY} - SRP_ERR_MEMORY = 4; - - {$EXTERNALSYM DB_srptype} - DB_srptype = 0; - {$EXTERNALSYM DB_srpverifier} - DB_srpverifier = 1; - {$EXTERNALSYM DB_srpsalt} - DB_srpsalt = 2; - {$EXTERNALSYM DB_srpid} - DB_srpid = 3; - {$EXTERNALSYM DB_srpgN} - DB_srpgN = 4; - {$EXTERNALSYM DB_srpinfo} - DB_srpinfo = 5; - {$NODEFINE DB_NUMBER} - DB_NUMBER = 6; - {$EXTERNALSYM DB_SRP_INDEX} - DB_SRP_INDEX = 'I'; - {$EXTERNALSYM DB_SRP_VALID} - DB_SRP_VALID = 'V'; - {$EXTERNALSYM DB_SRP_REVOKED} - DB_SRP_REVOKED = 'R'; - {$EXTERNALSYM DB_SRP_MODIF} - DB_SRP_MODIF = 'v'; - {$ENDIF} - {$EXTERNALSYM SRTP_AES128_CM_SHA1_80} - SRTP_AES128_CM_SHA1_80 = $0001; - {$EXTERNALSYM SRTP_AES128_CM_SHA1_32} - SRTP_AES128_CM_SHA1_32 = $0002; - {$EXTERNALSYM SRTP_AES128_F8_SHA1_80} - SRTP_AES128_F8_SHA1_80 = $0003; - {$EXTERNALSYM SRTP_AES128_F8_SHA1_32} - SRTP_AES128_F8_SHA1_32 = $0004; - {$EXTERNALSYM SRTP_NULL_SHA1_80} - SRTP_NULL_SHA1_80 = $0005; - {$EXTERNALSYM SRTP_NULL_SHA1_32} - SRTP_NULL_SHA1_32 = $0006; - - _ATEXIT_SIZE = 32; - {$EXTERNALSYM _ATEXIT_SIZE} - _IOFBF = 0; - {$EXTERNALSYM _IOFBF} - _IOLBF = 1; - {$EXTERNALSYM _IOLBF} - _IONBF = 2; - {$EXTERNALSYM _IONBF} - _N_LISTS = 30; - {$EXTERNALSYM _N_LISTS} - _MSS_WIN32 = 1; - {$EXTERNALSYM _MSS_WIN32} - _MSS_X86_ = 1; - {$EXTERNALSYM _MSS_X86_} - __CYGWIN32__ = 1; - {$EXTERNALSYM __CYGWIN32__} - __CYGWIN__ = 1; - {$EXTERNALSYM __CYGWIN__} - __GNUC_MINOR__ = 91; - {$EXTERNALSYM __GNUC_MINOR__} - __GNUC__ = 2; - {$EXTERNALSYM __GNUC__} - __SAPP = $0100; - {$EXTERNALSYM __SAPP } - __SEOF = $0020; - {$EXTERNALSYM __SEOF } - __SERR = $0040; - {$EXTERNALSYM __SERR } - __SLBF = $0001; - {$EXTERNALSYM __SLBF } - __SMBF = $0080; - {$EXTERNALSYM __SMBF } - __SMOD = $2000; - {$EXTERNALSYM __SMOD } - __SNBF = $0002; - {$EXTERNALSYM __SNBF } - __SNPT = $0800; - {$EXTERNALSYM __SNPT } - __SOFF = $1000; - {$EXTERNALSYM __SOFF } - __SOPT = $0400; - {$EXTERNALSYM __SOPT } - __SRD = $0004; - {$EXTERNALSYM __SRD } - __SRW = $0010; - {$EXTERNALSYM __SRW } - __SSTR = $0200; - {$EXTERNALSYM __SSTR } - __STDC__ = 1; - {$EXTERNALSYM __STDC__} - __SWR = $0008; - {$EXTERNALSYM __SWR } - __WINNT = 1; - {$EXTERNALSYM __WINNT} - __WINNT__ = 1; - {$EXTERNALSYM __WINNT__} - __i386 = 1; - {$EXTERNALSYM __i386} - __i386__ = 1; - {$EXTERNALSYM __i386__} - __i586 = 1; - {$EXTERNALSYM __i586} - __i586__ = 1; - {$EXTERNALSYM __i586__} - __pentium = 1; - {$EXTERNALSYM __pentium} - __pentium__ = 1; - {$EXTERNALSYM __pentium__} - i386 = 1; - {$EXTERNALSYM i386} - i586 = 1; - {$EXTERNALSYM i586} - pentium = 1; - {$EXTERNALSYM pentium} -//kssl.h -{$IFNDEF OPENSSL_NO_KRB5} -{These are consts for Kerberos support. These will not be complete because -FreePascal, Borland Delphi, and Indy don't support Kerberos. These are here -as place holders so we get an exact OpenSSL API if Kerberos support was compiled -in. -} - {$EXTERNALSYM KSSL_ERR_MAX} - KSSL_ERR_MAX = 255; - {$EXTERNALSYM KSSL_CLIENT} - KSSL_CLIENT = 1; - {$EXTERNALSYM KSSL_SERVER} - KSSL_SERVER = 2; - {$EXTERNALSYM KSSL_SERVICE} - KSSL_SERVICE = 3; - {$EXTERNALSYM KSSL_KEYTAB} - KSSL_KEYTAB = 4; - {$EXTERNALSYM KSSL_CTX_OK} - KSSL_CTX_OK = 0; - {$EXTERNALSYM KSSL_CTX_ERR} - KSSL_CTX_ERR = 1; - {$EXTERNALSYM KSSL_NOMEM} - KSSL_NOMEM = 2; -{$ENDIF} - -{Error - err.h } -const - {$EXTERNALSYM ERR_TXT_MALLOCED} - ERR_TXT_MALLOCED = $01; - {$EXTERNALSYM ERR_TXT_STRING} - ERR_TXT_STRING = $02; - {$EXTERNALSYM ERR_NUM_ERRORS} - ERR_NUM_ERRORS = 16; - -const - // library - {$EXTERNALSYM ERR_LIB_NONE} - ERR_LIB_NONE = 1; - {$EXTERNALSYM ERR_LIB_SYS} - ERR_LIB_SYS = 2; - {$EXTERNALSYM ERR_LIB_BN} - ERR_LIB_BN = 3; - {$EXTERNALSYM ERR_LIB_RSA} - ERR_LIB_RSA = 4; - {$EXTERNALSYM ERR_LIB_DH} - ERR_LIB_DH = 5; - {$EXTERNALSYM ERR_LIB_EVP} - ERR_LIB_EVP = 6; - {$EXTERNALSYM ERR_LIB_BUF} - ERR_LIB_BUF = 7; - {$EXTERNALSYM ERR_LIB_OBJ} - ERR_LIB_OBJ = 8; - {$EXTERNALSYM ERR_LIB_PEM} - ERR_LIB_PEM = 9; - {$EXTERNALSYM ERR_LIB_DSA} - ERR_LIB_DSA = 10; - {$EXTERNALSYM ERR_LIB_X509} - ERR_LIB_X509 = 11; -// ERR_LIB_METH = 12; - {$EXTERNALSYM ERR_LIB_ASN1} - ERR_LIB_ASN1 = 13; - {$EXTERNALSYM ERR_LIB_CONF} - ERR_LIB_CONF = 14; - {$EXTERNALSYM ERR_LIB_CRYPTO} - ERR_LIB_CRYPTO = 15; - {$EXTERNALSYM ERR_LIB_EC} - ERR_LIB_EC = 16; - {$EXTERNALSYM ERR_LIB_SSL} - ERR_LIB_SSL = 20; -// ERR_LIB_SSL23 = 21; -// ERR_LIB_SSL2 = 22; -// ERR_LIB_SSL3 = 23; -// ERR_LIB_RSAREF = 30; -// ERR_LIB_PROXY = 31; - {$EXTERNALSYM ERR_LIB_BIO} - ERR_LIB_BIO = 32; - {$EXTERNALSYM ERR_LIB_PKCS7} - ERR_LIB_PKCS7 = 33; - {$EXTERNALSYM ERR_LIB_X509V3} - ERR_LIB_X509V3 = 34; - {$EXTERNALSYM ERR_LIB_PKCS12} - ERR_LIB_PKCS12 = 35; - {$EXTERNALSYM ERR_LIB_RAND} - ERR_LIB_RAND = 36; - {$EXTERNALSYM ERR_LIB_DSO} - ERR_LIB_DSO = 37; - {$EXTERNALSYM ERR_LIB_ENGINE} - ERR_LIB_ENGINE = 38; - {$EXTERNALSYM ERR_LIB_OCSP} - ERR_LIB_OCSP = 39; - {$EXTERNALSYM ERR_LIB_UI} - ERR_LIB_UI = 40; - {$EXTERNALSYM ERR_LIB_COMP} - ERR_LIB_COMP = 41; - {$EXTERNALSYM ERR_LIB_ECDSA} - ERR_LIB_ECDSA = 42; - {$EXTERNALSYM ERR_LIB_ECDH} - ERR_LIB_ECDH = 43; - {$EXTERNALSYM ERR_LIB_STORE} - ERR_LIB_STORE = 44; - {$EXTERNALSYM ERR_LIB_FIPS} - ERR_LIB_FIPS = 45; - {$EXTERNALSYM ERR_LIB_CMS} - ERR_LIB_CMS = 46; - {$EXTERNALSYM ERR_LIB_TS} - ERR_LIB_TS = 47; - {$EXTERNALSYM ERR_LIB_HMAC} - ERR_LIB_HMAC = 48; - {$EXTERNALSYM ERR_LIB_JPAKE} - //OpenSSL 0.9.8n was 47 - ERR_LIB_JPAKE = 49; -//* fatal error */ - {$EXTERNALSYM ERR_R_FATAL} - ERR_R_FATAL = 64; -//was ERR_R_FATAL = 32; - {$EXTERNALSYM ERR_R_MALLOC_FAILURE} - ERR_R_MALLOC_FAILURE = (1 or ERR_R_FATAL); - {$EXTERNALSYM ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED} - ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED = (2 or ERR_R_FATAL); - {$EXTERNALSYM ERR_R_PASSED_NULL_PARAMETER} - ERR_R_PASSED_NULL_PARAMETER = (3 or ERR_R_FATAL); - {$EXTERNALSYM ERR_R_INTERNAL_ERROR} - ERR_R_INTERNAL_ERROR = (4 or ERR_R_FATAL); - {$EXTERNALSYM ERR_R_DISABLED} - ERR_R_DISABLED = (5 or ERR_R_FATAL); - {$EXTERNALSYM ERR_LIB_USER} - ERR_LIB_USER = 128; - // OS functions - {$EXTERNALSYM SYS_F_FOPEN} - SYS_F_FOPEN = 1; - {$EXTERNALSYM SYS_F_CONNECT} - SYS_F_CONNECT = 2; - {$EXTERNALSYM SYS_F_GETSERVBYNAME} - SYS_F_GETSERVBYNAME = 3; - {$EXTERNALSYM SYS_F_SOCKET} - SYS_F_SOCKET = 4; - {$EXTERNALSYM SYS_F_IOCTLSOCKET} - SYS_F_IOCTLSOCKET = 5; - {$EXTERNALSYM SYS_F_BIND} - SYS_F_BIND = 6; - {$EXTERNALSYM SYS_F_LISTEN} - SYS_F_LISTEN = 7; - {$EXTERNALSYM SYS_F_ACCEPT} - SYS_F_ACCEPT = 8; - {$EXTERNALSYM SYS_F_WSASTARTUP} - SYS_F_WSASTARTUP = 9; { Winsock stuff } - {$EXTERNALSYM SYS_F_OPENDIR} - SYS_F_OPENDIR = 10; - {$EXTERNALSYM SYS_F_FREAD} - SYS_F_FREAD = 11; -//* These are the possible flags. They can be or'ed together. */ -//* Use to have echoing of input */ - {$EXTERNALSYM UI_INPUT_FLAG_ECHO} - UI_INPUT_FLAG_ECHO = $01; -///* Use a default password. Where that password is found is completely -// up to the application, it might for example be in the user data set -// with UI_add_user_data(). It is not recommended to have more than -// one input in each UI being marked with this flag, or the application -// might get confused. */ - {$EXTERNALSYM UI_INPUT_FLAG_DEFAULT_PWD} - UI_INPUT_FLAG_DEFAULT_PWD = $02; - -//* The user of these routines may want to define flags of their own. The core -// UI won't look at those, but will pass them on to the method routines. They -// must use higher bits so they don't get confused with the UI bits above. -// UI_INPUT_FLAG_USER_BASE tells which is the lowest bit to use. A good -// example of use is this: - -// #define MY_UI_FLAG1 (0x01 << UI_INPUT_FLAG_USER_BASE) -//*/ - {$EXTERNALSYM UI_INPUT_FLAG_USER_BASE} - UI_INPUT_FLAG_USER_BASE = 16; - //IO_ctrl commands -//* The commands */ -//* Use UI_CONTROL_PRINT_ERRORS with the value 1 to have UI_process print the -// OpenSSL error stack before printing any info or added error messages and -// before any prompting. */ - {$EXTERNALSYM UI_CTRL_PRINT_ERRORS} - UI_CTRL_PRINT_ERRORS = 1; -//* Check if a UI_process() is possible to do again with the same instance of -// a user interface. This makes UI_ctrl() return 1 if it is redoable, and 0 -// if not. */ - {$EXTERNALSYM UI_CTRL_IS_REDOABLE} - UI_CTRL_IS_REDOABLE = 2; -//* Function codes. */ - {$EXTERNALSYM UI_F_GENERAL_ALLOCATE_BOOLEAN} - UI_F_GENERAL_ALLOCATE_BOOLEAN = 108; - {$EXTERNALSYM UI_F_GENERAL_ALLOCATE_PROMPT} - UI_F_GENERAL_ALLOCATE_PROMPT = 109; - {$EXTERNALSYM UI_F_GENERAL_ALLOCATE_STRING} - UI_F_GENERAL_ALLOCATE_STRING = 100; - {$EXTERNALSYM UI_F_UI_CTRL} - UI_F_UI_CTRL = 111; - {$EXTERNALSYM UI_F_UI_DUP_ERROR_STRING} - UI_F_UI_DUP_ERROR_STRING = 101; - {$EXTERNALSYM UI_F_UI_DUP_INFO_STRING} - UI_F_UI_DUP_INFO_STRING = 102; - {$EXTERNALSYM UI_F_UI_DUP_INPUT_BOOLEAN} - UI_F_UI_DUP_INPUT_BOOLEAN = 110; - {$EXTERNALSYM UI_F_UI_DUP_INPUT_STRING} - UI_F_UI_DUP_INPUT_STRING = 103; - {$EXTERNALSYM UI_F_UI_DUP_VERIFY_STRING} - UI_F_UI_DUP_VERIFY_STRING = 106; - {$EXTERNALSYM UI_F_UI_GET0_RESULT} - UI_F_UI_GET0_RESULT = 107; - {$EXTERNALSYM UI_F_UI_NEW_METHOD} - UI_F_UI_NEW_METHOD = 104; - {$EXTERNALSYM UI_F_UI_SET_RESULT} - UI_F_UI_SET_RESULT = 105; -//* Reason codes. */ - {$EXTERNALSYM UI_R_COMMON_OK_AND_CANCEL_CHARACTERS} - UI_R_COMMON_OK_AND_CANCEL_CHARACTERS = 104; - {$EXTERNALSYM UI_R_INDEX_TOO_LARGE} - UI_R_INDEX_TOO_LARGE = 102; - {$EXTERNALSYM UI_R_INDEX_TOO_SMALL} - UI_R_INDEX_TOO_SMALL = 103; - {$EXTERNALSYM UI_R_NO_RESULT_BUFFER} - UI_R_NO_RESULT_BUFFER = 105; - {$EXTERNALSYM UI_R_RESULT_TOO_LARGE} - UI_R_RESULT_TOO_LARGE = 100; - {$EXTERNALSYM UI_R_RESULT_TOO_SMALL} - UI_R_RESULT_TOO_SMALL = 101; - {$EXTERNALSYM UI_R_UNKNOWN_CONTROL_COMMAND} - UI_R_UNKNOWN_CONTROL_COMMAND = 106; - -const - // reasons - {$EXTERNALSYM ERR_R_SYS_LIB} - ERR_R_SYS_LIB = ERR_LIB_SYS; - {$EXTERNALSYM ERR_R_BN_LIB} - ERR_R_BN_LIB = ERR_LIB_BN; - {$EXTERNALSYM ERR_R_RSA_LIB} - ERR_R_RSA_LIB = ERR_LIB_RSA; - {$EXTERNALSYM ERR_R_DH_LIB} - ERR_R_DH_LIB = ERR_LIB_DH; - {$EXTERNALSYM ERR_R_EVP_LIB} - ERR_R_EVP_LIB = ERR_LIB_EVP; - {$EXTERNALSYM ERR_R_BUF_LIB} - ERR_R_BUF_LIB = ERR_LIB_BUF; - {$EXTERNALSYM ERR_R_OBJ_LIB} - ERR_R_OBJ_LIB = ERR_LIB_OBJ; - {$EXTERNALSYM ERR_R_PEM_LIB} - ERR_R_PEM_LIB = ERR_LIB_PEM; - {$EXTERNALSYM ERR_R_DSA_LIB} - ERR_R_DSA_LIB = ERR_LIB_DSA; - {$EXTERNALSYM ERR_R_X509_LIB} - ERR_R_X509_LIB = ERR_LIB_X509; - {$EXTERNALSYM ERR_R_ASN1_LIB} - ERR_R_ASN1_LIB = ERR_LIB_ASN1; - {$EXTERNALSYM ERR_R_CONF_LIB} - ERR_R_CONF_LIB = ERR_LIB_CONF; - {$EXTERNALSYM ERR_R_CRYPTO_LIB} - ERR_R_CRYPTO_LIB = ERR_LIB_CRYPTO; - {$EXTERNALSYM ERR_R_EC_LIB} - ERR_R_EC_LIB = ERR_LIB_EC; - {$EXTERNALSYM ERR_R_SSL_LIB} - ERR_R_SSL_LIB = ERR_LIB_SSL; - {$EXTERNALSYM ERR_R_BIO_LIB} - ERR_R_BIO_LIB = ERR_LIB_BIO; - {$EXTERNALSYM ERR_R_PKCS7_LIB} - ERR_R_PKCS7_LIB = ERR_LIB_PKCS7; - {$EXTERNALSYM ERR_R_X509V3_LIB} - ERR_R_X509V3_LIB = ERR_LIB_X509V3; - {$EXTERNALSYM ERR_R_PKCS12_LIB} - ERR_R_PKCS12_LIB = ERR_LIB_PKCS12; - {$EXTERNALSYM ERR_R_RAND_LIB} - ERR_R_RAND_LIB = ERR_LIB_RAND; - {$EXTERNALSYM ERR_R_DSO_LIB} - ERR_R_DSO_LIB = ERR_LIB_DSO; - {$EXTERNALSYM ERR_R_ENGINE_LIB} - ERR_R_ENGINE_LIB = ERR_LIB_ENGINE; - {$EXTERNALSYM ERR_R_OCSP_LIB} - ERR_R_OCSP_LIB = ERR_LIB_OCSP; - {$EXTERNALSYM ERR_R_UI_LIB} - ERR_R_UI_LIB = ERR_LIB_UI; - {$EXTERNALSYM ERR_R_COMP_LIB} - ERR_R_COMP_LIB = ERR_LIB_COMP; - {$EXTERNALSYM ERR_R_ECDSA_LIB} - ERR_R_ECDSA_LIB = ERR_LIB_ECDSA; - {$EXTERNALSYM ERR_R_ECDH_LIB} - ERR_R_ECDH_LIB = ERR_LIB_ECDH; - {$EXTERNALSYM ERR_R_STORE_LIB} - ERR_R_STORE_LIB = ERR_LIB_STORE; - {$EXTERNALSYM ERR_R_TS_LIB} - ERR_R_TS_LIB = ERR_LIB_TS; //* 45 */ - {$EXTERNALSYM ERR_R_NESTED_ASN1_ERROR} - ERR_R_NESTED_ASN1_ERROR = 58; - {$EXTERNALSYM ERR_R_BAD_ASN1_OBJECT_HEADER} - ERR_R_BAD_ASN1_OBJECT_HEADER = 59; - {$EXTERNALSYM ERR_R_BAD_GET_ASN1_OBJECT_CALL} - ERR_R_BAD_GET_ASN1_OBJECT_CALL = 60; - {$EXTERNALSYM ERR_R_EXPECTING_AN_ASN1_SEQUENCE} - ERR_R_EXPECTING_AN_ASN1_SEQUENCE = 61; - {$EXTERNALSYM ERR_R_ASN1_LENGTH_MISMATCH} - ERR_R_ASN1_LENGTH_MISMATCH = 62; - {$EXTERNALSYM ERR_R_MISSING_ASN1_EOS} - ERR_R_MISSING_ASN1_EOS = 63; - {$EXTERNALSYM DTLS1_VERSION} - DTLS1_VERSION = $FEFF; - {$EXTERNALSYM DTLS1_BAD_VER} - DTLS1_BAD_VER = $0100; -{$IFNDEF USE_THIS} -//* this alert description is not specified anywhere... */ - {$EXTERNALSYM DTLS1_AD_MISSING_HANDSHAKE_MESSAGE} - DTLS1_AD_MISSING_HANDSHAKE_MESSAGE = 110; -{$endif} - //was 32 - {$EXTERNALSYM DTLS1_COOKIE_LENGTH} - DTLS1_COOKIE_LENGTH = 256; - {$EXTERNALSYM DTLS1_RT_HEADER_LENGTH} - DTLS1_RT_HEADER_LENGTH = 13; - {$EXTERNALSYM DTLS1_HM_HEADER_LENGTH} - DTLS1_HM_HEADER_LENGTH = 12; - {$EXTERNALSYM DTLS1_HM_BAD_FRAGMENT} - DTLS1_HM_BAD_FRAGMENT = -2; - {$EXTERNALSYM DTLS1_HM_FRAGMENT_RETRY} - DTLS1_HM_FRAGMENT_RETRY = -3; - {$EXTERNALSYM DTLS1_CCS_HEADER_LENGTH} - //OpenSSL 0.9.8e defines this as OPENSSL_DTLS1_CCS_HEADER_LENGTH = 3; - DTLS1_CCS_HEADER_LENGTH = 1; - {$EXTERNALSYM DTLS1_AL_HEADER_LENGTH} -{$ifdef DTLS1_AD_MISSING_HANDSHAKE_MESSAGE} - DTLS1_AL_HEADER_LENGTH = 7; -{$else} - DTLS1_AL_HEADER_LENGTH = 2; -{$endif} - -type - {$EXTERNALSYM PPByte} - PPByte = ^PByte; - {$IFNDEF HAS_PPointer} - {$EXTERNALSYM PPointer} - PPointer = ^Pointer; - {$ENDIF} - -//This is just a synthasis since Pascal probably has what we need. -//In C, the OpenSSL developers were using the PQ_64BIT moniker -//to ensure that they had a value that is always 64bit. -//In Pascal, this is not a problem since Delphi and FreePascal have this in some form. - {$EXTERNALSYM PQ_64BIT} - PQ_64BIT = TIdC_UINT64; - -// RLebeau - the following value was conflicting with iphlpapi.h under C++Builder -// (and possibly other headers) so using the HPPEMIT further above as a workaround - {$EXTERNALSYM time_t} - time_t = TIdC_LONG; - {$EXTERNALSYM STACK} - STACK = record - num : TIdC_INT; //int num; - data : PIdAnsiChar; //char **data; - sorted : TIdC_INT;//int sorted; - num_alloc : TIdC_INT; //int num_alloc; - comp : function (_para1: PPIdAnsiChar; _para2: PPIdAnsiChar): TIdC_INT; cdecl; - //int (*comp)(const char * const *, const char * const *); - end; - {$EXTERNALSYM PSTACK} - PSTACK = ^STACK; - {$EXTERNALSYM PPSTACK} - PPSTACK = ^PSTACK; - {$EXTERNALSYM PSTACK_OF_POINTER} - PSTACK_OF_POINTER = Pointer; - {$NODEFINE PSSL} - PSSL = ^SSL; - //opensslconf.h - {$IFNDEF OPENSSL_NO_MD2} - {$EXTERNALSYM MD2_INT} - {$IFDEF MD2_CHAR} - MD2_INT = Char; - {$ELSE} - {$IFDEF MD2_LONG} - MD2_INT = TIdC_ULONG; - {$ELSE} - MD2_INT = TIdC_UINT; - {$ENDIF} - {$ENDIF} - {$ENDIF} - - {$IFNDEF OPENSSL_NO_RC1} - {$EXTERNALSYM RC2_INT} - {$IFDEF RC2_SHORT} - RC2_INT = TIdC_USHORT; - {$ELSE} - {$IFDEF RC2_LONG} - RC2_INT = TIdC_ULONG; - {$ELSE} - RC2_INT = TIdC_UINT; - {$ENDIF} - {$ENDIF} - {$ENDIF} - {$IFNDEF OPENSSL_NO_RC4} - {$EXTERNALSYM RC4_INT} - {$IFDEF RC4_CHAR} - RC4_INT = TIdC_USHORT; - {$ELSE} - {$IFDEF RC4_LONG} - RC4_INT = TIdC_ULONG; - {$ELSE} - RC4_INT = TIdC_UINT; - {$ENDIF} - {$ENDIF} - {$IFDEF RC4_CHUNK} - {$EXTERNALSYM RC4_CHUNK} - RC4_CHUNK = TIdC_ULONG; - {$ELSE} - {$IFDEF RC4_CHUNK_LL} - {$EXTERNALSYM RC4_CHUNK} - RC4_CHUNK = TIdC_ULONGLONG; - {$ELSE} - {$UNDEF RC4_CHUNK} - {$ENDIF} - {$ENDIF} - {$ENDIF} - {$IFNDEF OPENSSL_NO_IDEA} - {$EXTERNALSYM IDEA_INT} - {$IFDEF IDEA_SHORT} - IDEA_INT = TIdC_USHORT; - {$ELSE} - {$IFDEF IDEA_LONG} - IDEA_INT = TIdC_ULONG; - {$ELSE} - IDEA_INT = TIdC_UINT; - {$ENDIF} - {$ENDIF} - {$ENDIF} - //crypto.h - // OpenSSL 1.0.0 structure - ///* Don't use this structure directly. */ - {$EXTERNALSYM CRYPTO_THREADID} - CRYPTO_THREADID = record - ptr : Pointer; - val : TIdC_ULONG; - end; - {$EXTERNALSYM PCRYPTO_THREADID} - PCRYPTO_THREADID = ^CRYPTO_THREADID; - // end OpenSSL 1.0.0 structures - {$EXTERNALSYM OPENSSL_ITEM} - OPENSSL_ITEM = record - code : TIdC_INT; - value : Pointer; //* Not used for flag attributes */ - value_size : size_t; //* Max size of value for output, length for input */ - value_length : Psize_t; //* Returned length of value for output */ - end; - {$EXTERNALSYM CRYPTO_EX_DATA} - CRYPTO_EX_DATA = record - sk : PSTACK; - dummy : TIdC_INT; // gcc is screwing up this data structure :-( - end; - {$EXTERNALSYM PCRYPTO_EX_DATA} - PCRYPTO_EX_DATA = ^CRYPTO_EX_DATA; -{ -/* Some applications as well as some parts of OpenSSL need to allocate - and deallocate locks in a dynamic fashion. The following typedef - makes this possible in a type-safe manner. */ -/* struct CRYPTO_dynlock_value has to be defined by the application. */ -} - {$EXTERNALSYM PCRYPTO_dynlock_value} - PCRYPTO_dynlock_value = Pointer; - {$EXTERNALSYM CRYPTO_dynlock} - CRYPTO_dynlock = record - references : TIdC_INT; - data : PCRYPTO_dynlock_value; - end; - {$EXTERNALSYM PCRYPTO_dynlock} - PCRYPTO_dynlock = ^CRYPTO_dynlock; -//* Callback types for crypto.h */ -//typedef int CRYPTO_EX_new(void *parent, void *ptr, CRYPTO_EX_DATA *ad, -// int idx, long argl, void *argp); - {$EXTERNALSYM CRYPTO_EX_new} - CRYPTO_EX_new = function(parent : Pointer; ptr : Pointer; ad : CRYPTO_EX_DATA; - idx : TIdC_INT; arg1 : TIdC_LONG; argp : Pointer) : TIdC_INT; cdecl; -//typedef void CRYPTO_EX_free(void *parent, void *ptr, CRYPTO_EX_DATA *ad, -// int idx, long argl, void *argp); - {$EXTERNALSYM CRYPTO_EX_free} - CRYPTO_EX_free = procedure (parent : Pointer; ptr : Pointer; ad : CRYPTO_EX_DATA; - idx : TIdC_INT; arg1 : TIdC_LONG; argp : Pointer); cdecl; -//typedef int CRYPTO_EX_dup(CRYPTO_EX_DATA *to, CRYPTO_EX_DATA *from, void *from_d, -// int idx, long argl, void *argp); - {$EXTERNALSYM CRYPTO_EX_dup} - CRYPTO_EX_dup = function (_to : PCRYPTO_EX_DATA; from : PCRYPTO_EX_DATA; - from_d : Pointer; idx : TIdC_INT; arg1 : TIdC_LONG; argp : Pointer) : TIdC_INT; cdecl; - {$EXTERNALSYM CRYPTO_EX_DATA_FUNCS} - CRYPTO_EX_DATA_FUNCS = record - argl : TIdC_LONG; //* Arbitary long */ - argp : Pointer; //* Arbitary void * */ - new_func : CRYPTO_EX_new; - free_func : CRYPTO_EX_free; - dup_func : CRYPTO_EX_dup; - end; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_CRYPTO_EX_DATA_FUNCS} - STACK_OF_CRYPTO_EX_DATA_FUNCS = record - stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_CRYPTO_EX_DATA_FUNCS} - PSTACK_OF_CRYPTO_EX_DATA_FUNCS = ^STACK_OF_CRYPTO_EX_DATA_FUNCS; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_CRYPTO_EX_DATA_FUNCS} - PSTACK_OF_CRYPTO_EX_DATA_FUNCS = PSTACK; - {$ENDIF} - ///* An opaque type representing an implementation of "ex_data" support */ - {$EXTERNALSYM PCRYPTO_EX_DATA_IMPL} - PCRYPTO_EX_DATA_IMPL = Pointer; - {$EXTERNALSYM ERR_string_data} - ERR_string_data = record - error : TIdC_ULONG; - _string : PIdAnsiChar; - end; - {$EXTERNALSYM PERR_string_data} - PERR_string_data = ^ERR_string_data; - {$EXTERNALSYM ERR_STATE} - ERR_STATE = record - tid : CRYPTO_THREADID; - // PID: TIdC_UINT; - err_flags : array [0..ERR_NUM_ERRORS - 1] of TIdC_INT; - err_buffer: array[0..ERR_NUM_ERRORS-1] of TIdC_UINT; - err_data : array [0..ERR_NUM_ERRORS -1] of PIdAnsiChar; - err_data_flags : array [0..ERR_NUM_ERRORS -1] of TIdC_INT; - err_file: array[0..ERR_NUM_ERRORS-1] of PIdAnsiChar; - err_line: array[0..ERR_NUM_ERRORS-1] of TIdC_INT; - top: TIdC_INT; - bottom: TIdC_INT; - end; // record - {$EXTERNALSYM TERR_STATE} - TERR_STATE = ERR_STATE; - {$EXTERNALSYM PERR_FNS} - PERR_FNS = Pointer; - //rand.h - {$IFDEF OPENSSL_FIPS} - {$EXTERNALSYM FIPS_RAND_SIZE_T} - FIPS_RAND_SIZE_T = TIdC_int; - {$ENDIF} - {$EXTERNALSYM RAND_METHOD} - RAND_METHOD = record - seed : procedure (const buf : Pointer; num : TIdC_INT) cdecl; - bytes : function(const buf : PIdAnsiChar; num : TIdC_INT) : TIdC_INT cdecl; - cleanup : procedure cdecl; - add : procedure (const buf : Pointer; num : TIdC_INT; entropy : TIdC_DOUBLE) cdecl; - pseudorand : function(buf : PIdAnsiChar; num : TIdC_INT) : TIdC_INT cdecl; - status : function : TIdC_INT cdecl; - end; - //bn.h - {$IFDEF SIXTY_FOUR_BIT_LONG} - {$EXTERNALSYM BN_ULLONG} - BN_ULLONG = TIdC_LONGLONG; - {$EXTERNALSYM BN_ULONG} - BN_ULONG = TIdC_ULONG; - {$EXTERNALSYM BN_LONG} - BN_LONG = TIdC_LONG; - {$ENDIF} - {$IFDEF SIXTY_FOUR_BIT} - {$EXTERNALSYM BN_ULLONG} - BN_ULLONG = TIdC_ULONGLONG; - {$EXTERNALSYM BN_LONG} - BN_LONG = TIdC_LONGLONG; - {$EXTERNALSYM BN_ULONG} - BN_ULONG = TIdC_ULONGLONG; - {$ENDIF} - {$IFDEF THIRTY_TWO_BIT} - {$EXTERNALSYM BN_ULLONG} - {$IFDEF BN_LLONG} - BN_ULLONG = TIdC_INT64; - {$ELSE} - BN_ULLONG = TIdC_ULONGLONG; - {$ENDIF} - {$EXTERNALSYM BN_LONG} - BN_LONG = TIdC_LONG; - {$EXTERNALSYM BN_ULONG} - BN_ULONG = TIdC_ULONG; - {$ENDIF} - {$EXTERNALSYM PBN_LONG} - PBN_LONG = ^BN_LONG; - {$EXTERNALSYM PBN_ULONG} - PBN_ULONG = ^BN_ULONG; - {$EXTERNALSYM BIGNUM} - BIGNUM = record - d : PBN_ULONG; // Pointer to an array of 'BN_BITS2' bit chunks. - top : TIdC_INT; // Index of last used d +1. - // The next are internal book keeping for bn_expand. - dmax : TIdC_INT; // Size of the d array. - neg : TIdC_INT; // one if the number is negative - flags : TIdC_INT; - end; - {$EXTERNALSYM PBIGNUM} - PBIGNUM = ^BIGNUM; - // BN_CTX = record - //This is defined internally. I don't want to do anything with an internal structure. - // end; - {$EXTERNALSYM PBN_CTX} - PBN_CTX = Pointer;//^BN_CTX; - {$EXTERNALSYM PPBN_CTX} - PPBN_CTX = ^PBN_CTX; - // Used for montgomery multiplication - {$EXTERNALSYM BN_MONT_CTX} - BN_MONT_CTX = record - ri : TIdC_INT; // number of bits in R - RR : BIGNUM; // used to convert to montgomery form - N : BIGNUM; // The modulus - Ni : BIGNUM; // R*(1/R mod N) - N*Ni = 1 - // (Ni is only stored for bignum algorithm) -{#if 0 - /* OpenSSL 0.9.9 preview: */ - BN_ULONG n0[2];/* least significant word(s) of Ni */ -#else - BN_ULONG n0; /* least significant word of Ni */ -#endif} - {$IFNDEF USE_THIS} - //* OpenSSL 0.9.9 preview: */ - n0 : array [0..1] of BN_ULONG; - {$ELSE} - n0 : BN_ULONG; // least significant word of Ni - {$ENDIF} - flags : TIdC_INT; - end; - {$EXTERNALSYM PBN_MONT_CTX} - PBN_MONT_CTX = ^BN_MONT_CTX; -// BN_BLINDING = record - //I can't locate any information about the record fields in this. -// end; - {$EXTERNALSYM PBN_BLINDING} - PBN_BLINDING = pointer;//^BN_BLINDING; - {$EXTERNALSYM BN_RECP_CTX} - BN_RECP_CTX = record - N : BIGNUM; // the divisor - Nr : BIGNUM; // the reciprocal - num_bits : TIdC_INT; - shift : TIdC_INT; - flags : TIdC_INT; - end; - {$EXTERNALSYM PBN_RECP_CTX} - PBN_RECP_CTX = ^BN_RECP_CTX; - {$EXTERNALSYM PBN_GENCB} - PBN_GENCB = ^BN_GENCB; - {$EXTERNALSYM PPBN_GENCB} - PPBN_GENCB = ^PBN_GENCB; - {$EXTERNALSYM BN_cb_1} - BN_cb_1 = procedure (p1, p2 : TIdC_INT; p3 : Pointer); cdecl; - {$EXTERNALSYM BN_cb_2} - BN_cb_2 = function (p1, p2 : TIdC_INT; p3 : PBN_GENCB): TIdC_INT; cdecl; - {$EXTERNALSYM BN_GENCB_union} - BN_GENCB_union = record - case Integer of - // if(ver==1) - handles old style callbacks - 0 : (cb_1 : BN_cb_1); - // if(ver==2) - new callback style - 1 : (cb_2 : BN_cb_2); - end; - {$EXTERNALSYM BN_GENCB} - BN_GENCB = record - ver : TIdC_UINT; // To handle binary (in)compatibility - arg : Pointer; // callback-specific data - cb : BN_GENCB_union; - end; - //aes.h - - //seed.h - - //chamellia.h - {$IFNDEF OPENSSL_NO_CAMELLIA} - {$EXTERNALSYM KEY_TABLE_TYPE} - KEY_TABLE_TYPE = array [0..(CAMELLIA_TABLE_WORD_LEN - 1)] of TIdC_UINT; //* to match with WORD */ - {$EXTERNALSYM CAMELLIA_KEY_union} - CAMELLIA_KEY_union = record - case byte of - 0 : (d : TIdC_DOUBLE); //* ensures 64-bit align */ - 1 : (rd_key : KEY_TABLE_TYPE); - end; - {$EXTERNALSYM CAMELLIA_KEY} - CAMELLIA_KEY = record - u : CAMELLIA_KEY_union; - grand_rounds : TIdC_INT; - end; - {$EXTERNALSYM PCAMELLIA_KEY} - PCAMELLIA_KEY = ^CAMELLIA_KEY; - {$ENDIF} - //whrlpool.h - {$EXTERNALSYM WHIRLPOOL_CTX_union} - WHIRLPOOL_CTX_union = record - case byte of - 0 : (c : array [0..WHIRLPOOL_DIGEST_LENGTH - 1] of byte ); - 1 : (q : array [0..(WHIRLPOOL_DIGEST_LENGTH div SizeOf(TIdC_DOUBLE))-1 ] of TIdC_DOUBLE); - end; - {$EXTERNALSYM WHIRLPOOL_CTX} - WHIRLPOOL_CTX = record - H : WHIRLPOOL_CTX_union; - data : array [0..(WHIRLPOOL_BBLOCK div 8)-1] of byte; - bitoff : TIdC_INT; - bitlen : array[0..(WHIRLPOOL_COUNTER div sizeof(size_t))-1] of size_t; - end; - {$EXTERNALSYM PWHIRLPOOL_CTX} - PWHIRLPOOL_CTX = ^WHIRLPOOL_CTX; - - //md2.h - {$IFNDEF OPENSSL_NO_MD2} - {$EXTERNALSYM MD2_CTX} - MD2_CTX = record - num : TIdC_UINT; - data : array [0..MD2_BLOCK - 1] of TIdAnsiChar; - cksm : array [0..MD2_BLOCK - 1] of MD2_INT; - state : array[0..MD2_BLOCK -1] of MD2_INT; - end; - {$EXTERNALSYM PMD2_CTX} - PMD2_CTX = ^MD2_CTX; - {$ENDIF} - //md4.h - {$IFNDEF OPENSSL_NO_MD4} - {$EXTERNALSYM MD4_LONG} - MD4_LONG = TIdC_ULONG; - {$EXTERNALSYM MD4_CTX} - MD4_CTX = record - A,B,C,D : MD4_LONG; - Nl,Nh : MD4_LONG; - data : array [0..(MD4_LBLOCK-1)] of MD4_LONG; - num : TIdC_UINT; - end; - {$EXTERNALSYM PMD4_CTX} - PMD4_CTX = ^MD4_CTX; - {$ENDIF} - //md5.h - {$EXTERNALSYM MD5_LONG} - MD5_LONG = TIdC_UINT; - {$EXTERNALSYM MD5_CTX} - MD5_CTX = record - A,B,C,D : MD5_LONG; - Nl,Nh : MD5_LONG; - data : array [0..(MD5_LBLOCK - 1)] of MD5_LONG; - num : TIdC_UINT; - end; - {$EXTERNALSYM PMD5_CTX} - PMD5_CTX = ^MD5_CTX; - //sha.h -//#if defined(OPENSSL_NO_SHA) || (defined(OPENSSL_NO_SHA0) && defined(OPENSSL_NO_SHA1)) -//#error SHA is disabled. -//#endif - {$IFDEF OPENSSL_NO_SHA} - {$DEFINE DONTUSESHA} - {$ENDIF} - {$IFDEF PENSSL_NO_SHA0} - {$IFDEF OPENSSL_NO_SHA1} - {$DEFINE DONTUSESHA} - {$ENDIF} - {$ENDIF} - {$IFNDEF DONTUSESHA} - {$IFDEF OPENSSL_FIPS} - {$EXTERNALSYM FIPS_SHA_SIZE_T} - FIPS_SHA_SIZE_T = size_t; - {$ENDIF} - {$ENDIF} - {$EXTERNALSYM SHA_LONG} - SHA_LONG = TIdC_UINT; - {$EXTERNALSYM SHA_CTX} - SHA_CTX = record - h0,h1,h2,h3,h4 : SHA_LONG; - Nl,Nh : SHA_LONG; - data : array [0..SHA_LBLOCK] of SHA_LONG; - num : TIdC_INT; - end; - {$IFNDEF OPENSSL_NO_SHA256} - {$EXTERNALSYM SHA256_CTX} - SHA256_CTX = record - h : array [0..(8 - 1)] of SHA_LONG; - Nl,Nh : SHA_LONG; - data : array [0..(SHA_LBLOCK -1)] of SHA_LONG; - num,md_len : TIdC_UINT; - end; - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA512} - {$EXTERNALSYM SHA_LONG64} - //not defined like this in sha.h but a comment - //says that it must be 64 bit. - SHA_LONG64 = TIdC_UINT64; - {$EXTERNALSYM TSHA512_CTX_Union} - TSHA512_CTX_Union = record - case integer of - 0 : (d : array [0..(SHA_LBLOCK -1)] of SHA_LONG64); - 1 : (p : array [0..(SHA512_CBLOCK -1)] of byte); - end; - {$EXTERNALSYM SHA512_CTX} - SHA512_CTX = record - h : array[0..(8-1)]of SHA_LONG64; - Nl,Nh : SHA_LONG64; - u : TSHA512_CTX_Union; - num,md_len : TIdC_UINT; - end; - {$EXTERNALSYM PSHA512_CTX} - PSHA512_CTX = ^SHA512_CTX; - {$ENDIF} - //ui.h - {$EXTERNALSYM PUI_METHOD} - PUI_METHOD = Pointer; //^UI_METHOD - {$EXTERNALSYM PUI_STRING} - PUI_STRING = Pointer; //^UI_STRING; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_UI_STRING} - STACK_OF_UI_STRING = record - stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_UI_STRING} - PSTACK_OF_UI_STRING = ^STACK_OF_UI_STRING; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_UI_STRING} - PSTACK_OF_UI_STRING = PSTACK; - {$ENDIF} - {$EXTERNALSYM UI_string_types} - {$EXTERNALSYM UIT_NONE} - {$EXTERNALSYM UIT_PROMPT} - {$EXTERNALSYM UIT_VERIFY} - {$EXTERNALSYM UIT_BOOLEAN} - {$EXTERNALSYM UIT_INFO} - {$EXTERNALSYM UIT_ERROR} - UI_string_types = ( - UIT_NONE, //=0, - UIT_PROMPT, //* Prompt for a string */ - UIT_VERIFY, //* Prompt for a string and verify */ - UIT_BOOLEAN, //* Prompt for a yes/no response */ - UIT_INFO, //* Send info to the user */ - UIT_ERROR); //* Send an error message to the user */ - - //bio.h - //http://www.openssl.org/docs/crypto/bio.html - {$EXTERNALSYM PBIO} - PBIO = ^BIO; - {$EXTERNALSYM PBIO_METHOD} - PBIO_METHOD = ^BIO_METHOD; - {$EXTERNALSYM Pbio_info_cb} - Pbio_info_cb = procedure (_para1 : PBIO; _para2 : TIdC_INT; _para3 : PIdAnsiChar; - _para4 : TIdC_INT; _para5, _para6 : TIdC_LONG); cdecl; - {$EXTERNALSYM BIO_METHOD} - BIO_METHOD = record - _type : TIdC_INT; - name : PIdAnsiChar; - bwrite : function(_para1 : PBIO; _para2 : PIdAnsiChar; _para3 : TIdC_INT) : TIdC_INT; cdecl; - bread : function(_para1: PBIO; _para2: PIdAnsiChar; _para3: TIdC_INT) : TIdC_INT; cdecl; - bputs : function (_para1 : PBIO; _para2 : PIdAnsiChar) : TIdC_INT; cdecl; - bgets : function (_para1 : PBIO; _para2 : PIdAnsiChar; _para3 : TIdC_INT) : TIdC_INT; cdecl; - ctrl : function (_para1 : PBIO; _para2 : TIdC_INT; _para3 : TIdC_LONG; _para4 : Pointer) : TIdC_LONG; cdecl; - create : function(_para1 : PBIO) : TIdC_INT; cdecl; - destroy : function (_para1 : PBIO) : TIdC_INT; cdecl; - callback_ctrl : function (_para1 : PBIO; _para2 : TIdC_INT; _para3 : pbio_info_cb): TIdC_LONG; cdecl; - end; - BIO = record - method : PBIO_METHOD; - // bio, mode, argp, argi, argl, ret - callback : function (_para1 : PBIO; _para2 : TIdC_INT; _para3 : PIdAnsiChar; - _para4 : TIdC_INT; _para5, _para6 : TIdC_LONG) : TIdC_LONG cdecl; - cb_arg : PIdAnsiChar; // first argument for the callback - init : TIdC_INT; - shutdown : TIdC_INT; - flags : TIdC_INT; // extra storage - retry_reason : TIdC_INT; - num : TIdC_INT; - ptr : Pointer; - next_bio : PBIO; // used by filter BIOs - prev_bio : PBIO; // used by filter BIOs - references : TIdC_INT; - num_read : TIdC_ULONG; - num_write : TIdC_ULONG; - ex_data : CRYPTO_EX_DATA; - end; - {$EXTERNALSYM BIO} - {$EXTERNALSYM BIO_F_BUFFER_CTX} - BIO_F_BUFFER_CTX = record - { - /* Buffers are setup like this: - * - * <---------------------- size -----------------------> - * +---------------------------------------------------+ - * | consumed | remaining | free space | - * +---------------------------------------------------+ - * <-- off --><------- len -------> - *} - - //* BIO *bio; */ /* this is now in the BIO struct */ - ibuf_size : TIdC_INT; //* how big is the input buffer */ - obuf_size : TIdC_INT; //* how big is the output buffer */ - - ibuf : PIdAnsiChar; //* the char array */ - ibuf_len : TIdC_INT; //* how many bytes are in it */ - ibuf_off : TIdC_INT; //* write/read offset */ - - obuf : PIdAnsiChar; //* the char array */ - obuf_len : TIdC_INT; //* how many bytes are in it */ - obuf_off : TIdC_INT; //* write/read offset */ - end; - {$EXTERNALSYM PBIO_F_BUFFER_CTX} - PBIO_F_BUFFER_CTX = ^BIO_F_BUFFER_CTX; - //* Prefix and suffix callback in ASN1 BIO *// - {$EXTERNALSYM asn1_ps_function} - asn1_ps_function = function (b : PBIO; pbuf : PPIdAnsiChar; plen : PIdC_INT; parg : Pointer) : TIdC_INT cdecl; - //struct from engine.h -// ENGINE = record - //I don't have any info about record fields. -// end; - {$EXTERNALSYM PENGINE} - PENGINE = Pointer;//^ENGINE; - {$EXTERNALSYM PPENGINE} - PPENGINE = ^PENGINE; - //asn1.h - {$EXTERNALSYM I2D_OF_void} - //#define I2D_OF(type) int (*)(type *,unsigned char **) - I2D_OF_void = function(_para1 : Pointer; _para2 : PPByte) : TIdC_INT cdecl; - //D2I_OF(type) type *(*)(type **,const unsigned char **,long) - {$EXTERNALSYM D2I_OF_void} - D2I_OF_void = function (_para1 : PPointer; _para2 : PPByte; _para3 : TIdC_LONG) : Pointer cdecl; - // This is just an opaque pointer - // ASN1_VALUE = record - // end; - {$EXTERNALSYM PASN1_VALUE} - PASN1_VALUE = Pointer;//^ASN1_VALUE; - {$EXTERNALSYM PPASN1_VALUE} - PPASN1_VALUE = ^PASN1_VALUE; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_ASN1_VALUE} - STACK_OF_ASN1_VALUE = record - stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_ASN1_VALUE} - PSTACK_OF_ASN1_VALUE = ^STACK_OF_ASN1_VALUE; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_ASN1_VALUE} - PSTACK_OF_ASN1_VALUE = PSTACK; - {$ENDIF} - {$EXTERNALSYM ASN1_OBJECT} - ASN1_OBJECT = record - sn, ln : PIdAnsiChar; - nid : TIdC_INT; - length : TIdC_INT; - data : PIdAnsiChar; - flags : TIdC_INT; // Should we free this one - end; - {$EXTERNALSYM PASN1_OBJECT} - PASN1_OBJECT = ^ASN1_OBJECT; - {$EXTERNALSYM PPASN1_OBJECT} - PPASN1_OBJECT = ^PASN1_OBJECT; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_ASN1_OBJECT} - STACK_OF_ASN1_OBJECT = record - stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_ASN1_OBJECT} - PSTACK_OF_ASN1_OBJECT = ^STACK_OF_ASN1_OBJECT; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_ASN1_OBJECT} - PSTACK_OF_ASN1_OBJECT = PSTACK; - {$ENDIF} - {$EXTERNALSYM PPSTACK_OF_ASN1_OBJECT} - PPSTACK_OF_ASN1_OBJECT = ^PSTACK_OF_ASN1_OBJECT; - {$EXTERNALSYM asn1_string_st} - asn1_string_st = record - length : TIdC_INT; - _type : TIdC_INT; - data : PIdAnsiChar; - { The value of the following field depends on the type being - held. It is mostly being used for BIT_STRING so if the - input data has a non-zero 'unused bits' value, it will be - handled correctly } - flags : TIdC_LONG; - end; - //moved from asn1.h section here for a type definition - - {$IFNDEF OPENSSL_EXPORT_VAR_AS_FUNCTION} - {$EXTERNALSYM PASN1_ITEM} - // ASN1_ITEM pointer exported type - // typedef const ASN1_ITEM ASN1_ITEM_EXP; - PASN1_ITEM = ^ASN1_ITEM; - {$ELSE} - // Platforms that can't easily handle shared global variables are declared - // as functions returning ASN1_ITEM pointers. - // ASN1_ITEM pointer exported type - //typedef const ASN1_ITEM * ASN1_ITEM_EXP(void); - {$EXTERNALSYM PASN1_ITEM_EXP} - PASN1_ITEM_EXP = ^ASN1_ITEM_EXP; - {$ENDIF} -// typedef int asn1_output_data_fn(BIO *out, BIO *data, ASN1_VALUE *val, int flags, -// const ASN1_ITEM *it); - {$EXTERNALSYM asn1_output_data_fn} - asn1_output_data_fn = function(AOut : PBIO; data : PBIO; val : PASN1_VALUE; - flags : TIdC_INT; it : PASN1_ITEM): TIdC_INT; stdcall; - {$EXTERNALSYM ASN1_STRING} - ASN1_STRING = asn1_string_st; - {$EXTERNALSYM PASN1_STRING} - PASN1_STRING = ^ASN1_STRING; - {$EXTERNALSYM PPASN1_STRING} - PPASN1_STRING = ^PASN1_STRING; - {$EXTERNALSYM ASN1_INTEGER} - ASN1_INTEGER = ASN1_STRING; - {$EXTERNALSYM PASN1_INTEGER} - PASN1_INTEGER = ^ASN1_INTEGER; - {$EXTERNALSYM PPASN1_INTEGER} - PPASN1_INTEGER = ^PASN1_INTEGER; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_ASN1_INTEGER} - STACK_OF_ASN1_INTEGER = record - stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_ASN1_INTEGER} - PSTACK_OF_ASN1_INTEGER = ^STACK_OF_ASN1_INTEGER; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_ASN1_INTEGER} - PSTACK_OF_ASN1_INTEGER = PSTACK; - {$ENDIF} - {$EXTERNALSYM ASN1_ENUMERATED} - ASN1_ENUMERATED = ASN1_STRING; - {$EXTERNALSYM PASN1_ENUMERATED} - PASN1_ENUMERATED = ^ASN1_ENUMERATED; - {$EXTERNALSYM PPASN1_ENUMERATED} - PPASN1_ENUMERATED = ^PASN1_ENUMERATED; - {$EXTERNALSYM ASN1_BIT_STRING} - ASN1_BIT_STRING = ASN1_STRING; - {$EXTERNALSYM PASN1_BIT_STRING} - PASN1_BIT_STRING = ^ASN1_BIT_STRING; - {$EXTERNALSYM PPASN1_BIT_STRING} - PPASN1_BIT_STRING = ^PASN1_BIT_STRING; - {$EXTERNALSYM ASN1_OCTET_STRING} - ASN1_OCTET_STRING = ASN1_STRING; - {$EXTERNALSYM PASN1_OCTET_STRING} - PASN1_OCTET_STRING = ^ASN1_OCTET_STRING; - {$EXTERNALSYM PPASN1_OCTET_STRING} - PPASN1_OCTET_STRING = ^PASN1_OCTET_STRING; - {$EXTERNALSYM ASN1_PRINTABLESTRING} - ASN1_PRINTABLESTRING = ASN1_STRING; - {$EXTERNALSYM PASN1_PRINTABLESTRING} - PASN1_PRINTABLESTRING = ^ASN1_PRINTABLESTRING; - {$EXTERNALSYM PPASN1_PRINTABLESTRING} - PPASN1_PRINTABLESTRING = ^PASN1_PRINTABLESTRING; - {$EXTERNALSYM ASN1_T61STRING} - ASN1_T61STRING = ASN1_STRING; - {$EXTERNALSYM PASN1_T61STRING} - PASN1_T61STRING = ^ASN1_T61STRING; - {$EXTERNALSYM PPASN1_T61STRING} - PPASN1_T61STRING = ^PASN1_T61STRING; - {$EXTERNALSYM ASN1_IA5STRING} - ASN1_IA5STRING = ASN1_STRING; - {$EXTERNALSYM PASN1_IA5STRING} - PASN1_IA5STRING = ^ASN1_IA5STRING; - {$EXTERNALSYM PPASN1_IA5STRING} - PPASN1_IA5STRING = ^PASN1_IA5STRING; - {$EXTERNALSYM ASN1_UTCTIME} - ASN1_UTCTIME = ASN1_STRING; - {$EXTERNALSYM PASN1_UTCTIME} - PASN1_UTCTIME = ^ASN1_UTCTIME; - {$EXTERNALSYM PPASN1_UTCTIME} - PPASN1_UTCTIME = ^PASN1_UTCTIME; - {$EXTERNALSYM ASN1_GENERALIZEDTIME} - ASN1_GENERALIZEDTIME = ASN1_STRING; - {$EXTERNALSYM PASN1_GENERALIZEDTIME} - PASN1_GENERALIZEDTIME = ^ASN1_GENERALIZEDTIME; - {$EXTERNALSYM PPASN1_GENERALIZEDTIME} - PPASN1_GENERALIZEDTIME = ^PASN1_GENERALIZEDTIME; - {$EXTERNALSYM ASN1_TIME} - ASN1_TIME = ASN1_STRING; - {$EXTERNALSYM PASN1_TIME} - PASN1_TIME = ^ASN1_TIME; - {$EXTERNALSYM PPASN1_TIME} - PPASN1_TIME = ^PASN1_TIME; - {$EXTERNALSYM ASN1_GENERALSTRING} - ASN1_GENERALSTRING = ASN1_STRING; - {$EXTERNALSYM PASN1_GENERALSTRING} - PASN1_GENERALSTRING = ^ASN1_GENERALSTRING; - {$EXTERNALSYM PPASN1_GENERALSTRING} - PPASN1_GENERALSTRING = ^PASN1_GENERALSTRING; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_ASN1_GENERALSTRING} - STACK_OF_ASN1_GENERALSTRING = record - _stack: STACK; - end; - {$EXTERNALSYM PSTACK_OF_ASN1_GENERALSTRING} - PSTACK_OF_ASN1_GENERALSTRING =^STACK_OF_ASN1_GENERALSTRING; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_ASN1_GENERALSTRING} - PSTACK_OF_ASN1_GENERALSTRING = PSTACK; - {$ENDIF} - {$EXTERNALSYM ASN1_UNIVERSALSTRING} - ASN1_UNIVERSALSTRING = ASN1_STRING; - {$EXTERNALSYM PASN1_UNIVERSALSTRING} - PASN1_UNIVERSALSTRING = ^ASN1_UNIVERSALSTRING; - {$EXTERNALSYM PPASN1_UNIVERSALSTRING} - PPASN1_UNIVERSALSTRING = ^PASN1_UNIVERSALSTRING; - {$EXTERNALSYM ASN1_BMPSTRING} - ASN1_BMPSTRING = ASN1_STRING; - {$EXTERNALSYM PASN1_BMPSTRING} - PASN1_BMPSTRING = ^ASN1_BMPSTRING; - {$EXTERNALSYM PPASN1_BMPSTRING} - PPASN1_BMPSTRING = ^PASN1_BMPSTRING; - {$EXTERNALSYM ASN1_VISIBLESTRING} - ASN1_VISIBLESTRING = ASN1_STRING; - {$EXTERNALSYM PASN1_VISIBLESTRING} - PASN1_VISIBLESTRING = ^ASN1_VISIBLESTRING; - {$EXTERNALSYM PPASN1_VISIBLESTRING} - PPASN1_VISIBLESTRING = ^PASN1_VISIBLESTRING; - {$EXTERNALSYM ASN1_UTF8STRING} - ASN1_UTF8STRING = ASN1_STRING; - {$EXTERNALSYM PASN1_UTF8STRING} - PASN1_UTF8STRING = ^ASN1_UTF8STRING; - {$EXTERNALSYM PPASN1_UTF8STRING} - PPASN1_UTF8STRING = ^PASN1_UTF8STRING; - {$EXTERNALSYM ASN1_BOOLEAN} - ASN1_BOOLEAN = TIdC_INT; - {$EXTERNALSYM PASN1_BOOLEAN} - PASN1_BOOLEAN = ^ASN1_BOOLEAN; - {$EXTERNALSYM PPASN1_BOOLEAN} - PPASN1_BOOLEAN = ^PASN1_BOOLEAN; - {$EXTERNALSYM ASN1_NULL} - ASN1_NULL = TIdC_INT; - {$EXTERNALSYM PASN1_NULL} - PASN1_NULL = ^ASN1_NULL; - {$EXTERNALSYM PPASN1_NULL} - PPASN1_NULL = ^PASN1_NULL; - {$EXTERNALSYM ASN1_TYPE} - ASN1_TYPE = record - case Integer of - 0: (ptr: PIdAnsiChar); - 1: (boolean: ASN1_BOOLEAN); - 2: (asn1_string: PASN1_STRING); - 3: (_object: PASN1_OBJECT); - 4: (integer: PASN1_INTEGER); - 5: (enumerated: PASN1_ENUMERATED); - 6: (bit_string: PASN1_BIT_STRING); - 7: (octet_string: PASN1_OCTET_STRING); - 8: (printablestring: PASN1_PRINTABLESTRING); - 9: (t61string: PASN1_T61STRING); - 10: (ia5string: PASN1_IA5STRING); - 11: (generalstring: PASN1_GENERALSTRING); - 12: (bmpstring: PASN1_BMPSTRING); - 13: (universalstring: PASN1_UNIVERSALSTRING); - 14: (utctime: PASN1_UTCTIME); - 15: (generalizedtime: PASN1_GENERALIZEDTIME); - 16: (visiblestring: PASN1_VISIBLESTRING); - 17: (utf8string: PASN1_UTF8STRING); - { set and sequence are left complete and still - contain the set or sequence bytes } - 18: (_set: PASN1_STRING); - 19: (sequence: PASN1_STRING); - end; - {$EXTERNALSYM PASN1_TYPE} - PASN1_TYPE = ^ASN1_TYPE; - {$EXTERNALSYM PPASN1_TYPE} - PPASN1_TYPE = ^PASN1_TYPE; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_ASN1_TYPE} - STACK_OF_ASN1_TYPE = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_ASN1_TYPE} - PSTACK_OF_ASN1_TYPE = ^STACK_OF_ASN1_TYPE; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_ASN1_TYPE} - PSTACK_OF_ASN1_TYPE = ^PSTACK; - {$ENDIF} - {$EXTERNALSYM ASN1_CTX} - ASN1_CTX = record - p : PIdAnsiChar; // work char pointer - eos : TIdC_INT; // end of sequence read for indefinite encoding - error : TIdC_INT; // error code to use when returning an error - inf : TIdC_INT; // constructed if 0x20, indefinite is 0x21 - tag : TIdC_INT; // tag from last 'get object' - xclass : TIdC_INT; // class from last 'get object' - slen : TIdC_LONG; // length of last 'get object' - max : PIdAnsiChar; // largest value of p allowed - q : PIdAnsiChar; // temporary variable - pp : PPIdAnsiChar; // variable - line : TIdC_INT; // used in error processing - end; - {$EXTERNALSYM PASN1_CTX} - PASN1_CTX = ^ASN1_CTX; - {$EXTERNALSYM PPASN1_CTX} - PPASN1_CTX = ^PASN1_CTX; - {$EXTERNALSYM ASN1_METHOD} - ASN1_METHOD = record - i2d : i2d_of_void; - d2i : i2d_of_void; - create : function: Pointer; cdecl; - destroy : procedure(ptr: Pointer); cdecl; - end; - {$EXTERNALSYM PASN1_METHOD} - PASN1_METHOD = ^ASN1_METHOD; - {$EXTERNALSYM PPASN1_METHOD} - PPASN1_METHOD = ^PASN1_METHOD; - // This is used when parsing some Netscape objects - {$EXTERNALSYM ASN1_HEADER} - ASN1_HEADER = record - header : PASN1_OCTET_STRING; - data : Pointer; - meth : PASN1_METHOD; - end; - {$EXTERNALSYM PASN1_HEADER} - PASN1_HEADER = ^ASN1_HEADER; - {$EXTERNALSYM PPASN1_HEADER} - PPASN1_HEADER = ^PASN1_HEADER; - {$EXTERNALSYM ASN1_ENCODING} - ASN1_ENCODING = record - enc: PIdAnsiChar; - len: TIdC_LONG; - modified: TIdC_INT; - end; - {$EXTERNALSYM PASN1_ENCODING} - PASN1_ENCODING = ^ASN1_ENCODING; - {$EXTERNALSYM PPASN1_ENCODING} - PPASN1_ENCODING = ^PASN1_ENCODING; - {$EXTERNALSYM ASN1_STRING_TABLE} - ASN1_STRING_TABLE = record - nid : TIdC_INT; - minsize : TIdC_LONG; - maxsize : TIdC_LONG; - mask : TIdC_ULONG; - flags : TIdC_ULONG; - end; - {$EXTERNALSYM PASN1_STRING_TABLE} - PASN1_STRING_TABLE = ^ASN1_STRING_TABLE; - {$EXTERNALSYM PPASN1_STRING_TABLE} - PPASN1_STRING_TABLE = ^ASN1_STRING_TABLE; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_ASN1_STRING_TABLE} - STACK_OF_ASN1_STRING_TABLE = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_ASN1_STRING_TABLE} - PSTACK_OF_ASN1_STRING_TABLE = ^STACK_OF_ASN1_STRING_TABLE; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_ASN1_STRING_TABLE} - PSTACK_OF_ASN1_STRING_TABLE = PSTACK; - {$ENDIF} - {$IFNDEF OPENSSL_EXPORT_VAR_AS_FUNCTION} - // ASN1_ITEM pointer exported type - // typedef const ASN1_ITEM ASN1_ITEM_EXP; - // ASN1_ITEM_EXP = ASN1_ITEM; - // PASN1_ITEM_EXP = ^ASN1_ITEM_EXP; - // PASN1_ITEM = ^ASN1_ITEM; - {$EXTERNALSYM PASN1_ITEM_EXP} - PASN1_ITEM_EXP = PASN1_ITEM; - {$ELSE} - // Platforms that can't easily handle shared global variables are declared - // as functions returning ASN1_ITEM pointers. - - // ASN1_ITEM pointer exported type - //typedef const ASN1_ITEM * ASN1_ITEM_EXP(void); - {$EXTERNALSYM ASN1_ITEM_EXP} - ASN1_ITEM_EXP = function : PASN1_ITEM cdecl; -// PASN1_ITEM_EXP = ^ASN1_ITEM_EXP; - {$ENDIF} - //rsa.h - struct rsa_st - {$IFNDEF OPENSSL_NO_RSA} - {$IFDEF OPENSSL_FIPS} - {$EXTERNALSYM FIPS_RSA_SIZE_T} - FIPS_RSA_SIZE_T = TIdC_int; - {$ENDIF} - {$EXTERNALSYM PRSA} - PRSA = ^RSA; - {$EXTERNALSYM PPRSA} - PPRSA =^PRSA; - {$EXTERNALSYM RSA_METHOD} - RSA_METHOD = record - name : PIdAnsiChar; - rsa_pub_enc : function (flen : TIdC_INT; const from : PIdAnsiChar; - _to : PIdAnsiChar; rsa : PRSA; padding : TIdC_INT) : TIdC_INT; cdecl; - rsa_pub_dec : function (flen : TIdC_INT; const from : PIdAnsiChar; - _to : PIdAnsiChar; rsa : PRSA; padding : TIdC_INT) : TIdC_INT; cdecl; - rsa_priv_enc : function (flen : TIdC_INT; const from : PIdAnsiChar; - _to : PIdAnsiChar; rsa : PRSA; padding : TIdC_INT) : TIdC_INT; cdecl; - rsa_priv_dec : function (flen : TIdC_INT; const from : PIdAnsiChar; - _to : PIdAnsiChar; rsa : PRSA; padding : TIdC_INT) : TIdC_INT; cdecl; - rsa_mod_exp : function (r0 : PBIGNUM; const I : PBIGNUM; - rsa : PRSA; ctx : PBN_CTX) : TIdC_INT cdecl; // Can be null / - bn_mod_exp : function (r : PBIGNUM; const a : PBIGNUM; - const p : PBIGNUM; const m: PBIGNUM; ctx : PBN_CTX; - m_ctx : PBN_MONT_CTX ) : TIdC_INT; cdecl; // Can be null - init : function (rsa : PRSA) : TIdC_INT; cdecl; // called at new - finish : function (rsa : PRSA) : TIdC_INT; cdecl; // called at free - flags : TIdC_INT; // RSA_METHOD_FLAG_* things - app_data : PIdAnsiChar; // may be needed! - // New sign and verify functions: some libraries don't allow arbitrary data - // to be signed/verified: this allows them to be used. Note: for this to work - // the RSA_public_decrypt() and RSA_private_encrypt() should *NOT* be used - // RSA_sign(), RSA_verify() should be used instead. Note: for backwards - // compatibility this functionality is only enabled if the RSA_FLAG_SIGN_VER - // option is set in 'flags'. - // - rsa_sign : function (_type : TIdC_INT; const m : PIdAnsiChar; m_length : TIdC_UINT; - sigret : PIdAnsiChar; siglen : PIdC_UINT; const rsa : PRSA) : TIdC_INT; cdecl; - rsa_verify : function(dtype : TIdC_INT; const m : PIdAnsiChar; m_length : PIdC_UINT; - sigbuf : PIdAnsiChar; siglen : PIdC_UINT; const rsa :PRSA) : TIdC_INT; cdecl; - // If this callback is NULL, the builtin software RSA key-gen will be used. - // This is for behavioural compatibility whilst the code gets rewired, but - // one day it would be nice to assume there are no such things as "builtin - // software" implementations. - rsa_keygen : function (rsa : PRSA; bits : TIdC_INT; e : PBIGNUM; cb : PBN_GENCB) : TIdC_INT; cdecl; - end; - {$EXTERNALSYM PRSA_METHOD} - PRSA_METHOD = ^RSA_METHOD; - - {$EXTERNALSYM rsa_st} - rsa_st = record - // The first parameter is used to pickup errors where - // this is passed instead of aEVP_PKEY, it is set to 0 - pad : TIdC_INT; - version : TIdC_LONG; - meth : PRSA_METHOD; // const RSA_METHOD *meth; - // functional reference if 'meth' is ENGINE-provided - engine : PENGINE; - n : PBIGNUM; - e : PBIGNUM; - d : PBIGNUM; - p : PBIGNUM; - q : PBIGNUM; - dmp1 : PBIGNUM; - dmq1 : PBIGNUM; - iqmp : PBIGNUM; - // be careful using this if the RSA structure is shared - ex_data : CRYPTO_EX_DATA; - references : TIdC_INT; - flags : TIdC_INT; - // Used to cache montgomery values - _method_mod_n : PBN_MONT_CTX; - _method_mod_p : PBN_MONT_CTX; - _method_mod_q : PBN_MONT_CTX; - // all BIGNUM values are actually in the following data, if it is not NULL - bignum_data : PIdAnsiChar; - blinding : PBN_BLINDING; - mt_blinding : PBN_BLINDING; - end; - {$EXTERNALSYM RSA} - RSA = rsa_st; - {$EXTERNALSYM Prsa_st} - Prsa_st = PRSA; - {$ENDIF} - //dso.h - {$EXTERNALSYM PDSO} - PDSO = ^DSO; -///* The function prototype used for method functions (or caller-provided -// * callbacks) that transform filenames. They are passed a DSO structure pointer -// * (or NULL if they are to be used independantly of a DSO object) and a -// * filename to transform. They should either return NULL (if there is an error -// * condition) or a newly allocated string containing the transformed form that -// * the caller will need to free with OPENSSL_free() when done. */ - {$EXTERNALSYM DSO_NAME_CONVERTER_FUNC} - DSO_NAME_CONVERTER_FUNC = function (dso : PDSO; para1 : PIdAnsiChar) : PIdAnsiChar cdecl; - {$EXTERNALSYM PDSO_METHOD} - PDSO_METHOD = ^DSO_METHOD; - {$EXTERNALSYM DSO_FUNC_TYPE} - DSO_FUNC_TYPE = procedure cdecl; -///* The function prototype used for method functions (or caller-provided -// * callbacks) that merge two file specifications. They are passed a -// * DSO structure pointer (or NULL if they are to be used independantly of -// * a DSO object) and two file specifications to merge. They should -// * either return NULL (if there is an error condition) or a newly allocated -// * string containing the result of merging that the caller will need -// * to free with OPENSSL_free() when done. -// * Here, merging means that bits and pieces are taken from each of the -// * file specifications and added together in whatever fashion that is -// * sensible for the DSO method in question. The only rule that really -// * applies is that if the two specification contain pieces of the same -// * type, the copy from the first string takes priority. One could see -// * it as the first specification is the one given by the user and the -// * second being a bunch of defaults to add on if they're missing in the -// * first. */ - {$EXTERNALSYM DSO_MERGER_FUNC} - DSO_MERGER_FUNC = function (DSO : PDSO; para1, para2 : PIdAnsiChar) : PIdAnsiChar stdcall; - {$EXTERNALSYM DSO_METHOD} - DSO_METHOD = record - name : PIdAnsiChar; - ///* Loads a shared library, NB: new DSO_METHODs must ensure that a - // * successful load populates the loaded_filename field, and likewise a - // * successful unload OPENSSL_frees and NULLs it out. */ - dso_load : function (dso : PDSO) : TIdC_INT cdecl; - //* Unloads a shared library */ - dso_unload : function (dso : PDSO) : TIdC_INT cdecl; - //* Binds a variable */ - dso_bind_var : function (dso : PDSO; symname : PIdAnsiChar) : Pointer cdecl; - ///* Binds a function - assumes a return type of DSO_FUNC_TYPE. - // * This should be cast to the real function prototype by the - // * caller. Platforms that don't have compatible representations - // * for different prototypes (this is possible within ANSI C) - // * are highly unlikely to have shared libraries at all, let - // * alone a DSO_METHOD implemented for them. */ - dso_bind_func : function (dso : PDSO; symname : PIdAnsiChar) : DSO_FUNC_TYPE stdcall; - - ///* The generic (yuck) "ctrl()" function. NB: Negative return - // * values (rather than zero) indicate errors. */ - dso_ctrl : function (dso : PDSO; cmd : TIdC_INT; larg : TIdC_LONG; parg : Pointer) : TIdC_LONG stdcall; - ///* The default DSO_METHOD-specific function for converting filenames to - // * a canonical native form. */ - dso_name_converter : DSO_NAME_CONVERTER_FUNC; - ///* The default DSO_METHOD-specific function for converting filenames to - // * a canonical native form. */ - dso_merger : DSO_MERGER_FUNC; - - //* [De]Initialisation handlers. */ - init : function (dso : PDSO) : TIdC_INT stdcall; - finish : function (dso : PDSO) : TIdC_INT stdcall; - - //* Return pathname of the module containing location */ - pathbyaddr : function (addr : Pointer; path : PIdAnsiChar; sz : TIdC_INT) : TIdC_INT stdcall; - //* Perform global symbol lookup, i.e. among *all* modules */ - globallookup : function (symname : PIdAnsiChar) : Pointer stdcall; - end; - {$EXTERNALSYM DSO} - DSO = record - meth : PDSO_METHOD; - ///* Standard dlopen uses a (void *). Win32 uses a HANDLE. VMS - // * doesn't use anything but will need to cache the filename - // * for use in the dso_bind handler. All in all, let each - // * method control its own destiny. "Handles" and such go in - // * a STACK. */ - meth_data : PSTACK_OF_POINTER; - references : TIdC_INT; - flags : TIdC_INT; - ///* For use by applications etc ... use this for your bits'n'pieces, - // * don't touch meth_data! */ - ex_data : CRYPTO_EX_DATA; - ///* If this callback function pointer is set to non-NULL, then it will - // * be used in DSO_load() in place of meth->dso_name_converter. NB: This - // * should normally set using DSO_set_name_converter(). */ - name_converter : DSO_NAME_CONVERTER_FUNC; - ///* If this callback function pointer is set to non-NULL, then it will - // * be used in DSO_load() in place of meth->dso_merger. NB: This - // * should normally set using DSO_set_merger(). */ - merger : DSO_MERGER_FUNC; - ///* This is populated with (a copy of) the platform-independant - // * filename used for this DSO. */ - filename : PIdAnsiChar; - ///* This is populated with (a copy of) the translated filename by which - // * the DSO was actually loaded. It is NULL iff the DSO is not currently - // * loaded. NB: This is here because the filename translation process - // * may involve a callback being invoked more than once not only to - // * convert to a platform-specific form, but also to try different - // * filenames in the process of trying to perform a load. As such, this - // * variable can be used to indicate (a) whether this DSO structure - // * corresponds to a loaded library or not, and (b) the filename with - // * which it was actually loaded. */ - loaded_filename : PIdAnsiChar; - end; - //dh.h - {$IFNDEF OPENSSL_NO_DH} - {$EXTERNALSYM PDH} - PDH = ^DH; - {$EXTERNALSYM DH_METHOD} - DH_METHOD = record - name : PIdAnsiChar; - // Methods here - generate_key : function (dh : PDH) : TIdC_INT; cdecl; - compute_key : function (key : PIdAnsiChar; const pub_key : PBIGNUM; dh : PDH) : TIdC_INT; cdecl; - bn_mod_exp : function (const dh : PDH; r : PBIGNUM; const e : PBIGNUM; - const p : PBIGNUM; const m : PBIGNUM; ctx : PBN_CTX; - m_ctx : PBN_MONT_CTX) : TIdC_INT; cdecl; // Can be null - init : function (dh : PDH) : TIdC_INT; cdecl; - finish : function (dh : PDH) : TIdC_INT; cdecl; - flags : TIdC_INT; - app_data : PIdAnsiChar; - // If this is non-NULL, it will be used to generate parameters - generate_params : function(dh : PDH; prime_len, generator : TIdC_INT; cb : PBN_GENCB) : TIdC_INT; cdecl; - end; - {$EXTERNALSYM dh_st} - dh_st = record - // The first parameter is used to pickup errors where - // this is passed instead of aEVP_PKEY, it is set to 0 - pad : TIdC_INT; - version : TIdC_LONG; - meth : PRSA_METHOD; - // functional reference if 'meth' is ENGINE-provided - engine: PENGINE; - n : PBIGNUM; - e : PBIGNUM; - d : PBIGNUM; - p : PBIGNUM; - q : PBIGNUM; - dmp1 : PBIGNUM; - dmq1 : PBIGNUM; - iqmp : PBIGNUM; - // be careful using this if the RSA structure is shared - ex_data : CRYPTO_EX_DATA; - references : TIdC_INT; - flags : TIdC_INT; - // Used to cache montgomery values - _method_mod_n : BN_MONT_CTX; - _method_mod_p : BN_MONT_CTX; - _method_mod_q : BN_MONT_CTX; - // all BIGNUM values are actually in the following data, if it is not NULL - bignum_data : PIdAnsiChar; - blinding : PBN_BLINDING; - mt_blinding : PBN_BLINDING; - end; - {$EXTERNALSYM DH} - DH = dh_st; - {$EXTERNALSYM Pdh_st} - Pdh_st = PDH; - {$EXTERNALSYM PPDH} - PPDH =^PDH; - {$ENDIF} - // dsa.h - {$IFNDEF OPENSSL_NO_DSA} - {$IFDEF OPENSSL_FIPS} - {$EXTERNALSYM FIPS_DSA_SIZE_T} - FIPS_DSA_SIZE_T = TIdC_int; - {$ENDIF} - {$EXTERNALSYM DSA_SIG} - DSA_SIG = record - r : PBIGNUM; - s : PBIGNUM; - end; - {$EXTERNALSYM PDSA_SIG} - PDSA_SIG = ^DSA_SIG; - {$EXTERNALSYM PDSA} - PDSA = ^DSA; - {$EXTERNALSYM DSA_METHOD} - DSA_METHOD = record - name : PIdAnsiChar; - dsa_do_sign : function (const dgst : PIdAnsiChar; dlen : TIdC_INT; dsa : PDSA) : PDSA_SIG; cdecl; - dsa_sign_setup : function (dsa : PDSA; ctx_in : PBN_CTX; kinvp, rp : PPBN_CTX) : TIdC_INT; cdecl; - dsa_do_verify : function(dgst : PIdAnsiChar; dgst_len : TIdC_INT; - sig : PDSA_SIG; dsa : PDSA) : TIdC_INT; cdecl; - dsa_mod_exp : function(dsa : PDSA; rr, a1, p1, - a2, p2, m : PBIGNUM; ctx : PBN_CTX; - in_mont : PBN_MONT_CTX) : TIdC_INT; cdecl; - bn_mod_exp : function (dsa : PDSA; r, a : PBIGNUM; const p, m : PBIGNUM; - ctx : PBN_CTX; m_ctx : PBN_CTX): TIdC_INT; cdecl; // Can be null - init : function (dsa : PDSA) : TIdC_INT; cdecl; - finish : function (dsa : PDSA) : TIdC_INT; cdecl; - flags : TIdC_INT; - app_data : PIdAnsiChar; - // If this is non-NULL, it is used to generate DSA parameters - dsa_paramgen : function (dsa : PDSA; bits : TIdC_INT; seed : PIdAnsiChar; - seed_len : TIdC_INT; counter_ret : PIdC_INT; h_ret : PIdC_ULONG; - cb : PBN_GENCB ) : TIdC_INT; cdecl; - // If this is non-NULL, it is used to generate DSA keys - dsa_keygen : function(dsa : PDSA) : TIdC_INT; cdecl; - end; - {$EXTERNALSYM PDSA_METHOD} - PDSA_METHOD = ^DSA_METHOD; - - {$EXTERNALSYM dsa_st} - dsa_st = record - // This first variable is used to pick up errors where - // a DSA is passed instead of of a EVP_PKEY - pad : TIdC_INT; - version : TIdC_LONG; - write_params : TIdC_INT; - p : PBIGNUM; - q : PBIGNUM; // == 20 - g : PBIGNUM; - pub_key : PBIGNUM; // y public key - priv_key : PBIGNUM; // x private key - kinv : BIGNUM; // Signing pre-calc - r : PBIGNUM; // Signing pre-calc - flags : TIdC_INT; - // Normally used to cache montgomery values - method_mont_p : PBN_MONT_CTX; - references : TIdC_INT; - ex_data : CRYPTO_EX_DATA; - meth : PDSA_METHOD; - // functional reference if 'meth' is ENGINE-provided - engine : PENGINE; - end; - {$EXTERNALSYM DSA} - DSA = dsa_st; - {$EXTERNALSYM Pdsa_st} - Pdsa_st = PDSA; - {$EXTERNALSYM PPDSA} - PPDSA = ^PDSA; - {$ENDIF} - // ec.h - {$IFNDEF OPENSSL_NO_EC} - // EC_METHOD = record - //The fields are internal to OpenSSL, they are not listed in the header. - // end; - {$EXTERNALSYM PEC_METHOD} - PEC_METHOD = Pointer;//^EC_METHOD; - {$EXTERNALSYM PPEC_METHOD} - PPEC_METHOD = ^PEC_METHOD; - // EC_GROUP = record - //The fields are internal to OpenSSL, they are not listed in the header. -// end; - {$EXTERNALSYM PEC_GROUP} - PEC_GROUP = Pointer;//^EC_GROUP; - {$EXTERNALSYM PPEC_GROUP} - PPEC_GROUP = ^PEC_GROUP; -// EC_POINT = record - //The fields are internal to OpenSSL, they are not listed in the header. -// end; - {$EXTERNALSYM PEC_POINT} - PEC_POINT = Pointer;//^EC_POINT; - {$EXTERNALSYM PPEC_POINT} - PPEC_POINT = ^PEC_POINT; - {$EXTERNALSYM EC_builtin_curve} - EC_builtin_curve = record - nid : TIdC_INT; - comment : PIdAnsiChar; - end; - {$EXTERNALSYM Pec_key_st} - Pec_key_st = Pointer; - {$EXTERNALSYM PEC_KEY} - PEC_KEY = Pec_key_st;//^EC_KEY; -// EC_KEY = record - //The fields are internal to OpenSSL, they are not listed in the header. -// end; - - {$EXTERNALSYM PPEC_KEY} - PPEC_KEY = ^PEC_KEY; - {$ENDIF} - //evp.h -// EVP_PBE_KEYGEN = record -// end; - {$EXTERNALSYM PEVP_PKEY_METHOD} - PEVP_PKEY_METHOD = pointer; //This is not defined publically in OpenSSL 1.0.0 - {$EXTERNALSYM PEVP_PKEY_CTX} - PEVP_PKEY_CTX = pointer; //This is not defined publically in OpenSSL 1.0.0 - {$EXTERNALSYM PPEVP_PKEY_CTX} - PPEVP_PKEY_CTX = ^PEVP_PKEY_CTX; - {$EXTERNALSYM PEVP_PKEY_ASN1_METHOD} - PEVP_PKEY_ASN1_METHOD = pointer; - {$EXTERNALSYM PEVP_PBE_KEYGEN} - PEVP_PBE_KEYGEN = Pointer;//^EVP_PBE_KEYGEN; - //evp.h - //struct evp_pkey_st - {$EXTERNALSYM PPEVP_PKEY} - PPEVP_PKEY = ^PEVP_PKEY; - {$EXTERNALSYM PEVP_PKEY} - PEVP_PKEY = ^EVP_PKEY; - {$EXTERNALSYM EVP_PKEY_union} - EVP_PKEY_union = record - case byte of - 0: (ptr : PIdAnsiChar); - - {$IFNDEF OPENSSL_NO_RSA} - 1: (rsa : PRSA); // RSA - {$ENDIF} - {$IFNDEF OPENSSL_NO_DSA} - 2: (dsa : PDSA); // DSA - {$ENDIF} - {$IFNDEF OPENSSL_NO_DH} - 3: (dh :PDH); // DH - {$ENDIF} - {$IFNDEF OPENSSL_NO_EC} - 4: (ec : PEC_KEY); // ECC - {$ENDIF} - end; - {$EXTERNALSYM Pevp_pkey_st} - Pevp_pkey_st = PEVP_PKEY; - //this was moved from x509 section so that something here can compile. - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_X509_ATTRIBUTE} - STACK_OF_X509_ATTRIBUTE = record - _stack: STACK; - end; - {$EXTERNALSYM PSTACK_OF_X509_ATTRIBUTE} - PSTACK_OF_X509_ATTRIBUTE = ^STACK_OF_X509_ATTRIBUTE; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_X509_ATTRIBUTE} - PSTACK_OF_X509_ATTRIBUTE = PSTACK; - {$ENDIF} - {$EXTERNALSYM PPSTACK_OF_X509_ATTRIBUTE} - PPSTACK_OF_X509_ATTRIBUTE = ^PSTACK_OF_X509_ATTRIBUTE; - {$EXTERNALSYM EVP_PKEY} - EVP_PKEY = record - _type : TIdC_INT; - save_type : TIdC_INT; - references : TIdC_INT; - ameth : PEVP_PKEY_ASN1_METHOD; - pkey : EVP_PKEY_union; - attributes : PSTACK_OF_X509_ATTRIBUTE; // [ 0 ] - end; - {$EXTERNALSYM PEVP_MD} - PEVP_MD = ^EVP_MD; - {$EXTERNALSYM PEVP_MD_CTX} - PEVP_MD_CTX = ^EVP_MD_CTX; - {$EXTERNALSYM PPEVP_MD_CTX} - PPEVP_MD_CTX = ^PEVP_MD_CTX; - {$EXTERNALSYM EVP_MD_CTX} - EVP_MD_CTX = record - digest : PEVP_MD; - engine : PENGINE; // functional reference if 'digest' is ENGINE-provided - flags : TIdC_ULONG; - md_data : Pointer; - //* Public key context for sign/verify */ - pctx : PEVP_PKEY_CTX; - //* Update function: usually copied from EVP_MD */ -// int (*update)(EVP_MD_CTX *ctx,const void *data,size_t count); - update : function (ctx : PEVP_MD_CTX; const data : Pointer; count : size_t) : TIdC_INT cdecl; - end; - {$EXTERNALSYM EVP_MD_SVCTX} - EVP_MD_SVCTX = record - mctx : PEVP_MD_CTX; - key : Pointer; - end; - {$EXTERNALSYM PEVP_MD_SVCTX} - PEVP_MD_SVCTX = ^EVP_MD_SVCTX; - {$EXTERNALSYM EVP_MD} - EVP_MD = record - _type : TIdC_INT; - pkey_type : TIdC_INT; - md_size : TIdC_INT; - flags : TIdC_ULONG; - init : function (ctx : PEVP_MD_CTX) : TIdC_INT; cdecl; - update : function (ctx : PEVP_MD_CTX; data : Pointer; count : size_t):TIdC_INT; cdecl; - _final : function (ctx : PEVP_MD_CTX; md : PIdAnsiChar) : TIdC_INT; cdecl; - copy : function (_to : PEVP_MD_CTX; from : PEVP_MD_CTX ) : TIdC_INT; cdecl; - cleanup : function(ctx : PEVP_MD_CTX) : TIdC_INT; cdecl; - // FIXME: prototype these some day - sign : function(_type : TIdC_INT; m : PIdAnsiChar; m_length : TIdC_UINT; - sigret : PIdAnsiChar; siglen : TIdC_UINT; key : Pointer) : TIdC_INT; cdecl; - verify : function(_type : TIdC_INT; m : PIdAnsiChar; m_length : PIdAnsiChar; - sigbuf : PIdAnsiChar; siglen : TIdC_UINT; key : Pointer) : TIdC_INT; cdecl; - required_pkey_type : array [0..4] of TIdC_INT; // EVP_PKEY_xxx - block_size : TIdC_INT; - ctx_size : TIdC_INT; // how big does the ctx->md_data need to be - end; - {$EXTERNALSYM PPEVP_CIPHER_CTX} - PPEVP_CIPHER_CTX = ^PEVP_CIPHER_CTX; - {$EXTERNALSYM PEVP_CIPHER_CTX} - PEVP_CIPHER_CTX = ^EVP_CIPHER_CTX; - {$EXTERNALSYM PEVP_CIPHER} - PEVP_CIPHER = ^EVP_CIPHER; - {$EXTERNALSYM EVP_CIPHER} - EVP_CIPHER = record - nid : TIdC_INT; - block_size : TIdC_INT; - key_len : TIdC_INT; // Default value for variable length ciphers - iv_len : TIdC_INT; - flags : TIdC_UINT; // Various flags - init : function (ctx : PEVP_CIPHER_CTX; key : PIdAnsiChar; iv : PIdAnsiChar; enc : TIdC_INT): TIdC_INT; cdecl; - do_cipher : function (ctx : PEVP_CIPHER_CTX; _out : PIdAnsiChar; _in : PIdAnsiChar; inl : size_t) : TIdC_INT; cdecl; - cleanup : function (_para1 : PEVP_CIPHER_CTX): TIdC_INT; cdecl; // cleanup ctx - ctx_size : TIdC_INT; // how big ctx->cipher_data needs to be - set_asn1_parameters : function (_para1 : PEVP_CIPHER_CTX; - _para2 : PASN1_TYPE) : TIdC_INT; cdecl; // Populate a ASN1_TYPE with parameters - get_asn1_parameters :function (_para1 : PEVP_CIPHER_CTX; - _para2 : PASN1_TYPE) : TIdC_INT; cdecl; // Get parameters from a ASN1_TYPE - ctrl : function (_para1 : PEVP_CIPHER_CTX; _type : TIdC_INT; arg : TIdC_INT; - ptr : Pointer): TIdC_INT; cdecl; // Miscellaneous operations - app_data : Pointer; // Application data - end; - {$EXTERNALSYM EVP_CIPHER_CTX} - EVP_CIPHER_CTX = record - cipher : PEVP_CIPHER; - engine : PENGINE; // functional reference if 'cipher' is ENGINE-provided - encrypt: TIdC_INT; // encrypt or decrypt - buf_len : TIdC_INT; // number we have left - oiv : array [0..EVP_MAX_IV_LENGTH-1] of TIdAnsiChar; // original iv - iv : array [0..EVP_MAX_IV_LENGTH -1] of TIdAnsiChar; // working iv - buf : array [0..EVP_MAX_BLOCK_LENGTH -1] of TIdAnsiChar; // saved partial block - num : TIdC_INT; // used by cfb/ofb mode - app_data : Pointer; // application stuff - key_len : TIdC_INT; // May change for variable length cipher - flags : TIdC_ULONG; // Various flags - cipher_data : Pointer; // per EVP data - final_used : TIdC_INT; - block_mask : TIdC_INT; - _final : array [0..EVP_MAX_BLOCK_LENGTH-1] of TIdAnsiChar; // possible final block - end; - {$EXTERNALSYM EVP_CIPHER_INFO} - EVP_CIPHER_INFO = record - cipher : PEVP_CIPHER; - iv : array [0..EVP_MAX_IV_LENGTH -1] of TIdAnsiChar; - end; - {$EXTERNALSYM PEVP_CIPHER_INFO} - PEVP_CIPHER_INFO = ^EVP_CIPHER_INFO; - {$EXTERNALSYM EVP_ENCODE_CTX} - EVP_ENCODE_CTX = record - num : TIdC_INT; // number saved in a partial encode/decode - length: TIdC_INT; // The length is either the output line length - // (in input bytes) or the shortest input line - // length that is ok. Once decoding begins, - // the length is adjusted up each time a longer - // line is decoded - enc_data:array [0..79] of TIdAnsiChar; - line_num: TIdC_INT; // number read on current line - expect_nl: TIdC_INT; - end; - {$EXTERNALSYM PEVP_ENCODE_CTX} - PEVP_ENCODE_CTX = ^EVP_ENCODE_CTX; - //forward declarations from x509.h to make sure this compiles. - {$NODEFINE PX509} - PX509 = ^X509; - {$EXTERNALSYM PPX509} - PPX509 = ^PX509; - {$EXTERNALSYM PX509_CRL} - PX509_CRL = ^X509_CRL; - {$NODEFINE PX509_NAME} - PX509_NAME = ^X509_NAME; - {$EXTERNALSYM PX509_NAME_ENTRY} - PX509_NAME_ENTRY = ^X509_NAME_ENTRY; - {$EXTERNALSYM PX509_REQ} - PX509_REQ = ^X509_REQ; - {$EXTERNALSYM PX509_REQ_INFO} - PX509_REQ_INFO = ^X509_REQ_INFO; - {$EXTERNALSYM PPX509_REQ_INFO} - PPX509_REQ_INFO = ^PX509_REQ_INFO; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_X509_NAME_ENTRY} - STACK_OF_X509_NAME_ENTRY = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_X509_NAME_ENTRY} - PSTACK_OF_X509_NAME_ENTRY = ^STACK_OF_X509_NAME_ENTRY; - {$EXTERNALSYM STACK_OF_X509_REVOKED} - STACK_OF_X509_REVOKED = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_X509_REVOKED} - PSTACK_OF_X509_REVOKED = ^STACK_OF_X509_REVOKED; - {$EXTERNALSYM STACK_OF_X509_NAME} - STACK_OF_X509_NAME = record - _stack: STACK; - end; - {$EXTERNALSYM PSTACK_OF_X509_NAME} - PSTACK_OF_X509_NAME = ^STACK_OF_X509_NAME; - {$ELSE} - {$EXTERNALSYM PSTACK_OF_X509_NAME_ENTRY} - PSTACK_OF_X509_NAME_ENTRY = PSTACK; - {$EXTERNALSYM PSTACK_OF_X509_REVOKED} - PSTACK_OF_X509_REVOKED = PSTACK; - {$EXTERNALSYM PSTACK_OF_X509_NAME} - PSTACK_OF_X509_NAME = PSTACK; - {$ENDIF} - {$EXTERNALSYM PPSTACK_OF_X509_REVOKED} - PPSTACK_OF_X509_REVOKED = ^PSTACK_OF_X509_REVOKED; - {$EXTERNALSYM PPX509_NAME} - PPX509_NAME =^PX509_NAME; - {$EXTERNALSYM PPSTACK_OF_X509_NAME} - PPSTACK_OF_X509_NAME = ^PSTACK_OF_X509_NAME; - //pcy_int.h - //Note that anything other than PSTACK should be undefined since the record - //members aren't exposed in the headers. - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_X509_POLICY_DATA} - STACK_OF_X509_POLICY_DATA = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_X509_POLICY_DATA} - PSTACK_OF_X509_POLICY_DATA = ^STACK_OF_X509_POLICY_DATA; - {$EXTERNALSYM STACK_OF_X509_POLICY_REF} - STACK_OF_X509_POLICY_REF = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_X509_POLICY_REF} - PSTACK_OF_X509_POLICY_REF = ^STACK_OF_X509_POLICY_DATA; - {$EXTERNALSYM STACK_OF_X509_POLICY_NODE} - STACK_OF_X509_POLICY_NODE = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_X509_POLICY_NODE} - PSTACK_OF_X509_POLICY_NODE = ^STACK_OF_X509_POLICY_NODE; - {$EXTERNALSYM STACK_OF_POLICYQUALINFO} - STACK_OF_POLICYQUALINFO = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_POLICYQUALINFO} - PSTACK_OF_POLICYQUALINFO = ^STACK_OF_POLICYQUALINFO; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_X509_POLICY_DATA} - PSTACK_OF_X509_POLICY_DATA = PSTACK; - {$EXTERNALSYM PSTACK_OF_X509_POLICY_REF} - PSTACK_OF_X509_POLICY_REF = PSTACK; - {$EXTERNALSYM PSTACK_OF_X509_POLICY_NODE} - PSTACK_OF_X509_POLICY_NODE = PSTACK; - {$EXTERNALSYM PSTACK_OF_POLICYQUALINFO} - PSTACK_OF_POLICYQUALINFO = PSTACK; - {$ENDIF} - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_X509V3_EXT_METHOD} - STACK_OF_X509V3_EXT_METHOD = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_X509V3_EXT_METHOD} - PSTACK_OF_X509V3_EXT_METHOD = ^STACK_OF_X509V3_EXT_METHOD; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_X509V3_EXT_METHOD} - PSTACK_OF_X509V3_EXT_METHOD = PSTACK; - {$ENDIF} - {$EXTERNALSYM PPSTACK_OF_X509V3_EXT_METHOD} - PPSTACK_OF_X509V3_EXT_METHOD = ^PSTACK_OF_X509V3_EXT_METHOD; - {$IFDEF DEBUF_SAFESTACK} - {$EXTERNALSYM STACK_OF_X509} - STACK_OF_X509 = record - _stack: STACK; - end; - {$EXTERNALSYM PSTACK_OF_X509} - PSTACK_OF_X509 = ^STACK_OF_X509; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_X509} - PSTACK_OF_X509 = PSTACK; - {$ENDIF} - {$EXTERNALSYM PPSTACK_OF_X509} - PPSTACK_OF_X509 = ^PSTACK_OF_X509; - //fips.h - //engiene.h - {$IFNDEF OPENSSL_NO_ENGINE} - //* Generic function pointer */ -//typedef int (*ENGINE_GEN_FUNC_PTR)(void); - {$EXTERNALSYM ENGINE_GEN_FUNC_PTR} - ENGINE_GEN_FUNC_PTR = function : TIdC_INT; cdecl; -// typedef int (*ENGINE_GEN_INT_FUNC_PTR)(ENGINE *); - {$EXTERNALSYM ENGINE_GEN_INT_FUNC_PTR} - ENGINE_GEN_INT_FUNC_PTR = function(Para1 : PENGINE) : TIdC_INT; cdecl; -//typedef int (*ENGINE_CTRL_FUNC_PTR)(ENGINE *, int, long, void *, void (*f)(void)); - {$EXTERNALSYM ENGINE_CTRL_FUNC_PTR_F} - ENGINE_CTRL_FUNC_PTR_F = procedure; cdecl; - {$EXTERNALSYM ENGINE_CTRL_FUNC_PTR} - ENGINE_CTRL_FUNC_PTR = function(Para1 : PENGINE; Para2 : TIdC_INT; - Para3 : TIdC_LONG; Para4 : Pointer; f : ENGINE_CTRL_FUNC_PTR_F) : TIdC_Int; cdecl; -//typedef EVP_PKEY * (*ENGINE_LOAD_KEY_PTR)(ENGINE *, const char *, -// UI_METHOD *ui_method, void *callback_data); - {$EXTERNALSYM ENGINE_LOAD_KEY_PTR} - ENGINE_LOAD_KEY_PTR = function(Para1 : PENGINE; Para2 : PIdAnsiChar; - ui_method : PUI_METHOD; callback_data : Pointer) : PEVP_PKEY; cdecl; -//typedef int (*ENGINE_SSL_CLIENT_CERT_PTR)(ENGINE *, SSL *ssl, -// STACK_OF(X509_NAME) *ca_dn, X509 **pcert, EVP_PKEY **pkey, -// STACK_OF(X509) **pother, UI_METHOD *ui_method, void *callback_data); - {$EXTERNALSYM ENGINE_SSL_CLIENT_CERT_PTR} - ENGINE_SSL_CLIENT_CERT_PTR = function(Para1 : PENGINE; ssl : PSSL; - ca_dn : PSTACK_OF_X509_NAME; var pcert : PX509; var pkey : PEVP_PKEY; - var pother : PSTACK_OF_X509; ui_method : PUI_METHOD; callback_data : Pointer) : TIdC_Int; cdecl; -//typedef int (*ENGINE_CIPHERS_PTR)(ENGINE *, const EVP_CIPHER **, const int **, int); - {$EXTERNALSYM ENGINE_CIPHERS_PTR} - ENGINE_CIPHERS_PTR = function(para1 : PENGINE; var para2 : PEVP_CIPHER; var para3 : PIdC_Int; para4 : TIdC_Int) : TIdC_Int; cdecl; -//typedef int (*ENGINE_DIGESTS_PTR)(ENGINE *, const EVP_MD **, const int **, int); - {$EXTERNALSYM ENGINE_DIGESTS_PTR} - ENGINE_DIGESTS_PTR = function(para1 : PENGINE; var Para2 : PEVP_MD; var Para3 : PIdC_INT; para4 : TIdC_INT) : TIdC_INT cdecl; -//typedef int (*ENGINE_PKEY_METHS_PTR)(ENGINE *, EVP_PKEY_METHOD **, const int **, int); - {$EXTERNALSYM ENGINE_PKEY_METHS_PTR} - ENGINE_PKEY_METHS_PTR = function(para1 : PENGINE; var Para2 : PEVP_PKEY_METHOD; var Para3 : PIdC_INT; para4 : TIdC_INT) : TIdC_INT cdecl; -//typedef int (*ENGINE_PKEY_ASN1_METHS_PTR)(ENGINE *, EVP_PKEY_ASN1_METHOD **, const int **, int); - {$EXTERNALSYM ENGINE_PKEY_ASN1_METHS_PTR} - ENGINE_PKEY_ASN1_METHS_PTR = function(para1 : PENGINE; var Para2 : PEVP_PKEY_ASN1_METHOD; var Para3 : PIdC_INT; para4 : TIdC_INT) : TIdC_INT cdecl; -{ -/* When compiling an ENGINE entirely as an external shared library, loadable by - * the "dynamic" ENGINE, these types are needed. The 'dynamic_fns' structure - * type provides the calling application's (or library's) error functionality - * and memory management function pointers to the loaded library. These should - * be used/set in the loaded library code so that the loading application's - * 'state' will be used/changed in all operations. The 'static_state' pointer - * allows the loaded library to know if it shares the same static data as the - * calling application (or library), and thus whether these callbacks need to be - * set or not. */ -} -//typedef void *(*dyn_MEM_malloc_cb)(size_t); - {$EXTERNALSYM dyn_MEM_malloc_cb} - dyn_MEM_malloc_cb = function(para1 : size_t) : Pointer; cdecl; -//typedef void *(*dyn_MEM_realloc_cb)(void *, size_t); - {$EXTERNALSYM dyn_MEM_realloc_cb} - dyn_MEM_realloc_cb = function (para1 : Pointer; para2 : size_t): Pointer; cdecl; -//typedef void (*dyn_MEM_free_cb)(void *); - {$EXTERNALSYM dyn_MEM_free_cb} - dyn_MEM_free_cb = procedure (para1 : Pointer); cdecl; - {$EXTERNALSYM dynamic_MEM_fns} - dynamic_MEM_fns = record - malloc_cb : dyn_MEM_malloc_cb; - realloc_cb : dyn_MEM_realloc_cb; - free_cb : dyn_MEM_free_cb; - end; -///* FIXME: Perhaps the memory and locking code (crypto.h) should declare and use -// * these types so we (and any other dependant code) can simplify a bit?? */ -//typedef void (*dyn_lock_locking_cb)(int,int,const char *,int); - {$EXTERNALSYM dyn_lock_locking_cb} - dyn_lock_locking_cb = procedure (para1, para2 : TIdC_INT; para3 : PIdAnsiChar; para4 : TIdC_INT); cdecl; -//typedef int (*dyn_lock_add_lock_cb)(int*,int,int,const char *,int); - {$EXTERNALSYM dyn_lock_add_lock_cb} - dyn_lock_add_lock_cb = function (var para1 : TIdC_INT; para2, para3 : TIdC_INT; para4 : PIdAnsiChar; para5 : TIdC_INT) : TIdC_INT; cdecl; -//typedef struct CRYPTO_dynlock_value *(*dyn_dynlock_create_cb)( -// const char *,int); - {$EXTERNALSYM dyn_dynlock_create_cb} - dyn_dynlock_create_cb = function (para1 : PIdAnsiChar; para2 : TIdC_INT) : PCRYPTO_dynlock_value; cdecl; -//typedef void (*dyn_dynlock_lock_cb)(int,struct CRYPTO_dynlock_value *, -// const char *,int); - {$EXTERNALSYM dyn_dynlock_lock_cb} - dyn_dynlock_lock_cb = procedure (para1 : TIdC_INT; para2 : PCRYPTO_dynlock_value); cdecl; -//typedef void (*dyn_dynlock_destroy_cb)(struct CRYPTO_dynlock_value *, -// const char *,int); - {$EXTERNALSYM dyn_dynlock_destroy_cb} - dyn_dynlock_destroy_cb = procedure(para1 : PCRYPTO_dynlock_value; para2 : PIdAnsiChar; para3 : TIdC_INT); cdecl; -//typedef struct st_dynamic_LOCK_fns { -// dyn_lock_locking_cb lock_locking_cb; -// dyn_lock_add_lock_cb lock_add_lock_cb; -// dyn_dynlock_create_cb dynlock_create_cb; -// dyn_dynlock_lock_cb dynlock_lock_cb; -// dyn_dynlock_destroy_cb dynlock_destroy_cb; -// } dynamic_LOCK_fns; - {$EXTERNALSYM dynamic_LOCK_fns} - dynamic_LOCK_fns = record - lock_locking_cb : dyn_lock_locking_cb; - lock_add_lock_cb : dyn_lock_add_lock_cb; - dynlock_create_cb : dyn_dynlock_create_cb; - dynlock_lock_cb : dyn_dynlock_lock_cb; - dynlock_destroy_cb : dyn_dynlock_destroy_cb; - end; -//* The top-level structure */ - {$EXTERNALSYM dynamic_fns} - dynamic_fns = record - static_state : Pointer; - err_fns : PERR_FNS; - ex_data_fns : PCRYPTO_EX_DATA_IMPL; - mem_fns : dynamic_MEM_fns; - lock_fns : dynamic_LOCK_fns; - end; -// typedef unsigned long (*dynamic_v_check_fn)(unsigned long ossl_version); - {$EXTERNALSYM dynamic_v_check_fn} - dynamic_v_check_fn = function(ossl_version : TIdC_ULONG) : TIdC_ULONG; cdecl; -//typedef int (*dynamic_bind_engine)(ENGINE *e, const char *id, -// const dynamic_fns *fns); - {$EXTERNALSYM dynamic_bind_engine} - dynamic_bind_engine = function(e : PENGINE; id : PIdAnsiChar; fns : dynamic_fns) : TIdC_INT; cdecl; - {$ENDIF} - //ecdsa.h - {$IFNDEF OPENSSL_NO_ECDSA} - {$EXTERNALSYM ECDSA_SIG} - ECDSA_SIG = record - r : PBIGNUM; - s : PBIGNUM; - end; - {$EXTERNALSYM PECDSA_SIG} - PECDSA_SIG = ^ECDSA_SIG; - {$EXTERNALSYM PPECDSA_SIG} - PPECDSA_SIG = ^PECDSA_SIG; -// ECDH_METHOD = record - //defined interally, not through the header so use function to access members - // end; - {$EXTERNALSYM PECDH_METHOD} - PECDH_METHOD = Pointer;//^ECDH_METHOD; - {$EXTERNALSYM PPECDH_METHOD} - PPECDH_METHOD = ^PECDH_METHOD; - {$ENDIF} - //ecdh.h - //aes.h - {$IFNDEF OPENSSL_NO_AES} - {$IFDEF OPENSSL_FIPS} - {$EXTERNALSYM FIPS_AES_SIZE_T} - FIPS_AES_SIZE_T = TIdC_INT; - {$ENDIF} - //OpenSSL Developer's note - // This should be a hidden type, but EVP requires that the size be known - {$EXTERNALSYM AES_KEY} - AES_KEY = record - rd_key: array[0..(4 *(AES_MAXNR + 1)-1)] of TIdC_UINT; - rounds : TIdC_INT; - end; - {$EXTERNALSYM PAES_KEY} - PAES_KEY = ^AES_KEY; - {$EXTERNALSYM PPAES_KEY} - PPAES_KEY = ^PAES_KEY; - {$ENDIF} - //seed.h - {$IFNDEF OPENSSL_NO_SEED} - {$EXTERNALSYM SEED_KEY_SCHEDULE} - SEED_KEY_SCHEDULE = record - {$IFDEF SEED_LONG} - data : array [0..(32 -1)] of TIdC_ULONG ; - {$ELSE} - data : array[0..(32-1)] of TIdC_UINT; - {$ENDIF} - end; - {$EXTERNALSYM PSEED_KEY_SCHEDULE} - PSEED_KEY_SCHEDULE = ^SEED_KEY_SCHEDULE; - {$ENDIF} - //lhash.h - {$EXTERNALSYM PLHASH_NODE} - PLHASH_NODE = ^LHASH_NODE; - {$EXTERNALSYM PPLHASH_NODE} - PPLHASH_NODE = ^PLHASH_NODE; - {$EXTERNALSYM LHASH_NODE} - LHASH_NODE = record - data : Pointer; - next : PLHASH_NODE; - {$IFNDEF OPENSSL_NO_HASH_COMP} - hash : TIdC_ULONG; - {$ENDIF} - end; - {$EXTERNALSYM LHASH_COMP_FN_TYPE} - LHASH_COMP_FN_TYPE = function (const p1,p2 : Pointer) : TIdC_INT; cdecl; - {$EXTERNALSYM PLHASH_COMP_FN_TYPE} - PLHASH_COMP_FN_TYPE = ^LHASH_COMP_FN_TYPE; - {$EXTERNALSYM LHASH_HASH_FN_TYPE} - LHASH_HASH_FN_TYPE = function(const p1 : Pointer) : TIdC_ULONG; cdecl; - {$EXTERNALSYM LHASH_DOALL_FN_TYPE} - LHASH_DOALL_FN_TYPE = procedure(p1 : Pointer); cdecl; - {$EXTERNALSYM LHASH_DOALL_ARG_FN_TYPE} - LHASH_DOALL_ARG_FN_TYPE = procedure(p1, p2 : Pointer); cdecl; - {$EXTERNALSYM LHASH} - LHASH = record - b : PPLHASH_NODE; - comp : LHASH_COMP_FN_TYPE; - hash : LHASH_HASH_FN_TYPE; - num_nodes : TIdC_UINT; - num_alloc_nodes : TIdC_UINT; - p : TIdC_UINT; - pmax : TIdC_UINT; - up_load : TIdC_ULONG; // load times 256 - down_load : TIdC_ULONG; // load times 256 - num_items : TIdC_ULONG; - num_expands : TIdC_ULONG; - num_expand_reallocs : TIdC_ULONG; - num_contracts : TIdC_ULONG; - num_contract_reallocs : TIdC_ULONG; - num_hash_calls : TIdC_ULONG; - num_comp_calls : TIdC_ULONG; - num_insert : TIdC_ULONG; - num_replace : TIdC_ULONG; - num_delete : TIdC_ULONG; - num_no_delete : TIdC_ULONG; - num_retrieve : TIdC_ULONG; - num_retrieve_miss : TIdC_ULONG; - num_hash_comps : TIdC_ULONG; - error : TIdC_INT; - end; - {$EXTERNALSYM PLHASH} - PLHASH = ^LHASH; - //conf.h - {$EXTERNALSYM CONF_VALUE} - CONF_VALUE = record - section : PIdAnsiChar; - name : PIdAnsiChar; - value : PIdAnsiChar; - end; - {$EXTERNALSYM PCONF_VALUE} - PCONF_VALUE = ^CONF_VALUE; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_CONF_VALUE} - STACK_OF_CONF_VALUE = record - stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_CONF_VALUE} - PSTACK_OF_CONF_VALUE = ^STACK_OF_CONF_VALUE; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_CONF_VALUE} - PSTACK_OF_CONF_VALUE = PSTACK; - {$ENDIF} - {$EXTERNALSYM BIT_STRING_BITNAME} - //* This is used to contain a list of bit names */ - BIT_STRING_BITNAME = record - bitnum : TIdC_INT; - lname : PIdAnsiChar; - sname : PIdAnsiChar; - end; - {$EXTERNALSYM PBIT_STRING_BITNAME} - PBIT_STRING_BITNAME = ^BIT_STRING_BITNAME; - {$EXTERNALSYM PPBIT_STRING_BITNAME} - PPBIT_STRING_BITNAME = ^PBIT_STRING_BITNAME; - {$EXTERNALSYM buf_mem_st} - buf_mem_st = record - length : TIdC_INT; // current number of bytes - data : PIdAnsiChar; - max: TIdC_INT; // size of buffer - end; - {$EXTERNALSYM BUF_MEM} - BUF_MEM = buf_mem_st; - {$EXTERNALSYM PBUF_MEM} - PBUF_MEM = ^BUF_MEM; - {$EXTERNALSYM PPBUF_MEM} - PPBUF_MEM = ^PBUF_MEM; - {$EXTERNALSYM PFILE} - PFILE = Pointer; - //asn1t.h - {$EXTERNALSYM ASN1_TEMPLATE} - ASN1_TEMPLATE = record - flags : TIdC_ULONG; // Various flags - tag : TIdC_LONG; // tag, not used if no tagging - offset : TIdC_ULONG; // Offset of this field in structure - {$IFNDEF NO_ASN1_FIELD_NAMES} - field_name : PIdAnsiChar; // Field name - {$ENDIF} - item : PASN1_ITEM_EXP; // Relevant ASN1_ITEM or ASN1_ADB - end; - {$EXTERNALSYM PASN1_TEMPLATE} - PASN1_TEMPLATE = ^ASN1_TEMPLATE; - {$EXTERNALSYM ASN1_ITEM} - ASN1_ITEM = record - itype : Char; // The item type, primitive, SEQUENCE, CHOICE or extern - utype : TIdC_LONG; // underlying type - templates : PASN1_TEMPLATE; // If SEQUENCE or CHOICE this contains the contents - tcount : TIdC_LONG; // Number of templates if SEQUENCE or CHOICE - funcs : Pointer; // functions that handle this type - size : TIdC_LONG; // Structure size (usually) - {$IFNDEF NO_ASN1_FIELD_NAMES} - sname : PIdAnsiChar; // Structure name - {$ENDIF} - end; - {$EXTERNALSYM PASN1_PCTX} - PASN1_PCTX = Pointer; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_ASN1_ADB_TABLE} - STACK_OF_ASN1_ADB_TABLE = record - stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_ASN1_ADB_TABLE} - PSTACK_OF_ASN1_ADB_TABLE = ^STACK_OF_ASN1_ADB_TABLE; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_ASN1_ADB_TABLE} - PSTACK_OF_ASN1_ADB_TABLE = PSTACK; - {$ENDIF} - {$EXTERNALSYM PPSTACK_OF_ASN1_ADB_TABLE} - PPSTACK_OF_ASN1_ADB_TABLE = ^PSTACK_OF_ASN1_ADB_TABLE; - {$EXTERNALSYM PASN1_ADB_TABLE} - PASN1_ADB_TABLE = ^ASN1_ADB_TABLE; - {$EXTERNALSYM PASN1_ADB} - PASN1_ADB = ^ASN1_ADB; - {$EXTERNALSYM ASN1_ADB} - ASN1_ADB = record - flags : TIdC_ULONG; // Various flags - offset : TIdC_ULONG; // Offset of selector field - app_items : PPSTACK_OF_ASN1_ADB_TABLE; // Application defined items - tbl : PASN1_ADB_TABLE; // Table of possible types - tblcount : TIdC_LONG; // Number of entries in tbl - default_tt : PASN1_TEMPLATE; // Type to use if no match - null_tt : PASN1_TEMPLATE; // Type to use if selector is NULL - end; - {$EXTERNALSYM ASN1_ADB_TABLE} - ASN1_ADB_TABLE = record - flags : TIdC_LONG; // Various flags - offset : TIdC_LONG; // Offset of selector field - app_items : PPSTACK_OF_ASN1_ADB_TABLE; // Application defined items - tbl : PASN1_ADB_TABLE; // Table of possible types - tblcount : TIdC_LONG; // Number of entries in tbl - default_tt : PASN1_TEMPLATE; // Type to use if no match - null_tt : PASN1_TEMPLATE; // Type to use if selector is NULL - end; - {$EXTERNALSYM PASN1_TLC} - PASN1_TLC = ^ASN1_TLC; - {$EXTERNALSYM ASN1_TLC} - ASN1_TLC = record - valid : Byte; //* Values below are valid */ - ret : TIdC_INT; //* return value */ - plen : TIdC_LONG; //* length */ - ptag : TIdC_INT; //* class value */ - pclass : TIdC_INT; //* class value */ - hdrlen : TIdC_INT; //* header length */ - end; - ///* Typedefs for ASN1 function pointers */ - {$EXTERNALSYM ASN1_new_func} - ASN1_new_func = function : PASN1_VALUE; cdecl; - {$EXTERNALSYM ASN1_free_func} - ASN1_free_func = procedure (a : PASN1_VALUE); cdecl; -// typedef ASN1_VALUE * ASN1_d2i_func(ASN1_VALUE **a, const unsigned char ** in, long length); - {$EXTERNALSYM ASN1_d2i_func} - ASN1_d2i_func = function (a : PASN1_VALUE; _in : PPByte; length : TIdC_LONG ) : PASN1_VALUE; cdecl; - // typedef int ASN1_i2d_func(ASN1_VALUE * a, unsigned char **in); - {$EXTERNALSYM ASN1_i2d_func} - ASN1_i2d_func = function (a : PASN1_VALUE; _in : PPByte) : TIdC_INT; cdecl; -// typedef int ASN1_ex_d2i(ASN1_VALUE **pval, const unsigned char **in, long len, const ASN1_ITEM *it, -// int tag, int aclass, char opt, ASN1_TLC *ctx); - {$EXTERNALSYM ASN1_ex_d2i} - ASN1_ex_d2i = function(pval : PPASN1_VALUE; _in : PPByte; len : TIdC_LONG; - it : PASN1_ITEM; tag, aclass : TIdC_INT; opt : Byte; - ctx : PASN1_TLC) : TIdC_INT; cdecl; -//typedef int ASN1_ex_i2d(ASN1_VALUE **pval, unsigned char **out, const ASN1_ITEM *it, int tag, int aclass); - {$EXTERNALSYM ASN1_ex_i2d} - ASN1_ex_i2d = function(pval : PPASN1_VALUE; _out : PPByte; it : PASN1_ITEM; tag, aclass : TIdC_INT) : TIdC_INT; cdecl; -//typedef int ASN1_ex_new_func(ASN1_VALUE **pval, const ASN1_ITEM *it); - {$EXTERNALSYM ASN1_ex_new_func} - ASN1_ex_new_func = function(pval : PPASN1_VALUE; it : PASN1_ITEM) : TIdC_INT; cdecl; -//typedef void ASN1_ex_free_func(ASN1_VALUE **pval, const ASN1_ITEM *it); - {$EXTERNALSYM ASN1_ex_free_func} - ASN1_ex_free_func = procedure( pval : PPASN1_VALUE; it : PASN1_ITEM); cdecl; -//typedef int ASN1_primitive_i2c(ASN1_VALUE **pval, unsigned char *cont, int *putype, const ASN1_ITEM *it); - {$EXTERNALSYM ASN1_primitive_i2c} - ASN1_primitive_i2c = function (pval : PPASN1_VALUE; cont : PByte; putype : PIdC_INT; it : PASN1_ITEM ) : TIdC_INT; cdecl; -//typedef int ASN1_primitive_c2i(ASN1_VALUE **pval, const unsigned char *cont, int len, int utype, char *free_cont, const ASN1_ITEM *it); - {$EXTERNALSYM ASN1_primitive_c2i} - ASN1_primitive_c2i = function (pval : PPASN1_VALUE; cont : PByte; len, utype : TIdC_INT; free_cont : PByte; it: PASN1_ITEM) : TIdC_INT; cdecl; - ///* end typedefs - {$EXTERNALSYM ASN1_COMPAT_FUNCS} - ASN1_COMPAT_FUNCS = record - asn1_new : ASN1_new_func; - asn1_free : ASN1_free_func; - asn1_d2i : ASN1_d2i_func; - asn1_i2d : ASN1_i2d_func; - end; - {$EXTERNALSYM PASN1_COMPAT_FUNCS} - PASN1_COMPAT_FUNCS = ^ASN1_COMPAT_FUNCS; - {$EXTERNALSYM ASN1_EXTERN_FUNCS} - ASN1_EXTERN_FUNCS = record - app_data : Pointer; - asn1_ex_new : ASN1_ex_new_func; // ASN1_ex_new_func *asn1_ex_new; - asn1_ex_free : ASN1_ex_free_func; // ASN1_ex_free_func *asn1_ex_free; - asn1_ex_clear: ASN1_ex_free_func;// ASN1_ex_free_func *asn1_ex_clear; - asn1_ex_d2i : ASN1_ex_d2i;// ASN1_ex_d2i *asn1_ex_d2i; - asn1_ex_i2d : ASN1_ex_i2d; // ASN1_ex_i2d *asn1_ex_i2d; - end; - {$EXTERNALSYM PASN1_EXTERN_FUNCS} - PASN1_EXTERN_FUNCS = ^ASN1_EXTERN_FUNCS; - {$EXTERNALSYM ASN1_PRIMITIVE_FUNCS} - ASN1_PRIMITIVE_FUNCS = record - app_data : Pointer; - flags : TIdC_ULONG; -// ASN1_ex_new_func *prim_new; - prim_new : ASN1_ex_new_func; -// ASN1_ex_free_func *prim_free; - prim_free : ASN1_ex_free_func; -// ASN1_ex_free_func *prim_clear; - prim_clear : ASN1_ex_free_func; -// ASN1_primitive_c2i *prim_c2i; - prim_c2i : ASN1_primitive_c2i; -// ASN1_primitive_i2c *prim_i2c; - prim_i2c : ASN1_primitive_i2c; - end; - {$EXTERNALSYM PASN1_PRIMITIVE_FUNCS} - PASN1_PRIMITIVE_FUNCS = ^ASN1_PRIMITIVE_FUNCS; -//typedef int ASN1_aux_cb(int operation, ASN1_VALUE **in, const ASN1_ITEM *it); - {$EXTERNALSYM ASN1_aux_cb} - ASN1_aux_cb = function (operation : TIdC_INT; _in : PPASN1_VALUE; it : PASN1_ITEM) : TIdC_INT; cdecl; - {$EXTERNALSYM ASN1_AUX} - ASN1_AUX = record - app_data : Pointer; - flags : TIdC_INT; - ref_offset : TIdC_INT; //* Offset of reference value */ - ref_lock : TIdC_INT; //* Lock type to use */ - asn1_cb : ASN1_aux_cb; //ASN1_aux_cb *asn1_cb; - enc_offset : TIdC_INT; //* Offset of ASN1_ENCODING structure */ - end; - {$EXTERNALSYM PASN1_AUX} - PASN1_AUX = ^ASN1_AUX; - //hmac.h - //This has to come after the EVP definitions - {$IFNDEF OPENSSL_NO_HMAC} - {$EXTERNALSYM HMAC_CTX} - HMAC_CTX = record - md : PEVP_MD; - md_ctx : EVP_MD_CTX; - i_ctx : EVP_MD_CTX; - o_ctx : EVP_MD_CTX; - key_length : TIdC_UINT; - key : array[0..(HMAC_MAX_MD_CBLOCK - 1)] of byte; - end; - {$EXTERNALSYM PHMAC_CTX} - PHMAC_CTX = ^HMAC_CTX; - {$EXTERNALSYM PPHMAC_CTX} - PPHMAC_CTX = ^PHMAC_CTX; - {$ENDIF} - // X509_POLICY_DATA = record - // end; - {$EXTERNALSYM PX509_POLICY_DATA} - PX509_POLICY_DATA = Pointer;//^X509_POLICY_DATA; - // X509_POLICY_REF = record - // end; - {$EXTERNALSYM PX509_POLICY_REF} - PX509_POLICY_REF = Pointer;//^X509_POLICY_REF; - // X509_POLICY_CACHE = record - // end; - {$EXTERNALSYM PX509_POLICY_CACHE} - PX509_POLICY_CACHE = Pointer; //^X509_POLICY_CACHE; - //x509v3.h - {$EXTERNALSYM PPX509_NAME_ENTRY} - PPX509_NAME_ENTRY = ^PX509_NAME_ENTRY; - //forward declarations - {$EXTERNALSYM PV3_EXT_METHOD} - PV3_EXT_METHOD = ^V3_EXT_METHOD; - {$EXTERNALSYM PV3_EXT_CTX} - PV3_EXT_CTX = ^V3_EXT_CTX; - // - {$EXTERNALSYM X509V3_EXT_NEW} - X509V3_EXT_NEW = function: Pointer; cdecl; - {$EXTERNALSYM X509V3_EXT_FREE} - X509V3_EXT_FREE = procedure(_para1 : Pointer); cdecl; - {$EXTERNALSYM X509V3_EXT_D2I} - X509V3_EXT_D2I = function(_para1 : Pointer; const _para2 : PPIdAnsiChar; para3 : TIdC_LONG): Pointer; cdecl; - {$EXTERNALSYM X509V3_EXT_I2D} - X509V3_EXT_I2D = function (_para1 : Pointer; _para2 : PPIdAnsiChar) : TIdC_INT; cdecl; - {$EXTERNALSYM X509V3_EXT_I2V} - X509V3_EXT_I2V = function (method : PV3_EXT_METHOD; ext : Pointer; extlist : PSTACK_OF_CONF_VALUE) : PSTACK_OF_CONF_VALUE; cdecl; - {$EXTERNALSYM X509V3_EXT_V2I} - X509V3_EXT_V2I = function (method : Pv3_ext_method; ctx : PV3_EXT_CTX; values : PSTACK_OF_CONF_VALUE): Pointer; cdecl; - {$EXTERNALSYM X509V3_EXT_I2S} - X509V3_EXT_I2S = function (method : Pv3_ext_method; ext : Pointer) : PIdAnsiChar; cdecl; - {$EXTERNALSYM X509V3_EXT_S2I} - X509V3_EXT_S2I = function (method : Pv3_ext_method; ctx : Pv3_ext_ctx; const str : PIdAnsiChar): Pointer; cdecl; - {$EXTERNALSYM X509V3_EXT_I2R} - X509V3_EXT_I2R = function (method : Pv3_ext_method; ext : Pointer; _out : PBIO; indent : TIdC_INT) : TIdC_INT; cdecl; - {$EXTERNALSYM X509V3_EXT_R2I} - X509V3_EXT_R2I = function (method : Pv3_ext_method; ctx : Pv3_ext_ctx; const str : PIdAnsiChar): Pointer; cdecl; - {$EXTERNALSYM V3_EXT_METHOD} - V3_EXT_METHOD = record - ext_nid : TIdC_INT; - ext_flags : TIdC_INT; - // If this is set the following four fields are ignored - // I'm not sure what the ASN1_ITEM_EXP really is. The headers don't make it clear, JPM. - it : PASN1_ITEM_EXP; - // Old style ASN1 calls - ext_new : X509V3_EXT_NEW; - ext_free : X509V3_EXT_FREE; - d2i : X509V3_EXT_D2I; - i2d : X509V3_EXT_I2D; - // The following pair is used for string extensions - i2s : X509V3_EXT_I2S; - s2i : X509V3_EXT_S2I; - // The following pair is used for multi-valued extensions - i2v : X509V3_EXT_I2V; - v2i : X509V3_EXT_V2I; - // The following are used for raw extensions - i2r : X509V3_EXT_I2R; - r2i : X509V3_EXT_R2I; - usr_data : Pointer; // Any extension specific data - end; - {$EXTERNALSYM X509V3_EXT_METHOD} - X509V3_EXT_METHOD = V3_EXT_METHOD; - {$EXTERNALSYM X509V3_CONF_METHOD} - X509V3_CONF_METHOD = record - get_string : function(db : Pointer; section, value : PIdAnsiChar) : PIdAnsiChar; cdecl; - get_section : function(db : Pointer; section : PIdAnsiChar) : PSTACK_OF_CONF_VALUE; cdecl; - free_string : procedure(db : Pointer; _string : PIdAnsiChar); cdecl; - free_section : procedure (db : Pointer; section : PSTACK_OF_CONF_VALUE); - end; - {$EXTERNALSYM V3_EXT_CTX} - V3_EXT_CTX = record - flags : TIdC_INT; - issuer_cert : PX509; - subject_cert : PX509; - subject_req : PX509_REQ; - crl : PX509_CRL; - db_meth : X509V3_CONF_METHOD; - db : Pointer; - // OpenSSL developer's message from header - // Maybe more here - end; - {$EXTERNALSYM ENUMERATED_NAMES} - ENUMERATED_NAMES = BIT_STRING_BITNAME; - {$EXTERNALSYM BASIC_CONSTRAINTS} - BASIC_CONSTRAINTS = record - ca : TIdC_INT; - pathlen: PASN1_INTEGER; - end; - {$EXTERNALSYM PBASIC_CONSTRAINTS} - PBASIC_CONSTRAINTS = ^BASIC_CONSTRAINTS; - {$EXTERNALSYM PKEY_USAGE_PERIOD} - PKEY_USAGE_PERIOD = record - notBefore : ASN1_GENERALIZEDTIME; - notAfter : PASN1_GENERALIZEDTIME; - end; - {$EXTERNALSYM PPKEY_USAGE_PERIOD} - PPKEY_USAGE_PERIOD = ^PKEY_USAGE_PERIOD; - {$EXTERNALSYM OTHERNAME} - OTHERNAME = record - type_id : PASN1_OBJECT; - value : PASN1_TYPE; - end; - {$EXTERNALSYM POTHERNAME} - POTHERNAME = ^OTHERNAME; - {$EXTERNALSYM EDIPARTYNAME} - EDIPARTYNAME = record - nameAssigner : PASN1_STRING; - partyName : PASN1_STRING; - end; - {$EXTERNALSYM PEDIPARTYNAME} - PEDIPARTYNAME = ^EDIPARTYNAME; - {$EXTERNALSYM GENERAL_NAME_union} - GENERAL_NAME_union = record - case byte of - 0 : (ptr : PIdAnsiChar); - 1 : (otherName : POTHERNAME); // otherName - 2 : (rfc822Name : PASN1_IA5STRING); - 3 : (dNSName : PASN1_IA5STRING); - 4 : (x400Address : PASN1_TYPE); - 5 : (directoryName : PX509_NAME); - 6 : (ediPartyName : PEDIPARTYNAME); - 7 : (uniformResourceIdentifier : PASN1_IA5STRING); - 8 : (iPAddress : PASN1_OCTET_STRING); - 9 : (registeredID : PASN1_OBJECT); - // Old names - 10 : (ip : PASN1_OCTET_STRING); // iPAddress - 11 : (dirn : PX509_NAME); // dirn - 12 : (ia5 : PASN1_IA5STRING); // rfc822Name, dNSName, uniformResourceIdentifier - 13 : (rid : ASN1_OBJECT); // registeredID - 14 : (other : PASN1_TYPE); // x400Address - end; - {$EXTERNALSYM GENERAL_NAME} - GENERAL_NAME = record - _type : TIdC_INT; - d : GENERAL_NAME_union; - end; - {$EXTERNALSYM PGENERAL_NAME} - PGENERAL_NAME = ^GENERAL_NAME; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_GENERAL_NAME} - STACK_OF_GENERAL_NAME = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_GENERAL_NAME} - PSTACK_OF_GENERAL_NAME = ^STACK_OF_GENERAL_NAME; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_GENERAL_NAME} - PSTACK_OF_GENERAL_NAME = PSTACK; - {$ENDIF} - {$EXTERNALSYM PGENERAL_NAMES} - PGENERAL_NAMES = PSTACK_OF_GENERAL_NAME; - {$EXTERNALSYM ACCESS_DESCRIPTION} - ACCESS_DESCRIPTION = record - method : PASN1_OBJECT; - location : PGENERAL_NAME; - end; - {$EXTERNALSYM PACCESS_DESCRIPTION} - PACCESS_DESCRIPTION = ^ACCESS_DESCRIPTION; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_ACCESS_DESCRIPTION} - STACK_OF_ACCESS_DESCRIPTION = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_ACCESS_DESCRIPTION} - PSTACK_OF_ACCESS_DESCRIPTION = ^STACK_OF_ACCESS_DESCRIPTION; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_ACCESS_DESCRIPTION} - PSTACK_OF_ACCESS_DESCRIPTION = PSTACK; - {$ENDIF} - {$EXTERNALSYM PAUTHORITY_INFO_ACCESS} - PAUTHORITY_INFO_ACCESS = PSTACK_OF_ACCESS_DESCRIPTION; - {$EXTERNALSYM PEXTENDED_KEY_USAGE} - PEXTENDED_KEY_USAGE = PSTACK_OF_ASN1_OBJECT; - {$EXTERNALSYM DIST_POINT_NAME_union} - DIST_POINT_NAME_union = record - case byte of - 0 : (fullname : PGENERAL_NAMES); - 1 : (relativename : PSTACK_OF_X509_NAME_ENTRY); - end; - {$EXTERNALSYM DIST_POINT_NAME} - DIST_POINT_NAME = record - _type : TIdC_INT; - name : DIST_POINT_NAME_union; - end; - {$EXTERNALSYM PDIST_POINT_NAME} - PDIST_POINT_NAME = ^DIST_POINT_NAME; - {$EXTERNALSYM DIST_POINT} - DIST_POINT = record - distpoint : PDIST_POINT_NAME; - reasons : PASN1_BIT_STRING; - CRLissuer : PGENERAL_NAMES; - dp_reasons : TIdC_INT; - end; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_DIST_POINT} - STACK_OF_DIST_POINT = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_DIST_POINT} - PSTACK_OF_DIST_POINT = ^STACK_OF_DIST_POINT; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_DIST_POINT} - PSTACK_OF_DIST_POINT = PSTACK; - {$ENDIF} - {$EXTERNALSYM AUTHORITY_KEYID} - AUTHORITY_KEYID = record - keyid : PASN1_OCTET_STRING; - issuer : PGENERAL_NAMES; - serial : PASN1_INTEGER; - end; - {$EXTERNALSYM PAUTHORITY_KEYID} - PAUTHORITY_KEYID = ^AUTHORITY_KEYID; - // Strong extranet structures - {$EXTERNALSYM SXNETID} - SXNETID = record - zone : PASN1_INTEGER; - user : PASN1_OCTET_STRING; - end; - {$EXTERNALSYM PSXNETID} - PSXNETID = ^SXNETID; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_SXNETID} - STACK_OF_SXNETID = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_SXNETID} - PSTACK_OF_SXNETID = ^STACK_OF_SXNETID; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_SXNETID} - PSTACK_OF_SXNETID = PSTACK; - {$ENDIF} - {$EXTERNALSYM SXNET} - SXNET = record - version : PASN1_INTEGER; - ids : PSTACK_OF_SXNETID; - end; - {$EXTERNALSYM PSXNET} - PSXNET = ^SXNET; - {$EXTERNALSYM NOTICEREF} - NOTICEREF = record - organization : PASN1_STRING; - noticenos : PSTACK_OF_ASN1_INTEGER; - end; - {$EXTERNALSYM PNOTICEREF} - PNOTICEREF = ^NOTICEREF; - {$EXTERNALSYM USERNOTICE} - USERNOTICE = record - noticeref : PNOTICEREF; - exptext : PASN1_STRING; - end; - {$EXTERNALSYM PUSERNOTICE} - PUSERNOTICE = ^USERNOTICE; - {$EXTERNALSYM POLICYQUALINFO_union} - POLICYQUALINFO_union = record - case byte of - 0 : (cpsuri : PASN1_IA5STRING); - 1 : (usernotice : PUSERNOTICE); - 2 : (other : PASN1_TYPE); - end; - {$EXTERNALSYM POLICYQUALINFO} - POLICYQUALINFO = record - pqualid : PASN1_OBJECT; - d : POLICYQUALINFO_union; - end; - {$EXTERNALSYM PPOLICYQUALINFO} - PPOLICYQUALINFO = ^POLICYQUALINFO; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_POLICYINFO} - STACK_OF_POLICYINFO = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_POLICYINFO} - PSTACK_OF_POLICYINFO = ^STACK_OF_POLICYINFO; - {$ELSE} - {$EXTERNALSYM PSTACK_OF_POLICYINFO} - PSTACK_OF_POLICYINFO = PSTACK; - {$ENDIF} - {$EXTERNALSYM POLICYINFO} - POLICYINFO = record - policyid : PASN1_OBJECT; - qualifiers : PSTACK_OF_POLICYQUALINFO; - end; - {$EXTERNALSYM CERTIFICATEPOLICIES} - CERTIFICATEPOLICIES = PSTACK_OF_POLICYINFO; - //typedef STACK_OF(POLICYINFO) CERTIFICATEPOLICIES; - {$EXTERNALSYM POLICY_MAPPING} - POLICY_MAPPING = record - issuerDomainPolicy : PASN1_OBJECT; - subjectDomainPolicy : PASN1_OBJECT; - end; - {$EXTERNALSYM PPOLICY_MAPPING} - PPOLICY_MAPPING = ^POLICY_MAPPING; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_POLICY_MAPPING} - STACK_OF_POLICY_MAPPING = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_POLICY_MAPPING} - PSTACK_OF_POLICY_MAPPING = ^STACK_OF_POLICY_MAPPING; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_POLICY_MAPPING} - PSTACK_OF_POLICY_MAPPING = PSTACK; - {$ENDIF} - {$EXTERNALSYM PPSTACK_OF_POLICY_MAPPING} - PPSTACK_OF_POLICY_MAPPING = ^PSTACK_OF_POLICY_MAPPING; - {$EXTERNALSYM GENERAL_SUBTREE} - GENERAL_SUBTREE = record - base : PGENERAL_NAME; - minimum : PASN1_INTEGER; - maximum : PASN1_INTEGER; - end; - {$EXTERNALSYM PGENERAL_SUBTREE} - PGENERAL_SUBTREE = ^GENERAL_SUBTREE; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_GENERAL_SUBTREE} - STACK_OF_GENERAL_SUBTREE = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_GENERAL_SUBTREE} - PSTACK_OF_GENERAL_SUBTREE = ^STACK_OF_GENERAL_SUBTREE; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_GENERAL_SUBTREE} - PSTACK_OF_GENERAL_SUBTREE = PSTACK; - {$ENDIF} - {$EXTERNALSYM NAME_CONSTRAINTS} - NAME_CONSTRAINTS = record - permittedSubtrees : PSTACK_OF_GENERAL_SUBTREE; - excludedSubtrees : PSTACK_OF_GENERAL_SUBTREE; - end; - {$EXTERNALSYM PNAME_CONSTRAINTS} - PNAME_CONSTRAINTS = ^NAME_CONSTRAINTS; - {$EXTERNALSYM POLICY_CONSTRAINTS} - POLICY_CONSTRAINTS = record - requireExplicitPolicy : PASN1_INTEGER; - inhibitPolicyMapping : ASN1_INTEGER; - end; - {$EXTERNALSYM PPOLICY_CONSTRAINTS} - PPOLICY_CONSTRAINTS = ^POLICY_CONSTRAINTS; - // Proxy certificate structures, see RFC 3820 - {$EXTERNALSYM PROXY_POLICY} - PROXY_POLICY = record - policyLanguage : PASN1_OBJECT; - policy : ASN1_OCTET_STRING; - end; - {$EXTERNALSYM PPROXY_POLICY} - PPROXY_POLICY = ^PROXY_POLICY; - {$EXTERNALSYM PROXY_CERT_INFO_EXTENSION} - PROXY_CERT_INFO_EXTENSION = record - pcPathLengthConstraint : PASN1_INTEGER; - proxyPolicy : PPROXY_POLICY; - end; - {$EXTERNALSYM ISSUING_DIST_POINT} - ISSUING_DIST_POINT = record - distpoint : PDIST_POINT_NAME; - onlyuser : TIdC_INT; - onlyCA : TIdC_INT; - onlysomereasons : PASN1_BIT_STRING; - indirectCRL : TIdC_INT; - onlyattr : TIdC_INT; - end; - {$IFDEF DEBUG_SAFESTACK} - //These are cut and paste but the duplication is for type checking. - {$EXTERNALSYM STACK_OF_CMS_SignerInfo} - STACK_OF_CMS_SignerInfo = record - _stack: stack; - end; - {$EXTERNALSYM STACK_OF_GENERAL_NAMES} - STACK_OF_GENERAL_NAMES = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_CMS_SignerInfo} - PSTACK_OF_CMS_SignerInfo = ^STACK_OF_CMS_SignerInfo; - {$EXTERNALSYM PSTACK_OF_GENERAL_NAMES} - PSTACK_OF_GENERAL_NAMES = ^STACK_OF_GENERAL_NAMES; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_CMS_SignerInfo} - PSTACK_OF_CMS_SignerInfo = PSTACK; - {$EXTERNALSYM PSTACK_OF_GENERAL_NAMES} - PSTACK_OF_GENERAL_NAMES = PSTACK; - {$ENDIF} - {.$ENDIF} - {$EXTERNALSYM PISSUING_DIST_POINT} - PISSUING_DIST_POINT = ^ISSUING_DIST_POINT; - {$EXTERNALSYM PPROXY_CERT_INFO_EXTENSION} - PPROXY_CERT_INFO_EXTENSION = ^PROXY_CERT_INFO_EXTENSION; - {$EXTERNALSYM PX509_PURPOSE} - PX509_PURPOSE = ^X509_PURPOSE; - {$EXTERNALSYM X509_PURPOSE_check_purpose} - X509_PURPOSE_check_purpose = function(const _para1 : Px509_purpose; const _para2 : PX509; - para3 : TIdC_INT) : TIdC_INT; cdecl; - {$EXTERNALSYM X509_PURPOSE} - X509_PURPOSE = record - purpose : TIdC_INT; - trust : TIdC_INT; // Default trust ID - flags : TIdC_INT; - check_purpose : X509_PURPOSE_check_purpose; - name : PIdAnsiChar; - sname : PIdAnsiChar; - usr_data : Pointer; - end; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_X509_PURPOSE} - STACK_OF_X509_PURPOSE = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_X509_PURPOSE} - PSTACK_OF_X509_PURPOSE = ^STACK_OF_X509_PURPOSE; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_X509_PURPOSE} - PSTACK_OF_X509_PURPOSE = PSTACK; - {$ENDIF} - {$IFNDEF OPENSSL_NO_RFC3779} - {$EXTERNALSYM ASRange} - ASRange = record - min, max : PASN1_INTEGER; - end; - {$EXTERNALSYM PASRange} - PASRange = ^ASRange; - {$EXTERNALSYM ASIdOrRange_union} - ASIdOrRange_union = record - case byte of - ASIdOrRange_id : (id : PASN1_INTEGER); - ASIdOrRange_range : (range : PASRange); - end; - {$EXTERNALSYM ASIdOrRange} - ASIdOrRange = record - _type : TIdC_INT; - u : ASIdOrRange_union; - end; - {$EXTERNALSYM PASIdOrRange} - PASIdOrRange = ^ASIdOrRange; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_ASIdOrRange} - STACK_OF_ASIdOrRange = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_ASIdOrRange} - PSTACK_OF_ASIdOrRange = ^STACK_OF_ASIdOrRange; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_ASIdOrRange} - PSTACK_OF_ASIdOrRange = PSTACK; - {$ENDIF} - {$EXTERNALSYM PASIdOrRanges} - PASIdOrRanges = PSTACK_OF_ASIdOrRange; - {$EXTERNALSYM ASIdentifierChoice_union} - ASIdentifierChoice_union = record - case byte of - ASIdentifierChoice_inherit : (inherit : PASN1_NULL); - ASIdentifierChoice_asIdsOrRanges : (asIdsOrRanges : PASIdOrRanges); - end; - {$EXTERNALSYM ASIdentifierChoice} - ASIdentifierChoice = record - _type : TIdC_INT; - u : ASIdentifierChoice_union; - end; - {$EXTERNALSYM PASIdentifierChoice} - PASIdentifierChoice = ^ASIdentifierChoice; - {$EXTERNALSYM ASIdentifiers} - ASIdentifiers = record - asnum : PASIdentifierChoice; - rdi : PASIdentifierChoice; - end; - {$EXTERNALSYM PASIdentifiers} - PASIdentifiers = ^ASIdentifiers; - {$EXTERNALSYM IPAddressRange} - IPAddressRange = record - min, max : PASN1_BIT_STRING; - end; - {$EXTERNALSYM PIPAddressRange} - PIPAddressRange = ^IPAddressRange; - {$EXTERNALSYM IPAddressOrRange_union} - IPAddressOrRange_union = record - case byte of - IPAddressOrRange_addressPrefix : (addressPrefix : PASN1_BIT_STRING); - IPAddressOrRange_addressRange : (addressRange : PIPAddressRange); - end; - {$EXTERNALSYM IPAddressOrRange} - IPAddressOrRange = record - _type : TIdC_INT; - u : IPAddressOrRange_union; - end; - {$EXTERNALSYM PIPAddressOrRange} - PIPAddressOrRange = ^IPAddressOrRange; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_IPAddressOrRange} - STACK_OF_IPAddressOrRange = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_IPAddressOrRange} - PSTACK_OF_IPAddressOrRange = ^STACK_OF_IPAddressOrRange; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_IPAddressOrRange} - PSTACK_OF_IPAddressOrRange = PSTACK; - {$ENDIF} - {$EXTERNALSYM PIPAddressOrRanges} - PIPAddressOrRanges = PSTACK_OF_IPAddressOrRange; - {$EXTERNALSYM IPAddressChoice_union} - IPAddressChoice_union = record - case byte of - IPAddressChoice_inherit : (inherit : PASN1_NULL); - IPAddressChoice_addressesOrRanges : (addressesOrRanges : PIPAddressOrRanges); - end; - {$EXTERNALSYM IPAddressChoice} - IPAddressChoice = record - _type : TIdC_INT; - u : IPAddressChoice_union; - end; - {$EXTERNALSYM PIPAddressChoice} - PIPAddressChoice = ^IPAddressChoice; - {$EXTERNALSYM IPAddressFamily} - IPAddressFamily = record - addressFamily : PASN1_OCTET_STRING; - ipAddressChoice : PIPAddressChoice; - end; - {$EXTERNALSYM PIPAddressFamily} - PIPAddressFamily = ^IPAddressFamily; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_IPAddressFamily} - STACK_OF_IPAddressFamily = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_IPAddressFamily} - PSTACK_OF_IPAddressFamily = ^STACK_OF_IPAddressFamily; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_IPAddressFamily} - PSTACK_OF_IPAddressFamily = PSTACK; - {$ENDIF} - {$EXTERNALSYM PIPAddrBlocks} - PIPAddrBlocks = PSTACK_OF_IPAddressFamily; - {$ENDIF} - //x509.h - {$EXTERNALSYM X509_HASH_DIR_CTX} - X509_HASH_DIR_CTX = record - num_dirs : TIDC_INT; - dirs : PPIdAnsiChar; - dirs_type : PIdC_INT; - num_dirs_alloced : TIdC_INT; - end; - {$EXTERNALSYM PX509_HASH_DIR_CTX} - PX509_HASH_DIR_CTX = ^X509_HASH_DIR_CTX; - {$EXTERNALSYM X509_CERT_FILE_CTX} - X509_CERT_FILE_CTX = record - num_paths : TIdC_INT; // number of paths to files or directories - num_alloced : TIdC_INT; - paths : PPIdAnsiChar; // the list of paths or directories - path_type : TIdC_INT; - end; - {$EXTERNALSYM PX509_CERT_FILE_CTX} - PX509_CERT_FILE_CTX = ^X509_CERT_FILE_CTX; - {$EXTERNALSYM x509_object_union} - x509_object_union = record - case byte of - 0: (ptr : PIdAnsiChar); - 1: (_x509 : Px509); - 2: (crl : PX509_CRL); - 3: (pkey : PEVP_PKEY); - end; - {$EXTERNALSYM X509_OBJECT} - X509_OBJECT = record - _type : TIdC_INT; - data : x509_object_union; - end; - {$EXTERNALSYM PX509_OBJECT} - PX509_OBJECT = ^X509_OBJECT; - {$EXTERNALSYM PPX509_OBJECT} - PPX509_OBJECT = ^PX509_OBJECT; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_X509_OBJECT} - STACK_OF_X509_OBJECT = record - _stack: STACK; - end; - {$EXTERNALSYM PSTACK_OF_X509_OBJECT} - PSTACK_OF_X509_OBJECT = ^STACK_OF_X509_OBJECT; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_X509_OBJECT} - PSTACK_OF_X509_OBJECT = PSTACK; - {$ENDIF} - {$EXTERNALSYM X509_ALGOR} - X509_ALGOR = record - algorithm : PASN1_OBJECT; - parameter : PASN1_TYPE; - end; - {$EXTERNALSYM PX509_ALGOR} - PX509_ALGOR = ^X509_ALGOR; - {$EXTERNALSYM PPX509_ALGOR} - PPX509_ALGOR =^PX509_ALGOR; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_X509_ALGOR} - STACK_OF_X509_ALGOR = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_X509_ALGOR} - PSTACK_OF_X509_ALGOR = ^STACK_OF_X509_ALGOR; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_X509_ALGOR} - PSTACK_OF_X509_ALGOR = PSTACK; - {$ENDIF} - {$EXTERNALSYM PPSTACK_OF_X509_ALGOR} - PPSTACK_OF_X509_ALGOR = ^PSTACK_OF_X509_ALGOR; - {$EXTERNALSYM X509_VAL} - X509_VAL = record - notBefore : PASN1_TIME; - notAfter : PASN1_TIME; - end; - {$EXTERNALSYM PX509_VAL} - PX509_VAL = ^X509_VAL; - {$EXTERNALSYM PPX509_VAL} - PPX509_VAL =^PX509_VAL; - {$EXTERNALSYM X509_PUBKEY} - X509_PUBKEY = record - algor : PX509_ALGOR; - public_key : PASN1_BIT_STRING; - pkey : PEVP_PKEY; - end; - {$EXTERNALSYM PX509_PUBKEY} - PX509_PUBKEY = ^X509_PUBKEY; - {$EXTERNALSYM PPX509_PUBKEY} - PPX509_PUBKEY =^PX509_PUBKEY; - {$EXTERNALSYM X509_SIG} - X509_SIG = record - algor : PX509_ALGOR; - digest : PASN1_OCTET_STRING; - end; - {$EXTERNALSYM PX509_SIG} - PX509_SIG = X509_SIG; - {$EXTERNALSYM PPX509_SIG} - PPX509_SIG =^PX509_SIG; - {$EXTERNALSYM X509_NAME_ENTRY} - X509_NAME_ENTRY = record - _object : PASN1_OBJECT; - value : PASN1_STRING; - _set : TIdC_INT; - size : TIdC_INT; // temp variable - end; - {$NODEFINE X509_NAME} - X509_NAME = record - entries : PSTACK_OF_X509_NAME_ENTRY; - modified : TIdC_INT; // true if 'bytes' needs to be built - {$IFNDEF OPENSSL_NO_BUFFER} - bytes : PBUF_MEM; - {$else} - bytes : PIdAnsiChar; - {$ENDIF} - //* unsigned long hash; Keep the hash around for lookups */ - canon_enc : PIdAnsiChar; - canon_enclen : TIdC_INT; - end; - {$EXTERNALSYM X509_EXTENSION} - X509_EXTENSION = record - _object : PASN1_OBJECT; - critical : ASN1_BOOLEAN; - value : PASN1_OCTET_STRING; - end; - {$EXTERNALSYM PX509_EXTENSION} - PX509_EXTENSION = ^X509_EXTENSION; - {$EXTERNALSYM PPX509_EXTENSION} - PPX509_EXTENSION =^PX509_EXTENSION; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_X509_EXTENSION} - STACK_OF_X509_EXTENSION = record - _stack: stack; - end; - {$EXTERNALSYM X509_EXTENSIONS} - X509_EXTENSIONS = STACK_OF_X509_EXTENSION; - {$EXTERNALSYM PSTACK_OF_X509_EXTENSION} - PSTACK_OF_X509_EXTENSION = ^STACK_OF_X509_EXTENSION; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_X509_EXTENSION} - PSTACK_OF_X509_EXTENSION = PSTACK; - {$ENDIF} - {$EXTERNALSYM PPSTACK_OF_X509_EXTENSION} - PPSTACK_OF_X509_EXTENSION = ^PSTACK_OF_X509_EXTENSION; - {$EXTERNALSYM PX509_EXTENSIONS} - PX509_EXTENSIONS = PPSTACK_OF_X509_EXTENSION; - {$EXTERNALSYM x509_attributes_union} - x509_attributes_union = record - case Byte of - $FF :(Ptr : PIdAnsiChar); - 0 : (_set: PSTACK_OF_ASN1_TYPE); // 0 - 1 : (_single: PASN1_TYPE); - end; - {$EXTERNALSYM X509_ATTRIBUTE} - X509_ATTRIBUTE = record - _object : PASN1_OBJECT; - single : TIdC_INT; // 0 for a set, 1 for a single item (which is wrong) - value : x509_attributes_union; - end; - {$EXTERNALSYM PX509_ATTRIBUTE} - PX509_ATTRIBUTE = ^X509_ATTRIBUTE; - {$EXTERNALSYM PPX509_ATTRIBUTE} - PPX509_ATTRIBUTE =^PX509_ATTRIBUTE; - {$EXTERNALSYM X509_REQ_INFO} - X509_REQ_INFO = record - enc: ASN1_ENCODING; - version: PASN1_INTEGER; - subject: PX509_NAME; - pubkey: PX509_PUBKEY; - attributes: PSTACK_OF_X509_ATTRIBUTE; // [ 0 ] - end; - {$EXTERNALSYM X509_REQ} - X509_REQ = record - req_info: PX509_REQ_INFO; - sig_alg: PX509_ALGOR; - signature: PASN1_BIT_STRING; - references: TIdC_INT; - end; - {$EXTERNALSYM PPX509_REQ} - PPX509_REQ = ^PX509_REQ; - {$EXTERNALSYM PX509_CINF} - PX509_CINF = ^X509_CINF; - {$EXTERNALSYM X509_CINF} - X509_CINF = record - version: PASN1_INTEGER; - serialNumber: PASN1_INTEGER; - signature: PX509_ALGOR; - issuer: PX509_NAME; - validity: PX509_VAL; - subject: PX509_NAME; - key: PX509_PUBKEY; - issuerUID: PASN1_BIT_STRING; // [ 1 ] optional in v2 - subjectUID: PASN1_BIT_STRING; // [ 2 ] optional in v2 - extensions: PSTACK_OF_X509_EXTENSION; - enc : ASN1_ENCODING; - end; - {$EXTERNALSYM X509_CERT_AUX} - X509_CERT_AUX = record - trust : PSTACK_OF_ASN1_OBJECT; // trusted uses - reject : PSTACK_OF_ASN1_OBJECT; // rejected uses - alias : PASN1_UTF8STRING; // "friendly name" - keyid : PASN1_OCTET_STRING; // key id of private key - other : PSTACK_OF_X509_ALGOR; // other unspecified info - end; - {$EXTERNALSYM PX509_CERT_AUX} - PX509_CERT_AUX = ^X509_CERT_AUX; - {$NODEFINE X509} - X509 = record - cert_info: PX509_CINF; - sig_alg : PX509_ALGOR; - signature : PASN1_BIT_STRING; - valid : TIdC_INT; - references : TIdC_INT; - name : PIdAnsiChar; - ex_data : CRYPTO_EX_DATA; - // These contain copies of various extension values - ex_pathlen : TIdC_LONG; - ex_pcpathlen : TIdC_LONG; - ex_flags : TIdC_ULONG; - ex_kusage : TIdC_ULONG; - ex_xkusage : TIdC_ULONG; - ex_nscert : TIdC_ULONG; - skid : PASN1_OCTET_STRING; - akid : PAUTHORITY_KEYID; - policy_cache : PX509_POLICY_CACHE; - crldp : PSTACK_OF_DIST_POINT; - altname : PSTACK_OF_GENERAL_NAME; - nc : PNAME_CONSTRAINTS; - {$IFNDEF OPENSSL_NO_RFC3779} - rfc3779_addr : PSTACK_OF_IPAddressFamily; - rfc3779_asid : PASIdentifiers; - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA} - sha1_hash : array [0..SHA_DIGEST_LENGTH-1] of TIdAnsiChar; - {$ENDIF} - aux : PX509_CERT_AUX; - end; - {$EXTERNALSYM X509_CRL_INFO} - X509_CRL_INFO = record - version : PASN1_INTEGER; - sig_alg : PX509_ALGOR; - issuer : PX509_NAME; - lastUpdate : PASN1_TIME; - nextUpdate : PASN1_TIME; - revoked : PSTACK_OF_X509_REVOKED; - extensions : PSTACK_OF_X509_EXTENSION; // [0] - enc : ASN1_ENCODING; - end; - {$EXTERNALSYM PX509_CRL_INFO} - PX509_CRL_INFO = ^X509_CRL_INFO; - {$EXTERNALSYM PPX509_CRL_INFO} - PPX509_CRL_INFO =^PX509_CRL_INFO; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_X509_CRL_INFO} - STACK_OF_X509_CRL_INFO = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_X509_CRL_INFO} - PSTACK_OF_X509_CRL_INFO = ^STACK_OF_X509_CRL_INFO; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_X509_CRL_INFO} - PSTACK_OF_X509_CRL_INFO = PSTACK; - {$ENDIF} - {$EXTERNALSYM PX509_LOOKUP} - PX509_LOOKUP = ^X509_LOOKUP; - //This has to be declared ehre for a reference in the next type. - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_X509_LOOKUP} - STACK_OF_X509_LOOKUP = record - _stack: STACK; - end; - {$EXTERNALSYM PSTACK_OF_X509_LOOKUP} - PSTACK_OF_X509_LOOKUP = ^STACK_OF_X509_LOOKUP; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_X509_LOOKUP} - PSTACK_OF_X509_LOOKUP = PSTACK; - {$ENDIF} - - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_X509_CRL} - STACK_OF_X509_CRL = record - _stack: STACK; - end; - {$EXTERNALSYM PSTACK_OF_X509_CRL} - PSTACK_OF_X509_CRL = ^STACK_OF_X509_CRL; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_X509_CRL} - PSTACK_OF_X509_CRL = PSTACK; - {$ENDIF} - {$EXTERNALSYM PX509_VERIFY_PARAM} - PX509_VERIFY_PARAM = ^X509_VERIFY_PARAM; - {$EXTERNALSYM PX509_STORE_CTX} - PX509_STORE_CTX = ^X509_STORE_CTX; - {$EXTERNALSYM PPX509_CRL} - PPX509_CRL = ^PX509_CRL; - {$EXTERNALSYM X509_STORE} - X509_STORE = record - // The following is a cache of trusted certs - cache : TIdC_INT; // if true, stash any hits - objs : PSTACK_OF_X509_OBJECT; // Cache of all objects - // These are external lookup methods - get_cert_methods : PSTACK_OF_X509_LOOKUP; - param : PX509_VERIFY_PARAM; - // Callbacks for various operations - verify : function (ctx : PX509_STORE_CTX) : TIdC_INT; cdecl; // called to verify a certificate - verify_cb : function (ok : TIdC_INT; ctx : PX509_STORE_CTX) : TIdC_INT; cdecl; // error callback - get_issuer : function (issuer : PPX509; ctx : PX509_STORE_CTX; x : PX509) : TIdC_INT; cdecl; // get issuers cert from ctx - check_issued : function (ctx : PX509_STORE_CTX; x : PX509; issuer : PX509) : TIdC_INT; cdecl; // check issued - check_revocation : function (ctx : PX509_STORE_CTX) : TIdC_INT; cdecl; // Check revocation status of chain - get_crl : function (ctx : PX509_STORE_CTX; crl : PPX509_CRL; x : PX509) : TIdC_INT; cdecl;// retrieve CRL - check_crl : function(ctx : PX509_STORE_CTX; crl : PX509_CRL) : TIdC_INT; cdecl; // Check CRL validity - cert_crl : function(ctx : PX509_STORE_CTX; crl : PX509_CRL; x : PX509) : TIdC_INT; cdecl; // Check certificate against CRL - lookup_certs : function(ctx : PX509_STORE_CTX; nm : PX509_NAME) : PSTACK_OF_X509 cdecl; - lookup_crls : function(ctx : PX509_STORE_CTX; nm : PX509_NAME) : PSTACK_OF_X509_CRL cdecl; - cleanup : function(ctx : PX509_STORE_CTX) : TIdC_INT; cdecl; - ex_data : CRYPTO_EX_DATA; - references : TIdC_INT; - end; - {$EXTERNALSYM PX509_STORE} - PX509_STORE = ^X509_STORE; - {$EXTERNALSYM PX509_CRL_METHOD} - PX509_CRL_METHOD = Pointer; - {$EXTERNALSYM X509_CRL} - X509_CRL = record - crl : PX509_CRL_INFO; - sig_alg : PX509_ALGOR; - signature : PASN1_BIT_STRING; - references : TIdC_INT; - flags : TIdC_INT; - //* Copies of various extensions */ - akid : PAUTHORITY_KEYID; - idp : PISSUING_DIST_POINT; - //* Convenient breakdown of IDP */ - idp_flags : TIdC_INT; - idp_reasons : TIdC_INT; - //* CRL and base CRL numbers for delta processing */ - crl_number : PASN1_INTEGER; - base_crl_number : PASN1_INTEGER; -{$ifndef OPENSSL_NO_SHA} - sha1_hash : array [0..(SHA_DIGEST_LENGTH - 1)] of byte; -{$endif} - issuers : PSTACK_OF_GENERAL_NAMES; - meth : PX509_CRL_METHOD; - meth_data : Pointer; - end; - {$EXTERNALSYM X509_LOOKUP_METHOD} - X509_LOOKUP_METHOD = record - name : PIdAnsiChar; - new_item : function (ctx : PX509_LOOKUP): TIdC_INT; cdecl; - free : procedure (ctx : PX509_LOOKUP); cdecl; - init : function(ctx : PX509_LOOKUP) : TIdC_INT; cdecl; - shutdown : function(ctx : PX509_LOOKUP) : TIdC_INT; cdecl; - ctrl: function(ctx : PX509_LOOKUP; cmd : TIdC_INT; const argc : PIdAnsiChar; argl : TIdC_LONG; out ret : PIdAnsiChar ) : TIdC_INT; cdecl; - get_by_subject: function(ctx : PX509_LOOKUP; _type : TIdC_INT; name : PX509_NAME; ret : PX509_OBJECT ) : TIdC_INT; cdecl; - get_by_issuer_serial : function(ctx : PX509_LOOKUP; _type : TIdC_INT; name : PX509_NAME; serial : PASN1_INTEGER; ret : PX509_OBJECT) : TIdC_INT; cdecl; - get_by_fingerprint : function (ctx : PX509_LOOKUP; _type : TIdC_INT; bytes : PIdAnsiChar; len : TIdC_INT; ret : PX509_OBJECT): TIdC_INT; cdecl; - get_by_alias : function(ctx : PX509_LOOKUP; _type : TIdC_INT; str : PIdAnsiChar; ret : PX509_OBJECT) : TIdC_INT; cdecl; - end; - {$EXTERNALSYM PX509_LOOKUP_METHOD} - PX509_LOOKUP_METHOD = ^X509_LOOKUP_METHOD; - {$EXTERNALSYM PPX509_LOOKUP_METHOD} - PPX509_LOOKUP_METHOD = ^PX509_LOOKUP_METHOD; - {$EXTERNALSYM X509_VERIFY_PARAM} - X509_VERIFY_PARAM = record - name : PIdAnsiChar; - check_time : time_t; // Time to use - inh_flags : TIdC_ULONG; // Inheritance flags - flags : TIdC_ULONG; // Various verify flags - purpose : TIdC_INT; // purpose to check untrusted certificates - trust : TIdC_INT; // trust setting to check - depth : TIdC_INT; // Verify depth - policies : PSTACK_OF_ASN1_OBJECT; // Permissible policies - end; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_X509_VERIFY_PARAM} - STACK_OF_X509_VERIFY_PARAM = record - _stack: STACK; - end; - {$EXTERNALSYM PSTACK_OF_X509_VERIFY_PARAM} - PSTACK_OF_X509_VERIFY_PARAM = ^STACK_OF_X509_VERIFY_PARAM; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_X509_VERIFY_PARAM} - PSTACK_OF_X509_VERIFY_PARAM = PSTACK; - {$ENDIF} - {$EXTERNALSYM X509_LOOKUP} - X509_LOOKUP = record - init : TIdC_INT; // have we been started - skip : TIdC_INT; // don't use us. - method : PX509_LOOKUP_METHOD; // the functions - method_data : PIdAnsiChar; // method data - store_ctx : PX509_STORE; // who owns us - end; - {$EXTERNALSYM PX509_POLICY_TREE} - PX509_POLICY_TREE = Pointer; - {$EXTERNALSYM PPSTACK_OF_X509_LOOKUP} - PPSTACK_OF_X509_LOOKUP = ^PSTACK_OF_X509_LOOKUP; - // This is used when verifying cert chains. Since the - // gathering of the cert chain can take some time (and have to be - // 'retried', this needs to be kept and passed around. - X509_STORE_CTX = record // X509_STORE_CTX - ctx : PX509_STORE; - current_method : TIdC_INT; // used when looking up certs - // The following are set by the caller - cert : PX509; // The cert to check - untrusted : PSTACK_OF_X509; // chain of X509s - untrusted - passed in - crls : PSTACK_OF_X509_CRL; // set of CRLs passed in - param : PX509_VERIFY_PARAM; - other_ctx : Pointer; // Other info for use with get_issuer() - // Callbacks for various operations - verify : function (ctx : PX509_STORE_CTX) : TIdC_INT; cdecl; // called to verify a certificate - verify_cb : function (ok : TIdC_INT; ctx : PX509_STORE_CTX) : TIdC_INT; cdecl; // error callback - get_issuer : function (var issuer : PX509; ctx : PX509_STORE_CTX; x : PX509) : TIdC_INT; cdecl; // get issuers cert from ctx - check_issued : function(ctx : PX509_STORE_CTX; x, issuer : PX509) : TIdC_INT; cdecl; // check issued - check_revocation : function (ctx : PX509_STORE_CTX): TIdC_INT; cdecl; // Check revocation status of chain - get_crl : function (ctx : PX509_STORE_CTX; var crl : X509_CRL; x : PX509): TIdC_INT; cdecl; // retrieve CRL - check_crl : function (ctx : PX509_STORE_CTX; var crl : X509_CRL) : TIdC_INT; cdecl; // Check CRL validity - cert_crl : function (ctx : PX509_STORE_CTX; crl : PX509_CRL; x : PX509) : TIdC_INT; cdecl; // Check certificate against CRL - check_policy : function (ctx : PX509_STORE_CTX) : TIdC_INT; cdecl; - cleanup : function (ctx : PX509_STORE_CTX) : TIdC_INT; cdecl; - //* The following is built up */ - valid : TIdC_INT; //* if 0, rebuild chain */ - last_untrusted : TIdC_INT; //* index of last untrusted cert */ - chain : PSTACK_OF_X509; //* chain of X509s - built up and trusted */ - tree : PX509_POLICY_TREE; //* Valid policy tree */ - - explicit_policy : TIdC_INT; //* Require explicit policy value */ - - //* When something goes wrong, this is why */ - error_depth : TIdC_INT; - error : TIdC_INT; - current_cert : PX509; - current_issuer : PX509; //* cert currently being tested as valid issuer */ - current_crl : PX509_CRL; //* current CRL */ - - current_crl_score : TIdC_INT; //* score of current CRL */ - current_reasons : TIdC_UINT; //* Reason mask */ - - parent : PX509_STORE_CTX; //* For CRL path validation: parent context */ - - ex_data : CRYPTO_EX_DATA; - end; - {$EXTERNALSYM X509_STORE_CTX} - - {$EXTERNALSYM PX509_EXTENSION_METHOD} - PX509_EXTENSION_METHOD = Pointer; - {$EXTERNALSYM PX509_TRUST} - PX509_TRUST = ^X509_TRUST; - {$EXTERNALSYM X509_TRUST_check_trust} - X509_TRUST_check_trust = function(_para1 : PX509_TRUST; para2 : PX509; _para3 : TIdC_INT) : TIdC_INT; cdecl; - {$EXTERNALSYM X509_TRUST} - X509_TRUST = record - trust : TIdC_INT; - flags : TIdC_INT; - check_trust : X509_TRUST_check_trust; - name : PIdAnsiChar; - arg1 : TIdC_INT; - arg2 : Pointer; - end; - {$EXTERNALSYM PPX509_TRUST} - PPX509_TRUST = ^PX509_TRUST; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_509_TRUST} - STACK_OF_509_TRUST = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_509_TRUST} - PSTACK_OF_509_TRUST = ^STACK_OF_509_TRUST; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_509_TRUST} - PSTACK_OF_509_TRUST = PSTACK; - {$ENDIF} - {$EXTERNALSYM X509_REVOKED} - X509_REVOKED = record - serialNumber: PASN1_INTEGER; - revocationDate: PASN1_TIME; - extensions: PSTACK_OF_X509_EXTENSION; // optional - //* Set up if indirect CRL */ - issuer : PSTACK_OF_GENERAL_NAME; - //* Revocation reason */ - reason : TIdC_INT; - sequence: TIdC_INT; - end; - {$EXTERNALSYM PX509_REVOKED} - PX509_REVOKED = ^X509_REVOKED; - {$EXTERNALSYM PPX509_REVOKED} - PPX509_REVOKED =^PX509_REVOKED; - {$EXTERNALSYM PX509_PKEY} - PX509_PKEY = Pointer; - {$EXTERNALSYM PPX509_PKEY} - PPX509_PKEY =^PX509_PKEY; - {$EXTERNALSYM X509_INFO} - X509_INFO = record - x509 : PX509; - crl : PX509_CRL; - x_pkey : PX509_PKEY; - enc_cipher: EVP_CIPHER_INFO; - enc_len: TIdC_INT; - enc_data: PIdAnsiChar; - references: TIdC_INT; - end; - {$EXTERNALSYM PX509_INFO} - PX509_INFO = ^X509_INFO; - {$EXTERNALSYM PPX509_INFO} - PPX509_INFO =^PX509_INFO; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_X509_INFO} - STACK_OF_X509_INFO = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_X509_INFO} - PSTACK_OF_X509_INFO = ^STACK_OF_X509_INFO; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_X509_INFO} - PSTACK_OF_X509_INFO = PSTACK; - {$ENDIF} -// OpenSSL Developer's note -// The next 2 structures and their 8 routines were sent to me by -// Pat Richard and are used to manipulate -// Netscapes spki structures - useful if you are writing a CA web page - {$EXTERNALSYM NETSCAPE_SPKAC} - NETSCAPE_SPKAC = record - pubkey : PX509_PUBKEY; - challenge : PASN1_IA5STRING; // challenge sent in atlas >= PR2 - end; - {$EXTERNALSYM PNETSCAPE_SPKAC} - PNETSCAPE_SPKAC = ^NETSCAPE_SPKAC; - {$EXTERNALSYM PPNETSCAPE_SPKAC} - PPNETSCAPE_SPKAC = ^PNETSCAPE_SPKAC; - {$EXTERNALSYM NETSCAPE_SPKI} - NETSCAPE_SPKI = record - spkac : PNETSCAPE_SPKAC; // signed public key and challenge - sig_algor : PX509_ALGOR; - signature : PASN1_BIT_STRING; - end; - {$EXTERNALSYM PNETSCAPE_SPKI} - PNETSCAPE_SPKI = ^NETSCAPE_SPKI; - {$EXTERNALSYM PPNETSCAPE_SPKI} - PPNETSCAPE_SPKI = ^PNETSCAPE_SPKI; - {$EXTERNALSYM NETSCAPE_CERT_SEQUENCE} - NETSCAPE_CERT_SEQUENCE = record - _type : PASN1_OBJECT; - certs : PSTACK_OF_X509; - end; - {$EXTERNALSYM PNETSCAPE_CERT_SEQUENCE} - PNETSCAPE_CERT_SEQUENCE = ^NETSCAPE_CERT_SEQUENCE; - {$EXTERNALSYM PPNETSCAPE_CERT_SEQUENCE} - PPNETSCAPE_CERT_SEQUENCE = ^PNETSCAPE_CERT_SEQUENCE; - // Password based encryption structure - {$EXTERNALSYM PBEPARAM} - PBEPARAM = record - salt : PASN1_OCTET_STRING; - iter : PASN1_INTEGER; - end; - {$EXTERNALSYM PPBEPARAM} - PPBEPARAM = ^PBEPARAM; - {$EXTERNALSYM PPPBEPARAM} - PPPBEPARAM = ^PPBEPARAM; - // Password based encryption V2 structures - {$EXTERNALSYM PBE2PARAM} - PBE2PARAM = record - keyfunc : PX509_ALGOR; - encryption : PX509_ALGOR; - end; - {$EXTERNALSYM PPBE2PARAM} - PPBE2PARAM = ^PBE2PARAM; - {$EXTERNALSYM PBKDF2PARAM} - PBKDF2PARAM = record - salt : PASN1_TYPE; // Usually OCTET STRING but could be anything - iter : PASN1_INTEGER; - keylength : PASN1_INTEGER; - prf : PX509_ALGOR; - end; - {$EXTERNALSYM PPBKDF2PARAM} - PPBKDF2PARAM = ^PBKDF2PARAM; - {$EXTERNALSYM PPPBKDF2PARAM} - PPPBKDF2PARAM = ^PPBKDF2PARAM; - {$EXTERNALSYM PKCS8_PRIV_KEY_INFO} - PKCS8_PRIV_KEY_INFO = record - broken : TIdC_INT; // Flag for various broken formats -//#define PKCS8_OK 0 -//#define PKCS8_NO_OCTET 1 -//#define PKCS8_EMBEDDED_PARAM 2 -//#define PKCS8_NS_DB 3 - version : PASN1_INTEGER; - pkeyalg : PX509_ALGOR; - pkey : PASN1_TYPE; // Should be OCTET STRING but some are broken - attributes : PSTACK_OF_X509_ATTRIBUTE; - end; - {$EXTERNALSYM PPKCS8_PRIV_KEY_INFO} - PPKCS8_PRIV_KEY_INFO = ^PKCS8_PRIV_KEY_INFO; - {$EXTERNALSYM PPPKCS8_PRIV_KEY_INFO} - PPPKCS8_PRIV_KEY_INFO = ^PPKCS8_PRIV_KEY_INFO; - {$EXTERNALSYM PPKCS7_RECIP_INFO} - PPKCS7_RECIP_INFO = ^PKCS7_RECIP_INFO; - {$EXTERNALSYM PSHA_CTX} - PSHA_CTX = ^SHA_CTX; - //cms.h - {$IFDEF OPENSSL_NO_CMS} - {$EXTERNALSYM PCMS_ContentInfo} - PCMS_ContentInfo = Pointer; - {$EXTERNALSYM PCMS_SignerInfo} - PCMS_SignerInfo = Pointer; - {$EXTERNALSYM PCMS_CertificateChoices} - PCMS_CertificateChoices = Pointer; - {$EXTERNALSYM PCMS_RevocationInfoChoice} - PCMS_RevocationInfoChoice = Pointer; - {$EXTERNALSYM PCMS_RecipientInfo} - PCMS_RecipientInfo = Pointer; - {$EXTERNALSYM PCMS_ReceiptRequest} - PCMS_ReceiptRequest = Pointer; - {$EXTERNALSYM PCMS_Receipt} - PCMS_Receipt = Pointer; - {$EXTERNALSYM PSTACK_OF_CMS_SignerInfo} - {$ENDIF} - //ripemd.h - {$IFNDEF OPENSSL_NO_RIPEMD} - {$EXTERNALSYM RIPEMD160_LONG} - RIPEMD160_LONG = TIdC_UINT; - {$EXTERNALSYM RIPEMD160_CTX} - RIPEMD160_CTX = record - A,B,C,D,E : RIPEMD160_LONG; - Nl,Nh : RIPEMD160_LONG; - data : array [0..RIPEMD160_LBLOCK -1 ] of RIPEMD160_LONG; - num : TIdC_UINT; - end; - {$EXTERNALSYM PRIPEMD160_CTX} - PRIPEMD160_CTX = ^RIPEMD160_CTX; - {$ENDIF} - {$IFNDEF OPENSSL_NO_RC4} - {$EXTERNALSYM RC4_KEY} - RC4_KEY = record - x,y : RC4_INT; - data : array [0..(256 - 1)] of RC4_INT; - end; - {$EXTERNALSYM PRC4_KEY} - PRC4_KEY = ^RC4_KEY; - {$ENDIF} - //rc2.h - {$IFNDEF OPENSSL_NO_RC2} - {$EXTERNALSYM RC2_KEY} - RC2_KEY = record - data : array [0..(64 - 1)] of RC2_INT; - end; - {$EXTERNALSYM PRC2_KEY} - PRC2_KEY = ^RC2_KEY; - {$ENDIF} - {$IFNDEF OPENSSL_NO_RC5} - {$EXTERNALSYM RC5_32_INT} - RC5_32_INT = TIdC_UINT; - {$EXTERNALSYM RC5_32_KEY} - RC5_32_KEY = record - // Number of rounds - rounds : TIdC_INT; - data : array [0..(2*(RC5_16_ROUNDS+1)-1)] of RC5_32_INT; - end; - {$EXTERNALSYM PRC5_32_KEY} - PRC5_32_KEY = ^RC5_32_KEY; - {$ENDIF} - //blowfish.h - {$IFNDEF OPENSSL_NO_BF} - {$EXTERNALSYM BF_LONG} - BF_LONG = TIdC_UINT; - {$EXTERNALSYM BF_KEY} - BF_KEY = record - P : array [0..(BF_ROUNDS+2)-1] of BF_LONG; - S : array [0..(4*256)-1] of BF_LONG; - end; - {$EXTERNALSYM PBF_KEY} - PBF_KEY = ^BF_KEY; - {$ENDIF} - {$IFNDEF OPENSSL_NO_CAST} - {$EXTERNALSYM CAST_LONG} - CAST_LONG = TIdC_ULONG; - {$EXTERNALSYM CAST_KEY} - CAST_KEY = record - data : array[0..(32 -1)] of CAST_LONG; - short_key : TIdC_INT; // Use reduced rounds for short key - end; - {$EXTERNALSYM PCAST_KEY} - PCAST_KEY = ^CAST_KEY; - {$ENDIF} - {$IFNDEF OPENSSL_NO_IDEA} - {$EXTERNALSYM IDEA_KEY_SCHEDULE} - IDEA_KEY_SCHEDULE = record - data : array [0..(9-1),0..(6-1)] of IDEA_INT; - end; - {$EXTERNALSYM PIDEA_KEY_SCHEDULE} - PIDEA_KEY_SCHEDULE = ^IDEA_KEY_SCHEDULE; - {$ENDIF} - //ocsp.h - //* CertID ::= SEQUENCE { - //* hashAlgorithm AlgorithmIdentifier, - //* issuerNameHash OCTET STRING, -- Hash of Issuer's DN - //* issuerKeyHash OCTET STRING, -- Hash of Issuers public key (excluding the tag & length fields) - //* serialNumber CertificateSerialNumber } - //*/ -//typedef struct ocsp_cert_id_st - {$EXTERNALSYM OCSP_CERTID} - OCSP_CERTID = record - hashAlgorithm : PX509_ALGOR; - issuerNameHash : PASN1_OCTET_STRING; - issuerKeyHash : PASN1_OCTET_STRING; - serialNumber : PASN1_INTEGER; - end; - {$EXTERNALSYM POCSP_CERTID} - POCSP_CERTID = ^OCSP_CERTID; - {$EXTERNALSYM PPOCSP_CERTID} - PPOCSP_CERTID = ^POCSP_CERTID; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_OCSP_CERTID} - STACK_OF_OCSP_CERTID = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_OCSP_CERTID} - PSTACK_OF_OCSP_CERTID = ^STACK_OF_OCSP_CERTID; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_OCSP_CERTID} - PSTACK_OF_OCSP_CERTID = PSTACK; - {$ENDIF} -// * Request ::= SEQUENCE { -// * reqCert CertID, -// * singleRequestExtensions [0] EXPLICIT Extensions OPTIONAL } -// */ - {$EXTERNALSYM OCSP_ONEREQ} - OCSP_ONEREQ = record - reqCert : POCSP_CERTID; - singleRequestExtensions : PSTACK_OF_X509_EXTENSION; - end; - {$EXTERNALSYM POCSP_ONEREQ} - POCSP_ONEREQ = ^OCSP_ONEREQ; - {$EXTERNALSYM PPOCSP_ONEREQ} - PPOCSP_ONEREQ = ^POCSP_ONEREQ; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_OCSP_ONEREQ} - STACK_OF_OCSP_ONEREQ = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_OCSP_ONEREQ} - PSTACK_OF_OCSP_ONEREQ = ^STACK_OF_OCSP_ONEREQ; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_OCSP_ONEREQ} - PSTACK_OF_OCSP_ONEREQ = PSTACK; - {$ENDIF} -//* TBSRequest ::= SEQUENCE { -//* version [0] EXPLICIT Version DEFAULT v1, -//* requestorName [1] EXPLICIT GeneralName OPTIONAL, -//* requestList SEQUENCE OF Request, -//* requestExtensions [2] EXPLICIT Extensions OPTIONAL } -//*/ - {$EXTERNALSYM OCSP_REQINFO} - OCSP_REQINFO = record - version : PASN1_INTEGER; - requestorName : PGENERAL_NAME; - requestList : PSTACK_OF_OCSP_ONEREQ; - requestExtensions : PSTACK_OF_X509_EXTENSION; - end; - {$EXTERNALSYM POCSP_REQINFO} - POCSP_REQINFO = ^OCSP_REQINFO; - {$EXTERNALSYM PPOCSP_REQINFO} - PPOCSP_REQINFO = ^POCSP_REQINFO; -///* Signature ::= SEQUENCE { -// * signatureAlgorithm AlgorithmIdentifier, -// * signature BIT STRING, -// * certs [0] EXPLICIT SEQUENCE OF Certificate OPTIONAL } -// */ - {$EXTERNALSYM OCSP_SIGNATURE} - OCSP_SIGNATURE = record - signatureAlgorithm : PX509_ALGOR; - signature : PASN1_BIT_STRING; - certs : PSTACK_OF_X509; - end; - {$EXTERNALSYM POCSP_SIGNATURE} - POCSP_SIGNATURE = ^OCSP_SIGNATURE; - {$EXTERNALSYM PPOCSP_SIGNATURE} - PPOCSP_SIGNATURE = ^POCSP_SIGNATURE; -///* OCSPRequest ::= SEQUENCE { -// * tbsRequest TBSRequest, -// * optionalSignature [0] EXPLICIT Signature OPTIONAL } -// */ - {$EXTERNALSYM OCSP_REQUEST} - OCSP_REQUEST = record - tbsRequest : POCSP_REQINFO; - optionalSignature : POCSP_SIGNATURE; //* OPTIONAL */ - end; - {$EXTERNALSYM POCSP_REQUEST} - POCSP_REQUEST = ^OCSP_REQUEST; - {$EXTERNALSYM PPOCSP_REQUEST} - PPOCSP_REQUEST = ^POCSP_REQUEST; -///* OCSPResponseStatus ::= ENUMERATED { -// * successful (0), --Response has valid confirmations -// * malformedRequest (1), --Illegal confirmation request -// * internalError (2), --Internal error in issuer -// * tryLater (3), --Try again later -// * --(4) is not used -// * sigRequired (5), --Must sign the request -// * unauthorized (6) --Request unauthorized -// * } -// */ -///* ResponseBytes ::= SEQUENCE { -// * responseType OBJECT IDENTIFIER, -// * response OCTET STRING } -// */ - {$EXTERNALSYM OCSP_RESPBYTES} - OCSP_RESPBYTES = record - responseType : PASN1_OBJECT; - response : PASN1_OCTET_STRING; - end; - {$EXTERNALSYM POCSP_RESPBYTES} - POCSP_RESPBYTES = ^OCSP_RESPBYTES; - {$EXTERNALSYM PPOCSP_RESPBYTES} - PPOCSP_RESPBYTES = ^POCSP_RESPBYTES; -///* OCSPResponse ::= SEQUENCE { -// * responseStatus OCSPResponseStatus, -// * responseBytes [0] EXPLICIT ResponseBytes OPTIONAL } -// */ - {$EXTERNALSYM OCSP_RESPONSE} - OCSP_RESPONSE = record - responseStatus : PASN1_ENUMERATED; - responseBytes : POCSP_RESPBYTES; - end; - {$EXTERNALSYM POCSP_RESPONSE} - POCSP_RESPONSE = ^OCSP_RESPONSE; - {$EXTERNALSYM PPOCSP_RESPONSE} - PPOCSP_RESPONSE = ^POCSP_RESPONSE; -// /* ResponderID ::= CHOICE { -// * byName [1] Name, -// * byKey [2] KeyHash } -// */ - {$EXTERNALSYM OCSP_RESPID_union} - OCSP_RESPID_union = record - case Integer of - 0 : (byName : PX509_NAME); - 1 : (byKey : PASN1_OCTET_STRING); - end; - {$EXTERNALSYM OCSP_RESPID} - OCSP_RESPID = record - _type : TIdC_INT; - value : OCSP_RESPID_union; - end; - {$EXTERNALSYM POCSP_RESPID} - POCSP_RESPID = ^OCSP_RESPID; - {$EXTERNALSYM PPOCSP_RESPID} - PPOCSP_RESPID = ^POCSP_RESPID; - //* KeyHash ::= OCTET STRING --SHA-1 hash of responder's public key - // * --(excluding the tag and length fields) - // */ - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_OCSP_RESPID} - STACK_OF_OCSP_RESPID = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_OCSP_RESPID} - PSTACK_OF_OCSP_RESPID = ^STACK_OF_OCSP_RESPID; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_OCSP_RESPID} - PSTACK_OF_OCSP_RESPID = PSTACK; - {$ENDIF} -///* RevokedInfo ::= SEQUENCE { -// * revocationTime GeneralizedTime, -// * revocationReason [0] EXPLICIT CRLReason OPTIONAL } -// */ - {$EXTERNALSYM OCSP_REVOKEDINFO} - OCSP_REVOKEDINFO = record - revocationTime : PASN1_GENERALIZEDTIME; - revocationReason : PASN1_ENUMERATED; - end; - {$EXTERNALSYM POCSP_REVOKEDINFO} - POCSP_REVOKEDINFO = ^OCSP_REVOKEDINFO; - {$EXTERNALSYM PPOCSP_REVOKEDINFO} - PPOCSP_REVOKEDINFO = ^POCSP_REVOKEDINFO; -///* CertStatus ::= CHOICE { -// * good [0] IMPLICIT NULL, -// * revoked [1] IMPLICIT RevokedInfo, -// * unknown [2] IMPLICIT UnknownInfo } -// */ - {$EXTERNALSYM OCSP_CERTSTATUS_union} - OCSP_CERTSTATUS_union = record - case Integer of - 0 : (good : PASN1_NULL); - 1 : (revoked : POCSP_REVOKEDINFO); - 2 : (unknown : PASN1_NULL); - end; - {$EXTERNALSYM OCSP_CERTSTATUS} - OCSP_CERTSTATUS = record - _type : TIdC_INT; - value : OCSP_CERTSTATUS_union; - end; - {$EXTERNALSYM POCSP_CERTSTATUS} - POCSP_CERTSTATUS = ^OCSP_CERTSTATUS; - {$EXTERNALSYM PPOCSP_CERTSTATUS} - PPOCSP_CERTSTATUS = ^POCSP_CERTSTATUS; -///* SingleResponse ::= SEQUENCE { -// * certID CertID, -// * certStatus CertStatus, -// * thisUpdate GeneralizedTime, -// * nextUpdate [0] EXPLICIT GeneralizedTime OPTIONAL, -// * singleExtensions [1] EXPLICIT Extensions OPTIONAL } -// */ - {$EXTERNALSYM OCSP_SINGLERESP} - OCSP_SINGLERESP = record - certId : POCSP_CERTID; - certStatus : POCSP_CERTSTATUS; - thisUpdate : PASN1_GENERALIZEDTIME; - nextUpdate : PASN1_GENERALIZEDTIME; - singleExtensions : PSTACK_OF_X509_EXTENSION; - end; - {$EXTERNALSYM POCSP_SINGLERESP} - POCSP_SINGLERESP = ^OCSP_SINGLERESP; - {$EXTERNALSYM PPOCSP_SINGLERESP} - PPOCSP_SINGLERESP = ^POCSP_SINGLERESP; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_OCSP_SINGLERESP} - STACK_OF_OCSP_SINGLERESP = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_OCSP_SINGLERESP} - PSTACK_OF_OCSP_SINGLERESP = ^STACK_OF_OCSP_SINGLERESP; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_OCSP_SINGLERESP} - PSTACK_OF_OCSP_SINGLERESP = PSTACK; - {$ENDIF} -///* ResponseData ::= SEQUENCE { -// * version [0] EXPLICIT Version DEFAULT v1, -// * responderID ResponderID, -// * producedAt GeneralizedTime, -// * responses SEQUENCE OF SingleResponse, -// * responseExtensions [1] EXPLICIT Extensions OPTIONAL } -// */ - {$EXTERNALSYM OCSP_RESPDATA} - OCSP_RESPDATA = record - version : PASN1_INTEGER; - responderId : POCSP_RESPID; - producedAt : PASN1_GENERALIZEDTIME; - responses : PSTACK_OF_OCSP_SINGLERESP; - responseExtensions : PSTACK_OF_X509_EXTENSION; - end; - {$EXTERNALSYM POCSP_RESPDATA} - POCSP_RESPDATA = ^OCSP_RESPDATA; - {$EXTERNALSYM PPOCSP_RESPDATA} - PPOCSP_RESPDATA = ^POCSP_RESPDATA; -///* BasicOCSPResponse ::= SEQUENCE { -// * tbsResponseData ResponseData, -// * signatureAlgorithm AlgorithmIdentifier, -// * signature BIT STRING, -// * certs [0] EXPLICIT SEQUENCE OF Certificate OPTIONAL } -// */ -// /* Note 1: -// The value for "signature" is specified in the OCSP rfc2560 as follows: -// "The value for the signature SHALL be computed on the hash of the DER -// encoding ResponseData." This means that you must hash the DER-encoded -// tbsResponseData, and then run it through a crypto-signing function, which -// will (at least w/RSA) do a hash-'n'-private-encrypt operation. This seems -// a bit odd, but that's the spec. Also note that the data structures do not -// leave anywhere to independently specify the algorithm used for the initial -// hash. So, we look at the signature-specification algorithm, and try to do -// something intelligent. -- Kathy Weinhold, CertCo */ -// /* Note 2: -// It seems that the mentioned passage from RFC 2560 (section 4.2.1) is open -// for interpretation. I've done tests against another responder, and found -// that it doesn't do the double hashing that the RFC seems to say one -// should. Therefore, all relevant functions take a flag saying which -// variant should be used. -- Richard Levitte, OpenSSL team and CeloCom */ - {$EXTERNALSYM OCSP_BASICRESP} - OCSP_BASICRESP = record - tbsResponseData : POCSP_RESPDATA; - signatureAlgorithm : PX509_ALGOR; - signature : PASN1_BIT_STRING; - certs : PSTACK_OF_X509; - end; - {$EXTERNALSYM POCSP_BASICRESP} - POCSP_BASICRESP = ^OCSP_BASICRESP; - {$EXTERNALSYM PPOCSP_BASICRESP} - PPOCSP_BASICRESP = ^POCSP_BASICRESP; -///* CrlID ::= SEQUENCE { -// * crlUrl [0] EXPLICIT IA5String OPTIONAL, -// * crlNum [1] EXPLICIT INTEGER OPTIONAL, -// * crlTime [2] EXPLICIT GeneralizedTime OPTIONAL } -// */ - {$EXTERNALSYM OCSP_CRLID} - OCSP_CRLID = record - crlUrl : PASN1_IA5STRING; - crlNum : PASN1_INTEGER; - crlTime : PASN1_GENERALIZEDTIME; - end; - {$EXTERNALSYM POCSP_CRLID} - POCSP_CRLID = ^OCSP_CRLID; - {$EXTERNALSYM PPOCSP_CRLID} - PPOCSP_CRLID = ^POCSP_CRLID; -///* ServiceLocator ::= SEQUENCE { -// * issuer Name, -// * locator AuthorityInfoAccessSyntax OPTIONAL } -// */ - {$EXTERNALSYM OCSP_SERVICELOC} - OCSP_SERVICELOC = record - issuer : PX509_NAME; - locator : PSTACK_OF_ACCESS_DESCRIPTION; - end; - {$EXTERNALSYM POCSP_SERVICELOC} - POCSP_SERVICELOC = ^OCSP_SERVICELOC; - {$EXTERNALSYM PPOCSP_SERVICELOC} - PPOCSP_SERVICELOC = ^POCSP_SERVICELOC; - //mdc2.h - //MDC2_CTX = record - //this is not defined in headers so it's best use functions in the API to access the structure. - //end; - {$EXTERNALSYM PMDC2_CTX} - PMDC2_CTX = Pointer;//^MDC2_CTX; - //tmdiff.h -// MS_TM = record - //this is not defined in headers so it's best use functions in the API to access the structure. - // end; - {$EXTERNALSYM PMS_TM} - PMS_TM = Pointer;//^MS_TM; - {$EXTERNALSYM PPMS_TM} - PPMS_TM = ^PMS_TM; - //PEVP_PBE_KEYGEN = Pointer; - {$EXTERNALSYM ppem_password_cb} - ppem_password_cb = function (buf : PIdAnsiChar; size : TIdC_INT; rwflag : TIdC_INT; userdata : Pointer) : TIdC_INT; cdecl; - {$EXTERNALSYM PEM_ENCODE_SEAL_CTX} - PEM_ENCODE_SEAL_CTX = record - encode : EVP_ENCODE_CTX; - md : EVP_MD_CTX; - cipher : EVP_CIPHER_CTX; - end; - {$EXTERNALSYM PPEM_ENCODE_SEAL_CTX} - PPEM_ENCODE_SEAL_CTX = ^PEM_ENCODE_SEAL_CTX; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_SSL_COMP} - STACK_OF_SSL_COMP = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_SSL_COMP} - PSTACK_OF_SSL_COMP = ^STACK_OF_SSL_COMP; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_SSL_COMP} - PSTACK_OF_SSL_COMP = PSTACK; - {$ENDIF} - {$EXTERNALSYM PPSTACK_OF_SSL_COMP} - PPSTACK_OF_SSL_COMP = ^PSTACK_OF_SSL_COMP; - {$EXTERNALSYM PSSL_COMP} - PSSL_COMP = ^SSL_COMP; - {$EXTERNALSYM lhash_of_SSL_SESSION} - lhash_of_SSL_SESSION = record - dummy : TIdC_INT; - end; - {$EXTERNALSYM Plhash_of_SSL_SESSION} - Plhash_of_SSL_SESSION = ^lhash_of_SSL_SESSION; - - // PASN1_UTCTIME = Pointer; - -//GREGOR - spremenjana deklaracija ker se tolèe -// Phostent = Pointer; - {$NODEFINE Phostent2} - Phostent2 = Pointer; -//END GREGOR -{ This should cause problems, but I will solve them ONLY if they came ... } -{ !!!InvalidTypes!!! } -//END REMY - //des.h - // des_cblock = Integer; - {$EXTERNALSYM DES_cblock} - DES_cblock = array[0..7] of Byte; - {$EXTERNALSYM PDES_cblock} - PDES_cblock = ^DES_cblock; - {$EXTERNALSYM const_DES_cblock} - const_DES_cblock = DES_cblock; - {$EXTERNALSYM Pconst_DES_cblock} - Pconst_DES_cblock = ^const_DES_cblock; - // des_key_schedule = Integer; - {$EXTERNALSYM DES_LONG} - {$IFDEF DES_INT} - DES_LONG = TIdC_UINT; - {$ELSE} - DES_LONG = TIdC_ULONG; - {$ENDIF} - {$EXTERNALSYM des_cblock_union} - des_cblock_union = record - case integer of - 0: (cblock: des_cblock); - 1: (deslong: array [0..1] of DES_LONG); - end; - {$EXTERNALSYM des_ks_struct} - des_ks_struct = record - ks : des_cblock_union; - //IMPORTANT!!! - //Since OpenSSL 0.9.7-dev, the OpenSSL developers - //dropped this member. See: - //http://marc.info/?l=openssl-dev&m=100342566217528&w=2 - - weak_key: TIdC_INT; - end; - {$EXTERNALSYM des_key_schedule} - des_key_schedule = array[0..15] of des_ks_struct; - {$EXTERNALSYM des_cblocks} - des_cblocks = array[0..7] of byte; - //des_cblocks = Integer; - //des_old.h - {$EXTERNALSYM _ossl_old_des_cblock} - _ossl_old_des_cblock = array [0..7] of byte; - {$EXTERNALSYM P_ossl_old_des_cblock} - P_ossl_old_des_cblock = ^_ossl_old_des_cblock; - {$EXTERNALSYM _ossl_old_des_ks_union} - _ossl_old_des_ks_union = record - case Integer of - 0 : (_ : _ossl_old_des_cblock); - //* make sure things are correct size on machines with - //* 8 byte longs */ - 2 : (pad : array [0..1] of DES_LONG); - end; - {$EXTERNALSYM _ossl_old_des_ks_struct} - _ossl_old_des_ks_struct = record - ks : _ossl_old_des_ks_union; - end; - {$EXTERNALSYM _ossl_old_des_key_schedule} - _ossl_old_des_key_schedule = array [0..15] of _ossl_old_des_ks_struct; - {$EXTERNALSYM P_ossl_old_des_key_schedule} - P_ossl_old_des_key_schedule = ^_ossl_old_des_key_schedule; -{IMPORTANT!!! - -In C, symbols are case sensitive while in Pascal, they are insensitive. -Thus, when we something like this: - -#define des_cblock DES_cblock - -we, should do something like this: - -_des_cblock = DES_cblock -} - {$EXTERNALSYM _des_cblock} - {$EXTERNALSYM _des_key_schedule} - {$IFNDEF OPENSSL_DES_LIBDES_COMPATIBILITY} - _des_cblock = DES_cblock; - {$EXTERNALSYM _const_des_cblock} - _const_des_cblock = const_DES_cblock; - _des_key_schedule = DES_key_schedule; - {$ELSE} -///* libdes compatibility */ -//* Map all symbol names to _ossl_old_des_* form, so we avoid all -// clashes with libdes */ - _des_cblock = _ossl_old_des_cblock; - _des_key_schedule = _ossl_old_des_key_schedule; - {$ENDIF} - {$EXTERNALSYM TIdSslLockingCallback} - TIdSslLockingCallback = procedure (mode, n : TIdC_INT; Afile : PIdAnsiChar; line : TIdC_INT); cdecl; - {$EXTERNALSYM TIdSslIdCallback} - TIdSslIdCallback = function: TIdC_ULONG; cdecl; -///ssl_locl.h structs. These are probably internal records so don't expose -//their members as ssl_lock.h is not included in the headers -//JPM - {$EXTERNALSYM PSSL3_ENC_METHOD} - PSSL3_ENC_METHOD = pointer;//^SSL3_ENC_METHOD; -// SSL3_ENC_METHOD = record -// end; - {$EXTERNALSYM PCERT} - PCERT = pointer; - {$EXTERNALSYM PPCERT} - PPCERT = ^PCERT; - {$EXTERNALSYM PSESS_CERT} - PSESS_CERT = pointer; - //pkcs7.h - {$EXTERNALSYM PPKCS7} - PPKCS7 = ^PKCS7; - {$EXTERNALSYM PPPKCS7} - PPPKCS7 = ^PPKCS7; - {$EXTERNALSYM PKCS7_ISSUER_AND_SERIAL} - PKCS7_ISSUER_AND_SERIAL = record - issuer : PX509_NAME; - serial : PASN1_INTEGER; - end; - {$EXTERNALSYM PPKCS7_ISSUER_AND_SERIAL} - PPKCS7_ISSUER_AND_SERIAL = ^PKCS7_ISSUER_AND_SERIAL; - {$EXTERNALSYM PKCS7_SIGNER_INFO} - PKCS7_SIGNER_INFO = record - version : PASN1_INTEGER; // version 1 - issuer_and_serial : PPKCS7_ISSUER_AND_SERIAL; - digest_alg : PX509_ALGOR; - auth_attr : PSTACK_OF_X509_ATTRIBUTE; // [ 0 ] - digest_enc_alg : PX509_ALGOR; - enc_digest : PASN1_OCTET_STRING; - unauth_attr : PSTACK_OF_X509_ATTRIBUTE; // [ 1 ] - // The private key to sign with - pkey : PEVP_PKEY; - end; - {$EXTERNALSYM PPKCS7_SIGNER_INFO} - PPKCS7_SIGNER_INFO = ^PKCS7_SIGNER_INFO; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_PKCS7_SIGNER_INFO} - STACK_OF_PKCS7_SIGNER_INFO = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_PKCS7_SIGNER_INFO} - PSTACK_OF_PKCS7_SIGNER_INFO = ^STACK_OF_PKCS7_SIGNER_INFO; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_PKCS7_SIGNER_INFO} - PSTACK_OF_PKCS7_SIGNER_INFO = PSTACK; - {$ENDIF} - {$EXTERNALSYM PKCS7_RECIP_INFO} - PKCS7_RECIP_INFO = record - version : PASN1_INTEGER; // version 0 - issuer_and_serial : PPKCS7_ISSUER_AND_SERIAL; - key_enc_algor : PX509_ALGOR; - enc_key : PASN1_OCTET_STRING; - cert : PX509; // get the pub-key from this - end; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_PKCS7_RECIP_INFO} - STACK_OF_PKCS7_RECIP_INFO = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_PKCS7_RECIP_INFO} - PSTACK_OF_PKCS7_RECIP_INFO = ^STACK_OF_PKCS7_RECIP_INFO; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_PKCS7_RECIP_INFO} - PSTACK_OF_PKCS7_RECIP_INFO = PSTACK; - {$ENDIF} - {$EXTERNALSYM PPSTACK_OF_PKCS7_RECIP_INFO} - PPSTACK_OF_PKCS7_RECIP_INFO = ^PSTACK_OF_PKCS7_RECIP_INFO; - {$EXTERNALSYM PKCS7_SIGNED} - PKCS7_SIGNED = record - version : PASN1_INTEGER; // version 1 - md_algs : PSTACK_OF_X509_ALGOR; // md used - cert : PSTACK_OF_X509; // [ 0 ] - crl : PSTACK_OF_X509_CRL; // [ 1 ] - signer_info : PSTACK_OF_PKCS7_SIGNER_INFO; - contents : PPKCS7; - end; - {$EXTERNALSYM PPKCS7_SIGNED} - PPKCS7_SIGNED = ^PKCS7_SIGNED; - {$EXTERNALSYM PPPKCS7_SIGNED} - PPPKCS7_SIGNED = ^PPKCS7_SIGNED; - {$EXTERNALSYM PKCS7_ENC_CONTENT} - PKCS7_ENC_CONTENT = record - content_type : PASN1_OBJECT; - algorithm : PX509_ALGOR; - enc_data : PASN1_OCTET_STRING; // [ 0 ] - cipher : PEVP_CIPHER; - end; - {$EXTERNALSYM PPKCS7_ENC_CONTENT} - PPKCS7_ENC_CONTENT = ^PKCS7_ENC_CONTENT; - {$EXTERNALSYM PKCS7_ENVELOPE} - PKCS7_ENVELOPE = record - version : PASN1_INTEGER; // version 0 - recipientinfo : PSTACK_OF_PKCS7_RECIP_INFO; - enc_data : PPKCS7_ENC_CONTENT; - end; - {$EXTERNALSYM PPKCS7_ENVELOPE} - PPKCS7_ENVELOPE = ^PKCS7_ENVELOPE; - // OpenSSL developer notes - // The above structure is very very similar to PKCS7_SIGN_ENVELOPE. - // How about merging the two - {$EXTERNALSYM PKCS7_SIGN_ENVELOPE} - PKCS7_SIGN_ENVELOPE = record - version : PASN1_INTEGER; // version 1 - md_algs : PSTACK_OF_X509_ALGOR; // md used - cert : PSTACK_OF_X509; // [ 0 ] - crl : PSTACK_OF_X509_CRL; // [ 1 ] - signer_info : PSTACK_OF_PKCS7_SIGNER_INFO; - enc_data : PPKCS7_ENC_CONTENT; - recipientinfo : PSTACK_OF_PKCS7_RECIP_INFO; - end; - {$EXTERNALSYM PPKCS7_SIGN_ENVELOPE} - PPKCS7_SIGN_ENVELOPE = ^PKCS7_SIGN_ENVELOPE; - {$EXTERNALSYM PKCS7_DIGEST} - PKCS7_DIGEST = record - version : PASN1_INTEGER; // version 0 - md : PX509_ALGOR; // md used - contents : PPKCS7; - digest : PASN1_OCTET_STRING; - end; - {$EXTERNALSYM PPKCS7_DIGEST} - PPKCS7_DIGEST = ^PKCS7_DIGEST; - {$EXTERNALSYM PKCS7_ENCRYPT} - PKCS7_ENCRYPT = record - version : PASN1_INTEGER; // version 0 - enc_data : PPKCS7_ENC_CONTENT; - end; - {$EXTERNALSYM PPKCS7_ENCRYPT} - PPKCS7_ENCRYPT = ^PKCS7_ENCRYPT; - {$EXTERNALSYM PKCS7_union} - PKCS7_union = record - // content as defined by the type - // all encryption/message digests are applied to the 'contents', - // leaving out the 'type' field. - case Integer of - 0 : (ptr : PIdAnsiChar); - // NID_pkcs7_data - 1 : (data : PASN1_OCTET_STRING); - // NID_pkcs7_signed - 2 : (sign : PPKCS7_SIGNED); - // NID_pkcs7_enveloped - 3 : (enveloped : PPKCS7_ENVELOPE); - // NID_pkcs7_signedAndEnveloped - 4 : (signed_and_enveloped : PPKCS7_SIGN_ENVELOPE); - // NID_pkcs7_digest - 5 : (digest : PPKCS7_DIGEST); - // NID_pkcs7_encrypted - 6 : (encrypted : PPKCS7_ENCRYPT); - end; - {$EXTERNALSYM PKCS7} - PKCS7 = record - // The following is non NULL if it contains ASN1 encoding of - // this structure - asn1 : PIdAnsiChar; - length : TIdC_LONG; -//#define PKCS7_S_HEADER 0 -//#define PKCS7_S_BODY 1 -//#define PKCS7_S_TAIL 2 - state : TIdC_INT; // used during processing - detached : TIdC_INT; - _type : PASN1_OBJECT; - // content as defined by the type - // all encryption/message digests are applied to the 'contents', - // leaving out the 'type' field. - d : PKCS7_union; - end; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_PKCS7} - STACK_OF_PKCS7 = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_PKCS7} - PSTACK_OF_PKCS7 = ^STACK_OF_PKCS7; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_PKCS7} - PSTACK_OF_PKCS7 = PSTACK; - {$ENDIF} - //pkcs12.h - {$EXTERNALSYM PKCS12_MAC_DATA} - PKCS12_MAC_DATA = record - dinfo : PX509_SIG; - salt : PASN1_OCTET_STRING; - iter : PASN1_INTEGER; // defaults to 1 - end; - {$EXTERNALSYM PPKCS12_MAC_DATA} - PPKCS12_MAC_DATA = ^PKCS12_MAC_DATA; - // PSESS_CERT = ^SESS_CERT; - {$EXTERNALSYM PPKCS12} - PPKCS12 = ^PKCS12; - {$EXTERNALSYM PPPKCS12} - PPPKCS12 = ^PPKCS12; - {$EXTERNALSYM PKCS12} - PKCS12 = record - version : PASN1_INTEGER; - mac : PPKCS12_MAC_DATA; - authsafes : PPKCS7; - end; - //ts.h - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_EVP_MD} - STACK_OF_EVP_MD = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_EVP_MD} - PSTACK_OF_EVP_MD = ^STACK_OF_EVP_MD; - {$EXTERNALSYM STACK_OF_ASN1_UTF8STRING} - STACK_OF_ASN1_UTF8STRING = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_ASN1_UTF8STRING} - PSTACK_OF_ASN1_UTF8STRING = ^STACK_OF_ASN1_UTF8STRING; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_EVP_MD} - PSTACK_OF_EVP_MD = PSTACK; - {$EXTERNALSYM PSTACK_OF_ASN1_UTF8STRING} - PSTACK_OF_ASN1_UTF8STRING = PSTACK; - {$ENDIF} - {$EXTERNALSYM TS_MSG_IMPRINT} - TS_MSG_IMPRINT = record - hash_algo : PX509_ALGOR; - hashed_msg : PASN1_OCTET_STRING; - end; - {$EXTERNALSYM PTS_MSG_IMPRINT} - PTS_MSG_IMPRINT = ^TS_MSG_IMPRINT; - {$EXTERNALSYM TS_REQ} - TS_REQ = record - version : PASN1_INTEGER; - msg_imprint : PTS_MSG_IMPRINT; - policy_id : PASN1_OBJECT; //* OPTIONAL */ - nonce : PASN1_INTEGER; //* OPTIONAL */ - cert_req : ASN1_BOOLEAN; //* DEFAULT FALSE */ - extensions : PSTACK_OF_X509_EXTENSION; //* [0] OPTIONAL */ - end; - {$EXTERNALSYM PTS_REQ} - PTS_REQ = ^TS_REQ; - {$EXTERNALSYM TS_ACCURACY} - TS_ACCURACY = record - seconds : PASN1_INTEGER; - millis : PASN1_INTEGER; - micros : PASN1_INTEGER; - end; - {$EXTERNALSYM PTS_ACCURACY} - PTS_ACCURACY = ^TS_ACCURACY; - {$EXTERNALSYM TS_TST_INFO} - TS_TST_INFO = record - version : PASN1_INTEGER; - policy_id : PASN1_OBJECT; - msg_imprint : PTS_MSG_IMPRINT; - serial : PASN1_INTEGER; - time : PASN1_GENERALIZEDTIME; - accuracy : PTS_ACCURACY; - ordering : PASN1_BOOLEAN; - nonce : PASN1_INTEGER; - tsa : PGENERAL_NAME; - extensions : PSTACK_OF_X509_EXTENSION; - end; - {$EXTERNALSYM PTS_TST_INFO} - PTS_TST_INFO = ^TS_TST_INFO; - {$EXTERNALSYM TS_STATUS_INFO} - TS_STATUS_INFO = record - status : PASN1_INTEGER; - text : PSTACK_OF_ASN1_UTF8STRING; - failure_info : PASN1_BIT_STRING; - end; - {$EXTERNALSYM PTS_STATUS_INFO} - PTS_STATUS_INFO = ^TS_STATUS_INFO; - {$EXTERNALSYM TS_RESP} - TS_RESP = record - status_info : PTS_STATUS_INFO; - token : PPKCS7; - tst_info : PTS_TST_INFO; - end; - {$EXTERNALSYM PTS_RESP} - PTS_RESP = ^TS_RESP; - {$EXTERNALSYM ESS_ISSUER_SERIAL} - ESS_ISSUER_SERIAL = record - issuer : PSTACK_OF_GENERAL_NAME; - serial : PASN1_INTEGER; - end; - {$EXTERNALSYM PESS_ISSUER_SERIAL} - PESS_ISSUER_SERIAL = ^ESS_ISSUER_SERIAL; - {$EXTERNALSYM ESS_CERT_ID} - ESS_CERT_ID = record - hash : PASN1_OCTET_STRING; //* Always SHA-1 digest. */ - issuer_serial : PESS_ISSUER_SERIAL; - end; - {$EXTERNALSYM PESS_CERT_ID} - PESS_CERT_ID = ^ESS_CERT_ID; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_ESS_CERT_ID} - STACK_OF_ESS_CERT_ID = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_ESS_CERT_ID} - PSTACK_OF_ESS_CERT_ID = ^STACK_OF_ESS_CERT_ID; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_ESS_CERT_ID} - PSTACK_OF_ESS_CERT_ID = PSTACK; - {$ENDIF} - {$EXTERNALSYM ESS_SIGNING_CERT} - ESS_SIGNING_CERT = record - cert_ids : PSTACK_OF_ESS_CERT_ID; - policy_info : PSTACK_OF_POLICYINFO; - end; - {$EXTERNALSYM PESS_SIGNING_CERT} - PESS_SIGNING_CERT = ^ESS_SIGNING_CERT; - {$EXTERNALSYM PTS_resp_ctx} - PTS_resp_ctx = ^TS_resp_ctx; -//* This must return a unique number less than 160 bits long. */ -//typedef ASN1_INTEGER *(*TS_serial_cb)(struct TS_resp_ctx *, void *); - {$EXTERNALSYM TS_serial_cb} - TS_serial_cb = function (p1 : PTS_resp_ctx; p2 : Pointer) : PASN1_INTEGER cdecl; - //* This must return the seconds and microseconds since Jan 1, 1970 in - // the sec and usec variables allocated by the caller. - // Return non-zero for success and zero for failure. */ -//typedef int (*TS_time_cb)(struct TS_resp_ctx *, void *, long *sec, long *usec); - {$EXTERNALSYM TS_time_cb} - TS_time_cb = function (p1 : PTS_resp_ctx; p2 : Pointer; sec, usec : TIdC_LONG) : TIdC_INT cdecl; -///* This must process the given extension. -// * It can modify the TS_TST_INFO object of the context. -// * Return values: !0 (processed), 0 (error, it must set the -// * status info/failure info of the response). -// */ -//typedef int (*TS_extension_cb)(struct TS_resp_ctx *, X509_EXTENSION *, void *); - {$EXTERNALSYM TS_extension_cb} - TS_extension_cb = function (p1 : PTS_resp_ctx; p2 : PX509_EXTENSION; p3 : Pointer) : TIdC_INT cdecl; - {$EXTERNALSYM TS_RESP_CTX} - TS_RESP_CTX = record - signer_cert : PX509; - signer_key : PEVP_PKEY; - certs : PSTACK_OF_X509; //* Certs to include in signed data. */ - policies : PSTACK_OF_ASN1_OBJECT; //* Acceptable policies. */ - default_policy : PASN1_OBJECT; //* It may appear in policies, too. */ - mds : PSTACK_OF_EVP_MD; //* Acceptable message digests. */ - seconds : PASN1_INTEGER; //* accuracy, 0 means not specified. */ - millis : PASN1_INTEGER; //* accuracy, 0 means not specified. */ - micros : PASN1_INTEGER; //* accuracy, 0 means not specified. */ - clock_precision_digits : TIdC_UNSIGNED; //* fraction of seconds in - //time stamp token. */ - flags : TIdC_UNSIGNED; //* Optional info, see values above. */ - - //* Callback functions. */ - serial_cb : TS_serial_cb; - serial_cb_data : Pointer; //* User data for serial_cb. */ - - time_cb : TS_time_cb; - time_cb_data : Pointer; //* User data for time_cb. */ - - extension_cb : TS_extension_cb; - extension_cb_data : Pointer; //* User data for extension_cb. */ - - //* These members are used only while creating the response. */ - request : PTS_REQ; - response : PTS_RESP; - tst_info : PTS_TST_INFO; - end; - {$EXTERNALSYM TS_VERIFY_CTX} - TS_VERIFY_CTX = record - //* Set this to the union of TS_VFY_... flags you want to carry out. */ - flags : TIdC_UNSIGNED; - - //* Must be set only with TS_VFY_SIGNATURE. certs is optional. */ - store : PX509_STORE; - certs : PSTACK_OF_X509; - - //* Must be set only with TS_VFY_POLICY. */ - policy : PASN1_OBJECT; - -// /* Must be set only with TS_VFY_IMPRINT. If md_alg is NULL, -// the algorithm from the response is used. */ - md_alg : PX509_ALGOR; - imprint : PIdAnsiChar; - imprint_len : TIdC_UNSIGNED; - - //* Must be set only with TS_VFY_DATA. */ - data : PBIO; - - //* Must be set only with TS_VFY_TSA_NAME. */ - nonce : PASN1_INTEGER; - - //* Must be set only with TS_VFY_TSA_NAME. */ - tsa_name : PGENERAL_NAME; - end; - {$EXTERNALSYM PTS_VERIFY_CTX} - PTS_VERIFY_CTX = ^TS_VERIFY_CTX; - //comp.h - {$EXTERNALSYM PCOMP_CTX} - PCOMP_CTX = ^COMP_CTX; - {$EXTERNALSYM COMP_METHOD} - COMP_METHOD = record - _type : TIdC_INT; // NID for compression library - name : PIdAnsiChar; // A text string to identify the library - init : function (ctx : PCOMP_CTX) : TIdC_INT; cdecl; - finish : procedure (ctx : PCOMP_CTX); cdecl; - compress : function (ctx : PCOMP_CTX; - _out : PIdAnsiChar; olen : TIdC_UINT; - _in : PIdAnsiChar; ilen : TIdC_UINT) : TIdC_INT; cdecl; - expand : function (ctx : PCOMP_CTX; - _out : PIdAnsiChar; olen : TIdC_UINT; - _in : PIdAnsiChar; ilen : TIdC_UINT) : TIdC_INT; cdecl; - // The following two do NOTHING, but are kept for backward compatibility - ctrl : function : TIdC_INT; cdecl; - callback_ctrl : function : TIdC_INT; cdecl; - end; - {$EXTERNALSYM PCOMP_METHOD} - PCOMP_METHOD = ^COMP_METHOD; - {$EXTERNALSYM COMP_CTX} - COMP_CTX = record - meth : PCOMP_METHOD; - compress_in : TIdC_ULONG; - compress_out : TIdC_ULONG; - expand_in : TIdC_ULONG; - expand_out : TIdC_ULONG; - ex_data : PCRYPTO_EX_DATA; - end; - //srp.h - {$EXTERNALSYM SRP_gN_cache} - SRP_gN_cache = record - b64_bn : PIdAnsiChar; - bn : PBIGNUM; - end; - {$EXTERNALSYM PSRP_gN_cache} - PSRP_gN_cache = ^SRP_gN_cache; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_SRP_gN_cache} - STACK_OF_SRP_gN_cache = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_SRP_gN_cache} - PSTACK_OF_SRP_gN_cache = ^STACK_OF_SRP_gN_cache; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_SRP_gN_cache} - PSTACK_OF_SRP_gN_cache = PSTACK; - {$ENDIF} - {$EXTERNALSYM SRP_user_pwd} - SRP_user_pwd = record - id : PIdAnsiChar; - s : PBIGNUM; - v : PBIGNUM; - g : PBIGNUM; - N : PBIGNUM; - info : PIdAnsiChar; - end; - {$EXTERNALSYM PSRP_user_pwd} - PSRP_user_pwd = ^SRP_user_pwd; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_SRP_user_pwd} - STACK_OF_SRP_user_pwd = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_SRP_user_pwd} - PSTACK_OF_SRP_user_pwd = ^STACK_OF_SRP_user_pwd; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_SRP_user_pwd} - PSTACK_OF_SRP_user_pwd = PSTACK; - {$ENDIF} - {$EXTERNALSYM SRP_VBASE} - SRP_VBASE = record - users_pwd : PSTACK_OF_SRP_user_pwd; - gN_cache : PSTACK_OF_SRP_gN_cache; -//* to simulate a user */ - seed_key : PIdAnsiChar; - default_g : PBIGNUM; - default_N : PBIGNUM; - end; - {$EXTERNALSYM PSRP_VBASE} - PSRP_VBASE = ^SRP_VBASE; - -//*Structure interne pour retenir les couples N et g*/ - {$EXTERNALSYM SRP_gN} - SRP_gN = record - id : PIdAnsiChar; - g : PBIGNUM; - N : PBIGNUM; - end; - {$EXTERNALSYM PSRP_gN} - PSRP_gN = ^SRP_gN; - - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_SRP_gN} - STACK_OF_SRP_gN = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_SRP_gN} - PSTACK_OF_SRP_gN = ^STACK_OF_SRP_gN; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_SRP_gN} - PSTACK_OF_SRP_gN = PSTACK; - {$ENDIF} - //kssl.h - {These are structures for Kerberos support. These will not be complete because - FreePascal, Borland Delphi, and Indy don't support Kerberos. These are here - as place holders so we get an exact OpenSSL API if Kerberos support was compiled - in. - } - {$IFNDEF OPENSSL_NO_KRB5} - {$EXTERNALSYM KSSL_ERR} - KSSL_ERR = record - reason : TIdC_INT; - text : array [0..KSSL_ERR_MAX] of Char; - end; - {$EXTERNALSYM PKSSL_CTX} - {I am not going to do anything to define this because it uses things in the - Kerberos API. Since there's no support for Kerberos, I'm leaving it empty. - We only need the pointer anyway} - - PKSSL_CTX = Pointer; //^KSSL_CTX; - {$ENDIF} - //ssl.h - {$ifndef OPENSSL_NO_SSL_INTERN} - {$EXTERNALSYM PSSL_CIPHER} - PSSL_CIPHER = ^SSL_CIPHER; - {$EXTERNALSYM SSL_CIPHER} - SSL_CIPHER = record - valid : TIdC_INT; - name: PIdAnsiChar; // text name - id: TIdC_ULONG; // id, 4 bytes, first is version - - //* changed in 0.9.9: these four used to be portions of a single value 'algorithms' */ - algorithm_mkey : TIdC_ULONG; //* key exchange algorithm */ - algorithm_auth : TIdC_ULONG; //* server authentication */ - algorithm_enc : TIdC_ULONG; //* symmetric encryption */ - algorithm_mac : TIdC_ULONG; //* symmetric authentication */ - algorithm_ssl : TIdC_ULONG; //* (major) protocol version */ - algo_strength: TIdC_ULONG; // strength and export flags - algorithm2: TIdC_ULONG;// Extra flags - strength_bits: TIdC_INT; // Number of bits really used - alg_bits: TIdC_INT; // Number of bits for algorithm - end; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_SSL_CIPHER} - STACK_OF_SSL_CIPHER = record - _stack: STACK; - end; - {$EXTERNALSYM PSTACK_OF_SSL_CIPHER} - PSTACK_OF_SSL_CIPHER = ^STACK_OF_SSL_CIPHER; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_SSL_CIPHER} - PSTACK_OF_SSL_CIPHER = PSTACK; - {$ENDIF} - - {$EXTERNALSYM PSSL_SESSION} - PSSL_SESSION = ^SSL_SESSION; - {$EXTERNALSYM SSL_SESSION} - SSL_SESSION = record - ssl_version : TIdC_INT; // what ssl version session info is being kept in here? - // only really used in SSLv2 - key_arg_length: TIdC_UINT; - key_arg: Array[0..SSL_MAX_KEY_ARG_LENGTH-1] of Byte; - master_key_length: TIdC_INT; - master_key: Array[0..SSL_MAX_MASTER_KEY_LENGTH-1] of Byte; - // session_id - valid? - session_id_length: TIdC_UINT; - session_id: Array[0..SSL_MAX_SSL_SESSION_ID_LENGTH-1] of Byte; - // this is used to determine whether the session is being reused in - // the appropriate context. It is up to the application to set this, - // via SSL_new - sid_ctx_length: TIdC_UINT; - sid_ctx: array[0..SSL_MAX_SID_CTX_LENGTH-1] of Byte; - {$IFNDEF OPENSSL_NO_KRB5} - krb5_client_princ_len: TIdC_UINT; - krb5_client_princ: array[0..SSL_MAX_KRB5_PRINCIPAL_LENGTH-1] of Byte; - {$ENDIF} -{$ifndef OPENSSL_NO_PSK} - psk_identity_hint : PIdAnsiChar; - psk_identity : PIdAnsiChar; -{$endif} - not_resumable: TIdC_INT; - // The cert is the certificate used to establish this connection - sess_cert : PSESS_CERT; - - //* This is the cert for the other end. - // * On clients, it will be the same as sess_cert->peer_key->x509 - // * (the latter is not enough as sess_cert is not retained - // * in the external representation of sessions, see ssl_asn1.c). */ - peer : PX509; - //* when app_verify_callback accepts a session where the peer's certificate - // * is not ok, we must remember the error for session reuse: */ - verify_result : TIdC_LONG; //* only for servers */ - references : TIdC_INT; - timeout : TIdC_LONG; - time : TIdC_LONG; - compress_meth : TIdC_UINT; //* Need to lookup the method */ - - cipher : PSSL_CIPHER; - cipher_id : TIdC_ULONG; //* when ASN.1 loaded, this - // * needs to be used to load - // * the 'cipher' structure */ - ciphers : PSTACK_OF_SSL_CIPHER; //* shared ciphers? */ - ex_data : CRYPTO_EX_DATA; // application specific data */ - //* These are used to make removal of session-ids more - // * efficient and to implement a maximum cache size. */ - prev, next : PSSL_SESSION; - - {$IFNDEF OPENSSL_NO_TLSEXT} - tlsext_hostname : PIdAnsiChar; - {$IFDEF OPENSSL_NO_EC} - tlsext_ecpointformatlist_length : size_t; - tlsext_ecpointformatlist : PIdAnsiChar; //* peer's list */ - tlsext_ellipticcurvelist_length : size_t; - tlsext_ellipticcurvelist : PIdAnsiChar; //* peer's list */ - {$ENDIF} //* OPENSSL_NO_EC */ - - //* RFC4507 info */ - tlsext_tick : PIdAnsiChar;//* Session ticket */ - tlsext_ticklen : size_t;//* Session ticket length */ - tlsext_tick_lifetime_hint : TIdC_LONG;//* Session lifetime hint in seconds */ - {$ENDIF} -{$ifndef OPENSSL_NO_SRP} - srp_username : PIdAnsiChar; -{$endif} - end; - {$ENDIF} - -{$ifndef OPENSSL_NO_SRP} - -{$ifndef OPENSSL_NO_SSL_INTERN} - - {$EXTERNALSYM SRP_CTX} - SRP_CTX = record - //* param for all the callbacks */ - SRP_cb_arg : Pointer; - //* set client Hello login callback */ - TLS_ext_srp_username_callback : function(para1 : PSSL; para2 : TIdC_INT; para3 : Pointer) : TIdC_INT cdecl; - //int (*TLS_ext_srp_username_callback)(SSL *, int *, void *); - //* set SRP N/g param callback for verification */ - SRP_verify_param_callback : function(para1 : PSSL; para2 : Pointer) : TIdC_INT cdecl; -// int (*SRP_verify_param_callback)(SSL *, void *); - //* set SRP client passwd callback */ - SRP_give_srp_client_pwd_callback : function(para1 : PSSL; para2 : Pointer) : PIdAnsiChar cdecl; - // char *(*SRP_give_srp_client_pwd_callback)(SSL *, void *); - login : PIdAnsiChar; - N, g, s, B, A : PBIGNUM; - _a, _b, v : PBIGNUM; - info : PIdAnsiChar; - strength : TIdC_INT; - srp_Mask : TIdC_ULONG; - end; - {$EXTERNALSYM PSRP_CTX} - PSRP_CTX = ^SRP_CTX; -{$endif} -{$ENDIF} - // typedef struct ssl_method_st - {$NODEFINE PSSL_CTX} - PSSL_CTX = ^SSL_CTX; - {$EXTERNALSYM SRTP_PROTECTION_PROFILE} - SRTP_PROTECTION_PROFILE = record - name : PIdAnsiChar; - id : TIdC_ULONG; - end; - {$EXTERNALSYM PTLS_SESSION_TICKET_EXT} - PTLS_SESSION_TICKET_EXT = ^TLS_SESSION_TICKET_EXT; - {$EXTERNALSYM TLS_SESSION_TICKET_EXT} - TLS_SESSION_TICKET_EXT = record - length : TIdC_USHORT; - data : Pointer; - end; - {$EXTERNALSYM PSRTP_PROTECTION_PROFILE} - PSRTP_PROTECTION_PROFILE = ^SRTP_PROTECTION_PROFILE; - {$EXTERNALSYM tls_session_ticket_ext_cb_fn} - tls_session_ticket_ext_cb_fn = function(S : PSSL; data : PIdAnsiChar; len : TIdC_INT; arg : Pointer) : TIdC_INT cdecl; - {$EXTERNALSYM tls_session_secret_cb_fn} - tls_session_secret_cb_fn = function(S : PSSL; - secret : Pointer; - var secret_len : TIdC_INT; - peer_ciphers : PSTACK_OF_SSL_CIPHER; - out cipher : PSSL_CIPHER) : TIdC_INT cdecl; - {$EXTERNALSYM SSL_METHOD_PROC} - SSL_METHOD_PROC = procedure; cdecl; - {$NODEFINE PSSL_METHOD} - PSSL_METHOD = ^SSL_METHOD; - {$NODEFINE SSL_METHOD} - SSL_METHOD = record - version: TIdC_INT; - ssl_new: function(s: PSSL): TIdC_INT; cdecl; - ssl_clear: procedure(s: PSSL); cdecl; - ssl_free: procedure(s: PSSL); cdecl; - ssl_accept: function(s: PSSL): TIdC_INT; cdecl; - ssl_connect: function(s: PSSL): TIdC_INT; cdecl; - ssl_read: function(s: PSSL; buf: Pointer; len: TIdC_INT):TIdC_INT; cdecl; - ssl_peek: function(s: PSSL; buf: Pointer; len: TIdC_INT):TIdC_INT; cdecl; - ssl_write: function(s: PSSL; const buf: Pointer; len:TIdC_INT): TIdC_INT; cdecl; - ssl_shutdown: function(s: PSSL): TIdC_INT; cdecl; - ssl_renegotiate: function(s: PSSL): TIdC_INT; cdecl; - ssl_renegotiate_check: function(s: PSSL): TIdC_INT; cdecl; - ssl_get_message: function(s: PSSL; st1, stn, mt: TIdC_INT; max: TIdC_LONG; ok: PIdC_INT): TIdC_LONG; cdecl; - ssl_read_bytes: function(s: PSSL; _type: TIdC_INT; buf:PByte; len, peek: TIdC_INT): TIdC_INT; cdecl; - ssl_write_bytes: function(s: PSSL; _type: TIdC_INT; const buf: Pointer; len: TIdC_INT): TIdC_INT; cdecl; - ssl_dispatch_alert: function(s: PSSL): TIdC_INT; cdecl; - ssl_ctrl: function(s: PSSL; cmd: TIdC_INT; larg: TIdC_LONG; parg: Pointer): TIdC_LONG; cdecl; - ssl_ctx_ctrl: function(ctx: PSSL_CTX; cmd: TIdC_INT; larg:TIdC_LONG; parg: Pointer): TIdC_LONG; cdecl; - get_cipher_by_char: function(const ptr: PByte):PSSL_CIPHER; cdecl; - put_cipher_by_char: function(const cipher: PSSL_CIPHER;ptr: PByte): TIdC_INT; cdecl; - ssl_pending: function(const s: PSSL): TIdC_INT; cdecl; - num_ciphers: function: TIdC_INT; cdecl; - get_cipher: function(ncipher: TIdC_UNSIGNED): PSSL_CIPHER;cdecl; - get_ssl_method: function(version: TIdC_INT): PSSL_METHOD; cdecl; - get_timeout: function : TIdC_LONG; cdecl; - ssl3_enc: PSSL3_ENC_METHOD; - ssl_version: function : TIdC_INT; cdecl; - ssl_callback_ctrl: function(s: PSSL; cb_id: TIdC_INT; fp: SSL_METHOD_PROC): TIdC_LONG; cdecl; - ssl_ctx_callback_ctrl: function(s: PSSL_CTX; cb_id:TIdC_INT; fp: SSL_METHOD_PROC): TIdC_LONG; cdecl; - end; - {$EXTERNALSYM PPSSL_METHOD} - PPSSL_METHOD =^PSSL_METHOD; -// This callback type is used inside SSL_CTX, SSL, and in the functions that set -// them. It is used to override the generation of SSL/TLS session IDs in a -// server. Return value should be zero on an error, non-zero to proceed. Also, -// callbacks should themselves check if the id they generate is unique otherwise -// the SSL handshake will fail with an error - callbacks can do this using the -// 'ssl' value they're passed by; -// SSL_has_matching_session_id(ssl, id, *id_len) -// The length value passed in is set at the maximum size the session ID can be. -// In SSLv2 this is 16 bytes, whereas SSLv3/TLSv1 it is 32 bytes. The callback -// can alter this length to be less if desired, but under SSLv2 session IDs are -// supposed to be fixed at 16 bytes so the id will be padded after the callback -// returns in this case. It is also an error for the callback to set the size to -// zero. - {$EXTERNALSYM PGEN_SESSION_CB} - PGEN_SESSION_CB = function (const SSL : PSSL; id : PByte; id_len : TIdC_UINT) : TIdC_INT; cdecl; - {$EXTERNALSYM SSL_COMP} - SSL_COMP = record - id : TIdC_INT; - name : PIdAnsiChar; - {$IFNDEF OPENSSL_NO_COMP} - method : PCOMP_METHOD; - {$ELSE} - method : PIdAnsiChar; - {$ENDIF} - end; - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_COMP} - STACK_OF_COMP = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_COMP} - PSTACK_OF_COMP = ^STACK_OF_COMP; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_COMP} - PSTACK_OF_COMP = PSTACK; - {$ENDIF} - - {$EXTERNALSYM PSSL_CTEX_tlsext_servername_callback} - PSSL_CTEX_tlsext_servername_callback = function(ssl : PSSL; Para1 : TIdC_INT; Para2 : Pointer) : TIdC_INT; cdecl; - {$EXTERNALSYM PSSL_CTX_info_callback} - PSSL_CTX_info_callback = procedure (const ssl : PSSL; _type, val : TIdC_INT); cdecl; // used if SSL's info_callback is NULL -//int (*tlsext_ticket_key_cb)(SSL *ssl, -// unsigned char *name, unsigned char *iv, -// EVP_CIPHER_CTX *ectx, -// HMAC_CTX *hctx, int enc); - {$EXTERNALSYM Ptlsext_ticket_key_cb} - Ptlsext_ticket_key_cb = function (ssl : PSSL; name, iv : PIdAnsiChar; - ectx : PEVP_CIPHER_CTX; - hctx : PHMAC_CTX; enc : TIdC_INT) : TIdC_INT; cdecl; -// int (*tlsext_status_cb)(SSL *ssl, void *arg); - {$EXTERNALSYM Ptlsext_status_cb} - Ptlsext_status_cb = function (ssl : PSSL; arg : Pointer) : TIdC_INT; cdecl; - {$EXTERNALSYM SSL_CTX_stats} - SSL_CTX_stats = record - sess_connect: TIdC_INT; // SSL new conn - started - sess_connect_renegotiate: TIdC_INT; // SSL reneg - requested - sess_connect_good: TIdC_INT; // SSL new conne/reneg - finished - sess_accept: TIdC_INT; // SSL new accept - started - sess_accept_renegotiate: TIdC_INT; // SSL reneg - requested - sess_accept_good: TIdC_INT; // SSL accept/reneg - finished - sess_miss: TIdC_INT; // session lookup misses - sess_timeout: TIdC_INT; // reuse attempt on timeouted session - sess_cache_full: TIdC_INT; // session removed due to full cache - sess_hit: TIdC_INT; // session reuse actually done - sess_cb_hit: TIdC_INT; // session-id that was not - // in the cache was - // passed back via the callback. This - // indicates that the application is - // supplying session-id's from other - // processes - spooky :-) - end; - {$EXTERNALSYM lash_of_SSL_SESSION} - lash_of_SSL_SESSION = record - dummy : TIdC_INT; - end; - {$EXTERNALSYM Plash_of_SSL_SESSION} - Plash_of_SSL_SESSION = ^lash_of_SSL_SESSION; -{$ifndef OPENSSL_NO_BUF_FREELISTS} - {$EXTERNALSYM Pssl3_buf_freelist_st} - Pssl3_buf_freelist_st = Pointer; -{$endif} - - {$IFDEF DEBUG_SAFESTACK} - {$EXTERNALSYM STACK_OF_SRTP_PROTECTION_PROFILE} - STACK_OF_SRTP_PROTECTION_PROFILE = record - _stack: stack; - end; - {$EXTERNALSYM PSTACK_OF_SRTP_PROTECTION_PROFILE} - PSTACK_OF_SRTP_PROTECTION_PROFILE = ^STACK_OF_SRTP_PROTECTION_PROFILE; - {$ELSE} - //I think the DECLARE_STACK_OF macro is empty - {$EXTERNALSYM PSTACK_OF_SRTP_PROTECTION_PROFILE} - PSTACK_OF_SRTP_PROTECTION_PROFILE = PSTACK; - {$ENDIF} - {$NODEFINE SSL_CTX} - SSL_CTX = record - method: PSSL_METHOD; - cipher_list: PSTACK_OF_SSL_CIPHER; - // same as above but sorted for lookup - cipher_list_by_id: PSTACK_OF_SSL_CIPHER; - cert_store: PX509_STORE; - sessions: Plash_of_SSL_SESSION; - // a set of SSL_SESSIONs - // Most session-ids that will be cached, default is - // SSL_SESSION_CACHE_MAX_SIZE_DEFAULT. 0 is unlimited. - session_cache_size: TIdC_ULONG; - session_cache_head: PSSL_SESSION; - session_cache_tail: PSSL_SESSION; - // This can have one of 2 values, ored together, - // SSL_SESS_CACHE_CLIENT, - // SSL_SESS_CACHE_SERVER, - // Default is SSL_SESSION_CACHE_SERVER, which means only - // SSL_accept which cache SSL_SESSIONS. - session_cache_mode: TIdC_INT; - session_timeout: TIdC_LONG; - // If this callback is not null, it will be called each - // time a session id is added to the cache. If this function - // returns 1, it means that the callback will do a - // SSL_SESSION_free() when it has finished using it. Otherwise, - // on 0, it means the callback has finished with it. - // If remove_session_cb is not null, it will be called when - // a session-id is removed from the cache. After the call, - // OpenSSL will SSL_SESSION_free() it. - new_session_cb: function (ssl : PSSL; sess: PSSL_SESSION): TIdC_INT; cdecl; - remove_session_cb: procedure (ctx : PSSL_CTX; sess : PSSL_SESSION); cdecl; - get_session_cb: function (ssl : PSSL; data : PByte; len: TIdC_INT; copy : PIdC_INT) : PSSL_SESSION; cdecl; - stats : SSL_CTX_stats; - - references: TIdC_INT; - // if defined, these override the X509_verify_cert() calls - app_verify_callback: function (_para1 : PX509_STORE_CTX; _para2 : Pointer) : TIdC_INT; cdecl; - app_verify_arg: Pointer; - // before OpenSSL 0.9.7, 'app_verify_arg' was ignored - // ('app_verify_callback' was called with just one argument) - // Default password callback. - default_passwd_callback: ppem_password_cb; - // Default password callback user data. - default_passwd_callback_userdata: Pointer; - // get client cert callback - client_cert_cb: function (SSL : PSSL; x509 : PPX509; pkey : PPEVP_PKEY) : TIdC_INT; cdecl; - // verify cookie callback - app_gen_cookie_cb: function (ssl : PSSL; cookie : PByte; cookie_len : TIdC_UINT) : TIdC_INT; cdecl; - app_verify_cookie_cb: Pointer; - ex_data : CRYPTO_EX_DATA; - rsa_md5 : PEVP_MD; // For SSLv2 - name is 'ssl2-md5' - md5: PEVP_MD; // For SSLv3/TLSv1 'ssl3-md5' - sha1: PEVP_MD; // For SSLv3/TLSv1 'ssl3->sha1' - extra_certs: PSTACK_OF_X509; - comp_methods: PSTACK_OF_COMP; // stack of SSL_COMP, SSLv3/TLSv1 - // Default values used when no per-SSL value is defined follow - info_callback: PSSL_CTX_info_callback; // used if SSL's info_callback is NULL - // what we put in client cert requests - client_CA : PSTACK_OF_X509_NAME; - // Default values to use in SSL structures follow (these are copied by SSL_new) - options : TIdC_ULONG; - mode : TIdC_ULONG; - max_cert_list : TIdC_LONG; - cert : PCERT; - read_ahead : TIdC_INT; - // callback that allows applications to peek at protocol messages - msg_callback : procedure (write_p, version, content_type : TIdC_INT; const buf : Pointer; len : size_t; ssl : PSSL; arg : Pointer); cdecl; - msg_callback_arg : Pointer; - verify_mode : TIdC_INT; - sid_ctx_length : TIdC_UINT; - sid_ctx : array[0..SSL_MAX_SID_CTX_LENGTH - 1] of TIdAnsiChar; - default_verify_callback : function(ok : TIdC_INT; ctx : PX509_STORE_CTX) : TIdC_INT; cdecl; // called 'verify_callback' in the SSL - // Default generate session ID callback. - generate_session_id : PGEN_SESSION_CB; - param : PX509_VERIFY_PARAM; - {$IFDEF OMIT_THIS} - purpose : TIdC_INT; // Purpose setting - trust : TIdC_INT; // Trust setting - {$ENDIF} - - quiet_shutdown : TIdC_INT; - //* Maximum amount of data to send in one fragment. - // * actual record size can be more than this due to - // * padding and MAC overheads. - // */ - max_send_fragment : TIdC_UINT; - {$IFNDEF OPENSSL_ENGINE} - ///* Engine to pass requests for client certs to - // */ - client_cert_engine : PENGINE; - {$ENDIF} - {$IFNDEF OPENSSL_NO_TLSEXT} -//* TLS extensions servername callback */ - tlsext_servername_callback : PSSL_CTEX_tlsext_servername_callback; - tlsext_servername_arg : Pointer; - //* RFC 4507 session ticket keys */ - tlsext_tick_key_name : array [0..(16-1)] of TIdAnsiChar; - tlsext_tick_hmac_key : array [0..(16-1)] of TIdAnsiChar; - tlsext_tick_aes_key : array [0..(16-1)] of TIdAnsiChar; - //* Callback to support customisation of ticket key setting */ - // int (*tlsext_ticket_key_cb)(SSL *ssl, - // unsigned char *name, unsigned char *iv, - // EVP_CIPHER_CTX *ectx, - // HMAC_CTX *hctx, int enc); - tlsext_ticket_key_cb : Ptlsext_ticket_key_cb; - //* certificate status request info */ - //* Callback for status request */ - //int (*tlsext_status_cb)(SSL *ssl, void *arg); - tlsext_status_cb : Ptlsext_status_cb; - tlsext_status_arg : Pointer; - {$ENDIF} - //* draft-rescorla-tls-opaque-prf-input-00.txt information */ - tlsext_opaque_prf_input_callback : function(para1 : PSSL; peerinput : Pointer; len : size_t; arg : Pointer ) : TIdC_INT cdecl; - //int (*tlsext_opaque_prf_input_callback)(SSL *, void *peerinput, size_t len, void *arg); - tlsext_opaque_prf_input_callback_arg : Pointer; - -{$ifndef OPENSSL_NO_PSK} - psk_identity_hint : PIdAnsiChar; - psk_client_callback : function (ssl : PSSL; hint : PIdAnsiChar; - identity : PIdAnsiChar; max_identity_len : TIdC_UINT; - psk : PIdAnsiChar; max_psk_len : TIdC_UINT ) : TIdC_UINT cdecl; - // unsigned int (*psk_client_callback)(SSL *ssl, const char *hint, char *identity, -// unsigned int max_identity_len, unsigned char *psk, -// unsigned int max_psk_len); - psk_server_callback : function (ssl : PSSL; identity, psk : PIdAnsiChar; max_psk_len : TIdC_UINT) : TIdC_UINT cdecl; -// unsigned int (*psk_server_callback)(SSL *ssl, const char *identity, -// unsigned char *psk, unsigned int max_psk_len); -{$endif} - -{$ifndef OPENSSL_NO_BUF_FREELISTS} - freelist_max_len : TIdC_UINT; - wbuf_freelist : Pssl3_buf_freelist_st; - rbuf_freelist : Pssl3_buf_freelist_st; -{$endif} -{$ifndef OPENSSL_NO_SRP} - srp_ctx : SRP_CTX; //* ctx for SRP authentication */ -{$endif} - -{$ifndef OPENSSL_NO_TLSEXT} -//# ifndef OPENSSL_NO_NEXTPROTONEG - //* Next protocol negotiation information */ - //* (for experimental NPN extension). */ - - //* For a server, this contains a callback function by which the set of - // * advertised protocols can be provided. */ - next_protos_advertised_cb : function(s : PSSL; out but : PIdAnsiChar; - out len : TIdC_UINT; arg : Pointer) : TIdC_INT cdecl; -// int (*next_protos_advertised_cb)(SSL *s, const unsigned char **buf, -// unsigned int *len, void *arg); - next_protos_advertised_cb_arg : Pointer; - //* For a client, this contains a callback function that selects the - // * next protocol from the list provided by the server. */ - next_proto_select_cb : function(s : PSSL; out _out : PIdAnsiChar; - outlen : PIdAnsiChar; - _in : PIdAnsiChar; - inlen : TIdC_UINT; - arg : Pointer) : TIdC_INT cdecl; -// int (*next_proto_select_cb)(SSL *s, unsigned char **out, -// unsigned char *outlen, -// const unsigned char *in, -// unsigned int inlen, -// void *arg); - next_proto_select_cb_arg : Pointer; -//# endif - //* SRTP profiles we are willing to do from RFC 5764 */ - srtp_profiles : PSTACK_OF_SRTP_PROTECTION_PROFILE; -{$endif} - end; - {$EXTERNALSYM PSSL2_STATE} - PSSL2_STATE = ^SSL2_STATE; - {$EXTERNALSYM PSSL3_STATE} - PSSL3_STATE = ^SSL3_STATE; - {$EXTERNALSYM PDTLS1_STATE} - PDTLS1_STATE = ^DTLS1_STATE; -//* TLS extension debug callback */ - {$EXTERNALSYM PSSL_tlsext_debug_cb} - PSSL_tlsext_debug_cb = procedure (s : PSSL; client_server : TIdC_INT; - _type : TIdC_INT; data : PIdAnsiChar; len : TIdC_INT; arg : Pointer); cdecl; - {$NODEFINE SSL} - SSL = record - // protocol version - // (one of SSL2_VERSION, SSL3_VERSION, TLS1_VERSION, DTLS1_VERSION) - version : TIdC_INT; - _type : TIdC_INT; //* SSL_ST_CONNECT or SSL_ST_ACCEPT */ - method : PSSL_METHOD; //* SSLv3 */ - // There are 2 BIO's even though they are normally both the - // same. This is so data can be read and written to different - // handlers - {$IFNDEF OPENSSL_NO_BIO} - rbio : PBIO; // used by SSL_read - wbio : PBIO; // used by SSL_write - bbio : PBIO; // used during session-id reuse to concatenate messages - {$ELSE} - rbio : PIdAnsiChar; // used by SSL_read - wbio : PIdAnsiChar; // used by SSL_write - bbio : PIdAnsiChar; - {$ENDIF} - // This holds a variable that indicates what we were doing - // when a 0 or -1 is returned. This is needed for - // non-blocking IO so we know what request needs re-doing when - // in SSL_accept or SSL_connect - rwstate : TIdC_INT; - // true when we are actually in SSL_accept() or SSL_connect() - in_handshake : TIdC_INT; - handshake_func : function (_para1 : PSSL) : TIdC_INT; cdecl; - // Imagine that here's a boolean member "init" that is - // switched as soon as SSL_set_{accept/connect}_state - // is called for the first time, so that "state" and - // handshake_func" are properly initialized. But as - // handshake_func is == 0 until then, we use this - // test instead of an "init" member. - server : TIdC_INT; // are we the server side? - mostly used by SSL_clear - new_session : TIdC_INT;//* Generate a new session or reuse an old one. - //* NB: For servers, the 'new' session may actually be a previously - //* cached session or even the previous session unless - //* SSL_OP_NO_SESSION_RESUMPTION_ON_RENEGOTIATION is set */ - quiet_shutdown : TIdC_INT; // don't send shutdown packets - shutdown : TIdC_INT; // we have shut things down, 0x01 sent, 0x02 - // for received - state : TIdC_INT; // where we are - rstate : TIdC_INT; // where we are when reading - init_buf : PBUF_MEM; // buffer used during init - init_msg : Pointer; // pointer to handshake message body, set by ssl3_get_message() - init_num : TIdC_INT; // amount read/written - init_off : TIdC_INT; // amount read/written - // used internally to point at a raw packet - packet : PIdAnsiChar; - packet_length : TIdC_UINT; - s2 : Pssl2_state; // SSLv2 variables - s3 : Pssl3_state; // SSLv3 variables - d1 : Pdtls1_state; // DTLSv1 variables - read_ahead : TIdC_INT; // Read as many input bytes as possible (for non-blocking reads) - // callback that allows applications to peek at protocol messages - msg_callback : procedure(write_p, version, content_type : TIdC_INT; - const buf : Pointer; len : size_t; ssl : PSSL; arg : Pointer); cdecl; - msg_callback_arg : Pointer; - hit : TIdC_INT; //* reusing a previous session */ - param : PX509_VERIFY_PARAM; - {$IFDEF OMIT_THIS} - purpose : TIdC_INT; // Purpose setting - trust : TIdC_INT; // Trust setting - {$ENDIF} - // crypto - cipher_list : PSTACK_OF_SSL_CIPHER; - cipher_list_by_id : PSTACK_OF_SSL_CIPHER; - - //* These are the ones being used, the ones in SSL_SESSION are - // * the ones to be 'copied' into these ones */ - mac_flags : TIdC_INT; - // These are the ones being used, the ones in SSL_SESSION are - // the ones to be 'copied' into these ones - enc_read_ctx : PEVP_CIPHER_CTX; // cryptographic state - read_hash : PEVP_MD_CTX; // used for mac generation - {$IFNDEF OPENSSL_NO_COMP} - expand : PCOMP_CTX; // uncompress - {$ELSE} - expand : PIdAnsiChar; - {$ENDIF} - enc_write_ctx : PEVP_CIPHER_CTX; // cryptographic state - write_hash : PEVP_MD_CTX; // used for mac generation - {$IFNDEF OPENSSL_NO_COMP} - compress : PCOMP_CTX; // compression - {$ELSE} - compress : PIdAnsiChar; - {$ENDIF} - // session info - // client cert? - // This is used to hold the server certificate used - cert : PCERT; - // the session_id_context is used to ensure sessions are only reused - // in the appropriate context - sid_ctx_length : TIdC_UINT; - sid_ctx : array [0..SSL_MAX_SID_CTX_LENGTH -1] of TIdAnsiChar; - // This can also be in the session once a session is established - session : PSSL_SESSION; - // Default generate session ID callback. - generate_session_id : PGEN_SESSION_CB; - // Used in SSL2 and SSL3 - verify_mode : TIdC_INT; // 0 don't care about verify failure. - // 1 fail if verify fails - verify_callback : function (ok : TIdC_INT; ctx : PX509_STORE_CTX) : TIdC_INT; cdecl; // fail if callback returns 0 - info_callback : procedure(const ssl : PSSL; _type, val : TIdC_INT) ; cdecl; - error : TIdC_INT; // error bytes to be written - error_code : TIdC_INT; // actual code - {$IFNDEF OPENSSL_NO_KRB5} - kssl_ctx : PKSSL_CTX; // Kerberos 5 context - {$ENDIF} -{$ifndef OPENSSL_NO_PSK} - psk_client_callback : function(ssl : PSSL; hint : PIdAnsiChar; - identity : PIdAnsiChar; - max_identity_len : TIdC_UINT; - psk : PIdAnsiChar; - max_psk_len : TIdC_UINT) : TIdC_UINT cdecl; -// unsigned int (*psk_client_callback)(SSL *ssl, const char *hint, char *identity, -// unsigned int max_identity_len, unsigned char *psk, -// unsigned int max_psk_len); - psk_server_callback : function(ssl : PSSL; identity : PIdAnsiChar; - psk : PIdAnsiChar; max_psk_len : TIdC_UINT) : TIdC_UINT cdecl; -// unsigned int (*psk_server_callback)(SSL *ssl, const char *identity, -// unsigned char *psk, unsigned int max_psk_len); -{$endif} - ctx : PSSL_CTX; - // set this flag to 1 and a sleep(1) is put into all SSL_read() - // and SSL_write() calls, good for nbio debuging :-) - debug : TIdC_INT; - // extra application data - verify_result : TIdC_LONG; - ex_data : CRYPTO_EX_DATA; - // for server side, keep the list of CA_dn we can use - client_CA : PSTACK_OF_X509_NAME; - references : TIdC_INT; - options : TIdC_ULONG; // protocol behaviour - mode : TIdC_ULONG; // API behaviour - max_cert_list : TIdC_LONG; - first_packet : TIdC_INT; - client_version : TIdC_INT; // what was passed, used for - // SSLv3/TLS rollback check - max_send_fragment : TIdC_UINT; - {$IFNDEF OPENSSL_NO_TLSEXT} - //* TLS extension debug callback */ - tlsext_debug_cb : PSSL_tlsext_debug_cb; - tlsext_debug_arg : Pointer; - tlsext_hostname : PIdAnsiChar; - servername_done : TIdC_INT; //* no further mod of servername - // 0 : call the servername extension callback. - // 1 : prepare 2, allow last ack just after in server callback. - // 2 : don't call servername callback, no ack in server hello - //*/ - //* certificate status request info */ - //* Status type or -1 if no status type */ - tlsext_status_type : TIdC_INT; - //* Expect OCSP CertificateStatus message */ - tlsext_status_expected : TIdC_INT; - -{$ifndef OPENSSL_NO_EC} - tlsext_ecpointformatlist_length : size_t; - tlsext_ecpointformatlist : PIdAnsiChar; //* our list */ - tlsext_ellipticcurvelist_length : size_t; - tlsext_ellipticcurvelist : PIdAnsiChar; //* our list */ -{$endif} //* OPENSSL_NO_EC */ - - - //* draft-rescorla-tls-opaque-prf-input-00.txt information to be used for handshakes */ - tlsext_opaque_prf_input : Pointer; - tlsext_opaque_prf_input_len : size_t; - - //* TLS Session Ticket extension override */ - tlsext_session_ticket : PTLS_SESSION_TICKET_EXT; - - //* TLS Session Ticket extension callback */ - tls_session_ticket_ext_cb : tls_session_ticket_ext_cb_fn; - tls_session_ticket_ext_cb_arg : Pointer; - - //* TLS pre-shared secret session resumption */ - tls_session_secret_cb : tls_session_secret_cb_fn; - tls_session_secret_cb_arg : Pointer; - - initial_ctx : PSSL_CTX; //* initial ctx, used to store sessions */ - -{$ifndef OPENSSL_NO_NEXTPROTONEG} - ///* Next protocol negotiation. For the client, this is the protocol that - // * we sent in NextProtocol and is set when handling ServerHello - // * extensions. - // * - // * For a server, this is the client's selected_protocol from - // * NextProtocol and is set when handling the NextProtocol message, - // * before the Finished message. */ - next_proto_negotiated : PIdAnsiChar; - next_proto_negotiated_len : Byte; -{$endif} - - //* OCSP status request only */ - tlsext_ocsp_ids : PSTACK_OF_OCSP_RESPID;//STACK_OF(OCSP_RESPID) *tlsext_ocsp_ids; - tlsext_ocsp_exts : PX509_EXTENSIONS; - //* OCSP response received or to be sent */ - tlsext_ocsp_resp : PIdAnsiChar; - tlsext_ocsp_resplen : TIdC_INT; - //* RFC4507 session ticket expected to be received or sent */ - tlsext_ticket_expected : TIdC_INT; - _initial_ctx : PSSL_CTX; //* initial ctx, used to store sessions */ - {$DEFINE session_ctx} - {$DEFINE initial_ctx} -{$ELSE} - {$DEFINE ctx} - {$DEFINE session_ctx} -{$ENDIF} - end; - //ssl2.h - {$EXTERNALSYM SSL2_STATE} - SSL2_STATE = record - three_byte_header : TIdC_INT; - clear_text : TIdC_INT; // clear text - escape : TIdC_INT; // not used in SSLv2 - ssl2_rollback : TIdC_INT; // used if SSLv23 rolled back to SSLv2 - // non-blocking io info, used to make sure the same - // args were passwd - wnum : TIdC_UINT; // number of bytes sent so far - wpend_tot : TIdC_INT; - wpend_buf : PByte; - wpend_off : TIdC_INT; // offset to data to write - wpend_len : TIdC_INT; // number of bytes passwd to write - wpend_ret : TIdC_INT; // number of bytes to return to caller - // buffer raw data - rbuf_left : TIdC_INT; - rbuf_offs : TIdC_INT; - rbuf : PIdAnsiChar; - wbuf : PIdAnsiChar; - write_ptr : PIdAnsiChar; // used to point to the start due to 2/3 byte header. */ - padding : TIdC_UINT; - rlength : TIdC_UINT; // passed to ssl2_enc - ract_data_length : TIdC_INT; // Set when things are encrypted. - wlength : TIdC_UINT; // passed to ssl2_enc - wact_data_length : TIdC_INT; // Set when things are decrypted. - ract_data : PIdAnsiChar; - wact_data : PIdAnsiChar; - mac_data : PIdAnsiChar; - read_key : PIdAnsiChar; - write_key : PIdAnsiChar; - // Stuff specifically to do with this SSL session - challenge_length : TIdC_UINT; - challenge : array [0..SSL2_MAX_CHALLENGE_LENGTH -1] of TIdAnsiChar; - conn_id_length : TIdC_UINT; - conn_id : array [0..SSL2_MAX_CONNECTION_ID_LENGTH -1] of TIdAnsiChar; - key_material_length : TIdC_UINT; - key_material : array[0..(SSL2_MAX_KEY_MATERIAL_LENGTH*2)-1] of TIdAnsiChar; - read_sequence : TIdC_ULONG; - write_sequence : TIdC_ULONG; - tmp_conn_id_length : TIdC_UINT; - tmp_cert_type : TIdC_UINT; - tmp_cert_length : TIdC_UINT; - tmp_csl : TIdC_UINT; - tmp_clear : TIdC_UINT; - tmp_enc : TIdC_UINT; - tmp_ccl : array [0..SSL2_MAX_CERT_CHALLENGE_LENGTH -1] of TIdAnsiChar; - tmp_cipher_spec_length : TIdC_UINT; - tmp_session_id_length : TIdC_UINT; - tmp_clen : TIdC_UINT; - tmp_rlen : TIdC_UINT; - end; - //sl3.h - {$IFNDEF OPENSSL_NO_SSL_INTERN} - {$EXTERNALSYM PSSL3_RECORD} - PSSL3_RECORD = ^SSL3_RECORD; - {$EXTERNALSYM SSL3_RECORD} - SSL3_RECORD = record - {*r *} _type : TIdC_INT; // type of record - {*rw*} length : TIdC_UINT; // How many bytes available - {*r *} off : TIdC_UINT; // read/write offset into 'buf' - {*rw*} data : PIdAnsiChar; // pointer to the record data - {*rw*} input : PIdAnsiChar; // where the decode bytes are - {*r *} comp : PIdAnsiChar; // only used with decompression - malloc()ed - {*r *} epoch : TIdC_ULONG; // epoch number, needed by DTLS1 - {*r *} seq_num : array [0..7] of Byte; //* sequence number, needed by DTLS1 */ - end; - {$EXTERNALSYM PSSL3_BUFFER} - PSSL3_BUFFER = ^SSL3_BUFFER; - {$EXTERNALSYM SSL3_BUFFER} - SSL3_BUFFER = record - buf : PIdAnsiChar; // at least SSL3_RT_MAX_PACKET_SIZE bytes, - // see ssl3_setup_buffers() - len : size_t; // buffer size - offset : TIdC_INT; // where to 'copy from' - left : TIdC_INT; // how many bytes left - end; - - {$EXTERNALSYM SSL3_STATE} - SSL3_STATE = record - flags : TIdC_LONG; - delay_buf_pop_ret : TIdC_INT; - - read_sequence : array [0..7] of TIdAnsiChar; - read_mac_secret_size : TIdC_INT; - read_mac_secret : array [0..EVP_MAX_MD_SIZE -1] of TIdAnsiChar; - write_sequence : array [0..7] of TIdAnsiChar; - write_mac_secret_size : TIdC_INT; - write_mac_secret : array [0..EVP_MAX_MD_SIZE - 1] of TIdAnsiChar; - server_random : array [0..SSL3_RANDOM_SIZE - 1] of TIdAnsiChar; - client_random : array [0..SSL3_RANDOM_SIZE -1] of TIdAnsiChar; - // flags for countermeasure against known-IV weakness - need_empty_fragments : TIdC_INT; - empty_fragment_done : TIdC_INT; - - //* The value of 'extra' when the buffers were initialized */ - init_extra : TIdC_INT; - rbuf : PSSL3_BUFFER; //* read IO goes into here */ - wbuf : PSSL3_BUFFER; //* write IO goes into here */ - rrec : PSSL3_RECORD; //* each decoded record goes in here */ - wrec : PSSL3_RECORD; //* goes out from here */ - // storage for Alert/Handshake protocol data received but not - // yet processed by ssl3_read_bytes: - alert_fragment : array [0..1] of PIdAnsiChar; - alert_fragment_len : TIdC_UINT; - handshake_fragment : array [0..3] of PIdAnsiChar; - handshake_fragment_len : TIdC_UINT; - // partial write - check the numbers match - wnum : TIdC_UINT; // number of bytes sent so far - wpend_tot : TIdC_INT; // number bytes written - wpend_type : TIdC_INT; - wpend_ret : TIdC_INT; // number of bytes submitted - wpend_buf : PByte; - // used during startup, digest all incoming/outgoing packets */ - handshake_buffer : PBIO; - //* When set of handshake digests is determined, buffer is hashed - // * and freed and MD_CTX-es for all required digests are stored in - // * this array */ - handshake_dgst : PPEVP_MD_CTX; - - finish_dgst2 : PEVP_MD_CTX; - // this is set whenerver we see a change_cipher_spec message - // come in when we are not looking for one - change_cipher_spec : TIdC_INT; - warn_alert : TIdC_INT; - fatal_alert : TIdC_INT; - // we allow one fatal and one warning alert to be outstanding, - // send close alert via the warning alert */ - alert_dispatch : TIdC_INT; - send_alert : array [0..1] of TIdAnsiChar; - // This flag is set when we should renegotiate ASAP, basically when - // there is no more data in the read or write buffers - renegotiate : TIdC_INT; - total_renegotiations : TIdC_INT; - num_renegotiations : TIdC_INT; - in_read_app_data : TIdC_INT; - - //* Opaque PRF input as used for the current handshake. - // * These fields are used only if TLSEXT_TYPE_opaque_prf_input is defined - // * (otherwise, they are merely present to improve binary compatibility) */ - client_opaque_prf_input : Pointer; - client_opaque_prf_input_len : size_t; - server_opaque_prf_input : Pointer; - server_opaque_prf_input_len : size_t; - // actually only needs to be 16+20 - tmp_cert_verify_md: array [0..(EVP_MAX_MD_SIZE*2)-1] of TIdAnsiChar; - // actually only need to be 16+20 for SSLv3 and 12 for TLS - tmp_finish_md : array[0..(EVP_MAX_MD_SIZE*2)-1] of TIdAnsiChar; - tmp_finish_md_len : TIdC_INT; - tmp_peer_finish_md : array[0..(EVP_MAX_MD_SIZE*2)-1] of TIdAnsiChar; - tmp_peer_finish_md_len : TIdC_INT; - tmp_message_size : TIdC_UINT; - tmp_message_type : TIdC_INT; - // used to hold the new cipher we are going to use - tmp_new_cipher : PSSL_CIPHER; - {$IFNDEF OPENSSL_NO_DH} - tmp_dh : PDH; - {$ENDIF} - {$IFNDEF OPENSSL_NO_ECDH} - tmp_ecdh : PEC_KEY; // holds short lived ECDH key - {$ENDIF} - // used when SSL_ST_FLUSH_DATA is entered - tmp_next_state : TIdC_INT; - tmp_reuse_message : TIdC_INT; - // used for certificate requests - tmp_cert_req : TIdC_INT; - tmp_ctype_num : TIdC_INT; - tmp_ctype : array [0..SSL3_CT_NUMBER -1] of TIdAnsiChar; - tmp_ca_names : PSTACK_OF_X509_NAME; - tmp_use_rsa_tmp : TIdC_INT; - tmp_key_block_length : TIdC_INT; - tmp_key_block : PIdAnsiChar; - tmp_new_sym_enc : PEVP_CIPHER; - tmp_new_hash : PEVP_MD; - new_mac_pkey_type : TIdC_INT; - new_mac_secret_size : TIdC_INT; - {$IFNDEF OPENSSL_NO_COMP} - tmp_new_compression : PSSL_COMP; - {$ELSE} - tmp_new_compression : PIdAnsiChar; - {$ENDIF} - tmp_cert_request : TIdC_INT; - - //* Connection binding to prevent renegotiation attacks */ - previous_client_finished : array [0..EVP_MAX_MD_SIZE - 1] of TIdAnsiChar; - previous_client_finished_len : Byte; - previous_server_finished : array [0..EVP_MAX_MD_SIZE - 1] of TIdAnsiChar; - previous_server_finished_len : Byte; - send_connection_binding : TIdC_INT; //* TODOEKR */ -{$ifndef OPENSSL_NO_NEXTPROTONEG} - //* Set if we saw the Next Protocol Negotiation extension from our peer. */ - next_proto_neg_seen : TIdC_INT; -{$endif} - end; - {$ENDIF} - //openssl/pq_compat.h - {$EXTERNALSYM ppitem} - ppitem = ^pitem; - {$EXTERNALSYM pitem} - pitem = record - priority : PQ_64BIT; - data : Pointer; - next : ppitem; - end; - //ssl/dtls1.h - //for some reason, this header is refering to crypto/pqueue/pqueue.c - //which is in the OpenSSL headers. - {$EXTERNALSYM pqueue} - pqueue = record - items : ppitem; - count : TIdC_INT; - end; - // - {$EXTERNALSYM dtls1_retransmit_state} - dtls1_retransmit_state = record - enc_write_ctx : PEVP_CIPHER_CTX; //* cryptographic state */ - write_hash : PEVP_MD; //* used for mac generation */ -{$IFNDEF OPENSSL_NO_COMP} - compress : COMP_CTX; //* compression */ -{$ELSE} - compress : PIdAnsiChar; -{$ENDIF} - session : PSSL_SESSION; - epoch : TIdC_USHORT; - end; - {$EXTERNALSYM Pdtls1_retransmit_state} - Pdtls1_retransmit_state = ^dtls1_retransmit_state; - {$EXTERNALSYM DTLS1_BITMAP} - DTLS1_BITMAP = record - map : PQ_64BIT; - length : TIdC_ULONG; // sizeof the bitmap in bits - max_seq_num : PQ_64BIT; // max record number seen so far - end; - {$EXTERNALSYM PDTLS1_BITMAP} - PDTLS1_BITMAP = ^DTLS1_BITMAP; - {$EXTERNALSYM hm_header} - hm_header = record - _type : PIdAnsiChar; - msg_len : TIdC_ULONG; - seq : TIdC_USHORT; - frag_off : TIdC_ULONG; - frag_len : TIdC_ULONG; - is_ccs : TIdC_UINT; - // struct dtls1_retransmit_state saved_retransmit_state; - saved_retransmit_state : dtls1_retransmit_state; - end; - {$EXTERNALSYM ccs_header_st} - ccs_header_st = record - _type : PIdAnsiChar; - seq : TIdC_USHORT; - end; - {$EXTERNALSYM dtls1_timeout_st} - dtls1_timeout_st = record - // Number of read timeouts so far - read_timeouts : TIdC_UINT; - // Number of write timeouts so far - write_timeouts : TIdC_UINT; - // Number of alerts received so far - num_alerts : TIdC_UINT; - end; - {$EXTERNALSYM record_pqueue} - record_pqueue = record - epoch : TIdC_USHORT; - q : pqueue; - end; - {$EXTERNALSYM hm_fragment} - hm_fragment = record - msg_header : hm_header; - fragment : PIdAnsiChar; - reassembly : PIdAnsiChar; - end; - {$EXTERNALSYM DTLS1_STATE} - DTLS1_STATE = record - send_cookie : TIdC_UINT; - cookie : array [0..DTLS1_COOKIE_LENGTH - 1 ] of TIdAnsiChar; - rcvd_cookie : array [0..DTLS1_COOKIE_LENGTH -1] of TIdAnsiChar; - cookie_len : TIdC_UINT; - // The current data and handshake epoch. This is initially - // undefined, and starts at zero once the initial handshake is - // completed - r_epoch : TIdC_USHORT; - w_epoch : TIdC_USHORT; - // records being received in the current epoch - bitmap : DTLS1_BITMAP; - // renegotiation starts a new set of sequence numbers - next_bitmap : DTLS1_BITMAP; - // handshake message numbers - handshake_write_seq : TIdC_USHORT; - next_handshake_write_seq : TIdC_USHORT; - handshake_read_seq : TIdC_USHORT; - //* save last sequence number for retransmissions */ - last_write_sequence : array [0..8-1] of byte; - - // Received handshake records (processed and unprocessed) - unprocessed_rcds : record_pqueue; - processed_rcds : record_pqueue; - // Buffered handshake messages - buffered_messages : pqueue; - // Buffered (sent) handshake records - sent_messages : pqueue; - ///* Buffered application records. - //* Only for records between CCS and Finished - //* to prevent either protocol violation or - //* unnecessary message loss. - //*/ - buffered_app_data : record_pqueue; - - ///* Is set when listening for new connections with dtls1_listen() */ - listen : TIdC_UINT; - - mtu : TIdC_UINT; // max wire packet size - w_msg_hdr : hm_header; - r_msg_hdr : hm_header; - timeout : dtls1_timeout_st; - //* Indicates when the last handshake msg sent will timeout */ - next_timeout : timeval; - - //* Timeout duration */ - timeout_duration : TIdC_USHORT; - - // storage for Alert/Handshake protocol data received but not - // yet processed by ssl3_read_bytes: - alert_fragment : array [0..DTLS1_AL_HEADER_LENGTH-1] of TIdAnsiChar; - alert_fragment_len : TIdC_UINT; - handshake_fragment : array[0..DTLS1_HM_HEADER_LENGTH -1] of TIdAnsiChar; - handshake_fragment_len : TIdC_UINT; - retransmitting : TIdC_UINT; - change_cipher_spec_ok : TIdC_UINT; - end; - - {$EXTERNALSYM X509V3_CTX} - X509V3_CTX = V3_EXT_CTX; - {$EXTERNALSYM PX509V3_CTX} - PX509V3_CTX = ^X509V3_CTX; - -type - {$EXTERNALSYM Tsk_new_cmp} - Tsk_new_cmp = function (const a, b : PIdAnsiChar; const c : PIdAnsiChar) : TIdC_INT cdecl; - {$EXTERNALSYM TRSA_generate_key_callback} - TRSA_generate_key_callback = procedure (p1, p2 : TIdC_INT; p3 : Pointer); cdecl; - {$EXTERNALSYM TCRYPTO_set_mem_functions_m} - TCRYPTO_set_mem_functions_m = function (size : size_t) : Pointer; cdecl; - {$EXTERNALSYM TCRYPTO_set_mem_functions_r} - TCRYPTO_set_mem_functions_r = function (ptr : Pointer; size : size_t) : Pointer; cdecl; - {$EXTERNALSYM TCRYPTO_set_mem_functions_f} - TCRYPTO_set_mem_functions_f = procedure (ptr : Pointer); cdecl; - {$EXTERNALSYM TCRYPTO_set_mem_ex_functions_m} - TCRYPTO_set_mem_ex_functions_m = function(size : size_t; const c : PIdAnsiChar; i : TIdC_INT) : Pointer; cdecl; - {$EXTERNALSYM TCRYPTO_set_mem_ex_functions_r} - TCRYPTO_set_mem_ex_functions_r = function(ptr : Pointer; size : size_t; const c : PIdAnsiChar; i : TIdC_INT) : Pointer; cdecl; - {$EXTERNALSYM TCRYPTO_set_mem_ex_functions_f} - TCRYPTO_set_mem_ex_functions_f = procedure (ptr : Pointer); cdecl; - {$EXTERNALSYM Tset_mem_debug_functions_m} - Tset_mem_debug_functions_m = procedure (addr : Pointer; num : TIdC_INT; const _file : PIdAnsiChar; line, before_p : TIdC_INT); cdecl; - {$EXTERNALSYM Tset_mem_debug_functions_r} - Tset_mem_debug_functions_r = procedure (addr1, addr2 : Pointer; num : TIdC_INT; const _file : PIdAnsiChar; line, before_p : TIdC_INT); cdecl; - {$EXTERNALSYM Tset_mem_debug_functions_f} - Tset_mem_debug_functions_f = procedure (addr : Pointer; before_p : TIdC_INT); cdecl; - {$EXTERNALSYM Tset_mem_debug_functions_so} - Tset_mem_debug_functions_so = procedure (bits : TIdC_LONG); cdecl; - {$EXTERNALSYM Tset_mem_debug_functions_go} - Tset_mem_debug_functions_go = function : TIdC_LONG; cdecl; - {$EXTERNALSYM TSSL_CTX_set_verify_callback} - TSSL_CTX_set_verify_callback = function (ok : TIdC_INT; ctx : PX509_STORE_CTX) : TIdC_INT; cdecl; - {$EXTERNALSYM Tsk_pop_free_func} - Tsk_pop_free_func = procedure (p : Pointer); cdecl; - {$EXTERNALSYM SSL_callback_ctrl_fp} - SSL_callback_ctrl_fp = procedure (para1 : PBIO; para2 : TIdC_INT; - para3 : PIdAnsiChar; para4 : TIdC_INT; para5, para6 : TIdC_LONG); cdecl; - {$EXTERNALSYM TCRYPTO_THREADID_set_callback_threadid_func} - TCRYPTO_THREADID_set_callback_threadid_func = procedure (id : PCRYPTO_THREADID) cdecl; - {$EXTERNALSYM TSSL_CTX_set_tlsext_status_cb} - TSSL_CTX_set_tlsext_status_cb = function(SSL : PSSL; Arg : Pointer) : TIdC_INT cdecl; - {$EXTERNALSYM TSSL_CTX_set_tlsext_opaque_prf_input_callback_cb} - TSSL_CTX_set_tlsext_opaque_prf_input_callback_cb = function(ssl : PSSL; peerinput : Pointer; len : size_t; arg : Pointer) : TIdC_INT cdecl; - {$EXTERNALSYM TSSL_CTX_set_tlsext_ticket_key_cb_fp} - TSSL_CTX_set_tlsext_ticket_key_cb_fp = function(SSL : PSSL; keyname, iv : PIdAnsiChar; ctx : PEVP_CIPHER_CTX; hctx : PHMAC_CTX; enc : TIdC_INT) : TIdC_INT cdecl; - - {$EXTERNALSYM EVP_CIPHER_do_all_fn} - EVP_CIPHER_do_all_fn = procedure(ciph : PEVP_CIPHER; - from : PIdAnsiChar; _to : PIdAnsiChar; x : Pointer) cdecl; - {$EXTERNALSYM EVP_MD_do_all_fn} - EVP_MD_do_all_fn = procedure(ciph : PEVP_CIPHER; - from: PIdAnsiChar; _to: PIdAnsiChar; x : Pointer) cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_public_pub_decode} - EVP_PKEY_asn1_set_public_pub_decode = function(pk : PEVP_PKEY; pub : PX509_PUBKEY) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_public_pub_encode} - EVP_PKEY_asn1_set_public_pub_encode = function(pub : PX509_PUBKEY; pk : PX509_PUBKEY) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_public_pub_cmp} - EVP_PKEY_asn1_set_public_pub_cmp = function (a : PEVP_PKEY; b : PEVP_PKEY) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_public_pub_print} - EVP_PKEY_asn1_set_public_pub_print = function(_out : PBIO; pkey : PEVP_PKEY; indent : TIdC_INT; - pctx : PASN1_PCTX) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_public_pub_pkey_size} - EVP_PKEY_asn1_set_public_pub_pkey_size = function(pk : PEVP_PKEY) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_public_pkey_bits} - EVP_PKEY_asn1_set_public_pkey_bits = function(pk : PEVP_PKEY) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_private_priv_decode} - EVP_PKEY_asn1_set_private_priv_decode = function (pk : PEVP_PKEY; p8inf : PPKCS8_PRIV_KEY_INFO) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_private_priv_encode} - EVP_PKEY_asn1_set_private_priv_encode = function (p8 : PPKCS8_PRIV_KEY_INFO; pk : PEVP_PKEY): TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_private_priv_print} - EVP_PKEY_asn1_set_private_priv_print = function (_out : PBIO; pkey : PEVP_PKEY; indent : TIdC_INT; - pctx : PASN1_PCTX) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_param_param_decode} - EVP_PKEY_asn1_set_param_param_decode = function(pkey : PEVP_PKEY; - pder : PPIdAnsiChar; derlen : TIdC_INT): TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_param_param_encode} - EVP_PKEY_asn1_set_param_param_encode = function(pkey : PEVP_PKEY; pder : PPIdAnsiChar) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_param_param_missing} - EVP_PKEY_asn1_set_param_param_missing = function(pk : EVP_PKEY) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_param_param_copy} - EVP_PKEY_asn1_set_param_param_copy = function(_to : PEVP_PKEY; from : PEVP_PKEY) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_param_param_cmp} - EVP_PKEY_asn1_set_param_param_cmp = function(a : PEVP_PKEY; b : PEVP_PKEY): TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_param_param_print} - EVP_PKEY_asn1_set_param_param_print = function(_out : PBIO; pkey : PEVP_PKEY; indent : TIdC_INT; - pctx : PASN1_PCTX) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_free_pkey_free} - EVP_PKEY_asn1_set_free_pkey_free = procedure(pkey : PEVP_PKEY) cdecl; - {$EXTERNALSYM EVP_PKEY_asn1_set_ctr_pkey_ctrl} - EVP_PKEY_asn1_set_ctr_pkey_ctrl = function(pkey : PEVP_PKEY; op : TIdC_INT; - arg1 : TIdC_LONG; arg2 : Pointer) : TIdC_INT cdecl; - - {$EXTERNALSYM EVP_PKEY_gen_cb} - - EVP_PKEY_gen_cb = function( ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_init_init} - - EVP_PKEY_meth_set_init_init = function (ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_copy_copy} - EVP_PKEY_meth_set_copy_copy = function (dst : PEVP_PKEY_CTX; src : PEVP_PKEY_CTX) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_cleanup_cleanup} - EVP_PKEY_meth_set_cleanup_cleanup = procedure(ctx : PEVP_PKEY_CTX) cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_paramgen_paramgen_init} - EVP_PKEY_meth_set_paramgen_paramgen_init = function (ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_paramgen_paramgen} - EVP_PKEY_meth_set_paramgen_paramgen = function (ctx : PEVP_PKEY_CTX; pkey : PEVP_PKEY) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_keygen_keygen_init} - EVP_PKEY_meth_set_keygen_keygen_init = function(ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_keygen_keygen} - EVP_PKEY_meth_set_keygen_keygen = function(ctx : PEVP_PKEY_CTX; pkey : PEVP_PKEY) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_sign_sign_init} - EVP_PKEY_meth_set_sign_sign_init = function(ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_sign_sign} - EVP_PKEY_meth_set_sign_sign = function(ctx : PEVP_PKEY_CTX; sig : PIdAnsiChar; siglen : Psize_t; - tbs : PIdAnsiChar; tbslen : size_t) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_verify_verify_init} - EVP_PKEY_meth_set_verify_verify_init = function(ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_verify_verify} - EVP_PKEY_meth_set_verify_verify = function(ctx : PEVP_PKEY_CTX; sig : PIdAnsiChar; siglen : size_t; - tbs : PIdAnsiChar; tbslen : size_t) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_verify_recover_verify_recover_init} - EVP_PKEY_meth_set_verify_recover_verify_recover_init = function(ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_verify_recover_verify_recover} - EVP_PKEY_meth_set_verify_recover_verify_recover = function(ctx : PEVP_PKEY_CTX; - sig : PIdAnsiChar; siglen : Psize_t; - tbs: PIdAnsiChar; tbslen : size_t) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_signctx_signctx_init} - EVP_PKEY_meth_set_signctx_signctx_init = function(ctx : PEVP_PKEY_CTX; mctx : PEVP_MD_CTX) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_signctx_signctx} - EVP_PKEY_meth_set_signctx_signctx = function(ctx : PEVP_PKEY_CTX; sig : PIdAnsiChar; siglen : size_t; - mctx : PEVP_MD_CTX) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_verifyctx_verifyctx_init} - EVP_PKEY_meth_set_verifyctx_verifyctx_init = function : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_verifyctx_verifyctx} - EVP_PKEY_meth_set_verifyctx_verifyctx = function : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_encrypt_encrypt_init} - EVP_PKEY_meth_set_encrypt_encrypt_init = function( ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_encrypt_encryptfn} - EVP_PKEY_meth_set_encrypt_encryptfn = function(ctx : PEVP_PKEY_CTX; _out : PIdAnsiChar; outlen : psize_t; - _in : PIdAnsiChar; inlen : size_t) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_decrypt_decrypt_init} - EVP_PKEY_meth_set_decrypt_decrypt_init = function(ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_decrypt_decrypt} - EVP_PKEY_meth_set_decrypt_decrypt = function(ctx : PEVP_PKEY_CTX; _out : PIdAnsiChar; outlen : psize_t; - _in : PIdAnsiChar; inlen : size_t) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_derive_derive_init} - EVP_PKEY_meth_set_derive_derive_init = function(ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl; - - {$EXTERNALSYM EVP_PKEY_meth_set_derive_derive} - EVP_PKEY_meth_set_derive_derive = function (ctx : PEVP_PKEY_CTX; key : PIdAnsiChar; keylen : psize_t) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_ctrl_ctrl} - EVP_PKEY_meth_set_ctrl_ctrl = function(ctx : PEVP_PKEY_CTX; _type : TIdC_INT; p1 : TIdC_INT; p2 : Pointer) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_meth_set_ctrlctrl_str} - EVP_PKEY_meth_set_ctrlctrl_str = function(ctx : PEVP_PKEY_CTX; - _type : PIdAnsiChar; value : PIdAnsiChar) : TIdC_INT cdecl; - - -var - {$EXTERNALSYM OpenSSL_add_all_algorithms} - OpenSSL_add_all_algorithms : procedure cdecl = nil; - {$EXTERNALSYM OpenSSL_add_all_ciphers} - OpenSSL_add_all_ciphers : procedure cdecl = nil; - {$EXTERNALSYM OpenSSL_add_all_digests} - OpenSSL_add_all_digests : procedure cdecl = nil; - {$EXTERNALSYM EVP_cleanup} - EVP_cleanup : procedure cdecl = nil; - //SSL Version function - {$EXTERNALSYM _SSLeay_version} - _SSLeay_version : function(_type : TIdC_INT) : PIdAnsiChar cdecl = nil; - //SSLeay - {$EXTERNALSYM SSLeay} - SSLeay : function : TIdC_ULONG cdecl = nil; - {$EXTERNALSYM _CRYPTO_lock} - _CRYPTO_lock : procedure(mode, _type : TIdC_INT; const _file : PIdAnsiChar; line : TIdC_INT) cdecl = nil; - - //CRYPTO_set_mem_ex_functions - {$EXTERNALSYM CRYPTO_set_mem_functions} - CRYPTO_set_mem_functions : function( - m: TCRYPTO_set_mem_functions_m; - r: TCRYPTO_set_mem_functions_r; - f: TCRYPTO_set_mem_functions_f): TIdC_INT cdecl = nil; - {$EXTERNALSYM CRYPTO_malloc} - CRYPTO_malloc : function(num: TIdC_INT; const _file: PIdAnsiChar; line: TIdC_INT): Pointer cdecl = nil; - {$EXTERNALSYM CRYPTO_free} - CRYPTO_free : procedure(ptr : Pointer) cdecl = nil; - {$EXTERNALSYM CRYPTO_mem_leaks} - CRYPTO_mem_leaks : procedure(b:PBIO) cdecl = nil; - {$EXTERNALSYM CRYPTO_mem_ctrl} - CRYPTO_mem_ctrl : function(mode: TIdC_INT): TIdC_INT cdecl = nil; - {$EXTERNALSYM CRYPTO_set_mem_debug_functions} - CRYPTO_set_mem_debug_functions : procedure ( - m: Tset_mem_debug_functions_m; - r: Tset_mem_debug_functions_r; - f : Tset_mem_debug_functions_f; - so : Tset_mem_debug_functions_so; - go : Tset_mem_debug_functions_go) cdecl = nil; - {$EXTERNALSYM CRYPTO_dbg_malloc} - CRYPTO_dbg_malloc : procedure(addr: Pointer; num: TIdC_INT; const _file: PIdAnsiChar; line, before: TIdC_INT) cdecl = nil; - {$EXTERNALSYM CRYPTO_dbg_realloc} - CRYPTO_dbg_realloc : procedure(arrd1, addr2: Pointer; num: TIdC_INT; const _file: PIdAnsiChar; line, before: TIdC_INT) cdecl = nil; - {$EXTERNALSYM CRYPTO_dbg_free} - CRYPTO_dbg_free : procedure(addr: Pointer; before: TIdC_INT) cdecl = nil; - {$EXTERNALSYM CRYPTO_dbg_set_options} - CRYPTO_dbg_set_options : procedure(bits: TIdC_LONG) cdecl = nil; - {$EXTERNALSYM CRYPTO_dbg_get_options} - CRYPTO_dbg_get_options : function: TIdC_LONG cdecl = nil; - {$EXTERNALSYM CRYPTO_THREADID_set_numeric} - CRYPTO_THREADID_set_numeric : procedure(id : PCRYPTO_THREADID; val : TIdC_ULONG) cdecl = nil; - {$EXTERNALSYM CRYPTO_THREADID_set_pointer} - CRYPTO_THREADID_set_pointer : procedure(id : PCRYPTO_THREADID; ptr : Pointer) cdecl = nil; - {$EXTERNALSYM CRYPTO_THREADID_set_callback} - CRYPTO_THREADID_set_callback : function(threadid_func : TCRYPTO_THREADID_set_callback_threadid_func) : TIdC_INT cdecl = nil; - {$EXTERNALSYM sk_num} - sk_num : function (const x : PSTACK) : TIdC_INT cdecl = nil; - {$EXTERNALSYM sk_value} - sk_value : function (x : PSTACK; i : TIdC_INT) : PIdAnsiChar cdecl = nil; - {$EXTERNALSYM sk_new} - sk_new : function ( cmp : Tsk_new_cmp) : PStack cdecl = nil; - {$EXTERNALSYM sk_new_null} - sk_new_null : function: PSTACK cdecl = nil; - {$EXTERNALSYM sk_free} - sk_free : procedure (st : PSTACK) cdecl = nil; - {$EXTERNALSYM sk_push} - sk_push : function(st: PSTACK; data: PIdAnsiChar): TIdC_INT cdecl = nil; - {$EXTERNALSYM RSA_new} - RSA_new: function: PRSA cdecl = nil; - {$EXTERNALSYM RSA_size} - RSA_size: function(key: PRSA): TIdC_INT cdecl = nil; - //This function is depreciated. - {$EXTERNALSYM RSA_generate_key} - RSA_generate_key : function(bits: TIdC_INT; e: TIdC_ULONG; callback: TRSA_generate_key_callback; cb_arg: Pointer): PRSA cdecl = nil; - {$EXTERNALSYM RSA_generate_key_ex} - RSA_generate_key_ex : function(rsa : PRSA; bits : TIdC_INT; e : PBIGNUM; cb : PBN_GENCB) : TIdC_INT cdecl = nil; - {$EXTERNALSYM RSA_free} - RSA_free : procedure(rsa: PRSA) cdecl = nil; - {$EXTERNALSYM RSA_check_key} - RSA_check_key : function(const rsa: PRSA): TIdC_INT cdecl = nil; - {$EXTERNALSYM RSA_private_decrypt} - RSA_private_decrypt: function(flen: TIdC_INT; from: PByte; _to: PByte; rsa: PRSA; padding: TIdC_INT): TIdC_INT cdecl = nil; - {$EXTERNALSYM RSA_public_encrypt} - RSA_public_encrypt: function(flen: TIdC_INT; from: PByte; _to: PByte; rsa: PRSA; padding: TIdC_INT): TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_get_default_cert_file} - X509_get_default_cert_file : function : PIdAnsiChar cdecl = nil; - {$EXTERNALSYM X509_get_default_cert_file_env} - X509_get_default_cert_file_env : function : PIdAnsiChar cdecl = nil; - {$EXTERNALSYM BIO_set_flags} - BIO_set_flags : procedure(b: PBIO; flags: integer) cdecl = nil; - {$EXTERNALSYM BIO_new} - BIO_new : function(_type: PBIO_METHOD): PBIO cdecl = nil; - {$EXTERNALSYM BIO_new_mem_buf} - BIO_new_mem_buf : function (buf : Pointer; len : TIdC_INT) : PBIO cdecl = nil; - {$EXTERNALSYM BIO_push} - BIO_push : function(b: PBIO; append: PBIO): PBIO cdecl = nil; - {$EXTERNALSYM BIO_pop} - BIO_pop : function(b: PBIO): PBIO cdecl = nil; - {$EXTERNALSYM BIO_set_next} - BIO_set_next : procedure(b: PBIO; next: PBIO) cdecl = nil; - {$EXTERNALSYM BIO_free} - BIO_free : function(bio: PBIO): TIdC_INT cdecl = nil; - {$EXTERNALSYM BIO_free_all} - BIO_free_all : procedure(bio: PBIO) cdecl = nil; - {$EXTERNALSYM BIO_s_mem} - BIO_s_mem : function: PBIO_METHOD cdecl = nil; - {$EXTERNALSYM BIO_s_file} - BIO_s_file : function: PBIO_METHOD cdecl = nil; - {$EXTERNALSYM BIO_set_ex_data} - BIO_set_ex_data : function(bio : PBIO; idx : TIdC_INT; data : Pointer) : TidC_INT cdecl = nil; - {$EXTERNALSYM BIO_get_ex_data} - BIO_get_ex_data: function(bio : PBIO; idx : TIdC_INT) : Pointer cdecl = nil; - {$EXTERNALSYM BIO_ctrl} - BIO_ctrl : function(bp: PBIO; cmd: TIdC_INT; larg: TIdC_LONG; parg: Pointer): TIdC_LONG cdecl = nil; - {$EXTERNALSYM BIO_ptr_ctrl} - BIO_ptr_ctrl : function(bp : PBIO; cmd : TIdC_INT; larg : TIdC_LONG) : PIdAnsiChar cdecl = nil; - {$EXTERNALSYM BIO_int_ctrl} - BIO_int_ctrl : function(bp : PBIO; cmd : TIdC_INT; larg : TIdC_LONG; iArg : TIdC_INT) : TIdC_LONG cdecl = nil; - {$EXTERNALSYM BIO_callback_ctrl} - BIO_callback_ctrl : function(b : PBIO; cmd : TIdC_INT; fp : SSL_callback_ctrl_fp ) : TIdC_LONG cdecl = nil; - {$EXTERNALSYM BIO_new_file} - BIO_new_file : function(const filename: PIdAnsiChar; const mode: PIdAnsiChar): PBIO cdecl = nil; - {$EXTERNALSYM BIO_puts} - BIO_puts : function(b: PBIO; const txt: PIdAnsiChar): TIdC_INT cdecl = nil; - {$EXTERNALSYM BIO_read} - BIO_read : function(b: PBIO; data: Pointer; len: TIdC_INT): TIdC_INT cdecl = nil; - {$EXTERNALSYM BIO_write} - BIO_write : function(b: PBIO; const buf: Pointer; len: TIdC_INT): TIdC_INT cdecl = nil; - {$EXTERNALSYM BN_hex2bn} - BN_hex2bn: function(var n:PBIGNUM; const Str: PIdAnsiChar): TIdC_INT cdecl = nil; - {$EXTERNALSYM BN_new} - BN_new : function(): PBIGNUM cdecl = nil; - {$EXTERNALSYM BN_free} - BN_free : procedure(a: PBIGNUM) cdecl = nil; - {$EXTERNALSYM BN_bn2dec} - BN_bn2dec: function(const n:PBIGNUM): PIdAnsiChar cdecl = nil; - {$EXTERNALSYM BN_bn2hex} - BN_bn2hex: function(const n:PBIGNUM): PIdAnsiChar cdecl = nil; - {$EXTERNALSYM BN_set_word} - BN_set_word: function(a: PBIGNUM; w: TIdC_ULONG): TIdC_INT cdecl = nil; - {$EXTERNALSYM DH_free} - DH_free : procedure(dh: PDH) cdecl = nil; - - {$IFNDEF SSLEAY_MACROS} - //Note that these are defined as a pointer to a pointer to a structure. - //This is done because the pointer being passed could be nil. The pointer is probably - //more of a template than anything. If it is used, it should be initialized to nil. - {$EXTERNALSYM _PEM_read_bio_X509} - _PEM_read_bio_X509 : function(bp: PBIO; x: PPX509; cb: ppem_password_cb; u: Pointer): PX509 cdecl = nil; - {$EXTERNALSYM _PEM_read_bio_X509_REQ} - _PEM_read_bio_X509_REQ : function(bp :PBIO; x : PPX509_REQ; cb :ppem_password_cb; u: PIdAnsiChar) : PX509_REQ cdecl = nil; - {$EXTERNALSYM _PEM_read_bio_X509_CRL} - _PEM_read_bio_X509_CRL : function(bp : PBIO; x : PPX509_CRL;cb : ppem_password_cb; u: Pointer) : PX509_CRL cdecl = nil; - {$EXTERNALSYM _PEM_read_bio_RSAPrivateKey} - _PEM_read_bio_RSAPrivateKey : function(bp : PBIO; x : PPRSA; cb : ppem_password_cb; u: Pointer) : PRSA cdecl = nil; - {$EXTERNALSYM _PEM_read_bio_RSAPublicKey} - _PEM_read_bio_RSAPublicKey : function(bp : PBIO; x : PPRSA; cb : ppem_password_cb; u: Pointer) : PRSA cdecl = nil; - {$EXTERNALSYM _PEM_read_bio_DSAPrivateKey} - _PEM_read_bio_DSAPrivateKey : function(bp : PBIO; x : PPDSA; cb : ppem_password_cb; u : Pointer) : PDSA cdecl = nil; - {$EXTERNALSYM _PEM_read_bio_PrivateKey} - _PEM_read_bio_PrivateKey : function(bp : PBIO; x : PPEVP_PKEY; cb : ppem_password_cb; u : Pointer) : PEVP_PKEY cdecl = nil; - {$EXTERNALSYM _PEM_read_bio_PKCS7} - _PEM_read_bio_PKCS7 : function(bp : PBIO; x : PPPKCS7; cb : ppem_password_cb; u : Pointer) : PPKCS7 cdecl = nil; - {$EXTERNALSYM _PEM_read_bio_DHparams} - _PEM_read_bio_DHparams : function(bp : PBIO; x : PPDH; cb : ppem_password_cb; u : Pointer) : PDH cdecl = nil; - {$EXTERNALSYM _PEM_read_bio_DSAparams} - _PEM_read_bio_DSAparams : function(bp : PBIO; x : PPDSA; cb : ppem_password_cb; u : Pointer) : PDSA cdecl = nil; - {$EXTERNALSYM _PEM_read_bio_NETSCAPE_CERT_SEQUENCE} - _PEM_read_bio_NETSCAPE_CERT_SEQUENCE : function(bp : PBIO; x : PPNETSCAPE_CERT_SEQUENCE; - cb : ppem_password_cb; u : Pointer) : PNETSCAPE_CERT_SEQUENCE cdecl = nil; - {$EXTERNALSYM _PEM_read_bio_PUBKEY} - _PEM_read_bio_PUBKEY : function(bp : PBIO; x : PPEVP_PKEY; cb : ppem_password_cb; u : Pointer) : PEVP_PKEY cdecl = nil; - {$EXTERNALSYM _PEM_write_bio_X509} - _PEM_write_bio_X509 : function(b: PBIO; x: PX509): TIdC_INT cdecl = nil; - {$EXTERNALSYM _PEM_write_bio_X509_REQ} - _PEM_write_bio_X509_REQ : function(bp: PBIO; x: PX509_REQ): TIdC_INT cdecl = nil; - {$EXTERNALSYM _PEM_write_bio_X509_CRL} - _PEM_write_bio_X509_CRL : function(bp : PBIO; x : PX509_CRL) : TIdC_INT cdecl = nil; - {$EXTERNALSYM _PEM_write_bio_RSAPublicKey} - _PEM_write_bio_RSAPublicKey : function(bp : PBIO; x : PRSA) : TIdC_INT cdecl = nil; - {$EXTERNALSYM _PEM_write_bio_RSAPrivateKey} - _PEM_write_bio_RSAPrivateKey : function(bp : PBIO; x : PRSA; const enc : PEVP_CIPHER; - kstr : PIdAnsiChar; klen : TIdC_INT; cb : ppem_password_cb; u : POinter) : TIdC_INT cdecl = nil; - {$EXTERNALSYM _PEM_write_bio_DSAPrivateKey} - _PEM_write_bio_DSAPrivateKey : function(bp : PBIO; x : PDSA; const enc : PEVP_CIPHER; - kstr : PIdAnsiChar; klen : TIdC_INT; cb : Ppem_password_cb; u : Pointer) : TIdC_INT cdecl = nil; - {$EXTERNALSYM _PEM_write_bio_PrivateKey} - _PEM_write_bio_PrivateKey : function(bp : PBIO; x : PEVP_PKEY; const enc : PEVP_CIPHER; - kstr : PIdAnsiChar; klen : TIdC_INT; cb : Ppem_password_cb; u : Pointer) : TIdC_INT cdecl = nil; - {$EXTERNALSYM _PEM_write_bio_PKCS7} - _PEM_write_bio_PKCS7 : function(bp : PBIO; x : PPKCS7) : TIdC_INT cdecl = nil; - {$EXTERNALSYM _PEM_write_bio_DHparams} - _PEM_write_bio_DHparams : function(bp : PBIO; x : PDH): TIdC_INT cdecl = nil; - {$EXTERNALSYM _PEM_write_bio_DSAparams} - _PEM_write_bio_DSAparams : function(bp : PBIO; x : PDSA) : TIdC_INT cdecl = nil; - {$EXTERNALSYM _PEM_write_bio_NETSCAPE_CERT_SEQUENCE} - _PEM_write_bio_NETSCAPE_CERT_SEQUENCE : function(bp : PBIO; x : PDSA) : TIdC_INT cdecl = nil; - {$IFNDEF OPENSSL_NO_BIO} - {$EXTERNALSYM _PEM_write_bio_PKCS8PrivateKey} - _PEM_write_bio_PKCS8PrivateKey : function(bp: PBIO; key: PEVP_PKEY; enc: PEVP_CIPHER; - kstr: PIdAnsiChar; klen: TIdC_INT; cb: ppem_password_cb; u: Pointer): TIdC_INT cdecl = nil; - {$EXTERNALSYM _PEM_write_bio_PUBKEY} - _PEM_write_bio_PUBKEY : function(bp: PBIO; x: PEVP_PKEY): TIdC_INT cdecl = nil; - {$ENDIF} - {$ELSE} - {$IFNDEF OPENSSL_NO_BIO} - {$EXTERNALSYM PEM_ASN1_write_bio} - PEM_ASN1_write_bio : function(i2d: i2d_of_void; const name: PIdAnsiChar; - bp: PBIO; x: PIdAnsiChar; const enc: PEVP_CIPHER; kstr: PIdAnsiChar; klen: TIdC_INT; - cb: ppem_password_cb; u: Pointer):TIdC_INT cdecl = nil; - {$EXTERNALSYM PEM_ASN1_read_bio} - PEM_ASN1_read_bio : function(d2i: d2i_OF_void; name: PIdAnsiChar; bp: PBIO; - x: PPointer; cb: ppem_password_cb; u:Pointer): Pointer cdecl = nil; - {$ENDIF} - {$ENDIF} - {$EXTERNALSYM PEM_X509_INFO_read_bio} - PEM_X509_INFO_read_bio : function (bp : PBIO; sk : PSTACK_OF_X509_INFO; - cb : ppem_password_cb; u : Pointer) : PSTACK_OF_X509_INFO cdecl = nil; - {$EXTERNALSYM PEM_read_bio_X509_AUX} - PEM_read_bio_X509_AUX : function (bp : PBIO; x : PPX509; - cb : ppem_password_cb; u : Pointer) : PX509 cdecl = nil; - {$EXTERNALSYM EVP_DigestInit} - EVP_DigestInit : function(ctx : PEVP_MD_CTX; _type : PEVP_MD) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_DigestFinal} - EVP_DigestFinal : function(ctx : PEVP_MD_CTX;md : PIdAnsiChar; s : TIdC_UINT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_DigestInit_ex} - EVP_DigestInit_ex : function (ctx : PEVP_MD_CTX; const AType : PEVP_MD; impl : PENGINE) : TIdC_Int cdecl = nil; - {$EXTERNALSYM EVP_DigestUpdate} - EVP_DigestUpdate : function (ctx : PEVP_MD_CTX; d : Pointer; cnt : size_t) : TIdC_Int cdecl = nil; - {$EXTERNALSYM EVP_DigestFinal_ex} - EVP_DigestFinal_ex : function(ctx : PEVP_MD_CTX; md : PIdAnsiChar; var s : TIdC_UInt) : TIdC_Int cdecl = nil; - {$EXTERNALSYM EVP_EncryptInit} - EVP_EncryptInit : function(ctx : PEVP_CIPHER_CTX;cipher : PEVP_CIPHER; - key : PIdAnsiChar; iv : PIdAnsiChar) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_EncryptInit_ex} - EVP_EncryptInit_ex : function(ctx : PEVP_CIPHER_CTX; cipher : PEVP_CIPHER; impl : PENGINE; - key : PIdAnsiChar; iv : PIdAnsiChar) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_EncryptUpdate} - EVP_EncryptUpdate : function(ctx : PEVP_CIPHER_CTX; _out : PIdAnsiChar; - outl : PIdC_INT; _in : PIdAnsiChar; inl : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_EncryptFinal_ex} - EVP_EncryptFinal_ex : function(ctx : PEVP_CIPHER_CTX; _out : PIdAnsiChar; outl : PIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_EncryptFinal} - EVP_EncryptFinal : function(ctx : PEVP_CIPHER_CTX; _out : PIdAnsiChar; outl: PIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_DecryptInit} - EVP_DecryptInit : function(ctx : PEVP_CIPHER_CTX; cipher : PEVP_CIPHER; - key : PIdAnsiChar; iv : PIdAnsiChar) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_DecryptInit_ex} - EVP_DecryptInit_ex : function(ctx : PEVP_CIPHER_CTX; cipher : PEVP_CIPHER; impl : PENGINE; - key : PIdAnsiChar; iv : PIdAnsiChar) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_DecryptUpdate} - EVP_DecryptUpdate : function(ctx : PEVP_CIPHER_CTX; _out : PIdAnsiChar; - outl : PIdC_INT; _in : PIdAnsiChar; inl : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_DecryptFinal} - EVP_DecryptFinal : function(ctx : PEVP_CIPHER_CTX; outm : PIdAnsiChar; outl : PIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_DecryptFinal_ex} - EVP_DecryptFinal_ex : function(ctx : PEVP_CIPHER_CTX; outm: PIdAnsiChar; outl : PIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CipherInit} - EVP_CipherInit : function(ctx : PEVP_CIPHER_CTX; cipher : PEVP_CIPHER; - key : PIdAnsiChar; iv : PIdAnsiChar; - enc : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CipherInit_ex} - EVP_CipherInit_ex : function(ctx : PEVP_CIPHER_CTX; cipher: PEVP_CIPHER; impl : PENGINE; - key : PIdAnsiChar; iv : PIdAnsiChar; - enc : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CipherUpdate} - EVP_CipherUpdate : function(ctx : PEVP_CIPHER_CTX; _out : PIdAnsiChar; - outl : PIdC_INT; _in : PIdAnsiChar; inl : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CipherFinal} - EVP_CipherFinal : function(ctx : PEVP_CIPHER_CTX; outm : PIdAnsiChar; outl : PIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CipherFinal_ex} - EVP_CipherFinal_ex: function(ctx : PEVP_CIPHER_CTX; outm : PIdAnsiChar; outl : PIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_SignFinal} - EVP_SignFinal : function(ctx : PEVP_MD_CTX; md : PIdAnsiChar; s : PIdC_INT; - pkey : PEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_VerifyFinal} - EVP_VerifyFinal : function(ctx : PEVP_MD_CTX; sigbuf : PIdAnsiChar; - siglen : TIdC_UINT; pkey : PEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_DigestSignInit} - EVP_DigestSignInit : function(ctx : PEVP_MD_CTX; pctx : PPEVP_PKEY_CTX; - _type : PEVP_MD; e : PENGINE; pkey : PEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_DigestSignFinal} - EVP_DigestSignFinal : function(ctx : PEVP_MD_CTX; - sigret : PIdAnsiChar; siglen : Psize_t) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_DigestVerifyInit} - EVP_DigestVerifyInit : function(ctx : PEVP_MD_CTX; pctx : PPEVP_PKEY_CTX; - _type : PEVP_MD;e : PENGINE; pkey : PEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_DigestVerifyFinal} - EVP_DigestVerifyFinal: function(ctx : PEVP_MD_CTX; - sig : PIdAnsiChar; siglen : size_t) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_OpenInit} - EVP_OpenInit : function(ctx : PEVP_CIPHER_CTX; _type : PEVP_CIPHER; - ek : PIdAnsiChar; ekl : TIdC_INT; iv : PIdAnsiChar; - priv : PEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_OpenFinal} - EVP_OpenFinal : function (ctx : PEVP_CIPHER_CTX; _out : PIdAnsiChar; outl : PIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_SealInit} - EVP_SealInit : function(ctx : PEVP_CIPHER_CTX; _type : PEVP_CIPHER; - ek : PPIdAnsiChar; ekl : PIdC_INT; iv : PIdAnsiChar; - pubk : PPEVP_PKEY; npubk : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_SealFinal} - EVP_SealFinal : function(ctx : PEVP_CIPHER_CTX; _out : PIdAnsiChar; outl : PIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_EncodeInit} - EVP_EncodeInit : procedure(ctx : PEVP_ENCODE_CTX) cdecl = nil; - {$EXTERNALSYM EVP_EncodeUpdate} - EVP_EncodeUpdate : procedure(ctx : PEVP_ENCODE_CTX; _out : PIdAnsiChar; outl : PIdC_INT; - _in : PIdAnsiChar; inl : TIdC_INT) cdecl = nil; - {$EXTERNALSYM EVP_EncodeFinal} - EVP_EncodeFinal : procedure(ctx : PEVP_ENCODE_CTX; _out: PIdAnsiChar; outl : PIdC_INT) cdecl = nil; - {$EXTERNALSYM EVP_EncodeBlock} - EVP_EncodeBlock : function(t: PIdAnsiChar; f: PIdAnsiChar; n : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_DecodeInit} - EVP_DecodeInit : procedure(ctx : PEVP_ENCODE_CTX) cdecl = nil; - {$EXTERNALSYM EVP_DecodeUpdate} - EVP_DecodeUpdate : function(ctx : PEVP_ENCODE_CTX; _out : PIdAnsiChar; outl : PIdC_INT; - _in : PIdAnsiChar; inl : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_DecodeFinal} - EVP_DecodeFinal: function(ctx : PEVP_ENCODE_CTX; _out : PIdAnsiChar; outl : PIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_DecodeBlock} - EVP_DecodeBlock : function(t: PIdAnsiChar; f: PIdAnsiChar; n : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_CTX_init} - EVP_CIPHER_CTX_init : procedure(a : PEVP_CIPHER_CTX) cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_CTX_cleanup} - EVP_CIPHER_CTX_cleanup : function(a : PEVP_CIPHER_CTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_CTX_new} - EVP_CIPHER_CTX_new : function : PEVP_CIPHER_CTX cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_CTX_free} - EVP_CIPHER_CTX_free: procedure(a : PEVP_CIPHER_CTX) cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_CTX_set_key_length} - EVP_CIPHER_CTX_set_key_length : function(x : PEVP_CIPHER_CTX; keylen : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_CTX_set_padding} - EVP_CIPHER_CTX_set_padding : function(c : PEVP_CIPHER_CTX; pad : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_CTX_ctrl} - EVP_CIPHER_CTX_ctrl : function(ctx : PEVP_CIPHER_CTX; _type : TIdC_INT; arg : TIdC_INT; ptr : Pointer) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_CTX_rand_key} - EVP_CIPHER_CTX_rand_key : function(ctx : PEVP_CIPHER_CTX; key : PIdAnsiChar) : TIdC_INT cdecl = nil; - {$ifndef OPENSSL_NO_BIO} - {$EXTERNALSYM BIO_f_md} - BIO_f_md : function : PBIO_METHOD cdecl = nil; - {$EXTERNALSYM BIO_f_base64} - BIO_f_base64 : function : PBIO_METHOD cdecl = nil; - {$EXTERNALSYM BIO_f_cipher} - BIO_f_cipher : function : PBIO_METHOD cdecl = nil; - {$EXTERNALSYM BIO_f_reliable} - BIO_f_reliable : function : PBIO_METHOD cdecl = nil; - {$EXTERNALSYM BIO_set_cipher} - BIO_set_cipher : procedure (b : PBIO; c : PEVP_CIPHER; k : PIdAnsiChar; - i : PIdAnsiChar; enc : TIdC_INT) cdecl = nil; - {$endif} - {$EXTERNALSYM EVP_MD_CTX_init} - EVP_MD_CTX_init : procedure(ctx : PEVP_MD_CTX) cdecl = nil; - {$EXTERNALSYM EVP_MD_CTX_cleanup} - EVP_MD_CTX_cleanup : function(ctx : PEVP_MD_CTX) : TIdC_Int cdecl = nil; - {$EXTERNALSYM EVP_MD_CTX_create} - EVP_MD_CTX_create: function : PEVP_MD_CTX cdecl = nil; - {$EXTERNALSYM EVP_MD_CTX_destroy} - EVP_MD_CTX_destroy : procedure(ctx : PEVP_MD_CTX) cdecl = nil; - {$EXTERNALSYM EVP_MD_CTX_copy} - EVP_MD_CTX_copy : function(_out : PEVP_MD_CTX; _in: PEVP_MD_CTX): TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_MD_CTX_copy_ex} - EVP_MD_CTX_copy_ex : function (_out : PEVP_MD_CTX; const _in: PEVP_MD_CTX): TIdC_INT cdecl = nil; - - {$IFNDEF OPENSSL_NO_DES} - {$EXTERNALSYM EVP_des_ede3_cbc} - EVP_des_ede3_cbc : function: PEVP_CIPHER cdecl = nil; - {$ENDIF} - {$EXTERNALSYM EVP_PKEY_new} - EVP_PKEY_new : function : PEVP_PKEY cdecl = nil; - - {$EXTERNALSYM EVP_PKEY_free} - EVP_PKEY_free : procedure(pkey: PEVP_PKEY) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_assign} - EVP_PKEY_assign : function(pkey: PEVP_PKEY; _type: TIdC_INT; key: Pointer): TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_get_cipherbyname} - EVP_get_cipherbyname : function(const name : PIdAnsiChar): PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_get_digestbyname} - EVP_get_digestbyname : function(const name: PIdAnsiChar): PEVP_MD cdecl = nil; - {$EXTERNALSYM EVP_MD_type} - EVP_MD_type : function (md : PEVP_MD) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_MD_size} - EVP_MD_size : function (md : PEVP_MD) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_MD_block_size} - EVP_MD_block_size : function (md : PEVP_MD) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_MD_flags} - EVP_MD_flags : function (md : PEVP_MD) : TIdC_ULONG cdecl = nil; - {$EXTERNALSYM EVP_MD_CTX_md} - EVP_MD_CTX_md : function (ctx : PEVP_MD_CTX) : PEVP_MD cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_nid} - EVP_CIPHER_nid : function (cipher : PEVP_CIPHER) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_block_size} - EVP_CIPHER_block_size : function(cipher : PEVP_CIPHER) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_key_length} - EVP_CIPHER_key_length : function(cipher : EVP_CIPHER) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_iv_length} - EVP_CIPHER_iv_length : function(cipher: PEVP_CIPHER) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_flags} - EVP_CIPHER_flags : function(cipher : PEVP_CIPHER) : TIdC_ULONG cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_type} - EVP_CIPHER_type : function(ctx : PEVP_CIPHER) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_CTX_cipher} - EVP_CIPHER_CTX_cipher : function (ctx : PEVP_CIPHER_CTX) : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_CTX_nid} - EVP_CIPHER_CTX_nid : function (ctx : PEVP_CIPHER_CTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_CTX_block_size} - EVP_CIPHER_CTX_block_size : function(ctx : PEVP_CIPHER_CTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_CTX_key_length} - EVP_CIPHER_CTX_key_length : function(ctx : PEVP_CIPHER_CTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_CTX_iv_length} - EVP_CIPHER_CTX_iv_length : function(ctx : PEVP_CIPHER_CTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_CTX_copy} - EVP_CIPHER_CTX_copy : function(_out : PEVP_CIPHER_CTX; _in : PEVP_CIPHER_CTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_CTX_get_app_data} - EVP_CIPHER_CTX_get_app_data : function(ctx : PEVP_CIPHER_CTX) : Pointer cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_CTX_set_app_data} - EVP_CIPHER_CTX_set_app_data : procedure(ctx : PEVP_CIPHER_CTX; data : Pointer) cdecl =nil; - {$EXTERNALSYM EVP_CIPHER_CTX_flags} - EVP_CIPHER_CTX_flags : function(ctx : PEVP_CIPHER_CTX) : TIdC_ULONG cdecl = nil; - {$EXTERNALSYM ASN1_INTEGER_set} - ASN1_INTEGER_set : function(a: PASN1_INTEGER; v: TIdC_LONG): TIdC_INT cdecl = nil; - {$EXTERNALSYM ASN1_INTEGER_get} - ASN1_INTEGER_get : function(a: PASN1_INTEGER) : TIdC_LONG cdecl = nil; - //IdSslAsn1UtcTimeNew : function: Pointer cdecl = nil; - {$EXTERNALSYM ASN1_INTEGER_to_BN} - ASN1_INTEGER_to_BN : function(a: PASN1_INTEGER; bn: PBIGNUM) : PBIGNUM cdecl = nil; - {$EXTERNALSYM ASN1_STRING_type_new} - ASN1_STRING_type_new : function(_type: TIdC_INT): PASN1_STRING cdecl = nil; - {$EXTERNALSYM ASN1_STRING_free} - ASN1_STRING_free : procedure(a: PASN1_STRING) cdecl = nil; - {$EXTERNALSYM ASN1_dup} - ASN1_dup : function (i2d : i2d_of_void; d2i : d2i_of_void; x : PIdAnsiChar) : Pointer cdecl = nil; - {$EXTERNALSYM i2d_X509} - i2d_X509 : function(x: PX509; buf: PPByte) : TIdC_INT cdecl = nil; - {$EXTERNALSYM d2i_X509} - d2i_X509 : function(pr : PX509; _in : PPByte; len : TIdC_INT): PX509 cdecl = nil; - {$EXTERNALSYM i2d_X509_NAME} - i2d_X509_NAME : function(x : PX509_NAME; buf : PPByte) : TIdC_INT cdecl = nil; - {$EXTERNALSYM d2i_X509_NAME} - d2i_X509_NAME : function(pr : PPX509_NAME; _in : PPByte; length : TIdC_LONG):PX509_NAME cdecl = nil; - {$EXTERNALSYM i2d_X509_REQ} - i2d_X509_REQ : function(x: PX509_REQ; buf: PPByte): TIdC_INT cdecl = nil; - {$EXTERNALSYM d2i_X509_REQ} - d2i_X509_REQ : function(pr : PX509_REQ; _in : PPByte; len : TIdC_INT): PX509_REQ cdecl = nil; - {$EXTERNALSYM i2d_X509_CRL} - i2d_X509_CRL : function(x: PX509_CRL; buf: PPByte): TIdC_INT cdecl = nil; - {$EXTERNALSYM d2i_X509_CRL} - d2i_X509_CRL : function(pr : PX509_CRL; _in : PPByte; len : TIdC_INT): PX509_REQ cdecl = nil; - {$EXTERNALSYM i2d_RSAPrivateKey} - i2d_RSAPrivateKey : function(x: PRSA; buf: PPByte): TIdC_INT cdecl = nil; - {$EXTERNALSYM d2i_RSAPrivateKey} - d2i_RSAPrivateKey : function(pr : PRSA; _in : PPByte; len : TIdC_INT): PRSA cdecl = nil; - {$EXTERNALSYM i2d_RSAPublicKey} - i2d_RSAPublicKey : function(x: PRSA; buf: PPByte): TIdC_INT cdecl = nil; - {$EXTERNALSYM d2i_RSAPublicKey} - d2i_RSAPublicKey : function(pr : PRSA; _in : PPByte; len : TIdC_INT): PRSA cdecl = nil; - {$EXTERNALSYM i2d_DSAPrivateKey} - i2d_DSAPrivateKey : function(x: PDSA; buf: PPByte): TIdC_INT cdecl = nil; - {$EXTERNALSYM d2i_DSAPrivateKey} - d2i_DSAPrivateKey : function(pr : PDSA; _in : PPByte; len : TIdC_INT): PDSA cdecl = nil; - {$EXTERNALSYM i2d_PrivateKey} - i2d_PrivateKey : function(x: PEVP_PKEY; buf: PPByte): TIdC_INT cdecl = nil; - {$EXTERNALSYM d2i_PrivateKey} - d2i_PrivateKey : function(pr : PEVP_PKEY; _in : PPByte; len : TIdC_INT): PEVP_PKEY cdecl = nil; - {$EXTERNALSYM i2d_PKCS7} - i2d_PKCS7 : function(x: PPKCS7; buf: PPByte): TIdC_INT cdecl = nil; - {$EXTERNALSYM d2i_PKCS7} - d2i_PKCS7 : function(pr : PPKCS7; _in : PPByte; len : TIdC_INT): PPKCS7 cdecl = nil; - {$EXTERNALSYM i2d_DHparams} - i2d_DHparams : function(x: PDH; buf: PPByte): TIdC_INT cdecl = nil; - {$EXTERNALSYM d2i_DHparams} - d2i_DHparams : function(pr : PDH; _in : PPByte; len : TIdC_INT): PDH cdecl = nil; - {$EXTERNALSYM i2d_DSAparams} - i2d_DSAparams : function(x: PDSA; buf: PPByte): TIdC_INT cdecl = nil; - {$EXTERNALSYM d2i_DSAparams} - d2i_DSAparams : function(pr : PDSA; _in : PPByte; len : TIdC_INT): PDSA cdecl = nil; -//NETSCAPE_CERT_SEQUENCE - {$EXTERNALSYM i2d_NETSCAPE_CERT_SEQUENCE} - i2d_NETSCAPE_CERT_SEQUENCE : function(x: PNETSCAPE_CERT_SEQUENCE; buf: PPByte): TIdC_INT cdecl = nil; - {$EXTERNALSYM d2i_NETSCAPE_CERT_SEQUENCE} - d2i_NETSCAPE_CERT_SEQUENCE : function(pr : PNETSCAPE_CERT_SEQUENCE; _in : PPByte; len : TIdC_INT): PNETSCAPE_CERT_SEQUENCE cdecl = nil; - {$EXTERNALSYM i2d_PUBKEY} - i2d_PUBKEY : function(x: PEVP_PKEY; buf: PPByte): TIdC_INT cdecl = nil; - {$EXTERNALSYM d2i_PUBKEY} - d2i_PUBKEY : function(pr : PEVP_PKEY; _in : PPByte; len : TIdC_INT): PEVP_PKEY cdecl = nil; - - {$IFNDEF OPENSSL_NO_BIO} - {$EXTERNALSYM d2i_X509_bio} - d2i_X509_bio : function(bp: PBIO; x: PPx509): PX509 cdecl = nil; - {$EXTERNALSYM i2d_X509_REQ_bio} - i2d_X509_REQ_bio : function(bp: PBIO; x: PX509_REQ): TIdC_INT cdecl = nil; - {$EXTERNALSYM i2d_X509_bio} - i2d_X509_bio : function(bp: PBIO; x: PX509): TIdC_INT cdecl = nil; - {$EXTERNALSYM i2d_PrivateKey_bio} - i2d_PrivateKey_bio : function(b: PBIO; pkey: PEVP_PKEY): TIdC_INT cdecl = nil; - //P12 additions - {$EXTERNALSYM d2i_PKCS12_bio} - d2i_PKCS12_bio: function(bp: PBIO; x: PPPKCS12): PPKCS12 cdecl = nil; - {$EXTERNALSYM PKCS12_parse} - PKCS12_parse: function(P12: PPKCS12; Password: PIdAnsiChar; out PrivateKey: PEVP_PKEY; out Cert: PX509; CertChain: PPSTACK_OF_X509): TIdC_INT cdecl = nil; - {$ENDIF} - - {$EXTERNALSYM X509_new} - X509_new : function: PX509 cdecl = nil; - {$EXTERNALSYM X509_free} - X509_free : procedure(x: PX509) cdecl = nil; - {$EXTERNALSYM X509_NAME_new} - X509_NAME_new : function :PX509_NAME cdecl = nil; - {$EXTERNALSYM X509_NAME_free} - X509_NAME_free : procedure(x:PX509_NAME) cdecl = nil; - {$EXTERNALSYM X509_REQ_new} - X509_REQ_new : function :PX509_REQ cdecl = nil; - {$EXTERNALSYM X509_REQ_free} - X509_REQ_free : procedure(x:PX509_REQ) cdecl = nil; - {$EXTERNALSYM X509_to_X509_REQ} - X509_to_X509_REQ : function(x: PX509; pkey: PEVP_PKEY; const md: PEVP_MD): PX509_REQ cdecl = nil; - {$EXTERNALSYM X509_NAME_add_entry_by_txt} - X509_NAME_add_entry_by_txt : function(name: PX509_NAME; const field: PIdAnsiChar; _type: TIdC_INT; - const bytes: PIdAnsiChar; len, loc, _set: TIdC_INT): TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_INFO_free} - X509_INFO_free : procedure (a : PX509_INFO) cdecl = nil; - {$EXTERNALSYM X509_set_version} - X509_set_version : function(x: PX509; version: TIdC_LONG): TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_get_serialNumber} - X509_get_serialNumber : function(x: PX509): PASN1_INTEGER cdecl = nil; - {$EXTERNALSYM X509_gmtime_adj} - X509_gmtime_adj : function(s: PASN1_TIME; adj: TIdC_LONG): PASN1_TIME cdecl = nil; - {$EXTERNALSYM X509_set_notBefore} - X509_set_notBefore : function(x: PX509; tm: PASN1_TIME): TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_set_notAfter} - X509_set_notAfter : function(x: PX509; tm: PASN1_TIME): TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_set_pubkey} - X509_set_pubkey : function(x: PX509; pkey: PEVP_PKEY): TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_REQ_set_pubkey} - X509_REQ_set_pubkey : function(x: PX509_REQ; pkey: PEVP_PKEY): TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_PUBKEY_get} - X509_PUBKEY_get : function(key: PX509_PUBKEY): PEVP_PKEY cdecl = nil; - {$EXTERNALSYM X509_verify} - X509_verify : function(x509: PX509; pkey: PEVP_PKEY): TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_sign} - X509_sign : function(x: PX509; pkey: PEVP_PKEY; const md: PEVP_MD): TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_REQ_sign} - X509_REQ_sign : function(x: PX509_REQ; pkey: PEVP_PKEY; const md: PEVP_MD): TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_REQ_add_extensions} - X509_REQ_add_extensions : function(req: PX509_REQ; exts: PSTACK_OF_X509_EXTENSION): TIdC_INT cdecl = nil; - {$EXTERNALSYM X509V3_EXT_conf_nid} - X509V3_EXT_conf_nid : function(conf: PLHASH; ctx: PX509V3_CTX; ext_nid: TIdC_INT; value: PIdAnsiChar): PX509_EXTENSION cdecl = nil; - {$EXTERNALSYM X509_EXTENSION_create_by_NID} - X509_EXTENSION_create_by_NID : function(ex: PPX509_EXTENSION; nid: TIdC_INT; - crit: TIdC_INT; data: PASN1_OCTET_STRING): PX509_EXTENSION cdecl = nil; - {$EXTERNALSYM X509V3_set_ctx} - X509V3_set_ctx : procedure(ctx: PX509V3_CTX; issuer, subject: PX509; req: PX509_REQ; crl: PX509_CRL; flags: TIdC_INT) cdecl = nil; - {$EXTERNALSYM X509_EXTENSION_free} - X509_EXTENSION_free : procedure(ex: PX509_EXTENSION) cdecl = nil; - {$EXTERNALSYM X509_add_ext} - X509_add_ext : function(cert: PX509; ext: PX509_EXTENSION; loc: TIdC_INT): TIdC_INT cdecl = nil; - {$IFNDEF OPENSSL_NO_BIO} - {$EXTERNALSYM X509_print} - X509_print : function(bp : PBIO; x : PX509) : TIdC_INT cdecl = nil; - {$ENDIF} - {$EXTERNALSYM X509_STORE_add_lookup} - X509_STORE_add_lookup : function (v : PX509_STORE; m : PX509_LOOKUP_METHOD) : PX509_LOOKUP cdecl = nil; - {$EXTERNALSYM X509_STORE_load_locations} - X509_STORE_load_locations : function ( ctx : PX509_STORE; const _file, path : PIdAnsiChar) : TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_CTX_set_cipher_list} - SSL_CTX_set_cipher_list : function(_para1: PSSL_CTX; const str: PIdAnsiChar): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_CTX_new} - SSL_CTX_new : function(meth: PSSL_METHOD): PSSL_CTX cdecl = nil; - {$EXTERNALSYM SSL_CTX_free} - SSL_CTX_free : procedure(_para1: PSSL_CTX) cdecl = nil; - {$EXTERNALSYM SSL_set_fd} - SSL_set_fd : function(s: PSSL; fd: TIdC_INT): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_CTX_use_PrivateKey_file} - SSL_CTX_use_PrivateKey_file : function(ctx: PSSL_CTX; const _file: PIdAnsiChar; _type: TIdC_INT): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_CTX_use_PrivateKey} - SSL_CTX_use_PrivateKey : function(ctx: PSSL_CTX; pkey: PEVP_PKEY): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_CTX_use_certificate} - SSL_CTX_use_certificate : function(ctx: PSSL_CTX; x: PX509): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_CTX_use_certificate_file} - SSL_CTX_use_certificate_file : function(ctx: PSSL_CTX; const _file: PIdAnsiChar; _type: TIdC_INT): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_CTX_use_certificate_chain_file} //OpenSSL 1.0.2 - SSL_CTX_use_certificate_chain_file : function(ctx : PSSL_CTX; _file : PIdAnsiChar) : TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_load_error_strings} - SSL_load_error_strings : procedure cdecl = nil; - {$EXTERNALSYM SSL_state_string_long} - SSL_state_string_long : function(s: PSSL): PIdAnsiChar cdecl = nil; - {$EXTERNALSYM SSL_alert_desc_string_long} - SSL_alert_desc_string_long : function(value : TIdC_INT) : PIdAnsiChar cdecl = nil; - {$EXTERNALSYM SSL_alert_type_string_long} - SSL_alert_type_string_long : function(value : TIdC_INT) : PIdAnsiChar cdecl = nil; - {$EXTERNALSYM SSL_get_peer_certificate} - SSL_get_peer_certificate : function(s: PSSL): PX509 cdecl = nil; - {$EXTERNALSYM SSL_CTX_set_verify} - SSL_CTX_set_verify : procedure(ctx: PSSL_CTX; mode: TIdC_INT; callback: TSSL_CTX_set_verify_callback) cdecl = nil; - {$EXTERNALSYM SSL_CTX_set_verify_depth} - SSL_CTX_set_verify_depth : procedure(ctx: PSSL_CTX; depth: TIdC_INT) cdecl = nil; - {$EXTERNALSYM SSL_CTX_get_verify_depth} - SSL_CTX_get_verify_depth : function (ctx: PSSL_CTX): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_CTX_set_default_passwd_cb} - SSL_CTX_set_default_passwd_cb : procedure(ctx: PSSL_CTX; cb: ppem_password_cb) cdecl = nil; - {$EXTERNALSYM SSL_CTX_set_default_passwd_cb_userdata} - SSL_CTX_set_default_passwd_cb_userdata: procedure(ctx: PSSL_CTX; u: Pointer) cdecl = nil; - {$EXTERNALSYM SSL_CTX_check_private_key} - SSL_CTX_check_private_key : function(ctx: PSSL_CTX): TIdC_INT cdecl = nil; - - - {$EXTERNALSYM SSL_new} - SSL_new : function(ctx: PSSL_CTX): PSSL cdecl = nil; - {$EXTERNALSYM SSL_free} - SSL_free : procedure(ssl: PSSL) cdecl = nil; - {$EXTERNALSYM SSL_accept} - SSL_accept : function(ssl: PSSL): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_connect} - SSL_connect : function(ssl: PSSL): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_read} - SSL_read : function(ssl: PSSL; buf: Pointer; num: TIdC_INT): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_peek} - SSL_peek : function(ssl: PSSL; buf: Pointer; num: TIdC_INT): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_write} - SSL_write : function(ssl: PSSL; const buf: Pointer; num: TIdC_INT): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_pending} - SSL_pending : function(ssl : PSSL) : TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_CTX_ctrl} - //long SSL_CTX_ctrl(SSL_CTX *ctx,int cmd, long larg, void *parg); - SSL_CTX_ctrl : function(ssl: PSSL_CTX; cmd: TIdC_INT; larg: TIdC_LONG; parg: Pointer): TIdC_LONG cdecl = nil; - {$EXTERNALSYM SSL_ctrl} - //long SSL_ctrl(SSL *ssl,int cmd, long larg, void *parg); - SSL_ctrl : function(ssl : PSSL; cmd : TIdC_INT; larg : TIdC_LONG; parg : Pointer) : TIdC_LONG cdecl = nil; - {$EXTERNALSYM SSL_callback_ctrl} - //long SSL_callback_ctrl(SSL *, int, void (*)(void)); - SSL_callback_ctrl : function(ssl : PSSL; cmd : TIdC_INT; fp : SSL_callback_ctrl_fp) : TIdC_LONG cdecl = nil; - {$EXTERNALSYM SSL_CTX_callback_ctrl} - //long SSL_CTX_callback_ctrl(SSL_CTX *, int, void (*)(void)); - SSL_CTX_callback_ctrl : function(ssl : PSSL_CTX; cmd : TIdC_INT; fp : SSL_callback_ctrl_fp) : TIdC_LONG cdecl = nil; - {$EXTERNALSYM SSL_get_error} - SSL_get_error : function(s: PSSL; ret_code: TIdC_INT): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSLv2_method} - SSLv2_method : function: PSSL_METHOD cdecl = nil; // SSLv2 - {$EXTERNALSYM SSLv2_server_method} - SSLv2_server_method : function: PSSL_METHOD cdecl = nil; // SSLv2 - {$EXTERNALSYM SSLv2_client_method} - SSLv2_client_method : function: PSSL_METHOD cdecl = nil; // SSLv2 - {$EXTERNALSYM SSLv3_method} - SSLv3_method : function: PSSL_METHOD cdecl = nil; // SSLv3 - {$EXTERNALSYM SSLv3_server_method} - SSLv3_server_method : function: PSSL_METHOD cdecl = nil; // SSLv3 - {$EXTERNALSYM SSLv3_client_method} - SSLv3_client_method : function: PSSL_METHOD cdecl = nil; // SSLv3 - {$EXTERNALSYM SSLv23_method} - SSLv23_method : function: PSSL_METHOD cdecl = nil; // SSLv3 but can rollback to v2 - {$EXTERNALSYM SSLv23_server_method} - SSLv23_server_method : function: PSSL_METHOD cdecl = nil; // SSLv3 but can rollback to v2 - {$EXTERNALSYM SSLv23_client_method} - SSLv23_client_method : function: PSSL_METHOD cdecl = nil; // SSLv3 but can rollback to v2 - {$EXTERNALSYM TLSv1_method} - TLSv1_method : function: PSSL_METHOD cdecl = nil; // TLSv1.0 - {$EXTERNALSYM TLSv1_server_method} - TLSv1_server_method : function: PSSL_METHOD cdecl = nil; // TLSv1.0 - {$EXTERNALSYM TLSv1_client_method} - TLSv1_client_method : function: PSSL_METHOD cdecl = nil; // TLSv1.0 - {$EXTERNALSYM TLSv1_1_method} - TLSv1_1_method : function : PSSL_METHOD cdecl = nil; //TLS1.1 - {$EXTERNALSYM TLSv1_1_server_method} - TLSv1_1_server_method : function : PSSL_METHOD cdecl = nil; //TLS1.1 - {$EXTERNALSYM TLSv1_1_client_method} - TLSv1_1_client_method : function : PSSL_METHOD cdecl = nil; //TLS1.1 - {$EXTERNALSYM TLSv1_2_method} - TLSv1_2_method : function : PSSL_METHOD cdecl = nil; //* TLSv1.2 */ - {$EXTERNALSYM TLSv1_2_server_method} - TLSv1_2_server_method : function : PSSL_METHOD cdecl = nil; //* TLSv1.2 */ - {$EXTERNALSYM TLSv1_2_client_method} - TLSv1_2_client_method : function : PSSL_METHOD cdecl = nil; //* TLSv1.2 */ - - {$EXTERNALSYM DTLSv1_method} - DTLSv1_method : function: PSSL_METHOD cdecl = nil; // DTLSv1.0 - {$EXTERNALSYM DTLSv1_server_method} - DTLSv1_server_method : function: PSSL_METHOD cdecl = nil; // DTLSv1.0 - {$EXTERNALSYM DTLSv1_client_method} - DTLSv1_client_method : function: PSSL_METHOD cdecl = nil; // DTLSv1.0 - {$EXTERNALSYM SSL_shutdown} - SSL_shutdown : function(s: PSSL): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_set_connect_state} - SSL_set_connect_state : procedure(s: PSSL) cdecl = nil; - {$EXTERNALSYM SSL_set_accept_state} - SSL_set_accept_state : procedure(s: PSSL) cdecl = nil; - {$EXTERNALSYM SSL_set_shutdown} - SSL_set_shutdown : procedure(ssl: PSSL; mode: TIdC_INT) cdecl = nil; - {$EXTERNALSYM SSL_CTX_load_verify_locations} - SSL_CTX_load_verify_locations : function(ctx: PSSL_CTX; const CAfile: PIdAnsiChar; const CApath: PIdAnsiChar): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_get_session} - SSL_get_session : function(const ssl: PSSL): PSSL_SESSION cdecl = nil; - {$EXTERNALSYM SSLeay_add_ssl_algorithms} - SSLeay_add_ssl_algorithms : function: TIdC_INT cdecl = nil; - // SSL_set_app_data : function(s: PSSL; arg: Pointer): Integer cdecl = nil; - // SSL_get_app_data : function(s: PSSL): Pointer cdecl = nil; - {$EXTERNALSYM SSL_SESSION_get_id} - SSL_SESSION_get_id : function(const s: PSSL_SESSION; length: PIdC_UINT): PIdAnsiChar cdecl = nil; - {$EXTERNALSYM SSL_copy_session_id} - SSL_copy_session_id : procedure(sslTo: PSSL; const sslFrom: PSSL) cdecl = nil; - {$EXTERNALSYM X509_NAME_oneline} - X509_NAME_oneline : function(a: PX509_NAME; buf: PIdAnsiChar; size: TIdC_INT): PIdAnsiChar cdecl = nil; - {$EXTERNALSYM X509_NAME_cmp} - X509_NAME_cmp : function(const a, b: PX509_NAME): TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_NAME_hash} - X509_NAME_hash : function(x: PX509_NAME): TIdC_ULONG cdecl = nil; - {$EXTERNALSYM X509_set_issuer_name} - X509_set_issuer_name : function(x: PX509; name: PX509_NAME): TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_get_issuer_name} - X509_get_issuer_name : function(a: PX509): PX509_NAME cdecl = nil; - {$EXTERNALSYM X509_set_subject_name} - X509_set_subject_name : function(x: PX509; name: PX509_NAME): TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_get_subject_name} - X509_get_subject_name : function(a: PX509): PX509_NAME cdecl = nil; - {$EXTERNALSYM OBJ_obj2nid} - OBJ_obj2nid : function (const o: PASN1_OBJECT): TIdC_INT cdecl = nil; - {$EXTERNALSYM OBJ_nid2obj} - OBJ_nid2obj : function (n : TIdC_INT) : PASN1_OBJECT cdecl = nil; - {$EXTERNALSYM OBJ_nid2ln} - OBJ_nid2ln : function (n : TIdC_INT) : PIdAnsiChar cdecl = nil; - {$EXTERNALSYM OBJ_nid2sn} - OBJ_nid2sn : function (n : TIdC_INT) : PIdAnsiChar cdecl = nil; - {$EXTERNALSYM X509_digest} - X509_digest : function(const data: PX509; const _type: PEVP_MD; - md: PByte; var len: TIdC_UINT): TIdC_INT cdecl = nil; - {$IFNDEF OPENSSL_NO_SHA512} - {$EXTERNALSYM EVP_sha512} - EVP_sha512 : function : PEVP_MD cdecl = nil; - {$EXTERNALSYM EVP_sha384} - EVP_sha384 : function : PEVP_MD cdecl = nil; - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA256} - {$EXTERNALSYM EVP_sha256} - EVP_sha256 : function : PEVP_MD cdecl = nil; - {$EXTERNALSYM EVP_sha224} - EVP_sha224 : function : PEVP_MD cdecl = nil; - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA} - {$EXTERNALSYM EVP_sha} - EVP_sha : function : PEVP_MD cdecl = nil; - {$EXTERNALSYM EVP_sha1} - EVP_sha1 : function: PEVP_MD cdecl = nil; - {$EXTERNALSYM EVP_dss} - EVP_dss : function : PEVP_MD cdecl = nil; - {$EXTERNALSYM EVP_dss1} - EVP_dss1 : function : PEVP_MD cdecl = nil; - {$EXTERNALSYM EVP_ecdsa} - EVP_ecdsa : function : PEVP_MD cdecl = nil; - {$ENDIF} - {$ifndef OPENSSL_NO_MDC2} - {$EXTERNALSYM EVP_mdc2} - EVP_mdc2 : function : PEVP_MD cdecl = nil; - {$endif} - {$IFNDEF OPENSSL_NO_MD5} - {$EXTERNALSYM EVP_md5} - EVP_md5 : function: PEVP_MD cdecl = nil; - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD4} - {$EXTERNALSYM EVP_md4} - EVP_md4 : function: PEVP_MD cdecl = nil; - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD2} - {$EXTERNALSYM EVP_md2} - EVP_md2 : function: PEVP_MD cdecl = nil; - {$ENDIF} - {$ifndef OPENSSL_NO_RIPEMD} - {$EXTERNALSYM EVP_ripemd160} - EVP_ripemd160: function: PEVP_MD cdecl = nil; - {$endif} - {$ifndef OPENSSL_NO_WHIRLPOOL} - {$EXTERNALSYM EVP_whirlpool} - EVP_whirlpool: function: PEVP_MD cdecl = nil; - {$endif} - {$EXTERNALSYM EVP_md_null} - EVP_md_null : function : PEVP_MD cdecl = nil; - {$ifndef OPENSSL_NO_DES} - {$EXTERNALSYM EVP_des_ecb} - EVP_des_ecb : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_des_ede} - EVP_des_ede : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_des_ede3} - EVP_des_ede3 : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_des_ede_ecb} - EVP_des_ede_ecb : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_des_ede3_ecb} - EVP_des_ede3_ecb : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_des_cfb64} - EVP_des_cfb64: function : PEVP_CIPHER cdecl = nil; -// # define EVP_des_cfb EVP_des_cfb64 - {$EXTERNALSYM EVP_des_cfb1} - EVP_des_cfb1: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_des_cfb8} - EVP_des_cfb8 : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_des_ede_cfb64} - EVP_des_ede_cfb64 :function : PEVP_CIPHER cdecl = nil; -//# define EVP_des_ede_cfb EVP_des_ede_cfb64 -//#if 0 - {/$EXTERNALSYM EVP_des_ede_cfb1} - //EVP_des_ede_cfb1 :function : PEVP_CIPHER cdecl = nil; - {/$EXTERNALSYM EVP_des_ede_cfb8} - //EVP_des_ede_cfb8 : function : PEVP_CIPHER cdecl = nil; -//#endif - {$EXTERNALSYM EVP_des_ede3_cfb64} - EVP_des_ede3_cfb64 :function : PEVP_CIPHER cdecl = nil; -//# define EVP_des_ede3_cfb EVP_des_ede3_cfb64 - {$EXTERNALSYM EVP_des_ede3_cfb1} - EVP_des_ede3_cfb1 :function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_des_ede3_cfb8} - EVP_des_ede3_cfb8 :function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_des_ofb} - EVP_des_ofb :function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_des_ede_ofb} - EVP_des_ede_ofb :function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_des_ede3_ofb} - EVP_des_ede3_ofb :function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_des_cbc} - EVP_des_cbc :function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_des_ede_cbc} - EVP_des_ede_cbc :function : PEVP_CIPHER cdecl = nil; -// EVP_des_ede3_cbc :function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_desx_cbc} - EVP_desx_cbc :function : PEVP_CIPHER cdecl = nil; -//* This should now be supported through the dev_crypto ENGINE. But also, why are -// * rc4 and md5 declarations made here inside a "NO_DES" precompiler branch? */ -//#if 0 - {$ifdef OPENSSL_OPENBSD_DEV_CRYPTO} - {$EXTERNALSYM EVP_dev_crypto_des_ede3_cbc} - EVP_dev_crypto_des_ede3_cbc : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_dev_crypto_rc4} - EVP_dev_crypto_rc4 : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_dev_crypto_md5} - EVP_dev_crypto_md5 : function : PEVP_MD cdecl = nil; - {$endif} -//#endif - {$endif} - {$ifndef OPENSSL_NO_RC4} - {$EXTERNALSYM EVP_rc4} - EVP_rc4: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_rc4_40} - EVP_rc4_40: function : PEVP_CIPHER cdecl = nil; - {$ifndef OPENSSL_NO_MD5} - {$EXTERNALSYM EVP_rc4_hmac_md5} - EVP_rc4_hmac_md5: function : PEVP_CIPHER cdecl = nil; - {$endif} - {$endif} - {$ifndef OPENSSL_NO_IDEA} - {$EXTERNALSYM EVP_idea_ecb} - EVP_idea_ecb: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_idea_cfb64} - EVP_idea_cfb64: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_idea_ofb} - EVP_idea_ofb: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_idea_cbc} - EVP_idea_cbc: function : PEVP_CIPHER cdecl = nil; - {$endif} - {$ifndef OPENSSL_NO_RC2} - {$EXTERNALSYM EVP_rc2_ecb} - EVP_rc2_ecb: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_rc2_cbc} - EVP_rc2_cbc: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_rc2_40_cbc} - EVP_rc2_40_cbc: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_rc2_64_cbc} - EVP_rc2_64_cbc: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_rc2_cfb64} - EVP_rc2_cfb64: function : PEVP_CIPHER cdecl = nil; -//# define EVP_rc2_cfb EVP_rc2_cfb64 - {$EXTERNALSYM EVP_rc2_ofb} - EVP_rc2_ofb: function : PEVP_CIPHER cdecl = nil; - {$endif} - {$ifndef OPENSSL_NO_BF} - {$EXTERNALSYM EVP_bf_ecb} - EVP_bf_ecb: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_bf_cbc} - EVP_bf_cbc: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_bf_cfb64} - EVP_bf_cfb64: function : PEVP_CIPHER cdecl = nil; -//# define EVP_bf_cfb EVP_bf_cfb64 - {$EXTERNALSYM EVP_bf_ofb} - EVP_bf_ofb: function : PEVP_CIPHER cdecl = nil; - {$endif} - {$ifndef OPENSSL_NO_CAST} - {$EXTERNALSYM EVP_cast5_ecb} - EVP_cast5_ecb : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_cast5_cbc} - EVP_cast5_cbc : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_cast5_cfb64} - EVP_cast5_cfb64: function : PEVP_CIPHER cdecl = nil; -//# define EVP_cast5_cfb EVP_cast5_cfb64 - {$EXTERNALSYM EVP_cast5_ofb} - EVP_cast5_ofb: function : PEVP_CIPHER cdecl = nil; - {$endif} - {$ifndef OPENSSL_NO_RC5} - {$EXTERNALSYM EVP_rc5_32_12_16_cb} - EVP_rc5_32_12_16_cbc: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_rc5_32_12_16_ecb} - EVP_rc5_32_12_16_ecb: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_rc5_32_12_16_cfb64} - EVP_rc5_32_12_16_cfb64: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_rc5_32_12_16_ofb\} - EVP_rc5_32_12_16_ofb: function : PEVP_CIPHER cdecl = nil; - {$endif} - {$ifndef OPENSSL_NO_AES} - {$EXTERNALSYM EVP_aes_128_ecb} - EVP_aes_128_ecb: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_128_cbc} - EVP_aes_128_cbc: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_128_cfb1} - EVP_aes_128_cfb1: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_128_cfb8} - EVP_aes_128_cfb8: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_128_cfb128} - EVP_aes_128_cfb128: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_128_ofb} - EVP_aes_128_ofb: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_128_ctr} - EVP_aes_128_ctr: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_128_gcm} - EVP_aes_128_gcm: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_128_ccm} - EVP_aes_128_ccm: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_128_xts} - EVP_aes_128_xts: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_192_ecb} - EVP_aes_192_ecb: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_192_cbc} - EVP_aes_192_cbc: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_192_cfb1} - EVP_aes_192_cfb1: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_192_cfb8} - EVP_aes_192_cfb8: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_192_cfb128} - EVP_aes_192_cfb128: function : PEVP_CIPHER cdecl = nil; -//# define EVP_aes_192_cfb EVP_aes_192_cfb128 - {$EXTERNALSYM EVP_aes_192_ofb} - EVP_aes_192_ofb: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_192_ctr} - EVP_aes_192_ctr: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_192_gcm} - EVP_aes_192_gcm: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_192_ccm} - EVP_aes_192_ccm: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_256_ecb} - EVP_aes_256_ecb: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_256_cbc} - EVP_aes_256_cbc: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_256_cfb1} - EVP_aes_256_cfb1: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_256_cfb8} - EVP_aes_256_cfb8: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_256_cfb128} - EVP_aes_256_cfb128: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_256_ofb} - EVP_aes_256_ofb: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_256_ctr} - EVP_aes_256_ctr: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_256_gcm} - EVP_aes_256_gcm: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_256_ccm} - EVP_aes_256_ccm: function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_256_xts} - EVP_aes_256_xts: function : PEVP_CIPHER cdecl = nil; - {$ifndef OPENSSL_NO_SHA} - {$ifndef OPENSSL_NO_SHA1} - {$EXTERNALSYM EVP_aes_128_cbc_hmac_sha1} - EVP_aes_128_cbc_hmac_sha1 : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_aes_256_cbc_hmac_sha1} - EVP_aes_256_cbc_hmac_sha1 : function : PEVP_CIPHER cdecl = nil; - {$endif} - {$endif} - {$endif} - {$ifndef OPENSSL_NO_CAMELLIA} - {$EXTERNALSYM EVP_camellia_128_ecb} - EVP_camellia_128_ecb : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_128_cbc} - EVP_camellia_128_cbc : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_128_cfb1} - EVP_camellia_128_cfb1 : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_128_cfb8} - EVP_camellia_128_cfb8 : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_128_cfb128} - EVP_camellia_128_cfb128 : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_128_ofb} - EVP_camellia_128_ofb : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_192_ecb} - EVP_camellia_192_ecb : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_192_cbc} - EVP_camellia_192_cbc : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_192_cfb1} - EVP_camellia_192_cfb1 : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_192_cfb8} - EVP_camellia_192_cfb8 : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_192_cfb128} - EVP_camellia_192_cfb128 : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_192_ofb} - EVP_camellia_192_ofb : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_256_ecb} - EVP_camellia_256_ecb : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_256_cbc} - EVP_camellia_256_cbc : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_256_cfb1} - EVP_camellia_256_cfb1 : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_256_cfb8} - EVP_camellia_256_cfb8 : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_256_cfb128} - EVP_camellia_256_cfb128 : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_camellia_256_ofb} - EVP_camellia_256_ofb : function : PEVP_CIPHER cdecl = nil; - {$endif} - - {$ifndef OPENSSL_NO_SEED} - {$EXTERNALSYM EVP_seed_ecb} - EVP_seed_ecb : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_seed_cbc} - EVP_seed_cbc : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_seed_cfb128} - EVP_seed_cfb128 : function : PEVP_CIPHER cdecl = nil; - {$EXTERNALSYM EVP_seed_ofb} - EVP_seed_ofb : function : PEVP_CIPHER cdecl = nil; - {$endif} - {$EXTERNALSYM EVP_add_cipher} - EVP_add_cipher : function (cipher : PEVP_CIPHER) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_add_digest} - EVP_add_digest : function(digest : PEVP_MD) : TIdC_INT cdecl = nil; - - {$EXTERNALSYM EVP_CIPHER_do_all} - EVP_CIPHER_do_all : procedure(fn : EVP_CIPHER_do_all_fn; arg : Pointer) cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_do_all_sorted} - EVP_CIPHER_do_all_sorted : procedure(fn : EVP_CIPHER_do_all_fn; arg : Pointer) cdecl = nil; - {$EXTERNALSYM EVP_MD_do_all} - EVP_MD_do_all : procedure(fn : EVP_MD_do_all_fn; arg : Pointer) cdecl = nil; - {$EXTERNALSYM EVP_MD_do_all_sorted} - EVP_MD_do_all_sorted : procedure(fn : EVP_MD_do_all_fn; arg : Pointer) cdecl = nil; - - {$EXTERNALSYM EVP_PKEY_decrypt_old} - EVP_PKEY_decrypt_old : function(dec_key : PIdAnsiChar; - enc_key : PIdAnsiChar; enc_key_len : TIdC_INT; - private_key : PEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_encrypt_old} - EVP_PKEY_encrypt_old : function(enc_key : PIdAnsiChar; - key : PIdAnsiChar; key_len : TIdC_INT; - pub_key : PEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_type} - EVP_PKEY_type : function(_type : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_id} - EVP_PKEY_id : function(pkey : PEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_base_id} - EVP_PKEY_base_id : function(pkey : PEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_bits} - EVP_PKEY_bits : function(pkey : PEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_size} - EVP_PKEY_size : function(pkey : PEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_set_type} - EVP_PKEY_set_type : function(pkey : PEVP_PKEY;_type : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_set_type_str} - EVP_PKEY_set_type_str : function(pkey: PEVP_PKEY; str : PIdAnsiChar; len : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_get0} - EVP_PKEY_get0 : function(pkey : PEVP_PKEY) : Pointer cdecl = nil; - - {$ifndef OPENSSL_NO_RSA} -//struct rsa_st; - {$EXTERNALSYM EVP_PKEY_set1_RSA} - EVP_PKEY_set1_RSA: function(pkey : PEVP_PKEY;key : Prsa_st) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_get1_RSA} - EVP_PKEY_get1_RSA: function(pkey: PEVP_PKEY) : Prsa_st cdecl = nil; - {$endif} - {$ifndef OPENSSL_NO_DSA} -// struct dsa_st; - {$EXTERNALSYM EVP_PKEY_set1_DSA} - EVP_PKEY_set1_DSA: function(pkey : PEVP_PKEY; key : Pdsa_st) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_get1_DSA} - EVP_PKEY_get1_DSA: function(pkey : PEVP_PKEY) : Pdsa_st cdecl = nil; - {$endif} - {$ifndef OPENSSL_NO_DH} -// struct dh_st; - {$EXTERNALSYM EVP_PKEY_set1_DH} - EVP_PKEY_set1_DH: function(pkey : PEVP_PKEY; key : Pdh_st) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_get1_DH} - EVP_PKEY_get1_DH: function(pkey : PEVP_PKEY) : Pdh_st cdecl = nil; - {$endif} - {$ifndef OPENSSL_NO_EC} -// struct ec_key_st; - {$EXTERNALSYM EVP_PKEY_set1_EC_KEY} - EVP_PKEY_set1_EC_KEY : function(pkey : PEVP_PKEY; key : Pec_key_st) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_get1_EC_KEY} - EVP_PKEY_get1_EC_KEY : function(pkey : PEVP_PKEY) : Pec_key_st cdecl = nil; - {$endif} - - {$EXTERNALSYM d2i_PublicKey} - d2i_PublicKey : function(_type : TIdC_INT; a :PPEVP_PKEY; pp : PPIdAnsiChar; - length : TIdC_LONG) : PEVP_PKEY cdecl = nil; - {$EXTERNALSYM i2d_PublicKey} - i2d_PublicKey : function(a : PEVP_PKEY; pp : PPIdAnsiChar) : TIdC_INT cdecl = nil; - {$EXTERNALSYM d2i_AutoPrivateKey} - d2i_AutoPrivateKey : function(a : PPEVP_PKEY; pp : PPIdAnsiChar; - length : TIdC_LONG) : PEVP_PKEY cdecl = nil; - {$EXTERNALSYM EVP_PKEY_copy_parameters} - EVP_PKEY_copy_parameters : function(_to : PEVP_PKEY; from : PEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_missing_parameters} - EVP_PKEY_missing_parameters : function(pkey : PEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_save_parameters} - EVP_PKEY_save_parameters : function(pkey : PEVP_PKEY;mode : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_cmp_parameters} - EVP_PKEY_cmp_parameters : function(a : PEVP_PKEY; b : PEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_cmp} - EVP_PKEY_cmp : function(a : PEVP_PKEY; b : PEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_print_public} - EVP_PKEY_print_public : function(_out : PBIO; pkey : PEVP_PKEY; - indent : TIdC_INT; pctx : PASN1_PCTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_print_private} - EVP_PKEY_print_private : function(_out : PBIO; pkey : PEVP_PKEY; - indent : TIdC_INT; pctx : PASN1_PCTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_print_params} - EVP_PKEY_print_params : function(_out : PBIO; pkey : PEVP_PKEY; - indent : TIdC_INT; pctx : PASN1_PCTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_get_default_digest_nid} - EVP_PKEY_get_default_digest_nid : function(pkey : PEVP_PKEY; pnid : PIdC_INT) : TIdC_INT cdecl = nil; - -//* calls methods */ - {$EXTERNALSYM EVP_CIPHER_param_to_asn1} - EVP_CIPHER_param_to_asn1 : function(c : PEVP_CIPHER_CTX; _type : PASN1_TYPE) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_asn1_to_param} - EVP_CIPHER_asn1_to_param : function(c : PEVP_CIPHER_CTX; _type : PASN1_TYPE) : TIdC_INT cdecl = nil; - -//* These are used by EVP_CIPHER methods */ - {$EXTERNALSYM EVP_CIPHER_set_asn1_iv} - EVP_CIPHER_set_asn1_iv : function(c : PEVP_CIPHER_CTX; _type : PASN1_TYPE) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_CIPHER_get_asn1_iv} - EVP_CIPHER_get_asn1_iv : function(c : PEVP_CIPHER_CTX; _type : PASN1_TYPE) : TIdC_INT cdecl = nil; - -//* PKCS5 password based encryption */ - {$EXTERNALSYM PKCS5_PBE_keyivgen} - PKCS5_PBE_keyivgen : function(ctx : PEVP_CIPHER_CTX; pass : PIdAnsiChar; passlen : TIdC_INT; - param : PASN1_TYPE; cipher : PEVP_CIPHER; md : PEVP_MD; - en_de : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM PKCS5_PBKDF2_HMAC_SHA1} - PKCS5_PBKDF2_HMAC_SHA1 : function(pass : PIdAnsiChar; passlen : TIdC_INT; - salt : PIdAnsiChar; saltlen : TIdC_INT; iter : TIdC_INT; - keylen : TIdC_INT; _out : PIdAnsiChar) : TIdC_INT cdecl = nil; - {$EXTERNALSYM PKCS5_PBKDF2_HMAC} - PKCS5_PBKDF2_HMAC : function(pass : PIdAnsiChar; passlen : TIdC_INT; - salt : PIdAnsiChar; saltlen : TIdC_INT; iter : TIdC_INT; - digest : PEVP_MD; - keylen : TIdC_INT; _out : PIdAnsiChar) : TIdC_INT cdecl = nil; - {$EXTERNALSYM PKCS5_v2_PBE_keyivgen} - PKCS5_v2_PBE_keyivgen : function(ctx : PEVP_CIPHER_CTX; pass : PIdAnsiChar; passlen : TIdC_INT; - param : PASN1_TYPE; cipher : PEVP_CIPHER; md : PEVP_MD; - en_de : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM PKCS5_PBE_add} - PKCS5_PBE_add : procedure cdecl = nil; - {$EXTERNALSYM EVP_PBE_CipherInit} - EVP_PBE_CipherInit : function (pbe_obj : PASN1_OBJECT; pass : PIdAnsiChar; passlen : TIdC_INT; - param : PASN1_TYPE; ctx : PEVP_CIPHER_CTX; en_de : TIdC_INT) : TIdC_INT cdecl = nil; - - {$EXTERNALSYM EVP_PBE_alg_add_type} - - EVP_PBE_alg_add_type : function(pbe_type : TIdC_INT; pbe_nid : TIdC_INT; cipher_nid : TIdC_INT; md_nid : TIdC_INT; - keygen : PEVP_PBE_KEYGEN) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PBE_alg_add} - EVP_PBE_alg_add : function(nid : TIdC_INT; cipher : PEVP_CIPHER; md : PEVP_MD; - keygen :PEVP_PBE_KEYGEN) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PBE_find} - EVP_PBE_find : function(_type : TIdC_INT; pbe_nid : TIdC_INT; - pcnid : PIdC_INT; pmnid : PIdC_INT; var pkeygen : PEVP_PBE_KEYGEN) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PBE_cleanup} - EVP_PBE_cleanup : procedure cdecl = nil; - - {$EXTERNALSYM EVP_PKEY_asn1_get_count} - EVP_PKEY_asn1_get_count : function : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_asn1_get0} - EVP_PKEY_asn1_get0 : function(idx : TIdC_INT) : PEVP_PKEY_ASN1_METHOD cdecl = nil; - {$EXTERNALSYM EVP_PKEY_asn1_find} - EVP_PKEY_asn1_find : function(pe :PPENGINE; _type : TIdC_INT) : PEVP_PKEY_ASN1_METHOD cdecl = nil; - {$EXTERNALSYM EVP_PKEY_asn1_find_str} - EVP_PKEY_asn1_find_str : function(pe : PPENGINE; - str : PIdAnsiChar; len : TIdC_INT) : PEVP_PKEY_ASN1_METHOD cdecl = nil; - {$EXTERNALSYM EVP_PKEY_asn1_add0} - EVP_PKEY_asn1_add0 : function(ameth : PEVP_PKEY_ASN1_METHOD) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_asn1_add_alias} - EVP_PKEY_asn1_add_alias : function(_to : TIdC_INT; from : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_asn1_get0_info} - EVP_PKEY_asn1_get0_info : function(ppkey_id : PIdC_int; pkey_base_id : PIdC_INT; ppkey_flags : PIdC_INT; - pinfo : PPIdAnsiChar; ppem_str : PPIdAnsiChar; - ameth : PEVP_PKEY_ASN1_METHOD) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_get0_asn1} - EVP_PKEY_get0_asn1 : function(pkey : PEVP_PKEY) : PEVP_PKEY_ASN1_METHOD cdecl = nil; - {$EXTERNALSYM EVP_PKEY_asn1_new} - EVP_PKEY_asn1_new : function(id : TIdC_INT; flags : TIdC_INT; - pem_str : PIdAnsiChar; info : PIdAnsiChar) : PEVP_PKEY_ASN1_METHOD cdecl = nil; - {$EXTERNALSYM EVP_PKEY_asn1_copy} - EVP_PKEY_asn1_copy : procedure(dst : PEVP_PKEY_ASN1_METHOD; - src : PEVP_PKEY_ASN1_METHOD) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_asn1_free} - EVP_PKEY_asn1_free : procedure(ameth : PEVP_PKEY_ASN1_METHOD) cdecl = nil; - - {$EXTERNALSYM EVP_PKEY_asn1_set_public} - EVP_PKEY_asn1_set_public : procedure(ameth : PEVP_PKEY_ASN1_METHOD; - pub_decode : EVP_PKEY_asn1_set_public_pub_decode; - pub_encode : EVP_PKEY_asn1_set_public_pub_encode; - pub_cmp : EVP_PKEY_asn1_set_public_pub_cmp; - pub_print : EVP_PKEY_asn1_set_public_pub_print; - pkey_size : EVP_PKEY_asn1_set_public_pub_pkey_size; - pkey_bits : EVP_PKEY_asn1_set_public_pkey_bits) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_asn1_set_private} - EVP_PKEY_asn1_set_private : procedure(ameth : PEVP_PKEY_ASN1_METHOD; - priv_decode : EVP_PKEY_asn1_set_private_priv_decode; - priv_encode : EVP_PKEY_asn1_set_private_priv_encode; - priv_print : EVP_PKEY_asn1_set_private_priv_print) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_asn1_set_param} - EVP_PKEY_asn1_set_param : procedure(ameth : PEVP_PKEY_ASN1_METHOD; - param_decode : EVP_PKEY_asn1_set_param_param_decode; - param_encode : EVP_PKEY_asn1_set_param_param_encode; - param_missing : EVP_PKEY_asn1_set_param_param_missing; - param_copy : EVP_PKEY_asn1_set_param_param_copy; - param_cmp : EVP_PKEY_asn1_set_param_param_cmp; - param_print : EVP_PKEY_asn1_set_param_param_print) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_asn1_set_free} - EVP_PKEY_asn1_set_free : procedure(ameth : PEVP_PKEY_ASN1_METHOD; - pkey_free : EVP_PKEY_asn1_set_free_pkey_free) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_asn1_set_ctrl} - EVP_PKEY_asn1_set_ctrl : procedure(ameth : PEVP_PKEY_ASN1_METHOD; - pkey_ctrl : EVP_PKEY_asn1_set_ctr_pkey_ctrl) cdecl = nil; - - {$EXTERNALSYM EVP_PKEY_meth_find} - EVP_PKEY_meth_find : function (_type : TIdC_INT) : PEVP_PKEY_METHOD cdecl = nil; - {$EXTERNALSYM EVP_PKEY_meth_new} - EVP_PKEY_meth_new : function(id : TIdC_INT; flags : TIdC_INT) : PEVP_PKEY_METHOD cdecl = nil; - {$EXTERNALSYM EVP_PKEY_meth_get0_info} - EVP_PKEY_meth_get0_info : procedure(ppkey_id : PIdC_INT; pflags : PIdC_INT; - meth : PEVP_PKEY_METHOD) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_meth_copy} - EVP_PKEY_meth_copy : procedure(dst : PEVP_PKEY_METHOD; src : PEVP_PKEY_METHOD) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_meth_free} - EVP_PKEY_meth_free : procedure(pmeth : PEVP_PKEY_METHOD) cdecl =nil; - {$EXTERNALSYM EVP_PKEY_meth_add0} - EVP_PKEY_meth_add0 : function(pmeth : PEVP_PKEY_METHOD) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_new} - EVP_PKEY_CTX_new : function(pkey : PEVP_PKEY; e : PENGINE) : PEVP_PKEY_CTX cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_new_id} - EVP_PKEY_CTX_new_id : function(id : TIdC_INT; e : PENGINE) : PEVP_PKEY_CTX cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_dup} - EVP_PKEY_CTX_dup : function(ctx : PEVP_PKEY_CTX) : PEVP_PKEY_CTX cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_free} - EVP_PKEY_CTX_free : procedure(ctx : PEVP_PKEY_CTX) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_ctrl} - EVP_PKEY_CTX_ctrl : function(ctx : PEVP_PKEY_CTX; keytype : TIdC_INT; optype : TIdC_INT; - cmd : TIdC_INT; p1 : TIdC_INT; p2 : Pointer) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_ctrl_str} - EVP_PKEY_CTX_ctrl_str : function(ctx : PEVP_PKEY_CTX; _type : PIdAnsiChar; - value : PIdAnsiChar) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_get_operation} - EVP_PKEY_CTX_get_operation : function(ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_set0_keygen_info} - EVP_PKEY_CTX_set0_keygen_info : procedure(ctx : PEVP_PKEY_CTX; dat : PIdC_INT; datlen : TIdC_INT) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_new_mac_key} - EVP_PKEY_new_mac_key : function(_type : TIdC_INT; e : PENGINE; - key : PIdAnsiChar; keylen : TIdC_INT) : PEVP_PKEY cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_set_data} - EVP_PKEY_CTX_set_data : procedure(ctx : PEVP_PKEY_CTX; data : Pointer) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_get_data} - EVP_PKEY_CTX_get_data : function(ctx : PEVP_PKEY_CTX) : Pointer cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_get0_pkey} - EVP_PKEY_CTX_get0_pkey : function(ctx : PEVP_PKEY_CTX) : PEVP_PKEY cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_get0_peerkey} - EVP_PKEY_CTX_get0_peerkey : function(ctx : PEVP_PKEY_CTX) : PEVP_PKEY cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_set_app_data} - EVP_PKEY_CTX_set_app_data : procedure(ctx : PEVP_PKEY_CTX; data : Pointer) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_get_app_data} - EVP_PKEY_CTX_get_app_data : function(ctx : PEVP_PKEY_CTX) : Pointer cdecl = nil; - {$EXTERNALSYM EVP_PKEY_sign_init} - EVP_PKEY_sign_init : function(ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_sign} - EVP_PKEY_sign : function(ctx : PEVP_PKEY_CTX; - sig : PIdAnsiChar; siglen : Psize_t; - tbs : PIdAnsiChar; tbslen : size_t) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_verify_init} - EVP_PKEY_verify_init : function(ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_verify} - EVP_PKEY_verify : function(ctx : PEVP_PKEY_CTX; - sig : PIdAnsiChar; siglen : size_t; - tbs : PIdAnsiChar; tbslen : size_t) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_verify_recover_init} - EVP_PKEY_verify_recover_init : function(ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_verify_recover} - EVP_PKEY_verify_recover : function(ctx : PEVP_PKEY_CTX; - rout : PIdAnsiChar; routlen : Psize_t; - sig : PIdAnsiChar; siglen : size_t) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_encrypt_init} - EVP_PKEY_encrypt_init : function(ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_encrypt} - EVP_PKEY_encrypt : function(ctx : PEVP_PKEY_CTX; - _out : PIdAnsiChar; outlen : Psize_t; - _in : PIdAnsiChar; inlen : size_t) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_decrypt_init} - EVP_PKEY_decrypt_init : function(ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_decrypt} - EVP_PKEY_decrypt : function(ctx : PEVP_PKEY_CTX; - _out : PIdAnsiChar; outlen : Psize_t; - _in : PIdAnsiChar; inlen : size_t) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_derive_init} - EVP_PKEY_derive_init : function(ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_derive_set_peer} - EVP_PKEY_derive_set_peer : function(ctx : PEVP_PKEY_CTX; peer : PEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_derive} - EVP_PKEY_derive : function(ctx : PEVP_PKEY_CTX; key : PIdAnsiChar; keylen : Psize_t) : TIdC_INT cdecl = nil; - - - {$EXTERNALSYM EVP_PKEY_paramgen_init} - EVP_PKEY_paramgen_init: function(ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl; - {$EXTERNALSYM EVP_PKEY_paramgen} - EVP_PKEY_paramgen : function(ctx : PEVP_PKEY_CTX; ppkey : PPEVP_PKEY) : TIdC_INT; - {$EXTERNALSYM EVP_PKEY_keygen_init} - EVP_PKEY_keygen_init : function(ctx : PEVP_PKEY_CTX) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_keygen} - EVP_PKEY_keygen : function(ctx : PEVP_PKEY_CTX; ppkey : PPEVP_PKEY) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_set_cb} - EVP_PKEY_CTX_set_cb : procedure(ctx : PEVP_PKEY_CTX; cb : EVP_PKEY_gen_cb) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_get_cb} - EVP_PKEY_CTX_get_cb : function(ctx : PEVP_PKEY_CTX) : EVP_PKEY_gen_cb cdecl = nil; - {$EXTERNALSYM EVP_PKEY_CTX_get_keygen_info} - EVP_PKEY_CTX_get_keygen_info : function(ctx : PEVP_PKEY_CTX; idx : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM EVP_PKEY_meth_set_init} - EVP_PKEY_meth_set_init : procedure(pmeth : PEVP_PKEY_METHOD; - init : EVP_PKEY_meth_set_init_init) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_meth_set_copy} - EVP_PKEY_meth_set_copy : procedure (pmeth : PEVP_PKEY_METHOD; - copy : EVP_PKEY_meth_set_copy_copy) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_meth_set_cleanup} - EVP_PKEY_meth_set_cleanup : procedure(pmeth : PEVP_PKEY_METHOD; - cleanup : EVP_PKEY_meth_set_cleanup_cleanup) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_meth_set_paramgen} - EVP_PKEY_meth_set_paramgen : procedure(pmeth : PEVP_PKEY_METHOD; - paramgen_init : EVP_PKEY_meth_set_paramgen_paramgen_init; - paramgen : EVP_PKEY_meth_set_paramgen_paramgen); - {$EXTERNALSYM EVP_PKEY_meth_set_keygen} - EVP_PKEY_meth_set_keygen : procedure(pmeth : PEVP_PKEY_METHOD; - keygen_init : EVP_PKEY_meth_set_keygen_keygen_init; - keygen : EVP_PKEY_meth_set_keygen_keygen) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_meth_set_sign} - EVP_PKEY_meth_set_sign : procedure(pmeth : PEVP_PKEY_METHOD; - sign_init : EVP_PKEY_meth_set_sign_sign_init; - sign : EVP_PKEY_meth_set_sign_sign) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_meth_set_verify} - EVP_PKEY_meth_set_verify : procedure(pmeth : PEVP_PKEY_METHOD; - verify_init : EVP_PKEY_meth_set_verify_verify_init; - verify : EVP_PKEY_meth_set_verify_verify) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_meth_set_verify_recover} - EVP_PKEY_meth_set_verify_recover : procedure(pmeth : PEVP_PKEY_METHOD; - verify_recover_init : EVP_PKEY_meth_set_verify_recover_verify_recover_init; - verify_recover : EVP_PKEY_meth_set_verify_recover_verify_recover) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_meth_set_signctx} - EVP_PKEY_meth_set_signctx : procedure(pmeth : PEVP_PKEY_METHOD; - signctx_init : EVP_PKEY_meth_set_signctx_signctx_init; - signctx : EVP_PKEY_meth_set_signctx_signctx) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_meth_set_verifyctx} - EVP_PKEY_meth_set_verifyctx : procedure(pmeth : PEVP_PKEY_METHOD; - verifyctx_init : EVP_PKEY_meth_set_verifyctx_verifyctx_init; - verifyctx : EVP_PKEY_meth_set_verifyctx_verifyctx) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_meth_set_encrypt} - EVP_PKEY_meth_set_encrypt : procedure(pmeth : PEVP_PKEY_METHOD; - encrypt_init : EVP_PKEY_meth_set_encrypt_encrypt_init; - encryptfn : EVP_PKEY_meth_set_encrypt_encryptfn) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_meth_set_decrypt} - EVP_PKEY_meth_set_decrypt : procedure(pmeth : PEVP_PKEY_METHOD; - decrypt_init : EVP_PKEY_meth_set_decrypt_decrypt_init; - decrypt : EVP_PKEY_meth_set_decrypt_decrypt); - {$EXTERNALSYM EVP_PKEY_meth_set_derive} - EVP_PKEY_meth_set_derive : procedure(pmeth : PEVP_PKEY_METHOD; - derive_init : EVP_PKEY_meth_set_derive_derive_init; - derive : EVP_PKEY_meth_set_derive_derive) cdecl = nil; - {$EXTERNALSYM EVP_PKEY_meth_set_ctrl} - EVP_PKEY_meth_set_ctrl : procedure(pmeth : PEVP_PKEY_METHOD; - ctrl : EVP_PKEY_meth_set_ctrl_ctrl; - ctrl_str : EVP_PKEY_meth_set_ctrlctrl_str) cdecl = nil; - - {$EXTERNALSYM d2i_PrivateKey_bio} - d2i_PrivateKey_bio : function(bp : PBIO; a : PPEVP_PKEY) : PEVP_PKEY cdecl = nil; - {$EXTERNALSYM X509_LOOKUP_ctrl} - X509_LOOKUP_ctrl : function(ctx : PX509_LOOKUP; cmd : TIdC_INT; argc : PIdAnsiChar; arg1 : TIdC_LONG; ret : PPIdAnsiChar) : TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_STORE_add_cert} - X509_STORE_add_cert : function (ctx : PX509_STORE; x : PX509) : TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_STORE_add_crl} - X509_STORE_add_crl : function (ctx : PX509_STORE; x : PX509_CRL) : TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_STORE_CTX_get_ex_data} - X509_STORE_CTX_get_ex_data : function(ctx: PX509_STORE_CTX; idx: TIdC_INT): Pointer cdecl = nil; - {$EXTERNALSYM X509_STORE_CTX_get_error} - X509_STORE_CTX_get_error : function(ctx: PX509_STORE_CTX): TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_STORE_CTX_set_error} - X509_STORE_CTX_set_error : procedure(ctx: PX509_STORE_CTX; s: TIdC_INT) cdecl = nil; - {$EXTERNALSYM X509_STORE_CTX_get_error_depth} - X509_STORE_CTX_get_error_depth : function(ctx: PX509_STORE_CTX): TIdC_INT cdecl = nil; - {$EXTERNALSYM X509_STORE_CTX_get_current_cert} - X509_STORE_CTX_get_current_cert : function(ctx: PX509_STORE_CTX): PX509 cdecl = nil; - {$EXTERNALSYM _CRYPTO_num_locks} - _CRYPTO_num_locks : function: TIdC_INT cdecl = nil; // return CRYPTO_NUM_LOCKS (shared libs!) - {$EXTERNALSYM CRYPTO_set_locking_callback} - CRYPTO_set_locking_callback : procedure(func: TIdSslLockingCallback) cdecl = nil; - {$EXTERNALSYM CRYPTO_set_id_callback} - CRYPTO_set_id_callback : procedure(func: TIdSslIdCallback) cdecl = nil; - // 3DES functions - {$EXTERNALSYM DES_set_odd_parity} - DES_set_odd_parity: procedure(key: Pdes_cblock) cdecl = nil; - {$EXTERNALSYM DES_set_key} - DES_set_key: function(key: Pconst_DES_cblock; schedule: DES_key_schedule): TIdC_INT cdecl = nil; - {$EXTERNALSYM DES_ecb_encrypt} - DES_ecb_encrypt: procedure(input, output: Pconst_DES_cblock; ks: DES_key_schedule; enc: TIdC_INT) cdecl = nil; - //old DES functions - {$EXTERNALSYM Id_ossl_old_des_set_odd_parity} - Id_ossl_old_des_set_odd_parity : procedure (key : p_ossl_old_des_cblock) cdecl = nil; - {$EXTERNALSYM Id_ossl_old_des_set_key} - Id_ossl_old_des_set_key : function (key : P_ossl_old_des_cblock; schedule : _ossl_old_des_key_schedule) : TIdC_INT cdecl = nil; - {$EXTERNALSYM Id_ossl_old_des_ecb_encrypt} - Id_ossl_old_des_ecb_encrypt : procedure ( input : p_ossl_old_des_cblock; output : p_ossl_old_des_cblock; ks : p_ossl_old_des_key_schedule; enc : TIdC_int) cdecl = nil; - //More SSL functions - {$EXTERNALSYM SSL_set_ex_data} - SSL_set_ex_data: function(ssl: PSSL; idx: TIdC_INT; data: Pointer): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_get_ex_data} - SSL_get_ex_data: function(ssl: PSSL; idx: TIdC_INT): Pointer cdecl = nil; - {$EXTERNALSYM PKCS12_create} - PKCS12_create: function(pass, name: PIdAnsiChar; pkey: PEVP_PKEY; cert : PX509; - ca: PSTACK_OF_X509; nid_key, nid_cert, iter, mac_iter, keytype : TIdC_INT) : PPKCS12 cdecl = nil; - {$EXTERNALSYM i2d_PKCS12_bio} - i2d_PKCS12_bio: function(b: PBIO; p12: PPKCS12) : TIdC_INT cdecl = nil; - {$EXTERNALSYM PKCS12_free} - PKCS12_free: procedure(p12: PPKCS12) cdecl = nil; - {$EXTERNALSYM SSL_load_client_CA_file} - SSL_load_client_CA_file: function(const _file: PIdAnsiChar): PSTACK_OF_X509_NAME cdecl = nil; - {$EXTERNALSYM SSL_CTX_set_client_CA_list} - SSL_CTX_set_client_CA_list: procedure(ctx: PSSL_CTX; list: PSTACK_OF_X509_NAME) cdecl = nil; - {$EXTERNALSYM SSL_CTX_set_default_verify_paths} - SSL_CTX_set_default_verify_paths: function(ctx: PSSL_CTX): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_CTX_set_session_id_context} - SSL_CTX_set_session_id_context: function(ctx: PSSL_CTX; const sid_ctx: PByte; sid_ctx_len: TIdC_UINT): TIdC_INT cdecl = nil; - {$EXTERNALSYM SSL_CIPHER_description} - SSL_CIPHER_description: function(_para1: PSSL_CIPHER; buf: PIdAnsiChar; size: TIdC_INT): PIdAnsiChar cdecl = nil; - {$EXTERNALSYM SSL_get_current_cipher} - SSL_get_current_cipher: function(const s: PSSL): PSSL_CIPHER cdecl = nil; - {$EXTERNALSYM SSL_CIPHER_get_name} - SSL_CIPHER_get_name: function(const c: PSSL_CIPHER): PIdAnsiChar cdecl = nil; - {$EXTERNALSYM SSL_CIPHER_get_version} - SSL_CIPHER_get_version: function(const c: PSSL_CIPHER): PIdAnsiChar cdecl = nil; - {$EXTERNALSYM SSL_CIPHER_get_bits} - SSL_CIPHER_get_bits: function(const c: PSSL_CIPHER; var alg_bits: TIdC_INT): TIdC_INT cdecl = nil; - //experimental - {$EXTERNALSYM ERR_error_string_n} - ERR_error_string_n: procedure(e: TIdC_ULONG; buf: PIdAnsiChar; len : size_t) cdecl = nil; - {$EXTERNALSYM ERR_put_error} - ERR_put_error : procedure (lib, func, reason : TIdC_INT; _file : PIdAnsiChar; line : TIdC_INT) cdecl = nil; - {$EXTERNALSYM ERR_get_error} - ERR_get_error : function: TIdC_ULONG cdecl = nil; - {$EXTERNALSYM ERR_peek_error} - ERR_peek_error : function: TIdC_ULONG cdecl = nil; - {$EXTERNALSYM ERR_peek_last_error} - ERR_peek_last_error : function : TIdC_ULONG cdecl = nil; - {$EXTERNALSYM ERR_clear_error} - ERR_clear_error : procedure cdecl = nil; - {$EXTERNALSYM ERR_error_string} - ERR_error_string : function (e: TIdC_ULONG; buf: PIdAnsiChar): PIdAnsiChar cdecl = nil; - {$EXTERNALSYM ERR_lib_error_string} - ERR_lib_error_string : function(e : TIdC_ULONG): PIdAnsiChar cdecl = nil; - {$EXTERNALSYM ERR_func_error_string} - ERR_func_error_string : function(e : TIdC_ULONG): PIdAnsiChar cdecl = nil; - {$EXTERNALSYM ERR_reason_error_string} - ERR_reason_error_string : function(e : TIdC_ULONG): PIdAnsiChar cdecl = nil; - {$EXTERNALSYM ERR_load_ERR_strings} - ERR_load_ERR_strings : procedure cdecl = nil; - {$EXTERNALSYM ERR_load_crypto_strings} - ERR_load_crypto_strings : procedure cdecl = nil; - {$EXTERNALSYM ERR_free_strings} - ERR_free_strings : procedure cdecl = nil; - {$EXTERNALSYM ERR_remove_thread_state} - ERR_remove_thread_state : procedure(const tId : PCRYPTO_THREADID) cdecl = nil; - - {$EXTERNALSYM ERR_remove_state} - ERR_remove_state : procedure(pid: TIdC_ULONG) cdecl = nil; - {$EXTERNALSYM CRYPTO_cleanup_all_ex_data} - CRYPTO_cleanup_all_ex_data : procedure cdecl = nil; - {$EXTERNALSYM SSL_COMP_get_compression_methods} - SSL_COMP_get_compression_methods : function: PSTACK_OF_SSL_COMP cdecl = nil; - {$EXTERNALSYM SSL_COMP_free_compression_methods} - SSL_COMP_free_compression_methods : procedure; cdecl = nil; - {$EXTERNALSYM sk_pop_free} - sk_pop_free : procedure(st: PSTACK; func: Tsk_pop_free_func) cdecl = nil; - {$EXTERNALSYM sk_dup} - sk_dup : function (st : PSTACK) : PSTACK cdecl = nil; - {$EXTERNALSYM sk_find} - sk_find : function (st : PSTACK; Data : PIdAnsiChar) : TIdC_INT cdecl = nil; -{$IFDEF OPENSSL_FIPS} -{Note that I'm doing things this way so that we can have wrapper functions that hide -any IFDEF's and cases where the FIPS functions aren't in the .DLL} - {$EXTERNALSYM _FIPS_mode_set} - _FIPS_mode_set : function(onoff : TIdC_INT) : TIdC_INT cdecl = nil; - {$EXTERNALSYM _FIPS_mode} - _FIPS_mode : function () : TIdC_INT cdecl = nil; -{$ENDIF} - -{$IFNDEF OPENSSL_NO_HMAC} -{ -NOTE: - -There is breakage between OpenSSL 0.9.x and OpenSSL 1.0x. Some HMAC functions -were changed to return a result code. MOst of this is ugly but necessary to -work around the issues involved. Basically, the result of the C functions is -changed from "void" to "int" so that they can return failure. -} -//void HMAC_CTX_init(HMAC_CTX *ctx); - {$EXTERNALSYM HMAC_CTX_init} - HMAC_CTX_init : procedure(ctx : PHMAC_CTX) cdecl = nil; - -//void HMAC_Init_ex(HMAC_CTX *ctx, const void *key, int len, -// const EVP_MD *md, ENGINE *impl); - {$EXTERNALSYM _HMAC_Init_ex} - _HMAC_Init_ex : procedure(ctx : PHMAC_CTX; key : Pointer; len : TIdC_INT; - md : PEVP_MD; impl : PENGINE) cdecl = nil; -//OpenSSL 1.0 -//int HMAC_Init_ex(HMAC_CTX *ctx, const void *key, int len, -// const EVP_MD *md, ENGINE *impl); - {$EXTERNALSYM _1_0_HMAC_Init_ex} - _1_0_HMAC_Init_ex : function(ctx : PHMAC_CTX; key : Pointer; len : TIdC_INT; - md : PEVP_MD; impl : PENGINE) : TIdC_INT cdecl = nil; -//void HMAC_Update(HMAC_CTX *ctx, const unsigned char *data, size_t len); - {$EXTERNALSYM _HMAC_Update} - _HMAC_Update : procedure(ctx : PHMAC_CTX; data : PIdAnsiChar; len : size_t) cdecl = nil; - //OpenSSL 1.0 - {$EXTERNALSYM _1_0_HMAC_Update} -//int HMAC_Update(HMAC_CTX *ctx, const unsigned char *data, size_t len); - _1_0_HMAC_Update : function(ctx : PHMAC_CTX; data : PIdAnsiChar; len : size_t) : TIdC_INT cdecl = nil; - //void HMAC_Final(HMAC_CTX *ctx, unsigned char *md, unsigned int *len); - {$EXTERNALSYM _HMAC_Final} - _HMAC_Final : procedure(ctx : PHMAC_CTX; md : PIdAnsiChar; len : PIdC_UINT) cdecl = nil; -//OpenSSL 1.0 - {$EXTERNALSYM _1_0_HMAC_Final} -// int HMAC_Final(HMAC_CTX *ctx, unsigned char *md, unsigned int *len); - _1_0_HMAC_Final : function(ctx : PHMAC_CTX; md : PIdAnsiChar; len : PIdC_UINT) : TIdC_INT cdecl = nil; -//void HMAC_CTX_cleanup(HMAC_CTX *ctx); - {$EXTERNALSYM HMAC_CTX_cleanup} - HMAC_CTX_cleanup : procedure (ctx : PHMAC_CTX) cdecl = nil; - - {$EXTERNALSYM HMAC_Init_ex} -procedure HMAC_Init_ex(ctx : PHMAC_CTX; key : Pointer; len : TIdC_INT; - md : PEVP_MD; impl : PENGINE); - {$EXTERNALSYM HMAC_Update} -procedure HMAC_Update(ctx : PHMAC_CTX; data : PIdAnsiChar; len : size_t); - {$EXTERNALSYM HMAC_Final} -procedure HMAC_Final(ctx : PHMAC_CTX; md : PIdAnsiChar; len : PIdC_UINT); -{$ENDIF} - -{begin stack fancy stuff} -{ -For the sk functions having a type, you have to typecase one procedural pointer -as another procedural pointer. In the headers, these are defined in -safestack.h. -} -type - {$EXTERNALSYM Tsk_X509_NAME_new} - Tsk_X509_NAME_new = function(cmp : Tsk_new_cmp) : PSTACK_OF_X509_NAME cdecl; - {$EXTERNALSYM Tsk_X509_NAME_new_null} - Tsk_X509_NAME_new_null = function : PSTACK_OF_X509_NAME cdecl; - {$EXTERNALSYM Tsk_X509_NAME_free} - Tsk_X509_NAME_free = procedure(st : PSTACK_OF_X509_NAME) cdecl; - {$EXTERNALSYM Tsk_X509_NAME_num} - Tsk_X509_NAME_num = function (const sk : PSTACK_OF_X509_NAME) : TIdC_INT cdecl; - {$EXTERNALSYM Tsk_X509_NAME_value} - Tsk_X509_NAME_value = function (const sk : PSTACK_OF_X509_NAME; i : TIdC_INT) : PX509_NAME cdecl; - {$EXTERNALSYM Tsk_X509_NAME_push} - Tsk_X509_NAME_push = function (sk : PSTACK_OF_X509_NAME; st : PX509_NAME) : TIdC_INT cdecl; - {$EXTERNALSYM Tsk_X509_NAME_dup} - Tsk_X509_NAME_dup = function (sk : PSTACK_OF_X509_NAME) : PSTACK_OF_X509_NAME cdecl; - {$EXTERNALSYM Tsk_X509_NAME_find} - Tsk_X509_NAME_find = function (sk : PSTACK_OF_X509_NAME; val : PX509_NAME) : TIdC_INT cdecl; - {$EXTERNALSYM Tsk_X509_NAME_pop_free} - Tsk_X509_NAME_pop_free = procedure (sk : PSTACK_OF_X509_NAME; func: Tsk_pop_free_func) cdecl; - - {$EXTERNALSYM Tsk_X509_INFO_num} - Tsk_X509_INFO_num = function (const sk : PSTACK_OF_X509_INFO) : TIdC_INT cdecl; - {$EXTERNALSYM Tsk_X509_INFO_value} - Tsk_X509_INFO_value = function (const sk : PSTACK_OF_X509_INFO; i : TIdC_INT) : PX509_INFO cdecl; - {$EXTERNALSYM Tsk_X509_INFO_push} - Tsk_X509_INFO_push = function (sk : PSTACK_OF_X509_INFO; st : PX509_INFO) : TIdC_INT cdecl; - {$EXTERNALSYM Tsk_X509_INFO_dup} - Tsk_X509_INFO_dup = function (sk : PSTACK_OF_X509_INFO) : PSTACK_OF_X509_INFO cdecl; - {$EXTERNALSYM Tsk_X509_INFO_find} - Tsk_X509_INFO_find = function (sk : PSTACK_OF_X509_INFO; val : PX509_INFO) : TIdC_INT cdecl; - {$EXTERNALSYM Tsk_X509_INFO_pop_free} - Tsk_X509_INFO_pop_free = procedure (sk : PSTACK_OF_X509_INFO; func: Tsk_pop_free_func) cdecl; - -var - {$EXTERNALSYM sk_X509_NAME_new} - sk_X509_NAME_new: Tsk_X509_NAME_new absolute sk_new; - {$EXTERNALSYM sk_X509_NAME_new_null} - sk_X509_NAME_new_null : Tsk_X509_NAME_new_null absolute sk_new_null; - {$EXTERNALSYM sk_X509_NAME_free} - sk_X509_NAME_free : Tsk_X509_NAME_free absolute sk_free; - {$EXTERNALSYM sk_X509_NAME_num} - sk_X509_NAME_num : Tsk_X509_NAME_num absolute sk_num; - {$EXTERNALSYM sk_X509_NAME_value} - sk_X509_NAME_value : Tsk_X509_NAME_value absolute sk_value; - {$EXTERNALSYM sk_X509_NAME_push} - sk_X509_NAME_push : Tsk_X509_NAME_push absolute sk_push; - {$EXTERNALSYM sk_X509_NAME_dup} - sk_X509_NAME_dup : Tsk_X509_NAME_dup absolute sk_dup; - {$EXTERNALSYM sk_X509_NAME_find} - sk_X509_NAME_find : Tsk_X509_NAME_find absolute sk_find; - {$EXTERNALSYM sk_X509_NAME_pop_free} - sk_X509_NAME_pop_free : Tsk_X509_NAME_pop_free absolute sk_pop_free; - {$EXTERNALSYM sk_X509_INFO_num} - sk_X509_INFO_num : Tsk_X509_INFO_num absolute sk_num; - {$EXTERNALSYM sk_X509_INFO_value} - sk_X509_INFO_value : Tsk_X509_INFO_value absolute sk_value; - {$EXTERNALSYM sk_X509_INFO_push} - sk_X509_INFO_push : Tsk_X509_INFO_push absolute sk_push; - {$EXTERNALSYM sk_X509_INFO_dup} - sk_X509_INFO_dup : Tsk_X509_INFO_dup absolute sk_dup; - {$EXTERNALSYM sk_X509_INFO_find} - sk_X509_INFO_find : Tsk_X509_INFO_find absolute sk_find; - {$EXTERNALSYM sk_X509_INFO_pop_free} - sk_X509_INFO_pop_free : Tsk_X509_INFO_pop_free absolute sk_pop_free; -{end} - - {$EXTERNALSYM FIPS_mode_set} -function FIPS_mode_set(onoff : TIdC_INT) : TIdC_INT; {$IFDEF INLINE}inline;{$ENDIF} - {$EXTERNALSYM FIPS_mode} -function FIPS_mode() : TIdC_INT; {$IFDEF INLINE}inline;{$ENDIF} - - -{begin other stuff} - {$EXTERNALSYM UTC_Time_Decode} -function UTC_Time_Decode(UCTtime : PASN1_UTCTIME; var year, month, day, hour, min, sec: Word; - var tz_hour, tz_min: Integer): Integer; - {$EXTERNALSYM SSL_set_app_data} -function SSL_set_app_data(s: PSSL; arg: Pointer): TIdC_INT; - {$EXTERNALSYM SSL_get_app_data} -function SSL_get_app_data(s: PSSL): Pointer; -// -function Load: Boolean; -procedure Unload; -{$IFNDEF STATICLOAD_OPENSSL} -function WhichFailedToLoad: String; -function GetSSLLibHandle : TIdLibHandle; -function GetCryptLibHandle : TIdLibHandle; -procedure IdOpenSSLSetLibPath(const APath: String); - {$IFDEF UNIX} -procedure IdOpenSSLSetCanLoadSymLinks(ACanLoad: Boolean); -procedure IdOpenSSLSetLoadSymLinksFirst(ALoadFirst: Boolean); - {$ENDIF} -{$ENDIF} -// -procedure InitializeRandom; -procedure CleanupRandom; - - {$EXTERNALSYM M_ASN1_STRING_length} -function M_ASN1_STRING_length(x : PASN1_STRING): TIdC_INT; - {$EXTERNALSYM M_ASN1_STRING_length_set} -procedure M_ASN1_STRING_length_set(x : PASN1_STRING; n : TIdC_INT); - {$EXTERNALSYM M_ASN1_STRING_type} -function M_ASN1_STRING_type(x : PASN1_STRING) : TIdC_INT; - {$EXTERNALSYM M_ASN1_STRING_data} -function M_ASN1_STRING_data(x : PASN1_STRING) : PIdAnsiChar; - {$EXTERNALSYM X509_NAME_dup} -function X509_NAME_dup(xn : PX509_NAME) : PX509_NAME; - {$EXTERNALSYM X509_STORE_CTX_get_app_data} -function X509_STORE_CTX_get_app_data(ctx: PX509_STORE_CTX):Pointer; - {$EXTERNALSYM X509_get_version} -function X509_get_version(x : PX509): TIdC_LONG; - {$EXTERNALSYM X509_get_signature_type} -function X509_get_signature_type(x : PX509) : TIdC_INT; - {$EXTERNALSYM X509_REQ_get_subject_name} -function X509_REQ_get_subject_name(x:PX509_REQ):PX509_NAME; - {$EXTERNALSYM X509_get_notBefore} -function X509_get_notBefore(x509: PX509):PASN1_TIME; - {$EXTERNALSYM X509_get_notAfter} -function X509_get_notAfter(x509: PX509):PASN1_TIME; - {$EXTERNALSYM X509_REQ_get_version} -function X509_REQ_get_version(x : PX509_REQ): TIdC_LONG; - {$EXTERNALSYM X509_CRL_get_version} -function X509_CRL_get_version(x : PX509_CRL) : TIdC_LONG; - {$EXTERNALSYM X509_CRL_get_lastUpdate} -function X509_CRL_get_lastUpdate(x : PX509_CRL) : PASN1_TIME; - {$EXTERNALSYM X509_CRL_get_nextUpdate} -function X509_CRL_get_nextUpdate(x : PX509_CRL) : PASN1_TIME; - {$EXTERNALSYM X509_CRL_get_issuer} -function X509_CRL_get_issuer(x : PX509_CRL) : PX509_NAME; - {$EXTERNALSYM X509_CRL_get_REVOKED} -function X509_CRL_get_REVOKED(x : PX509_CRL) : PSTACK_OF_X509_REVOKED; - {$EXTERNALSYM SSL_CTX_set_info_callback} -procedure SSL_CTX_set_info_callback(ctx: PSSL_CTX; cb: PSSL_CTX_info_callback); - {$EXTERNALSYM SSL_CTX_set_options} -function SSL_CTX_set_options(ctx: PSSL_CTX; op: TIdC_LONG):TIdC_LONG; - {$EXTERNALSYM SSL_CTX_clear_options} -function SSL_CTX_clear_options(ctx : PSSL_CTX; op : TIdC_LONG):TIdC_LONG; - {$EXTERNALSYM SSL_CTX_get_options} -function SSL_CTX_get_options(ctx: PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_set_options} -function SSL_set_options(ssl: PSSL; op : TIdC_LONG): TIdC_LONG; - {$EXTERNALSYM SSL_clear_mode} -function SSL_clear_mode(ssl : PSSL; op : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM SSL_get_options} -function SSL_get_options(ssl : PSSL): TIdC_LONG; - {$EXTERNALSYM SSL_CTX_set_mode} -function SSL_CTX_set_mode(ctx : PSSL_CTX; op : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_clear_mode} -function SSL_CTX_clear_mode(ctx : PSSL_CTX; op : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_get_mode} -function SSL_CTX_get_mode(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_set_mtu} -function SSL_set_mtu(ssl : PSSL; mtu : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM SSL_get_secure_renegotiation_support} -function SSL_get_secure_renegotiation_support(ssl : PSSL) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_sess_number} -function SSL_CTX_sess_number(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_sess_connect} -function SSL_CTX_sess_connect(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_sess_connect_good} -function SSL_CTX_sess_connect_good(ctx : PSSL_CTX): TIdC_LONG; - {$EXTERNALSYM SSL_CTX_sess_connect_renegotiate} -function SSL_CTX_sess_connect_renegotiate(ctx : PSSL_CTX): TIdC_LONG; - {$EXTERNALSYM SSL_CTX_sess_accept} -function SSL_CTX_sess_accept(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_sess_accept_renegotiate} -function SSL_CTX_sess_accept_renegotiate(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_sess_accept_good} -function SSL_CTX_sess_accept_good(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_sess_hits} -function SSL_CTX_sess_hits(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_sess_cb_hits} -function SSL_CTX_sess_cb_hits(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_sess_misses} -function SSL_CTX_sess_misses(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_sess_timeouts} -function SSL_CTX_sess_timeouts(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_sess_cache_full} -function SSL_CTX_sess_cache_full(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_sess_set_cache_size} -function SSL_CTX_sess_set_cache_size(ctx : PSSL_CTX; t : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_sess_get_cache_size} -function SSL_CTX_sess_get_cache_size(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_set_session_cache_mode} -function SSL_CTX_set_session_cache_mode(ctx : PSSL_CTX; m : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_get_session_cache_mode} -function SSL_CTX_get_session_cache_mode(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_get_read_ahead} -function SSL_CTX_get_read_ahead(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_set_read_ahead} -function SSL_CTX_set_read_ahead(ctx : PSSL_CTX; m : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_get_max_cert_list} -function SSL_CTX_get_max_cert_list(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_set_max_cert_list} -function SSL_CTX_set_max_cert_list(ctx : PSSL_CTX; m : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM SSL_get_max_cert_list} -function SSL_get_max_cert_list(ssl : PSSL) : TIdC_LONG; - {$EXTERNALSYM SSL_set_max_cert_list} -function SSL_set_max_cert_list(ssl : PSSL; m : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM DTLSv1_get_timeout} -function DTLSv1_get_timeout(ssl : PSSL; var arg : timeval) : TIdC_LONG; - {$EXTERNALSYM DTLSv1_handle_timeout} -function DTLSv1_handle_timeout(ssl : PSSL) : TIdC_LONG; - {$EXTERNALSYM DTLSv1_listen} -function DTLSv1_listen(ssl : PSSL; var peer : sockaddr) : TIdC_LONG; - {$EXTERNALSYM SSL_session_reused} -function SSL_session_reused(ssl : PSSL) : TIdC_LONG; - {$EXTERNALSYM SSL_num_renegotiations} -function SSL_num_renegotiations(ssl : PSSL) : TIdC_LONG; - {$EXTERNALSYM SSL_clear_num_renegotiations} -function SSL_clear_num_renegotiations(ssl : PSSL) : TIdC_LONG; - {$EXTERNALSYM SSL_total_renegotiations} -function SSL_total_renegotiations(ssl : PSSL) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_need_tmp_RSA} -function SSL_CTX_need_tmp_RSA(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_set_tmp_rsa} -function SSL_CTX_set_tmp_rsa(ctx : PSSL_CTX; rsa : PRSA) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_set_tmp_dh} -function SSL_CTX_set_tmp_dh(ctx : PSSL_CTX; dh : PDH) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_set_tmp_ecdh} -function SSL_CTX_set_tmp_ecdh(ctx : PSSL_CTX; ecdh : PEC_KEY) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_set_ecdh_auto} -function SSL_CTX_set_ecdh_auto(ctx : PSSL_CTX; m : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM SSL_need_tmp_RSA} -function SSL_need_tmp_RSA(ssl : PSSL) : TIdC_LONG; - {$EXTERNALSYM SSL_set_tmp_rsa} -procedure SSL_set_tmp_rsa(ssl : PSSL; rsa : PRSA); - {$EXTERNALSYM SSL_set_tmp_dh} -function SSL_set_tmp_dh(ssl : PSSL;dh : PDH) : TIdC_LONG; - {$EXTERNALSYM SSL_set_tmp_ecdh} -function SSL_set_tmp_ecdh(ssl : PSSL; ecdh : PEC_KEY) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_add0_chain_cert} //OpenSSL 1.0.2 -function SSL_CTX_add0_chain_cert(ctx : PSSL_CTX; x509 : PX509) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_add1_chain_cert} //OpenSSL 1.0.2 -function SSL_CTX_add1_chain_cert(ctx : PSSL_CTX; x509 : PX509) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_add_extra_chain_cert} -function SSL_CTX_add_extra_chain_cert(ctx : PSSL_CTX; x509 : PX509) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_get_extra_chain_certs} -function SSL_CTX_get_extra_chain_certs(ctx : PSSL_CTX; var px509 : px509) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_get_extra_chain_certs_only} -function SSL_CTX_get_extra_chain_certs_only(ctx: PSSL_CTX;var PX509 :PX509) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_clear_extra_chain_certs} -function SSL_CTX_clear_extra_chain_certs(ctx : PSSL_CTX) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_set0_chain} //OpenSSL 1.0.2 -function SSL_CTX_set0_chain(ctx:PSSL_CTX; sk : PSTACK_OF_X509) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_set1_chain} //OpenSSL 1.0.2 -function SSL_CTX_set1_chain(ctx:PSSL_CTX; sk : PSTACK_OF_X509) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_get0_chain_certs} //OpenSSL 1.0.2 -function SSL_CTX_get0_chain_certs(ctx :PSSL_CTX; var px509 :PX509) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_clear_chain_certs} //OpenSSL 1.0.2 -function SSL_CTX_clear_chain_certs(ctx :PSSL_CTX) : TIdC_LONG; - -{$IFNDEF OPENSSL_NO_TLSEXT} - {$EXTERNALSYM SSL_set_tlsext_host_name} -function SSL_set_tlsext_host_name(s : PSSL; name : string) : TIdC_LONG; - {$EXTERNALSYM SSL_set_tlsext_debug_callback} -function SSL_set_tlsext_debug_callback(ssl : PSSL; cb : SSL_callback_ctrl_fp) : TIdC_LONG; - {$EXTERNALSYM SSL_set_tlsext_debug_arg} -function SSL_set_tlsext_debug_arg(ssl : PSSL; arg : Pointer) : TIdC_LONG; - {$EXTERNALSYM SSL_set_tlsext_status_type} -function SSL_set_tlsext_status_type(ssl : PSSL; _type : TIdC_LONG):TIdC_LONG; - {$EXTERNALSYM SSL_get_tlsext_status_exts} -function SSL_get_tlsext_status_exts(ssl : PSSL; arg : Pointer): TIdC_LONG; - {$EXTERNALSYM SSL_set_tlsext_status_exts} -function SSL_set_tlsext_status_exts(ssl : PSSL; arg : Pointer):TIdC_LONG; - {$EXTERNALSYM SSL_get_tlsext_status_ids} -function SSL_get_tlsext_status_ids(ssl : PSSL; arg : Pointer) : TIdC_LONG; - {$EXTERNALSYM SSL_set_tlsext_status_ids} -function SSL_set_tlsext_status_ids(ssl : PSSL; arg : Pointer) : TIdC_LONG; - {$EXTERNALSYM SSL_get_tlsext_status_ocsp_resp} -function SSL_get_tlsext_status_ocsp_resp(ssl : PSSL; arg : Pointer) : TIdC_LONG; - {$EXTERNALSYM SSL_set_tlsext_status_ocsp_resp} -function SSL_set_tlsext_status_ocsp_resp(ssl : PSSL; arg : Pointer; arglen : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_set_tlsext_servername_callback} -function SSL_CTX_set_tlsext_servername_callback(ctx : PSSL_CTX; cb :SSL_callback_ctrl_fp):TIdC_LONG; - {$EXTERNALSYM SSL_CTX_get_tlsext_ticket_keys} -function SSL_CTX_get_tlsext_ticket_keys(ctx : PSSL_CTX; keys : PIdAnsiChar; keylen : TIdC_LONG ) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_set_tlsext_status_cb} -function SSL_CTX_set_tlsext_status_cb(ssl : PSSL_CTX; cb : TSSL_CTX_set_tlsext_status_cb) :TIdC_LONG; - {$EXTERNALSYM SSL_set_tlsext_opaque_prf_input} -function SSL_set_tlsext_opaque_prf_input(s : PSSL; src : PIdAnsiChar; len : TIdC_LONG ) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_set_tlsext_opaque_prf_input_callback} -function SSL_CTX_set_tlsext_opaque_prf_input_callback(ctx : PSSL_CTX; cb : TSSL_CTX_set_tlsext_opaque_prf_input_callback_cb) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_set_tlsext_opaque_prf_input_callback_arg} -function SSL_CTX_set_tlsext_opaque_prf_input_callback_arg(ctx : PSSL_CTX; arg : Pointer) : TIdC_LONG; - {$EXTERNALSYM SSL_CTX_set_tlsext_ticket_key_cb} -function SSL_CTX_set_tlsext_ticket_key_cb(ssl : PSSL_CTX; cb : TSSL_CTX_set_tlsext_ticket_key_cb_fp) : TIdC_LONG; -{$ifndef OPENSSL_NO_HEARTBEATS} - {$EXTERNALSYM SSL_heartbeat} -function SSL_heartbeat(ssl : PSSL) : TIdC_LONG; - {$EXTERNALSYM SSL_get_tlsext_heartbeat_pending} -function SSL_get_tlsext_heartbeat_pending(ssl : PSSL) : TIdC_LONG; - {$EXTERNALSYM SSL_set_tlsext_heartbeat_no_requests} -function SSL_set_tlsext_heartbeat_no_requests(ssl : PSSL; arg : TIdC_LONG) : TIdC_LONG; -{$endif} -{$ENDIF} - - {$EXTERNALSYM TLS1_get_version} -function TLS1_get_version(s : PSSL) : TIdC_INT; - {$EXTERNALSYM TLS1_get_client_version} -function TLS1_get_client_version(s : PSSL) : TIdC_INT; - {$EXTERNALSYM SSL_CTX_get_version} -function SSL_CTX_get_version(ctx: PSSL_CTX):TIdC_INT; -//* BIO_s_connect() and BIO_s_socks4a_connect() */ - {$EXTERNALSYM BIO_set_conn_hostname} -function BIO_set_conn_hostname(b : PBIO; name : PIdAnsiChar) : TIdC_LONG; - {$EXTERNALSYM BIO_set_conn_port} -function BIO_set_conn_port(b : PBIO; port : PIdAnsiChar) : TIdC_LONG; - {$EXTERNALSYM BIO_set_conn_ip} -function BIO_set_conn_ip(b : PBIO; ip : PIdAnsiChar) : TIdC_LONG; - {$EXTERNALSYM BIO_set_conn_int_port} -function BIO_set_conn_int_port(b : PBIO; port : PIdAnsiChar) : TIdC_LONG; - {$EXTERNALSYM BIO_get_conn_hostname} -function BIO_get_conn_hostname(b : PBIO) : PIdAnsiChar; - {$EXTERNALSYM BIO_get_conn_port} -function BIO_get_conn_port(b : PBIO) : PIdAnsiChar; - {$EXTERNALSYM BIO_get_conn_ip} -function BIO_get_conn_ip(b : PBIO) : PIdAnsiChar; - {$EXTERNALSYM BIO_get_conn_int_port} -function BIO_get_conn_int_port(b : PBIO) : TIdC_LONG; - {$EXTERNALSYM BIO_set_nbio} -function BIO_set_nbio(b : PBIO; n : TIdC_LONG) : TIdC_LONG; -//* BIO_s_accept_socket() */ - {$EXTERNALSYM BIO_set_accept_port} -function BIO_set_accept_port(b : PBIO; name : PIdAnsiChar) : TIdC_LONG; - {$EXTERNALSYM BIO_get_accept_port} -function BIO_get_accept_port(b : PBIO) : PIdAnsiChar; - {$EXTERNALSYM BIO_set_nbio_accept} -function BIO_set_nbio_accept(b : PBIO; n : TIdC_INT) : TIdC_LONG; - {$EXTERNALSYM BIO_set_accept_bios} -function BIO_set_accept_bios(b : PBIO; bio : PBIO) : TIdC_LONG; - {$EXTERNALSYM BIO_set_bind_mode} -function BIO_set_bind_mode(b : PBIO; mode : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM BIO_get_bind_mode} -function BIO_get_bind_mode(b : PBIO; mode : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM BIO_do_handshake} -function BIO_do_handshake(b : PBIO) : TIdC_LONG; - {$EXTERNALSYM BIO_do_connect} -function BIO_do_connect(b : PBIO) : TIdC_LONG; - {$EXTERNALSYM BIO_do_accept} -function BIO_do_accept(b : PBIO) : TIdC_LONG; - {$EXTERNALSYM BIO_set_url} -function BIO_set_url(b : PBIO; url : PIdAnsiChar) : TIdC_LONG; - {$EXTERNALSYM BIO_set_proxies} -function BIO_set_proxies(b : PBIO; p : PIdAnsiChar) : TIdC_LONG; - -//* BIO_set_nbio(b,n) */ - {$EXTERNALSYM BIO_set_filter_bio} -function BIO_set_filter_bio(b : PBIO; s : PIdAnsiChar) : TIdC_LONG; - {$EXTERNALSYM BIO_set_proxy_header} -function BIO_set_proxy_header(b : PBIO; sk : PIdAnsiChar) : TIdC_LONG; - {$EXTERNALSYM BIO_set_no_connect_return} -function BIO_set_no_connect_return(b : PBIO; b2 : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM BIO_get_proxy_header} -function BIO_get_proxy_header(b : PBIO; var skp : PIdAnsiChar) : TIdC_LONG; - {$EXTERNALSYM BIO_get_proxies} -function BIO_get_proxies(b : PBIO; var pxy_p : PIdAnsiChar) : TIdC_LONG; - {$EXTERNALSYM BIO_get_url} -function BIO_get_url(b : PBIO; var url : PIdAnsiChar) : TIdC_LONG; - {$EXTERNALSYM BIO_get_no_connect_return} -function BIO_get_no_connect_return(b : PBIO) : TIdC_LONG; - {$EXTERNALSYM BIO_set_fd} -function BIO_set_fd(b : PBIO; fd,c : TIdC_INT) : TIdC_LONG; - {$EXTERNALSYM BIO_get_fd} -function BIO_get_fd(b : PBIO; c : PIdC_INT) : TIdC_LONG; - {$EXTERNALSYM BIO_seek} -function BIO_seek(b : PBIO; ofs : TIdC_LONG) : TIdC_INT; - {$EXTERNALSYM BIO_tell} -function BIO_tell(b : PBIO) : TIdC_INT; -{$IFDEF CONST_STRICT} -{$ELSE} - {$EXTERNALSYM BIO_read_filename} -function BIO_read_filename(b : PBIO; name : PIdAnsiChar) : TIdC_LONG; -{$ENDIF} - {$EXTERNALSYM BIO_get_md} -function BIO_get_md(b : PBIO; var mdp : PEVP_MD) : TIdC_LONG; - {$EXTERNALSYM BIO_get_md_ctx} -function BIO_get_md_ctx(b : PBIO; var mdcp : PEVP_MD_CTX) : TIdC_LONG; - {$EXTERNALSYM BIO_set_md_ctx} -function BIO_set_md_ctx(b : PBIO; mdcp : PEVP_MD_CTX) : TIdC_LONG; - {$EXTERNALSYM BIO_get_cipher_status} -function BIO_get_cipher_status(b : PBIO) : TIdC_LONG; - {$EXTERNALSYM BIO_get_cipher_ctx} -function BIO_get_cipher_ctx(b : PBIO; var c_pp : PEVP_CIPHER_CTX): TIdC_LONG; - - {$EXTERNALSYM BIO_write_filename} -function BIO_write_filename(b : PBIO; name : PIdAnsiChar) : TIdC_LONG; - {$EXTERNALSYM BIO_append_filename} -function BIO_append_filename(b : PBIO; name : PIdAnsiChar) : TIdC_LONG; - {$EXTERNALSYM BIO_rw_filename} -function BIO_rw_filename(b : PBIO; name : PIdAnsiChar) : TIdC_LONG; - {$EXTERNALSYM BIO_set_ssl} -function BIO_set_ssl(b : PBIO; ssl : PSSL; c : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM BIO_get_ssl} -function BIO_get_ssl(b : PBIO; var sslp : PSSL) : TIdC_LONG; - {$EXTERNALSYM BIO_set_ssl_mode} -function BIO_set_ssl_mode(b : PBIO; client : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM BIO_set_ssl_renegotiate_bytes} -function BIO_set_ssl_renegotiate_bytes(b : PBIO; num : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM BIO_get_num_renegotiates} -function BIO_get_num_renegotiates(b : PBIO) : TIdC_LONG; - {$EXTERNALSYM BIO_set_ssl_renegotiate_timeout} -function BIO_set_ssl_renegotiate_timeout(b : PBIO; seconds : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM BIO_get_mem_data} -function BIO_get_mem_data(b : PBIO; var pp : PIdAnsiChar) : TIdC_INT; - {$EXTERNALSYM BIO_set_mem_buf} -function BIO_set_mem_buf(b : PBIO; bm : PBUF_MEM; c : TIdC_INT) : TIdC_INT; - {$EXTERNALSYM BIO_get_mem_ptr} -function BIO_get_mem_ptr(b: PBIO; var pp: PBUF_MEM) : TIdC_INT; - {$EXTERNALSYM BIO_set_mem_eof_return} -procedure BIO_set_mem_eof_return(b : PBIO; const v : TIdC_INT); -//* For the BIO_f_buffer() type */ - {$EXTERNALSYM BIO_get_buffer_num_lines} -function BIO_get_buffer_num_lines(b : PBIO) : TIdC_INT; - {$EXTERNALSYM BIO_set_buffer_size} -procedure BIO_set_buffer_size(b : PBIO; const size : TIdC_INT); -//* Don't use the next one unless you know what you are doing :-) */ - {$EXTERNALSYM BIO_dup_state} -function BIO_dup_state(b : PBIO; ret : PBIO) : TIdC_LONG; - {$EXTERNALSYM BIO_reset} -function BIO_reset(b : PBIO) : TIdC_INT; - {$EXTERNALSYM BIO_eof} -function BIO_eof(b : PBIO) : TIdC_INT; - {$EXTERNALSYM BIO_set_close} -function BIO_set_close(b: PBIO; c: TIdC_LONG): TIdC_INT; - {$EXTERNALSYM BIO_get_close} -function BIO_get_close(b : PBIO) : TIdC_INT; - {$EXTERNALSYM BIO_pending} -function BIO_pending(b : PBIO) : TIdC_INT; - {$EXTERNALSYM BIO_wpending} -function BIO_wpending(b : PBIO) : TIdC_INT; - {$EXTERNALSYM BIO_flush} -function BIO_flush(b : PBIO) : TIdC_INT; -//* For the BIO_f_buffer() type */ - {$EXTERNALSYM BIO_buffer_get_num_lines} -function BIO_buffer_get_num_lines(b : PBIO) : TIdC_INT; - {$EXTERNALSYM BIO_get_info_callback} -function BIO_get_info_callback(b : PBIO; var cbp : Pbio_info_cb) : TIdC_INT; - {$EXTERNALSYM BIO_set_info_callback} -function BIO_set_info_callback(b : PBIO; cb : Pbio_info_cb) : TIdC_INT; - {$EXTERNALSYM BIO_set_read_buffer_size} -function BIO_set_read_buffer_size(b : PBIO; size : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM BIO_set_write_buffer_size} -function BIO_set_write_buffer_size(b : PBIO; size : TIdC_LONG) : TIdC_LONG; - {$EXTERNALSYM BIO_make_bio_pair} -function BIO_make_bio_pair(b1, b2 : PBIO ): TIdC_INT; - {$EXTERNALSYM BIO_destroy_bio_pair} -function BIO_destroy_bio_pair(b : PBIO) : TIdC_INT; - {$EXTERNALSYM BIO_shutdown_wr} -function BIO_shutdown_wr(b : PBIO) : TIdC_INT; -///* macros with inappropriate type -- but ...pending macros use int too: */ - {$EXTERNALSYM BIO_get_write_guarantee} -function BIO_get_write_guarantee(b : PBIO) : TIdC_INT; - {$EXTERNALSYM BIO_get_read_request} -function BIO_get_read_request(b : PBIO) : TIdC_INT; -//* ctrl macros for dgram */ - {$EXTERNALSYM _BIO_ctrl_dgram_connect} -function _BIO_ctrl_dgram_connect(b : PBIO; peer : Sockaddr) : TIdC_INT; - {$EXTERNALSYM BIO_ctrl_set_connected} -function BIO_ctrl_set_connected(b : PBIO; state : TIdC_INT; peer : Sockaddr) : TIdC_INT; - {$EXTERNALSYM BIO_dgram_recv_timedout} -function BIO_dgram_recv_timedout(b : PBIO) : TIdC_INT; - {$EXTERNALSYM BIO_dgram_send_timedout} -function BIO_dgram_send_timedout(b : PBIO) : TIdC_INT; - {$EXTERNALSYM BIO_dgram_get_peer} -function BIO_dgram_get_peer(b : PBIO; peer : PSockAddr) : TIdC_INT; - {$EXTERNALSYM BIO_dgram_set_peer} -function BIO_dgram_set_peer(b : PBIO; peer : PSockAddr) : TIdC_INT; - - {$EXTERNALSYM PEM_read_bio_X509} -function PEM_read_bio_X509(bp: PBIO; x: PPX509; cb: ppem_password_cb; u: Pointer): PX509; - {$EXTERNALSYM PEM_read_bio_X509_REQ} -function PEM_read_bio_X509_REQ(bp :PBIO; x : PPX509_REQ; cb :ppem_password_cb; u: Pointer) : PX509_REQ; - {$EXTERNALSYM PEM_read_bio_X509_CRL} -function PEM_read_bio_X509_CRL(bp : PBIO; x : PPX509_CRL;cb : ppem_password_cb; u: Pointer) : PX509_CRL; - {$EXTERNALSYM PEM_read_bio_RSAPrivateKey} -function PEM_read_bio_RSAPrivateKey(bp : PBIO; x : PPRSA; cb : ppem_password_cb; u: Pointer) : PRSA; - {$EXTERNALSYM PEM_read_bio_RSAPublicKey} -function PEM_read_bio_RSAPublicKey(bp : PBIO; x : PPRSA; cb : ppem_password_cb; u: Pointer) : PRSA; - {$EXTERNALSYM PEM_read_bio_DSAPrivateKey} -function PEM_read_bio_DSAPrivateKey(bp : PBIO; x : PPDSA; cb : ppem_password_cb; u : Pointer) : PDSA; - {$EXTERNALSYM PEM_read_bio_PrivateKey} -function PEM_read_bio_PrivateKey(bp : PBIO; x : PPEVP_PKEY; cb : ppem_password_cb; u : Pointer) : PEVP_PKEY; - {$EXTERNALSYM PEM_read_bio_PKCS7} -function PEM_read_bio_PKCS7(bp : PBIO; x : PPPKCS7; cb : ppem_password_cb; u : Pointer) : PPKCS7; - {$EXTERNALSYM PEM_read_bio_DHparams} -function PEM_read_bio_DHparams(bp : PBIO; x : PPDH; cb : ppem_password_cb; u : Pointer) : PDH; - {$EXTERNALSYM PEM_read_bio_DSAparams} -function PEM_read_bio_DSAparams(bp : PBIO; x : PPDSA; cb : ppem_password_cb; u : Pointer) : PDSA; - {$EXTERNALSYM PEM_read_bio_NETSCAPE_CERT_SEQUENCE} -function PEM_read_bio_NETSCAPE_CERT_SEQUENCE(bp : PBIO; x : PPNETSCAPE_CERT_SEQUENCE; - cb : ppem_password_cb; u : Pointer) : PNETSCAPE_CERT_SEQUENCE; - {$EXTERNALSYM PEM_read_bio_PUBKEY} -function PEM_read_bio_PUBKEY(bp : PBIO; x : PPEVP_PKEY; cb : ppem_password_cb; u : Pointer) : PEVP_PKEY; - {$EXTERNALSYM PEM_write_bio_X509} -function PEM_write_bio_X509(bp: PBIO; x: PX509): TIdC_INT; - {$EXTERNALSYM PEM_write_bio_X509_REQ} -function PEM_write_bio_X509_REQ(bp: PBIO; x: PX509_REQ): TIdC_INT; - {$EXTERNALSYM PEM_write_bio_X509_CRL} -function PEM_write_bio_X509_CRL(bp : PBIO; x : PX509_CRL) : TIdC_INT; - {$EXTERNALSYM PEM_write_bio_RSAPrivateKey} -function PEM_write_bio_RSAPrivateKey(bp : PBIO; x : PRSA; const enc : PEVP_CIPHER; - kstr : PIdAnsiChar; klen : TIdC_INT; cb : ppem_password_cb; u : POinter) : TIdC_INT; - {$EXTERNALSYM PEM_write_bio_RSAPublicKey} -function PEM_write_bio_RSAPublicKey(bp : PBIO; x : PRSA) : TIdC_INT; - {$EXTERNALSYM PEM_write_bio_DSAPrivateKey} -function PEM_write_bio_DSAPrivateKey( bp : PBIO; x : PDSA; const enc : PEVP_CIPHER; - kstr : PIdAnsiChar; klen : TIdC_INT; cb : Ppem_password_cb; u : Pointer) : TIdC_INT; - {$EXTERNALSYM PEM_write_bio_PrivateKey} -function PEM_write_bio_PrivateKey(bp : PBIO; x : PEVP_PKEY; const enc : PEVP_CIPHER; - kstr : PIdAnsiChar; klen : TIdC_INT; cb : Ppem_password_cb; u : Pointer) : TIdC_INT; - {$EXTERNALSYM PEM_write_bio_PKCS7} -function PEM_write_bio_PKCS7(bp : PBIO; x : PPKCS7) : TIdC_INT; - {$EXTERNALSYM PEM_write_bio_DHparams} -function PEM_write_bio_DHparams(bp : PBIO; x : PDH): TIdC_INT; - {$EXTERNALSYM PEM_write_bio_DSAparams} -function PEM_write_bio_DSAparams(bp : PBIO; x : PDSA) : TIdC_INT; - {$EXTERNALSYM PEM_write_bio_NETSCAPE_CERT_SEQUENCE} -function PEM_write_bio_NETSCAPE_CERT_SEQUENCE(bp : PBIO; x : PDSA) : TIdC_INT; - {$EXTERNALSYM PEM_write_bio_PUBKEY} -function PEM_write_bio_PUBKEY(bp : PBIO; x : PEVP_PKEY) : TIdC_INT; - - {$EXTERNALSYM OPENSSL_malloc} -function OPENSSL_malloc(aSize:TIdC_INT):Pointer; - {$EXTERNALSYM CRYPTO_SetMemCheck} -procedure CRYPTO_SetMemCheck(const aEnabled: Boolean); - -{$IFNDEF OPENSSL_NO_RSA} - {$EXTERNALSYM EVP_PKEY_assign_RSA} -function EVP_PKEY_assign_RSA(pkey: PEVP_PKEY; rsa: PRSA): TIdC_INT; -{$ENDIF} - -{$IFNDEF OPENSSL_NO_DSA} - {$EXTERNALSYM EVP_PKEY_assign_DSA} -function EVP_PKEY_assign_DSA(pkey : PEVP_PKEY; dsa : PDSA) : TIdC_INT; -{$ENDIF} - -{$IFNDEF OPENSSL_NO_DH} - {$EXTERNALSYM EVP_PKEY_assign_DH} -function EVP_PKEY_assign_DH(pkey : PEVP_PKEY; dh : PDH) : TIdC_INT; -{$ENDIF} - -{$IFNDEF OPENSSL_NO_EC} - {$EXTERNALSYM EVP_PKEY_assign_EC_KEY} -function EVP_PKEY_assign_EC_KEY(pkey : PEVP_PKEY; eckey : PEC_KEY) : TIdC_INT; -{$ENDIF} - -//* Add some extra combinations */ - {$EXTERNALSYM EVP_get_digestbynid} -function EVP_get_digestbynid(a : TIdC_INT) : PEVP_MD; - {$EXTERNALSYM EVP_get_digestbyobj} -function EVP_get_digestbyobj(a : PASN1_OBJECT) : PEVP_MD; - {$EXTERNALSYM EVP_get_cipherbynid} -function EVP_get_cipherbynid(a : TIdC_INT) : PEVP_CIPHER; - {$EXTERNALSYM EVP_get_cipherbyobj} -function EVP_get_cipherbyobj(a : PASN1_OBJECT) : PEVP_CIPHER; - {$EXTERNALSYM EVP_MD_nid} -function EVP_MD_nid(e : PEVP_MD) : TIdC_INT; - {$EXTERNALSYM EVP_MD_name} -function EVP_MD_name(e : PEVP_MD) : PIdAnsiChar; - {$EXTERNALSYM EVP_MD_CTX_size} -function EVP_MD_CTX_size(e : PEVP_MD_CTX) : TIdC_INT; - {$EXTERNALSYM EVP_MD_CTX_block_size} -function EVP_MD_CTX_block_size(e : PEVP_MD_CTX) : TIdC_INT; - {$EXTERNALSYM EVP_MD_CTX_type} -function EVP_MD_CTX_type(e : PEVP_MD_CTX) : TIdC_INT; - {$EXTERNALSYM EVP_CIPHER_name} -function EVP_CIPHER_name(e : PEVP_CIPHER) : PIdAnsiChar; - {$EXTERNALSYM EVP_CIPHER_mode} -function EVP_CIPHER_mode(e : PEVP_CIPHER) : TIdC_ULONG; - {$EXTERNALSYM EVP_CIPHER_CTX_type} -function EVP_CIPHER_CTX_type(c : PEVP_CIPHER_CTX) : TIdC_INT; - {$EXTERNALSYM EVP_CIPHER_CTX_mode} -function EVP_CIPHER_CTX_mode(e : PEVP_CIPHER_CTX) : TIdC_ULONG; - {$EXTERNALSYM EVP_ENCODE_LENGTH} -function EVP_ENCODE_LENGTH(l : Integer) : Integer; - {$EXTERNALSYM EVP_DECODE_LENGTH} -function EVP_DECODE_LENGTH(l : Integer) : Integer; - {$EXTERNALSYM EVP_SignInit_ex} -function EVP_SignInit_ex(a: PEVP_MD_CTX; b : PEVP_MD; c : PENGINE) : TIdC_INT; - {$EXTERNALSYM EVP_SignInit} -function EVP_SignInit(a : PEVP_MD_CTX; b : PEVP_MD) : TIdC_INT; - {$EXTERNALSYM EVP_SignUpdate} -function EVP_SignUpdate(a: PEVP_MD_CTX; b : Pointer; c : size_t) : TIdC_INT; - {$EXTERNALSYM EVP_VerifyInit_ex} -function EVP_VerifyInit_ex(a: PEVP_MD_CTX; b: PEVP_MD; c: PENGINE) : TIdC_INT; - {$EXTERNALSYM EVP_VerifyInit} -function EVP_VerifyInit(a: PEVP_MD_CTX; b: PEVP_MD) : TIdC_INT; - {$EXTERNALSYM EVP_VerifyUpdate} -function EVP_VerifyUpdate(a: PEVP_MD_CTX; b: Pointer; c : size_t) : TIdC_INT; - {$EXTERNALSYM EVP_OpenUpdate} -function EVP_OpenUpdate(a: PEVP_CIPHER_CTX; _out : PIdAnsiChar; outl : PIdC_INT; - _in : PIdAnsiChar; inl : TIdC_INT) : TIdC_INT; - {$EXTERNALSYM EVP_SealUpdate} -function EVP_SealUpdate(a : PEVP_CIPHER_CTX; b: PIdAnsiChar; c : PIdC_INT; - d: PIdAnsiChar; e : TIdC_INT) : TIdC_INT; - {$EXTERNALSYM EVP_DigestSignUpdate} -function EVP_DigestSignUpdate(a : PEVP_MD_CTX; b : Pointer; c : size_t) : TIdC_Int; - {$EXTERNALSYM EVP_DigestVerifyUpdate} -function EVP_DigestVerifyUpdate(a : PEVP_MD_CTX; b : Pointer; c : size_t) : TIdC_INT; -{$ifndef OPENSSL_NO_DES} - {$EXTERNALSYM EVP_des_cfb} -function EVP_des_cfb : PEVP_CIPHER; - {$EXTERNALSYM EVP_des_ede_cfb} -function EVP_des_ede_cfb: PEVP_CIPHER; - {$EXTERNALSYM EVP_des_ede3_cfb} -function EVP_des_ede3_cfb: PEVP_CIPHER; -{$endif} -{$ifndef OPENSSL_NO_IDEA} - {$EXTERNALSYM EVP_idea_cfb} -function EVP_idea_cfb: PEVP_CIPHER; -{$endif} -{$ifndef OPENSSL_NO_RC2} - {$EXTERNALSYM EVP_rc2_cfb} -function EVP_rc2_cfb: PEVP_CIPHER; -{$endif} -{$ifndef OPENSSL_NO_BF} - {$EXTERNALSYM EVP_bf_cfb} -function EVP_bf_cfb: PEVP_CIPHER; -{$endif} -{$ifndef OPENSSL_NO_CAST} - {$EXTERNALSYM EVP_cast5_cfb} -function EVP_cast5_cfb: PEVP_CIPHER; -{$endif} -{$ifndef OPENSSL_NO_RC5} - {$EXTERNALSYM EVP_rc5_32_12_16_cfb} -function EVP_rc5_32_12_16_cfb: PEVP_CIPHER; -{$endif} -{$ifndef OPENSSL_NO_AES} - {$EXTERNALSYM EVP_aes_128_cfb} -function EVP_aes_128_cfb: PEVP_CIPHER; - {$EXTERNALSYM EVP_aes_192_cfb} -function EVP_aes_192_cfb: PEVP_CIPHER; - {$EXTERNALSYM EVP_aes_256_cfb} -function EVP_aes_256_cfb: PEVP_CIPHER; -{$endif} -{$ifndef OPENSSL_NO_CAMELLIA} - {$EXTERNALSYM EVP_camellia_128_cfb} -function EVP_camellia_128_cfb: PEVP_CIPHER; - {$EXTERNALSYM EVP_camellia_192_cfb} -function EVP_camellia_192_cfb: PEVP_CIPHER; - {$EXTERNALSYM EVP_camellia_256_cfb} -function EVP_camellia_256_cfb: PEVP_CIPHER; -{$endif} -{$ifndef OPENSSL_NO_SEED} - {$EXTERNALSYM EVP_seed_cfb} -function EVP_seed_cfb: PEVP_CIPHER; -{$endif} - {$EXTERNALSYM EVP_PKEY_CTX_set_signature_md} -function EVP_PKEY_CTX_set_signature_md(ctx : PEVP_PKEY_CTX;md : PEVP_PKEY_CTX) : TIdC_INT; - {$EXTERNALSYM SSLeay_add_all_algorithms} -procedure SSLeay_add_all_algorithms; - {$EXTERNALSYM SSLeay_add_all_ciphers} -procedure SSLeay_add_all_ciphers; - {$EXTERNALSYM SSLeay_add_all_digests} -procedure SSLeay_add_all_digests; - - {$EXTERNALSYM X509V3_set_ctx_nodb} -procedure X509V3_set_ctx_nodb(ctx: X509V3_CTX); -// - {$EXTERNALSYM ErrMsg} -function ErrMsg(AErr : TIdC_ULONG) : string; - {$EXTERNALSYM ERR_PACK} -function ERR_PACK(l, f, r : TIdC_INT) : TIdC_ULONG; - {$EXTERNALSYM ERR_GET_LIB} -function ERR_GET_LIB(const l : TIdC_INT) : TIdC_ULONG; - {$EXTERNALSYM ERR_GET_FUNC} -function ERR_GET_FUNC(const l : TIdC_INT) : TIdC_ULONG; - {$EXTERNALSYM ERR_FATAL_ERROR} -function ERR_FATAL_ERROR(const l : TIdC_INT) : Boolean; - {$EXTERNALSYM ERR_GET_REASON} -function ERR_GET_REASON(const l : TIdC_INT) : TIdC_INT; - {$EXTERNALSYM SYSerr} -procedure SYSerr(const f,r : TIdC_INT); - {$EXTERNALSYM BNerr} -procedure BNerr(const f,r : TIdC_INT); - {$EXTERNALSYM RSAerr} -procedure RSAerr(const f,r : TIdC_INT); - {$EXTERNALSYM DHerrr} -procedure DHerrr(const f,r : TIdC_INT); - {$EXTERNALSYM EVPerr} -procedure EVPerr(const f,r : TIdC_INT); - {$EXTERNALSYM BUFerr} -procedure BUFerr(const f,r : TIdC_INT); - {$EXTERNALSYM OBJerr} -procedure OBJerr(const f,r : TIdC_INT); - {$EXTERNALSYM PEMerr} -procedure PEMerr(const f,r : TIdC_INT); - {$EXTERNALSYM DSAerr} -procedure DSAerr(const f,r : TIdC_INT); - {$EXTERNALSYM X509err} -procedure X509err(const f,r : TIdC_INT); - {$EXTERNALSYM ASN1err} -procedure ASN1err(const f,r : TIdC_INT); - {$EXTERNALSYM CONFerr} -procedure CONFerr(const f,r : TIdC_INT); - {$EXTERNALSYM CRYPTOerr} -procedure CRYPTOerr(const f,r : TIdC_INT); - {$EXTERNALSYM ECerr} -procedure ECerr(const f,r : TIdC_INT); - {$EXTERNALSYM SSLerr} -procedure SSLerr(const f,r : TIdC_INT); - {$EXTERNALSYM BIOerr} -procedure BIOerr(const f,r : TIdC_INT); - {$EXTERNALSYM PKCS7err} -procedure PKCS7err(const f,r : TIdC_INT); - {$EXTERNALSYM X509V3err} -procedure X509V3err(const f,r : TIdC_INT); - {$EXTERNALSYM PKCS12err} -procedure PKCS12err(const f,r : TIdC_INT); - {$EXTERNALSYM RANDerr} -procedure RANDerr(const f,r : TIdC_INT); - {$EXTERNALSYM DSOerr} -procedure DSOerr(const f,r : TIdC_INT); - {$EXTERNALSYM ENGINEerr} -procedure ENGINEerr(const f,r : TIdC_INT); - {$EXTERNALSYM OCSPerr} -procedure OCSPerr(const f,r : TIdC_INT); - {$EXTERNALSYM UIerr} -procedure UIerr(const f,r : TIdC_INT); - {$EXTERNALSYM COMPerr} -procedure COMPerr(const f,r : TIdC_INT); - {$EXTERNALSYM ECDSAerr} -procedure ECDSAerr(const f,r : TIdC_INT); - {$EXTERNALSYM ECDHerr} -procedure ECDHerr(const f,r : TIdC_INT); - {$EXTERNALSYM STOREerr} -procedure STOREerr(const f,r : TIdC_INT); - {$EXTERNALSYM FIPSerr} -procedure FIPSerr(const f,r : TIdC_INT); - {$EXTERNALSYM CMSerr} -procedure CMSerr(const f,r : TIdC_INT); - {$EXTERNALSYM TSerr} -procedure TSerr(const f,r : TIdC_INT); - {$EXTERNALSYM HMACerr} -procedure HMACerr(const f,r : TIdC_INT); - {$EXTERNALSYM JPAKEerr} -procedure JPAKEerr(const f,r : TIdC_INT); - {$EXTERNALSYM X509_LOOKUP_load_file} -function X509_LOOKUP_load_file(x : PX509_LOOKUP; name : PIdAnsiChar; _type : TIdC_LONG) : TIdC_INT; - {$EXTERNALSYM X509_LOOKUP_add_dir} -function X509_LOOKUP_add_dir(x : PX509_LOOKUP; name : PIdAnsiChar; _type : TIdC_LONG) : TIdC_INT; - -type -//moved from IdSSLOpenSSL so we can use these classes in other places - EIdOpenSSLError = class(EIdException); - TIdOpenSSLAPISSLError = class of EIdOpenSSLAPISSLError; - - EIdOpenSSLAPISSLError = class(EIdOpenSSLError) - protected - FErrorCode : TIdC_INT; - FRetCode : TIdC_INT; - public - class procedure RaiseException(ASSL: Pointer; const ARetCode : TIdC_INT; const AMsg : String = ''); - class procedure RaiseExceptionCode(const AErrCode, ARetCode : TIdC_INT; const AMsg : String = ''); - property ErrorCode : TIdC_INT read FErrorCode; - property RetCode : TIdC_INT read FRetCode; - end; - - TIdOpenSSLAPICryptoError = class of EIdOpenSSLAPICryptoError; - EIdOpenSSLAPICryptoError = class(EIdOpenSSLError) - protected - FErrorCode : TIdC_ULONG; - public - class procedure RaiseExceptionCode(const AErrCode : TIdC_ULONG; const AMsg : String = ''); - class procedure RaiseException(const AMsg : String = ''); - property ErrorCode : TIdC_ULONG read FErrorCode; - end; - EIdOSSLUnderlyingCryptoError = class(EIdOpenSSLAPICryptoError); - - EIdDigestError = class(EIdOpenSSLAPICryptoError); - EIdDigestFinalEx = class(EIdDigestError); - EIdDigestInitEx = class(EIdDigestError); - EIdDigestUpdate = class(EIdDigestError); - -function IsOpenSSL_1x : Boolean; -function IsOpenSSL_SSLv2_Available : Boolean; -function IsOpenSSL_SSLv3_Available : Boolean; -function IsOpenSSL_SSLv23_Available : Boolean; -function IsOpenSSL_TLSv1_0_Available : Boolean; -function IsOpenSSL_TLSv1_1_Available : Boolean; -function IsOpenSSL_TLSv1_2_Available : Boolean; -function IsOpenSSL_DTLSv1_Available : Boolean; - -// RLebeau: should these be declared as EXTERNALSYM? -procedure RAND_cleanup; -function RAND_bytes(buf : PIdAnsiChar; num : integer) : integer; -function RAND_pseudo_bytes(buf : PIdAnsiChar; num : integer) : integer; -procedure RAND_seed(buf : PIdAnsiChar; num : integer); -procedure RAND_add(buf : PIdAnsiChar; num : integer; entropy : integer); -function RAND_status() : integer; -{$IFDEF SYS_WIN} -function RAND_event(iMsg : UINT; wp : wparam; lp : lparam) : integer; -procedure RAND_screen(); -{$ENDIF} - -implementation - -uses - Classes, - IdFIPS, - IdGlobalProtocols, - IdResourceStringsProtocols, - IdResourceStringsOpenSSL, - IdStack - {$IFDEF FPC} - {$IFNDEF WINDOWS} - , DynLibs // needed for FreeLibrary - {$ENDIF} - {$ENDIF}; - -{$IFNDEF OPENSSL_NO_HMAC} -procedure HMAC_Init_ex(ctx : PHMAC_CTX; key : Pointer; len : TIdC_INT; - md : PEVP_MD; impl : PENGINE); - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - if Assigned(_HMAC_Init_ex) then begin - _HMAC_Init_ex(ctx, key, len, md, impl ); - end else begin - if Assigned(_1_0_HMAC_Init_ex) then begin - _1_0_HMAC_Init_ex(ctx, key, len, md, impl ); - end; - end; -end; - -procedure HMAC_Update(ctx : PHMAC_CTX; data : PIdAnsiChar; len : size_t); - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - if Assigned(_HMAC_Update) then begin - _HMAC_Update(ctx, data, len ); - end else begin - if Assigned(_1_0_HMAC_Update) then begin - _1_0_HMAC_Update(ctx, data, len ); - end; - end; -end; - -procedure HMAC_Final(ctx : PHMAC_CTX; md : PIdAnsiChar; len : PIdC_UINT); - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - if Assigned(_HMAC_Final) then begin - _HMAC_Final(ctx, md, len ); - end else begin - if Assigned(_1_0_HMAC_Update) then begin - _1_0_HMAC_Final(ctx, md, len ); - end; - end; -end; -{$ENDIF} - -function IsOpenSSL_1x : Boolean; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - if Assigned( SSLeay ) then begin - Result := (SSLeay and $F0000000) = $10000000; - end else begin - Result := False; - end; -end; - -function IsOpenSSL_SSLv2_Available : Boolean; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := Assigned(SSLv2_method) and - Assigned(SSLv2_server_method) and - Assigned(SSLv2_client_method); -end; - -function IsOpenSSL_SSLv3_Available : Boolean; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := Assigned(SSLv3_method) and - Assigned(SSLv3_server_method) and - Assigned(SSLv3_client_method); -end; - -function IsOpenSSL_SSLv23_Available : Boolean; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := Assigned(SSLv23_method) and - Assigned(SSLv23_server_method) and - Assigned(SSLv23_client_method); -end; - -function IsOpenSSL_TLSv1_0_Available : Boolean; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := Assigned(TLSv1_method) and - Assigned(TLSv1_server_method) and - Assigned(TLSv1_client_method); -end; - -function IsOpenSSL_TLSv1_1_Available : Boolean; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := Assigned(TLSv1_1_method) and - Assigned(TLSv1_1_server_method) and - Assigned(TLSv1_1_client_method); -end; - -function IsOpenSSL_TLSv1_2_Available : Boolean; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := Assigned(TLSv1_2_method) and - Assigned(TLSv1_2_server_method) and - Assigned(TLSv1_2_client_method); -end; - -function IsOpenSSL_DTLSv1_Available : Boolean; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := Assigned(DTLSv1_method) and - Assigned(DTLSv1_server_method) and - Assigned(DTLSv1_client_method); -end; - -//**************** FIPS Support backend ******************* -function OpenSSLIsHashingIntfAvail : Boolean; -begin - Result := Assigned(EVP_DigestInit_ex) and - Assigned(EVP_DigestUpdate) and - Assigned(EVP_DigestFinal_ex) ; -end; - -function OpenSSLGetFIPSMode : Boolean; -begin - Result := FIPS_mode <> 0; -end; - -function OpenSSLSetFIPSMode(const AMode : Boolean) : Boolean; -begin - //leave this empty as we may not be using something that supports FIPS - if AMode then begin - Result := FIPS_mode_set(1) = 1; - end else begin - Result := FIPS_mode_set(0) = 1; - end; -end; - -function OpenSSLGetDigestCtx( AInst : PEVP_MD) : TIdHashIntCtx; - {$IFDEF USE_INLINE} inline; {$ENDIF} -var LRet : Integer; -begin - Result := AllocMem(SizeOf(EVP_MD_CTX)); - EVP_MD_CTX_init(Result); - - LRet := EVP_DigestInit_ex(Result, AInst, nil); - if LRet <> 1 then begin - EIdDigestInitEx.RaiseException('EVP_DigestInit_ex error'); - end; -end; - -function OpenSSLIsMD2HashIntfAvail: Boolean; -begin - {$IFDEF OPENSSL_NO_MD2} - Result := False; - {$ELSE} - Result := Assigned(EVP_md2); - {$ENDIF} -end; - -function OpenSSLGetMD2HashInst : TIdHashIntCtx; -{$IFNDEF OPENSSL_NO_MD2} -var - LRet : PEVP_MD; -{$ENDIF} -begin - {$IFDEF OPENSSL_NO_MD2} - Result := nil; - {$ELSE} - LRet := EVP_md2; - Result := OpenSSLGetDigestCtx(LRet); - {$ENDIF} -end; - -function OpenSSLIsMD4HashIntfAvail: Boolean; -begin - Result := Assigned(EVP_md4); -end; - -function OpenSSLGetMD4HashInst : TIdHashIntCtx; -var - LRet : PEVP_MD; -begin - LRet := EVP_md4; - Result := OpenSSLGetDigestCtx(LRet); -end; - -function OpenSSLIsMD5HashIntfAvail: Boolean; -begin - Result := Assigned(EVP_md5); -end; - -function OpenSSLGetMD5HashInst : TIdHashIntCtx; -var - LRet : PEVP_MD; -begin - LRet := EVP_md5; - Result := OpenSSLGetDigestCtx(LRet); -end; - -function OpenSSLIsSHA1HashIntfAvail: Boolean; -begin - {$IFDEF OPENSSL_NO_SHA} - Result := False; - {$ELSE} - Result := Assigned(EVP_sha1); - {$ENDIF} -end; - -function OpenSSLGetSHA1HashInst : TIdHashIntCtx; -{$IFNDEF OPENSSL_NO_SHA} -var - LRet : PEVP_MD; -{$ENDIF} -begin - {$IFDEF OPENSSL_NO_SHA} - Result := nil; - {$ELSE} - LRet := EVP_sha1; - Result := OpenSSLGetDigestCtx(LRet); - {$ENDIF} -end; - -function OpenSSLIsSHA224HashIntfAvail: Boolean; -begin - {$IFDEF OPENSSL_NO_SHA256} - Result := False; - {$ELSE} - Result := Assigned(EVP_sha224); - {$ENDIF} -end; - -function OpenSSLGetSHA224HashInst : TIdHashIntCtx; -{$IFNDEF OPENSSL_NO_SHA256} -var - LRet : PEVP_MD; -{$ENDIF} -begin - {$IFDEF OPENSSL_NO_SHA256} - Result := nil; - {$ELSE} - LRet := EVP_sha224; - Result := OpenSSLGetDigestCtx(LRet); - {$ENDIF} -end; - -function OpenSSLIsSHA256HashIntfAvail: Boolean; -begin - {$IFDEF OPENSSL_NO_SHA256} - Result := False; - {$ELSE} - Result := Assigned(EVP_sha256); - {$ENDIF} -end; - -function OpenSSLGetSHA256HashInst : TIdHashIntCtx; -{$IFNDEF OPENSSL_NO_SHA256} -var - LRet : PEVP_MD; -{$ENDIF} -begin - {$IFDEF OPENSSL_NO_SHA256} - Result := nil; - {$ELSE} - LRet := EVP_sha256; - Result := OpenSSLGetDigestCtx(LRet); - {$ENDIF} -end; - -function OpenSSLIsSHA384HashIntfAvail: Boolean; -begin - {$IFDEF OPENSSL_NO_SHA512} - Result := False; - {$ELSE} - Result := Assigned(EVP_sha384); - {$ENDIF} -end; - -function OpenSSLGetSHA384HashInst : TIdHashIntCtx; -{$IFNDEF OPENSSL_NO_SHA512} -var - LRet : PEVP_MD; -{$ENDIF} -begin - {$IFDEF OPENSSL_NO_SHA512} - Result := nil; - {$ELSE} - LRet := EVP_sha384; - Result := OpenSSLGetDigestCtx(LRet); - {$ENDIF} -end; - -function OpenSSLIsSHA512HashIntfAvail: Boolean; -begin - {$IFDEF OPENSSL_NO_SHA512} - Result := nil; - {$ELSE} - Result := Assigned(EVP_sha512); - {$ENDIF} -end; - -function OpenSSLGetSHA512HashInst : TIdHashIntCtx; -{$IFNDEF OPENSSL_NO_SHA512} -var - LRet : PEVP_MD; -{$ENDIF} -begin - {$IFDEF OPENSSL_NO_SHA512} - Result := nil; - {$ELSE} - LRet := EVP_sha512; - Result := OpenSSLGetDigestCtx(LRet); -{$ENDIF} -end; - -procedure OpenSSLUpdateHashInst(ACtx: TIdHashIntCtx; const AIn: TIdBytes); -var - LRet : TIdC_Int; -begin - LRet := EVP_DigestUpdate(ACtx, PByte(Ain), Length(AIn)); - if LRet <> 1 then begin - EIdDigestInitEx.RaiseException('EVP_DigestUpdate error'); - end; -end; - -function OpenSSLFinalHashInst(ACtx: TIdHashIntCtx): TIdBytes; -var - LLen : TIdC_UInt; - LRet : TIdC_Int; -begin - SetLength(Result,EVP_MAX_MD_SIZE); - LRet := EVP_DigestFinal_ex(ACtx, PIdAnsiChar(@Result[0]), LLen); - if LRet <> 1 then begin - EIdDigestFinalEx.RaiseException('EVP_DigestFinal_ex error'); - end; - SetLength(Result,LLen); - EVP_MD_CTX_cleanup(ACtx); - FreeMem(ACtx,SizeOf(EVP_MD_CTX)); -end; - -function OpenSSLIsHMACAvail : Boolean; -begin - {$IFDEF OPENSSL_NO_HMAC} - Result := False; - {$ELSE} - Result := Assigned(HMAC_CTX_init) and - ( Assigned(_HMAC_Init_ex) or Assigned(_1_0_HMAC_Init_ex) ) and - ( Assigned(_HMAC_Update) or Assigned(_1_0_HMAC_Update) ) and - ( Assigned(_HMAC_Final) or Assigned(_1_0_HMAC_Final) ) and - Assigned(HMAC_CTX_cleanup); - {$ENDIF} -end; - -function OpenSSLIsHMACMD5Avail: Boolean; -begin - {$IFDEF OPENSSL_NO_MD5} - Result := False; - {$ELSE} - Result := Assigned(EVP_md5); - {$ENDIF} -end; - -function OpenSSLGetHMACMD5Inst(const AKey : TIdBytes) : TIdHMACIntCtx; -begin - {$IFDEF OPENSSL_NO_MD5} - Result := nil; - {$ELSE} - Result := AllocMem(SizeOf(HMAC_CTX)); - HMAC_CTX_init(Result); - HMAC_Init_ex(Result, PByte(AKey), Length(AKey), EVP_md5, nil); - {$ENDIF} -end; - -function OpenSSLIsHMACSHA1Avail: Boolean; -begin - {$IFDEF OPENSSL_NO_SHA} - Result := False; - {$ELSE} - Result := Assigned(EVP_sha1); - {$ENDIF} -end; - -function OpenSSLGetHMACSHA1Inst(const AKey : TIdBytes) : TIdHMACIntCtx; -begin - {$IFDEF OPENSSL_NO_SHA} - Result := nil; - {$ELSE} - Result := AllocMem(SizeOf(HMAC_CTX)); - HMAC_CTX_init(Result); - HMAC_Init_ex(Result, PByte(AKey), Length(AKey), EVP_sha1, nil); - {$ENDIF} -end; - -function OpenSSLIsHMACSHA224Avail: Boolean; - -begin - {$IFDEF OPENSSL_NO_SHA256} - Result := False; - {$ELSE} - Result := Assigned(EVP_sha224); - {$ENDIF} -end; - -function OpenSSLGetHMACSHA224Inst(const AKey : TIdBytes) : TIdHMACIntCtx; -begin - {$IFDEF OPENSSL_NO_SHA256} - Result := nil; - {$ELSE} - Result := AllocMem(SizeOf(HMAC_CTX)); - HMAC_CTX_init(Result); - HMAC_Init_ex(Result, PByte(AKey), Length(AKey), EVP_sha224, nil); - {$ENDIF} -end; - -function OpenSSLIsHMACSHA256Avail: Boolean; -begin - {$IFDEF OPENSSL_NO_SHA256} - Result := False; - {$ELSE} - Result := Assigned(EVP_sha256); - {$ENDIF} -end; - -function OpenSSLGetHMACSHA256Inst(const AKey : TIdBytes) : TIdHMACIntCtx; -begin - {$IFDEF OPENSSL_NO_SHA256} - Result := nil; - {$ELSE} - Result := AllocMem(SizeOf(HMAC_CTX)); - HMAC_CTX_init(Result); - HMAC_Init_ex(Result, PByte(AKey), Length(AKey), EVP_sha256, nil); - {$ENDIF} -end; - -function OpenSSLIsHMACSHA384Avail: Boolean; -begin - {$IFDEF OPENSSL_NO_SHA512} - Result := False; - {$ELSE} - Result := Assigned(EVP_sha384); - {$ENDIF} -end; - -function OpenSSLGetHMACSHA384Inst(const AKey : TIdBytes) : TIdHMACIntCtx; -begin - {$IFDEF OPENSSL_NO_SHA512} - Result := nil; - {$ELSE} - Result := AllocMem(SizeOf(HMAC_CTX)); - HMAC_CTX_init(Result); - HMAC_Init_ex(Result, PByte(AKey), Length(AKey), EVP_sha384, nil); - {$ENDIF} -end; - -function OpenSSLIsHMACSHA512Avail: Boolean; -begin - {$IFDEF OPENSSL_NO_SHA512} - Result := False; - {$ELSE} - Result := Assigned(EVP_sha512); - {$ENDIF} -end; - -function OpenSSLGetHMACSHA512Inst(const AKey : TIdBytes) : TIdHMACIntCtx; -begin - {$IFDEF OPENSSL_NO_SHA512} - Result := nil; - {$ELSE} - Result := AllocMem(SizeOf(HMAC_CTX)); - HMAC_CTX_init(Result); - HMAC_Init_ex(Result, PByte(AKey), Length(AKey), EVP_sha512, nil); - {$ENDIF} -end; - -procedure OpenSSLUpdateHMACInst(ACtx : TIdHMACIntCtx; const AIn: TIdBytes); -begin - HMAC_Update(ACtx, PIdAnsiChar(PByte(AIn)), Length(AIn)); -end; - -function OpenSSLFinalHMACInst(ACtx: TIdHMACIntCtx): TIdBytes; -var - LLen : TIdC_UInt; -begin - LLen := EVP_MAX_MD_SIZE; - SetLength(Result,LLen); - HMAC_Final(ACtx, PIdAnsiChar(@Result[0]), @LLen); - SetLength(Result,LLen); - HMAC_CTX_cleanup(ACtx); - FreeMem(ACtx,SizeOf(HMAC_CTX)); -end; - -function LoadOpenSSL: Boolean; -begin - Result := Load; -end; - -//**************************************************** -function FIPS_mode_set(onoff : TIdC_INT) : TIdC_INT; {$IFDEF INLINE}inline;{$ENDIF} -begin - Result := 0; - {$IFDEF OPENSSL_FIPS} - if Assigned(_FIPS_mode_set) then begin - Result := _FIPS_mode_set(onoff); - end; - {$ENDIF} -end; - -function FIPS_mode() : TIdC_INT; {$IFDEF INLINE}inline;{$ENDIF} -begin - Result := 0; - {$IFDEF OPENSSL_FIPS} - if Assigned(_FIPS_mode) then begin - Result := _FIPS_mode; - end; - {$ENDIF} -end; - -function GetErrorMessage(const AErr : TIdC_ULONG) : String; -{$IFDEF USE_INLINE} inline; {$ENDIF} -const - sMaxErrMsg = 160; -var - LErrMsg: array [0..sMaxErrMsg] of TIdAnsiChar; - {$IFDEF USE_MARSHALLED_PTRS} - LErrMsgPtr: TPtrWrapper; - {$ENDIF} -begin - {$IFDEF USE_MARSHALLED_PTRS} - LErrMsgPtr := TPtrWrapper.Create(@LErrMsg[0]); - {$ENDIF} - ERR_error_string_n(AErr, - {$IFDEF USE_MARSHALLED_PTRS} - LErrMsgPtr.ToPointer - {$ELSE} - LErrMsg - {$ENDIF}, sMaxErrMsg); - LErrMsg[sMaxErrMsg] := TIdAnsiChar(0); - {$IFDEF USE_MARSHALLED_PTRS} - Result := TMarshal.ReadStringAsAnsi(LErrMsgPtr); - {$ELSE} - Result := String(LErrMsg); - {$ENDIF} -end; - -{ EIdOpenSSLAPICryptoError } -class procedure EIdOpenSSLAPICryptoError.RaiseException(const AMsg : String = ''); -begin - RaiseExceptionCode(ERR_get_error(), AMsg); -end; - -class procedure EIdOpenSSLAPICryptoError.RaiseExceptionCode( - const AErrCode: TIdC_ULONG; const AMsg: String); -var - LMsg: String; - LException : EIdOpenSSLAPICryptoError; -begin - if AMsg <> '' then begin - LMsg := AMsg + sLineBreak + String(GetErrorMessage(AErrCode)); - end else begin - LMsg := String(GetErrorMessage(AErrCode)); - end; - LException := Create(LMsg); - LException.FErrorCode := AErrCode; - raise LException; -end; - -{ EIdOpenSSLAPISSLError } - -class procedure EIdOpenSSLAPISSLError.RaiseException(ASSL: Pointer; const ARetCode: TIdC_INT; - const AMsg: String); -begin - RaiseExceptionCode(SSL_get_error(PSSL(ASSL), ARetCode), ARetCode, AMsg); -end; - -class procedure EIdOpenSSLAPISSLError.RaiseExceptionCode(const AErrCode, ARetCode: TIdC_INT; - const AMsg: String); -var - LErrQueue : TIdC_ULONG; - LException : EIdOpenSSLAPISSLError; - LErrStr : String; -begin - if AMsg <> '' then begin - LErrStr := AMsg + sLineBreak; - end else begin - LErrStr := ''; - end; - case AErrCode of - SSL_ERROR_SYSCALL : - begin - LErrQueue := ERR_get_error; - if LErrQueue <> 0 then begin - EIdOSSLUnderlyingCryptoError.RaiseExceptionCode(LErrQueue, AMsg); - end; - if ARetCode = 0 then begin - LException := Create(LErrStr + RSSSLEOFViolation); - LException.FErrorCode := AErrCode; - LException.FRetCode := ARetCode; - raise LException; - end; - {Note that if LErrQueue returns 0 and ARetCode = -1, there probably - is an error in the underlying socket so you should raise a socket error} - if ARetCode = -1 then begin - // TODO: catch the socket exception and re-raise it as the InnerException - // for an EIdOpenSSLAPISSLError exception... - GStack.RaiseLastSocketError; - end; - end; - SSL_ERROR_SSL : begin - EIdOSSLUnderlyingCryptoError.RaiseException(AMsg); - end - end; - // everything else... - LException := Create(LErrStr + String(GetErrorMessage(AErrCode))); - LException.FErrorCode := AErrCode; - LException.FRetCode := ARetCode; - raise LException; -end; - -type - TRAND_bytes = function(buf : PIdAnsiChar; num : integer) : integer; cdecl; - TRAND_pseudo_bytes = function(buf : PIdAnsiChar; num : integer) : integer; cdecl; - TRAND_seed = procedure(buf : PIdAnsiChar; num : integer); cdecl; - TRAND_add = procedure(buf : PIdAnsiChar; num : integer; entropy : integer); cdecl; - TRAND_status = function() : integer; cdecl; - {$IFDEF SYS_WIN} - TRAND_event = function(iMsg : UINT; wp : wparam; lp : lparam) : integer; cdecl; - {$ENDIF} - TRAND_cleanup = procedure; cdecl; - -{$IFDEF STATICLOAD_OPENSSL} -const - SSL_LIB_name = 'libssl.a'; {Do not Localize} - SSLCLIB_LIB_name = 'libcrypto.a'; {Do not Localize} -{$ELSE} - {$IFDEF UNIX} -const - {This is a workaround for some Linux distributions and a few other things - where the symbolic link libbsl.so and libcrypto.so do not exist} - SSL_DLL_name = 'libssl'; {Do not localize} - SSLCLIB_DLL_name = 'libcrypto'; {Do not localize} - SSLDLLVers : array [0..10] of string = ( - '.10', - '.1.0.2','.1.0.1', - // TODO: IFDEF the following for OSX only? - '.44', // MacOS LibreSSL forked from which OpenSSL version? Sometimes found ... - '.43', // MacOS LibreSSL forked from which OpenSSL version? Sometimes found ... - // TODO: Add '.41' as well? - '.35', // MacOS LibreSSL forked from OpenSSL version 1.0.1, almost always found - // - '.1.0.0','.0.9.9','.0.9.8','.0.9.7','.0.9.6' - ); - SSLDLLVersChar : array [0..26] of string = ('','a','b','c','d','e','f','g','h','i', - 'j','k','l','m','n','o','p','q','r', - 's','t','u','v','w','x','y','z'); - {$ENDIF} - {$IFDEF WINDOWS} -const - SSL_DLL_name = 'ssleay32.dll'; {Do not localize} - //The following is a workaround for an alternative name for - //one of the OpenSSL .DLL's. If you compile the .DLL's using - //mingw32, the SSL .dll might be named 'libssl32.dll' instead of - //ssleay32.dll like you would expect. - SSL_DLL_name_alt = 'libssl32.dll'; {Do not localize} - SSLCLIB_DLL_name = 'libeay32.dll'; {Do not localize} - {$ENDIF} -{$ENDIF} - -var - {$IFDEF STATICLOAD_OPENSSL} - bIsLoaded : Boolean = False; - {$ELSE} - hIdSSL : TIdLibHandle = IdNilHandle; - hIdCrypto : TIdLibHandle = IdNilHandle; - FFailedLoadList : TStringList; - {$ENDIF} - - _RAND_cleanup : TRAND_cleanup = nil; - _RAND_bytes : TRAND_bytes = nil; - _RAND_pseudo_bytes : TRAND_pseudo_bytes = nil; - _RAND_seed : TRAND_seed = nil; - _RAND_add : TRAND_add = nil; - _RAND_status : TRAND_status = nil; - {$IFDEF SYS_WIN} - // LIBEAY functions - open SSL 0.9.6a - _RAND_screen : procedure cdecl = nil; - _RAND_event : TRAND_event = nil; - {$ENDIF} - -{$IFNDEF STATICLOAD_OPENSSL} -function GetSSLLibHandle : TIdLibHandle; -begin - Result := hIdSSL; -end; - -function GetCryptLibHandle : TIdLibHandle; -begin - Result := hIdCrypto; -end; - -{ This constant's are used twice. First time in Load function and second time } {Do not localize} -{ in function WhichFailedToLoad. I belive that this reduce size of final } -{ compiled file. } -const -{most of these are commented out because we aren't using them now. I am keeping -them in case we use them later.} - fn_sk_num = 'sk_num'; {Do not localize} - fn_sk_value = 'sk_value'; {Do not localize} - {CH fn_sk_set = 'sk_set'; } {Do not localize} - fn_sk_new = 'sk_new'; {Do not localize} - fn_sk_new_null = 'sk_new_null'; {Do not localize} - fn_sk_free = 'sk_free'; {Do not localize} - fn_sk_pop_free = 'sk_pop_free'; {Do not localize} - {CH fn_sk_insert = 'sk_insert'; } {Do not localize} - {CH fn_sk_delete = 'sk_delete'; } {Do not localize} - {CH fn_sk_delete_ptr = 'sk_delete_ptr'; } {Do not localize} - fn_sk_find = 'sk_find'; {Do not localize} - fn_sk_push = 'sk_push'; {Do not localize} - {CH fn_sk_unshift = 'sk_unshift'; } {Do not localize} - {CH fn_sk_shift = 'sk_shift'; } {Do not localize} - {CH fn_sk_pop = 'sk_pop'; } {Do not localize} - {CH fn_sk_zero = 'sk_zero'; } {Do not localize} - fn_sk_dup = 'sk_dup'; {Do not localize} - {CH fn_sk_sort = 'sk_sort'; } {Do not localize} - fn_SSLeay_version = 'SSLeay_version'; {Do not localize} - fn_SSLeay = 'SSLeay'; {Do not localize} - {CH fn_OPENSSL_issetugid = 'OPENSSL_issetugid'; }{Do not localize} - {CH fn_CONF_set_default_method = 'CONF_set_default_method'; } {Do not localize} - {CH fn_CONF_set_nconf = 'CONF_set_nconf'; } {Do not localize} - {CH fn_CONF_load = 'CONF_load'; } {Do not localize} -{$IFNDEF OPENSSL_NO_FP_API} - {CH fn_CONF_load_fp = 'CONF_load_fp'; } {Do not localize} -{$ENDIF} - {CH fn_CONF_load_bio = 'CONF_load_bio'; } {Do not localize} - {CH fn_CONF_get_section = 'CONF_get_section'; } {Do not localize} - {CH fn_CONF_get_string = 'CONF_get_string'; } {Do not localize} - {CH fn_CONF_get_number = 'CONF_get_number'; } {Do not localize} - {CH fn_CONF_free = 'CONF_free'; }{Do not localize} - {CH fn_CONF_dump_fp = 'CONF_dump_fp'; } {Do not localize} - {CH fn_CONF_dump_bio = 'CONF_dump_bio'; } {Do not localize} - {CH fn_NCONF_new = 'NCONF_new'; } {Do not localize} - {CH fn_NCONF_default = 'NCONF_default'; } {Do not localize} - {CH fn_NCONF_WIN32 = 'NCONF_WIN32'; } {Do not localize} -{$IFDEF OMIT_THIS} //* Just to give you an idea of what I have in mind */ - {CH fn_NCONF_XML = 'NCONF_XML''; } {Do not localize} -{$ENDIF} - {CH fn_NCONF_free = 'NCONF_free'; } {Do not localize} - {CH fn_NCONF_free_data = 'NCONF_free_data'; } {Do not localize} - {CH fn_NCONF_load = 'NCONF_load'; } {Do not localize} -{$IFNDEF OPENSSL_NO_FP_API} - {CH fn_NCONF_load_fp = 'NCONF_load_fp'; }{Do not localize} -{$ENDIF} - {CH fn_NCONF_load_bio = 'NCONF_load_bio'; } {Do not localize} - {CH fn_NCONF_get_section = 'NCONF_get_section'; } {Do not localize} - {CH fn_NCONF_get_string = 'NCONF_get_string'; } {Do not localize} - {CH fn_NCONF_get_number_e = 'NCONF_get_number_e'; } {Do not localize} - {CH fn_NCONF_dump_fp = 'NCONF_dump_fp'; } {Do not localize} - {CH fn_NCONF_dump_bio = 'NCONF_dump_bio'; }{Do not localize} - {CH fn_CONF_modules_load = 'CONF_modules_load'; } {Do not localize} - {CH fn_CONF_modules_load_file = 'CONF_modules_load_file'; } {Do not localize} - {CH fn_CONF_modules_unload = 'CONF_modules_unload'; } {Do not localize} - {CH fn_CONF_modules_finish = 'CONF_modules_finish'; } {Do not localize} - {CH fn_CONF_modules_free = 'CONF_modules_free'; } {Do not localize} - {CH fn_CONF_module_add = 'CONF_module_add'; } {Do not localize} - {CH fn_CONF_imodule_get_name = 'CONF_imodule_get_name'; } {Do not localize} - {CH fn_CONF_imodule_get_value = 'CONF_imodule_get_value'; } {Do not localize} - {CH fn_CONF_imodule_get_usr_data = 'CONF_imodule_get_usr_data'; } {Do not localize} - {CH fn_CONF_imodule_set_usr_data = 'CONF_imodule_set_usr_data'; } {Do not localize} - {CH fn_CONF_imodule_get_module = 'CONF_imodule_get_module'; } {Do not localize} - {CH fn_CONF_imodule_get_flags = 'CONF_imodule_get_flags'; } {Do not localize} - {CH fn_CONF_imodule_set_flags = 'CONF_imodule_set_flags'; } {Do not localize} - {CH fn_CONF_module_get_usr_data = 'CONF_module_get_usr_data'; } {Do not localize} - {CH fn_CONF_module_set_usr_data = 'CONF_module_set_usr_data'; } {Do not localize} - {CH fn_ERR_load_CONF_strings = 'ERR_load_CONF_strings'; } {Do not localize} - {CH fn_CONF_get1_default_config_file = 'CONF_get1_default_config_file'; } {Do not localize} - {CH fn_CONF_parse_list = 'CONF_parse_list' ; } - {CH fn_OPENSSL_load_builtin_modules = 'OPENSSL_load_builtin_modules'; } {Do not localize} - {CH fn_CRYPTO_get_ex_new_index = 'CRYPTO_get_ex_new_index'; } {Do not localize} - {CH fn_CRYPTO_set_ex_data = 'CRYPTO_set_ex_data'; } {Do not localize} - {CH fn_CRYPTO_get_ex_data = 'CRYPTO_get_ex_data'; } {Do not localize} - {CH fn_CRYPTO_dup_ex_data = 'CRYPTO_dup_ex_data'; } {Do not localize} - {CH fn_CRYPTO_free_ex_data = 'CRYPTO_free_ex_data'; } {Do not localize} - {CH fn_CRYPTO_new_ex_data = 'CRYPTO_new_ex_data'; } {Do not localize} - fn_CRYPTO_mem_ctrl = 'CRYPTO_mem_ctrl'; {Do not localize} - {CH fn_OPENSSL_issetugid = 'OPENSSL_issetugid'; } {Do not localize} - {CH fn_CRYPTO_get_ex_data_implementation = 'CRYPTO_get_ex_data_implementation'; } {Do not localize} - {CH fn_CRYPTO_set_ex_data_implementation = 'CRYPTO_set_ex_data_implementation'; } {Do not localize} - {CH fn_CRYPTO_ex_data_new_class = 'CRYPTO_ex_data_new_class'; } {Do not localize} - {CH fn_CRYPTO_get_locking_callback = 'CRYPTO_get_locking_callback'; } {Do not localize} - {CH fn_CRYPTO_get_add_lock_callback = 'CRYPTO_get_add_lock_callback'; } {Do not localize} - {CH fn_CRYPTO_get_new_dynlockid = 'CRYPTO_get_new_dynlockid'; } {Do not localize} - {CH fn_CRYPTO_destroy_dynlockid = 'CRYPTO_destroy_dynlockid'; } {Do not localize} - {CH fn_CRYPTO_get_dynlock_value = 'CRYPTO_get_dynlock_value'; } {Do not localize} - {CH fn_CRYPTO_set_dynlock_create_callback = 'CRYPTO_set_dynlock_create_callback'; } {Do not localize} - {CH fn_CRYPTO_set_dynlock_lock_callback = 'CRYPTO_set_dynlock_lock_callback'; } {Do not localize} - {CH fn_CRYPTO_set_dynlock_destroy_callback = 'CRYPTO_set_dynlock_destroy_callback'; } {Do not localize} - {CH fn_CRYPTO_set_locked_mem_ex_functions = 'CRYPTO_set_locked_mem_ex_functions'; } {Do not localize} - {CH fn_CRYPTO_get_mem_ex_functions = 'CRYPTO_get_mem_ex_functions'; } {Do not localize} - {CH fn_CRYPTO_get_locked_mem_ex_functions = 'CRYPTO_get_locked_mem_ex_functions'; } {Do not localize} - {CH fn_CRYPTO_get_mem_debug_functions = 'CRYPTO_get_mem_debug_functions'; }{Do not localize} - {CH fn_CRYPTO_realloc_clean = 'CRYPTO_realloc_clean'; } {Do not localize} - {CH fn_OPENSSL_cleanse = 'OPENSSL_cleanse'; } {Do not localize} - {CH fn_CRYPTO_set_mem_debug_options = 'CRYPTO_set_mem_debug_options'; } {Do not localize} - {CH fn_CRYPTO_get_mem_debug_options = 'CRYPTO_get_mem_debug_options'; } {Do not localize} - {CH fn_CRYPTO_push_info_ = 'CRYPTO_push_info_'; } {Do not localize} - {CH fn_CRYPTO_pop_info = 'CRYPTO_pop_info'; } {Do not localize} - {CH fn_CRYPTO_remove_all_info = 'CRYPTO_remove_all_info'; } {Do not localize} - {CH fn_OpenSSLDie = 'OpenSSLDie'; } {Do not localize} - {CH fn_OPENSSL_ia32cap_loc = 'OPENSSL_ia32cap_loc'; } {Do not localize} - {CH fn_CRYPTO_get_new_lockid = 'CRYPTO_get_new_lockid'; } {Do not localize} - fn_CRYPTO_num_locks = 'CRYPTO_num_locks'; {Do not localize} - fn_CRYPTO_lock = 'CRYPTO_lock'; {Do not localize} - fn_CRYPTO_set_locking_callback = 'CRYPTO_set_locking_callback'; {Do not localize} - {CH fn_CRYPTO_set_add_lock_callback = 'CRYPTO_set_add_lock_callback'; } {Do not localize} - fn_CRYPTO_set_id_callback = 'CRYPTO_set_id_callback'; {Do not localize} - {CH fn_CRYPTO_thread_id = 'CRYPTO_thread_id'; } {Do not localize} - {CH fn_CRYPTO_get_lock_name = 'CRYPTO_get_lock_name'; } {Do not localize} - {CH fn_CRYPTO_add_lock = 'CRYPTO_add_lock'; } {Do not localize} - {CH fn_int_CRYPTO_set_do_dynlock_callback = 'int_CRYPTO_set_do_dynlock_callback'; } {Do not localize} - //OpenSSL 1.0.0 - use these instead of the depreciated CRYPTO_set_id_callback - fn_CRYPTO_THREADID_set_numeric = 'CRYPTO_THREADID_set_numeric'; {Do not localize} - fn_CRYPTO_THREADID_set_pointer = 'CRYPTO_THREADID_set_pointer'; {Do not localize} - fn_CRYPTO_THREADID_set_callback = 'CRYPTO_THREADID_set_callback'; {Do not localize} - //end section - fn_CRYPTO_set_mem_functions = 'CRYPTO_set_mem_functions'; {Do not localize} - {CH fn_CRYPTO_set_mem_info_functions = 'CRYPTO_set_mem_info_functions'; } {Do not localize} - {CH fn_CRYPTO_get_mem_functions = 'CRYPTO_get_mem_functions'; } {Do not localize} - {CH fn_CRYPTO_set_locked_mem_functions = 'CRYPTO_set_locked_mem_functions'; } {Do not localize} - {CH fn_CRYPTO_get_locked_mem_functions = 'CRYPTO_get_locked_mem_functions'; } {Do not localize} - {CH fn_CRYPTO_malloc_locked = 'CRYPTO_malloc_locked'; } {Do not localize} - {CH fn_CRYPTO_free_locked = 'CRYPTO_free_locked'; } {Do not localize} - fn_CRYPTO_malloc = 'CRYPTO_malloc'; {Do not localize} - fn_CRYPTO_free = 'CRYPTO_free'; {Do not localize} - {CH fn_CRYPTO_realloc = 'CRYPTO_realloc'; } {Do not localize} - {CH fn_CRYPTO_remalloc = 'CRYPTO_remalloc'; } {Do not localize} - {CH fn_CRYPTO_dbg_malloc = 'CRYPTO_dbg_malloc'; } {Do not localize} - {CH fn_CRYPTO_dbg_realloc = 'CRYPTO_dbg_realloc'; } {Do not localize} - {CH fn_CRYPTO_dbg_free = 'CRYPTO_dbg_free'; } {Do not localize} - {CH fn_CRYPTO_dbg_remalloc = 'CRYPTO_dbg_remalloc'; } {Do not localize} - {$IFNDEF OPENSSL_NO_FP_API} - {CH fn_CRYPTO_mem_leaks_fp = 'CRYPTO_mem_leaks_fp'; } {Do not localize} - {$ENDIF} - fn_CRYPTO_mem_leaks = 'CRYPTO_mem_leaks'; {Do not localize} - {CH fn_CRYPTO_mem_leaks_cb = 'CRYPTO_mem_leaks_cb'; } {Do not localize} - fn_CRYPTO_cleanup_all_ex_data = 'CRYPTO_cleanup_all_ex_data'; {Do not localize} - fn_CRYPTO_set_mem_debug_functions = 'CRYPTO_set_mem_debug_functions'; {Do not localize} - {CH fn_CRYPTO_dbg_set_options = 'CRYPTO_dbg_set_options'; } {Do not localize} - {CH fn_CRYPTO_dbg_get_options = 'CRYPTO_dbg_get_options'; } {Do not localize} - {CH fn_CRYPTO_dbg_push_info = 'CRYPTO_dbg_push_info'; } {Do not localize} - {CH fn_CRYPTO_dbg_pop_info = 'CRYPTO_dbg_pop_info'; } {Do not localize} - {CH fn_CRYPTO_dbg_remove_all_info = 'CRYPTO_dbg_remove_all_info'; } {Do not localize} - {CH fn_CRYPTO_memcmp = 'CRYPTO_memcmp'; } {Do not localize} - fn_ERR_load_CRYPTO_strings = 'ERR_load_CRYPTO_strings'; {Do not localize} - {CH fn_OPENSSL_init = 'OPENSSL_init'; } {Do not localize} - {CH fn_lh_new = 'lh_new'; } {Do not localize} - {CH fn_lh_free = 'lh_free'; } {Do not localize} - {CH fn_lh_insert = 'lh_insert'; } {Do not localize} - {CH fn_lh_delete = 'lh_delete'; } {Do not localize} - {CH fn_lh_retrieve = 'lh_retrieve'; } {Do not localize} - {CH fn_lh_doall = 'lh_doall'; } {Do not localize} - {CH fn_lh_doall_arg = 'lh_doall_arg'; } {Do not localize} - {CH fn_lh_strhash = 'lh_strhash'; } {Do not localize} - {CH fn_lh_stats = 'lh_stats'; } {Do not localize} - {CH fn_lh_node_stats = 'lh_node_stats'; } {Do not localize} - {CH fn_lh_node_usage_stats = 'lh_node_usage_stats'; } {Do not localize} - {CH fn_BUF_MEM_new = 'BUF_MEM_new'; } {Do not localize} - {CH fn_BUF_MEM_free = 'BUF_MEM_free'; } {Do not localize} - {CH fn_BUF_MEM_grow = 'BUF_MEM_grow'; } {Do not localize} - {CH fn_BUF_strdup = 'BUF_strdup'; } {Do not localize} - {CH fn_ERR_load_BUF_strings = 'ERR_load_BUF_strings'; } {Do not localize} - {CH fn_BIO_ctrl_pending = 'BIO_ctrl_pending'; } {Do not localize} - {CH fn_BIO_ctrl_wpending = 'BIO_ctrl_wpending'; } {Do not localize} - {CH fn_BIO_ctrl_get_write_guarantee = 'BIO_ctrl_get_write_guarantee'; } {Do not localize} - {CH fn_BIO_ctrl_get_read_request = 'BIO_ctrl_get_read_request'; } {Do not localize} - fn_BIO_set_ex_data = 'BIO_set_ex_data'; {Do not localize} - fn_BIO_get_ex_data = 'BIO_get_ex_data'; {Do not localize} - {CH fn_BIO_get_ex_new_index = 'BIO_get_ex_new_index'; } {Do not localize} - fn_BIO_s_file = 'BIO_s_file'; {Do not localize} - fn_BIO_new_file = 'BIO_new_file'; {Do not localize} - {CH fn_BIO_new_fp = 'BIO_new_fp'; } {Do not localize} - fn_BIO_new = 'BIO_new'; {Do not localize} - fn_BIO_set_flags = 'BIO_set_flags'; {Do not localize} - fn_BIO_new_mem_buf = 'BIO_new_mem_buf'; {Do not localize} - {CH fn_BIO_set = 'BIO_set'; } {Do not localize} - fn_BIO_free = 'BIO_free'; {Do not localize} - fn_BIO_read = 'BIO_read'; {Do not localize} - {CH fn_BIO_gets = 'BIO_gets'; } {Do not localize} - fn_BIO_write = 'BIO_write'; {Do not localize} - fn_BIO_puts = 'BIO_puts'; {Do not localize} - fn_BIO_ctrl = 'BIO_ctrl'; {Do not localize} - fn_BIO_ptr_ctrl = 'BIO_ptr_ctrl'; {Do not localize} - fn_BIO_int_ctrl = 'BIO_int_ctrl'; {Do not localize} - fn_BIO_push = 'BIO_push'; {Do not localize} - fn_BIO_pop = 'BIO_pop'; {Do not localize} - fn_BIO_set_next = 'BIO_set_next'; {Do not localize} - fn_BIO_free_all = 'BIO_free_all'; {Do not localize} - {CH fn_BIO_find_type = 'BIO_find_type'; } {Do not localize} - {CH fn_BIO_get_retry_BIO = 'BIO_get_retry_BIO'; } {Do not localize} - {CH fn_BIO_get_retry_reason = 'BIO_get_retry_reason'; } {Do not localize} - {CH fn_BIO_dup_chain = 'BIO_dup_chain'; } {Do not localize} - {CH fn_BIO_debug_callback = 'BIO_debug_callback'; } {Do not localize} - - fn_BIO_s_mem = 'BIO_s_mem'; {Do not localize} - {CH fn_BIO_s_socket = 'BIO_s_socket'; } {Do not localize} - {CH fn_BIO_s_connect = 'BIO_s_connect'; } {Do not localize} - {CH fn_BIO_s_accept = 'BIO_s_accept'; } {Do not localize} - {CH fn_BIO_s_fd = 'BIO_s_fd'; } {Do not localize} - {CH fn_BIO_s_bio = 'BIO_s_bio'; } {Do not localize} - {CH fn_BIO_s_null = 'BIO_s_null'; } {Do not localize} - {CH fn_BIO_f_null = 'BIO_f_null'; } {Do not localize} - {CH fn_BIO_f_buffer = 'BIO_f_buffer'; } {Do not localize} - {CH fn_BIO_f_nbio_test = 'BIO_f_nbio_test'; } {Do not localize} - {CH fn_BIO_sock_should_retry = 'BIO_sock_should_retry'; } {Do not localize} - {CH fn_BIO_sock_non_fatal_error = 'BIO_sock_non_fatal_error'; } {Do not localize} - {CH fn_BIO_fd_should_retry = 'BIO_fd_should_retry'; } {Do not localize} - {CH fn_BIO_fd_non_fatal_error = 'BIO_fd_non_fatal_error'; } {Do not localize} - {CH fn_BIO_dump = 'BIO_dump'; } {Do not localize} - {CH fn_BIO_gethostbyname = 'BIO_gethostbyname'; } {Do not localize} - {CH fn_BIO_sock_error = 'BIO_sock_error'; } {Do not localize} - {CH fn_BIO_socket_ioctl = 'BIO_socket_ioctl'; } {Do not localize} - {CH fn_BIO_socket_nbio = 'BIO_socket_nbio'; } {Do not localize} - {CH fn_BIO_get_port = 'BIO_get_port'; } {Do not localize} - {CH fn_BIO_get_host_ip = 'BIO_get_host_ip'; } {Do not localize} - {CH fn_BIO_get_accept_socket = 'BIO_get_accept_socket'; } {Do not localize} - {CH fn_BIO_accept = 'BIO_accept'; } {Do not localize} - {CH fn_BIO_sock_init = 'BIO_sock_init'; } {Do not localize} - {CH fn_BIO_sock_cleanup = 'BIO_sock_cleanup'; } {Do not localize} - {CH fn_BIO_set_tcp_ndelay = 'BIO_set_tcp_ndelay'; } {Do not localize} - {CH fn_ERR_load_BIO_strings = 'ERR_load_BIO_strings'; } {Do not localize} - {CH fn_BIO_new_socket = 'BIO_new_socket'; } {Do not localize} - {CH fn_BIO_new_fd = 'BIO_new_fd'; } {Do not localize} - {CH fn_BIO_new_connect = 'BIO_new_connect'; } {Do not localize} - {CH fn_BIO_new_accept = 'BIO_new_accept'; } {Do not localize} - {CH fn_BIO_new_bio_pair = 'BIO_new_bio_pair'; } {Do not localize} - {CH fn_BIO_copy_next_retry = 'BIO_copy_next_retry'; } {Do not localize} - {CH fn_BIO_ghbn_ctrl = 'BIO_ghbn_ctrl'; } {Do not localize} - {CH fn_COMP_CTX_new = 'COMP_CTX_new';} {Do not localize} - {CH fn_COMP_CTX_free = 'COMP_CTX_free'; } {Do not localize} - {CH fn_COMP_compress_block = 'COMP_compress_block'; } {Do not localize} - {CH fn_COMP_expand_block = 'COMP_expand_block'; } {Do not localize} - {CH fn_COMP_rle = 'COMP_rle'; } {Do not localize} - {CH fn_COMP_zlib = 'COMP_zlib'; } {Do not localize} - {CH fn_COMP_zlib_cleanup = 'COMP_zlib_cleanup'; } {Do not localized} - {$IFDEF HEADER_BIO_H} - {$IFDEF ZLIB} - {CH fn_BIO_f_zlib = 'BIO_f_zlib'; } {Do not localize} - {$ENDIF} - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD2} - {CH fn_MD2_options = 'MD2_options'; } {Do not localize} - {$IFDEF OPENSSL_FIPS} - {CH fn_private_MD2_Init = 'private_MD2_Init'; } {Do not localize} - {$ENDIF} - {CH fn_MD2_Init = 'MD2_Init'; } {Do not localize} - {CH fn_MD2_Update = 'MD2_Update'; } {Do not localize} - {CH fn_MD2_Final = 'MD2_Final'; } {Do not localize} - {CH fn_MD2 = 'MD2'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD4} - {$IFDEF OPENSSL_FIPS} - {CH fn_private_MD4_Init = 'private_MD4_Init'; } {Do not localize} - {$ENDIF} - {CH fn_MD4_Init = 'MD4_Init'; } {Do not localize} - {CH fn_MD4_Update = 'MD4_Update'; } {Do not localize} - {CH fn_MD4_Final = 'MD4_Final'; } {Do not localize} - {CH fn_MD4 = 'MD4'; } {Do not localize} - {CH fn_MD4_Transform = 'MD4_Transform'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD5} - {$IFDEF OPENSSL_FIPS} - {CH fn_private_MD5_Init = 'private_MD5_Init'; } {Do not localize} - {$ENDIF} - {CH fn_MD5_Init = 'MD5_Init'; } {Do not localize} - {CH fn_MD5_Update = 'MD5_Update'; } {Do not localize} - {CH fn_MD5_Final = 'MD5_Final'; } {Do not localize} - {CH fn_MD5 = 'MD5'; } {Do not localize} - {CH fn_MD5_Transform = 'MD5_Transform'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA} - {$IFNDEF OPENSSL_NO_SHA0} - {$IFDEF OPENSSL_FIPS} - {CH fn_private_SHA_Init = 'private_SHA_Init'; } {Do not localize} - {$ENDIF} - {CH fn_SHA_Init = 'SHA_Init'; } {Do not localize} - {CH fn_SHA_Update = 'SHA_Update'; } {Do not localize} - {CH fn_SHA_Final = 'SHA_Final'; } {Do not localize} - {CH fn_SHA = 'SHA'; } {Do not localize} - {CH fn_SHA_Transform = 'SHA_Transform'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA1} - {CH fn_SHA1_Init = 'SHA1_Init'; } {Do not localize} - {CH fn_SHA1_Update = 'SHA1_Update'; } {Do not localize} - {CH fn_SHA1_Final = 'SHA1_Final'; } {Do not localize} - {CH fn_SHA1 = 'SHA1'; } {Do not localize} - {CH fn_SHA1_Transform = 'SHA1_Transform'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA256} - {CH fn_SHA224_Init = 'SHA224_Init'; } {Do not localize} - {CH fn_SHA224_Update = 'SHA224_Update'; } {Do not localize} - {CH fn_SHA224_Final = 'SHA224_Final'; } {Do not localize} - {CH fn_SHA224 = 'SHA224'; } {Do not localize} - {CH fn_SHA256_Init = 'SHA256_Init'; } {Do not localize} - {CH fn_SHA256_Update = 'SHA256_Update'; } {Do not localize} - {CH fn_SHA256_Final = 'SHA256_Final'; } {Do not localize} - {CH fn_SHA256 = 'SHA256'; } {Do not localize} - {CH fn_SHA256_Transform = 'SHA256_Transform'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA512} - {CH fn_SHA384_Init = 'SHA384_Init'; } {Do not localize} - {CH fn_SHA384_Update = 'SHA384_Update'; } {Do not localize} - {CH fn_SHA384_Final = 'SHA384_Final'; } {Do not localize} - {CH fn_SHA384 = 'SHA384'; } {Do not localize} - {CH fn_SHA512_Init = 'SHA512_Init'; } {Do not localize} - {CH fn_SHA512_Update = 'SHA512_Update'; } {Do not localize} - {CH fn_SHA512_Final = 'SHA512_Final'; } {Do not localize} - {CH fn_SHA512 = 'SHA512'; } {Do not localize} - {CH fn_SHA512_Transform = 'SHA512_Transform'; } {Do not localize} - {$ENDIF} - {$ENDIF} - {$IFNDEF OPENSSL_NO_RIPEMD} - {$IFDEF OPENSSL_FIPS} - {CH fn_private_RIPEMD160_Init = 'private_RIPEMD160_Init'; } {Do not localize} - {$ENDIF} - {CH fn_RIPEMD160_Init = 'RIPEMD160_Init'; } {Do not localize} - {CH fn_RIPEMD160_Update = 'RIPEMD160_Update'; } {Do not localize} - {CH fn_RIPEMD160_Final = 'RIPEMD160_Final'; } {Do not localize} - {CH fn_RIPEMD160 = 'RIPEMD160'; } {Do not localize} - {CH fn_RIPEMD160_Transform = 'RIPEMD160_Transform'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_HMAC} - fn_HMAC_CTX_init = 'HMAC_CTX_init'; {Do not localize} - fn_HMAC_CTX_cleanup = 'HMAC_CTX_cleanup'; {Do not localize} - {CH fn_HMAC_Init = 'HMAC_Init'; } {Do not localize} - fn_HMAC_Init_ex = 'HMAC_Init_ex'; {Do not localize} - fn_HMAC_Update = 'HMAC_Update'; {Do not localize} - fn_HMAC_Final = 'HMAC_Final'; {Do not localize} - {CH fn_HMAC = 'HMAC'; } {Do not localize} - {CH fn_HMAC_CTX_set_flags = 'HMAC_CTX_set_flags'; } {Do not localize} - {$ENDIF} - {$IFNDEF HEADER_TMDIFF_H} - {CH fn_ms_time_new = 'ms_time_new'; } {Do not localize} - {CH fn_ms_time_free = 'ms_time_free'; } {Do not localize} - {CH fn_ms_time_get = 'ms_time_get'; } {Do not localize} - {CH fn_ms_time_diff = 'ms_time_diff'; } {Do not localize} - {CH fn_ms_time_cmp = 'ms_time_cmp'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_AES} - {CH fn_AES_options = 'AES_options'; }{Do not localize} - {CH fn_AES_set_encrypt_key = 'AES_set_encrypt_key'; }{Do not localize} - {CH fn_AES_set_decrypt_key = 'AES_set_decrypt_key'; }{Do not localize} - {CH fn_AES_encrypt = 'AES_encrypt'; }{Do not localize} - {CH fn_AES_decrypt = 'AES_decrypt'; } {Do not localize} - {CH fn_AES_ecb_encrypt = 'AES_ecb_encrypt'; } {Do not localize} - {CH fn_AES_cbc_encrypt = 'AES_cbc_encrypt'; } {Do not localize} - {CH fn_AES_cfb128_encrypt = 'AES_cfb128_encrypt'; } {Do not localize} - {CH fn_AES_cfb1_encrypt = 'AES_cfb1_encrypt'; } {Do not localize} - {CH fn_AES_cfb8_encrypt = 'AES_cfb8_encrypt'; } {Do not localize} - {CH fn_AES_cfbr_encrypt_block = 'AES_cfbr_encrypt_block'; } {Do not localize} - {CH fn_AES_ofb128_encrypt = 'AES_ofb128_encrypt'; } {Do not localize} - {CH fn_AES_ctr128_encrypt = 'AES_ctr128_encrypt'; } {Do not localize} - {CH fn_AES_ige_encrypt = 'AES_ige_encrypt'; } {Do not localize} - {CH fn_AES_bi_ige_encrypt = 'AES_bi_ige_encrypt'; } {Do not localize} - {CH fn_AES_wrap_key = 'AES_wrap_key'; } {Do not localize} - {CH fn_AES_unwrap_key = 'AES_unwrap_key'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_DES} - {CH fn_des_options = 'DES_options'; } {Do not localize} - {CH fn_des_ecb3_encrypt = 'DES_ecb3_encrypt'; } {Do not localize} - {CH fn_des_cbc_cksum = 'DES_cbc_cksum'; } {Do not localize} - {CH fn_des_cbc_encrypt = 'DES_cbc_encrypt'; } {Do not localize} - {CH fn_des_ncbc_encrypt = 'DES_ncbc_encrypt'; } {Do not localize} - {CH fn_des_xcbc_encrypt = 'DES_xcbc_encrypt'; } {Do not localize} - {CH fn_des_cfb_encrypt = 'DES_cfb_encrypt'; } {Do not localize} - fn_des_ecb_encrypt = 'DES_ecb_encrypt'; {Do not localize} - fnold_des_ecb_encrypt = 'DES_ecb_encrypt'; {Do not localize} - {CH fn_des_encrypt = 'DES_encrypt'; } {Do not localize} - {CH fn_des_encrypt2 = 'DES_encrypt2'; } {Do not localize} - {CH fn_des_encrypt3 = 'DES_encrypt3'; } {Do not localize} - {CH fn_des_decrypt3 = 'DES_decrypt3'; } {Do not localize} - {CH fn_des_ede3_cbc_encrypt = 'DES_ede3_cbc_encrypt'; } {Do not localize} - {CH fn_des_ede3_cbcm_encrypt = 'DES_ede3_cbcm_encrypt'; } {Do not localize} - {CH fn_des_ede3_cfb64_encrypt = 'DES_ede3_cfb64_encrypt'; } {Do not localize} - {CH fn_des_ede3_ofb64_encrypt = 'DES_ede3_ofb64_encrypt'; } {Do not localize} - {$IFDEF USE_THIS} - {CH fn_des_xwhite_in2out = 'DES_xwhite_in2out'; } {Do not localize} - {$ENDIF} - {CH fn_des_enc_read = 'DES_enc_read'; } {Do not localize} - {CH fn_des_enc_write = 'DES_enc_write'; } {Do not localize} - {CH fn_des_fcrypt = 'DES_fcrypt'; } {Do not localize} - {CH fn_crypt = 'crypt'; } {Do not localize} - {CH fn_des_ofb_encrypt = 'DES_ofb_encrypt'; } {Do not localize} - {CH fn_des_pcbc_encrypt = 'DES_pcbc_encrypt'; } {Do not localize} - {CH fn_des_quad_cksum = 'DES_quad_cksum'; } {Do not localize} - {CH fn_des_random_seed = 'DES_random_seed'; } {Do not localize} - {CH fn_des_random_key = 'DES_random_key'; } {Do not localize} - {CH fn_des_read_password = 'DES_read_password'; } {Do not localize} - {CH fn_des_read_2passwords = 'DES_read_2passwords'; } {Do not localize} - {CH fn_des_read_pw_string = 'DES_read_pw_string'; } {Do not localize} - fn_des_set_odd_parity = 'DES_set_odd_parity'; {Do not localize} - fnold_des_set_odd_parity = 'DES_set_odd_parity'; {Do not localize} - {CH fn_des_is_weak_key = 'DES_is_weak_key'; } {Do not localize} - fn_des_set_key = 'DES_set_key'; {Do not localize} - fnold_des_set_key = '_ossl_old_des_set_key'; {Do not localize} - {CH fn_des_key_sched = 'DES_key_sched'; } {Do not localize} - {CH fn_des_string_to_key = 'DES_string_to_key'; } {Do not localize} - {CH fn_des_string_to_2keys = 'DES_string_to_2keys'; } {Do not localize} - {CH fn_des_cfb64_encrypt = 'DES_cfb64_encrypt'; } {Do not localize} - {CH fn_des_ofb64_encrypt = 'DES_ofb64_encrypt'; } {Do not localize} - {CH fn_des_read_pw = 'DES_read_pw'; } {Do not localize} - {CH fn_des_cblock_print_file = 'DES_cblock_print_file'; } {Do not localize} - //des_old.h - {CH fn__ossl_old_des_options = '_ossl_old_des_options'; } {Do not localize} - {CH fn__ossl_old_des_ecb3_encrypt = '_ossl_old_des_ecb3_encrypt'; } {Do not localize} - {CH fn__ossl_old_des_cbc_cksum = '_ossl_old_des_cbc_cksum'; } {Do not localize} - {CH fn__ossl_old_des_cbc_encrypt = '_ossl_old_des_cbc_encrypt'; } {Do not localize} - {CH fn__ossl_old_des_ncbc_encrypt = '_ossl_old_des_ncbc_encrypt'; } {Do not localize} - {CH fn__ossl_old_des_xcbc_encrypt = '_ossl_old_des_xcbc_encrypt'; } {Do not localize} - {CH fn__ossl_old_des_cfb_encrypt = '_ossl_old_des_cfb_encrypt'; } {Do not localize} - fn__ossl_old_des_ecb_encrypt = '_ossl_old_des_ecb_encrypt'; {Do not localize} - {CH fn__ossl_old_des_encrypt = '_ossl_old_des_encrypt'; } {Do not localize} - {CH fn__ossl_old_des_encrypt2 = '_ossl_old_des_encrypt2'; } {Do not localize} - {CH fn__ossl_old_des_encrypt3 = '_ossl_old_des_encrypt3'; } {Do not localize} - {CH fn__ossl_old_des_decrypt3 = '_ossl_old_des_decrypt3'; } {Do not localize} - {CH fn__ossl_old_des_ede3_cbc_encrypt = '_ossl_old_des_ede3_cbc_encrypt'; } {Do not localize} - {CH fn__ossl_old_des_ede3_cfb64_encrypt = '_ossl_old_des_ede3_cfb64_encrypt'; } {Do not localize} - {CH fn__ossl_old_des_ede3_ofb64_encrypt = '_ossl_old_des_ede3_ofb64_encrypt'; } {Do not localize} - {$IFDEF USE_THIS} - {CH fn__ossl_old_des_xwhite_in2out = '_ossl_old_des_xwhite_in2out'; } {Do not localize} - {$ENDIF} - {CH fn__ossl_old_des_enc_read = '_ossl_old_des_enc_read'; } {Do not localize} - {CH fn__ossl_old_des_enc_write = '_ossl_old_des_enc_write'; } {Do not localize} - {CH fn__ossl_old_des_fcrypt = '_ossl_old_des_fcrypt'; } {Do not localize} - {CH fn__ossl_old_des_crypt = '_ossl_old_des_crypt'; } {Do not localize} - {$IFNDEF PERL5} - {$IFNDEF NeXT} - {CH fn__ossl_old_crypt = '_ossl_old_crypt'; } {Do not localize} - {$ENDIF} - {$ENDIF} - {CH fn__ossl_old_des_ofb_encrypt = '_ossl_old_des_ofb_encrypt'; } {Do not localize} - {CH fn__ossl_old_des_pcbc_encrypt = '_ossl_old_des_pcbc_encrypt'; } {Do not localize} - {CH fn__ossl_old_des_quad_cksum = '_ossl_old_des_quad_cksum'; } {Do not localize} - {CH fn__ossl_old_des_random_seed = '_ossl_old_des_random_seed'; } {Do not localize} - {CH fn__ossl_old_des_random_key = '_ossl_old_des_random_key'; } {Do not localize} - {CH fn__ossl_old_des_read_password = '_ossl_old_des_read_password'; } {Do not localize} - {CH fn__ossl_old_des_read_2passwords = '_ossl_old_des_read_2passwords'; } {Do not localize} - fn__ossl_old_des_set_odd_parity = '_ossl_old_des_set_odd_parity'; {Do not localize} - {CH fn__ossl_old_des_is_weak_key = '_ossl_old_des_is_weak_key'; } {Do not localize} - fn__ossl_old_des_set_key = '_ossl_old_des_set_key'; {Do not localize} - {CH fn__ossl_old_des_key_sched = '_ossl_old_des_key_sched'; } {Do not localize} - {CH fn__ossl_old_des_string_to_key = '_ossl_old_des_string_to_key'; } {Do not localize} - {CH fn__ossl_old_des_string_to_2keys = '_ossl_old_des_string_to_2keys'; } {Do not localize} - {CH fn__ossl_old_des_cfb64_encrypt = '_ossl_old_des_cfb64_encrypt'; } {Do not localize} - {CH fn__ossl_old_des_ofb64_encrypt = '_ossl_old_des_ofb64_encrypt'; } {Do not localize} - {CH fn__ossl_096_des_random_seed = '_ossl_096_des_random_seed'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_RC4} - {CH fn_RC4_options = 'RC4_options'; } {Do not localize} - {$IFDEF OPENSSL_FIPS} - {CH private_RC4_set_key = 'private_RC4_set_key'; } {Do not localize} - {$ENDIF} - {CH fn_RC4_set_key = 'RC4_set_key'; } {Do not localize} - {CH fn_RC4 = 'RC4'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_RC2} - {$IFDEF OPENSSL_FIPS} - {CH fn_private_RC2_set_key = 'private_RC2_set_key'; } {Do not localize} - {$ENDIF} - {CH fn_RC2_set_key = 'RC2_set_key'; } {Do not localize} - {CH fn_RC2_ecb_encrypt = 'RC2_ecb_encrypt'; } {Do not localize} - {CH fn_RC2_encrypt = 'RC2_encrypt'; } {Do not localize} - {CH fn_RC2_decrypt = 'RC2_decrypt'; } {Do not localize} - {CH fn_RC2_cbc_encrypt = 'RC2_cbc_encrypt'; } {Do not localize} - {CH fn_RC2_cfb64_encrypt = 'RC2_cfb64_encrypt'; } {Do not localize} - {CH fn_RC2_ofb64_encrypt = 'RC2_ofb64_encrypt'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_RC5} - {CH fn_RC5_32_set_key = 'RC5_32_set_key'; } {Do not localize} - {CH fn_RC5_32_ecb_encrypt = 'RC5_32_ecb_encrypt'; } {Do not localize} - {CH fn_RC5_32_encrypt = 'RC5_32_encrypt'; } {Do not localize} - {CH fn_RC5_32_decrypt = 'RC5_32_decrypt'; } {Do not localize} - {CH fn_RC5_32_cbc_encrypt = 'RC5_32_cbc_encrypt'; } {Do not localize} - {CH fn_RC5_32_cfb64_encrypt = 'RC5_32_cfb64_encrypt'; } {Do not localize} - {CH fn_RC5_32_ofb64_encrypt = 'RC5_32_ofb64_encrypt'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_BF} - {$IFDEF FIPS} - {CH fn_private_BF_set_key = 'private_BF_set_key'; } {Do not localize} - {$ENDIF} - {CH fn_BF_set_key = 'BF_set_key'; } {Do not localize} - {CH fn_BF_ecb_encrypt = 'BF_ecb_encrypt'; } {Do not localize} - {CH fn_BF_encrypt = 'BF_encrypt'; } {Do not localize} - {CH fn_BF_decrypt = 'BF_decrypt'; } {Do not localize} - {CH fn_BF_cbc_encrypt = 'BF_cbc_encrypt'; } {Do not localize} - {CH fn_BF_cfb64_encrypt = 'BF_cfb64_encrypt'; } {Do not localize} - {CH fn_BF_ofb64_encrypt = 'BF_ofb64_encrypt'; } {Do not localize} - {CH fn_BF_options = 'BF_options'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_CAST} - {$IFDEF OPENSSL_FIPS} - {CH fn_private_CAST_set_key = 'private_CAST_set_key'; } {Do not localize} - {$ENDIF} - {CH fn_CAST_set_key = 'CAST_set_key'; } {Do not localize} - {CH fn_CAST_ecb_encrypt = 'CAST_ecb_encrypt'; } {Do not localize} - {CH fn_CAST_encrypt = 'CAST_encrypt'; } {Do not localize} - {CH fn_CAST_decrypt = 'CAST_decrypt'; } {Do not localize} - {CH fn_CAST_cbc_encrypt = 'CAST_cbc_encrypt'; } {Do not localize} - {CH fn_CAST_cfb64_encrypt = 'CAST_cfb64_encrypt'; } {Do not localize} - {CH fn_CAST_ofb64_encrypt = 'CAST_ofb64_encrypt'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_IDEA} - {CH fn_idea_options = 'idea_options'; } {Do not localize} - {CH fn_idea_ecb_encrypt = 'idea_ecb_encrypt'; } {Do not localize} - {CH fn_idea_set_encrypt_key = 'idea_set_encrypt_key'; } {Do not localize} - {CH fn_idea_set_decrypt_key = 'idea_set_decrypt_key'; } {Do not localize} - {CH fn_idea_cbc_encrypt = 'idea_cbc_encrypt'; } {Do not localize} - {CH fn_idea_cfb64_encrypt = 'idea_cfb64_encrypt'; } {Do not localize} - {CH fn_idea_ofb64_encrypt = 'idea_ofb64_encrypt'; } {Do not localize} - {CH fn_idea_encrypt = 'idea_encrypt'; } {Do not localize} - {$IFDEF OPENSSL_FIPS} - {CH fn_private_idea_set_encrypt_key = 'private_idea_set_encrypt_key'; } {Do not localize} - {$ENDIF} - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD2} - {CH fn_MDC2_Init = 'MDC2_Init'; } {Do not localize} - {CH fn_MDC2_Update = 'MDC2_Update'; } {Do not localize} - {CH fn_MDC2_Final = 'MDC2_Final'; } {Do not localize} - {CH fn_MDC2 = 'MDC2'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_RSA} - fn_RSA_new = 'RSA_new'; {Do not localize} - {CH fn_RSA_new_method = 'RSA_new_method'; } {Do not localize} - fn_RSA_size = 'RSA_size'; {Do not localize} - fn_RSA_generate_key = 'RSA_generate_key'; {Do not localize} - fn_RSA_generate_key_ex = 'RSA_generate_key_ex'; {Do not localize} - {CH fn_RSA_X931_derive_ex = 'RSA_X931_derive_ex'; } {Do not localize} - {CH fn_RSA_X931_generate_key_ex = 'RSA_X931_generate_key_ex'; } {Do not localize} - fn_RSA_check_key = 'RSA_check_key'; {Do not localize} - fn_RSA_public_encrypt = 'RSA_public_encrypt'; {Do not localize} - {CH fn_RSA_private_encrypt = 'RSA_private_encrypt'; } {Do not localize} - {CH fn_RSA_public_decrypt = 'RSA_public_decrypt'; } {Do not localize} - fn_RSA_private_decrypt = 'RSA_private_decrypt'; {Do not localize} - fn_RSA_free = 'RSA_free'; {Do not localize} - {CH fn_RSA_flags = 'RSA_flags'; } {Do not localize} - {$IFDEF OPENSSL_FIPS} - {CH fn_FIPS_rsa_new = 'FIPS_rsa_new'; } {Do not localize} - {CH fn_FIPS_rsa_free = 'FIPS_rsa_free'; } {Do not localize} - {$ENDIF} - {CH fn_RSA_set_default_method = 'RSA_set_default_method'; } {Do not localize} - {CH fn_RSA_get_default_method = 'RSA_get_default_method'; } {Do not localize} - {CH fn_RSA_get_method = 'RSA_get_method'; } {Do not localize} - {CH fn_RSA_set_method = 'RSA_set_method'; } {Do not localize} - {CH fn_RSA_memory_lock = 'RSA_memory_lock'; } {Do not localize} - {CH fn_RSA_PKCS1_SSLeay = 'RSA_PKCS1_SSLeay'; } {Do not localize} - {CH fn_ERR_load_RSA_strings = 'ERR_load_RSA_strings'; } {Do not localize} - fn_d2i_RSAPublicKey = 'd2i_RSAPublicKey'; {Do not localize} - fn_i2d_RSAPublicKey = 'i2d_RSAPublicKey'; {Do not localize} - fn_d2i_RSAPrivateKey = 'd2i_RSAPrivateKey'; {Do not localize} - fn_i2d_RSAPrivateKey = 'i2d_RSAPrivateKey'; {Do not localize} - {$IFNDEF OPENSSL_NO_FP_API} - {CH fn_RSA_print_fp = 'RSA_print_fp'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_BIO} - {CH fn_RSA_print = 'RSA_print'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_RC4} - {CH fn_i2d_RSA_NET = 'i2d_RSA_NET'; }{Do not localize} - {CH fn_d2i_RSA_NET = 'd2i_RSA_NET'; }{Do not localize} - {CH fn_i2d_Netscape_RSA = 'i2d_Netscape_RSA'; } {Do not localize} - {CH fn_d2i_Netscape_RSA = 'd2i_Netscape_RSA'; } {Do not localize} - {$ENDIF} - {CH fn_d2i_Netscape_RSA_2 = 'd2i_Netscape_RSA_2'; } {Do not localize} - {CH fn_RSA_sign = 'RSA_sign'; } {Do not localize} - {CH fn_RSA_verify = 'RSA_verify'; } {Do not localize} - {CH fn_RSA_sign_ASN1_OCTET_STRING = 'RSA_sign_ASN1_OCTET_STRING'; } {Do not localize} - {CH fn_RSA_verify_ASN1_OCTET_STRING = 'RSA_verify_ASN1_OCTET_STRING'; } {Do not localize} - {CH fn_RSA_blinding_on = 'RSA_blinding_on'; } {Do not localize} - {CH fn_RSA_blinding_off = 'RSA_blinding_off'; } {Do not localize} - {CH fn_RSA_padding_add_PKCS1_type_1 = 'RSA_padding_add_PKCS1_type_1'; } {Do not localize} - {CH fn_RSA_padding_check_PKCS1_type_1 = 'RSA_padding_check_PKCS1_type_1'; } {Do not localize} - {CH fn_RSA_padding_add_PKCS1_type_2 = 'RSA_padding_add_PKCS1_type_2'; } {Do not localize} - {CH fn_RSA_padding_check_PKCS1_type_2 = 'RSA_padding_check_PKCS1_type_2'; } {Do not localize} - {CH fn_RSA_padding_add_PKCS1_OAEP = 'RSA_padding_add_PKCS1_OAEP'; } {Do not localize} - {CH fn_RSA_padding_check_PKCS1_OAEP = 'RSA_padding_check_PKCS1_OAEP'; } {Do not localize} - {CH fn_RSA_padding_add_SSLv23 = 'RSA_padding_add_SSLv23'; } {Do not localize} - {CH fn_RSA_padding_check_SSLv23 = 'RSA_padding_check_SSLv23'; } {Do not localize} - {CH fn_RSA_padding_add_none = 'RSA_padding_add_none'; } {Do not localize} - {CH fn_RSA_padding_check_none = 'RSA_padding_check_none'; } {Do not localize} - {CH fn_RSA_get_ex_new_index = 'RSA_get_ex_new_index'; } {Do not localize} - {CH fn_RSA_set_ex_data = 'RSA_set_ex_data'; } {Do not localize} - {CH fn_RSA_get_ex_data = 'RSA_get_ex_data'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_DH} - {CH fn_DH_OpenSSL = 'DH_OpenSSL'; } {Do not localize} - {CH fn_DH_set_default_method = 'DH_set_default_method'; } {Do not localize} - {CH fn_DH_set_method = 'DH_set_method'; } {Do not localize} - {CH fn_DH_new_method = 'DH_new_method'; } {Do not localize} - {CH fn_DH_new = 'DH_new'; } {Do not localize} - {CH fn_DH_up_ref = 'DH_up_ref'; } {Do not localize} - fn_DH_free = 'DH_free'; {Do not localize} - {CH fn_DH_size = 'DH_size'; } {Do not localize} - {$IFNDEF OPENSSL_NO_DEPRECATED} - {CH fn_DH_generate_parameters = 'DH_generate_parameters'; } {Do not localize} - {$ENDIF} - {CH fn_DH_generate_parameters_ex = 'DH_generate_parameters_ex'; } {Do not localize} - {CH fn_DH_get_ex_new_index = 'DH_get_ex_new_index'; } {Do not localize} - {CH fn_DH_set_ex_data = 'DH_set_ex_data'; } {Do not localize} - {CH fn_DH_get_ex_data = 'DH_get_ex_data'; } {Do not localize} - {CH fn_DH_check = 'DH_check'; } {Do not localize} - {CH fn_DH_check_pub_key = 'DH_check_pub_key'; } {Do not localize} - {CH fn_DH_generate_key = 'DH_generate_key'; } {Do not localize} - {CH fn_DH_compute_key = 'DH_compute_key'; } {Do not localize} - fn_d2i_DHparams = 'd2i_DHparams'; {Do not localize} - fn_i2d_DHparams = 'i2d_DHparams'; {Do not localize} - {CH fn_DH_OpenSSL = 'DH_OpenSSL'; } {Do not localize} - {$IFDEF OPENSSL_FIPS} - {CH fn_FIPS_dh_new = 'FIPS_dh_new'; } {Do not localize} - {CH fn_FIPS_dh_free = 'FIPS_dh_free'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_FP_API} - {CH fn_DHparams_print_fp = 'DHparams_print_fp'; } {Do not localize} - {$ENDIF} - {CH fn_DHparams_print = 'DHparams_print'; } {Do not localize} - {$ENDIF} - {CH fn_ERR_load_DH_strings = 'ERR_load_DH_strings'; } {Do not localize} - {$IFNDEF OPENSSL_NO_DSA} - {CH fn_DSA_SIG_new = 'DSA_SIG_new'; } {Do not localize} - {CH fn_DSA_SIG_free = 'DSA_SIG_free'; } {Do not localize} - {CH fn_i2d_DSA_SIG = 'i2d_DSA_SIG'; } {Do not localize} - {CH fn_d2i_DSA_SIG = 'd2i_DSA_SIG'; } {Do not localize} - {CH fn_DSA_do_sign = 'DSA_do_sign'; } {Do not localize} - {CH fn_DSA_do_verify = 'DSA_do_verify'; } {Do not localize} - {$IFDEF OPENSSL_FIPS} - {CH fn_FIPS_dsa_new = 'FIPS_dsa_new'; } {Do not localize} - {CH fn_FIPS_dsa_free = 'FIPS_dsa_free'; } {Co not localize} - {$ENDIF} - {CH fn_DSA_new = 'DSA_new'; } {Do not localize} - {CH fn_DSA_size = 'DSA_size'; } {Do not localize} - {CH fn_DSA_sign_setup = 'DSA_sign_setup'; } {Do not localize} - {CH fn_DSA_sign = 'DSA_sign'; } {Do not localize} - {CH fn_DSA_verify = 'DSA_verify'; } {Do not localize} - {CH fn_DSA_free = 'DSA_free'; } {Do not localize} - {CH fn_ERR_load_DSA_strings = 'ERR_load_DSA_strings'; } {Do not localize} - - {$IFNDEF OPENSSL_NO_DEPRECATED} - {CH fn_DSA_generate_parameters = 'DSA_generate_parameters'; } {Do not localize} - {$ENDIF} - {CH fn_DSA_generate_parameters_ex = 'DSA_generate_parameters_ex'; } {Do not localize} - {CH fn_DSA_generate_key = 'DSA_generate_key'; } {Do not localize} - fn_d2i_DSAPublicKey = 'd2i_DSAPublicKey'; {Do not localize} - fn_i2d_DSAPublicKey = 'i2d_DSAPublicKey'; {Do not localize} - fn_d2i_DSAPrivateKey = 'd2i_DSAPrivateKey'; {Do not localize} - fn_i2d_DSAPrivateKey = 'i2d_DSAPrivateKey'; {Do not localize} - fn_i2d_DSAparams = 'i2d_DSAparams'; {Do not localize} - fn_d2i_DSAparams = 'd2i_DSAparams'; {Do not localize} - {$IFNDEF OPENSSL_NO_BIO} - {CH fn_DSAparams_print = 'DSAparams_print'; } {Do not localize} - {CH fn_DSA_print = 'DSA_print'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_FP_API} - {CH fn_DSAparams_print_fp = 'DSAparams_print_fp'; } {Do not localize} - {CH fn_DSA_print_fp = 'DSA_print_fp'; } {Do not localize} - {$ENDIF} - {CH fn_DSA_is_prime = 'DSA_is_prime'; } {Do not localize} - {$IFNDEF OPENSSL_NO_DH} - {CH fn_DSA_dup_DH = 'DSA_dup_DH'; } {Do not localize} - {$ENDIF} - {$IFDEF OPENSSL_FIPS} - {CH fn_FIPS_dsa_sig_encode = 'FIPS_dsa_sig_encode'; } {Do not localize} - {CH fn_FIPS_dsa_sig_decode = 'FIPS_dsa_sig_decode'; } {Do not localize} - {$ENDIF} - {$ENDIF} - {$IFNDEF OPENSSL_NO_EC} - {CH fn_EC_GFp_simple_method = 'EC_GFp_simple_method'; } {Do not localize} - {CH fn_EC_GFp_mont_method = 'EC_GFp_mont_method'; } {Do not localize} - {CH fn_EC_GFp_nist_method = 'EC_GFp_nist_method'; } {Do not localize} - {CH fn_EC_GF2m_simple_method = 'EC_GF2m_simple_method'; } {Do not localize} - {CH fn_EC_GROUP_new = 'EC_GROUP_new'; } {Do not localize} - {CH fn_EC_GROUP_free = 'EC_GROUP_free'; } {Do not localize} - {CH fn_EC_GROUP_clear_free = 'EC_GROUP_clear_free'; } {Do not localize} - {CH fn_EC_GROUP_copy = 'EC_GROUP_copy'; } {Do not localize} - {CH fn_EC_GROUP_dup = 'EC_GROUP_dup'; } {Do not localize} - {CH fn_EC_GROUP_method_of = 'EC_GROUP_method_of'; } {Do not localize} - {CH fn_EC_METHOD_get_field_type = 'EC_METHOD_get_field_type'; } {Do not localize} - {CH fn_EC_GROUP_set_generator = 'EC_GROUP_set_generator'; } {Do not localize} - {CH fn_EC_GROUP_get0_generator = 'EC_GROUP_get0_generator'; } {Do not localize} - {CH fn_EC_GROUP_get_order = 'EC_GROUP_get_order'; } {Do not localize} - {CH fn_EC_GROUP_get_cofactor = 'EC_GROUP_get_cofactor'; } {Do not localize} - {CH fn_EC_GROUP_set_curve_name ='EC_GROUP_set_curve_name'; } {Do not localize} - {CH fn_EC_GROUP_get_curve_name = 'EC_GROUP_get_curve_name'; } {Do not localize} - {CH fn_EC_GROUP_set_asn1_flag = 'EC_GROUP_set_asn1_flag'; } {Do not localize} - {CH fn_EC_GROUP_get_asn1_flag = 'EC_GROUP_get_asn1_flag'; } {Do not localize} - {CH fn_EC_GROUP_set_point_conversion_form = 'EC_GROUP_set_point_conversion_form'; } {Do not localize} - {CH fn_EC_GROUP_get_point_conversion_form = 'EC_GROUP_get_point_conversion_form'; } {Do not localize} - {CH fn_EC_GROUP_get0_seed = 'EC_GROUP_get0_seed'; } {Do not localize} - {CH fn_EC_GROUP_get_seed_len = 'EC_GROUP_get_seed_len'; } {Do not localize} - {CH fn_EC_GROUP_set_seed = 'EC_GROUP_set_seed'; } {Do not localize} - {CH fn_EC_GROUP_set_curve_GFp = 'EC_GROUP_set_curve_GFp'; } {Do not localize} - {CH fn_EC_GROUP_get_curve_GFp = 'EC_GROUP_get_curve_GFp'; } {Do not localize} - {CH fn_EC_GROUP_set_curve_GF2m = 'EC_GROUP_set_curve_GF2m'; } {Do not localize} - {CH fn_EC_GROUP_get_curve_GF2m = 'EC_GROUP_get_curve_GF2m'; } {Do not localize} - {CH fn_EC_GROUP_get_degree = 'EC_GROUP_get_degree'; } {Do not localize} - {CH fn_EC_GROUP_check = 'EC_GROUP_check'; } {Do not localize} - {CH fn_EC_GROUP_check_discriminant = 'EC_GROUP_check_discriminant'; } {Do not localize} - {CH fn_EC_GROUP_cmp = 'EC_GROUP_cmp'; } {Do not localize} - {CH fn_EC_GROUP_new_curve_GFp = 'EC_GROUP_new_curve_GFp'; } {Do not localize} - {CH fn_EC_GROUP_new_curve_GF2m = 'EC_GROUP_new_curve_GF2m'; } {Do not localize} - {CH fn_EC_GROUP_new_by_curve_name = 'EC_GROUP_new_by_curve_name'; } {Do not localize} - {CH fn_EC_get_builtin_curves = 'EC_get_builtin_curves'; } {Do not localize} - {CH fn_EC_POINT_new = 'EC_POINT_new'; } {Do not localize} - {CH fn_EC_POINT_free = 'EC_POINT_free'; } {Do not localize} - {CH fn_EC_POINT_clear_free = 'EC_POINT_clear_free'; } {Do not localize} - {CH fn_EC_POINT_copy = 'EC_POINT_copy'; } {Do not localize} - {CH fn_EC_POINT_dup = 'EC_POINT_dup'; } {Do not localize} - {CH fn_EC_POINT_method_of = 'EC_POINT_method_of'; } {Do not localize} - {CH fn_EC_POINT_set_to_infinity = 'EC_POINT_set_to_infinity'; } {Do not localize} - {CH fn_EC_POINT_set_Jprojective_coordinates_GFp = 'EC_POINT_set_Jprojective_coordinates_GFp'; } {Do not localize} - {CH fn_EC_POINT_get_Jprojective_coordinates_GFp = 'EC_POINT_get_Jprojective_coordinates_GFp'; } {Do not localize} - {CH fn_EC_POINT_set_affine_coordinates_GFp = 'EC_POINT_set_affine_coordinates_GFp'; } {Do not localize} - {CH fn_EC_POINT_get_affine_coordinates_GFp = 'EC_POINT_get_affine_coordinates_GFp'; } {Do not localize} - {CH fn_EC_POINT_set_compressed_coordinates_GFp = 'EC_POINT_set_compressed_coordinates_GFp'; } {Do not localize} - {CH fn_EC_POINT_set_affine_coordinates_GF2m = 'EC_POINT_set_affine_coordinates_GF2m'; } {Do not localize} - {CH fn_EC_POINT_set_compressed_coordinates_GF2m = 'EC_POINT_set_compressed_coordinates_GF2m'; } {Do not localize} - {CH fn_EC_POINT_point2oct = 'EC_POINT_point2oct'; } {Do not localize} - {CH fn_EC_POINT_oct2point = 'EC_POINT_oct2point'; } {Do not localize} - {CH fn_EC_POINT_point2bn = 'EC_POINT_point2bn'; } {Do not localize} - {CH fn_EC_POINT_bn2point = 'EC_POINT_bn2point'; } {Do not localize} - {CH fn_EC_POINT_point2hex = 'EC_POINT_point2hex'; } {Do not localize} - {CH fn_EC_POINT_hex2point = 'EC_POINT_hex2point'; } {Do not localize} - {CH fn_EC_POINT_add = 'EC_POINT_add'; } {Do not localize} - {CH fn_EC_POINT_dbl = 'EC_POINT_dbl'; } {Do not localize} - {CH fn_EC_POINT_invert = 'EC_POINT_invert'; } {Do not localize} - {CH fn_EC_POINT_is_at_infinity = 'EC_POINT_is_at_infinity'; } {Do not localize} - {CH fn_EC_POINT_is_on_curve = 'EC_POINT_is_on_curve'; } {Do not localize} - {CH fn_EC_POINT_cmp = 'EC_POINT_cmp'; } {Do not localize} - {CH fn_EC_POINT_make_affine = 'EC_POINT_make_affine'; } {Do not localize} - {CH fn_EC_POINTs_make_affine = 'EC_POINTs_make_affine'; } {Do not localize} - {CH fn_EC_POINTs_mul = 'EC_POINTs_mul'; } {Do not localize} - {CH fn_EC_POINT_mul = 'EC_POINT_mul'; } {Do not localize} - {CH fn_EC_GROUP_precompute_mult = 'EC_GROUP_precompute_mult'; } {Do not localize} - {CH fn_EC_GROUP_have_precompute_mult = 'EC_GROUP_have_precompute_mult'; } {Do not localize} - {CH fn_EC_GROUP_get_basis_type = 'EC_GROUP_get_basis_type'; } {Do not localize} - {CH fn_EC_GROUP_get_trinomial_basis = 'EC_GROUP_get_trinomial_basis'; } {Do not localize} - {CH fn_EC_GROUP_get_pentanomial_basis = 'EC_GROUP_get_pentanomial_basis'; } {Do not localize} - {CH fn_d2i_ECPKParameters = 'd2i_ECPKParameters'; } {Do not localize} - {CH fn_i2d_ECPKParameters = 'i2d_ECPKParameters'; } {Do not localize} - {$IFNDEF OPENSSL_NO_BIO} - {CH fn_ECPKParameters_print = 'ECPKParameters_print'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_FP_API} - {CH fn_ECPKParameters_print_fp = 'ECPKParameters_print_fp'; } {Do not localize} - {$ENDIF} - {CH fn_EC_KEY_new = 'EC_KEY_new'; } {Do not localize} - {CH fn_EC_KEY_new_by_curve_name = 'EC_KEY_new_by_curve_name'; } {Do not localize} - {CH fn_EC_KEY_free = 'EC_KEY_free'; } {Do not localize} - {CH fn_EC_KEY_copy = 'EC_KEY_copy'; } {Do not localize} - {CH fn_EC_KEY_dup = 'EC_KEY_dup'; } {Do not localize} - {CH fn_EC_KEY_up_ref = 'EC_KEY_up_ref'; } {Do not localize} - {CH fn_EC_KEY_get0_group = 'EC_KEY_get0_group'; } {Do not localize} - {CH fn_EC_KEY_set_group = 'EC_KEY_set_group'; } {Do not localize} - {CH fn_EC_KEY_get0_private_key = 'EC_KEY_get0_private_key'; } {Do not localize} - {CH fn_EC_KEY_set_private_key = 'EC_KEY_set_private_key'; } {Do not localize} - {CH fn_EC_KEY_get0_public_key = 'EC_KEY_get0_public_key'; } {Do not localize} - {CH fn_EC_KEY_set_public_key = 'EC_KEY_set_public_key'; } {Do not localize} - {CH fn_EC_KEY_get_enc_flags = 'EC_KEY_get_enc_flags'; } {Do not localize} - {CH fn_EC_KEY_set_enc_flags = 'EC_KEY_set_enc_flags'; } {Do not localize} - {CH fn_EC_KEY_get_conv_form = 'EC_KEY_get_conv_form'; } {Do not localize} - {CH fn_EC_KEY_set_conv_form = 'EC_KEY_set_conv_form'; } {Do not localize} - {CH fn_EC_KEY_get_key_method_data = 'EC_KEY_get_key_method_data'; } {Do not localize} - {CH fn_EC_KEY_insert_key_method_data = 'EC_KEY_insert_key_method_data'; } {Do not localize} - {CH fn_EC_KEY_set_asn1_flag = 'EC_KEY_set_asn1_flag'; } {Do not localize} - {CH fn_EC_KEY_precompute_mult = 'EC_KEY_precompute_mult'; } {Do not localize} - {CH fn_EC_KEY_generate_key = 'EC_KEY_generate_key'; } {Do not localize} - {CH fn_EC_KEY_check_key = 'EC_KEY_check_key'; } {Do not localize} - {CH fn_d2i_ECPrivateKey = 'd2i_ECPrivateKey'; } {Do not localize} - {CH fn_i2d_ECPrivateKey = 'i2d_ECPrivateKey'; } {Do not localize} - {CH fn_d2i_ECParameters = 'd2i_ECParameters'; } {Do not localize} - {CH fn_i2d_ECParameters = 'i2d_ECParameters'; } {Do not localize} - {CH fn_o2i_ECPublicKey = 'o2i_ECPublicKey'; } {Do not localize} - {CH fn_i2o_ECPublicKey = 'i2o_ECPublicKey'; } {Do not localize} - {$IFNDEF OPENSSL_NO_BIO} - {CH fn_ECParameters_print = 'ECParameters_print'; } {Do not localize} - {CH fn_EC_KEY_print = 'EC_KEY_print'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_FP_API} - {CH fn_ECParameters_print_fp = 'ECParameters_print_fp'; } {Do not localize} - {CH fn_EC_KEY_print_fp = 'EC_KEY_print_fp'; } {Do not localize} - {$ENDIF} - {$ENDIF} - {$IFNDEF OPENSSL_NO_ECDSA} - {CH fn_ECDSA_SIG_new = 'ECDSA_SIG_new'; } {Do not localize} - {CH fn_ECDSA_SIG_free = 'ECDSA_SIG_free'; } {Do not localize} - {CH fn_i2d_ECDSA_SIG = 'i2d_ECDSA_SIG'; } {Do not localize} - {CH fn_d2i_ECDSA_SIG = 'd2i_ECDSA_SIG'; } {Do not localize} - {CH fn_ECDSA_do_sign = 'ECDSA_do_sign'; } {Do not localize} - {CH fn_ECDSA_do_sign_ex = 'ECDSA_do_sign_ex'; } {Do not localize} - {CH fn_ECDSA_do_verify = 'ECDSA_do_verify'; } {Do not localize} - {CH fn_ECDSA_OpenSSL = 'ECDSA_OpenSSL'; } {Do not localize} - {CH fn_ECDSA_set_default_method = 'ECDSA_set_default_method'; } {Do not localize} - {CH fn_ECDSA_get_default_method = 'ECDSA_get_default_method'; } {Do not localize} - {CH fn_ECDSA_set_method = 'ECDSA_set_method'; } {Do not localize} - {CH fn_ECDSA_size = 'ECDSA_size'; } {Do not localize} - {CH fn_ECDSA_sign_setup = 'ECDSA_sign_setup'; } {Do not localize} - {CH fn_ECDSA_sign = 'ECDSA_sign'; } {Do not localize} - {CH fn_ECDSA_sign_ex = 'ECDSA_sign_ex'; } {Do not localize} - {CH fn_ECDSA_verify = 'ECDSA_verify'; } {Do not localize} - {CH fn_ECDSA_get_ex_new_index = 'ECDSA_get_ex_new_index'; } {Do not localize} - {CH fn_ECDSA_set_ex_data = 'ECDSA_set_ex_data'; } {Do not localize} - {CH fn_ECDSA_get_ex_data = 'ECDSA_get_ex_data'; } {Do not localize} - {CH fn_ERR_load_ECDSA_strings = 'ERR_load_ECDSA_strings'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_ECDH} - {CH fn_ECDH_OpenSSL = 'ECDH_OpenSSL'; } {Do not localize} - {CH fn_ECDH_set_default_method = 'ECDH_set_default_method'; } {Do not localize} - {CH fn_ECDH_get_default_method = 'ECDH_get_default_method'; } {Do not localize} - {CH fn_ECDH_set_method = 'ECDH_set_method'; } {Do not localize} - {CH fn_ECDH_compute_key = 'ECDH_compute_key'; } {Do not localize} - {CH fn_ECDH_get_ex_new_index = 'ECDH_get_ex_new_index'; } {Do not localize} - {CH fn_ECDH_set_ex_data = 'ECDH_set_ex_data'; } {Do not localize} - {CH fn_ECDH_get_ex_data = 'ECDH_get_ex_data'; } {Do not localize} - {CH fn_ERR_load_ECDH_strings = 'ERR_load_ECDH_strings'; } {Do not localize} - {$ENDIF} - {CH fn_BN_value_one = 'BN_value_one'; } {Do not localize} - {CH fn_BN_options = 'BN_options'; } {Do not localize} - {CH fn_BN_CTX_new = 'BN_CTX_new'; } {Do not localize} - {$IFNDEF OPENSSL_NO_DEPRECATED} - {CH fn_BN_CTX_init = 'BN_CTX_init'; } {Do not localize} - {$ENDIF} - {CH fn_BN_CTX_free = 'BN_CTX_free'; } {Do not localize} - {CH fn_BN_rand = 'BN_rand'; } {Do not localize} - {CH fn_BN_pseudo_rand = 'BN_pseudo_rand'; } {Do not localize} - {CH fn_BN_rand_range = 'BN_rand_range'; } {Do not localize} - {CH fn_BN_pseudo_rand_range = 'BN_pseudo_rand_range'; } {Do not localize} - {CH fn_BN_num_bits = 'BN_num_bits'; } {Do not localize} - {CH fn_BN_num_bits_word = 'BN_num_bits_word'; } {Do not localize} - fn_BN_new = 'BN_new'; {Do not localize} - {CH fn_BN_init = 'BN_init'; } {Do not localize} - {CH fn_BN_clear_free = 'BN_clear_free'; } {Do not localize} - {CH fn_BN_copy = 'BN_copy'; } {Do not localize} - {CH fn_BN_bin2bn = 'BN_bin2bn'; } {Do not localize} - {CH fn_BN_bn2bin = 'BN_bn2bin'; } {Do not localize} - {CH fn_BN_mpi2bn = 'BN_mpi2bn'; } {Do not localize} - {CH fn_BN_bn2mpi = 'BN_bn2mpi'; } {Do not localize} - {CH fn_BN_sub = 'BN_sub'; } {Do not localize} - {CH fn_BN_usub = 'BN_usub'; } {Do not localize} - {CH fn_BN_uadd = 'BN_uadd'; } {Do not localize} - {CH fn_BN_add = 'BN_add'; } {Do not localize} - {CH fn_BN_mod = 'BN_mod'; } {Do not localize} - {CH fn_BN_div = 'BN_div'; } {Do not localize} - {CH fn_BN_mul = 'BN_mul'; } {Do not localize} - {CH fn_BN_sqr = 'BN_sqr'; } {Do not localize} - {CH fn_BN_mod_word = 'BN_mod_word'; } {Do not localize} - {CH fn_BN_div_word = 'BN_div_word'; } {Do not localize} - {CH fn_BN_mul_word = 'BN_mul_word'; } {Do not localize} - {CH fn_BN_add_word = 'BN_add_word'; } {Do not localize} - {CH fn_BN_sub_word = 'BN_sub_word'; } {Do not localize} - fn_BN_set_word = 'BN_set_word'; {Do not localize} - {CH fn_BN_get_word = 'BN_get_word'; } {Do not localize} - {CH fn_BN_cmp = 'BN_cmp'; } {Do not localize} - fn_BN_free = 'BN_free'; {Do not localize} - {CH fn_BN_is_bit_set = 'BN_is_bit_set'; } {Do not localize} - {CH fn_BN_lshift = 'BN_lshift'; } {Do not localize} - {CH fn_BN_lshift1 = 'BN_lshift1'; } {Do not localize} - {CH fn_BN_exp = 'BN_exp'; } {Do not localize} - {CH fn_BN_mod_exp = 'BN_mod_exp'; } {Do not localize} - {CH fn_BN_mod_exp_mont = 'BN_mod_exp_mont'; } {Do not localize} - {CH fn_BN_mod_exp2_mont = 'BN_mod_exp2_mont'; } {Do not localize} - {CH fn_BN_mod_exp_simple = 'BN_mod_exp_simple'; } {Do not localize} - {CH fn_BN_mask_bits = 'BN_mask_bits'; } {Do not localize} - {CH fn_BN_mod_mul = 'BN_mod_mul'; } {Do not localize} - {$IFNDEF OPENSSL_NO_FP_API} - {CH fn_BN_print_fp = 'BN_print_fp'; } {Do not localize} - {$ENDIF} - {CH fn_BN_print = 'BN_print'; } {Do not localize} - {CH fn_BN_reciprocal = 'BN_reciprocal'; } {Do not localize} - {CH fn_BN_rshift = 'BN_rshift'; } {Do not localize} - {CH fn_BN_rshift1 = 'BN_rshift1'; } {Do not localize} - {CH fn_BN_clear = 'BN_clear'; } {Do not localize} - {CH fn_bn_expand2 = 'bn_expand2'; } {Do not localize} - {CH fn_BN_dup = 'BN_dup'; } {Do not localize} - {CH fn_BN_ucmp = 'BN_ucmp'; } {Do not localize} - {CH fn_BN_set_bit = 'BN_set_bit'; } {Do not localize} - {CH fn_BN_clear_bit = 'BN_clear_bit'; } {Do not localize} - fn_BN_bn2hex = 'BN_bn2hex'; {Do not localize} - fn_BN_bn2dec = 'BN_bn2dec'; {Do not localize} - fn_BN_hex2bn = 'BN_hex2bn'; {Do not localize} - {CH fn_BN_dec2bn = 'BN_dec2bn'; } {Do not localize} - {CH fn_BN_gcd = 'BN_gcd'; } {Do not localize} - {CH fn_BN_mod_inverse = 'BN_mod_inverse'; } {Do not localize} - {$IFNDEF OPENSSL_NO_DEPRECATED} - {CH fn_BN_generate_prime = 'BN_generate_prime'; } {Do not localize} - {CH fn_BN_is_prime = 'BN_is_prime'; } {Do not localize} - {CH fn_BN_is_prime_fasttest = 'BN_is_prime_fasttest'; } {Do not localize} - {$ENDIF} - {CH fn_ERR_load_BN_strings = 'ERR_load_BN_strings'; } {Do not localize} - {CH fn_bn_mul_add_words = 'bn_mul_add_words'; } {Do not localize} - {CH fn_bn_mul_words = 'bn_mul_words'; } {Do not localize} - {CH fn_bn_sqr_words = 'bn_sqr_words'; } {Do not localize} - {CH fn_bn_div_words = 'bn_div_words'; } {Do not localize} - {CH fn_bn_add_words = 'bn_add_words'; } {Do not localize} - {CH fn_bn_sub_words = 'bn_sub_words'; } {Do not localize} - {CH fn_BN_MONT_CTX_new = 'BN_MONT_CTX_new'; } {Do not localize} - {CH fn_BN_MONT_CTX_init = 'BN_MONT_CTX_init'; } {Do not localize} - {CH fn_BN_mod_mul_montgomery = 'BN_mod_mul_montgomery'; } {Do not localize} - {CH fn_BN_from_montgomery = 'BN_from_montgomery'; } {Do not localize} - {CH fn_BN_MONT_CTX_free = 'BN_MONT_CTX_free'; } {Do not localize} - {CH fn_BN_MONT_CTX_set = 'BN_MONT_CTX_set'; } {Do not localize} - {CH fn_BN_MONT_CTX_copy = 'BN_MONT_CTX_copy'; } {Do not localize} - {CH fn_BN_BLINDING_new = 'BN_BLINDING_new'; } {Do not localize} - {CH fn_BN_BLINDING_free = 'BN_BLINDING_free'; } {Do not localize} - {CH fn_BN_BLINDING_update = 'BN_BLINDING_update'; } {Do not localize} - {CH fn_BN_BLINDING_convert = 'BN_BLINDING_convert'; } {Do not localize} - {CH fn_BN_BLINDING_invert = 'BN_BLINDING_invert'; } {Do not localize} - {$IFNDEF OPENSSL_NO_DEPRECATED} - {CH fn_BN_set_params = 'BN_set_params'; } {Do not localize} - {CH fn_BN_get_params = 'BN_get_params'; } {Do not localize} - {$ENDIF} - {CH fn_BN_RECP_CTX_init = 'BN_RECP_CTX_init'; } {Do not localize} - {CH fn_BN_RECP_CTX_new = 'BN_RECP_CTX_new'; } {Do not localize} - {CH fn_BN_RECP_CTX_free = 'BN_RECP_CTX_free'; } {Do not localize} - {CH fn_BN_RECP_CTX_set = 'BN_RECP_CTX_set'; } {Do not localize} - {CH fn_BN_mod_mul_reciprocal = 'BN_mod_mul_reciprocal'; } {Do not localize} - {CH fn_BN_mod_exp_recp = 'BN_mod_exp_recp'; } {Do not localize} - - {CH fn_BN_div_recp = 'BN_div_recp'; } {Do not localize} - {CH fn_BN_GF2m_add = 'BN_GF2m_add'; } {Do not localize} - {CH fn_BN_GF2m_mod = 'BN_GF2m_mod'; } {Do not localize} - {CH fn_BN_GF2m_mod_mul = 'BN_GF2m_mod_mul'; } {Do not localize} - {CH fn_BN_GF2m_mod_sqr = 'BN_GF2m_mod_sqr'; } {Do not localize} - {CH fn_BN_GF2m_mod_inv = 'BN_GF2m_mod_inv'; } {Do not localize} - {CH fn_BN_GF2m_mod_div = 'BN_GF2m_mod_div'; } {Do not localize} - {CH fn_BN_GF2m_mod_exp = 'BN_GF2m_mod_exp'; } {Do not localize} - {CH fn_BN_GF2m_mod_sqrt = 'BN_GF2m_mod_sqrt'; } {Do not localize} - {CH fn_BN_GF2m_mod_solve_quad = 'BN_GF2m_mod_solve_quad'; } {Do not localize} - {CH fn_BN_GF2m_mod_arr = 'BN_GF2m_mod_arr'; } {Do not localize} - {CH fn_BN_GF2m_mod_mul_arr = 'BN_GF2m_mod_mul_arr'; } {Do not localize} - {CH fn_BN_GF2m_mod_sqr_arr = 'BN_GF2m_mod_sqr_arr'; } {Do not localize} - {CH fn_BN_GF2m_mod_inv_arr = 'BN_GF2m_mod_inv_arr'; } {Do not localize} - {CH fn_BN_GF2m_mod_div_arr = 'BN_GF2m_mod_div_arr'; } {Do not localize} - {CH fn_BN_GF2m_mod_exp_arr = 'BN_GF2m_mod_exp_arr'; } {Do not localize} - {CH fn_BN_GF2m_mod_sqrt_arr = 'BN_GF2m_mod_sqrt_arr'; } {Do not localize} - {CH fn_BN_GF2m_mod_solve_quad_arr = 'BN_GF2m_mod_solve_quad_arr'; } {Do not localize} - {CH fn_BN_GF2m_poly2arr = 'BN_GF2m_poly2arr'; } {Do not localize} - {CH fn_BN_GF2m_arr2poly = 'BN_GF2m_arr2poly'; } {Do not localize} - // faster mod functions for the 'NIST primes' - // 0 <= a < p^2 - {CH fn_BN_nist_mod_192 = 'BN_nist_mod_192'; } {Do not localize} - {CH fn_BN_nist_mod_224 = 'BN_nist_mod_224'; } {Do not localize} - {CH fn_BN_nist_mod_256 = 'BN_nist_mod_256'; } {Do not localize} - {CH fn_BN_nist_mod_384 = 'BN_nist_mod_384'; } {Do not localize} - {CH fn_BN_nist_mod_521 = 'BN_nist_mod_521'; } {Do not localize} - {CH fn_BN_get0_nist_prime_192 = 'BN_get0_nist_prime_192'; } {Do not localize} - {CH fn_BN_get0_nist_prime_224 = 'BN_get0_nist_prime_224'; } {Do not localize} - {CH fn_BN_get0_nist_prime_256 = 'BN_get0_nist_prime_256'; } {Do not localize} - {CH fn_BN_get0_nist_prime_384 = 'BN_get0_nist_prime_384'; } {Do not localize} - {CH fn_BN_get0_nist_prime_521 = 'BN_get0_nist_prime_521'; } {Do not localize} - // - {CH fn_get_rfc2409_prime_768 = 'get_rfc2409_prime_768'; } {Do not localize} - {CH fn_get_rfc2409_prime_1024 = 'get_rfc2409_prime_1024'; } {Do not localize} - {CH fn_get_rfc3526_prime_1536 = 'get_rfc3526_prime_1536'; } {Do not localize} - {CH fn_get_rfc3526_prime_2048 = 'get_rfc3526_prime_2048'; } {Do not localize} - {CH fn_get_rfc3526_prime_3072 = 'get_rfc3526_prime_3072'; } {Do not localize} - {CH fn_get_rfc3526_prime_4096 = 'get_rfc3526_prime_4096'; } {Do not localize} - {CH fn_get_rfc3526_prime_6144 = 'get_rfc3526_prime_6144'; } {Do not localize} - {CH fn_get_rfc3526_prime_8192 = 'get_rfc3526_prime_8192'; } {Do not localize} - {CH fn_BN_bntest_rand = 'BN_bntest_rand'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_new = 'sk_ASN1_TYPE_new'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_new_null = 'sk_ASN1_TYPE_new_null'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_free = 'sk_ASN1_TYPE_free'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_num = 'sk_ASN1_TYPE_num'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_value = 'sk_ASN1_TYPE_value'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_set = 'sk_ASN1_TYPE_set'; } {Do not localize} - {CH fn_ASN1_TYPE_set1 = 'ASN1_TYPE_set1'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_zero = 'sk_ASN1_TYPE_zero'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_push = 'sk_ASN1_TYPE_push'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_unshift = 'sk_ASN1_TYPE_unshift'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_find = 'sk_ASN1_TYPE_find'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_delete = 'sk_ASN1_TYPE_delete'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_delete_ptr = 'sk_ASN1_TYPE_delete_ptr'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_insert = 'sk_ASN1_TYPE_insert'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_dup = 'sk_ASN1_TYPE_dup'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_pop_free = 'sk_ASN1_TYPE_pop_free'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_shift = 'sk_ASN1_TYPE_shift'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_pop = 'sk_ASN1_TYPE_pop'; } {Do not localize} - {CH fn_sk_ASN1_TYPE_sort = 'sk_ASN1_TYPE_sort'; } {Do not localize} - {CH fn_i2d_ASN1_SET_OF_ASN1_TYPE = 'i2d_ASN1_SET_OF_ASN1_TYPE'; } {Do not localize} - {CH fn_d2i_ASN1_SET_OF_ASN1_TYPE = 'd2i_ASN1_SET_OF_ASN1_TYPE'; } {Do not localize} - {CH fn_ASN1_TYPE_new = 'ASN1_TYPE_new'; } {Do not localize} - {CH fn_ASN1_TYPE_free = 'ASN1_TYPE_free'; } {Do not localize} - {CH fn_i2d_ASN1_TYPE = 'i2d_ASN1_TYPE'; } {Do not localize} - {CH fn_d2i_ASN1_TYPE = 'd2i_ASN1_TYPE'; } {Do not localize} - {CH fn_ASN1_TYPE_get = 'ASN1_TYPE_get'; } {Do not localize} - {CH fn_ASN1_TYPE_set = 'ASN1_TYPE_set'; } {Do not localize} - {CH fn_ASN1_TYPE_set1 = 'ASN1_TYPE_set1'; } {Do not localize} - {CH fn_ASN1_OBJECT_new = 'ASN1_OBJECT_new'; } {Do not localize} - {CH fn_ASN1_OBJECT_free = 'ASN1_OBJECT_free'; } {Do not localize} - {CH fn_i2d_ASN1_OBJECT = 'i2d_ASN1_OBJECT'; } {Do not localize} - {CH fn_d2i_ASN1_OBJECT = 'd2i_ASN1_OBJECT'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_new = 'sk_ASN1_OBJECT_new'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_new_null = 'sk_ASN1_OBJECT_new_null'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_free = 'sk_ASN1_OBJECT_free'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_num = 'sk_ASN1_OBJECT_num'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_value = 'sk_ASN1_OBJECT_value'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_set = 'sk_ASN1_OBJECT_set'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_zero = 'sk_ASN1_OBJECT_zero'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_push = 'sk_ASN1_OBJECT_push'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_unshift = 'sk_ASN1_OBJECT_unshift'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_find = 'sk_ASN1_OBJECT_find'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_delete = 'sk_ASN1_OBJECT_delete'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_delete_ptr = 'sk_ASN1_OBJECT_delete_ptr'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_insert = 'sk_ASN1_OBJECT_insert'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_dup = 'sk_ASN1_OBJECT_dup'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_pop_free = 'sk_ASN1_OBJECT_pop_free'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_shift = 'sk_ASN1_OBJECT_shift'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_pop = 'sk_ASN1_OBJECT_pop'; } {Do not localize} - {CH fn_sk_ASN1_OBJECT_sort = 'sk_ASN1_OBJECT_sort'; } {Do not localize} - {CH fn_i2d_ASN1_SET_OF_ASN1_OBJECT = 'i2d_ASN1_SET_OF_ASN1_OBJECT'; } {Do not localize} - {CH fn_d2i_ASN1_SET_OF_ASN1_OBJECT = 'd2i_ASN1_SET_OF_ASN1_OBJECT'; } {Do not localize} - {CH fn_ASN1_STRING_new = 'ASN1_STRING_new'; } {Do not localize} - fn_ASN1_STRING_free = 'ASN1_STRING_free'; {Do not localize} - {CH fn_ASN1_STRING_dup = 'ASN1_STRING_dup'; } {Do not localize} - fn_ASN1_STRING_type_new = 'ASN1_STRING_type_new'; {Do not localize} - {CH fn_ASN1_STRING_cmp = 'ASN1_STRING_cmp'; } {Do not localize} - {CH fn_ASN1_STRING_set = 'ASN1_STRING_set'; } {Do not localize} - {CH fn_ASN1_STRING_set0 = 'ASN1_STRING_set0'; } {Do not localize} - {CH fn_i2d_ASN1_BIT_STRING = 'i2d_ASN1_BIT_STRING'; } {Do not localize} - {CH fn_d2i_ASN1_BIT_STRING = 'd2i_ASN1_BIT_STRING'; } {Do not localize} - {CH fn_ASN1_BIT_STRING_set_bit = 'ASN1_BIT_STRING_set_bit'; } {Do not localize} - {CH fn_ASN1_BIT_STRING_get_bit = 'ASN1_BIT_STRING_get_bit'; } {Do not localize} - {CH fn_i2d_ASN1_BOOLEAN = 'i2d_ASN1_BOOLEAN'; } {Do not localize} - {CH fn_d2i_ASN1_BOOLEAN = 'd2i_ASN1_BOOLEAN'; } {Do not localize} - {CH fn_i2d_ASN1_INTEGER = 'i2d_ASN1_INTEGER'; } {Do not localize} - {CH fn_d2i_ASN1_INTEGER = 'd2i_ASN1_INTEGER'; } {Do not localize} - {CH fn_d2i_ASN1_UINTEGER = 'd2i_ASN1_UINTEGER'; } {Do not localize} - {CH fn_i2d_ASN1_ENUMERATED = 'i2d_ASN1_ENUMERATED'; } {Do not localize} - {CH fn_d2i_ASN1_ENUMERATED = 'd2i_ASN1_ENUMERATED'; } {Do not localize} - {CH fn_ASN1_UTCTIME_check = 'ASN1_UTCTIME_check'; } {Do not localize} - {CH fn_ASN1_UTCTIME_set = 'ASN1_UTCTIME_set'; } {Do not localize} - {CH fn_ASN1_UTCTIME_set_string = 'ASN1_UTCTIME_set_string'; } {Do not localize} - {CH fn_ASN1_GENERALIZEDTIME_check = 'ASN1_GENERALIZEDTIME_check'; } {Do not localize} - {CH fn_ASN1_GENERALIZEDTIME_set = 'ASN1_GENERALIZEDTIME_set'; } {Do not localize} - {CH fn_ASN1_GENERALIZEDTIME_set_string = 'ASN1_GENERALIZEDTIME_set_string'; } {Do not localize} - {CH fn_i2d_ASN1_OCTET_STRING = 'i2d_ASN1_OCTET_STRING'; } {Do not localize} - {CH fn_d2i_ASN1_OCTET_STRING = 'd2i_ASN1_OCTET_STRING'; } {Do not localize} - {CH fn_i2d_ASN1_VISIBLESTRING = 'i2d_ASN1_VISIBLESTRING'; } {Do not localize} - {CH fn_d2i_ASN1_VISIBLESTRING = 'd2i_ASN1_VISIBLESTRING'; } {Do not localize} - {CH fn_i2d_ASN1_UTF8STRING = 'i2d_ASN1_UTF8STRING'; } {Do not localize} - {CH fn_d2i_ASN1_UTF8STRING = 'd2i_ASN1_UTF8STRING'; } {Do not localize} - {CH fn_i2d_ASN1_BMPSTRING = 'i2d_ASN1_BMPSTRING'; } {Do not localize} - {CH fn_d2i_ASN1_BMPSTRING = 'd2i_ASN1_BMPSTRING'; } {Do not localize} - {CH fn_i2d_ASN1_PRINTABLE = 'i2d_ASN1_PRINTABLE'; } {Do not localize} - {CH fn_d2i_ASN1_PRINTABLE = 'd2i_ASN1_PRINTABLE'; } {Do not localize} - {CH fn_d2i_ASN1_PRINTABLESTRING = 'd2i_ASN1_PRINTABLESTRING'; } {Do not localize} - {CH fn_i2d_DIRECTORYSTRING = 'i2d_DIRECTORYSTRING'; } {Do not localize} - {CH fn_d2i_DIRECTORYSTRING = 'd2i_DIRECTORYSTRING'; } {Do not localize} - {CH fn_i2d_DISPLAYTEXT = 'i2d_DISPLAYTEXT'; } {Do not localize} - {CH fn_d2i_DISPLAYTEXT = 'd2i_DISPLAYTEXT'; } {Do not localize} - {CH fn_d2i_ASN1_T61STRING = 'd2i_ASN1_T61STRING'; } {Do not localize} - {CH fn_i2d_ASN1_IA5STRING = 'i2d_ASN1_IA5STRING'; } {Do not localize} - {CH fn_d2i_ASN1_IA5STRING = 'd2i_ASN1_IA5STRING'; } {Do not localize} - {CH fn_i2d_ASN1_UTCTIME = 'i2d_ASN1_UTCTIME'; } {Do not localize} - {CH fn_d2i_ASN1_UTCTIME = 'd2i_ASN1_UTCTIME'; } {Do not localize} - {CH fn_i2d_ASN1_GENERALIZEDTIME = 'i2d_ASN1_GENERALIZEDTIME'; } {Do not localize} - {CH fn_d2i_ASN1_GENERALIZEDTIME = 'd2i_ASN1_GENERALIZEDTIME'; } {Do not localize} - {CH fn_i2d_ASN1_TIME = 'i2d_ASN1_TIME'; } {Do not localize} - {CH fn_d2i_ASN1_TIME = 'd2i_ASN1_TIME'; } {Do not localize} - {CH fn_ASN1_TIME_set = 'ASN1_TIME_set'; } {Do not localize} - {CH fn_i2d_ASN1_SET = 'i2d_ASN1_SET'; } {Do not localize} - {CH fn_d2i_ASN1_SET = 'd2i_ASN1_SET'; } {Do not localize} - {$IFNDEF OPENSSL_NO_BIO} - {CH fn_i2a_ASN1_INTEGER = 'i2a_ASN1_INTEGER'; } {Do not localize} - {CH fn_a2i_ASN1_INTEGER = 'a2i_ASN1_INTEGER'; } {Do not localize} - {CH fn_i2a_ASN1_ENUMERATED = 'i2a_ASN1_ENUMERATED'; } {Do not localize} - {CH fn_a2i_ASN1_ENUMERATED = 'a2i_ASN1_ENUMERATED'; } {Do not localize} - {CH fn_i2a_ASN1_OBJECT = 'i2a_ASN1_OBJECT'; } {Do not localize} - {CH fn_a2i_ASN1_STRING = 'a2i_ASN1_STRING'; } {Do not localize} - {CH fn_i2a_ASN1_STRING = 'i2a_ASN1_STRING'; } {Do not localize} - {$ENDIF} - {CH fn_i2t_ASN1_OBJECT = 'i2t_ASN1_OBJECT'; } {Do not localize} - {CH fn_a2d_ASN1_OBJECT = 'a2d_ASN1_OBJECT'; } {Do not localize} - {CH fn_ASN1_OBJECT_create = 'ASN1_OBJECT_create'; } {Do not localize} - fn_ASN1_INTEGER_set = 'ASN1_INTEGER_set'; {Do not localize} - fn_ASN1_INTEGER_get = 'ASN1_INTEGER_get'; {Do not localize} - {CH fn_BN_to_ASN1_INTEGER = 'BN_to_ASN1_INTEGER'; } {Do not localize} - fn_ASN1_INTEGER_to_BN = 'ASN1_INTEGER_to_BN'; {Do not localize} - {CH fn_ASN1_ENUMERATED_set = 'ASN1_ENUMERATED_set'; } {Do not localize} - {CH fn_ASN1_ENUMERATED_get = 'ASN1_ENUMERATED_get'; } {Do not localize} - {CH fn_BN_to_ASN1_ENUMERATED = 'BN_to_ASN1_ENUMERATED'; } {Do not localize} - {CH fn_ASN1_ENUMERATED_to_BN = 'ASN1_ENUMERATED_to_BN'; } {Do not localize} - {CH fn_ASN1_PRINTABLE_type = 'ASN1_PRINTABLE_type'; } {Do not localize} - {CH fn_i2d_ASN1_bytes = 'i2d_ASN1_bytes'; } {Do not localize} - {CH fn_d2i_ASN1_bytes = 'd2i_ASN1_bytes'; } {Do not localize} - {CH fn_d2i_ASN1_type_bytes = 'd2i_ASN1_type_bytes'; } {Do not localize} - {CH fn_asn1_Finish = 'asn1_Finish'; } {Do not localize} - {CH fn_ASN1_get_object = 'ASN1_get_object'; } {Do not localize} - {CH fn_ASN1_check_infinite_end = 'ASN1_check_infinite_end'; } {Do not localize} - {CH fn_ASN1_put_object = 'ASN1_put_object'; } {Do not localize} - {CH fn_ASN1_object_size = 'ASN1_object_size'; } {Do not localize} - fn_ASN1_dup = 'ASN1_dup'; {Do not localize} - {$IFNDEF OPENSSL_NO_FP_API} - {CH fn_ASN1_d2i_fp = 'ASN1_d2i_fp'; } {Do not localize} - {CH fn_ASN1_i2d_fp = 'ASN1_i2d_fp'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_BIO} - {CH fn_ASN1_d2i_bio = 'ASN1_d2i_bio'; } {Do not localize} - {CH fn_ASN1_item_d2i_bio = 'ASN1_item_d2i_bio'; } {Do not localize} - {CH fn_ASN1_i2d_bio = 'ASN1_i2d_bio'; } {Do not localize} - {CH fn_ASN1_item_i2d_bio = 'ASN1_item_i2d_bio'; } {Do not localize} - {CH fn_ASN1_UTCTIME_print = 'ASN1_UTCTIME_print'; } {Do not localize} - {CH fn_ASN1_GENERALIZEDTIME_print = 'ASN1_GENERALIZEDTIME_print'; } {Do not localize} - {CH fn_ASN1_TIME_print = 'ASN1_TIME_print'; } {Do not localize} - {CH fn_ASN1_STRING_print = 'ASN1_STRING_print'; } {Do not localize} - {CH fn_ASN1_STRING_print_ex = 'ASN1_STRING_print_ex'; } {Do not localize} - {CH fn_ASN1_parse = 'ASN1_parse'; } {Do not localize} - {CH fn_ASN1_parse_dump = 'ASN1_parse_dump'; } {Do not localize} - {$ENDIF} - {CH fn_ASN1_tag2str = 'ASN1_tag2str'; } {Do not localize} - {CH fn_i2d_ASN1_HEADER = 'i2d_ASN1_HEADER'; } {Do not localize} - {CH fn_d2i_ASN1_HEADER = 'd2i_ASN1_HEADER'; } {Do not localize} - {CH fn_ASN1_HEADER_new = 'ASN1_HEADER_new'; } {Do not localize} - {CH fn_ASN1_HEADER_free = 'ASN1_HEADER_free'; } {Do not localize} - {CH fn_ASN1_UNIVERSALSTRING_to_string = 'ASN1_UNIVERSALSTRING_to_string'; } {Do not localize} - {CH fn_ERR_load_ASN1_strings = 'ERR_load_ASN1_strings'; } {Do not localize} - {CH fn_X509_asn1_meth = 'X509_asn1_meth'; } {Do not localize} - {CH fn_RSAPrivateKey_asn1_meth = 'RSAPrivateKey_asn1_meth'; } {Do not localize} - {CH fn_ASN1_IA5STRING_asn1_meth = 'ASN1_IA5STRING_asn1_meth'; } {Do not localize} - {CH fn_ASN1_BIT_STRING_asn1_meth = 'ASN1_BIT_STRING_asn1_meth'; } {Do not localize} - {CH fn_ASN1_TYPE_set_octetstring = 'ASN1_TYPE_set_octetstring'; } {Do not localize} - {CH fn_ASN1_TYPE_get_octetstring = 'ASN1_TYPE_get_octetstring'; } {Do not localize} - {CH fn_ASN1_TYPE_set_int_octetstring = 'ASN1_TYPE_set_int_octetstring'; } {Do not localize} - {CH fn_ASN1_TYPE_get_int_octetstring = 'ASN1_TYPE_get_int_octetstring'; } {Do not localize} - {CH fn_ASN1_seq_unpack = 'ASN1_seq_unpack'; } {Do not localize} - {CH fn_ASN1_seq_pack = 'ASN1_seq_pack'; } {Do not localize} - {CH fn_ASN1_unpack_string = 'ASN1_unpack_string'; } {Do not localize} - {CH fn_ASN1_pack_string = 'ASN1_pack_string'; } {Do not localize} - {CH fn_ASN1_item_unpack = 'ASN1_item_unpack'; } {Do not localize} - {CH fn_ASN1_item_pack = 'ASN1_item_pack'; } {Do not localize} - {CH fn_ASN1_STRING_set_default_mask = 'ASN1_STRING_set_default_mask'; } {Do not localize} - {CH fn_ASN1_STRING_set_default_mask_asc = 'ASN1_STRING_set_default_mask_asc'; } {Do not localize} - {CH fn_ASN1_STRING_get_default_mask = 'ASN1_STRING_get_default_mask'; } {Do not localize} - {CH fn_ASN1_mbstring_copy = 'ASN1_mbstring_copy'; } {Do not localize} - {CH fn_ASN1_mbstring_ncopy = 'ASN1_mbstring_ncopy'; } {Do not localize} - {CH fn_ASN1_STRING_set_by_NID = 'ASN1_STRING_set_by_NID'; } {Do not localize} - {CH fn_ASN1_STRING_TABLE_get = 'ASN1_STRING_TABLE_get'; } {Do not localize} - {CH fn_ASN1_STRING_TABLE_add = 'ASN1_STRING_TABLE_add'; } {Do not localize} - {CH fn_ASN1_STRING_TABLE_cleanup = 'ASN1_STRING_TABLE_cleanup'; } {Do not localize} - {CH fn_ASN1_item_new = 'ASN1_item_new'; } {Do not localize} - {CH fn_ASN1_item_free = 'ASN1_item_free'; } {Do not localize} - {CH fn_ASN1_item_d2i = 'ASN1_item_d2i'; } {Do not localize} - {CH fn_ASN1_item_i2d = 'ASN1_item_i2d'; } {Do not localize} - {CH fn_ASN1_item_ndef_i2d = 'ASN1_item_ndef_i2d'; } {Do not localize} - {CH fn_ASN1_add_oid_module = 'ASN1_add_oid_module'; } {Do not localize} - {CH fn_ASN1_generate_nconf = 'ASN1_generate_nconf'; } {Do not localize} - {CH fn_ASN1_generate_v3 = 'ASN1_generate_v3'; } {Do not localize} - {CH fn_int_smime_write_ASN1 = 'int_smime_write_ASN1'; } {Do not localize} - {CH fn_SMIME_read_ASN1 = 'SMIME_read_ASN1'; } {Do not localize} - {CH fn_OBJ_NAME_init = 'OBJ_NAME_init'; } {Do not localize} - {CH fn_OBJ_NAME_new_index = 'OBJ_NAME_new_index'; } {Do not localize} - {CH fn_OBJ_NAME_get = 'OBJ_NAME_get'; } {Do not localize} - {CH fn_OBJ_NAME_add = 'OBJ_NAME_add'; } {Do not localize} - {CH fn_OBJ_NAME_remove = 'OBJ_NAME_remove'; } {Do not localize} - {CH fn_OBJ_NAME_cleanup = 'OBJ_NAME_cleanup'; } {Do not localize} - {CH fn_OBJ_dup = 'OBJ_dup'; } {Do not localize} - fn_OBJ_nid2obj = 'OBJ_nid2obj'; {Do not localize} - fn_OBJ_nid2ln = 'OBJ_nid2ln'; {Do not localize} - fn_OBJ_nid2sn = 'OBJ_nid2sn'; {Do not localize} - fn_OBJ_obj2nid = 'OBJ_obj2nid'; {Do not localize} - {CH fn_OBJ_txt2obj = 'OBJ_txt2obj'; } {Do not localize} - {CH fn_OBJ_obj2txt = 'OBJ_obj2txt'; } {Do not localize} - {CH fn_OBJ_txt2nid = 'OBJ_txt2nid'; } {Do not localize} - {CH fn_OBJ_ln2nid = 'OBJ_ln2nid'; } {Do not localize} - {CH fn_OBJ_sn2nid = 'OBJ_sn2nid'; } {Do not localize} - {CH fn_OBJ_cmp = 'OBJ_cmp'; } {Do not localize} - {CH fn_OBJ_bsearch = 'OBJ_bsearch'; } {Do not localize} - {CH fn_ERR_load_OBJ_strings = 'ERR_load_OBJ_strings'; } {Do not localize} - {CH fn_OBJ_new_nid = 'OBJ_new_nid'; } {Do not localize} - {CH fn_OBJ_add_object = 'OBJ_add_object'; } {Do not localize} - {CH fn_OBJ_create = 'OBJ_create'; } {Do not localize} - {CH fn_OBJ_cleanup = 'OBJ_cleanup'; } {Do not localize} - {CH fn_OBJ_create_objects = 'OBJ_create_objects'; } {Do not localize} - {===} - fn_EVP_MD_type = 'EVP_MD_type'; {Do not localize} - fn_EVP_MD_pkey_type = 'EVP_MD_pkey_type'; {Do not localize} - fn_EVP_MD_size = 'EVP_MD_size'; {Do not localize} - fn_EVP_MD_block_size = 'EVP_MD_block_size'; {Do not localize} - fn_EVP_MD_flags = 'EVP_MD_flags'; {Do not localize} - fn_EVP_MD_CTX_md = 'EVP_MD_CTX_md'; {Do not localize} - fn_EVP_CIPHER_nid = 'EVP_CIPHER_nid'; {Do not localize} - fn_EVP_CIPHER_block_size = 'EVP_CIPHER_block_size'; {Do not localize} - fn_EVP_CIPHER_key_length = 'EVP_CIPHER_key_length'; {Do not localize} - fn_EVP_CIPHER_iv_length = 'EVP_CIPHER_iv_length'; {Do not localize} - fn_EVP_CIPHER_flags = 'EVP_CIPHER_flags'; {Do not localize} - fn_EVP_CIPHER_CTX_cipher = 'EVP_CIPHER_CTX_cipher'; {Do not localize} - fn_EVP_CIPHER_CTX_nid = 'EVP_CIPHER_CTX_nid'; {Do not localize} - fn_EVP_CIPHER_CTX_block_size = 'EVP_CIPHER_CTX_block_size'; {Do not localize} - fn_EVP_CIPHER_CTX_key_length = 'EVP_CIPHER_CTX_key_length'; {Do not localize} - fn_EVP_CIPHER_CTX_iv_length = 'EVP_CIPHER_CTX_iv_length'; {Do not localize} - fn_EVP_CIPHER_CTX_get_app_data = 'EVP_CIPHER_CTX_get_app_data'; {Do not localize} - fn_EVP_CIPHER_CTX_set_app_data = 'EVP_CIPHER_CTX_set_app_data'; {Do not localize} - fn_EVP_CIPHER_CTX_flags = 'EVP_CIPHER_CTX_flags'; {Do not localize} - fn_EVP_Cipher = 'EVP_Cipher'; {Do not localize} - fn_EVP_MD_CTX_init = 'EVP_MD_CTX_init'; {Do not localize} - fn_EVP_MD_CTX_cleanup = 'EVP_MD_CTX_cleanup'; {Do not localize} - fn_EVP_MD_CTX_create = 'EVP_MD_CTX_create'; {Do not localize} - fn_EVP_MD_CTX_destroy = 'EVP_MD_CTX_destroy'; {Do not localize} - fn_EVP_MD_CTX_copy_ex = 'EVP_MD_CTX_copy_ex'; {Do not localize} - fn_EVP_MD_CTX_set_flags = 'EVP_MD_CTX_set_flags'; {Do not localize} - fn_EVP_MD_CTX_clear_flags = 'EVP_MD_CTX_clear_flags'; {Do not localize} - fn_EVP_MD_CTX_test_flags = 'EVP_MD_CTX_test_flags'; {Do not localize} - fn_EVP_DigestInit_ex = 'EVP_DigestInit_ex'; {Do not localize} - fn_EVP_DigestUpdate = 'EVP_DigestUpdate'; {Do not localize} - fn_EVP_DigestFinal_ex = 'EVP_DigestFinal_ex'; {Do not localize} - fn_EVP_Digest = 'EVP_Digest'; {Do not localize} - fn_EVP_MD_CTX_copy = 'EVP_MD_CTX_copy'; {Do not localize} - fn_EVP_DigestInit = 'EVP_DigestInit'; {Do not localize} - fn_EVP_DigestFinal = 'EVP_DigestFinal'; {Do not localize} - fn_EVP_read_pw_string = 'EVP_read_pw_string'; {Do not localize} - fn_EVP_set_pw_prompt = 'EVP_set_pw_prompt'; {Do not localize} - fn_EVP_get_pw_prompt = 'EVP_get_pw_prompt'; {Do not localize} - fn_EVP_BytesToKey = 'EVP_BytesToKey'; {Do not localize} - fn_EVP_CIPHER_CTX_set_flags = 'EVP_CIPHER_CTX_set_flags'; {Do not localize} - fn_EVP_CIPHER_CTX_clear_flags = 'EVP_CIPHER_CTX_clear_flags'; {Do not localize} - fn_EVP_CIPHER_CTX_test_flags = 'EVP_CIPHER_CTX_test_flags'; {Do not localize} - fn_EVP_EncryptInit = 'EVP_EncryptInit'; {Do not localize} - fn_EVP_EncryptInit_ex = 'EVP_EncryptInit_ex'; {Do not localize} - fn_EVP_EncryptUpdate = 'EVP_EncryptUpdate'; {Do not localize} - fn_EVP_EncryptFinal = 'EVP_EncryptFinal'; {Do not localize} - fn_EVP_EncryptFinal_ex = 'EVP_EncryptFinal_ex'; {Do not localize} - fn_EVP_DecryptInit = 'EVP_DecryptInit'; {Do not localize} - fn_EVP_DecryptInit_ex = 'EVP_DecryptInit_ex'; {Do not localize} - fn_EVP_DecryptUpdate = 'EVP_DecryptUpdate'; {Do not localize} - fn_EVP_DecryptFinal = 'EVP_DecryptFinal'; {Do not localize} - fn_EVP_DecryptFinal_ex = 'EVP_DecryptFinal_ex'; {Do not localize} - fn_EVP_CipherInit = 'EVP_CipherInit'; {Do not localize} - fn_EVP_CipherInit_ex = 'EVP_CipherInit_ex'; {Do not localize} - fn_EVP_CipherUpdate = 'EVP_CipherUpdate'; {Do not localize} - fn_EVP_CipherFinal = 'EVP_CipherFinal'; {Do not localize} - fn_EVP_CipherFinal_ex = 'EVP_CipherFinal_ex'; {Do not localize} - - fn_EVP_DigestSignInit = 'EVP_DigestSignInit'; {Do not localize} - fn_EVP_DigestSignFinal = 'EVP_DigestSignFinal'; {Do not localize} - fn_EVP_DigestVerifyInit = 'EVP_DigestVerifyInit'; {Do not localize} - fn_EVP_DigestVerifyFinal = 'EVP_DigestVerifyFinal'; {Do not localize} - - fn_EVP_SignFinal = 'EVP_SignFinal'; {Do not localize} - fn_EVP_VerifyFinal = 'EVP_VerifyFinal'; {Do not localize} - fn_EVP_OpenInit = 'EVP_OpenInit'; {Do not localize} - fn_EVP_OpenFinal = 'EVP_OpenFinal'; {Do not localize} - fn_EVP_SealInit = 'EVP_SealInit'; {Do not localize} - fn_EVP_SealFinal = 'EVP_SealFinal'; {Do not localize} - fn_EVP_EncodeInit = 'EVP_EncodeInit'; {Do not localize} - fn_EVP_EncodeUpdate = 'EVP_EncodeUpdate'; {Do not localize} - fn_EVP_EncodeFinal = 'EVP_EncodeFinal'; {Do not localize} - fn_EVP_EncodeBlock = 'EVP_EncodeBlock'; {Do not localize} - fn_EVP_DecodeInit = 'EVP_DecodeInit'; {Do not localize} - fn_EVP_DecodeUpdate = 'EVP_DecodeUpdate'; {Do not localize} - fn_EVP_DecodeFinal = 'EVP_DecodeFinal'; {Do not localize} - fn_EVP_DecodeBlock = 'EVP_DecodeBlock'; {Do not localize} - fn_EVP_CIPHER_CTX_init = 'EVP_CIPHER_CTX_init'; {Do not localize} - fn_EVP_CIPHER_CTX_cleanup = 'EVP_CIPHER_CTX_cleanup'; {Do not localize} - fn_EVP_CIPHER_CTX_new = 'EVP_CIPHER_CTX_new'; {Do not localize} - fn_EVP_CIPHER_CTX_set_key_length = 'EVP_CIPHER_CTX_set_key_length'; {Do not localize} - fn_EVP_CIPHER_CTX_ctrl = 'EVP_CIPHER_CTX_ctrl'; {Do not localize} - fn_EVP_CIPHER_CTX_rand_key = 'EVP_CIPHER_CTX_rand_key'; {Do not localize} - fn_EVP_CIPHER_CTX_copy = 'EVP_CIPHER_CTX_copy'; {Do not localize} - fn_EVP_CIPHER_CTX_free = 'EVP_CIPHER_CTX_free'; {Do not localize} - fn_EVP_CIPHER_CTX_set_padding = 'EVP_CIPHER_CTX_set_padding'; {Do not localize} - {$IFNDEF OPENSSL_NO_BIO} - fn_BIO_f_md = 'BIO_f_md'; {Do not localize} - fn_BIO_f_base64 = 'BIO_f_base64'; {Do not localize} - fn_BIO_f_cipher = 'BIO_f_cipher'; {Do not localize} - fn_BIO_f_reliable = 'BIO_f_reliable'; {Do not localize} - fn_BIO_set_cipher = 'BIO_set_cipher'; {Do not localize} - {$ENDIF} - fn_EVP_md_null = 'EVP_md_null'; {Do not localize} - {$IFNDEF OPENSSL_NO_MD2} - fn_EVP_md2 = 'EVP_md2'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD4} - fn_EVP_md4 = 'EVP_md4'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD5} - fn_EVP_md5 = 'EVP_md5'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA} - fn_EVP_sha = 'EVP_sha'; {Do not localize} - fn_EVP_sha1 = 'EVP_sha1'; {Do not localize} - fn_EVP_dss = 'EVP_dss'; {Do not localize} - fn_EVP_dss1 = 'EVP_dss1'; {Do not localize} - fn_EVP_ecdsa = 'EVP_ecdsa'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA256} - fn_EVP_sha512 = 'EVP_sha512'; {Do not localize} - fn_EVP_sha384 = 'EVP_sha384'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA512} - fn_EVP_sha256 = 'EVP_sha256'; {Do not localize} - fn_EVP_sha224 = 'EVP_sha224'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_MDC2} - fn_EVP_mdc2 = 'EVP_mdc2'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_RIPEMD} - fn_EVP_ripemd160 = 'EVP_ripemd160'; {Do not localize} - {$ENDIF} - {$ifndef OPENSSL_NO_WHIRLPOOL} - fn_EVP_whirlpool = 'EVP_whirlpool'; {Do not localize} - {$ENDIF} - fn_EVP_enc_null = 'EVP_enc_null'; {Do not localize} - {$IFNDEF OPENSSL_NO_DES} - fn_EVP_des_ecb = 'EVP_des_ecb'; {Do not localize} - fn_EVP_des_ede = 'EVP_des_ede'; {Do not localize} - fn_EVP_des_ede3 = 'EVP_des_ede3'; {Do not localize} - fn_EVP_des_cfb = 'EVP_des_cfb'; {Do not localize} - fn_EVP_des_ede_cfb = 'EVP_des_ede_cfb'; {Do not localize} - fn_EVP_des_ede3_cfb = 'EVP_des_ede3_cfb'; {Do not localize} - fn_EVP_des_ofb = 'EVP_des_ofb'; {Do not localize} - fn_EVP_des_ede_ofb = 'EVP_des_ede_ofb'; {Do not localize} - fn_EVP_des_ede3_ofb = 'EVP_des_ede3_ofb'; {Do not localize} - fn_EVP_des_cbc = 'EVP_des_cbc'; {Do not localize} - fn_EVP_des_ede_cbc = 'EVP_des_ede_cbc'; {Do not localize} - fn_EVP_des_ede3_cbc = 'EVP_des_ede3_cbc'; {Do not localize} - fn_EVP_desx_cbc = 'EVP_desx_cbc'; {Do not localize} - fn_EVP_des_ede3_cfb8 = 'EVP_des_ede3_cfb8'; {Do not localize} - fn_EVP_des_ede_ecb = 'EVP_des_ede_ecb'; {Do not localize} - fn_EVP_des_ede3_ecb = 'EVP_des_ede3_ecb'; - fn_EVP_des_cfb64 = 'EVP_des_cfb64'; - - fn_EVP_des_cfb1 = 'EVP_des_cfb1'; - fn_EVP_des_cfb8 = 'EVP_des_cfb8'; - fn_EVP_des_ede_cfb64 = 'EVP_des_ede_cfb64'; -//#if 0 - fn_EVP_des_ede_cfb1 = 'EVP_des_ede_cfb1'; - fn_EVP_des_ede_cfb8 = 'EVP_des_ede_cfb8'; - //#endif - fn_EVP_des_ede3_cfb64 = 'EVP_des_ede3_cfb64'; - fn_EVP_des_ede3_cfb1 = 'EVP_des_ede3_cfb1'; - {$ENDIF} - {$IFNDEF OPENSSL_NO_RC4} - fn_EVP_rc4 = 'EVP_rc4'; {Do not localize} - fn_EVP_rc4_40 = 'EVP_rc4_40'; {Do not localize} - {$ifndef OPENSSL_NO_MD5} - fn_EVP_rc4_hmac_md5 = 'EVP_rc4_hmac_md5'; {Do not localize} - {$endif} - {$ENDIF} - {$IFNDEF OPENSSL_NO_IDEA} - fn_EVP_idea_ecb = 'EVP_idea_ecb'; {Do not localize} - fn_EVP_idea_cfb64 = 'EVP_idea_cfb64'; {Do not localize} - fn_EVP_idea_cfb = 'EVP_idea_cfb'; {Do not localize} - fn_EVP_idea_ofb = 'EVP_idea_ofb'; {Do not localize} - fn_EVP_idea_cbc = 'EVP_idea_cbc'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_RC2} - fn_EVP_rc2_ecb = 'EVP_rc2_ecb'; {Do not localize} - fn_EVP_rc2_cbc = 'EVP_rc2_cbc'; {Do not localize} - fn_EVP_rc2_40_cbc = 'EVP_rc2_40_cbc'; {Do not localize} - fn_EVP_rc2_64_cbc = 'EVP_rc2_64_cbc'; {Do not localize} - fn_EVP_rc2_cfb64 = 'EVP_rc2_cfb64'; {Do not localize} - fn_EVP_rc2_cfb = 'EVP_rc2_cfb'; {Do not localize} - fn_EVP_rc2_ofb = 'EVP_rc2_ofb'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_BF} - fn_EVP_bf_ecb = 'EVP_bf_ecb'; {Do not localize} - fn_EVP_bf_cbc = 'EVP_bf_cbc'; {Do not localize} - fn_EVP_bf_cfb = 'EVP_bf_cfb'; {Do not localize} - fn_EVP_bf_cfb64 = 'EVP_bf_cfb64'; {Do not localize} - fn_EVP_bf_ofb = 'EVP_bf_ofb'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_CAST} - fn_EVP_cast5_ecb = 'EVP_cast5_ecb'; {Do not localize} - fn_EVP_cast5_cbc = 'EVP_cast5_cbc'; {Do not localize} - fn_EVP_cast5_cfb = 'EVP_cast5_cfb'; {Do not localize} - fn_EVP_cast5_cfb64 = 'EVP_cast5_cfb64'; {Do not localize} - fn_EVP_cast5_ofb = 'EVP_cast5_ofb'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_RC5 } - fn_EVP_rc5_32_12_16_cbc = 'EVP_rc5_32_12_16_cbc'; {Do not localize} - fn_EVP_rc5_32_12_16_ecb = 'EVP_rc5_32_12_16_ecb'; {Do not localize} - fn_EVP_rc5_32_12_16_cfb = 'EVP_rc5_32_12_16_cfb'; {Do not localize} - fn_EVP_rc5_32_12_16_cfb64 = 'EVP_rc5_32_12_16_cfb64'; {Do not localize} - fn_EVP_rc5_32_12_16_ofb = 'EVP_rc5_32_12_16_ofb'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_AES} - fn_EVP_aes_128_ecb = 'EVP_aes_128_ecb'; {do not localize} - fn_EVP_aes_128_cbc = 'EVP_aes_128_cbc'; {do not localize} - fn_EVP_aes_128_cfb1 = 'EVP_aes_128_cfb1'; {do not localize} - fn_EVP_aes_128_cfb8 = 'EVP_aes_128_cfb8';{do not localize} - fn_EVP_aes_128_cfb128 = 'EVP_aes_128_cfb128'; {do not localize} - fn_EVP_aes_128_ofb = 'EVP_aes_128_ofb'; {do not localize} - fn_EVP_aes_128_ctr = 'EVP_aes_128_ctr'; {Do not localize} - fn_EVP_aes_128_gcm = 'EVP_aes_128_gcm'; {Do not localize} - fn_EVP_aes_128_ccm = 'EVP_aes_128_ccm'; {Do not localize} - fn_EVP_aes_128_xts = 'EVP_aes_128_xts'; {Do not localize} - fn_EVP_aes_192_ecb = 'EVP_aes_192_ecb'; {Do not localize} - fn_EVP_aes_192_cbc = 'EVP_aes_192_cbc'; {Do not localize} - fn_EVP_aes_192_cfb1 = 'EVP_aes_192_cfb1'; {Do not localize} - fn_EVP_aes_192_cfb8 = 'EVP_aes_192_cfb8'; {Do not localize} - fn_EVP_aes_192_cfb128 = 'EVP_aes_192_cfb128'; {Do not localize} - fn_EVP_aes_192_ctr = 'EVP_aes_192_ctr'; {Do not localize} - fn_EVP_aes_192_gcm = 'EVP_aes_192_gcm'; {Do not localize} - fn_EVP_aes_192_ccm = 'EVP_aes_192_ccm'; {Do not localize} - fn_EVP_aes_192_ofb = 'EVP_aes_192_ofb'; {Do not localize} - fn_EVP_aes_256_ecb = 'EVP_aes_256_ecb'; {Do not localize} - fn_EVP_aes_256_cbc = 'EVP_aes_256_cbc'; {Do not localize} - fn_EVP_aes_256_cfb1 = 'EVP_aes_256_cfb1'; {Do not localize} - fn_EVP_aes_256_cfb8 = 'EVP_aes_256_cfb8'; {Do not localize} - fn_EVP_aes_256_cfb128 = 'EVP_aes_256_cfb128'; {Do not localize} - fn_EVP_aes_256_ofb = 'EVP_aes_256_ofb'; {Do not localize} - fn_EVP_aes_256_ctr = 'EVP_aes_256_ctr'; {Do not localize} - fn_EVP_aes_256_gcm = 'EVP_aes_256_gcm'; {Do not localize} - fn_EVP_aes_256_ccm = 'EVP_aes_256_ccm'; {Do not localize} - fn_EVP_aes_256_xts = 'EVP_aes_256_xts'; {Do not localize} - {$ifndef OPENSSL_NO_SHA} - {$ifndef OPENSSL_NO_SHA1} - fn_EVP_aes_128_cbc_hmac_sha1 = 'EVP_aes_128_cbc_hmac_sha1'; {Do not localize} - fn_EVP_aes_256_cbc_hmac_sha1 = 'EVP_aes_256_cbc_hmac_sha1'; {do not localize} - {$endif} - {$endif} - {$endif} - {$IFNDEF OPENSSL_NO_CAMELLIA} - fn_EVP_camellia_128_ecb = 'EVP_camellia_128_ecb'; {Do not localize} - fn_EVP_camellia_128_cbc = 'EVP_camellia_128_cbc'; {Do not localize} - fn_EVP_camellia_128_cfb1 = 'EVP_camellia_128_cfb1'; {Do not localize} - fn_EVP_camellia_128_cfb8 = 'EVP_camellia_128_cfb8'; {Do not localize} - fn_EVP_camellia_128_cfb128 = 'EVP_camellia_128_cfb128'; {Do not localize} - fn_EVP_camellia_128_ofb = 'EVP_camellia_128_ofb'; {Do not localize} - fn_EVP_camellia_192_ecb = 'EVP_camellia_192_ecb'; {Do not localize} - fn_EVP_camellia_192_cbc = 'EVP_camellia_192_cbc'; {Do not localize} - fn_EVP_camellia_192_cfb1 = 'EVP_camellia_192_cfb1'; {Do not localize} - fn_EVP_camellia_192_cfb8 = 'EVP_camellia_192_cfb8'; {Do not localize} - fn_EVP_camellia_192_cfb128 = 'EVP_camellia_192_cfb128'; {Do not localize} - fn_EVP_camellia_192_ofb = 'EVP_camellia_192_ofb'; {Do not localize} - fn_EVP_camellia_256_ecb = 'EVP_camellia_256_ecb'; {Do not localize} - fn_EVP_camellia_256_cbc = 'EVP_camellia_256_cbc'; {Do not localize} - fn_EVP_camellia_256_cfb1 = 'EVP_camellia_256_cfb1'; {Do not localize} - fn_EVP_camellia_256_cfb8 = 'EVP_camellia_256_cfb8'; {Do not localize} - fn_EVP_camellia_256_cfb128 = 'EVP_camellia_256_cfb128'; {Do not localize} - fn_EVP_camellia_256_ofb = 'EVP_camellia_256_ofb'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_SEED} - fn_EVP_seed_ecb = 'EVP_seed_ecb'; {Do not localize} - fn_EVP_seed_cbc = 'EVP_seed_cbc'; {Do not localize} - fn_EVP_seed_cfb128 = 'EVP_seed_cfb128'; {Do not localize} - fn_EVP_seed_ofb = 'EVP_seed_ofb'; {Do not localize} - {$ENDIF} - fn_OPENSSL_add_all_algorithms_noconf = 'OPENSSL_add_all_algorithms_noconf'; {Do not localize} - { fn_OPENSSL_add_all_algorithms_conf = 'OPENSSL_add_all_algorithms_conf'; }{Do not localize} - fn_OpenSSL_add_all_algorithms = 'OpenSSL_add_all_algorithms'; - fn_OpenSSL_add_all_ciphers = 'OpenSSL_add_all_ciphers'; {Do not localize} - fn_OpenSSL_add_all_digests = 'OpenSSL_add_all_digests'; {Do not localize} - fn_EVP_add_cipher = 'EVP_add_cipher'; {Do not localize} - fn_EVP_add_digest = 'EVP_add_digest'; {Do not localize} - fn_EVP_CIPHER_do_all = 'EVP_CIPHER_do_all'; {Do not localize} - fn_EVP_CIPHER_do_all_sorted = 'EVP_CIPHER_do_all_sorted'; {do not localize} - fn_EVP_MD_do_all = 'EVP_MD_do_all'; {Do not localize} - fn_EVP_MD_do_all_sorted = 'EVP_MD_do_all_sorted'; {Do not localize} - fn_EVP_get_cipherbyname = 'EVP_get_cipherbyname'; {Do not localize} - fn_EVP_get_digestbyname = 'EVP_get_digestbyname'; {Do not localize} - fn_EVP_PKEY_decrypt_old = 'EVP_PKEY_decrypt_old'; {Do not localize} - fn_EVP_PKEY_encrypt_old = 'EVP_PKEY_encrypt_old'; {Do not localize} - - fn_EVP_cleanup = 'EVP_cleanup'; {Do not localize} - fn_EVP_PKEY_decrypt = 'EVP_PKEY_decrypt'; {Do not localize} - fn_EVP_PKEY_encrypt = 'EVP_PKEY_encrypt'; {Do not localize} - fn_EVP_PKEY_type = 'EVP_PKEY_type'; {Do not localize} - fn_EVP_PKEY_id = 'EVP_PKEY_id'; {Do not localize} - fn_EVP_PKEY_bits = 'EVP_PKEY_bits'; {Do not localize} - fn_EVP_PKEY_base_id = 'EVP_PKEY_base_id'; {Do not localize} - fn_EVP_PKEY_set_type = 'EVP_PKEY_set_type'; {Do not localize} - fn_EVP_PKEY_set_type_str = 'EVP_PKEY_set_type_str'; {Do not localize} - fn_EVP_PKEY_size = 'EVP_PKEY_size'; {Do not localize} - fn_EVP_PKEY_assign = 'EVP_PKEY_assign'; {Do not localize} - fn_EVP_PKEY_get0 = 'EVP_PKEY_get0'; {Do not localize} - {$IFNDEF OPENSSL_NO_RSA} - fn_EVP_PKEY_set1_RSA = 'EVP_PKEY_set1_RSA'; {Do not localize} - fn_EVP_PKEY_get1_RSA = 'EVP_PKEY_get1_RSA'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_DSA} - fn_EVP_PKEY_set1_DSA = 'EVP_PKEY_set1_DSA'; {Do not localize} - fn_EVP_PKEY_get1_DSA = 'EVP_PKEY_get1_DSA'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_DH} - fn_EVP_PKEY_set1_DH = 'EVP_PKEY_set1_DH'; {Do not localize} - fn_EVP_PKEY_get1_DH = 'EVP_PKEY_get1_DH'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_EC} - fn_EVP_PKEY_set1_EC_KEY = 'EVP_PKEY_set1_EC_KEY'; {Do not localize} - fn_EVP_PKEY_get1_EC_KEY = 'EVP_PKEY_get1_EC_KEY'; {Do not localize} - {$ENDIF} - fn_EVP_PKEY_new = 'EVP_PKEY_new'; {Do not localize} - fn_EVP_PKEY_free = 'EVP_PKEY_free'; {Do not localize} - fn_d2i_PublicKey = 'd2i_PublicKey'; {Do not localize} - fn_i2d_PublicKey = 'i2d_PublicKey'; {Do not localize} - fn_d2i_PrivateKey = 'd2i_PrivateKey'; {Do not localize} - fn_d2i_AutoPrivateKey = 'd2i_AutoPrivateKey'; {Do not localize} - fn_i2d_PrivateKey = 'i2d_PrivateKey'; {Do not localize} - fn_EVP_PKEY_copy_parameters = 'EVP_PKEY_copy_parameters'; {Do not localize} - fn_EVP_PKEY_missing_parameters = 'EVP_PKEY_missing_parameters'; {Do not localize} - fn_EVP_PKEY_save_parameters = 'EVP_PKEY_save_parameters'; {Do not localize} - fn_EVP_PKEY_cmp_parameters = 'EVP_PKEY_cmp_parameters'; {Do not localize} - fn_EVP_PKEY_cmp = 'EVP_PKEY_cmp'; {Do not localize} - fn_EVP_PKEY_print_public = 'EVP_PKEY_print_public'; {Do not localize} - fn_EVP_PKEY_print_private = 'EVP_PKEY_print_private'; {Do not localize} - fn_EVP_PKEY_print_params = 'EVP_PKEY_print_params'; {Do not localize} - fn_EVP_PKEY_get_default_digest_nid = 'EVP_PKEY_get_default_digest_nid'; {Do not localize} - fn_EVP_CIPHER_type = 'EVP_CIPHER_type'; {Do not localize} - fn_EVP_CIPHER_param_to_asn1 = 'EVP_CIPHER_param_to_asn1'; {Do not localize} - fn_EVP_CIPHER_asn1_to_param = 'EVP_CIPHER_asn1_to_param'; {Do not localize} - fn_EVP_CIPHER_set_asn1_iv = 'EVP_CIPHER_set_asn1_iv'; {Do not localize} - fn_EVP_CIPHER_get_asn1_iv = 'EVP_CIPHER_get_asn1_iv'; {Do not localize} - fn_PKCS5_PBE_keyivgen = 'PKCS5_PBE_keyivgen'; {Do not localize} - fn_PKCS5_PBKDF2_HMAC = 'PKCS5_PBKDF2_HMAC'; {Do not lozalize} - fn_PKCS5_PBKDF2_HMAC_SHA1 = 'PKCS5_PBKDF2_HMAC_SHA1'; {Do not localize} - fn_PKCS5_v2_PBE_keyivgen = 'PKCS5_v2_PBE_keyivgen'; {Do not localize} - fn_PKCS5_PBE_add = 'PKCS5_PBE_add'; {Do not localize} - fn_EVP_PBE_CipherInit = 'EVP_PBE_CipherInit'; {Do not localize} - fn_EVP_PBE_alg_add = 'EVP_PBE_alg_add'; {Do not localize} - fn_EVP_PBE_alg_add_type = 'EVP_PBE_alg_add_type'; {Do not localize} - fn_EVP_PBE_find = 'EVP_PBE_find'; {Do not localize} - fn_EVP_PBE_cleanup = 'EVP_PBE_cleanup'; {Do not localize} - fn_EVP_PKEY_asn1_get_count = 'EVP_PKEY_asn1_get_count'; - fn_EVP_PKEY_asn1_get0 = 'EVP_PKEY_asn1_get0'; - fn_EVP_PKEY_asn1_find = 'EVP_PKEY_asn1_find'; - fn_EVP_PKEY_asn1_find_str = 'EVP_PKEY_asn1_find_str'; - fn_EVP_PKEY_asn1_add0 = 'EVP_PKEY_asn1_add0'; - fn_EVP_PKEY_asn1_add_alias = 'EVP_PKEY_asn1_add_alias'; - fn_EVP_PKEY_asn1_get0_info = 'EVP_PKEY_asn1_get0_info'; - fn_EVP_PKEY_get0_asn1 = 'EVP_PKEY_get0_asn1'; - fn_EVP_PKEY_asn1_new = 'EVP_PKEY_asn1_new'; - fn_EVP_PKEY_asn1_copy = 'EVP_PKEY_asn1_copy'; - fn_EVP_PKEY_asn1_free = 'EVP_PKEY_asn1_free'; - fn_EVP_PKEY_asn1_set_public = 'EVP_PKEY_asn1_set_public'; - fn_EVP_PKEY_asn1_set_private = 'EVP_PKEY_asn1_set_private'; - fn_EVP_PKEY_asn1_set_param = 'EVP_PKEY_asn1_set_param'; - fn_EVP_PKEY_asn1_set_free = 'EVP_PKEY_asn1_set_free'; - fn_EVP_PKEY_asn1_set_ctrl = 'EVP_PKEY_asn1_set_ctrl'; - fn_EVP_PKEY_meth_find = 'EVP_PKEY_meth_find'; - fn_EVP_PKEY_meth_new = 'EVP_PKEY_meth_new'; - fn_EVP_PKEY_meth_get0_info = 'EVP_PKEY_meth_get0_info'; - fn_EVP_PKEY_meth_copy = 'EVP_PKEY_meth_copy'; - fn_EVP_PKEY_meth_free = 'EVP_PKEY_meth_free'; - fn_EVP_PKEY_meth_add0 = 'EVP_PKEY_meth_add0'; - fn_EVP_PKEY_CTX_new = 'EVP_PKEY_CTX_new'; - fn_EVP_PKEY_CTX_new_id = 'EVP_PKEY_CTX_new_id'; - fn_EVP_PKEY_CTX_dup = 'EVP_PKEY_CTX_dup'; - fn_EVP_PKEY_CTX_free = 'EVP_PKEY_CTX_free'; - fn_EVP_PKEY_CTX_ctrl = 'EVP_PKEY_CTX_ctrl'; - fn_EVP_PKEY_CTX_ctrl_str = 'EVP_PKEY_CTX_ctrl_str'; - fn_EVP_PKEY_CTX_get_operation = 'EVP_PKEY_CTX_get_operation'; - fn_EVP_PKEY_CTX_set0_keygen_info = 'EVP_PKEY_CTX_set0_keygen_info'; - fn_EVP_PKEY_new_mac_key = 'EVP_PKEY_new_mac_key'; - fn_EVP_PKEY_CTX_set_data = 'EVP_PKEY_CTX_set_data'; - fn_EVP_PKEY_CTX_get_data = 'EVP_PKEY_CTX_get_data'; - fn_EVP_PKEY_CTX_get0_pkey = 'EVP_PKEY_CTX_get0_pkey'; - fn_EVP_PKEY_CTX_get0_peerkey = 'EVP_PKEY_CTX_get0_peerkey'; - fn_EVP_PKEY_CTX_set_app_data = 'EVP_PKEY_CTX_set_app_data'; - fn_EVP_PKEY_CTX_get_app_data = 'EVP_PKEY_CTX_get_app_data'; - fn_EVP_PKEY_sign_init = 'EVP_PKEY_sign_init'; - fn_EVP_PKEY_sign = 'EVP_PKEY_sign'; - fn_EVP_PKEY_verify_init = 'EVP_PKEY_verify_init'; - fn_EVP_PKEY_verify = 'EVP_PKEY_verify'; - fn_EVP_PKEY_verify_recover_init = 'EVP_PKEY_verify_recover_init'; - fn_EVP_PKEY_verify_recover = 'EVP_PKEY_verify_recover'; - fn_EVP_PKEY_encrypt_init = 'EVP_PKEY_encrypt_init'; - fn_EVP_PKEY_decrypt_init = 'EVP_PKEY_decrypt_init'; - fn_EVP_PKEY_derive_init = 'EVP_PKEY_derive_init'; - fn_EVP_PKEY_derive_set_peer = 'EVP_PKEY_derive_set_peer'; - fn_EVP_PKEY_derive = 'EVP_PKEY_derive'; - fn_EVP_PKEY_paramgen_init = 'EVP_PKEY_paramgen_init'; - fn_EVP_PKEY_paramgen = 'EVP_PKEY_paramgen'; - fn_EVP_PKEY_keygen_init = 'EVP_PKEY_keygen_init'; - fn_EVP_PKEY_keygen = 'EVP_PKEY_keygen'; - fn_EVP_PKEY_CTX_set_cb = 'EVP_PKEY_CTX_set_cb'; - fn_EVP_PKEY_CTX_get_cb = 'EVP_PKEY_CTX_get_cb'; - fn_EVP_PKEY_CTX_get_keygen_info = 'EVP_PKEY_CTX_get_keygen_info'; - fn_EVP_PKEY_meth_set_init = 'EVP_PKEY_meth_set_init'; - fn_EVP_PKEY_meth_set_copy = 'EVP_PKEY_meth_set_copy'; - fn_EVP_PKEY_meth_set_cleanup = 'EVP_PKEY_meth_set_cleanup'; - fn_EVP_PKEY_meth_set_paramgen = 'EVP_PKEY_meth_set_paramgen'; - fn_EVP_PKEY_meth_set_keygen = 'EVP_PKEY_meth_set_keygen'; - fn_EVP_PKEY_meth_set_sign = 'EVP_PKEY_meth_set_sign'; - fn_EVP_PKEY_meth_set_verify = 'EVP_PKEY_meth_set_verify'; - fn_EVP_PKEY_meth_set_verify_recover = 'EVP_PKEY_meth_set_verify_recover'; - fn_EVP_PKEY_meth_set_signctx = 'EVP_PKEY_meth_set_signctx'; - fn_EVP_PKEY_meth_set_verifyctx = 'EVP_PKEY_meth_set_verifyctx'; - fn_EVP_PKEY_meth_set_encrypt = 'EVP_PKEY_meth_set_encrypt'; - fn_EVP_PKEY_meth_set_decrypt = 'EVP_PKEY_meth_set_decrypt'; - fn_EVP_PKEY_meth_set_derive = 'EVP_PKEY_meth_set_derive'; - fn_EVP_PKEY_meth_set_ctrl = 'EVP_PKEY_meth_set_ctrl'; - - {$IFDEF OPENSSL_FIPS} - {$IFNDEF OPENSSL_NO_ENGINE} - fn_EVP_MD_set_engine_callbacks = 'EVP_MD_set_engine_callbacks'; {Do not localize} - fn_int_EVP_MD_init_engine_callbacks = 'int_EVP_MD_init_engine_callbacks'; {Do not localize} - fn_int_EVP_CIPHER_set_engine_callbacks = 'int_EVP_CIPHER_set_engine_callbacks'; {Do not localize} - fn_int_EVP_CIPHER_init_engine_callbacks = 'int_EVP_CIPHER_init_engine_callbacks'; {Do not localize} - {$ENDIF} - {$ENDIF} - fn_EVP_add_alg_module = 'EVP_add_alg_module'; {Do not localize} - {CH fn_ERR_load_EVP_strings = 'ERR_load_EVP_strings'; } {Do not localize} - {$IFDEF OPENSSL_FIPS} - fn_FIPS_mode_set = 'FIPS_mode_set'; {Do not localize} - fn_FIPS_mode = 'FIPS_mode'; {Do not localize} - {CH fn_FIPS_rand_check = 'FIPS_rand_check'; } {Do not localize} - {CH fn_FIPS_selftest_failed = 'FIPS_selftest_failed'; } {Do not localize} - fn_FIPS_selftest_check = 'FIPS_selftest_check'; {Do not localize} - {CH fn_FIPS_corrupt_sha1 = 'FIPS_corrupt_sha1'; } {Do not localize} - {CH fn_FIPS_selftest_sha1 = 'FIPS_selftest_sha1'; } {Do not localize} - {CH fb_FIPS_corrupt_aes = 'FIPS_corrupt_aes'; } {Do not localize} - {CH fn_FIPS_selftest_aes = 'FIPS_selftest_aes'; } {Do not localize} - {CH fn_FIPS_corrupt_des = 'FIPS_corrupt_des'; } {Do not localize} - {CH fn_FIPS_selftest_des = 'FIPS_selftest_des'; } {Do not localize} - {CH fn_FIPS_corrupt_rsa = 'FIPS_corrupt_rsa'; } {Do not localize} - {CH fn_FIPS_corrupt_rsa_keygen = 'FIPS_corrupt_rsa_keygen'; } {Do not localize} - {CH fn_FIPS_selftest_rsa = 'FIPS_selftest_rsa'; } {Do not localize} - {CH fn_FIPS_corrupt_dsa = 'FIPS_corrupt_dsa'; } {Do not localize} - {CH fn_FIPS_corrupt_dsa_keygen = 'FIPS_corrupt_dsa_keygen'; } {Do not localize} - {CH fn_FIPS_selftest_dsa = 'FIPS_selftest_dsa'; } {Do not localize} - {CH fn_FIPS_corrupt_rng = 'FIPS_corrupt_rng'; } {Do not localize} - {CH fn_FIPS_rng_stick = 'FIPS_rng_stick'; } {Do not localize} - {CH fn_FIPS_selftest_rng = 'FIPS_selftest_rng'; } {Do not localize} - {CH fn_FIPS_selftest_hmac = 'FIPS_selftest_hmac'; } {Do not localize} - {CH fn_fips_pkey_signature_test = 'fips_pkey_signature_test'; } {Do not localize} - {CH fn_fips_cipher_test = 'fips_cipher_test'; } {Do not localize} - //fips_rand.h - {CH fn_FIPS_rand_set_key = 'FIPS_rand_set_key'; } {Do not localize} - {CH fn_FIPS_rand_seed = 'FIPS_rand_seed; } {Do not localize} - {CH fn_FIPS_rand_bytes = 'FIPS_rand_bytes'; } {Do not localize} - {CH fn_FIPS_rand_test_mode = 'FIPS_rand_test_mode'; } {Do not localize} - {CH fn_FIPS_rand_reset = 'FIPS_rand_reset'; } {Do not localize} - {CH fn_FIPS_rand_set_dt = 'FIPS_rand_set_dt'; } {Do not localize} - {CH fn_FIPS_rand_status = 'FIPS_rand_status'; } {Do not localize} - {CH fn_FIPS_rand_method = 'FIPS_rand_method'; } {Do not localize} - {$ENDIF} - {CH fn_sk_X509_ALGOR_new = 'sk_X509_ALGOR_new'; } {Do not localize} - {CH fn_sk_X509_ALGOR_new_null = 'sk_X509_ALGOR_new_null'; } {Do not localize} - {CH fn_sk_X509_ALGOR_free = 'sk_X509_ALGOR_free'; } {Do not localize} - {CH fn_sk_X509_ALGOR_num = 'sk_X509_ALGOR_num'; } {Do not localize} - {CH fn_sk_X509_ALGOR_value = 'sk_X509_ALGOR_value'; } {Do not localize} - {CH fn_sk_X509_ALGOR_set = 'sk_X509_ALGOR_set'; } {Do not localize} - {CH fn_sk_X509_ALGOR_zero = 'sk_X509_ALGOR_zero'; } {Do not localize} - {CH fn_sk_X509_ALGOR_push = 'sk_X509_ALGOR_push'; } {Do not localize} - {CH fn_sk_X509_ALGOR_unshift = 'sk_X509_ALGOR_unshift'; } {Do not localize} - {CH fn_sk_X509_ALGOR_find = 'sk_X509_ALGOR_find'; } {Do not localize} - {CH fn_sk_X509_ALGOR_delete = 'sk_X509_ALGOR_delete'; } {Do not localize} - {CH fn_sk_X509_ALGOR_delete_ptr = 'sk_X509_ALGOR_delete_ptr'; } {Do not localize} - {CH fn_sk_X509_ALGOR_insert = 'sk_X509_ALGOR_insert'; } {Do not localize} - {CH fn_sk_X509_ALGOR_dup = 'sk_X509_ALGOR_dup'; } {Do not localize} - {CH fn_sk_X509_ALGOR_pop_free = 'sk_X509_ALGOR_pop_free'; } {Do not localize} - {CH fn_sk_X509_ALGOR_shift = 'sk_X509_ALGOR_shift'; } {Do not localize} - {CH fn_sk_X509_ALGOR_pop = 'sk_X509_ALGOR_pop'; } {Do not localize} - {CH fn_sk_X509_ALGOR_sort = 'sk_X509_ALGOR_sort'; } {Do not localize} - {CH fn_i2d_ASN1_SET_OF_X509_ALGOR = 'i2d_ASN1_SET_OF_X509_ALGOR'; } {Do not localize} - {CH fn_d2i_ASN1_SET_OF_X509_ALGOR = 'd2i_ASN1_SET_OF_X509_ALGOR'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_new = 'sk_X509_NAME_ENTRY_new'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_new_null = 'sk_X509_NAME_ENTRY_new_null'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_free = 'sk_X509_NAME_ENTRY_free'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_num = 'sk_X509_NAME_ENTRY_num'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_value = 'sk_X509_NAME_ENTRY_value'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_set = 'sk_X509_NAME_ENTRY_set'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_zero = 'sk_X509_NAME_ENTRY_zero'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_push = 'sk_X509_NAME_ENTRY_push'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_unshift = 'sk_X509_NAME_ENTRY_unshift'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_find = 'sk_X509_NAME_ENTRY_find'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_delete = 'sk_X509_NAME_ENTRY_delete'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_delete_ptr = 'sk_X509_NAME_ENTRY_delete_ptr'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_insert = 'sk_X509_NAME_ENTRY_insert'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_dup = 'sk_X509_NAME_ENTRY_dup'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_pop_free = 'sk_X509_NAME_ENTRY_pop_free'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_shift = 'sk_X509_NAME_ENTRY_shift'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_pop = 'sk_X509_NAME_ENTRY_pop'; } {Do not localize} - {CH fn_sk_X509_NAME_ENTRY_sort = 'sk_X509_NAME_ENTRY_sort'; } {Do not localize} - {CH fn_i2d_ASN1_SET_OF_X509_NAME_ENTRY = 'i2d_ASN1_SET_OF_X509_NAME_ENTRY'; } {Do not localize} - {CH fn_d2i_ASN1_SET_OF_X509_NAME_ENTRY = 'd2i_ASN1_SET_OF_X509_NAME_ENTRY'; } {Do not localize} - {CH fn_sk_X509_NAME_new = 'sk_X509_NAME_new'; } {Do not localize} - {CH fn_sk_X509_NAME_new_null = 'sk_X509_NAME_new_null'; } {Do not localize} - {CH fn_sk_X509_NAME_free = 'sk_X509_NAME_free'; } {Do not localize} - {CH fn_sk_X509_NAME_num = 'sk_X509_NAME_num'; } {Do not localize} - {CH fn_sk_X509_NAME_value = 'sk_X509_NAME_value'; } {Do not localize} - {CH fn_sk_X509_NAME_set = 'sk_X509_NAME_set'; } {Do not localize} - {CH fn_sk_X509_NAME_zero = 'sk_X509_NAME_zero'; } {Do not localize} - {CH fn_sk_X509_NAME_push = 'sk_X509_NAME_push'; } {Do not localize} - {CH fn_sk_X509_NAME_unshift = 'sk_X509_NAME_unshift'; } {Do not localize} - {CH fn_sk_X509_NAME_find = 'sk_X509_NAME_find'; } {Do not localize} - {CH fn_sk_X509_NAME_delete = 'sk_X509_NAME_delete'; } {Do not localize} - {CH fn_sk_X509_NAME_delete_ptr = 'sk_X509_NAME_delete_ptr'; } {Do not localize} - {CH fn_sk_X509_NAME_insert = 'sk_X509_NAME_insert'; } {Do not localize} - {CH fn_sk_X509_NAME_dup = 'sk_X509_NAME_dup'; } {Do not localize} - {CH fn_sk_X509_NAME_pop_free = 'sk_X509_NAME_pop_free'; } {Do not localize} - {CH fn_sk_X509_NAME_shift = 'sk_X509_NAME_shift'; } {Do not localize} - {CH fn_sk_X509_NAME_pop = 'sk_X509_NAME_pop'; } {Do not localize} - {CH fn_sk_X509_NAME_sort = 'sk_X509_NAME_sort'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_new = 'sk_X509_EXTENSION_new'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_new_null = 'sk_X509_EXTENSION_new_null'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_free = 'sk_X509_EXTENSION_free'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_num = 'sk_X509_EXTENSION_num'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_value = 'sk_X509_EXTENSION_value'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_set = 'sk_X509_EXTENSION_set'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_zero = 'sk_X509_EXTENSION_zero'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_push = 'sk_X509_EXTENSION_push'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_unshift = 'sk_X509_EXTENSION_unshift'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_find = 'sk_X509_EXTENSION_find'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_delete = 'sk_X509_EXTENSION_delete'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_delete_ptr = 'sk_X509_EXTENSION_delete_ptr'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_insert = 'sk_X509_EXTENSION_insert'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_dup = 'sk_X509_EXTENSION_dup'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_pop_free = 'sk_X509_EXTENSION_pop_free'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_shift = 'sk_X509_EXTENSION_shift'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_pop = 'sk_X509_EXTENSION_pop'; } {Do not localize} - {CH fn_sk_X509_EXTENSION_sort = 'sk_X509_EXTENSION_sort'; } {Do not localize} - {CH fn_i2d_ASN1_SET_OF_X509_EXTENSION = 'i2d_ASN1_SET_OF_X509_EXTENSION'; } {Do not localize} - {CH fn_d2i_ASN1_SET_OF_X509_EXTENSION = 'd2i_ASN1_SET_OF_X509_EXTENSION'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_new = 'sk_X509_ATTRIBUTE_new'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_new_null = 'sk_X509_ATTRIBUTE_new_null'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_free = 'sk_X509_ATTRIBUTE_free'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_num = 'sk_X509_ATTRIBUTE_num'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_value = 'sk_X509_ATTRIBUTE_value'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_set = 'sk_X509_ATTRIBUTE_set'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_zero = 'sk_X509_ATTRIBUTE_zero'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_push = 'sk_X509_ATTRIBUTE_push'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_unshift = 'sk_X509_ATTRIBUTE_unshift'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_find = 'sk_X509_ATTRIBUTE_find'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_delete = 'sk_X509_ATTRIBUTE_delete'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_delete_ptr = 'sk_X509_ATTRIBUTE_delete_ptr'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_insert = 'sk_X509_ATTRIBUTE_insert'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_dup = 'sk_X509_ATTRIBUTE_dup'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_pop_free = 'sk_X509_ATTRIBUTE_pop_free'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_shift = 'sk_X509_ATTRIBUTE_shift'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_pop = 'sk_X509_ATTRIBUTE_pop'; } {Do not localize} - {CH fn_sk_X509_ATTRIBUTE_sort = 'sk_X509_ATTRIBUTE_sort'; } {Do not localize} - {CH fn_i2d_ASN1_SET_OF_X509_ATTRIBUTE = 'i2d_ASN1_SET_OF_X509_ATTRIBUTE'; } {Do not localize} - {CH fn_d2i_ASN1_SET_OF_X509_ATTRIBUTE = 'd2i_ASN1_SET_OF_X509_ATTRIBUTE'; } {Do not localize} - {CH fn_sk_X509_new = 'sk_X509_new'; } {Do not localize} - {CH fn_sk_X509_new_null = 'sk_X509_new_null'; } {Do not localize} - {CH fn_sk_X509_free = 'sk_X509_free'; } {Do not localize} - {CH fn_sk_X509_num = 'sk_X509_num'; } {Do not localize} - {CH fn_sk_X509_value = 'sk_X509_value'; } {Do not localize} - {CH fn_sk_X509_set = 'sk_X509_set'; } {Do not localize} - {CH fn_sk_X509_zero = 'sk_X509_zero'; } {Do not localize} - {CH fn_sk_X509_push = 'sk_X509_push'; } {Do not localize} - {CH fn_sk_X509_unshift = 'sk_X509_unshift'; } {Do not localize} - {CH fn_sk_X509_find = 'sk_X509_find'; } {Do not localize} - {CH fn_sk_X509_delete = 'sk_X509_delete'; } {Do not localize} - {CH fn_sk_X509_delete_ptr = 'sk_X509_delete_ptr'; } {Do not localize} - {CH fn_sk_X509_insert = 'sk_X509_insert'; } {Do not localize} - {CH fn_sk_X509_dup = 'sk_X509_dup'; } {Do not localize} - {CH fn_sk_X509_pop_free = 'sk_X509_pop_free'; } {Do not localize} - {CH fn_sk_X509_shift = 'sk_X509_shift'; } {Do not localize} - {CH fn_sk_X509_pop = 'sk_X509_pop'; } {Do not localize} - {CH fn_sk_X509_sort = 'sk_X509_sort'; } {Do not localize} - {CH fn_i2d_ASN1_SET_OF_X509 = 'i2d_ASN1_SET_OF_X509'; } {Do not localize} - {CH fn_d2i_ASN1_SET_OF_X509 = 'd2i_ASN1_SET_OF_X509'; } {Do not localize} - {CH fn_sk_X509_REVOKED_new = 'sk_X509_REVOKED_new'; } {Do not localize} - {CH fn_sk_X509_REVOKED_new_null = 'sk_X509_REVOKED_new_null'; } {Do not localize} - {CH fn_sk_X509_REVOKED_free = 'sk_X509_REVOKED_free'; } {Do not localize} - {CH fn_sk_X509_REVOKED_num = 'sk_X509_REVOKED_num'; } {Do not localize} - {CH fn_sk_X509_REVOKED_value = 'sk_X509_REVOKED_value'; } {Do not localize} - {CH fn_sk_X509_REVOKED_set = 'sk_X509_REVOKED_set'; } {Do not localize} - {CH fn_sk_X509_REVOKED_zero = 'sk_X509_REVOKED_zero'; } {Do not localize} - {CH fn_sk_X509_REVOKED_push = 'sk_X509_REVOKED_push'; } {Do not localize} - {CH fn_sk_X509_REVOKED_unshift = 'sk_X509_REVOKED_unshift'; } {Do not localize} - {CH fn_sk_X509_REVOKED_find = 'sk_X509_REVOKED_find'; } {Do not localize} - {CH fn_sk_X509_REVOKED_delete = 'sk_X509_REVOKED_delete'; } {Do not localize} - {CH fn_sk_X509_REVOKED_delete_ptr = 'sk_X509_REVOKED_delete_ptr'; } {Do not localize} - {CH fn_sk_X509_REVOKED_insert = 'sk_X509_REVOKED_insert'; } {Do not localize} - {CH fn_sk_X509_REVOKED_dup = 'sk_X509_REVOKED_dup'; } {Do not localize} - {CH fn_sk_X509_REVOKED_pop_free = 'sk_X509_REVOKED_pop_free'; } {Do not localize} - {CH fn_sk_X509_REVOKED_shift = 'sk_X509_REVOKED_shift'; } {Do not localize} - {CH fn_sk_X509_REVOKED_pop = 'sk_X509_REVOKED_pop'; } {Do not localize} - {CH fn_sk_X509_REVOKED_sort = 'sk_X509_REVOKED_sort'; } {Do not localize} - {CH fn_i2d_ASN1_SET_OF_X509_REVOKED = 'i2d_ASN1_SET_OF_X509_REVOKED'; } {Do not localize} - {CH fn_d2i_ASN1_SET_OF_X509_REVOKED = 'd2i_ASN1_SET_OF_X509_REVOKED'; } {Do not localize} - {CH fn_sk_X509_CRL_new = 'sk_X509_CRL_new'; } {Do not localize} - {CH fn_sk_X509_CRL_new_null = 'sk_X509_CRL_new_null'; } {Do not localize} - {CH fn_sk_X509_CRL_free = 'sk_X509_CRL_free'; } {Do not localize} - {CH fn_sk_X509_CRL_num = 'sk_X509_CRL_num'; } {Do not localize} - {CH fn_sk_X509_CRL_value = 'sk_X509_CRL_value'; } {Do not localize} - {CH fn_sk_X509_CRL_set = 'sk_X509_CRL_set'; } {Do not localize} - {CH fn_sk_X509_CRL_zero = 'sk_X509_CRL_zero'; } {Do not localize} - {CH fn_sk_X509_CRL_push = 'sk_X509_CRL_push'; } {Do not localize} - {CH fn_sk_X509_CRL_unshift = 'sk_X509_CRL_unshift'; } {Do not localize} - {CH fn_sk_X509_CRL_find = 'sk_X509_CRL_find'; } {Do not localize} - {CH fn_sk_X509_CRL_delete = 'sk_X509_CRL_delete'; } {Do not localize} - {CH fn_sk_X509_CRL_delete_ptr = 'sk_X509_CRL_delete_ptr'; } {Do not localize} - {CH fn_sk_X509_CRL_insert = 'sk_X509_CRL_insert'; } {Do not localize} - {CH fn_sk_X509_CRL_dup = 'sk_X509_CRL_dup'; } {Do not localize} - {CH fn_sk_X509_CRL_pop_free = 'sk_X509_CRL_pop_free'; } {Do not localize} - {CH fn_sk_X509_CRL_shift = 'sk_X509_CRL_shift'; } {Do not localize} - {CH fn_sk_X509_CRL_pop = 'sk_X509_CRL_pop'; } {Do not localize} - {CH fn_sk_X509_CRL_sort = 'sk_X509_CRL_sort'; } {Do not localize} - {CH fn_i2d_ASN1_SET_OF_X509_CRL = 'i2d_ASN1_SET_OF_X509_CRL'; } {Do not localize} - {CH fn_d2i_ASN1_SET_OF_X509_CRL = 'd2i_ASN1_SET_OF_X509_CRL'; } {Do not localize} - {CH fn_sk_X509_INFO_new = 'sk_X509_INFO_new'; } {Do not localize} - {CH fn_sk_X509_INFO_new_null = 'sk_X509_INFO_new_null'; } {Do not localize} - {CH fn_sk_X509_INFO_free = 'sk_X509_INFO_free'; } {Do not localize} - {CH fn_sk_X509_INFO_num = 'sk_X509_INFO_num'; } {Do not localize} - {CH fn_sk_X509_INFO_value = 'sk_X509_INFO_value'; } {Do not localize} - {CH fn_sk_X509_INFO_set = 'sk_X509_INFO_set'; } {Do not localize} - {CH fn_sk_X509_INFO_zero = 'sk_X509_INFO_zero'; } {Do not localize} - {CH fn_sk_X509_INFO_push = 'sk_X509_INFO_push'; } {Do not localize} - {CH fn_sk_X509_INFO_unshift = 'sk_X509_INFO_unshift'; } {Do not localize} - {CH fn_sk_X509_INFO_find = 'sk_X509_INFO_find'; } {Do not localize} - {CH fn_sk_X509_INFO_delete = 'sk_X509_INFO_delete'; } {Do not localize} - {CH fn_sk_X509_INFO_delete_ptr = 'sk_X509_INFO_delete_ptr'; } {Do not localize} - {CH fn_sk_X509_INFO_insert = 'sk_X509_INFO_insert'; } {Do not localize} - {CH fn_sk_X509_INFO_dup = 'sk_X509_INFO_dup'; } {Do not localize} - {CH fn_sk_X509_INFO_pop_free = 'sk_X509_INFO_pop_free'; } {Do not localize} - {CH fn_sk_X509_INFO_shift = 'sk_X509_INFO_shift'; } {Do not localize} - {CH fn_sk_X509_INFO_pop = 'sk_X509_INFO_pop'; } {Do not localize} - {CH fn_sk_X509_INFO_sort = 'sk_X509_INFO_sort'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_new = 'sk_X509_LOOKUP_new'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_new_null = 'sk_X509_LOOKUP_new_null'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_free = 'sk_X509_LOOKUP_free'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_num = 'sk_X509_LOOKUP_num'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_value = 'sk_X509_LOOKUP_value'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_set = 'sk_X509_LOOKUP_set'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_zero = 'sk_X509_LOOKUP_zero'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_push = 'sk_X509_LOOKUP_push'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_unshift = 'sk_X509_LOOKUP_unshift'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_find = 'sk_X509_LOOKUP_find'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_delete = 'sk_X509_LOOKUP_delete'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_delete_ptr = 'sk_X509_LOOKUP_delete_ptr'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_insert = 'sk_X509_LOOKUP_insert'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_dup = 'sk_X509_LOOKUP_dup'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_pop_free = 'sk_X509_LOOKUP_pop_free'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_shift = 'sk_X509_LOOKUP_shift'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_pop = 'sk_X509_LOOKUP_pop'; } {Do not localize} - {CH fn_sk_X509_LOOKUP_sort = 'sk_X509_LOOKUP_sort'; } {Do not localize} - {CH fn_X509_OBJECT_retrieve_by_subject = 'X509_OBJECT_retrieve_by_subject'; } {Do not localize} - {CH fn_X509_OBJECT_up_ref_count = 'X509_OBJECT_up_ref_count'; } {Do not localize} - {CH fn_X509_OBJECT_free_contents = 'X509_OBJECT_free_contents'; } {Do not localize} - {CH fn_X509_STORE_new = 'X509_STORE_new'; } {Do not localize} - {CH fn_X509_STORE_free = 'X509_STORE_free'; } {Do not localize} - {CH fn_X509_STORE_CTX_init = 'X509_STORE_CTX_init'; } {Do not localize} - {CH fn_X509_STORE_CTX_cleanup = 'X509_STORE_CTX_cleanup'; } {Do not localize} - fn_X509_STORE_add_lookup = 'X509_STORE_add_lookup'; {Do not localize} - {CH fn_X509_LOOKUP_hash_dir = 'X509_LOOKUP_hash_dir'; } {Do not localize} - {CH fn_X509_LOOKUP_file = 'X509_LOOKUP_file'; } {Do not localize} - fn_X509_STORE_add_cert = 'X509_STORE_add_cert'; {Do not localize} - fn_X509_STORE_add_crl = 'X509_STORE_add_crl'; {Do not localize} - {CH fn_X509_STORE_get_by_subject = 'X509_STORE_get_by_subject'; } {Do not localize} - fn_X509_LOOKUP_ctrl = 'X509_LOOKUP_ctrl'; {Do not localize} - {CH fn_X509_load_cert_file = 'X509_load_cert_file'; } {Do not localize} - {CH fn_X509_load_crl_file = 'X509_load_crl_file'; } {Do not localize} - {CH fn_X509_LOOKUP_new = 'X509_LOOKUP_new'; } {Do not localize} - {CH fn_X509_LOOKUP_free = 'X509_LOOKUP_free'; } {Do not localize} - {CH fn_X509_LOOKUP_init = 'X509_LOOKUP_init'; } {Do not localize} - {CH fn_X509_LOOKUP_by_subject = 'X509_LOOKUP_by_subject'; } {Do not localize} - {CH fn_X509_LOOKUP_by_issuer_serial = 'X509_LOOKUP_by_issuer_serial'; } {Do not localize} - {CH fn_X509_LOOKUP_by_fingerprint = 'X509_LOOKUP_by_fingerprint'; } {Do not localize} - {CH fn_X509_LOOKUP_by_alias = 'X509_LOOKUP_by_alias'; } {Do not localize} - {CH fn_X509_LOOKUP_shutdown = 'X509_LOOKUP_shutdown'; } {Do not localize} - fn_X509_STORE_load_locations = 'X509_STORE_load_locations'; {Do not localize} - {CH fn_X509_STORE_set_default_paths = 'X509_STORE_set_default_paths'; } {Do not localize} - {CH fn_X509_STORE_CTX_get_ex_new_index = 'X509_STORE_CTX_get_ex_new_index'; } {Do not localize} - {CH fn_X509_STORE_CTX_set_ex_data = 'X509_STORE_CTX_set_ex_data'; } {Do not localize} - fn_X509_STORE_CTX_get_ex_data = 'X509_STORE_CTX_get_ex_data'; {Do not localize} - fn_X509_STORE_CTX_get_error = 'X509_STORE_CTX_get_error'; {Do not localize} - fn_X509_STORE_CTX_set_error = 'X509_STORE_CTX_set_error'; {Do not localize} - fn_X509_STORE_CTX_get_error_depth = 'X509_STORE_CTX_get_error_depth'; {Do not localize} - fn_X509_STORE_CTX_get_current_cert = 'X509_STORE_CTX_get_current_cert'; {Do not localize} - {CH fn_X509_STORE_CTX_get_chain = 'X509_STORE_CTX_get_chain'; } {Do not localize} - {CH fn_X509_STORE_CTX_set_cert = 'X509_STORE_CTX_set_cert'; } {Do not localize} - {CH fn_X509_STORE_CTX_set_chain = 'X509_STORE_CTX_set_chain'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_new = 'sk_PKCS7_SIGNER_INFO_new'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_new_null = 'sk_PKCS7_SIGNER_INFO_new_null'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_free = 'sk_PKCS7_SIGNER_INFO_free'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_num = 'sk_PKCS7_SIGNER_INFO_num'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_value = 'sk_PKCS7_SIGNER_INFO_value'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_set = 'sk_PKCS7_SIGNER_INFO_set'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_zero = 'sk_PKCS7_SIGNER_INFO_zero'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_push = 'sk_PKCS7_SIGNER_INFO_push'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_unshift = 'sk_PKCS7_SIGNER_INFO_unshift'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_find = 'sk_PKCS7_SIGNER_INFO_find'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_delete = 'sk_PKCS7_SIGNER_INFO_delete'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_delete_ptr = 'sk_PKCS7_SIGNER_INFO_delete_ptr'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_insert = 'sk_PKCS7_SIGNER_INFO_insert'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_dup = 'sk_PKCS7_SIGNER_INFO_dup'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_pop_free = 'sk_PKCS7_SIGNER_INFO_pop_free'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_shift = 'sk_PKCS7_SIGNER_INFO_shift'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_pop = 'sk_PKCS7_SIGNER_INFO_pop'; } {Do not localize} - {CH fn_sk_PKCS7_SIGNER_INFO_sort = 'sk_PKCS7_SIGNER_INFO_sort'; } {Do not localize} - {CH fn_i2d_ASN1_SET_OF_PKCS7_SIGNER_INFO = 'i2d_ASN1_SET_OF_PKCS7_SIGNER_INFO'; } {Do not localize} - {CH fn_d2i_ASN1_SET_OF_PKCS7_SIGNER_INFO = 'd2i_ASN1_SET_OF_PKCS7_SIGNER_INFO'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_new = 'sk_PKCS7_RECIP_INFO_new'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_new_null = 'sk_PKCS7_RECIP_INFO_new_null'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_free = 'sk_PKCS7_RECIP_INFO_free'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_num = 'sk_PKCS7_RECIP_INFO_num'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_value = 'sk_PKCS7_RECIP_INFO_value'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_set = 'sk_PKCS7_RECIP_INFO_set'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_zero = 'sk_PKCS7_RECIP_INFO_zero'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_push = 'sk_PKCS7_RECIP_INFO_push'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_unshift = 'sk_PKCS7_RECIP_INFO_unshift'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_find = 'sk_PKCS7_RECIP_INFO_find'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_delete = 'sk_PKCS7_RECIP_INFO_delete'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_delete_ptr = 'sk_PKCS7_RECIP_INFO_delete_ptr'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_insert = 'sk_PKCS7_RECIP_INFO_insert'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_dup = 'sk_PKCS7_RECIP_INFO_dup'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_pop_free = 'sk_PKCS7_RECIP_INFO_pop_free'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_shift = 'sk_PKCS7_RECIP_INFO_shift'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_pop = 'sk_PKCS7_RECIP_INFO_pop'; } {Do not localize} - {CH fn_sk_PKCS7_RECIP_INFO_sort = 'sk_PKCS7_RECIP_INFO_sort'; } {Do not localize} - {CH fn_i2d_ASN1_SET_OF_PKCS7_RECIP_INFO = 'i2d_ASN1_SET_OF_PKCS7_RECIP_INFO'; } {Do not localize} - {CH fn_d2i_ASN1_SET_OF_PKCS7_RECIP_INFO = 'd2i_ASN1_SET_OF_PKCS7_RECIP_INFO'; } {Do not localize} - {CH fn_PKCS7_ISSUER_AND_SERIAL_new = 'PKCS7_ISSUER_AND_SERIAL_new'; } {Do not localize} - {CH fn_PKCS7_ISSUER_AND_SERIAL_free = 'PKCS7_ISSUER_AND_SERIAL_free'; } {Do not localize} - {CH fn_i2d_PKCS7_ISSUER_AND_SERIAL = 'i2d_PKCS7_ISSUER_AND_SERIAL'; } {Do not localize} - {CH fn_d2i_PKCS7_ISSUER_AND_SERIAL = 'd2i_PKCS7_ISSUER_AND_SERIAL'; } {Do not localize} - {CH fn_PKCS7_ISSUER_AND_SERIAL_digest = 'PKCS7_ISSUER_AND_SERIAL_digest'; } {Do not localize} - {$IFNDEF OPENSSL_NO_FP_API} - {CH fn_d2i_PKCS7_fp = 'd2i_PKCS7_fp'; } {Do not localize} - {CH fn_i2d_PKCS7_fp = 'i2d_PKCS7_fp'; } {Do not localize} - {$ENDIF} - {CH fn_PKCS7_dup = 'PKCS7_dup'; } {Do not localize} - {CH fn_d2i_PKCS7_bio = 'd2i_PKCS7_bio'; } {Do not localize} - {CH fn_i2d_PKCS7_bio = 'i2d_PKCS7_bio'; } {Do not localize} - {CH fn_PKCS7_SIGNER_INFO_new = 'PKCS7_SIGNER_INFO_new'; } {Do not localize} - {CH fn_PKCS7_SIGNER_INFO_free = 'PKCS7_SIGNER_INFO_free'; } {Do not localize} - {CH fn_i2d_PKCS7_SIGNER_INFO = 'i2d_PKCS7_SIGNER_INFO'; } {Do not localize} - {CH fn_d2i_PKCS7_SIGNER_INFO = 'd2i_PKCS7_SIGNER_INFO'; } {Do not localize} - {CH fn_PKCS7_RECIP_INFO_new = 'PKCS7_RECIP_INFO_new'; } {Do not localize} - {CH fn_PKCS7_RECIP_INFO_free = 'PKCS7_RECIP_INFO_free'; } {Do not localize} - {CH fn_i2d_PKCS7_RECIP_INFO = 'i2d_PKCS7_RECIP_INFO'; } {Do not localize} - {CH fn_d2i_PKCS7_RECIP_INFO = 'd2i_PKCS7_RECIP_INFO'; } {Do not localize} - {CH fn_PKCS7_SIGNED_new = 'PKCS7_SIGNED_new'; } {Do not localize} - {CH fn_PKCS7_SIGNED_free = 'PKCS7_SIGNED_free'; } {Do not localize} - {CH fn_i2d_PKCS7_SIGNED = 'i2d_PKCS7_SIGNED'; } {Do not localize} - {CH fn_d2i_PKCS7_SIGNED = 'd2i_PKCS7_SIGNED'; } {Do not localize} - {CH fn_PKCS7_ENC_CONTENT_new = 'PKCS7_ENC_CONTENT_new'; } {Do not localize} - {CH fn_PKCS7_ENC_CONTENT_free = 'PKCS7_ENC_CONTENT_free'; } {Do not localize} - {CH fn_i2d_PKCS7_ENC_CONTENT = 'i2d_PKCS7_ENC_CONTENT'; } {Do not localize} - {CH fn_d2i_PKCS7_ENC_CONTENT = 'd2i_PKCS7_ENC_CONTENT'; } {Do not localize} - {CH fn_PKCS7_ENVELOPE_new = 'PKCS7_ENVELOPE_new'; } {Do not localize} - {CH fn_PKCS7_ENVELOPE_free = 'PKCS7_ENVELOPE_free'; } {Do not localize} - {CH fn_i2d_PKCS7_ENVELOPE = 'i2d_PKCS7_ENVELOPE'; } {Do not localize} - {CH fn_d2i_PKCS7_ENVELOPE = 'd2i_PKCS7_ENVELOPE'; } {Do not localize} - {CH fn_PKCS7_SIGN_ENVELOPE_new = 'PKCS7_SIGN_ENVELOPE_new'; } {Do not localize} - {CH fn_PKCS7_SIGN_ENVELOPE_free = 'PKCS7_SIGN_ENVELOPE_free'; } {Do not localize} - {CH fn_i2d_PKCS7_SIGN_ENVELOPE = 'i2d_PKCS7_SIGN_ENVELOPE'; } {Do not localize} - {CH fn_d2i_PKCS7_SIGN_ENVELOPE = 'd2i_PKCS7_SIGN_ENVELOPE'; } {Do not localize} - {CH fn_PKCS7_DIGEST_new = 'PKCS7_DIGEST_new'; } {Do not localize} - {CH fn_PKCS7_DIGEST_free = 'PKCS7_DIGEST_free'; } {Do not localize} - {CH fn_i2d_PKCS7_DIGEST = 'i2d_PKCS7_DIGEST'; } {Do not localize} - {CH fn_d2i_PKCS7_DIGEST = 'd2i_PKCS7_DIGEST'; } {Do not localize} - {CH fn_PKCS7_ENCRYPT_new = 'PKCS7_ENCRYPT_new'; } {Do not localize} - {CH fn_PKCS7_ENCRYPT_free = 'PKCS7_ENCRYPT_free'; } {Do not localize} - {CH fn_i2d_PKCS7_ENCRYPT = 'i2d_PKCS7_ENCRYPT'; } {Do not localize} - {CH fn_d2i_PKCS7_ENCRYPT = 'd2i_PKCS7_ENCRYPT'; } {Do not localize} - {CH fn_PKCS7_new = 'PKCS7_new'; } {Do not localize} - {CH fn_PKCS7_free = 'PKCS7_free'; } {Do not localize} - {CH fn_PKCS7_content_free = 'PKCS7_content_free'; } {Do not localize} - fn_i2d_PKCS7 = 'i2d_PKCS7'; {Do not localize} - fn_d2i_PKCS7 = 'd2i_PKCS7'; {Do not localize} - {CH fn_ERR_load_PKCS7_strings = 'ERR_load_PKCS7_strings'; } {Do not localize} - {CH fn_PKCS7_ctrl = 'PKCS7_ctrl'; } {Do not localize} - {CH fn_PKCS7_set_type = 'PKCS7_set_type'; } {Do not localize} - {CH fn_PKCS7_set_content = 'PKCS7_set_content'; } {Do not localize} - {CH fn_PKCS7_SIGNER_INFO_set = 'PKCS7_SIGNER_INFO_set'; } {Do not localize} - {CH fn_PKCS7_add_signer = 'PKCS7_add_signer'; } {Do not localize} - {CH fn_PKCS7_add_certificate = 'PKCS7_add_certificate'; } {Do not localize} - {CH fn_PKCS7_add_crl = 'PKCS7_add_crl'; } {Do not localize} - {CH fn_PKCS7_content_new = 'PKCS7_content_new'; } {Do not localize} - {CH fn_PKCS7_dataVerify = 'PKCS7_dataVerify'; } {Do not localize} - {CH fn_PKCS7_signatureVerify = 'PKCS7_signatureVerify'; } {Do not localize} - {CH fn_PKCS7_dataInit = 'PKCS7_dataInit'; } {Do not localize} - {CH fn_PKCS7_dataFinal = 'PKCS7_dataFinal'; } {Do not localize} - {CH fn_PKCS7_dataDecode = 'PKCS7_dataDecode'; } {Do not localize} - {CH fn_PKCS7_add_signature = 'PKCS7_add_signature'; } {Do not localize} - {CH fn_PKCS7_cert_from_signer_info = 'PKCS7_cert_from_signer_info'; } {Do not localize} - {CH fn_PKCS7_get_signer_info = 'PKCS7_get_signer_info'; } {Do not localize} - {CH fn_PKCS7_add_recipient = 'PKCS7_add_recipient'; } {Do not localize} - {CH fn_PKCS7_add_recipient_info = 'PKCS7_add_recipient_info'; } {Do not localize} - {CH fn_PKCS7_RECIP_INFO_set = 'PKCS7_RECIP_INFO_set'; } {Do not localize} - {CH fn_PKCS7_set_cipher = 'PKCS7_set_cipher'; } {Do not localize} - {CH fn_PKCS7_get_issuer_and_serial = 'PKCS7_get_issuer_and_serial'; } {Do not localize} - {CH fn_PKCS7_digest_from_attributes = 'PKCS7_digest_from_attributes'; } {Do not localize} - {CH fn_PKCS7_add_signed_attribute = 'PKCS7_add_signed_attribute'; } {Do not localize} - {CH fn_PKCS7_add_attribute = 'PKCS7_add_attribute'; } {Do not localize} - {CH fn_PKCS7_get_attribute = 'PKCS7_get_attribute'; } {Do not localize} - {CH fn_PKCS7_get_signed_attribute = 'PKCS7_get_signed_attribute'; } {Do not localize} - {CH fn_PKCS7_set_signed_attributes = 'PKCS7_set_signed_attributes'; } {Do not localize} - {CH fn_PKCS7_set_attributes = 'PKCS7_set_attributes'; } {Do not localize} - {CH fn_X509_verify_cert_error_string = 'X509_verify_cert_error_string'; } {Do not localize} - fn_X509_verify = 'X509_verify'; {Do not localize} - {CH fn_X509_REQ_verify = 'X509_REQ_verify'; } {Do not localize} - {CH fn_X509_CRL_verify = 'X509_CRL_verify'; } {Do not localize} - {CH fn_NETSCAPE_SPKI_verify = 'NETSCAPE_SPKI_verify'; } {Do not localize} - fn_X509_sign = 'X509_sign'; {Do not localize} - fn_X509_REQ_sign = 'X509_REQ_sign'; {Do not localize} - fn_X509V3_set_ctx = 'X509V3_set_ctx'; {Do not localize} - fn_X509V3_EXT_conf_nid = 'X509V3_EXT_conf_nid'; {Do not localize} - fn_X509_REQ_add_extensions = 'X509_REQ_add_extensions'; {Do not localize} - {CH fn_X509_CRL_sign = 'X509_CRL_sign'; } {Do not localize} - {CH fn_NETSCAPE_SPKI_sign = 'NETSCAPE_SPKI_sign'; } {Do not localize} - fn_X509_digest = 'X509_digest'; {Do not localize} - {CH fn_X509_NAME_digest = 'X509_NAME_digest'; } {Do not localize} - {CH fn_d2i_X509_fp = 'd2i_X509_fp'; } {Do not localize} - {CH fn_i2d_X509_fp = 'i2d_X509_fp'; } {Do not localize} - {CH fn_d2i_X509_CRL_fp = 'd2i_X509_CRL_fp'; } {Do not localize} - {CH fn_i2d_X509_CRL_fp = 'i2d_X509_CRL_fp'; } {Do not localize} - {CH fn_d2i_X509_REQ_fp = 'd2i_X509_REQ_fp'; } {Do not localize} - {CH fn_i2d_X509_REQ_fp = 'i2d_X509_REQ_fp'; } {Do not localize} - {$IFNDEF OPENSSL_NO_RSA} - {CH fn_d2i_RSAPrivateKey_fp = 'd2i_RSAPrivateKey_fp'; } {Do not localize} - {CH fn_i2d_RSAPrivateKey_fp = 'i2d_RSAPrivateKey_fp'; } {Do not localize} - {CH fn_d2i_RSAPublicKey_fp = 'd2i_RSAPublicKey_fp'; } {Do not localize} - {CH fn_i2d_RSAPublicKey_fp = 'i2d_RSAPublicKey_fp'; } {Do not localize} - {CH fn_d2i_RSA_PUBKEY_fp = 'd2i_RSA_PUBKEY_fp'; } {Do not localize} - {CH fn_i2d_RSA_PUBKEY_fp = 'i2d_RSA_PUBKEY_fp'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_DSA} - {CH fn_d2i_DSA_PUBKEY_fp = 'd2i_DSA_PUBKEY_fp'; } {Do not localize} - {CH fn_i2d_DSA_PUBKEY_fp = 'i2d_DSA_PUBKEY_fp'; } {Do not localize} - {CH fn_d2i_DSAPrivateKey_fp = 'd2i_DSAPrivateKey_fp'; } {Do not localize} - {CH fn_i2d_DSAPrivateKey_fp = 'i2d_DSAPrivateKey_fp'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_EC} - {CH fn_d2i_EC_PUBKEY_fp = 'd2i_EC_PUBKEY_fp'; } {Do not localize} - {CH fn_i2d_EC_PUBKEY_fp = 'i2d_EC_PUBKEY_fp'; } {Do not localize} - {CH fn_d2i_ECPrivateKey_fp = 'd2i_ECPrivateKey_fp'; } {Do not localize} - {CH fn_i2d_ECPrivateKey_fp = 'i2d_ECPrivateKey_fp'; } {Do not localize} - {$ENDIF} - {CH fn_d2i_PKCS8_fp = 'd2i_PKCS8_fp'; } {Do not localize} - {CH fn_i2d_PKCS8_fp = 'i2d_PKCS8_fp'; } {Do not localize} - {CH fn_d2i_PKCS8_PRIV_KEY_INFO_fp = 'd2i_PKCS8_PRIV_KEY_INFO_fp'; } {Do not localize} - {CH fn_i2d_PKCS8_PRIV_KEY_INFO_fp = 'i2d_PKCS8_PRIV_KEY_INFO_fp'; } {Do not localize} - {$IFNDEF OPENSSL_NO_BIO} - fn_d2i_X509_bio = 'd2i_X509_bio'; {Do not localize} - fn_i2d_X509_bio = 'i2d_X509_bio'; {Do not localize} - fn_d2i_PKCS12_bio = 'd2i_PKCS12_bio'; {Do not localize} - fn_PKCS12_parse = 'PKCS12_parse'; {Do not localize} - fn_i2d_PrivateKey_bio = 'i2d_PrivateKey_bio'; {Do not localize} - fn_d2i_X509_CRL_bio = 'd2i_X509_CRL_bio'; {Do not localize} - fn_i2d_X509_CRL_bio = 'i2d_X509_CRL_bio'; {Do not localize} - fn_d2i_X509_REQ_bio = 'd2i_X509_REQ_bio'; {Do not localize} - fn_i2d_X509_REQ_bio = 'i2d_X509_REQ_bio'; {Do not localize} - {$IFNDEF OPENSSL_NO_RSA} - fn_d2i_RSAPrivateKey_bio = 'd2i_RSAPrivateKey_bio'; {Do not localize} - fn_i2d_RSAPrivateKey_bio = 'i2d_RSAPrivateKey_bio'; {Do not localize} - fn_d2i_RSAPublicKey_bio = 'd2i_RSAPublicKey_bio'; {Do not localize} - fn_i2d_RSAPublicKey_bio = 'i2d_RSAPublicKey_bio'; {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_DSA} - {CH fn_d2i_DSA_PUBKEY_bio = 'd2i_DSA_PUBKEY_bio'; } {Do not localize} - {CH fn_i2d_DSA_PUBKEY_bio = 'i2d_DSA_PUBKEY_bio'; } {Do not localize} - {CH fn_d2i_DSAPrivateKey_bio = 'd2i_DSAPrivateKey_bio'; } {Do not localize} - {CH fn_i2d_DSAPrivateKey_bio = 'i2d_DSAPrivateKey_bio'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_EC} - {CH fn_d2i_EC_PUBKEY_bio = 'd2i_EC_PUBKEY_bio'; } {Do not localize} - {CH fn_i2d_EC_PUBKEY_bio = 'i2d_EC_PUBKEY_bio'; } {Do not localize} - {CH fn_d2i_ECPrivateKey_bio = 'd2i_ECPrivateKey_bio'; } {Do not localize} - {CH fn_i2d_ECPrivateKey_bio = 'i2d_ECPrivateKey_bio'; } {Do not localize} - {$ENDIF} - {CH fn_d2i_PKCS8_bio = 'd2i_PKCS8_bio'; } {Do not localize} - {CH fn_i2d_PKCS8_bio = 'i2d_PKCS8_bio'; } {Do not localize} - {CH fn_d2i_PKCS8_PRIV_KEY_INFO_bio = 'd2i_PKCS8_PRIV_KEY_INFO_bio'; } {Do not localize} - {CH fn_i2d_PKCS8_PRIV_KEY_INFO_bio = 'i2d_PKCS8_PRIV_KEY_INFO_bio'; } {Do not localize} - fn_d2i_PrivateKey_bio = 'd2i_PrivateKey_bio'; {Do not localize} - {CH fn_i2d_PUBKEY_bio = 'i2d_PUBKEY_bio'; } {Do not localize} - {CH fn_d2i_PUBKEY_bio = 'd2i_PUBKEY_bio'; } {Do not localize} - {$ENDIF} - {CH fn_X509_dup = 'X509_dup'; } {Do not localize} - {CH fn_X509_ATTRIBUTE_dup = 'X509_ATTRIBUTE_dup'; } {Do not localize} - {CH fn_X509_EXTENSION_dup = 'X509_EXTENSION_dup'; } {Do not localize} - {CH fn_X509_CRL_dup = 'X509_CRL_dup'; } {Do not localize} - {CH fn_X509_REQ_dup = 'X509_REQ_dup'; } {Do not localize} - {CH fn_X509_ALGOR_dup = 'X509_ALGOR_dup'; } {Do not localize} - {CH fn_X509_NAME_dup = 'X509_NAME_dup'; } {Do not localize} - {CH fn_X509_NAME_ENTRY_dup = 'X509_NAME_ENTRY_dup'; } {Do not localize} - {CH fn_RSAPublicKey_dup = 'RSAPublicKey_dup'; } {Do not localize} - {CH fn_RSAPrivateKey_dup = 'RSAPrivateKey_dup'; } {Do not localize} - {CH fn_X509_cmp_current_time = 'X509_cmp_current_time'; } {Do not localize} - fn_X509_gmtime_adj = 'X509_gmtime_adj'; {Do not localize} - {CH fn_X509_get_default_cert_area = 'X509_get_default_cert_area'; } {Do not localize} - {CH fn_X509_get_default_cert_dir = 'X509_get_default_cert_dir'; } {Do not localize} - fn_X509_get_default_cert_file = 'X509_get_default_cert_file'; {Do not localize} - {CH fn_X509_get_default_cert_dir_env = 'X509_get_default_cert_dir_env'; } {Do not localize} - fn_X509_get_default_cert_file_env = 'X509_get_default_cert_file_env'; {Do not localize} - {CH fn_X509_get_default_private_dir = 'X509_get_default_private_dir'; } {Do not localize} - fn_X509_to_X509_REQ = 'X509_to_X509_REQ'; {Do not localize} - {CH fn_X509_REQ_to_X509 = 'X509_REQ_to_X509'; } {Do not localize} - fn_X509_NAME_add_entry_by_txt = 'X509_NAME_add_entry_by_txt'; {Do not localize} - {CH fn_ERR_load_X509_strings = 'ERR_load_X509_strings'; } {Do not localize} - {CH fn_X509_ALGOR_new = 'X509_ALGOR_new'; } {Do not localize} - {CH fn_X509_ALGOR_free = 'X509_ALGOR_free'; } {Do not localize} - {CH fn_i2d_X509_ALGOR = 'i2d_X509_ALGOR'; } {Do not localize} - {CH fn_d2i_X509_ALGOR = 'd2i_X509_ALGOR'; } {Do not localize} - {CH fn_X509_VAL_new = 'X509_VAL_new'; } {Do not localize} - {CH fn_X509_VAL_free = 'X509_VAL_free'; } {Do not localize} - {CH fn_i2d_X509_VAL = 'i2d_X509_VAL'; } {Do not localize} - {CH fn_d2i_X509_VAL = 'd2i_X509_VAL'; } {Do not localize} - {CH fn_X509_PUBKEY_new = 'X509_PUBKEY_new'; } {Do not localize} - {CH fn_X509_PUBKEY_free = 'X509_PUBKEY_free'; } {Do not localize} - {CH fn_i2d_X509_PUBKEY = 'i2d_X509_PUBKEY'; } {Do not localize} - {CH fn_d2i_X509_PUBKEY = 'd2i_X509_PUBKEY'; } {Do not localize} - {CH fn_X509_PUBKEY_set = 'X509_PUBKEY_set'; } {Do not localize} - fn_X509_PUBKEY_get = 'X509_PUBKEY_get'; {Do not localize} - {CH fn_X509_get_pubkey_parameters = 'X509_get_pubkey_parameters'; } {Do not localize} - {CH fn_X509_SIG_new = 'X509_SIG_new'; } {Do not localize} - {CH fn_X509_SIG_free = 'X509_SIG_free'; } {Do not localize} - {CH fn_i2d_X509_SIG = 'i2d_X509_SIG'; } {Do not localize} - {CH fn_d2i_X509_SIG = 'd2i_X509_SIG'; } {Do not localize} - {CH fn_X509_REQ_INFO_new = 'X509_REQ_INFO_new'; } {Do not localize} - {CH fn_X509_REQ_INFO_free = 'X509_REQ_INFO_free'; } {Do not localize} - {CH fn_i2d_X509_REQ_INFO = 'i2d_X509_REQ_INFO'; } {Do not localize} - {CH fn_d2i_X509_REQ_INFO = 'd2i_X509_REQ_INFO'; } {Do not localize} - fn_X509_REQ_new = 'X509_REQ_new'; {Do not localize} - fn_X509_REQ_free = 'X509_REQ_free'; {Do not localize} - fn_i2d_X509_REQ = 'i2d_X509_REQ'; {Do not localize} - fn_d2i_X509_REQ = 'd2i_X509_REQ'; {Do not localize} - {CH fn_X509_ATTRIBUTE_new = 'X509_ATTRIBUTE_new'; } {Do not localize} - {CH fn_X509_ATTRIBUTE_free = 'X509_ATTRIBUTE_free'; } {Do not localize} - {CH fn_i2d_X509_ATTRIBUTE = 'i2d_X509_ATTRIBUTE'; } {Do not localize} - {CH fn_d2i_X509_ATTRIBUTE = 'd2i_X509_ATTRIBUTE'; } {Do not localize} - {CH fn_X509_ATTRIBUTE_create = 'X509_ATTRIBUTE_create'; } {Do not localize} - {CH fn_X509_EXTENSION_new = 'X509_EXTENSION_new'; } {Do not localize} - fn_X509_EXTENSION_free = 'X509_EXTENSION_free'; {Do not localize} - {CH fn_i2d_X509_EXTENSION = 'i2d_X509_EXTENSION'; } {Do not localize} - {CH fn_d2i_X509_EXTENSION = 'd2i_X509_EXTENSION'; } {Do not localize} - {CH fn_X509_NAME_ENTRY_new = 'X509_NAME_ENTRY_new'; } {Do not localize} - {CH fn_X509_NAME_ENTRY_free = 'X509_NAME_ENTRY_free'; } {Do not localize} - fn_i2d_X509_NAME_ENTRY = 'i2d_X509_NAME_ENTRY'; {Do not localize} - fn_d2i_X509_NAME_ENTRY = 'd2i_X509_NAME_ENTRY'; {Do not localize} - fn_X509_NAME_new = 'X509_NAME_new'; {Do not localize} - fn_X509_NAME_free = 'X509_NAME_free'; {Do not localize} - fn_i2d_X509_NAME = 'i2d_X509_NAME'; {Do not localize} - fn_d2i_X509_NAME = 'd2i_X509_NAME'; {Do not localize} - {CH fn_X509_NAME_set = 'X509_NAME_set'; } {Do not localize} - {CH fn_X509_CINF_new = 'X509_CINF_new'; } {Do not localize} - {CH fn_X509_CINF_free = 'X509_CINF_free'; } {Do not localize} - {CH fn_i2d_X509_CINF = 'i2d_X509_CINF'; } {Do not localize} - {CH fn_d2i_X509_CINF = 'd2i_X509_CINF'; } {Do not localize} - fn_X509_new = 'X509_new'; {Do not localize} - fn_X509_free = 'X509_free'; {Do not localize} - fn_i2d_X509 = 'i2d_X509'; {Do not localize} - fn_d2i_X509 = 'd2i_X509'; {Do not localize} - {CH fn_X509_REVOKED_new = 'X509_REVOKED_new'; } {Do not localize} - {CH fn_X509_REVOKED_free = 'X509_REVOKED_free'; } {Do not localize} - {CH fn_i2d_X509_REVOKED = 'i2d_X509_REVOKED'; } {Do not localize} - {CH fn_d2i_X509_REVOKED = 'd2i_X509_REVOKED'; } {Do not localize} - {CH fn_X509_CRL_INFO_new = 'X509_CRL_INFO_new'; } {Do not localize} - {CH fn_X509_CRL_INFO_free = 'X509_CRL_INFO_free'; } {Do not localize} - {CH fn_i2d_X509_CRL_INFO = 'i2d_X509_CRL_INFO'; } {Do not localize} - {CH fn_d2i_X509_CRL_INFO = 'd2i_X509_CRL_INFO'; } {Do not localize} - {CH fn_X509_CRL_new = 'X509_CRL_new'; } {Do not localize} - {CH fn_X509_CRL_free = 'X509_CRL_free'; } {Do not localize} - fn_i2d_X509_CRL = 'i2d_X509_CRL'; {Do not localize} - fn_d2i_X509_CRL = 'd2i_X509_CRL'; {Do not localize} - {CH fn_X509_PKEY_new = 'X509_PKEY_new'; } {Do not localize} - {CH fn_X509_PKEY_free = 'X509_PKEY_free'; } {Do not localize} - {CH fn_i2d_X509_PKEY = 'i2d_X509_PKEY'; } {Do not localize} - {CH fn_d2i_X509_PKEY = 'd2i_X509_PKEY'; } {Do not localize} - {CH fn_NETSCAPE_SPKI_new = 'NETSCAPE_SPKI_new'; } {Do not localize} - {CH fn_NETSCAPE_SPKI_free = 'NETSCAPE_SPKI_free'; } {Do not localize} - {CH fn_i2d_NETSCAPE_SPKI = 'i2d_NETSCAPE_SPKI'; } {Do not localize} - {CH fn_d2i_NETSCAPE_SPKI = 'd2i_NETSCAPE_SPKI'; } {Do not localize} - {CH fn_NETSCAPE_SPKAC_new = 'NETSCAPE_SPKAC_new'; } {Do not localize} - {CH fn_NETSCAPE_SPKAC_free = 'NETSCAPE_SPKAC_free'; } {Do not localize} - {CH fn_i2d_NETSCAPE_SPKAC = 'i2d_NETSCAPE_SPKAC'; } {Do not localize} - {CH fn_d2i_NETSCAPE_SPKAC = 'd2i_NETSCAPE_SPKAC'; } {Do not localize} - fn_i2d_NETSCAPE_CERT_SEQUENCE = 'i2d_NETSCAPE_CERT_SEQUENCE'; {Do not localize} - fn_d2i_NETSCAPE_CERT_SEQUENCE = 'd2i_NETSCAPE_CERT_SEQUENCE'; {Do not localize} - fn_i2d_PUBKEY = 'i2d_PUBKEY'; {Do not localize} - fn_d2i_PUBKEY = 'd2i_PUBKEY'; {Do not localize} - - {CH fn_NETSCAPE_CERT_SEQUENCE_new = 'NETSCAPE_CERT_SEQUENCE_new'; } {Do not localize} - {CH fn_NETSCAPE_CERT_SEQUENCE_free = 'NETSCAPE_CERT_SEQUENCE_free'; } {Do not localize} - {CH fn_X509_INFO_new = 'X509_INFO_new'; } {Do not localize} - fn_X509_INFO_free = 'X509_INFO_free'; {Do not localize} - fn_X509_NAME_oneline = 'X509_NAME_oneline'; {Do not localize} - {CH fn_ASN1_verify = 'ASN1_verify'; } {Do not localize} - {CH fn_ASN1_digest = 'ASN1_digest'; } {Do not localize} - {CH fn_ASN1_sign = 'ASN1_sign'; } {Do not localize} - fn_X509_set_version = 'X509_set_version'; {Do not localize} - {CH fn_X509_set_serialNumber = 'X509_set_serialNumber'; } {Do not localize} - fn_X509_get_serialNumber = 'X509_get_serialNumber'; {Do not localize} - fn_X509_set_issuer_name = 'X509_set_issuer_name'; {Do not localize} - fn_X509_get_issuer_name = 'X509_get_issuer_name'; {Do not localize} - fn_X509_set_subject_name = 'X509_set_subject_name'; {Do not localize} - fn_X509_get_subject_name = 'X509_get_subject_name'; {Do not localize} - fn_X509_set_notBefore = 'X509_set_notBefore'; {Do not localize} - fn_X509_set_notAfter = 'X509_set_notAfter'; {Do not localize} - fn_X509_set_pubkey = 'X509_set_pubkey'; {Do not localize} - {CH fn_X509_get_pubkey = 'X509_get_pubkey'; } {Do not localize} - {CH fn_X509_certificate_type = 'X509_certificate_type'; } {Do not localize} - {CH fn_X509_REQ_set_version = 'X509_REQ_set_version'; } {Do not localize} - {CH fn_X509_REQ_set_subject_name = 'X509_REQ_set_subject_name'; } {Do not localize} - fn_X509_REQ_set_pubkey = 'X509_REQ_set_pubkey'; {Do not localize} - {CH fn_X509_REQ_get_pubkey = 'X509_REQ_get_pubkey'; } {Do not localize} - {CH fn_X509_check_private_key = 'X509_check_private_key'; } {Do not localize} - {CH fn_X509_issuer_and_serial_cmp = 'X509_issuer_and_serial_cmp'; } {Do not localize} - {CH fn_X509_issuer_and_serial_hash = 'X509_issuer_and_serial_hash'; } {Do not localize} - {CH fn_X509_issuer_name_cmp = 'X509_issuer_name_cmp'; } {Do not localize} - {CH fn_X509_issuer_name_hash = 'X509_issuer_name_hash'; } {Do not localize} - {CH fn_X509_subject_name_cmp = 'X509_subject_name_cmp'; } {Do not localize} - {CH fn_X509_subject_name_hash = 'X509_subject_name_hash'; } {Do not localize} - fn_X509_NAME_cmp = 'X509_NAME_cmp'; {Do not localize} - fn_X509_NAME_hash = 'X509_NAME_hash'; {Do not localize} - {CH fn_X509_CRL_cmp = 'X509_CRL_cmp'; } {Do not localize} - {$IFNDEF OPENSSL_NO_FP_API} - {CH fn_X509_print_ex_fp = 'X509_print_ex_fp'; } {Do not localize} - {CH fn_X509_print_fp = 'X509_print_fp'; } {Do not localize} - {CH fn_X509_CRL_print_fp = 'X509_CRL_print_fp'; } {Do not localize} - {CH fn_X509_REQ_print_fp = 'X509_REQ_print_fp'; } {Do not localize} - {CH fn_X509_NAME_print_ex_fp = 'X509_NAME_print_ex_fp'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_BIO} - {CH fn_X509_NAME_print = 'X509_NAME_print'; } {Do not localize} - {CH fn_X509_NAME_print_ex = 'X509_NAME_print_ex'; } {Do not localize} - {CH fn_X509_print_ex = 'X509_print_ex'; } {Do not localize} - fn_X509_print = 'X509_print'; {Do not localize} - {CH fn_X509_ocspid_print = 'X509_ocspid_print'; } {Do not localize} - {CH fn_X509_CERT_AUX_print = 'X509_CERT_AUX_print'; } {Do not localize} - {CH fn_X509_CRL_print = 'X509_CRL_print'; } {Do not localize} - {CH fn_X509_REQ_print = 'X509_REQ_print'; } {Do not localize} - {CH fn_X509_REQ_print_ex = 'X509_REQ_print_ex'; } {Do not localize} - {$ENDIF} - {CH fn_X509_NAME_entry_count = 'X509_NAME_entry_count'; } {Do not localize} - {CH fn_X509_NAME_get_text_by_NID = 'X509_NAME_get_text_by_NID'; } {Do not localize} - {CH fn_X509_NAME_get_text_by_OBJ = 'X509_NAME_get_text_by_OBJ'; } {Do not localize} - {CH fn_X509_NAME_get_index_by_NID = 'X509_NAME_get_index_by_NID'; } {Do not localize} - {CH fn_X509_NAME_get_index_by_OBJ = 'X509_NAME_get_index_by_OBJ'; } {Do not localize} - {CH fn_X509_NAME_get_entry = 'X509_NAME_get_entry'; } {Do not localize} - {CH fn_X509_NAME_delete_entry = 'X509_NAME_delete_entry'; } {Do not localize} - {CH fn_X509_NAME_add_entry = 'X509_NAME_add_entry'; } {Do not localize} - {CH fn_X509_NAME_ENTRY_create_by_NID = 'X509_NAME_ENTRY_create_by_NID'; } {Do not localize} - {CH fn_X509_NAME_ENTRY_create_by_OBJ = 'X509_NAME_ENTRY_create_by_OBJ'; } {Do not localize} - {CH fn_X509_NAME_ENTRY_set_object = 'X509_NAME_ENTRY_set_object'; } {Do not localize} - {CH fn_X509_NAME_ENTRY_set_data = 'X509_NAME_ENTRY_set_data'; } {Do not localize} - {CH fn_X509_NAME_ENTRY_get_object = 'X509_NAME_ENTRY_get_object'; } {Do not localize} - {CH fn_X509_NAME_ENTRY_get_data = 'X509_NAME_ENTRY_get_data'; } {Do not localize} - {CH fn_X509v3_get_ext_count = 'X509v3_get_ext_count'; } {Do not localize} - {CH fn_X509v3_get_ext_by_NID = 'X509v3_get_ext_by_NID'; } {Do not localize} - {CH fn_X509v3_get_ext_by_OBJ = 'X509v3_get_ext_by_OBJ'; } {Do not localize} - {CH fn_X509v3_get_ext_by_critical = 'X509v3_get_ext_by_critical'; } {Do not localize} - {CH fn_X509v3_get_ext = 'X509v3_get_ext'; } {Do not localize} - {CH fn_X509v3_delete_ext = 'X509v3_delete_ext'; } {Do not localize} - {CH fn_X509v3_add_ext = 'X509v3_add_ext'; } {Do not localize} - {CH fn_X509_get_ext_count = 'X509_get_ext_count'; } {Do not localize} - {CH fn_X509_get_ext_by_NID = 'X509_get_ext_by_NID'; } {Do not localize} - {CH fn_X509_get_ext_by_OBJ = 'X509_get_ext_by_OBJ'; } {Do not localize} - {CH fn_X509_get_ext_by_critical = 'X509_get_ext_by_critical'; } {Do not localize} - {CH fn_X509_get_ext = 'X509_get_ext'; } {Do not localize} - {CH fn_X509_delete_ext = 'X509_delete_ext'; } {Do not localize} - fn_X509_add_ext = 'X509_add_ext'; {Do not localize} - {CH fn_X509_CRL_get_ext_count = 'X509_CRL_get_ext_count'; } {Do not localize} - {CH fn_X509_CRL_get_ext_by_NID = 'X509_CRL_get_ext_by_NID'; } {Do not localize} - {CH fn_X509_CRL_get_ext_by_OBJ = 'X509_CRL_get_ext_by_OBJ'; } {Do not localize} - {CH fn_X509_CRL_get_ext_by_critical = 'X509_CRL_get_ext_by_critical'; } {Do not localize} - {CH fn_X509_CRL_get_ext = 'X509_CRL_get_ext'; } {Do not localize} - {CH fn_X509_CRL_delete_ext = 'X509_CRL_delete_ext'; } {Do not localize} - {CH fn_X509_CRL_add_ext = 'X509_CRL_add_ext'; } {Do not localize} - {CH fn_X509_REVOKED_get_ext_count = 'X509_REVOKED_get_ext_count'; } {Do not localize} - {CH fn_X509_REVOKED_get_ext_by_NID = 'X509_REVOKED_get_ext_by_NID'; } {Do not localize} - {CH fn_X509_REVOKED_get_ext_by_OBJ = 'X509_REVOKED_get_ext_by_OBJ'; } {Do not localize} - {CH fn_X509_REVOKED_get_ext_by_critical = 'X509_REVOKED_get_ext_by_critical'; } {Do not localize} - {CH fn_X509_REVOKED_get_ext = 'X509_REVOKED_get_ext'; } {Do not localize} - {CH fn_X509_REVOKED_delete_ext = 'X509_REVOKED_delete_ext'; } {Do not localize} - {CH fn_X509_REVOKED_add_ext = 'X509_REVOKED_add_ext'; } {Do not localize} - fn_X509_EXTENSION_create_by_NID = 'X509_EXTENSION_create_by_NID'; {Do not localize} - {CH fn_X509_EXTENSION_create_by_OBJ = 'X509_EXTENSION_create_by_OBJ'; } {Do not localize} - {CH fn_X509_EXTENSION_set_object = 'X509_EXTENSION_set_object'; } {Do not localize} - {CH fn_X509_EXTENSION_set_critical = 'X509_EXTENSION_set_critical'; } {Do not localize} - {CH fn_X509_EXTENSION_set_data = 'X509_EXTENSION_set_data'; } {Do not localize} - {CH fn_X509_EXTENSION_get_object = 'X509_EXTENSION_get_object'; } {Do not localize} - {CH fn_X509_EXTENSION_get_data = 'X509_EXTENSION_get_data'; } {Do not localize} - {CH fn_X509_EXTENSION_get_critical = 'X509_EXTENSION_get_critical'; } {Do not localize} - {CH fn_X509_verify_cert = 'X509_verify_cert'; } {Do not localize} - {CH fn_X509_find_by_issuer_and_serial = 'X509_find_by_issuer_and_serial'; } {Do not localize} - {CH fn_X509_find_by_subject = 'X509_find_by_subject'; } {Do not localize} - {CH fn_i2d_PBEPARAM = 'i2d_PBEPARAM'; } {Do not localize} - {CH fn_PBEPARAM_new = 'PBEPARAM_new'; } {Do not localize} - {CH fn_d2i_PBEPARAM = 'd2i_PBEPARAM'; } {Do not localize} - {CH fn_PBEPARAM_free = 'PBEPARAM_free'; } {Do not localize} - {CH fn_PKCS5_pbe_set = 'PKCS5_pbe_set'; } {Do not localize} - {CH fn_PKCS5_pbe2_set = 'PKCS5_pbe2_set'; } {Do not localize} - {CH fn_i2d_PBKDF2PARAM = 'i2d_PBKDF2PARAM'; } {Do not localize} - {CH fn_PBKDF2PARAM_new = 'PBKDF2PARAM_new'; } {Do not localize} - {CH fn_d2i_PBKDF2PARAM = 'd2i_PBKDF2PARAM'; } {Do not localize} - {CH fn_PBKDF2PARAM_free = 'PBKDF2PARAM_free'; } {Do not localize} - {CH fn_i2d_PBE2PARAM = 'i2d_PBE2PARAM'; } {Do not localize} - {CH fn_PBE2PARAM_new = 'PBE2PARAM_new'; } {Do not localize} - {CH fn_d2i_PBE2PARAM = 'd2i_PBE2PARAM'; } {Do not localize} - {CH fn_PBE2PARAM_free = 'PBE2PARAM_free'; } {Do not localize} - {CH fn_i2d_PKCS8_PRIV_KEY_INFO = 'i2d_PKCS8_PRIV_KEY_INFO'; } {Do not localize} - {CH fn_PKCS8_PRIV_KEY_INFO_new = 'PKCS8_PRIV_KEY_INFO_new'; } {Do not localize} - {CH fn_d2i_PKCS8_PRIV_KEY_INFO = 'd2i_PKCS8_PRIV_KEY_INFO'; } {Do not localize} - {CH fn_PKCS8_PRIV_KEY_INFO_free = 'PKCS8_PRIV_KEY_INFO_free'; } {Do not localize} - {CH fn_EVP_PKCS82PKEY = 'EVP_PKCS82PKEY'; } {Do not localize} - {CH fn_EVP_PKEY2PKCS8 = 'EVP_PKEY2PKCS8'; } {Do not localize} - {CH fn_PKCS8_set_broken = 'PKCS8_set_broken'; } {Do not localize} - {CH fn_ERR_load_PEM_strings = 'ERR_load_PEM_strings'; } {Do not localize} - {CH fn_PEM_get_EVP_CIPHER_INFO = 'PEM_get_EVP_CIPHER_INFO'; } {Do not localize} - {CH fn_PEM_do_header = 'PEM_do_header'; } {Do not localize} - {CH fn_PEM_read_bio = 'PEM_read_bio'; } {Do not localize} - {CH fn_PEM_write_bio = 'PEM_write_bio'; } {Do not localize} - fn_PEM_ASN1_read_bio = 'PEM_ASN1_read_bio'; {Do not localize} - fn_PEM_ASN1_write_bio = 'PEM_ASN1_write_bio'; {Do not localize} - fn_PEM_X509_INFO_read_bio = 'PEM_X509_INFO_read_bio'; {Do not localize} - {CH fn_PEM_X509_INFO_write_bio = 'PEM_X509_INFO_write_bio'; } {Do not localize} - {CH fn_PEM_read = 'PEM_read'; } {Do not localize} - {CH fn_PEM_write = 'PEM_write'; } {Do not localize} - {CH fn_PEM_ASN1_read = 'PEM_ASN1_read'; } {Do not localize} - {CH fn_PEM_ASN1_write = 'PEM_ASN1_write'; } {Do not localize} - {CH fn_PEM_X509_INFO_read = 'PEM_X509_INFO_read'; } {Do not localize} - {CH fn_PEM_SealInit = 'PEM_SealInit'; } {Do not localize} - {CH fn_PEM_SealUpdate = 'PEM_SealUpdate'; } {Do not localize} - {CH fn_PEM_SealFinal = 'PEM_SealFinal'; } {Do not localize} - {CH fn_PEM_SignInit = 'PEM_SignInit'; } {Do not localize} - {CH fn_PEM_SignUpdate = 'PEM_SignUpdate'; } {Do not localize} - {CH fn_PEM_SignFinal = 'PEM_SignFinal'; } {Do not localize} - {CH fn_PEM_proc_type = 'PEM_proc_type'; } {Do not localize} - {CH fn_PEM_dek_info = 'PEM_dek_info'; } {Do not localize} - {$IFNDEF OPENSSL_NO_BIO} - {$IFNDEF SSLEAY_MACROS} - fn_PEM_read_bio_X509 = 'PEM_read_bio_X509'; {Do not localize} - fn_PEM_write_bio_X509 = 'PEM_write_bio_X509'; {Do not localize} - fn_PEM_read_bio_X509_REQ = 'PEM_read_bio_X509_REQ'; {Do not localize} - fn_PEM_write_bio_X509_REQ = 'PEM_write_bio_X509_REQ'; {Do not localize} - fn_PEM_read_bio_X509_CRL = 'PEM_read_bio_X509_CRL'; {Do not localize} - fn_PEM_write_bio_X509_CRL = 'PEM_write_bio_X509_CRL'; {Do not localize} - fn_PEM_read_bio_PKCS7 = 'PEM_read_bio_PKCS7'; {Do not localize} - fn_PEM_write_bio_PKCS7 = 'PEM_write_bio_PKCS7'; {Do not localize} - fn_PEM_read_bio_NETSCAPE_CERT_SEQUENCE = 'PEM_read_bio_NETSCAPE_CERT_SEQUENCE'; {Do not localize} - fn_PEM_write_bio_NETSCAPE_CERT_SEQUENCE = 'PEM_write_bio_NETSCAPE_CERT_SEQUENCE'; {Do not localize} - fn_PEM_read_bio_PKCS8 = 'PEM_read_bio_PKCS8'; {Do not localize} - fn_PEM_write_bio_PKCS8 = 'PEM_write_bio_PKCS8'; {Do not localize} - fn_PEM_read_bio_PKCS8_PRIV_KEY_INFO = 'PEM_read_bio_PKCS8_PRIV_KEY_INFO'; {Do not localize} - fn_PEM_write_bio_PKCS8_PRIV_KEY_INFO = 'PEM_write_bio_PKCS8_PRIV_KEY_INFO'; {Do not localize} - fn_PEM_read_bio_RSAPrivateKey = 'PEM_read_bio_RSAPrivateKey'; {Do not localize} - fn_PEM_write_bio_RSAPrivateKey = 'PEM_write_bio_RSAPrivateKey'; {Do not localize} - fn_PEM_read_bio_RSAPublicKey = 'PEM_read_bio_RSAPublicKey'; {Do not localize} - fn_PEM_write_bio_RSAPublicKey = 'PEM_write_bio_RSAPublicKey'; {Do not localize} - fn_PEM_read_bio_DSAPrivateKey = 'PEM_read_bio_DSAPrivateKey'; {Do not localize} - fn_PEM_write_bio_DSAPrivateKey = 'PEM_write_bio_DSAPrivateKey'; {Do not localize} - fn_PEM_read_bio_DSAparams = 'PEM_read_bio_DSAparams'; {Do not localize} - fn_PEM_write_bio_DSAparams = 'PEM_write_bio_DSAparams'; {Do not localize} - fn_PEM_read_bio_DHparams = 'PEM_read_bio_DHparams'; {Do not localize} - fn_PEM_write_bio_DHparams = 'PEM_write_bio_DHparams'; {Do not localize} - fn_PEM_read_bio_PrivateKey = 'PEM_read_bio_PrivateKey'; {Do not localize} - fn_PEM_write_bio_PrivateKey = 'PEM_write_bio_PrivateKey'; {Do not localize} - fn_PEM_write_bio_PKCS8PrivateKey = 'PEM_write_bio_PKCS8PrivateKey'; {Do not localize} - fn_PEM_read_bio_PUBKEY = 'PEM_read_bio_PUBKEY'; {Do not localize} - fn_PEM_write_bio_PUBKEY = 'PEM_write_bio_PUBKEY'; {Do not localize} - {$ENDIF} - {$ENDIF} - fn_PEM_read_bio_X509_AUX = 'PEM_read_bio_X509_AUX'; {Do not localize} - {CH fn_PEM_read_X509 = 'PEM_read_X509'; } {Do not localize} - {CH fn_PEM_write_X509 = 'PEM_write_X509'; } {Do not localize} - {CH fn_PEM_read_X509_REQ = 'PEM_read_X509_REQ'; } {Do not localize} - {CH fn_PEM_write_X509_REQ = 'PEM_write_X509_REQ'; } {Do not localize} - {CH fn_PEM_read_X509_CRL = 'PEM_read_X509_CRL'; } {Do not localize} - {CH fn_PEM_write_X509_CRL = 'PEM_write_X509_CRL'; } {Do not localize} - {CH fn_PEM_read_PKCS7 = 'PEM_read_PKCS7'; } {Do not localize} - {CH fn_PEM_write_PKCS7 = 'PEM_write_PKCS7'; } {Do not localize} - {CH fn_PEM_read_NETSCAPE_CERT_SEQUENCE = 'PEM_read_NETSCAPE_CERT_SEQUENCE'; } {Do not localize} - {CH fn_PEM_write_NETSCAPE_CERT_SEQUENCE = 'PEM_write_NETSCAPE_CERT_SEQUENCE'; } {Do not localize} - {CH fn_PEM_read_PKCS8 = 'PEM_read_PKCS8'; } {Do not localize} - {CH fn_PEM_write_PKCS8 = 'PEM_write_PKCS8'; } {Do not localize} - {CH fn_PEM_read_PKCS8_PRIV_KEY_INFO = 'PEM_read_PKCS8_PRIV_KEY_INFO'; } {Do not localize} - {CH fn_PEM_write_PKCS8_PRIV_KEY_INFO = 'PEM_write_PKCS8_PRIV_KEY_INFO'; } {Do not localize} - {CH fn_PEM_read_RSAPrivateKey = 'PEM_read_RSAPrivateKey'; } {Do not localize} - {CH fn_PEM_write_RSAPrivateKey = 'PEM_write_RSAPrivateKey'; } {Do not localize} - {CH fn_PEM_read_RSAPublicKey = 'PEM_read_RSAPublicKey'; } {Do not localize} - {CH fn_PEM_write_RSAPublicKey = 'PEM_write_RSAPublicKey'; } {Do not localize} - {CH fn_PEM_read_DSAPrivateKey = 'PEM_read_DSAPrivateKey'; } {Do not localize} - {CH fn_PEM_write_DSAPrivateKey = 'PEM_write_DSAPrivateKey'; } {Do not localize} - {CH fn_PEM_read_DSAparams = 'PEM_read_DSAparams'; } {Do not localize} - {CH fn_PEM_write_DSAparams = 'PEM_write_DSAparams'; } {Do not localize} - {CH fn_PEM_read_DHparams = 'PEM_read_DHparams'; } {Do not localize} - {CH fn_PEM_write_DHparams = 'PEM_write_DHparams'; } {Do not localize} - {CH fn_PEM_read_PrivateKey = 'PEM_read_PrivateKey'; } {Do not localize} - {CH fn_PEM_write_PrivateKey = 'PEM_write_PrivateKey'; } {Do not localize} - {CH fn_PEM_write_PKCS8PrivateKey = 'PEM_write_PKCS8PrivateKey'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_new = 'sk_SSL_CIPHER_new'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_new_null = 'sk_SSL_CIPHER_new_null'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_free = 'sk_SSL_CIPHER_free'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_num = 'sk_SSL_CIPHER_num'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_value = 'sk_SSL_CIPHER_value'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_set = 'sk_SSL_CIPHER_set'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_zero = 'sk_SSL_CIPHER_zero'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_push = 'sk_SSL_CIPHER_push'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_unshift = 'sk_SSL_CIPHER_unshift'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_find = 'sk_SSL_CIPHER_find'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_delete = 'sk_SSL_CIPHER_delete'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_delete_ptr = 'sk_SSL_CIPHER_delete_ptr'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_insert = 'sk_SSL_CIPHER_insert'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_dup = 'sk_SSL_CIPHER_dup'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_pop_free = 'sk_SSL_CIPHER_pop_free'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_shift = 'sk_SSL_CIPHER_shift'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_pop = 'sk_SSL_CIPHER_pop'; } {Do not localize} - {CH fn_sk_SSL_CIPHER_sort = 'sk_SSL_CIPHER_sort'; } {Do not localize} - {CH fn_sk_SSL_COMP_new = 'sk_SSL_COMP_new'; } {Do not localize} - {CH fn_sk_SSL_COMP_new_null = 'sk_SSL_COMP_new_null'; } {Do not localize} - {CH fn_sk_SSL_COMP_free = 'sk_SSL_COMP_free'; } {Do not localize} - {CH fn_sk_SSL_COMP_num = 'sk_SSL_COMP_num'; } {Do not localize} - {CH fn_sk_SSL_COMP_value = 'sk_SSL_COMP_value'; } {Do not localize} - {CH fn_sk_SSL_COMP_set = 'sk_SSL_COMP_set'; } {Do not localize} - {CH fn_sk_SSL_COMP_zero = 'sk_SSL_COMP_zero'; } {Do not localize} - {CH fn_sk_SSL_COMP_push = 'sk_SSL_COMP_push'; } {Do not localize} - {CH fn_sk_SSL_COMP_unshift = 'sk_SSL_COMP_unshift'; } {Do not localize} - {CH fn_sk_SSL_COMP_find = 'sk_SSL_COMP_find'; } {Do not localize} - {CH fn_sk_SSL_COMP_delete = 'sk_SSL_COMP_delete'; } {Do not localize} - {CH fn_sk_SSL_COMP_delete_ptr = 'sk_SSL_COMP_delete_ptr'; } {Do not localize} - {CH fn_sk_SSL_COMP_insert = 'sk_SSL_COMP_insert'; } {Do not localize} - {CH fn_sk_SSL_COMP_dup = 'sk_SSL_COMP_dup'; } {Do not localize} - {CH fn_sk_SSL_COMP_pop_free = 'sk_SSL_COMP_pop_free'; } {Do not localize} - {CH fn_sk_SSL_COMP_shift = 'sk_SSL_COMP_shift'; } {Do not localize} - {CH fn_sk_SSL_COMP_pop = 'sk_SSL_COMP_pop'; } {Do not localize} - {CH fn_sk_SSL_COMP_sort = 'sk_SSL_COMP_sort'; } {Do not localize} - {$IFNDEF OPENSSL_NO_BIO} - {CH fn_BIO_f_ssl = 'BIO_f_ssl'; } {Do not localize} - {CH fn_BIO_new_ssl = 'BIO_new_ssl'; } {Do not localize} - {CH fn_BIO_new_ssl_connect = 'BIO_new_ssl_connect'; } {Do not localize} - {CH fn_BIO_new_buffer_ssl_connect = 'BIO_new_buffer_ssl_connect'; } {Do not localize} - {CH fn_BIO_ssl_copy_session_id = 'BIO_ssl_copy_session_id'; } {Do not localize} - {CH fn_BIO_ssl_shutdown = 'BIO_ssl_shutdown'; } {Do not localize} - {$ENDIF} - fn_SSL_CTX_set_cipher_list = 'SSL_CTX_set_cipher_list'; {Do not localize} - fn_SSL_CTX_new = 'SSL_CTX_new'; {Do not localize} - fn_SSL_CTX_free = 'SSL_CTX_free'; {Do not localize} - fn_SSL_callback_ctrl = 'SSL_callback_ctrl'; {Do not localize} - fn_SSL_CTX_callback_ctrl = 'SSL_CTX_callback_ctrl'; {Do not localize} - {CH fn_SSL_CTX_set_timeout = 'SSL_CTX_set_timeout'; } {Do not localize} - {CH fn_SSL_CTX_get_timeout = 'SSL_CTX_get_timeout'; } {Do not localize} - {CH fn_SSL_CTX_get_cert_store = 'SSL_CTX_get_cert_store'; } {Do not localize} - {CH fn_SSL_CTX_set_cert_store = 'SSL_CTX_set_cert_store'; } {Do not localize} - {CH fn_SSL_want = 'SSL_want'; } {Do not localize} - {CH fn_SSL_clear = 'SSL_clear'; } {Do not localize} - {CH fn_SSL_CTX_flush_sessions = 'SSL_CTX_flush_sessions'; } {Do not localize} - fn_SSL_get_current_cipher = 'SSL_get_current_cipher'; {Do not localize} - fn_SSL_CIPHER_get_bits = 'SSL_CIPHER_get_bits'; {Do not localize} - fn_SSL_CIPHER_get_version = 'SSL_CIPHER_get_version'; {Do not localize} - fn_SSL_CIPHER_get_name = 'SSL_CIPHER_get_name'; {Do not localize} - {CH fn_SSL_get_fd = 'SSL_get_fd'; } {Do not localize} - {CH fn_SSL_get_cipher_list = 'SSL_get_cipher_list'; } {Do not localize} - {CH fn_SSL_get_shared_ciphers = 'SSL_get_shared_ciphers'; } {Do not localize} - {CH fn_SSL_get_read_ahead = 'SSL_get_read_ahead'; } {Do not localize} - fn_SSL_pending = 'SSL_pending'; {Do not localize} - {$IFNDEF OPENSSL_NO_SOCK} - fn_SSL_set_fd = 'SSL_set_fd'; {Do not localize} - {CH fn_SSL_set_rfd = 'SSL_set_rfd'; } {Do not localize} - {CH fn_SSL_set_wfd = 'SSL_set_wfd'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_BIO} - {CH fn_SSL_set_bio = 'SSL_set_bio'; } {Do not localize} - {CH fn_SSL_get_rbio = 'SSL_get_rbio'; } {Do not localize} - {CH fn_SSL_get_wbio = 'SSL_get_wbio'; } {Do not localize} - {$ENDIF} - {CH fn_SSL_set_cipher_list = 'SSL_set_cipher_list'; } {Do not localize} - {CH fn_SSL_set_read_ahead = 'SSL_set_read_ahead'; } {Do not localize} - {CH fn_SSL_get_verify_mode = 'SSL_get_verify_mode'; } {Do not localize} - {CH fn_SSL_get_verify_depth = 'SSL_get_verify_depth'; } {Do not localize} - {CH fn_SSL_set_verify = 'SSL_set_verify'; } {Do not localize} - {CH fn_SSL_set_verify_depth = 'SSL_set_verify_depth'; } {Do not localize} - {$IFNDEF OPENSSL_NO_RSA} - {CH fn_SSL_use_RSAPrivateKey = 'SSL_use_RSAPrivateKey'; } {Do not localize} - {CH fn_SSL_use_RSAPrivateKey_ASN1 = 'SSL_use_RSAPrivateKey_ASN1'; } {Do not localize} - {$ENDIF} - {CH fn_SSL_use_PrivateKey = 'SSL_use_PrivateKey'; } {Do not localize} - {CH fn_SSL_use_PrivateKey_ASN1 = 'SSL_use_PrivateKey_ASN1'; } {Do not localize} - {CH fn_SSL_use_certificate = 'SSL_use_certificate'; } {Do not localize} - {CH fn_SSL_use_certificate_ASN1 = 'SSL_use_certificate_ASN1'; } {Do not localize} - {CH fn_SSL_use_RSAPrivateKey_file = 'SSL_use_RSAPrivateKey_file'; } {Do not localize} - {CH fn_SSL_use_PrivateKey_file = 'SSL_use_PrivateKey_file'; } {Do not localize} - {CH fn_SSL_use_certificate_file = 'SSL_use_certificate_file'; } {Do not localize} - {$IFNDEF OPENSSL_NO_RSA} - {CH fn_SSL_CTX_use_RSAPrivateKey_file = 'SSL_CTX_use_RSAPrivateKey_file'; } {Do not localize} - {$ENDIF} - fn_SSL_CTX_use_PrivateKey_file = 'SSL_CTX_use_PrivateKey_file'; {Do not localize} - fn_SSL_CTX_use_certificate_file = 'SSL_CTX_use_certificate_file'; {Do not localize} - fn_SSL_CTX_use_certificate_chain_file = 'SSL_CTX_use_certificate_chain_file'; {Do not localize} - {$ifndef OPENSSL_NO_ENGINE} - {CH fn_SSL_CTX_set_client_cert_engine = 'SSL_CTX_set_client_cert_engine'; } {Do not localize} - {$endif} - {CH fn_SSL_CTX_use_certificate_chain_file = 'SSL_CTX_use_certificate_chain_file'; } {Do not localize} - fn_SSL_load_client_CA_file = 'SSL_load_client_CA_file'; {Do not localize} - {CH fn_SSL_add_file_cert_subjects_to_stack = 'SSL_add_file_cert_subjects_to_stack'; } {Do not localize} - {CH fn_ERR_load_SSL_strings = 'ERR_load_SSL_strings'; } {Do not localize} - fn_SSL_load_error_strings = 'SSL_load_error_strings'; {Do not localize} - {CH fn_SSL_state_string = 'SSL_state_string'; } {Do not localize} - {CH fn_SSL_rstate_string = 'SSL_rstate_string'; } {Do not localize} - fn_SSL_state_string_long = 'SSL_state_string_long'; {Do not localize} - {CH fn_SSL_rstate_string_long = 'SSL_rstate_string_long'; } {Do not localize} - {CH fn_SSL_SESSION_get_time = 'SSL_SESSION_get_time'; } {Do not localize} - {CH fn_SSL_SESSION_set_time = 'SSL_SESSION_set_time'; } {Do not localize} - {CH fn_SSL_SESSION_get_timeout = 'SSL_SESSION_get_timeout'; } {Do not localize} - {CH fn_SSL_SESSION_set_timeout = 'SSL_SESSION_set_timeout'; } {Do not localize} - fn_SSL_copy_session_id = 'SSL_copy_session_id'; {Do not localize} - {CH fn_SSL_SESSION_new = 'SSL_SESSION_new'; } {Do not localize} - {CH fn_SSL_SESSION_hash = 'SSL_SESSION_hash'; } {Do not localize} - {CH fn_SSL_SESSION_cmp = 'SSL_SESSION_cmp'; } {Do not localize} - {$IFNDEF OPENSSL_NO_FP_API} - {CH fn_SSL_SESSION_print_fp = 'SSL_SESSION_print_fp'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_BIO} - {CH fn_SSL_SESSION_print = 'SSL_SESSION_print'; } {Do not localize} - {$ENDIF} - {CH fn_SSL_SESSION_free = 'SSL_SESSION_free'; } {Do not localize} - {CH fn_i2d_SSL_SESSION = 'i2d_SSL_SESSION'; } {Do not localize} - {CH fn_SSL_set_session = 'SSL_set_session'; } {Do not localize} - {CH fn_SSL_CTX_add_session = 'SSL_CTX_add_session'; } {Do not localize} - {CH fn_SSL_CTX_remove_session = 'SSL_CTX_remove_session'; } {Do not localize} - {CH fn_d2i_SSL_SESSION = 'd2i_SSL_SESSION'; } {Do not localize} - fn_SSL_get_peer_certificate = 'SSL_get_peer_certificate'; {Do not localize} - {CH fn_SSL_get_peer_cert_chain = 'SSL_get_peer_cert_chain'; } {Do not localize} - {CH fn_SSL_CTX_get_verify_mode = 'SSL_CTX_get_verify_mode'; } {Do not localize} - fn_SSL_CTX_get_verify_depth = 'SSL_CTX_get_verify_depth'; {Do not localize} - fn_SSL_CTX_set_verify = 'SSL_CTX_set_verify'; {Do not localize} - fn_SSL_CTX_set_verify_depth = 'SSL_CTX_set_verify_depth'; {Do not localize} - {CH fn_SSL_CTX_set_cert_verify_callback = 'SSL_CTX_set_cert_verify_callback'; } {Do not localize} - {CH fn_SSL_CTX_use_RSAPrivateKey = 'SSL_CTX_use_RSAPrivateKey'; } {Do not localize} - {CH fn_SSL_CTX_use_RSAPrivateKey_ASN1 = 'SSL_CTX_use_RSAPrivateKey_ASN1'; } {Do not localize} - fn_SSL_CTX_use_PrivateKey = 'SSL_CTX_use_PrivateKey'; {Do not localize} - {CH fn_SSL_CTX_use_PrivateKey_ASN1 = 'SSL_CTX_use_PrivateKey_ASN1'; } {Do not localize} - fn_SSL_CTX_use_certificate = 'SSL_CTX_use_certificate'; {Do not localize} - {CH fn_SSL_CTX_use_certificate_ASN1 = 'SSL_CTX_use_certificate_ASN1'; } {Do not localize} - fn_SSL_CTX_set_default_passwd_cb = 'SSL_CTX_set_default_passwd_cb'; {Do not localize} - fn_SSL_CTX_set_default_passwd_cb_userdata = 'SSL_CTX_set_default_passwd_cb_userdata'; {Do not localize} - fn_SSL_CTX_check_private_key = 'SSL_CTX_check_private_key'; {Do not localize} - {CH fn_SSL_check_private_key = 'SSL_check_private_key'; } {Do not localize} - fn_SSL_CTX_set_session_id_context = 'SSL_CTX_set_session_id_context'; {Do not localize} - fn_SSL_new = 'SSL_new'; {Do not localize} - {CH fn_SSL_set_session_id_context = 'SSL_set_session_id_context'; } {Do not localize} - fn_SSL_free = 'SSL_free'; {Do not localize} - fn_SSL_accept = 'SSL_accept'; {Do not localize} - fn_SSL_connect = 'SSL_connect'; {Do not localize} - fn_SSL_read = 'SSL_read'; {Do not localize} - fn_SSL_peek = 'SSL_peek'; {Do not localize} - fn_SSL_write = 'SSL_write'; {Do not localize} - fn_SSL_ctrl = 'SSL_ctrl'; {Do not localize} - fn_SSL_CTX_ctrl = 'SSL_CTX_ctrl'; {Do not localize} - fn_SSL_get_error = 'SSL_get_error'; {Do not localize} - {CH fn_SSL_get_version = 'SSL_get_version'; } {Do not localize} - {CH fn_SSL_CTX_set_ssl_version = 'SSL_CTX_set_ssl_version'; } {Do not localize} - fn_SSLv2_method = 'SSLv2_method'; {Do not localize} - fn_SSLv2_server_method = 'SSLv2_server_method'; {Do not localize} - fn_SSLv2_client_method = 'SSLv2_client_method'; {Do not localize} - fn_SSLv3_method = 'SSLv3_method'; {Do not localize} - fn_SSLv3_server_method = 'SSLv3_server_method'; {Do not localize} - fn_SSLv3_client_method = 'SSLv3_client_method'; {Do not localize} - fn_SSLv23_method = 'SSLv23_method'; {Do not localize} - fn_SSLv23_server_method = 'SSLv23_server_method'; {Do not localize} - fn_SSLv23_client_method = 'SSLv23_client_method'; {Do not localize} - fn_TLSv1_method = 'TLSv1_method'; {Do not localize} - fn_TLSv1_server_method = 'TLSv1_server_method'; {Do not localize} - fn_TLSv1_client_method = 'TLSv1_client_method'; {Do not localize} - fn_TLSv1_1_method = 'TLSv1_1_method'; {Do not localize} - fn_TLSv1_1_server_method = 'TLSv1_1_server_method'; {Do not localize} - fn_TLSv1_1_client_method = 'TLSv1_1_client_method'; {Do not localize} - fn_TLSv1_2_method = 'TLSv1_2_method'; {Do not localize} - fn_TLSv1_2_server_method = 'TLSv1_2_server_method'; {Do not localize} - fn_TLSv1_2_client_method = 'TLSv1_2_client_method'; {Do not localize} - fn_DTLSv1_method = 'DTLSv1_method'; {Do not localize} - fn_DTLSv1_server_method = 'DTLSv1_server_method'; {Do not localize} - fn_DTLSv1_client_method = 'DTLSv1_client_method'; {Do not localize} - {CH fn_SSL_get_ciphers = 'SSL_get_ciphers'; } {Do not localize} - {CH fn_SSL_do_handshake = 'SSL_do_handshake'; } {Do not localize} - {CH fn_SSL_renegotiate = 'SSL_renegotiate'; } {Do not localize} - fn_SSL_shutdown = 'SSL_shutdown'; {Do not localize} - {CH fn_SSL_get_ssl_method = 'SSL_get_ssl_method'; } {Do not localize} - {CH fn_SSL_set_ssl_method = 'SSL_set_ssl_method'; } {Do not localize} - fn_SSL_alert_type_string_long = 'SSL_alert_type_string_long'; {Do not localize} - {CH fn_SSL_alert_type_string = 'SSL_alert_type_string'; } {Do not localize} - fn_SSL_alert_desc_string_long = 'SSL_alert_desc_string_long'; {Do not localize} - {CH fn_SSL_alert_desc_string = 'SSL_alert_desc_string'; } {Do not localize} - {CH fn_SSL_set_client_CA_list = 'SSL_set_client_CA_list'; } {Do not localize} - fn_SSL_CTX_set_client_CA_list = 'SSL_CTX_set_client_CA_list'; {Do not localize} - {CH fn_SSL_get_client_CA_list = 'SSL_get_client_CA_list'; } {Do not localize} - {CH fn_SSL_CTX_get_client_CA_list = 'SSL_CTX_get_client_CA_list'; } {Do not localize} - {CH fn_SSL_add_client_CA = 'SSL_add_client_CA'; } {Do not localize} - {CH fn_SSL_CTX_add_client_CA = 'SSL_CTX_add_client_CA'; } {Do not localize} - fn_SSL_set_connect_state = 'SSL_set_connect_state'; {Do not localize} - fn_SSL_set_accept_state = 'SSL_set_accept_state'; {Do not localize} - {CH fn_SSL_get_default_timeout = 'SSL_get_default_timeout'; } {Do not localize} - {CH fn_SSL_library_init = 'SSL_library_init'; } {Do not localize} - fn_SSL_CIPHER_description = 'SSL_CIPHER_description'; {Do not localize} - {CH fn_SSL_dup_CA_list = 'SSL_dup_CA_list'; } {Do not localize} - {CH fn_SSL_dup = 'SSL_dup'; } {Do not localize} - {CH fn_SSL_get_certificate = 'SSL_get_certificate'; } {Do not localize} - {CH fn_SSL_get_privatekey = 'SSL_get_privatekey'; } {Do not localize} - {CH fn_SSL_CTX_set_quiet_shutdown = 'SSL_CTX_set_quiet_shutdown'; } {Do not localize} - {CH fn_SSL_CTX_get_quiet_shutdown = 'SSL_CTX_get_quiet_shutdown'; } {Do not localize} - {CH fn_SSL_set_quiet_shutdown = 'SSL_set_quiet_shutdown'; } {Do not localize} - {CH fn_SSL_get_quiet_shutdown = 'SSL_get_quiet_shutdown'; } {Do not localize} - fn_SSL_set_shutdown = 'SSL_set_shutdown'; {Do not localize} - {CH fn_SSL_get_shutdown = 'SSL_get_shutdown'; } {Do not localize} - {CH fn_SSL_version = 'SSL_version'; } {Do not localize} - fn_SSL_CTX_set_default_verify_paths = 'SSL_CTX_set_default_verify_paths'; {Do not localize} - fn_SSL_CTX_load_verify_locations = 'SSL_CTX_load_verify_locations'; {Do not localize} - fn_SSL_get_session = 'SSL_get_session'; {Do not localize} - {CH fn_SSL_get_SSL_CTX = 'SSL_get_SSL_CTX'; } {Do not localize} - {CH fn_SSL_set_SSL_CTX = 'SSL_set_SSL_CTX'; } {Do not localize} - {CH fn_OPENSSL_isservice = 'OPENSSL_isservice'; }{Do not localize} - {CH fn_SSL_set_info_callback = 'SSL_set_info_callback'; } {Do not localize} - {CH fn_SSL_state = 'SSL_state'; } {Do not localize} - - fn_SSL_set_verify_result = 'SSL_set_verify_result'; {Do not localize} - fn_SSL_get_verify_result = 'SSL_get_verify_result'; {Do not localize} - fn_SSL_set_ex_data = 'SSL_set_ex_data'; {Do not localize} - fn_SSL_get_ex_data = 'SSL_get_ex_data'; {Do not localize} - {CH fn_SSL_get_ex_new_index = 'SSL_get_ex_new_index'; } {Do not localize} - {CH fn_SSL_SESSION_set_ex_data = 'SSL_SESSION_set_ex_data'; } {Do not localize} - {CH fn_SSL_SESSION_get_ex_data = 'SSL_SESSION_get_ex_data'; } {Do not localize} - {CH fn_SSL_SESSION_get_ex_new_index = 'SSL_SESSION_get_ex_new_index'; } {Do not localize} - {CH fn_SSL_CTX_set_ex_data = 'SSL_CTX_set_ex_data'; } {Do not localize} - {CH fn_SSL_CTX_get_ex_data = 'SSL_CTX_get_ex_data'; } {Do not localize} - {CH fn_SSL_CTX_get_ex_new_index = 'SSL_CTX_get_ex_new_index'; } {Do not localize} - {CH fn_SSL_get_ex_data_X509_STORE_CTX_idx = 'SSL_get_ex_data_X509_STORE_CTX_idx'; } {Do not localize} - {$IFNDEF OPENSSL_NO_RSA} - {CH fn_SSL_CTX_set_tmp_rsa_callback = 'SSL_CTX_set_tmp_rsa_callback'; } {Do not localize} - {CH fn_SSL_set_tmp_rsa_callback = 'SSL_set_tmp_rsa_callback'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_DH} - {CH fn_SSL_CTX_set_tmp_dh_callback = 'SSL_CTX_set_tmp_dh_callback'; } {Do not localize} - {CH fn_SSL_set_tmp_dh_callback = 'SSL_set_tmp_dh_callback'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_ECDH} - {CH fn_SSL_CTX_set_tmp_ecdh_callback = 'SSL_CTX_set_tmp_ecdh_callback'; } {Do not localize} - {CH fn_SSL_set_tmp_ecdh_callback = 'SSL_set_tmp_ecdh_callback'; } {Do not localize} - {$ENDIF} - {CH fn_SSL_COMP_add_compression_method = 'SSL_COMP_add_compression_method'; } {Do not localize} - {CH fn_SSL_get_current_expansion = 'SSL_get_current_expansion'; } {Do not localize} - {CH fn_SSL_COMP_get_name = 'SSL_COMP_get_name'; } {Do not localize} - fn_SSL_COMP_get_compression_methods = 'SSL_COMP_get_compression_methods'; {Do not localize} - fn_SSL_COMP_free_compression_methods = 'SSL_COMP_free_compression_methods'; {Do not localize} - // GREGOR - //fn_SSLeay_add_ssl_algorithms = 'mi_SSLeay_add_ssl_algorithms'; {Do not localize} - //why does the function name not match? - // - // RLebeau: because it is not an actual function of its own to begin with. - // It is a precompiler macro that maps to another function - fn_SSLeay_add_ssl_algorithms = 'SSL_library_init'; {Do not localize} - fn_SSL_SESSION_get_id = 'SSL_SESSION_get_id'; {Do not localize} - {CH fn_SSL_is_init_finished = 'mi_SSL_is_init_finished'; } {Do not localize} - {CH fn_SSL_in_init = 'mi_SSL_in_init'; } {Do not localize} - {CH fn_SSL_in_before = 'mi_SSL_in_before'; } {Do not localize} - {CH fn_SSL_in_connect_init = 'mi_SSL_in_connect_init'; } {Do not localize} - {CH fn_SSL_in_accept_init = 'mi_SSL_in_accept_init'; } {Do not localize} - {CH fn_fopen = 'mi_fopen'; } {Do not localize} - {CH fn_fclose = 'mi_fclose'; } {Do not localize} - // - fn_PKCS12_create = 'PKCS12_create'; {Do not localize} - fn_i2d_PKCS12_bio = 'i2d_PKCS12_bio'; {Do not localize} - fn_PKCS12_free = 'PKCS12_free'; {Do not localize} - {CH fn_RAND_set_rand_method = 'RAND_set_rand_method'; } {Do not localize} - {CH fn_RAND_get_rand_method = 'RAND_get_rand_method'; } {Do not localize} - {$IFNDEF OPENSSL_NO_ENGINE} - {CH fn_RAND_set_rand_engine = 'RAND_set_rand_engine'; } {Do not localize} - {$ENDIF} - {CH fn_RAND_SSLeay = 'RAND_SSLeay'; } {Do not localize} - fn_RAND_cleanup = 'RAND_cleanup'; {Do not localize} - fn_RAND_bytes = 'RAND_bytes'; {Do not localize} - fn_RAND_pseudo_bytes = 'RAND_pseudo_bytes'; {Do not localize} - fn_RAND_seed = 'RAND_seed'; {Do not localize} - fn_RAND_add = 'RAND_add'; {Do not localize} - {CH fn_RAND_load_file = 'RAND_load_file'; } {Do not localize} - {CH fn_RAND_write_file = 'RAND_write_file'; } {Do not localize} - {CH fn_RAND_file_name = 'RAND_file_name'; } {Do not localize} - fn_RAND_status = 'RAND_status'; {Do not localize} - {CH fn_RAND_query_egd_bytes = 'RAND_query_egd_bytes'; } {Do not localize} - {CH fn_RAND_egd = 'RAND_egd'; } {Do not localize} - {CH fn_RAND_egd_bytes = 'RAND_egd_bytes'; } {Do not localize} - {CH fn_RAND_poll = 'RAND_poll'; } {Do not localize} - {$IFDEF SYS_WIN} - //GREGOR - fn_RAND_screen = 'RAND_screen'; {Do not localize} - fn_RAND_event = 'RAND_event'; {Do not localize} - {$ENDIF} - {CH fn_ERR_load_RAND_strings = 'ERR_load_RAND_strings'; } {Do not localize} - //experimental - fn_ERR_put_error = 'ERR_put_error'; {Do not localize} - fn_ERR_get_error = 'ERR_get_error'; {Do not localize} -{CH fn_ERR_get_error_line = 'ERR_get_error_line'; } {Do not localize} -{CH fn_ERR_get_error_line_data = 'ERR_get_error_line_data'; } {Do not localize} - fn_ERR_peek_error = 'ERR_peek_error'; {Do not localize} - fn_ERR_peek_last_error = 'ERR_peek_last_error'; {Do not localize} - {CH fn_ERR_peek_error_line = 'ERR_peek_error_line'; } {Do not localize} -{CH fn_ERR_peek_error_line_data = 'ERR_peek_error_line_data'; } {Do not localize} - fn_ERR_peek_last_error_line = 'ERR_peek_last_error_line'; {Do not localize} -{CH fn_ERR_peek_last_error_line_data = 'ERR_peek_last_error_line_data'; } {Do not localize} - fn_ERR_clear_error = 'ERR_clear_error'; {Do not localize} - fn_ERR_error_string = 'ERR_error_string'; {Do not localize} - fn_ERR_error_string_n = 'ERR_error_string_n'; {Do not localize} - fn_ERR_lib_error_string = 'ERR_lib_error_string'; {Do not localize} - fn_ERR_func_error_string = 'ERR_func_error_string'; {Do not localize} - fn_ERR_reason_error_string = 'ERR_reason_error_string'; {Do not localize} -{CH fn_ERR_print_errors_cb = 'ERR_print_errors_cb'; } {Do not localize} - {$IFNDEF OPENSSL_NO_FP_API} -{CH fn_ERR_print_errors_fp = 'ERR_print_errors_fp'; } {Do not localize} - {$ENDIF} - {$IFNDEF OPENSSL_NO_BIO} -{CH fn_ERR_print_errors = 'ERR_print_errors'; } {Do not localize} -{CH fn_ERR_add_error_data = 'ERR_add_error_data'; } {Do not localize} - {$ENDIF} - fn_ERR_load_ERR_strings = 'ERR_load_ERR_strings'; {Do not localize} - fn_ERR_free_strings = 'ERR_free_strings'; {do not localize} - fn_ERR_remove_thread_state = 'ERR_remove_thread_state'; {Do not localize} - fn_ERR_remove_state = 'ERR_remove_state'; {do not localize} -{CH fn_ERR_unload_strings = 'ERR_unload_strings'; } {Do not localize} -{CH fn_ERR_remove_thread_state = 'ERR_remove_thread_state'; } {Do not localize} -{CH fn_ERR_load_ERR_strings = 'ERR_load_ERR_strings'; } {Do not localize} -{CH fn_ERR_load_crypto_strings = 'ERR_load_crypto_strings'; } {Do not localize} -{CH fn_ERR_free_strings = 'ERR_free_strings'; } {Do not localize} -{CH fn_ERR_add_error_vdata = 'ERR_add_error_vdata'; } {Do not localize} -{CH fn_ERR_remove_state = 'ERR_remove_state'; } {Do not localize} -{CH fn_ERR_get_state = 'ERR_get_state'; } {Do not localize} - {$IFNDEF OPENSSL_NO_LHASH} - {CH fn_ERR_get_string_table = 'ERR_get_string_table'; } {Do not localize} - {CH fn_ERR_get_err_state_table = 'ERR_get_err_state_table'; } {Do not localize} - {CH fn_ERR_release_err_state_table = 'ERR_release_err_state_table'; } {Do not localize} - {$ENDIF} - {CH fn_ERR_get_next_error_library = 'ERR_get_next_error_library'; } {Do not localize} - {CH fn_ERR_set_mark = 'ERR_set_mark'; } {Do not localize} - {CH fn_ERR_pop_to_mark = 'ERR_pop_to_mark'; } {Do not localize} - {$IFDEF OPENSSL_FIPS} - {CH fn_int_ERR_set_state_func = 'int_ERR_set_state_func'; } {Do not localize} - {CH fn_int_ERR_lib_init = 'int_ERR_lib_init'; } {Do not localize} - {$ENDIF} - {CH fn_UI_new = 'UI_new'; } {Do not localize} - {CH fn_UI_new_method = 'UI_new_method'; } {Do not localize} - {CH fn_UI_free = 'UI_free'; } {Do not localize} - {CH fn_UI_add_input_string = 'UI_add_input_string'; } {Do not localize} - {CH fn_UI_dup_input_string = 'UI_dup_input_string'; } {Do not localize} - {CH fn_UI_add_verify_string = 'UI_add_verify_string'; } {Do not localize} - {CH fn_UI_dup_verify_string = 'UI_dup_verify_string'; } {Do not localize} - {CH fn_UI_add_input_boolean = 'UI_add_input_boolean'; } {Do not localize} - {CH fn_UI_dup_input_boolean = 'UI_dup_input_boolean'; } {Do not localize} - {CH fn_UI_add_info_string = 'UI_add_info_string'; } {Do not localize} - {CH fn_UI_dup_info_string = 'UI_dup_info_string'; } {Do not localize} - {CH fn_UI_add_error_string = 'UI_add_error_string'; } {Do not localize} - {CH fn_UI_dup_error_string = 'UI_dup_error_string'; } {Do not localize} - {CH fn_UI_construct_prompt = 'UI_construct_prompt'; } {Do not localize} - {CH fn_UI_add_user_data = 'UI_add_user_data'; } {Do not localize} - {CH fn_UI_get0_user_data = 'UI_get0_user_data'; } {Do not localize} - {CH fn_UI_get0_resul = 'UI_get0_resul'; } {Do not localize} - {CH fn_UI_process = 'UI_process'; } {Do not localize} - {CH fn_UI_ctrl = 'UI_ctrl'; } {Do not localize} - {CH fn_UI_get_ex_new_index = 'UI_get_ex_new_index'; } {Do not localize} - {CH fn_UI_set_ex_data = 'UI_set_ex_data'; } {Do not localize} - {CH fn_UI_get_ex_data = 'UI_get_ex_data'; } {Do not localize} - {CH fn_UI_set_default_method = 'UI_set_default_method'; } {Do not localize} - {CH fn_UI_get_method = 'UI_get_method'; } {Do not localize} - {CH fn_UI_set_method = 'UI_set_method'; } {Do not localize} - {CH fn_UI_OpenSSL = 'UI_OpenSSL'; } {Do not localize} - {CH fn_UI_create_method = 'UI_create_method'; } {Do not localize} - {CH fn_UI_destroy_method = 'UI_destroy_method'; } {Do not localize} - {CH fn_UI_method_set_opener = 'UI_method_set_opener'; } {Do not localize} - {CH fn_UI_method_set_writer = 'UI_method_set_writer'; } {Do not localize} - {CH fn_UI_method_set_flusher = 'UI_method_set_flusher'; } {Do not localize} - {CH fn_UI_method_set_reader = 'UI_method_set_reader'; } {Do not localize} - {CH fn_UI_method_set_closer = 'UI_method_set_closer'; } {Do not localize} - {CH fn_UI_get_string_type = 'UI_get_string_type'; } {Do not localize} - {CH fn_UI_get_input_flags = 'UI_get_input_flags'; } {Do not localize} - {CH fn_UI_get0_output_string = 'UI_get0_output_string'; } {Do not localize} - {CH fn_UI_get0_action_string = 'UI_get0_action_string'; } {Do not localize} - {CH fn_UI_get0_result_string = 'UI_get0_result_string'; } {Do not localize} - {CH fn_UI_get0_test_string = 'UI_get0_test_string'; } {Do not localize} - {CH fn_UI_get_result_minsize = 'UI_get_result_minsize'; } {Do not localize} - {CH fn_UI_get_result_maxsize = 'UI_get_result_maxsize'; } {Do not localize} - {CH fn_UI_set_result = 'UI_set_result'; } {Do not localize} - {CH fn_UI_UTIL_read_pw_string = 'UI_UTIL_read_pw_string'; } {Do not localize} - {CH fn_UI_UTIL_read_pw = 'UI_UTIL_read_pw'; } {Do not localize} - {CH fn_ERR_load_UI_strings = 'ERR_load_UI_strings'; } {Do not localize} - {$IFNDEF OPENSSL_NO_ENGINE} - {CH fn_ENGINE_get_first = 'ENGINE_get_first'; } {Do not localize} - {CH fn_ENGINE_get_last = 'ENGINE_get_last'; } {Do not localize} - {CH fn_ENGINE_get_next = 'ENGINE_get_next'; } {Do not localize} - {CH fn_ENGINE_get_prev = 'ENGINE_get_prev'; } {Do not localize} - {CH fn_ENGINE_add = 'ENGINE_add'; } {Do not localize} - {CH fn_ENGINE_remove = 'ENGINE_remove'; } {Do not localize} - {CH fn_ENGINE_by_id = 'ENGINE_by_id'; } {Do not localize} - {CH fn_ENGINE_load_openssl = 'ENGINE_load_openssl'; } {Do not localize} - {CH fn_ENGINE_load_dynamic = 'ENGINE_load_dynamic'; } {Do not localize} - {$IFNDEF OPENSSL_NO_STATIC_ENGINE} - {CH fn_ENGINE_load_4758cca = 'ENGINE_load_4758cca'; } {Do not localize} - {CH fn_ENGINE_load_aep = 'ENGINE_load_aep'; } {Do not localize} - {CH fn_ENGINE_load_atalla = 'ENGINE_load_atalla'; } {Do not localize} - {CH fn_ENGINE_load_chil = 'ENGINE_load_chil'; } {Do not localize} - {CH fn_ENGINE_load_cswift = 'ENGINE_load_cswift'; } {Do not localize} - {$IFNDEF OPENSSL_NO_GMP} - {CH fn_ENGINE_load_gmp = 'ENGINE_load_gmp'; } {Do not localize} - {$ENDIF} - {CH fn_ENGINE_load_nuron = 'ENGINE_load_nuron'; } {Do not localize} - {CH fn_ENGINE_load_sureware = 'ENGINE_load_sureware'; } {Do not localize} - {CH fn_ENGINE_load_ubsec = 'ENGINE_load_ubsec'; } {Do not localize} - {$ENDIF} - {CH fn_ENGINE_load_cryptodev = 'ENGINE_load_cryptodev'; } {Do not localize} - {CH fn_ENGINE_load_padlock = 'ENGINE_load_padlock'; } {Do not localize} - {CH fn_ENGINE_load_builtin_engines = 'ENGINE_load_builtin_engines'; } {Do not localize} - {$IFDEF WIN32_OR_WIN64} - {$IFNDEF OPENSSL_NO_CAPIENG} - {CH fn_ENGINE_load_capi = 'ENGINE_load_capi'; } {Do not localize} - {$ENDIF} - {$ENDIF} - {CH fn_ENGINE_get_table_flags = 'ENGINE_get_table_flags'; } {Do not localize} - {CH fn_ENGINE_set_table_flags = 'ENGINE_set_table_flags'; } {Do not localize} - {CH fn_ENGINE_register_RSA = 'ENGINE_register_RSA'; } {Do not localize} - {CH fn_ENGINE_unregister_RSA = 'ENGINE_unregister_RSA'; } {Do not localize} - {CH fn_ENGINE_register_all_RSA = 'ENGINE_register_all_RSA'; } {Do not localize} - {CH fn_ENGINE_register_DSA = 'ENGINE_register_DSA'; } {Do not localize} - {CH fn_ENGINE_unregister_DSA = 'ENGINE_unregister_DSA'; } {Do not localize} - {CH fn_ENGINE_register_all_DSA = 'ENGINE_register_all_DSA'; } {Do not localize} - {CH fn_ENGINE_register_ECDH = 'ENGINE_register_ECDH'; } {Do not localize} - {CH fn_ENGINE_unregister_ECDH = 'ENGINE_unregister_ECDH'; } {Do not localize} - {CH fn_ENGINE_register_all_ECDH = 'ENGINE_register_all_ECDH'; } {Do not localize} - {CH fn_ENGINE_register_ECDSA = 'ENGINE_register_ECDSA'; } {Do not localize} - {CH fn_ENGINE_unregister_ECDSA = 'ENGINE_unregister_ECDSA'; } {Do not localize} - {CH fn_ENGINE_register_all_ECDSA = 'ENGINE_register_all_ECDSA'; } {Do not localize} - {CH fn_ENGINE_register_DH = 'ENGINE_register_DH'; } {Do not localize} - {CH fn_ENGINE_unregister_DH = 'ENGINE_unregister_DH'; } {Do not localize} - {CH fn_ENGINE_register_all_DH = 'ENGINE_register_all_DH'; } {Do not localize} - {CH fn_ENGINE_register_RAND = 'ENGINE_register_RAND'; } {Do not localize} - {CH fn_ENGINE_unregister_RAND = 'ENGINE_unregister_RAND'; } {Do not localize} - {CH fn_ENGINE_register_all_RAND = 'ENGINE_register_all_RAND'; } {Do not localize} - {CH fn_ENGINE_register_STORE = 'ENGINE_register_STORE'; } {Do not localize} - {CH fn_ENGINE_unregister_STORE = 'ENGINE_unregister_STORE'; } {Do not localize} - {CH fn_ENGINE_register_all_STORE = 'ENGINE_register_all_STORE'; } {Do not localize} - {CH fn_ENGINE_register_ciphers = 'ENGINE_register_ciphers'; } {Do not localize} - {CH fn_ENGINE_unregister_ciphers = 'ENGINE_unregister_ciphers'; } {Do not localize} - {CH fn_ENGINE_register_all_ciphers = 'ENGINE_register_all_ciphers'; } {Do not localize} - {CH fn_ENGINE_register_digests = 'ENGINE_register_digests'; } {Do not localize} - {CH fn_ENGINE_unregister_digests = 'ENGINE_unregister_digests'; } {Do not localize} - {CH fn_ENGINE_register_all_digests= 'ENGINE_register_all_digests'; } {Do not localize} - {CH fn_ENGINE_register_complete = 'ENGINE_register_complete'; } {Do not localize} - {CH fn_ENGINE_register_all_complete = 'ENGINE_register_all_complete'; } {Do not localize} - {CH fn_ENGINE_ctrl = 'ENGINE_ctrl'; } {Do not localize} - {CH fn_ENGINE_cmd_is_executable = 'ENGINE_cmd_is_executable'; } {Do not localize} - {CH fn_ENGINE_ctrl_cmd = 'ENGINE_ctrl_cmd'; } {Do not localize} - {CH fn_ENGINE_ctrl_cmd_string = 'ENGINE_ctrl_cmd_string'; } {Do not localize} - {CH fn_ENGINE_new = 'ENGINE_new'; } {Do not localize} - {CH fn_ENGINE_free = 'ENGINE_free'; } {Do not localize} - {CH fn_ENGINE_up_ref = 'ENGINE_up_ref'; } {Do not localize} - {CH fn_ENGINE_set_id = 'ENGINE_set_id'; } {Do not localize} - {CH fn_ENGINE_set_name = 'ENGINE_set_name'; } {Do not localize} - {CH fn_ENGINE_set_RSA = 'ENGINE_set_RSA'; } {Do not localize} - {CH fn_ENGINE_set_DSA = 'ENGINE_set_DSA'; } {Do not localize} - {CH fn_ENGINE_set_ECDH = 'ENGINE_set_ECDH'; } {Do not localize} - {CH fn_ENGINE_set_ECDSA = 'ENGINE_set_ECDSA'; } {Do not localize} - {CH fn_ENGINE_set_DH = 'ENGINE_set_DH'; } {Do not localize} - {CH fn_ENGINE_set_RAND = 'ENGINE_set_RAND'; } {Do not localize} - {CH fn_ENGINE_set_STORE = 'ENGINE_set_STORE'; } {Do not localize} - {CH fn_ENGINE_set_destroy_function = 'ENGINE_set_destroy_function'; } {Do not localize} - {CH fn_ENGINE_set_init_function = 'ENGINE_set_init_function'; } {Do not localize} - {CH fn_ENGINE_set_finish_function = 'ENGINE_set_finish_function'; } {Do not localize} - {CH fn_ENGINE_set_ctrl_function = 'ENGINE_set_ctrl_function'; } {Do not localize} - {CH fn_ENGINE_set_load_privkey_function = 'ENGINE_set_load_privkey_function'; } {Do not localize} - {CH fn_ENGINE_set_load_pubkey_function = 'ENGINE_set_load_pubkey_function'; } {Do not localize} - {CH fn_ENGINE_set_load_ssl_client_cert_function = 'ENGINE_set_load_ssl_client_cert_function'; } {Do not localize} - {CH fn_ENGINE_set_ciphers = 'ENGINE_set_ciphers'; } {Do not localize} - {CH fn_ENGINE_set_digests = 'ENGINE_set_digests'; } {Do not localize} - {CH fn_ENGINE_set_flags = 'ENGINE_set_flags'; } {Do not localize} - {CH fn_ENGINE_set_cmd_defns = 'ENGINE_set_cmd_defns'; } {Do not localize} - {CH fn_ENGINE_get_ex_new_index = 'ENGINE_get_ex_new_index'; } {Do not localize} - {CH fn_ENGINE_set_ex_data = 'ENGINE_set_ex_data'; } {Do not localize} - {CH fn_ENGINE_get_ex_data = 'ENGINE_get_ex_data'; } {Do not localize} - {CH fn_ENGINE_cleanup = 'ENGINE_cleanup'; } {Do not localize} - {CH fn_ENGINE_get_id = 'ENGINE_get_id'; } {Do not localize} - {CH fn_ENGINE_get_name = 'ENGINE_get_name'; } {Do not localize} - {CH fn_ENGINE_get_RSA = 'ENGINE_get_RSA'; } {Do not localize} - {CH fn_ENGINE_get_DSA = 'ENGINE_get_DSA'; } {Do not localize} - {CH fn_ENGINE_get_ECDH = 'ENGINE_get_ECDH'; } {Do not localize} - {CH fn_ENGINE_get_ECDSA = 'ENGINE_get_ECDSA'; } {Do not localize} - {CH fn_ENGINE_get_DH = 'ENGINE_get_DH'; } {Do not localize} - {CH fn_ENGINE_get_RAND = 'ENGINE_get_RAND'; } {Do not localize} - {CH fn_ENGINE_get_STORE = 'ENGINE_get_STORE'; } {Do not localize} - {CH fn_ENGINE_get_destroy_function = 'ENGINE_get_destroy_function'; } {Do not localize} - {CH fn_ENGINE_get_init_function = 'ENGINE_get_init_function'; } {Do not localize} - {CH fn_ENGINE_get_finish_function = 'ENGINE_get_finish_function'; } {Do not localize} - {CH fn_ENGINE_get_ctrl_function = 'ENGINE_get_ctrl_function'; } {Do not localize} - {CH fn_ENGINE_get_load_privkey_function = 'ENGINE_get_load_privkey_function'; } {Do not localize} - {CH fn_ENGINE_get_load_pubkey_function = 'ENGINE_get_load_pubkey_function'; } {Do not localize} - {CH fn_ENGINE_get_ssl_client_cert_function = 'ENGINE_get_ssl_client_cert_function'; } {Do not localize} - {CH fn_ENGINE_get_ciphers = 'ENGINE_get_ciphers'; } {Do not localize} - {CH fn_ENGINE_get_digests = 'ENGINE_get_digests'; } {Do not localize} - {CH fn_ENGINE_get_cipher = 'ENGINE_get_cipher'; } {Do not localize} - {CH fn_ENGINE_get_digest = 'ENGINE_get_digest'; } {Do not localize} - {CH fn_ENGINE_get_cmd_defns = 'ENGINE_get_cmd_defns'; } {Do not localize} - {CH fn_ENGINE_get_flags = 'ENGINE_get_flags'; } {Do not localize} - {CH fn_ENGINE_init = 'ENGINE_init'; } {Do not localize} - {CH fn_ENGINE_finish = 'ENGINE_finish'; } {Do not localize} - {CH fn_ENGINE_load_private_key = 'ENGINE_load_private_key'; } {Do not localize} - {CH fn_ENGINE_load_public_key = 'ENGINE_load_public_key'; } {Do not localize} - {CH fn_ENGINE_load_ssl_client_cert = 'ENGINE_load_ssl_client_cert'; } {Do not localize} - {CH fn_ENGINE_get_default_RSA = 'ENGINE_get_default_RSA'; } {Do not localize} - {CH fn_ENGINE_get_default_DSA = 'ENGINE_get_default_DSA'; } {Do not localize} - {CH fn_ENGINE_get_default_ECDH = 'ENGINE_get_default_ECDH'; } {Do not localize} - {CH fn_ENGINE_get_default_ECDSA = 'ENGINE_get_default_ECDSA'; } {Do not localize} - {CH fn_ENGINE_get_default_DH = 'ENGINE_get_default_DH'; } {Do not localize} - {CH fn_ENGINE_get_default_RAND = 'ENGINE_get_default_RAND'; } {Do not localize} - {CH fn_ENGINE_get_cipher_engine = 'ENGINE_get_cipher_engine'; } {Do not localize} - {CH fn_ENGINE_get_digest_engine = 'ENGINE_get_digest_engine'; } {Do not localize} - {CH fn_ENGINE_set_default_RSA = 'ENGINE_set_default_RSA'; } {Do not localize} - {CH fn_ENGINE_set_default_string = 'ENGINE_set_default_string'; } {Do not localize} - {CH fn_ENGINE_set_default_DSA = 'ENGINE_set_default_DSA'; } {Do not localize} - {CH fn_ENGINE_set_default_ECDH = 'ENGINE_set_default_ECDH'; } {Do not localize} - {CH fn_ENGINE_set_default_ECDSA = 'ENGINE_set_default_ECDSA'; } {Do not localize} - {CH fn_ENGINE_set_default_DH = 'ENGINE_set_default_DH'; } {do not localize} - {CH fn_ENGINE_set_default_RAND = 'ENGINE_set_default_RAND'; } {Do not localize} - {CH fn_ENGINE_set_default_ciphers = 'ENGINE_set_default_ciphers'; } {Do not localize} - {CH fn_ENGINE_set_default_digests = 'ENGINE_set_default_digests'; } {Do not localize} - {CH fn_ENGINE_set_default = 'ENGINE_set_default'; } {Do not localize} - {CH fn_ENGINE_add_conf_module = 'ENGINE_add_conf_module'; } {Do not localize} - {CH fn_ENGINE_get_static_state = 'ENGINE_get_static_state'; } {Do not localize} - {$IFDEF OPENBSD} - {CH fn_ENGINE_setup_bsd_cryptodev = 'ENGINE_setup_bsd_cryptodev'; } {Do not localize} - {$ENDIF} - {$IFDEF FREEBSD} - {CH fn_ENGINE_setup_bsd_cryptodev = 'ENGINE_setup_bsd_cryptodev'; } {Do not localize} - {$ENDIF} - {CH fn_ERR_load_ENGINE_strings = 'ERR_load_ENGINE_strings'; } {Do not localize} - {$ENDIF} - {$IFDEF OPENSSL_EXPORT_VAR_AS_FUNCTION} - //These have a gl prefix because they may not be functions in some platforms. - //They are functions in Win32 because DLL's can't export global variables - //while Unix shared objects may expose them. - {CH gl_ASN1_OBJECT_it = 'ASN1_OBJECT_it'; } {do not localize} - {CH gl_ASN1_OCTET_STRING_NDEF_it = 'ASN1_OCTET_STRING_NDEF_it'; } {Do not localize} - {CH gl_ASN1_BOOLEAN_it = 'ASN1_BOOLEAN_it'; } {Do not localize} - {CH gl_ASN1_SEQUENCE_it = 'ASN1_SEQUENCE_it'; } {Do not localize} - {CH gl_CBIGNUM_it = 'CBIGNUM_it'; } {Do not localize} - {CH gl_BIGNUM_it = 'BIGNUM_it'; } {Do not localize} - {CH gl_LONG_it = 'LONG_it'; } {Do not localize} - {CH gl_ZLONG_it = 'ZLONG_it'; } {Do not localize} - {CH gl_POLICY_MAPPING_it = 'POLICY_MAPPING_it'; } {Do not localize} - {CH gl_POLICY_MAPPINGS_it = 'POLICY_MAPPINGS_it'; } {Do not localize} - {CH gl_GENERAL_SUBTREE_it = 'GENERAL_SUBTREE_it'; } {Do not localize} - {CH gl_NAME_CONSTRAINTS_it = 'NAME_CONSTRAINTS_it'; } {Do not localize} - {CH gl_POLICY_CONSTRAINTS_it = 'POLICY_CONSTRAINTS_it'; } {Do not localize} - {$ENDIF} - - -function LoadFunction(const FceName: TIdLibFuncName; const ACritical : Boolean = True): Pointer; -{$IFDEF WINDOWS} -var - Err: DWORD; -{$ENDIF} -begin - Result := LoadLibFunction(hIdSSL, FceName); - if (Result <> nil) or (not ACritical) then begin - Exit; - end; - {$IFDEF WINDOWS} - Err := GetLastError(); - if Err <> ERROR_PROC_NOT_FOUND then begin - FFailedLoadList.Add(IndyFormat(RSOSSMissingExport_WithErrCode, [FceName, Err])); - Exit; - end; - {$ELSE} - // TODO: add error code to message... - {$ENDIF} - FFailedLoadList.Add(FceName); -end; - -function LoadFunctionCLib(const FceName: TIdLibFuncName; const ACritical : Boolean = True): Pointer; -{$IFDEF WINDOWS} -var - Err: DWORD; -{$ENDIF} -begin - Result := LoadLibFunction(hIdCrypto, FceName); - if (Result <> nil) or (not ACritical) then begin - Exit; - end; - {$IFDEF WINDOWS} - Err := GetLastError(); - if Err <> ERROR_PROC_NOT_FOUND then begin - FFailedLoadList.Add(IndyFormat(RSOSSMissingExport_WithErrCode, [FceName, Err])); - Exit; - end; - {$ELSE} - // TODO: add error code to message... - {$ENDIF} - FFailedLoadList.Add(FceName); -end; - -// Id_ossl_old_des_set_odd_parity -{ -IMPORTANT!!! - -Indy DES support probably had been written to use some old "des_" functions. -The OpenSSL developers changed that interface to a new "des_*" API. They have some - "_ossl_old_des_*" for backwards compatability with the old functions - which are defined in des_old.h. -} -function LoadOldCLib(const AOldName, ANewName : TIdLibFuncName; const ACritical : Boolean = True): Pointer; -{$IFDEF WINDOWS} -var - Err: DWORD; -{$ENDIF} -begin - Result := LoadLibFunction(hIdCrypto, AOldName); - if Result <> nil then begin - Exit; - end; - {$IFDEF WINDOWS} - if ACritical then begin - Err := GetLastError(); - if Err <> ERROR_PROC_NOT_FOUND then begin - FFailedLoadList.Add(IndyFormat(RSOSSMissingExport_WithErrCode, [AOldName, Err])); - Exit; - end; - end; - {$ENDIF} - Result := LoadLibFunction(hIdCrypto, ANewName); - if (Result <> nil) or (not ACritical) then begin - Exit; - end; - {$IFDEF WINDOWS} - Err := GetLastError(); - if Err <> ERROR_PROC_NOT_FOUND then begin - FFailedLoadList.Add(IndyFormat(RSOSSMissingExport_WithErrCode, [ANewName, Err])); - Exit; - end; - {$ELSE} - // TODO: add error code to message... - {$ENDIF} - FFailedLoadList.Add(AOldName); -end; - -{$ENDIF} // STATICLOAD_OPENSSL - -// remove this function, it is not used -function ErrMsg(AErr : TIdC_ULONG) : string; -const - sMaxErrStr = 300; -var - LString: array[0..sMaxErrStr] of TIdAnsiChar; - {$IFDEF USE_MARSHALLED_PTRS} - LStringPtr: TPtrWrapper; - {$ENDIF} -begin - {$IFDEF USE_MARSHALLED_PTRS} - LStringPtr := TPtrWrapper.Create(@LString[0]); - {$ENDIF} - ERR_error_string_n(AErr, - {$IFDEF USE_MARSHALLED_PTRS} - LStringPtr.ToPointer - {$ELSE} - LString - {$ENDIF}, sMaxErrStr); - LString[sMaxErrStr] := TIdAnsiChar(0); - {$IFDEF USE_MARSHALLED_PTRS} - Result := TMarshal.ReadStringAsAnsi(LStringPtr); - {$ELSE} - Result := String(LString); - {$ENDIF} -end; - -{$IFNDEF STATICLOAD_OPENSSL} - -{$UNDEF USE_BASEUNIX_OR_VCL_POSIX} -{$IFDEF USE_BASEUNIX} - {$DEFINE USE_BASEUNIX_OR_VCL_POSIX} -{$ENDIF} -{$IFDEF USE_VCL_POSIX} - {$DEFINE USE_BASEUNIX_OR_VCL_POSIX} -{$ENDIF} - -{$UNDEF USE_BASEUNIX_OR_VCL_POSIX_OR_KYLIXCOMPAT} -{$IFDEF USE_BASEUNIX_OR_VCL_POSIX} - {$DEFINE USE_BASEUNIX_OR_VCL_POSIX_OR_KYLIXCOMPAT} -{$ENDIF} -{$IFDEF KYLIXCOMPAT} - {$DEFINE USE_BASEUNIX_OR_VCL_POSIX_OR_KYLIXCOMPAT} -{$ENDIF} - -var - GIdOpenSSLPath: String = ''; - -procedure IdOpenSSLSetLibPath(const APath: String); -begin - if APath <> '' then begin - GIdOpenSSLPath := IndyIncludeTrailingPathDelimiter(APath); - end else begin - GIdOpenSSLPath := ''; - end; -end; - - {$IFDEF UNIX} -var - // TODO: default these to False instead, as modern systems now - // use symlinks that point to OpenSSL 1.1.x+, which is not - // compatible with this unit... - GIdCanLoadSymLinks: Boolean = True; - GIdLoadSymLinksFirst: Boolean = True; - -procedure IdOpenSSLSetCanLoadSymLinks(ACanLoad: Boolean); -begin - GIdCanLoadSymLinks := ACanLoad; -end; - -procedure IdOpenSSLSetLoadSymLinksFirst(ALoadFirst: Boolean); -begin - GIdLoadSymLinksFirst := ALoadFirst; -end; - {$ENDIF} - -function LoadSSLCryptoLibrary: TIdLibHandle; -{$IFDEF WINDOWS} -var - Err: DWORD; -{$ELSE} - {$IFDEF USE_BASEUNIX_OR_VCL_POSIX_OR_KYLIXCOMPAT} // TODO: use {$IF DEFINED(UNIX)} instead? -var - i, j: Integer; - LLibVersions: array [0..26] of string; - LCanLoadSymLinks, LLoadSymLinksFirst: Boolean; - {$ENDIF} -{$ENDIF} -begin - {$IFDEF WINDOWS} - //On Windows, you should use SafeLoadLibrary because - //the LoadLibrary API call messes with the FPU control word. - Result := SafeLoadLibrary(GIdOpenSSLPath + SSLCLIB_DLL_name); - if Result <> IdNilHandle then begin - Exit; - end; - {$ELSE} - {$IFDEF USE_BASEUNIX_OR_VCL_POSIX_OR_KYLIXCOMPAT} // TODO: use {$IF DEFINED(UNIX)} instead? - // Workaround that is required under Linux (changed RTLD_GLOBAL with RTLD_LAZY Note: also work with LoadLibrary()) - Result := IdNilHandle; - LCanLoadSymLinks := GIdCanLoadSymLinks; - LLoadSymLinksFirst := GIdLoadSymLinksFirst; - if LCanLoadSymLinks and LLoadSymLinksFirst then begin - Result := HackLoad(GIdOpenSSLPath + SSLCLIB_DLL_name, []); - if Result <> IdNilHandle then begin - Exit; - end; - // TODO: exit here if the error is anything other than the file not being found... - end; - for i := Low(SSLDLLVers) to High(SSLDLLVers) do begin - for j := Low(SSLDLLVersChar) to High(SSLDLLVersChar) do begin - LLibVersions[j] := SSLDLLVers[i] + SSLDLLVersChar[j]; - end; - Result := HackLoad(GIdOpenSSLPath + SSLCLIB_DLL_name, LLibVersions); - if Result <> IdNilHandle then begin - Exit; - end; - // TODO: exit here if the error is anything other than the file not being found... - end; - if LCanLoadSymLinks and (not LLoadSymLinksFirst) then begin - Result := HackLoad(GIdOpenSSLPath + SSLCLIB_DLL_name, []); - if Result <> IdNilHandle then begin - Exit; - end; - // TODO: exit here if the error is anything other than the file not being found... - end; - {$ELSE} - Result := IdNilHandle; - {$ENDIF} - {$ENDIF} - {$IFDEF WINDOWS} - Err := GetLastError; - FFailedLoadList.Add(IndyFormat(RSOSSFailedToLoad_WithErrCode, [GIdOpenSSLPath + SSLCLIB_DLL_name, Err])); - {$ELSE} - // TODO: add error code to message... - FFailedLoadList.Add(IndyFormat(RSOSSFailedToLoad, [GIdOpenSSLPath + SSLCLIB_DLL_name {$IFDEF UNIX}+ LIBEXT{$ENDIF}])); - {$ENDIF} -end; - -function LoadSSLLibrary: TIdLibHandle; -{$IFDEF WINDOWS} -var - Err: DWORD; -{$ELSE} - {$IFDEF USE_BASEUNIX_OR_VCL_POSIX_OR_KYLIXCOMPAT} // TODO: use {$IF DEFINED(UNIX)} instead? -var - i, j: Integer; - LLibVersions: array [0..26] of string; - LCanLoadSymLinks, LLoadSymLinksFirst: Boolean; - {$ENDIF} -{$ENDIF} -begin - {$IFDEF WINDOWS} - //On Windows, you should use SafeLoadLibrary because - //the LoadLibrary API call messes with the FPU control word. - Result := SafeLoadLibrary(GIdOpenSSLPath + SSL_DLL_name); - if Result <> IdNilHandle then begin - Exit; - end; - // TODO: exit here if the error is anything other than the file not being found... - //This is a workaround for mingw32-compiled SSL .DLL which - //might be named 'libssl32.dll'. - Result := SafeLoadLibrary(GIdOpenSSLPath + SSL_DLL_name_alt); - if Result <> IdNilHandle then begin - Exit; - end; - {$ELSE} - {$IFDEF USE_BASEUNIX_OR_VCL_POSIX_OR_KYLIXCOMPAT} // TODO: use {$IF DEFINED(UNIX)} instead? - // Workaround that is required under Linux (changed RTLD_GLOBAL with RTLD_LAZY Note: also work with LoadLibrary()) - Result := IdNilHandle; - LCanLoadSymLinks := GIdCanLoadSymLinks; - LLoadSymLinksFirst := GIdLoadSymLinksFirst; - if LCanLoadSymLinks and LLoadSymLinksFirst then begin - Result := HackLoad(GIdOpenSSLPath + SSL_DLL_name, []); - if Result <> IdNilHandle then begin - Exit; - end; - // TODO: exit here if the error is anything other than the file not being found... - end; - for i := Low(SSLDLLVers) to High(SSLDLLVers) do begin - for j := Low(SSLDLLVersChar) to High(SSLDLLVersChar) do begin - LLibVersions[j] := SSLDLLVers[i] + SSLDLLVersChar[j]; - end; - Result := HackLoad(GIdOpenSSLPath + SSL_DLL_name, LLibVersions); - if Result <> IdNilHandle then begin - Exit; - end; - // TODO: exit here if the error is anything other than the file not being found... - end; - if LCanLoadSymLinks and (not LLoadSymLinksFirst) then begin - Result := HackLoad(GIdOpenSSLPath + SSL_DLL_name, []); - if Result <> IdNilHandle then begin - Exit; - end; - // TODO: exit here if the error is anything other than the file not being found... - end; - {$ELSE} - Result := IdNilHandle; - {$ENDIF} - {$ENDIF} - {$IFDEF WINDOWS} - Err := GetLastError; - FFailedLoadList.Add(IndyFormat(RSOSSFailedToLoad_WithErrCode, [GIdOpenSSLPath + SSL_DLL_name, Err])); - {$ELSE} - // TODO: add error code to message... - FFailedLoadList.Add(IndyFormat(RSOSSFailedToLoad, [GIdOpenSSLPath + SSL_DLL_name {$IFDEF UNIX}+ LIBEXT{$ENDIF}])); - {$ENDIF} -end; - -{$ENDIF} // STATICLOAD_OPENSSL - -{$IFDEF ANDROID} -// In Android 6, Google replaced OpenSSL with BoringSSL, which is a fork of -// OpenSSL and does not export many functions, including the following... - -type - msg_callback_proc = procedure(write_p, version, content_type : TIdC_INT; const buf : Pointer; len: size_t; ssl: PSSL; arg: Pointer); cdecl; - -function Indy_ssl_callback_ctrl(s: PSSL; cb_id: TIdC_INT; fp: SSL_METHOD_PROC): TIdC_LONG; cdecl; -begin - if cb_id = SSL_CTRL_SET_MSG_CALLBACK then begin - s.msg_callback := msg_callback_proc(fp); - Result := 1; - end else begin - Result := s.method.ssl_callback_ctrl(s, cb_id, fp); - end; -end; - -function Indy_SSL_CTX_callback_ctrl(ctx: PSSL_CTX; cmd: TIdC_INT; fp: SSL_METHOD_PROC): TIdC_LONG; cdecl; -begin - if cmd = SSL_CTRL_SET_MSG_CALLBACK then begin - ctx.msg_callback := msg_callback_proc(fp); - Result := 1; - end else begin - Result := ctx.method.ssl_ctx_callback_ctrl(ctx, cmd, fp); - end; -end; - -procedure Indy_SSL_copy_session_id(sslTo: PSSL; const sslFrom: PSSL) cdecl; -begin - // TODO: what to do here? -end; - -procedure Indy_CRYPTO_lock(mode, _type : TIdC_INT; const _file : PIdAnsiChar; line : TIdC_INT) cdecl; -begin - // TODO: what to do here? -end; -{$ENDIF} - -{$IFDEF STATICLOAD_OPENSSL} - -function Load: Boolean; -begin - bIsLoaded := True; - Result := True; -end; - -{$ELSE} - -function Load: Boolean; -var - LVersion, LMajor, LMinor: TIdC_ULONG; - LVersionStr: string; -begin - Result := False; - Assert(FFailedLoadList<>nil); - - if (hIdCrypto <> IdNilHandle) and (hIdSSL <> IdNilHandle) and (FFailedLoadList.Count = 0) then begin - Result := True; - Exit; - end; - - FFailedLoadList.Clear; - - if hIdCrypto = IdNilHandle then begin - hIdCrypto := LoadSSLCryptoLibrary; - if hIdCrypto = IdNilHandle then begin - Exit; - end; - end; - - if hIdSSL = IdNilHandle then begin - hIdSSL := LoadSSLLibrary; - if hIdSSL = IdNilHandle then begin - Exit; - end; - end; - - // RLebeau 6/8/2021: verify the type of library is supported... - - @_SSLeay_version := LoadOldCLib(fn_SSLeay_version, 'OpenSSL_version'); {Do not localize} //Used by Indy - @SSLeay := LoadOldCLib(fn_SSLeay, 'OpenSSL_version_num'); {Do not localize} //Used by Indy - - if Assigned(_SSLeay_version) then begin - LVersionStr := String(_SSLeay_version(SSLEAY_VERSION)); - end; - - if TextStartsWith(LVersionStr, 'LibreSSL') then {do not localize} - begin - { - According to the LibreSSL Portable GitHub repo: - https://github.com/libressl-portable/portable - - LibreSSL is API compatible with OpenSSL 1.0.1, but does not yet include all new APIs from OpenSSL 1.0.2 and later. - LibreSSL also includes APIs not yet present in OpenSSL. The current common API subset is OpenSSL 1.0.1. - - LibreSSL is not ABI compatible with any release of OpenSSL, or necessarily earlier releases of LibreSSL. - You will need to relink your programs to LibreSSL in order to use it, just as in moving between major versions - of OpenSSL. LibreSSL's installed library version numbers are incremented to account for ABI and API changes. - } - // TODO: add version checking? - end - else if TextStartsWith(LVersionStr, 'OpenSSL') or (LVersionStr = '') then {do not localize} - begin - // RLebeau 2/2/2021: verify the version is OpenSSL 1.0.2 or earlier, as OpenSSL 1.1.0 made MAJOR changes that we do not support yet... - if Assigned(SSLeay) then - begin - LVersion := SSLeay; - LMajor := (LVersion and $F0000000) shr 28; - LMinor := (LVersion and $0FF00000) shr 20; - if (LMajor = 0) and (LMinor = 0) then begin // < 0.9.3 - LMajor := (LVersion and $F000) shr 12; - LMinor := (LVersion and $0F00) shr 8; - end; - if (LMajor > 1) or ((LMajor = 1) and (LMinor > 0)) then // OpenSSL 1.1.0 or higher - begin - FFailedLoadList.Add(IndyFormat(RSOSSUnsupportedVersion, [LVersion])); - Exit; - end; - end; - end else - begin - FFailedLoadList.Add(IndyFormat(RSOSSUnsupportedLibrary, [LVersionStr])); - Exit; - end; - - // TODO: stop loading non-critical functions here. We should use per-function - // stubs instead, similar to the approach used in IdWinsock2.pas, so functions - // are not loaded until they are actually used for the first time... - - @SSL_CTX_set_cipher_list := LoadFunction(fn_SSL_CTX_set_cipher_list); //Used by Indy - @SSL_CTX_new := LoadFunction(fn_SSL_CTX_new); //Used by Indy - @SSL_CTX_free := LoadFunction(fn_SSL_CTX_free); //Used by Indy - @SSL_set_fd := LoadFunction(fn_SSL_set_fd); //Used by Indy - @SSL_CTX_use_PrivateKey_file := LoadFunction(fn_SSL_CTX_use_PrivateKey_file); //Used by Indy - @SSL_CTX_use_PrivateKey := LoadFunction(fn_SSL_CTX_use_PrivateKey); //Used by Indy - @SSL_CTX_use_certificate := LoadFunction(fn_SSL_CTX_use_certificate); //Used by Indy - @SSL_CTX_use_certificate_file := LoadFunction(fn_SSL_CTX_use_certificate_file); //Used by Indy - @SSL_CTX_use_certificate_chain_file := LoadFunction(fn_SSL_CTX_use_certificate_chain_file,False); //Used by Indy - @SSL_load_error_strings := LoadFunction(fn_SSL_load_error_strings); //Used by Indy - @SSL_state_string_long := LoadFunction(fn_SSL_state_string_long); //Used by Indy - @SSL_alert_desc_string_long := LoadFunction(fn_SSL_alert_desc_string_long); //Used by Indy - @SSL_alert_type_string_long := LoadFunction(fn_SSL_alert_type_string_long); //Used by Indy - - @SSL_get_peer_certificate := LoadFunction(fn_SSL_get_peer_certificate); //Used by Indy - @SSL_CTX_set_verify := LoadFunction(fn_SSL_CTX_set_verify); //Used by Indy - @SSL_CTX_set_verify_depth := LoadFunction(fn_SSL_CTX_set_verify_depth); //Used by Indy - @SSL_CTX_get_verify_depth := LoadFunction(fn_SSL_CTX_get_verify_depth); - @SSL_CTX_set_default_passwd_cb := LoadFunction(fn_SSL_CTX_set_default_passwd_cb); //Used by Indy - @SSL_CTX_set_default_passwd_cb_userdata:= LoadFunction(fn_SSL_CTX_set_default_passwd_cb_userdata); //Used by Indy - @SSL_CTX_check_private_key := LoadFunction(fn_SSL_CTX_check_private_key); //Used by Indy - @SSL_new := LoadFunction(fn_SSL_new); //Used by Indy - @SSL_free := LoadFunction(fn_SSL_free); //Used by Indy - @SSL_accept := LoadFunction(fn_SSL_accept); //Used by Indy - @SSL_connect := LoadFunction(fn_SSL_connect); //Used by Indy - @SSL_read := LoadFunction(fn_SSL_read); //Used by Indy - @SSL_peek := LoadFunction(fn_SSL_peek,False); - @SSL_pending := LoadFunction(fn_SSL_pending,False); - @SSL_write := LoadFunction(fn_SSL_write); //Used by Indy - @SSL_ctrl := LoadFunction(fn_SSL_ctrl); - @SSL_callback_ctrl := LoadFunction(fn_SSL_callback_ctrl{$IFDEF ANDROID}, False{$ENDIF}); - {$IFDEF ANDROID} - if not Assigned(SSL_callback_ctrl) then begin - @SSL_callback_ctrl := @Indy_SSL_callback_ctrl; - end; - {$ENDIF} - @SSL_CTX_ctrl := LoadFunction(fn_SSL_CTX_ctrl); - @SSL_CTX_callback_ctrl := LoadFunction(fn_SSL_CTX_callback_ctrl{$IFDEF ANDROID}, False{$ENDIF}); - {$IFDEF ANDROID} - if not Assigned(SSL_CTX_callback_ctrl) then begin - @SSL_CTX_callback_ctrl := @Indy_SSL_CTX_callback_ctrl; - end; - {$ENDIF} - @SSL_get_error := LoadFunction(fn_SSL_get_error); //Used by Indy - - // RLebeau 9/7/2015 - making all of the "..._method()" functions optional. If - // a user wants to disable a given SSL/TLS version at runtime, there is no need - // for it to be marked as "critical" at load time, in case it is not available - // in their version of OpenSSL. For instance, some vendors disable SSLv2 so - // it is not even exported. If a user wants to use a given version and it is - // not available in their version of OpenSSL, TIdSSLContext.SetSSLMethod() will - // now raise a runtime error... - @SSLv2_method := LoadFunction(fn_SSLv2_method,False); //Used by Indy - @SSLv2_server_method := LoadFunction(fn_SSLv2_server_method,False); //Used by Indy - @SSLv2_client_method := LoadFunction(fn_SSLv2_client_method,False); //Used by Indy - @SSLv3_method := LoadFunction(fn_SSLv3_method,False); //Used by Indy - @SSLv3_server_method := LoadFunction(fn_SSLv3_server_method,False); //Used by Indy - @SSLv3_client_method := LoadFunction(fn_SSLv3_client_method,False); //Used by Indy - @SSLv23_method := LoadFunction(fn_SSLv23_method,False); //Used by Indy - @SSLv23_server_method := LoadFunction(fn_SSLv23_server_method,False); //Used by Indy - @SSLv23_client_method := LoadFunction(fn_SSLv23_client_method,False); //Used by Indy - @TLSv1_method := LoadFunction(fn_TLSv1_method,False); //Used by Indy - @TLSv1_server_method := LoadFunction(fn_TLSv1_server_method,False); //Used by Indy - @TLSv1_client_method := LoadFunction(fn_TLSv1_client_method,False); //Used by Indy - @TLSv1_1_method := LoadFunction(fn_TLSv1_1_method,False); //Used by Indy - @TLSv1_1_server_method := LoadFunction(fn_TLSv1_1_server_method,False); //Used by Indy - @TLSv1_1_client_method := LoadFunction(fn_TLSv1_1_client_method,False); //Used by Indy - @TLSv1_2_method := LoadFunction(fn_TLSv1_2_method,False); //Used by Indy - @TLSv1_2_server_method := LoadFunction(fn_TLSv1_2_server_method,False); //Used by Indy - @TLSv1_2_client_method := LoadFunction(fn_TLSv1_2_client_method,False); //Used by Indy - @DTLSv1_method := LoadFunction(fn_DTLSv1_method, False); - @DTLSv1_server_method := LoadFunction(fn_DTLSv1_server_method, False); - @DTLSv1_client_method := LoadFunction(fn_DTLSv1_client_method, False); - // - - @SSL_shutdown := LoadFunction(fn_SSL_shutdown); //Used by Indy - @SSL_set_connect_state := LoadFunction(fn_SSL_set_connect_state,False); - @SSL_set_accept_state := LoadFunction(fn_SSL_set_accept_state,False); - @SSL_set_shutdown := LoadFunction(fn_SSL_set_shutdown); //Used by Indy - @SSL_CTX_load_verify_locations := LoadFunction(fn_SSL_CTX_load_verify_locations); //Used by Indy - @SSL_get_session := LoadFunction(fn_SSL_get_session); //Used by Indy - @SSLeay_add_ssl_algorithms := LoadFunction(fn_SSLeay_add_ssl_algorithms); //Used by Indy - @SSL_SESSION_get_id := LoadFunction(fn_SSL_SESSION_get_id); //Used by Indy - @SSL_copy_session_id := LoadFunction(fn_SSL_copy_session_id{$IFDEF ANDROID}, False{$ENDIF}); //Used by Indy - {$IFDEF ANDROID} - if not Assigned(SSL_copy_session_id) then begin - @SSL_copy_session_id := @Indy_SSL_copy_session_id; - end; - {$ENDIF} - // CRYPTO LIB - @d2i_X509_NAME := LoadFunctionCLib(fn_d2i_X509_NAME); - @i2d_X509_NAME := LoadFunctionCLib(fn_i2d_X509_NAME); - @X509_NAME_oneline := LoadFunctionCLib(fn_X509_NAME_oneline);//Used by Indy - @X509_NAME_cmp := LoadFunctionCLib(fn_X509_NAME_cmp); //Used by Indy - @X509_NAME_hash := LoadFunctionCLib(fn_X509_NAME_hash); //Used by Indy - @X509_set_issuer_name := LoadFunctionCLib(fn_X509_set_issuer_name,False); - @X509_get_issuer_name := LoadFunctionCLib(fn_X509_get_issuer_name); //Used by Indy - @X509_set_subject_name := LoadFunctionCLib(fn_X509_set_subject_name,False); - @X509_get_subject_name := LoadFunctionCLib(fn_X509_get_subject_name); //Used by Indy - @X509_digest := LoadFunctionCLib(fn_X509_digest);//Used by Indy - @X509_LOOKUP_ctrl := LoadFunctionCLib( fn_X509_LOOKUP_ctrl, False ); - @X509_STORE_add_cert := LoadFunctionCLib(fn_X509_STORE_add_cert); //Used by Indy - @X509_STORE_add_crl := LoadFunctionCLib(fn_X509_STORE_add_crl); //Used by Indy - @X509_STORE_CTX_get_ex_data := LoadFunctionCLib(fn_X509_STORE_CTX_get_ex_data,False); - @X509_STORE_CTX_get_error := LoadFunctionCLib(fn_X509_STORE_CTX_get_error); //Used by Indy - @X509_STORE_CTX_set_error := LoadFunctionCLib(fn_X509_STORE_CTX_set_error,False); - @X509_STORE_CTX_get_error_depth := LoadFunctionCLib(fn_X509_STORE_CTX_get_error_depth); //Used by Indy - @X509_STORE_CTX_get_current_cert := LoadFunctionCLib(fn_X509_STORE_CTX_get_current_cert); //Used by Indy - @X509_STORE_add_lookup := LoadFunctionCLib(fn_X509_STORE_add_lookup); //Used by Indy - @X509_STORE_load_locations := LoadFunctionCLib(fn_X509_STORE_load_locations); //Used by Indy - @X509_sign := LoadFunctionCLib(fn_X509_sign,False); - @X509_REQ_sign := LoadFunctionCLib(fn_X509_REQ_sign,False); - @X509_REQ_add_extensions := LoadFunctionCLib(fn_X509_REQ_add_extensions,False); - @X509V3_EXT_conf_nid := LoadFunctionCLib(fn_X509V3_EXT_conf_nid,False); - @X509_EXTENSION_create_by_NID := LoadFunctionCLib(fn_X509_EXTENSION_create_by_NID,False); - @X509V3_set_ctx := LoadFunctionCLib(fn_X509V3_set_ctx); - @X509_EXTENSION_free := LoadFunctionCLib(fn_X509_EXTENSION_free,False); - @X509_add_ext := LoadFunctionCLib(fn_X509_add_ext,False); - {$IFNDEF OPENSSL_NO_BIO} - //X509_print - @X509_print := LoadFunctionCLib(fn_X509_print, False ); //Used by Indy - {$ENDIF} - @_RAND_cleanup := LoadFunctionCLib(fn_RAND_cleanup, False); //Used by Indy - @_RAND_bytes := LoadFunctionCLib(fn_RAND_bytes); //Used by Indy - @_RAND_pseudo_bytes := LoadFunctionCLib(fn_RAND_pseudo_bytes); //Used by Indy - @_RAND_seed := LoadFunctionCLib(fn_RAND_seed); //Used by Indy - @_RAND_add := LoadFunctionCLib(fn_RAND_add); //Used by Indy - @_RAND_status := LoadFunctionCLib(fn_RAND_status); //Used by Indy - {$IFDEF SYS_WIN} - @_RAND_screen := LoadFunctionCLib(fn_RAND_screen); //Used by Indy - @_RAND_event := LoadFunctionCLib(fn_RAND_event); //Used by Indy - {$ENDIF} - {$IFNDEF OPENSSL_NO_DES} - // 3DES - @DES_set_odd_parity := LoadFunctionCLib(fn_DES_set_odd_parity); //Used by Indy - @DES_set_key := LoadFunctionCLib(fn_DES_set_key); //Used by Indy - @DES_ecb_encrypt := LoadFunctionCLib(fn_DES_ecb_encrypt); //Used by Indy - @Id_ossl_old_des_set_odd_parity := LoadOldCLib(fnold_des_set_odd_parity,fn__ossl_old_des_set_odd_parity,False); - @Id_ossl_old_des_set_key := LoadOldCLib(fnold_des_set_key,fn__ossl_old_des_set_key,False); - @Id_ossl_old_des_ecb_encrypt := LoadOldCLib(fnold_des_ecb_encrypt,fn__ossl_old_des_ecb_encrypt,False); - {$ENDIF} - // More SSL functions - @SSL_set_ex_data := LoadFunction(fn_SSL_set_ex_data,False); - @SSL_get_ex_data := LoadFunction(fn_SSL_get_ex_data,False); - @SSL_load_client_CA_file := LoadFunction(fn_SSL_load_client_CA_file); //Used by Indy - @SSL_CTX_set_client_CA_list := LoadFunction(fn_SSL_CTX_set_client_CA_list); //Used by Indy - @SSL_CTX_set_default_verify_paths := LoadFunction(fn_SSL_CTX_set_default_verify_paths); //Used by Indy - @SSL_CTX_set_session_id_context := LoadFunction(fn_SSL_CTX_set_session_id_context); //Used by Indy - @SSL_CIPHER_description := LoadFunction(fn_SSL_CIPHER_description); //Used by Indy - @SSL_get_current_cipher := LoadFunction(fn_SSL_get_current_cipher); //Used by Indy - @SSL_CIPHER_get_name := LoadFunction(fn_SSL_CIPHER_get_name); //Used by Indy - @SSL_CIPHER_get_version := LoadFunction(fn_SSL_CIPHER_get_version); //Used by Indy - @SSL_CIPHER_get_bits := LoadFunction(fn_SSL_CIPHER_get_bits); //Used by Indy - // Thread safe - @_CRYPTO_lock := LoadFunctionCLib(fn_CRYPTO_lock{$IFDEF ANDROID}, False{$ENDIF}); //Used by Indy - {$IFDEF ANDROID} - if not Assigned(_CRYPTO_lock) then begin - @_CRYPTO_lock := @Indy_CRYPTO_lock; - end; - {$ENDIF} - @_CRYPTO_num_locks := LoadFunctionCLib(fn_CRYPTO_num_locks); //Used by Indy - @CRYPTO_set_locking_callback := LoadFunctionCLib(fn_CRYPTO_set_locking_callback); //Used by Indy - {$IFNDEF WIN32_OR_WIN64} -{ -In OpenSSL 1.0.0, you should use these callback functions instead of the -depreciated set_id_callback. They are not in the older 0.9.8 OpenSSL series so -we have to handle both cases. -} - @CRYPTO_THREADID_set_callback := LoadFunctionCLib(fn_CRYPTO_THREADID_set_callback,False); //Used by Indy - @CRYPTO_THREADID_set_numeric := LoadFunctionClib(fn_CRYPTO_THREADID_set_numeric,False); //Used by Indy - @CRYPTO_THREADID_set_pointer := LoadFunctionClib(fn_CRYPTO_THREADID_set_pointer,False); - if not Assigned(CRYPTO_THREADID_set_callback) then begin //Used by Indy - @CRYPTO_set_id_callback := LoadFunctionCLib(fn_CRYPTO_set_id_callback); //Used by Indy - end else begin - @CRYPTO_set_id_callback := nil; - end; - {$ENDIF} - @ERR_put_error := LoadFunctionCLib(fn_ERR_put_error,False); - @ERR_get_error := LoadFunctionCLib(fn_ERR_get_error,False); - @ERR_peek_error := LoadFunctionCLib(fn_ERR_peek_error,False); - @ERR_peek_last_error := LoadFunctionCLib(fn_ERR_peek_last_error); //Used by Indy - @ERR_clear_error := LoadFunctionCLib(fn_ERR_clear_error); //Used by Indy - @ERR_error_string := LoadFunctionCLib(fn_ERR_error_string, False); - @ERR_error_string_n := LoadFunctionCLib(fn_ERR_error_string_n, False); - @ERR_lib_error_string := LoadFunctionCLib( fn_ERR_lib_error_string, False ); - @ERR_func_error_string := LoadFunctionCLib( fn_ERR_func_error_string, False ); - @ERR_reason_error_string := LoadFunctionCLib( fn_ERR_reason_error_string, False ); - @ERR_load_ERR_strings := LoadFunctionCLib( fn_ERR_load_ERR_strings,False); - @ERR_load_crypto_strings := LoadFunctionCLib(fn_ERR_load_crypto_strings,False); - @ERR_free_strings := LoadFunctionCLib(fn_ERR_free_strings); //Used by Indy - @ERR_remove_thread_state := LoadFunctionCLib(fn_ERR_remove_thread_state,False); //Used by Indy - if not Assigned(ERR_remove_thread_state) then begin - @ERR_remove_state := LoadFunctionCLib(fn_ERR_remove_state); //Used by Indy - end else begin - @ERR_remove_state := nil; - end; - @CRYPTO_cleanup_all_ex_data := LoadFunctionCLib(fn_CRYPTO_cleanup_all_ex_data,False); //Used by Indy - @SSL_COMP_get_compression_methods := LoadFunction(fn_SSL_COMP_get_compression_methods,False); - @SSL_COMP_free_compression_methods := LoadFunction(fn_SSL_COMP_free_compression_methods,False); - @sk_pop_free := LoadFunctionCLib(fn_sk_pop_free,False); - //RSA - @RSA_free := LoadFunctionCLib(fn_RSA_free,False); - @RSA_generate_key_ex := LoadFunctionCLib(fn_RSA_generate_key_ex, False); - @RSA_generate_key := LoadFunctionCLib(fn_RSA_generate_key, False); - // @RSA_generate_key := LoadFunctionCLib(fn_RSA_generate_key, not Assigned(RSA_generate_key_ex)); - @RSA_check_key := LoadFunctionCLib(fn_RSA_check_key,False); - @RSA_new := LoadFunctionCLib(fn_RSA_new,False); - @RSA_size := LoadFunctionCLib(fn_RSA_size,False); - @RSA_private_decrypt := LoadFunctionCLib(fn_RSA_private_decrypt,False); - @RSA_public_encrypt := LoadFunctionCLib(fn_RSA_public_encrypt,False); - //DH - @DH_free := LoadFunctionCLib(fn_DH_free); //Used by Indy - //BN - @BN_new := LoadFunctionCLib(fn_BN_new,False); - @BN_free := LoadFunctionCLib(fn_BN_free,False); - @BN_hex2bn := LoadFunctionCLib(fn_BN_hex2bn,False); - @BN_bn2dec := LoadFunctionCLib(fn_BN_bn2dec,False); - @BN_bn2hex := LoadFunctionCLib(fn_BN_bn2hex,False); - @BN_set_word := LoadFunctionCLib(fn_BN_set_word,False); - //BIO - @BIO_set_flags := LoadFunctionCLib(fn_BIO_set_flags,False); - @BIO_new := LoadFunctionCLib(fn_BIO_new); //Used by Indy - @BIO_push := LoadFunctionCLib(fn_BIO_push,False); - @BIO_pop := LoadFunctionCLib(fn_BIO_pop,False); - @BIO_set_next := LoadFunctionCLib(fn_BIO_set_next,False); - @BIO_free := LoadFunctionCLib(fn_BIO_free); //Used by Indy - @BIO_free_all := LoadFunctionCLib(fn_BIO_free_all,False); - @BIO_new_mem_buf := LoadFunctionCLib(fn_BIO_new_mem_buf); //Used by Indy - @BIO_s_mem := LoadFunctionCLib(fn_BIO_s_mem); //Used by Indy - @BIO_s_file := LoadFunctionCLib(fn_BIO_s_file,False); - @BIO_set_ex_data := LoadFunctionCLib(fn_BIO_set_ex_data,False); - @BIO_get_ex_data := LoadFunctionCLib(fn_BIO_get_ex_data,False); - @BIO_ctrl := LoadFunctionCLib(fn_BIO_ctrl); - @BIO_int_ctrl := LoadFunctionCLib( fn_BIO_int_ctrl,False); - @BIO_ptr_ctrl := LoadFunctionCLib( fn_BIO_ptr_ctrl,False); - @BIO_new_file := LoadFunctionCLib(fn_BIO_new_file); - @BIO_puts := LoadFunctionCLib(fn_BIO_puts,False); - @BIO_read := LoadFunctionCLib(fn_BIO_read,False); - @BIO_write := LoadFunctionCLib(fn_BIO_write,False); - //i2d - @i2d_X509_bio := LoadFunctionCLib(fn_i2d_X509_bio,False); - @i2d_PrivateKey_bio := LoadFunctionCLib(fn_i2d_PrivateKey_bio,False); - @d2i_X509_bio := LoadFunctionCLib(fn_d2i_X509_bio); //Used by Indy - @d2i_PKCS12_bio := LoadFunctionCLib(fn_d2i_PKCS12_bio); //Used by Indy - @PKCS12_parse := LoadFunctionCLib(fn_PKCS12_parse); //Used by Indy - @i2d_X509_REQ_bio := LoadFunctionCLib(fn_i2d_X509_REQ_bio,False); - @i2d_PKCS7 := LoadFunctionCLib(fn_i2d_PKCS7,False); - @d2i_PKCS7 := LoadFunctionCLib(fn_d2i_PKCS7,False); - @i2d_X509 := LoadFunctionCLib(fn_i2d_X509,False); - @d2i_X509 := LoadFunctionCLib(fn_d2i_X509); //Used by Indy - @i2d_X509_REQ := LoadFunctionCLib(fn_i2d_X509_REQ, False); - @d2i_X509_REQ := LoadFunctionCLib(fn_d2i_X509_REQ, False ); - @i2d_X509_CRL := LoadFunctionCLib(fn_i2d_X509_CRL, False ); - @d2i_X509_CRL := LoadFunctionCLib(fn_d2i_X509_CRL,False ); - @i2d_RSAPrivateKey := LoadFunctionCLib(fn_i2d_RSAPrivateKey,False ); - @d2i_RSAPrivateKey := LoadFunctionCLib(fn_d2i_RSAPrivateKey, False ); - @i2d_RSAPublicKey := LoadFunctionCLib(fn_i2d_RSAPublicKey,False); - @d2i_RSAPublicKey := LoadFunctionCLib(fn_d2i_RSAPublicKey,False); - @i2d_PrivateKey := LoadFunctionCLib(fn_i2d_PrivateKey,False); - @d2i_PrivateKey := LoadFunctionCLib(fn_d2i_PrivateKey); //Used by Indy - @d2i_PrivateKey_bio := LoadFunctionCLib(fn_d2i_PrivateKey_bio); //Used by Indy - - @i2d_DSAPrivateKey := LoadFunctionCLib(fn_i2d_DSAPrivateKey); //Used by Indy - @d2i_DSAPrivateKey := LoadFunctionCLib(fn_d2i_DSAPrivateKey); //Used by Indy - @i2d_DSAparams := LoadFunctionCLib(fn_i2d_DSAparams,False); - @d2i_DSAparams := LoadFunctionCLib(fn_d2i_DSAparams,False); - @i2d_DHparams := LoadFunctionCLib(fn_i2d_DHparams,False); - @d2i_DHparams := LoadFunctionCLib(fn_d2i_DHparams); //Used by Indy - @i2d_NETSCAPE_CERT_SEQUENCE := LoadFunctionCLib(fn_i2d_NETSCAPE_CERT_SEQUENCE,False); - @d2i_NETSCAPE_CERT_SEQUENCE := LoadFunctionCLib(fn_d2i_NETSCAPE_CERT_SEQUENCE); //Indy by Indy - @i2d_PUBKEY := LoadFunctionCLib(fn_i2d_PUBKEY,False); - @d2i_PUBKEY := LoadFunctionCLib(fn_d2i_PUBKEY,False); - - //X509 - @X509_get_default_cert_file := LoadFunctionCLib(fn_X509_get_default_cert_file); //Used by Indy - @X509_get_default_cert_file_env := LoadFunctionCLib(fn_X509_get_default_cert_file_env); //Used by Indy - @X509_new := LoadFunctionCLib(fn_X509_new,False); - @X509_free := LoadFunctionCLib(fn_X509_free); //Used by Indy - @X509_REQ_new := LoadFunctionCLib(fn_X509_REQ_new,False); - @X509_REQ_free := LoadFunctionCLib(fn_X509_REQ_free,False); - @X509_to_X509_REQ := LoadFunctionCLib(fn_X509_to_X509_REQ,False); - @X509_NAME_new := LoadFunctionCLib(fn_X509_NAME_new); //Used by Indy - @X509_NAME_free := LoadFunctionCLib(fn_X509_NAME_free); //Used by Indy - @X509_NAME_add_entry_by_txt := LoadFunctionCLib(fn_X509_NAME_add_entry_by_txt); - @X509_INFO_free := LoadFunctionCLib(fn_X509_INFO_free); //Used by Indy - @X509_set_version := LoadFunctionCLib(fn_X509_set_version,False); - @X509_get_serialNumber := LoadFunctionCLib(fn_X509_get_serialNumber); //USED by Indy - @X509_gmtime_adj := LoadFunctionCLib(fn_X509_gmtime_adj,False); - @X509_set_notBefore := LoadFunctionCLib(fn_X509_set_notBefore,False); - @X509_set_notAfter := LoadFunctionCLib(fn_X509_set_notAfter,False); - @X509_set_pubkey := LoadFunctionCLib(fn_X509_set_pubkey,False); - @X509_REQ_set_pubkey := LoadFunctionCLib(fn_X509_REQ_set_pubkey,False); - @X509_PUBKEY_get := LoadFunctionCLib(fn_X509_PUBKEY_get,False); - @X509_verify := LoadFunctionCLib(fn_X509_verify,False); - //PEM - {$IFNDEF SSLEAY_MACROS} - @_PEM_read_bio_X509 := LoadFunctionCLib(fn_PEM_read_bio_X509, False); - @_PEM_read_bio_X509_REQ := LoadFunctionCLib(fn_PEM_read_bio_X509_REQ, False); - @_PEM_read_bio_X509_CRL := LoadFunctionCLib(fn_PEM_read_bio_X509_CRL, False); - @_PEM_read_bio_RSAPrivateKey := LoadFunctionCLib(fn_PEM_read_bio_RSAPrivateKey, False); - @_PEM_read_bio_RSAPublicKey := LoadFunctionCLib(fn_PEM_read_bio_RSAPublicKey, False); - @_PEM_read_bio_DSAPrivateKey := LoadFunctionCLib(fn_PEM_read_bio_DSAPrivateKey, False); - @_PEM_read_bio_PrivateKey := LoadFunctionCLib (fn_PEM_read_bio_PrivateKey,False); - @_PEM_read_bio_PKCS7 := LoadFunctionCLib (fn_PEM_read_bio_PKCS7, False); - @_PEM_read_bio_DHparams := LoadFunctionCLib(fn_PEM_read_bio_DHparams, False); - @_PEM_read_bio_DSAparams := LoadFunctionCLib(fn_PEM_read_bio_DSAparams, False); - @_PEM_read_bio_NETSCAPE_CERT_SEQUENCE := LoadFunctionCLib(fn_PEM_read_bio_NETSCAPE_CERT_SEQUENCE,False); - @_PEM_read_bio_PUBKEY := LoadFunctionCLib(fn_PEM_read_bio_PUBKEY,False); - @_PEM_write_bio_X509 := LoadFunctionCLib(fn_PEM_write_bio_X509,False); - @_PEM_write_bio_X509_REQ := LoadFunctionCLib(fn_PEM_write_bio_X509_REQ,False); - @_PEM_write_bio_X509_CRL := LoadFunctionCLib( fn_PEM_write_bio_X509_CRL,False); - @_PEM_write_bio_RSAPrivateKey := LoadFunctionCLib(fn_PEM_write_bio_RSAPrivateKey,False); - @_PEM_write_bio_RSAPublicKey := LoadFunctionCLib( fn_PEM_write_bio_RSAPublicKey,False); - @_PEM_write_bio_DSAPrivateKey := LoadFunctionCLib( fn_PEM_write_bio_DSAPrivateKey,False); - @_PEM_write_bio_PrivateKey := LoadFunctionCLib( fn_PEM_write_bio_PrivateKey,False); - @_PEM_write_bio_PKCS7 := LoadFunctionCLib( fn_PEM_write_bio_PKCS7,False); - @_PEM_write_bio_DHparams := LoadFunctionCLib(fn_PEM_write_bio_DHparams,False); - @_PEM_write_bio_DSAparams := LoadFunctionCLib(fn_PEM_write_bio_DSAparams,False); - @_PEM_write_bio_NETSCAPE_CERT_SEQUENCE := LoadFunctionCLib(fn_PEM_write_bio_NETSCAPE_CERT_SEQUENCE,False); - @_PEM_write_bio_PKCS8PrivateKey := LoadFunctionCLib(fn_PEM_write_bio_PKCS8PrivateKey,False); - @_PEM_write_bio_PUBKEY := LoadFunctionCLib(fn_PEM_write_bio_PUBKEY,False); - {$ELSE} - @PEM_ASN1_write_bio := LoadFunctionCLib(fn_PEM_ASN1_write_bio,False); - @PEM_ASN1_read_bio := LoadFunctionCLib(fn_PEM_ASN1_read_bio,False); - {$ENDIF} - @PEM_X509_INFO_read_bio := LoadFunctionCLib(fn_PEM_X509_INFO_read_bio); //Used by Indy - @PEM_read_bio_X509_AUX := LoadFunctionCLib(fn_PEM_read_bio_X509_AUX); //Used by Indy - //EVP - {$IFNDEF OPENSSL_NO_DES} - @EVP_des_ede3_cbc := LoadFunctionCLib(fn_EVP_des_ede3_cbc,False); - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA512} - @EVP_sha512 := LoadFunctionCLib(fn_EVP_sha512,False); //Used by Indy but non-critical - @EVP_sha384 := LoadFunctionCLib(fn_EVP_sha384,False); //Used by Indy but non-critical - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA256} - @EVP_sha256 := LoadFunctionCLib(fn_EVP_sha256,False); //Used by Indy but non-critical - @EVP_sha224 := LoadFunctionCLib(fn_EVP_sha224,False); //Used by Indy but non-critical - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA} - @EVP_sha1 := LoadFunctionCLib(fn_EVP_sha1); //USED by Indy - - @EVP_sha := LoadFunctionCLib(fn_EVP_sha,False); //not available on Android - @EVP_dss := LoadFunctionCLib(fn_EVP_dss,False); - @EVP_dss1 := LoadFunctionCLib(fn_EVP_dss1,False); - @EVP_ecdsa := LoadFunctionCLib(fn_EVP_ecdsa,False); - {$ENDIF} - {$ifndef OPENSSL_NO_MDC2} - @EVP_mdc2 := LoadFunctionCLib(fn_EVP_mdc2,False); - {$endif} - {$IFNDEF OPENSSL_NO_MD5} - @EVP_md5 := LoadFunctionCLib(fn_EVP_md5); //USED By Indy - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD4} - @EVP_md4 := LoadFunctionCLib(fn_EVP_md4,False); - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD2} - @EVP_md2 := LoadFunctionCLib(fn_EVP_md2,False); - {$ENDIF} - {$ifndef OPENSSL_NO_RIPEMD} - @EVP_ripemd160 := LoadFunctionCLib(fn_EVP_ripemd160,False); - {$endif} - {$ifndef OPENSSL_NO_WHIRLPOOL} - @EVP_whirlpool := LoadFunctionCLib(fn_EVP_whirlpool,False); //not available on Android - {$endif} - @EVP_md_null := LoadFunctionCLib(fn_EVP_md_null, False); - {$IFNDEF OPENSSL_NO_DES} - @EVP_des_ecb := LoadFunctionCLib(fn_EVP_des_ecb,False); - @EVP_des_ede := LoadFunctionCLib(fn_EVP_des_ede,False); - @EVP_des_ede3 := LoadFunctionCLib(fn_EVP_des_ede3,False); - @EVP_des_ede_ecb := LoadFunctionCLib(fn_EVP_des_ede_ecb,False); - @EVP_des_ede3_ecb := LoadFunctionCLib(fn_EVP_des_ede3_ecb,False); - @EVP_des_cfb64 := LoadFunctionCLib(fn_EVP_des_cfb64,False); -// # define EVP_des_cfb EVP_des_cfb64 - - @EVP_des_cfb1 := LoadFunctionCLib(fn_EVP_des_cfb1,False); - @EVP_des_cfb8 := LoadFunctionCLib(fn_EVP_des_cfb8,False); - @EVP_des_ede_cfb64 := LoadFunctionCLib(fn_EVP_des_ede_cfb64,False); -//#if 0 - // @EVP_des_ede_cfb1 := LoadFunctionCLib(fn_EVP_des_ede_cfb1,False); - // @EVP_des_ede_cfb8 := LoadFunctionCLib(fn_EVP_des_ede_cfb8,False); - //#endif - @EVP_des_ede3_cfb64 := LoadFunctionCLib(fn_EVP_des_ede3_cfb64,False); - @EVP_des_ede3_cfb1 := LoadFunctionCLib(fn_EVP_des_ede3_cfb1,False); - @EVP_des_ede3_cfb8 := LoadFunctionCLib(fn_EVP_des_ede3_cfb8,False); - @EVP_des_ofb := LoadFunctionCLib(fn_EVP_des_ofb,False); - @EVP_des_ede_ofb := LoadFunctionCLib(fn_EVP_des_ede_ofb,False); - @EVP_des_ede3_ofb := LoadFunctionCLib(fn_EVP_des_ede3_ofb,False); - @EVP_des_cbc := LoadFunctionCLib(fn_EVP_des_cbc,False); - @EVP_des_ede_cbc := LoadFunctionCLib(fn_EVP_des_ede_cbc,False); - @EVP_desx_cbc := LoadFunctionCLib(fn_EVP_desx_cbc,False); -//* This should now be supported through the dev_crypto ENGINE. But also, why are -// * rc4 and md5 declarations made here inside a "NO_DES" precompiler branch? */ -//#if 0 - {$ifdef OPENSSL_OPENBSD_DEV_CRYPTO} - @EVP_dev_crypto_des_ede3_cbc := LoadFunctionCLib(fn_EVP_dev_crypto_des_ede3_cbc,False); - @EVP_dev_crypto_rc4 := LoadFunctionCLib(fn_EVP_dev_crypto_rc4,False); - @EVP_dev_crypto_md5 := LoadFunctionCLib(fn_EVP_dev_crypto_md5,False); - {$endif} -//#endif - {$endif} - {$ifndef OPENSSL_NO_RC4} - @EVP_rc4 := LoadFunctionCLib(fn_EVP_rc4,False); - @EVP_rc4_40 := LoadFunctionCLib(fn_EVP_rc4_40,False); - {$ifndef OPENSSL_NO_MD5} - @EVP_rc4_hmac_md5 := LoadFunctionCLib(fn_EVP_rc4_hmac_md5,False); - {$endif} - {$endif} - {$ifndef OPENSSL_NO_IDEA} - //not available on Android - @EVP_idea_ecb := LoadFunctionCLib(fn_EVP_idea_ecb,False); - @EVP_idea_cfb64 := LoadFunctionCLib(fn_EVP_idea_cfb64,False); - @EVP_idea_ofb := LoadFunctionCLib(fn_EVP_idea_ofb,False); - @EVP_idea_cbc := LoadFunctionCLib(fn_EVP_idea_cbc,False); - {$endif} - {$ifndef OPENSSL_NO_RC2} - @EVP_rc2_ecb := LoadFunctionCLib(fn_EVP_rc2_ecb,False); - @EVP_rc2_cbc := LoadFunctionCLib(fn_EVP_rc2_cbc,False); - @EVP_rc2_40_cbc := LoadFunctionCLib(fn_EVP_rc2_40_cbc,False); - @EVP_rc2_64_cbc := LoadFunctionCLib(fn_EVP_rc2_64_cbc,False); - @EVP_rc2_cfb64 := LoadFunctionCLib(fn_EVP_rc2_cfb64,False); - @EVP_rc2_ofb := LoadFunctionCLib(fn_EVP_rc2_ofb, False); - {$endif} - {$ifndef OPENSSL_NO_BF} - @EVP_bf_ecb := LoadFunctionCLib(fn_EVP_bf_ecb,False); - @EVP_bf_cbc := LoadFunctionCLib(fn_EVP_bf_cbc,False); - @EVP_bf_cfb64 := LoadFunctionCLib(fn_EVP_bf_cfb64,False); - @EVP_bf_ofb := LoadFunctionCLib(fn_EVP_bf_ofb,False); - {$endif} - {$ifndef OPENSSL_NO_CAST} - //not available on Android - @EVP_cast5_ecb := LoadFunctionCLib(fn_EVP_cast5_ecb,False); - @EVP_cast5_cbc := LoadFunctionCLib(fn_EVP_cast5_cbc,False); - @EVP_cast5_cfb64 := LoadFunctionCLib(fn_EVP_cast5_cfb64,False); - @EVP_cast5_ofb := LoadFunctionCLib(fn_EVP_cast5_ofb,False); - {$endif} - {$ifndef OPENSSL_NO_RC5} - @EVP_rc5_32_12_16_cbc := LoadFunctionCLib(fn_EVP_rc5_32_12_16_cbc,False); - @EVP_rc5_32_12_16_ecb := LoadFunctionCLib(fn_EVP_rc5_32_12_16_ecb,False); - @EVP_rc5_32_12_16_cfb64 := LoadFunctionCLib(fn_EVP_rc5_32_12_16_cfb64,False); - @EVP_rc5_32_12_16_ofb := LoadFunctionCLib(fn_EVP_rc5_32_12_16_ofb,False); - {$endif} - {$ifndef OPENSSL_NO_AES} - @EVP_aes_128_ecb := LoadFunctionCLib(fn_EVP_aes_128_ecb,False); - @EVP_aes_128_cbc := LoadFunctionCLib(fn_EVP_aes_128_cbc,False); - @EVP_aes_128_cfb1:= LoadFunctionCLib(fn_EVP_aes_128_cfb1,False); - @EVP_aes_128_cfb8:= LoadFunctionCLib(fn_EVP_aes_128_cfb8,False); - @EVP_aes_128_cfb128 := LoadFunctionCLib(fn_EVP_aes_128_cfb128,False); - @EVP_aes_128_ofb := LoadFunctionCLib(fn_EVP_aes_128_ofb,False); - @EVP_aes_128_ctr := LoadFunctionCLib(fn_EVP_aes_128_ctr,False); - @EVP_aes_128_gcm := LoadFunctionCLib(fn_EVP_aes_128_gcm,False); - @EVP_aes_128_ccm := LoadFunctionCLib(fn_EVP_aes_128_ccm,False); - @EVP_aes_128_xts := LoadFunctionCLib(fn_EVP_aes_128_xts,False); - @EVP_aes_192_ecb := LoadFunctionCLib(fn_EVP_aes_192_ecb,False); - @EVP_aes_192_cbc := LoadFunctionCLib(fn_EVP_aes_192_cbc,False); - @EVP_aes_192_cfb1 := LoadFunctionCLib(fn_EVP_aes_192_cfb1,False); - @EVP_aes_192_cfb128 := LoadFunctionCLib(fn_EVP_aes_192_cfb128,False); - - @EVP_aes_192_ofb := LoadFunctionCLib(fn_EVP_aes_192_ofb,False); - @EVP_aes_192_ctr := LoadFunctionCLib(fn_EVP_aes_192_ctr,False); - @EVP_aes_192_gcm := LoadFunctionCLib(fn_EVP_aes_192_gcm,False); - @EVP_aes_192_ccm := LoadFunctionCLib(fn_EVP_aes_192_ccm,False); - @EVP_aes_256_ecb := LoadFunctionCLib(fn_EVP_aes_256_ecb,False); - @EVP_aes_256_cbc := LoadFunctionCLib(fn_EVP_aes_256_cbc,False); - @EVP_aes_256_cfb1 := LoadFunctionCLib(fn_EVP_aes_256_cfb1,False); - @EVP_aes_256_cfb8 := LoadFunctionCLib(fn_EVP_aes_256_cfb8,False); - @EVP_aes_256_cfb128 := LoadFunctionCLib(fn_EVP_aes_256_cfb128,False); - @EVP_aes_256_ofb := LoadFunctionCLib(fn_EVP_aes_256_ofb,False); - @EVP_aes_256_ctr := LoadFunctionCLib(fn_EVP_aes_256_ctr,False); - @EVP_aes_256_gcm := LoadFunctionCLib(fn_EVP_aes_256_gcm,False); - @EVP_aes_256_ccm := LoadFunctionCLib(fn_EVP_aes_256_ccm,False); - @EVP_aes_256_xts := LoadFunctionCLib(fn_EVP_aes_256_xts,False); - {$ifndef OPENSSL_NO_SHA} - {$ifndef OPENSSL_NO_SHA1} - @EVP_aes_128_cbc_hmac_sha1 := LoadFunctionCLib(fn_EVP_aes_128_cbc_hmac_sha1,False); - @EVP_aes_256_cbc_hmac_sha1 := LoadFunctionCLib(fn_EVP_aes_256_cbc_hmac_sha1,False); - {$endif} - {$endif} - {$endif} - {$ifndef OPENSSL_NO_CAMELLIA} - @EVP_camellia_128_ecb := LoadFunctionCLib(fn_EVP_camellia_128_ecb, False); - @EVP_camellia_128_cbc := LoadFunctionCLib(fn_EVP_camellia_128_cbc, False); - @EVP_camellia_128_cfb1 := LoadFunctionCLib(fn_EVP_camellia_128_cfb1, False); - @EVP_camellia_128_cfb8 := LoadFunctionCLib(fn_EVP_camellia_128_cfb8, False); - @EVP_camellia_128_cfb128 := LoadFunctionCLib(fn_EVP_camellia_128_cfb12, False); - @EVP_camellia_128_ofb := LoadFunctionCLib(fn_EVP_camellia_128_ofb, False); - @EVP_camellia_192_ecb := LoadFunctionCLib(fn_EVP_camellia_192_ecb, False); - - @EVP_camellia_192_cbc := LoadFunctionCLib(fn_EVP_camellia_192_cbc,False); - @EVP_camellia_192_cfb1 := LoadFunctionCLib(fn_EVP_camellia_192_cfb1,False); - @EVP_camellia_192_cfb8 := LoadFunctionCLib(fn_EVP_camellia_192_cfb8,False); - @EVP_camellia_192_cfb128 := LoadFunctionCLib(fn_EVP_camellia_192_cfb128,False); - @EVP_camellia_192_ofb := LoadFunctionCLib(fn_EVP_camellia_192_ofb,False); - @EVP_camellia_256_ecb := LoadFunctionCLib(fn_EVP_camellia_256_ecb,False); - @EVP_camellia_256_cbc := LoadFunctionCLib(fn_EVP_camellia_256_cbc,False); - @EVP_camellia_256_cfb1 := LoadFunctionCLib(fn_EVP_camellia_256_cfb1,False); - @EVP_camellia_256_cfb8 := LoadFunctionCLib(fn_EVP_camellia_256_cfb8,False); - @EVP_camellia_256_cfb128 := LoadFunctionCLib(fn_EVP_camellia_256_cfb128,False); - @EVP_camellia_256_ofb := LoadFunctionCLib(fn_EVP_camellia_256_ofb,False); - {$endif} - - {$ifndef OPENSSL_NO_SEED} - @EVP_seed_ecb := LoadFunctionCLib(fn_EVP_seed_ecb,False); - @EVP_seed_cbc := LoadFunctionCLib(fn_EVP_seed_cbc,False); - @EVP_seed_cfb128 := LoadFunctionCLib(fn_EVP_seed_cfb128,False); - @EVP_seed_ofb := LoadFunctionCLib(fn_EVP_seed_ofb,False); - {$endif} - - @EVP_MD_CTX_init := LoadFunctionCLib(fn_EVP_MD_CTX_init); - @EVP_MD_CTX_cleanup := LoadFunctionCLib(fn_EVP_MD_CTX_cleanup); - @EVP_MD_CTX_create := LoadFunctionCLib(fn_EVP_MD_CTX_create, False); - @EVP_MD_CTX_destroy := LoadFunctionCLib(fn_EVP_MD_CTX_destroy, False); - @EVP_MD_CTX_copy := LoadFunctionCLib(fn_EVP_MD_CTX_copy, False); - @EVP_MD_CTX_copy_ex := LoadFunctionCLib(fn_EVP_MD_CTX_copy_ex, False); - //@EVP_MD_CTX_set_flags := LoadFunctionCLib(fn_EVP_MD_CTX_set_flags, False); - //@EVP_MD_CTX_clear_flags := LoadFunctionCLib(fn_EVP_MD_CTX_clear_flags, False); - //@EVP_MD_CTX_test_flags := LoadFunctionCLib(fn_EVP_MD_CTX_test_flags, False); - - @EVP_DigestInit := LoadFunctionCLib(fn_EVP_DigestInit); - @EVP_DigestInit_ex := LoadFunctionCLib(fn_EVP_DigestInit_ex); - @EVP_DigestUpdate := LoadFunctionCLib(fn_EVP_DigestUpdate); - @EVP_DigestFinal_ex := LoadFunctionCLib(fn_EVP_DigestFinal_ex); - - @EVP_EncryptInit := LoadFunctionCLib(fn_EVP_EncryptInit,False); - @EVP_EncryptInit_ex := LoadFunctionCLib(fn_EVP_EncryptInit_ex,False); - @EVP_EncryptUpdate := LoadFunctionCLib(fn_EVP_EncryptUpdate); - @EVP_EncryptFinal_ex := LoadFunctionCLib(fn_EVP_EncryptFinal_ex,False); - @EVP_EncryptFinal := LoadFunctionCLib(fn_EVP_EncryptFinal,False); - - @EVP_DecryptInit := LoadFunctionCLib(fn_EVP_DecryptInit,False); - @EVP_DecryptInit_ex := LoadFunctionCLib(fn_EVP_DecryptInit_ex,False); - @EVP_DecryptUpdate := LoadFunctionCLib(fn_EVP_DecryptUpdate); - @EVP_DecryptFinal := LoadFunctionCLib(fn_EVP_DecryptFinal,False); - @EVP_DecryptFinal_ex := LoadFunctionCLib(fn_EVP_DecryptFinal_ex,False); - @EVP_CipherInit := LoadFunctionCLib(fn_EVP_CipherInit,False); - @EVP_CipherInit_ex := LoadFunctionCLib(fn_EVP_CipherInit_ex,False); - @EVP_CipherUpdate := LoadFunctionCLib(fn_EVP_CipherUpdate,False); - @EVP_CipherFinal := LoadFunctionCLib(fn_EVP_CipherFinal,False); - @EVP_CipherFinal_ex := LoadFunctionCLib(fn_EVP_CipherFinal_ex,False); - @EVP_SignFinal := LoadFunctionCLib(fn_EVP_SignFinal,False); - @EVP_VerifyFinal := LoadFunctionCLib(fn_EVP_VerifyFinal,False); - @EVP_DigestSignInit := LoadFunctionCLib(fn_EVP_DigestSignInit,False); - @EVP_DigestSignFinal := LoadFunctionCLib(fn_EVP_DigestSignFinal,False); - @EVP_DigestVerifyInit := LoadFunctionCLib(fn_EVP_DigestVerifyInit,False); - @EVP_DigestVerifyFinal := LoadFunctionCLib(fn_EVP_DigestVerifyFinal,False); - @EVP_OpenInit := LoadFunctionCLib(fn_EVP_OpenInit,False); - @EVP_OpenFinal := LoadFunctionCLib(fn_EVP_OpenFinal,False); - @EVP_SealInit := LoadFunctionCLib(fn_EVP_SealInit,False); - @EVP_SealFinal := LoadFunctionCLib(fn_EVP_SealFinal,False); - - @EVP_EncodeInit := LoadFunctionCLib(fn_EVP_EncodeInit,False); - @EVP_EncodeUpdate := LoadFunctionCLib(fn_EVP_EncodeUpdate,False); - @EVP_EncodeFinal := LoadFunctionCLib(fn_EVP_EncodeFinal,False); - @EVP_EncodeBlock := LoadFunctionCLib(fn_EVP_EncodeBlock,False); - @EVP_DecodeInit := LoadFunctionCLib(fn_EVP_DecodeInit,False); - @EVP_DecodeUpdate:= LoadFunctionCLib(fn_EVP_DecodeUpdate,False); - @EVP_DecodeFinal:= LoadFunctionCLib(fn_EVP_DecodeFinal,False); - @EVP_DecodeBlock:= LoadFunctionCLib(fn_EVP_DecodeBlock,False); - - @EVP_CIPHER_CTX_init:= LoadFunctionCLib(fn_EVP_CIPHER_CTX_init,False); - @EVP_CIPHER_CTX_cleanup:= LoadFunctionCLib(fn_EVP_CIPHER_CTX_cleanup,False); - @EVP_CIPHER_CTX_new:= LoadFunctionCLib(fn_EVP_CIPHER_CTX_new,False); - @EVP_CIPHER_CTX_free:= LoadFunctionCLib(fn_EVP_CIPHER_CTX_free,False); - @EVP_CIPHER_CTX_set_key_length:= LoadFunctionCLib(fn_EVP_CIPHER_CTX_set_key_length,False); - @EVP_CIPHER_CTX_set_padding:= LoadFunctionCLib(fn_EVP_CIPHER_CTX_set_padding,False); - @EVP_CIPHER_CTX_ctrl:= LoadFunctionCLib(fn_EVP_CIPHER_CTX_ctrl,False); - @EVP_CIPHER_CTX_rand_key:= LoadFunctionCLib(fn_EVP_CIPHER_CTX_rand_key,False); - -{$ifndef OPENSSL_NO_BIO} - @BIO_f_md := LoadFunctionCLib(fn_BIO_f_md,False); - @BIO_f_base64 := LoadFunctionCLib(fn_BIO_f_base64,False); - @BIO_f_cipher := LoadFunctionCLib(fn_BIO_f_cipher,False); - @BIO_f_reliable :=LoadFunctionCLib(fn_BIO_f_reliable,False); - @BIO_set_cipher :=LoadFunctionCLib(fn_BIO_set_cipher,False); -{$endif} - - @EVP_PKEY_new := LoadFunctionCLib(fn_EVP_PKEY_new); - @EVP_PKEY_free := LoadFunctionCLib(fn_EVP_PKEY_free); //USED in Indy - @EVP_PKEY_assign := LoadFunctionCLib(fn_EVP_PKEY_assign); - @EVP_get_cipherbyname := LoadFunctionCLib(fn_EVP_get_cipherbyname); - @EVP_get_digestbyname := LoadFunctionCLib(fn_EVP_get_digestbyname); - @EVP_MD_type := LoadFunctionCLib(fn_EVP_MD_type); - @EVP_MD_size := LoadFunctionCLib(fn_EVP_MD_size); - @EVP_MD_block_size := LoadFunctionCLib(fn_EVP_MD_block_size); - @EVP_MD_flags := LoadFunctionCLib(fn_EVP_MD_flags,False); - @EVP_MD_CTX_md := LoadFunctionCLib(fn_EVP_MD_CTX_md); - @EVP_CIPHER_nid := LoadFunctionCLib(fn_EVP_CIPHER_nid,False); - @EVP_CIPHER_block_size := LoadFunctionCLib(fn_EVP_CIPHER_block_size,False); - @EVP_CIPHER_key_length := LoadFunctionCLib(fn_EVP_CIPHER_key_length,False); - @EVP_CIPHER_iv_length := LoadFunctionCLib(fn_EVP_CIPHER_iv_length,False); - @EVP_CIPHER_flags := LoadFunctionCLib(fn_EVP_CIPHER_flags); - @EVP_CIPHER_type := LoadFunctionCLib(fn_EVP_CIPHER_type); - @EVP_CIPHER_CTX_cipher := LoadFunctionCLib(fn_EVP_CIPHER_CTX_cipher); - @EVP_CIPHER_CTX_nid := LoadFunctionCLib(fn_EVP_CIPHER_CTX_nid,False); - @EVP_CIPHER_CTX_block_size := LoadFunctionCLib(fn_EVP_CIPHER_CTX_block_size, False ); - @EVP_CIPHER_CTX_key_length := LoadFunctionCLib(fn_EVP_CIPHER_CTX_key_length, False ); - @EVP_CIPHER_CTX_iv_length := LoadFunctionCLib(fn_EVP_CIPHER_CTX_iv_length,False); - @EVP_CIPHER_CTX_copy := LoadFunctionCLib(fn_EVP_CIPHER_CTX_copy,False ); - @EVP_CIPHER_CTX_get_app_data := LoadFunctionCLib(fn_EVP_CIPHER_CTX_get_app_data ); - @EVP_CIPHER_CTX_set_app_data := LoadFunctionCLib(fn_EVP_CIPHER_CTX_set_app_data ); - @EVP_CIPHER_CTX_flags := LoadFunctionCLib(fn_EVP_CIPHER_CTX_flags); - - @EVP_add_cipher := LoadFunctionCLib(fn_EVP_add_cipher,False); - @EVP_add_digest := LoadFunctionCLib(fn_EVP_add_digest,False); - - @EVP_CIPHER_do_all := LoadFunctionCLib(fn_EVP_CIPHER_do_all,False); - @EVP_CIPHER_do_all_sorted := LoadFunctionCLib(fn_EVP_CIPHER_do_all_sorted,False); - @EVP_MD_do_all := LoadFunctionCLib(fn_EVP_MD_do_all,False); - @EVP_MD_do_all_sorted := LoadFunctionCLib(fn_EVP_MD_do_all_sorted,False); - @EVP_PKEY_decrypt_old := LoadFunctionCLib(fn_EVP_PKEY_decrypt_old,False); - @EVP_PKEY_encrypt_old := LoadFunctionCLib(fn_EVP_PKEY_encrypt_old,False); - @EVP_PKEY_type := LoadFunctionCLib(fn_EVP_PKEY_type,False); - @EVP_PKEY_id := LoadFunctionCLib(fn_EVP_PKEY_id,False); - @EVP_PKEY_base_id := LoadFunctionCLib(fn_EVP_PKEY_base_id,False); - @EVP_PKEY_bits := LoadFunctionCLib(fn_EVP_PKEY_bits,False); - @EVP_PKEY_size := LoadFunctionCLib(fn_EVP_PKEY_size,False); - @EVP_PKEY_set_type := LoadFunctionCLib(fn_EVP_PKEY_set_type,False); - @EVP_PKEY_set_type_str := LoadFunctionCLib(fn_EVP_PKEY_set_type_str,False); - @EVP_PKEY_get0 := LoadFunctionCLib(fn_EVP_PKEY_get0,False); - {$ifndef OPENSSL_NO_RSA} - @EVP_PKEY_set1_RSA := LoadFunctionCLib(fn_EVP_PKEY_set1_RSA,False); - @EVP_PKEY_get1_RSA := LoadFunctionCLib(fn_EVP_PKEY_get1_RSA,False); - {$ENDIF} - {$ifndef OPENSSL_NO_DSA} - @EVP_PKEY_set1_DSA := LoadFunctionCLib(fn_EVP_PKEY_set1_DSA,False); - @EVP_PKEY_get1_DSA := LoadFunctionCLib(fn_EVP_PKEY_get1_DSA,False); - {$endif} - {$ifndef OPENSSL_NO_DH} - @EVP_PKEY_set1_DH := LoadFunctionCLib(fn_EVP_PKEY_set1_DH,False); - @EVP_PKEY_get1_DH := LoadFunctionCLib(fn_EVP_PKEY_get1_DH,False); - {$endif} - {$ifndef OPENSSL_NO_EC} - @EVP_PKEY_set1_EC_KEY := LoadFunctionCLib(fn_EVP_PKEY_set1_EC_KEY,False); - @EVP_PKEY_get1_EC_KEY := LoadFunctionCLib(fn_EVP_PKEY_get1_EC_KEY,False); - {$endif} - @d2i_PublicKey := LoadFunctionCLib(fn_d2i_PublicKey,False); - @i2d_PublicKey := LoadFunctionCLib(fn_i2d_PublicKey,False); - @d2i_AutoPrivateKey := LoadFunctionCLib(fn_d2i_AutoPrivateKey,False); - @EVP_PKEY_copy_parameters := LoadFunctionCLib(fn_EVP_PKEY_copy_parameters,False); - @EVP_PKEY_missing_parameters := LoadFunctionCLib(fn_EVP_PKEY_missing_parameters,False); - @EVP_PKEY_save_parameters := LoadFunctionCLib(fn_EVP_PKEY_save_parameters,False); - @EVP_PKEY_cmp_parameters := LoadFunctionCLib(fn_EVP_PKEY_cmp_parameters,False); - @EVP_PKEY_cmp := LoadFunctionCLib(fn_EVP_PKEY_cmp,False); - @EVP_PKEY_print_public := LoadFunctionCLib(fn_EVP_PKEY_print_public,False); - @EVP_PKEY_print_private := LoadFunctionCLib(fn_EVP_PKEY_print_private,False); - @EVP_PKEY_print_params := LoadFunctionCLib(fn_EVP_PKEY_print_params,False); - @EVP_PKEY_get_default_digest_nid := LoadFunctionCLib(fn_EVP_PKEY_get_default_digest_nid,False); - @EVP_CIPHER_param_to_asn1 := LoadFunctionCLib(fn_EVP_CIPHER_param_to_asn1,False); - @EVP_CIPHER_asn1_to_param := LoadFunctionCLib(fn_EVP_CIPHER_asn1_to_param,False); - @EVP_CIPHER_set_asn1_iv := LoadFunctionCLib(fn_EVP_CIPHER_set_asn1_iv,False); - @EVP_CIPHER_get_asn1_iv := LoadFunctionCLib(fn_EVP_CIPHER_get_asn1_iv,False); - @PKCS5_PBE_keyivgen := LoadFunctionCLib(fn_PKCS5_PBE_keyivgen,False); - @PKCS5_PBKDF2_HMAC_SHA1 := LoadFunctionCLib(fn_PKCS5_PBKDF2_HMAC_SHA1,False); - @PKCS5_PBKDF2_HMAC := LoadFunctionCLib(fn_PKCS5_PBKDF2_HMAC,False); - @PKCS5_v2_PBE_keyivgen := LoadFunctionCLib(fn_PKCS5_v2_PBE_keyivgen,False); - @PKCS5_PBE_add := LoadFunctionCLib(fn_PKCS5_PBE_add,False); - @EVP_PBE_CipherInit := LoadFunctionCLib(fn_EVP_PBE_CipherInit,False); - - @EVP_PBE_alg_add_type := LoadFunctionCLib(fn_EVP_PBE_alg_add_type,False); - @EVP_PBE_alg_add := LoadFunctionCLib(fn_EVP_PBE_alg_add,False); - @EVP_PBE_find := LoadFunctionCLib(fn_EVP_PBE_find,False); - @EVP_PBE_cleanup := LoadFunctionCLib(fn_EVP_PBE_cleanup,False); - @EVP_PKEY_asn1_get_count := LoadFunctionCLib(fn_EVP_PKEY_asn1_get_count,False); - @EVP_PKEY_asn1_get0 := LoadFunctionCLib(fn_EVP_PKEY_asn1_get0,False); - @EVP_PKEY_asn1_find := LoadFunctionCLib(fn_EVP_PKEY_asn1_find,False); - @EVP_PKEY_asn1_find_str := LoadFunctionCLib(fn_EVP_PKEY_asn1_find_str,False); - @EVP_PKEY_asn1_add0 := LoadFunctionCLib(fn_EVP_PKEY_asn1_add0,False); - @EVP_PKEY_asn1_add_alias := LoadFunctionCLib(fn_EVP_PKEY_asn1_add_alias,False); - @EVP_PKEY_asn1_get0_info := LoadFunctionCLib(fn_EVP_PKEY_asn1_get0_info,False); - @EVP_PKEY_get0_asn1 := LoadFunctionCLib(fn_EVP_PKEY_get0_asn1,False); - @EVP_PKEY_asn1_new := LoadFunctionCLib(fn_EVP_PKEY_asn1_new,False); - @EVP_PKEY_asn1_copy := LoadFunctionCLib(fn_EVP_PKEY_asn1_copy,False); - @EVP_PKEY_asn1_free := LoadFunctionCLib(fn_EVP_PKEY_asn1_free,False); - @EVP_PKEY_asn1_set_public := LoadFunctionCLib(fn_EVP_PKEY_asn1_set_public,False); - @EVP_PKEY_asn1_set_private := LoadFunctionCLib(fn_EVP_PKEY_asn1_set_private,False); - @EVP_PKEY_asn1_set_param := LoadFunctionCLib(fn_EVP_PKEY_asn1_set_param,False); - @EVP_PKEY_asn1_set_free := LoadFunctionCLib(fn_EVP_PKEY_asn1_set_free,False); - @EVP_PKEY_asn1_set_ctrl := LoadFunctionCLib(fn_EVP_PKEY_asn1_set_ctrl,False); - @EVP_PKEY_meth_find := LoadFunctionCLib(fn_EVP_PKEY_meth_find,False); - @EVP_PKEY_meth_new := LoadFunctionCLib(fn_EVP_PKEY_meth_new,False); - @EVP_PKEY_meth_get0_info := LoadFunctionCLib(fn_EVP_PKEY_meth_get0_info,False); - @EVP_PKEY_meth_copy := LoadFunctionCLib(fn_EVP_PKEY_meth_copy,False); - @EVP_PKEY_meth_free := LoadFunctionCLib(fn_EVP_PKEY_meth_free,False); - @EVP_PKEY_meth_add0 := LoadFunctionCLib(fn_EVP_PKEY_meth_add0,False); - @EVP_PKEY_CTX_new := LoadFunctionCLib(fn_EVP_PKEY_CTX_new,False); - @EVP_PKEY_CTX_new_id := LoadFunctionCLib(fn_EVP_PKEY_CTX_new_id,False); - @EVP_PKEY_CTX_dup := LoadFunctionCLib(fn_EVP_PKEY_CTX_dup,False); - @EVP_PKEY_CTX_free := LoadFunctionCLib(fn_EVP_PKEY_CTX_free,False); - @EVP_PKEY_CTX_ctrl := LoadFunctionCLib(fn_EVP_PKEY_CTX_ctrl,False); - @EVP_PKEY_CTX_ctrl_str := LoadFunctionCLib(fn_EVP_PKEY_CTX_ctrl_str,False); - @EVP_PKEY_CTX_get_operation := LoadFunctionCLib(fn_EVP_PKEY_CTX_get_operation,False); - @EVP_PKEY_CTX_set0_keygen_info := LoadFunctionCLib(fn_EVP_PKEY_CTX_set0_keygen_info,False); - @EVP_PKEY_new_mac_key := LoadFunctionCLib(fn_EVP_PKEY_new_mac_key,False); - @EVP_PKEY_CTX_set_data := LoadFunctionCLib(fn_EVP_PKEY_CTX_set_data,False); - @EVP_PKEY_CTX_get_data := LoadFunctionCLib(fn_EVP_PKEY_CTX_get_data,False); - @EVP_PKEY_CTX_get0_pkey := LoadFunctionCLib(fn_EVP_PKEY_CTX_get0_pkey,False); - @EVP_PKEY_CTX_get0_peerkey := LoadFunctionCLib(fn_EVP_PKEY_CTX_get0_peerkey,False); - @EVP_PKEY_CTX_set_app_data := LoadFunctionCLib(fn_EVP_PKEY_CTX_set_app_data,False); - @EVP_PKEY_CTX_get_app_data := LoadFunctionCLib(fn_EVP_PKEY_CTX_get_app_data,False); - @EVP_PKEY_sign_init := LoadFunctionCLib(fn_EVP_PKEY_sign_init,False); - @EVP_PKEY_sign := LoadFunctionCLib(fn_EVP_PKEY_sign,False); - @EVP_PKEY_verify_init := LoadFunctionCLib(fn_EVP_PKEY_verify_init,False); - @EVP_PKEY_verify := LoadFunctionCLib(fn_EVP_PKEY_verify,False); - @EVP_PKEY_verify_recover_init := LoadFunctionCLib(fn_EVP_PKEY_verify_recover_init,False); - @EVP_PKEY_verify_recover := LoadFunctionCLib(fn_EVP_PKEY_verify_recover,False); - @EVP_PKEY_encrypt_init := LoadFunctionCLib(fn_EVP_PKEY_encrypt_init,False); - @EVP_PKEY_encrypt := LoadFunctionCLib(fn_EVP_PKEY_encrypt,False); - @EVP_PKEY_decrypt_init := LoadFunctionCLib(fn_EVP_PKEY_decrypt_init,False); - @EVP_PKEY_decrypt := LoadFunctionCLib(fn_EVP_PKEY_decrypt,False); - @EVP_PKEY_derive_init := LoadFunctionCLib(fn_EVP_PKEY_derive_init,False); - @EVP_PKEY_derive_set_peer := LoadFunctionCLib(fn_EVP_PKEY_derive_set_peer,False); - @EVP_PKEY_derive := LoadFunctionCLib(fn_EVP_PKEY_derive,False); - @EVP_PKEY_paramgen_init := LoadFunctionCLib(fn_EVP_PKEY_paramgen_init,False); - @EVP_PKEY_paramgen := LoadFunctionCLib(fn_EVP_PKEY_paramgen,False); - @EVP_PKEY_keygen_init := LoadFunctionCLib(fn_EVP_PKEY_keygen_init,False); - @EVP_PKEY_keygen := LoadFunctionCLib(fn_EVP_PKEY_keygen,False); - @EVP_PKEY_CTX_set_cb := LoadFunctionCLib(fn_EVP_PKEY_CTX_set_cb,False); - @EVP_PKEY_CTX_get_cb := LoadFunctionCLib(fn_EVP_PKEY_CTX_get_cb,False); - @EVP_PKEY_CTX_get_keygen_info := LoadFunctionCLib(fn_EVP_PKEY_CTX_get_keygen_info,False); - @EVP_PKEY_meth_set_init := LoadFunctionCLib(fn_EVP_PKEY_meth_set_init,False); - @EVP_PKEY_meth_set_copy := LoadFunctionCLib(fn_EVP_PKEY_meth_set_copy,False); - @EVP_PKEY_meth_set_cleanup := LoadFunctionCLib(fn_EVP_PKEY_meth_set_cleanup,False); - @EVP_PKEY_meth_set_paramgen := LoadFunctionCLib(fn_EVP_PKEY_meth_set_paramgen,False); - @EVP_PKEY_meth_set_keygen := LoadFunctionCLib(fn_EVP_PKEY_meth_set_keygen,False); - @EVP_PKEY_meth_set_sign := LoadFunctionCLib(fn_EVP_PKEY_meth_set_sign,False); - @EVP_PKEY_meth_set_verify := LoadFunctionCLib(fn_EVP_PKEY_meth_set_verify,False); - @EVP_PKEY_meth_set_verify_recover := LoadFunctionCLib(fn_EVP_PKEY_meth_set_verify_recover,False); - @EVP_PKEY_meth_set_signctx := LoadFunctionCLib(fn_EVP_PKEY_meth_set_signctx,False); - @EVP_PKEY_meth_set_verifyctx := LoadFunctionCLib(fn_EVP_PKEY_meth_set_verifyctx,False); - @EVP_PKEY_meth_set_encrypt := LoadFunctionCLib(fn_EVP_PKEY_meth_set_encrypt,False); - @EVP_PKEY_meth_set_decrypt := LoadFunctionCLib(fn_EVP_PKEY_meth_set_decrypt,False); - @EVP_PKEY_meth_set_derive := LoadFunctionCLib(fn_EVP_PKEY_meth_set_derive,False); - @EVP_PKEY_meth_set_ctrl := LoadFunctionCLib(fn_EVP_PKEY_meth_set_ctrl,False); - //HMAC - {$IFNDEF OPENSSL_NO_HMAC} - @HMAC_CTX_init := LoadFunctionCLib(fn_HMAC_CTX_init); - if IsOpenSSL_1x then begin - @_HMAC_Init_ex := nil; - @_HMAC_Update := nil; - @_HMAC_Final := nil; - @_1_0_HMAC_Init_ex := LoadFunctionCLib(fn_HMAC_Init_ex); - @_1_0_HMAC_Update := LoadFunctionCLib(fn_HMAC_Update); - @_1_0_HMAC_Final := LoadFunctionCLib(fn_HMAC_Final); - end else begin - @_HMAC_Init_ex := LoadFunctionCLib(fn_HMAC_Init_ex); - @_HMAC_Update := LoadFunctionCLib(fn_HMAC_Update); - @_HMAC_Final := LoadFunctionCLib(fn_HMAC_Final); - @_1_0_HMAC_Init_ex := nil; - @_1_0_HMAC_Update := nil; - @_1_0_HMAC_Final := nil; - end; - @HMAC_CTX_cleanup := LoadFunctionCLib(fn_HMAC_CTX_cleanup); - {$ENDIF} - //OBJ - @OBJ_obj2nid := LoadFunctionCLib(fn_OBJ_obj2nid); - @OBJ_nid2obj := LoadFunctionCLib(fn_OBJ_nid2obj); - @OBJ_nid2ln := LoadFunctionCLib(fn_OBJ_nid2ln); - @OBJ_nid2sn := LoadFunctionCLib(fn_OBJ_nid2sn); - //ASN1 - @ASN1_INTEGER_set := LoadFunctionCLib(fn_ASN1_INTEGER_set); - @ASN1_INTEGER_get := LoadFunctionCLib(fn_ASN1_INTEGER_get); - @ASN1_INTEGER_to_BN := LoadFunctionCLib(fn_ASN1_INTEGER_to_BN); - @ASN1_STRING_type_new := LoadFunctionCLib(fn_ASN1_STRING_type_new); - @ASN1_STRING_free := LoadFunctionCLib(fn_ASN1_STRING_free); - @ASN1_dup := LoadFunctionCLib(fn_ASN1_dup ); - @CRYPTO_set_mem_functions := LoadFunctionCLib(fn_CRYPTO_set_mem_functions); - @CRYPTO_malloc := LoadFunctionCLib(fn_CRYPTO_malloc); - @CRYPTO_free := LoadFunctionCLib(fn_CRYPTO_free); - @CRYPTO_mem_leaks := LoadFunctionCLib(fn_CRYPTO_mem_leaks); - @CRYPTO_mem_ctrl := LoadFunctionCLib(fn_CRYPTO_mem_ctrl); - @CRYPTO_set_mem_debug_functions := LoadFunctionCLib(fn_CRYPTO_set_mem_debug_functions); - //@CRYPTO_dbg_malloc := LoadFunctionCLib(fn_CRYPTO_dbg_malloc); - //@CRYPTO_dbg_realloc := LoadFunctionCLib(fn_CRYPTO_dbg_realloc); - //@CRYPTO_dbg_free := LoadFunctionCLib(fn_CRYPTO_dbg_free); - //@CRYPTO_dbg_set_options := LoadFunctionCLib(fn_CRYPTO_dbg_set_options); - //@CRYPTO_dbg_get_options := LoadFunctionCLib(fn_CRYPTO_dbg_get_options); - @PKCS12_create := LoadFunctionCLib(fn_PKCS12_create); - @i2d_PKCS12_bio := LoadFunctionCLib(fn_i2d_PKCS12_bio); - @PKCS12_free := LoadFunctionCLib(fn_PKCS12_free); - @OpenSSL_add_all_algorithms := LoadOldCLib(fn_OpenSSL_add_all_algorithms, - fn_OPENSSL_add_all_algorithms_noconf); - @OpenSSL_add_all_ciphers := LoadFunctionCLib(fn_OpenSSL_add_all_ciphers); - @OpenSSL_add_all_digests := LoadFunctionCLib(fn_OpenSSL_add_all_digests); - @EVP_cleanup := LoadFunctionCLib(fn_EVP_cleanup); - - @sk_num := LoadFunctionCLib(fn_sk_num); - @sk_new := LoadFunctionCLib(fn_sk_new); - @sk_new_null := LoadFunctionCLib(fn_sk_new_null); - @sk_free := LoadFunctionCLib(fn_sk_free); - @sk_push := LoadFunctionCLib(fn_sk_push); - @sk_dup := LoadFunctionCLib(fn_sk_dup); - @sk_find := LoadFunctionCLib(fn_sk_find); - @sk_value := LoadFunctionCLib(fn_sk_value); - {$IFDEF OPENSSL_FIPS} - @_FIPS_mode_set := LoadFunctionCLib(fn_FIPS_mode_set,False); - @_FIPS_mode := LoadFunctionCLib(fn_FIPS_mode,False); - {$ENDIF} - - // TODO: expose a global callback function pointer, or an optional input - // parameter to Load(), so users can choose to load additional OpenSSL - // functions as desired using the DLL handles that we've already loaded... - { - if Assigned(LoadSSLFuncsCallback) then begin - LoadSSLFuncsCallback(hIdSSL, hIdCrypto, FFailedLoadList); - end; - } - - Result := (FFailedLoadList.Count = 0); -end; - -{$ENDIF} // STATICLOAD_OPENSSL - -procedure InitializeFuncPointers; -begin - @SSL_CTX_set_cipher_list := nil; - @SSL_CTX_new := nil; - @SSL_CTX_free := nil; - @SSL_set_fd := nil; - @SSL_CTX_use_PrivateKey_file := nil; - @SSL_CTX_use_PrivateKey := nil; - @SSL_CTX_use_certificate := nil; - @SSL_CTX_use_certificate_file := nil; - SSL_CTX_use_certificate_chain_file := nil; - @SSL_load_error_strings := nil; - @SSL_state_string_long := nil; - @SSL_load_error_strings := nil; - @SSL_alert_type_string_long := nil; - - @SSL_get_peer_certificate := nil; - @SSL_CTX_set_verify := nil; - @SSL_CTX_set_verify_depth := nil; - @SSL_CTX_get_verify_depth := nil; - @SSL_CTX_set_default_passwd_cb := nil; - @SSL_CTX_set_default_passwd_cb_userdata := nil; - @SSL_CTX_check_private_key := nil; - @SSL_new := nil; - @SSL_free := nil; - @SSL_accept := nil; - @SSL_connect := nil; - @SSL_read := nil; - @SSL_peek := nil; - @SSL_pending := nil; - @SSL_write := nil; - @SSL_ctrl := nil; - @SSL_callback_ctrl := nil; - @SSL_CTX_ctrl := nil; - @SSL_CTX_callback_ctrl := nil; - @SSL_get_error := nil; - @SSLv2_method := nil; - @SSLv2_server_method := nil; - @SSLv2_client_method := nil; - @SSLv3_method := nil; - @SSLv3_server_method := nil; - @SSLv3_client_method := nil; - @SSLv23_method := nil; - @SSLv23_server_method := nil; - @SSLv23_client_method := nil; - @TLSv1_method := nil; - @TLSv1_server_method := nil; - @TLSv1_client_method := nil; - @TLSv1_1_method := nil; - @TLSv1_1_server_method := nil; - @TLSv1_1_client_method := nil; - @TLSv1_2_method := nil; - @TLSv1_2_server_method := nil; - @TLSv1_2_client_method := nil; - @DTLSv1_method := nil; - @DTLSv1_server_method := nil; - @DTLSv1_client_method := nil; - @SSL_shutdown := nil; - @SSL_set_connect_state := nil; - @SSL_set_accept_state := nil; - @SSL_set_shutdown := nil; - @SSL_CTX_load_verify_locations := nil; - @SSL_get_session := nil; - @SSLeay_add_ssl_algorithms := nil; - @SSL_SESSION_get_id := nil; - @SSL_copy_session_id := nil; - // CRYPTO LIB - @_SSLeay_version := nil; - @SSLeay := nil; - @X509_NAME_oneline := nil; - @X509_NAME_hash := nil; - @X509_set_issuer_name := nil; - @X509_get_issuer_name := nil; - @X509_set_subject_name := nil; - @X509_get_subject_name := nil; - @X509_digest := nil; - @X509_LOOKUP_ctrl := nil; - @X509_STORE_add_cert := nil; - @X509_STORE_add_crl := nil; - @X509_STORE_CTX_get_ex_data := nil; - @X509_STORE_CTX_get_error := nil; - @X509_STORE_CTX_set_error := nil; - @X509_STORE_CTX_get_error_depth := nil; - @X509_STORE_CTX_get_current_cert := nil; - @X509_STORE_add_lookup := nil; - @X509_STORE_load_locations := nil; - @X509_sign := nil; - @X509_REQ_sign := nil; - @X509_REQ_add_extensions := nil; - @X509V3_EXT_conf_nid := nil; - @X509_EXTENSION_create_by_NID := nil; - @X509V3_set_ctx := nil; - @X509_EXTENSION_free := nil; - @X509_add_ext := nil; - {$IFNDEF OPENSSL_NO_BIO} - //X509_print - @X509_print := nil; - {$ENDIF} - @_RAND_cleanup := nil; - @_RAND_bytes := nil; - @_RAND_pseudo_bytes := nil; - @_RAND_seed := nil; - @_RAND_add := nil; - @_RAND_status := nil; - {$IFDEF SYS_WIN} - @_RAND_screen := nil; - @_RAND_event := nil; - {$ENDIF} - {$IFNDEF OPENSSL_NO_DES} - // 3DES - @DES_set_odd_parity := nil; - @DES_set_key := nil; - @DES_ecb_encrypt := nil; - @Id_ossl_old_des_set_odd_parity := nil; - @Id_ossl_old_des_set_key := nil; - @Id_ossl_old_des_ecb_encrypt := nil; - {$ENDIF} - // More SSL functions - @SSL_set_ex_data := nil; - @SSL_get_ex_data := nil; - @SSL_load_client_CA_file := nil; - @SSL_CTX_set_client_CA_list := nil; - @SSL_CTX_set_default_verify_paths := nil; - @SSL_CTX_set_session_id_context := nil; - @SSL_CIPHER_description := nil; - @SSL_get_current_cipher := nil; - @SSL_CIPHER_get_name := nil; - @SSL_CIPHER_get_version := nil; - @SSL_CIPHER_get_bits := nil; - // Thread safe - @_CRYPTO_num_locks := nil; - @CRYPTO_set_locking_callback := nil; - {$IFNDEF WIN32_OR_WIN64} - @CRYPTO_THREADID_set_callback := nil; - @CRYPTO_THREADID_set_numeric := nil; - @CRYPTO_THREADID_set_pointer := nil; - @CRYPTO_set_id_callback := nil; - {$ENDIF} - @ERR_put_error := nil; - @ERR_get_error := nil; - @ERR_peek_error := nil; - @ERR_peek_last_error := nil; - @ERR_clear_error := nil; - @ERR_error_string := nil; - @ERR_error_string_n := nil; - @ERR_lib_error_string := nil; - @ERR_func_error_string := nil; - @ERR_reason_error_string := nil; - @ERR_load_ERR_strings := nil; - @ERR_load_crypto_strings := nil; - @ERR_free_strings := nil; - @ERR_remove_thread_state := nil; - @ERR_remove_state := nil; - @CRYPTO_cleanup_all_ex_data := nil; - @SSL_COMP_get_compression_methods := nil; - @SSL_COMP_free_compression_methods := nil; - @sk_pop_free := nil; - //RSA - @RSA_new := nil; - @RSA_free := nil; - @RSA_size := nil; - @RSA_generate_key := nil; - @RSA_generate_key_ex := nil; - @RSA_check_key := nil; - @RSA_private_decrypt := nil; - @RSA_public_encrypt := nil; - //DH - @DH_free := nil; - //BIO - @BIO_set_flags := nil; - @BIO_new := nil; - @BIO_push := nil; - @BIO_pop := nil; - @BIO_set_next := nil; - @BIO_free := nil; - @BIO_free_all := nil; - @BIO_new_mem_buf := nil; - @BIO_s_mem := nil; - @BIO_s_file := nil; - @BIO_set_ex_data := nil; - @BIO_get_ex_data := nil; - @BIO_ctrl := nil; - @BIO_ptr_ctrl := nil; - @BIO_int_ctrl := nil; - @BIO_new_file := nil; - @BIO_puts := nil; - @BIO_read := nil; - @BIO_write := nil; - //BN - @BN_hex2bn := nil; - @BN_bn2dec := nil; - @BN_bn2hex := nil; - //i2d - @i2d_PKCS7 := nil; - @d2i_PKCS7 := nil; - @i2d_RSAPrivateKey := nil; - @d2i_RSAPrivateKey := nil; - @i2d_DSAPrivateKey := nil; - @d2i_DSAPrivateKey := nil; - @i2d_X509_bio := nil; - @i2d_PrivateKey_bio := nil; - @i2d_PrivateKey := nil; - @d2i_PrivateKey := nil; - @d2i_PrivateKey_bio := nil; - @i2d_X509 := nil; - @d2i_X509_bio := nil; - @d2i_X509 := nil; - @d2i_PKCS12_bio := nil; - @PKCS12_parse := nil; - @X509_NAME_new := nil; - @X509_NAME_free := nil; - @i2d_X509_REQ_bio := nil; - @i2d_X509_REQ := nil; - @d2i_X509_REQ := nil; - @i2d_X509_NAME := nil; - @d2i_X509_NAME := nil; - @i2d_DSAparams := nil; - @d2i_DSAparams := nil; - @i2d_DHparams := nil; - @d2i_DHparams := nil; - @i2d_NETSCAPE_CERT_SEQUENCE := nil; - @d2i_NETSCAPE_CERT_SEQUENCE := nil; - @i2d_PUBKEY := nil; - @d2i_PUBKEY := nil; - //X509 - @X509_get_default_cert_file := nil; - @X509_get_default_cert_file_env := nil; - @X509_new := nil; - @X509_free := nil; - @X509_REQ_new := nil; - @X509_REQ_free := nil; - @X509_to_X509_REQ := nil; - @X509_NAME_add_entry_by_txt := nil; - @X509_INFO_free := nil; - @X509_set_version := nil; - @X509_get_serialNumber := nil; - @X509_gmtime_adj := nil; - @X509_set_notBefore := nil; - @X509_set_notAfter := nil; - @X509_set_pubkey := nil; - @X509_REQ_set_pubkey := nil; - //PEM - {$IFNDEF SSLEAY_MACROS} - @_PEM_read_bio_X509 := nil; - @_PEM_read_bio_X509_REQ := nil; - @_PEM_read_bio_X509_CRL := nil; - @_PEM_read_bio_RSAPrivateKey := nil; - @_PEM_read_bio_RSAPublicKey := nil; - @_PEM_read_bio_DSAPrivateKey := nil; - @_PEM_read_bio_PrivateKey := nil; - @_PEM_read_bio_PKCS7 := nil; - @_PEM_read_bio_DHparams := nil; - @_PEM_read_bio_DSAparams := nil; - @_PEM_read_bio_NETSCAPE_CERT_SEQUENCE := nil; - @_PEM_read_bio_PUBKEY := nil; - @_PEM_write_bio_X509 := nil; - @_PEM_write_bio_X509_REQ := nil; - @_PEM_write_bio_X509_CRL := nil; - @_PEM_write_bio_RSAPublicKey := nil; - @_PEM_write_bio_RSAPrivateKey := nil; - @_PEM_write_bio_DSAPrivateKey := nil; - @_PEM_write_bio_PrivateKey := nil; - @_PEM_write_bio_PKCS7 := nil; - @_PEM_write_bio_DHparams := nil; - @_PEM_write_bio_DSAparams := nil; - @_PEM_write_bio_NETSCAPE_CERT_SEQUENCE := nil; - @_PEM_write_bio_PKCS8PrivateKey := nil; - @_PEM_write_bio_PUBKEY := nil; - {$ELSE} - @PEM_ASN1_write_bio := nil; - @PEM_ASN1_read_bio := nil; - {$ENDIF} - @PEM_X509_INFO_read_bio := nil; - @PEM_read_bio_X509_AUX := nil; - //EVP - {$IFNDEF OPENSSL_NO_DES} - @EVP_des_ede3_cbc := nil; - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA512} - @EVP_sha512 := nil; - @EVP_sha384 := nil; - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA256} - @EVP_sha256 := nil; - @EVP_sha224 := nil; - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA} - @EVP_sha := nil; - @EVP_sha1 := nil; - @EVP_dss := nil; - @EVP_dss1 := nil; - @EVP_ecdsa := nil; - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD5} - @EVP_md5 := nil; - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD4} - @EVP_md4 := nil; - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD2} - @EVP_md2 := nil; - {$ENDIF} - {$ifndef OPENSSL_NO_MDC2} - @EVP_mdc2 := nil; - {$endif} - {$IFNDEF OPENSSL_NO_MD5} - @EVP_md5 := nil; - {$ENDIF} - - {$ifndef OPENSSL_NO_RIPEMD} - EVP_ripemd160 := nil; - {$endif} - {$ifndef OPENSSL_NO_WHIRLPOOL} - @EVP_whirlpool := nil; - {$endif} - @EVP_md_null := nil; - {$IFNDEF OPENSSL_NO_DES} - @EVP_des_ecb := nil; - @EVP_des_ede := nil; - @EVP_des_ede3 :=nil; - @EVP_des_ede_ecb := nil; - @EVP_des_ede3_ecb := nil; - @EVP_des_cfb64 := nil; - - @EVP_des_cfb1 := nil; - @EVP_des_cfb8 := nil; - @EVP_des_ede_cfb64 := nil; -//#if 0 - // @EVP_des_ede_cfb1 := nil; - // @EVP_des_ede_cfb8 := nil; - //#endif - @EVP_des_ede3_cfb64 :=nil; - @EVP_des_ede3_cfb1 := nil; - @EVP_des_ede3_cfb8 := nil; - @EVP_des_ofb := nil; - @EVP_des_ede_ofb := nil; - @EVP_des_ede3_ofb := nil; - @EVP_des_cbc := nil; - @EVP_des_ede_cbc := nil; - @EVP_desx_cbc := nil; -//* This should now be supported through the dev_crypto ENGINE. But also, why are -// * rc4 and md5 declarations made here inside a "NO_DES" precompiler branch? */ -//#if 0 - {$ifdef OPENSSL_OPENBSD_DEV_CRYPTO} - @EVP_dev_crypto_des_ede3_cbc := nil; - @EVP_dev_crypto_rc4 := nil; - @EVP_dev_crypto_md5 := nil; - {$endif} -//#endif - {$endif} - - {$ifndef OPENSSL_NO_RC4} - @EVP_rc4 := nil; - @EVP_rc4_40 := nil; - {$ifndef OPENSSL_NO_MD5} - @EVP_rc4_hmac_md5 := nil; - {$endif} - {$endif} - {$ifndef OPENSSL_NO_IDEA} - @EVP_idea_ecb := nil; - @EVP_idea_cfb64 := nil; - @EVP_idea_ofb := nil; - @EVP_idea_cbc := nil; - {$endif} - {$ifndef OPENSSL_NO_RC2} - @EVP_rc2_ecb := nil; - @EVP_rc2_cbc := nil; - @EVP_rc2_40_cbc := nil; - @EVP_rc2_64_cbc := nil; - @EVP_rc2_cfb64 := nil; - @EVP_rc2_ofb := nil; - {$endif} - {$ifndef OPENSSL_NO_BF} - @EVP_bf_ecb := nil; - @EVP_bf_cbc := nil; - @EVP_bf_cfb64 := nil; - @EVP_bf_ofb := nil; - {$endif} - {$ifndef OPENSSL_NO_CAST} - @EVP_cast5_ecb := nil; - @EVP_cast5_cbc := nil; - @EVP_cast5_cfb64 := nil; - @EVP_cast5_ofb := nil; - {$endif} - {$ifndef OPENSSL_NO_RC5} - @EVP_rc5_32_12_16_cbc := nil; - @EVP_rc5_32_12_16_ecb := nil; - @EVP_rc5_32_12_16_cfb64 := nil; - @EVP_rc5_32_12_16_ofb := nil; - {$endif} - {$ifndef OPENSSL_NO_AES} - @EVP_aes_128_ecb := nil; - @EVP_aes_128_cbc := nil; - @EVP_aes_128_cfb1:= nil; - @EVP_aes_128_cfb8:= nil; - @EVP_aes_128_cfb128 := nil; - @EVP_aes_128_ofb := nil; - @EVP_aes_128_ctr := nil; - @EVP_aes_128_gcm := nil; - @EVP_aes_128_ccm := nil; - @EVP_aes_128_xts := nil; - @EVP_aes_192_ecb := nil; - @EVP_aes_192_cbc := nil; - @EVP_aes_192_cfb1 := nil; - @EVP_aes_192_cfb128 := nil; - - @EVP_aes_192_ofb := nil; - @EVP_aes_192_ctr := nil; - @EVP_aes_192_gcm := nil; - @EVP_aes_192_ccm := nil; - @EVP_aes_256_ecb := nil; - @EVP_aes_256_cbc := nil; - @EVP_aes_256_cfb1 := nil; - @EVP_aes_256_cfb8 := nil; - @EVP_aes_256_cfb128 := nil; - @EVP_aes_256_ofb := nil; - @EVP_aes_256_ctr := nil; - @EVP_aes_256_gcm := nil; - @EVP_aes_256_ccm := nil; - @EVP_aes_256_xts := nil; - {$ifndef OPENSSL_NO_SHA} - {$ifndef OPENSSL_NO_SHA1} - @EVP_aes_128_cbc_hmac_sha1 := nil; - @EVP_aes_256_cbc_hmac_sha1 := nil; - {$endif} - {$endif} - {$endif} - {$ifndef OPENSSL_NO_CAMELLIA} - @EVP_camellia_128_ecb := nil; - @EVP_camellia_128_cbc := nil; - @EVP_camellia_128_cfb1 := nil; - @EVP_camellia_128_cfb8 := nil; - @EVP_camellia_128_cfb128 := nil; - @EVP_camellia_128_ofb := nil; - @EVP_camellia_192_ecb := nil; - - @EVP_camellia_192_cbc := nil; - @EVP_camellia_192_cfb1 := nil; - @EVP_camellia_192_cfb8 := nil; - @EVP_camellia_192_cfb128 :=nil; - @EVP_camellia_192_ofb := nil; - @EVP_camellia_256_ecb := nil; - @EVP_camellia_256_cbc := nil; - @EVP_camellia_256_cfb1 := nil; - @EVP_camellia_256_cfb8 := nil; - @EVP_camellia_256_cfb128 := nil; - @EVP_camellia_256_ofb := nil; - {$endif} - - {$ifndef OPENSSL_NO_SEED} - @EVP_seed_ecb := nil; - @EVP_seed_cbc := nil; - @EVP_seed_cfb128 := nil; - @EVP_seed_ofb := nil; - {$endif} - - @EVP_MD_CTX_init := nil; - @EVP_MD_CTX_cleanup := nil; - @EVP_MD_CTX_create := nil; - @EVP_MD_CTX_destroy := nil; - @EVP_MD_CTX_copy := nil; - @EVP_MD_CTX_copy_ex := nil; - //@EVP_MD_CTX_set_flags := nil; - //@EVP_MD_CTX_clear_flags := nil; - //@EVP_MD_CTX_test_flags := nil; - - @EVP_DigestInit := nil; - @EVP_DigestInit_ex := nil; - @EVP_DigestUpdate := nil; - @EVP_DigestFinal_ex := nil; - - @EVP_EncryptInit := nil; - @EVP_EncryptInit_ex := nil; - @EVP_EncryptUpdate := nil; - @EVP_EncryptFinal_ex := nil; - @EVP_EncryptFinal := nil; - - @EVP_DecryptInit := nil; - @EVP_DecryptInit_ex := nil; - @EVP_DecryptUpdate := nil; - @EVP_DecryptFinal := nil; - @EVP_DecryptFinal_ex := nil; - @EVP_CipherInit := nil; - @EVP_CipherInit_ex := nil; - @EVP_CipherUpdate := nil; - @EVP_CipherFinal := nil; - @EVP_CipherFinal_ex := nil; - @EVP_SignFinal := nil; - @EVP_VerifyFinal := nil; - @EVP_DigestSignInit := nil; - @EVP_DigestSignFinal := nil; - @EVP_DigestVerifyInit := nil; - @EVP_DigestVerifyFinal := nil; - @EVP_OpenInit := nil; - @EVP_OpenFinal := nil; - @EVP_SealInit := nil; - @EVP_SealFinal := nil; - @EVP_EncodeInit := nil; - - @EVP_EncodeUpdate := nil; - @EVP_EncodeFinal := nil; - @EVP_EncodeBlock := nil; - @EVP_DecodeInit := nil; - @EVP_DecodeUpdate := nil; - @EVP_DecodeFinal := nil; - @EVP_DecodeBlock := nil; - - @EVP_CIPHER_CTX_init := nil; - - @EVP_CIPHER_CTX_cleanup := nil; - @EVP_CIPHER_CTX_new := nil; - @EVP_CIPHER_CTX_free := nil; - @EVP_CIPHER_CTX_set_key_length := nil; - @EVP_CIPHER_CTX_set_padding := nil; - @EVP_CIPHER_CTX_ctrl := nil; - @EVP_CIPHER_CTX_rand_key := nil; - - @EVP_add_cipher := nil; - @EVP_add_digest := nil; - @EVP_CIPHER_do_all := nil; - @EVP_CIPHER_do_all_sorted := nil; - @EVP_MD_do_all := nil; - @EVP_MD_do_all_sorted := nil; - @EVP_PKEY_decrypt_old := nil; - @EVP_PKEY_encrypt_old := nil; - @EVP_PKEY_type := nil; - @EVP_PKEY_id := nil; - @EVP_PKEY_base_id := nil; - @EVP_PKEY_bits := nil; - @EVP_PKEY_size := nil; - @EVP_PKEY_set_type := nil; - @EVP_PKEY_set_type_str := nil; - @EVP_PKEY_get0 := nil; - {$ifndef OPENSSL_NO_RSA} - @EVP_PKEY_set1_RSA := nil; - @EVP_PKEY_get1_RSA := nil; - {$ENDIF} - {$ifndef OPENSSL_NO_DSA} - @EVP_PKEY_set1_DSA := nil; - @EVP_PKEY_get1_DSA := nil; - {$endif} - {$ifndef OPENSSL_NO_DH} - @EVP_PKEY_set1_DH := nil; - @EVP_PKEY_get1_DH := nil; - {$endif} - {$ifndef OPENSSL_NO_EC} - @EVP_PKEY_set1_EC_KEY := nil; - @EVP_PKEY_get1_EC_KEY := nil; - {$endif} - - {$EXTERNALSYM d2i_PublicKey} - @d2i_PublicKey := nil; - @i2d_PublicKey := nil; - @d2i_AutoPrivateKey := nil; - @EVP_PKEY_copy_parameters := nil; - @EVP_PKEY_missing_parameters := nil; - @EVP_PKEY_save_parameters := nil; - @EVP_PKEY_cmp_parameters := nil; - @EVP_PKEY_cmp := nil; - @EVP_PKEY_print_public := nil; - @EVP_PKEY_print_private := nil; - @EVP_PKEY_print_params := nil; - @EVP_PKEY_get_default_digest_nid := nil; - @EVP_CIPHER_param_to_asn1 := nil; - @EVP_CIPHER_asn1_to_param := nil; - @EVP_CIPHER_set_asn1_iv := nil; - @EVP_CIPHER_get_asn1_iv := nil; - @PKCS5_PBE_keyivgen := nil; - @PKCS5_PBKDF2_HMAC_SHA1 := nil; - @PKCS5_PBKDF2_HMAC := nil; - @PKCS5_v2_PBE_keyivgen := nil; - @PKCS5_PBE_add := nil; - @EVP_PBE_CipherInit := nil; - - @EVP_PBE_alg_add_type := nil; - @EVP_PBE_alg_add := nil; - @EVP_PBE_find := nil; - @EVP_PBE_cleanup := nil; - @EVP_PKEY_asn1_get_count := nil; - @EVP_PKEY_asn1_get0 := nil; - @EVP_PKEY_asn1_find := nil; - @EVP_PKEY_asn1_find_str := nil; - @EVP_PKEY_asn1_add0 := nil; - @EVP_PKEY_asn1_add_alias := nil; - @EVP_PKEY_asn1_get0_info := nil; - @EVP_PKEY_get0_asn1 := nil; - @EVP_PKEY_asn1_new := nil; - @EVP_PKEY_asn1_copy := nil; - @EVP_PKEY_asn1_free := nil; - @EVP_PKEY_asn1_set_public := nil; - @EVP_PKEY_asn1_set_private := nil; - @EVP_PKEY_asn1_set_param := nil; - @EVP_PKEY_asn1_set_free := nil; - @EVP_PKEY_asn1_set_ctrl := nil; - @EVP_PKEY_meth_find := nil; - @EVP_PKEY_meth_new := nil; - @EVP_PKEY_meth_get0_info := nil; - @EVP_PKEY_meth_copy := nil; - @EVP_PKEY_meth_free := nil; - @EVP_PKEY_meth_add0 := nil; - @EVP_PKEY_CTX_new := nil; - @EVP_PKEY_CTX_new_id := nil; - @EVP_PKEY_CTX_dup := nil; - @EVP_PKEY_CTX_free := nil; - @EVP_PKEY_CTX_ctrl := nil; - @EVP_PKEY_CTX_ctrl_str := nil; - @EVP_PKEY_CTX_get_operation := nil; - @EVP_PKEY_CTX_set0_keygen_info := nil; - @EVP_PKEY_new_mac_key := nil; - @EVP_PKEY_CTX_set_data := nil; - @EVP_PKEY_CTX_get_data := nil; - @EVP_PKEY_CTX_get0_pkey := nil; - @EVP_PKEY_CTX_get0_peerkey := nil; - @EVP_PKEY_CTX_set_app_data := nil; - @EVP_PKEY_CTX_get_app_data := nil; - @EVP_PKEY_sign_init := nil; - @EVP_PKEY_sign := nil; - @EVP_PKEY_verify_init := nil; - @EVP_PKEY_verify := nil; - @EVP_PKEY_verify_recover_init := nil; - @EVP_PKEY_verify_recover := nil; - @EVP_PKEY_encrypt_init := nil; - @EVP_PKEY_encrypt := nil; - @EVP_PKEY_decrypt_init := nil; - @EVP_PKEY_decrypt := nil; - @EVP_PKEY_derive_init := nil; - @EVP_PKEY_derive_set_peer := nil; - @EVP_PKEY_derive := nil; - @EVP_PKEY_paramgen_init := nil; - @EVP_PKEY_paramgen := nil; - @EVP_PKEY_keygen_init := nil; - @EVP_PKEY_keygen := nil; - @EVP_PKEY_CTX_set_cb := nil; - @EVP_PKEY_CTX_get_cb := nil; - @EVP_PKEY_CTX_get_keygen_info := nil; - @EVP_PKEY_meth_set_init := nil; - @EVP_PKEY_meth_set_copy := nil; - @EVP_PKEY_meth_set_cleanup := nil; - @EVP_PKEY_meth_set_paramgen := nil; - @EVP_PKEY_meth_set_keygen := nil; - @EVP_PKEY_meth_set_sign := nil; - @EVP_PKEY_meth_set_verify := nil; - @EVP_PKEY_meth_set_verify_recover := nil; - @EVP_PKEY_meth_set_signctx := nil; - @EVP_PKEY_meth_set_verifyctx := nil; - @EVP_PKEY_meth_set_encrypt := nil; - @EVP_PKEY_meth_set_decrypt := nil; - @EVP_PKEY_meth_set_derive := nil; - @EVP_PKEY_meth_set_ctrl := nil; -{$ifndef OPENSSL_NO_BIO} - BIO_f_md := nil; - BIO_f_base64 := nil; - BIO_f_cipher := nil; - BIO_f_reliable := nil; - BIO_set_cipher := nil; -{$endif} - @EVP_PKEY_type := nil; - @EVP_PKEY_new := nil; - @EVP_PKEY_free := nil; - @EVP_PKEY_assign := nil; - @EVP_get_cipherbyname := nil; - @EVP_get_digestbyname := nil; - @EVP_MD_type := nil; - @EVP_MD_size := nil; - @EVP_MD_block_size := nil; - @EVP_MD_flags := nil; - @EVP_MD_CTX_md := nil; - @EVP_CIPHER_nid := nil; - @EVP_CIPHER_block_size := nil; - @EVP_CIPHER_key_length := nil; - @EVP_CIPHER_iv_length := nil; - @EVP_CIPHER_flags := nil; - @EVP_CIPHER_type := nil; - @EVP_CIPHER_CTX_cipher := nil; - @EVP_CIPHER_CTX_nid := nil; - @EVP_CIPHER_CTX_block_size := nil; - @EVP_CIPHER_CTX_key_length := nil; - @EVP_CIPHER_CTX_iv_length := nil; - @EVP_CIPHER_CTX_copy := nil; - @EVP_CIPHER_CTX_get_app_data := nil; - @EVP_CIPHER_CTX_set_app_data := nil; - @EVP_CIPHER_CTX_flags := nil; - - //HMAC -{$IFNDEF OPENSSL_NO_HMAC} - @HMAC_CTX_init := nil; - @_HMAC_Init_ex := nil; - @_HMAC_Update := nil; - @_HMAC_Final := nil; - @_1_0_HMAC_Init_ex := nil; - @_1_0_HMAC_Update := nil; - @_1_0_HMAC_Final := nil; - @HMAC_CTX_cleanup := nil; -{$ENDIF} - //OBJ - @OBJ_obj2nid := nil; - @OBJ_nid2obj := nil; - @OBJ_nid2ln := nil; - @OBJ_nid2sn := nil; - //ASN1 - @ASN1_INTEGER_set := nil; - @ASN1_INTEGER_get := nil; - @ASN1_INTEGER_to_BN := nil; - @ASN1_STRING_type_new := nil; - @ASN1_STRING_free := nil; - @ASN1_dup := nil; - @_CRYPTO_lock := nil; - @CRYPTO_set_mem_functions := nil; - @CRYPTO_malloc := nil; - @CRYPTO_free := nil; - @CRYPTO_mem_leaks := nil; - @CRYPTO_mem_ctrl := nil; - @CRYPTO_set_mem_debug_functions := nil; - //@CRYPTO_dbg_malloc := nil; - //@CRYPTO_dbg_realloc := nil; - //@CRYPTO_dbg_free := nil; - //@CRYPTO_dbg_set_options := nil; - //@CRYPTO_dbg_get_options := nil; - @PKCS12_create := nil; - @i2d_PKCS12_bio := nil; - @PKCS12_free := nil; - @OpenSSL_add_all_algorithms := nil; - @OpenSSL_add_all_ciphers := nil; - @OpenSSL_add_all_digests := nil; - @EVP_cleanup := nil; - @sk_new := nil; - @sk_num := nil; - @sk_new_null := nil; - @sk_free := nil; - @sk_push := nil; - @sk_dup := nil; - @sk_find := nil; - @sk_value := nil; - {$IFDEF OPENSSL_FIPS} - @_FIPS_mode_set := nil; - @_FIPS_mode := nil; - {$ENDIF} - - // TODO: expose a global callback function pointer, or an optional input - // parameter to InitializeFuncPointers(), so users can reset any additional - // OpenSSL function pointers they loaded manually during Load()... - { - if Assigned(UnloadSSLFuncsCallback) then begin - UnloadSSLFuncsCallback(); - end; - } -end; - -procedure Unload; -var - LStack: Pointer; -begin - if {$IFDEF STATICLOAD_OPENSSL}bIsLoaded{$ELSE}hIdSSL <> IdNilHandle{$ENDIF} then begin - if Assigned(SSL_COMP_free_compression_methods) then begin - SSL_COMP_free_compression_methods; - end - //this is a workaround for a known leak in the openssl library - //present in 0.9.8a - else if Assigned(SSLeay) then begin - if SSLeay = $0090801f then begin - if Assigned(SSL_COMP_get_compression_methods) and - Assigned(sk_pop_free) and - Assigned(CRYPTO_free) then - begin - LStack := SSL_COMP_get_compression_methods; - sk_pop_free(LStack, CRYPTO_free); - end; - end; - end; - if Assigned(CRYPTO_cleanup_all_ex_data) then begin - CRYPTO_cleanup_all_ex_data; - end; - if Assigned(ERR_free_strings) then begin - ERR_free_strings; - end; - if Assigned(ERR_remove_thread_state) then begin - ERR_remove_thread_state(nil); - end - else if Assigned(ERR_remove_state) then begin - ERR_remove_state(0); - end; - if Assigned(EVP_cleanup) then begin - EVP_cleanup; - end; - {$IFDEF STATICLOAD_OPENSSL} - bIsLoaded := False; - {$ELSE} - {$IFDEF WINDOWS}Windows.{$ENDIF}FreeLibrary(hIdSSL); - hIdSSL := IdNilHandle; - {$ENDIF} - end; - - {$IFNDEF STATICLOAD_OPENSSL} - if hIdCrypto <> IdNilHandle then begin - {$IFDEF WINDOWS}Windows.{$ENDIF}FreeLibrary(hIdCrypto); - hIdCrypto := IdNilHandle; - end; - {$ENDIF} - - {$IFDEF USE_INVALIDATE_MOD_CACHE} - InvalidateModuleCache; - {$ENDIF} - - {$IFNDEF STATICLOAD_OPENSSL} - { - IMPORTANT!! - - We probably should reinitialize the functions to nil after the library is - unloaded as some code will test for their presence with Assigned. - } - InitializeFuncPointers; - {$ENDIF} -end; - - -{$IFNDEF STATICLOAD_OPENSSL} -function WhichFailedToLoad: string; -begin - Assert(FFailedLoadList<>nil); - Result := FFailedLoadList.CommaText; -end; -{$ENDIF} - -// Author : Gregor Ibich (gregor.ibic@intelicom.si) -// Pascal translation: Doychin Bondzhev (doichin@5group.com) - -// Converts the following string representations into corresponding parts -// YYYYMMDDHHMMSS(+|-)HH( )MM (GeneralizedTime, for dates 2050 and later) -// YYMMDDHHMMSS(+|-)HH( )MM (UTCTime, for dates up to 2049) -function UTC_Time_Decode(UCTtime : PASN1_UTCTIME; var year, month, day, hour, min, sec: Word; - var tz_hour, tz_min: Integer): Integer; -var - i, tz_dir, index: Integer; - time_str: string; - {$IFNDEF USE_MARSHALLED_PTRS} - {$IFNDEF STRING_IS_ANSI} - LTemp: AnsiString; - {$ENDIF} - {$ENDIF} -begin - Result := 0; - if UCTtime^.length < 12 then begin - Exit; - end; - {$IFDEF USE_MARSHALLED_PTRS} - time_str := TMarshal.ReadStringAsAnsi(TPtrWrapper.Create(UCTtime^.data), UCTtime^.length); - {$ELSE} - {$IFDEF STRING_IS_ANSI} - SetString(time_str, UCTtime^.data, UCTtime^.length); - {$ELSE} - SetString(LTemp, UCTtime^.data, UCTtime^.length); - // TODO: do we need to use SetCodePage() here? - time_str := String(LTemp); // explicit convert to Unicode - {$ENDIF} - {$ENDIF} - // Check if first 14 chars (4-digit year) are numbers - if (Length(time_str) >= 14) and IsNumeric(time_str, 14) then begin - // Convert time from string to number - year := IndyStrToInt(Copy(time_str, 1, 4)); - month := IndyStrToInt(Copy(time_str, 5, 2)); - day := IndyStrToInt(Copy(time_str, 7, 2)); - hour := IndyStrToInt(Copy(time_str, 9, 2)); - min := IndyStrToInt(Copy(time_str, 11, 2)); - sec := IndyStrToInt(Copy(time_str, 13, 2)); - index := 15; - end - // Check if first 12 chars (2-digit year) are numbers - else if (Length(time_str) >= 12) and IsNumeric(time_str, 12) then begin - // Convert time from string to number - year := IndyStrToInt(Copy(time_str, 1, 2)) + 1900; - month := IndyStrToInt(Copy(time_str, 3, 2)); - day := IndyStrToInt(Copy(time_str, 5, 2)); - hour := IndyStrToInt(Copy(time_str, 7, 2)); - min := IndyStrToInt(Copy(time_str, 9, 2)); - sec := IndyStrToInt(Copy(time_str, 11, 2)); - // Fix year. This function is Y2k but isn't compatible with Y2k5 :-( {Do not Localize} - if year < 1950 then begin - Inc(year, 100); - end; - index := 13; - end else begin - Exit; - end; - // Check TZ - tz_hour := 0; - tz_min := 0; - if CharIsInSet(time_str, index, '-+') then begin {Do not Localize} - tz_dir := iif(CharEquals(time_str, index, '-'), -1, 1); {Do not Localize} - for i := index+1 to index+5 do begin // Check if numbers are numbers - if i = index+3 then begin - Continue; - end; - if not IsNumeric(time_str[i]) then begin - Exit; - end; - end; - tz_hour := IndyStrToInt(Copy(time_str, index+1, 2)) * tz_dir; - tz_min := IndyStrToInt(Copy(time_str, index+4, 2)) * tz_dir; - end; - Result := 1; -end; - -function SSL_set_app_data(s: PSSL; arg: Pointer): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_set_ex_data(s, 0, arg); -end; - -function SSL_get_app_data(s: PSSL): Pointer; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_get_ex_data(s, 0); -end; - -procedure InitializeRandom; -begin - {$IFDEF SYS_WIN} - if Assigned(_RAND_screen) then begin - _RAND_screen; - end; - {$ENDIF} -end; - -procedure CleanupRandom; -begin - if Assigned(_RAND_cleanup) then begin - _RAND_cleanup; - end; -end; - -function M_ASN1_STRING_length(x : PASN1_STRING): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := x^.length; -end; - -procedure M_ASN1_STRING_length_set(x : PASN1_STRING; n : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - x^.length := n; -end; - -function M_ASN1_STRING_type(x : PASN1_STRING) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := x^._type; -end; - -function M_ASN1_STRING_data(x : PASN1_STRING) : PIdAnsiChar; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := x^.data; -end; - -function X509_NAME_dup(xn : PX509_NAME) : PX509_NAME; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := ASN1_dup(i2d_of_Void(i2d_X509_NAME), d2i_of_void(d2i_X509_NAME), PIdAnsiChar(xn) ); -end; - -function X509_STORE_CTX_get_app_data(ctx: PX509_STORE_CTX):Pointer; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - // TODO: use SSL_get_ex_data_X509_STORE_CTX_idx() instead of 0 to get the true index of the SSL pointer - Result := X509_STORE_CTX_get_ex_data(ctx, 0); -end; - -function X509_get_version(x : PX509): TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := ASN1_INTEGER_get(x^.cert_info^.version); -end; - -function X509_get_signature_type(x : PX509) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -{ -http://groups.google.com/group/mailing.openssl.dev/browse_thread/thread/c1ab56fc4fb7af6a/98a2e94fe893aecf?lnk=st&q=X509_get_signature_type+&rnum=1&hl=en#98a2e94fe893aecf - -Austin Krauss via RT wrote: - -> D:\openssl-0.9.7b\out32dll\Release>openssl version -a -> OpenSSL 0.9.7b 10 Apr 2003 -> built on: date not available -> platform: information not available -> options: bn(64,32) md2(int) rc4(idx,int) des(idx,cisc,4,long) idea(int) blowfish(idx) -> compiler: information not available -> OPENSSLDIR: "/usr/local/ssl" - -> Windows 2000 SP3 x86 -> Visual C++ 6.0 SP5 - -> I'm running into a problem parsing the certificate that I've recieved from the peer. I'm trying to call X509_get_signature_type(...) to get the key algorithm used. After I went through this function with the debugger, I'm finding that "NID_sha1WithRSAEncryption" (which is correct by the way) is getting passed to EVP_PKEY_type(...). It seems as if there is not a EVP constant that maps to this particular NID and thus EVP_PKEY_type is returning NID_undef to my function. - -As a addition to: -http://marc.theaimsgroup.com/?l=openssl-users&m=105074607225189&w=2 -I would suggest that X509_get_signature_type(x) should -be changed to 'OBJ_obj2nid((x)->sig_alg->algorithm' (i.e. remove -the call to EVP_PKEY_type()) because currently this macro -returns the type of the key used for the signature generation -and *not* the type of the signature (i.e. key alg + hash alg). -The other solution would be to change EVP_PKEY_type() to -include the other RSA OIDs as well (from the usage of this macro -in OpenSSL the second alternative is simpler to implement, but -in this case the name of the macro should better be changed to -X509_get_signature_key_type() :-). - -Regards, -Nils -} -begin - Assert(x<>nil); - Result := EVP_PKEY_type(OBJ_obj2nid(x.sig_alg.algorithm)); -end; - -function X509_REQ_get_subject_name(x:PX509_REQ):PX509_NAME; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Assert(x<>nil); - Result := x^.req_info^.subject; -end; - -//function X509_get_notBefore(x509: PX509):PASN1_UTCTIME; -function X509_get_notBefore(x509: PX509):PASN1_TIME; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Assert(x509<>nil); - Result := x509.cert_info.validity.notBefore; -end; - -//function X509_get_notAfter(x509: PX509):PASN1_UTCTIME; -function X509_get_notAfter(x509: PX509):PASN1_TIME; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Assert(x509<>nil); - Result := x509.cert_info.validity.notAfter; -end; - -function X509_REQ_get_version(x : PX509_REQ): TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := ASN1_INTEGER_get(x^.req_info^.version); -end; - -function X509_CRL_get_version(x : PX509_CRL) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := ASN1_INTEGER_get(x^.crl^.version); -end; - -function X509_CRL_get_lastUpdate(x : PX509_CRL) : PASN1_TIME; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := x^.crl^.lastUpdate; -end; - -function X509_CRL_get_nextUpdate(x : PX509_CRL) : PASN1_TIME; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := x^.crl^.nextUpdate; -end; - -function X509_CRL_get_issuer(x : PX509_CRL) : PX509_NAME; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := x^.crl^.issuer -end; - -function X509_CRL_get_REVOKED(x : PX509_CRL) : PSTACK_OF_X509_REVOKED; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := x^.crl^.revoked; -end; - -procedure SSL_CTX_set_info_callback(ctx: PSSL_CTX; cb: PSSL_CTX_info_callback); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Assert(ctx<>nil); - ctx.info_callback := cb; -end; - -//* Note: SSL[_CTX]_set_{options,mode} use |= op on the previous value, -// * they cannot be used to clear bits. */ - -function SSL_CTX_set_options(ctx: PSSL_CTX; op: TIdC_LONG):TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_OPTIONS, op, nil); -end; - -function SSL_CTX_clear_options(ctx : PSSL_CTX; op : TIdC_LONG):TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_CLEAR_OPTIONS,op,nil); -end; - -function SSL_CTX_get_options(ctx: PSSL_CTX) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_OPTIONS,0,nil); -end; - -function SSL_set_options(ssl: PSSL; op : TIdC_LONG): TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl, SSL_CTRL_OPTIONS,op,nil); -end; - -function SSL_clear_mode(ssl : PSSL; op : TIdC_LONG) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl,SSL_CTRL_CLEAR_MODE,op,nil); -end; - -function SSL_get_options(ssl : PSSL): TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl, SSL_CTRL_OPTIONS,0,nil); -end; - -function SSL_CTX_set_mode(ctx : PSSL_CTX; op : TIdC_LONG) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_MODE, op,nil); -end; - -function SSL_CTX_clear_mode(ctx : PSSL_CTX; op : TIdC_LONG) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_CLEAR_MODE,op,nil); -end; - -function SSL_CTX_get_mode(ctx : PSSL_CTX) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_MODE,0,nil); -end; - -function SSL_set_mtu(ssl : PSSL; mtu : TIdC_LONG) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl, SSL_CTRL_SET_MTU, mtu, nil); -end; - -function SSL_get_secure_renegotiation_support(ssl : PSSL) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl, SSL_CTRL_GET_RI_SUPPORT, 0, nil); -end; -// - -function SSL_CTX_sess_number(ctx : PSSL_CTX) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SESS_NUMBER,0,nil); -end; - -function SSL_CTX_sess_connect(ctx : PSSL_CTX) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SESS_CONNECT, 0,nil); -end; - -function SSL_CTX_sess_connect_good(ctx : PSSL_CTX): TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SESS_CONNECT_GOOD, 0, nil); -end; - -function SSL_CTX_sess_connect_renegotiate(ctx : PSSL_CTX): TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SESS_CONNECT_RENEGOTIATE, 0, nil); -end; - -function SSL_CTX_sess_accept(ctx : PSSL_CTX) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SESS_ACCEPT, 0, nil); -end; - -function SSL_CTX_sess_accept_renegotiate(ctx : PSSL_CTX) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SESS_ACCEPT_RENEGOTIATE, 0, nil); -end; - -function SSL_CTX_sess_accept_good(ctx : PSSL_CTX) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SESS_ACCEPT_GOOD, 0, nil); -end; - -function SSL_CTX_sess_hits(ctx : PSSL_CTX) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SESS_HIT, 0, nil); -end; - -function SSL_CTX_sess_cb_hits(ctx : PSSL_CTX) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SESS_CB_HIT, 0, nil); -end; - -function SSL_CTX_sess_misses(ctx : PSSL_CTX) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SESS_MISSES, 0, nil); -end; - -function SSL_CTX_sess_timeouts(ctx : PSSL_CTX) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SESS_TIMEOUTS, 0, nil); -end; - -function SSL_CTX_sess_cache_full(ctx : PSSL_CTX) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SESS_CACHE_FULL, 0, nil); -end; - -function SSL_CTX_sess_set_cache_size(ctx : PSSL_CTX; t : TIdC_LONG) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_SESS_CACHE_SIZE, t, nil); -end; - -function SSL_CTX_sess_get_cache_size(ctx : PSSL_CTX) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_SESS_CACHE_SIZE, 0, nil); -end; - -function SSL_CTX_set_session_cache_mode(ctx : PSSL_CTX; m : TIdC_LONG) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_SESS_CACHE_MODE, m, nil); -end; - -function SSL_CTX_get_session_cache_mode(ctx : PSSL_CTX) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_SESS_CACHE_MODE, 0, nil); -end; - -function SSL_CTX_get_read_ahead(ctx : PSSL_CTX) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_READ_AHEAD,0,nil); -end; - -function SSL_CTX_set_read_ahead(ctx : PSSL_CTX; m : TIdC_LONG) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_READ_AHEAD, m,nil); -end; - -function SSL_CTX_get_max_cert_list(ctx : PSSL_CTX) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_MAX_CERT_LIST,0,nil); -end; - -function SSL_CTX_set_max_cert_list(ctx : PSSL_CTX; m : TIdC_LONG) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_MAX_CERT_LIST,m,nil); -end; - -function SSL_get_max_cert_list(ssl : PSSL) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl, SSL_CTRL_GET_MAX_CERT_LIST, 0, nil); -end; - -function SSL_set_max_cert_list(ssl : PSSL; m : TIdC_LONG) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl, SSL_CTRL_SET_MAX_CERT_LIST, m, nil); -end; - -function SSL_CTX_set_max_send_fragment(ctx : PSSL_CTX; m : TIdC_LONG) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_SET_MAX_SEND_FRAGMENT,m,nil); -end; - -function SSL_set_max_send_fragment(ssl : PSSL; m : TIdC_LONG) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl,SSL_CTRL_SET_MAX_SEND_FRAGMENT,m,nil); -end; - -function DTLSv1_get_timeout(ssl : PSSL; var arg : timeval) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl,DTLS_CTRL_GET_TIMEOUT,0, @arg); -end; - -function DTLSv1_handle_timeout(ssl : PSSL) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl,DTLS_CTRL_HANDLE_TIMEOUT,0, nil); -end; - -function DTLSv1_listen(ssl : PSSL; var peer : sockaddr) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl,DTLS_CTRL_LISTEN,0, @peer); -end; - -function SSL_session_reused(ssl : PSSL) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl,SSL_CTRL_GET_SESSION_REUSED,0,nil); -end; - -function SSL_num_renegotiations(ssl : PSSL) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl,SSL_CTRL_GET_NUM_RENEGOTIATIONS,0,nil); -end; - -function SSL_clear_num_renegotiations(ssl : PSSL) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl,SSL_CTRL_CLEAR_NUM_RENEGOTIATIONS,0,nil); -end; - -function SSL_total_renegotiations(ssl : PSSL) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl,SSL_CTRL_GET_TOTAL_RENEGOTIATIONS,0,nil); -end; - -function SSL_CTX_need_tmp_RSA(ctx : PSSL_CTX) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_NEED_TMP_RSA,0,nil); -end; - -function SSL_CTX_set_tmp_rsa(ctx : PSSL_CTX; rsa : PRSA) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_SET_TMP_RSA,0,rsa); -end; - -function SSL_CTX_set_tmp_dh(ctx : PSSL_CTX; dh : PDH) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_SET_TMP_DH,0,dh); -end; - -function SSL_CTX_set_tmp_ecdh(ctx : PSSL_CTX; ecdh : PEC_KEY) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_SET_TMP_ECDH,0,ecdh); -end; - -function SSL_CTX_set_ecdh_auto(ctx : PSSL_CTX; m : TIdC_LONG) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_SET_ECDH_AUTO,m,nil); -end; - -function SSL_need_tmp_RSA(ssl : PSSL) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl,SSL_CTRL_NEED_TMP_RSA,0,nil); -end; - -procedure SSL_set_tmp_rsa(ssl : PSSL; rsa : PRSA); - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - SSL_ctrl(ssl,SSL_CTRL_SET_TMP_RSA,0,rsa); -end; - -function SSL_set_tmp_dh(ssl : PSSL;dh : PDH) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl,SSL_CTRL_SET_TMP_DH,0,dh); -end; - -function SSL_set_tmp_ecdh(ssl : PSSL; ecdh : PEC_KEY) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl,SSL_CTRL_SET_TMP_ECDH,0,ecdh); -end; - -{$IFNDEF OPENSSL_NO_TLSEXT} -function SSL_set_tlsext_host_name(s : PSSL; name : string) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -{$IFDEF USE_MARSHALLED_PTRS} -var - M: TMarshaller; -{$ENDIF} -begin - Result := SSL_ctrl(s, SSL_CTRL_SET_TLSEXT_HOSTNAME, TLSEXT_NAMETYPE_host_name, - {$IFDEF USE_MARSHALLED_PTRS} - M.AsAnsi(name).ToPointer - {$ELSE} - PAnsiChar( - {$IFDEF STRING_IS_ANSI} - name - {$ELSE} - AnsiString(name) // explicit convert to Ansi - {$ENDIF} - ) - {$ENDIF} - ); -end; - -function SSL_set_tlsext_debug_callback(ssl : PSSL; cb : SSL_callback_ctrl_fp) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - if Assigned(SSL_callback_ctrl) then begin - Result := SSL_callback_ctrl(ssl,SSL_CTRL_SET_TLSEXT_DEBUG_CB,cb); - end else begin - Result := ssl.method.ssl_callback_ctrl(ssl, SSL_CTRL_SET_TLSEXT_DEBUG_CB, SSL_METHOD_PROC(cb)); - end; -end; - -function SSL_set_tlsext_debug_arg(ssl : PSSL; arg : Pointer) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl, SSL_CTRL_SET_TLSEXT_DEBUG_ARG,0,arg); -end; - -function SSL_set_tlsext_status_type(ssl : PSSL; _type : TIdC_LONG):TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl, SSL_CTRL_SET_TLSEXT_STATUS_REQ_TYPE,_type,nil); -end; - -function SSL_get_tlsext_status_exts(ssl : PSSL; arg : Pointer): TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl, SSL_CTRL_GET_TLSEXT_STATUS_REQ_EXTS,0,arg); -end; - -function SSL_set_tlsext_status_exts(ssl : PSSL; arg : Pointer):TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl, SSL_CTRL_SET_TLSEXT_STATUS_REQ_EXTS, 0, arg); -end; - -function SSL_get_tlsext_status_ids(ssl : PSSL; arg : Pointer) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl, SSL_CTRL_GET_TLSEXT_STATUS_REQ_IDS,0, arg); -end; - -function SSL_set_tlsext_status_ids(ssl : PSSL; arg : Pointer) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl, SSL_CTRL_SET_TLSEXT_STATUS_REQ_IDS,0,arg); -end; - -function SSL_get_tlsext_status_ocsp_resp(ssl : PSSL; arg : Pointer) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl, SSL_CTRL_GET_TLSEXT_STATUS_REQ_OCSP_RESP,0,arg); -end; - -function SSL_set_tlsext_status_ocsp_resp(ssl : PSSL; arg : Pointer; arglen : TIdC_LONG) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl, SSL_CTRL_SET_TLSEXT_STATUS_REQ_OCSP_RESP,arglen,arg); -end; - -function SSL_CTX_set_tlsext_servername_callback(ctx : PSSL_CTX; cb :SSL_callback_ctrl_fp):TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_callback_ctrl(ctx, SSL_CTRL_SET_TLSEXT_SERVERNAME_CB, cb); -end; - -function SSL_CTX_get_tlsext_ticket_keys(ctx : PSSL_CTX; keys : PIdAnsiChar; keylen : TIdC_LONG ) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_GET_TLSEXT_TICKET_KEYS, keylen, keys); -end; - -function SSL_CTX_set_tlsext_status_cb(ssl : PSSL_CTX; cb : TSSL_CTX_set_tlsext_status_cb) :TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_callback_ctrl(ssl,SSL_CTRL_SET_TLSEXT_STATUS_REQ_CB,SSL_callback_ctrl_fp(cb)); -end; - -function SSL_set_tlsext_opaque_prf_input(s : PSSL; src : PIdAnsiChar; len : TIdC_LONG ) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(s,SSL_CTRL_SET_TLSEXT_OPAQUE_PRF_INPUT, len, src) -end; - -function SSL_CTX_set_tlsext_opaque_prf_input_callback(ctx : PSSL_CTX; cb : TSSL_CTX_set_tlsext_opaque_prf_input_callback_cb) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_callback_ctrl(ctx,SSL_CTRL_SET_TLSEXT_OPAQUE_PRF_INPUT_CB, SSL_callback_ctrl_fp(cb)); -end; - -function SSL_CTX_set_tlsext_opaque_prf_input_callback_arg(ctx : PSSL_CTX; arg : Pointer) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_SET_TLSEXT_OPAQUE_PRF_INPUT_CB_ARG, 0, arg); -end; - -function SSL_CTX_set_tlsext_ticket_key_cb(ssl : PSSL_CTX; cb : TSSL_CTX_set_tlsext_ticket_key_cb_fp) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_callback_ctrl(ssl,SSL_CTRL_SET_TLSEXT_TICKET_KEY_CB,SSL_callback_ctrl_fp(cb)); -end; - -function SSL_CTX_add_extra_chain_cert(ctx : PSSL_CTX; x509 : PX509) : TIdC_LONG; - {$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_EXTRA_CHAIN_CERT,0,x509); -end; - -function SSL_CTX_get_extra_chain_certs(ctx : PSSL_CTX; var px509 : px509) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_GET_EXTRA_CHAIN_CERTS,0,px509); -end; - -function SSL_CTX_get_extra_chain_certs_only(ctx: PSSL_CTX;var PX509 :PX509) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_GET_EXTRA_CHAIN_CERTS,1,px509); -end; - -function SSL_CTX_clear_extra_chain_certs(ctx : PSSL_CTX) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_CLEAR_EXTRA_CHAIN_CERTS,0,nil); -end; - -function SSL_CTX_set0_chain(ctx:PSSL_CTX; sk : PSTACK_OF_X509) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_CHAIN,0,sk); -end; - -function SSL_CTX_set1_chain(ctx:PSSL_CTX; sk : PSTACK_OF_X509) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_CHAIN,1,sk); -end; - -function SSL_CTX_add0_chain_cert(ctx : PSSL_CTX; x509 : PX509) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_CHAIN_CERT,0,x509); -end; - -function SSL_CTX_add1_chain_cert(ctx : PSSL_CTX; x509 : PX509) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_CHAIN_CERT,1,x509); -end; - -function SSL_CTX_get0_chain_certs(ctx :PSSL_CTX; var px509 :PX509) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_ctrl(ctx,SSL_CTRL_GET_CHAIN_CERTS,0,px509) -end; - -function SSL_CTX_clear_chain_certs(ctx :PSSL_CTX) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_CTX_set0_chain(ctx,nil); -end; - -{$ifndef OPENSSL_NO_HEARTBEATS} -function SSL_heartbeat(ssl : PSSL) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl,SSL_CTRL_TLS_EXT_SEND_HEARTBEAT,0,nil); -end; - -function SSL_get_tlsext_heartbeat_pending(ssl : PSSL) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl,SSL_CTRL_GET_TLS_EXT_HEARTBEAT_PENDING,0,nil); -end; - -function SSL_set_tlsext_heartbeat_no_requests(ssl : PSSL; arg : TIdC_LONG) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := SSL_ctrl(ssl,SSL_CTRL_SET_TLS_EXT_HEARTBEAT_NO_REQUESTS,arg,nil); -end; -{$endif} -{$ENDIF} - -function TLS1_get_version(s : PSSL) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - if (s.version shr 8) = TLS1_VERSION_MAJOR then - Result := s.version - else - Result := 0; -end; - -function TLS1_get_client_version(s : PSSL) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - if s.client_version shr 8 = TLS1_VERSION_MAJOR then - Result := s.client_version - else - Result := 0; -end; - -function SSL_CTX_get_version(ctx: PSSL_CTX):TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Assert(ctx<>nil); - Result := ctx^.method^.version; -end; - -//* BIO_s_connect() and BIO_s_socks4a_connect() */ - -function BIO_set_conn_hostname(b : PBIO; name : PIdAnsiChar) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_CONNECT,0,name); -end; - -function BIO_set_conn_port(b : PBIO; port : PIdAnsiChar) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_CONNECT,1,port); -end; - -function BIO_set_conn_ip(b : PBIO; ip : PIdAnsiChar) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_CONNECT,2,ip); -end; - -function BIO_set_conn_int_port(b : PBIO; port : PIdAnsiChar) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_CONNECT,3,port); -end; - -function BIO_get_conn_hostname(b : PBIO) : PIdAnsiChar; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ptr_ctrl(b,BIO_C_GET_CONNECT,0); -end; - -function BIO_get_conn_port(b : PBIO) : PIdAnsiChar; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ptr_ctrl(b,BIO_C_GET_CONNECT,1); -end; - -function BIO_get_conn_ip(b : PBIO) : PIdAnsiChar; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ptr_ctrl(b,BIO_C_GET_CONNECT,2); -end; - -function BIO_get_conn_int_port(b : PBIO) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_int_ctrl(b,BIO_C_GET_CONNECT,3,0); -end; - -function BIO_set_nbio(b : PBIO; n : TIdC_LONG) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_NBIO,n,nil); -end; - -//* BIO_s_accept_socket() */ -function BIO_set_accept_port(b : PBIO; name : PIdAnsiChar) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_ACCEPT,0,name); -end; - -function BIO_get_accept_port(b : PBIO) : PIdAnsiChar; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ptr_ctrl(b,BIO_C_GET_ACCEPT,0); -end; - -//* #define BIO_set_nbio(b,n) BIO_ctrl(b,BIO_C_SET_NBIO,(n),NULL) */ -function BIO_set_nbio_accept(b : PBIO; n : TIdC_INT) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -var - a: array[0..1] of TIdAnsiChar; -begin - if n <> 0 then begin - a[0] := TIdAnsiChar('a'); - a[1] := TIdAnsiChar(#0); - Result := BIO_ctrl(b, BIO_C_SET_ACCEPT, 1, @a[0]); - end else begin - Result := BIO_ctrl(b, BIO_C_SET_ACCEPT, 1, nil); - end; -end; - -function BIO_set_accept_bios(b : PBIO; bio : PBIO) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_ACCEPT, 2, bio); -end; - -function BIO_set_bind_mode(b : PBIO; mode : TIdC_LONG) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_BIND_MODE,mode,nil); -end; - -function BIO_get_bind_mode(b : PBIO; mode : TIdC_LONG) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_GET_BIND_MODE,0,nil); -end; - -function BIO_do_handshake(b : PBIO) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_DO_STATE_MACHINE,0,nil); -end; - -function BIO_do_connect(b : PBIO) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_do_handshake(b); -end; - -function BIO_do_accept(b : PBIO) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_do_handshake(b) -end; - -//* BIO_s_proxy_client() */ -function BIO_set_url(b : PBIO; url : PIdAnsiChar) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b, BIO_C_SET_PROXY_PARAM,0,url); -end; - -function BIO_set_proxies(b : PBIO; p : PIdAnsiChar) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_PROXY_PARAM,1,p); -end; - -//* BIO_set_nbio(b,n) */ -function BIO_set_filter_bio(b : PBIO; s : PIdAnsiChar) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_PROXY_PARAM,2,s); -end; - -//* BIO *BIO_get_filter_bio(BIO *bio); */ -//function BIO_set_proxy_cb(b : PBIO,cb) : TIdC_LONG; -//begin -//BIO_callback_ctrl(b,BIO_C_SET_PROXY_PARAM,3,(void *(*cb)())) -//end; - -function BIO_set_proxy_header(b : PBIO; sk : PIdAnsiChar) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_PROXY_PARAM,4,sk); -end; - -function BIO_set_no_connect_return(b : PBIO; b2 : TIdC_LONG) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_int_ctrl(b,BIO_C_SET_PROXY_PARAM,5,b2); -end; - -function BIO_get_proxy_header(b : PBIO; var skp : PIdAnsiChar) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_GET_PROXY_PARAM,0,@skp); -end; - -function BIO_get_proxies(b : PBIO; var pxy_p : PIdAnsiChar) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_GET_PROXY_PARAM,1,@pxy_p); -end; - -function BIO_get_url(b : PBIO; var url : PIdAnsiChar) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_GET_PROXY_PARAM,2,@url); -end; - -function BIO_get_no_connect_return(b : PBIO) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_GET_PROXY_PARAM,5,nil); -end; - -function BIO_set_fd(b : PBIO; fd,c : TIdC_INT) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_int_ctrl(b,BIO_C_SET_FD,c,fd); -end; - -function BIO_get_fd(b : PBIO; c : PIdC_INT) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_GET_FD,0,c); -end; - -//function BIO_set_fp(b : PBIO; fp : Pointer; c : TIdC_LONG) : TIdC_LONG; -//{$IFDEF USE_INLINE} inline; {$ENDIF} -//begin -// Result := BIO_ctrl(b,BIO_C_SET_FILE_PTR,c,fp); -//end; - -//function BIO_get_fp(b : PBIO; out fpp : Pointer) : TIdC_LONG; -//{$IFDEF USE_INLINE} inline; {$ENDIF} -//begin -// Result := BIO_ctrl(b,BIO_C_GET_FILE_PTR,0,@fpp); -//end; - -function BIO_seek(b : PBIO; ofs : TIdC_LONG) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_FILE_SEEK,ofs,nil); -end; - -function BIO_tell(b : PBIO) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_FILE_TELL,0,nil); -end; - -//* name is cast to lose const, but might be better to route through a function -// so we can do it safely */ -{$IFDEF CONST_STRICT} -///* If you are wondering why this isn't defined, its because CONST_STRICT is -// * purely a compile-time kludge to allow const to be checked. -// */ -//int BIO_read_filename(BIO *b,const char *name); -{$ELSE} -function BIO_read_filename(b : PBIO; name : PIdAnsiChar) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_FILENAME, BIO_CLOSE or BIO_FP_READ,name); -end; -{$ENDIF} - -function BIO_write_filename(b : PBIO; name : PIdAnsiChar) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_FILENAME, BIO_CLOSE or BIO_FP_WRITE,name); -end; - -function BIO_append_filename(b : PBIO; name : PIdAnsiChar) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_FILENAME, BIO_CLOSE or BIO_FP_APPEND,name); -end; - -function BIO_rw_filename(b : PBIO; name : PIdAnsiChar) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_FILENAME, BIO_CLOSE or BIO_FP_READ or BIO_FP_WRITE,name); -end; - -///* WARNING WARNING, this ups the reference count on the read bio of the -// * SSL structure. This is because the ssl read BIO is now pointed to by -// * the next_bio field in the bio. So when you free the BIO, make sure -// * you are doing a BIO_free_all() to catch the underlying BIO. */ -function BIO_set_ssl(b : PBIO; ssl : PSSL; c : TIdC_LONG) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_SSL,c,ssl); -end; - -function BIO_get_ssl(b : PBIO; var sslp : PSSL) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_GET_SSL,0,@sslp); -end; - -function BIO_set_ssl_mode(b : PBIO; client : TIdC_LONG) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SSL_MODE,client,nil); -end; - -function BIO_set_ssl_renegotiate_bytes(b : PBIO; num : TIdC_LONG) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_SSL_RENEGOTIATE_BYTES,num,nil); -end; - -function BIO_get_num_renegotiates(b : PBIO) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_GET_SSL_NUM_RENEGOTIATES,0,nil); -end; - -function BIO_set_ssl_renegotiate_timeout(b : PBIO; seconds : TIdC_LONG) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_SSL_RENEGOTIATE_TIMEOUT,seconds,nil); -end; - -function BIO_get_mem_data(b : PBIO; var pp : PIdAnsiChar) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_CTRL_INFO,0,@pp); -end; - -function BIO_set_mem_buf(b : PBIO; bm : PBUF_MEM; c : TIdC_INT) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b, BIO_C_SET_BUF_MEM, c, bm); -end; - -function BIO_get_mem_ptr(b: PBIO; var pp: PBUF_MEM) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b, BIO_C_GET_BUF_MEM_PTR, 0, @pp); -end; - -procedure BIO_set_mem_eof_return(b : PBIO; const v : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - BIO_ctrl(b,BIO_C_SET_BUF_MEM_EOF_RETURN,v,nil); -end; - -//* For the BIO_f_buffer() type */ -function BIO_get_buffer_num_lines(b : PBIO) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_GET_BUFF_NUM_LINES,0,nil); -end; - -procedure BIO_set_buffer_size(b : PBIO; const size : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - BIO_ctrl(b,BIO_C_SET_BUFF_SIZE,size,nil); -end; - -//* Don't use the next one unless you know what you are doing :-) */ -function BIO_dup_state(b : PBIO; ret : PBIO) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_CTRL_DUP,0,ret); -end; - -function BIO_reset(b : PBIO) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_CTRL_RESET,0,nil); -end; - -function BIO_eof(b : PBIO) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_CTRL_EOF,0,nil); -end; - -function BIO_set_close(b: PBIO; c: TIdC_LONG): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b, BIO_CTRL_SET_CLOSE, c, nil); -end; - -function BIO_get_close(b : PBIO) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b, BIO_CTRL_GET_CLOSE, 0, nil); -end; - -function BIO_pending(b : PBIO) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_CTRL_PENDING,0,nil); -end; - -function BIO_wpending(b : PBIO) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_CTRL_WPENDING,0,nil); -end; - -function BIO_flush(b : PBIO) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_CTRL_FLUSH,0,nil); -end; - -//* For the BIO_f_buffer() type */ -function BIO_buffer_get_num_lines(b : PBIO) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_CTRL_GET,0,nil); -end; - -function BIO_get_info_callback(b : PBIO; var cbp : Pbio_info_cb) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_CTRL_GET_CALLBACK,0, @cbp); -end; - -function BIO_set_info_callback(b : PBIO; cb : Pbio_info_cb) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_callback_ctrl(b,BIO_CTRL_SET_CALLBACK,cb); -end; - -//* For BIO_s_bio() */ -//function(bp : PBIO; cmd : TIdC_INT; larg : TIdC_LONG; iArg : TIdC_INT) : TIdC_LONG cdecl = nil; -//BIO_set_read_buffer_size(b,size) BIO_int_ctrl(b,BIO_C_SET_BUFF_SIZE,size,0) -function BIO_set_read_buffer_size(b : PBIO; size : TIdC_LONG) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_int_ctrl(b,BIO_C_SET_BUFF_SIZE,size,0); -end; - -function BIO_set_write_buffer_size(b : PBIO; size : TIdC_LONG) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_int_ctrl(b,BIO_C_SET_BUFF_SIZE,size,1); -end; - -//#define BIO_make_bio_pair(b1,b2) (int)BIO_ctrl(b1,BIO_C_MAKE_BIO_PAIR,0,b2) -function BIO_make_bio_pair(b1, b2 : PBIO ): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b1,BIO_C_MAKE_BIO_PAIR,0,b2); -end; - -//#define BIO_destroy_bio_pair(b) (int)BIO_ctrl(b,BIO_C_DESTROY_BIO_PAIR,0,NULL) -function BIO_destroy_bio_pair(b : PBIO) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_DESTROY_BIO_PAIR,0,nil); -end; - -//#define BIO_shutdown_wr(b) (int)BIO_ctrl(b, BIO_C_SHUTDOWN_WR, 0, NULL) -function BIO_shutdown_wr(b : PBIO) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b, BIO_C_SHUTDOWN_WR, 0, nil); -end; - -///* macros with inappropriate type -- but ...pending macros use int too: */ -//#define BIO_get_write_guarantee(b) (int)BIO_ctrl(b,BIO_C_GET_WRITE_GUARANTEE,0,NULL) -function BIO_get_write_guarantee(b : PBIO) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_GET_WRITE_GUARANTEE,0,nil); -end; - -//#define BIO_get_read_request(b) (int)BIO_ctrl(b,BIO_C_GET_READ_REQUEST,0,NULL) -function BIO_get_read_request(b : PBIO) : TIdC_INT; -begin - Result := BIO_ctrl(b,BIO_C_GET_READ_REQUEST,0,nil); -end; - -//* ctrl macros for dgram */ -function _BIO_ctrl_dgram_connect(b : PBIO; peer : Sockaddr) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_CTRL_DGRAM_CONNECT,0,@peer); -end; - -function BIO_ctrl_set_connected(b : PBIO; state : TIdC_INT; peer : Sockaddr) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b, BIO_CTRL_DGRAM_SET_CONNECTED, state, @peer); -end; - -function BIO_dgram_recv_timedout(b : PBIO) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b, BIO_CTRL_DGRAM_GET_RECV_TIMER_EXP, 0, nil); -end; - -function BIO_dgram_send_timedout(b : PBIO) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b, BIO_CTRL_DGRAM_GET_SEND_TIMER_EXP, 0, nil); -end; - -function BIO_dgram_get_peer(b : PBIO; peer : PSockAddr) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b, BIO_CTRL_DGRAM_GET_PEER, 0, peer); -end; - -function BIO_dgram_set_peer(b : PBIO; peer : PSockAddr) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b, BIO_CTRL_DGRAM_SET_PEER, 0, peer); -end; - -{$IFDEF SSLEAY_MACROS} -//You should do the PEM_read_bio and PEM_write_bio functions like this -//because OpenSSL has a define for either using Macros or the native -//functions. - -function PEM_read_bio_X509(bp: PBIO; x: PPX509; cb: ppem_password_cb; u: Pointer): PX509; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := PEM_ASN1_read_bio(d2i_of_void(d2i_X509), PEM_STRING_X509, bp, PPointer(x), cb, u); -end; - -function PEM_read_bio_X509_REQ(bp :PBIO; x : PPX509_REQ; cb :ppem_password_cb; u: Pointer) : PX509_REQ; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := PEM_ASN1_read_bio(d2i_of_void(d2i_X509_REQ),PEM_STRING_X509_REQ,bp, Pointer(x), cb, u); -end; - -function PEM_read_bio_X509_CRL(bp : PBIO; x : PPX509_CRL;cb : ppem_password_cb; u: Pointer) : PX509_CRL; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := PEM_ASN1_read_bio(d2i_of_void(d2i_X509_CRL), PEM_STRING_X509_CRL, bp, Pointer(x), cb, u); -end; - -function PEM_read_bio_RSAPrivateKey(bp : PBIO; x : PPRSA; cb : ppem_password_cb; u: Pointer) : PRSA; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := PEM_ASN1_read_bio(d2i_of_void(d2i_RSAPrivateKey), PEM_STRING_RSA, bp, Pointer(x), cb, u); -end; - -function PEM_read_bio_RSAPublicKey(bp : PBIO; x : PPRSA; cb : ppem_password_cb; u: Pointer) : PRSA; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := PEM_ASN1_read_bio(d2i_of_void(d2i_RSAPublicKey),PEM_STRING_RSA_PUBLIC, bp, Pointer(x),cb, u); -end; - -function PEM_read_bio_DSAPrivateKey(bp : PBIO; x : PPDSA; cb : ppem_password_cb; u : Pointer) : PDSA; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := PEM_ASN1_read_bio( d2i_of_void(d2i_DSAPrivateKey),PEM_STRING_DSA,bp,Pointer(x),cb,u); -end; - -function PEM_read_bio_PrivateKey(bp : PBIO; x : PPEVP_PKEY; cb : ppem_password_cb; u : Pointer) : PEVP_PKEY; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := PEM_ASN1_read_bio( d2i_of_void(d2i_PrivateKey), PEM_STRING_EVP_PKEY, bp, Pointer(x),cb, u); -end; - -function PEM_read_bio_PKCS7(bp : PBIO; x : PPPKCS7; cb : ppem_password_cb; u : Pointer) : PPKCS7; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := PEM_ASN1_read_bio( d2i_of_void(d2i_PKCS7), PEM_STRING_PKCS7,bp,Pointer(x),cb, u); -end; - -function PEM_read_bio_DHparams(bp : PBIO; x : PPDH; cb : ppem_password_cb; u : Pointer) : PDH; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := PEM_ASN1_read_bio(d2i_of_void(d2i_DHparams),PEM_STRING_DHPARAMS,bp,Pointer(x),cb,u); -end; - -function PEM_read_bio_DSAparams(bp : PBIO; x : PPDSA; cb : ppem_password_cb; u : Pointer) : PDSA; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := PEM_ASN1_read_bio( d2i_of_void(d2i_DSAparams),PEM_STRING_DSAPARAMS,bp,Pointer(x),cb,u); -end; - -function PEM_read_bio_NETSCAPE_CERT_SEQUENCE(bp : PBIO; x : PPNETSCAPE_CERT_SEQUENCE; - cb : ppem_password_cb; u : Pointer) : PNETSCAPE_CERT_SEQUENCE; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := PEM_ASN1_read_bio( d2i_of_void(d2i_NETSCAPE_CERT_SEQUENCE),PEM_STRING_X509,bp,Pointer(x),cb, u); -end; - -function PEM_read_bio_PUBKEY(bp : PBIO; x: PPEVP_PKEY; cb: ppem_password_cb; u: Pointer): PEVP_PKEY; -begin - Result := PEM_ASN1_read_bio( d2i_of_void(d2i_PUBKEY),PEM_STRING_PUBLIC,bp,Pointer(x),cb, u); -end; - -function PEM_write_bio_X509(bp: PBIO; x: PX509): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Assert(bp<>nil); - Assert(x<>nil); - Result := PEM_ASN1_write_bio( i2d_of_void(i2d_X509), PEM_STRING_X509, bp, PIdAnsiChar(x), nil, nil, 0, nil, nil); - Assert(Result<>0); -end; - -function PEM_write_bio_X509_REQ(bp: PBIO; x: PX509_REQ): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Assert(bp<>nil); - Assert(x<>nil); - Result := PEM_ASN1_write_bio(i2d_of_void(i2d_X509_REQ), PEM_STRING_X509_REQ, bp, PIdAnsiChar(x), nil, nil, 0, nil, nil); - Assert(Result<>0); -end; - -function PEM_write_bio_X509_CRL(bp : PBIO; x : PX509_CRL) : TIdC_INT; -begin - Assert(bp<>nil); - Assert(x<>nil); - Result := PEM_ASN1_write_bio(i2d_of_void(i2d_X509_CRL), PEM_STRING_X509_CRL, bp, PIdAnsiChar(x), nil, nil, 0, nil, nil); - Assert(Result<>0); -end; - -function PEM_write_bio_RSAPrivateKey(bp : PBIO; x : PRSA; const enc : PEVP_CIPHER; - kstr : PIdAnsiChar; klen : TIdC_INT; cb : ppem_password_cb; u : POinter) : TIdC_INT; -begin - Assert(bp<>nil); - Assert(x<>nil); - Result := PEM_ASN1_write_bio(i2d_of_void(i2d_RSAPrivateKey), PEM_STRING_RSA, bp, PIdAnsiChar(x), enc,kstr,klen,cb,u); - Assert(Result<>0); -end; - -function PEM_write_bio_RSAPublicKey(bp : PBIO; x : PRSA) : TIdC_INT; -begin - Assert(bp<>nil); - Assert(x<>nil); - Result := PEM_ASN1_write_bio(i2d_of_void(i2d_RSAPublicKey), PEM_STRING_RSA_PUBLIC, bp, PIdAnsiChar(x), nil, nil, 0, nil, nil); - Assert(Result<>0); -end; - -function PEM_write_bio_DSAPrivateKey( bp : PBIO; x : PDSA; const enc : PEVP_CIPHER; - kstr : PIdAnsiChar; klen : TIdC_INT; cb : Ppem_password_cb; u : Pointer) : TIdC_INT; -begin - Assert(bp<>nil); - Assert(x<>nil); - Result := PEM_ASN1_write_bio(i2d_of_void(i2d_DSAPrivateKey), PEM_STRING_DSA, bp, PIdAnsiChar(x), enc,kstr,klen,cb,u); - Assert(Result<>0); -end; - -function PEM_write_bio_PrivateKey(bp : PBIO; x : PEVP_PKEY; const enc : PEVP_CIPHER; - kstr : PIdAnsiChar; klen : TIdC_INT; cb : Ppem_password_cb; u : Pointer) : TIdC_INT; -begin - Assert(bp<>nil); - Assert(x<>nil); - if x^._type = EVP_PKEY_DSA then begin - Result := PEM_ASN1_write_bio(i2d_of_void(i2d_PrivateKey),PEM_STRING_DSA,bp, Pointer(x),enc,kstr,klen,cb,u); - end else begin - Result := PEM_ASN1_write_bio(i2d_of_void(i2d_PrivateKey),PEM_STRING_RSA,bp, Pointer(x),enc,kstr,klen,cb,u); - end; - Assert(Result<>0); -end; - -function PEM_write_bio_PKCS7(bp : PBIO; x : PPKCS7) : TIdC_INT; -begin - Assert(bp<>nil); - Assert(x<>nil); - Result := PEM_ASN1_write_bio(i2d_of_void(i2d_PKCS7), PEM_STRING_PKCS7, bp, PIdAnsiChar(x), nil, nil, 0, nil, nil); - Assert(Result<>0); -end; - -function PEM_write_bio_DHparams(bp : PBIO; x : PDH): TIdC_INT; -begin - Assert(bp<>nil); - Assert(x<>nil); - Result := PEM_ASN1_write_bio(i2d_of_void(i2d_DHparams), PEM_STRING_DHPARAMS, bp, PIdAnsiChar(x), nil, nil, 0, nil, nil); - Assert(Result<>0); -end; - -function PEM_write_bio_DSAparams(bp : PBIO; x : PDSA) : TIdC_INT; -begin - Assert(bp<>nil); - Assert(x<>nil); - Result := PEM_ASN1_write_bio(i2d_of_void(i2d_DSAparams), PEM_STRING_DSAPARAMS, bp, PIdAnsiChar(x), nil, nil, 0, nil, nil); - Assert(Result<>0); -end; - -function PEM_write_bio_NETSCAPE_CERT_SEQUENCE(bp : PBIO; x : PDSA) : TIdC_INT; -begin - Assert(bp<>nil); - Assert(x<>nil); - Result := PEM_ASN1_write_bio(i2d_of_void(i2d_NETSCAPE_CERT_SEQUENCE), PEM_STRING_X509, bp, PIdAnsiChar(x), nil, nil, 0, nil, nil); - Assert(Result<>0); -end; - -function PEM_write_bio_PUBKEY(bp: PBIO; x : PEVP_PKEY): TIdC_INT; -begin - Assert(bp<>nil); - Assert(x<>nil); - Result := PEM_ASN1_write_bio(i2d_of_void(i2d_PUBKEY), PEM_STRING_PUBLIC, bp, PIdAnsiChar(x), nil, nil, 0, nil, nil); - Assert(Result<>0); -end; - -{$ELSE} - -function PEM_read_bio_X509(bp: PBIO; x: PPX509; cb: ppem_password_cb; u: Pointer): PX509; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_read_bio_X509(bp, x, cb, u); -end; - -function PEM_read_bio_X509_REQ(bp :PBIO; x : PPX509_REQ; cb :ppem_password_cb; u: Pointer) : PX509_REQ; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_read_bio_X509_REQ(bp, x, cb, u); -end; - -function PEM_read_bio_X509_CRL(bp : PBIO; x : PPX509_CRL;cb : ppem_password_cb; u: Pointer) : PX509_CRL; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_read_bio_X509_CRL(bp, x, cb, u); -end; - -function PEM_read_bio_RSAPrivateKey(bp : PBIO; x : PPRSA; cb : ppem_password_cb; u: Pointer) : PRSA; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_read_bio_RSAPrivateKey(bp, x, cb, u); -end; - -function PEM_read_bio_RSAPublicKey(bp : PBIO; x : PPRSA; cb : ppem_password_cb; u: Pointer) : PRSA; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_read_bio_RSAPublicKey(bp, x, cb, u); -end; - -function PEM_read_bio_DSAPrivateKey(bp : PBIO; x : PPDSA; cb : ppem_password_cb; u : Pointer) : PDSA;{$IFDEF USE_INLINE} inline; {$ENDIF} -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_read_bio_DSAPrivateKey(bp, x, cb, u); -end; - -function PEM_read_bio_PrivateKey(bp : PBIO; x : PPEVP_PKEY; cb : ppem_password_cb; u : Pointer) : PEVP_PKEY; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_read_bio_PrivateKey(bp, x, cb, u); -end; - -function PEM_read_bio_PKCS7(bp : PBIO; x : PPPKCS7; cb : ppem_password_cb; u : Pointer) : PPKCS7; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_read_bio_PKCS7(bp, x, cb, u); -end; - -function PEM_read_bio_DHparams(bp : PBIO; x : PPDH; cb : ppem_password_cb; u : Pointer) : PDH; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_read_bio_DHparams(bp, x, cb, u); -end; - -function PEM_read_bio_DSAparams(bp : PBIO; x : PPDSA; cb : ppem_password_cb; u : Pointer) : PDSA; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_read_bio_DSAparams(bp, x, cb, u); -end; - -function PEM_read_bio_NETSCAPE_CERT_SEQUENCE(bp : PBIO; x : PPNETSCAPE_CERT_SEQUENCE; - cb : ppem_password_cb; u : Pointer) : PNETSCAPE_CERT_SEQUENCE; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_read_bio_NETSCAPE_CERT_SEQUENCE(bp, x, cb, u); -end; - -function PEM_read_bio_PUBKEY(bp : PBIO; x : PPEVP_PKEY; cb : ppem_password_cb; u : Pointer) : PEVP_PKEY; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_read_bio_PUBKEY(bp, x, cb, u); -end; - -function PEM_write_bio_X509(bp: PBIO; x: PX509): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_write_bio_X509(bp, x); -end; - -function PEM_write_bio_X509_REQ(bp: PBIO; x: PX509_REQ): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_write_bio_X509_REQ(bp, x); -end; - -function PEM_write_bio_X509_CRL(bp : PBIO; x : PX509_CRL) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_write_bio_X509_CRL(bp, x); -end; - -function PEM_write_bio_RSAPublicKey(bp : PBIO; x : PRSA) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_write_bio_RSAPublicKey(bp,x); -end; - -function PEM_write_bio_RSAPrivateKey(bp : PBIO; x : PRSA; const enc : PEVP_CIPHER; - kstr : PIdAnsiChar; klen : TIdC_INT; cb : ppem_password_cb; u : POinter) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_write_bio_RSAPrivateKey(bp,x,enc,kstr,klen,cb, u); -end; - -function PEM_write_bio_DSAPrivateKey( bp : PBIO; x : PDSA; const enc : PEVP_CIPHER; - kstr : PIdAnsiChar; klen : TIdC_INT; cb : Ppem_password_cb; u : Pointer) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_write_bio_DSAPrivateKey( bp, x, enc, kstr, klen, cb, u); -end; - -function PEM_write_bio_PrivateKey(bp : PBIO; x : PEVP_PKEY; const enc : PEVP_CIPHER; - kstr : PIdAnsiChar; klen : TIdC_INT; cb : Ppem_password_cb; u : Pointer) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_write_bio_PrivateKey(bp,x, enc, kstr, klen, cb, u); -end; - -function PEM_write_bio_PKCS7(bp : PBIO; x : PPKCS7) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_write_bio_PKCS7(bp, x); -end; - -function PEM_write_bio_DHparams(bp : PBIO; x : PDH): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_write_bio_DHparams(bp, x); -end; - -function PEM_write_bio_DSAparams(bp : PBIO; x : PDSA) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_write_bio_DSAparams(bp, x); -end; - -function PEM_write_bio_NETSCAPE_CERT_SEQUENCE(bp : PBIO; x : PDSA) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_write_bio_NETSCAPE_CERT_SEQUENCE(bp, x); -end; - -function PEM_write_bio_PUBKEY(bp : PBIO; x : PEVP_PKEY): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := _PEM_write_bio_PUBKEY(bp, x); -end; - -{$ENDIF} - -function OPENSSL_malloc(aSize:TIdC_INT):Pointer; -{$IFDEF USE_INLINE} inline; {$ENDIF} -//can also use CRYPTO_mem_leaks(bio) -begin - Result := CRYPTO_malloc(aSize, - {$IFNDEF HAS_PAnsiChar} - @cNull - {$ELSE} - '' - {$ENDIF}, 0); -end; - -procedure CRYPTO_SetMemCheck(const aEnabled: Boolean); -{$IFDEF USE_INLINE} inline; {$ENDIF} -//compile openssl with -DCRYPTO_MDEBUG -{$IFOPT C+} // detect assertions -var - r: Integer; -{$ENDIF} -begin - //compile openssl with -DCRYPTO_MDEBUG - {$IFOPT C+}r :={$ENDIF} CRYPTO_mem_ctrl(iif(aEnabled, CRYPTO_MEM_CHECK_ON, CRYPTO_MEM_CHECK_OFF)); - {$IFOPT C+}Assert(r<>0);{$ENDIF} -end; - -{$IFNDEF OPENSSL_NO_RSA} -function EVP_PKEY_assign_RSA(pkey: PEVP_PKEY; rsa: PRSA): TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_PKEY_assign(pkey, EVP_PKEY_RSA, rsa); -end; -{$ENDIF} - -{$IFNDEF OPENSSL_NO_DSA} -function EVP_PKEY_assign_DSA(pkey : PEVP_PKEY; dsa : PDSA) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_PKEY_assign(pkey, EVP_PKEY_DSA, dsa); -end; -{$ENDIF} - -{$IFNDEF OPENSSL_NO_DH} -function EVP_PKEY_assign_DH(pkey : PEVP_PKEY; dh : PDH) : TIdC_INT; -begin - Result := EVP_PKEY_assign(pkey, EVP_PKEY_DH, dh); -end; -{$ENDIF} - -{$IFNDEF OPENSSL_NO_EC} -function EVP_PKEY_assign_EC_KEY(pkey : PEVP_PKEY; eckey : PEC_KEY) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_PKEY_assign(pkey, EVP_PKEY_EC, eckey); -end; -{$ENDIF} - -function EVP_get_digestbynid(a : TIdC_INT) : PEVP_MD; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_get_digestbyname(OBJ_nid2sn(a)); -end; - -function EVP_get_digestbyobj(a : PASN1_OBJECT) : PEVP_MD; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_get_digestbynid(OBJ_obj2nid(a)); -end; - -function EVP_get_cipherbynid(a : TIdC_INT) : PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_get_cipherbyname(OBJ_nid2sn(a)); -end; - -function EVP_get_cipherbyobj(a : PASN1_OBJECT) : PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_get_cipherbynid(OBJ_obj2nid(a)) -end; - -function EVP_MD_nid(e : PEVP_MD) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_MD_type(e); -end; - -function EVP_MD_name(e : PEVP_MD) : PIdAnsiChar; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := OBJ_nid2sn(EVP_MD_nid(e)) -end; - -function EVP_MD_CTX_size(e : PEVP_MD_CTX) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_MD_size(EVP_MD_CTX_md(e)); -end; - -function EVP_MD_CTX_block_size(e : PEVP_MD_CTX) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_MD_block_size(EVP_MD_CTX_md(e)); -end; - -function EVP_MD_CTX_type(e : PEVP_MD_CTX) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_MD_type(EVP_MD_CTX_md(e)); -end; - -function EVP_CIPHER_name(e : PEVP_CIPHER) : PIdAnsiChar; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := OBJ_nid2sn(EVP_CIPHER_nid(e)); -end; - -function EVP_CIPHER_mode(e : PEVP_CIPHER) : TIdC_ULONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := (EVP_CIPHER_flags(e) and EVP_CIPH_MODE) -end; - -function EVP_CIPHER_CTX_type(c : PEVP_CIPHER_CTX) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_CIPHER_type(EVP_CIPHER_CTX_cipher(c)); -end; - -function EVP_CIPHER_CTX_mode(e : PEVP_CIPHER_CTX) : TIdC_ULONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := (EVP_CIPHER_CTX_flags(e) and EVP_CIPH_MODE) -end; - -function EVP_ENCODE_LENGTH(l : Integer) : Integer; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := (((l+2) div 3*4)+(l div 48+1)*2+80); -end; - -function EVP_DECODE_LENGTH(l : Integer) : Integer; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := ((l+3) div 4*3+80); -end; - -function EVP_SignInit_ex(a: PEVP_MD_CTX; b : PEVP_MD; c : PENGINE) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_DigestInit_ex(a, b,c); -end; - -function EVP_SignInit(a : PEVP_MD_CTX; b : PEVP_MD) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_DigestInit(a,b); -end; - -function EVP_SignUpdate(a: PEVP_MD_CTX; b : Pointer; c : size_t) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_DigestUpdate(a,b,c); -end; - -function EVP_VerifyInit_ex(a: PEVP_MD_CTX; b: PEVP_MD; c: PENGINE) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_DigestInit_ex(a,b,c); -end; - -function EVP_VerifyInit(a: PEVP_MD_CTX; b: PEVP_MD) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_DigestInit(a,b); -end; - -function EVP_VerifyUpdate(a: PEVP_MD_CTX; b: Pointer; c : size_t) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_DigestUpdate(a,b,c); -end; - -function EVP_OpenUpdate(a: PEVP_CIPHER_CTX; _out : PIdAnsiChar; outl : PIdC_INT; - _in : PIdAnsiChar; inl : TIdC_INT) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_DecryptUpdate(a,_out,outl,_in,inl); -end; - -function EVP_SealUpdate(a : PEVP_CIPHER_CTX; b: PIdAnsiChar; c : PIdC_INT; - d: PIdAnsiChar; e : TIdC_INT) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_EncryptUpdate(a,b,c,d,e) -end; - -function EVP_DigestSignUpdate(a : PEVP_MD_CTX; b : Pointer; c : size_t) : TIdC_Int; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_DigestUpdate(a,b,size_t(c)); -end; - -function EVP_DigestVerifyUpdate(a : PEVP_MD_CTX; b : Pointer; c : size_t) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_DigestUpdate(a,b,size_t(c)); -end; - -function BIO_get_md(b : PBIO; var mdp : PEVP_MD) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_GET_MD,0,@mdp); -end; - -function BIO_get_md_ctx(b : PBIO; var mdcp : PEVP_MD_CTX) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_GET_MD_CTX,0,@mdcp); -end; - -function BIO_set_md_ctx(b : PBIO; mdcp : PEVP_MD_CTX) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_SET_MD_CTX,0,mdcp); -end; - -function BIO_get_cipher_status(b : PBIO) : TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_GET_CIPHER_STATUS,0,nil); -end; - -function BIO_get_cipher_ctx(b : PBIO; var c_pp : PEVP_CIPHER_CTX): TIdC_LONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := BIO_ctrl(b,BIO_C_GET_CIPHER_CTX,0,@c_pp); -end; - -{$ifndef OPENSSL_NO_DES} -function EVP_des_cfb : PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_des_cfb64; -end; - -function EVP_des_ede_cfb: PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_des_ede_cfb64; -end; - -function EVP_des_ede3_cfb: PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_des_ede3_cfb64 -end; -{$endif} - -{$ifndef OPENSSL_NO_IDEA} -function EVP_idea_cfb: PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_idea_cfb64 -end; - -{$endif} - -{$ifndef OPENSSL_NO_RC2} -function EVP_rc2_cfb: PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_rc2_cfb64; -end; -{$endif} - -{$ifndef OPENSSL_NO_BF} -function EVP_bf_cfb: PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_bf_cfb64; -end; -{$endif} - -{$ifndef OPENSSL_NO_CAST} -function EVP_cast5_cfb: PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_cast5_cfb64; -end; -{$endif} - -{$ifndef OPENSSL_NO_RC5} -function EVP_rc5_32_12_16_cfb: PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_rc5_32_12_16_cfb64; -end; -{$endif} - -{$ifndef OPENSSL_NO_AES} -function EVP_aes_128_cfb: PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_aes_128_cfb128; -end; - -function EVP_aes_192_cfb: PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_aes_192_cfb128 -end; - -function EVP_aes_256_cfb: PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_aes_256_cfb128; -end; -{$endif} - -{$ifndef OPENSSL_NO_CAMELLIA} -function EVP_camellia_128_cfb: PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_camellia_128_cfb128; -end; - -function EVP_camellia_192_cfb: PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_camellia_192_cfb128; -end; - -function EVP_camellia_256_cfb: PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_camellia_256_cfb128; -end; -{$ENDIF} - -{$ifndef OPENSSL_NO_SEED} -function EVP_seed_cfb: PEVP_CIPHER; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_seed_cfb128; -end; -{$endif} - -function EVP_PKEY_CTX_set_signature_md(ctx : PEVP_PKEY_CTX;md : PEVP_PKEY_CTX) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := EVP_PKEY_CTX_ctrl(ctx, -1, EVP_PKEY_OP_TYPE_SIG, - EVP_PKEY_CTRL_MD, 0, Pointer(md)); -end; - -procedure SSLeay_add_all_algorithms; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - OpenSSL_add_all_algorithms; -end; - -procedure SSLeay_add_all_ciphers; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - OpenSSL_add_all_ciphers; -end; - -procedure SSLeay_add_all_digests; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - OpenSSL_add_all_digests; -end; - -procedure X509V3_set_ctx_nodb(ctx: X509V3_CTX); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ctx.db := nil; -end; - -function ERR_PACK(l, f, r : TIdC_INT) : TIdC_ULONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := ((TIdC_ULONG(l) and $ff) * $1000000) or - ((TIdC_ULONG(f) and $fff) * $1000) or - (TIdC_ULONG(r) and $fff); -end; - -function ERR_GET_LIB(const l : TIdC_INT) : TIdC_ULONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := (l shr 24) and $ff; -end; - -function ERR_GET_FUNC(const l : TIdC_INT) : TIdC_ULONG; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := (l shr 12) and $fff; -end; - -function ERR_FATAL_ERROR(const l : TIdC_INT) : Boolean; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := (l and ERR_R_FATAL) > 0; -end; - -function ERR_GET_REASON(const l : TIdC_INT) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := l and $fff; -end; - -//__FILE__,__LINE__ preprocessor macros are not available in Pascal. -//so we can't pass error location info in the last two parameters. -procedure SYSerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_SYS,f,r,nil,0); -end; - -procedure BNerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_BN,f,r,nil,0); -end; - -procedure RSAerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_RSA,f,r,nil,0); -end; - -procedure DHerrr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_DH,f,r,nil,0); -end; - -procedure EVPerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_EVP,f,r,nil,0); -end; - -procedure BUFerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_BUF,f,r,nil,0); -end; - -procedure OBJerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_OBJ,f,r,nil,0); -end; - -procedure PEMerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_PEM,f,r,nil,0); -end; - -procedure DSAerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_DSA,f,r,nil,0); -end; - -procedure X509err(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_X509,f,r,nil,0); -end; - -procedure ASN1err(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_ASN1,f,r,nil,0); -end; - -procedure CONFerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_CONF,f,r,nil,0); -end; - -procedure CRYPTOerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_CRYPTO,f,r,nil,0); -end; - -procedure ECerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_EC,f,r,nil,0); -end; - -procedure SSLerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_SSL,f,r,nil,0); -end; - -procedure BIOerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_BIO,f,r,nil,0); -end; - -procedure PKCS7err(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_PKCS7,f,r,nil,0); -end; - -procedure X509V3err(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_X509V3,f,r,nil,0); -end; - -procedure PKCS12err(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_PKCS12,f,r,nil,0); -end; - -procedure RANDerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_RAND,f,r,nil,0); -end; - -procedure DSOerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_DSO,f,r,nil,0); -end; - -procedure ENGINEerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_ENGINE,f,r,nil,0); -end; - -procedure OCSPerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_OCSP,f,r,nil,0); -end; - -procedure UIerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_UI,f,r,nil,0); -end; - -procedure COMPerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_COMP,f,r,nil,0); -end; - -procedure ECDSAerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_ECDSA,f,r,nil,0); -end; - -procedure ECDHerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_ECDH,f,r,nil,0); -end; - -procedure STOREerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_STORE,f,r,nil,0); -end; - -procedure FIPSerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_FIPS,f,r,nil,0); -end; - -procedure CMSerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_CMS,f,r,nil,0); -end; - -procedure TSerr(const f,r : TIdC_INT); -begin - ERR_PUT_error(ERR_LIB_TS,f,r,nil,0); -end; - -procedure HMACerr(const f,r : TIdC_INT); -begin - ERR_PUT_error(ERR_LIB_HMAC,(f),(r),nil,0); -end; - -procedure JPAKEerr(const f,r : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - ERR_PUT_error(ERR_LIB_JPAKE,f,r,nil,0); -end; - -procedure CRYPTO_w_lock(const _type : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - {$IFNDEF OPENSSL_NO_LOCKING} - _CRYPTO_lock(CRYPTO_LOCK or CRYPTO_WRITE,_type, nil, 0); - {$ENDIF} -end; - -procedure CRYPTO_w_unlock(const _type : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - {$IFNDEF OPENSSL_NO_LOCKING} - _CRYPTO_lock(CRYPTO_UNLOCK or CRYPTO_WRITE,_type, nil, 0); - {$ENDIF} -end; - -procedure CRYPTO_r_lock(const _type : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - {$IFNDEF OPENSSL_NO_LOCKING} - _CRYPTO_lock(CRYPTO_LOCK or CRYPTO_READ,_type, nil, 0); - {$ENDIF} -end; - -procedure CRYPTO_r_unlock(const _type : TIdC_INT); -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - {$IFNDEF OPENSSL_NO_LOCKING} - _CRYPTO_lock(CRYPTO_UNLOCK or CRYPTO_READ,_type, nil, 0); - {$ENDIF} -end; - -function X509_LOOKUP_load_file(x : PX509_LOOKUP; name : PIdAnsiChar; _type : TIdC_LONG) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := X509_LOOKUP_ctrl(x, X509_L_FILE_LOAD, name, _type, nil); -end; - -function X509_LOOKUP_add_dir(x : PX509_LOOKUP; name : PIdAnsiChar; _type : TIdC_LONG) : TIdC_INT; -{$IFDEF USE_INLINE} inline; {$ENDIF} -begin - Result := X509_LOOKUP_ctrl(x, X509_L_ADD_DIR, name, _type, nil); -end; - -procedure RAND_cleanup; -begin - if Assigned(_RAND_cleanup) then begin - _RAND_cleanup(); - end; -end; - -function RAND_bytes(buf : PIdAnsiChar; num : integer) : integer; -begin - if Assigned(_RAND_bytes) then begin - Result := _RAND_bytes(buf, num); - end else begin - Result := 0; - end; -end; - -function RAND_pseudo_bytes(buf : PIdAnsiChar; num : integer) : integer; -begin - if Assigned(_RAND_pseudo_bytes) then begin - Result := _RAND_pseudo_bytes(buf, num); - end else begin - Result := 0; - end; -end; - -procedure RAND_seed(buf : PIdAnsiChar; num : integer); -begin - if Assigned(_RAND_seed) then begin - _RAND_seed(buf, num); - end; -end; - -procedure RAND_add(buf : PIdAnsiChar; num : integer; entropy : integer); -begin - if Assigned(_RAND_add) then begin - _RAND_add(buf, num, entropy); - end; -end; - -function RAND_status() : integer; -begin - if Assigned(_RAND_status) then begin - Result := _RAND_status(); - end else begin - Result := 0; - end; -end; - -{$IFDEF SYS_WIN} -function RAND_event(iMsg : UINT; wp : wparam; lp : lparam) : integer; -begin - if Assigned(_RAND_event) then begin - Result := _RAND_event(iMsg, wp, lp); - end else begin - Result := 0; - end; -end; - -procedure RAND_screen(); -begin - if Assigned(_RAND_screen) then begin - _RAND_screen(); - end; -end; -{$ENDIF} - -initialization - {$IFDEF STATICLOAD_OPENSSL} - InitializeFuncPointers; - {$ELSE} - FFailedLoadList := TStringList.Create; - {$ENDIF} - SetFIPSMode := OpenSSLSetFIPSMode; - GetFIPSMode := OpenSSLGetFIPSMode; - IsHashingIntfAvail := OpenSSLIsHashingIntfAvail; - IsMD2HashIntfAvail := OpenSSLIsMD2HashIntfAvail; - GetMD2HashInst := OpenSSLGetMD2HashInst; - IsMD4HashIntfAvail := OpenSSLIsMD4HashIntfAvail; - GetMD4HashInst := OpenSSLGetMD4HashInst; - IsMD5HashIntfAvail := OpenSSLIsMD5HashIntfAvail; - GetMD5HashInst := OpenSSLGetMD5HashInst; - IsSHA1HashIntfAvail := OpenSSLIsSHA1HashIntfAvail; - GetSHA1HashInst := OpenSSLGetSHA1HashInst; - IsSHA224HashIntfAvail := OpenSSLIsSHA224HashIntfAvail; - GetSHA224HashInst := OpenSSLGetSHA224HashInst; - IsSHA256HashIntfAvail := OpenSSLIsSHA256HashIntfAvail; - GetSHA256HashInst := OpenSSLGetSHA256HashInst; - IsSHA384HashIntfAvail := OpenSSLIsSHA384HashIntfAvail; - GetSHA384HashInst := OpenSSLGetSHA384HashInst; - IsSHA512HashIntfAvail := OpenSSLIsSHA512HashIntfAvail; - GetSHA512HashInst := OpenSSLGetSHA512HashInst; - UpdateHashInst := OpenSSLUpdateHashInst; - FinalHashInst := OpenSSLFinalHashInst; - IsHMACAvail := OpenSSLIsHMACAvail; - IsHMACMD5Avail := OpenSSLIsHMACMD5Avail; - GetHMACMD5HashInst := OpenSSLGetHMACMD5Inst; - IsHMACSHA1Avail := OpenSSLIsHMACSHA1Avail; - GetHMACSHA1HashInst:= OpenSSLGetHMACSHA1Inst; - IsHMACSHA224Avail := OpenSSLIsHMACSHA224Avail; - GetHMACSHA224HashInst:= OpenSSLGetHMACSHA224Inst; - IsHMACSHA256Avail := OpenSSLIsHMACSHA256Avail; - GetHMACSHA256HashInst:= OpenSSLGetHMACSHA256Inst; - IsHMACSHA384Avail := OpenSSLIsHMACSHA384Avail; - GetHMACSHA384HashInst:= OpenSSLGetHMACSHA384Inst; - IsHMACSHA512Avail := OpenSSLIsHMACSHA512Avail; - GetHMACSHA512HashInst:= OpenSSLGetHMACSHA512Inst; - UpdateHMACInst := OpenSSLUpdateHMACInst; - FinalHMACInst := OpenSSLFinalHMACInst; - LoadHashLibrary := LoadOpenSSL; -{$IFNDEF STATICLOAD_OPENSSL} -finalization - FreeAndNil(FFailedLoadList); -{$ENDIF} - -end. diff --git a/IdSSLOpenSSLHeaders_static.pas b/IdSSLOpenSSLHeaders_static.pas deleted file mode 100644 index eb26de2..0000000 --- a/IdSSLOpenSSLHeaders_static.pas +++ /dev/null @@ -1,1079 +0,0 @@ -unit IdSSLOpenSSLHeaders_static; - -interface - -{$I IdCompilerDefines.inc} - -{$IFNDEF USE_OPENSSL} - {$message error Should not compile if USE_OPENSSL is not defined!!!} -{$ENDIF} - -{$IFDEF HAS_DIRECTIVE_HPPEMIT_LINKUNIT} - {$HPPEMIT LINKUNIT} -{$ELSE} - {$HPPEMIT '#pragma link "IdSSLOpenSSLHeaders_static"'} -{$ENDIF} - -implementation - -{$IFDEF STATICLOAD_OPENSSL} -uses - IdGlobal, Posix.SysTypes, IdCTypes, IdSSLOpenSSLHeaders; - -const - SSL_LIB_name = 'libssl.a'; {Do not Localize} - SSLCLIB_LIB_name = 'libcrypto.a'; {Do not Localize} - -function SSL_CTX_set_cipher_list_func(_para1: PSSL_CTX; const str: PIdAnsiChar): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_CTX_set_cipher_list'; - -function SSL_CTX_new_func(meth: PSSL_METHOD): PSSL_CTX cdecl; external SSL_LIB_NAME name 'SSL_CTX_new'; - -procedure SSL_CTX_free_proc(_para1: PSSL_CTX) cdecl; external SSL_LIB_NAME name 'SSL_CTX_free'; - -function SSL_set_fd_func(s: PSSL; fd: TIdC_INT): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_set_fd'; - -function SSL_CTX_use_PrivateKey_file_func(ctx: PSSL_CTX; const _file: PIdAnsiChar; _type: TIdC_INT): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_CTX_use_PrivateKey_file'; - -function SSL_CTX_use_PrivateKey_func(ctx: PSSL_CTX; pkey: PEVP_PKEY): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_CTX_use_PrivateKey'; - -function SSL_CTX_use_certificate_func(ctx: PSSL_CTX; x: PX509): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_CTX_use_certificate'; - -function SSL_CTX_use_certificate_file_func(ctx: PSSL_CTX; const _file: PIdAnsiChar; _type: TIdC_INT): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_CTX_use_certificate_file'; - -procedure SSL_load_error_strings_proc cdecl; external SSL_LIB_NAME name 'SSL_load_error_strings'; - -function SSL_state_string_long_func(s: PSSL): PIdAnsiChar cdecl; external SSL_LIB_NAME name 'SSL_state_string_long'; - -function SSL_alert_desc_string_long_func(value : TIdC_INT) : PIdAnsiChar cdecl; external SSL_LIB_NAME name 'SSL_alert_desc_string_long'; - -function SSL_alert_type_string_long_func(value : TIdC_INT) : PIdAnsiChar cdecl; external SSL_LIB_NAME name 'SSL_alert_type_string_long'; - -function SSL_get_peer_certificate_func(s: PSSL): PX509 cdecl; external SSL_LIB_NAME name 'SSL_get_peer_certificate'; - -procedure SSL_CTX_set_verify_proc(ctx: PSSL_CTX; mode: TIdC_INT; callback: TSSL_CTX_set_verify_callback) cdecl; external SSL_LIB_NAME name 'SSL_CTX_set_verify'; - -procedure SSL_CTX_set_verify_depth_proc(ctx: PSSL_CTX; depth: TIdC_INT) cdecl; external SSL_LIB_NAME name 'SSL_CTX_set_verify_depth'; - -function SSL_CTX_get_verify_depth_func(ctx: PSSL_CTX): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_CTX_get_verify_depth'; - -procedure SSL_CTX_set_default_passwd_cb_proc(ctx: PSSL_CTX; cb: ppem_password_cb) cdecl; external SSL_LIB_NAME name 'SSL_CTX_set_default_passwd_cb'; - -procedure SSL_CTX_set_default_passwd_cb_userdata_proc(ctx: PSSL_CTX; u: Pointer) cdecl; external SSL_LIB_NAME name 'SSL_CTX_set_default_passwd_cb_userdata'; - -function SSL_CTX_check_private_key_func(ctx: PSSL_CTX): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_CTX_check_private_key'; - -function SSL_new_func(ctx: PSSL_CTX): PSSL cdecl; external SSL_LIB_NAME name 'SSL_new'; - -procedure SSL_free_proc(ssl: PSSL) cdecl; external SSL_LIB_NAME name 'SSL_free'; - -function SSL_accept_func(ssl: PSSL): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_accept'; - -function SSL_connect_func(ssl: PSSL): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_connect'; - -function SSL_read_func(ssl: PSSL; buf: Pointer; num: TIdC_INT): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_read'; - -function SSL_peek_func(ssl: PSSL; buf: Pointer; num: TIdC_INT): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_peek'; - -function SSL_pending_func(ssl : PSSL) : TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_pending'; - -function SSL_write_func(ssl: PSSL; const buf: Pointer; num: TIdC_INT): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_write'; - -function SSL_ctrl_func(ssl : PSSL; cmd : TIdC_INT; larg : TIdC_LONG; parg : Pointer) : TIdC_LONG cdecl; external SSL_LIB_NAME name 'SSL_ctrl'; - -function SSL_callback_ctrl_func(ssl : PSSL; cmd : TIdC_INT; fp : SSL_callback_ctrl_fp) : TIdC_LONG cdecl; external SSL_LIB_NAME name 'SSL_callback_ctrl'; - -function SSL_CTX_ctrl_func(ssl: PSSL_CTX; cmd: TIdC_INT; larg: TIdC_LONG; parg: Pointer): TIdC_LONG cdecl; external SSL_LIB_NAME name 'SSL_CTX_ctrl'; - -function SSL_CTX_callback_ctrl_func(ssl : PSSL_CTX; cmd : TIdC_INT; fp : SSL_callback_ctrl_fp) : TIdC_LONG cdecl; external SSL_LIB_NAME name 'SSL_CTX_callback_ctrl'; - -function SSL_get_error_func(s: PSSL; ret_code: TIdC_INT): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_get_error'; - -{$IFNDEF OPENSSL_NO_SSL2} -function SSLv2_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'SSLv2_method'; - -function SSLv2_server_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'SSLv2_server_method'; - -function SSLv2_client_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'SSLv2_client_method'; -{$ENDIF} - -function SSLv3_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'SSLv3_method'; - -function SSLv3_server_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'SSLv3_server_method'; - -function SSLv3_client_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'SSLv3_client_method'; - -function SSLv23_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'SSLv23_method'; - -function SSLv23_server_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'SSLv23_server_method'; - -function SSLv23_client_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'SSLv23_client_method'; - -function TLSv1_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'TLSv1_method'; - -function TLSv1_server_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'TLSv1_server_method'; - -function TLSv1_client_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'TLSv1_client_method'; - -function TLSv1_1_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'TLSv1_1_method'; - -function TLSv1_1_server_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'TLSv1_1_server_method'; - -function TLSv1_1_client_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'TLSv1_1_client_method'; - -function TLSv1_2_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'TLSv1_2_method'; - -function TLSv1_2_server_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'TLSv1_2_server_method'; - -function TLSv1_2_client_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'TLSv1_2_client_method'; - -function DTLSv1_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'DTLSv1_method'; - -function DTLSv1_server_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'DTLSv1_server_method'; - -function DTLSv1_client_method_func: PSSL_METHOD cdecl; external SSL_LIB_NAME name 'DTLSv1_client_method'; - -function SSL_shutdown_func(s: PSSL): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_shutdown'; - -procedure SSL_set_connect_state_proc(s: PSSL) cdecl; external SSL_LIB_NAME name 'SSL_set_connect_state'; - -procedure SSL_set_accept_state_proc(s: PSSL) cdecl; external SSL_LIB_NAME name 'SSL_set_accept_state'; - -procedure SSL_set_shutdown_proc(ssl: PSSL; mode: TIdC_INT) cdecl; external SSL_LIB_NAME name 'SSL_set_shutdown'; - -function SSL_CTX_load_verify_locations_func(ctx: PSSL_CTX; const CAfile: PIdAnsiChar; const CApath: PIdAnsiChar): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_CTX_load_verify_locations'; - -function SSL_get_session_func(const ssl: PSSL): PSSL_SESSION cdecl; external SSL_LIB_NAME name 'SSL_get_session'; - -function SSLeay_add_ssl_algorithms_func: TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_library_init'; - -function SSL_SESSION_get_id_func(const s: PSSL_SESSION; length: PIdC_UINT): PIdAnsiChar cdecl; external SSL_LIB_NAME name 'SSL_SESSION_get_id'; - -procedure SSL_copy_session_id_proc(sslTo: PSSL; const sslFrom: PSSL) cdecl; external SSL_LIB_NAME name 'SSL_copy_session_id'; - -function SSLeay_version_func(_type : TIdC_INT) : PIdAnsiChar cdecl; external SSLCLIB_LIB_name name 'SSLeay_version'; - -function SSLeay_func: TIdC_ULONG cdecl; external SSLCLIB_LIB_name name 'SSLeay'; - -function d2i_X509_NAME_func(pr : PPX509_NAME; _in : PPByte; length : TIdC_LONG):PX509_NAME cdecl; external SSLCLIB_LIB_name name 'd2i_X509_NAME'; - -function i2d_X509_NAME_func(x : PX509_NAME; buf : PPByte) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_X509_NAME'; - -function X509_NAME_oneline_func(a: PX509_NAME; buf: PIdAnsiChar; size: TIdC_INT): PIdAnsiChar cdecl; external SSLCLIB_LIB_name name 'X509_NAME_oneline'; - -function X509_NAME_cmp_func(const a, b: PX509_NAME): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_NAME_cmp'; - -function X509_NAME_hash_func(x: PX509_NAME): TIdC_ULONG cdecl; external SSLCLIB_LIB_name name 'X509_NAME_hash'; - -function X509_set_issuer_name_func(x: PX509; name: PX509_NAME): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_set_issuer_name'; - -function X509_get_issuer_name_func(a: PX509): PX509_NAME cdecl; external SSLCLIB_LIB_name name 'X509_get_issuer_name'; - -function X509_set_subject_name_func(x: PX509; name: PX509_NAME): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_set_subject_name'; - -function X509_get_subject_name_func(a: PX509): PX509_NAME cdecl; external SSLCLIB_LIB_name name 'X509_get_subject_name'; - -function X509_digest_func(const data: PX509; const _type: PEVP_MD; - md: PByte; var len: TIdC_UINT): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_digest'; - -function X509_LOOKUP_ctrl_func(ctx : PX509_LOOKUP; cmd : TIdC_INT; argc : PIdAnsiChar; arg1 : TIdC_LONG; ret : PPIdAnsiChar) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_LOOKUP_ctrl'; - -function X509_STORE_add_cert_func(ctx : PX509_STORE; x : PX509) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_STORE_add_cert'; - -function X509_STORE_add_crl_func(ctx : PX509_STORE; x : PX509_CRL) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_STORE_add_crl'; - -function X509_STORE_CTX_get_ex_data_func(ctx: PX509_STORE_CTX; idx: TIdC_INT): Pointer cdecl; external SSLCLIB_LIB_name name 'X509_STORE_CTX_get_ex_data'; - -function X509_STORE_CTX_get_error_func(ctx: PX509_STORE_CTX): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_STORE_CTX_get_error'; - -procedure X509_STORE_CTX_set_error_proc(ctx: PX509_STORE_CTX; s: TIdC_INT) cdecl; external SSLCLIB_LIB_name name 'X509_STORE_CTX_set_error'; - -function X509_STORE_CTX_get_error_depth_func(ctx: PX509_STORE_CTX): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_STORE_CTX_get_error_depth'; - -function X509_STORE_CTX_get_current_cert_func(ctx: PX509_STORE_CTX): PX509 cdecl; external SSLCLIB_LIB_name name 'X509_STORE_CTX_get_current_cert'; - -function X509_STORE_add_lookup_func(v : PX509_STORE; m : PX509_LOOKUP_METHOD) : PX509_LOOKUP cdecl; external SSLCLIB_LIB_name name 'X509_STORE_add_lookup'; - -function X509_STORE_load_locations_func( ctx : PX509_STORE; const _file, path : PIdAnsiChar) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_STORE_load_locations'; - -function i2d_DSAPrivateKey_func(x: PDSA; buf: PPByte): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_DSAPrivateKey'; - -function d2i_DSAPrivateKey_func(pr : PDSA; _in : PPByte; len : TIdC_INT): PDSA cdecl; external SSLCLIB_LIB_name name 'd2i_DSAPrivateKey'; - -function d2i_PrivateKey_func(pr : PEVP_PKEY; _in : PPByte; len : TIdC_INT): PEVP_PKEY cdecl; external SSLCLIB_LIB_name name 'd2i_PrivateKey'; - -function d2i_PrivateKey_bio_func(bp : PBIO; a : PPEVP_PKEY) : PEVP_PKEY cdecl; external SSLCLIB_LIB_name name 'd2i_PrivateKey_bio'; - -function X509_sign_func(x: PX509; pkey: PEVP_PKEY; const md: PEVP_MD): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_sign'; - -function X509_REQ_sign_func(x: PX509_REQ; pkey: PEVP_PKEY; const md: PEVP_MD): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_REQ_sign'; - -function X509_REQ_add_extensions_func(req: PX509_REQ; exts: PSTACK_OF_X509_EXTENSION): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_REQ_add_extensions'; - -function X509V3_EXT_conf_nid_func(conf: PLHASH; ctx: PX509V3_CTX; ext_nid: TIdC_INT; value: PIdAnsiChar): PX509_EXTENSION cdecl; external SSLCLIB_LIB_name name 'X509V3_EXT_conf_nid'; - -function X509_EXTENSION_create_by_NID_func(ex: PPX509_EXTENSION; nid: TIdC_INT; - crit: TIdC_INT; data: PASN1_OCTET_STRING): PX509_EXTENSION cdecl; external SSLCLIB_LIB_name name 'X509_EXTENSION_create_by_NID'; - -procedure X509V3_set_ctx_proc(ctx: PX509V3_CTX; issuer, subject: PX509; req: PX509_REQ; crl: PX509_CRL; flags: TIdC_INT) cdecl; external SSLCLIB_LIB_name name 'X509V3_set_ctx'; - -procedure X509_EXTENSION_free_proc(ex: PX509_EXTENSION) cdecl; external SSLCLIB_LIB_name name 'X509_EXTENSION_free'; - -function X509_add_ext_func(cert: PX509; ext: PX509_EXTENSION; loc: TIdC_INT): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_add_ext'; - -{$IFNDEF OPENSSL_NO_BIO} -function X509_print_func(bp : PBIO; x : PX509) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_print'; -{$ENDIF} - -procedure RAND_cleanup_func; cdecl; external SSLCLIB_LIB_name name 'RAND_cleanup'; - -function RAND_bytes_func(buf : PIdAnsiChar; num : integer) : integer; cdecl; external SSLCLIB_LIB_name name 'RAND_bytes'; - -function RAND_pseudo_bytes_func(buf : PIdAnsiChar; num : integer) : integer; cdecl; external SSLCLIB_LIB_name name 'RAND_pseudo_bytes'; - -procedure RAND_seed_proc(buf : PIdAnsiChar; num : integer); cdecl; external SSLCLIB_LIB_name name 'RAND_seed'; - -procedure RAND_add_proc(buf : PIdAnsiChar; num : integer; entropy : integer); cdecl; external SSLCLIB_LIB_name name 'RAND_add'; - -function RAND_status_func: integer; cdecl; external SSLCLIB_LIB_name name 'RAND_status'; - -{$IFDEF SYS_WIN} -procedure RAND_screen_proc cdecl; external SSLCLIB_LIB_name name 'RAND_screen'; - -function RAND_event_func(iMsg : UINT; wp : wparam; lp : lparam) : integer; cdecl; external SSLCLIB_LIB_name name 'RAND_event'; -{$ENDIF} - -{$IFNDEF OPENSSL_NO_DES} -procedure DES_set_odd_parity_proc(key: Pdes_cblock) cdecl; external SSLCLIB_LIB_name name 'DES_set_odd_parity'; - -function DES_set_key_func(key: Pconst_DES_cblock; schedule: DES_key_schedule): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'DES_set_key'; - -procedure DES_ecb_encrypt_proc(input, output: Pconst_DES_cblock; ks: DES_key_schedule; enc: TIdC_INT) cdecl; external SSLCLIB_LIB_name name 'DES_ecb_encrypt'; - -//procedure Id_ossl_old_des_set_odd_parity_proc(key : p_ossl_old_des_cblock) cdecl; external SSLCLIB_LIB_name name 'Id_ossl_old_des_set_odd_parity'; - -//function Id_ossl_old_des_set_key_func(key : P_ossl_old_des_cblock; schedule : _ossl_old_des_key_schedule) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'Id_ossl_old_des_set_key'; - -//procedure Id_ossl_old_des_ecb_encrypt_proc( input : p_ossl_old_des_cblock; output : p_ossl_old_des_cblock; ks : p_ossl_old_des_key_schedule; enc : TIdC_int) cdecl; external SSLCLIB_LIB_name name 'Id_ossl_old_des_ecb_encrypt'; -{$ENDIF} - -function SSL_set_ex_data_func(ssl: PSSL; idx: TIdC_INT; data: Pointer): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_set_ex_data'; - -function SSL_get_ex_data_func(ssl: PSSL; idx: TIdC_INT): Pointer cdecl; external SSL_LIB_NAME name 'SSL_get_ex_data'; - -function SSL_load_client_CA_file_func(const _file: PIdAnsiChar): PSTACK_OF_X509_NAME cdecl; external SSL_LIB_NAME name 'SSL_load_client_CA_file'; - -procedure SSL_CTX_set_client_CA_list_proc(ctx: PSSL_CTX; list: PSTACK_OF_X509_NAME) cdecl; external SSL_LIB_NAME name 'SSL_CTX_set_client_CA_list'; - -function SSL_CTX_set_default_verify_paths_func(ctx: PSSL_CTX): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_CTX_set_default_verify_paths'; - -function SSL_CTX_set_session_id_context_func(ctx: PSSL_CTX; const sid_ctx: PByte; sid_ctx_len: TIdC_UINT): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_CTX_set_session_id_context'; - -function SSL_CIPHER_description_func(_para1: PSSL_CIPHER; buf: PIdAnsiChar; size: TIdC_INT): PIdAnsiChar cdecl; external SSL_LIB_NAME name 'SSL_CIPHER_description'; - -function SSL_get_current_cipher_func(const s: PSSL): PSSL_CIPHER cdecl; external SSL_LIB_NAME name 'SSL_get_current_cipher'; - -function SSL_CIPHER_get_name_func(const c: PSSL_CIPHER): PIdAnsiChar cdecl; external SSL_LIB_NAME name 'SSL_CIPHER_get_name'; - -function SSL_CIPHER_get_version_func(const c: PSSL_CIPHER): PIdAnsiChar cdecl; external SSL_LIB_NAME name 'SSL_CIPHER_get_version'; - -function SSL_CIPHER_get_bits_func(const c: PSSL_CIPHER; var alg_bits: TIdC_INT): TIdC_INT cdecl; external SSL_LIB_NAME name 'SSL_CIPHER_get_bits'; - -procedure CRYPTO_lock_proc(mode, _type : TIdC_INT; const _file : PIdAnsiChar; line : TIdC_INT) cdecl; external SSLCLIB_LIB_name name 'CRYPTO_lock'; - -function CRYPTO_num_locks_func: TIdC_INT cdecl; external SSLCLIB_LIB_name name 'CRYPTO_num_locks'; - -procedure CRYPTO_set_locking_callback_proc(func: TIdSslLockingCallback) cdecl; external SSLCLIB_LIB_name name 'CRYPTO_set_locking_callback'; - -function CRYPTO_THREADID_set_callback_func(threadid_func : TCRYPTO_THREADID_set_callback_threadid_func) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'CRYPTO_THREADID_set_callback'; - -procedure CRYPTO_THREADID_set_numeric_proc(id : PCRYPTO_THREADID; val : TIdC_ULONG) cdecl; external SSLCLIB_LIB_name name 'CRYPTO_THREADID_set_numeric'; - -procedure CRYPTO_THREADID_set_pointer_proc(id : PCRYPTO_THREADID; ptr : Pointer) cdecl; external SSLCLIB_LIB_name name 'CRYPTO_THREADID_set_pointer'; - -procedure ERR_put_error_proc(lib, func, reason : TIdC_INT; _file : PIdAnsiChar; line : TIdC_INT) cdecl; external SSLCLIB_LIB_name name 'ERR_put_error'; - -function ERR_get_error_func: TIdC_ULONG cdecl; external SSLCLIB_LIB_name name 'ERR_get_error'; - -function ERR_peek_error_func: TIdC_ULONG cdecl; external SSLCLIB_LIB_name name 'ERR_peek_error'; - -function ERR_peek_last_error_func: TIdC_ULONG cdecl; external SSLCLIB_LIB_name name 'ERR_peek_last_error'; - -procedure ERR_clear_error_proc cdecl; external SSLCLIB_LIB_name name 'ERR_clear_error'; - -function ERR_error_string_func(e: TIdC_ULONG; buf: PIdAnsiChar): PIdAnsiChar cdecl; external SSLCLIB_LIB_name name 'ERR_error_string'; - -procedure ERR_error_string_n_proc(e: TIdC_ULONG; buf: PIdAnsiChar; len : size_t) cdecl; external SSLCLIB_LIB_name name 'ERR_error_string_n'; - -function ERR_lib_error_string_func(e : TIdC_ULONG): PIdAnsiChar cdecl; external SSLCLIB_LIB_name name 'ERR_lib_error_string'; - -function ERR_func_error_string_func(e : TIdC_ULONG): PIdAnsiChar cdecl; external SSLCLIB_LIB_name name 'ERR_func_error_string'; - -function ERR_reason_error_string_func(e : TIdC_ULONG): PIdAnsiChar cdecl; external SSLCLIB_LIB_name name 'ERR_reason_error_string'; - -procedure ERR_load_ERR_strings_proc cdecl; external SSLCLIB_LIB_name name 'ERR_load_ERR_strings'; - -procedure ERR_load_crypto_strings_proc cdecl; external SSLCLIB_LIB_name name 'ERR_load_crypto_strings'; - -procedure ERR_free_strings_proc cdecl; external SSLCLIB_LIB_name name 'ERR_free_strings'; - -procedure ERR_remove_thread_state_proc(const tId : PCRYPTO_THREADID) cdecl; external SSLCLIB_LIB_name name 'ERR_remove_thread_state'; - -procedure CRYPTO_cleanup_all_ex_data_proc cdecl; external SSLCLIB_LIB_name name 'CRYPTO_cleanup_all_ex_data'; - -function SSL_COMP_get_compression_methods_func: PSTACK_OF_SSL_COMP cdecl; external SSL_LIB_NAME name 'SSL_COMP_get_compression_methods'; - -procedure SSL_COMP_free_compression_methods_func; cdecl; external SSL_LIB_NAME name 'SSL_COMP_free_compression_methods' - -procedure sk_pop_free_proc(st: PSTACK; func: Tsk_pop_free_func) cdecl; external SSLCLIB_LIB_name name 'sk_pop_free'; - -procedure RSA_free_proc(rsa: PRSA) cdecl; external SSLCLIB_LIB_name name 'RSA_free'; - -function RSA_generate_key_func(bits: TIdC_INT; e: TIdC_ULONG; callback: TRSA_generate_key_callback; cb_arg: Pointer): PRSA cdecl; external SSLCLIB_LIB_name name 'RSA_generate_key'; - -function RSA_check_key_func(const rsa: PRSA): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'RSA_check_key'; - -function RSA_generate_key_ex_func(rsa : PRSA; bits : TIdC_INT; e : PBIGNUM; cb : PBN_GENCB) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'RSA_generate_key_ex'; - -function RSA_new_func: PRSA cdecl; external SSLCLIB_LIB_name name 'RSA_new'; - -function RSA_size_func(key: PRSA): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'RSA_size'; - -function RSA_private_decrypt_func(flen: TIdC_INT; from: PByte; _to: PByte; rsa: PRSA; padding: TIdC_INT): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'RSA_private_decrypt'; - -function RSA_public_encrypt_func(flen: TIdC_INT; from: PByte; _to: PByte; rsa: PRSA; padding: TIdC_INT): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'RSA_public_encrypt'; - -procedure DH_free_proc(dh: PDH) cdecl; external SSLCLIB_LIB_name name 'DH_free'; - -function BN_new_func: PBIGNUM cdecl; external SSLCLIB_LIB_name name 'BN_new'; - -procedure BN_free_proc(a: PBIGNUM) cdecl; external SSLCLIB_LIB_name name 'BN_free'; - -function BN_hex2bn_func(var n:PBIGNUM; const Str: PIdAnsiChar): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'BN_hex2bn'; - -function BN_bn2hex_func(const n:PBIGNUM): PIdAnsiChar cdecl; external SSLCLIB_LIB_name name 'BN_bn2hex'; - -function BN_set_word_func(a: PBIGNUM; w: TIdC_ULONG): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'BN_set_word'; - -function BIO_new_func(_type: PBIO_METHOD): PBIO cdecl; external SSLCLIB_LIB_name name 'BIO_new'; - -function BIO_free_func(bio: PBIO): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'BIO_free'; - -function BIO_new_mem_buf_func(buf : Pointer; len : TIdC_INT) : PBIO cdecl; external SSLCLIB_LIB_name name 'BIO_new_mem_buf'; - -function BIO_s_mem_func: PBIO_METHOD cdecl; external SSLCLIB_LIB_name name 'BIO_s_mem'; - -function BIO_s_file_func: PBIO_METHOD cdecl; external SSLCLIB_LIB_name name 'BIO_s_file'; - -function BIO_ctrl_func(bp: PBIO; cmd: TIdC_INT; larg: TIdC_LONG; parg: Pointer): TIdC_LONG cdecl; external SSLCLIB_LIB_name name 'BIO_ctrl'; - -function BIO_int_ctrl_func(bp : PBIO; cmd : TIdC_INT; larg : TIdC_LONG; iArg : TIdC_INT) : TIdC_LONG cdecl; external SSLCLIB_LIB_name name 'BIO_int_ctrl'; - -function BIO_ptr_ctrl_func(bp : PBIO; cmd : TIdC_INT; larg : TIdC_LONG) : PIdAnsiChar cdecl; external SSLCLIB_LIB_name name 'BIO_ptr_ctrl'; - -function BIO_new_file_func(const filename: PIdAnsiChar; const mode: PIdAnsiChar): PBIO cdecl; external SSLCLIB_LIB_name name 'BIO_new_file'; - -function BIO_puts_func(b: PBIO; const txt: PIdAnsiChar): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'BIO_puts'; - -function BIO_read_func(b: PBIO; data: Pointer; len: TIdC_INT): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'BIO_read'; - -function BIO_write_func(b: PBIO; const buf: Pointer; len: TIdC_INT): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'BIO_write'; - -function i2d_X509_bio_func(bp: PBIO; x: PX509): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_X509_bio'; - -function i2d_PrivateKey_bio_func(b: PBIO; pkey: PEVP_PKEY): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_PrivateKey_bio'; - -function d2i_X509_bio_func(bp: PBIO; x: PPx509): PX509 cdecl; external SSLCLIB_LIB_name name 'd2i_X509_bio'; - -function i2d_X509_REQ_bio_func(bp: PBIO; x: PX509_REQ): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_X509_REQ_bio'; - -function i2d_PKCS7_func(x: PPKCS7; buf: PPByte): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_PKCS7'; - -function d2i_PKCS7_func(pr : PPKCS7; _in : PPByte; len : TIdC_INT): PPKCS7 cdecl; external SSLCLIB_LIB_name name 'd2i_PKCS7'; - -function i2d_X509_func(x: PX509; buf: PPByte) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_X509'; - -function d2i_X509_func(pr : PX509; _in : PPByte; len : TIdC_INT): PX509 cdecl; external SSLCLIB_LIB_name name 'd2i_X509'; - -function i2d_X509_REQ_func(x: PX509_REQ; buf: PPByte): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_X509_REQ'; - -function d2i_X509_REQ_func(pr : PX509_REQ; _in : PPByte; len : TIdC_INT): PX509_REQ cdecl; external SSLCLIB_LIB_name name 'd2i_X509_REQ'; - -function i2d_X509_CRL_func(x: PX509_CRL; buf: PPByte): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_X509_CRL'; - -function d2i_X509_CRL_func(pr : PX509_CRL; _in : PPByte; len : TIdC_INT): PX509_REQ cdecl; external SSLCLIB_LIB_name name 'd2i_X509_CRL'; - -function i2d_RSAPrivateKey_func(x: PRSA; buf: PPByte): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_RSAPrivateKey'; - -function d2i_RSAPrivateKey_func(pr : PRSA; _in : PPByte; len : TIdC_INT): PRSA cdecl; external SSLCLIB_LIB_name name 'd2i_RSAPrivateKey'; - -function i2d_RSAPublicKey_func(x: PRSA; buf: PPByte): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_RSAPublicKey'; - -function d2i_RSAPublicKey_func(pr : PRSA; _in : PPByte; len : TIdC_INT): PRSA cdecl; external SSLCLIB_LIB_name name 'd2i_RSAPublicKey'; - -function i2d_PrivateKey_func(x: PEVP_PKEY; buf: PPByte): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_PrivateKey'; - -function i2d_DSAparams_func(x: PDSA; buf: PPByte): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_DSAparams'; - -function d2i_DSAparams_func(pr : PDSA; _in : PPByte; len : TIdC_INT): PDSA cdecl; external SSLCLIB_LIB_name name 'd2i_DSAparams'; - -function i2d_DHparams_func(x: PDH; buf: PPByte): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_DHparams'; - -function d2i_DHparams_func(pr : PDH; _in : PPByte; len : TIdC_INT): PDH cdecl; external SSLCLIB_LIB_name name 'd2i_DHparams'; - -function i2d_NETSCAPE_CERT_SEQUENCE_func(x: PNETSCAPE_CERT_SEQUENCE; buf: PPByte): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_NETSCAPE_CERT_SEQUENCE'; - -function d2i_NETSCAPE_CERT_SEQUENCE_func(pr : PNETSCAPE_CERT_SEQUENCE; _in : PPByte; len : TIdC_INT): PNETSCAPE_CERT_SEQUENCE cdecl; external SSLCLIB_LIB_name name 'd2i_NETSCAPE_CERT_SEQUENCE'; - -function i2d_PUBKEY_func(x: PEVP_PKEY; buf: PPByte): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_PUBKEY'; - -function d2i_PUBKEY_func(pr : PEVP_PKEY; _in : PPByte; len : TIdC_INT): PEVP_PKEY cdecl; external SSLCLIB_LIB_name name 'd2i_PUBKEY'; - -function X509_get_default_cert_file_func: PIdAnsiChar cdecl; external SSLCLIB_LIB_name name 'X509_get_default_cert_file'; - -function X509_get_default_cert_file_env_func: PIdAnsiChar cdecl; external SSLCLIB_LIB_name name 'X509_get_default_cert_file_env'; - -function X509_new_func: PX509 cdecl; external SSLCLIB_LIB_name name 'X509_new'; - -procedure X509_free_proc(x: PX509) cdecl; external SSLCLIB_LIB_name name 'X509_free'; - -function X509_REQ_new_func: PX509_REQ cdecl; external SSLCLIB_LIB_name name 'X509_REQ_new'; - -procedure X509_REQ_free_proc(x:PX509_REQ) cdecl; external SSLCLIB_LIB_name name 'X509_REQ_free'; - -function X509_to_X509_REQ_func(x: PX509; pkey: PEVP_PKEY; const md: PEVP_MD): PX509_REQ cdecl; external SSLCLIB_LIB_name name 'X509_to_X509_REQ'; - -function X509_NAME_new_func: PX509_NAME cdecl; external SSLCLIB_LIB_name name 'X509_NAME_new'; - -procedure X509_NAME_free_proc(x:PX509_NAME) cdecl; external SSLCLIB_LIB_name name 'X509_NAME_free'; - -function X509_NAME_add_entry_by_txt_func(name: PX509_NAME; const field: PIdAnsiChar; _type: TIdC_INT; - const bytes: PIdAnsiChar; len, loc, _set: TIdC_INT): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_NAME_add_entry_by_txt'; - -procedure X509_INFO_free_proc(a : PX509_INFO) cdecl; external SSLCLIB_LIB_name name 'X509_INFO_free'; - -function X509_set_version_func(x: PX509; version: TIdC_LONG): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_set_version'; - -function X509_get_serialNumber_func(x: PX509): PASN1_INTEGER cdecl; external SSLCLIB_LIB_name name 'X509_get_serialNumber'; - -function X509_gmtime_adj_func(s: PASN1_TIME; adj: TIdC_LONG): PASN1_TIME cdecl; external SSLCLIB_LIB_name name 'X509_gmtime_adj'; - -function X509_set_notBefore_func(x: PX509; tm: PASN1_TIME): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_set_notBefore'; - -function X509_set_notAfter_func(x: PX509; tm: PASN1_TIME): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_set_notAfter'; - -function X509_set_pubkey_func(x: PX509; pkey: PEVP_PKEY): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_set_pubkey'; - -function X509_REQ_set_pubkey_func(x: PX509_REQ; pkey: PEVP_PKEY): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_REQ_set_pubkey'; - -function X509_PUBKEY_get_func(key: PX509_PUBKEY): PEVP_PKEY cdecl; external SSLCLIB_LIB_name name 'X509_PUBKEY_get'; - -function X509_verify_func(x509: PX509; pkey: PEVP_PKEY): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'X509_verify'; - -{$IFNDEF SSLEAY_MACROS} -function PEM_read_bio_X509_func(bp: PBIO; x: PPX509; cb: ppem_password_cb; u: Pointer): PX509 cdecl; external SSLCLIB_LIB_name name 'PEM_read_bio_X509'; - -function PEM_read_bio_X509_REQ_func(bp :PBIO; x : PPX509_REQ; cb :ppem_password_cb; u: PIdAnsiChar) : PX509_REQ cdecl; external SSLCLIB_LIB_name name 'PEM_read_bio_X509_REQ'; - -function PEM_read_bio_X509_CRL_func(bp : PBIO; x : PPX509_CRL;cb : ppem_password_cb; u: Pointer) : PX509_CRL cdecl; external SSLCLIB_LIB_name name 'PEM_read_bio_X509_CRL'; - -function PEM_read_bio_RSAPrivateKey_func(bp : PBIO; x : PPRSA; cb : ppem_password_cb; u: Pointer) : PRSA cdecl; external SSLCLIB_LIB_name name 'PEM_read_bio_RSAPrivateKey'; - -function PEM_read_bio_RSAPublicKey_func(bp : PBIO; x : PPRSA; cb : ppem_password_cb; u: Pointer) : PRSA cdecl; external SSLCLIB_LIB_name name 'PEM_read_bio_RSAPublicKey'; - -function PEM_read_bio_DSAPrivateKey_func(bp : PBIO; x : PPDSA; cb : ppem_password_cb; u : Pointer) : PDSA cdecl; external SSLCLIB_LIB_name name 'PEM_read_bio_DSAPrivateKey'; - -function PEM_read_bio_PrivateKey_func(bp : PBIO; x : PPEVP_PKEY; cb : ppem_password_cb; u : Pointer) : PEVP_PKEY cdecl; external SSLCLIB_LIB_name name 'PEM_read_bio_PrivateKey'; - -function PEM_read_bio_PKCS7_func(bp : PBIO; x : PPPKCS7; cb : ppem_password_cb; u : Pointer) : PPKCS7 cdecl; external SSLCLIB_LIB_name name 'PEM_read_bio_PKCS7'; - -function PEM_read_bio_DHparams_func(bp : PBIO; x : PPDH; cb : ppem_password_cb; u : Pointer) : PDH cdecl; external SSLCLIB_LIB_name name 'PEM_read_bio_DHparams'; - -function PEM_read_bio_DSAparams_func(bp : PBIO; x : PPDSA; cb : ppem_password_cb; u : Pointer) : PDSA cdecl; external SSLCLIB_LIB_name name 'PEM_read_bio_DSAparams'; - -function PEM_read_bio_NETSCAPE_CERT_SEQUENCE_func(bp : PBIO; x : PPNETSCAPE_CERT_SEQUENCE; - cb : ppem_password_cb; u : Pointer) : PNETSCAPE_CERT_SEQUENCE cdecl; external SSLCLIB_LIB_name name 'PEM_read_bio_NETSCAPE_CERT_SEQUENCE'; - -function PEM_read_bio_PUBKEY_func(bp : PBIO; x : PPEVP_PKEY; cb : ppem_password_cb; u : Pointer) : PEVP_PKEY cdecl; external SSLCLIB_LIB_name name 'PEM_read_bio_PUBKEY'; - -function PEM_write_bio_X509_func(b: PBIO; x: PX509): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'PEM_write_bio_X509'; - -function PEM_write_bio_X509_REQ_func(bp: PBIO; x: PX509_REQ): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'PEM_write_bio_X509_REQ'; - -function PEM_write_bio_X509_CRL_func(bp : PBIO; x : PX509_CRL) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'PEM_write_bio_X509_CRL'; - -function PEM_write_bio_RSAPrivateKey_func(bp : PBIO; x : PRSA; const enc : PEVP_CIPHER; - kstr : PIdAnsiChar; klen : TIdC_INT; cb : Ppem_password_cb; u : Pointer) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'PEM_write_bio_RSAPrivateKey'; - -function PEM_write_bio_RSAPublicKey_func(bp : PBIO; x : PRSA) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'PEM_write_bio_RSAPublicKey'; - -function PEM_write_bio_DSAPrivateKey_func(bp : PBIO; x : PDSA; const enc : PEVP_CIPHER; - kstr : PIdAnsiChar; klen : TIdC_INT; cb : Ppem_password_cb; u : Pointer) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'PEM_write_bio_DSAPrivateKey'; - -function PEM_write_bio_PrivateKey_func(bp : PBIO; x : PEVP_PKEY; const enc : PEVP_CIPHER; - kstr : PIdAnsiChar; klen : TIdC_INT; cb : Ppem_password_cb; u : Pointer) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'PEM_write_bio_PrivateKey'; - -function PEM_write_bio_PKCS7_func(bp : PBIO; x : PPKCS7) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'PEM_write_bio_PKCS7'; - -function PEM_write_bio_DHparams_func(bp : PBIO; x : PDH): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'PEM_write_bio_DHparams'; - -function PEM_write_bio_DSAparams_func(bp : PBIO; x : PDSA) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'PEM_write_bio_DSAparams'; - -function PEM_write_bio_NETSCAPE_CERT_SEQUENCE_func(bp : PBIO; x : PDSA) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'PEM_write_bio_NETSCAPE_CERT_SEQUENCE'; - -function PEM_write_bio_PKCS8PrivateKey_func(bp: PBIO; key: PEVP_PKEY; enc: PEVP_CIPHER; - kstr: PIdAnsiChar; klen: TIdC_INT; cb: ppem_password_cb; u: Pointer): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'PEM_write_bio_PKCS8PrivateKey'; - -function PEM_write_bio_PUBKEY_func(bp: PBIO; x: PEVP_PKEY): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'PEM_write_bio_PUBKEY'; -{$ELSE} -function PEM_ASN1_write_bio_func(i2d: i2d_of_void; const name: PIdAnsiChar; - bp: PBIO; x: PIdAnsiChar; const enc: PEVP_CIPHER; kstr: PIdAnsiChar; klen: TIdC_INT; - cb: ppem_password_cb; u: Pointer):TIdC_INT cdecl; external SSLCLIB_LIB_name name 'PEM_ASN1_write_bio'; - -function PEM_ASN1_read_bio_func(d2i: d2i_OF_void; name: PIdAnsiChar; bp: PBIO; - x: PPointer; cb: ppem_password_cb; u:Pointer): Pointer cdecl; external SSLCLIB_LIB_name name 'PEM_ASN1_read_bio'; -{$ENDIF} - -function PEM_X509_INFO_read_bio_func(bp : PBIO; sk : PSTACK_OF_X509_INFO; - cb : ppem_password_cb; u : Pointer) : PSTACK_OF_X509_INFO cdecl; external SSLCLIB_LIB_name name 'PEM_X509_INFO_read_bio'; - -function PEM_read_bio_X509_AUX_func(bp : PBIO; x : PPX509; - cb : ppem_password_cb; u : Pointer) : PX509 cdecl; external SSLCLIB_LIB_name name 'PEM_read_bio_X509_AUX'; - -{$IFNDEF OPENSSL_NO_DES} -function EVP_des_ede3_cbc_func: PEVP_CIPHER cdecl; external SSLCLIB_LIB_name name 'EVP_des_ede3_cbc'; -{$ENDIF} - -{$IFNDEF OPENSSL_NO_SHA512} -function EVP_sha512_func: PEVP_MD cdecl; external SSLCLIB_LIB_name name 'EVP_sha512'; - -function EVP_sha384_func: PEVP_MD cdecl; external SSLCLIB_LIB_name name 'EVP_sha384'; -{$ENDIF} - -{$IFNDEF OPENSSL_NO_SHA256} -function EVP_sha256_func: PEVP_MD cdecl; external SSLCLIB_LIB_name name 'EVP_sha256'; - -function EVP_sha224_func: PEVP_MD cdecl; external SSLCLIB_LIB_name name 'EVP_sha224'; -{$ENDIF} - -{$IFNDEF OPENSSL_NO_SHA} -function EVP_sha1_func: PEVP_MD cdecl; external SSLCLIB_LIB_name name 'EVP_sha1'; -{$ENDIF} - -{$IFNDEF OPENSSL_NO_MD5} -function EVP_md5_func: PEVP_MD cdecl; external SSLCLIB_LIB_name name 'EVP_md5'; -{$ENDIF} - -{$IFNDEF OPENSSL_NO_MD4} -function EVP_md4_func: PEVP_MD cdecl; external SSLCLIB_LIB_name name 'EVP_md4'; -{$ENDIF} - -//{$IFNDEF OPENSSL_NO_MD2} -//function EVP_md2_func: PEVP_MD cdecl; external SSLCLIB_LIB_name name 'EVP_md2'; -//{$ENDIF} - -procedure EVP_MD_CTX_init_proc(ctx : PEVP_MD_CTX) cdecl; external SSLCLIB_LIB_name name 'EVP_MD_CTX_init'; - -function EVP_MD_CTX_cleanup_func(ctx : PEVP_MD_CTX) : TIdC_Int cdecl; external SSLCLIB_LIB_name name 'EVP_MD_CTX_cleanup'; - -function EVP_MD_CTX_create_func : PEVP_MD_CTX cdecl; external SSLCLIB_LIB_name name 'EVP_MD_CTX_create'; - -procedure EVP_MD_CTX_destroy_proc(ctx : PEVP_MD_CTX) cdecl; external SSLCLIB_LIB_name name 'EVP_MD_CTX_destroy'; - -function EVP_MD_CTX_copy_func(_out : PEVP_MD_CTX; _in: PEVP_MD_CTX) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'EVP_MD_CTX_copy'; - -function EVP_MD_CTX_copy_ex_func(_out : PEVP_MD_CTX; const _in: PEVP_MD_CTX) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'EVP_MD_CTX_copy_ex'; - -function EVP_DigestInit_ex_func(ctx : PEVP_MD_CTX; const AType : PEVP_MD; impl : PENGINE) : TIdC_Int cdecl; external SSLCLIB_LIB_name name 'EVP_DigestInit_ex'; - -function EVP_DigestUpdate_func(ctx : PEVP_MD_CTX; d : Pointer; cnt : size_t) : TIdC_Int cdecl; external SSLCLIB_LIB_name name 'EVP_DigestUpdate'; - -function EVP_DigestFinal_ex_func(ctx : PEVP_MD_CTX; md : PIdAnsiChar; var s : TIdC_UInt) : TIdC_Int cdecl; external SSLCLIB_LIB_name name 'EVP_DigestFinal_ex'; - -function EVP_PKEY_type_func(_type : TIdC_INT): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'EVP_PKEY_type'; - -function EVP_PKEY_new_func: PEVP_PKEY cdecl; external SSLCLIB_LIB_name name 'EVP_PKEY_new'; - -procedure EVP_PKEY_free_proc(pkey: PEVP_PKEY) cdecl; external SSLCLIB_LIB_name name 'EVP_PKEY_free'; - -function EVP_PKEY_assign_func(pkey: PEVP_PKEY; _type: TIdC_INT; key: Pointer): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'EVP_PKEY_assign'; - -function EVP_get_digestbyname_func(const name: PIdAnsiChar): PEVP_MD cdecl; external SSLCLIB_LIB_name name 'EVP_get_digestbyname'; - -{$IFNDEF OPENSSL_NO_HMAC} -procedure HMAC_CTX_init_proc(ctx : PHMAC_CTX) cdecl; external SSLCLIB_LIB_name name 'HMAC_CTX_init'; - -function HMAC_Init_ex_func(ctx : PHMAC_CTX; key : Pointer; len : TIdC_INT; - md : PEVP_MD; impl : PENGINE) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'HMAC_Init_ex'; - -function HMAC_Update_func(ctx : PHMAC_CTX; data : PIdAnsiChar; len : size_t) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'HMAC_Update'; - -function HMAC_Final_func(ctx : PHMAC_CTX; md : PIdAnsiChar; len : PIdC_UINT) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'HMAC_Final'; - -procedure HMAC_CTX_cleanup_proc(ctx : PHMAC_CTX) cdecl; external SSLCLIB_LIB_name name 'HMAC_CTX_cleanup'; -{$ENDIF} - -function OBJ_obj2nid_func(const o: PASN1_OBJECT): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'OBJ_obj2nid'; - -function OBJ_nid2obj_func(n : TIdC_INT) : PASN1_OBJECT cdecl; external SSLCLIB_LIB_name name 'OBJ_nid2obj'; - -function OBJ_nid2ln_func(n : TIdC_INT) : PIdAnsiChar cdecl; external SSLCLIB_LIB_name name 'OBJ_nid2ln'; - -function OBJ_nid2sn_func(n : TIdC_INT) : PIdAnsiChar cdecl; external SSLCLIB_LIB_name name 'OBJ_nid2sn'; - -function ASN1_INTEGER_set_func(a: PASN1_INTEGER; v: TIdC_LONG): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'ASN1_INTEGER_set'; - -function ASN1_INTEGER_get_func(a: PASN1_INTEGER) : TIdC_LONG cdecl; external SSLCLIB_LIB_name name 'ASN1_INTEGER_get'; - -function ASN1_STRING_type_new_func(_type: TIdC_INT): PASN1_STRING cdecl; external SSLCLIB_LIB_name name 'ASN1_STRING_type_new'; - -procedure ASN1_STRING_free_proc(a: PASN1_STRING) cdecl; external SSLCLIB_LIB_name name 'ASN1_STRING_free'; - -function ASN1_dup_func(i2d : i2d_of_void; d2i : d2i_of_void; x : PIdAnsiChar) : Pointer cdecl; external SSLCLIB_LIB_name name 'ASN1_dup'; - -function CRYPTO_set_mem_functions_func( - m: TCRYPTO_set_mem_functions_m; - r: TCRYPTO_set_mem_functions_r; - f: TCRYPTO_set_mem_functions_f): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'CRYPTO_set_mem_functions'; - -function CRYPTO_malloc_func(num: TIdC_INT; const _file: PIdAnsiChar; line: TIdC_INT): Pointer cdecl; external SSLCLIB_LIB_name name 'CRYPTO_malloc'; - -procedure CRYPTO_free_proc(ptr : Pointer) cdecl; external SSLCLIB_LIB_name name 'CRYPTO_free'; - -procedure CRYPTO_mem_leaks_proc(b:PBIO) cdecl; external SSLCLIB_LIB_name name 'CRYPTO_mem_leaks'; - -function CRYPTO_mem_ctrl_func(mode: TIdC_INT): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'CRYPTO_mem_ctrl'; - -procedure CRYPTO_set_mem_debug_functions_proc( - m: Tset_mem_debug_functions_m; - r: Tset_mem_debug_functions_r; - f : Tset_mem_debug_functions_f; - so : Tset_mem_debug_functions_so; - go : Tset_mem_debug_functions_go) cdecl; external SSLCLIB_LIB_name name 'CRYPTO_set_mem_debug_functions'; - -function PKCS12_create_func(pass, name: PIdAnsiChar; pkey: PEVP_PKEY; cert : PX509; - ca: PSTACK_OF_X509; nid_key, nid_cert, iter, mac_iter, keytype : TIdC_INT) : PPKCS12 cdecl; external SSLCLIB_LIB_name name 'PKCS12_create'; - -function i2d_PKCS12_bio_func(b: PBIO; p12: PPKCS12) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'i2d_PKCS12_bio'; - -procedure PKCS12_free_proc(p12: PPKCS12) cdecl; external SSLCLIB_LIB_name name 'PKCS12_free'; - -//procedure OpenSSL_add_all_algorithms_proc cdecl; external SSLCLIB_LIB_name name 'OpenSSL_add_all_algorithms'; - -procedure OpenSSL_add_all_ciphers_proc cdecl; external SSLCLIB_LIB_name name 'OpenSSL_add_all_ciphers'; - -procedure OpenSSL_add_all_digests_proc cdecl; external SSLCLIB_LIB_name name 'OpenSSL_add_all_digests'; - -procedure EVP_cleanup_proc cdecl; external SSLCLIB_LIB_name name 'EVP_cleanup'; - -function sk_num_func(const x : PSTACK) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'sk_num'; - -function sk_new_func( cmp : Tsk_new_cmp) : PStack cdecl; external SSLCLIB_LIB_name name 'sk_new'; - -function sk_new_null_func: PSTACK cdecl; external SSLCLIB_LIB_name name 'sk_new_null'; - -procedure sk_free_proc(st : PSTACK) cdecl; external SSLCLIB_LIB_name name 'sk_free'; - -function sk_push_func(st: PSTACK; data: PIdAnsiChar): TIdC_INT cdecl; external SSLCLIB_LIB_name name 'sk_push'; - -function sk_dup_func(st : PSTACK) : PSTACK cdecl; external SSLCLIB_LIB_name name 'sk_dup'; - -function sk_find_func(st : PSTACK; Data : PIdAnsiChar) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'sk_find'; - -function sk_value_func(x : PSTACK; i : TIdC_INT) : PIdAnsiChar cdecl; external SSLCLIB_LIB_name name 'sk_value'; - -{$IFDEF OPENSSL_FIPS} -//function FIPS_mode_set_func(onoff : TIdC_INT) : TIdC_INT cdecl; external SSLCLIB_LIB_name name 'FIPS_mode_set'; - -//function FIPS_mode_func: TIdC_INT cdecl; external SSLCLIB_LIB_name name 'FIPS_mode'; -{$ENDIF} - -procedure LoadSymbols; -begin - SSL_CTX_set_cipher_list := SSL_CTX_set_cipher_list_func; - SSL_CTX_new := SSL_CTX_new_func; - SSL_CTX_free := SSL_CTX_free_proc; - SSL_set_fd := SSL_set_fd_func; - SSL_CTX_use_PrivateKey_file := SSL_CTX_use_PrivateKey_file_func; - SSL_CTX_use_PrivateKey := SSL_CTX_use_PrivateKey_func; - SSL_CTX_use_certificate := SSL_CTX_use_certificate_func; - SSL_CTX_use_certificate_file := SSL_CTX_use_certificate_file_func; - SSL_load_error_strings := SSL_load_error_strings_proc; - SSL_state_string_long := SSL_state_string_long_func; - SSL_alert_desc_string_long := SSL_alert_desc_string_long_func; - SSL_alert_type_string_long := SSL_alert_type_string_long_func; - - SSL_get_peer_certificate := SSL_get_peer_certificate_func; - SSL_CTX_set_verify := SSL_CTX_set_verify_proc; - SSL_CTX_set_verify_depth := SSL_CTX_set_verify_depth_proc; - SSL_CTX_get_verify_depth := SSL_CTX_get_verify_depth_func; - SSL_CTX_set_default_passwd_cb := SSL_CTX_set_default_passwd_cb_proc; - SSL_CTX_set_default_passwd_cb_userdata:= SSL_CTX_set_default_passwd_cb_userdata_proc; - SSL_CTX_check_private_key := SSL_CTX_check_private_key_func; - SSL_new := SSL_new_func; - SSL_free := SSL_free_proc; - SSL_accept := SSL_accept_func; - SSL_connect := SSL_connect_func; - SSL_read := SSL_read_func; - SSL_peek := SSL_peek_func; - SSL_pending := SSL_pending_func; - SSL_write := SSL_write_func; - SSL_ctrl := SSL_ctrl_func; - SSL_callback_ctrl := SSL_callback_ctrl_func; - SSL_CTX_ctrl := SSL_CTX_ctrl_func; - SSL_CTX_callback_ctrl := SSL_CTX_callback_ctrl_func; - SSL_get_error := SSL_get_error_func; - {$IFNDEF OPENSSL_NO_SSL2} - SSLv2_method := SSLv2_method_func; - SSLv2_server_method := SSLv2_server_method_func; - SSLv2_client_method := SSLv2_client_method_func; - {$ELSE} - SSLv2_method := nil; - SSLv2_server_method := nil; - SSLv2_client_method := nil; - {$ENDIF} - SSLv3_method := SSLv3_method_func; - SSLv3_server_method := SSLv3_server_method_func; - SSLv3_client_method := SSLv3_client_method_func; - SSLv23_method := SSLv23_method_func; - SSLv23_server_method := SSLv23_server_method_func; - SSLv23_client_method := SSLv23_client_method_func; - TLSv1_method := TLSv1_method_func; - TLSv1_server_method := TLSv1_server_method_func; - TLSv1_client_method := TLSv1_client_method_func; - TLSv1_1_method := TLSv1_1_method_func; - TLSv1_1_server_method := TLSv1_1_server_method_func; - TLSv1_1_client_method := TLSv1_1_client_method_func; - TLSv1_2_method := TLSv1_2_method_func; - TLSv1_2_server_method := TLSv1_2_server_method_func; - TLSv1_2_client_method := TLSv1_2_client_method_func; - DTLSv1_method := DTLSv1_method_func; - DTLSv1_server_method := DTLSv1_server_method_func; - DTLSv1_client_method := DTLSv1_client_method_func; - SSL_shutdown := SSL_shutdown_func; - SSL_set_connect_state := SSL_set_connect_state_proc; - SSL_set_accept_state := SSL_set_accept_state_proc; - SSL_set_shutdown := SSL_set_shutdown_proc; - SSL_CTX_load_verify_locations := SSL_CTX_load_verify_locations_func; - SSL_get_session := SSL_get_session_func; - SSLeay_add_ssl_algorithms := SSLeay_add_ssl_algorithms_func; - SSL_SESSION_get_id := SSL_SESSION_get_id_func; - SSL_copy_session_id := SSL_copy_session_id_proc; - // CRYPTO LIB - _SSLeay_version := SSLeay_version_func; - SSLeay := SSLeay_func; - d2i_X509_NAME := d2i_X509_NAME_func; - i2d_X509_NAME := i2d_X509_NAME_func; - X509_NAME_oneline := X509_NAME_oneline_func; - X509_NAME_cmp := X509_NAME_cmp_func; - X509_NAME_hash := X509_NAME_hash_func; - X509_set_issuer_name := X509_set_issuer_name_func; - X509_get_issuer_name := X509_get_issuer_name_func; - X509_set_subject_name := X509_set_subject_name_func; - X509_get_subject_name := X509_get_subject_name_func; - X509_digest := X509_digest_func; - X509_LOOKUP_ctrl := X509_LOOKUP_ctrl_func; - X509_STORE_add_cert := X509_STORE_add_cert_func; - X509_STORE_add_crl := X509_STORE_add_crl_func; - X509_STORE_CTX_get_ex_data := X509_STORE_CTX_get_ex_data_func; - X509_STORE_CTX_get_error := X509_STORE_CTX_get_error_func; - X509_STORE_CTX_set_error := X509_STORE_CTX_set_error_proc; - X509_STORE_CTX_get_error_depth := X509_STORE_CTX_get_error_depth_func; - X509_STORE_CTX_get_current_cert := X509_STORE_CTX_get_current_cert_func; - X509_STORE_add_lookup := X509_STORE_add_lookup_func; - X509_STORE_load_locations := X509_STORE_load_locations_func; - i2d_DSAPrivateKey := i2d_DSAPrivateKey_func; - d2i_DSAPrivateKey := d2i_DSAPrivateKey_func; - d2i_PrivateKey := d2i_PrivateKey_func; - d2i_PrivateKey_bio := d2i_PrivateKey_bio_func; - X509_sign := X509_sign_func; - X509_REQ_sign := X509_REQ_sign_func; - X509_REQ_add_extensions := X509_REQ_add_extensions_func; - X509V3_EXT_conf_nid := X509V3_EXT_conf_nid_func; - X509_EXTENSION_create_by_NID := X509_EXTENSION_create_by_NID_func; - X509V3_set_ctx := X509V3_set_ctx_proc; - X509_EXTENSION_free := X509_EXTENSION_free_proc; - X509_add_ext := X509_add_ext_func; - {$IFNDEF OPENSSL_NO_BIO} - //X509_print - X509_print := X509_print_func; - {$ENDIF} -// _RAND_cleanup := RAND_cleanup_func; -// _RAND_bytes := RAND_bytes_func; -// _RAND_pseudo_bytes := RAND_pseudo_bytes_func; -// _RAND_seed := RAND_seed_proc; -// _RAND_add := RAND_add_proc; -// _RAND_status := RAND_status_func; - {$IFDEF SYS_WIN} - _RAND_screen := RAND_screen_proc; - _RAND_event := RAND_event_func; - {$ENDIF} - {$IFNDEF OPENSSL_NO_DES} - // 3DES - DES_set_odd_parity := DES_set_odd_parity_proc; - DES_set_key := DES_set_key_func; - DES_ecb_encrypt := DES_ecb_encrypt_proc; -// Id_ossl_old_des_set_odd_parity := Id_ossl_old_des_set_odd_parity_proc; -// Id_ossl_old_des_set_key := Id_ossl_old_des_set_key_func; -// Id_ossl_old_des_ecb_encrypt := Id_ossl_old_des_ecb_encrypt_proc; - {$ENDIF} - // More SSL functions - SSL_set_ex_data := SSL_set_ex_data_func; - SSL_get_ex_data := SSL_get_ex_data_func; - SSL_load_client_CA_file := SSL_load_client_CA_file_func; - SSL_CTX_set_client_CA_list := SSL_CTX_set_client_CA_list_proc; - SSL_CTX_set_default_verify_paths := SSL_CTX_set_default_verify_paths_func; - SSL_CTX_set_session_id_context := SSL_CTX_set_session_id_context_func; - SSL_CIPHER_description := SSL_CIPHER_description_func; - SSL_get_current_cipher := SSL_get_current_cipher_func; - SSL_CIPHER_get_name := SSL_CIPHER_get_name_func; - SSL_CIPHER_get_version := SSL_CIPHER_get_version_func; - SSL_CIPHER_get_bits := SSL_CIPHER_get_bits_func; - // Thread safe - _CRYPTO_lock := CRYPTO_lock_proc; - _CRYPTO_num_locks := CRYPTO_num_locks_func; - CRYPTO_set_locking_callback := CRYPTO_set_locking_callback_proc; - {$IFNDEF WIN32_OR_WIN64} -{ -In OpenSSL 1.0.0, you should use these callback functions instead of the -depreciated set_id_callback. They are not in the older 0.9.8 OpenSSL series so -we have to handle both cases. -} - CRYPTO_THREADID_set_callback := CRYPTO_THREADID_set_callback_func; - CRYPTO_THREADID_set_numeric := CRYPTO_THREADID_set_numeric_proc; - CRYPTO_THREADID_set_pointer := CRYPTO_THREADID_set_pointer_proc; {Do not localize} -// if not assigned(CRYPTO_THREADID_set_callback) then begin -// @CRYPTO_set_id_callback := LoadFunctionCLib(fn_CRYPTO_set_id_callback); -// end; - {$ENDIF} - ERR_put_error := ERR_put_error_proc; - ERR_get_error := ERR_get_error_func; - ERR_peek_error := ERR_peek_error_func; - ERR_peek_last_error := ERR_peek_last_error_func; - ERR_clear_error := ERR_clear_error_proc; - ERR_error_string := ERR_error_string_func; - ERR_error_string_n := ERR_error_string_n_proc; - ERR_lib_error_string := ERR_lib_error_string_func; - ERR_func_error_string := ERR_func_error_string_func; - ERR_reason_error_string := ERR_reason_error_string_func; - ERR_load_ERR_strings := ERR_load_ERR_strings_proc; - ERR_load_crypto_strings := ERR_load_crypto_strings_proc; - ERR_free_strings := ERR_free_strings_proc; - ERR_remove_thread_state := ERR_remove_thread_state_proc; -// if not Assigned(ERR_remove_thread_state) then begin -// @ERR_remove_state := LoadFunctionCLib(fn_ERR_remove_state); -// end; - CRYPTO_cleanup_all_ex_data := CRYPTO_cleanup_all_ex_data_proc; - SSL_COMP_get_compression_methods := SSL_COMP_get_compression_methods_func; - SSL_COMP_free_compression_methods := SSL_COMP_free_compression_methods_func; - sk_pop_free := sk_pop_free_proc; - //RSA - RSA_free := RSA_free_proc; - RSA_generate_key := RSA_generate_key_func; - RSA_check_key := RSA_check_key_func; - RSA_generate_key_ex := RSA_generate_key_ex_func; - RSA_new := RSA_new_func; - RSA_size := RSA_size_func; - RSA_private_decrypt := RSA_private_decrypt_func; - RSA_public_encrypt := RSA_public_encrypt_func; - //DH - DH_free := DH_free_proc; - //BN - BN_new := BN_new_func; - BN_free := BN_free_proc; - BN_hex2bn := BN_hex2bn_func; - BN_bn2hex := BN_bn2hex_func; - BN_set_word := BN_set_word_func; - //BIO - BIO_new := BIO_new_func; - BIO_free := BIO_free_func; - BIO_new_mem_buf := BIO_new_mem_buf_func; - BIO_s_mem := BIO_s_mem_func; - BIO_s_file := BIO_s_file_func; - BIO_ctrl := BIO_ctrl_func; - BIO_int_ctrl := BIO_int_ctrl_func; - BIO_ptr_ctrl := BIO_ptr_ctrl_func; - BIO_new_file := BIO_new_file_func; - BIO_puts := BIO_puts_func; - BIO_read := BIO_read_func; - BIO_write := BIO_write_func; - //i2d - i2d_X509_bio := i2d_X509_bio_func; - i2d_PrivateKey_bio := i2d_PrivateKey_bio_func; - d2i_X509_bio := d2i_X509_bio_func; - i2d_X509_REQ_bio := i2d_X509_REQ_bio_func; - i2d_PKCS7 := i2d_PKCS7_func; - d2i_PKCS7 := d2i_PKCS7_func; - i2d_X509 := i2d_X509_func; - d2i_X509 := d2i_X509_func; - i2d_X509_REQ := i2d_X509_REQ_func; - d2i_X509_REQ := d2i_X509_REQ_func; - i2d_X509_CRL := i2d_X509_CRL_func; - d2i_X509_CRL := d2i_X509_CRL_func; - i2d_RSAPrivateKey := i2d_RSAPrivateKey_func; - d2i_RSAPrivateKey := d2i_RSAPrivateKey_func; - i2d_RSAPublicKey := i2d_RSAPublicKey_func; - d2i_RSAPublicKey := d2i_RSAPublicKey_func; - i2d_PrivateKey := i2d_PrivateKey_func; - d2i_PrivateKey := d2i_PrivateKey_func; - - i2d_DSAparams := i2d_DSAparams_func; - d2i_DSAparams := d2i_DSAparams_func; - i2d_DHparams := i2d_DHparams_func; - d2i_DHparams := d2i_DHparams_func; - i2d_NETSCAPE_CERT_SEQUENCE := i2d_NETSCAPE_CERT_SEQUENCE_func; - d2i_NETSCAPE_CERT_SEQUENCE := d2i_NETSCAPE_CERT_SEQUENCE_func; - i2d_PUBKEY := i2d_PUBKEY_func; - d2i_PUBKEY := d2i_PUBKEY_func; - - //X509 - X509_get_default_cert_file := X509_get_default_cert_file_func; - X509_get_default_cert_file_env := X509_get_default_cert_file_env_func; - X509_new := X509_new_func; - X509_free := X509_free_proc; - X509_REQ_new := X509_REQ_new_func; - X509_REQ_free := X509_REQ_free_proc; - X509_to_X509_REQ := X509_to_X509_REQ_func; - X509_NAME_new := X509_NAME_new_func; - X509_NAME_free := X509_NAME_free_proc; - X509_NAME_add_entry_by_txt := X509_NAME_add_entry_by_txt_func; - X509_INFO_free := X509_INFO_free_proc; - X509_set_version := X509_set_version_func; - X509_get_serialNumber := X509_get_serialNumber_func; - X509_gmtime_adj := X509_gmtime_adj_func; - X509_set_notBefore := X509_set_notBefore_func; - X509_set_notAfter := X509_set_notAfter_func; - X509_set_pubkey := X509_set_pubkey_func; - X509_REQ_set_pubkey := X509_REQ_set_pubkey_func; - X509_PUBKEY_get := X509_PUBKEY_get_func; - X509_verify := X509_verify_func; - //PEM - {$IFNDEF SSLEAY_MACROS} - _PEM_read_bio_X509 := PEM_read_bio_X509_func; - _PEM_read_bio_X509_REQ := PEM_read_bio_X509_REQ_func; - _PEM_read_bio_X509_CRL := PEM_read_bio_X509_CRL_func; - _PEM_read_bio_RSAPrivateKey := PEM_read_bio_RSAPrivateKey_func; - _PEM_read_bio_RSAPublicKey := PEM_read_bio_RSAPublicKey_func; - _PEM_read_bio_DSAPrivateKey := PEM_read_bio_DSAPrivateKey_func; - _PEM_read_bio_PrivateKey := PEM_read_bio_PrivateKey_func; - _PEM_read_bio_PKCS7 := PEM_read_bio_PKCS7_func; - _PEM_read_bio_DHparams := PEM_read_bio_DHparams_func; - _PEM_read_bio_DSAparams := PEM_read_bio_DSAparams_func; - _PEM_read_bio_NETSCAPE_CERT_SEQUENCE := PEM_read_bio_NETSCAPE_CERT_SEQUENCE_func; - _PEM_read_bio_PUBKEY := PEM_read_bio_PUBKEY_func; - _PEM_write_bio_X509 := PEM_write_bio_X509_func; - _PEM_write_bio_X509_REQ := PEM_write_bio_X509_REQ_func; - _PEM_write_bio_X509_CRL := PEM_write_bio_X509_CRL_func; - _PEM_write_bio_RSAPrivateKey := PEM_write_bio_RSAPrivateKey_func; - _PEM_write_bio_RSAPublicKey := PEM_write_bio_RSAPublicKey_func; - _PEM_write_bio_DSAPrivateKey := PEM_write_bio_DSAPrivateKey_func; - _PEM_write_bio_PrivateKey := PEM_write_bio_PrivateKey_func; - _PEM_write_bio_PKCS7 := PEM_write_bio_PKCS7_func; - _PEM_write_bio_DHparams := PEM_write_bio_DHparams_func; - _PEM_write_bio_DSAparams := PEM_write_bio_DSAparams_func; - _PEM_write_bio_NETSCAPE_CERT_SEQUENCE := PEM_write_bio_NETSCAPE_CERT_SEQUENCE_func; - _PEM_write_bio_PKCS8PrivateKey := PEM_write_bio_PKCS8PrivateKey_func; - _PEM_write_bio_PUBKEY := PEM_write_bio_PUBKEY_func; - {$ELSE} - PEM_ASN1_write_bio := PEM_ASN1_write_bio_func; - PEM_ASN1_read_bio := PEM_ASN1_read_bio_func; - {$ENDIF} - PEM_X509_INFO_read_bio := PEM_X509_INFO_read_bio_func; - PEM_read_bio_X509_AUX := PEM_read_bio_X509_AUX_func; - //EVP - {$IFNDEF OPENSSL_NO_DES} - EVP_des_ede3_cbc := EVP_des_ede3_cbc_func; - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA512} - EVP_sha512 := EVP_sha512_func; - EVP_sha384 := EVP_sha384_func; - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA256} - EVP_sha256 := EVP_sha256_func; - EVP_sha224 := EVP_sha224_func; - {$ENDIF} - {$IFNDEF OPENSSL_NO_SHA} - EVP_sha1 := EVP_sha1_func; - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD5} - EVP_md5 := EVP_md5_func; - {$ENDIF} - {$IFNDEF OPENSSL_NO_MD4} - EVP_md4 := EVP_md4_func; - {$ENDIF} -// {$IFNDEF OPENSSL_NO_MD2} -// EVP_md2 := EVP_md2_func; -// {$ENDIF} - EVP_MD_CTX_init := EVP_MD_CTX_init_proc; - EVP_MD_CTX_cleanup := EVP_MD_CTX_cleanup_func; - EVP_MD_CTX_create := EVP_MD_CTX_create_func; - EVP_MD_CTX_destroy := EVP_MD_CTX_destroy_proc; - EVP_MD_CTX_copy := EVP_MD_CTX_copy_func; - EVP_MD_CTX_copy_ex := EVP_MD_CTX_copy_ex_func; - EVP_DigestInit_ex := EVP_DigestInit_ex_func; - EVP_DigestUpdate := EVP_DigestUpdate_func; - EVP_DigestFinal_ex := EVP_DigestFinal_ex_func; - EVP_MD_CTX_cleanup := EVP_MD_CTX_cleanup_func; - EVP_PKEY_type := EVP_PKEY_type_func; - EVP_PKEY_new := EVP_PKEY_new_func; - EVP_PKEY_free := EVP_PKEY_free_proc; - EVP_PKEY_assign := EVP_PKEY_assign_func; - EVP_get_digestbyname := EVP_get_digestbyname_func; - //HMAC - {$IFNDEF OPENSSL_NO_HMAC} - HMAC_CTX_init := HMAC_CTX_init_proc; -// if IsOpenSSL_1x then begin - _1_0_HMAC_Init_ex := HMAC_Init_ex_func; - _1_0_HMAC_Update := HMAC_Update_func; - _1_0_HMAC_Final := HMAC_Final_func; -// end else begin -// @_HMAC_Init_ex := LoadFunctionCLib(fn_HMAC_Init_ex); -// @_HMAC_Update := LoadFunctionCLib(fn_HMAC_Update); -// @_HMAC_Final := LoadFunctionCLib(fn_HMAC_Final); -// end; - HMAC_CTX_cleanup := HMAC_CTX_cleanup_proc; - {$ENDIF} - //OBJ - OBJ_obj2nid := OBJ_obj2nid_func; - OBJ_nid2obj := OBJ_nid2obj_func; - OBJ_nid2ln := OBJ_nid2ln_func; - OBJ_nid2sn := OBJ_nid2sn_func; - //ASN1 - ASN1_INTEGER_set := ASN1_INTEGER_set_func; - ASN1_INTEGER_get := ASN1_INTEGER_get_func; - ASN1_STRING_type_new := ASN1_STRING_type_new_func; - ASN1_STRING_free := ASN1_STRING_free_proc; - ASN1_dup := ASN1_dup_func; - CRYPTO_set_mem_functions := CRYPTO_set_mem_functions_func; - CRYPTO_malloc := CRYPTO_malloc_func; - CRYPTO_free := CRYPTO_free_proc; - CRYPTO_mem_leaks := CRYPTO_mem_leaks_proc; - CRYPTO_mem_ctrl := CRYPTO_mem_ctrl_func; - CRYPTO_set_mem_debug_functions := CRYPTO_set_mem_debug_functions_proc; - PKCS12_create := PKCS12_create_func; - i2d_PKCS12_bio := i2d_PKCS12_bio_func; - PKCS12_free := PKCS12_free_proc; -// OpenSSL_add_all_algorithms := OpenSSL_add_all_algorithms_proc; - OpenSSL_add_all_ciphers := OpenSSL_add_all_ciphers_proc; - OpenSSL_add_all_digests := OpenSSL_add_all_digests_proc; - EVP_cleanup := EVP_cleanup_proc; - - sk_num := sk_num_func; - sk_new := sk_new_func; - sk_new_null := sk_new_null_func; - sk_free := sk_free_proc; - sk_push := sk_push_func; - sk_dup := sk_dup_func; - sk_find := sk_find_func; - sk_value := sk_value_func; - {$IFDEF OPENSSL_FIPS} -// _FIPS_mode_set := FIPS_mode_set_func; -// _FIPS_mode := FIPS_mode_func; - {$ENDIF} -end; - -initialization - LoadSymbols; - -{$ENDIF} - -end. diff --git a/LICENSE.md b/LICENSE.md index e8d8abb..3f62048 100644 --- a/LICENSE.md +++ b/LICENSE.md @@ -1,17 +1,17 @@ -# Dual Licensed - -Indy is dual licensed. You can review which license better suits your needs, and use that license. You can even change your mind later if you have previously chosen one. - -## Licenses - -1. Indy Modified BSD License - The Indy Modified BSD license is a very no nonsense license that allows you to do almost anything you want with Indy, provided you provide proper attribution. - -3. Indy MPL (Mozilla Public License) License - To make it easier and consistent for JEDI users, we also offer an [MPL license v1.1](http://www.mozilla.org/MPL/MPL-1.1.html). - -## Which license should I use? - -You need to investigate them and see which one fits your needs. The BSD license is simpler and allows much broader use, but requires attribution (See below). The MPL license is more restrictive, but does not require attribution. If in doubt, choose the BSD license and just provide proper attribution. - -## Do I have to provide attribution in the about box? - -No. While we appreciate attribution in the about box, it is not a requirement. A mention in the documentation (or in multiple places), or any reasonable visible place to the users of the product is acceptable. There are also Indy graphics and logos you can use. (https://www.indyproject.org/license/logos) +# Dual Licensed + +Indy is dual licensed. You can review which license better suits your needs, and use that license. You can even change your mind later if you have previously chosen one. + +## Licenses + +1. Indy Modified BSD License - The Indy Modified BSD license is a very no nonsense license that allows you to do almost anything you want with Indy, provided you provide proper attribution. + +3. Indy MPL (Mozilla Public License) License - To make it easier and consistent for JEDI users, we also offer an [MPL license v1.1](http://www.mozilla.org/MPL/MPL-1.1.html). + +## Which license should I use? + +You need to investigate them and see which one fits your needs. The BSD license is simpler and allows much broader use, but requires attribution (See below). The MPL license is more restrictive, but does not require attribution. If in doubt, choose the BSD license and just provide proper attribution. + +## Do I have to provide attribution in the about box? + +No. While we appreciate attribution in the about box, it is not a requirement. A mention in the documentation (or in multiple places), or any reasonable visible place to the users of the product is acceptable. There are also Indy graphics and logos you can use. (https://www.indyproject.org/license/logos) diff --git a/Makefile.fpc b/Makefile.fpc new file mode 100644 index 0000000..44adcfe --- /dev/null +++ b/Makefile.fpc @@ -0,0 +1,13 @@ +[prerules] +ifdef DEBUG +export OPT=-O1 -g -gl +else +export OPT=-O3 +endif +export INDY_VERSION=10.6.3.7 + +[target] +dirs=src + +[clean] +files=units/$(CPU_TARGET)-$(OS_TARGET)/*.o units/$(CPU_TARGET)-$(OS_TARGET)/*.ppu diff --git a/README.IdSSLOpenSSL.Split b/README.IdSSLOpenSSL.Split new file mode 100644 index 0000000..2c28878 --- /dev/null +++ b/README.IdSSLOpenSSL.Split @@ -0,0 +1,54 @@ +August 2025 - OpenSSL Package Clean Up + +The objective of this package cleanup is to improve readability and maintainability with only minimal impact on the end user. Primarily, this involves splitting up the IdSSLOpenSSL unit with limited code clean up. IdSSLOpenSSL is retained and continues to provide the classes TIdSSLIOHandlerSocketOpenSSL and TIdServerIOHandlerSSLOpenSSL. This should ensure that basic users of Indy OpenSSL should need to do no more than recompile their source code in order to use this update. + +If SSLOptions are set by user code, then additionally, the IdSSLOpenSSLOptions unit must now be included in a using units "uses" list. + +If X.509 certificates are set or processed by user code, then additionally, the IdSSLOpenSSLX509 unit must now included in a using units "uses" list. + +Unit Split +========== + +IdSSLOpenSSL has been split into the following units: + +1. IdSSLOpenSSL including TIdSSLIOHandlerSocketOpenSSL and TIdServerIOHandlerSSLOpenSSL classes and supporting types. + +2. IdSSLOpenSSLSocket including TIdSSLSocket, TIdSSLContext and TIdSSLCipher classes and supporting types. + +3. IdSSLOpenSSLOptions including TIdSSLOptions and supporting types. + +4. IdSSLOpenSSLX509 including TIdX509, TIdX509SigInfo, TIdX509Fingerprints, TIdX509Info and TIdX509Name classes and supporting types. + +5. IdSSLOpenSSLUtils: miscellaneous support functions. + +6. IdSSLwincrypt: contains a (limited) interface to wincrypt32.dll for use on MS Windows when loading the Windows cert store. + +Detailed Changes that may be externally visible +=============================================== + +1. procedures LoadOpenSSLLibrary and UnLoadOpenSSLLibrary have been moved to IdSSLOpenSSLSocket. Generally, you will not be needing to use these functions as the OpenSSL library is automatically loaded on first use and unloaded at program end. + +2. TCallbackExEvent: changed type definition from + +TCallbackExEvent = procedure(ASender : TObject; const AsslSocket: PSSL; + const AWhere, Aret: TIdC_INT; const AType, AMsg : String ) of object; + +to + +TCallbackExEvent = procedure(ASender : TObject; const aSSLSocket: TIdSSLSocket; + const AWhere, Aret: TIdC_INT; const AType, AMsg : String ) of object; + +TIdSSLSocket now has a new public method: + +function GetSSL: PSSL; + +which gives access to the underlying SSL structure if needed by TCallbackExEvent. The PSSL type is defined in IdOpenSSLHeaders_ossl_typ.pas. + +3. IIdSSLOpenSSLCallbackHelper has been moved to IdSSLOpenSSLSocket and revised. This is an internal interface meant for polymorphic access to TIdSSLIOHandlerSocketOpenSSL and TIdServerIOHandlerSSLOpenSSL by IdSSLOpenSSLSocket and callbacks. It is not intended for external use, but is externally visible. The interface has been revised to increase isolation between provider and user, to some extent necessitated by the movement of IdSSLOpenSSLSocket and callbacks to a separate unit. + +Test Programs +============= + +The OpenSSL test programs have been updated to demonstrate use of the OnStatusInfo callback for both client and server. This is primarily a debuging aid reporting on the TLS protocol operation. + + diff --git a/README.OpenSSL b/README.OpenSSL new file mode 100644 index 0000000..fd955e0 --- /dev/null +++ b/README.OpenSSL @@ -0,0 +1,285 @@ +This package provides a new (optional) OpenSSL package separate from Indy's "protocols" package +and adds support for OpenSSL 3.0 and later. Both Delphi and Lazarus/fpc are fully +supported by this source code tree. + +Three link models are supported. + * Dynamic Library Load (the default and the approach used in previous versions) + * compile time linkage to a shared (.so or .dll) library (OpenSSL 3.x only) + * compile time linkage to a static library (FPC only with gcc compiled OpenSSL). + +For dynamic library load, a "Just in Time" approach is used where each API call is initialised to a local proc "loader" function. +The intent is that on the first call a given API function, the actual entry point in the OpenSSL function +is loaded and the API call is set to the loaded entry point. The API function is now called on the user's +behalf. If the call fails to load then it is replaced by a compatibility function (if one exists). If none exists +then an exception is raised. If an API function is allowed to be nil (as set in the template), then the function +is loaded at library load time. + +These updated package is dependent on Indy 10.7. + +The updated package has been tested under the following scenarios: + +1. Static Linking to Static Library (Lazarus/Linux only with gcc generated libssl.a and libcrypto.a). + +2. Static Linking to Shared Library (DLL/so). Delphi and Lazarus (Windows and Linux). + +3. Dynamic Load and Link. Delphi and Lazarus (Windows and Linux). OpenSSL 1.0.2, 1.1.1. and 3.x + +For (2) and (3) above, the different link strategies are selected at compile time by a "defined symbol" set in the OpenSSL +package options (not the using program), as follows: + +- OPENSSL_USE_STATIC_LIBRARY (Static Linking to Static Library) +- OPENSSL_USE_SHARED_LIBRARY (Static Linking to Shared Library) +- Neither of the above (Dynamic Load and Link). + +Note that (2) and (3) behave identically for Static and Shared library linking). + +The defined synbol OPENSSL_NO_LEGACY_SUPPORT may also be set at compile time and applies to Dynamic +loading. If set, no compatibility functions are compile in to the executeable. Only 3.0 or later +API calls may be used. + + +Delphi Builds +============= + +New Packages: + +IndyTLSOpenSSL290 and +dclIndyTLOSpenSSL290 (design time only) + +may be found in the Delphi directory. + +To use OpenSSL in a given project, the IndyOpenSSL290 package must now be included in the list of required run time packages. + + +Lazarus/FPC Builds +================== + +All lazarus packages may be found in the "lazarus-fpc/" top level folder. These are: + +IndyTLSOpenSSL.lpk + +and the design time only packages + +indylaz_openssl + +In order to install this proposed update for Lazarus (Windows and Linux), Open first +that package indylaz_openssl.lpk and click on install. The Indy TLS Library should now be available for use. + + +Test Programs +============= + +Two test programs are available with variants for Delphi and Lazarus. These may be found in: + +1. Test/openssl-client and +2. Test/openssl-server. + +openssl-client uses an HTTP Client to issue an http Get on an https target and returns +the result. The server certificate is also verified. + +openssl-server provides both and a server and uses a local PKI to retrieve a web page +from the server, with both client and server certificate verification and to return the result. + +Note: in all cases the compiled programs are placed in the openssl-client or openssl-server +directories. + +Note that for Delphi, a convenience project group is provided: + +Test\AllTests.groupprog + +These build both test programs and their supporting packages as a single project group. You do +not have to install the design time packages in order to use the test programs. + +When testing under Lazarus, similarly you do not need to have installed the design time packages. +However, you need to at least "open" the dependent packages so that the IDE knows where to find +them. + +Test program command line arguments: + +Usage: fpc_openssl_client [-h] [-n] [-l ] [-L] [OpenSSL lib dir] + +Usage: fpc_openssl_client [-h] [-n] [-l ] [-L] [OpenSSL lib dir] + +-L is useful under Linux when the OpenSSL Library used has not been installed and + hence does not know where to find its X.509 certificate store. When -L is + given, the program searches a list of possible locations. + +Runtime Control of the Library Loader +===================================== + +The OpenSSLAPI unit provides two Pascal COM interfaces which provide information and option selection for the OpenSSL Library. + +The IOpenSSL Interface +---------------------- + +This interface is available for all link strategies and the interface is accessed using the function: + function GetIOpenSSL: IOpenSSL; + +The interface is declared as: + IOpenSSL = interface + ['{aed66223-1700-4199-b1c5-8222648e8cd5}'] + function GetOpenSSLPath: string; + function GetOpenSSLVersionStr: string; + function GetOpenSSLVersion: TOpenSSL_C_ULONG; + function Init: boolean; + end; + +function GetOpenSSLPath: string; + +Static Linking: Returns the OpenSSL installation path as compiled into the OpenSSL library. +Dynamic Loading: Returns + • The same as above when the library is loaded + • the specified OpenSSL installation path, otherwise. + +function GetOpenSSLVersionStr: string + +Returns the OpenSSL library version string. e.g “OpenSSL 3.2.0 23 Nov 2023†+ +function GetOpenSSLVersion: TOpenSSL_C_ULONG; + +Returns the OpenSSL library version as an integer as defined by the OpenSSL documentation. + +function Init: boolean; + +Called to initialise the OpenSSL library prior to use. This must be called when using static linking. +It is optional for dynamic linking (implicitly called on library load). + +The IOpenSSLDLL Interface +------------------------- + +This interface is only available when the API is configured at compile time for dynamic library loading. +The interface is accessed using the function: + +function GetIOpenSSLDDL: IOpenSSLDLL; + +This function returns “nil†if the interface is not available. This may be used as a runtime test to +determine if dynamic library loading if been configured. + +Note The OpenSSLAPI unit only declares the constant + +OpenSSL_Using_Dynamic_Library_Load = true; + +when configured at compile time for dynamic library loading. The constant is not declared otherwise. This feature may be used as a compile time test for the dynamic library loading strategy e.g. + +{$if declared(OpenSSL_Using_Dynamic_Library_Load)} +… +{$ifend} + +The interface includes the IOpenSSL interface and is declared as: + IOpenSSLDLL = interface(IOpenSSL) + procedure SetOpenSSLPath(const Value: string); + function GetSSLLibVersions: string; + procedure SetSSLLibVersions(AValue: string); + function GetSSLBaseLibName: string; + procedure SetSSLBaseLibName(AValue: string); + function GetCryptoBaseLibName: string; + procedure SetCryptoBaseLibName(AValue: string); + function GetAllowLegacyLibsFallback: boolean; + procedure SetAllowLegacyLibsFallback(AValue: boolean); + function GetLibCryptoHandle: TLibHandle; + function GetLibSSLHandle: TLibHandle; + function GetLibCryptoFilePath: string; + function GetLibSSLFilePath: string; + function GetFailedToLoadList: TStrings; + function Load: Boolean; + procedure Unload; + function IsLoaded: boolean; + property SSLLibVersions: string read GetSSLLibVersions write SetSSLLibVersions; + property SSLBaseLibame: string read GetSSLBaseLibName write SetSSLBaseLibName; + property CryptoBaseLibName: string read GetCryptoBaseLibName + write SetCryptoBaseLibName; + property AllowLegacyLibsFallback: boolean read GetAllowLegacyLibsFallback + write SetAllowLegacyLibsFallback;end; + +procedure SetOpenSSLPath(const Value: string); + +This sets the OpenSSLPath used to locate the OpenSSL library modules (e.g. libcrypto.so). It +needs to be set when OpenSSL has not been installed in a default location and/or multiple +versions of OpenSSL have been installed on the same system. + +function GetSSLLibVersions: string; +procedure SetSSLLibVersions(AValue: string); + +This is a colon separated (Unixes) or semi-colon separated (Windows) ordered list of OpenSSL +version numbers that can be used as suffices for the OpenSSL library modules (e.g. for +libcrypto-3-x64.dll, the suffix is '-3-x64'). When searching for the OpenSSL library, the loader +searches the default (or specified) OpenSSLPath for OpenSSL libraries using these suffices in turn. + +Unix: defaults to + '.3:.1.1:.1.0.2:.1.0.0:.0.9.9:.0.9.8:.0.9.7:.0.9.6' + +Note includes legacy versions. + +Windows defaults to +'-3-x64;-1-x64;' (64 bit) +'-3;-1;' (32 bit) + +Changing the libversions will automatically unload the ssl and crypto libraries if currently loaded. + +function GetSSLBaseLibName: string; +procedure SetSSLBaseLibName(AValue: string); + +These are used to respectively get and set the basename for the SSL dynamic library. Defaults to 'libssl'. +Changing the base name will automatically unload the ssl and crypto libraries if currently loaded. + +function GetCryptoBaseLibName: string; +procedure SetCryptoBaseLibName(AValue: string); + +These are used to respectively get and set the basename for the crypto dynamic library. +Defaults to 'libcrypto'. Changing the base name will automatically unload the ssl and crypto +libraries if currently loaded. + +function GetAllowLegacyLibsFallback: boolean; +procedure SetAllowLegacyLibsFallback(AValue: boolean); + +These are used to respectively get and set the AllowLegacyLibsFallback flag. This is only used +when running under Windows. If set and no OpenSSL libraries have been found when searching for +them using the Base Library names and libversions, then the loader will attempt to load the +OpenSSL libraries using the legacy library names 'libeay32' and 'ssleay32'. + +Defaults to 'false'. + +Changing this flag will automatically unload the ssl and crypto libraries if currently loaded. + +function GetLibCryptoHandle: TLibHandle; + +After a successful library load, this returns the value of the internal handle to libcrypto (internal use only recommended). + +function GetLibSSLHandle: TLibHandle; + +After a successful library load, this returns the value of the internal handle to libssl (internal use only recommended). + +function GetLibCryptoFilePath: string; + +After a successful library load, this returns the path to the loaded libcrypto library. +(note: may be empty if default library loaded). + +function GetLibSSLFilePath: string; + +After a successful library load, this returns the path to the loaded libssl library. ( +note: may be empty if default library loaded). + +function GetFailedToLoadList: TStrings; + +After a successful library load, this returns a list of API call names that failed to load at +library load time. Note: only applies to a small number of functions that are not suitable +for "just in time" loading. + +function Load: Boolean; + +Explicitly loads the library if not already loaded and returns “true†on successful load. + +procedure Unload; + +Explicitly unloads the library if current loaded. + +function IsLoaded: boolean; + +Returns true if the OpenSSL library has been successfully loaded. + + + + + + + diff --git a/README.md b/README.md index 5bee4c1..0c025c1 100644 --- a/README.md +++ b/README.md @@ -1,10 +1,135 @@ # Indy TLS for OpenSSL -This project implements TLS and Hash functionalities for Indy using OpenSSL as the backend library. +THIS REPO IS NO LONGER MAINTAINED. This repo has been replaced by https://github.com/MWASoftware/IndySecOpenSSL. + +This project implemented TLS and Hash functionalities for Indy using OpenSSL as the backend library. + +This fork is the basis of a change request to the original repo and should be ignored by most users. It is split off from the main Indy library so it can be updated independantly to the latest version of OpenSSL. -It should be usable as an additional package/dropin to Indy, as long as it remains compatible with Indy's SSLIOHandler and IdFIPS interfaces. +It should be usable as an additional package/dropin to Indy (branch 10.7), as long as it remains compatible with Indy's SSLIOHandler and IdFIPS interfaces. + +About this Pull Request +----------------------- + +This proposed update adds support for OpenSSL 3.0 and later to Indy. Both Delphi and Lazarus/fpc are fully supported by this source code tree. + +This update includes a new (optional) OpenSSL package separate from Indy's "protocols" package. + +Three link models are supported. + * Dynamic Library Load (the default and the approach used in previous versions) + * compile time linkage to a shared (.so or .dll) library (OpenSSL 3.x only) + * compile time linkage to a static library (FPC only with gcc compiled OpenSSL). + +For dynamic library load, a "Just in Time" approach is used where each API call is initialised to a local proc "loader" function. +The intent is that on the first call a given API function, the actual entry point in the OpenSSL function +is loaded and the API call is set to the loaded entry point. The API function is now called on the user's +behalf. If the call fails to load then it is replaced by a compatibility function (if one exists). If none exists +then an exception is raised. If an API function is allowed to be nil (as set in the template), then the function +is loaded at library load time. + + +The updated package has been tested under the following scenarios: + +1. Static Linking to Static Library (Lazarus/Linux only with gcc generated libssl.a and libcrypto.a). + +2. Static Linking to Shared Library (DLL/so). Delphi and Lazarus (Windows and Linux). + +3. Dynamic Load and Link. Delphi and Lazarus (Windows and Linux). OpenSSL 1.0.2, 1.1.1. and 3.x + +For (2) and (3) above, the different link strategies are selected at compile time by a "defined symbol" set in the OpenSSL +package options (not the using program), as follows: + +- OPENSSL_USE_STATIC_LIBRARY (Static Linking to Static Library) +- OPENSSL_USE_SHARED_LIBRARY (Static Linking to Shared Library) +- Neither of the above (Dynamic Load and Link). + +Note that (2) and (3) behave identically for Static and Shared library linking). + +The defined synbol OPENSSL_NO_LEGACY_SUPPORT may also be set at compile time and applies to Dynamic +loading. If set, no compatibility functions are compile in to the executeable. Only 3.0 or later +API calls may be used. + + +Delphi Builds +============= + +All delphi/IndyTLSOpenSSLnnn.dpk files have been edited to remove references to the moved and updated files. +However only delphi/IndyTLSOpenSSL290 has been tested (with Delphi Berlin edition). + +New Packages: + +IndyTLSOpenSSL290 and +dclIndyTLSOpenSSL290 (design time only) + +may be found in the delphi\ subdirectory. + +These are dependent on IndyProtocols290 and dclIndyProtocols290 respectively from the main Indy project tree. + +To use OpenSSL in a given project, the IndyTLSOpenSSL290 package must now be included. + + +Lazarus/FPC Builds +================== + +All lazarus packages may be found in the "lazarus-fpc/" top level folder. These are: + +indyopenssl.lpk + +and the design time only packages + +indylaz_indyopenssl + +In order to install this proposed update for Lazarus (Windows and Linux), n Open the package indylaz_openssl.lpk and +click on install. The Indy Library should now be available for use. This assumes that the indyprotocols package +from the main Indy Project Tree has already been installed. + +You can also use fpcmake to create a makefile for building the full package. Run + +fpcmake -r + +in the package's root directiory. + +Test Programs +============= + +Two test programs are available with variants for Delphi and Lazarus. These may be found in: + +1. Test/openssl-client and +2. Test/openssl-server. + +openssl-client uses an HTTP Client to issue an http Get on an https target and returns +the result. The server certificate is also verified. + +openssl-server provides both and a server and uses a local PKI to retrieve a web page +from the server, with both client and server certificate verification and to return the result. + +Note: in all cases the compiled programs are placed in the openssl-client or openssl-server +directories. + +These build both test programs and their supporting packages as a single project group. You do +not have to install the design time packages in order to use the test programs. + +When testing under Lazarus, similarly you do not need to have installed the design time packages. +However, you need to at least "open" the dependent packages so that the IDE knows where to find +them. + +Test program command line arguments: + +Usage: fpc_openssl_client [-h] [-n] [-l ] [-L] [OpenSSL lib dir] + +Usage: fpc_openssl_client [-h] [-n] [-l ] [-L] [OpenSSL lib dir] + +-L is useful under Linux when the OpenSSL Library used has not been installed and + hence does not know where to find its X.509 certificate store. When -L is + given, the program searches a list of possible locations. + + + + +Upstream README.MD +================= Once this project is stable, the corresponding files will be removed from Indy's main Protocols package, the USE_OPENSSL conditional will be removed from Indy's source files, etc. This requires Indy 10.7 or later, otherwise it will conflict with the OpenSSL files thaat are present in older Indy versions. @@ -16,3 +141,4 @@ This project is dual-licensed under the terms of the Indy Modified BSD License a You can choose between one of them if you use this work. SPDX-License-Identifier: LicenseRef-IndyBSD OR MPL-1.1 + diff --git a/Test/AllTests.groupproj b/Test/AllTests.groupproj new file mode 100644 index 0000000..b34d732 --- /dev/null +++ b/Test/AllTests.groupproj @@ -0,0 +1,60 @@ + + + {7FF639E9-73F0-4139-BA19-816A6C3F32D8} + + + + + + + ..\delphi\IndyTLSOpenSSL290.dproj + + + + + + + Default.Personality.12 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Test/openssl-client/TestClient.pas b/Test/openssl-client/TestClient.pas new file mode 100644 index 0000000..bf77185 --- /dev/null +++ b/Test/openssl-client/TestClient.pas @@ -0,0 +1,425 @@ +unit TestClient; + +{$IFDEF MSWINDOWS} +{$DEFINE WINDOWS} +{$ENDIF} + +{$IFDEF CPU386} +{$DEFINE CPU32} +{$ENDIF} + +{$IFDEF CPUX64} +{$DEFINE CPU64} +{$ENDIF} + +{$IFDEF FPC} +{$mode delphi} +{$codepage utf8} +{$ENDIF} + +{$DEFINE HAS_WINDOWS_CERT_STORE} +{$IFDEF UNIX} +{$DEFINE DO_CERT_VERIFICATION} +{$ENDIF} +{$IFDEF HAS_WINDOWS_CERT_STORE} +{$DEFINE DO_CERT_VERIFICATION} +{$ENDIF} + +interface + +uses + Classes, SysUtils, {$IFDEF FPC}CustApp,{$ENDIF}IdIOHandler, IdHTTP, + IdSSL, IdSSLOpenSSL, IdSSLOpenSSLX509; + +const + remoteSource = 'https://test.mwasoftware.co.uk/openssltest.txt'; + sGetException = 'Error: Status = %d returned when GETting %s'; + rcAccept = 'Application/txt'; + {$if not declared(DirectorySeparator)} + DirectorySeparator = '\'; + {$ifend} + {$IFDEF UNIX} + SSLCertsDirs = '/etc/ssl/certs' {Debian and friends} + + ':/etc/pki/tls/certs' {Fedora/RHEL6} + + ':/etc/ssl' {OpenSUSE} + + ':/etc/pki/tks' {OpenELEC} + + ':/etc/pki/ca-trust' {CENTOS/RHEL 7} + + ':/var/ssl/certs' {AIX} ; + {$ENDIF} + + +type + {$if not declared(TCustomApplication)} + {$DEFINE LOCAL_TCUSTOMAPP} + TCustomApplication = class(TComponent) + private + FTitle: string; + protected + procedure DoRun; virtual; abstract; + public + function Exename: string; + procedure Run; + procedure Terminate; + property Title: string read FTitle write FTitle; + end; + {$IFEND} + + { TBasicHttpsClient } + + TBasicHttpsClient = class(TCustomApplication) + private + FSSLHandler: TIdSSLIOHandlerSocketOpenSSL; + FNoVerification: boolean; + FVerifyDirs: string; + FPromptOnExit: boolean; + FOpenSSLLibDir: string; + function DoTest: integer; + function GetSSLHandler(AOwner: TComponent): TIdIOHandler; + function IsDirectoryEmpty(Path: string): boolean; + {$IFDEF UNIX} + function FindOpenSSLCertsDir: string; + {$ENDIF} + function CertificateType(Certificate: TIdX509): string; + function ClientVerifyPeer(Certificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean; + procedure ShowCertificate(Certificate : TIdX509); + procedure HandleStatusInfo(const AMsg: String); + protected + procedure DoRun; override; + public + constructor Create(TheOwner: TComponent); override; + destructor Destroy; override; + procedure WriteHelp; virtual; + end; + + { TResponseTextBuffer } + + TResponseTextBuffer = class(TMemoryStream) + private + function GetDataString: AnsiString; + public + property DataString: AnsiString read GetDataString; + end; + + +implementation + +uses IdSSLOpenSSLAPI, IdSSLOpenSSLOptions, IdSSLOpenSSLSocket; + +{$IFDEF LOCAL_TCUSTOMAPP} +function TCustomApplication.Exename: string; +begin + Result := ParamStr(0); +end; + +procedure TCustomApplication.Run; +begin + try + DoRun; + except on E: Exception do + writeln(E.Message); + end; +end; + +procedure TCustomApplication.Terminate; +begin + +end; +{$ENDIF} + +{ TResponseTextBuffer } + +function TResponseTextBuffer.GetDataString: AnsiString; +begin + SetLength(Result,Size); + Position := 0; + Read(Result[1],Size); + SetCodePage(RawByteString(Result), DefaultSystemCodePage, False); +end; + + +{ TBasicHttpsClient } + +function TBasicHttpsClient.DoTest: integer; +var httpClient: TIdHttp; + ResponseStream: TResponseTextBuffer; +begin + httpClient := TIdHTTP.Create(nil); + try + httpClient.HTTPOptions := httpClient.HTTPOptions + [hoNoProtocolErrorException, + hoKeepOrigProtocol, + hoWantProtocolErrorContent]; + httpClient.ProtocolVersion := pv1_1; + httpClient.Request.CustomHeaders.Clear; + httpClient.Request.Accept := rcAccept; + httpClient.Request.BasicAuthentication:= false; + httpClient.HandleRedirects := true; + + httpClient.Request.UserAgent :=' Mozilla/5.0 (compatible; Indy Library)'; + httpClient.Request.ContentType := 'application/x-www-form-urlencoded'; + httpClient.IOHandler := GetSSLHandler(httpClient); + + httpClient.ConnectTimeout := 5000; + httpClient.ReadTimeout := 20000; + ResponseStream := TResponseTextBuffer.Create; + try + httpClient.Get(remoteSource,ResponseStream); + {$IFNDEF LEGACYVERSION} + if assigned (FSSLHandler.SSLSocket) then + writeln('Using SSL/TLS Version ' + FSSLHandler.SSLSocket.SSLProtocolVersionStr, ' with cipher ',FSSLHandler.SSLSocket.Cipher.Name); + {$ENDIF} + Result := httpClient.ResponseCode; + if Result = 200 then + begin + writeln('Remote Source returned:'); + writeln(ResponseStream.DataString); + end + else + writeln(Format(sGetException,[Result,remoteSource])); + finally + ResponseStream.Free; + end; + finally + httpClient.Free; + end; +end; + +function TBasicHttpsClient.GetSSLHandler(AOwner: TComponent): TIdIOHandler; +var IOHandler: TIdSSLIOHandlerSocketOpenSSL; +begin + IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(AOwner); + IOHandler.SSLOptions.Mode:= sslmClient; + {$IFDEF LEGACYVERSION} + IOHandler.SSLOptions.Method := sslvTLSv1_2; + {$ENDIF} + {Linux: VerifyDirs set up to defaults + Windows: Default cert store copied into OpenSSL X509 store} + if not FNoVerification then + begin + IOHandler.SSLOptions.VerifyMode := [sslvrfPeer, sslvrfFailIfNoPeerCert]; + IOHandler.SSLOptions.VerifyDepth := 100; + {$IFDEF UNIX} + if FVerifyDirs <> '' then + begin + IOHandler.SSLOptions.VerifyDirs := FVerifyDirs; + writeln('Using certs from ', IOHandler.SSLOptions.VerifyDirs); + end; + {$ENDIF} + end + else + IOHandler.SSLOptions.VerifyMode := []; + IOHandler.OnVerifyPeer := ClientVerifyPeer; + IOHandler.OnStatusInfo := HandleStatusInfo; + FSSLHandler := IOHandler; + Result := IOHandler; +end; + +function TBasicHttpsClient.IsDirectoryEmpty(Path: string): boolean; +var Rslt: TSearchRec; +begin + Result := true; + if FindFirst(Path + DirectorySeparator + '*',faNormal or faSymLink,Rslt) = 0 then + begin + Result := false; + FindClose(Rslt); + end; +end; + +{$IFDEF UNIX} +function TBasicHttpsClient.FindOpenSSLCertsDir : string; +var SSLDirs: TStringList; + i : integer; +begin + Result := ''; + {$if declared(OpenSSLDir)} + Result := OpenSSLDir; + if Result <> '' then + Result := Result + '/certs'; + {$ifend} + if (Result = '') or not DirectoryExists(Result) or IsDirectoryEmpty(Result) then + {See if we can find directory from list of known locations} + begin + SSLDirs := TStringList.Create; + try + SSLDirs.Delimiter := ':'; + SSLDirs.StrictDelimiter := true; + SSLDirs.DelimitedText := SSLCertsDirs; {Split list on delimiter} + for i := 0 to SSLDirs.Count - 1 do + if DirectoryExists(SSLDirs[i]) and not IsDirectoryEmpty(SSLDirs[i]) then + begin + Result := SSLDirs[i]; + break; + end; + finally + SSLDirs.Free; + end; + end; +end; +{$ENDIF} + +function TBasicHttpsClient.CertificateType(Certificate : TIdX509) : string; +begin + if Certificate.Issuer.Hash.C1 = Certificate.Subject.Hash.C1 then + Result := 'Root' + else + Result := 'Remote'; +end; + +function TBasicHttpsClient.ClientVerifyPeer(Certificate : TIdX509; + AOk : Boolean; ADepth , AError : Integer) : Boolean; +begin + writeln; + writeln('Client Side Verification'); + if AOK then + writeln(CertificateType(Certificate),' Certificate verification succeeded') + else + writeln(CertificateType(Certificate),' Certificate verification failed'); + ShowCertificate(certificate); + Result := AOK; +end; + +procedure TBasicHttpsClient.ShowCertificate(Certificate : TIdX509); +begin + writeln; + writeln('X.509 Certificate Details'); + writeln('Subject: ', Certificate.Subject.OneLine); + writeln('Issuer: ', Certificate.Issuer.OneLine); + writeln('Not Before: ',DateTimeToStr(Certificate.notBefore)); + writeln('Not After: ',DateTimeToStr(Certificate.notAfter)); + writeln; +end; + +procedure TBasicHttpsClient.HandleStatusInfo(const AMsg: String); +begin + writeln('Status Info: ',AMsg); +end; + +procedure TBasicHttpsClient.DoRun; + +var i: integer; + FindSSLDir: boolean; + + procedure RunTest; + var i: integer; + begin + {$IFDEF UNIX} + if FindSSLDir then + FVerifyDirs := FindOpenSSLCertsDir; + {$ENDIF} + + writeln('Using ',OpenSSLVersion, ', OpenSSLDir: ', OpenSSLDir); + if GetIOpenSSLDDL <> nil then + begin + writeln('LibCrypto: ',GetIOpenSSLDDL.GetLibCryptoFilePath); + writeln('LibSSL: ',GetIOpenSSLDDL.GetLibSSLFilePath); + end; + if not LoadOpenSSLLibrary then + raise Exception.Create('OpenSSL Library Failed to load'); + + if GetIOpenSSLDDL <> nil then + with GetIOpenSSLDDL.GetFailedToLoadList do + if Count > 0 then + begin + writeln('Note: The following functions failed to load and an exception will be raised if they are called:'); + for i := 0 to Count - 1 do + writeln(Strings[i]); + end; + + writeln('Getting ',remoteSource,' with no verification'); + FNoVerification := true; + DoTest; + {$IFDEF DO_CERT_VERIFICATION} + FNoVerification := false; + writeln('Getting ',remoteSource,' with verification'); + writeln; + DoTest; + {$ENDIF} +end; + +begin + FPromptOnExit := true; + FindSSLDir := false; + try + // quick check parameters + i := 1; + while i <= ParamCount do + begin + if ParamStr(i) = '-h' then + begin + WriteHelp; + Terminate; + Exit; + end; + + if ParamStr(i) = '-n' then + FPromptOnExit := false + else + if (ParamStr(i) = '-l') and (i < ParamCount) then + begin + FVerifyDirs := ParamStr(i+1); + Inc(i); + if not DirectoryExists(FVerifyDirs) or IsDirectoryEmpty(FVerifyDirs) then + raise Exception.CreateFmt('%s is not a directory or is empty',[FVerifyDirs]); + end + else + if ParamStr(i) = '-L' then + {$IFDEF UNIX} + FindSSLDir := true + {$ENDIF} + else + if DirectoryExists(ParamStr(i)) then + FOpenSSLLibDir := ParamStr(i) + else + raise Exception.CreateFmt('Unrecognised option - %s',[ParamStr(i)]); + Inc(i); + end; + + if GetIOpenSSLDDL <> nil then + begin + if (FOpenSSLLibDir = '') or not IsDirectoryEmpty(FOpenSSLLibDir) then + begin + GetIOpenSSLDDL.SetOpenSSLPath(FOpenSSLLibDir); + RunTest; + end + else + writeln('Directory ',FOpenSSLLibDir,' is empty!'); + end + else + RunTest; + + + {$IFDEF WINDOWS} + if FPromptOnExit then + begin + write('Press Return to continue'); + readln; //stop console disappearing until user presses return} + end; + {$ENDIF} + + except on E: Exception do + writeln('Error: ', E.Message); + end; + Terminate; +end; + +constructor TBasicHttpsClient.Create(TheOwner: TComponent); +begin + inherited Create(TheOwner); +// StopOnException:=True; +end; + +destructor TBasicHttpsClient.Destroy; +begin + inherited Destroy; +end; + +procedure TBasicHttpsClient.WriteHelp; +begin + { add your help code here } + writeln('Basic Https Client'); + writeln('Gets text file from ' + remoteSource + ' and prints it'); + writeln('Usage: ', ExtractFileName(ExeName), ' [-h] [-n] [-l ] [-L] [OpenSSL lib dir]') +end; + + +end. + diff --git a/Test/openssl-client/delphi_openssl_client.dpr b/Test/openssl-client/delphi_openssl_client.dpr new file mode 100644 index 0000000..45f60c3 --- /dev/null +++ b/Test/openssl-client/delphi_openssl_client.dpr @@ -0,0 +1,20 @@ +program delphi_openssl_client; + +{$APPTYPE CONSOLE} + +{$R *.res} + +uses + System.SysUtils, + TestClient in 'TestClient.pas'; + +var + Application: TBasicHttpsClient; +begin + Application:=TBasicHttpsClient.Create(nil); + Application.Title:='Basic Https Client Test'; + Application.Run; + Application.Free; +end. + +end. diff --git a/Test/openssl-client/delphi_openssl_client.dproj b/Test/openssl-client/delphi_openssl_client.dproj new file mode 100644 index 0000000..d449be8 --- /dev/null +++ b/Test/openssl-client/delphi_openssl_client.dproj @@ -0,0 +1,1194 @@ + + + {5A8CD527-7B80-4061-A9D5-6FB19B77DF32} + 20.1 + None + delphi_openssl_client.dpr + True + Release + Win64 + 3 + Console + delphi_openssl_client + + + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Cfg_1 + true + true + + + true + Cfg_1 + true + true + + + true + Base + true + + + true + Cfg_2 + true + true + + + true + Cfg_2 + true + true + + + delphi_openssl_client + System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace) + .\$(Platform)\$(Config) + .\$(Platform)\$(Config) + false + false + false + false + false + $(BDS)\bin\delphi_PROJECTICON.ico + + + package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey= + Debug + true + activity-1.7.2.dex.jar;annotation-experimental-1.3.0.dex.jar;annotation-jvm-1.6.0.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-6.0.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-1.1.0.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.10.1.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.10.1.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.1.dex.jar;lifecycle-livedata-2.6.1.dex.jar;lifecycle-livedata-core-2.6.1.dex.jar;lifecycle-runtime-2.6.1.dex.jar;lifecycle-service-2.6.1.dex.jar;lifecycle-viewmodel-2.6.1.dex.jar;lifecycle-viewmodel-savedstate-2.6.1.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.1.0.dex.jar;play-services-basement-18.1.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.0.2.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.0.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar + + + package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey= + Debug + true + activity-1.7.2.dex.jar;annotation-experimental-1.3.0.dex.jar;annotation-jvm-1.6.0.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-6.0.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-1.1.0.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.10.1.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.10.1.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.1.dex.jar;lifecycle-livedata-2.6.1.dex.jar;lifecycle-livedata-core-2.6.1.dex.jar;lifecycle-runtime-2.6.1.dex.jar;lifecycle-service-2.6.1.dex.jar;lifecycle-viewmodel-2.6.1.dex.jar;lifecycle-viewmodel-savedstate-2.6.1.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.1.0.dex.jar;play-services-basement-18.1.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.0.2.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.0.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar + + + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + 1033 + CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) + true + rtl;vcl;vclactnband;vcldsnap;vclx;bindcomp;tethering;svnui;appanalytics;dsnap;bindcompvcl;vclimg;vcltouch;VclSmp;vcldb;bindcompfmx;svn;bindengine;dbrtl;fmx;fmxdae;xmlrtl;fmxobj;vclwinx;fmxase + $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png + $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png + (None) + none + C:\Users\A User\projects\IndyTLS-OpenSSL\Test\openssl-client\delphi_openssl_client.exe + C:\Users\A User\projects\IndyTLS-OpenSSL\Test\openssl-client + + + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace) + Debug + true + CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments= + 1033 + $(BDS)\bin\default_app.manifest + $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png + $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png + C:\Users\A User\projects\IndyTLS-OpenSSL\Test\openssl-client\delphi_openssl_client.exe + C:\Users\A User\projects\IndyTLS-OpenSSL\Test\openssl-client + + + DEBUG;$(DCC_Define) + true + false + true + true + true + 2057 + CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) + + + C:\Users\tony\SoftwareDev\IndyTLS-OpenSSL\Test\openssl-client + C:\Users\A User\projects\Indy\Lib\OpenSSL\opensslHdrs\;$(Debugger_DebugSourcePath) + true + . + $(Platform)\$(Config) + IndySystem290;IndyCore290;IndyProtocols290;IndyTLSOpenSSL290;$(DCC_UsePackage) + 1033 + false + $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png + $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png + + + PerMonitorV2 + true + IndySystem290;IndyCore290;IndyProtocols290;IndyTLSOpenSSL290;$(DCC_UsePackage) + true + + + false + RELEASE;$(DCC_Define) + 0 + 0 + . + 2057 + CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) + + + C:\Users\A User\projects\IndyTLS-OpenSSL\Test\openssl-client + C:\Users\A User\projects\IndyTLS-OpenSSL\Test\openssl-client\delphi_openssl_client.exe + true + $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png + $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png + IndySystem290;IndyCore290;IndyProtocols290;IndyTLSOpenSSL290;$(DCC_UsePackage) + + + PerMonitorV2 + true + IndySystem290;IndyCore290;IndyProtocols290;IndyTLSOpenSSL290;$(DCC_UsePackage) + true + + + + MainSource + + + + Base + + + Cfg_1 + Base + + + Cfg_2 + Base + + + + Delphi.Personality.12 + Application + + + + delphi_openssl_client.dpr + + + Microsoft Office 2000 Sample Automation Server Wrapper Components + Microsoft Office XP Sample Automation Server Wrapper Components + + + + False + False + True + True + + + + + true + + + + + true + + + + + true + + + + + Assets\ + Logo150x150.png + true + + + + + Assets\ + Logo44x44.png + true + + + + + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + classes + 64 + + + classes + 64 + + + + + res\xml + 1 + + + res\xml + 1 + + + + + library\lib\armeabi + 1 + + + library\lib\armeabi + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + library\lib\mips + 1 + + + library\lib\mips + 1 + + + + + library\lib\armeabi-v7a + 1 + + + library\lib\arm64-v8a + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable-anydpi-v21 + 1 + + + res\drawable-anydpi-v21 + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\values-v21 + 1 + + + res\values-v21 + 1 + + + + + res\values-v31 + 1 + + + res\values-v31 + 1 + + + + + res\drawable-anydpi-v26 + 1 + + + res\drawable-anydpi-v26 + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable-anydpi-v33 + 1 + + + res\drawable-anydpi-v33 + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\values-night-v21 + 1 + + + res\values-night-v21 + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable-xxhdpi + 1 + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-xxxhdpi + 1 + + + res\drawable-xxxhdpi + 1 + + + + + res\drawable-ldpi + 1 + + + res\drawable-ldpi + 1 + + + + + res\drawable-mdpi + 1 + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + res\drawable-xhdpi + 1 + + + + + res\drawable-mdpi + 1 + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + res\drawable-xhdpi + 1 + + + + + res\drawable-xxhdpi + 1 + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-xxxhdpi + 1 + + + res\drawable-xxxhdpi + 1 + + + + + res\drawable-small + 1 + + + res\drawable-small + 1 + + + + + res\drawable-normal + 1 + + + res\drawable-normal + 1 + + + + + res\drawable-large + 1 + + + res\drawable-large + 1 + + + + + res\drawable-xlarge + 1 + + + res\drawable-xlarge + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\drawable-anydpi-v24 + 1 + + + res\drawable-anydpi-v24 + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable-night-anydpi-v21 + 1 + + + res\drawable-night-anydpi-v21 + 1 + + + + + res\drawable-anydpi-v31 + 1 + + + res\drawable-anydpi-v31 + 1 + + + + + res\drawable-night-anydpi-v31 + 1 + + + res\drawable-night-anydpi-v31 + 1 + + + + + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + Contents\MacOS + 1 + .framework + + + Contents\MacOS + 1 + .framework + + + Contents\MacOS + 1 + .framework + + + 0 + + + + + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + 0 + .dll;.bpl + + + + + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + 0 + .bpl + + + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + Contents\Resources\StartUp\ + 0 + + + Contents\Resources\StartUp\ + 0 + + + Contents\Resources\StartUp\ + 0 + + + 0 + + + + + 1 + + + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + ..\ + 1 + + + ..\ + 1 + + + ..\ + 1 + + + + + Contents + 1 + + + Contents + 1 + + + Contents + 1 + + + + + Contents\Resources + 1 + + + Contents\Resources + 1 + + + Contents\Resources + 1 + + + + + library\lib\armeabi-v7a + 1 + + + library\lib\arm64-v8a + 1 + + + 1 + + + 1 + + + 1 + + + 1 + + + Contents\MacOS + 1 + + + Contents\MacOS + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + library\lib\armeabi-v7a + 1 + + + + + 1 + + + 1 + + + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + ..\ + 1 + + + ..\ + 1 + + + ..\ + 1 + + + + + 1 + + + 1 + + + 1 + + + + + ..\$(PROJECTNAME).launchscreen + 64 + + + ..\$(PROJECTNAME).launchscreen + 64 + + + + + 1 + + + 1 + + + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + + + + + + + + + + + + + 12 + + + + + diff --git a/Test/openssl-client/fpc_openssl_client.lpi b/Test/openssl-client/fpc_openssl_client.lpi new file mode 100644 index 0000000..1eacf0a --- /dev/null +++ b/Test/openssl-client/fpc_openssl_client.lpi @@ -0,0 +1,74 @@ + + + + + + + + + + + + + <UseAppBundle Value="False"/> + <ResourceType Value="res"/> + </General> + <BuildModes> + <Item Name="Default" Default="True"/> + </BuildModes> + <PublishOptions> + <Version Value="2"/> + <UseFileFilters Value="True"/> + </PublishOptions> + <RunParams> + <FormatVersion Value="2"/> + </RunParams> + <RequiredPackages> + <Item> + <PackageName Value="IndyTLSOpenSSL"/> + </Item> + </RequiredPackages> + <Units> + <Unit> + <Filename Value="fpc_openssl_client.lpr"/> + <IsPartOfProject Value="True"/> + </Unit> + <Unit> + <Filename Value="TestClient.pas"/> + <IsPartOfProject Value="True"/> + </Unit> + </Units> + </ProjectOptions> + <CompilerOptions> + <Version Value="11"/> + <Target> + <Filename Value="fpc_openssl_client"/> + </Target> + <SearchPaths> + <IncludeFiles Value="$(ProjOutDir)"/> + <OtherUnitFiles Value=".."/> + <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + <Linking> + <Debugging> + <DebugInfoType Value="dsDwarf3"/> + </Debugging> + <Options> + <PassLinkerOptions Value="True"/> + </Options> + </Linking> + </CompilerOptions> + <Debugging> + <Exceptions> + <Item> + <Name Value="EAbort"/> + </Item> + <Item> + <Name Value="ECodetoolError"/> + </Item> + <Item> + <Name Value="EFOpenError"/> + </Item> + </Exceptions> + </Debugging> +</CONFIG> diff --git a/Test/openssl-client/fpc_openssl_client.lpr b/Test/openssl-client/fpc_openssl_client.lpr new file mode 100644 index 0000000..1901c69 --- /dev/null +++ b/Test/openssl-client/fpc_openssl_client.lpr @@ -0,0 +1,20 @@ +program fpc_openssl_client; + +{$mode objfpc}{$H+} + +uses + {$IFDEF UNIX} + cthreads, + {$ENDIF} + Classes, SysUtils, TestClient; + + +var + Application: TBasicHttpsClient; +begin + Application:=TBasicHttpsClient.Create(nil); + Application.Title:='Basic Https Client Test'; + Application.Run; + Application.Free; +end. + diff --git a/Test/openssl-server/cacerts/ca.pem b/Test/openssl-server/cacerts/ca.pem new file mode 100644 index 0000000..da08ffe --- /dev/null +++ b/Test/openssl-server/cacerts/ca.pem @@ -0,0 +1,37 @@ +-----BEGIN CERTIFICATE----- +MIIGcDCCBFigAwIBAgIUKNccOeK8WkCEVdwG4QxE/hIwN2AwDQYJKoZIhvcNAQEL +BQAwgbwxCzAJBgNVBAYTAkdCMQ8wDQYDVQQIEwZMb25kb24xFDASBgNVBAcTC1dl +c3RtaW5zdGVyMR4wHAYDVQQKExVTbmFrZSBPaWwgKFNhbGVzKSBMdGQxKDAmBgNV +BAsTH0NlcnRpZmljYXRpb24gU2VydmljZXMgRGl2aXNpb24xGjAYBgNVBAMTEVNu +YWtlIE9pbCBSb290IENBMSAwHgYJKoZIhvcNAQkBFhFjb2JyYUBiYWRndXlzLmNv +bTAeFw0yNDAyMjgxNDM0MDdaFw0zNDAyMjUxNDM0MDdaMIG8MQswCQYDVQQGEwJH +QjEPMA0GA1UECBMGTG9uZG9uMRQwEgYDVQQHEwtXZXN0bWluc3RlcjEeMBwGA1UE +ChMVU25ha2UgT2lsIChTYWxlcykgTHRkMSgwJgYDVQQLEx9DZXJ0aWZpY2F0aW9u +IFNlcnZpY2VzIERpdmlzaW9uMRowGAYDVQQDExFTbmFrZSBPaWwgUm9vdCBDQTEg +MB4GCSqGSIb3DQEJARYRY29icmFAYmFkZ3V5cy5jb20wggIiMA0GCSqGSIb3DQEB +AQUAA4ICDwAwggIKAoICAQCOGxCzsu7yo5hUEq+W6ADeVhZh6gpVQgGLP+fULBr6 +4tgckz7f3VbMZwCI+AC2W2u1VU2QxX51utFRyuEbFSWk761jWjxxFkV8orK1L0ir +E6VKyYQ8uvWcu+8pfC0sj/GAPo8ziC/Rb/zRc0EP8evtF9A7G5FQo6wsF4zSks3e +CvNTJlyWbwP8H2CwdWD9dpnArIaqUmziKV41DzR8VAofsm8ICBzTC1vxILXPBt8p +MMCXYc+pAHgAoNy7SaIX7zHw5yXhVGAhHZc4Ltc2xBZHa/R6NygFcHKuhWjK0SlL +EtKXIGdnTfm5cMfapkovm01bThoxED7cVJXDKPsV9JVwx/UBmS6wzCAvuAb3UGJ1 +z41lVglZ/hixyJPj6c8cxZ8a7kyxmIcWMEyYf5YUhbQkHILtsWbhQKYiMvoqF2PC +bDAG2ffN5s1GCybE3cxKBqJw0dYfKYL17j8TfYYthOY5IwzvXtcXeG8JtzfeHxx5 +K/4zkeO/s9Vx39jxFbNXj/ju18x1+7amwVJh/Po1KJY8YbgzO64zBsm2UJpv3gBi +ppPdPU7glCOyNRP5VPYuUWq+44VVKAiOjBJ3BR0bEvaYoNxGRXLWu1/tcaIYuVkM +ktsxu48qPZX0pEmqfc648ZWLfmdItaWbTf8Lljt8AuDOboypKGG3WSnTTHToQKpj +3wIDAQABo2gwZjA0BgNVHSUELTArBggrBgEFBQcDAQYIKwYBBQUHAwIGCisGAQQB +gjcKAwMGCWCGSAGG+EIEATAPBgNVHRMBAf8EBTADAQH/MB0GA1UdDgQWBBRJr4d6 +uwGnQuYXdkp/fCDd/PRhuDANBgkqhkiG9w0BAQsFAAOCAgEAN54oqgojeAltyAE4 +WybsuIkzoIUlmPebsPyWrBAcbFsRBhW73dcdLg4hBhHAupr4hzXESQlbQVDQGoOw +0lEr79po9NTcSXaNpa1MhxQr7KsX6HYHg3qE/ySD/UCCapeLuTB2CT6Mr8LNEfDz +xW94nkWEQoqTQ8+2SWHqdUzfH0YwUWpyYvlDL/tvopa6HCjBy6NKAq3o5p3erbMn +kY/Gx38AbV3AAF7FDH/ZnaVwXl3fpPDZl6lDx4UXzqX9ReElZwTkjKAG9ke+IBYu +P/TNuGU9wLa3+SW76R+0mGcdTAGNDoOENZuSC7c6Ce14hMOEDFRQAfsziibdj1IM +41rvZMmo5OPzsjHd4XQOINxC9149DEz2UGq2t9vbfNg3AnHAgMxt3bUy7JdJI006 +tBqteuNfdgMVQusx3qaltoQe0G/7AVjdnGW36ysHzkqhovYUQPvEPVWKxaDf4X2E +fBU2RpRp3jTrhhEsL+0fyDnZ51WrN0zMDFIv4fFqygHtpJBJr+lzpiQos3zAC7X0 +cq2p4VDma1e2OSitTZCckZNzVAe/gv35N+DAxtgb6CbOLOHzAKLDYmL2U349MlZU +/yPwRx/6YsjF83smw/XBdpiX6QAQkUE094dRFOgkhphib9IR6iPfWm1qOsYlykk+ +SgBH2E+G3p+p5A2FBtrQqWAdt9M= +-----END CERTIFICATE----- diff --git a/Test/openssl-server/cacerts/d072eebc.0 b/Test/openssl-server/cacerts/d072eebc.0 new file mode 100644 index 0000000..da08ffe --- /dev/null +++ b/Test/openssl-server/cacerts/d072eebc.0 @@ -0,0 +1,37 @@ +-----BEGIN CERTIFICATE----- +MIIGcDCCBFigAwIBAgIUKNccOeK8WkCEVdwG4QxE/hIwN2AwDQYJKoZIhvcNAQEL +BQAwgbwxCzAJBgNVBAYTAkdCMQ8wDQYDVQQIEwZMb25kb24xFDASBgNVBAcTC1dl +c3RtaW5zdGVyMR4wHAYDVQQKExVTbmFrZSBPaWwgKFNhbGVzKSBMdGQxKDAmBgNV +BAsTH0NlcnRpZmljYXRpb24gU2VydmljZXMgRGl2aXNpb24xGjAYBgNVBAMTEVNu +YWtlIE9pbCBSb290IENBMSAwHgYJKoZIhvcNAQkBFhFjb2JyYUBiYWRndXlzLmNv +bTAeFw0yNDAyMjgxNDM0MDdaFw0zNDAyMjUxNDM0MDdaMIG8MQswCQYDVQQGEwJH +QjEPMA0GA1UECBMGTG9uZG9uMRQwEgYDVQQHEwtXZXN0bWluc3RlcjEeMBwGA1UE +ChMVU25ha2UgT2lsIChTYWxlcykgTHRkMSgwJgYDVQQLEx9DZXJ0aWZpY2F0aW9u +IFNlcnZpY2VzIERpdmlzaW9uMRowGAYDVQQDExFTbmFrZSBPaWwgUm9vdCBDQTEg +MB4GCSqGSIb3DQEJARYRY29icmFAYmFkZ3V5cy5jb20wggIiMA0GCSqGSIb3DQEB +AQUAA4ICDwAwggIKAoICAQCOGxCzsu7yo5hUEq+W6ADeVhZh6gpVQgGLP+fULBr6 +4tgckz7f3VbMZwCI+AC2W2u1VU2QxX51utFRyuEbFSWk761jWjxxFkV8orK1L0ir +E6VKyYQ8uvWcu+8pfC0sj/GAPo8ziC/Rb/zRc0EP8evtF9A7G5FQo6wsF4zSks3e +CvNTJlyWbwP8H2CwdWD9dpnArIaqUmziKV41DzR8VAofsm8ICBzTC1vxILXPBt8p +MMCXYc+pAHgAoNy7SaIX7zHw5yXhVGAhHZc4Ltc2xBZHa/R6NygFcHKuhWjK0SlL +EtKXIGdnTfm5cMfapkovm01bThoxED7cVJXDKPsV9JVwx/UBmS6wzCAvuAb3UGJ1 +z41lVglZ/hixyJPj6c8cxZ8a7kyxmIcWMEyYf5YUhbQkHILtsWbhQKYiMvoqF2PC +bDAG2ffN5s1GCybE3cxKBqJw0dYfKYL17j8TfYYthOY5IwzvXtcXeG8JtzfeHxx5 +K/4zkeO/s9Vx39jxFbNXj/ju18x1+7amwVJh/Po1KJY8YbgzO64zBsm2UJpv3gBi +ppPdPU7glCOyNRP5VPYuUWq+44VVKAiOjBJ3BR0bEvaYoNxGRXLWu1/tcaIYuVkM +ktsxu48qPZX0pEmqfc648ZWLfmdItaWbTf8Lljt8AuDOboypKGG3WSnTTHToQKpj +3wIDAQABo2gwZjA0BgNVHSUELTArBggrBgEFBQcDAQYIKwYBBQUHAwIGCisGAQQB +gjcKAwMGCWCGSAGG+EIEATAPBgNVHRMBAf8EBTADAQH/MB0GA1UdDgQWBBRJr4d6 +uwGnQuYXdkp/fCDd/PRhuDANBgkqhkiG9w0BAQsFAAOCAgEAN54oqgojeAltyAE4 +WybsuIkzoIUlmPebsPyWrBAcbFsRBhW73dcdLg4hBhHAupr4hzXESQlbQVDQGoOw +0lEr79po9NTcSXaNpa1MhxQr7KsX6HYHg3qE/ySD/UCCapeLuTB2CT6Mr8LNEfDz +xW94nkWEQoqTQ8+2SWHqdUzfH0YwUWpyYvlDL/tvopa6HCjBy6NKAq3o5p3erbMn +kY/Gx38AbV3AAF7FDH/ZnaVwXl3fpPDZl6lDx4UXzqX9ReElZwTkjKAG9ke+IBYu +P/TNuGU9wLa3+SW76R+0mGcdTAGNDoOENZuSC7c6Ce14hMOEDFRQAfsziibdj1IM +41rvZMmo5OPzsjHd4XQOINxC9149DEz2UGq2t9vbfNg3AnHAgMxt3bUy7JdJI006 +tBqteuNfdgMVQusx3qaltoQe0G/7AVjdnGW36ysHzkqhovYUQPvEPVWKxaDf4X2E +fBU2RpRp3jTrhhEsL+0fyDnZ51WrN0zMDFIv4fFqygHtpJBJr+lzpiQos3zAC7X0 +cq2p4VDma1e2OSitTZCckZNzVAe/gv35N+DAxtgb6CbOLOHzAKLDYmL2U349MlZU +/yPwRx/6YsjF83smw/XBdpiX6QAQkUE094dRFOgkhphib9IR6iPfWm1qOsYlykk+ +SgBH2E+G3p+p5A2FBtrQqWAdt9M= +-----END CERTIFICATE----- diff --git a/Test/openssl-server/cacerts/test b/Test/openssl-server/cacerts/test new file mode 100644 index 0000000..da08ffe --- /dev/null +++ b/Test/openssl-server/cacerts/test @@ -0,0 +1,37 @@ +-----BEGIN CERTIFICATE----- +MIIGcDCCBFigAwIBAgIUKNccOeK8WkCEVdwG4QxE/hIwN2AwDQYJKoZIhvcNAQEL +BQAwgbwxCzAJBgNVBAYTAkdCMQ8wDQYDVQQIEwZMb25kb24xFDASBgNVBAcTC1dl +c3RtaW5zdGVyMR4wHAYDVQQKExVTbmFrZSBPaWwgKFNhbGVzKSBMdGQxKDAmBgNV +BAsTH0NlcnRpZmljYXRpb24gU2VydmljZXMgRGl2aXNpb24xGjAYBgNVBAMTEVNu +YWtlIE9pbCBSb290IENBMSAwHgYJKoZIhvcNAQkBFhFjb2JyYUBiYWRndXlzLmNv +bTAeFw0yNDAyMjgxNDM0MDdaFw0zNDAyMjUxNDM0MDdaMIG8MQswCQYDVQQGEwJH +QjEPMA0GA1UECBMGTG9uZG9uMRQwEgYDVQQHEwtXZXN0bWluc3RlcjEeMBwGA1UE +ChMVU25ha2UgT2lsIChTYWxlcykgTHRkMSgwJgYDVQQLEx9DZXJ0aWZpY2F0aW9u +IFNlcnZpY2VzIERpdmlzaW9uMRowGAYDVQQDExFTbmFrZSBPaWwgUm9vdCBDQTEg +MB4GCSqGSIb3DQEJARYRY29icmFAYmFkZ3V5cy5jb20wggIiMA0GCSqGSIb3DQEB +AQUAA4ICDwAwggIKAoICAQCOGxCzsu7yo5hUEq+W6ADeVhZh6gpVQgGLP+fULBr6 +4tgckz7f3VbMZwCI+AC2W2u1VU2QxX51utFRyuEbFSWk761jWjxxFkV8orK1L0ir +E6VKyYQ8uvWcu+8pfC0sj/GAPo8ziC/Rb/zRc0EP8evtF9A7G5FQo6wsF4zSks3e +CvNTJlyWbwP8H2CwdWD9dpnArIaqUmziKV41DzR8VAofsm8ICBzTC1vxILXPBt8p +MMCXYc+pAHgAoNy7SaIX7zHw5yXhVGAhHZc4Ltc2xBZHa/R6NygFcHKuhWjK0SlL +EtKXIGdnTfm5cMfapkovm01bThoxED7cVJXDKPsV9JVwx/UBmS6wzCAvuAb3UGJ1 +z41lVglZ/hixyJPj6c8cxZ8a7kyxmIcWMEyYf5YUhbQkHILtsWbhQKYiMvoqF2PC +bDAG2ffN5s1GCybE3cxKBqJw0dYfKYL17j8TfYYthOY5IwzvXtcXeG8JtzfeHxx5 +K/4zkeO/s9Vx39jxFbNXj/ju18x1+7amwVJh/Po1KJY8YbgzO64zBsm2UJpv3gBi +ppPdPU7glCOyNRP5VPYuUWq+44VVKAiOjBJ3BR0bEvaYoNxGRXLWu1/tcaIYuVkM +ktsxu48qPZX0pEmqfc648ZWLfmdItaWbTf8Lljt8AuDOboypKGG3WSnTTHToQKpj +3wIDAQABo2gwZjA0BgNVHSUELTArBggrBgEFBQcDAQYIKwYBBQUHAwIGCisGAQQB +gjcKAwMGCWCGSAGG+EIEATAPBgNVHRMBAf8EBTADAQH/MB0GA1UdDgQWBBRJr4d6 +uwGnQuYXdkp/fCDd/PRhuDANBgkqhkiG9w0BAQsFAAOCAgEAN54oqgojeAltyAE4 +WybsuIkzoIUlmPebsPyWrBAcbFsRBhW73dcdLg4hBhHAupr4hzXESQlbQVDQGoOw +0lEr79po9NTcSXaNpa1MhxQr7KsX6HYHg3qE/ySD/UCCapeLuTB2CT6Mr8LNEfDz +xW94nkWEQoqTQ8+2SWHqdUzfH0YwUWpyYvlDL/tvopa6HCjBy6NKAq3o5p3erbMn +kY/Gx38AbV3AAF7FDH/ZnaVwXl3fpPDZl6lDx4UXzqX9ReElZwTkjKAG9ke+IBYu +P/TNuGU9wLa3+SW76R+0mGcdTAGNDoOENZuSC7c6Ce14hMOEDFRQAfsziibdj1IM +41rvZMmo5OPzsjHd4XQOINxC9149DEz2UGq2t9vbfNg3AnHAgMxt3bUy7JdJI006 +tBqteuNfdgMVQusx3qaltoQe0G/7AVjdnGW36ysHzkqhovYUQPvEPVWKxaDf4X2E +fBU2RpRp3jTrhhEsL+0fyDnZ51WrN0zMDFIv4fFqygHtpJBJr+lzpiQos3zAC7X0 +cq2p4VDma1e2OSitTZCckZNzVAe/gv35N+DAxtgb6CbOLOHzAKLDYmL2U349MlZU +/yPwRx/6YsjF83smw/XBdpiX6QAQkUE094dRFOgkhphib9IR6iPfWm1qOsYlykk+ +SgBH2E+G3p+p5A2FBtrQqWAdt9M= +-----END CERTIFICATE----- diff --git a/Test/openssl-server/certs/myclient.p12 b/Test/openssl-server/certs/myclient.p12 new file mode 100644 index 0000000..863f994 Binary files /dev/null and b/Test/openssl-server/certs/myclient.p12 differ diff --git a/Test/openssl-server/certs/myserver.pem b/Test/openssl-server/certs/myserver.pem new file mode 100644 index 0000000..d03230b --- /dev/null +++ b/Test/openssl-server/certs/myserver.pem @@ -0,0 +1,104 @@ +Certificate: + Data: + Version: 3 (0x2) + Serial Number: 1 (0x1) + Signature Algorithm: sha256WithRSAEncryption + Issuer: C=GB, ST=London, L=Westminster, O=Snake Oil (Sales) Ltd, OU=Certification Services Division, CN=Snake Oil Root CA/emailAddress=cobra@badguys.com + Validity + Not Before: Feb 28 14:34:07 2024 GMT + Not After : Nov 24 14:34:07 2026 GMT + Subject: C=GB, ST=London, L=Westminster, O=Snake Oil (Trading) Ltd, OU=Secure Web Server, CN=localhost/emailAddress=python@badguys.com + Subject Public Key Info: + Public Key Algorithm: rsaEncryption + Public-Key: (2048 bit) + Modulus: + 00:de:c2:7d:b2:d8:d1:fc:3a:d3:fc:9f:9c:20:dd: + 5c:48:f3:eb:db:57:b8:0c:56:00:42:37:2f:ce:9a: + 20:d5:31:19:48:c3:f5:b9:db:86:f6:21:c2:17:c2: + 5a:36:71:9e:f2:32:c7:85:d1:36:a5:3f:c1:76:14: + f0:bf:1d:52:8b:04:88:8d:ea:db:c6:dd:1e:43:71: + db:68:30:7f:9f:41:c3:1c:62:d9:ae:ad:a8:59:3f: + 25:c9:68:4a:72:97:9e:aa:0a:df:24:5d:72:23:1b: + 5d:4f:5a:74:cc:55:5e:df:91:d4:29:28:9f:65:96: + 2b:47:75:46:cb:0f:75:a3:ae:1e:f0:dc:d4:42:ec: + 73:bc:1b:89:67:f2:2e:34:fa:39:8e:79:94:d0:47: + f6:36:dc:9f:af:a8:d5:69:df:4b:8c:20:ca:4c:0e: + 39:4b:4c:cc:3f:c3:99:af:b2:f3:40:5c:92:f3:fb: + 93:b9:ea:61:5d:b7:c9:77:85:a0:4e:1c:c5:fc:49: + cd:a9:da:ec:2c:2f:64:ee:8e:3d:d1:2d:26:dc:06: + 77:5c:a5:d0:b5:a2:70:5b:0a:bc:f3:53:78:19:50: + c7:59:17:8f:85:93:ab:96:0c:98:72:af:90:16:42: + 72:78:bb:0a:15:8e:6f:2c:f4:1d:4b:e5:e4:5c:67: + 2e:15 + Exponent: 65537 (0x10001) + X509v3 extensions: + X509v3 Authority Key Identifier: + 49:AF:87:7A:BB:01:A7:42:E6:17:76:4A:7F:7C:20:DD:FC:F4:61:B8 + X509v3 Extended Key Usage: + TLS Web Server Authentication, TLS Web Client Authentication, Microsoft Server Gated Crypto, Netscape Server Gated Crypto + X509v3 Basic Constraints: critical + CA:FALSE + X509v3 Subject Key Identifier: + E2:BD:0D:C4:17:71:71:B9:A5:C8:D1:18:C0:61:16:1A:4D:70:80:34 + Signature Algorithm: sha256WithRSAEncryption + Signature Value: + 2e:ee:0d:22:80:ea:9c:2e:c7:34:ef:e9:6f:c4:b8:b7:5b:d2: + 0c:e1:ae:1b:d2:e9:18:bd:e5:85:be:37:bc:bf:f7:e7:6e:9a: + ed:fc:d4:7a:8d:18:1c:e5:a7:ce:4c:db:01:ac:ad:67:a0:1b: + d7:bd:03:be:4c:41:66:5e:8d:ad:83:c5:3d:90:b9:f9:1c:65: + 25:59:5a:12:03:65:16:5a:a7:01:6f:ec:d7:a3:98:57:a8:d5: + c4:ad:20:dc:ef:03:87:9e:ff:61:ba:1b:56:42:1c:91:5a:b5: + 18:59:a4:82:a2:42:c1:60:f7:70:d8:12:b6:05:49:1f:9e:2b: + f5:61:00:b7:7a:34:08:08:2d:24:be:76:6a:1a:cc:53:92:54: + 66:8a:7b:5e:8f:c4:94:22:72:c9:4c:e4:4c:ec:12:ea:9b:47: + 4a:4a:8f:2e:c3:32:6c:f2:69:a9:2c:42:67:d4:93:be:40:20: + 53:9d:c9:76:ad:3f:57:e7:13:e1:57:7b:1a:44:e5:40:d0:7b: + e7:c6:dd:f8:1e:0b:0e:9f:56:f6:d6:26:9b:fe:14:78:df:d0: + 6a:84:50:05:d8:2f:c8:df:6a:05:d3:a0:af:72:2c:6b:1c:0a: + 47:83:17:62:da:91:87:9c:43:3a:a7:3d:2a:b2:b1:79:ab:85: + 2f:49:f9:3a:a1:66:ca:b9:00:c4:f9:6c:e5:9b:c0:89:7f:2e: + a4:ed:ff:6a:ce:6d:99:6a:22:85:3d:09:2b:3b:21:fd:e6:08: + cf:60:ca:8b:06:91:59:14:0a:06:36:3b:a8:e8:21:75:12:11: + 80:5a:3a:f2:50:79:06:14:d2:f0:af:fa:69:8b:38:c2:45:9a: + b7:e5:d8:fc:bf:db:a3:c1:a9:62:3e:ab:04:45:09:60:fa:a3: + e8:e7:91:4a:69:2c:fc:ea:a5:68:b1:b2:31:c5:d5:c1:e8:70: + 6b:9d:43:ad:f5:d5:8f:b0:ba:00:34:85:8d:d9:fe:29:a9:4b: + fc:1c:90:63:69:10:59:f8:13:47:9b:af:b0:a2:67:fd:63:90: + 0f:74:f8:84:63:f0:5a:71:ec:f9:fe:69:9a:25:d0:95:20:b9: + d7:17:df:71:75:69:db:b4:87:46:86:33:32:d9:eb:3f:44:30: + ed:66:0d:af:1b:e7:65:d1:1d:2e:f3:32:b1:0a:a7:20:c0:37: + 16:f1:5f:cc:ba:74:8f:86:c7:68:d3:c9:3f:be:cc:9b:50:16: + 9d:9f:3d:19:24:5f:a1:93:9e:2b:17:ab:aa:a1:ae:bc:44:dd: + 6b:e9:71:64:c2:8f:3c:39:fa:28:fb:56:89:96:6c:45:b0:79: + 22:a5:38:9d:44:a2:db:35 +-----BEGIN CERTIFICATE----- +MIIFajCCA1KgAwIBAgIBATANBgkqhkiG9w0BAQsFADCBvDELMAkGA1UEBhMCR0Ix +DzANBgNVBAgTBkxvbmRvbjEUMBIGA1UEBxMLV2VzdG1pbnN0ZXIxHjAcBgNVBAoT +FVNuYWtlIE9pbCAoU2FsZXMpIEx0ZDEoMCYGA1UECxMfQ2VydGlmaWNhdGlvbiBT +ZXJ2aWNlcyBEaXZpc2lvbjEaMBgGA1UEAxMRU25ha2UgT2lsIFJvb3QgQ0ExIDAe +BgkqhkiG9w0BCQEWEWNvYnJhQGJhZGd1eXMuY29tMB4XDTI0MDIyODE0MzQwN1oX +DTI2MTEyNDE0MzQwN1owgakxCzAJBgNVBAYTAkdCMQ8wDQYDVQQIEwZMb25kb24x +FDASBgNVBAcTC1dlc3RtaW5zdGVyMSAwHgYDVQQKExdTbmFrZSBPaWwgKFRyYWRp +bmcpIEx0ZDEaMBgGA1UECxMRU2VjdXJlIFdlYiBTZXJ2ZXIxEjAQBgNVBAMTCWxv +Y2FsaG9zdDEhMB8GCSqGSIb3DQEJARYScHl0aG9uQGJhZGd1eXMuY29tMIIBIjAN +BgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEA3sJ9stjR/DrT/J+cIN1cSPPr21e4 +DFYAQjcvzpog1TEZSMP1uduG9iHCF8JaNnGe8jLHhdE2pT/BdhTwvx1SiwSIjerb +xt0eQ3HbaDB/n0HDHGLZrq2oWT8lyWhKcpeeqgrfJF1yIxtdT1p0zFVe35HUKSif +ZZYrR3VGyw91o64e8NzUQuxzvBuJZ/IuNPo5jnmU0Ef2Ntyfr6jVad9LjCDKTA45 +S0zMP8OZr7LzQFyS8/uTuephXbfJd4WgThzF/EnNqdrsLC9k7o490S0m3AZ3XKXQ +taJwWwq881N4GVDHWRePhZOrlgyYcq+QFkJyeLsKFY5vLPQdS+XkXGcuFQIDAQAB +o4GHMIGEMB8GA1UdIwQYMBaAFEmvh3q7AadC5hd2Sn98IN389GG4MDQGA1UdJQQt +MCsGCCsGAQUFBwMBBggrBgEFBQcDAgYKKwYBBAGCNwoDAwYJYIZIAYb4QgQBMAwG +A1UdEwEB/wQCMAAwHQYDVR0OBBYEFOK9DcQXcXG5pcjRGMBhFhpNcIA0MA0GCSqG +SIb3DQEBCwUAA4ICAQAu7g0igOqcLsc07+lvxLi3W9IM4a4b0ukYveWFvje8v/fn +bprt/NR6jRgc5afOTNsBrK1noBvXvQO+TEFmXo2tg8U9kLn5HGUlWVoSA2UWWqcB +b+zXo5hXqNXErSDc7wOHnv9huhtWQhyRWrUYWaSCokLBYPdw2BK2BUkfniv1YQC3 +ejQICC0kvnZqGsxTklRmintej8SUInLJTORM7BLqm0dKSo8uwzJs8mmpLEJn1JO+ +QCBTncl2rT9X5xPhV3saROVA0Hvnxt34HgsOn1b21iab/hR439BqhFAF2C/I32oF +06CvcixrHApHgxdi2pGHnEM6pz0qsrF5q4UvSfk6oWbKuQDE+Wzlm8CJfy6k7f9q +zm2ZaiKFPQkrOyH95gjPYMqLBpFZFAoGNjuo6CF1EhGAWjryUHkGFNLwr/ppizjC +RZq35dj8v9ujwaliPqsERQlg+qPo55FKaSz86qVosbIxxdXB6HBrnUOt9dWPsLoA +NIWN2f4pqUv8HJBjaRBZ+BNHm6+womf9Y5APdPiEY/Bacez5/mmaJdCVILnXF99x +dWnbtIdGhjMy2es/RDDtZg2vG+dl0R0u8zKxCqcgwDcW8V/MunSPhsdo08k/vsyb +UBadnz0ZJF+hk54rF6uqoa68RN1r6XFkwo88Ofoo+1aJlmxFsHkipTidRKLbNQ== +-----END CERTIFICATE----- diff --git a/Test/openssl-server/certs/myserverkey.pem b/Test/openssl-server/certs/myserverkey.pem new file mode 100644 index 0000000..6431992 --- /dev/null +++ b/Test/openssl-server/certs/myserverkey.pem @@ -0,0 +1,30 @@ +-----BEGIN ENCRYPTED PRIVATE KEY----- +MIIFLTBXBgkqhkiG9w0BBQ0wSjApBgkqhkiG9w0BBQwwHAQIcizRqaELR4oCAggA +MAwGCCqGSIb3DQIJBQAwHQYJYIZIAWUDBAEqBBArsPJa5LmtGpjuc1kyAnyYBIIE +0Lt8ydeZeWBH3HMySNzdrv3dH+BPwFRKpmY5WixQszIvry3lUT6Ny45EgL2HE7Uz +deaVCP389B1VN1KtR721thRbSXeLTW5qrwPnoPMMdJgbmZoXOniOWb7yniInjIli +DXi8T6Kwica+qb4Yaq7FFgrWDsUhqBeBOMT+mkAwDzB9695B5buTu2usjhasE+v0 +bzVJkxtOI5ukYFJHMxPL1tgg9j3P1o1O+sGzdXcRMHt8NlzoMjp6CaJRojB1E0Sb +M/zVMXdm1TbhEblUHsHM/qEpxug9c0yS17SwR987GrzNKENHqwxuIIZL7swPTg3Y +a0CfDK1fwZvBfFs7kxv44J3dKQYk2je+44wekPDOncX23jd13vV5ZXmAQSj2qg5R +vI248sj5EK9jHXweMPlgTrmNuYt5nh8RifyX/dHQEIIhd1JrLxtLdINMe7a77O2J +JXXdKaXTJd9tqsgVl00I/hkmTQjP49AXhDVWKMMfaPt2PvPuowOaypAaYJmkR/SU +R0Pz0VIW0YlwuMKp9lA9pmqUPt3QSTRAG7NSihuHqcNY2cz+hLdBVCUYZGUa9AoJ +nMknaoY0G91ehb6SubMO6ddeh3CXQce0QEbwd2PLSEieZtHwECD98Bh5qGiPUvLx +yeiU7CZPWUcKIqSS17UjUUSjL4oFOZsWvmDNfDkt2CIbBkzVIDNUhnM8vJ6sXtnt +4GIrQIo7ad9X0pQhbStiTKjje7m5fsyCOxStAyUuuifAYRw8UlQypPlY8f5d7MJ7 +F0+RCrInoost9KKW/FMaAijW1yvjdV/IJkdQvrG2/LpeJrWYgK8ZOsTlaRENe7Ws +zlvtGiBN302UrZ9+gC4stPjZuz/jn0NRDgti523CTnVP+J9miai9JDAn+bvlCCM4 +uNi3kRnMy0yuEOqBLDfNLWb36vCpgU2olZtpoLdr0i/gNQs2N8xXFylYikclyV04 +fgDFS2oAyts9UTWUdHv90IF5AQ3SdIW8gfjH0I6VA5JpZDR4XbqMrcy9HUxF+Amk +pmUFYWZYMkmJ4c2+wpZJsyViQItwMXmIEkedFt+36EyJDtZiCJozRV8EUM24L2X/ +My/kYeplV4mPSU8L1VSigLz7iwTQXKpsqbhC1PHN3kQ3xW2voJqV2gZ044SywLp8 +PsNCrq3QcizVELqMYoB4AuSYRZzRqtJrZuYPq+O0eAIFBZ5Ll08ptWyYOoJjZcco +g4jgY0m/flUdB+LVAg3y0xgbqsZMutaJzZtksCpcE4U0GD4vWnG7CrfWngFfC24o +XfnbBvCU0LjlBEe5nETKlWJ5sR1RVlwvDGzKFevJROb4jjsWOCMlwXmLVNcKBYJJ +338fLrm9PzHYueQ2MhAgPNGv5cWD0lVc7S03KlVlp/ALPEa3Bu3efb6hfmDzqX6v +zhohaiKktkvC1S+7PyPHx8rDJ7YcIqwLhbnCZm+sZRaf3/vS9G3PyH8RpqNIKBVw +G07B+Jk6BN09ypamTq1Uwx+U71szdrhaXLEhKW1ogs8BUYiXge9i4tt5Bs6+/lPs +PGyMODHvO3VAIdzvLwWAGA+jRKlLOgbkCqpkN/jluFBro65slUNKYy4Gz3e1mvG5 +1pmHIQCiWCGm8veFM1hiiev1D24K4UFv2yJ2QEnJadXw +-----END ENCRYPTED PRIVATE KEY----- diff --git a/Test/openssl-server/createpki.sh b/Test/openssl-server/createpki.sh new file mode 100644 index 0000000..5a0359c --- /dev/null +++ b/Test/openssl-server/createpki.sh @@ -0,0 +1,245 @@ +#!/bin/sh +#Create PKI for openssl server test +# +CADIR=ca +SERVER=myserver +CLIENT=myclient +PASSWORD=mypassword + +cd certs + +mkdir -p $CADIR + +cd $CADIR +if [ ! -f ca.key ]; then + openssl genrsa -aes256 -passout pass:$PASSWORD -out cakey.pem 4096 +fi + +# Self-sign root certificate +CONFIG="root-ca.conf" +cat >$CONFIG <<EOT +[ req ] +prompt = no +default_bits = 2048 +default_keyfile = cakey.pem +distinguished_name = req_distinguished_name +x509_extensions = v3_ca +string_mask = nombstr +req_extensions = v3_req +[ req_distinguished_name ] +countryName = GB +stateOrProvinceName = London +localityName = Westminster +0.organizationName = Snake Oil (Sales) Ltd +organizationalUnitName = Certification Services Division +commonName = Snake Oil Root CA +emailAddress = cobra@badguys.com +[ v3_ca ] +extendedKeyUsage = serverAuth,clientAuth,msSGC,nsSGC +basicConstraints = critical,CA:true +subjectKeyIdentifier = hash +[ v3_req ] +nsCertType = objsign,email,server +EOT + +echo "Self-sign the root CA..." +openssl req -new -x509 -days 3650 -config $CONFIG -key cakey.pem -out ca.pem -passin pass:$PASSWORD + +rm -f $CONFIG + +# make sure environment exists +if [ ! -d ca.db.certs ]; then + mkdir ca.db.certs +fi +if [ ! -f ca.db.serial ]; then + echo '01' >ca.db.serial +fi +if [ ! -f ca.db.index ]; then + cp /dev/null ca.db.index +fi + +cd .. + +if [ ! -f $SERVER.key.pem ]; then + openssl genrsa -aes256 -passout pass:$PASSWORD -out ${SERVER}key.pem 2048 +fi + +CONFIG="server-cert.conf" +cat >$CONFIG <<EOT +[ req ] +prompt = no +default_bits = 2048 +default_keyfile = ${SERVER}key.pem +distinguished_name = req_distinguished_name +string_mask = nombstr +req_extensions = v3_req +[ req_distinguished_name ] +countryName = GB +stateOrProvinceName = London +localityName = Westminster +0.organizationName = Snake Oil (Trading) Ltd +organizationalUnitName = Secure Web Server +commonName = localhost +emailAddress = python@badguys.com +[ v3_req ] +nsCertType = server +basicConstraints = critical,CA:false +EOT + +echo "Creating the Server csr" +openssl req -new -config $CONFIG -key ${SERVER}key.pem -out $SERVER.csr -passin pass:$PASSWORD + +rm -f $CONFIG + +#Now sign the server cert request +cat >ca.config <<EOT +[ ca ] +prompt = no +default_ca = default_CA +[ default_CA ] +dir = $CADIR +certs = \$dir +new_certs_dir = \$dir/ca.db.certs +database = \$dir/ca.db.index +serial = \$dir/ca.db.serial +RANDFILE = \$dir/random-bits +certificate = \$dir/ca.pem +private_key = \$dir/cakey.pem +default_days = 1000 +default_crl_days = 30 +default_md = sha256 +preserve = no +x509_extensions = server_cert +policy = policy_anything +unique_subject = no +[ policy_anything ] +countryName = optional +stateOrProvinceName = optional +localityName = optional +organizationName = optional +organizationalUnitName = optional +commonName = supplied +emailAddress = optional +[ server_cert ] +#subjectKeyIdentifier = hash +authorityKeyIdentifier = keyid:always +extendedKeyUsage = serverAuth,clientAuth,msSGC,nsSGC +basicConstraints = critical,CA:false +EOT + +# sign the certificate +echo "Signing the server certificate" +openssl ca -config ca.config -passin pass:$PASSWORD -batch -out $SERVER.pem -infiles $SERVER.csr +if ! openssl verify -CAfile $CADIR/ca.pem $SERVER.pem; then + echo "Verification of server certificate failed!" + exit 1 +fi + +# cleanup +rm -f ca.config +rm -f $CADIR/ca.db.serial.old +rm -f $CADIR/ca.db.index.old +rm $SERVER.csr + +if [ ! -f $CLIENT.key ]; then + openssl genrsa -aes256 -passout pass:$PASSWORD -out ${CLIENT}key.pem 2048 +fi + +# Fill the necessary certificate data +CONFIG="user-cert.conf" +cat >$CONFIG <<EOT +[ req ] +prompt = no +default_bits = 2048 +default_keyfile = ${CLIENT}key.pem +distinguished_name = req_distinguished_name +string_mask = nombstr +req_extensions = v3_req +[ req_distinguished_name ] +commonName = John Smith +emailAddress = adder@badguys.com +[ v3_req ] +nsCertType = client,email +basicConstraints = critical,CA:false +EOT + +echo "Creating the Client csr" +openssl req -new -config $CONFIG -key ${CLIENT}key.pem -out $CLIENT.csr -passin pass:$PASSWORD + +rm -f $CONFIG + +cat >ca.config <<EOT +[ ca ] +default_ca = default_CA +[ default_CA ] +dir = $CADIR +certs = \$dir +new_certs_dir = \$dir/ca.db.certs +database = \$dir/ca.db.index +serial = \$dir/ca.db.serial +RANDFILE = \$dir/random-bits +certificate = \$dir/ca.pem +private_key = \$dir/cakey.pem +default_days = 1095 +default_crl_days = 30 +default_md = sha256 +preserve = yes +x509_extensions = user_cert +policy = policy_anything +[ policy_anything ] +commonName = supplied +emailAddress = supplied +[ user_cert ] +#SXNetID = 3:yeak +subjectAltName = email:copy +basicConstraints = critical,CA:false +authorityKeyIdentifier = keyid:always +extendedKeyUsage = clientAuth,emailProtection +EOT + +# sign the certificate +echo "Signing the client certificate" +openssl ca -config ca.config -passin pass:$PASSWORD -batch -out $CLIENT.pem -infiles $CLIENT.csr +if ! openssl verify -CAfile $CADIR/ca.pem $CLIENT.pem; then + echo "Verfiication of Client Certificate Failed!" + exit 1 +fi + +# cleanup +rm -f ca.config +rm -f $CAPATH/ca.db.serial.old +rm -f $CAPATH/ca.db.index.old +rm $CLIENT.csr + +username="`openssl x509 -noout -in $CLIENT.pem -subject | sed -e 's;.*CN=;;' -e 's;/Em.*;;'`" +caname="`openssl x509 -noout -in $CADIR/ca.pem -subject | sed -e 's;.*CN=;;' -e 's;/Em.*;;'`" + +echo "Creating the client p12 package" +# Package it. +openssl pkcs12 \ + -export \ + -in "${CLIENT}.pem" \ + -inkey "${CLIENT}key.pem" \ + -certfile $CADIR/ca.pem \ + -name "$username" \ + -caname "$caname" \ + -passin pass:$PASSWORD \ + -passout pass:$PASSWORD \ + -out $CLIENT.p12 + +openssl rehash ../cacerts +#convert softlinks to files (because of windows...) +for FN in `ls -1`; do + if [ -h "$FN" ]; then + SRC=`readlink "$FN"` + rm "$FN" + cp "$SRC" "$FN" + fi +done + +#cleanup +rm ${CLIENT}key.pem $CLIENT.pem +mv $CADIR/ca.pem ../cacerts +rm -r $CADIR + + diff --git a/Test/openssl-server/delphi_openssl_server.dpr b/Test/openssl-server/delphi_openssl_server.dpr new file mode 100644 index 0000000..bc260b5 --- /dev/null +++ b/Test/openssl-server/delphi_openssl_server.dpr @@ -0,0 +1,18 @@ +program delphi_openssl_server; + +{$APPTYPE CONSOLE} + +{$R *.res} + +uses + System.SysUtils, + testserver in 'testserver.pas'; + +var + Application: TOpenSSLServerTest; +begin + Application:=TOpenSSLServerTest.Create(nil); + Application.Title:='Open SSL Server Test'; + Application.Run; + Application.Free; +end. diff --git a/Test/openssl-server/delphi_openssl_server.dproj b/Test/openssl-server/delphi_openssl_server.dproj new file mode 100644 index 0000000..f13f59e --- /dev/null +++ b/Test/openssl-server/delphi_openssl_server.dproj @@ -0,0 +1,1205 @@ +<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <PropertyGroup> + <ProjectGuid>{011DD474-4472-4901-92FB-370058255253}</ProjectGuid> + <ProjectVersion>20.1</ProjectVersion> + <FrameworkType>None</FrameworkType> + <MainSource>delphi_openssl_server.dpr</MainSource> + <Base>True</Base> + <Config Condition="'$(Config)'==''">Release</Config> + <Platform Condition="'$(Platform)'==''">Win64</Platform> + <TargetedPlatforms>3</TargetedPlatforms> + <AppType>Console</AppType> + <ProjectName Condition="'$(ProjectName)'==''">delphi_openssl_server</ProjectName> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''"> + <Base_Android>true</Base_Android> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''"> + <Base_Android64>true</Base_Android64> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> + <Base_Win32>true</Base_Win32> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''"> + <Base_Win64>true</Base_Win64> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''"> + <Cfg_1>true</Cfg_1> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''"> + <Cfg_1_Win32>true</Cfg_1_Win32> + <CfgParent>Cfg_1</CfgParent> + <Cfg_1>true</Cfg_1> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''"> + <Cfg_1_Win64>true</Cfg_1_Win64> + <CfgParent>Cfg_1</CfgParent> + <Cfg_1>true</Cfg_1> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''"> + <Cfg_2>true</Cfg_2> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''"> + <Cfg_2_Win32>true</Cfg_2_Win32> + <CfgParent>Cfg_2</CfgParent> + <Cfg_2>true</Cfg_2> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''"> + <Cfg_2_Win64>true</Cfg_2_Win64> + <CfgParent>Cfg_2</CfgParent> + <Cfg_2>true</Cfg_2> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Base)'!=''"> + <SanitizedProjectName>delphi_openssl_server</SanitizedProjectName> + <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace> + <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput> + <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput> + <DCC_E>false</DCC_E> + <DCC_N>false</DCC_N> + <DCC_S>false</DCC_S> + <DCC_F>false</DCC_F> + <DCC_K>false</DCC_K> + <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon> + </PropertyGroup> + <PropertyGroup Condition="'$(Base_Android)'!=''"> + <VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=</VerInfo_Keys> + <BT_BuildType>Debug</BT_BuildType> + <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> + <EnabledSysJars>activity-1.7.2.dex.jar;annotation-experimental-1.3.0.dex.jar;annotation-jvm-1.6.0.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-6.0.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-1.1.0.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.10.1.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.10.1.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.1.dex.jar;lifecycle-livedata-2.6.1.dex.jar;lifecycle-livedata-core-2.6.1.dex.jar;lifecycle-runtime-2.6.1.dex.jar;lifecycle-service-2.6.1.dex.jar;lifecycle-viewmodel-2.6.1.dex.jar;lifecycle-viewmodel-savedstate-2.6.1.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.1.0.dex.jar;play-services-basement-18.1.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.0.2.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.0.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar</EnabledSysJars> + </PropertyGroup> + <PropertyGroup Condition="'$(Base_Android64)'!=''"> + <VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=</VerInfo_Keys> + <BT_BuildType>Debug</BT_BuildType> + <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> + <EnabledSysJars>activity-1.7.2.dex.jar;annotation-experimental-1.3.0.dex.jar;annotation-jvm-1.6.0.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-6.0.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-1.1.0.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.10.1.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.10.1.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.1.dex.jar;lifecycle-livedata-2.6.1.dex.jar;lifecycle-livedata-core-2.6.1.dex.jar;lifecycle-runtime-2.6.1.dex.jar;lifecycle-service-2.6.1.dex.jar;lifecycle-viewmodel-2.6.1.dex.jar;lifecycle-viewmodel-savedstate-2.6.1.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.1.0.dex.jar;play-services-basement-18.1.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.0.2.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.0.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar</EnabledSysJars> + </PropertyGroup> + <PropertyGroup Condition="'$(Base_Win32)'!=''"> + <DCC_UsePackage>rtl;vcl;vclactnband;vcldsnap;vclx;bindcomp;tethering;svnui;appanalytics;dsnap;bindcompvcl;vclimg;vcltouch;VclSmp;vcldb;bindcompfmx;svn;bindengine;dbrtl;fmx;fmxdae;xmlrtl;fmxobj;vclwinx;fmxase;$(DCC_UsePackage)</DCC_UsePackage> + <DCC_ConsoleTarget>true</DCC_ConsoleTarget> + <VerInfo_Locale>1033</VerInfo_Locale> + <VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys> + <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> + <Debugger_HostApplication>C:\Users\tony\SoftwareDev\IndyTLS-OpenSSL\Test\openssl-server\delphi_openssl_server.exe</Debugger_HostApplication> + <Debugger_CWD>C:\Users\tony\SoftwareDev\IndyTLS-OpenSSL\Test\openssl-server</Debugger_CWD> + </PropertyGroup> + <PropertyGroup Condition="'$(Base_Win64)'!=''"> + <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace> + <BT_BuildType>Debug</BT_BuildType> + <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> + <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> + <VerInfo_Locale>1033</VerInfo_Locale> + <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File> + <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44> + <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150> + <Debugger_HostApplication>C:\Users\tony\SoftwareDev\IndyTLS-OpenSSL\Test\openssl-server\delphi_openssl_server.exe</Debugger_HostApplication> + <Debugger_CWD>C:\Users\tony\SoftwareDev\IndyTLS-OpenSSL\Test\openssl-server</Debugger_CWD> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_1)'!=''"> + <DCC_UsePackage>IndySystem290;IndyCore290;IndyProtocols290;IndyTLSOpenSSL290;$(DCC_UsePackage)</DCC_UsePackage> + <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> + <DCC_DebugDCUs>true</DCC_DebugDCUs> + <DCC_Optimize>false</DCC_Optimize> + <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> + <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe> + <DCC_RemoteDebug>true</DCC_RemoteDebug> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''"> + <DCC_ExeOutput>.</DCC_ExeOutput> + <DCC_DcuOutput>$(Platform)\$(Config)</DCC_DcuOutput> + <UsePackages>true</UsePackages> + <VerInfo_Locale>1033</VerInfo_Locale> + <Manifest_File>(None)</Manifest_File> + <DCC_RemoteDebug>false</DCC_RemoteDebug> + <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44> + <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150> + <AppDPIAwarenessMode>none</AppDPIAwarenessMode> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''"> + <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode> + <UsePackages>true</UsePackages> + <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> + <VerInfo_Locale>1033</VerInfo_Locale> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_2)'!=''"> + <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols> + <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> + <DCC_DebugInformation>0</DCC_DebugInformation> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> + <Debugger_CWD>C:\Users\tony\SoftwareDev\IndyTLS-OpenSSL\Test\openssl-server</Debugger_CWD> + <Debugger_HostApplication>C:\Users\tony\SoftwareDev\IndyTLS-OpenSSL\Test\openssl-server\delphi_openssl_server.exe</Debugger_HostApplication> + <DCC_UsePackage>IndySystem290;IndyCore290;IndyProtocols290;IndyTLSOpenSSL290;$(DCC_UsePackage)</DCC_UsePackage> + <UsePackages>true</UsePackages> + <VerInfo_Locale>1033</VerInfo_Locale> + <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44> + <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150> + <Manifest_File>(None)</Manifest_File> + <AppDPIAwarenessMode>none</AppDPIAwarenessMode> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''"> + <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode> + <UsePackages>true</UsePackages> + <DCC_UsePackage>IndySystem290;IndyCore290;IndyProtocols290;IndyTLSOpenSSL290;$(DCC_UsePackage)</DCC_UsePackage> + <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> + <VerInfo_Locale>1033</VerInfo_Locale> + <Debugger_HostApplication>C:\Users\tony\SoftwareDev\IndyTLS-OpenSSL\Test\openssl-server\delphi_openssl_server.exe</Debugger_HostApplication> + <Debugger_CWD>C:\Users\tony\SoftwareDev\IndyTLS-OpenSSL\Test\openssl-server</Debugger_CWD> + </PropertyGroup> + <ItemGroup> + <DelphiCompile Include="$(MainSource)"> + <MainSource>MainSource</MainSource> + </DelphiCompile> + <DCCReference Include="testserver.pas"/> + <BuildConfiguration Include="Base"> + <Key>Base</Key> + </BuildConfiguration> + <BuildConfiguration Include="Debug"> + <Key>Cfg_1</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + <BuildConfiguration Include="Release"> + <Key>Cfg_2</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + </ItemGroup> + <ProjectExtensions> + <Borland.Personality>Delphi.Personality.12</Borland.Personality> + <Borland.ProjectType>Application</Borland.ProjectType> + <BorlandProject> + <Delphi.Personality> + <Source> + <Source Name="MainSource">delphi_openssl_server.dpr</Source> + </Source> + <Excluded_Packages> + <Excluded_Packages Name="$(BDSBIN)\dcloffice2k290.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages> + <Excluded_Packages Name="$(BDSBIN)\dclofficexp290.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages> + </Excluded_Packages> + </Delphi.Personality> + <Platforms> + <Platform value="Android">False</Platform> + <Platform value="Android64">False</Platform> + <Platform value="Win32">True</Platform> + <Platform value="Win64">True</Platform> + </Platforms> + <Deployment Version="4"> + <DeployFile LocalName="$(BDS)\Redist\iossimulator\libcgunwind.1.0.dylib" Class="DependencyModule"> + <Platform Name="iOSSimulator"> + <Overwrite>true</Overwrite> + </Platform> + </DeployFile> + <DeployFile LocalName="$(BDS)\Redist\iossimulator\libpcre.dylib" Class="DependencyModule"> + <Platform Name="iOSSimulator"> + <Overwrite>true</Overwrite> + </Platform> + </DeployFile> + <DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule"> + <Platform Name="OSX32"> + <Overwrite>true</Overwrite> + </Platform> + </DeployFile> + <DeployFile LocalName="$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png" Configuration="Debug" Class="UWP_DelphiLogo150"> + <Platform Name="Win32"> + <RemoteDir>Assets\</RemoteDir> + <RemoteName>Logo150x150.png</RemoteName> + <Overwrite>true</Overwrite> + </Platform> + </DeployFile> + <DeployFile LocalName="$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png" Configuration="Release" Class="UWP_DelphiLogo150"> + <Platform Name="Win32"> + <RemoteDir>Assets\</RemoteDir> + <RemoteName>Logo150x150.png</RemoteName> + <Overwrite>true</Overwrite> + </Platform> + </DeployFile> + <DeployFile LocalName="$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png" Configuration="Debug" Class="UWP_DelphiLogo44"> + <Platform Name="Win32"> + <RemoteDir>Assets\</RemoteDir> + <RemoteName>Logo44x44.png</RemoteName> + <Overwrite>true</Overwrite> + </Platform> + </DeployFile> + <DeployFile LocalName="$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png" Configuration="Release" Class="UWP_DelphiLogo44"> + <Platform Name="Win32"> + <RemoteDir>Assets\</RemoteDir> + <RemoteName>Logo44x44.png</RemoteName> + <Overwrite>true</Overwrite> + </Platform> + </DeployFile> + <DeployClass Name="AdditionalDebugSymbols"> + <Platform Name="iOSSimulator"> + <Operation>1</Operation> + </Platform> + <Platform Name="OSX32"> + <RemoteDir>Contents\MacOS</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Win32"> + <Operation>0</Operation> + </Platform> + </DeployClass> + <DeployClass Name="AndroidClasses"> + <Platform Name="Android"> + <RemoteDir>classes</RemoteDir> + <Operation>64</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>classes</RemoteDir> + <Operation>64</Operation> + </Platform> + </DeployClass> + <DeployClass Name="AndroidFileProvider"> + <Platform Name="Android"> + <RemoteDir>res\xml</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\xml</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="AndroidLibnativeArmeabiFile"> + <Platform Name="Android"> + <RemoteDir>library\lib\armeabi</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>library\lib\armeabi</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="AndroidLibnativeArmeabiv7aFile"> + <Platform Name="Android64"> + <RemoteDir>library\lib\armeabi-v7a</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="AndroidLibnativeMipsFile"> + <Platform Name="Android"> + <RemoteDir>library\lib\mips</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>library\lib\mips</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="AndroidServiceOutput"> + <Platform Name="Android"> + <RemoteDir>library\lib\armeabi-v7a</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>library\lib\arm64-v8a</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="AndroidServiceOutput_Android32"> + <Platform Name="Android64"> + <RemoteDir>library\lib\armeabi-v7a</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="AndroidSplashImageDef"> + <Platform Name="Android"> + <RemoteDir>res\drawable</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="AndroidSplashImageDefV21"> + <Platform Name="Android"> + <RemoteDir>res\drawable-anydpi-v21</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-anydpi-v21</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="AndroidSplashStyles"> + <Platform Name="Android"> + <RemoteDir>res\values</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\values</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="AndroidSplashStylesV21"> + <Platform Name="Android"> + <RemoteDir>res\values-v21</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\values-v21</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="AndroidSplashStylesV31"> + <Platform Name="Android"> + <RemoteDir>res\values-v31</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\values-v31</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_AdaptiveIcon"> + <Platform Name="Android"> + <RemoteDir>res\drawable-anydpi-v26</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-anydpi-v26</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_AdaptiveIconBackground"> + <Platform Name="Android"> + <RemoteDir>res\drawable</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_AdaptiveIconForeground"> + <Platform Name="Android"> + <RemoteDir>res\drawable</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_AdaptiveIconMonochrome"> + <Platform Name="Android"> + <RemoteDir>res\drawable</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_AdaptiveIconV33"> + <Platform Name="Android"> + <RemoteDir>res\drawable-anydpi-v33</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-anydpi-v33</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_Colors"> + <Platform Name="Android"> + <RemoteDir>res\values</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\values</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_ColorsDark"> + <Platform Name="Android"> + <RemoteDir>res\values-night-v21</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\values-night-v21</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_DefaultAppIcon"> + <Platform Name="Android"> + <RemoteDir>res\drawable</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_LauncherIcon144"> + <Platform Name="Android"> + <RemoteDir>res\drawable-xxhdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-xxhdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_LauncherIcon192"> + <Platform Name="Android"> + <RemoteDir>res\drawable-xxxhdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-xxxhdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_LauncherIcon36"> + <Platform Name="Android"> + <RemoteDir>res\drawable-ldpi</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-ldpi</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_LauncherIcon48"> + <Platform Name="Android"> + <RemoteDir>res\drawable-mdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-mdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_LauncherIcon72"> + <Platform Name="Android"> + <RemoteDir>res\drawable-hdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-hdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_LauncherIcon96"> + <Platform Name="Android"> + <RemoteDir>res\drawable-xhdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-xhdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_NotificationIcon24"> + <Platform Name="Android"> + <RemoteDir>res\drawable-mdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-mdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_NotificationIcon36"> + <Platform Name="Android"> + <RemoteDir>res\drawable-hdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-hdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_NotificationIcon48"> + <Platform Name="Android"> + <RemoteDir>res\drawable-xhdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-xhdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_NotificationIcon72"> + <Platform Name="Android"> + <RemoteDir>res\drawable-xxhdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-xxhdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_NotificationIcon96"> + <Platform Name="Android"> + <RemoteDir>res\drawable-xxxhdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-xxxhdpi</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_SplashImage426"> + <Platform Name="Android"> + <RemoteDir>res\drawable-small</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-small</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_SplashImage470"> + <Platform Name="Android"> + <RemoteDir>res\drawable-normal</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-normal</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_SplashImage640"> + <Platform Name="Android"> + <RemoteDir>res\drawable-large</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-large</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_SplashImage960"> + <Platform Name="Android"> + <RemoteDir>res\drawable-xlarge</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-xlarge</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_Strings"> + <Platform Name="Android"> + <RemoteDir>res\values</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\values</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_VectorizedNotificationIcon"> + <Platform Name="Android"> + <RemoteDir>res\drawable-anydpi-v24</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-anydpi-v24</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_VectorizedSplash"> + <Platform Name="Android"> + <RemoteDir>res\drawable</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_VectorizedSplashDark"> + <Platform Name="Android"> + <RemoteDir>res\drawable-night-anydpi-v21</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-night-anydpi-v21</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_VectorizedSplashV31"> + <Platform Name="Android"> + <RemoteDir>res\drawable-anydpi-v31</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-anydpi-v31</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="Android_VectorizedSplashV31Dark"> + <Platform Name="Android"> + <RemoteDir>res\drawable-night-anydpi-v31</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>res\drawable-night-anydpi-v31</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="DebugSymbols"> + <Platform Name="iOSSimulator"> + <Operation>1</Operation> + </Platform> + <Platform Name="OSX32"> + <RemoteDir>Contents\MacOS</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Win32"> + <Operation>0</Operation> + </Platform> + </DeployClass> + <DeployClass Name="DependencyFramework"> + <Platform Name="OSX32"> + <RemoteDir>Contents\MacOS</RemoteDir> + <Operation>1</Operation> + <Extensions>.framework</Extensions> + </Platform> + <Platform Name="OSX64"> + <RemoteDir>Contents\MacOS</RemoteDir> + <Operation>1</Operation> + <Extensions>.framework</Extensions> + </Platform> + <Platform Name="OSXARM64"> + <RemoteDir>Contents\MacOS</RemoteDir> + <Operation>1</Operation> + <Extensions>.framework</Extensions> + </Platform> + <Platform Name="Win32"> + <Operation>0</Operation> + </Platform> + </DeployClass> + <DeployClass Name="DependencyModule"> + <Platform Name="iOSDevice32"> + <Operation>1</Operation> + <Extensions>.dylib</Extensions> + </Platform> + <Platform Name="iOSDevice64"> + <Operation>1</Operation> + <Extensions>.dylib</Extensions> + </Platform> + <Platform Name="iOSSimARM64"> + <Operation>1</Operation> + <Extensions>.dylib</Extensions> + </Platform> + <Platform Name="OSX32"> + <RemoteDir>Contents\MacOS</RemoteDir> + <Operation>1</Operation> + <Extensions>.dylib</Extensions> + </Platform> + <Platform Name="OSX64"> + <RemoteDir>Contents\MacOS</RemoteDir> + <Operation>1</Operation> + <Extensions>.dylib</Extensions> + </Platform> + <Platform Name="OSXARM64"> + <RemoteDir>Contents\MacOS</RemoteDir> + <Operation>1</Operation> + <Extensions>.dylib</Extensions> + </Platform> + <Platform Name="Win32"> + <Operation>0</Operation> + <Extensions>.dll;.bpl</Extensions> + </Platform> + </DeployClass> + <DeployClass Required="true" Name="DependencyPackage"> + <Platform Name="iOSDevice32"> + <Operation>1</Operation> + <Extensions>.dylib</Extensions> + </Platform> + <Platform Name="iOSDevice64"> + <Operation>1</Operation> + <Extensions>.dylib</Extensions> + </Platform> + <Platform Name="iOSSimARM64"> + <Operation>1</Operation> + <Extensions>.dylib</Extensions> + </Platform> + <Platform Name="OSX32"> + <RemoteDir>Contents\MacOS</RemoteDir> + <Operation>1</Operation> + <Extensions>.dylib</Extensions> + </Platform> + <Platform Name="OSX64"> + <RemoteDir>Contents\MacOS</RemoteDir> + <Operation>1</Operation> + <Extensions>.dylib</Extensions> + </Platform> + <Platform Name="OSXARM64"> + <RemoteDir>Contents\MacOS</RemoteDir> + <Operation>1</Operation> + <Extensions>.dylib</Extensions> + </Platform> + <Platform Name="Win32"> + <Operation>0</Operation> + <Extensions>.bpl</Extensions> + </Platform> + </DeployClass> + <DeployClass Name="File"> + <Platform Name="Android"> + <Operation>0</Operation> + </Platform> + <Platform Name="Android64"> + <Operation>0</Operation> + </Platform> + <Platform Name="iOSDevice32"> + <Operation>0</Operation> + </Platform> + <Platform Name="iOSDevice64"> + <Operation>0</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <Operation>0</Operation> + </Platform> + <Platform Name="OSX32"> + <RemoteDir>Contents\Resources\StartUp\</RemoteDir> + <Operation>0</Operation> + </Platform> + <Platform Name="OSX64"> + <RemoteDir>Contents\Resources\StartUp\</RemoteDir> + <Operation>0</Operation> + </Platform> + <Platform Name="OSXARM64"> + <RemoteDir>Contents\Resources\StartUp\</RemoteDir> + <Operation>0</Operation> + </Platform> + <Platform Name="Win32"> + <Operation>0</Operation> + </Platform> + </DeployClass> + <DeployClass Name="ProjectAndroidManifest"> + <Platform Name="Android"> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="ProjectOSXDebug"> + <Platform Name="OSX64"> + <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="OSXARM64"> + <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="ProjectOSXEntitlements"> + <Platform Name="OSX32"> + <RemoteDir>..\</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="OSX64"> + <RemoteDir>..\</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="OSXARM64"> + <RemoteDir>..\</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="ProjectOSXInfoPList"> + <Platform Name="OSX32"> + <RemoteDir>Contents</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="OSX64"> + <RemoteDir>Contents</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="OSXARM64"> + <RemoteDir>Contents</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="ProjectOSXResource"> + <Platform Name="OSX32"> + <RemoteDir>Contents\Resources</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="OSX64"> + <RemoteDir>Contents\Resources</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="OSXARM64"> + <RemoteDir>Contents\Resources</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Required="true" Name="ProjectOutput"> + <Platform Name="Android"> + <RemoteDir>library\lib\armeabi-v7a</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Android64"> + <RemoteDir>library\lib\arm64-v8a</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSDevice32"> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSDevice64"> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <Operation>1</Operation> + </Platform> + <Platform Name="Linux64"> + <Operation>1</Operation> + </Platform> + <Platform Name="OSX32"> + <RemoteDir>Contents\MacOS</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="OSX64"> + <RemoteDir>Contents\MacOS</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="OSXARM64"> + <RemoteDir>Contents\MacOS</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Win32"> + <Operation>0</Operation> + </Platform> + </DeployClass> + <DeployClass Name="ProjectOutput_Android32"> + <Platform Name="Android64"> + <RemoteDir>library\lib\armeabi-v7a</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="ProjectUWPManifest"> + <Platform Name="Win32"> + <Operation>1</Operation> + </Platform> + <Platform Name="Win64"> + <Operation>1</Operation> + </Platform> + <Platform Name="Win64x"> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="ProjectiOSDeviceDebug"> + <Platform Name="iOSDevice32"> + <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="ProjectiOSEntitlements"> + <Platform Name="iOSDevice32"> + <RemoteDir>..\</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSDevice64"> + <RemoteDir>..\</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="ProjectiOSInfoPList"> + <Platform Name="iOSDevice32"> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSDevice64"> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="ProjectiOSLaunchScreen"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen</RemoteDir> + <Operation>64</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen</RemoteDir> + <Operation>64</Operation> + </Platform> + </DeployClass> + <DeployClass Name="ProjectiOSResource"> + <Platform Name="iOSDevice32"> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSDevice64"> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="UWP_DelphiLogo150"> + <Platform Name="Win32"> + <RemoteDir>Assets</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Win64"> + <RemoteDir>Assets</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="UWP_DelphiLogo44"> + <Platform Name="Win32"> + <RemoteDir>Assets</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="Win64"> + <RemoteDir>Assets</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iOS_AppStore1024"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPad_AppIcon152"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPad_AppIcon167"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPad_Launch2x"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPad_LaunchDark2x"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPad_Notification40"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPad_Setting58"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPad_SpotLight80"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPhone_AppIcon120"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPhone_AppIcon180"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPhone_Launch2x"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPhone_Launch3x"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPhone_LaunchDark2x"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPhone_LaunchDark3x"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPhone_Notification40"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPhone_Notification60"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPhone_Setting58"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPhone_Setting87"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPhone_Spotlight120"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <DeployClass Name="iPhone_Spotlight80"> + <Platform Name="iOSDevice64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + <Platform Name="iOSSimARM64"> + <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir> + <Operation>1</Operation> + </Platform> + </DeployClass> + <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/> + <ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/> + <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/> + <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/> + <ProjectRoot Platform="iOSSimARM64" Name="$(PROJECTNAME).app"/> + <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/> + <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/> + <ProjectRoot Platform="OSX64" Name="$(PROJECTNAME).app"/> + <ProjectRoot Platform="OSXARM64" Name="$(PROJECTNAME).app"/> + <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/> + <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/> + <ProjectRoot Platform="Win64x" Name="$(PROJECTNAME)"/> + </Deployment> + </BorlandProject> + <ProjectFileVersion>12</ProjectFileVersion> + </ProjectExtensions> + <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/> + <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/> + <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/> +</Project> diff --git a/Test/openssl-server/fpc_openssl_server.lpi b/Test/openssl-server/fpc_openssl_server.lpi new file mode 100644 index 0000000..58f2899 --- /dev/null +++ b/Test/openssl-server/fpc_openssl_server.lpi @@ -0,0 +1,71 @@ +<?xml version="1.0" encoding="UTF-8"?> +<CONFIG> + <ProjectOptions> + <Version Value="12"/> + <General> + <Flags> + <MainUnitHasCreateFormStatements Value="False"/> + <MainUnitHasTitleStatement Value="False"/> + <MainUnitHasScaledStatement Value="False"/> + </Flags> + <SessionStorage Value="InProjectDir"/> + <Title Value="Open SSL Server Test"/> + <UseAppBundle Value="False"/> + <ResourceType Value="res"/> + </General> + <BuildModes> + <Item Name="Default" Default="True"/> + </BuildModes> + <PublishOptions> + <Version Value="2"/> + <UseFileFilters Value="True"/> + </PublishOptions> + <RunParams> + <FormatVersion Value="2"/> + </RunParams> + <RequiredPackages> + <Item> + <PackageName Value="IndyTLSOpenSSL"/> + </Item> + </RequiredPackages> + <Units> + <Unit> + <Filename Value="fpc_openssl_server.lpr"/> + <IsPartOfProject Value="True"/> + </Unit> + <Unit> + <Filename Value="testserver.pas"/> + <IsPartOfProject Value="True"/> + </Unit> + </Units> + </ProjectOptions> + <CompilerOptions> + <Version Value="11"/> + <Target> + <Filename Value="fpc_openssl_server"/> + </Target> + <SearchPaths> + <IncludeFiles Value="$(ProjOutDir)"/> + <OtherUnitFiles Value=".."/> + <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + <Linking> + <Debugging> + <DebugInfoType Value="dsDwarf3"/> + </Debugging> + </Linking> + </CompilerOptions> + <Debugging> + <Exceptions> + <Item> + <Name Value="EAbort"/> + </Item> + <Item> + <Name Value="ECodetoolError"/> + </Item> + <Item> + <Name Value="EFOpenError"/> + </Item> + </Exceptions> + </Debugging> +</CONFIG> diff --git a/Test/openssl-server/fpc_openssl_server.lpr b/Test/openssl-server/fpc_openssl_server.lpr new file mode 100644 index 0000000..3eaa9e6 --- /dev/null +++ b/Test/openssl-server/fpc_openssl_server.lpr @@ -0,0 +1,19 @@ +program fpc_openssl_server; + +{$mode objfpc}{$H+} + +uses + {$IFDEF UNIX} + cthreads, + {$ENDIF} + Classes, SysUtils, CustApp, TestServer; + +var + Application: TOpenSSLServerTest; +begin + Application:=TOpenSSLServerTest.Create(nil); + Application.Title:='Open SSL Server Test'; + Application.Run; + Application.Free; +end. + diff --git a/Test/openssl-server/testserver.pas b/Test/openssl-server/testserver.pas new file mode 100644 index 0000000..74bbbb6 --- /dev/null +++ b/Test/openssl-server/testserver.pas @@ -0,0 +1,450 @@ +unit testserver; + +{$IFDEF MSWINDOWS} +{$DEFINE WINDOWS} +{$ENDIF} + +{$IFDEF CPU386} +{$DEFINE CPU32} +{$ENDIF} + +{$IFDEF CPUX64} +{$DEFINE CPU64} +{$ENDIF} + +{$IFDEF FPC} +{$mode delphi} +{$codepage utf8} +{$ENDIF} + + +interface + +uses + Classes, SysUtils, {$IFDEF FPC}CustApp,{$ENDIF}IdIOHandler, IdHTTP, + IdSSL, IdSSLOpenSSL, IdHeaderList, IdContext, + IdCustomHTTPServer, IdHTTPServer, IdServerIOHandler, IdGlobal, + IdSSLOpenSSLX509; + +const + SSLServerPort = 8080; + remoteSource = 'https://localhost:8080/openssltest.txt'; + sGetException = 'Error: Status = %d returned when GETting %s'; + rcAccept = 'Application/txt'; + {$if not declared(DirectorySeparator)} + DirectorySeparator = '\'; + {$ifend} + {$if not declared(LineEnding))} + LineEnding = #$0D#$0A; + {$ifend} + + {Certificates} + myPassword = 'mypassword'; + MyRootCertFile = 'cacerts' + DirectorySeparator + 'ca.pem'; + MyCertFile = 'certs' + DirectorySeparator+ 'myserver.pem'; + MyKeyFile = 'certs' + DirectorySeparator + 'myserverkey.pem'; + MyClientCertPackage = 'certs' + DirectorySeparator + 'myclient.p12'; + RootCertificatesDir = 'cacerts'; + + +type + {$if not declared(TCustomApplication)} + {$DEFINE LOCAL_TCUSTOMAPP} + TCustomApplication = class(TComponent) + private + FTitle: string; + protected + procedure DoRun; virtual; abstract; + public + function Exename: string; + procedure Run; + procedure Terminate; + property Title: string read FTitle write FTitle; + end; + {$IFEND} + + { TOpenSSLServerTest } + + TOpenSSLServerTest = class(TCustomApplication) + private + FSSLHandler: TIdSSLIOHandlerSocketOpenSSL; + FServer: TIdHTTPServer; + FClientVerification: boolean; + FPromptOnExit: boolean; + FOpenSSLLibDir: string; + function DoTest: integer; + function GetSSLClientHandler(AOwner: TComponent): TIdIOHandler; + function GetSSLServerHandler(AOwner: TComponent): TIdServerIOHandler; + function IsDirectoryEmpty(Path: string): boolean; + procedure HandleCommandGet(AContext: TIdContext; + ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); + procedure HandleStatusInfo(const AMsg: String); + procedure GetMyPassword(var Password: String); + procedure QuerySSLPort(APort: TIdPort; var VUseSSL: Boolean); + function CertificateType(Certificate: TIdX509): string; + function ClientVerifyPeer(Certificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean; + function ServerVerifyPeer(Certificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean; + procedure ShowCertificate(Certificate : TIdX509); + protected + procedure DoRun; override; + public + constructor Create(TheOwner: TComponent); override; + destructor Destroy; override; + procedure WriteHelp; virtual; + end; + + { TResponseTextBuffer } + + TResponseTextBuffer = class(TMemoryStream) + private + function GetDataString: AnsiString; + public + property DataString: AnsiString read GetDataString; + end; + + +implementation + +uses IdSSLOpenSSLAPI, IdSSLOpenSSLOptions; + +{$IFDEF LOCAL_TCUSTOMAPP} +function TCustomApplication.Exename: string; +begin + Result := ParamStr(0); +end; + +procedure TCustomApplication.Run; +begin + try + DoRun; + except on E: Exception do + writeln(E.Message); + end; +end; + +procedure TCustomApplication.Terminate; +begin + +end; +{$ENDIF} + +{ TResponseTextBuffer } + +function TResponseTextBuffer.GetDataString: AnsiString; +begin + SetLength(Result,Size); + Position := 0; + Read(Result[1],Size); + SetCodePage(RawByteString(Result), DefaultSystemCodePage, False); +end; + + +{ TOpenSSLServerTest } + +function TOpenSSLServerTest.DoTest: integer; +var httpClient: TIdHttp; + ResponseStream: TResponseTextBuffer; +begin + httpClient := TIdHTTP.Create(nil); + try + httpClient.HTTPOptions := httpClient.HTTPOptions + [hoNoProtocolErrorException, + hoKeepOrigProtocol, + hoWantProtocolErrorContent]; + httpClient.ProtocolVersion := pv1_1; + httpClient.Request.CustomHeaders.Clear; + httpClient.Request.Accept := rcAccept; + httpClient.Request.BasicAuthentication:= false; + httpClient.HandleRedirects := true; + + httpClient.Request.UserAgent :=' Mozilla/5.0 (compatible; Indy Library)'; + httpClient.Request.ContentType := 'text/html; charset=utf-8'; + httpClient.IOHandler := GetSSLClientHandler(httpClient); + + httpClient.ConnectTimeout := 5000; + httpClient.ReadTimeout := 20000; + ResponseStream := TResponseTextBuffer.Create; + try + httpClient.Get(remoteSource,ResponseStream); + {$IFNDEF LEGACY_VERSION} + if assigned (FSSLHandler.SSLSocket) then + writeln('Using SSL/TLS Version ' + FSSLHandler.SSLSocket.SSLProtocolVersionStr, ' with cipher ',FSSLHandler.SSLSocket.Cipher.Name); + {$ENDIF} + Result := httpClient.ResponseCode; + if Result = 200 then + begin + writeln('Remote Source returned:'); + writeln(ResponseStream.DataString); + end + else + writeln(Format(sGetException,[Result,remoteSource])); + finally + ResponseStream.Free; + end; + finally + httpClient.Free; + end; +end; + +function TOpenSSLServerTest.GetSSLClientHandler(AOwner: TComponent + ): TIdIOHandler; +var IOHandler: TIdSSLIOHandlerSocketOpenSSL; +begin + IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(AOwner); + IOHandler.SSLOptions.Mode:= sslmClient; + {$IFDEF LEGACY_VERSION} + IOHandler.SSLOptions.Method := sslvTLSv1_2; + {$ENDIF} + IOHandler.SSLOptions.VerifyMode := [sslvrfPeer,sslvrfFailIfNoPeerCert]; + IOHandler.SSLOptions.VerifyDepth := 100; + IOHandler.SSLOptions.RootCertFile := MyRootCertFile; + IOHandler.SSLOptions.UseSystemRootCertificateStore := false; + IOHandler.SSLOptions.VerifyDirs := GetCurrentDir + DirectorySeparator + RootCertificatesDir; + IOHandler.OnVerifyPeer := ClientVerifyPeer; + IOHandler.OnGetPassword := GetMyPassword; + if FClientVerification then + begin + IOHandler.SSLOptions.CertFile := MyClientCertPackage; + IOHandler.SSLOptions.KeyFile := MyClientCertPackage; + end; + FSSLHandler := IOHandler; + Result := IOHandler; +end; + +function TOpenSSLServerTest.GetSSLServerHandler(AOwner : TComponent + ) : TIdServerIOHandler; +var IOHandler: TIdServerIOHandlerSSLOpenSSL; +begin + IOHandler := TIdServerIOHandlerSSLOpenSSL.Create(AOwner); + IOHandler.SSLOptions.Mode:= sslmServer; + IOHandler.SSLOptions.RootCertFile := MyRootCertFile; + IOHandler.SSLOptions.CertFile := MyCertFile; + IOHandler.SSLOptions.KeyFile := MyKeyFile; + {$IFDEF LEGACY_VERSION} + IOHandler.SSLOptions.Method := sslvTLSv1_2; + {$ENDIF} + IOHandler.OnGetPassword := GetMyPassword; + IOHandler.OnVerifyPeer := ServerVerifyPeer; + IOHandler.OnStatusInfo := HandleStatusInfo; + if FClientVerification then + begin + IOHandler.SSLOptions.VerifyMode := [sslvrfPeer,sslvrfFailIfNoPeerCert]; + IOHandler.SSLOptions.VerifyDepth := 100; + IOHandler.SSLOptions.UseSystemRootCertificateStore := false; + IOHandler.SSLOptions.VerifyDirs := GetCurrentDir + DirectorySeparator + RootCertificatesDir; + end; + Result := IOHandler; +end; + +function TOpenSSLServerTest.IsDirectoryEmpty(Path: string): boolean; +var Rslt: TSearchRec; +begin + Result := true; + if FindFirst(Path + DirectorySeparator + '*',faNormal {$IFDEF POSIX}or faSymLink{$ENDIF},Rslt) = 0 then + begin + Result := false; + FindClose(Rslt); + end; +end; + +procedure TOpenSSLServerTest.HandleCommandGet(AContext: TIdContext; + ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); +var S: TStringStream; +begin + S := TStringStream.Create('Server Response' + LineEnding); + S.WriteString('Command: ' + ARequestInfo.RawHTTPCommand + LineEnding); + S.WriteString('Remote IP: ' + ARequestInfo.RemoteIP + LineEnding); + S.WriteString('Success!' + LineEnding); + AResponseInfo.ContentStream := S; + AResponseInfo.ContentType := 'text/html'; + AResponseInfo.ContentEncoding := 'UTF-8'; + AResponseInfo.CharSet := 'UTF-8'; + AResponseInfo.CloseConnection := true; + AResponseInfo.ContentStream.Position := 0; +end; + +procedure TOpenSSLServerTest.HandleStatusInfo(const AMsg: String); +begin + writeln('Server Status Info: ',AMsg); +end; + +procedure TOpenSSLServerTest.GetMyPassword(var Password : String); +begin + Password := myPassword; +end; + +procedure TOpenSSLServerTest.QuerySSLPort(APort : TIdPort; var VUseSSL : Boolean + ); +begin + VUseSSL := (APort = SSLServerPort); +end; + +function TOpenSSLServerTest.CertificateType(Certificate : TIdX509) : string; +begin + if Certificate.Issuer.Hash.C1 = Certificate.Subject.Hash.C1 then + Result := 'Root' + else + Result := 'Remote'; +end; + +function TOpenSSLServerTest.ClientVerifyPeer(Certificate : TIdX509; + AOk : Boolean; ADepth , AError : Integer) : Boolean; +begin + writeln; + writeln('Client Side Verification'); + if AOK then + writeln(CertificateType(Certificate),' Certificate verification succeeded') + else + writeln(CertificateType(Certificate),' Certificate verification failed'); + ShowCertificate(certificate); + Result := AOK; +end; + +function TOpenSSLServerTest.ServerVerifyPeer(Certificate : TIdX509; + AOk : Boolean; ADepth , AError : Integer) : Boolean; +begin + writeln; + writeln('Server Side Verification'); + if AOK then + writeln(CertificateType(Certificate),' Certificate verification succeeded') + else + writeln(CertificateType(Certificate),' Certificate verification failed'); + ShowCertificate(certificate); + Result := AOK; +end; + +procedure TOpenSSLServerTest.ShowCertificate(Certificate : TIdX509); +begin + writeln; + writeln('X.509 Certificate Details'); + writeln('Subject: ', Certificate.Subject.OneLine); + writeln('Issuer: ', Certificate.Issuer.OneLine); + writeln('Not Before: ',DateTimeToStr(Certificate.notBefore)); + writeln('Not After: ',DateTimeToStr(Certificate.notAfter)); + writeln; +end; + +procedure TOpenSSLServerTest.DoRun; + + procedure RunTest; + var i: integer; + begin + FServer.Active := true; + Sleep(1000); {let server get going} + writeln('Using ',OpenSSLVersion); + if GetIOpenSSLDDL <> nil then + begin + writeln('LibCrypto: ',GetIOpenSSLDDL.GetLibCryptoFilePath); + writeln('LibSSL: ',GetIOpenSSLDDL.GetLibSSLFilePath); + end; + + if GetIOpenSSLDDL <> nil then + with GetIOpenSSLDDL.GetFailedToLoadList do + if Count > 0 then + begin + writeln('Note: The following functions failed to load and an exception will be raised if they are called:'); + for i := 0 to Count - 1 do + writeln(Strings[i]); + end; + + writeln('Getting ',remoteSource,' with verification'); + writeln; + + try + DoTest; + except on E:Exception do + writeln(E.Message); + end; + FClientVerification := true; + FServer.Active := false; + FServer.IOHandler := GetSSLServerHandler(self); + FServer.Active := true; + writeln('Getting ',remoteSource,' with verification and client verification'); + writeln; + try + DoTest; + except on E:Exception do + writeln(E.Message); + end; +end; + +var i: integer; + +begin + FPromptOnExit := true; + try + i := 1; + while i <= ParamCount do + begin + if ParamStr(i) = '-h' then + begin + WriteHelp; + Terminate; + Exit; + end; + + if ParamStr(i) = '-n' then + FPromptOnExit := false + else + if DirectoryExists(ParamStr(i)) then + FOpenSSLLibDir := ParamStr(i) + else + raise Exception.CreateFmt('Unrecognised option - %s',[ParamStr(i)]); + Inc(i); + end; + + if GetIOpenSSLDDL <> nil then + begin + if (FOpenSSLLibDir = '') or not IsDirectoryEmpty(FOpenSSLLibDir) then + begin + GetIOpenSSLDDL.SetOpenSSLPath(FOpenSSLLibDir); + RunTest; + end + else + writeln('Directory ',FOpenSSLLibDir,' is empty!'); + end + else + RunTest; + + + {$IFDEF WINDOWS} + if FPromptOnExit then + begin + write('Press Return to continue'); + readln; //stop console disappearing until user presses return} + end; + {$ENDIF} + + except on E: Exception do + writeln('Error: ', E.Message); + end; + Terminate; +end; + +constructor TOpenSSLServerTest.Create(TheOwner: TComponent); +begin + inherited Create(TheOwner); + FServer := TIdHTTPServer.Create(self); + FServer.IOHandler := GetSSLServerHandler(self); + FServer.OnQuerySSLPort := QuerySSLPort; + FServer.DefaultPort := SSLServerPort; + FServer.OnCommandGet := HandleCommandGet; +end; + +destructor TOpenSSLServerTest.Destroy; +begin + if FServer <> nil then + FServer.Free; + inherited Destroy; +end; + +procedure TOpenSSLServerTest.WriteHelp; +begin + { add your help code here } + writeln('OpenSSL Https Server Test'); + writeln('Gets text file from ' + remoteSource + ' and prints it'); + writeln('Usage: ', ExtractFileName(ExeName), ' [-h] [-n] [OpenSSL lib Dir]') +end; + + +end. + diff --git a/IndyTLSOpenSSL.rc b/delphi/IndyTLSOpenSSL.rc similarity index 100% rename from IndyTLSOpenSSL.rc rename to delphi/IndyTLSOpenSSL.rc diff --git a/IndyTLSOpenSSL100.dpk b/delphi/IndyTLSOpenSSL100.dpk similarity index 87% rename from IndyTLSOpenSSL100.dpk rename to delphi/IndyTLSOpenSSL100.dpk index e147532..b1a9821 100644 --- a/IndyTLSOpenSSL100.dpk +++ b/delphi/IndyTLSOpenSSL100.dpk @@ -1,35 +1,35 @@ -package IndyTLSOpenSSL100; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -requires - rtl, - IndySystem100, - IndyCore100, - IndyProtocols100; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL100; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +requires + rtl, + IndySystem100, + IndyCore100, + IndyProtocols100; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL100.rc b/delphi/IndyTLSOpenSSL100.rc similarity index 100% rename from IndyTLSOpenSSL100.rc rename to delphi/IndyTLSOpenSSL100.rc diff --git a/IndyTLSOpenSSL110.dpk b/delphi/IndyTLSOpenSSL110.dpk similarity index 87% rename from IndyTLSOpenSSL110.dpk rename to delphi/IndyTLSOpenSSL110.dpk index 46e6751..6aef966 100644 --- a/IndyTLSOpenSSL110.dpk +++ b/delphi/IndyTLSOpenSSL110.dpk @@ -1,35 +1,35 @@ -package IndyTLSOpenSSL110; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -requires - rtl, - IndySystem110, - IndyCore110, - IndyProtocols110; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL110; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +requires + rtl, + IndySystem110, + IndyCore110, + IndyProtocols110; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL110.rc b/delphi/IndyTLSOpenSSL110.rc similarity index 100% rename from IndyTLSOpenSSL110.rc rename to delphi/IndyTLSOpenSSL110.rc diff --git a/IndyTLSOpenSSL120.dpk b/delphi/IndyTLSOpenSSL120.dpk similarity index 87% rename from IndyTLSOpenSSL120.dpk rename to delphi/IndyTLSOpenSSL120.dpk index 0fabe1f..388fd1c 100644 --- a/IndyTLSOpenSSL120.dpk +++ b/delphi/IndyTLSOpenSSL120.dpk @@ -1,35 +1,35 @@ -package IndyTLSOpenSSL120; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -requires - rtl, - IndySystem120, - IndyCore120, - IndyProtocols120; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL120; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +requires + rtl, + IndySystem120, + IndyCore120, + IndyProtocols120; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL120.rc b/delphi/IndyTLSOpenSSL120.rc similarity index 100% rename from IndyTLSOpenSSL120.rc rename to delphi/IndyTLSOpenSSL120.rc diff --git a/IndyTLSOpenSSL130.dpk b/delphi/IndyTLSOpenSSL130.dpk similarity index 87% rename from IndyTLSOpenSSL130.dpk rename to delphi/IndyTLSOpenSSL130.dpk index 6d60eea..072c6b0 100644 --- a/IndyTLSOpenSSL130.dpk +++ b/delphi/IndyTLSOpenSSL130.dpk @@ -1,35 +1,35 @@ -package IndyTLSOpenSSL130; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -requires - rtl, - IndySystem130, - IndyCore130, - IndyProtocols130; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL130; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +requires + rtl, + IndySystem130, + IndyCore130, + IndyProtocols130; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL130.rc b/delphi/IndyTLSOpenSSL130.rc similarity index 100% rename from IndyTLSOpenSSL130.rc rename to delphi/IndyTLSOpenSSL130.rc diff --git a/IndyTLSOpenSSL140.dpk b/delphi/IndyTLSOpenSSL140.dpk similarity index 87% rename from IndyTLSOpenSSL140.dpk rename to delphi/IndyTLSOpenSSL140.dpk index 9d04f84..1812c1a 100644 --- a/IndyTLSOpenSSL140.dpk +++ b/delphi/IndyTLSOpenSSL140.dpk @@ -1,36 +1,36 @@ -package IndyTLSOpenSSL140; - -{$R *.res} -{$ALIGN 8} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -requires - rtl, - IndySystem140, - IndyCore140, - IndyProtocols140; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL140; + +{$R *.res} +{$ALIGN 8} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +requires + rtl, + IndySystem140, + IndyCore140, + IndyProtocols140; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL140.rc b/delphi/IndyTLSOpenSSL140.rc similarity index 100% rename from IndyTLSOpenSSL140.rc rename to delphi/IndyTLSOpenSSL140.rc diff --git a/IndyTLSOpenSSL150.dpk b/delphi/IndyTLSOpenSSL150.dpk similarity index 87% rename from IndyTLSOpenSSL150.dpk rename to delphi/IndyTLSOpenSSL150.dpk index c3ba674..a138860 100644 --- a/IndyTLSOpenSSL150.dpk +++ b/delphi/IndyTLSOpenSSL150.dpk @@ -1,36 +1,36 @@ -package IndyTLSOpenSSL150; - -{$R *.res} -{$ALIGN 8} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -requires - rtl, - IndySystem150, - IndyCore150, - IndyProtocols150; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL150; + +{$R *.res} +{$ALIGN 8} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +requires + rtl, + IndySystem150, + IndyCore150, + IndyProtocols150; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL150.rc b/delphi/IndyTLSOpenSSL150.rc similarity index 100% rename from IndyTLSOpenSSL150.rc rename to delphi/IndyTLSOpenSSL150.rc diff --git a/IndyTLSOpenSSL160.dpk b/delphi/IndyTLSOpenSSL160.dpk similarity index 89% rename from IndyTLSOpenSSL160.dpk rename to delphi/IndyTLSOpenSSL160.dpk index 3517a5f..d91a126 100644 --- a/IndyTLSOpenSSL160.dpk +++ b/delphi/IndyTLSOpenSSL160.dpk @@ -1,44 +1,44 @@ -package IndyTLSOpenSSL160; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -requires - rtl, - IndySystem160, - IndyCore160, - IndyProtocols160; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL160; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +requires + rtl, + IndySystem160, + IndyCore160, + IndyProtocols160; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL160.rc b/delphi/IndyTLSOpenSSL160.rc similarity index 100% rename from IndyTLSOpenSSL160.rc rename to delphi/IndyTLSOpenSSL160.rc diff --git a/IndyTLSOpenSSL170.dpk b/delphi/IndyTLSOpenSSL170.dpk similarity index 89% rename from IndyTLSOpenSSL170.dpk rename to delphi/IndyTLSOpenSSL170.dpk index a5eeda5..491111a 100644 --- a/IndyTLSOpenSSL170.dpk +++ b/delphi/IndyTLSOpenSSL170.dpk @@ -1,46 +1,46 @@ -package IndyTLSOpenSSL170; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -requires - {$IFNDEF NEXTGEN} - rtl, - {$ENDIF} - IndySystem170, - IndyCore170, - IndyProtocols170; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL170; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +requires + {$IFNDEF NEXTGEN} + rtl, + {$ENDIF} + IndySystem170, + IndyCore170, + IndyProtocols170; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL170.rc b/delphi/IndyTLSOpenSSL170.rc similarity index 100% rename from IndyTLSOpenSSL170.rc rename to delphi/IndyTLSOpenSSL170.rc diff --git a/IndyTLSOpenSSL180.dpk b/delphi/IndyTLSOpenSSL180.dpk similarity index 90% rename from IndyTLSOpenSSL180.dpk rename to delphi/IndyTLSOpenSSL180.dpk index 45ee423..2897797 100644 --- a/IndyTLSOpenSSL180.dpk +++ b/delphi/IndyTLSOpenSSL180.dpk @@ -1,57 +1,57 @@ -package IndyTLSOpenSSL180; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER250} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -// RLebeau: cannot use IdCompilerDefines.inc here! - -{$DEFINE HAS_PKG_RTL} -{$IFDEF NEXTGEN} - {$IFDEF IOS} - // there is no RTL package available for iOS - {$UNDEF HAS_PKG_RTL} - {$ENDIF} -{$ENDIF} - -requires - {$IFDEF HAS_PKG_RTL} - rtl, - {$ENDIF} - IndySystem180, - IndyCore180, - IndyProtocols180; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL180; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER250} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +// RLebeau: cannot use IdCompilerDefines.inc here! + +{$DEFINE HAS_PKG_RTL} +{$IFDEF NEXTGEN} + {$IFDEF IOS} + // there is no RTL package available for iOS + {$UNDEF HAS_PKG_RTL} + {$ENDIF} +{$ENDIF} + +requires + {$IFDEF HAS_PKG_RTL} + rtl, + {$ENDIF} + IndySystem180, + IndyCore180, + IndyProtocols180; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL180.rc b/delphi/IndyTLSOpenSSL180.rc similarity index 100% rename from IndyTLSOpenSSL180.rc rename to delphi/IndyTLSOpenSSL180.rc diff --git a/IndyTLSOpenSSL190.dpk b/delphi/IndyTLSOpenSSL190.dpk similarity index 90% rename from IndyTLSOpenSSL190.dpk rename to delphi/IndyTLSOpenSSL190.dpk index 53f05ee..78af292 100644 --- a/IndyTLSOpenSSL190.dpk +++ b/delphi/IndyTLSOpenSSL190.dpk @@ -1,57 +1,57 @@ -package IndyTLSOpenSSL190; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER260} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -// RLebeau: cannot use IdCompilerDefines.inc here! - -{$DEFINE HAS_PKG_RTL} -{$IFDEF NEXTGEN} - {$IFDEF IOS} - // there is no RTL package available for iOS - {$UNDEF HAS_PKG_RTL} - {$ENDIF} -{$ENDIF} - -requires - {$IFDEF HAS_PKG_RTL} - rtl, - {$ENDIF} - IndySystem190, - IndyCore190, - IndyProtocols190; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL190; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER260} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +// RLebeau: cannot use IdCompilerDefines.inc here! + +{$DEFINE HAS_PKG_RTL} +{$IFDEF NEXTGEN} + {$IFDEF IOS} + // there is no RTL package available for iOS + {$UNDEF HAS_PKG_RTL} + {$ENDIF} +{$ENDIF} + +requires + {$IFDEF HAS_PKG_RTL} + rtl, + {$ENDIF} + IndySystem190, + IndyCore190, + IndyProtocols190; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL190.rc b/delphi/IndyTLSOpenSSL190.rc similarity index 100% rename from IndyTLSOpenSSL190.rc rename to delphi/IndyTLSOpenSSL190.rc diff --git a/IndyTLSOpenSSL200.dpk b/delphi/IndyTLSOpenSSL200.dpk similarity index 90% rename from IndyTLSOpenSSL200.dpk rename to delphi/IndyTLSOpenSSL200.dpk index e01f188..8f7b07a 100644 --- a/IndyTLSOpenSSL200.dpk +++ b/delphi/IndyTLSOpenSSL200.dpk @@ -1,57 +1,57 @@ -package IndyTLSOpenSSL200; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER270} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -// RLebeau: cannot use IdCompilerDefines.inc here! - -{$DEFINE HAS_PKG_RTL} -{$IFDEF NEXTGEN} - {$IFDEF IOS} - // there is no RTL package available for iOS - {$UNDEF HAS_PKG_RTL} - {$ENDIF} -{$ENDIF} - -requires - {$IFDEF HAS_PKG_RTL} - rtl, - {$ENDIF} - IndySystem200, - IndyCore200, - IndyProtocols200; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL200; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER270} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +// RLebeau: cannot use IdCompilerDefines.inc here! + +{$DEFINE HAS_PKG_RTL} +{$IFDEF NEXTGEN} + {$IFDEF IOS} + // there is no RTL package available for iOS + {$UNDEF HAS_PKG_RTL} + {$ENDIF} +{$ENDIF} + +requires + {$IFDEF HAS_PKG_RTL} + rtl, + {$ENDIF} + IndySystem200, + IndyCore200, + IndyProtocols200; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL200.rc b/delphi/IndyTLSOpenSSL200.rc similarity index 100% rename from IndyTLSOpenSSL200.rc rename to delphi/IndyTLSOpenSSL200.rc diff --git a/IndyTLSOpenSSL210.dpk b/delphi/IndyTLSOpenSSL210.dpk similarity index 90% rename from IndyTLSOpenSSL210.dpk rename to delphi/IndyTLSOpenSSL210.dpk index 753b818..4a6999b 100644 --- a/IndyTLSOpenSSL210.dpk +++ b/delphi/IndyTLSOpenSSL210.dpk @@ -1,57 +1,57 @@ -package IndyTLSOpenSSL210; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER280} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -// RLebeau: cannot use IdCompilerDefines.inc here! - -{$DEFINE HAS_PKG_RTL} -{$IFDEF NEXTGEN} - {$IFDEF IOS} - // there is no RTL package available for iOS - {$UNDEF HAS_PKG_RTL} - {$ENDIF} -{$ENDIF} - -requires - {$IFDEF HAS_PKG_RTL} - rtl, - {$ENDIF} - IndySystem210, - IndyCore210, - IndyProtocols210; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL210; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER280} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +// RLebeau: cannot use IdCompilerDefines.inc here! + +{$DEFINE HAS_PKG_RTL} +{$IFDEF NEXTGEN} + {$IFDEF IOS} + // there is no RTL package available for iOS + {$UNDEF HAS_PKG_RTL} + {$ENDIF} +{$ENDIF} + +requires + {$IFDEF HAS_PKG_RTL} + rtl, + {$ENDIF} + IndySystem210, + IndyCore210, + IndyProtocols210; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL210.rc b/delphi/IndyTLSOpenSSL210.rc similarity index 100% rename from IndyTLSOpenSSL210.rc rename to delphi/IndyTLSOpenSSL210.rc diff --git a/IndyTLSOpenSSL220.dpk b/delphi/IndyTLSOpenSSL220.dpk similarity index 90% rename from IndyTLSOpenSSL220.dpk rename to delphi/IndyTLSOpenSSL220.dpk index 77599a3..21fe340 100644 --- a/IndyTLSOpenSSL220.dpk +++ b/delphi/IndyTLSOpenSSL220.dpk @@ -1,57 +1,57 @@ -package IndyTLSOpenSSL220; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER290} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -// RLebeau: cannot use IdCompilerDefines.inc here! - -{$DEFINE HAS_PKG_RTL} -{$IFDEF NEXTGEN} - {$IFDEF IOS} - // there is no RTL package available for iOS - {$UNDEF HAS_PKG_RTL} - {$ENDIF} -{$ENDIF} - -requires - {$IFDEF HAS_PKG_RTL} - rtl, - {$ENDIF} - IndySystem220, - IndyCore220, - IndyProtocols220; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL220; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER290} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +// RLebeau: cannot use IdCompilerDefines.inc here! + +{$DEFINE HAS_PKG_RTL} +{$IFDEF NEXTGEN} + {$IFDEF IOS} + // there is no RTL package available for iOS + {$UNDEF HAS_PKG_RTL} + {$ENDIF} +{$ENDIF} + +requires + {$IFDEF HAS_PKG_RTL} + rtl, + {$ENDIF} + IndySystem220, + IndyCore220, + IndyProtocols220; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL220.rc b/delphi/IndyTLSOpenSSL220.rc similarity index 100% rename from IndyTLSOpenSSL220.rc rename to delphi/IndyTLSOpenSSL220.rc diff --git a/IndyTLSOpenSSL230.dpk b/delphi/IndyTLSOpenSSL230.dpk similarity index 90% rename from IndyTLSOpenSSL230.dpk rename to delphi/IndyTLSOpenSSL230.dpk index 079321d..d63bf36 100644 --- a/IndyTLSOpenSSL230.dpk +++ b/delphi/IndyTLSOpenSSL230.dpk @@ -1,57 +1,57 @@ -package IndyTLSOpenSSL230; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER300} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -// RLebeau: cannot use IdCompilerDefines.inc here! - -{$DEFINE HAS_PKG_RTL} -{$IFDEF NEXTGEN} - {$IFDEF IOS} - // there is no RTL package available for iOS - {$UNDEF HAS_PKG_RTL} - {$ENDIF} -{$ENDIF} - -requires - {$IFDEF HAS_PKG_RTL} - rtl, - {$ENDIF} - IndySystem230, - IndyCore230, - IndyProtocols230; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL230; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER300} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +// RLebeau: cannot use IdCompilerDefines.inc here! + +{$DEFINE HAS_PKG_RTL} +{$IFDEF NEXTGEN} + {$IFDEF IOS} + // there is no RTL package available for iOS + {$UNDEF HAS_PKG_RTL} + {$ENDIF} +{$ENDIF} + +requires + {$IFDEF HAS_PKG_RTL} + rtl, + {$ENDIF} + IndySystem230, + IndyCore230, + IndyProtocols230; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL230.rc b/delphi/IndyTLSOpenSSL230.rc similarity index 100% rename from IndyTLSOpenSSL230.rc rename to delphi/IndyTLSOpenSSL230.rc diff --git a/IndyTLSOpenSSL240.dpk b/delphi/IndyTLSOpenSSL240.dpk similarity index 90% rename from IndyTLSOpenSSL240.dpk rename to delphi/IndyTLSOpenSSL240.dpk index 6721431..642cf96 100644 --- a/IndyTLSOpenSSL240.dpk +++ b/delphi/IndyTLSOpenSSL240.dpk @@ -1,57 +1,57 @@ -package IndyTLSOpenSSL240; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER310} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -// RLebeau: cannot use IdCompilerDefines.inc here! - -{$DEFINE HAS_PKG_RTL} -{$IFDEF NEXTGEN} - {$IFDEF IOS} - // there is no RTL package available for iOS - {$UNDEF HAS_PKG_RTL} - {$ENDIF} -{$ENDIF} - -requires - {$IFDEF HAS_PKG_RTL} - rtl, - {$ENDIF} - IndySystem240, - IndyCore240, - IndyProtocols240; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL240; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER310} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +// RLebeau: cannot use IdCompilerDefines.inc here! + +{$DEFINE HAS_PKG_RTL} +{$IFDEF NEXTGEN} + {$IFDEF IOS} + // there is no RTL package available for iOS + {$UNDEF HAS_PKG_RTL} + {$ENDIF} +{$ENDIF} + +requires + {$IFDEF HAS_PKG_RTL} + rtl, + {$ENDIF} + IndySystem240, + IndyCore240, + IndyProtocols240; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL240.rc b/delphi/IndyTLSOpenSSL240.rc similarity index 100% rename from IndyTLSOpenSSL240.rc rename to delphi/IndyTLSOpenSSL240.rc diff --git a/IndyTLSOpenSSL250.dpk b/delphi/IndyTLSOpenSSL250.dpk similarity index 90% rename from IndyTLSOpenSSL250.dpk rename to delphi/IndyTLSOpenSSL250.dpk index 335edf0..ed84f85 100644 --- a/IndyTLSOpenSSL250.dpk +++ b/delphi/IndyTLSOpenSSL250.dpk @@ -1,57 +1,57 @@ -package IndyTLSOpenSSL250; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER320} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -// RLebeau: cannot use IdCompilerDefines.inc here! - -{$DEFINE HAS_PKG_RTL} -{$IFDEF NEXTGEN} - {$IFDEF IOS} - // there is no RTL package available for iOS - {$UNDEF HAS_PKG_RTL} - {$ENDIF} -{$ENDIF} - -requires - {$IFDEF HAS_PKG_RTL} - rtl, - {$ENDIF} - IndySystem250, - IndyCore250, - IndyProtocols250; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL250; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER320} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +// RLebeau: cannot use IdCompilerDefines.inc here! + +{$DEFINE HAS_PKG_RTL} +{$IFDEF NEXTGEN} + {$IFDEF IOS} + // there is no RTL package available for iOS + {$UNDEF HAS_PKG_RTL} + {$ENDIF} +{$ENDIF} + +requires + {$IFDEF HAS_PKG_RTL} + rtl, + {$ENDIF} + IndySystem250, + IndyCore250, + IndyProtocols250; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL250.rc b/delphi/IndyTLSOpenSSL250.rc similarity index 100% rename from IndyTLSOpenSSL250.rc rename to delphi/IndyTLSOpenSSL250.rc diff --git a/IndyTLSOpenSSL260.dpk b/delphi/IndyTLSOpenSSL260.dpk similarity index 90% rename from IndyTLSOpenSSL260.dpk rename to delphi/IndyTLSOpenSSL260.dpk index 3e348eb..366c308 100644 --- a/IndyTLSOpenSSL260.dpk +++ b/delphi/IndyTLSOpenSSL260.dpk @@ -1,57 +1,57 @@ -package IndyTLSOpenSSL260; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER330} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -// RLebeau: cannot use IdCompilerDefines.inc here! - -{$DEFINE HAS_PKG_RTL} -{$IFDEF NEXTGEN} - {$IFDEF IOS} - // there is no RTL package available for iOS - {$UNDEF HAS_PKG_RTL} - {$ENDIF} -{$ENDIF} - -requires - {$IFDEF HAS_PKG_RTL} - rtl, - {$ENDIF} - IndySystem260, - IndyCore260, - IndyProtocols260; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL260; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER330} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +// RLebeau: cannot use IdCompilerDefines.inc here! + +{$DEFINE HAS_PKG_RTL} +{$IFDEF NEXTGEN} + {$IFDEF IOS} + // there is no RTL package available for iOS + {$UNDEF HAS_PKG_RTL} + {$ENDIF} +{$ENDIF} + +requires + {$IFDEF HAS_PKG_RTL} + rtl, + {$ENDIF} + IndySystem260, + IndyCore260, + IndyProtocols260; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL260.rc b/delphi/IndyTLSOpenSSL260.rc similarity index 100% rename from IndyTLSOpenSSL260.rc rename to delphi/IndyTLSOpenSSL260.rc diff --git a/IndyTLSOpenSSL270.dpk b/delphi/IndyTLSOpenSSL270.dpk similarity index 90% rename from IndyTLSOpenSSL270.dpk rename to delphi/IndyTLSOpenSSL270.dpk index 631e298..d2b259e 100644 --- a/IndyTLSOpenSSL270.dpk +++ b/delphi/IndyTLSOpenSSL270.dpk @@ -1,57 +1,57 @@ -package IndyTLSOpenSSL270; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER340} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -// RLebeau: cannot use IdCompilerDefines.inc here! - -{$DEFINE HAS_PKG_RTL} -{$IFDEF NEXTGEN} - {$IFDEF IOS} - // there is no RTL package available for iOS - {$UNDEF HAS_PKG_RTL} - {$ENDIF} -{$ENDIF} - -requires - {$IFDEF HAS_PKG_RTL} - rtl, - {$ENDIF} - IndySystem270, - IndyCore270, - IndyProtocols270; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL270; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER340} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +// RLebeau: cannot use IdCompilerDefines.inc here! + +{$DEFINE HAS_PKG_RTL} +{$IFDEF NEXTGEN} + {$IFDEF IOS} + // there is no RTL package available for iOS + {$UNDEF HAS_PKG_RTL} + {$ENDIF} +{$ENDIF} + +requires + {$IFDEF HAS_PKG_RTL} + rtl, + {$ENDIF} + IndySystem270, + IndyCore270, + IndyProtocols270; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL270.rc b/delphi/IndyTLSOpenSSL270.rc similarity index 100% rename from IndyTLSOpenSSL270.rc rename to delphi/IndyTLSOpenSSL270.rc diff --git a/IndyTLSOpenSSL280.dpk b/delphi/IndyTLSOpenSSL280.dpk similarity index 90% rename from IndyTLSOpenSSL280.dpk rename to delphi/IndyTLSOpenSSL280.dpk index 45f8375..2012a18 100644 --- a/IndyTLSOpenSSL280.dpk +++ b/delphi/IndyTLSOpenSSL280.dpk @@ -1,57 +1,57 @@ -package IndyTLSOpenSSL280; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER350} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -// RLebeau: cannot use IdCompilerDefines.inc here! - -{$DEFINE HAS_PKG_RTL} -{$IFDEF NEXTGEN} - {$IFDEF IOS} - // there is no RTL package available for iOS - {$UNDEF HAS_PKG_RTL} - {$ENDIF} -{$ENDIF} - -requires - {$IFDEF HAS_PKG_RTL} - rtl, - {$ENDIF} - IndySystem280, - IndyCore280, - IndyProtocols280; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL280; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER350} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +// RLebeau: cannot use IdCompilerDefines.inc here! + +{$DEFINE HAS_PKG_RTL} +{$IFDEF NEXTGEN} + {$IFDEF IOS} + // there is no RTL package available for iOS + {$UNDEF HAS_PKG_RTL} + {$ENDIF} +{$ENDIF} + +requires + {$IFDEF HAS_PKG_RTL} + rtl, + {$ENDIF} + IndySystem280, + IndyCore280, + IndyProtocols280; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL280.rc b/delphi/IndyTLSOpenSSL280.rc similarity index 100% rename from IndyTLSOpenSSL280.rc rename to delphi/IndyTLSOpenSSL280.rc diff --git a/IndyTLSOpenSSL290.dpk b/delphi/IndyTLSOpenSSL290.dpk similarity index 51% rename from IndyTLSOpenSSL290.dpk rename to delphi/IndyTLSOpenSSL290.dpk index d99a004..542b6a2 100644 --- a/IndyTLSOpenSSL290.dpk +++ b/delphi/IndyTLSOpenSSL290.dpk @@ -1,45 +1,47 @@ -package IndyTLSOpenSSL290; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS ON} -{$RANGECHECKS ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE HAS_PKG_RTL} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -requires - rtl, - IndySystem290, - IndyCore290, - IndyProtocols290; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL290; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$ENDIF IMPLICITBUILDING} +{$IMPLICITBUILD ON} + +requires + rtl, + IndySystem290, + IndyCore290, + IndyProtocols290; + +contains + IdResourceStringsOpenSSL in '..\src\IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in '..\src\IdNTLMOpenSSL.pas', + IdSSLOpenSSL in '..\src\IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in '..\src\IdSSLOpenSSLFIPS.pas', + IdSSLOpenSSLOptions in '..\src\IdSSLOpenSSLOptions.pas', + IdSSLOpenSSLSocket in '..\src\IdSSLOpenSSLSocket.pas', + IdSSLOpenSSLUtils in '..\src\IdSSLOpenSSLUtils.pas', + IdSSLOpenSSLX509 in '..\src\IdSSLOpenSSLX509.pas', + IdSSLwincrypt in '..\src\IdSSLwincrypt.pas'; + +end. diff --git a/delphi/IndyTLSOpenSSL290.dproj b/delphi/IndyTLSOpenSSL290.dproj new file mode 100644 index 0000000..004e06a --- /dev/null +++ b/delphi/IndyTLSOpenSSL290.dproj @@ -0,0 +1,212 @@ +<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <PropertyGroup> + <ProjectGuid>{34520D67-BF4C-4506-884B-E99D31A6159A}</ProjectGuid> + <MainSource>IndyTLSOpenSSL290.dpk</MainSource> + <ProjectVersion>20.1</ProjectVersion> + <FrameworkType>None</FrameworkType> + <Base>True</Base> + <Config Condition="'$(Config)'==''">Release</Config> + <Platform Condition="'$(Platform)'==''">Win64</Platform> + <TargetedPlatforms>3</TargetedPlatforms> + <AppType>Package</AppType> + <ProjectName Condition="'$(ProjectName)'==''">IndyTLSOpenSSL290</ProjectName> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''"> + <Base_Android>true</Base_Android> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''"> + <Base_Android64>true</Base_Android64> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> + <Base_Win32>true</Base_Win32> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''"> + <Base_Win64>true</Base_Win64> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Win64x' and '$(Base)'=='true') or '$(Base_Win64x)'!=''"> + <Base_Win64x>true</Base_Win64x> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''"> + <Cfg_1>true</Cfg_1> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''"> + <Cfg_1_Win32>true</Cfg_1_Win32> + <CfgParent>Cfg_1</CfgParent> + <Cfg_1>true</Cfg_1> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''"> + <Cfg_1_Win64>true</Cfg_1_Win64> + <CfgParent>Cfg_1</CfgParent> + <Cfg_1>true</Cfg_1> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''"> + <Cfg_2>true</Cfg_2> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''"> + <Cfg_2_Win32>true</Cfg_2_Win32> + <CfgParent>Cfg_2</CfgParent> + <Cfg_2>true</Cfg_2> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''"> + <Cfg_2_Win64>true</Cfg_2_Win64> + <CfgParent>Cfg_2</CfgParent> + <Cfg_2>true</Cfg_2> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Base)'!=''"> + <GenDll>true</GenDll> + <SanitizedProjectName>IndyTLSOpenSSL290</SanitizedProjectName> + <DCC_CBuilderOutput>All</DCC_CBuilderOutput> + <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace> + <GenPackage>true</GenPackage> + <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput> + <DCC_E>false</DCC_E> + <DCC_N>false</DCC_N> + <DCC_S>false</DCC_S> + <DCC_F>false</DCC_F> + <DCC_K>false</DCC_K> + <VerInfo_Locale>2057</VerInfo_Locale> + <DCC_UnitSearchPath>..\src;..\src\opensslHdrs;$(DCC_UnitSearchPath)</DCC_UnitSearchPath> + <VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys> + </PropertyGroup> + <PropertyGroup Condition="'$(Base_Android)'!=''"> + <Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192> + <VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=</VerInfo_Keys> + <BT_BuildType>Debug</BT_BuildType> + <EnabledSysJars>activity-1.7.2.dex.jar;annotation-experimental-1.3.0.dex.jar;annotation-jvm-1.6.0.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-6.0.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-1.1.0.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.10.1.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.10.1.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.1.dex.jar;lifecycle-livedata-2.6.1.dex.jar;lifecycle-livedata-core-2.6.1.dex.jar;lifecycle-runtime-2.6.1.dex.jar;lifecycle-service-2.6.1.dex.jar;lifecycle-viewmodel-2.6.1.dex.jar;lifecycle-viewmodel-savedstate-2.6.1.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.1.0.dex.jar;play-services-basement-18.1.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.0.2.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.0.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar</EnabledSysJars> + </PropertyGroup> + <PropertyGroup Condition="'$(Base_Android64)'!=''"> + <Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192> + <VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=</VerInfo_Keys> + <BT_BuildType>Debug</BT_BuildType> + <EnabledSysJars>activity-1.7.2.dex.jar;annotation-experimental-1.3.0.dex.jar;annotation-jvm-1.6.0.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-6.0.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-1.1.0.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.10.1.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.10.1.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.1.dex.jar;lifecycle-livedata-2.6.1.dex.jar;lifecycle-livedata-core-2.6.1.dex.jar;lifecycle-runtime-2.6.1.dex.jar;lifecycle-service-2.6.1.dex.jar;lifecycle-viewmodel-2.6.1.dex.jar;lifecycle-viewmodel-savedstate-2.6.1.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.1.0.dex.jar;play-services-basement-18.1.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.0.2.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.0.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar</EnabledSysJars> + </PropertyGroup> + <PropertyGroup Condition="'$(Base_Win32)'!=''"> + <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> + <VerInfo_Locale>1033</VerInfo_Locale> + <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> + </PropertyGroup> + <PropertyGroup Condition="'$(Base_Win64)'!=''"> + <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace> + <BT_BuildType>Debug</BT_BuildType> + <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> + <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> + <VerInfo_Locale>1033</VerInfo_Locale> + </PropertyGroup> + <PropertyGroup Condition="'$(Base_Win64x)'!=''"> + <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace> + <BT_BuildType>Debug</BT_BuildType> + <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> + <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> + <VerInfo_Locale>1033</VerInfo_Locale> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_1)'!=''"> + <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> + <DCC_DebugDCUs>true</DCC_DebugDCUs> + <DCC_Optimize>false</DCC_Optimize> + <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> + <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe> + <DCC_RemoteDebug>true</DCC_RemoteDebug> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''"> + <Debugger_CWD>C:\Users\A User\projects\IndyTLS-OpenSSL\Test\openssl-server</Debugger_CWD> + <Debugger_HostApplication>C:\Users\A User\projects\IndyTLS-OpenSSL\Test\openssl-server\delphi_openssl_server.exe</Debugger_HostApplication> + <VerInfo_Locale>1033</VerInfo_Locale> + <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> + <DCC_RemoteDebug>false</DCC_RemoteDebug> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''"> + <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> + <VerInfo_Locale>1033</VerInfo_Locale> + <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_2)'!=''"> + <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols> + <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> + <DCC_DebugInformation>0</DCC_DebugInformation> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> + <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> + <VerInfo_Locale>1033</VerInfo_Locale> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''"> + <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> + <VerInfo_Locale>1033</VerInfo_Locale> + <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> + </PropertyGroup> + <ItemGroup> + <DelphiCompile Include="$(MainSource)"> + <MainSource>MainSource</MainSource> + </DelphiCompile> + <DCCReference Include="rtl.dcp"/> + <DCCReference Include="IndySystem290.dcp"/> + <DCCReference Include="IndyCore290.dcp"/> + <DCCReference Include="IndyProtocols290.dcp"/> + <DCCReference Include="..\src\IdResourceStringsOpenSSL.pas"/> + <DCCReference Include="..\src\IdNTLMOpenSSL.pas"/> + <DCCReference Include="..\src\IdSSLOpenSSL.pas"/> + <DCCReference Include="..\src\IdSSLOpenSSLFIPS.pas"/> + <DCCReference Include="..\src\IdSSLOpenSSLOptions.pas"/> + <DCCReference Include="..\src\IdSSLOpenSSLSocket.pas"/> + <DCCReference Include="..\src\IdSSLOpenSSLUtils.pas"/> + <DCCReference Include="..\src\IdSSLOpenSSLX509.pas"/> + <DCCReference Include="..\src\IdSSLwincrypt.pas"/> + <BuildConfiguration Include="Base"> + <Key>Base</Key> + </BuildConfiguration> + <BuildConfiguration Include="Debug"> + <Key>Cfg_1</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + <BuildConfiguration Include="Release"> + <Key>Cfg_2</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + </ItemGroup> + <ProjectExtensions> + <Borland.Personality>Delphi.Personality.12</Borland.Personality> + <Borland.ProjectType>Package</Borland.ProjectType> + <BorlandProject> + <Delphi.Personality> + <Source> + <Source Name="MainSource">IndyTLSOpenSSL290.dpk</Source> + </Source> + <Excluded_Packages> + <Excluded_Packages Name="$(BDSBIN)\dcloffice2k290.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages> + <Excluded_Packages Name="$(BDSBIN)\dclofficexp290.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages> + </Excluded_Packages> + </Delphi.Personality> + <Platforms> + <Platform value="Android">False</Platform> + <Platform value="Android64">False</Platform> + <Platform value="Win32">True</Platform> + <Platform value="Win64">True</Platform> + <Platform value="Win64x">False</Platform> + </Platforms> + </BorlandProject> + <ProjectFileVersion>12</ProjectFileVersion> + </ProjectExtensions> + <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/> + <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/> +</Project> diff --git a/IndyTLSOpenSSL290.rc b/delphi/IndyTLSOpenSSL290.rc similarity index 100% rename from IndyTLSOpenSSL290.rc rename to delphi/IndyTLSOpenSSL290.rc diff --git a/IndyTLSOpenSSL40.dpk b/delphi/IndyTLSOpenSSL40.dpk similarity index 87% rename from IndyTLSOpenSSL40.dpk rename to delphi/IndyTLSOpenSSL40.dpk index 18b995e..9c64f9e 100644 --- a/IndyTLSOpenSSL40.dpk +++ b/delphi/IndyTLSOpenSSL40.dpk @@ -1,34 +1,34 @@ -package IndyTLSOpenSSL40; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -requires - IndySystem40, - IndyCore40, - IndyProtocols40; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL40; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +requires + IndySystem40, + IndyCore40, + IndyProtocols40; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL40.rc b/delphi/IndyTLSOpenSSL40.rc similarity index 100% rename from IndyTLSOpenSSL40.rc rename to delphi/IndyTLSOpenSSL40.rc diff --git a/IndyTLSOpenSSL50.dpk b/delphi/IndyTLSOpenSSL50.dpk similarity index 87% rename from IndyTLSOpenSSL50.dpk rename to delphi/IndyTLSOpenSSL50.dpk index c0534e5..7dafc45 100644 --- a/IndyTLSOpenSSL50.dpk +++ b/delphi/IndyTLSOpenSSL50.dpk @@ -1,34 +1,34 @@ -package IndyTLSOpenSSL50; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -requires - IndySystem50, - IndyCore50, - IndyProtocols50; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL50; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +requires + IndySystem50, + IndyCore50, + IndyProtocols50; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL50.rc b/delphi/IndyTLSOpenSSL50.rc similarity index 100% rename from IndyTLSOpenSSL50.rc rename to delphi/IndyTLSOpenSSL50.rc diff --git a/IndyTLSOpenSSL60.dpk b/delphi/IndyTLSOpenSSL60.dpk similarity index 87% rename from IndyTLSOpenSSL60.dpk rename to delphi/IndyTLSOpenSSL60.dpk index 831315d..6c5778f 100644 --- a/IndyTLSOpenSSL60.dpk +++ b/delphi/IndyTLSOpenSSL60.dpk @@ -1,35 +1,35 @@ -package IndyTLSOpenSSL60; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -requires - rtl, - IndySystem60, - IndyCore60, - IndyProtocols60; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL60; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +requires + rtl, + IndySystem60, + IndyCore60, + IndyProtocols60; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL60.rc b/delphi/IndyTLSOpenSSL60.rc similarity index 100% rename from IndyTLSOpenSSL60.rc rename to delphi/IndyTLSOpenSSL60.rc diff --git a/IndyTLSOpenSSL70.dpk b/delphi/IndyTLSOpenSSL70.dpk similarity index 87% rename from IndyTLSOpenSSL70.dpk rename to delphi/IndyTLSOpenSSL70.dpk index 396efe9..4f69b62 100644 --- a/IndyTLSOpenSSL70.dpk +++ b/delphi/IndyTLSOpenSSL70.dpk @@ -1,35 +1,35 @@ -package IndyTLSOpenSSL70; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -requires - rtl, - IndySystem70, - IndyCore70, - IndyProtocols70; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL70; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +requires + rtl, + IndySystem70, + IndyCore70, + IndyProtocols70; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL70.rc b/delphi/IndyTLSOpenSSL70.rc similarity index 100% rename from IndyTLSOpenSSL70.rc rename to delphi/IndyTLSOpenSSL70.rc diff --git a/IndyTLSOpenSSL80.dpk b/delphi/IndyTLSOpenSSL80.dpk similarity index 87% rename from IndyTLSOpenSSL80.dpk rename to delphi/IndyTLSOpenSSL80.dpk index 3d165ba..a27afcd 100644 --- a/IndyTLSOpenSSL80.dpk +++ b/delphi/IndyTLSOpenSSL80.dpk @@ -1,35 +1,35 @@ -package IndyTLSOpenSSL80; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -requires - rtl, - IndySystem80, - IndyCore80, - IndyProtocols80; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL80; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +requires + rtl, + IndySystem80, + IndyCore80, + IndyProtocols80; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL80.rc b/delphi/IndyTLSOpenSSL80.rc similarity index 100% rename from IndyTLSOpenSSL80.rc rename to delphi/IndyTLSOpenSSL80.rc diff --git a/IndyTLSOpenSSL90.dpk b/delphi/IndyTLSOpenSSL90.dpk similarity index 87% rename from IndyTLSOpenSSL90.dpk rename to delphi/IndyTLSOpenSSL90.dpk index 478293a..431ef87 100644 --- a/IndyTLSOpenSSL90.dpk +++ b/delphi/IndyTLSOpenSSL90.dpk @@ -1,36 +1,36 @@ -package IndyTLSOpenSSL90; - -{$R *.res} -{$ALIGN 8} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -requires - rtl, - IndySystem90, - IndyCore90, - IndyProtocols90; - -contains - IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', - IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', - IdSSLOpenSSL in 'IdSSLOpenSSL.pas', - IdSSLOpenSSLHeaders in 'IdSSLOpenSSLHeaders.pas'; - -end. +package IndyTLSOpenSSL90; + +{$R *.res} +{$ALIGN 8} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS - OpenSSL'} +{$RUNONLY} +{$IMPLICITBUILD OFF} + +requires + rtl, + IndySystem90, + IndyCore90, + IndyProtocols90; + +contains + IdResourceStringsOpenSSL in 'IdResourceStringsOpenSSL.pas', + IdNTLMOpenSSL in 'IdNTLMOpenSSL.pas', + IdSSLOpenSSL in 'IdSSLOpenSSL.pas', + IdSSLOpenSSLFIPS in 'IdSSLOpenSSLFIPS.pas'; + +end. diff --git a/IndyTLSOpenSSL90.rc b/delphi/IndyTLSOpenSSL90.rc similarity index 100% rename from IndyTLSOpenSSL90.rc rename to delphi/IndyTLSOpenSSL90.rc diff --git a/dclIndyTLSOpenSSL.rc b/delphi/dclIndyTLSOpenSSL.rc similarity index 100% rename from dclIndyTLSOpenSSL.rc rename to delphi/dclIndyTLSOpenSSL.rc diff --git a/dclIndyTLSOpenSSL100.dpk b/delphi/dclIndyTLSOpenSSL100.dpk similarity index 94% rename from dclIndyTLSOpenSSL100.dpk rename to delphi/dclIndyTLSOpenSSL100.dpk index 0431d7e..a170631 100644 --- a/dclIndyTLSOpenSSL100.dpk +++ b/delphi/dclIndyTLSOpenSSL100.dpk @@ -1,31 +1,31 @@ -package dclIndyTLSOpenSSL100; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL100, - dclIndyCore100; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL100; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL100, + dclIndyCore100; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL100.rc b/delphi/dclIndyTLSOpenSSL100.rc similarity index 100% rename from dclIndyTLSOpenSSL100.rc rename to delphi/dclIndyTLSOpenSSL100.rc diff --git a/dclIndyTLSOpenSSL110.dpk b/delphi/dclIndyTLSOpenSSL110.dpk similarity index 94% rename from dclIndyTLSOpenSSL110.dpk rename to delphi/dclIndyTLSOpenSSL110.dpk index f4df830..9d9b2e1 100644 --- a/dclIndyTLSOpenSSL110.dpk +++ b/delphi/dclIndyTLSOpenSSL110.dpk @@ -1,31 +1,31 @@ -package dclIndyTLSOpenSSL110; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL110, - dclIndyCore110; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL110; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL110, + dclIndyCore110; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL110.rc b/delphi/dclIndyTLSOpenSSL110.rc similarity index 100% rename from dclIndyTLSOpenSSL110.rc rename to delphi/dclIndyTLSOpenSSL110.rc diff --git a/dclIndyTLSOpenSSL120.dpk b/delphi/dclIndyTLSOpenSSL120.dpk similarity index 94% rename from dclIndyTLSOpenSSL120.dpk rename to delphi/dclIndyTLSOpenSSL120.dpk index 3fe9b33..ede67b9 100644 --- a/dclIndyTLSOpenSSL120.dpk +++ b/delphi/dclIndyTLSOpenSSL120.dpk @@ -1,31 +1,31 @@ -package dclIndyTLSOpenSSL120; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL120, - dclIndyCore120; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL120; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL120, + dclIndyCore120; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL120.rc b/delphi/dclIndyTLSOpenSSL120.rc similarity index 100% rename from dclIndyTLSOpenSSL120.rc rename to delphi/dclIndyTLSOpenSSL120.rc diff --git a/dclIndyTLSOpenSSL130.dpk b/delphi/dclIndyTLSOpenSSL130.dpk similarity index 94% rename from dclIndyTLSOpenSSL130.dpk rename to delphi/dclIndyTLSOpenSSL130.dpk index d61cf68..4f63c1b 100644 --- a/dclIndyTLSOpenSSL130.dpk +++ b/delphi/dclIndyTLSOpenSSL130.dpk @@ -1,31 +1,31 @@ -package dclIndyTLSOpenSSL130; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL130, - dclIndyCore130; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL130; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL130, + dclIndyCore130; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL130.rc b/delphi/dclIndyTLSOpenSSL130.rc similarity index 100% rename from dclIndyTLSOpenSSL130.rc rename to delphi/dclIndyTLSOpenSSL130.rc diff --git a/dclIndyTLSOpenSSL140.dpk b/delphi/dclIndyTLSOpenSSL140.dpk similarity index 94% rename from dclIndyTLSOpenSSL140.dpk rename to delphi/dclIndyTLSOpenSSL140.dpk index 19d8311..6a1d2f3 100644 --- a/dclIndyTLSOpenSSL140.dpk +++ b/delphi/dclIndyTLSOpenSSL140.dpk @@ -1,32 +1,32 @@ -package dclIndyTLSOpenSSL140; - -{$R *.res} -{$ALIGN 8} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL140, - dclIndyCore140; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL140; + +{$R *.res} +{$ALIGN 8} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL140, + dclIndyCore140; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL140.rc b/delphi/dclIndyTLSOpenSSL140.rc similarity index 100% rename from dclIndyTLSOpenSSL140.rc rename to delphi/dclIndyTLSOpenSSL140.rc diff --git a/dclIndyTLSOpenSSL150.dpk b/delphi/dclIndyTLSOpenSSL150.dpk similarity index 94% rename from dclIndyTLSOpenSSL150.dpk rename to delphi/dclIndyTLSOpenSSL150.dpk index 5079541..02289da 100644 --- a/dclIndyTLSOpenSSL150.dpk +++ b/delphi/dclIndyTLSOpenSSL150.dpk @@ -1,32 +1,32 @@ -package dclIndyTLSOpenSSL150; - -{$R *.res} -{$ALIGN 8} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL150, - dclIndyCore150; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL150; + +{$R *.res} +{$ALIGN 8} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL150, + dclIndyCore150; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL150.rc b/delphi/dclIndyTLSOpenSSL150.rc similarity index 100% rename from dclIndyTLSOpenSSL150.rc rename to delphi/dclIndyTLSOpenSSL150.rc diff --git a/dclIndyTLSOpenSSL160.dpk b/delphi/dclIndyTLSOpenSSL160.dpk similarity index 94% rename from dclIndyTLSOpenSSL160.dpk rename to delphi/dclIndyTLSOpenSSL160.dpk index af993b9..febd389 100644 --- a/dclIndyTLSOpenSSL160.dpk +++ b/delphi/dclIndyTLSOpenSSL160.dpk @@ -1,40 +1,40 @@ -package dclIndyTLSOpenSSL60; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL160, - dclIndyCore160; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL60; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL160, + dclIndyCore160; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL160.rc b/delphi/dclIndyTLSOpenSSL160.rc similarity index 100% rename from dclIndyTLSOpenSSL160.rc rename to delphi/dclIndyTLSOpenSSL160.rc diff --git a/dclIndyTLSOpenSSL170.dpk b/delphi/dclIndyTLSOpenSSL170.dpk similarity index 94% rename from dclIndyTLSOpenSSL170.dpk rename to delphi/dclIndyTLSOpenSSL170.dpk index 82faf0a..87a2a49 100644 --- a/dclIndyTLSOpenSSL170.dpk +++ b/delphi/dclIndyTLSOpenSSL170.dpk @@ -1,40 +1,40 @@ -package dclIndyTLSOpenSSL170; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL170, - dclIndyCore170; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL170; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL170, + dclIndyCore170; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL170.rc b/delphi/dclIndyTLSOpenSSL170.rc similarity index 100% rename from dclIndyTLSOpenSSL170.rc rename to delphi/dclIndyTLSOpenSSL170.rc diff --git a/dclIndyTLSOpenSSL180.dpk b/delphi/dclIndyTLSOpenSSL180.dpk similarity index 94% rename from dclIndyTLSOpenSSL180.dpk rename to delphi/dclIndyTLSOpenSSL180.dpk index b38c968..0d1a03e 100644 --- a/dclIndyTLSOpenSSL180.dpk +++ b/delphi/dclIndyTLSOpenSSL180.dpk @@ -1,41 +1,41 @@ -package dclIndyTLSOpenSSL180; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER250} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL180, - dclIndyCore180; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL180; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER250} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL180, + dclIndyCore180; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL180.rc b/delphi/dclIndyTLSOpenSSL180.rc similarity index 100% rename from dclIndyTLSOpenSSL180.rc rename to delphi/dclIndyTLSOpenSSL180.rc diff --git a/dclIndyTLSOpenSSL190.dpk b/delphi/dclIndyTLSOpenSSL190.dpk similarity index 94% rename from dclIndyTLSOpenSSL190.dpk rename to delphi/dclIndyTLSOpenSSL190.dpk index bb24a3d..eb7da84 100644 --- a/dclIndyTLSOpenSSL190.dpk +++ b/delphi/dclIndyTLSOpenSSL190.dpk @@ -1,41 +1,41 @@ -package dclIndyTLSOpenSSL190; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER260} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL190, - dclIndyCore190; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL190; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER260} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL190, + dclIndyCore190; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL190.rc b/delphi/dclIndyTLSOpenSSL190.rc similarity index 100% rename from dclIndyTLSOpenSSL190.rc rename to delphi/dclIndyTLSOpenSSL190.rc diff --git a/dclIndyTLSOpenSSL200.dpk b/delphi/dclIndyTLSOpenSSL200.dpk similarity index 94% rename from dclIndyTLSOpenSSL200.dpk rename to delphi/dclIndyTLSOpenSSL200.dpk index 3e55789..fec59f3 100644 --- a/dclIndyTLSOpenSSL200.dpk +++ b/delphi/dclIndyTLSOpenSSL200.dpk @@ -1,41 +1,41 @@ -package dclIndyTLSOpenSSL200; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER270} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL200, - dclIndyCore200; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL200; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER270} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL200, + dclIndyCore200; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL200.rc b/delphi/dclIndyTLSOpenSSL200.rc similarity index 100% rename from dclIndyTLSOpenSSL200.rc rename to delphi/dclIndyTLSOpenSSL200.rc diff --git a/dclIndyTLSOpenSSL210.dpk b/delphi/dclIndyTLSOpenSSL210.dpk similarity index 94% rename from dclIndyTLSOpenSSL210.dpk rename to delphi/dclIndyTLSOpenSSL210.dpk index 2fd6fd2..0c952ab 100644 --- a/dclIndyTLSOpenSSL210.dpk +++ b/delphi/dclIndyTLSOpenSSL210.dpk @@ -1,41 +1,41 @@ -package dclIndyTLSOpenSSL210; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER280} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL210, - dclIndyCore210; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL210; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER280} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL210, + dclIndyCore210; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL210.rc b/delphi/dclIndyTLSOpenSSL210.rc similarity index 100% rename from dclIndyTLSOpenSSL210.rc rename to delphi/dclIndyTLSOpenSSL210.rc diff --git a/dclIndyTLSOpenSSL220.dpk b/delphi/dclIndyTLSOpenSSL220.dpk similarity index 94% rename from dclIndyTLSOpenSSL220.dpk rename to delphi/dclIndyTLSOpenSSL220.dpk index 592b069..cb8882a 100644 --- a/dclIndyTLSOpenSSL220.dpk +++ b/delphi/dclIndyTLSOpenSSL220.dpk @@ -1,41 +1,41 @@ -package dclIndyTLSOpenSSL220; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER290} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL220, - dclIndyCore220; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL220; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER290} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL220, + dclIndyCore220; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL220.rc b/delphi/dclIndyTLSOpenSSL220.rc similarity index 100% rename from dclIndyTLSOpenSSL220.rc rename to delphi/dclIndyTLSOpenSSL220.rc diff --git a/dclIndyTLSOpenSSL230.dpk b/delphi/dclIndyTLSOpenSSL230.dpk similarity index 94% rename from dclIndyTLSOpenSSL230.dpk rename to delphi/dclIndyTLSOpenSSL230.dpk index a6b031a..4b1e547 100644 --- a/dclIndyTLSOpenSSL230.dpk +++ b/delphi/dclIndyTLSOpenSSL230.dpk @@ -1,41 +1,41 @@ -package dclIndyTLSOpenSSL230; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER300} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL230, - dclIndyCore230; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL230; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER300} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL230, + dclIndyCore230; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL230.rc b/delphi/dclIndyTLSOpenSSL230.rc similarity index 100% rename from dclIndyTLSOpenSSL230.rc rename to delphi/dclIndyTLSOpenSSL230.rc diff --git a/dclIndyTLSOpenSSL240.dpk b/delphi/dclIndyTLSOpenSSL240.dpk similarity index 94% rename from dclIndyTLSOpenSSL240.dpk rename to delphi/dclIndyTLSOpenSSL240.dpk index 04e0774..a227202 100644 --- a/dclIndyTLSOpenSSL240.dpk +++ b/delphi/dclIndyTLSOpenSSL240.dpk @@ -1,41 +1,41 @@ -package dclIndyTLSOpenSSL240; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER310} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL240, - dclIndyCore240; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL240; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER310} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL240, + dclIndyCore240; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL240.rc b/delphi/dclIndyTLSOpenSSL240.rc similarity index 100% rename from dclIndyTLSOpenSSL240.rc rename to delphi/dclIndyTLSOpenSSL240.rc diff --git a/dclIndyTLSOpenSSL250.dpk b/delphi/dclIndyTLSOpenSSL250.dpk similarity index 94% rename from dclIndyTLSOpenSSL250.dpk rename to delphi/dclIndyTLSOpenSSL250.dpk index 688b696..08b6ce1 100644 --- a/dclIndyTLSOpenSSL250.dpk +++ b/delphi/dclIndyTLSOpenSSL250.dpk @@ -1,41 +1,41 @@ -package dclIndyTLSOpenSSL250; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER320} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL250, - dclIndyCore250; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL250; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER320} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL250, + dclIndyCore250; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL250.rc b/delphi/dclIndyTLSOpenSSL250.rc similarity index 100% rename from dclIndyTLSOpenSSL250.rc rename to delphi/dclIndyTLSOpenSSL250.rc diff --git a/dclIndyTLSOpenSSL260.dpk b/delphi/dclIndyTLSOpenSSL260.dpk similarity index 94% rename from dclIndyTLSOpenSSL260.dpk rename to delphi/dclIndyTLSOpenSSL260.dpk index a9c7669..3be8e13 100644 --- a/dclIndyTLSOpenSSL260.dpk +++ b/delphi/dclIndyTLSOpenSSL260.dpk @@ -1,41 +1,41 @@ -package dclIndyTLSOpenSSL260; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER330} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL260, - dclIndyCore260; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL260; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER330} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL260, + dclIndyCore260; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL260.rc b/delphi/dclIndyTLSOpenSSL260.rc similarity index 100% rename from dclIndyTLSOpenSSL260.rc rename to delphi/dclIndyTLSOpenSSL260.rc diff --git a/dclIndyTLSOpenSSL270.dpk b/delphi/dclIndyTLSOpenSSL270.dpk similarity index 94% rename from dclIndyTLSOpenSSL270.dpk rename to delphi/dclIndyTLSOpenSSL270.dpk index 57eaf9a..a6e7ec4 100644 --- a/dclIndyTLSOpenSSL270.dpk +++ b/delphi/dclIndyTLSOpenSSL270.dpk @@ -1,41 +1,41 @@ -package dclIndyTLSOpenSSL270; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER340} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL270, - dclIndyCore270; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL270; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER340} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL270, + dclIndyCore270; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL270.rc b/delphi/dclIndyTLSOpenSSL270.rc similarity index 100% rename from dclIndyTLSOpenSSL270.rc rename to delphi/dclIndyTLSOpenSSL270.rc diff --git a/dclIndyTLSOpenSSL280.dpk b/delphi/dclIndyTLSOpenSSL280.dpk similarity index 94% rename from dclIndyTLSOpenSSL280.dpk rename to delphi/dclIndyTLSOpenSSL280.dpk index ff0380e..6095abf 100644 --- a/dclIndyTLSOpenSSL280.dpk +++ b/delphi/dclIndyTLSOpenSSL280.dpk @@ -1,41 +1,41 @@ -package dclIndyTLSOpenSSL280; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$DEFINE VER350} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL280, - dclIndyCore280; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL280; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$DEFINE VER350} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL280, + dclIndyCore280; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL280.rc b/delphi/dclIndyTLSOpenSSL280.rc similarity index 100% rename from dclIndyTLSOpenSSL280.rc rename to delphi/dclIndyTLSOpenSSL280.rc diff --git a/dclIndyTLSOpenSSL290.dpk b/delphi/dclIndyTLSOpenSSL290.dpk similarity index 94% rename from dclIndyTLSOpenSSL290.dpk rename to delphi/dclIndyTLSOpenSSL290.dpk index b33002b..032604d 100644 --- a/dclIndyTLSOpenSSL290.dpk +++ b/delphi/dclIndyTLSOpenSSL290.dpk @@ -1,40 +1,40 @@ -package dclIndyTLSOpenSSL290; - -{$R *.res} -{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS ON} -{$RANGECHECKS ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DEFINE DEBUG} -{$ENDIF IMPLICITBUILDING} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL290, - dclIndyCore290; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL290; + +{$R *.res} +{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION OFF} +{$OVERFLOWCHECKS ON} +{$RANGECHECKS ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES ON} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DEFINE DEBUG} +{$ENDIF IMPLICITBUILDING} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL290, + dclIndyCore290; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL290.rc b/delphi/dclIndyTLSOpenSSL290.rc similarity index 100% rename from dclIndyTLSOpenSSL290.rc rename to delphi/dclIndyTLSOpenSSL290.rc diff --git a/dclIndyTLSOpenSSL40.dpk b/delphi/dclIndyTLSOpenSSL40.dpk similarity index 94% rename from dclIndyTLSOpenSSL40.dpk rename to delphi/dclIndyTLSOpenSSL40.dpk index 30fe74b..0d22865 100644 --- a/dclIndyTLSOpenSSL40.dpk +++ b/delphi/dclIndyTLSOpenSSL40.dpk @@ -1,31 +1,31 @@ -package dclIndyTLSOpenSSL40; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - Vcl40, - IndyTLSOpenSSL40, - dclIndyCore40; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL40; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + Vcl40, + IndyTLSOpenSSL40, + dclIndyCore40; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL40.rc b/delphi/dclIndyTLSOpenSSL40.rc similarity index 100% rename from dclIndyTLSOpenSSL40.rc rename to delphi/dclIndyTLSOpenSSL40.rc diff --git a/dclIndyTLSOpenSSL50.dpk b/delphi/dclIndyTLSOpenSSL50.dpk similarity index 94% rename from dclIndyTLSOpenSSL50.dpk rename to delphi/dclIndyTLSOpenSSL50.dpk index 981188d..b521866 100644 --- a/dclIndyTLSOpenSSL50.dpk +++ b/delphi/dclIndyTLSOpenSSL50.dpk @@ -1,31 +1,31 @@ -package dclIndyTLSOpenSSL50; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - Vcl50, - IndyTLSOpenSSL50, - dclIndyCore50; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL50; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + Vcl50, + IndyTLSOpenSSL50, + dclIndyCore50; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL50.rc b/delphi/dclIndyTLSOpenSSL50.rc similarity index 100% rename from dclIndyTLSOpenSSL50.rc rename to delphi/dclIndyTLSOpenSSL50.rc diff --git a/dclIndyTLSOpenSSL60.dpk b/delphi/dclIndyTLSOpenSSL60.dpk similarity index 94% rename from dclIndyTLSOpenSSL60.dpk rename to delphi/dclIndyTLSOpenSSL60.dpk index 98423cf..c2f3aa0 100644 --- a/dclIndyTLSOpenSSL60.dpk +++ b/delphi/dclIndyTLSOpenSSL60.dpk @@ -1,32 +1,32 @@ -package dclIndyTLSOpenSSL60; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - vcl, - designide, - IndyTLSOpenSSL60, - dclIndyCore60; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL60; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + vcl, + designide, + IndyTLSOpenSSL60, + dclIndyCore60; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL60.rc b/delphi/dclIndyTLSOpenSSL60.rc similarity index 100% rename from dclIndyTLSOpenSSL60.rc rename to delphi/dclIndyTLSOpenSSL60.rc diff --git a/dclIndyTLSOpenSSL70.dpk b/delphi/dclIndyTLSOpenSSL70.dpk similarity index 94% rename from dclIndyTLSOpenSSL70.dpk rename to delphi/dclIndyTLSOpenSSL70.dpk index 0533172..c4a807e 100644 --- a/dclIndyTLSOpenSSL70.dpk +++ b/delphi/dclIndyTLSOpenSSL70.dpk @@ -1,32 +1,32 @@ -package dclIndyTLSOpenSSL70; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - vcl, - designide, - IndyTLSOpenSSL70, - dclIndyCore70; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL70; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + vcl, + designide, + IndyTLSOpenSSL70, + dclIndyCore70; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL70.rc b/delphi/dclIndyTLSOpenSSL70.rc similarity index 100% rename from dclIndyTLSOpenSSL70.rc rename to delphi/dclIndyTLSOpenSSL70.rc diff --git a/dclIndyTLSOpenSSL80.dpk b/delphi/dclIndyTLSOpenSSL80.dpk similarity index 94% rename from dclIndyTLSOpenSSL80.dpk rename to delphi/dclIndyTLSOpenSSL80.dpk index a7c2931..d6389d6 100644 --- a/dclIndyTLSOpenSSL80.dpk +++ b/delphi/dclIndyTLSOpenSSL80.dpk @@ -1,31 +1,31 @@ -package dclIndyTLSOpenSSL80; - -{$R *.res} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL80, - dclIndyCore80; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL80; + +{$R *.res} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL80, + dclIndyCore80; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL80.rc b/delphi/dclIndyTLSOpenSSL80.rc similarity index 100% rename from dclIndyTLSOpenSSL80.rc rename to delphi/dclIndyTLSOpenSSL80.rc diff --git a/dclIndyTLSOpenSSL90.dpk b/delphi/dclIndyTLSOpenSSL90.dpk similarity index 94% rename from dclIndyTLSOpenSSL90.dpk rename to delphi/dclIndyTLSOpenSSL90.dpk index 8611bfb..19899f9 100644 --- a/dclIndyTLSOpenSSL90.dpk +++ b/delphi/dclIndyTLSOpenSSL90.dpk @@ -1,32 +1,32 @@ -package dclIndyTLSOpenSSL90; - -{$R *.res} -{$ALIGN 8} -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} -{$DESIGNONLY} -{$IMPLICITBUILD OFF} - -requires - designide, - IndyTLSOpenSSL90, - dclIndyCore90; - -contains - IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; - -end. +package dclIndyTLSOpenSSL90; + +{$R *.res} +{$ALIGN 8} +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$DESCRIPTION 'Indy 10 TLS Design Time - OpenSSL'} +{$DESIGNONLY} +{$IMPLICITBUILD OFF} + +requires + designide, + IndyTLSOpenSSL90, + dclIndyCore90; + +contains + IdRegisterOpenSSL in 'IdRegisterOpenSSL.pas'; + +end. diff --git a/dclIndyTLSOpenSSL90.rc b/delphi/dclIndyTLSOpenSSL90.rc similarity index 100% rename from dclIndyTLSOpenSSL90.rc rename to delphi/dclIndyTLSOpenSSL90.rc diff --git a/lazarus-fpc/IndyTLSOpenSSL.lpk b/lazarus-fpc/IndyTLSOpenSSL.lpk new file mode 100644 index 0000000..387798b --- /dev/null +++ b/lazarus-fpc/IndyTLSOpenSSL.lpk @@ -0,0 +1,75 @@ +<?xml version="1.0" encoding="UTF-8"?> +<CONFIG> + <Package Version="5"> + <Name Value="IndyTLSOpenSSL"/> + <CompilerOptions> + <Version Value="11"/> + <SearchPaths> + <IncludeFiles Value="../src;../src/opensslHdrs"/> + <OtherUnitFiles Value="../src;../src/opensslHdrs"/> + <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + <Other> + <CustomOptions Value="-Ur"/> + <OtherDefines Count="3"> + <Define0 Value="OPENSSL_USE_STATIC_LIBRARY"/> + <Define1 Value="OPENSSL_USE_SHARED_LIBRARY"/> + <Define2 Value="OPENSSL_NO_LEGACY_SUPPORT"/> + </OtherDefines> + </Other> + </CompilerOptions> + <Files> + <Item> + <Filename Value="../src/IdNTLMOpenSSL.pas"/> + <UnitName Value="IdNTLMOpenSSL"/> + </Item> + <Item> + <Filename Value="../src/IdResourceStringsOpenSSL.pas"/> + <UnitName Value="IdResourceStringsOpenSSL"/> + </Item> + <Item> + <Filename Value="../src/IdSSLOpenSSL.pas"/> + <UnitName Value="IdSSLOpenSSL"/> + </Item> + <Item> + <Filename Value="../src/IdSSLOpenSSLFIPS.pas"/> + <UnitName Value="IdSSLOpenSSLFIPS"/> + </Item> + <Item> + <Filename Value="../src/IdSSLOpenSSLOptions.pas"/> + <UnitName Value="IdSSLOpenSSLOptions"/> + </Item> + <Item> + <Filename Value="../src/IdSSLOpenSSLSocket.pas"/> + <UnitName Value="IdSSLOpenSSLSocket"/> + </Item> + <Item> + <Filename Value="../src/IdSSLOpenSSLUtils.pas"/> + <UnitName Value="IdSSLOpenSSLUtils"/> + </Item> + <Item> + <Filename Value="../src/IdSSLOpenSSLX509.pas"/> + <UnitName Value="IdSSLOpenSSLX509"/> + </Item> + <Item> + <Filename Value="../src/IdSSLwincrypt.pas"/> + <UnitName Value="IdSSLwincrypt"/> + </Item> + </Files> + <RequiredPkgs> + <Item> + <PackageName Value="indylaz"/> + </Item> + <Item> + <PackageName Value="FCL"/> + </Item> + </RequiredPkgs> + <UsageOptions> + <UnitPath Value="$(PkgOutDir)"/> + </UsageOptions> + <PublishOptions> + <Version Value="2"/> + <UseFileFilters Value="True"/> + </PublishOptions> + </Package> +</CONFIG> diff --git a/lazarus-fpc/IndyTLSOpenSSL.pas b/lazarus-fpc/IndyTLSOpenSSL.pas new file mode 100644 index 0000000..13f71c0 --- /dev/null +++ b/lazarus-fpc/IndyTLSOpenSSL.pas @@ -0,0 +1,17 @@ +{ This file was automatically created by Lazarus. Do not edit! + This source is only used to compile and install the package. + } + +unit IndyTLSOpenSSL; + +{$warn 5023 off : no warning about unused units} +interface + +uses + IdNTLMOpenSSL, IdResourceStringsOpenSSL, IdSSLOpenSSL, IdSSLOpenSSLFIPS, + IdSSLOpenSSLOptions, IdSSLOpenSSLSocket, IdSSLOpenSSLUtils, + IdSSLOpenSSLX509, IdSSLwincrypt; + +implementation + +end. diff --git a/lazarus-fpc/indylaz_openssl.lpk b/lazarus-fpc/indylaz_openssl.lpk new file mode 100644 index 0000000..e4a3601 --- /dev/null +++ b/lazarus-fpc/indylaz_openssl.lpk @@ -0,0 +1,60 @@ +<?xml version="1.0" encoding="UTF-8"?> +<CONFIG> + <Package Version="5"> + <Name Value="indylaz_openssl"/> + <Type Value="DesignTime"/> + <Author Value="Chad Z. Hower (Kudzu) and the Indy Pit Crew - http://www.indyproject.org"/> + <CompilerOptions> + <Version Value="11"/> + <SearchPaths> + <OtherUnitFiles Value="../src"/> + <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + </CompilerOptions> + <Description Value="Indy - Internet Direct + +Indy is a well-known internet component suite for Delphi, C++Builder, and Free Pascal providing both low-level support (TCP, UDP, raw sockets) and over a 120 higher level protocols (SMTP, POP3, NNT, HTTP, FTP) for building both client and server applications."/> + <License Value="Duel License + +MPL + +Indy Modified BSD License +Redistribution and use in sourcea and binary forms, with or without modification, are permitted provided that the following conditions are met: +Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. + +Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation, about box and/or other materials provided with the distribution. + +No personal names or organizations names associated with the Indy project may be used to endorse or promote products derived from this software without specific prior written permission of the specific individual or organization. + +THIS SOFTWARE IS PROVIDED BY Chad Z. Hower (Kudzu) and the Indy Pit Crew &amp;quot;AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE."/> + <Version Major="10" Minor="6" Release="3" Build="3767"/> + <Files> + <Item> + <Filename Value="../src/IdRegisterSSL.pas"/> + <HasRegisterProc Value="True"/> + <UnitName Value="IdRegisterSSL"/> + </Item> + </Files> + <RequiredPkgs> + <Item> + <PackageName Value="IndyTLSOpenSSL"/> + </Item> + <Item> + <PackageName Value="indylaz"/> + </Item> + <Item> + <PackageName Value="IDEIntf"/> + </Item> + <Item> + <PackageName Value="FCL"/> + </Item> + </RequiredPkgs> + <UsageOptions> + <UnitPath Value="$(PkgOutDir)"/> + </UsageOptions> + <PublishOptions> + <Version Value="2"/> + <UseFileFilters Value="True"/> + </PublishOptions> + </Package> +</CONFIG> diff --git a/lazarus-fpc/indylaz_openssl.pas b/lazarus-fpc/indylaz_openssl.pas new file mode 100644 index 0000000..bf867d4 --- /dev/null +++ b/lazarus-fpc/indylaz_openssl.pas @@ -0,0 +1,22 @@ +{ This file was automatically created by Lazarus. Do not edit! + This source is only used to compile and install the package. + } + +unit indylaz_openssl; + +{$warn 5023 off : no warning about unused units} +interface + +uses + IdRegisterSSL, LazarusPackageIntf; + +implementation + +procedure Register; +begin + RegisterUnit('IdRegisterSSL' , @IdRegisterSSL.Register); +end; + +initialization + RegisterPackage('indylaz_openssl' , @Register); +end. diff --git a/src/IdCompilerDefines.inc b/src/IdCompilerDefines.inc new file mode 100644 index 0000000..2fec632 --- /dev/null +++ b/src/IdCompilerDefines.inc @@ -0,0 +1,2096 @@ +{$IFDEF CONDITIONALEXPRESSIONS} + // Must be at the top... + {$IF CompilerVersion >= 24.0} + {$LEGACYIFEND ON} + {$IFEND} +{$ENDIF} + +// General + +// Make this $DEFINE to use the 16 color icons required by Borland +// or DEFINE to use the 256 color Indy versions +{.$DEFINE Borland} + +// S.G. 4/9/2002: IPv4/IPv6 general switch (for defaults only) +{$DEFINE IdIPv4} // use IPv4 by default +{.$IFDEF IdIPv6} // use IPv6 by default + +{$DEFINE INDY100} +{$DEFINE 10_7_0} //so developers can IFDEF for this product version +{$DEFINE 10_7_0_0} //so developers can IFDEF for this specific version + +// When generating C++Builder output files, certain workarounds to compiler +// problems need to be enabled! When invoking DCC on the command-line, use +// the -DBCB parameter. When invoking MSBUILD, include the DCC_Define="BCB" +// attribute in the /p parameter. +{$IFDEF BCB} + {$DEFINE CBUILDER} +{$ELSE} + {$DEFINE DELPHI} +{$ENDIF} + +{$UNDEF USE_OPENSSL} +{$UNDEF STATICLOAD_OPENSSL} + +{$UNDEF USE_ZLIB_UNIT} +{$UNDEF USE_SSPI} + +// $DEFINE the following if the global objects in the IdStack and IdThread +// units should be freed on finalization +{$IFDEF FPC} +{$DEFINE FREE_ON_FINAL} +{$ELSE} +{$UNDEF FREE_ON_FINAL} +{$ENDIF} + +// Make sure the following is $DEFINE'd only for suitable environments +// as specified further below. This works in conjunction with the +// FREE_ON_FINAL define above. +{$UNDEF REGISTER_EXPECTED_MEMORY_LEAK} +{$UNDEF HAS_System_RegisterExpectedMemoryLeak} + +// FastMM is natively available in BDS 2006 and higher. $DEFINE the +// following if FastMM has been installed manually in earlier versions +{.$DEFINE USE_FASTMM4} +{$UNDEF USE_FASTMM4} + +// $DEFINE the following if MadExcept has been installed manually in +// BDS 2005 or earlier (System.RegisterExpectedMemoryLeak() was introduced +// in BDS 2006) +{.$DEFINE USE_MADEXCEPT} +{$UNDEF USE_MADEXCEPT} + +// $DEFINE the following if LeakCheck has been installed manually in +// BDS 2005 or earlier (System.RegisterExpectedMemoryLeak() was introduced +// in BDS 2006) +{.$DEFINE USE_LEAKCHECK} +{$UNDEF USE_LEAKCHECK} + +// Make sure the following are $DEFINE'd only for Delphi/C++Builder 2009 onwards +// as specified further below. The VCL is fully Unicode, where the 'String' +// type maps to System.UnicodeString, not System.AnsiString anymore +{$UNDEF STRING_IS_UNICODE} +{$UNDEF STRING_IS_ANSI} +{$UNDEF STRING_UNICODE_MISMATCH} + +// Make sure the following are $DEFINE'd only for suitable environments +// as specified further below. Delphi/C++Builder Mobile/NextGen compilers +// do not support Ansi data types anymore, and is moving away from raw +// pointers as well. +// +// UPDATE: in Delphi/C++Builder 10.4, all Ansi types are supported again on +// all platforms, including the mobile compilers. +{$DEFINE HAS_AnsiString} +{$DEFINE HAS_AnsiChar} +{$DEFINE HAS_PAnsiChar} +{$UNDEF HAS_PPAnsiChar} +{$UNDEF NO_ANSI_TYPES} + +// Make sure the following are $DEFINE'd only for suitable environments +// as specified further below. Delphi/C++Builder Mobile/NextGen compilers +// use ARC for TObject life time management. +// +// UPDATE: ARC for TObject lifetime management has been removed in +// Delphi/C++Builder 10.4 mobile compilers. All platforms now use a single +// unified memory management model! +{$UNDEF USE_MARSHALLED_PTRS} +{$UNDEF HAS_MarshaledAString} +{$UNDEF USE_OBJECT_ARC} + +// Make sure the following is $DEFINE'd only for suitable environments +// as specified further below. +{$UNDEF STRING_IS_IMMUTABLE} +{$UNDEF HAS_DIRECTIVE_ZEROBASEDSTRINGS} + +// Make sure the following are $DEFINE'd only for suitable environments +// as specified further below. +{$UNDEF HAS_TEncoding} +{$UNDEF HAS_TEncoding_GetEncoding_ByEncodingName} +{$UNDEF HAS_Exception_RaiseOuterException} +{$UNDEF HAS_System_ReturnAddress} +{$UNDEF HAS_TCharacter} +{$UNDEF HAS_TInterlocked} +{$UNDEF HAS_TNetEncoding} + +// Make sure that this is defined only for environments where we are using +// the iconv library to charactor conversions. +{.$UNDEF USE_ICONV} +{.$UNDEF USE_LCONVENC} + +//Define for Delphi cross-compiler targetting Posix +{$UNDEF USE_VCL_POSIX} +{$UNDEF HAS_ComponentPlatformsAttribute} +{$UNDEF HAS_ComponentPlatformsAttribute_Win32} +{$UNDEF HAS_ComponentPlatformsAttribute_Win64} +{$UNDEF HAS_ComponentPlatformsAttribute_OSX32} +{$UNDEF HAS_ComponentPlatformsAttribute_iOS_Simulator} +{$UNDEF HAS_ComponentPlatformsAttribute_iOS_Simulator32} +{$UNDEF HAS_ComponentPlatformsAttribute_Android} +{$UNDEF HAS_ComponentPlatformsAttribute_Android32Arm} +{$UNDEF HAS_ComponentPlatformsAttribute_Linux32} +{$UNDEF HAS_ComponentPlatformsAttribute_iOS_Device} +{$UNDEF HAS_ComponentPlatformsAttribute_iOS_Device32} +{$UNDEF HAS_ComponentPlatformsAttribute_Linux64} +{$UNDEF HAS_ComponentPlatformsAttribute_WinNX32} +{$UNDEF HAS_ComponentPlatformsAttribute_WinIoT32} +{$UNDEF HAS_ComponentPlatformsAttribute_iOS_Device64} +{$UNDEF HAS_ComponentPlatformsAttribute_WinARM} +{$UNDEF HAS_ComponentPlatformsAttribute_WinARM32} +{$UNDEF HAS_ComponentPlatformsAttribute_OSX64} +{$UNDEF HAS_ComponentPlatformsAttribute_OSXNX64} +{$UNDEF HAS_ComponentPlatformsAttribute_Linux32Arm} +{$UNDEF HAS_ComponentPlatformsAttribute_Linux64Arm} +{$UNDEF HAS_ComponentPlatformsAttribute_Android64} +{$UNDEF HAS_ComponentPlatformsAttribute_Android64Arm} +{$UNDEF HAS_ComponentPlatformsAttribute_iOS_Simulator64} +{$UNDEF HAS_ComponentPlatformsAttribute_AndroidArm32} +{$UNDEF HAS_ComponentPlatformsAttribute_AndroidArm64} +{$UNDEF HAS_ComponentPlatformsAttribute_OSXArm64} +{$UNDEF HAS_ComponentPlatformsAttribute_AllPlatforms} +{$UNDEF HAS_DIRECTIVE_WARN_DEFAULT} + +// Define for Delphi to auto-generate platform-appropriate '#pragma link' statements in HPP files +{$UNDEF HAS_DIRECTIVE_HPPEMIT_LINKUNIT} + +// detect compiler versions + +{$IFNDEF FPC} + + // TODO: to detect features in Delphi/C++Builder v6 and later, use CompilerVersion + // and RTLVersion constants instead of VERXXX defines. We still support v5, which + // does not have such constants. + + // Delphi 4 + {$IFDEF VER120} + {$DEFINE DCC} + {$DEFINE VCL_40} + {$DEFINE DELPHI_4} + {$ENDIF} + + // C++Builder 4 + {$IFDEF VER125} + {$DEFINE DCC} + {$DEFINE VCL_40} + {$DEFINE CBUILDER_4} + {$ENDIF} + + // Delphi & C++Builder 5 + {$IFDEF VER130} + {$DEFINE DCC} + {$DEFINE VCL_50} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_5} + {$ELSE} + {$DEFINE DELPHI_5} + {$ENDIF} + {$ENDIF} + + //Delphi & C++Builder 6 + {$IFDEF VER140} + {$DEFINE DCC} + {$DEFINE VCL_60} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_6} + {$ELSE} + {$DEFINE DELPHI_6} + {$ENDIF} + {$ENDIF} + + //Delphi 7 + {$IFDEF VER150} + {$DEFINE DCC} + {$DEFINE VCL_70} + {$DEFINE DELPHI_7} // there was no C++ Builder 7 + {$ENDIF} + + //Delphi 8 + {$IFDEF VER160} + {$DEFINE DCC} + {$DEFINE VCL_80} + {$DEFINE DELPHI_8} // there was no C++ Builder 8 + {$ENDIF} + + //Delphi 2005 + {$IFDEF VER170} + {$DEFINE DCC} + {$DEFINE VCL_2005} + {$DEFINE DELPHI_2005} // there was no C++Builder 2005 + {$ENDIF} + + // NOTE: CodeGear decided to make Highlander be a non-breaking release + // (no interface changes, thus fully backwards compatible without any + // end user code changes), so VER180 applies to both BDS 2006 and + // Highlander prior to the release of RAD Studio 2007. Use VER185 to + // identify Highlanger specifically. + + //Delphi & C++Builder 2006 + //Delphi & C++Builder 2007 (Highlander) + {$IFDEF VER180} + {$DEFINE DCC} + {$DEFINE VCL_2006} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_2006} + {$ELSE} + {$DEFINE DELPHI_2006} + {$ENDIF} + {$ENDIF} + + //Delphi & C++Builder 2007 (Highlander) + {$IFDEF VER185} + {$DEFINE DCC} + {$UNDEF VCL_2006} + {$DEFINE VCL_2007} + {$IFDEF CBUILDER} + {$UNDEF CBUILDER_2006} + {$DEFINE CBUILDER_2007} + {$ELSE} + {$UNDEF DELPHI_2006} + {$DEFINE DELPHI_2007} + {$ENDIF} + {$ENDIF} + + // BDS 2007 NET personality uses VER190 instead of 185. + //Delphi .NET 2007 + {$IFDEF VER190} + {$DEFINE DCC} + {$IFDEF CIL} + //Delphi 2007 + {$DEFINE VCL_2007} + {$DEFINE DELPHI_2007} + {$ENDIF} + {$ENDIF} + + //Delphi & C++Builder 2009 (Tiburon) + {$IFDEF VER200} + {$DEFINE DCC} + {$DEFINE VCL_2009} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_2009} + {$ELSE} + {$DEFINE DELPHI_2009} + {$ENDIF} + {$ENDIF} + + //Delphi & C++Builder 2010 (Weaver) + {$IFDEF VER210} + {$DEFINE DCC} + {$DEFINE VCL_2010} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_2010} + {$ELSE} + {$DEFINE DELPHI_2010} + {$ENDIF} + {$ENDIF} + + //Delphi & C++Builder XE (Fulcrum) + {$IFDEF VER220} + //REMOVE DCC DEFINE after the next Fulcrum beta. + //It will be defined there. + {$IFNDEF DCC} + {$DEFINE DCC} + {$ENDIF} + {$DEFINE VCL_XE} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_XE} + {$ELSE} + {$DEFINE DELPHI_XE} + {$ENDIF} + {$ENDIF} + + // DCC is now defined by the Delphi compiler starting in XE2 + + //Delphi & CBuilder XE2 (Pulsar) + {$IFDEF VER230} + {$DEFINE VCL_XE2} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_XE2} + {$ELSE} + {$DEFINE DELPHI_XE2} + {$ENDIF} + {$ENDIF} + + //Delphi & CBuilder XE3 (Waterdragon) + //Delphi & CBuilder XE3.5 (Quintessence - early betas only) + {$IFDEF VER240} + {$DEFINE VCL_XE3} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_XE3} + {$ELSE} + {$DEFINE DELPHI_XE3} + {$ENDIF} + {$ENDIF} + + //Delphi & CBuilder XE4 (Quintessence) + {$IFDEF VER250} + {$UNDEF VCL_XE3} + {$DEFINE VCL_XE4} + {$IFDEF CBUILDER} + {$UNDEF CBUILDER_XE3} + {$DEFINE CBUILDER_XE4} + {$ELSE} + {$UNDEF DELPHI_XE3} + {$DEFINE DELPHI_XE4} + {$ENDIF} + {$ENDIF} + + //Delphi & CBuilder XE5 (Zephyr) + {$IFDEF VER260} + {$DEFINE VCL_XE5} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_XE5} + {$ELSE} + {$DEFINE DELPHI_XE5} + {$ENDIF} + {$ENDIF} + + //Delphi & CBuilder AppMethod + //AppMethod is just XE5 for mobile only, VCL is removed + {$IFDEF VER265} + {$DEFINE VCL_XE5} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_XE5} + {$ELSE} + {$DEFINE DELPHI_XE5} + {$ENDIF} + {$ENDIF} + + //Delphi & CBuilder XE6 (Proteus) + {$IFDEF VER270} + {$DEFINE VCL_XE6} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_XE6} + {$ELSE} + {$DEFINE DELPHI_XE6} + {$ENDIF} + {$ENDIF} + + //Delphi & CBuilder XE7 (Carpathia) + {$IFDEF VER280} + {$DEFINE VCL_XE7} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_XE7} + {$ELSE} + {$DEFINE DELPHI_XE7} + {$ENDIF} + {$ENDIF} + + //Delphi & CBuilder XE8 (Elbrus) + {$IFDEF VER290} + {$DEFINE VCL_XE8} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_XE8} + {$ELSE} + {$DEFINE DELPHI_XE8} + {$ENDIF} + {$ENDIF} + + //Delphi & CBuilder 10.0 Seattle (Aitana) + {$IFDEF VER300} + {$DEFINE VCL_10_0} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_VCL_10_0} + {$ELSE} + {$DEFINE DELPHI_VCL_10_0} + {$ENDIF} + {$ENDIF} + + //Delphi & CBuilder 10.1 Berlin (BigBen) + {$IFDEF VER310} + {$DEFINE VCL_10_1} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_10_1} + {$ELSE} + {$DEFINE DELPHI_10_1} + {$ENDIF} + {$ENDIF} + + //Delphi & CBuilder 10.2 Tokyo (Godzilla) + {$IFDEF VER320} + {$DEFINE VCL_10_2} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_10_2} + {$ELSE} + {$DEFINE DELPHI_10_2} + {$ENDIF} + {$ENDIF} + + //Delphi & CBuilder 10.3 Rio (Carnival) + {$IFDEF VER330} + {$DEFINE VCL_10_3} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_10_3} + {$ELSE} + {$DEFINE DELPHI_10_3} + {$ENDIF} + {$ENDIF} + + //Delphi & CBuilder 10.4 Sydney (Denali) + {$IFDEF VER340} + {$DEFINE VCL_10_4} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_10_4} + {$ELSE} + {$DEFINE DELPHI_10_4} + {$ENDIF} + {$ENDIF} + + //Delphi & CBuilder 11.0 Alexandria (Olympus) + {$IFDEF VER350} + {$DEFINE VCL_11} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_11} + {$ELSE} + {$DEFINE DELPHI_11} + {$ENDIF} + {$ENDIF} + + //Delphi & CBuilder 12.0 Athens (Yukon) + {$IFDEF VER360} + {$DEFINE VCL_12} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_12} + {$ELSE} + {$DEFINE DELPHI_12} + {$ENDIF} + {$ENDIF} + + //Delphi & CBuilder 13.0+ (?) + {$IFDEF CONDITIONALEXPRESSIONS} + {$IF CompilerVersion >= 37} + {$MESSAGE WARN 'Unknown compiler version detected! Assuming >= 13.x '} + {$DEFINE VCL_UNKNOWN_VERSION} + {$DEFINE VCL_13} + {$IFDEF CBUILDER} + {$DEFINE CBUILDER_13} + {$ELSE} + {$DEFINE DELPHI_13} + {$ENDIF} + {$IFEND} + {$ENDIF} + + // Kylix + // + //Important: Don't use CompilerVersion here as IF's are evaluated before + //IFDEF's and Kylix 1 does not have CompilerVersion defined at all. + {$IFDEF LINUX} + {$DEFINE UNIX} + {$IFDEF CONDITIONALEXPRESSIONS} + {$IF (RTLVersion >= 14.0) and (RTLVersion <= 14.5) } + {$DEFINE KYLIX} + {$IF RTLVersion = 14.5} + {$DEFINE KYLIX_3} + {$ELSEIF RTLVersion >= 14.2} + {$DEFINE KYLIX_2} + {$ELSE} + {$DEFINE KYLIX_1} + {$IFEND} + {$IFEND} + {$ENDIF} + {$ENDIF} + +{$ENDIF} + +// Delphi.NET +// Covers D8+ +{$IFDEF CIL} + // Platform specific conditional. Used for platform specific code. + {$DEFINE DOTNET} + {$DEFINE STRING_IS_UNICODE} + {$DEFINE STRING_IS_IMMUTABLE} + {.$DEFINE HAS_Int8} + {.$DEFINE HAS_UInt8} + {$DEFINE HAS_Int16} + {$DEFINE HAS_UInt16} + {$DEFINE HAS_Int32} + {$DEFINE HAS_UInt32} + {$DEFINE HAS_UInt64} +{$ENDIF} + +{$IFDEF KYLIX} + {$DEFINE VCL_60} + {$DEFINE INT_THREAD_PRIORITY} + {$DEFINE CPUI386} + {$UNDEF USE_BASEUNIX} + + {$IFDEF KYLIX_3} + {$DEFINE KYLIX_3_OR_ABOVE} + {$ENDIF} + + {$IFDEF KYLIX_3_OR_ABOVE} + {$DEFINE KYLIX_2_OR_ABOVE} + {$ELSE} + {$IFDEF KYLIX_2} + {$DEFINE KYLIX_2_OR_ABOVE} + {$ENDIF} + {$ENDIF} + + {$IFDEF KYLIX_2_OR_ABOVE} + {$DEFINE KYLIX_1_OR_ABOVE} + {$ELSE} + {$IFDEF KYLIX_1} + {$DEFINE KYLIX_1_OR_ABOVE} + {$ENDIF} + {$ENDIF} + + {$IFNDEF KYLIX_3_OR_ABOVE} + {$DEFINE KYLIXCOMPAT} + {$ENDIF} + + {$IFDEF KYLIX_2_OR_ABOVE} + {$DEFINE USE_ZLIB_UNIT} + {$ENDIF} +{$ENDIF} + +// FPC (2+) + +{$IFDEF FPC} + // TODO: In FreePascal 4.2.0+, a Delphi-like UnicodeString type is supported. + // However, String/(P)Char do not map to UnicodeString/(P)WideChar unless + // either {$MODE DelphiUnicode} or {$MODESWITCH UnicodeStrings} is used. + // We should consider enabling one of them so Indy uses the same Unicode logic + // in Delphi 2009+ and FreePascal 4.2.0+ and reduces IFDEFs (in particular, + // STRING_UNICODE_MISMATCH, see further below). However, FreePascal's RTL + // is largely not UnicodeString-enabled yet. Maybe we should enable + // {$MODE DelphiUnicode} anyway, and then deal with any RTL function issues + // on an as-needed basis... + {$MODE Delphi} + //note that we may need further defines for widget types depending on + //what we do and what platforms we support in FPC. + //I'll let Marco think about that one. + {$IFDEF UNIX} + {$DEFINE USE_BASEUNIX} + {$IFDEF LINUX} + //In Linux for I386, you can choose between a Kylix-libc API or + //the standard RTL Unix API. Just pass -dKYLIXCOMPAT to the FPC compiler. + //I will see what I can do about the Makefile. + {$IFDEF KYLIXCOMPAT} + {$IFDEF CPUI386} + {$UNDEF USE_BASEUNIX} + {$ENDIF} + {$ENDIF} + {$ENDIF} + {$IFDEF USE_BASEUNIX} + {$UNDEF KYLIXCOMPAT} + {$ENDIF} + {$ENDIF} + + // FPC_FULLVERSION was added in FPC 2.2.4 + // Have to use Defined() or else Delphi compiler chokes, since it + // evaluates $IF statements before $IFDEF statements... + + {$MACRO ON} // must be on in order to use versioning macros + {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 30101)} + {$DEFINE FPC_3_1_1_OR_ABOVE} + {$IFEND} + {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 30000)} + {$DEFINE FPC_3_0_0_OR_ABOVE} + {$IFEND} + {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20701)} + {$DEFINE FPC_2_7_1_OR_ABOVE} + {$IFEND} + {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20604)} + {$DEFINE FPC_2_6_4_OR_ABOVE} + {$IFEND} + {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20602)} + {$DEFINE FPC_2_6_2_OR_ABOVE} + {$IFEND} + {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20600)} + {$DEFINE FPC_2_6_0_OR_ABOVE} + {$IFEND} + {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20404)} + {$DEFINE FPC_2_4_4_OR_ABOVE} + {$IFEND} + {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20402)} + {$DEFINE FPC_2_4_2_OR_ABOVE} + {$IFEND} + {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20400)} + {$DEFINE FPC_2_4_0_OR_ABOVE} + {$IFEND} + {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20204)} + {$DEFINE FPC_2_2_4_OR_ABOVE} + {$IFEND} + {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20202)} + {$DEFINE FPC_2_2_2_OR_ABOVE} + {$IFEND} + {$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 20105)} + {$DEFINE FPC_2_1_5_OR_ABOVE} + {$IFEND} + + // just in case + {$IFDEF FPC_3_1_1} + {$DEFINE FPC_3_1_1_OR_ABOVE} + {$ENDIF} + {$IFDEF FPC_3_0_0} + {$DEFINE FPC_3_0_0_OR_ABOVE} + {$ENDIF} + {$IFDEF FPC_2_7_1} + {$DEFINE FPC_2_7_1_OR_ABOVE} + {$ENDIF} + {$IFDEF FPC_2_6_4} + {$DEFINE FPC_2_6_4_OR_ABOVE} + {$ENDIF} + {$IFDEF FPC_2_6_2} + {$DEFINE FPC_2_6_2_OR_ABOVE} + {$ENDIF} + {$IFDEF FPC_2_6_0} + {$DEFINE FPC_2_6_0_OR_ABOVE} + {$ENDIF} + {$IFDEF FPC_2_4_4} + {$DEFINE FPC_2_4_4_OR_ABOVE} + {$ENDIF} + {$IFDEF FPC_2_4_2} + {$DEFINE FPC_2_4_2_OR_ABOVE} + {$ENDIF} + {$IFDEF FPC_2_4_0} + {$DEFINE FPC_2_4_0_OR_ABOVE} + {$ENDIF} + {$IFDEF FPC_2_2_4} + {$DEFINE FPC_2_2_4_OR_ABOVE} + {$ENDIF} + {$IFDEF FPC_2_2_2} + {$DEFINE FPC_2_2_2_OR_ABOVE} + {$ENDIF} + {$IFDEF FPC_2_1_5} + {$DEFINE FPC_2_1_5_OR_ABOVE} + {$ENDIF} + + {$IFDEF FPC_3_1_1_OR_ABOVE} + {$DEFINE FPC_3_0_0_OR_ABOVE} + {$ELSE} + {$IFDEF FPC_3_0_0} + {$DEFINE FPC_3_0_0_OR_ABOVE} + {$ENDIF} + {$ENDIF} + + {$IFDEF FPC_3_0_0_OR_ABOVE} + {$DEFINE FPC_2_7_1_OR_ABOVE} + {$ELSE} + {$IFDEF FPC_2_7_1} + {$DEFINE FPC_2_7_1_OR_ABOVE} + {$ENDIF} + {$ENDIF} + + {$IFDEF FPC_2_7_1_OR_ABOVE} + {$DEFINE FPC_2_6_4_OR_ABOVE} + {$ELSE} + {$IFDEF FPC_2_6_4} + {$DEFINE FPC_2_6_4_OR_ABOVE} + {$ENDIF} + {$ENDIF} + + {$IFDEF FPC_2_6_4_OR_ABOVE} + {$DEFINE FPC_2_6_2_OR_ABOVE} + {$ELSE} + {$IFDEF FPC_2_6_2} + {$DEFINE FPC_2_6_2_OR_ABOVE} + {$ENDIF} + {$ENDIF} + + {$IFDEF FPC_2_6_2_OR_ABOVE} + {$DEFINE FPC_2_6_0_OR_ABOVE} + {$ELSE} + {$IFDEF FPC_2_6_0} + {$DEFINE FPC_2_6_0_OR_ABOVE} + {$ENDIF} + {$ENDIF} + + {$IFDEF FPC_2_6_0_OR_ABOVE} + {$DEFINE FPC_2_4_4_OR_ABOVE} + {$ELSE} + {$IFDEF FPC_2_4_4} + {$DEFINE FPC_2_4_4_OR_ABOVE} + {$ENDIF} + {$ENDIF} + + {$IFDEF FPC_2_4_4_OR_ABOVE} + {$DEFINE FPC_2_4_2_OR_ABOVE} + {$ELSE} + {$IFDEF FPC_2_4_2} + {$DEFINE FPC_2_4_2_OR_ABOVE} + {$ENDIF} + {$ENDIF} + + {$IFDEF FPC_2_4_2_OR_ABOVE} + {$DEFINE FPC_2_4_0_OR_ABOVE} + {$ELSE} + {$IFDEF FPC_2_4_0} + {$DEFINE FPC_2_4_0_OR_ABOVE} + {$ENDIF} + {$ENDIF} + + {$IFDEF FPC_2_4_0_OR_ABOVE} + {$DEFINE FPC_2_2_4_OR_ABOVE} + {$ELSE} + {$IFDEF FPC_2_2_4} + {$DEFINE FPC_2_2_4_OR_ABOVE} + {$ENDIF} + {$ENDIF} + + {$IFDEF FPC_2_2_4_OR_ABOVE} + {$DEFINE FPC_2_2_2_OR_ABOVE} + {$ELSE} + {$IFDEF FPC_2_2_2} + {$DEFINE FPC_2_2_2_OR_ABOVE} + {$ENDIF} + {$ENDIF} + + {$IFDEF FPC_2_2_2_OR_ABOVE} + {$DEFINE FPC_2_2_0_OR_ABOVE} + {$ELSE} + {$IFDEF VER2_2} + {$DEFINE FPC_2_2_0_OR_ABOVE} + {$ENDIF} + {$ENDIF} + + {$IFDEF FPC_2_2_0_OR_ABOVE} + {$DEFINE FPC_2_1_5_OR_ABOVE} + {$ELSE} + {$IFDEF FPC_2_1_5} + {$DEFINE FPC_2_1_5_OR_ABOVE} + {$ENDIF} + {$ENDIF} + + {.$IFDEF FPC_2_7_1_OR_ABOVE} + // support for RawByteString and UnicodeString + {.$MODE DelphiUnicode} + {.$MODESWITCH UnicodeStrings} + {.$CODEPAGE UTF8} // needed for Unicode string literals to work properly + {.$DEFINE VCL_2009} + {.$DEFINE DELPHI_2009} + {.$ELSE} + {$DEFINE VCL_70} + {$DEFINE DELPHI_7} + {.$ENDIF} +{$ENDIF} + +// end FPC + +{$IFDEF VCL_13} + {$DEFINE VCL_13_OR_ABOVE} +{$ENDIF} + +{$IFDEF VCL_13_OR_ABOVE} + {$DEFINE VCL_12_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_12} + {$DEFINE VCL_12_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_12_OR_ABOVE} + {$DEFINE VCL_11_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_11} + {$DEFINE VCL_11_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_11_OR_ABOVE} + {$DEFINE VCL_10_4_OR_ABOVE} + {$DEFINE VCL_10_4_UPDATE2_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_10_4} + {$DEFINE VCL_10_4_OR_ABOVE} + // TODO: figure out how to detect this version + {.$DEFINE VCL_10_4_UPDATE2_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_10_4_OR_ABOVE} + {$DEFINE VCL_10_3_OR_ABOVE} + {$DEFINE VCL_10_3_UPDATE2_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_10_3} + {$DEFINE VCL_10_3_OR_ABOVE} + // TODO: figure out how to detect this version + {.$DEFINE VCL_10_3_UPDATE2_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_10_3_OR_ABOVE} + {$DEFINE VCL_10_2_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_10_2} + {$DEFINE VCL_10_2_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_10_2_OR_ABOVE} + {$DEFINE VCL_10_1_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_10_1} + {$DEFINE VCL_10_1_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_10_1_OR_ABOVE} + {$DEFINE VCL_10_0_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_10_0} + {$DEFINE VCL_10_0_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_10_0_OR_ABOVE} + {$DEFINE VCL_XE8_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_XE8} + {$DEFINE VCL_XE8_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_XE8_OR_ABOVE} + {$DEFINE VCL_XE7_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_XE7} + {$DEFINE VCL_XE7_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_XE7_OR_ABOVE} + {$DEFINE VCL_XE6_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_XE6} + {$DEFINE VCL_XE6_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_XE6_OR_ABOVE} + {$DEFINE VCL_XE5_OR_ABOVE} + {$DEFINE VCL_XE5_UPDATE2_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_XE5} + {$DEFINE VCL_XE5_OR_ABOVE} + // TODO: figure out how to detect this version + {.$DEFINE VCL_XE5_UPDATE2_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_XE5_OR_ABOVE} + {$DEFINE VCL_XE4_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_XE4} + {$DEFINE VCL_XE4_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_XE4_OR_ABOVE} + {$DEFINE VCL_XE3_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_XE3} + {$DEFINE VCL_XE3_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_XE3_OR_ABOVE} + {$DEFINE VCL_XE2_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_XE2} + {$DEFINE VCL_XE2_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_XE2_OR_ABOVE} + {$DEFINE VCL_XE_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_XE} + {$DEFINE VCL_XE_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_XE_OR_ABOVE} + {$DEFINE VCL_2010_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_2010} + {$DEFINE VCL_2010_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_2010_OR_ABOVE} + {$DEFINE VCL_2009_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_2009} + {$DEFINE VCL_2009_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_2009_OR_ABOVE} + {$DEFINE VCL_2007_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_2007} + {$DEFINE VCL_2007_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_2007_OR_ABOVE} + {$DEFINE VCL_2006_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_2006} + {$DEFINE VCL_2006_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_2006_OR_ABOVE} + {$DEFINE VCL_2005_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_2005} + {$DEFINE VCL_2005_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_2005_OR_ABOVE} + {$DEFINE VCL_8_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_80} + {$DEFINE VCL_8_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_8_OR_ABOVE} + {$DEFINE VCL_7_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_70} + {$DEFINE VCL_7_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_7_OR_ABOVE} + {$DEFINE VCL_6_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_60} + {$DEFINE VCL_6_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_6_OR_ABOVE} + {$DEFINE VCL_5_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_50} + {$DEFINE VCL_5_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_5_OR_ABOVE} + {$DEFINE VCL_4_OR_ABOVE} +{$ELSE} + {$IFDEF VCL_40} + {$DEFINE VCL_4_OR_ABOVE} + {$ENDIF} +{$ENDIF} + +// Normalize Delphi compiler defines to match FPC for consistency: +// +// CPU32 - any 32-bit CPU +// CPU64 - any 64-bit CPU +// WINDOWS - any Windows platform (32-bit, 64-bit, CE) +// WIN32 - Windows 32-bit +// WIN64 - Windows 64-bit +// WINCE - Windows CE +// +// Consult the "Free Pascal Programmer's Guide", Appendix G for the complete +// list of defines that are used. Do not work on this unless you understand +// what the FreePascal developers are doing. Not only do you have to +// descriminate with operating systems, but also with chip architectures +// are well. +// +// DCC Pulsar+ define the following values: +// ASSEMBLER +// DCC +// CONDITIONALEXPRESSIONS +// NATIVECODE +// UNICODE +// MACOS +// MACOS32 +// MACOS64 +// MSWINDOWS +// WIN32 +// WIN64 +// LINUX +// POSIX +// POSIX32 +// CPU386 +// CPUX86 +// CPUX64 +// +// Kylix defines the following values: +// LINUX +// (others??) +// + +{$IFNDEF FPC} + // TODO: We need to use ENDIAN_BIG for big endian chip architectures, + // such as 680x0, PowerPC, Sparc, and MIPS, once DCC supports them, + // provided it does not already define its own ENDIAN values by then... + {$DEFINE ENDIAN_LITTLE} + {$IFNDEF VCL_6_OR_ABOVE} + {$IFNDEF POSIX} + {$DEFINE MSWINDOWS} + {$ENDIF} + {$ENDIF} + {$IFDEF MSWINDOWS} + {$DEFINE WINDOWS} + {$ENDIF} + // TODO: map Pulsar's non-Windows platform defines... + {$IFDEF VCL_XE2_OR_ABOVE} + {$IFDEF VCL_XE8_OR_ABOVE} + {$IFDEF CPU32BITS} + //any 32-bit CPU + {$DEFINE CPU32} + {$ENDIF} + {$IFDEF CPU64BITS} + {$DEFINE CPU64} + {$ENDIF} + {$ELSE} + {$IFDEF CPU386} + //any 32-bit CPU + {$DEFINE CPU32} + //Intel 386 compatible chip architecture + {$DEFINE CPUI386} + {$ENDIF} + {$IFDEF CPUX86} + {$DEFINE CPU32} + {$ENDIF} + {$IFDEF CPUX64} + //any 64-bit CPU + {$DEFINE CPU64} + //AMD64 compatible chip architecture + {$DEFINE CPUX86_64} //historical name for AMD64 + {$DEFINE CPUAMD64} + {$ENDIF} + {$ENDIF} + {$ELSE} + {$IFNDEF DOTNET} + {$IFNDEF KYLIX} + {$DEFINE I386} + {$ENDIF} + {$ENDIF} + {$DEFINE CPU32} + {$ENDIF} +{$ENDIF} + +{$IFDEF DOTNET} + //differences in DotNET Framework versions. + {$IFDEF VCL_2007_OR_ABOVE} + {$DEFINE DOTNET_2} + {$DEFINE DOTNET_2_OR_ABOVE} + {$ELSE} + {$DEFINE DOTNET_1_1} + {$ENDIF} + {$DEFINE DOTNET_1_1_OR_ABOVE} + // Extra include used in D7 for testing. Remove later when all comps are + // ported. Used to selectively exclude non ported parts. Allowed in places + // IFDEFs are otherwise not permitted. + {$DEFINE DOTNET_EXCLUDE} +{$ENDIF} + +// Check for available features + +{$IFDEF CBUILDER} + // When generating a C++ HPP file, if a class has no explicit constructor + // defined and contains compiler-managed members (xxxString, TDateTime, + // Variant, DelphiInterface, etc), the HPP will contain a forwarding + // inline constructor that implicitly initializes those managed members, + // which will overwrite any non-default initializations performed inside + // of InitComponent() overrides! In this situation, the workaround is to + // define an explicit constructor that calls the base class constructor + // manually, allowing those managed members to be initialized by the + // compiler before InitComponent() overrides then re-assign them. + {$DEFINE WORKAROUND_INLINE_CONSTRUCTORS} +{$ENDIF} + +{$IFDEF VCL_5_OR_ABOVE} + {$IFNDEF FPC} + {$IFNDEF KYLIX} + {$DEFINE HAS_RemoveFreeNotification} + {$ENDIF} + {$ENDIF} + {$DEFINE HAS_GetObjectProp} + {$DEFINE HAS_TObjectList} + {$DEFINE HAS_StrToInt64Def} +{$ENDIF} + +{$IFDEF VCL_6_OR_ABOVE} + {$DEFINE HAS_PCardinal} + {$DEFINE HAS_PByte} + {$DEFINE HAS_PWord} + {$DEFINE HAS_PPointer} + {$DEFINE HAS_TList_Assign} + {$DEFINE HAS_sLineBreak} + {$DEFINE HAS_RaiseLastOSError} + {$DEFINE HAS_SysUtils_IncludeExcludeTrailingPathDelimiter} + {$DEFINE HAS_SysUtils_DirectoryExists} + {$DEFINE HAS_UNIT_DateUtils} + {$DEFINE HAS_UNIT_StrUtils} + {$DEFINE HAS_UNIT_Types} + {$DEFINE HAS_TryStrToInt} + {$DEFINE HAS_TryStrToInt64} + {$DEFINE HAS_TryEncodeDate} + {$DEFINE HAS_TryEncodeTime} + {$DEFINE HAS_ENUM_ELEMENT_VALUES} + {$IFNDEF FPC} + {$DEFINE HAS_IInterface} + {$DEFINE HAS_TSelectionEditor} + {$DEFINE HAS_TStringList_CaseSensitive} + {$DEFINE HAS_AcquireExceptionObject} + {$IFNDEF KYLIX} + {$DEFINE HAS_DEPRECATED} + {$DEFINE HAS_SYMBOL_PLATFORM} + {$DEFINE HAS_UNIT_PLATFORM} + {$IFNDEF VCL_8_OR_ABOVE} + // Delphi 6 and 7 have an annoying bug that if a class method is declared as + // deprecated, the compiler will emit a "symbol is deprecated" warning + // on the method's implementation! So we will have to wrap implementations + // of deprecated methods with {$WARN SYMBOL_DEPRECATED OFF} directives + // to disable that warning. + {$DEFINE DEPRECATED_IMPL_BUG} + {$ENDIF} + {$ENDIF} + {$ENDIF} + {$IFNDEF DOTNET} + //Widget defines are omitted in .NET + {$DEFINE VCL_60_PLUS} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_7_OR_ABOVE} + {$IFNDEF FPC} + {$DEFINE HAS_UInt64} // Note: it was just an alias for Int64 until D2006! + {$DEFINE HAS_NAMED_THREADS} + {$DEFINE HAS_TStrings_NameValueSeparator} + {$DEFINE HAS_TStrings_ValueFromIndex} + // Note: there is a ZLib unit available, but it doesn't have everything + // that is available in the System.ZLib unit in Delphi XE2+, so we are + // not going to use this ZLib unit yet... + {.$DEFINE HAS_UNIT_ZLib} + {$ENDIF} + {$DEFINE HAS_TFormatSettings} + {$DEFINE HAS_PosEx} + {$IFNDEF VCL_70} + // not implemented in D7 + {$DEFINE HAS_STATIC_TThread_Queue} + {$ENDIF} + {$IFNDEF CIL} + {$IFNDEF VCL_80} + // not implemented in D8 or .NET + {$DEFINE HAS_STATIC_TThread_Synchronize} + {$ENDIF} + {$ENDIF} +{$ELSE} + {$IFDEF CBUILDER_6} + {$DEFINE HAS_NAMED_THREADS} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_2005_OR_ABOVE} + {$IFDEF DCC} + // class helpers were first introduced in D2005, but were buggy and not + // officially supported until D2006... + {.$DEFINE HAS_CLASS_HELPER} + {$ENDIF} +{$ELSE} + {$IFDEF DCC} + // InterlockedCompareExchange() was declared in the Windows unit using Pointer + // parameters until Delphi 2005, when it was switched to Longint parameters + // instead to match the actual Win32 API declaration. + {$DEFINE HAS_InterlockedCompareExchange_Pointers} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_2006_OR_ABOVE} + {$DEFINE USE_INLINE} + {$DEFINE HAS_2PARAM_FileAge} + {$DEFINE HAS_TStrings_LineBreak} // TODO: when was LineBreak introduced? + {$DEFINE HAS_CLASS_HELPER} + {$IFDEF WINDOWS} + // System.RegisterExpectedMemoryLeak() is only available on Windows at this time + {$DEFINE HAS_System_RegisterExpectedMemoryLeak} + {$ENDIF} + // In C++Builder 2006 and 2007, UInt64 is emitted as signed __int64 in HPP + // files instead of as unsigned __int64. This causes conflicts in overloaded + // routines that have (U)Int64 parameters. This was fixed in C++Builder 2009... + {$IFDEF CBUILDER} + {$DEFINE BROKEN_UINT64_HPPEMIT} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_2007_OR_ABOVE} + {$IFNDEF CBUILDER_2007} + // class properties are broken in C++Builder 2007, causing AVs at compile-time + {$DEFINE HAS_CLASSPROPERTIES} + {$ENDIF} + // Native(U)Int exist but are buggy, so do not use them yet + {.$DEFINE HAS_NativeInt} + {.$DEFINE HAS_NativeUInt} + {$DEFINE HAS_DWORD_PTR} + {$DEFINE HAS_ULONG_PTR} + {$DEFINE HAS_ULONGLONG} + {$DEFINE HAS_PGUID} + {$DEFINE HAS_PPAnsiChar} + {$DEFINE HAS_CurrentYear} + {$IFNDEF DOTNET} + {$DEFINE HAS_TIMEUNITS} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_2009_OR_ABOVE} + {$IFNDEF DOTNET} + {$DEFINE STRING_IS_UNICODE} + {$DEFINE HAS_UnicodeString} + {$DEFINE HAS_TEncoding} + {$DEFINE HAS_TCharacter} + {$DEFINE HAS_InterlockedCompareExchangePointer} + {$DEFINE HAS_WIDE_TCharArray} + {$DEFINE HAS_PUInt64} + {$IFDEF VCL_2009} + // TODO: need to differentiate between RTM and Update 1 + // FmtStr() is broken in RTM but was fixed in Update 1 + {$DEFINE BROKEN_FmtStr} + {$ENDIF} + {$ENDIF} + {$DEFINE HAS_CLASSVARS} + {$DEFINE HAS_DEPRECATED_MSG} + {$DEFINE HAS_TBytes} + // Native(U)Int are still buggy, so do not use them yet + {.$DEFINE HAS_NativeInt} + {.$DEFINE HAS_NativeUInt} + {$DEFINE HAS_Int8} + {$DEFINE HAS_UInt8} + {$DEFINE HAS_Int16} + {$DEFINE HAS_UInt16} + {$DEFINE HAS_Int32} + {$DEFINE HAS_UInt32} + {$DEFINE HAS_UIntToStr} + // UInt64 is now emitted as unsigned __int64 in HPP files + {$IFDEF CBUILDER} + {$UNDEF BROKEN_UINT64_HPPEMIT} + {$ENDIF} + {$IFDEF DCC} + {$IFDEF WINDOWS} + // Exception.RaiseOuterException() is only available on Windows at this time + {$DEFINE HAS_Exception_RaiseOuterException} + {$ENDIF} + {$ENDIF} + {$DEFINE HAS_SetCodePage} + {$DEFINE HAS_PRawByteString} + {$DEFINE HAS_TThreadProcedure} +{$ENDIF} + +{$IFDEF VCL_2010_OR_ABOVE} + {$DEFINE HAS_CLASSCONSTRUCTOR} + {$DEFINE HAS_CLASSDESTRUCTOR} + {$DEFINE HAS_DELAYLOAD} + {$DEFINE HAS_TThread_NameThreadForDebugging} + {$DEFINE DEPRECATED_TThread_SuspendResume} + // Native(U)Int are finally ok to use now + {$DEFINE HAS_NativeInt} + {$DEFINE HAS_NativeUInt} + {$DEFINE HAS_USHORT} + {$DEFINE HAS_IOUtils_TPath} +{$ENDIF} + +{$IFDEF VCL_XE_OR_ABOVE} + {$DEFINE HAS_TFormatSettings_Object} + {$DEFINE HAS_LocaleCharsFromUnicode} + {$DEFINE HAS_UnicodeFromLocaleChars} + {$DEFINE HAS_PLongBool} + {$DEFINE HAS_PVOID} + {$DEFINE HAS_ULONG64} + {$DEFINE HAS_TEncoding_GetEncoding_ByEncodingName} + {$DEFINE HAS_DateUtils_TTimeZone} + {$IFDEF DCC} + // Exception.RaiseOuterException() is now available on all platforms + {$DEFINE HAS_Exception_RaiseOuterException} + {$ENDIF} + {$IFNDEF DOTNET} + {$DEFINE HAS_TInterlocked} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_XE2_OR_ABOVE} + {$DEFINE HAS_SIZE_T} + {$DEFINE HAS_PSIZE_T} + {$DEFINE HAS_SSIZE_T} + {$DEFINE HAS_PSSIZE_T} + {$DEFINE HAS_LONG} + {$DEFINE HAS_ComponentPlatformsAttribute} + {$DEFINE HAS_ComponentPlatformsAttribute_Win32} + {$DEFINE HAS_ComponentPlatformsAttribute_Win64} + {$DEFINE HAS_ComponentPlatformsAttribute_OSX32} + {$DEFINE HAS_System_ReturnAddress} + {$DEFINE HAS_DIRECTIVE_WARN_DEFAULT} + {$DEFINE HAS_UNIT_System_ZLib} +{$ENDIF} + +{$IFDEF VCL_XE3_OR_ABOVE} + {$DEFINE HAS_DIRECTIVE_ZEROBASEDSTRINGS} + {$DEFINE HAS_SysUtils_TStringHelper} + {$IFDEF NEXTGEN} + {$DEFINE DCC_NEXTGEN} + {$DEFINE HAS_MarshaledAString} + {$DEFINE USE_MARSHALLED_PTRS} + {$IFDEF AUTOREFCOUNT} + {$DEFINE USE_OBJECT_ARC} + {$ENDIF} + {$ENDIF} + // technically, these are present in XE3, but they are not used yet + {.$DEFINE HAS_ComponentPlatformsAttribute_iOS_Simulator} + {.$DEFINE HAS_ComponentPlatformsAttribute_Android} + {.$DEFINE HAS_ComponentPlatformsAttribute_Linux32} + {.$DEFINE HAS_ComponentPlatformsAttribute_iOS_Device} + {.$DEFINE HAS_ComponentPlatformsAttribute_WinNX32} +{$ENDIF} + +{$IFDEF VCL_XE4_OR_ABOVE} + {$DEFINE HAS_AnsiStrings_StrPLCopy} + {$DEFINE HAS_AnsiStrings_StrLen} + {$DEFINE HAS_Character_TCharHelper} + {$DEFINE HAS_ComponentPlatformsAttribute_iOS_Simulator} + {$DEFINE HAS_ComponentPlatformsAttribute_iOS_Device} +{$ENDIF} + +{$IFDEF VCL_XE5_OR_ABOVE} + {$DEFINE HAS_ComponentPlatformsAttribute_Android} +{$ENDIF} + +{$IFDEF VCL_XE5_UPDATE2_OR_ABOVE} + {$DEFINE HAS_DIRECTIVE_HPPEMIT_LINKUNIT} + {$DEFINE HAS_DIRECTIVE_HPPEMIT_NAMESPACE} +{$ENDIF} + +{$IFDEF VCL_XE7_OR_ABOVE} + {$DEFINE HAS_TNetEncoding} +{$ENDIF} + +{$IFDEF VCL_XE8_OR_ABOVE} + {$DEFINE HAS_ComponentPlatformsAttribute_iOS_Device32} + {$DEFINE HAS_ComponentPlatformsAttribute_iOS_Device64} + // technically, these are present in XE8, but they are not used yet + {.$DEFINE HAS_ComponentPlatformsAttribute_Linux64} + {.$DEFINE HAS_ComponentPlatformsAttribute_WinIoT32} +{$ENDIF} + +{$IFDEF VCL_10_0_OR_ABOVE} + {$IFDEF ANDROID} + {$DEFINE HAS_TAndroidHelper} + {$ENDIF} + // technically, these are present in 10.0 Seattle, but they are not used yet + {.$DEFINE HAS_ComponentPlatformsAttribute_WinARM} +{$ENDIF} + +{$IFDEF VCL_10_1_OR_ABOVE} + {$DEFINE HAS_DIRECTIVE_HPPEMIT_LEGACYHPP} + {$DEFINE HAS_TStrings_AddPair} + // technically, these are present in 10.1 Berlin, but they are not used yet + {.$DEFINE HAS_ComponentPlatformsAttribute_OSX64} + {.$DEFINE HAS_ComponentPlatformsAttribute_OSXNX64} + {.$DEFINE HAS_ComponentPlatformsAttribute_Linux32Arm} + {.$DEFINE HAS_ComponentPlatformsAttribute_Linux64Arm} + {.$DEFINE HAS_ComponentPlatformsAttribute_Android64} +{$ENDIF} + +{$IFDEF VCL_10_2_OR_ABOVE} + {.$WARN IMPLICIT_INTEGER_CAST_LOSS OFF} + {.$WARN IMPLICIT_CONVERSION_LOSS OFF} + {.$WARN COMBINING_SIGNED_UNSIGNED64 OFF} + {$DEFINE HAS_STATIC_TThread_ForceQueue} + // In Delphi 10.2 Tokyo, TThread.ForceQueue() is broken on Android, the + // passed in procedure is called immediately instead of being delayed! + {$IFDEF ANDROID} + {$DEFINE BROKEN_TThread_ForceQueue} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_10_3_OR_ABOVE} + {$DEFINE HAS_ComponentPlatformsAttribute_iOS_Simulator32} + {$DEFINE HAS_ComponentPlatformsAttribute_Android32Arm} + {$DEFINE HAS_ComponentPlatformsAttribute_WinARM32} + {$UNDEF HAS_ComponentPlatformsAttribute_OSXNX64} // removed in 10.3 Rio + // technically, these are present in 10.3 Rio, but they are not used yet + {.$DEFINE HAS_ComponentPlatformsAttribute_iOS_Simulator64} + {$IFDEF DCC} + {$IFDEF LINUX} + // RLebeau 9/25/2019: there is a bug in the IDE when debugging Linux projects + // where the EThreadNameException exception raised by TThread.NameThreadForDebugging() + // is not handled correctly. + {$UNDEF HAS_NAMED_THREADS} + {$ENDIF} + {$ENDIF} + {$IFDEF ANDROID} + {$UNDEF BROKEN_TThread_ForceQueue} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_10_3_UPDATE2_OR_ABOVE} + {$DEFINE HAS_ComponentPlatformsAttribute_AllPlatforms} + {$DEFINE HAS_ComponentPlatformsAttribute_OSX64} +{$ENDIF} + +{$IFDEF VCL_10_4_OR_ABOVE} + // 0-based string indexing via '[]' is turned off by default in Delphi 10.4. + // TStringHelper is always 0-indexed, flat RTL functions are always 1-indexed, + // and now '[]' is 1-indexed again on all platforms - {$ZEROBASEDSTRINGS OFF} + // is the default. + {.$UNDEF HAS_DIRECTIVE_ZEROBASEDSTRINGS} +{$ENDIF} + +{$IFDEF VCL_11_OR_ABOVE} + {$DEFINE HAS_ComponentPlatformsAttribute_AndroidArm32} + {$DEFINE HAS_ComponentPlatformsAttribute_AndroidArm64} + {$DEFINE HAS_ComponentPlatformsAttribute_OSXArm64} +{$ENDIF} + +// Delphi XE+ cross-compiling +{$IFNDEF FPC} + {$IFDEF POSIX} + {$IF RTLVersion >= 22.0} + {$DEFINE UNIX} + {$UNDEF USE_BASEUNIX} + {$DEFINE VCL_CROSS_COMPILE} + {$DEFINE USE_VCL_POSIX} + {$IFEND} + {$ENDIF} + {$IFDEF LINUX} + {$IFDEF CONDITIONALEXPRESSIONS} + {$IF RTLVersion >= 22.0} + {$DEFINE VCL_CROSS_COMPILE} + {$DEFINE USE_VCL_POSIX} + {$IFEND} + {$ENDIF} + {$ENDIF} +{$ENDIF} + +{$IFDEF VCL_CROSS_COMPILE} + {$UNDEF KYLIXCOMPAT} +{$ELSE} + {$IFDEF KYLIXCOMPAT} + {$linklib c} + {$ENDIF} +{$ENDIF} + +{$IFDEF FPC} + {$DEFINE USE_INLINE} + {$DEFINE USE_CLASSINLINE} + {$DEFINE USE_TBitBtn} //use Bit Buttons instead of Buttons + {$DEFINE FPC_REINTRODUCE_BUG} + {$DEFINE FPC_CIRCULAR_BUG} + {$DEFINE NO_REDECLARE} + {$DEFINE BYTE_COMPARE_SETS} + {$DEFINE HAS_QWord} // TODO: when was QWord introduced? + {$DEFINE HAS_PQWord} // TODO: when was PQWord introduced? + {$IFDEF FPC_2_1_5_OR_ABOVE} + {$DEFINE HAS_UInt64} + {.$DEFINE HAS_PUInt64} // TODO: is this defined? + {$ENDIF} + {$IFDEF FPC_2_2_0_OR_ABOVE} + {$DEFINE HAS_InterlockedCompareExchange_Pointers} + {$ENDIF} + {$IFDEF FPC_2_2_2_OR_ABOVE} + {$DEFINE HAS_SharedSuffix} + {$ENDIF} + {$IFDEF FPC_2_2_4_OR_ABOVE} + // these types are only available on Unix systems (FreeBSD, Linux, etc) + {$IFDEF UNIX} + {$DEFINE HAS_UNIT_UnixType} + {$DEFINE HAS_SIZE_T} + {$DEFINE HAS_PSIZE_T} + {$DEFINE HAS_SSIZE_T} + {$DEFINE HAS_PSSIZE_T} + {$DEFINE HAS_TIME_T} + {$DEFINE HAS_PTIME_T} + {$ENDIF} + {$ENDIF} + {$DEFINE HAS_PtrInt} + {$DEFINE HAS_PtrUInt} + {$DEFINE HAS_PGUID} + {$DEFINE HAS_LPGUID} + {$DEFINE HAS_PPAnsiChar} + {$DEFINE HAS_ENUM_ELEMENT_VALUES} + {$DEFINE HAS_AcquireExceptionObject} // TODO: when was AcquireExceptionObject introduced? + {$IFDEF WINDOWS} + {$DEFINE HAS_ULONG_PTR} + {.$DEFINE HAS_ULONGLONG} // TODO: is this defined? + {$ENDIF} + {$DEFINE HAS_UNIT_ctypes} + {$DEFINE HAS_sLineBreak} + {$DEFINE HAS_TStrings_LineBreak} // TODO: when was LineBreak introduced? + {$IFDEF FPC_HAS_UNICODESTRING} + {$DEFINE HAS_UnicodeString} + {$ELSE} + {$IFDEF FPC_2_4_0_OR_ABOVE} + {$DEFINE HAS_UnicodeString} + {$ENDIF} + {$ENDIF} + {$IFDEF FPC_2_4_4_OR_ABOVE} + {$DEFINE DEPRECATED_TThread_SuspendResume} + {$DEFINE HAS_DEPRECATED} // TODO: when was deprecated introduced? Possibly 1.9.x + {$DEFINE HAS_DEPRECATED_MSG} // TODO: when was message support added? Possibly 2.4.x + {$DEFINE HAS_STATIC_TThread_Synchronize} + {$IFNDEF FPC_2_6_2_OR_ABOVE} + {$DEFINE USE_SEMICOLON_BEFORE_DEPRECATED} // TODO: which earlier versions require a semicolon? + {$ENDIF} + {$ENDIF} + {$IFDEF FPC_2_6_0_OR_ABOVE} + {$DEFINE HAS_NativeInt} + {$DEFINE HAS_NativeUInt} + {$DEFINE HAS_CLASS_HELPER} + {$ENDIF} + {$IFDEF FPC_2_6_2_OR_ABOVE} + {$DEFINE HAS_Int8} + {$DEFINE HAS_UInt8} + {$DEFINE HAS_Int16} + {$DEFINE HAS_UInt16} + {$DEFINE HAS_Int32} + {$DEFINE HAS_UInt32} + {$DEFINE HAS_GetLocalTimeOffset} + {$DEFINE HAS_UniversalTimeToLocal} + {$DEFINE HAS_LocalTimeToUniversal} + {$ENDIF} + {$IFDEF FPC_2_6_4_OR_ABOVE} + {$DEFINE HAS_PInt8} + {$DEFINE HAS_PUInt8} + {$DEFINE HAS_PInt16} + {$DEFINE HAS_PUInt16} + {$DEFINE HAS_PInt32} + {$DEFINE HAS_PUInt32} + {$ENDIF} + {$IFDEF FPC_3_0_0_OR_ABOVE} + {$DEFINE HAS_STATIC_TThread_Queue} + {$DEFINE HAS_SetCodePage} + {$ENDIF} + {$IFDEF FPC_UNICODESTRINGS} + {$DEFINE STRING_IS_UNICODE} + {$ENDIF} + {$IFDEF FPC_3_1_1_OR_ABOVE} + {$DEFINE HAS_STATIC_TThread_ForceQueue} // requires rev 37359+ + {$DEFINE HAS_PRawByteString} + {$DEFINE HAS_UIntToStr} // requires rev 40529+ + {$ENDIF} +{$ENDIF} + +{$IFDEF DOTNET} + {$DEFINE WIDGET_WINFORMS} +{$ELSE} + {$DEFINE WIDGET_VCL_LIKE} // LCL included. + {$DEFINE WIDGET_VCL_LIKE_OR_KYLIX} + {$IFDEF FPC} + {$DEFINE WIDGET_LCL} + {$ELSE} + {$IFDEF KYLIX} + {$DEFINE WIDGET_KYLIX} + {$ELSE} + {$DEFINE WIDGET_VCL} + {$ENDIF} + {$ENDIF} +{$ENDIF} + +// .NET and Delphi 2009+ support UNICODE strings natively! +// +// FreePascal 2.4.0+ supports UnicodeString, but does not map its +// native String type to UnicodeString except when {$MODE DelphiUnicode} +// or {$MODESWITCH UnicodeStrings} is enabled. However, UNICODE is not +// defined in that mode yet until its RTL has been updated to support +// UnicodeString. STRING_UNICODE_MISMATCH is defined when the native +// String/Char types do not map to the same types that APIs are expecting +// based on whether UNICODE is defined or not. +// +// NOTE: Do not define UNICODE here. The compiler defines +// the symbol automatically. +{$IFDEF STRING_IS_UNICODE} + {$IFNDEF UNICODE} + {$DEFINE STRING_UNICODE_MISMATCH} + {$ENDIF} +{$ELSE} + {$DEFINE STRING_IS_ANSI} + {$IFDEF UNICODE} + {$DEFINE STRING_UNICODE_MISMATCH} + {$ENDIF} +{$ENDIF} + +{$IFDEF DCC_NEXTGEN} + {$DEFINE NO_ANSI_TYPES} + {.$DEFINE STRING_IS_IMMUTABLE} // Strings are NOT immutable in NEXTGEN yet + {$IFDEF USE_OBJECT_ARC} + // TODO: move these to an appropriate section. Not doing this yet because + // it is a major interface change to switch to Generics and we should + // maintain backwards compatibility with earlier compilers for the time + // being. Defining them only here for now because the non-Generic versions + // of these classes have become deprecated by ARC and so we need to start + // taking advantage of the Generics versions... + {$DEFINE HAS_UNIT_Generics_Collections} + {$DEFINE HAS_UNIT_Generics_Defaults} + {$DEFINE HAS_GENERICS_TDictionary} + {$DEFINE HAS_GENERICS_TList} + {$DEFINE HAS_GENERICS_TObjectList} + {$DEFINE HAS_GENERICS_TThreadList} + // TArray<T>.Copy() was introduced in XE7 but was buggy. It was fixed in XE8: + // + // RSP-9763 TArray.Copy<T> copies from destination to source for unmanaged types + // https://quality.embarcadero.com/browse/RSP-9763 + // + {$IFDEF VCL_XE8_OR_ABOVE} + {$DEFINE HAS_GENERICS_TArray_Copy} + {$ENDIF} + {$ENDIF} +{$ENDIF} + +// TODO: Ansi data types were disabled on mobile platforms in XE3, but +// UTF8String and RawByteString were re-enabled in 10.1 Berlin! What else, +// if anything, was re-enabled to facilitate that? +// +// UPDATE: In 10.4 Sydney, AnsiChar and AnsiString were re-enabled on +// mobile platforms! NEXTGEN is no longer defined in the mobile compilers. +{$IFDEF NO_ANSI_TYPES} + {$UNDEF HAS_AnsiString} + {$UNDEF HAS_AnsiChar} + {$UNDEF HAS_PAnsiChar} + {$UNDEF HAS_PPAnsiChar} + {$UNDEF HAS_AnsiStrings_StrPLCopy} + {$UNDEF HAS_AnsiStrings_StrLen} +{$ENDIF} + +{$IFDEF WIN32} + {$DEFINE WIN32_OR_WIN64} +{$ENDIF} +{$IFDEF WIN64} + {$DEFINE WIN32_OR_WIN64} +{$ENDIF} + +{$IFDEF WIN32_OR_WIN64} + {$DEFINE USE_ZLIB_UNIT} + {$IFNDEF DCC_NEXTGEN} + {$DEFINE USE_OPENSSL} // !!! MOVED HERE BY EMBT + {$DEFINE USE_SSPI} + {$IFDEF STRING_IS_UNICODE} + {$DEFINE SSPI_UNICODE} + {$ENDIF} + {$ENDIF} +{$ENDIF} +{$IFDEF WINCE} + {$DEFINE USE_OPENSSL} + // RLebeau: not sure if the above Win32/64 defines also apply to WinCE, + // so keeping them separate for now... +{$ENDIF} + +// High-performance counters are not reliable on multi-core systems, and have +// been known to cause problems with TIdIOHandler.ReadLn() timeouts in Windows +// XP SP3, both 32-bit and 64-bit. Refer to these discussions for more info: +// +// http://www.virtualdub.org/blog/pivot/entry.php?id=106 +// http://blogs.msdn.com/oldnewthing/archive/2008/09/08/8931563.aspx +// +// Do not enable thus unless you know it will work correctly on your systems! +{$IFDEF WINDOWS} + {.$DEFINE USE_HI_PERF_COUNTER_FOR_TICKS} +{$ENDIF} + +{$IFDEF UNIX} + {$DEFINE USE_OPENSSL} + {$DEFINE USE_ZLIB_UNIT} + {$DEFINE HAS_getifaddrs} +{$ENDIF} + +{$IFDEF MACOS} + {$DEFINE HAS_getifaddrs} +{$ENDIF} + +{$IFDEF DARWIN} + {$DEFINE HAS_getifaddrs} +{$ENDIF} + +{$IFDEF LINUX} + {$DEFINE HAS_getifaddrs} +{$ENDIF} + +{$IFDEF IOS} + {$DEFINE HAS_getifaddrs} + {$DEFINE USE_OPENSSL} + + // Support for 64-bit ARM iOS Simulator was added in Delphi 11.2 + // TODO: how to detect iOS Simulator in FPC? Does it support 64-bit ARM? + {$IFDEF CPUARM} + {$IFNDEF IOSSIMULATOR} + // RLebeau: For iOS devices, OpenSSL cannot be used as an external library, + // it must be statically linked into the app. For the iOS simulator, this + // is not true. Users who want to use OpenSSL in iOS device apps will need + // to add the static OpenSSL library to the project and then include the + // IdSSLOpenSSLHeaders_static unit in their uses clause. It hooks up the + // statically linked functions for the IdSSLOpenSSLHeaders unit to use... + {$DEFINE STATICLOAD_OPENSSL} + {$ENDIF} + {$ENDIF} +{$ENDIF} + +{$IFDEF FREEBSD} + {$DEFINE HAS_getifaddrs} +{$ENDIF} + +{$IFDEF ANDROID} + {$UNDEF HAS_getifaddrs} +{$ENDIF} + +{$IFDEF FPC_REQUIRES_PROPER_ALIGNMENT} + {$DEFINE REQUIRES_PROPER_ALIGNMENT} +{$ENDIF} + +// +//iconv defines section. +{$DEFINE USE_ICONV_UNIT} +{$DEFINE USE_ICONV_ENC} +{$IFDEF UNIX} + {$DEFINE USE_ICONV} + {$IFDEF USE_BASEUNIX} + {$IFDEF FPC} + {$UNDEF USE_ICONV_UNIT} + {$ELSE} + {$UNDEF USE_ICONV_ENC} + {$ENDIF} + {$ENDIF} + {$IFDEF KYLIXCOMPAT} + //important!! Iconv functions are defined in the libc.pas Kylix compatible unit. + {$UNDEF USE_ICONV_ENC} + {$UNDEF USE_ICONV_UNIT} + {$ENDIF} +{$ENDIF} +{$IFDEF NETWARELIBC} + {$DEFINE USE_ICONV} + //important!!! iconv functions are defined in the libc.pas Novell Netware header. + //Do not define USE_ICONV_UNIT + {$UNDEF USE_ICONV_UNIT} + {$UNDEF USE_ICONV_ENC} +{$ENDIF} + +{$UNDEF USE_SAFELOADLIBRARY} +{$IFDEF WINDOWS} + {$UNDEF USE_ICONV_ENC} + {$DEFINE USE_SAFELOADLIBRARY} +{$ENDIF} +// Use here for all *nix systems that you do not want to use iconv library +{$IFDEF FPC} + {$IFDEF ANDROID} + {$UNDEF USE_ICONV} + {$DEFINE USE_LCONVENC} + {$ENDIF} +{$ENDIF} + +{$UNDEF USE_INVALIDATE_MOD_CACHE} +{$UNDEF USE_SAFELOADLIBRARY} +//This must come after the iconv defines because this compiler targets a Unix-like +//operating system. One key difference is that it does have a TEncoding class. +//If this comes before the ICONV defines, it creates problems. +//This also must go before the THandle size calculations. +{$IFDEF VCL_CROSS_COMPILE} + {$IFDEF POSIX} + {$IFNDEF LINUX} + {$DEFINE BSD} + {$ENDIF} + {$DEFINE USE_SAFELOADLIBRARY} + {$DEFINE USE_INVALIDATE_MOD_CACHE} + {$ENDIF} + //important!!! iconv functions are defined in the libc.pas Novell Netware header. + //Do not define USE_ICONVUNIT + {$UNDEF USE_ICONV} + {$UNDEF USE_ICONV_UNIT} + {$UNDEF USE_ICONV_ENC} + {$DEFINE INT_THREAD_PRIORITY} +{$ENDIF} + +{$IFNDEF USE_ICONV} + {$UNDEF USE_ICONV_UNIT} + {$UNDEF USE_ICONV_ENC} +{$ENDIF} + +//IMPORTANT!!!! +// +//Do not remove this!!! This is to work around a conflict. In DCC, MACOS +//will mean OS X. In FreePascal, the DEFINE MACOS means MacIntosh System OS Classic. +{$IFDEF DCC} + // DCC defines MACOS for both iOS and OS X platforms, need to differentiate + {$IFDEF MACOS} + {$IFNDEF IOS} + {$DEFINE OSX} + {$DEFINE DARWIN} + {$ENDIF} + {$ENDIF} +{$ENDIF} +{$IFDEF FPC} + // FPC defines DARWIN for both OSX and iOS, need to differentiate + {$IFDEF DARWIN} + {$IFNDEF IOS} + {$DEFINE OSX} + {$ENDIF} + {$ENDIF} + {$IFDEF MACOS} + {$DEFINE MACOS_CLASSIC} + {$ENDIF} +{$ENDIF} + +{ +BSD 4.4 introduced a minor API change. sa_family was changed from a 16bit +word to an 8 bit byte and an 8 bit byte field named sa_len was added. +} +//Place this only after DARWIN has been defined for Delphi MACOS +{$IFDEF FREEBSD} + {$DEFINE SOCK_HAS_SINLEN} +{$ENDIF} +{$IFDEF DARWIN} + {$DEFINE SOCK_HAS_SINLEN} +{$ENDIF} +{$IFDEF HAIKU} + {$DEFINE SOCK_HAS_SINLEN} +{$ENDIF} +{$IFDEF MORPHOS} + {$DEFINE SOCK_HAS_SINLEN} +{$ENDIF} + +// Do NOT remove these IFDEF's. They are here because InterlockedExchange +// only handles 32bit values. Some Operating Systems may have 64bit +// THandles. This is not always tied to the platform architecture. + +{$IFDEF AMIGA} + {$DEFINE THANDLE_CPUBITS} +{$ENDIF} +{$IFDEF ATARI} + {$DEFINE THANDLE_32} +{$ENDIF} +{$IFDEF BEOS} + {$DEFINE THANDLE_32} +{$ENDIF} +{$IFDEF BSD} + //I think BSD might handle FreeBSD, NetBSD, OpenBSD, and Darwin + {$IFDEF IOS} + {$IFDEF CPUARM64} + {$DEFINE CPU64} + {$DEFINE THANDLE_64} + {$ELSE} + {$IFDEF CPUARM32} + {$DEFINE CPU32} + {$ENDIF} + {$DEFINE THANDLE_32} + {$ENDIF} + {$ENDIF} + {$IFDEF OSX} + {$IFDEF FPC} + {$DEFINE THANDLE_32} + {$ELSE} + {$DEFINE THANDLE_CPUBITS} // !!! ADDED OSX BY EMBT + {$ENDIF} + {$ENDIF} +{$ENDIF} +{$IFDEF EMBEDDED} + {$DEFINE THANDLE_CPUBITS} +{$ENDIF} +{$IFDEF EMX} + {$DEFINE THANDLE_32} +{$ENDIF} +{$IFDEF GBA} + {$DEFINE THANDLE_32} +{$ENDIF} +{$IFDEF GO32} + {$DEFINE THANDLE_32} +{$ENDIF} +{$IFDEF HAIKU} + {$DEFINE THANDLE_32} +{$ENDIF} +{$IFDEF LINUX} + {$IFDEF LINUX64} + {$DEFINE CPU64} + {$DEFINE THANDLE_64} + {$ELSE} + {$IFDEF LINUX32} + {$DEFINE CPU32} + {$ENDIF} + {$DEFINE THANDLE_32} + {$ENDIF} +{$ENDIF} +{$IFDEF MACOS_CLASSIC} + {$DEFINE THANDLE_CPUBITS} +{$ENDIF} +{$IFDEF MORPHOS} + {$DEFINE THANDLE_CPUBITS} +{$ENDIF} +{$IFDEF NATIVENT} //Native NT for kernel level drivers + {$DEFINE THANDLE_CPUBITS} +{$ENDIF} +{$IFDEF NDS} + {$DEFINE THANDLE_32} +{$ENDIF} +{$IFDEF NETWARE} + {$DEFINE THANDLE_32} +{$ENDIF} +{$IFDEF NETWARELIBC} + {$DEFINE THANDLE_32} +{$ENDIF} +{$IFDEF OS2} + {$DEFINE THANDLE_32} +{$ENDIF} +{$IFDEF PALMOS} + {$DEFINE THANDLE_32} +{$ENDIF} +{$IFDEF SOLARIS} + {$DEFINE THANDLE_32} +{$ENDIF} +{$IFDEF SYMBIAN} + {$DEFINE THANDLE_32} +{$ENDIF} +{$IFDEF WII} + {$DEFINE THANDLE_32} +{$ENDIF} +{$IFDEF WATCOM} + {$DEFINE THANDLE_32} +{$ENDIF} +{$IFDEF WINDOWS} + {$DEFINE THANDLE_CPUBITS} +{$ENDIF} + +// end platform specific stuff for THandle size + +{$IFDEF THANDLE_CPUBITS} + {$IFDEF CPU64} + {$DEFINE THANDLE_64} + {$ELSE} + {$DEFINE THANDLE_32} + {$ENDIF} +{$ENDIF} + +{$IFDEF DOTNET} + {$DEFINE DOTNET_OR_ICONV} +{$ENDIF} +{$IFDEF USE_ICONV} + {$DEFINE DOTNET_OR_ICONV} +{$ENDIF} + +{$UNDEF STREAM_SIZE_64} +{$IFDEF FPC} + {$DEFINE STREAM_SIZE_64} +{$ELSE} + {$IFDEF VCL_6_OR_ABOVE} + {$DEFINE STREAM_SIZE_64} + {$ENDIF} +{$ENDIF} + +{$IFNDEF FREE_ON_FINAL} + {$IFNDEF DOTNET} + {$IFDEF HAS_System_RegisterExpectedMemoryLeak} + {$DEFINE REGISTER_EXPECTED_MEMORY_LEAK} + {$ENDIF} + {$IFDEF USE_FASTMM4} + {$DEFINE REGISTER_EXPECTED_MEMORY_LEAK} + {$ENDIF} + {$IFDEF USE_MADEXCEPT} + {$DEFINE REGISTER_EXPECTED_MEMORY_LEAK} + {$ENDIF} + {$IFDEF USE_LEAKCHECK} + {$DEFINE REGISTER_EXPECTED_MEMORY_LEAK} + {$ENDIF} + {$ENDIF} +{$ENDIF} + +{ +We must determine what the SocketType parameter is for the Socket function. +In DotNET, it's SocketType. In Kylix and the libc.pas Kylix-compatibility +library, it's a __socket_type. In BaseUnix, it's a C-type Integer. In Windows, +it's a LongInt. + +} +{$UNDEF SOCKETTYPE_IS_SOCKETTYPE} +{$UNDEF SOCKETTYPE_IS_CINT} +{$UNDEF SOCKETTYPE_IS___SOCKETTYPE} +{$UNDEF SOCKETTYPE_IS_LONGINT} +{$UNDEF SOCKETTYPE_IS_NUMERIC} +{$UNDEF SOCKET_LEN_IS_socklen_t} +{$IFDEF DOTNET} + {$DEFINE SOCKETTYPE_IS_SOCKETTYPE} +{$ENDIF} +{$IFDEF USE_BASEUNIX} + {$DEFINE SOCKETTYPE_IS_CINT} + {$DEFINE SOCKETTYPE_IS_NUMERIC} +{$ENDIF} +{$IFDEF KYLIXCOMPAT} + {$DEFINE SOCKETTYPE_IS___SOCKETTYPE} +{$ENDIF} +{$IFDEF USE_VCL_POSIX} + {$DEFINE SOCKETTYPE_IS_NUMERIC} + {$DEFINE SOCKETTYPE_IS_LONGINT} + {$DEFINE SOCKET_LEN_IS_socklen_t} +{$ENDIF} +{$IFDEF WINDOWS} + {$DEFINE SOCKETTYPE_IS_LONGINT} + {$DEFINE SOCKETTYPE_IS_NUMERIC} +{$ENDIF} +{$IFDEF OS2} + {$DEFINE SOCKETTYPE_IS_LONGINT} + {$DEFINE SOCKETTYPE_IS_NUMERIC} +{$ENDIF} +{$IFDEF NETWARE} + {$DEFINE SOCKETTYPE_IS_LONGINT} + {$DEFINE SOCKETTYPE_IS_NUMERIC} +{$ENDIF} + +{Take advantage of some TCP features specific to some stacks. +They work somewhat similarly but there's a key difference. +In Linux, TCP_CORK is turned on to send fixed packet sizes and +when turned-off (uncorked), any remaining data is sent. With +TCP_NOPUSH, this might not happen and remaining data is only sent +before disconnect. TCP_KEEPIDLE and TCP_KEEPINTVL so the IFDEF LINUX and IFDEF +SOLARIS instead of IFDEF UNIX is not an error, it's deliberate.} +{$UNDEF HAS_TCP_NOPUSH} +{$UNDEF HAS_TCP_CORK} +{$UNDEF HAS_TCP_KEEPIDLE} +{$UNDEF HAS_TCP_KEEPINTVL} +{$UNDEF HAS_SOCKET_NOSIGPIPE} +{$IFDEF BSD} + {$DEFINE HAS_TCP_NOPUSH} +{$ENDIF} +{$IFDEF HAIKU} + {$DEFINE HAS_TCP_NOPUSH} +{$ENDIF} +{$IFDEF LINUX} + {$DEFINE HAS_TCP_CORK} + {$DEFINE HAS_TCP_KEEPIDLE} + {$DEFINE HAS_TCP_KEEPINTVL} +{$ENDIF} +{$IFDEF SOLARIS} + {$DEFINE HAS_TCP_CORK} +{$ENDIF} +{$IFDEF NETBSD} + {$DEFINE HAS_TCP_CORK} + {$DEFINE HAS_TCP_KEEPIDLE} + {$DEFINE HAS_TCP_KEEPINTVL} +{$ENDIF} +{$IFDEF USE_VCL_POSIX} + // TODO: which platforms actually have SO_NOSIGPIPE available? + {$DEFINE HAS_SOCKET_NOSIGPIPE} + {$IFDEF ANDROID} + {$UNDEF HAS_SOCKET_NOSIGPIPE} + {$ENDIF} + {$IFDEF LINUX} + {$UNDEF HAS_SOCKET_NOSIGPIPE} + {$ENDIF} +{$ENDIF} +{end Unix OS specific stuff} +{$IFDEF DEBUG} + {$UNDEF USE_INLINE} +{$ENDIF} + +// RLebeau 5/24/2015: In C++Builder 2006 and 2007, UInt64 is emitted as +// signed __int64 in HPP files instead of as unsigned __int64. This causes +// conflicts in overloaded routines that have (U)Int64 parameters. This +// was fixed in C++Builder 2009. For compilers that do not have a native +// UInt64 type, or for C++Builder 2006/2007, let's define a record type +// that can hold UInt64 values... +{$IFDEF HAS_UInt64} + {$IFDEF BROKEN_UINT64_HPPEMIT} + {$DEFINE TIdUInt64_HAS_QuadPart} + {$ENDIF} +{$ELSE} + {$IFNDEF HAS_QWord} + {$DEFINE TIdUInt64_HAS_QuadPart} + {$ENDIF} +{$ENDIF} + +// RLebeau 9/5/2013: it would take a lot of work to re-write Indy to support +// both 0-based and 1-based string indexing, so we'll just turn off 0-based +// indexing for now... +{$IFDEF HAS_DIRECTIVE_ZEROBASEDSTRINGS} + {$ZEROBASEDSTRINGS OFF} +{$ENDIF} diff --git a/IdNTLMOpenSSL.pas b/src/IdNTLMOpenSSL.pas similarity index 72% rename from IdNTLMOpenSSL.pas rename to src/IdNTLMOpenSSL.pas index 061afc5..6f3dfd5 100644 --- a/IdNTLMOpenSSL.pas +++ b/src/IdNTLMOpenSSL.pas @@ -1,171 +1,167 @@ -{ - This file is part of the Indy (Internet Direct) project, and is offered - under the dual-licensing agreement described on the Indy website. - (http://www.indyproject.org/) - - Copyright: - (c) 1993-2024, Chad Z. Hower and the Indy Pit Crew. All rights reserved. -} - -unit IdNTLMOpenSSL; - -interface - -implementation - -uses - IdGlobal, IdFIPS, IdSSLOpenSSLHeaders, IdHashMessageDigest, - SysUtils; - -{$I IdCompilerDefines.inc} - -function LoadOpenSSL: Boolean; -begin - Result := IdSSLOpenSSLHeaders.Load; -end; - -function IsNTLMFuncsAvail: Boolean; -begin - Result := Assigned(DES_set_odd_parity) and - Assigned(DES_set_key) and - Assigned(DES_ecb_encrypt); -end; - -type - Pdes_key_schedule = ^des_key_schedule; - -{/* - * turns a 56 bit key into the 64 bit, odd parity key and sets the key. - * The key schedule ks is also set. - */} -procedure setup_des_key(key_56: des_cblock; Var ks: des_key_schedule); -Var - key: des_cblock; -begin - key[0] := key_56[0]; - - key[1] := ((key_56[0] SHL 7) and $FF) or (key_56[1] SHR 1); - key[2] := ((key_56[1] SHL 6) and $FF) or (key_56[2] SHR 2); - key[3] := ((key_56[2] SHL 5) and $FF) or (key_56[3] SHR 3); - key[4] := ((key_56[3] SHL 4) and $FF) or (key_56[4] SHR 4); - key[5] := ((key_56[4] SHL 3) and $FF) or (key_56[5] SHR 5); - key[6] := ((key_56[5] SHL 2) and $FF) or (key_56[6] SHR 6); - key[7] := (key_56[6] SHL 1) and $FF; - - DES_set_odd_parity(@key); - DES_set_key(@key, ks); -end; - -{/* - * takes a 21 byte array and treats it as 3 56-bit DES keys. The - * 8 byte plaintext is encrypted with each key and the resulting 24 - * bytes are stored in the results array. - */} -procedure calc_resp(keys: PDES_cblock; const ANonce: TIdBytes; results: Pdes_key_schedule); -Var - ks: des_key_schedule; - nonce: des_cblock; -begin - setup_des_key(keys^, ks); - Move(ANonce[0], nonce, 8); - des_ecb_encrypt(@nonce, Pconst_DES_cblock(results), ks, DES_ENCRYPT); - - setup_des_key(PDES_cblock(PtrUInt(keys) + 7)^, ks); - des_ecb_encrypt(@nonce, Pconst_DES_cblock(PtrUInt(results) + 8), ks, DES_ENCRYPT); - - setup_des_key(PDES_cblock(PtrUInt(keys) + 14)^, ks); - des_ecb_encrypt(@nonce, Pconst_DES_cblock(PtrUInt(results) + 16), ks, DES_ENCRYPT); -end; - -Const - Magic: des_cblock = ($4B, $47, $53, $21, $40, $23, $24, $25 ); - -//* setup LanManager password */ -function SetupLanManagerPassword(const APassword: String; const ANonce: TIdBytes): TIdBytes; -var - lm_hpw: array[0..20] of Byte; - lm_pw: array[0..13] of Byte; - idx, len: Integer; - ks: des_key_schedule; - lm_resp: array [0..23] of Byte; - lPassword: {$IFDEF STRING_IS_UNICODE}TIdBytes{$ELSE}AnsiString{$ENDIF}; -begin - {$IFDEF STRING_IS_UNICODE} - lPassword := IndyTextEncoding_OSDefault.GetBytes(UpperCase(APassword)); - {$ELSE} - lPassword := UpperCase(APassword); - {$ENDIF} - - len := IndyMin(Length(lPassword), 14); - if len > 0 then begin - Move(lPassword[{$IFDEF STRING_IS_UNICODE}0{$ELSE}1{$ENDIF}], lm_pw[0], len); - end; - if len < 14 then begin - for idx := len to 13 do begin - lm_pw[idx] := $0; - end; - end; - - //* create LanManager hashed password */ - - setup_des_key(pdes_cblock(@lm_pw[0])^, ks); - des_ecb_encrypt(@magic, Pconst_DES_cblock(@lm_hpw[0]), ks, DES_ENCRYPT); - - setup_des_key(pdes_cblock(PtrUInt(@lm_pw[0]) + 7)^, ks); - des_ecb_encrypt(@magic, Pconst_DES_cblock(PtrUInt(@lm_hpw[0]) + 8), ks, DES_ENCRYPT); - - FillChar(lm_hpw[16], 5, 0); - - calc_resp(PDes_cblock(@lm_hpw[0]), ANonce, Pdes_key_schedule(@lm_resp[0])); - - SetLength(Result, SizeOf(lm_resp)); - Move(lm_resp[0], Result[0], SizeOf(lm_resp)); -end; - -//* create NT hashed password */ -function CreateNTPassword(const APassword: String; const ANonce: TIdBytes): TIdBytes; -var - nt_hpw: array [1..21] of Byte; - nt_hpw128: TIdBytes; - nt_resp: array [1..24] of Byte; - LMD4: TIdHashMessageDigest4; - {$IFNDEF STRING_IS_UNICODE} - i: integer; - lPwUnicode: TIdBytes; - {$ENDIF} -begin - CheckMD4Permitted; - LMD4 := TIdHashMessageDigest4.Create; - try - {$IFDEF STRING_IS_UNICODE} - nt_hpw128 := LMD4.HashString(APassword, IndyTextEncoding_UTF16LE); - {$ELSE} - // RLebeau: TODO - should this use UTF-16 as well? This logic will - // not produce a valid Unicode string if non-ASCII characters are present! - SetLength(lPwUnicode, Length(S) * SizeOf(WideChar)); - for i := 0 to Length(S)-1 do begin - lPwUnicode[i*2] := Byte(S[i+1]); - lPwUnicode[(i*2)+1] := Byte(#0); - end; - nt_hpw128 := LMD4.HashBytes(lPwUnicode); - {$ENDIF} - finally - LMD4.Free; - end; - - Move(nt_hpw128[0], nt_hpw[1], 16); - FillChar(nt_hpw[17], 5, 0); - - calc_resp(pdes_cblock(@nt_hpw[1]), ANonce, Pdes_key_schedule(@nt_resp[1])); - - SetLength(Result, SizeOf(nt_resp)); - Move(nt_resp[1], Result[0], SizeOf(nt_resp)); -end; - -initialization - IdFIPS.LoadNTLMLibrary := LoadOpenSSL; - IdFIPS.IsNTLMFuncsAvail := IsNTLMFuncsAvail; - IdFIPS.NTLMGetLmChallengeResponse := SetupLanManagerPassword; - IdFIPS.NTLMGetNtChallengeResponse := CreateNTPassword; - -end. \ No newline at end of file +{ + This file is part of the Indy (Internet Direct) project, and is offered + under the dual-licensing agreement described on the Indy website. + (http://www.indyproject.org/) + + Copyright: + (c) 1993-2024, Chad Z. Hower and the Indy Pit Crew. All rights reserved. +} + +unit IdNTLMOpenSSL; + +interface + +implementation + +uses + IdGlobal, IdFIPS, IdSSLOpenSSLAPI, IdHashMessageDigest, IdOpenSSLHeaders_des, + SysUtils; + +{$I IdCompilerDefines.inc} +{$IFNDEF USE_OPENSSL} + {$message error Should not compile if USE_OPENSSL is not defined!!!} +{$ENDIF} + +function LoadOpenSSL: Boolean; +begin + Result := GetIOpenSSL.Init; +end; + +function IsNTLMFuncsAvail: Boolean; +begin + {$if not declared(OpenSSL_Using_Dynamic_Library_Load)} + Result := true; + {$ELSE} + Result := Assigned(DES_set_odd_parity) and + Assigned(DES_set_key) and + Assigned(DES_ecb_encrypt); + {$ifend} +end; + +type + Pdes_key_schedule = ^des_key_schedule; + +{/* + * turns a 56 bit key into the 64 bit, odd parity key and sets the key. + * The key schedule ks is also set. + */} +procedure setup_des_key(key_56: des_cblock; Var ks: des_key_schedule); +Var + key: des_cblock; +begin + key[0] := key_56[0]; + + key[1] := ((key_56[0] SHL 7) and $FF) or (key_56[1] SHR 1); + key[2] := ((key_56[1] SHL 6) and $FF) or (key_56[2] SHR 2); + key[3] := ((key_56[2] SHL 5) and $FF) or (key_56[3] SHR 3); + key[4] := ((key_56[3] SHL 4) and $FF) or (key_56[4] SHR 4); + key[5] := ((key_56[4] SHL 3) and $FF) or (key_56[5] SHR 5); + key[6] := ((key_56[5] SHL 2) and $FF) or (key_56[6] SHR 6); + key[7] := (key_56[6] SHL 1) and $FF; + + DES_set_odd_parity(@key); + DES_set_key(@key, ks); +end; + +{/* + * takes a 21 byte array and treats it as 3 56-bit DES keys. The + * 8 byte plaintext is encrypted with each key and the resulting 24 + * bytes are stored in the results array. + */} +procedure calc_resp(keys: PDES_cblock; const ANonce: TIdBytes; results: Pdes_key_schedule); +Var + ks: des_key_schedule; + nonce: des_cblock; +begin + setup_des_key(keys^, ks); + Move(ANonce[0], nonce, 8); + des_ecb_encrypt(@nonce, PDES_cblock(results), @ks, DES_ENCRYPT); + + setup_des_key(PDES_cblock(PtrUInt(keys) + 7)^, ks); + des_ecb_encrypt(@nonce, PDES_cblock(PtrUInt(results) + 8), @ks, DES_ENCRYPT); + + setup_des_key(PDES_cblock(PtrUInt(keys) + 14)^, ks); + des_ecb_encrypt(@nonce, PDES_cblock(PtrUInt(results) + 16), @ks, DES_ENCRYPT); +end; + +Const + Magic: des_cblock = ($4B, $47, $53, $21, $40, $23, $24, $25 ); + +//* setup LanManager password */ +function SetupLanManagerPassword(const APassword: String; const ANonce: TIdBytes): TIdBytes; +var + lm_hpw: array[0..20] of Byte; + lm_pw: array[0..13] of Byte; + idx, len: Integer; + ks: des_key_schedule; + lm_resp: array [0..23] of Byte; + lPassword: {$IFDEF STRING_IS_UNICODE}TIdBytes{$ELSE}AnsiString{$ENDIF}; +begin + {$IFDEF STRING_IS_UNICODE} + lPassword := IndyTextEncoding_OSDefault.GetBytes(UpperCase(APassword)); + {$ELSE} + lPassword := UpperCase(APassword); + {$ENDIF} + + len := IndyMin(Length(lPassword), 14); + if len > 0 then begin + Move(lPassword[{$IFDEF STRING_IS_UNICODE}0{$ELSE}1{$ENDIF}], lm_pw[0], len); + end; + if len < 14 then begin + for idx := len to 13 do begin + lm_pw[idx] := $0; + end; + end; + + //* create LanManager hashed password */ + + setup_des_key(pdes_cblock(@lm_pw[0])^, ks); + des_ecb_encrypt(@magic, PDES_cblock(@lm_hpw[0]), @ks, DES_ENCRYPT); + + setup_des_key(pdes_cblock(PtrUInt(@lm_pw[0]) + 7)^, ks); + des_ecb_encrypt(@magic, PDES_cblock(PtrUInt(@lm_hpw[0]) + 8), @ks, DES_ENCRYPT); + + FillChar(lm_hpw[16], 5, 0); + + calc_resp(PDes_cblock(@lm_hpw[0]), ANonce, Pdes_key_schedule(@lm_resp[0])); + + SetLength(Result, SizeOf(lm_resp)); + Move(lm_resp[0], Result[0], SizeOf(lm_resp)); +end; + +//* create NT hashed password */ +function CreateNTPassword(const APassword: String; const ANonce: TIdBytes): TIdBytes; +var + nt_hpw: array [1..21] of Byte; + nt_hpw128: TIdBytes; + nt_resp: array [1..24] of Byte; + LMD4: TIdHashMessageDigest4; +begin + CheckMD4Permitted; + LMD4 := TIdHashMessageDigest4.Create; + try + {$IFNDEF STRING_IS_UNICODE} + nt_hpw128 := LMD4.HashString(APassword, IndyTextEncoding_UTF16LE); + {$ELSE} +// nt_hpw128 := LMD4.HashBytes(BuildUnicode(APassword)); + {$ENDIF} + finally + LMD4.Free; + end; + + Move(nt_hpw128[0], nt_hpw[1], 16); + FillChar(nt_hpw[17], 5, 0); + + calc_resp(pdes_cblock(@nt_hpw[1]), ANonce, Pdes_key_schedule(@nt_resp[1])); + + SetLength(Result, SizeOf(nt_resp)); + Move(nt_resp[1], Result[0], SizeOf(nt_resp)); +end; + +initialization + IdFIPS.LoadNTLMLibrary := @LoadOpenSSL; + IdFIPS.IsNTLMFuncsAvail := @IsNTLMFuncsAvail; + IdFIPS.NTLMGetLmChallengeResponse := @SetupLanManagerPassword; + IdFIPS.NTLMGetNtChallengeResponse := @CreateNTPassword; + +end. diff --git a/src/IdOpenSSLRegister.dcr b/src/IdOpenSSLRegister.dcr new file mode 100644 index 0000000..33a8357 Binary files /dev/null and b/src/IdOpenSSLRegister.dcr differ diff --git a/IdRegisterOpenSSL.dcr b/src/IdRegisterOpenSSL.dcr similarity index 100% rename from IdRegisterOpenSSL.dcr rename to src/IdRegisterOpenSSL.dcr diff --git a/IdRegisterOpenSSL.lrs b/src/IdRegisterOpenSSL.lrs similarity index 100% rename from IdRegisterOpenSSL.lrs rename to src/IdRegisterOpenSSL.lrs diff --git a/IdRegisterOpenSSL.pas b/src/IdRegisterOpenSSL.pas similarity index 95% rename from IdRegisterOpenSSL.pas rename to src/IdRegisterOpenSSL.pas index 5c1d811..b848c32 100644 --- a/IdRegisterOpenSSL.pas +++ b/src/IdRegisterOpenSSL.pas @@ -1,93 +1,93 @@ -{ - This file is part of the Indy (Internet Direct) project, and is offered - under the dual-licensing agreement described on the Indy website. - (http://www.indyproject.org/) - - Copyright: - (c) 1993-2024, Chad Z. Hower and the Indy Pit Crew. All rights reserved. -} - -unit IdRegisterOpenSSL; - - -interface - -{$i IdCompilerDefines.inc} - -uses - Classes, - {$IFDEF DOTNET} - Borland.Vcl.Design.DesignIntF, - Borland.Vcl.Design.DesignEditors - {$ELSE} - {$IFDEF FPC} - PropEdits, - ComponentEditors - {$ELSE} - {$IFDEF VCL_6_OR_ABOVE} - DesignIntf, - DesignEditors - {$ELSE} - Dsgnintf - {$ENDIF} - {$ENDIF} - {$ENDIF} - ; - -{$IFDEF HAS_TSelectionEditor} -type - TIdOpenSSLSelectionEditor = class(TSelectionEditor) - public - procedure RequiresUnits(Proc: TGetStrProc); override; - end; -{$ENDIF} - -procedure Register; - -implementation - -uses - IdDsnCoreResourceStrings, // for RSRegIndyIOHandlers in dclIndyCore package - {$IFDEF FPC} - IdDsnResourceStrings, // for RSProt in dclIndyProtocols package - LResources, - {$ENDIF} - IdSSLOpenSSL; - -{$IFNDEF FPC} - {$R IdRegisterOpenSSL.dcr} -{$ENDIF} - -{$IFDEF HAS_TSelectionEditor} - -{TIdOpenSSLSelectionEditor} - -procedure TIdOpenSSLSelectionEditor.RequiresUnits(Proc: TGetStrProc); -begin - inherited RequiresUnits(Proc); - //for new callback event - Proc('IdCTypes'); {Do not localize} - Proc('IdSSLOpenSSLHeaders'); {Do not localize} -end; - -{$ENDIF} - -procedure Register; -begin - RegisterComponents(RSRegIndyIOHandlers{$IFDEF FPC}+RSProt{$ENDIF}, [ - TIdServerIOHandlerSSLOpenSSL, - TIdSSLIOHandlerSocketOpenSSL - ]); - - {$IFDEF HAS_TSelectionEditor} - RegisterSelectionEditor(TIdServerIOHandlerSSLOpenSSL, TIdOpenSSLSelectionEditor); - RegisterSelectionEditor(TIdSSLIOHandlerSocketOpenSSL, TIdOpenSSLSelectionEditor); - {$ENDIF} -end; - -{$IFDEF FPC} -initialization -{$i IdRegisterOpenSSL.lrs} -{$ENDIF} - -end. +{ + This file is part of the Indy (Internet Direct) project, and is offered + under the dual-licensing agreement described on the Indy website. + (http://www.indyproject.org/) + + Copyright: + (c) 1993-2024, Chad Z. Hower and the Indy Pit Crew. All rights reserved. +} + +unit IdRegisterOpenSSL; + + +interface + +{$i IdCompilerDefines.inc} + +uses + Classes, + {$IFDEF DOTNET} + Borland.Vcl.Design.DesignIntF, + Borland.Vcl.Design.DesignEditors + {$ELSE} + {$IFDEF FPC} + PropEdits, + ComponentEditors + {$ELSE} + {$IFDEF VCL_6_OR_ABOVE} + DesignIntf, + DesignEditors + {$ELSE} + Dsgnintf + {$ENDIF} + {$ENDIF} + {$ENDIF} + ; + +{$IFDEF HAS_TSelectionEditor} +type + TIdOpenSSLSelectionEditor = class(TSelectionEditor) + public + procedure RequiresUnits(Proc: TGetStrProc); override; + end; +{$ENDIF} + +procedure Register; + +implementation + +uses + IdDsnCoreResourceStrings, // for RSRegIndyIOHandlers in dclIndyCore package + {$IFDEF FPC} + IdDsnResourceStrings, // for RSProt in dclIndyProtocols package + LResources, + {$ENDIF} + IdSSLOpenSSL; + +{$IFNDEF FPC} + {$R IdRegisterOpenSSL.dcr} +{$ENDIF} + +{$IFDEF HAS_TSelectionEditor} + +{TIdOpenSSLSelectionEditor} + +procedure TIdOpenSSLSelectionEditor.RequiresUnits(Proc: TGetStrProc); +begin + inherited RequiresUnits(Proc); + //for new callback event + Proc('IdCTypes'); {Do not localize} + Proc('IdSSLOpenSSLHeaders'); {Do not localize} +end; + +{$ENDIF} + +procedure Register; +begin + RegisterComponents(RSRegIndyIOHandlers{$IFDEF FPC}+RSProt{$ENDIF}, [ + TIdServerIOHandlerSSLOpenSSL, + TIdSSLIOHandlerSocketOpenSSL + ]); + + {$IFDEF HAS_TSelectionEditor} + RegisterSelectionEditor(TIdServerIOHandlerSSLOpenSSL, TIdOpenSSLSelectionEditor); + RegisterSelectionEditor(TIdSSLIOHandlerSocketOpenSSL, TIdOpenSSLSelectionEditor); + {$ENDIF} +end; + +{$IFDEF FPC} +initialization +{$i IdRegisterOpenSSL.lrs} +{$ENDIF} + +end. diff --git a/src/IdRegisterSSL.lrs b/src/IdRegisterSSL.lrs new file mode 100644 index 0000000..c9a9c07 --- /dev/null +++ b/src/IdRegisterSSL.lrs @@ -0,0 +1,55 @@ +LazarusResources.Add('TIdServerIOHandlerSSLOpenSSL','XPM',[ + '/* XPM */'#13#10'static char *Pixmap[] = {'#13#10'"24 24 16 2",'#13#10'"00 c' + +' black",'#13#10'"01 c #800000",'#13#10'"02 c #008000",'#13#10'"03 c #808000' + +'",'#13#10'"04 c #000080",'#13#10'"05 c none",'#13#10'"06 c #008080",'#13#10 + +'"07 c #808080",'#13#10'"08 c #C0C0C0",'#13#10'"09 c red",'#13#10'"10 c gree' + +'n",'#13#10'"11 c yellow",'#13#10'"12 c blue",'#13#10'"13 c magenta",'#13#10 + +'"14 c cyan",'#13#10'"15 c Gray100",'#13#10'"0505000000000000000505050505050' + +'50505050505050505",'#13#10'"05050015151515150004040404040404040404040404040' + +'5",'#13#10'"050400151414141500151515151515151515151515150404",'#13#10'"0504' + +'00151414141500151515151515151515151515150404",'#13#10'"05040015070707070015' + +'1515151515151515151515150404",'#13#10'"050400000000000000151500000000151515' + +'151515150404",'#13#10'"000000151508080800000008080808001515151515150404",' + +#13#10'"001515080808080808070000000008070715151515150404",'#13#10'"001507070' + +'707070707070015151500080015151515150404",'#13#10'"0000000000000000000000151' + +'51500080015151515150404",'#13#10'"05041515151515150008001515150008001515151' + +'5150404",'#13#10'"050415151515150000000000000000000000151515150404",'#13#10 + +'"050415151515000808080808080808080808001515150404",'#13#10'"050415151515000' + +'707070700000007070707001515150404",'#13#10'"0504151515150008080808000000080' + +'80808001515150404",'#13#10'"05041515151500070707080800080807070700151515040' + +'4",'#13#10'"050415151515000808080807000708080808001515150404",'#13#10'"0504' + +'15151515150007070807000708070700151515150404",'#13#10'"05041515151515150000' + +'0808080808000015151515150404",'#13#10'"050415151515151515150000000000151515' + +'151515150404",'#13#10'"050415151515151515151515151515151515151515150404",' + +#13#10'"050415151515151515151515151515151515151515150404",'#13#10'"050404040' + +'404040404040404040404040404040404040404",'#13#10'"0505040404040404040404040' + +'40404040404040404040405"'#13#10'};'#13#10 +]); +LazarusResources.Add('TIdSSLIOHandlerSocketOpenSSL','XPM',[ + '/* XPM */'#13#10'static char *Pixmap[] = {'#13#10'"24 24 16 2",'#13#10'"00 c' + +' black",'#13#10'"01 c #800000",'#13#10'"02 c #008000",'#13#10'"03 c #808000' + +'",'#13#10'"04 c #000080",'#13#10'"05 c none",'#13#10'"06 c #008080",'#13#10 + +'"07 c #C0C0C0",'#13#10'"08 c #808080",'#13#10'"09 c red",'#13#10'"10 c gree' + +'n",'#13#10'"11 c yellow",'#13#10'"12 c blue",'#13#10'"13 c magenta",'#13#10 + +'"14 c cyan",'#13#10'"15 c Gray100",'#13#10'"0505050505050505050505050505050' + +'50505050505050505",'#13#10'"05050404040404040404040404040404040404040404040' + +'5",'#13#10'"050415151515151515151515151515151515151515150404",'#13#10'"0504' + +'15151515151515151515151515151515151515150404",'#13#10'"05041515151515151515' + +'1515151515151515151515150404",'#13#10'"050415151515151515150000000000151515' + +'151515150404",'#13#10'"050415151515151515000707070707001515151515150404",' + +#13#10'"050415151515151508080700000007080815151515150404",'#13#10'"050415151' + +'515151500070015151500070015151515150404",'#13#10'"0504151515151515000700151' + +'51500070015151515150404",'#13#10'"05041515151515150007001515150007001515151' + +'5150404",'#13#10'"050415151515150000000000000000000000151515150404",'#13#10 + +'"050415151515000707070707070707070707001515150404",'#13#10'"050415151515000' + +'808080800000008080808001515150404",'#13#10'"0504151515150007070707000000070' + +'70707001515150404",'#13#10'"05041515151500080808070700070708080800151515040' + +'4",'#13#10'"050415151515000707070708000807070707001515150404",'#13#10'"0504' + +'15151515150008080708000807080800151515150404",'#13#10'"05041515151515150000' + +'0707070707000015151515150404",'#13#10'"050415151515151515150000000000151515' + +'151515150404",'#13#10'"050415151515151515151515151515151515151515150404",' + +#13#10'"050415151515151515151515151515151515151515150404",'#13#10'"050404040' + +'404040404040404040404040404040404040404",'#13#10'"0505040404040404040404040' + +'40404040404040404040405"'#13#10'};'#13#10 +]); + diff --git a/src/IdRegisterSSL.pas b/src/IdRegisterSSL.pas new file mode 100644 index 0000000..a0dd6f8 --- /dev/null +++ b/src/IdRegisterSSL.pas @@ -0,0 +1,42 @@ +unit IdRegisterSSL; + +{$i IdCompilerDefines.inc} + +interface + +uses + Classes , SysUtils, IdDsnCoreResourceStrings, IdDsnResourceStrings , + {$IFDEF FPC} + LResources, + {$ENDIF} + IdSSLOpenSSL; + +procedure Register; + +implementation + +{$IFNDEF FPC} +{$R IdOpenSSLRegister.dcr} +{$ENDIF} + +procedure Register; +begin + {$IFDEF FPC} + RegisterComponents(RSRegIndyIOHandlers+RSProt, [ + TIdServerIOHandlerSSLOpenSSL, + TIdSSLIOHandlerSocketOpenSSL + ]); + {$ELSE} + RegisterComponents(RSRegIndyIOHandlers, [ + TIdServerIOHandlerSSLOpenSSL, + TIdSSLIOHandlerSocketOpenSSL + ]); + {$ENDIF} +end; + +{$IFDEF FPC} +initialization +{$i IdRegisterSSL.lrs} +{$ENDIF} +end. + diff --git a/src/IdResourceStringsOpenSSL.pas b/src/IdResourceStringsOpenSSL.pas new file mode 100644 index 0000000..8a38177 --- /dev/null +++ b/src/IdResourceStringsOpenSSL.pas @@ -0,0 +1,68 @@ +{******************************************************************************} +{ } +{ Indy (Internet Direct) - Internet Protocols Simplified } +{ } +{ https://www.indyproject.org/ } +{ https://gitter.im/IndySockets/Indy } +{ } +{******************************************************************************} +{ } +{ This file is part of the Indy (Internet Direct) project, and is offered } +{ under the dual-licensing agreement described on the Indy website. } +{ (https://www.indyproject.org/license/) } +{ } +{ Copyright: } +{ (c) 1993-2020, Chad Z. Hower and the Indy Pit Crew. All rights reserved. } +{ } +{******************************************************************************} +{ } +{ Originally written by: Fabian S. Biehn } +{ fbiehn@aagon.com (German & English) } +{ } +{ Contributers: } +{ Here could be your name } +{ } +{******************************************************************************} +unit IdResourceStringsOpenSSL; + +interface + +resourcestring + {IdOpenSSL} + RSOSSFailedToLoad = 'Failed to load %s.'; + RSOSSFailedToLoad_WithErrCode = 'Failed to load %s (error #%d).'; + RSOSSMissingExport_WithErrCode = '%s (error #%d)'; + RSOSSUnsupportedVersion = 'Unsupported SSL Library version: %.8x.'; + RSOSSUnsupportedLibrary = 'Unsupported SSL Library: %s.'; + RSOSSLModeNotSet = 'Mode has not been set.'; + RSOSSLCouldNotLoadSSLLibrary = 'Could not load SSL library.'; + RSOSSLStatusString = 'SSL status: "%s"'; + RSOSSLConnectionDropped = 'SSL connection has dropped.'; + RSOSSLCertificateLookup = 'SSL certificate request error.'; + RSOSSLInternal = 'SSL library internal error.'; + ROSSLCantGetSSLVersionNo = 'Unable to determine SSL Library Version number'; + ROSSLAPIFunctionNotPresent = 'OpenSSL API Function/Procedure %s not found in SSL Library'; + ROSUnrecognisedLibName = 'Unrecognised SSL Library name (%s)'; + ROSCertificateNotAddedToStore = 'Unable to add X.509 Certificate to cert store'; + ROSUnsupported = 'Not Supported'; + //callback where strings + RSOSSLAlert = '%s Alert'; + RSOSSLReadAlert = '%s Read Alert'; + RSOSSLWriteAlert = '%s Write Alert'; + RSOSSLAcceptLoop = 'Accept Loop'; + RSOSSLAcceptError = 'Accept Error'; + RSOSSLAcceptFailed = 'Accept Failed'; + RSOSSLAcceptExit = 'Accept Exit'; + RSOSSLConnectLoop = 'Connect Loop'; + RSOSSLConnectError = 'Connect Error'; + RSOSSLConnectFailed = 'Connect Failed'; + RSOSSLConnectExit = 'Connect Exit'; + RSOSSLHandshakeStart = 'Handshake Start'; + RSOSSLHandshakeDone = 'Handshake Done'; + {IdSSLOpenSSLFIPS} + RSOSSLEVPDigestExError = 'EVP_DigestInit_ex error'; + RSOSSLEVPDigestUpdateError = 'EVP_DigestUpdate error'; + +implementation + +end. diff --git a/src/IdSSLOpenSSL.pas b/src/IdSSLOpenSSL.pas new file mode 100644 index 0000000..2025f60 --- /dev/null +++ b/src/IdSSLOpenSSL.pas @@ -0,0 +1,1185 @@ +{ + $Project$ + $Workfile$ + $Revision$ + $DateUTC$ + $Id$ + } + {******************************************************************************} + { } + { Indy (Internet Direct) - Internet Protocols Simplified } + { } + { https://www.indyproject.org/ } + { https://gitter.im/IndySockets/Indy } + { } + {******************************************************************************} + { } + { This file is part of the Indy (Internet Direct) project, and is offered } + { under the dual-licensing agreement described on the Indy website. } + { (https://www.indyproject.org/license/) } + { } + { Copyright: } + { (c) 1993-2024, the Indy Pit Crew. All rights reserved. } + { } + {******************************************************************************} + { } + { Contributers: } + { Here could be your name } + { } + {******************************************************************************} + +{ + $Log$ +} +{ + Rev 1.41 22/02/2024 AWhyman + a. Property SSLProtocolVersion added to TSocket. This returns the SSL/TLS protocol + version that was negotiated when the session was created. + + b. SSL Headers now loaded using the IdOpenSSLLoader unit in order to support + OpenSSL 3 and later. + + c. New property TIdSSLOptions.UseSystemRootCertificateStore. Defaults to true. + If true then SSL_CTX_set_default_verify_paths is called. This causes the + certs in OPENSSLDIR/certs to be used for certificate verification + + d. Windows only: if OPENSSL_DONT_USE_WINDOWS_CERT_STORE not defined and + TIdSSLOptions.UseSystemRootCertificateStore is true then + Windows Root Certificate store is also loaded into SSL Context X.509 certificate store. + + e. Direct access to OpenSSL internal data structures (exposed in earlier versions, + but now opaque (typically 1.1.1 onwards) now uses getter and setter functions + provided by later versions of OpenSSL libraries with forwards compatibility + functions (in appropriate SSL Header unit) used to provide getters and setters + for earlier versions. + + f. New functions: OpenSSLVersion and OpenSSLDir. These are information access + that return, respectively, the OpenSSL Version string and the OpenSSL Directory. + + Rev 1.40 03/11/2009 09:04:00 AWinkelsdorf + Implemented fix for Vista+ SSL_Read and SSL_Write to allow connection + timeout. + + Rev 1.39 16/02/2005 23:26:08 CCostelloe + Changed OnVerifyPeer. Breaks existing implementation of OnVerifyPeer. See + long comment near top of file. + + Rev 1.38 1/31/05 6:02:28 PM RLebeau + Updated _GetThreadId() callback to reflect changes in IdGlobal unit + + Rev 1.37 7/27/2004 1:54:26 AM JPMugaas + Now should use the Intercept property for sends. + + Rev 1.36 2004-05-18 21:38:36 Mattias + Fixed unload bug + + Rev 1.35 2004-05-07 16:34:26 Mattias + Implemented OpenSSL locking callbacks + + Rev 1.34 27/04/2004 9:38:48 HHariri + Added compiler directive so it works in BCB + + Rev 1.33 4/26/2004 12:41:10 AM BGooijen + Fixed WriteDirect + + Rev 1.32 2004.04.08 10:55:30 PM czhower + IOHandler changes. + + Rev 1.31 3/7/2004 9:02:58 PM JPMugaas + Fixed compiler warning about visibility. + + Rev 1.30 2004.03.07 11:46:40 AM czhower + Flushbuffer fix + other minor ones found + + Rev 1.29 2/7/2004 5:50:50 AM JPMugaas + Fixed Copyright. + + Rev 1.28 2/6/2004 3:45:56 PM JPMugaas + Only a start on NET porting. This is not finished and will not compile on + DotNET> + + Rev 1.27 2004.02.03 5:44:24 PM czhower + Name changes + + Rev 1.26 1/21/2004 4:03:48 PM JPMugaas + InitComponent + + Rev 1.25 1/14/2004 11:39:10 AM JPMugaas + Server IOHandler now works. Accept was commented out. + + Rev 1.24 2003.11.29 10:19:28 AM czhower + Updated for core change to InputBuffer. + + Rev 1.23 10/21/2003 10:09:14 AM JPMugaas + Intercept enabled. + + Rev 1.22 10/21/2003 09:41:38 AM JPMugaas + Updated for new API. Verified with TIdFTP with active and passive transfers + as well as clear and protected data channels. + + Rev 1.21 10/21/2003 07:32:38 AM JPMugaas + Checked in what I have. Porting still continues. + + Rev 1.20 10/17/2003 1:08:08 AM DSiders + Added localization comments. + + Rev 1.19 2003.10.12 6:36:44 PM czhower + Now compiles. + + Rev 1.18 9/19/2003 11:24:58 AM JPMugaas + Should compile. + + Rev 1.17 9/18/2003 10:20:32 AM JPMugaas + Updated for new API. + + Rev 1.16 2003.07.16 3:26:52 PM czhower + Fixed for a core change. + + Rev 1.15 6/30/2003 1:52:22 PM BGooijen + Changed for new buffer interface + + Rev 1.14 6/29/2003 5:42:02 PM BGooijen + fixed problem in TIdSSLIOHandlerSocketOpenSSL.SetPassThrough that Henrick + Hellstrom reported + + Rev 1.13 5/7/2003 7:13:00 PM BGooijen + changed Connected to BindingAllocated in ReadFromSource + + Rev 1.12 3/30/2003 12:16:40 AM BGooijen + bugfixed+ added MakeFTPSvrPort/MakeFTPSvrPasv + + Rev 1.11 3/14/2003 06:56:08 PM JPMugaas + Added a clone method to the SSLContext. + + Rev 1.10 3/14/2003 05:29:10 PM JPMugaas + Change to prevent an AV when shutting down the FTP Server. + + Rev 1.9 3/14/2003 10:00:38 PM BGooijen + Removed TIdServerIOHandlerSSLBase.PeerPassthrough, the ssl is now enabled in + the server-protocol-files + + Rev 1.8 3/13/2003 11:55:38 AM JPMugaas + Updated registration framework to give more information. + + Rev 1.7 3/13/2003 11:07:14 AM JPMugaas + OpenSSL classes renamed. + + Rev 1.6 3/13/2003 10:28:16 AM JPMugaas + Forgot the reegistration - OOPS!!! + + Rev 1.5 3/13/2003 09:49:42 AM JPMugaas + Now uses an abstract SSL base class instead of OpenSSL so 3rd-party vendors + can plug-in their products. + + Rev 1.4 3/13/2003 10:20:08 AM BGooijen + Server side fibers + + Rev 1.3 2003.02.25 3:56:22 AM czhower + + Rev 1.2 2/5/2003 10:27:46 PM BGooijen + Fixed bug in OpenEncodedConnection + + Rev 1.1 2/4/2003 6:31:22 PM BGooijen + Fixed for Indy 10 + + Rev 1.0 11/13/2002 08:01:24 AM JPMugaas + * + * 1/8/2025 Updated by TWhyman (mwasoftware) to support OpenSSL 3.x and later + * 8/4/2025 Updated by TWhyman to avoid SSL_read handing due to non-application data +} +unit IdSSLOpenSSL; +{ + Author: Gregor Ibic (gregor.ibic@intelicom.si) + Copyright: (c) Gregor Ibic, Intelicom d.o.o and Indy Working Group. +} + +{ + Indy OpenSSL now uses the standard OpenSSL libraries + for pre-compiled win32 dlls, see: + http://www.openssl.org/related/binaries.html + recommended v0.9.8a or later +} + +{ + Important information concerning OnVerifyPeer: + Rev 1.39 of February 2005 deliberately broke the OnVerifyPeer interface, + which (obviously?) only affects programs that implemented that callback + as part of the SSL negotiation. Note that you really should always + implement OnVerifyPeer, otherwise the certificate of the peer you are + connecting to is NOT checked to ensure it is valid. + + Prior to this, if the SSL library detected a problem with a certificate + or the Depth was insufficient (i.e. the "Ok" parameter in VerifyCallback + is 0 / FALSE), then irrespective of whether your OnVerifyPeer returned True + or False, the SSL connection would be deliberately failed. + + This created a problem in that even if there was only a very minor + problem with one of the certificates in the chain (OnVerifyPeer is called + once for each certificate in the certificate chain), which the user may + have been happy to accept, the SSL negotiation would be failed. However, + changing the code to allow the SSL connection when a user returned True + for OnVerifyPeer would have meant that existing code which depended on + automatic rejection of invalid certificates would then be accepting + invalid certificates, which would have been an unacceptable security + change. + + Consequently, OnVerifyPeer was changed to deliberately break existing code + by adding an AOk parameter. To preserve the previous functionality, your + OnVerifyPeer event should do "Result := AOk;". If you wish to consider + accepting certificates that the SSL library has considered invalid, then + in your OnVerifyPeer, make sure you satisfy yourself that the certificate + really is valid and then set Result to True. In reality, in addition to + checking AOk, you should always implement code that ensures you are only + accepting certificates which are valid (at least from your point of view). + + Ciaran Costelloe, ccostelloe@flogas.ie +} +{ +RLebeau 1/12/2011: Breaking OnVerifyPeer event again, this time to add an +additional AError parameter (patch courtesy of "jvlad", dmda@yandex.ru). +This helps user code distinquish between Self-signed and invalid certificates. + +Tony Whyman 2025/8/26: Unit split to improve maintainability. See + IdSSLOpenSSLSocket + IdSSLOpenSSLOptions + IdSSLOpenSSLX509 + IdSSLOpenSSLutils +} + +interface + +{$I IdCompilerDefines.inc} + +{$IFNDEF USE_OPENSSL} + {$message error Should not compile if USE_OPENSSL is not defined!!!} +{$ENDIF} + +uses + //facilitate inlining only. + {$IFDEF WINDOWS} + Windows, + {$ENDIF} + Classes, + IdCTypes, + IdGlobal, + IdStackConsts, + IdSocketHandle, + IdComponent, + IdIOHandler, + IdGlobalProtocols, + IdThread, + IdIOHandlerSocket, + IdSSL, + IdYarn, + IdSSLOpenSSLSocket, + IdSSLOpenSSLX509, + IdSSLOpenSSLExceptionHandlers, + IdOpenSSLHeaders_ssl, + IdSSLOpenSSLOptions, + IdSSLOpenSSLFIPS {Ensure FIPS functions initialised}; + +type + TIdSSLAction = (sslRead, sslWrite); + +const + P12_FILETYPE = 3; + MAX_SSL_PASSWORD_LENGTH = 128; + +type + TIdSSLIOHandlerSocketOpenSSL = class; + TCallbackEvent = procedure(const AMsg: String) of object; + TCallbackExEvent = procedure(ASender : TObject; const aSSLSocket: TIdSSLSocket; + const AWhere, Aret: TIdC_INT; const AType, AMsg : String ) of object; + TPasswordEvent = procedure(var Password: String) of object; + TPasswordEventEx = procedure( ASender : TObject; var VPassword: String; const AIsWrite : Boolean) of object; + TVerifyPeerEvent = function(Certificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean of object; + TIOHandlerNotify = procedure(ASender: TIdSSLIOHandlerSocketOpenSSL) of object; + + { TIdSSLIOHandlerSocketOpenSSL } + + TIdSSLIOHandlerSocketOpenSSL = class(TIdSSLIOHandlerSocketBase, IIdSSLOpenSSLCallbackHelper) + protected + fSSLContext: TIdSSLContext; + fxSSLOptions: TIdSSLOptions; + fSSLSocket: TIdSSLSocket; + //fPeerCert: TIdX509; + fOnStatusInfo: TCallbackEvent; + FOnStatusInfoEx : TCallbackExEvent; + fOnGetPassword: TPasswordEvent; + fOnGetPasswordEx : TPasswordEventEx; + fOnVerifyPeer: TVerifyPeerEvent; + fSSLLayerClosed: Boolean; + fOnBeforeConnect: TIOHandlerNotify; + // function GetPeerCert: TIdX509; + //procedure CreateSSLContext(axMode: TIdSSLMode); + // + procedure SetPassThrough(const Value: Boolean); override; + procedure DoBeforeConnect(ASender: TIdSSLIOHandlerSocketOpenSSL); virtual; + procedure DoGetPassword(var Password: String); virtual; + procedure DoGetPasswordEx(var VPassword: String; const AIsWrite : Boolean); virtual; + + function DoVerifyPeer(Certificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean; virtual; + procedure DoStatusInfo(const AMsg: String); virtual; + procedure DoStatusInfoEx(const aSSLSocket: TIdSSLSocket; + const AWhere, Aret: TIdC_INT; const AWhereStr, ARetStr : String ); + function RecvEnc(var VBuffer: TIdBytes): Integer; override; + function SendEnc(const ABuffer: TIdBytes; const AOffset, ALength: Integer): Integer; override; + procedure Init; + procedure OpenEncodedConnection; virtual; + //some overrides from base classes + procedure InitComponent; override; + procedure ConnectClient; override; + function CheckForError(ALastResult: Integer): Integer; override; + procedure RaiseError(AError: Integer); override; + + { IIdSSLOpenSSLCallbackHelper } + function GetPassword(const AIsWrite : Boolean): string; + function GetSSLSocket: TIdSSLSocket; + procedure StatusInfo(const aSSLSocket: TIdSSLSocket; AWhere, ARet: TIdC_INT; const AStatusStr: string); overload; + procedure StatusInfo(const AStatusStr: string); overload; + function VerifyPeer(ACertificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean; + + public + destructor Destroy; override; + // TODO: add an AOwner parameter + function Clone : TIdSSLIOHandlerSocketBase; override; + procedure StartSSL; override; + procedure AfterAccept; override; + procedure Close; override; + procedure Open; override; + function Readable(AMSec: Integer = IdTimeoutDefault): Boolean; override; + property SSLSocket: TIdSSLSocket read fSSLSocket; + property SSLContext: TIdSSLContext read fSSLContext; + published + property SSLOptions: TIdSSLOptions read fxSSLOptions write fxSSLOptions; + property OnBeforeConnect: TIOHandlerNotify read fOnBeforeConnect write fOnBeforeConnect; + property OnStatusInfo: TCallbackEvent read fOnStatusInfo write fOnStatusInfo; + property OnStatusInfoEx: TCallbackExEvent read fOnStatusInfoEx write fOnStatusInfoEx; + property OnGetPassword: TPasswordEvent read fOnGetPassword write fOnGetPassword; + property OnGetPasswordEx : TPasswordEventEx read fOnGetPasswordEx write fOnGetPasswordEx; + property OnVerifyPeer: TVerifyPeerEvent read fOnVerifyPeer write fOnVerifyPeer; + end; + + { TIdServerIOHandlerSSLOpenSSL } + + TIdServerIOHandlerSSLOpenSSL = class(TIdServerIOHandlerSSLBase, IIdSSLOpenSSLCallbackHelper) + protected + fxSSLOptions: TIdSSLOptions; + fSSLContext: TIdSSLContext; + fOnStatusInfo: TCallbackEvent; + FOnStatusInfoEx : TCallbackExEvent; + fOnGetPassword: TPasswordEvent; + fOnGetPasswordEx : TPasswordEventEx; + fOnVerifyPeer: TVerifyPeerEvent; + // + //procedure CreateSSLContext(axMode: TIdSSLMode); + //procedure CreateSSLContext; + // + procedure DoStatusInfo(const AMsg: String); virtual; + procedure DoStatusInfoEx(const aSSLSocket: TIdSSLSocket; + const AWhere, Aret: TIdC_INT; const AWhereStr, ARetStr : String ); + procedure DoGetPassword(var Password: String); virtual; +//TPasswordEventEx + procedure DoGetPasswordEx(var VPassword: String; const AIsWrite : Boolean); virtual; + function DoVerifyPeer(Certificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean; virtual; + procedure InitComponent; override; + + { IIdSSLOpenSSLCallbackHelper } + function GetPassword(const AIsWrite : Boolean): string; + function GetSSLSocket: TIdSSLSocket; + procedure StatusInfo(const aSSLSocket: TIdSSLSocket; AWhere, ARet: TIdC_INT; const AStatusStr: string); overload; + procedure StatusInfo(const AStatusStr: string); overload; + function VerifyPeer(ACertificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean; + + public + procedure Init; override; + procedure Shutdown; override; + // AListenerThread is a thread and not a yarn. Its the listener thread. + function Accept(ASocket: TIdSocketHandle; AListenerThread: TIdThread; + AYarn: TIdYarn): TIdIOHandler; override; +// function Accept(ASocket: TIdSocketHandle; AThread: TIdThread) : TIdIOHandler; override; + destructor Destroy; override; + function MakeClientIOHandler : TIdSSLIOHandlerSocketBase; override; + // + function MakeFTPSvrPort : TIdSSLIOHandlerSocketBase; override; + function MakeFTPSvrPasv : TIdSSLIOHandlerSocketBase; override; + // + property SSLContext: TIdSSLContext read fSSLContext; + published + property SSLOptions: TIdSSLOptions read fxSSLOptions write fxSSLOptions; + property OnStatusInfo: TCallbackEvent read fOnStatusInfo write fOnStatusInfo; + property OnStatusInfoEx: TCallbackExEvent read fOnStatusInfoEx write fOnStatusInfoEx; + property OnGetPassword: TPasswordEvent read fOnGetPassword write fOnGetPassword; + property OnGetPasswordEx : TPasswordEventEx read fOnGetPasswordEx write fOnGetPasswordEx; + property OnVerifyPeer: TVerifyPeerEvent read fOnVerifyPeer write fOnVerifyPeer; + end; + + EIdOSSLCouldNotLoadSSLLibrary = class(EOpenSSLError); + EIdOSSLCreatingContextError = class(EOpenSSLAPICryptoError); + EIdOSSLDataBindingError = class(EOpenSSLAPISSLError); + EIdOSSLAcceptError = class(EOpenSSLAPISSLError); + EIdOSSLConnectError = class(EOpenSSLAPISSLError); + EIdOSSLLoadingCertError = class(EOpenSSLAPICryptoError); + EIdOSSLLoadingKeyError = class(EOpenSSLAPICryptoError); + EIdOSSLLoadingDHParamsError = class(EOpenSSLAPICryptoError); + EIdOSSLSettingCipherError = class(EOpenSSLError); + EIdOSSLLoadingRootCertError = class(EOpenSSLAPICryptoError); + EIdOSSLFDSetError = class(EOpenSSLAPISSLError); + EIdOSSLModeNotSet = class(EOpenSSLError); + EIdOSSLGetMethodError = class(EOpenSSLError); + EIdOSSLCreatingSessionError = class(EOpenSSLError); + {$IFNDEF OPENSSL_NO_TLSEXT} + EIdOSSLSettingTLSHostNameError = class(EOpenSSLAPISSLError); + {$ENDIF} + +function OpenSSLVersion: string; +function OpenSSLDir: string; + +implementation + +uses + {$IFDEF HAS_UNIT_Generics_Collections} + System.Generics.Collections, + {$ENDIF} + {$IFDEF USE_VCL_POSIX} + Posix.SysTime, + Posix.Time, + Posix.Unistd, + {$ENDIF} + IdFIPS, + IdResourceStringsOpenSSL, + IdStack, + IdCustomTransparentProxy, + IdURI, + SysUtils, + IdSSLOpenSSLAPI; + + + +type + // TODO: TIdThreadSafeObjectList instead? + {$IFDEF HAS_GENERICS_TThreadList} + TIdCriticalSectionThreadList = TThreadList<TIdCriticalSection>; + TIdCriticalSectionList = TList<TIdCriticalSection>; + {$ELSE} + // TODO: flesh out to match TThreadList<TIdCriticalSection> and TList<TIdCriticalSection> on non-Generics compilers + TIdCriticalSectionThreadList = TThreadList; + TIdCriticalSectionList = TList; + {$ENDIF} + + // RLebeau 1/24/2019: defining this as a private implementation for now to + // avoid a change in the public interface above. This should be rolled into + // the public interface at some point... + TIdSSLOptions_Internal = class(TIdSSLOptions) + public + {$IFDEF USE_OBJECT_ARC}[Weak]{$ENDIF} Parent: TObject; + end; + + +function OpenSSLVersion: string; +begin + Result := ''; + // RLebeau 9/7/2015: even if LoadOpenSSLLibrary() fails, _SSLeay_version() + // might have been loaded OK before the failure occured. LoadOpenSSLLibrary() + // does not unload .. + LoadOpenSSLLibrary; + Result := GetIOpenSSL.GetOpenSSLVersionStr; +end; + +function OpenSSLDir : string; +var i: integer; +begin + Result := ''; + LoadOpenSSLLibrary; + Result := GetIOpenSSL.GetOpenSSLPath; + {assumed format is 'OPENSSLDIR: "<dir>"'} + i := Pos('"',Result); + if i < 0 then + Result := '' + else + begin + Delete(Result,1,i); + i := Pos('"',Result); + if i < 0 then + Result := '' + else + Delete(Result,i,Length(Result)-i+1); + end; +end; + + +/////////////////////////////////////////////////////// +// TIdServerIOHandlerSSLOpenSSL +/////////////////////////////////////////////////////// + +{ TIdServerIOHandlerSSLOpenSSL } + +procedure TIdServerIOHandlerSSLOpenSSL.InitComponent; +begin + inherited InitComponent; + fxSSLOptions := TIdSSLOptions_Internal.Create; + TIdSSLOptions_Internal(fxSSLOptions).Parent := Self; +end; + +destructor TIdServerIOHandlerSSLOpenSSL.Destroy; +begin + FreeAndNil(fxSSLOptions); + inherited Destroy; +end; + +procedure TIdServerIOHandlerSSLOpenSSL.Init; +//see also TIdSSLIOHandlerSocketOpenSSL.Init +begin + //ensure Init isn't called twice + Assert(fSSLContext = nil); + fSSLContext := TIdSSLContext.Create(self,SSLOptions,sslCtxServer,Assigned(OnVerifyPeer), + Assigned(fOnStatusInfo) or Assigned(FOnStatusInfoEx)); +end; + +function TIdServerIOHandlerSSLOpenSSL.Accept(ASocket: TIdSocketHandle; + // This is a thread and not a yarn. Its the listener thread. + AListenerThread: TIdThread; AYarn: TIdYarn ): TIdIOHandler; +var + LIO: TIdSSLIOHandlerSocketOpenSSL; +begin + //using a custom scheduler, AYarn may be nil, so don't assert + Assert(ASocket<>nil); + Assert(fSSLContext<>nil); + Assert(AListenerThread<>nil); + + Result := nil; + LIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil); + try + LIO.PassThrough := True; + LIO.Open; + while not AListenerThread.Stopped do begin + if ASocket.Select(250) then begin + if (not AListenerThread.Stopped) and LIO.Binding.Accept(ASocket.Handle) then begin + //we need to pass the SSLOptions for the socket from the server + // TODO: wouldn't it be easier to just Assign() the server's SSLOptions + // here? Do we really need to share ownership of it? + // LIO.fxSSLOptions.Assign(fxSSLOptions); + FreeAndNil(LIO.fxSSLOptions); + LIO.IsPeer := True; + LIO.fxSSLOptions := fxSSLOptions; + LIO.fSSLSocket := TIdSSLSocket.Create(Self); + LIO.fSSLContext := fSSLContext; + // TODO: to enable server-side SNI, we need to: + // - Set up an additional SSL_CTX for each different certificate; + // - Add a servername callback to each SSL_CTX using SSL_CTX_set_tlsext_servername_callback(); + // - In the callback, retrieve the client-supplied servername with + // SSL_get_servername(ssl, TLSEXT_NAMETYPE_host_name). Figure out the right + // SSL_CTX to go with that host name, then switch the SSL object to that + // SSL_CTX with SSL_set_SSL_CTX(). + + // RLebeau 2/1/2022: note, the following call is basically a no-op for OpenSSL, + // because PassThrough=True and fSSLContext are both assigned above, so there + // is really nothing for TIdSSLIOHandlerSocketOpenSSL.Init() or + // TIdSSLIOHandlerSocketOpenSSL.StartSSL() to do when called by + // TIdSSLIOHandlerSocketOpenSSL.AfterAccept(). If anything, all this will + // really do is update the Binding's IPVersion. But, calling this is consistent + // with other server Accept() implementations, so we should do it here, too... + LIO.AfterAccept; + + Result := LIO; + LIO := nil; + Break; + end; + end; + end; + finally + FreeAndNil(LIO); + end; +end; + +procedure TIdServerIOHandlerSSLOpenSSL.DoStatusInfo(const AMsg: String); +begin + if Assigned(fOnStatusInfo) then begin + fOnStatusInfo(AMsg); + end; +end; + +procedure TIdServerIOHandlerSSLOpenSSL.DoStatusInfoEx( + const aSSLSocket: TIdSSLSocket; const AWhere, Aret: TIdC_INT; + const AWhereStr, ARetStr: String); +begin + if Assigned(FOnStatusInfoEx) then begin + FOnStatusInfoEx(Self,aSSLSocket,AWhere,Aret,AWHereStr,ARetStr); + end; +end; + +procedure TIdServerIOHandlerSSLOpenSSL.DoGetPassword(var Password: String); +begin + if Assigned(fOnGetPassword) then begin + fOnGetPassword(Password); + end; +end; + +procedure TIdServerIOHandlerSSLOpenSSL.DoGetPasswordEx( + var VPassword: String; const AIsWrite: Boolean); +begin + if Assigned(fOnGetPasswordEx) then begin + fOnGetPasswordEx(Self,VPassword,AIsWrite); + end; +end; + +function TIdServerIOHandlerSSLOpenSSL.DoVerifyPeer(Certificate: TIdX509; + AOk: Boolean; ADepth, AError: Integer): Boolean; +begin + Result := True; + if Assigned(fOnVerifyPeer) then begin + Result := fOnVerifyPeer(Certificate, AOk, ADepth, AError); + end; +end; + +function TIdServerIOHandlerSSLOpenSSL.MakeFTPSvrPort : TIdSSLIOHandlerSocketBase; +var + LIO : TIdSSLIOHandlerSocketOpenSSL; +begin + LIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil); + try + LIO.PassThrough := True; + LIO.OnGetPassword := DoGetPassword; + LIO.OnGetPasswordEx := OnGetPasswordEx; + LIO.IsPeer := True; // RLebeau 1/24/2019: is this still needed now? + LIO.SSLOptions.Assign(SSLOptions); + LIO.SSLOptions.Mode := sslmBoth;{or sslmClient}{doesn't really matter} + LIO.fSSLContext := SSLContext; + except + LIO.Free; + raise; + end; + Result := LIO; +end; + +procedure TIdServerIOHandlerSSLOpenSSL.Shutdown; +begin + FreeAndNil(fSSLContext); + inherited Shutdown; +end; + +function TIdServerIOHandlerSSLOpenSSL.MakeFTPSvrPasv : TIdSSLIOHandlerSocketBase; +var + LIO : TIdSSLIOHandlerSocketOpenSSL; +begin + LIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil); + try + LIO.PassThrough := True; + LIO.OnGetPassword := DoGetPassword; + LIO.OnGetPasswordEx := OnGetPasswordEx; + LIO.IsPeer := True; + LIO.SSLOptions.Assign(SSLOptions); + LIO.SSLOptions.Mode := sslmBoth;{or sslmServer} + LIO.fSSLContext := nil; + except + LIO.Free; + raise; + end; + Result := LIO; +end; + +{ IIdSSLOpenSSLCallbackHelper } + +function TIdServerIOHandlerSSLOpenSSL.GetPassword(const AIsWrite : Boolean): string; +begin + DoGetPasswordEx(Result, AIsWrite); + if Result = '' then begin + DoGetPassword(Result); + end; +end; + +function TIdServerIOHandlerSSLOpenSSL.GetSSLSocket: TIdSSLSocket; +begin + Result := nil; +end; + +procedure TIdServerIOHandlerSSLOpenSSL.StatusInfo( + const aSSLSocket: TIdSSLSocket; AWhere, ARet: TIdC_INT; + const AStatusStr: string); +var + LType, LMsg: string; +begin + DoStatusInfo(AStatusStr); + if Assigned(fOnStatusInfoEx) then begin + aSSLSocket.GetStateVars(AWhere, ARet, LType, LMsg); + DoStatusInfoEx(aSSLSocket, AWhere, ARet, LType, LMsg); + end; +end; + +procedure TIdServerIOHandlerSSLOpenSSL.StatusInfo(const AStatusStr: string); +begin + DoStatusInfo(AStatusStr); +end; + +function TIdServerIOHandlerSSLOpenSSL.VerifyPeer(ACertificate: TIdX509; + AOk: Boolean; ADepth, AError: Integer): Boolean; +begin + Result := DoVerifyPeer(ACertificate, AOk, ADepth, AError); +end; + +/////////////////////////////////////////////////////// +// TIdSSLIOHandlerSocketOpenSSL +/////////////////////////////////////////////////////// + +function TIdServerIOHandlerSSLOpenSSL.MakeClientIOHandler: TIdSSLIOHandlerSocketBase; +var + LIO : TIdSSLIOHandlerSocketOpenSSL; +begin + LIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil); + try + LIO.PassThrough := True; + // LIO.SSLOptions.Free; + // LIO.SSLOptions := SSLOptions; + // LIO.SSLContext := SSLContext; + LIO.SSLOptions.Assign(SSLOptions); + // LIO.SSLContext := SSLContext; + LIO.fSSLContext := nil;//SSLContext.Clone; // BGO: clone does not work, it must be either NIL, or SSLContext + LIO.OnGetPassword := DoGetPassword; + LIO.OnGetPasswordEx := OnGetPasswordEx; + except + LIO.Free; + raise; + end; + Result := LIO; +end; + +{ TIdSSLIOHandlerSocketOpenSSL } + +procedure TIdSSLIOHandlerSocketOpenSSL.InitComponent; +begin + inherited InitComponent; + IsPeer := False; + fxSSLOptions := TIdSSLOptions_Internal.Create; + TIdSSLOptions_Internal(fxSSLOptions).Parent := Self; + fSSLLayerClosed := True; + fSSLContext := nil; +end; + +destructor TIdSSLIOHandlerSocketOpenSSL.Destroy; +begin + FreeAndNil(fSSLSocket); + //we do not destroy these if their Parent is not Self + //because these do not belong to us when we are in a server. + if (fSSLContext <> nil) and fSSLContext.IsParent(Self) then begin + FreeAndNil(fSSLContext); + end; + if (fxSSLOptions <> nil) and + (fxSSLOptions is TIdSSLOptions_Internal) and + (TIdSSLOptions_Internal(fxSSLOptions).Parent = Self) then + begin + FreeAndNil(fxSSLOptions); + end; + inherited Destroy; +end; + +procedure TIdSSLIOHandlerSocketOpenSSL.ConnectClient; +var + LPassThrough: Boolean; +begin + // RLebeau: initialize OpenSSL before connecting the socket... + try + Init; + except + on EIdOSSLCouldNotLoadSSLLibrary do begin + if not PassThrough then raise; + end; + end; + // RLebeau 1/11/07: In case a proxy is being used, pass through + // any data from the base class unencrypted when setting up that + // connection. We should do this anyway since SSL hasn't been + // negotiated yet! + LPassThrough := fPassThrough; + fPassThrough := True; + try + inherited ConnectClient; + finally + fPassThrough := LPassThrough; + end; + DoBeforeConnect(Self); + // CreateSSLContext(sslmClient); + // CreateSSLContext(SSLOptions.fMode); + StartSSL; +end; + +procedure TIdSSLIOHandlerSocketOpenSSL.StartSSL; +begin + if not PassThrough then begin + OpenEncodedConnection; + end; +end; + +procedure TIdSSLIOHandlerSocketOpenSSL.Close; +begin + FreeAndNil(fSSLSocket); + if fSSLContext <> nil then begin + if fSSLContext.IsParent(Self) then begin + FreeAndNil(fSSLContext); + end else begin + fSSLContext := nil; + end; + end; + inherited Close; +end; + +procedure TIdSSLIOHandlerSocketOpenSSL.Open; +begin + FOpened := False; + inherited Open; +end; + +function TIdSSLIOHandlerSocketOpenSSL.Readable(AMSec: Integer = IdTimeoutDefault): Boolean; + begin + repeat + {Wait for data ready - or timer expiry} + Result := inherited Readable(AMSec); + {If the inherited Readable returns false then we have a timeout. + Otherwise data is present but could be application or non-application data} + if not Result then + Exit; + + if not fPassThrough and (fSSLSocket <> nil) then + Result := fSSLSocket.Readable in [sslDataAvailable,sslUnRecoverableError,sslEOF]; + until Result; +end; + +procedure TIdSSLIOHandlerSocketOpenSSL.SetPassThrough(const Value: Boolean); +begin + if fPassThrough <> Value then begin + if not Value then begin + if BindingAllocated then begin + if Assigned(fSSLContext) then begin + OpenEncodedConnection; + end else begin + raise EIdOSSLCouldNotLoadSSLLibrary.Create(RSOSSLCouldNotLoadSSLLibrary); + end; + end; + end + else begin + // RLebeau 8/16/2019: need to call SSL_shutdown() here if the SSL/TLS session is active. + // This is for FTP when handling CCC and REIN commands. The SSL/TLS session needs to be + // shutdown cleanly on both ends without closing the underlying socket connection because + // it is going to be used for continued unsecure communications! + if fSSLSocket <> nil then + fSSLSocket.DoShutdown; + + {$IFDEF WIN32_OR_WIN64} + // begin bug fix + if BindingAllocated and IndyCheckWindowsVersion(6) then + begin + // disables Vista+ SSL_Read and SSL_Write timeout fix + Binding.SetSockOpt(Id_SOL_SOCKET, Id_SO_RCVTIMEO, 0); + Binding.SetSockOpt(Id_SOL_SOCKET, Id_SO_SNDTIMEO, 0); + end; + // end bug fix + {$ENDIF} + end; + fPassThrough := Value; + end; +end; + +function TIdSSLIOHandlerSocketOpenSSL.RecvEnc(var VBuffer: TIdBytes): Integer; +begin + Result := fSSLSocket.Recv(VBuffer); +end; + +function TIdSSLIOHandlerSocketOpenSSL.SendEnc(const ABuffer: TIdBytes; + const AOffset, ALength: Integer): Integer; +begin + Result := fSSLSocket.Send(ABuffer, AOffset, ALength); +end; + +procedure TIdSSLIOHandlerSocketOpenSSL.AfterAccept; +begin + try + inherited AfterAccept; + // RLebeau: initialize OpenSSL after accepting a client socket... + try + Init; + except + on EIdOSSLCouldNotLoadSSLLibrary do begin + if not PassThrough then raise; + end; + end; + StartSSL; + except + Close; + raise; + end; +end; + +procedure TIdSSLIOHandlerSocketOpenSSL.Init; +//see also TIdServerIOHandlerSSLOpenSSL.Init +begin + if not Assigned(fSSLContext) then + fSSLContext := TIdSSLContext.Create(self,SSLOptions,sslCtxClient,Assigned(OnVerifyPeer), + Assigned(fOnStatusInfo) or Assigned(FOnStatusInfoEx)); +end; +//} + +procedure TIdSSLIOHandlerSocketOpenSSL.DoStatusInfo(const AMsg: String); +begin + if Assigned(fOnStatusInfo) then begin + fOnStatusInfo(AMsg); + end; +end; + +procedure TIdSSLIOHandlerSocketOpenSSL.DoStatusInfoEx( + const aSSLSocket: TIdSSLSocket; const AWhere, Aret: TIdC_INT; + const AWhereStr, ARetStr: String); +begin + if Assigned(FOnStatusInfoEx) then begin + FOnStatusInfoEx(Self,aSSLSocket,AWhere,Aret,AWHereStr,ARetStr); + end; +end; + +procedure TIdSSLIOHandlerSocketOpenSSL.DoGetPassword(var Password: String); +begin + if Assigned(fOnGetPassword) then begin + fOnGetPassword(Password); + end; +end; + +procedure TIdSSLIOHandlerSocketOpenSSL.DoGetPasswordEx(var VPassword: String; + const AIsWrite: Boolean); +begin + if Assigned(fOnGetPasswordEx) then begin + fOnGetPasswordEx(Self,VPassword,AIsWrite); + end; +end; + +function TIdSSLIOHandlerSocketOpenSSL.DoVerifyPeer(Certificate: TIdX509; + AOk: Boolean; ADepth, AError: Integer): Boolean; +begin + Result := True; + if Assigned(fOnVerifyPeer) then begin + Result := fOnVerifyPeer(Certificate, AOk, ADepth, AError); + end; +end; + +procedure TIdSSLIOHandlerSocketOpenSSL.OpenEncodedConnection; +var + {$IFDEF WIN32_OR_WIN64} + LTimeout: Integer; + {$ENDIF} + LMode: TIdSSLMode; + LHost: string; + + // TODO: move the following to TIdSSLIOHandlerSocketBase... + + function GetURIHost: string; + var + LURI: TIdURI; + begin + Result := ''; + if URIToCheck <> '' then + begin + LURI := TIdURI.Create(URIToCheck); + try + Result := LURI.Host; + finally + LURI.Free; + end; + end; + end; + + function GetProxyTargetHost: string; + var + // under ARC, convert a weak reference to a strong reference before working with it + LTransparentProxy, LNextTransparentProxy: TIdCustomTransparentProxy; + begin + Result := ''; + // RLebeau: not reading from the property as it will create a + // default Proxy object if one is not already assigned... + LTransparentProxy := FTransparentProxy; + if Assigned(LTransparentProxy) then + begin + if LTransparentProxy.Enabled then + begin + repeat + LNextTransparentProxy := LTransparentProxy.ChainedProxy; + if not Assigned(LNextTransparentProxy) then Break; + if not LNextTransparentProxy.Enabled then Break; + LTransparentProxy := LNextTransparentProxy; + until False; + Result := LTransparentProxy.Host; + end; + end; + end; + +begin + Assert(Binding<>nil); + if not Assigned(fSSLSocket) then begin + fSSLSocket := TIdSSLSocket.Create(Self); + end; + fSSLSocket.SSLContext := fSSLContext; + {$IFDEF WIN32_OR_WIN64} + // begin bug fix + if IndyCheckWindowsVersion(6) then + begin + // Note: Fix needed to allow SSL_Read and SSL_Write to timeout under + // Vista+ when connection is dropped + LTimeout := FReadTimeOut; + if LTimeout <= 0 then begin + LTimeout := 30000; // 30 seconds + end; + Binding.SetSockOpt(Id_SOL_SOCKET, Id_SO_RCVTIMEO, LTimeout); + Binding.SetSockOpt(Id_SOL_SOCKET, Id_SO_SNDTIMEO, LTimeout); + end; + // end bug fix + {$ENDIF} + // RLebeau 7/2/2015: do not rely on IsPeer to decide whether to call Connect() + // or Accept(). SSLContext.Mode controls whether a client or server method is + // used to handle the connection, so that same value should be used here as well. + // A user encountered a scenario where he needed to connect a TIdTCPClient to a + // TCP server on a hardware device, but run the client's SSLIOHandler as an SSL + // server because the device was initiating the SSL handshake as an SSL client. + // IsPeer was not designed to handle that scenario. Setting IsPeer to True + // allowed Accept() to be called here, but at the cost of causing memory leaks + // in TIdSSLIOHandlerSocketOpenSSL.Destroy() and TIdSSLIOHandlerSocketOpenSSL.Close() + // in client components! IsPeer is intended to be set to True only in server + // components... + LMode := fSSLContext.Mode; + if not (LMode in [sslmClient, sslmServer]) then begin + // Mode must be sslmBoth (or else TIdSSLContext.SetSSLMethod() would have + // raised an exception), so just fall back to previous behavior for now, + // until we can figure out a better way to handle this scenario... + if IsPeer then begin + LMode := sslmServer; + end else begin + LMode := sslmClient; + end; + end; + if LMode = sslmClient then begin + LHost := GetURIHost; + if LHost = '' then + begin + LHost := GetProxyTargetHost; + if LHost = '' then begin + LHost := Self.Host; + end; + end; + fSSLSocket.HostName := LHost; + fSSLSocket.Connect(Binding.Handle); + end else begin + fSSLSocket.HostName := ''; + fSSLSocket.Accept(Binding.Handle); + end; + fPassThrough := False; +end; + +procedure TIdSSLIOHandlerSocketOpenSSL.DoBeforeConnect(ASender: TIdSSLIOHandlerSocketOpenSSL); +begin + if Assigned(OnBeforeConnect) then begin + OnBeforeConnect(Self); + end; +end; + + +// TODO: add an AOwner parameter +function TIdSSLIOHandlerSocketOpenSSL.Clone: TIdSSLIOHandlerSocketBase; +var + LIO : TIdSSLIOHandlerSocketOpenSSL; +begin + LIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil); + try + LIO.SSLOptions.Assign( SSLOptions ); + LIO.OnStatusInfo := DoStatusInfo; + LIO.OnGetPassword := DoGetPassword; + LIO.OnGetPasswordEx := OnGetPasswordEx; + LIO.OnVerifyPeer := DoVerifyPeer; + LIO.fSSLSocket := TIdSSLSocket.Create(Self); + except + LIO.Free; + raise; + end; + Result := LIO; +end; + +function TIdSSLIOHandlerSocketOpenSSL.CheckForError(ALastResult: Integer): Integer; +//var +// err: Integer; +begin + if PassThrough then begin + Result := inherited CheckForError(ALastResult); + end else begin + Result := fSSLSocket.GetSSLError(ALastResult); + if Result = SSL_ERROR_NONE then begin + Result := 0; + Exit; + end; + if Result = SSL_ERROR_SYSCALL then begin + Result := inherited CheckForError(Integer(Id_SOCKET_ERROR)); + Exit; + end; + EOpenSSLAPISSLError.RaiseExceptionCode(Result, ALastResult, ''); + end; +end; + +procedure TIdSSLIOHandlerSocketOpenSSL.RaiseError(AError: Integer); +begin + if (PassThrough) or (AError = Id_WSAESHUTDOWN) or (AError = Id_WSAECONNABORTED) or (AError = Id_WSAECONNRESET) then begin + inherited RaiseError(AError); + end + else + fSSLSocket.RaiseError(AError); +end; + +{ IIdSSLOpenSSLCallbackHelper } + +function TIdSSLIOHandlerSocketOpenSSL.GetPassword(const AIsWrite : Boolean): string; +begin + DoGetPasswordEx(Result, AIsWrite); + if Result = '' then begin + DoGetPassword(Result); + end; +end; + +function TIdSSLIOHandlerSocketOpenSSL.GetSSLSocket: TIdSSLSocket; +begin + Result := fSSLSocket; +end; + +procedure TIdSSLIOHandlerSocketOpenSSL.StatusInfo( + const aSSLSocket: TIdSSLSocket; AWhere, ARet: TIdC_INT; + const AStatusStr: string); +var + LType, LMsg: string; +begin + DoStatusInfo(AStatusStr); + if Assigned(fOnStatusInfoEx) then begin + aSSLSocket.GetStateVars(AWhere, ARet, LType, LMsg); + DoStatusInfoEx(aSSLSocket, AWhere, ARet, LType, LMsg); + end; +end; + +procedure TIdSSLIOHandlerSocketOpenSSL.StatusInfo(const AStatusStr: string); +begin + DoStatusInfo(AStatusStr); +end; + +function TIdSSLIOHandlerSocketOpenSSL.VerifyPeer(ACertificate: TIdX509; + AOk: Boolean; ADepth, AError: Integer): Boolean; +begin + Result := DoVerifyPeer(ACertificate, AOk, ADepth, AError); +end; + + +{$I IdSymbolDeprecatedOff.inc} + +initialization + + {$I IdSymbolDeprecatedOff.inc} + RegisterSSL('OpenSSL','Indy Pit Crew', {do not localize} + 'Copyright '+Char(169)+' 1993 - 2014'#10#13 + {do not localize} + 'Chad Z. Hower (Kudzu) and the Indy Pit Crew. All rights reserved.', {do not localize} + 'Open SSL Support DLL Delphi and C++Builder interface', {do not localize} + 'http://www.indyproject.org/'#10#13 + {do not localize} + 'Original Author - Gregor Ibic', {do not localize} + TIdSSLIOHandlerSocketOpenSSL, + TIdServerIOHandlerSSLOpenSSL); + {$I IdSymbolDeprecatedOn.inc} + + TIdSSLIOHandlerSocketOpenSSL.RegisterIOHandler; +finalization + // TODO: TIdSSLIOHandlerSocketOpenSSL.UnregisterIOHandler; +end. diff --git a/src/IdSSLOpenSSLFIPS.pas b/src/IdSSLOpenSSLFIPS.pas new file mode 100644 index 0000000..e9248a5 --- /dev/null +++ b/src/IdSSLOpenSSLFIPS.pas @@ -0,0 +1,580 @@ +{******************************************************************************} +{ } +{ Indy (Internet Direct) - Internet Protocols Simplified } +{ } +{ https://www.indyproject.org/ } +{ https://gitter.im/IndySockets/Indy } +{ } +{******************************************************************************} +{ } +{ This file is part of the Indy (Internet Direct) project, and is offered } +{ under the dual-licensing agreement described on the Indy website. } +{ (https://www.indyproject.org/license/) } +{ } +{ Copyright: } +{ (c) 1993-2024, the Indy Pit Crew. All rights reserved. } +{ } +{******************************************************************************} +{ } +{ Contributers: } +{ Here could be your name } +{ } +{******************************************************************************} +unit IdSSLOpenSSLFIPS; + +{$i IdCompilerDefines.inc} +{$IFNDEF USE_OPENSSL} + {$message error Should not compile if USE_OPENSSL is not defined!!!} +{$ENDIF} + +interface + +uses + Classes, + IdSSLOpenSSLExceptionHandlers; + +type + EIdDigestError = class(EOpenSSLAPICryptoError); + EIdDigestFinalEx = class(EIdDigestError); + EIdDigestInitEx = class(EIdDigestError); + EIdDigestUpdate = class(EIdDigestError); + + +implementation + +uses + IdException, + IdGlobal, + IdCTypes, + IdFIPS, + IdSSLOpenSSLAPI, + IdResourceStringsOpenSSL, + IdOpenSSLHeaders_evp, + IdOpenSSLHeaders_crypto, + IdOpenSSLHeaders_hmac, + IdOpenSSLHeaders_ossl_typ; + +function FIPS_mode_set(onoff : TIdC_INT) : TIdC_INT; {$IFDEF INLINE}inline;{$ENDIF} +begin + Result := 0; + {$IFDEF OPENSSL_FIPS} + {$if declared(OpenSSL_Using_Dynamic_Library_Load)} + if Assigned(IdOpenSSLHeaders_crypto.FIPS_mode_set) then + {$ifend} + begin + Result := IdOpenSSLHeaders_crypto.FIPS_mode_set(onoff); + end; + {$ENDIF} +end; + +function FIPS_mode() : TIdC_INT; {$IFDEF INLINE}inline;{$ENDIF} +begin + Result := 0; + {$IFDEF OPENSSL_FIPS} + {$if declared(OpenSSL_Using_Dynamic_Library_Load)} + if Assigned(IdOpenSSLHeaders_crypto.FIPS_mode) then + {$ifend} + begin + Result := IdOpenSSLHeaders_crypto.FIPS_mode; + end; + {$ENDIF} +end; + +//**************** FIPS Support backend ******************* + +function OpenSSLIsHashingIntfAvail : Boolean; +begin + {$if declared(OpenSSL_Using_Dynamic_Library_Load)} + Result := Assigned(EVP_DigestInit_ex) and + Assigned(EVP_DigestUpdate) and + Assigned(EVP_DigestFinal_ex) ; + {$ELSE} + Result := true; + {$ifend} +end; + +function OpenSSLGetFIPSMode : Boolean; +begin + Result := FIPS_mode <> 0; +end; + +function OpenSSLSetFIPSMode(const AMode : Boolean) : Boolean; +begin + //leave this empty as we may not be using something that supports FIPS + if AMode then begin + Result := FIPS_mode_set(1) = 1; + end else begin + Result := FIPS_mode_set(0) = 1; + end; +end; + +function OpenSSLGetDigestCtx( AInst : PEVP_MD) : TIdHashIntCtx; + {$IFDEF USE_INLINE} inline; {$ENDIF} +var LRet : Integer; +begin + Result := EVP_MD_CTX_new; + + LRet := EVP_DigestInit_ex(Result, AInst, nil); + if LRet <> 1 then begin + EIdDigestInitEx.RaiseException(RSOSSLEVPDigestExError); + end; +end; + +function OpenSSLIsMD2HashIntfAvail: Boolean; +begin + {$IFDEF OPENSSL_NO_MD2} + Result := False; + {$ELSE} + {$if declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_md2)} + Result := Assigned(EVP_md2); + {$ELSE} + Result := true; + {$ifend} + {$ENDIF} +end; + +function OpenSSLGetMD2HashInst : TIdHashIntCtx; +{$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_md2)} +var + LRet : PEVP_MD; +begin + LRet := EVP_md2; + Result := OpenSSLGetDigestCtx(LRet); + {$ELSE} +begin + Result := nil; + {$IFEND} +end; + +function OpenSSLIsMD4HashIntfAvail: Boolean; +begin + {$if declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_md4)} + Result := Assigned(EVP_md4); + {$ELSE} + Result := true; + {$ifend} +end; + +function OpenSSLGetMD4HashInst : TIdHashIntCtx; +{$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_md4)} +var + LRet : PEVP_MD; +begin + LRet := EVP_md4; + Result := OpenSSLGetDigestCtx(LRet); +{$ELSE} +begin + Result := nil; +{$IFEND} +end; + +function OpenSSLIsMD5HashIntfAvail: Boolean; +begin + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_md5)} + Result := Assigned(EVP_md5); + {$ELSE} + Result := true; + {$IFEND} +end; + +function OpenSSLGetMD5HashInst : TIdHashIntCtx; +{$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_md5)} +var + LRet : PEVP_MD; +begin + LRet := EVP_md5; + Result := OpenSSLGetDigestCtx(LRet); + {$ELSE} + begin + Result := nil; + {$IFEND} +end; + +function OpenSSLIsSHA1HashIntfAvail: Boolean; +begin + {$IFDEF OPENSSL_NO_SHA} + Result := False; + {$ELSE} + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_sha1)} + Result := Assigned(EVP_sha1); + {$ELSE} + Result := true; + {$ifend} + {$ENDIF} +end; + +function OpenSSLGetSHA1HashInst : TIdHashIntCtx; +{$IFNDEF OPENSSL_NO_SHA} +var + LRet : PEVP_MD; +{$ENDIF} +begin + {$IFDEF OPENSSL_NO_SHA} + Result := nil; + {$ELSE} + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_sha1)} + LRet := EVP_sha1; + Result := OpenSSLGetDigestCtx(LRet); + {$ELSE} + Result := nil; + {$ifend} + {$ENDIF} +end; + +function OpenSSLIsSHA224HashIntfAvail: Boolean; +begin + {$IFDEF OPENSSL_NO_SHA256} + Result := False; + {$ELSE} + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_sha224)} + Result := Assigned(EVP_sha224); + {$ELSE} + Result := true; + {$IFEND} + {$ENDIF} +end; + +function OpenSSLGetSHA224HashInst : TIdHashIntCtx; +{$IFNDEF OPENSSL_NO_SHA256} +var + LRet : PEVP_MD; +{$ENDIF} +begin + {$IFDEF OPENSSL_NO_SHA256} + Result := nil; + {$ELSE} + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_sha224)} + LRet := EVP_sha224; + Result := OpenSSLGetDigestCtx(LRet); + {$IFEND} + {$ENDIF} +end; + +function OpenSSLIsSHA256HashIntfAvail: Boolean; +begin + {$IFDEF OPENSSL_NO_SHA256} + Result := False; + {$ELSE} + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_sha256)} + Result := Assigned(EVP_sha256); + {$ELSE} + Result := true; + {$IFEND} + {$ENDIF} +end; + +function OpenSSLGetSHA256HashInst : TIdHashIntCtx; +{$IFNDEF OPENSSL_NO_SHA256} +var + LRet : PEVP_MD; +{$ENDIF} +begin + {$IFDEF OPENSSL_NO_SHA256} + Result := nil; + {$ELSE} + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_sha256)} + LRet := EVP_sha256; + Result := OpenSSLGetDigestCtx(LRet); + {$ifend} + {$ENDIF} +end; + +function OpenSSLIsSHA384HashIntfAvail: Boolean; +begin + {$IFDEF OPENSSL_NO_SHA512} + Result := False; + {$ELSE} + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_sha384)} + Result := Assigned(EVP_sha384); + {$ELSE} + Result := false; + {$IFEND} + {$ENDIF} +end; + +function OpenSSLGetSHA384HashInst : TIdHashIntCtx; +{$IFNDEF OPENSSL_NO_SHA512} +var + LRet : PEVP_MD; +{$ENDIF} +begin + {$IFDEF OPENSSL_NO_SHA512} + Result := nil; + {$ELSE} + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_sha384)} + LRet := EVP_sha384; + Result := OpenSSLGetDigestCtx(LRet); + {$ELSE} + Result := nil; + {$IFEND} + {$ENDIF} +end; + +function OpenSSLIsSHA512HashIntfAvail: Boolean; +begin + {$IFDEF OPENSSL_NO_SHA512} + Result := nil; + {$ELSE} + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_sha512)} + Result := Assigned(EVP_sha512); + {$ELSE} + Result := true; + {$IFEND} + {$ENDIF} +end; + +function OpenSSLGetSHA512HashInst : TIdHashIntCtx; +{$IFNDEF OPENSSL_NO_SHA512} +var + LRet : PEVP_MD; +{$ENDIF} +begin + {$IFDEF OPENSSL_NO_SHA512} + Result := nil; + {$ELSE} + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_sha512)} + LRet := EVP_sha512; + Result := OpenSSLGetDigestCtx(LRet); + {$ELSE} + Result := nil; + {$IFEND} +{$ENDIF} +end; + +procedure OpenSSLUpdateHashInst(ACtx: TIdHashIntCtx; const AIn: TIdBytes); +var + LRet : TIdC_Int; +begin + LRet := EVP_DigestUpdate(ACtx, PByte(Ain), Length(AIn)); + if LRet <> 1 then begin + EIdDigestInitEx.RaiseException(RSOSSLEVPDigestUpdateError); + end; +end; + +function OpenSSLFinalHashInst(ACtx: TIdHashIntCtx): TIdBytes; +var + LLen : TIdC_UInt; + LRet : TIdC_Int; +begin + SetLength(Result,EVP_MAX_MD_SIZE); + LRet := EVP_DigestFinal_ex(ACtx, PByte(@Result[0]), LLen); + if LRet <> 1 then begin + EIdDigestFinalEx.RaiseException('EVP_DigestFinal_ex error'); + end; + SetLength(Result,LLen); + EVP_MD_CTX_free(PEVP_MD_CTX(ACtx)); +end; + +function OpenSSLIsHMACAvail : Boolean; +begin + {$IFDEF OPENSSL_NO_HMAC} + Result := False; + {$ELSE} + {$if declared(OpenSSL_Using_Dynamic_Library_Load)} + Result := Assigned(HMAC_CTX_new) and + Assigned(HMAC_Init_ex) and + Assigned(HMAC_Update) and + Assigned(HMAC_Final) and + Assigned(HMAC_CTX_free); + {$ELSE} + Result := true; + {$ifend} + {$ENDIF} +end; + +function OpenSSLIsHMACMD5Avail: Boolean; +begin + {$IFDEF OPENSSL_NO_MD5} + Result := False; + {$ELSE} + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_md5)} + Result := Assigned(EVP_md5); + {$ELSE} + Result := true; + {$IFEND} + {$ENDIF} +end; + +function OpenSSLGetHMACMD5Inst(const AKey : TIdBytes) : TIdHMACIntCtx; +begin + {$IF not (declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_md5))} + Result := nil; + {$ELSE} + Result := HMAC_CTX_new; + HMAC_Init_ex(Result, PByte(AKey), Length(AKey), EVP_md5, nil); + {$IFEND} +end; + +function OpenSSLIsHMACSHA1Avail: Boolean; +begin + {$IFDEF OPENSSL_NO_SHA} + Result := False; + {$ELSE} + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_sha1)} + Result := Assigned(EVP_sha1); + {$ELSE} + Result := true; + {$IFEND} + {$ENDIF} +end; + +function OpenSSLGetHMACSHA1Inst(const AKey : TIdBytes) : TIdHMACIntCtx; +begin + {$IFDEF OPENSSL_NO_SHA} + Result := nil; + {$ELSE} + Result := HMAC_CTX_new; + HMAC_Init_ex(Result, PByte(AKey), Length(AKey), EVP_sha1, nil); + {$ENDIF} +end; + +function OpenSSLIsHMACSHA224Avail: Boolean; + +begin + {$IFDEF OPENSSL_NO_SHA256} + Result := False; + {$ELSE} + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_sha224)} + Result := Assigned(EVP_sha224); + {$ELSE} + Result := true; + {$IFEND} + {$ENDIF} +end; + +function OpenSSLGetHMACSHA224Inst(const AKey : TIdBytes) : TIdHMACIntCtx; +begin + {$IFDEF OPENSSL_NO_SHA256} + Result := nil; + {$ELSE} + Result := HMAC_CTX_new; + HMAC_Init_ex(Result, PByte(AKey), Length(AKey), EVP_sha224, nil); + {$ENDIF} +end; + +function OpenSSLIsHMACSHA256Avail: Boolean; +begin + {$IFDEF OPENSSL_NO_SHA256} + Result := False; + {$ELSE} + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_sha256)} + Result := Assigned(EVP_sha256); + {$ELSE} + Result := true; + {$IFEND} + {$ENDIF} +end; + +function OpenSSLGetHMACSHA256Inst(const AKey : TIdBytes) : TIdHMACIntCtx; +begin + {$IFDEF OPENSSL_NO_SHA256} + Result := nil; + {$ELSE} + Result := HMAC_CTX_new; + HMAC_Init_ex(Result, PByte(AKey), Length(AKey), EVP_sha256, nil); + {$ENDIF} +end; + +function OpenSSLIsHMACSHA384Avail: Boolean; +begin + {$IFDEF OPENSSL_NO_SHA512} + Result := False; + {$ELSE} + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_sha384)} + Result := Assigned(EVP_sha384); + {$ELSE} + Result := true; + {$IFEND} + {$ENDIF} +end; + +function OpenSSLGetHMACSHA384Inst(const AKey : TIdBytes) : TIdHMACIntCtx; +begin + {$IFDEF OPENSSL_NO_SHA512} + Result := nil; + {$ELSE} + Result := HMAC_CTX_new; + HMAC_Init_ex(Result, PByte(AKey), Length(AKey), EVP_sha384, nil); + {$ENDIF} +end; + +function OpenSSLIsHMACSHA512Avail: Boolean; +begin + {$IFDEF OPENSSL_NO_SHA512} + Result := False; + {$ELSE} + {$IF declared(OpenSSL_Using_Dynamic_Library_Load) and declared(EVP_sha512)} + Result := Assigned(EVP_sha512); + {$ELSE} + Result := true; + {$IFEND} + {$ENDIF} +end; + +function OpenSSLGetHMACSHA512Inst(const AKey : TIdBytes) : TIdHMACIntCtx; +begin + {$IFDEF OPENSSL_NO_SHA512} + Result := nil; + {$ELSE} + Result := HMAC_CTX_new; + HMAC_Init_ex(Result, PByte(AKey), Length(AKey), EVP_sha512, nil); + {$ENDIF} +end; + +procedure OpenSSLUpdateHMACInst(ACtx : TIdHMACIntCtx; const AIn: TIdBytes); +begin + HMAC_Update(ACtx, PByte(AIn), Length(AIn)); +end; + +function OpenSSLFinalHMACInst(ACtx: TIdHMACIntCtx): TIdBytes; +var + LLen : TIdC_UInt; +begin + LLen := EVP_MAX_MD_SIZE; + SetLength(Result,LLen); + HMAC_Final(ACtx, PByte(@Result[0]), @LLen); + SetLength(Result,LLen); + HMAC_CTX_free(ACtx); +end; + +//**************************************************** + +initialization + SetFIPSMode := OpenSSLSetFIPSMode; + GetFIPSMode := OpenSSLGetFIPSMode; + IsHashingIntfAvail := OpenSSLIsHashingIntfAvail; + IsMD2HashIntfAvail := OpenSSLIsMD2HashIntfAvail; + GetMD2HashInst := OpenSSLGetMD2HashInst; + IsMD4HashIntfAvail := OpenSSLIsMD4HashIntfAvail; + GetMD4HashInst := OpenSSLGetMD4HashInst; + IsMD5HashIntfAvail := OpenSSLIsMD5HashIntfAvail; + GetMD5HashInst := OpenSSLGetMD5HashInst; + IsSHA1HashIntfAvail := OpenSSLIsSHA1HashIntfAvail; + GetSHA1HashInst := OpenSSLGetSHA1HashInst; + IsSHA224HashIntfAvail := OpenSSLIsSHA224HashIntfAvail; + GetSHA224HashInst := OpenSSLGetSHA224HashInst; + IsSHA256HashIntfAvail := OpenSSLIsSHA256HashIntfAvail; + GetSHA256HashInst := OpenSSLGetSHA256HashInst; + IsSHA384HashIntfAvail := OpenSSLIsSHA384HashIntfAvail; + GetSHA384HashInst := OpenSSLGetSHA384HashInst; + IsSHA512HashIntfAvail := OpenSSLIsSHA512HashIntfAvail; + GetSHA512HashInst := OpenSSLGetSHA512HashInst; + UpdateHashInst := OpenSSLUpdateHashInst; + FinalHashInst := OpenSSLFinalHashInst; + IsHMACAvail := OpenSSLIsHMACAvail; + IsHMACMD5Avail := OpenSSLIsHMACMD5Avail; + GetHMACMD5HashInst := OpenSSLGetHMACMD5Inst; + IsHMACSHA1Avail := OpenSSLIsHMACSHA1Avail; + GetHMACSHA1HashInst:= OpenSSLGetHMACSHA1Inst; + IsHMACSHA224Avail := OpenSSLIsHMACSHA224Avail; + GetHMACSHA224HashInst:= OpenSSLGetHMACSHA224Inst; + IsHMACSHA256Avail := OpenSSLIsHMACSHA256Avail; + GetHMACSHA256HashInst:= OpenSSLGetHMACSHA256Inst; + IsHMACSHA384Avail := OpenSSLIsHMACSHA384Avail; + GetHMACSHA384HashInst:= OpenSSLGetHMACSHA384Inst; + IsHMACSHA512Avail := OpenSSLIsHMACSHA512Avail; + GetHMACSHA512HashInst:= OpenSSLGetHMACSHA512Inst; + UpdateHMACInst := OpenSSLUpdateHMACInst; + FinalHMACInst := OpenSSLFinalHMACInst; +end. + diff --git a/src/IdSSLOpenSSLOptions.pas b/src/IdSSLOpenSSLOptions.pas new file mode 100644 index 0000000..4be5d26 --- /dev/null +++ b/src/IdSSLOpenSSLOptions.pas @@ -0,0 +1,198 @@ +unit IdSSLOpenSSLOptions; + +{ + $Project$ + $Workfile$ + $Revision$ + $DateUTC$ + $Id$ + } + {******************************************************************************} + { } + { Indy (Internet Direct) - Internet Protocols Simplified } + { } + { https://www.indyproject.org/ } + { https://gitter.im/IndySockets/Indy } + { } + {******************************************************************************} + { } + { This file is part of the Indy (Internet Direct) project, and is offered } + { under the dual-licensing agreement described on the Indy website. } + { (https://www.indyproject.org/license/) } + { } + { Copyright: } + { (c) 1993-2025, the Indy Pit Crew. All rights reserved. } + { } + {******************************************************************************} + { } + { Contributers: } + { Source code extracted from IdSSLOpenSSL by Tony Whyman (MWA Software)} + { tony@mwasoftware.co.uk } + { } + {******************************************************************************} + +{ + $Log$ +} + +interface + +{$I IdCompilerDefines.inc} + +{$IFNDEF USE_OPENSSL} + {$message error Should not compile if USE_OPENSSL is not defined!!!} +{$ENDIF} + +uses + Classes, + SysUtils + ; + +type + TIdSSLVersion = (sslUnknown,sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1,sslvTLSv1_1, + sslvTLSv1_2, sslvTLSv1_3); + {This list must be identical to TOpenSSL_Version as defined in IdOpenSSLHeaders_ssl} + TIdSSLVersions = set of TIdSSLVersion; + TIdSSLMode = (sslmUnassigned, sslmClient, sslmServer, sslmBoth); + TIdSSLCtxMode = (sslCtxClient, sslCtxServer); + TIdSSLVerifyMode = (sslvrfPeer, sslvrfFailIfNoPeerCert, sslvrfClientOnce); + TIdSSLVerifyModeSet = set of TIdSSLVerifyMode; + +const + DEF_SSLVERSION = sslvTLSv1_2; + DEF_SSLVERSIONS = [sslvTLSv1_2,sslvTLSv1_3]; + MAX_SSLVERSION = sslvTLSv1_3; + +type + + { TIdSSLOptions } + + TIdSSLOptions = class(TPersistent) + private + fUseSystemRootCertificateStore : boolean; + protected + fsRootCertFile, + fsCertFile, + fsKeyFile, + fsDHParamsFile: String; + fMethod: TIdSSLVersion; + fSSLVersions : TIdSSLVersions; + fMode: TIdSSLMode; + fVerifyDepth: Integer; + fVerifyMode: TIdSSLVerifyModeSet; + //fVerifyFile, + fVerifyDirs: String; + fCipherList: String; + procedure AssignTo(Destination: TPersistent); override; + procedure SetSSLVersions(const AValue : TIdSSLVersions); + procedure SetMethod(const AValue : TIdSSLVersion); + public + constructor Create; + // procedure Assign(ASource: TPersistent); override; + published + property RootCertFile: String read fsRootCertFile write fsRootCertFile; + property CertFile: String read fsCertFile write fsCertFile; + property KeyFile: String read fsKeyFile write fsKeyFile; + property DHParamsFile: String read fsDHParamsFile write fsDHParamsFile; + property Method: TIdSSLVersion read fMethod write SetMethod default DEF_SSLVERSION; {ignored with OpenSSL 1.1.0 or later} + property SSLVersions : TIdSSLVersions read fSSLVersions + write SetSSLVersions + default DEF_SSLVERSIONS; {SSLVersions is only used to determine min version with OpenSSL 1.1.0 or later} + property Mode: TIdSSLMode read fMode write fMode; + property VerifyMode: TIdSSLVerifyModeSet read fVerifyMode write fVerifyMode; + property VerifyDepth: Integer read fVerifyDepth write fVerifyDepth; +// property VerifyFile: String read fVerifyFile write fVerifyFile; + property VerifyDirs: String read fVerifyDirs write fVerifyDirs; + property UseSystemRootCertificateStore: boolean read fUseSystemRootCertificateStore write fUseSystemRootCertificateStore default true; + property CipherList: String read fCipherList write fCipherList; + end; + +implementation + +uses + IdOpenSSLHeaders_ssl + ; + +////////////////////////////////////////////////////// +// TIdSSLOptions +/////////////////////////////////////////////////////// + +constructor TIdSSLOptions.Create; +begin + inherited Create; + fMethod := DEF_SSLVERSION; + fSSLVersions := DEF_SSLVERSIONS; + fUseSystemRootCertificateStore := true; +end; + +procedure TIdSSLOptions.SetMethod(const AValue: TIdSSLVersion); +begin + fMethod := AValue; + if AValue = sslvSSLv23 then begin + fSSLVersions := [sslvSSLv2,sslvSSLv3,sslvTLSv1,sslvTLSv1_1,sslvTLSv1_2]; + end else begin + fSSLVersions := [AValue]; + end; +end; + +procedure TIdSSLOptions.SetSSLVersions(const AValue: TIdSSLVersions); +begin + fSSLVersions := AValue; + if fSSLVersions = [sslvSSLv2] then begin + fMethod := sslvSSLv2; + end + else if fSSLVersions = [sslvSSLv3] then begin + fMethod := sslvSSLv3; + end + else if fSSLVersions = [sslvTLSv1] then begin + fMethod := sslvTLSv1; + end + else if fSSLVersions = [sslvTLSv1_1 ] then begin + fMethod := sslvTLSv1_1; + end + else if fSSLVersions = [sslvTLSv1_2 ] then begin + fMethod := sslvTLSv1_2; + end + else if fSSLVersions = [sslvTLSv1_3 ] then begin + if HasTLS_method then + fMethod := sslvTLSv1_3 + else + fMethod := sslvTLSv1_2; + end + else begin + fMethod := sslvSSLv23; + if sslvSSLv23 in fSSLVersions then begin + Exclude(fSSLVersions, sslvSSLv23); + if fSSLVersions = [] then begin + fSSLVersions := [sslvSSLv2,sslvSSLv3,sslvTLSv1,sslvTLSv1_1,sslvTLSv1_2]; + end; + end; + end; +end; + +procedure TIdSSLOptions.AssignTo(Destination: TPersistent); +var + LDest: TIdSSLOptions; +begin + if Destination is TIdSSLOptions then begin + LDest := TIdSSLOptions(Destination); + LDest.RootCertFile := RootCertFile; + LDest.CertFile := CertFile; + LDest.KeyFile := KeyFile; + LDest.DHParamsFile := DHParamsFile; + LDest.Method := Method; + LDest.SSLVersions := SSLVersions; + LDest.Mode := Mode; + LDest.VerifyMode := VerifyMode; + LDest.VerifyDepth := VerifyDepth; + LDest.fUseSystemRootCertificateStore := fUseSystemRootCertificateStore; + LDest.VerifyDirs := VerifyDirs; + LDest.CipherList := CipherList; + end else begin + inherited AssignTo(Destination); + end; +end; + + +end. + diff --git a/src/IdSSLOpenSSLSocket.pas b/src/IdSSLOpenSSLSocket.pas new file mode 100644 index 0000000..a490505 --- /dev/null +++ b/src/IdSSLOpenSSLSocket.pas @@ -0,0 +1,1505 @@ +unit IdSSLOpenSSLSocket; + +{ + $Project$ + $Workfile$ + $Revision$ + $DateUTC$ + $Id$ + } + {******************************************************************************} + { } + { Indy (Internet Direct) - Internet Protocols Simplified } + { } + { https://www.indyproject.org/ } + { https://gitter.im/IndySockets/Indy } + { } + {******************************************************************************} + { } + { This file is part of the Indy (Internet Direct) project, and is offered } + { under the dual-licensing agreement described on the Indy website. } + { (https://www.indyproject.org/license/) } + { } + { Copyright: } + { (c) 1993-2025, the Indy Pit Crew. All rights reserved. } + { } + {******************************************************************************} + { } + { Contributers: } + { Source code extracted from IdSSLOpenSSL by Tony Whyman (MWA Software)} + { tony@mwasoftware.co.uk } + { } + {******************************************************************************} + +{ + $Log$ +} + +interface + +uses + Classes, + SysUtils, + IdCTypes, + IdGlobal, + IdStackConsts, + IdSSLOpenSSLX509, + IdSSLOpenSSLExceptionHandlers, + IdOpenSSLHeaders_ssl, + IdSSLOpenSSLOptions, + IdOpenSSLHeaders_ossl_typ + ; + +{$I IdCompilerDefines.inc} + +{$IFDEF WINDOWS} +{$IFNDEF OPENSSL_DONT_USE_WINDOWS_CERT_STORE} +{$DEFINE USE_WINDOWS_CERT_STORE} +{$ENDIF} +{$ENDIF} + +{$IFNDEF USE_OPENSSL} + {$message error Should not compile if USE_OPENSSL is not defined!!!} +{$ENDIF} + +type + + TIdSSLByteArray = record + Length: TIdC_UINT; + Data: PByte; + end; + + TIdSSLReadStatus = (sslDataAvailable, sslNoData, sslEOF, sslUnrecoverableError); + + TIdSSLSocket = class; + + // TIdSSLIOHandlerSocketOpenSSL and TIdServerIOHandlerSSLOpenSSL have some common + // functions, but they do not have a common ancestor, so this interface helps + // bridge the gap... + IIdSSLOpenSSLCallbackHelper = interface(IInterface) + ['{583F1209-10BA-4E06-8810-155FAEC415FE}'] + function GetPassword(const AIsWrite : Boolean): string; + function GetSSLSocket: TIdSSLSocket; + procedure StatusInfo(const aSSLSocket: TIdSSLSocket; AWhere, ARet: TIdC_INT; const AStatusStr: string); overload; + procedure StatusInfo(const AStatusStr: string); overload; + function VerifyPeer(ACertificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean; + end; + + TIdSSLCipher = class(TPersistent) + protected + FSSLSocket: TIdSSLSocket; + function GetDescription: String; + function GetName: String; + function GetBits: Integer; + function GetVersion: String; + public + constructor Create(AOwner: TIdSSLSocket); + published + property Description: String read GetDescription; + property Name: String read GetName; + property Bits: Integer read GetBits; + property Version: String read GetVersion; + end; + + { TIdSSLContext } + + TIdSSLContext = class(TPersistent) + private + {$IFDEF USE_OBJECT_ARC}[Weak]{$ENDIF} fParent: TObject; + fUseSystemRootCertificateStore : boolean; + {$IFDEF USE_WINDOWS_CERT_STORE} + procedure LoadWindowsCertStore; + {$ENDIF} + protected + fMethod: TIdSSLVersion; + fSSLVersions : TIdSSLVersions; + fMode: TIdSSLMode; + fsRootCertFile, fsCertFile, fsKeyFile, fsDHParamsFile: String; + fVerifyDepth: Integer; + fVerifyMode: TIdSSLVerifyModeSet; +// fVerifyFile: String; + fVerifyDirs: String; + fCipherList: String; + fContext: PSSL_CTX; + fStatusInfoOn: Boolean; +// fPasswordRoutineOn: Boolean; + fVerifyOn: Boolean; + fSessionId: Integer; + fCtxMode: TIdSSLCtxMode; + procedure DestroyContext; + function SetSSLMethod: PSSL_METHOD; + procedure SetVerifyMode(Mode: TIdSSLVerifyModeSet; CheckRoutine: Boolean); + function GetVerifyMode: TIdSSLVerifyModeSet; + procedure InitContext(CtxMode: TIdSSLCtxMode); + constructor Create; overload; + public + constructor Create(aParent: TObject; SSLOptions: TIdSSLOptions; CtxMode: TIdSSLCtxMode; + aVerifyOn, aStatusInfoOn: boolean); overload; + destructor Destroy; override; + function Clone : TIdSSLContext; + function LoadRootCert: Boolean; + function LoadCert: Boolean; + function LoadKey: Boolean; + function LoadDHParams: Boolean; + function IsParent(aObject: TObject): boolean; + function GetCallbackHelper: IIdSSLOpenSSLCallbackHelper; + property StatusInfoOn: Boolean read fStatusInfoOn write fStatusInfoOn; +// property PasswordRoutineOn: Boolean read fPasswordRoutineOn write fPasswordRoutineOn; + property VerifyOn: Boolean read fVerifyOn write fVerifyOn; + published + property SSLVersions : TIdSSLVersions read fSSLVersions write fSSLVersions; + property Method: TIdSSLVersion read fMethod write fMethod; + property Mode: TIdSSLMode read fMode write fMode; + property RootCertFile: String read fsRootCertFile write fsRootCertFile; + property CertFile: String read fsCertFile write fsCertFile; + property CipherList: String read fCipherList write fCipherList; + property KeyFile: String read fsKeyFile write fsKeyFile; + property DHParamsFile: String read fsDHParamsFile write fsDHParamsFile; +// property VerifyMode: TIdSSLVerifyModeSet read GetVerifyMode write SetVerifyMode; +// property VerifyFile: String read fVerifyFile write fVerifyFile; + property UseSystemRootCertificateStore: boolean read fUseSystemRootCertificateStore write fUseSystemRootCertificateStore; + property VerifyDirs: String read fVerifyDirs write fVerifyDirs; + property VerifyMode: TIdSSLVerifyModeSet read fVerifyMode write fVerifyMode; + property VerifyDepth: Integer read fVerifyDepth write fVerifyDepth; + + end; + + { TIdSSLSocket } + + TIdSSLSocket = class(TObject) + private + fSession: PSSL_SESSION; + function GetProtocolVersion: TIdSSLVersion; + function GetSSLProtocolVersionStr: string; + procedure SetSSLContext(AValue: TIdSSLContext); + protected + {$IFDEF USE_OBJECT_ARC}[Weak]{$ENDIF} fParent: TObject; + fPeerCert: TIdX509; + fSSL: PSSL; + fSSLCipher: TIdSSLCipher; + fSSLContext: TIdSSLContext; + fHostName: String; + function GetPeerCert: TIdX509; + function GetSSLCipher: TIdSSLCipher; + procedure SetSessionID(source: TIdSSLSocket); + public + constructor Create(Parent: TObject); + destructor Destroy; override; + procedure Accept(const pHandle: TIdStackSocketHandle); + procedure Connect(const pHandle: TIdStackSocketHandle); + function Send(const ABuffer : TIdBytes; AOffset, ALength: Integer): Integer; + function Recv(var ABuffer : TIdBytes): Integer; + function GetSessionID: TIdSSLByteArray; + function GetSessionIDAsString:String; + procedure SetCipherList(CipherList: String); + function GetCallbackHelper: IIdSSLOpenSSLCallbackHelper; + function Readable: TIdSSLReadStatus; + procedure DoShutdown; + function GetSSL: PSSL; + function GetSSLError(retCode: Integer): Integer; + procedure RaiseError(AError: Integer); + procedure GetStateVars(AWhere, Aret: TIdC_INT; var VTypeStr, VMsg : String); + // + property SSLContext: TIdSSLContext read fSSLContext write SetSSLContext; + property PeerCert: TIdX509 read GetPeerCert; + property Cipher: TIdSSLCipher read GetSSLCipher; + property HostName: String read fHostName write fHostName; + property SSLProtocolVersion: TIdSSLVersion read GetProtocolVersion; + property SSLProtocolVersionStr: string read GetSSLProtocolVersionStr; + end; + + function LoadOpenSSLLibrary: Boolean; + procedure UnLoadOpenSSLLibrary; + +implementation + +uses + IdStack, + {$IFDEF USE_WINDOWS_CERT_STORE} + IdSSLwincrypt, + {$ENDIF} + IdThreadSafe, + IdSSLOpenSSLUtils, + IdSSLOpenSSLAPI, + IdSSLOpenSSL, + IdResourceStringsProtocols, + IdResourceStringsOpenSSL, + IdOpenSSLHeaders_x509, + IdOpenSSLHeaders_ssl3, + IdOpenSSLHeaders_tls1, + IdOpenSSLHeaders_x509_vfy, + IdOpenSSLHeaders_err +; + +var + SSLIsLoaded: TIdThreadSafeBoolean = nil; + LockInfoCB: TIdCriticalSection = nil; + LockPassCB: TIdCriticalSection = nil; + LockVerifyCB: TIdCriticalSection = nil; + +function LoadOpenSSLLibrary: Boolean; +begin + Assert(SSLIsLoaded <> nil); + SSLIsLoaded.Lock; + try + if SSLIsLoaded.Value then begin + Result := True; + Exit; + end; + InitializeRandom; + if GetIOpenSSL <> nil then + GetIOpenSSL.Init; + Assert(LockInfoCB = nil); + // Create locking structures, we need them for callback routines + LockInfoCB := TIdCriticalSection.Create; + LockPassCB := TIdCriticalSection.Create; + LockVerifyCB := TIdCriticalSection.Create; + // Handle internal OpenSSL locking + SSLIsLoaded.Value := True; + Result := True; + finally + SSLIsLoaded.Unlock; + end; + +end; + +procedure UnLoadOpenSSLLibrary; +begin + SSLIsLoaded.Lock; + try + if not SSLIsLoaded.Value then + Exit; + + CleanupRandom; // <-- RLebeau: why is this here and not in IdSSLOpenSSLHeaders.Unload()? + if GetIOpenSSLDDL <> nil then + GetIOpenSSLDDL.Unload; + FreeAndNil(LockInfoCB); + FreeAndNil(LockPassCB); + FreeAndNil(LockVerifyCB); + SSLIsLoaded.Value := False; + finally + SSLIsLoaded.Unlock; + end; +end; + + +procedure InfoCallback(const sslSocket: PSSL; where, ret: TIdC_INT); cdecl; +var + IdSSLSocket: TIdSSLSocket; + StatusStr : String; + LErr : Integer; + LHelper: IIdSSLOpenSSLCallbackHelper; +begin +{ +You have to save the value of WSGetLastError as some Operating System API +function calls will reset that value and we can't know what a programmer will +do in this event. We need the value of WSGetLastError so we can report +an underlying socket error when the OpenSSL function returns. + +JPM. +} + LErr := GStack.WSGetLastError; + try + LockInfoCB.Enter; + try + IdSSLSocket := TIdSSLSocket(SSL_get_app_data(sslSocket)); + LHelper := IdSSLSocket.GetCallbackHelper; + if LHelper <> nil then + begin + StatusStr := IndyFormat(RSOSSLStatusString, [String(SSL_state_string_long(sslSocket))]); + LHelper.StatusInfo(IdSSLSocket, where, ret, StatusStr); + LHelper := nil; + end; + finally + LockInfoCB.Leave; + end; + finally + GStack.WSSetLastError(LErr); + end; +end; + +function VerifyCallback(Ok: TIdC_INT; ctx: PX509_STORE_CTX): TIdC_INT; cdecl; +var + hcert: PX509; + Certificate: TIdX509; + hSSL: PSSL; + IdSSLSocket: TIdSSLSocket; + // str: String; + VerifiedOK: Boolean; + Depth: Integer; + Error: Integer; + LOk: Boolean; + LHelper: IIdSSLOpenSSLCallbackHelper; +begin + LockVerifyCB.Enter; + try + VerifiedOK := True; + try + hSSL := X509_STORE_CTX_get_app_data(ctx); + if hSSL = nil then begin + Result := Ok; + Exit; + end; + hcert := X509_STORE_CTX_get_current_cert(ctx); + Certificate := TIdX509.Create(hcert, False); // the certificate is owned by the store + try + IdSSLSocket := TIdSSLSocket(SSL_get_app_data(hSSL)); + Error := X509_STORE_CTX_get_error(ctx); + Depth := X509_STORE_CTX_get_error_depth(ctx); + if not ((Ok > 0) and (IdSSLSocket.SSLContext.VerifyDepth >= Depth)) then begin + Ok := 0; + {if Error = X509_V_OK then begin + Error := X509_V_ERR_CERT_CHAIN_TOO_LONG; + end;} + end; + LOk := False; + if Ok = 1 then begin + LOk := True; + end; + LHelper := IdSSLSocket.GetCallbackHelper; + if LHelper <> nil then + begin + VerifiedOK := LHelper.VerifyPeer(Certificate, LOk, Depth, Error); + LHelper := nil; + end; + finally + FreeAndNil(Certificate); + end; + except + VerifiedOK := False; + end; + //if VerifiedOK and (Ok > 0) then begin + if VerifiedOK {and (Ok > 0)} then begin + Result := 1; + end + else begin + Result := 0; + end; + // Result := Ok; // testing + finally + LockVerifyCB.Leave; + end; +end; + +function PasswordCallback(buf: PIdAnsiChar; size: TIdC_INT; rwflag: TIdC_INT; userdata: Pointer): TIdC_INT; cdecl; +{$IFDEF USE_MARSHALLED_PTRS} +type + TBytesPtr = ^TBytes; +{$ENDIF} +var + Password: String; + {$IFDEF STRING_IS_UNICODE} + LPassword: TIdBytes; + {$ENDIF} + IdSSLContext: TIdSSLContext; + LErr : Integer; + LHelper: IIdSSLOpenSSLCallbackHelper; +begin + //Preserve last eror just in case OpenSSL is using it and we do something that + //clobers it. CYA. + LErr := GStack.WSGetLastError; + try + LockPassCB.Enter; + try + Password := ''; {Do not Localize} + IdSSLContext := TIdSSLContext(userdata); + LHelper := IdSSLContext.GetCallbackHelper; + if LHelper <> nil then + begin + Password := LHelper.GetPassword(rwflag > 0); + LHelper := nil; + end; + FillChar(buf^, size, 0); + {$IFDEF STRING_IS_UNICODE} + LPassword := IndyTextEncoding_OSDefault.GetBytes(Password); + if Length(LPassword) > 0 then begin + {$IFDEF USE_MARSHALLED_PTRS} + TMarshal.Copy(TBytesPtr(@LPassword)^, 0, TPtrWrapper.Create(buf), IndyMin(Length(LPassword), size)); + {$ELSE} + Move(LPassword[0], buf^, IndyMin(Length(LPassword), size)); + {$ENDIF} + end; + Result := Length(LPassword); + {$ELSE} + StrPLCopy(buf, Password, size); + Result := Length(Password); + {$ENDIF} + buf[size-1] := #0; // RLebeau: truncate the password if needed + finally + LockPassCB.Leave; + end; + finally + GStack.WSSetLastError(LErr); + end; +end; + +{ +function RSACallback(sslSocket: PSSL; e: Integer; KeyLength: Integer):PRSA; cdecl; +const + RSA: PRSA = nil; +var + SSLSocket: TSSLWSocket; + IdSSLSocket: TIdSSLSocket; +begin + IdSSLSocket := TIdSSLSocket(IdSslGetAppData(sslSocket)); + + if Assigned(IdSSLSocket) then begin + IdSSLSocket.TriggerSSLRSACallback(KeyLength); + end; + + Result := RSA_generate_key(KeyLength, RSA_F4, @RSAProgressCallback, ssl); +end; +} + + +function TranslateInternalVerifyToSSL(Mode: TIdSSLVerifyModeSet): Integer; +{$IFDEF USE_INLINE} inline; {$ENDIF} +begin + Result := SSL_VERIFY_NONE; + if sslvrfPeer in Mode then begin + Result := Result or SSL_VERIFY_PEER; + end; + if sslvrfFailIfNoPeerCert in Mode then begin + Result := Result or SSL_VERIFY_FAIL_IF_NO_PEER_CERT; + end; + if sslvrfClientOnce in Mode then begin + Result := Result or SSL_VERIFY_CLIENT_ONCE; + end; +end; + + + +/////////////////////////////////////////////////////////////// +// TIdSSLCipher +/////////////////////////////////////////////////////////////// +constructor TIdSSLCipher.Create(AOwner: TIdSSLSocket); +begin + inherited Create; + FSSLSocket := AOwner; +end; + +function TIdSSLCipher.GetDescription: String; +var + Buf: array[0..1024] of TIdAnsiChar; +begin + Result := String(SSL_CIPHER_description(SSL_get_current_cipher(FSSLSocket.fSSL), @Buf[0], SizeOf(Buf)-1)); +end; + +function TIdSSLCipher.GetName:String; +begin + Result := String(SSL_CIPHER_get_name(SSL_get_current_cipher(FSSLSocket.fSSL))); +end; + +function TIdSSLCipher.GetBits:TIdC_INT; +begin + SSL_CIPHER_get_bits(SSL_get_current_cipher(FSSLSocket.fSSL), Result); +end; + +function TIdSSLCipher.GetVersion:String; +begin + Result := String(SSL_CIPHER_get_version(SSL_get_current_cipher(FSSLSocket.fSSL))); +end; + +{ TIdSSLContext } + +constructor TIdSSLContext.Create; +begin + inherited Create; + //an exception here probably means that you are using the wrong version + //of the openssl libraries. refer to comments at the top of this file. + if not LoadOpenSSLLibrary then begin + raise EIdOSSLCouldNotLoadSSLLibrary.Create(RSOSSLCouldNotLoadSSLLibrary); + end; + fVerifyMode := []; + fMode := sslmUnassigned; + fSessionId := 1; + fUseSystemRootCertificateStore := true; +end; + +constructor TIdSSLContext.Create(aParent: TObject; SSLOptions: TIdSSLOptions; + CtxMode: TIdSSLCtxMode; aVerifyOn, aStatusInfoOn: boolean); +begin + Create; + fParent := aParent; + RootCertFile := SSLOptions.RootCertFile; + CertFile := SSLOptions.CertFile; + KeyFile := SSLOptions.KeyFile; + DHParamsFile := SSLOptions.DHParamsFile; + fVerifyDepth := SSLOptions.VerifyDepth; + fVerifyMode := SSLOptions.VerifyMode; + // fVerifyFile := SSLOptions.fVerifyFile; + fUseSystemRootCertificateStore := SSLOptions.UseSystemRootCertificateStore; + fVerifyDirs := SSLOptions.VerifyDirs; + fCipherList := SSLOptions.CipherList; + VerifyOn := aVerifyOn; + StatusInfoOn := aStatusInfoOn; + //PasswordRoutineOn := Assigned(fOnGetPassword); + fMethod := SSLOptions.Method; + fMode := SSLOptions.Mode; + fSSLVersions := SSLOptions.SSLVersions; + InitContext(CtxMode); +end; + +destructor TIdSSLContext.Destroy; +begin + DestroyContext; + inherited Destroy; +end; + +{$IFDEF USE_WINDOWS_CERT_STORE} +{Copy Windows CA Certs to out cert store} +procedure TIdSSLContext.LoadWindowsCertStore; +var WinCertStore: HCERTSTORE; + X509Cert: PX509; + cert_context: PCCERT_CONTEXT; + error: integer; + SSLCertStore: PX509_STORE; + CertEncoded: PByte; +begin + cert_context := nil; + {$IFDEF STRING_IS_ANSI} + WinCertStore := CertOpenSystemStoreA(nil,RootStore); + {$ELSE} + WinCertStore := CertOpenSystemStoreW(nil,RootStore); + {$ENDIF} + if WinCertStore = 0 then + Exit; + + SSLCertStore := SSL_CTX_get_cert_store(fContext); + try + cert_context := CertEnumCertificatesInStore(WinCertStore,cert_context); + while cert_context <> nil do + begin + CertEncoded := cert_context^.pbCertEncoded; + X509Cert := d2i_X509(nil,@CertEncoded, cert_context^.cbCertEncoded); + if X509Cert <> nil then + begin + error := X509_STORE_add_cert(SSLCertStore, X509Cert); +//Ignore if cert already in store + if (error = 0) and + (ERR_GET_REASON(ERR_get_error()) <> X509_R_CERT_ALREADY_IN_HASH_TABLE) then + EOpenSSLAPICryptoError.RaiseException(ROSCertificateNotAddedToStore); + X509_free(X509Cert); + end; + cert_context := CertEnumCertificatesInStore(WinCertStore,cert_context); + end; + finally + CertCloseStore(WinCertStore, 0); + end; +end; +{$ENDIF} + +procedure TIdSSLContext.DestroyContext; +begin + if fContext <> nil then begin + SSL_CTX_free(fContext); + fContext := nil; + end; +end; + +procedure TIdSSLContext.InitContext(CtxMode: TIdSSLCtxMode); +const + SSLProtoVersion: array[TIdSSLVersion] of TIdC_LONG = (0,0,0, + SSL3_VERSION, {sslvSSLv3} + TLS1_VERSION, {sslvTLSv1} + TLS1_1_VERSION, {sslvTLSv1_1} + TLS1_2_VERSION, {sslvTLSv1_2} + TLS1_3_VERSION); {sslvTLSv1_3} +var + SSLMethod: PSSL_METHOD; + error: TIdC_INT; + v: TIdSSLVersion; +// pCAname: PSTACK_X509_NAME; + {$IFDEF USE_MARSHALLED_PTRS} + M: TMarshaller; + {$ENDIF} +begin + // Destroy the context first + DestroyContext; + if fMode = sslmUnassigned then begin + if CtxMode = sslCtxServer then begin + fMode := sslmServer; + end else begin + fMode := sslmClient; + end + end; + // get SSL method function (SSL2, SSL23, SSL3, TLS) + SSLMethod := SetSSLMethod; + // create new SSL context + fContext := SSL_CTX_new(SSLMethod); + if fContext = nil then begin + EIdOSSLCreatingContextError.RaiseException(RSSSLCreatingContextError); + end; + + //set SSL Versions we will use + if HasTLS_method then + begin + if SSLVersions <> [] then + begin + for v := sslvSSLv3 to MAX_SSLVERSION do + begin + if v in SSLVersions then + begin + SSL_CTX_set_min_proto_version(fContext,SSLProtoVersion[v]); + break; + end; + end; + for v := MAX_SSLVERSION downto sslvSSLv3 do + begin + if v in SSLVersions then + begin + SSL_CTX_set_max_proto_version(fContext,SSLProtoVersion[v]); + break; + end; + end; + end + else + begin + SSL_CTX_set_min_proto_version(fContext,SSL3_VERSION); + SSL_CTX_set_max_proto_version(fContext,SSLProtoVersion[high(TIdSSLVersion)]); + end; + end + else + begin + {legacy code 1.0.2 and earlier} + + if IsOpenSSL_SSLv2_Available then begin + if not (sslvSSLv2 in SSLVersions) then begin + SSL_CTX_set_options(fContext, SSL_OP_NO_SSLv2); + end + else if (fMethod = sslvSSLv23) then begin + SSL_CTX_clear_options(fContext, SSL_OP_NO_SSLv2); + end; + end; + // SSLv3 might also be disabled as well.. + if IsOpenSSL_SSLv3_Available then begin + if not (sslvSSLv3 in SSLVersions) then begin + SSL_CTX_set_options(fContext, SSL_OP_NO_SSLv3); + end + else if (fMethod = sslvSSLv23) then begin + SSL_CTX_clear_options(fContext, SSL_OP_NO_SSLv3); + end; + end; + // may as well do the same for all of them... + if IsOpenSSL_TLSv1_0_Available then begin + if not (sslvTLSv1 in SSLVersions) then begin + SSL_CTX_set_options(fContext, SSL_OP_NO_TLSv1); + end + else if (fMethod = sslvSSLv23) then begin + SSL_CTX_clear_options(fContext, SSL_OP_NO_TLSv1); + end; + end; + {IMPORTANT!!! Do not set SSL_CTX_set_options SSL_OP_NO_TLSv1_1 and + SSL_OP_NO_TLSv1_2 if that functionality is not available. OpenSSL 1.0 and + earlier do not support those flags. Those flags would only cause + an invalid MAC when doing SSL.} + if IsOpenSSL_TLSv1_1_Available then begin + if not (sslvTLSv1_1 in SSLVersions) then begin + SSL_CTX_set_options(fContext, SSL_OP_NO_TLSv1_1); + end + else if (fMethod = sslvSSLv23) then begin + SSL_CTX_clear_options(fContext, SSL_OP_NO_TLSv1_1); + end; + end; + if IsOpenSSL_TLSv1_2_Available then begin + if not (sslvTLSv1_2 in SSLVersions) then begin + SSL_CTX_set_options(fContext, SSL_OP_NO_TLSv1_2); + end + else if (fMethod = sslvSSLv23) then begin + SSL_CTX_clear_options(fContext, SSL_OP_NO_TLSv1_2); + end; + end; + end; + +// SSL_CTX_set_mode(fContext, SSL_MODE_AUTO_RETRY); + SSL_CTX_clear_mode(fContext, SSL_MODE_AUTO_RETRY); + // assign a password lookup routine +// if PasswordRoutineOn then begin + SSL_CTX_set_default_passwd_cb(fContext, @PasswordCallback); + SSL_CTX_set_default_passwd_cb_userdata(fContext, Self); +// end; + + {$IFDEF USE_WINDOWS_CERT_STORE} + if fUseSystemRootCertificateStore then + LoadWindowsCertStore + else + {$ENDIF} + SSL_CTX_set_default_verify_paths(fContext); + // load key and certificate files + if (RootCertFile <> '') or (VerifyDirs <> '') then begin {Do not Localize} + if not LoadRootCert then begin + EIdOSSLLoadingRootCertError.RaiseException(RSSSLLoadingRootCertError); + end; + end; + if CertFile <> '' then begin {Do not Localize} + if not LoadCert then begin + EIdOSSLLoadingCertError.RaiseException(RSSSLLoadingCertError); + end; + end; + if KeyFile <> '' then begin {Do not Localize} + if not LoadKey then begin + EIdOSSLLoadingKeyError.RaiseException(RSSSLLoadingKeyError); + end; + end; + if DHParamsFile <> '' then begin {Do not Localize} + if not LoadDHParams then begin + EIdOSSLLoadingDHParamsError.RaiseException(RSSSLLoadingDHParamsError); + end; + end; + if StatusInfoOn then begin + SSL_CTX_set_info_callback(fContext, @InfoCallback); + end; + //if_SSL_CTX_set_tmp_rsa_callback(hSSLContext, @RSACallback); + if fCipherList <> '' then begin {Do not Localize} + error := SSL_CTX_set_cipher_list(fContext, + {$IFDEF USE_MARSHALLED_PTRS} + M.AsAnsi(fCipherList).ToPointer + {$ELSE} + PAnsiChar( + {$IFDEF STRING_IS_ANSI} + fCipherList + {$ELSE} + AnsiString(fCipherList) // explicit cast to Ansi + {$ENDIF} + ) + {$ENDIF} + ); + end else begin + // RLebeau: don't override OpenSSL's default. As OpenSSL evolves, the + // SSL_DEFAULT_CIPHER_LIST constant defined in the C/C++ SDK may change, + // while Indy's define of it might take some time to catch up. We don't + // want users using an older default with newer DLLs... + (* + error := SSL_CTX_set_cipher_list(fContext, + {$IFDEF USE_MARSHALLED_PTRS} + M.AsAnsi(SSL_DEFAULT_CIPHER_LIST).ToPointer + {$ELSE} + SSL_DEFAULT_CIPHER_LIST + {$ENDIF} + ); + *) + error := 1; + end; + if error <= 0 then begin + // TODO: should this be using EIdOSSLSettingCipherError.RaiseException() instead? + raise EIdOSSLSettingCipherError.Create(RSSSLSettingCipherError); + end; + if fVerifyMode <> [] then begin + SetVerifyMode(fVerifyMode, VerifyOn); + end; + if CtxMode = sslCtxServer then begin + SSL_CTX_set_session_id_context(fContext, PByte(@fSessionId), SizeOf(fSessionId)); + end; + // CA list + if RootCertFile <> '' then begin {Do not Localize} + SSL_CTX_set_client_CA_list(fContext, IndySSL_load_client_CA_file(RootCertFile)); + end + + // TODO: provide an event so users can apply their own settings as needed... +end; + +procedure TIdSSLContext.SetVerifyMode(Mode: TIdSSLVerifyModeSet; CheckRoutine: Boolean); +var + Func: TSSL_CTX_set_verify_callback; +begin + if fContext<>nil then begin +// SSL_CTX_set_default_verify_paths(fContext); + if CheckRoutine then begin + Func := @VerifyCallback; + end else begin + Func := nil; + end; + SSL_CTX_set_verify(fContext, TranslateInternalVerifyToSSL(Mode), Func); + SSL_CTX_set_verify_depth(fContext, fVerifyDepth); + end; +end; + +function TIdSSLContext.GetVerifyMode: TIdSSLVerifyModeSet; +begin + Result := fVerifyMode; +end; +{ +function TIdSSLContext.LoadVerifyLocations(FileName: String; Dirs: String): Boolean; +begin + Result := False; + + if (Dirs <> '') or (FileName <> '') then begin + if IndySSL_CTX_load_verify_locations(fContext, FileName, Dirs) <= 0 then begin + raise EIdOSSLCouldNotLoadSSLLibrary.Create(RSOSSLCouldNotLoadSSLLibrary); + end; + end; + + Result := True; +end; +} + +function TIdSSLContext.SetSSLMethod: PSSL_METHOD; +begin + Result := nil; + if fMode = sslmUnassigned then begin + raise EIdOSSLModeNotSet.Create(RSOSSLModeNotSet); + end; + + OpenSSL_SetMethod(TOpenSSL_Version(fMethod)); + + {For OpenSSL 1.1.1 or later. OpenSSL will negotiate the best + available SSL/TLS version and there is not much that we can do to influence this. + Hence, OpenSSL_SetMethod is ignored. Only if we are using an earlier version + of OpenSSL will OpenSSL_SetMethod be used to help select the appropriate SSLMethod. + + Quoting from the OpenSSL man page: + + TLS_method(), TLS_server_method(), TLS_client_method() + + These are the general-purpose version-flexible SSL/TLS methods. The actual + protocol version used will be negotiated to the highest version mutually s + upported by the client and the server. The supported protocols are SSLv3, + TLSv1, TLSv1.1, TLSv1.2 and TLSv1.3. Applications should use these methods, + and avoid the version-specific methods described below [e.g. SSLv2_method), + which are deprecated. +} + case fMode of + sslmClient: + Result := TLS_client_method(); + + sslmServer: + Result := TLS_server_method(); + + sslmBoth: + Result := TLS_Method(); + + end; + + if Result = nil then + raise EIdOSSLGetMethodError.Create(RSSSLGetMethodError); +end; + +function TIdSSLContext.LoadRootCert: Boolean; +begin + Result := IndySSL_CTX_load_verify_locations(fContext, RootCertFile, VerifyDirs) > 0; +end; + +function TIdSSLContext.LoadCert: Boolean; +begin + if PosInStrArray(ExtractFileExt(CertFile), ['.p12', '.pfx'], False) <> -1 then begin + Result := IndySSL_CTX_use_certificate_file_PKCS12(fContext, CertFile) > 0; + end else begin + Result := IndySSL_CTX_use_certificate_chain_file(fContext, CertFile) > 0; + end; +end; + +function TIdSSLContext.LoadKey: Boolean; +begin + if PosInStrArray(ExtractFileExt(KeyFile), ['.p12', '.pfx'], False) <> -1 then begin + Result := IndySSL_CTX_use_PrivateKey_file_PKCS12(fContext, KeyFile) > 0; + end else begin + Result := IndySSL_CTX_use_PrivateKey_file(fContext, KeyFile, SSL_FILETYPE_PEM) > 0; + end; + if Result then begin + Result := SSL_CTX_check_private_key(fContext) > 0; + end; +end; + +function TIdSSLContext.LoadDHParams: Boolean; +begin + Result := IndySSL_CTX_use_DHparams_file(fContext, fsDHParamsFile, SSL_FILETYPE_PEM) > 0; +end; + +function TIdSSLContext.IsParent(aObject: TObject): boolean; +begin + Result := fParent = aObject; +end; + +function TIdSSLContext.GetCallbackHelper: IIdSSLOpenSSLCallbackHelper; +begin + Result := nil; + if fParent <> nil then + fParent.GetInterface(IIdSSLOpenSSLCallbackHelper,Result); +end; + +////////////////////////////////////////////////////////////// + +function TIdSSLContext.Clone: TIdSSLContext; +begin + Result := TIdSSLContext.Create; + Result.StatusInfoOn := StatusInfoOn; +// property PasswordRoutineOn: Boolean read fPasswordRoutineOn write fPasswordRoutineOn; + Result.VerifyOn := VerifyOn; + Result.Method := Method; + Result.SSLVersions := SSLVersions; + Result.Mode := Mode; + Result.RootCertFile := RootCertFile; + Result.CertFile := CertFile; + Result.KeyFile := KeyFile; + Result.VerifyMode := VerifyMode; + Result.VerifyDepth := VerifyDepth; +end; + +{ TIdSSLSocket } + +constructor TIdSSLSocket.Create(Parent: TObject); +begin + inherited Create; + fParent := Parent; +end; + +destructor TIdSSLSocket.Destroy; +begin + if fSession <> nil then + SSL_SESSION_free(fSession); + if fSSL <> nil then begin + // TODO: should this be moved to TIdSSLContext instead? Is this here + // just to make sure the SSL shutdown does not log any messages? + { + if (fSSLContext <> nil) and (fSSLContext.StatusInfoOn) and + (fSSLContext.fContext <> nil) then begin + SSL_CTX_set_info_callback(fSSLContext.fContext, nil); + end; + } + //SSL_set_shutdown(fSSL, SSL_SENT_SHUTDOWN); + DoShutDown; + SSL_free(fSSL); + fSSL := nil; + end; + FreeAndNil(fSSLCipher); + FreeAndNil(fPeerCert); + inherited Destroy; +end; + +function TIdSSLSocket.GetSSLError(retCode: Integer): Integer; +begin + // COMMENT!!! + // I found out that SSL layer should not interpret errors, cause they will pop up + // on the socket layer. Only thing that the SSL layer should consider is key + // or protocol renegotiation. This is done by loop in read and write + Result := SSL_get_error(fSSL, retCode); + case Result of + SSL_ERROR_NONE: + Result := SSL_ERROR_NONE; + SSL_ERROR_WANT_WRITE: + Result := SSL_ERROR_WANT_WRITE; + SSL_ERROR_WANT_READ: + Result := SSL_ERROR_WANT_READ; + SSL_ERROR_ZERO_RETURN: + Result := SSL_ERROR_ZERO_RETURN; + //Result := SSL_ERROR_NONE; + { + // ssl layer has been disconnected, it is not necessary that also + // socked has been closed + case Mode of + sslemClient: begin + case Action of + sslWrite: begin + if retCode = 0 then begin + Result := 0; + end + else begin + raise EIdException.Create(RSOSSLConnectionDropped); // TODO: create a new Exception class for this + end; + end; + end; + end;} + + //raise EIdException.Create(RSOSSLConnectionDropped); // TODO: create a new Exception class for this + // X509_LOOKUP event is not really an error, just an event + // SSL_ERROR_WANT_X509_LOOKUP: + // raise EIdException.Create(RSOSSLCertificateLookup); // TODO: create a new Exception class for this + SSL_ERROR_SYSCALL: + Result := SSL_ERROR_SYSCALL; + // Result := SSL_ERROR_NONE; + + {//raise EIdException.Create(RSOSSLInternal); // TODO: create a new Exception class for this + if (retCode <> 0) or (DataLen <> 0) then begin + raise EIdException.Create(RSOSSLConnectionDropped); // TODO: create a new Exception class for this + end + else begin + Result := 0; + end;} + + SSL_ERROR_SSL: + // raise EIdException.Create(RSOSSLInternal); // TODO: create a new Exception class for this + Result := SSL_ERROR_SSL; + // Result := SSL_ERROR_NONE; + end; +end; + +procedure TIdSSLSocket.RaiseError(AError: Integer); +begin + EOpenSSLAPISSLError.RaiseException(fSSL, AError, ''); +end; + +procedure TIdSSLSocket.GetStateVars(AWhere, Aret: TIdC_INT; var VTypeStr, + VMsg: String); +begin + case AWhere of + SSL_CB_ALERT : + begin + VTypeStr := IndyFormat( RSOSSLAlert,[SSL_alert_type_string_long(Aret)]); + VMsg := String(SSL_alert_type_string_long(Aret)); + end; + SSL_CB_READ_ALERT : + begin + VTypeStr := IndyFormat(RSOSSLReadAlert,[SSL_alert_type_string_long(Aret)]); + VMsg := String( SSL_alert_desc_string_long(Aret)); + end; + SSL_CB_WRITE_ALERT : + begin + VTypeStr := IndyFormat(RSOSSLWriteAlert,[SSL_alert_type_string_long(Aret)]); + VMsg := String( SSL_alert_desc_string_long(Aret)); + end; + SSL_CB_ACCEPT_LOOP : + begin + VTypeStr := RSOSSLAcceptLoop; + VMsg := String( SSL_state_string_long(fSSL)); + end; + SSL_CB_ACCEPT_EXIT : + begin + if ARet < 0 then begin + VTypeStr := RSOSSLAcceptError; + end else begin + if ARet = 0 then begin + VTypeStr := RSOSSLAcceptFailed; + end else begin + VTypeStr := RSOSSLAcceptExit; + end; + end; + VMsg := String( SSL_state_string_long(fSSL) ); + end; + SSL_CB_CONNECT_LOOP : + begin + VTypeStr := RSOSSLConnectLoop; + VMsg := String( SSL_state_string_long(fSSL) ); + end; + SSL_CB_CONNECT_EXIT : + begin + if ARet < 0 then begin + VTypeStr := RSOSSLConnectError; + end else begin + if ARet = 0 then begin + VTypeStr := RSOSSLConnectFailed + end else begin + VTypeStr := RSOSSLConnectExit; + end; + end; + VMsg := String( SSL_state_string_long(fSSL) ); + end; + SSL_CB_HANDSHAKE_START : + begin + VTypeStr := RSOSSLHandshakeStart; + VMsg := String( SSL_state_string_long(fSSL) ); + end; + SSL_CB_HANDSHAKE_DONE : + begin + VTypeStr := RSOSSLHandshakeDone; + VMsg := String( SSL_state_string_long(fSSL) ); + end; + end; +{var LW : TIdC_INT; +begin + VMsg := ''; + LW := Awhere and (not SSL_ST_MASK); + if (LW and SSL_ST_CONNECT) > 0 then begin + VWhereStr := 'SSL_connect:'; + end else begin + if (LW and SSL_ST_ACCEPT) > 0 then begin + VWhereStr := ' SSL_accept:'; + end else begin + VWhereStr := ' undefined:'; + end; + end; +// IdSslStateStringLong + if (Awhere and SSL_CB_LOOP) > 0 then begin + VMsg := IdSslStateStringLong(fSSL); + end else begin + if (Awhere and SSL_CB_ALERT) > 0 then begin + if (Awhere and SSL_CB_READ > 0) then begin + VWhereStr := VWhereStr + ' read:'+ IdSslAlertTypeStringLong(Aret); + end else begin + VWhereStr := VWhereStr + 'write:'+ IdSslAlertTypeStringLong(Aret); + end;; + VMsg := IdSslAlertDescStringLong(Aret); + end else begin + if (Awhere and SSL_CB_EXIT) > 0 then begin + if ARet = 0 then begin + + VWhereStr := VWhereStr +'failed'; + VMsg := IdSslStateStringLong(fSSL); + end else begin + if ARet < 0 then begin + VWhereStr := VWhereStr +'error'; + VMsg := IdSslStateStringLong(fSSL); + end; + end; + end; + end; + end; } +end; + +procedure TIdSSLSocket.Accept(const pHandle: TIdStackSocketHandle); +//Accept and Connect have a lot of duplicated code +var + error: Integer; + StatusStr: String; + LHelper: IIdSSLOpenSSLCallbackHelper; +begin + Assert(fSSL=nil); + Assert(fSSLContext<>nil); + fSSL := SSL_new(fSSLContext.fContext); + if fSSL = nil then begin + raise EIdOSSLCreatingSessionError.Create(RSSSLCreatingSessionError); + end; + error := SSL_set_app_data(fSSL, Self); + if error <= 0 then begin + EIdOSSLDataBindingError.RaiseException(fSSL, error, RSSSLDataBindingError); + end; + error := SSL_set_fd(fSSL, pHandle); + if error <= 0 then begin + EIdOSSLFDSetError.RaiseException(fSSL, error, RSSSLFDSetError); + end; + // RLebeau: if this socket's IOHandler was cloned, no need to reuse the + // original IOHandler's active session ID, since this is a server socket + // that generates its own sessions... + // + // RLebeau: is this actually true? Should we be reusing the original + // IOHandler's active session ID regardless of whether this is a client + // or server socket? What about FTP in non-passive mode, for example? + { + if (LParentIO <> nil) and (LParentIO.fSSLSocket <> nil) and + (LParentIO.fSSLSocket <> Self) then + begin + SetSessionID(LParentIO.fSSLSocket); + end; + } + error := SSL_accept(fSSL); + if error <= 0 then begin + EIdOSSLAcceptError.RaiseException(fSSL, error, RSSSLAcceptError); + end; + fSession := SSL_get1_session(fSSL); + LHelper := GetCallbackHelper; + if LHelper <> nil then + begin + StatusStr := 'Cipher: name = ' + Cipher.Name + '; ' + {Do not Localize} + 'description = ' + Cipher.Description + '; ' + {Do not Localize} + 'bits = ' + IntToStr(Cipher.Bits) + '; ' + {Do not Localize} + 'version = ' + Cipher.Version + '; '; {Do not Localize} + LHelper.StatusInfo(StatusStr); + LHelper := nil; + end; +end; + +procedure TIdSSLSocket.Connect(const pHandle: TIdStackSocketHandle); +var + error: Integer; + StatusStr: String; + LHelper: IIdSSLOpenSSLCallbackHelper; + IOHandlerSocket: TIdSSLSocket; +begin + Assert(fSSL=nil); + Assert(fSSLContext<>nil); + fSSL := SSL_new(fSSLContext.fContext); + if fSSL = nil then begin + raise EIdOSSLCreatingSessionError.Create(RSSSLCreatingSessionError); + end; + error := SSL_set_app_data(fSSL, Self); + if error <= 0 then begin + EIdOSSLDataBindingError.RaiseException(fSSL, error, RSSSLDataBindingError); + end; + error := SSL_set_fd(fSSL, pHandle); + if error <= 0 then begin + EIdOSSLFDSetError.RaiseException(fSSL, error, RSSSLFDSetError); + end; + // RLebeau: if this socket's IOHandler was cloned, reuse the + // original IOHandler's active session ID... + LHelper := GetCallbackHelper; + if LHelper <> nil then + begin + IOHandlerSocket := LHelper.GetSSLSocket; + if (IOHandlerSocket <> nil) and (IOHandlerSocket <> self) then + SetSessionID(IOHandlerSocket); + end; + {$IFNDEF OPENSSL_NO_TLSEXT} + {Delphi appears to need the extra AnsiString coerction. Otherwise, only the + first character to the hostname is passed} + error := SSL_set_tlsext_host_name(fSSL, PIdAnsiChar(AnsiString(fHostName))); + if error <= 0 then begin + // RLebeau: for the time being, not raising an exception on error, as I don't + // know which OpenSSL versions support this extension, and which error code(s) + // are safe to ignore on those versions... + //EIdOSSLSettingTLSHostNameError.RaiseException(fSSL, error, RSSSLSettingTLSHostNameError); + end; + {$ENDIF} + error := SSL_connect(fSSL); + if error <= 0 then begin + // TODO: if sslv23 is being used, but sslv23 is not being used on the + // remote side, SSL_connect() will fail. In that case, before giving up, + // try re-connecting using a version-specific method for each enabled + // version, maybe one will succeed... + EIdOSSLConnectError.RaiseException(fSSL, error, RSSSLConnectError); + end; + fSession := SSL_get1_session(fSSL); + // TODO: even if SSL_connect() returns success, the connection might + // still be insecure if SSL_connect() detected that certificate validation + // actually failed, but ignored it because SSL_VERIFY_PEER was disabled! + // It would report such a failure via SSL_get_verify_result() instead of + // returning an error code, so we should call SSL_get_verify_result() here + // to make sure... + if LHelper <> nil then begin + StatusStr := 'Cipher: name = ' + Cipher.Name + '; ' + {Do not Localize} + 'description = ' + Cipher.Description + '; ' + {Do not Localize} + 'bits = ' + IntToStr(Cipher.Bits) + '; ' + {Do not Localize} + 'version = ' + Cipher.Version + '; '; {Do not Localize} + LHelper.StatusInfo(StatusStr); + end; + // TODO: enable this + { + var + peercert: PX509; + lHostName: AnsiString; + peercert := SSL_get_peer_certificate(fSSL); + try + lHostName := AnsiString(fHostName); + if (X509_check_host(peercert, PByte(PAnsiChar(lHostName)), Length(lHostName), 0) != 1) and + (not certificate_host_name_override(peercert, PAnsiChar(lHostName)) then + begin + EIdOSSLCertificateError.RaiseException(fSSL, error, 'SSL certificate does not match host name'); + end; + finally + X509_free(peercert); + end; +} +end; + +function TIdSSLSocket.Recv(var ABuffer: TIdBytes): Integer; +var + ret, err: Integer; +begin + repeat + ret := SSL_read(fSSL, PByte(ABuffer), Length(ABuffer)); + if ret > 0 then begin + Result := ret; + Exit; + end; + err := GetSSLError(ret); + if (err = SSL_ERROR_WANT_READ) or (err = SSL_ERROR_WANT_WRITE) then begin + Continue; + end; + if err = SSL_ERROR_ZERO_RETURN then begin + Result := 0; + end else begin + Result := ret; + end; + Exit; + until False; +end; + +function TIdSSLSocket.Send(const ABuffer: TIdBytes; AOffset, ALength: Integer): Integer; +var + ret, err: Integer; +begin + Result := 0; + repeat + ret := SSL_write(fSSL, @ABuffer[AOffset], ALength); + if ret > 0 then begin + Inc(Result, ret); + Inc(AOffset, ret); + Dec(ALength, ret); + if ALength < 1 then begin + Exit; + end; + Continue; + end; + err := GetSSLError(ret); + if (err = SSL_ERROR_WANT_READ) or (err = SSL_ERROR_WANT_WRITE) then begin + Continue; + end; + if err = SSL_ERROR_ZERO_RETURN then begin + Result := 0; + end else begin + Result := ret; + end; + Exit; + until False; +end; + +function TIdSSLSocket.GetProtocolVersion: TIdSSLVersion; +begin + if fSession = nil then + Result := sslUnknown + else + case SSL_SESSION_get_protocol_version(fSession) of + SSL3_VERSION: + Result := sslvSSLv3; + TLS1_VERSION: + Result := sslvTLSv1; + TLS1_1_VERSION: + Result := sslvTLSv1_1; + TLS1_2_VERSION: + Result := sslvTLSv1_2; + TLS1_3_VERSION: + Result := sslvTLSv1_3; + else + Result := sslUnknown; + end; +end; + +function TIdSSLSocket.GetSSLProtocolVersionStr: string; +begin + case SSLProtocolVersion of + sslUnknown: + Result := 'Unknown'; + sslvSSLv2: + Result := 'SSLv2'; + sslvSSLv3: + Result := 'SSLv3'; + sslvTLSv1: + Result := 'TLS'; + sslvTLSv1_1: + Result := 'TLSv1.1'; + sslvTLSv1_2: + Result := 'TLSv1.2'; + sslvTLSv1_3: + Result := 'TLSv1.3'; + end; +end; + +procedure TIdSSLSocket.SetSessionID(source: TIdSSLSocket); +begin + SSL_copy_session_id(fSSL, source.fSSL); +end; + +procedure TIdSSLSocket.SetSSLContext(AValue: TIdSSLContext); +begin + if fSSLContext = AValue then Exit; + Assert(fSSLContext=nil); + fSSLContext := AValue; +end; + +function TIdSSLSocket.GetPeerCert: TIdX509; +var + LX509: PX509; +begin + if fPeerCert = nil then begin + LX509 := SSL_get_peer_certificate(fSSL); + if LX509 <> nil then begin + fPeerCert := TIdX509.Create(LX509, False); + end; + end; + Result := fPeerCert; +end; + +function TIdSSLSocket.GetSSLCipher: TIdSSLCipher; +begin + if (fSSLCipher = nil) and (fSSL<>nil) then begin + fSSLCipher := TIdSSLCipher.Create(Self); + end; + Result := fSSLCipher; +end; + +function TIdSSLSocket.GetSessionID: TIdSSLByteArray; +var + pSession: PSSL_SESSION; +begin + Result.Length := 0; + Result.Data := nil; + if fSSL <> nil then begin + pSession := SSL_get_session(fSSL); + if pSession <> nil then begin + Result.Data := PByte(SSL_SESSION_get_id(pSession, @Result.Length)); + end; + end; +end; + +function TIdSSLSocket.GetSessionIDAsString:String; +var + Data: TIdSSLByteArray; + i: TIdC_UINT; + LDataPtr: PByte; +begin + Result := ''; {Do not Localize} + Data := GetSessionID; + if Data.Length > 0 then begin + for i := 0 to Data.Length-1 do begin + // RLebeau: not all Delphi versions support indexed access using PByte + LDataPtr := Data.Data; + Inc(LDataPtr, I); + Result := Result + IndyFormat('%.2x', [LDataPtr^]);{do not localize} + end; + end; +end; + +procedure TIdSSLSocket.SetCipherList(CipherList: String); +//var +// tmpPStr: PAnsiChar; +begin +{ + fCipherList := CipherList; + fCipherList_Ch := True; + aCipherList := aCipherList+#0; + if hSSL <> nil then f_SSL_set_cipher_list(hSSL, @aCipherList[1]); +} +end; + +function TIdSSLSocket.GetCallbackHelper: IIdSSLOpenSSLCallbackHelper; +begin + Result := nil; + if fParent <> nil then + fParent.GetInterface(IIdSSLOpenSSLCallbackHelper,Result); +end; + +function TIdSSLSocket.Readable: TIdSSLReadStatus; +var buf : byte; + Lr: integer; +begin + Result := sslNoData; + {Confirm that there is application data to be read.} + Lr := SSL_peek(fSSL, @buf, 1); + {Return sslDataAvailable if application data pending, or if it looks like we have disconnected, + sslUnrecoverableError if error state indicates thus, + sslEOF if the connection has been shutdown, or + sslNoData otherwise => try again later} + if Lr > 0 then + Result := sslDataAvailable + else + begin + case SSL_get_error(fSSL,Lr) of + SSL_ERROR_SSL, SSL_ERROR_SYSCALL: + if SSL_get_shutdown(fSSL) = SSL_RECEIVED_SHUTDOWN then + Result := sslEOF + else + Result := sslUnrecoverableError; + + SSL_ERROR_ZERO_RETURN: + if SSL_get_shutdown(fSSL) = SSL_RECEIVED_SHUTDOWN then + Result := sslEOF; + + {anything else return the function default - sslNoData (yet)} + end; + end; +end; + +procedure TIdSSLSocket.DoShutdown; +begin + if fSSL <> nil then begin + // if SSL_shutdown() returns 0, a "close notify" was sent to the peer and SSL_shutdown() + // needs to be called again to receive the peer's "close notify" in response... + if SSL_shutdown(fSSL) = 0 then + SSL_shutdown(fSSL); + end; +end; + +function TIdSSLSocket.GetSSL: PSSL; +begin + Result := fSSL; +end; + +initialization + Assert(SSLIsLoaded=nil); + SSLIsLoaded := TIdThreadSafeBoolean.Create; + +finalization + UnLoadOpenSSLLibrary; + //free the lock last as unload makes calls that use it + FreeAndNil(SSLIsLoaded); + +end. + diff --git a/src/IdSSLOpenSSLUtils.pas b/src/IdSSLOpenSSLUtils.pas new file mode 100644 index 0000000..1f7bc0f --- /dev/null +++ b/src/IdSSLOpenSSLUtils.pas @@ -0,0 +1,241 @@ +unit IdSSLOpenSSLUtils; + +{ + $Project$ + $Workfile$ + $Revision$ + $DateUTC$ + $Id$ + } + {******************************************************************************} + { } + { Indy (Internet Direct) - Internet Protocols Simplified } + { } + { https://www.indyproject.org/ } + { https://gitter.im/IndySockets/Indy } + { } + {******************************************************************************} + { } + { This file is part of the Indy (Internet Direct) project, and is offered } + { under the dual-licensing agreement described on the Indy website. } + { (https://www.indyproject.org/license/) } + { } + { Copyright: } + { (c) 1993-2024, the Indy Pit Crew. All rights reserved. } + { } + {******************************************************************************} + { } + { Contributers: } + { Source code extracted from IdSSLOpenSSL by Tony Whyman (MWA Software)} + { tony@mwasoftware.co.uk } + { } + {******************************************************************************} + +{ + $Log$ +} + +interface + +{$I IdCompilerDefines.inc} + +{$IFNDEF USE_OPENSSL} + {$message error Should not compile if USE_OPENSSL is not defined!!!} +{$ENDIF} + +uses + Classes, + SysUtils, + IdCTypes, + IdGlobal, + IdOpenSSLHeaders_evp, + IdOpenSSLHeaders_ossl_typ +; + +type + TIdSSLEVP_MD = record + Length: TIdC_UINT; + MD: Array [0 .. EVP_MAX_MD_SIZE - 1] of TIdAnsiChar; + end; + +function MDAsString(const AMD: TIdSSLEVP_MD): String; +function BytesToHexString(APtr: Pointer; ALen: Integer): String; +function UTCTime2DateTime(UTCtime: PASN1_UTCTIME): TDateTime; + +procedure InitializeRandom; +procedure CleanupRandom; + +implementation + +function AddMins(const DT: TDateTime; const Mins: Extended): TDateTime; +{$IFDEF USE_INLINE} inline; {$ENDIF} +begin + Result := DT + Mins / (60 * 24) +end; + +function AddHrs(const DT: TDateTime; const Hrs: Extended): TDateTime; +{$IFDEF USE_INLINE} inline; {$ENDIF} +begin + Result := DT + Hrs / 24.0; +end; + +function UTC_Time_Decode(UTCtime : PASN1_UTCTIME; var year, month, day, hour, min, sec: Word; + var tz_hour, tz_min: Integer): Integer; +var + i, tz_dir: Integer; + time_str: string; + {$IFNDEF USE_MARSHALLED_PTRS} + {$IFNDEF STRING_IS_ANSI} + LTemp: AnsiString; + {$ENDIF} + {$ENDIF} +begin + Result := 0; {default is to return with an error indication} + if UTCtime^.length < 12 then begin + Exit; + end; + {$IFDEF USE_MARSHALLED_PTRS} + time_str := TMarshal.ReadStringAsAnsi(TPtrWrapper.Create(UTCtime^.data), UTCtime^.length); + {$ELSE} + {$IFDEF STRING_IS_ANSI} + SetString(time_str, PAnsiChar(UTCtime^.data), UTCtime^.length); + {$ELSE} + SetString(LTemp, PAnsiChar(UTCtime^.data), UTCtime^.length); {Note: UTCtime is a type defined by OpenSSL and hence is ansistring and not UCS-2} + // TODO: do we need to use SetCodePage() here? + time_str := String(LTemp); // explicit convert to Unicode + {$ENDIF} + {$ENDIF} + // Check if first 12 chars are numbers + if not IsNumeric(time_str, 12) then begin + Exit; + end; + // Convert time from string to number + year := IndyStrToInt(Copy(time_str, 1, 2)) + 1900; + month := IndyStrToInt(Copy(time_str, 3, 2)); + day := IndyStrToInt(Copy(time_str, 5, 2)); + hour := IndyStrToInt(Copy(time_str, 7, 2)); + min := IndyStrToInt(Copy(time_str, 9, 2)); + sec := IndyStrToInt(Copy(time_str, 11, 2)); + // Fix year. This function is Y2k but isn't compatible with Y2k5 :-( {Do not Localize} + if year < 1950 then begin + Inc(year, 100); + end; + // Check TZ + tz_hour := 0; + tz_min := 0; + if CharIsInSet(time_str, 13, '-+') then begin {Do not Localize} + tz_dir := iif(CharEquals(time_str, 13, '-'), -1, 1); {Do not Localize} + for i := 14 to 18 do begin // Check if numbers are numbers + if i = 16 then begin + Continue; + end; + if not IsNumeric(time_str[i]) then begin + Exit; + end; + end; + tz_hour := IndyStrToInt(Copy(time_str, 14, 15)) * tz_dir; + tz_min := IndyStrToInt(Copy(time_str, 17, 18)) * tz_dir; + end; + Result := 1; {everthing OK} +end; + +// Note that I define UTCtime as PASN1_STRING +function UTCTime2DateTime(UTCtime: PASN1_UTCTIME): TDateTime; +var + year: Word; + month: Word; + day: Word; + hour: Word; + min: Word; + sec: Word; + tz_h: Integer; + tz_m: Integer; +begin + Result := 0; + if UTC_Time_Decode(UTCtime, year, month, day, hour, min, sec, tz_h, tz_m) > 0 then begin + Result := EncodeDate(year, month, day) + EncodeTime(hour, min, sec, 0); + AddMins(Result, tz_m); + AddHrs(Result, tz_h); + Result := UTCTimeToLocalTime(Result); + end; +end; + +function BytesToHexString(APtr: Pointer; ALen: Integer): String; +{$IFDEF USE_INLINE} inline; {$ENDIF} +var + i: Integer; + LPtr: PByte; +begin + Result := ''; + LPtr := PByte(APtr); + for i := 0 to (ALen - 1) do begin + if i <> 0 then begin + Result := Result + ':'; { Do not Localize } + end; + Result := Result + IndyFormat('%.2x', [LPtr^]); + Inc(LPtr); + end; +end; + +function MDAsString(const AMD: TIdSSLEVP_MD): String; +{$IFDEF USE_INLINE} inline; {$ENDIF} +var + i: Integer; +begin + Result := ''; + for i := 0 to AMD.Length - 1 do begin + if i <> 0 then begin + Result := Result + ':'; { Do not Localize } + end; + Result := Result + IndyFormat('%.2x', [Byte(AMD.MD[i])]); + { do not localize } + end; +end; + +{ +Not sure why these (unused) functions exist. Candiates for code deletion. +} + +type + TRAND_bytes = function(buf : PIdAnsiChar; num : integer) : integer; cdecl; + TRAND_pseudo_bytes = function(buf : PIdAnsiChar; num : integer) : integer; cdecl; + TRAND_seed = procedure(buf : PIdAnsiChar; num : integer); cdecl; + TRAND_add = procedure(buf : PIdAnsiChar; num : integer; entropy : integer); cdecl; + TRAND_status = function() : integer; cdecl; + {$IFDEF SYS_WIN} + TRAND_event = function(iMsg : UINT; wp : wparam; lp : lparam) : integer; cdecl; + {$ENDIF} + TRAND_cleanup = procedure; cdecl; + +var + _RAND_cleanup : TRAND_cleanup = nil; + _RAND_bytes : TRAND_bytes = nil; + _RAND_pseudo_bytes : TRAND_pseudo_bytes = nil; + _RAND_seed : TRAND_seed = nil; + _RAND_add : TRAND_add = nil; + _RAND_status : TRAND_status = nil; + {$IFDEF SYS_WIN} + // LIBEAY functions - open SSL 0.9.6a + _RAND_screen : procedure cdecl = nil; + _RAND_event : TRAND_event = nil; + {$ENDIF} + + procedure InitializeRandom; + begin + {$IFDEF SYS_WIN} + if Assigned(_RAND_screen) then begin + _RAND_screen; + end; + {$ENDIF} + end; + + procedure CleanupRandom; + begin + if Assigned(_RAND_cleanup) then begin + _RAND_cleanup; + end; + end; + + +end. + diff --git a/src/IdSSLOpenSSLX509.pas b/src/IdSSLOpenSSLX509.pas new file mode 100644 index 0000000..3b0ac77 --- /dev/null +++ b/src/IdSSLOpenSSLX509.pas @@ -0,0 +1,1664 @@ +unit IdSSLOpenSSLX509; + +{ + $Project$ + $Workfile$ + $Revision$ + $DateUTC$ + $Id$ + } + {******************************************************************************} + { } + { Indy (Internet Direct) - Internet Protocols Simplified } + { } + { https://www.indyproject.org/ } + { https://gitter.im/IndySockets/Indy } + { } + {******************************************************************************} + { } + { This file is part of the Indy (Internet Direct) project, and is offered } + { under the dual-licensing agreement described on the Indy website. } + { (https://www.indyproject.org/license/) } + { } + { Copyright: } + { (c) 1993-2025, the Indy Pit Crew. All rights reserved. } + { } + {******************************************************************************} + { } + { Contributers: } + { Source code extracted from IdSSLOpenSSL by Tony Whyman (MWA Software)} + { tony@mwasoftware.co.uk } + {******************************************************************************} + +{ + $Log$ +} + +interface + +{$I IdCompilerDefines.inc} + +{$IFNDEF USE_OPENSSL} + {$message error Should not compile if USE_OPENSSL is not defined!!!} +{$ENDIF} + +uses + Classes, + SysUtils, + IdCTypes, + IdGlobal, + IdOpenSSLHeaders_ssl, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_x509, + IdSSLOpenSSLUtils +; + +type + TIdSSLULong = packed record + case Byte of + 0: (B1, B2, B3, B4: UInt8); + 1: (W1, W2: UInt16); + 2: (L1: Int32); + 3: (C1: UInt32); + end; + + TIdX509Name = class(TObject) + protected + fX509Name: PX509_NAME; + function CertInOneLine: String; + function GetHash: TIdSSLULong; + function GetHashAsString: String; + public + constructor Create(aX509Name: PX509_NAME); + // + property Hash: TIdSSLULong read GetHash; + property HashAsString: string read GetHashAsString; + property OneLine: string read CertInOneLine; + // + property CertificateName: PX509_NAME read fX509Name; + end; + + TIdX509Info = class(TObject) + protected + //Do not free this here because it belongs + //to the X509 or something else. + FX509 : PX509; + public + constructor Create( aX509: PX509); + // + property Certificate: PX509 read FX509; + end; + + TIdX509Fingerprints = class(TIdX509Info) + protected + function GetMD5: TIdSSLEVP_MD; + function GetMD5AsString:String; + function GetSHA1: TIdSSLEVP_MD; + function GetSHA1AsString:String; + function GetSHA224 : TIdSSLEVP_MD; + function GetSHA224AsString : String; + function GetSHA256 : TIdSSLEVP_MD; + function GetSHA256AsString : String; + function GetSHA384 : TIdSSLEVP_MD; + function GetSHA384AsString : String; + function GetSHA512 : TIdSSLEVP_MD; + function GetSHA512AsString : String; + public + property MD5 : TIdSSLEVP_MD read GetMD5; + property MD5AsString : String read GetMD5AsString; + property SHA1 : TIdSSLEVP_MD read GetSHA1; + property SHA1AsString : String read GetSHA1AsString; +{IMPORTANT!!! + +FIPS approves only these algorithms for hashing. +SHA-1 +SHA-256 +SHA-384 +SHA-512 + +http://csrc.nist.gov/CryptoToolkit/tkhash.html +} + property SHA224 : TIdSSLEVP_MD read GetSHA224; + property SHA224AsString : String read GetSHA224AsString; + property SHA256 : TIdSSLEVP_MD read GetSHA256; + property SHA256AsString : String read GetSHA256AsString; + property SHA384 : TIdSSLEVP_MD read GetSHA384; + property SHA384AsString : String read GetSHA384AsString; + property SHA512 : TIdSSLEVP_MD read GetSHA512; + property SHA512AsString : String read GetSHA512AsString; + end; + + TIdX509SigInfo = class(TIdX509Info) + protected + function GetSignature : String; + function GetSigType : TIdC_INT; + function GetSigTypeAsString : String; + public + property Signature : String read GetSignature; + property SigType : TIdC_INT read GetSigType ; + property SigTypeAsString : String read GetSigTypeAsString; + end; + + TIdX509 = class(TObject) + protected + FFingerprints : TIdX509Fingerprints; + FSigInfo : TIdX509SigInfo; + FCanFreeX509 : Boolean; + FX509 : PX509; + FSubject : TIdX509Name; + FIssuer : TIdX509Name; + FDisplayInfo : TStrings; + function RSubject:TIdX509Name; + function RIssuer:TIdX509Name; + function RnotBefore:TDateTime; + function RnotAfter:TDateTime; + function RFingerprint:TIdSSLEVP_MD; + function RFingerprintAsString:String; + function GetSerialNumber: String; + function GetVersion : TIdC_LONG; + function GetDisplayInfo : TStrings; + public + Constructor Create(aX509: PX509; aCanFreeX509: Boolean = True); virtual; + Destructor Destroy; override; + property Version : TIdC_LONG read GetVersion; + // + property SigInfo : TIdX509SigInfo read FSigInfo; + property Fingerprints : TIdX509Fingerprints read FFingerprints; + // + property Fingerprint: TIdSSLEVP_MD read RFingerprint; + property FingerprintAsString: String read RFingerprintAsString; + property Subject: TIdX509Name read RSubject; + property Issuer: TIdX509Name read RIssuer; + property notBefore: TDateTime read RnotBefore; + property notAfter: TDateTime read RnotAfter; + property SerialNumber : string read GetSerialNumber; + property DisplayInfo : TStrings read GetDisplayInfo; + // + property Certificate: PX509 read FX509; + end; + +function IndySSL_load_client_CA_file(const AFileName: String) : PSTACK_OF_X509_NAME; +function IndySSL_CTX_load_verify_locations(ctx: PSSL_CTX; const ACAFile, ACAPath: String): TIdC_INT; +function IndySSL_CTX_use_certificate_file(ctx: PSSL_CTX; const AFileName: String; AType: Integer): TIdC_INT; +function IndySSL_CTX_use_certificate_file_PKCS12(ctx: PSSL_CTX; const AFileName: String): TIdC_INT; +function IndySSL_CTX_use_certificate_chain_file(ctx :PSSL_CTX; const AFileName: String) : TIdC_INT; +function IndySSL_CTX_use_PrivateKey_file_PKCS12(ctx: PSSL_CTX; const AFileName: String): TIdC_INT; +function IndySSL_CTX_use_PrivateKey_file(ctx: PSSL_CTX; const AFileName: String; AType: Integer): TIdC_INT; +function IndySSL_CTX_use_DHparams_file(ctx: PSSL_CTX; const AFileName: String; AType: Integer): TIdC_INT; +function IndyX509_STORE_load_locations(ctx: PX509_STORE; const AFileName, APathName: String): TIdC_INT; + + +implementation + +uses + IdStack, + IdFIPS, + IdSSLOpenSSL, + IdOpenSSLHeaders_x509_vfy, + IdOpenSSLHeaders_pkcs12, + IdOpenSSLHeaders_evp, + IdOpenSSLHeaders_objects, + IdOpenSSLHeaders_err, + IdOpenSSLHeaders_sslerr, + IdOpenSSLHeaders_stack, + IdOpenSSLHeaders_dh, + IdOpenSSLHeaders_pem, + IdOpenSSLHeaders_bio + ; + + +// TODO +{ +function d2i_DHparams_bio(bp: PBIO; x: PPointer): PDH; inline; +begin + Result := PDH(ASN1_d2i_bio(@DH_new, @d2i_DHparams, bp, x)); +end; +} + +// SSL_CTX_use_PrivateKey_file() and SSL_CTX_use_certificate_file() do not +// natively support PKCS12 certificates/keys, only PEM/ASN1, so load them +// manually... + + + +{$IFNDEF OPENSSL_NO_BIO} +procedure DumpCert(AOut: TStrings; AX509: PX509); +var + LMem: PBIO; + LLen : TIdC_INT; + LBufPtr : PIdAnsiChar; +begin + LMem := BIO_new(BIO_s_mem); + if LMem <> nil then begin + try + X509_print(LMem, AX509); + LLen := BIO_get_mem_data(LMem, LBufPtr); + if (LLen > 0) and (LBufPtr <> nil) then begin + AOut.Text := IndyTextEncoding_UTF8.GetString( + {$IFNDEF VCL_6_OR_ABOVE} + // RLebeau: for some reason, Delphi 5 causes a "There is no overloaded + // version of 'GetString' that can be called with these arguments" compiler + // error if the PByte type-cast is used, even though GetString() actually + // expects a PByte as input. Must be a compiler bug, as it compiles fine + // in Delphi 6. So, converting to TIdBytes until I find a better solution... + RawToBytes(LBufPtr^, LLen) + {$ELSE} + PByte(LBufPtr), LLen + {$ENDIF} + ); + end; + finally + BIO_free(LMem); + end; + end; +end; + +{$ELSE} + +procedure DumpCert(AOut: TStrings; AX509: PX509); +begin +end; + +{$ENDIF} + + +/////////////////////////////////////////////////////////////// +// X509 Certificate +/////////////////////////////////////////////////////////////// + +{ TIdX509Name } + +function TIdX509Name.CertInOneLine: String; +var + LOneLine: array[0..2048] of TIdAnsiChar; +begin + if FX509Name = nil then begin + Result := ''; {Do not Localize} + end else begin + Result := String(X509_NAME_oneline(FX509Name, @LOneLine[0], SizeOf(LOneLine))); + end; +end; + +function TIdX509Name.GetHash: TIdSSLULong; +begin + if FX509Name = nil then begin + FillChar(Result, SizeOf(Result), 0) + end else begin + Result.C1 := X509_NAME_hash(FX509Name); + end; +end; + +function TIdX509Name.GetHashAsString: String; +begin + Result := IndyFormat('%.8x', [Hash.L1]); {do not localize} +end; + +constructor TIdX509Name.Create(aX509Name: PX509_NAME); +begin + Inherited Create; + FX509Name := aX509Name; +end; + + +/////////////////////////////////////////////////////////////// +// X509 Certificate +/////////////////////////////////////////////////////////////// + +{ TIdX509Info } + +constructor TIdX509Info.Create(aX509: PX509); +begin + inherited Create; + FX509 := aX509; +end; + +{ TIdX509Fingerprints } + +function TIdX509Fingerprints.GetMD5: TIdSSLEVP_MD; +begin + CheckMD5Permitted; + X509_digest(FX509, EVP_md5, PByte(@Result.MD), Result.Length); +end; + +function TIdX509Fingerprints.GetMD5AsString: String; +begin + Result := MDAsString(MD5); +end; + +function TIdX509Fingerprints.GetSHA1: TIdSSLEVP_MD; +begin + X509_digest(FX509, EVP_sha1, PByte(@Result.MD), Result.Length); +end; + +function TIdX509Fingerprints.GetSHA1AsString: String; +begin + Result := MDAsString(SHA1); +end; + +function TIdX509Fingerprints.GetSHA224 : TIdSSLEVP_MD; +begin + {$if not declared(OpenSSL_Using_Dynamic_Library_Load)} + X509_digest(FX509, EVP_sha224, PByte(@Result.MD), Result.Length); + {$ELSE} + if Assigned(EVP_sha224) then begin + X509_digest(FX509, EVP_sha224, PByte(@Result.MD), Result.Length); + end else begin + FillChar(Result, SizeOf(Result), 0); + end; + {$ifend} +end; + +function TIdX509Fingerprints.GetSHA224AsString : String; +begin + {$if not declared(OpenSSL_Using_Dynamic_Library_Load)} + Result := MDAsString(SHA224); + {$ELSE} + if Assigned(EVP_sha224) then begin + Result := MDAsString(SHA224); + end else begin + Result := ''; + end; + {$ifend} +end; + +function TIdX509Fingerprints.GetSHA256 : TIdSSLEVP_MD; +begin + {$if not declared(OpenSSL_Using_Dynamic_Library_Load)} + X509_digest(FX509, EVP_sha256, PByte(@Result.MD), Result.Length); + {$ELSE} + if Assigned(EVP_sha256) then begin + X509_digest(FX509, EVP_sha256, PByte(@Result.MD), Result.Length); + end else begin + FillChar(Result, SizeOf(Result), 0); + end; + {$ifend} +end; + +function TIdX509Fingerprints.GetSHA256AsString : String; +begin + {$if not declared(OpenSSL_Using_Dynamic_Library_Load)} + Result := MDAsString(SHA256); + {$ELSE} + if Assigned(EVP_sha256) then begin + Result := MDAsString(SHA256); + end else begin + Result := ''; + end; + {$ifend} +end; + +function TIdX509Fingerprints.GetSHA384 : TIdSSLEVP_MD; +begin + {$if not declared(OpenSSL_Using_Dynamic_Library_Load)} + X509_digest(FX509, EVP_SHA384, PByte(@Result.MD), Result.Length); + {$ELSE} + if Assigned(EVP_SHA384) then begin + X509_digest(FX509, EVP_SHA384, PByte(@Result.MD), Result.Length); + end else begin + FillChar(Result, SizeOf(Result), 0); + end; + {$ifend} +end; + +function TIdX509Fingerprints.GetSHA384AsString : String; +begin + {$if not declared(OpenSSL_Using_Dynamic_Library_Load)} + Result := MDAsString(SHA384); + {$ELSE} + if Assigned(EVP_SHA384) then begin + Result := MDAsString(SHA384); + end else begin + Result := ''; + end; + {$ifend} +end; + +function TIdX509Fingerprints.GetSHA512 : TIdSSLEVP_MD; +begin + {$if not declared(OpenSSL_Using_Dynamic_Library_Load)} + X509_digest(FX509, EVP_sha512, PByte(@Result.MD), Result.Length); + {$ELSE} + if Assigned(EVP_sha512) then begin + X509_digest(FX509, EVP_sha512, PByte(@Result.MD), Result.Length); + end else begin + FillChar(Result, SizeOf(Result), 0); + end; + {$ifend} +end; + +function TIdX509Fingerprints.GetSHA512AsString : String; +begin + {$if not declared(OpenSSL_Using_Dynamic_Library_Load)} + Result := MDAsString(SHA512); + {$ELSE} + if Assigned(EVP_sha512) then begin + Result := MDAsString(SHA512); + end else begin + Result := ''; + end; + {$ifend} +end; + +{ TIdX509SigInfo } + +function TIdX509SigInfo.GetSignature: String; +var + sig_alg : PX509_ALGOR; + signature : PASN1_BIT_STRING; +begin + X509_get0_signature(signature,sig_alg, FX509); + Result := BytesToHexString(signature^.data, signature^.length); +end; + +function TIdX509SigInfo.GetSigType: TIdC_INT; +begin + Result := X509_get_signature_type(FX509); +end; + +function TIdX509SigInfo.GetSigTypeAsString: String; +begin + Result := String(OBJ_nid2ln(SigType)); +end; + +{ TIdX509 } + +constructor TIdX509.Create(aX509: PX509; aCanFreeX509: Boolean = True); +begin + inherited Create; + //don't create FDisplayInfo unless specifically requested. + FDisplayInfo := nil; + FX509 := aX509; + FCanFreeX509 := aCanFreeX509; + FFingerprints := TIdX509Fingerprints.Create(FX509); + FSigInfo := TIdX509SigInfo.Create(FX509); + FSubject := nil; + FIssuer := nil; +end; + +destructor TIdX509.Destroy; +begin + FreeAndNil(FDisplayInfo); + FreeAndNil(FSubject); + FreeAndNil(FIssuer); + FreeAndNil(FFingerprints); + FreeAndNil(FSigInfo); + { If the X.509 certificate handle was obtained from a certificate + store or from the SSL connection as a peer certificate, then DO NOT + free it here! The memory is owned by the OpenSSL library and will + crash the library if Indy tries to free its private memory here } + if FCanFreeX509 then begin + X509_free(FX509); + end; + inherited Destroy; +end; + + +function TIdX509.GetDisplayInfo: TStrings; +begin + if not Assigned(FDisplayInfo) then begin + FDisplayInfo := TStringList.Create; + DumpCert(FDisplayInfo, FX509); + end; + Result := FDisplayInfo; +end; + +function TIdX509.GetSerialNumber: String; +var + LSN : PASN1_INTEGER; +begin + if FX509 <> nil then begin + LSN := X509_get_serialNumber(FX509); + Result := BytesToHexString(LSN.data, LSN.length); + end else begin + Result := ''; + end; +end; + +function TIdX509.GetVersion : TIdC_LONG; +begin + Result := X509_get_version(FX509); +end; + +function TIdX509.RSubject: TIdX509Name; +var + Lx509_name: PX509_NAME; +Begin + if not Assigned(FSubject) then begin + if FX509 <> nil then begin + Lx509_name := X509_get_subject_name(FX509); + end else begin + Lx509_name := nil; + end; + FSubject := TIdX509Name.Create(Lx509_name); + end; + Result := FSubject; +end; + +function TIdX509.RIssuer: TIdX509Name; +var + Lx509_name: PX509_NAME; +begin + if not Assigned(FIssuer) then begin + if FX509 <> nil then begin + Lx509_name := X509_get_issuer_name(FX509); + end else begin + Lx509_name := nil; + end; + FIssuer := TIdX509Name.Create(Lx509_name); + End; + Result := FIssuer; +end; + +function TIdX509.RFingerprint: TIdSSLEVP_MD; +begin + X509_digest(FX509, EVP_md5, PByte(@Result.MD), Result.Length); +end; + +function TIdX509.RFingerprintAsString: String; +begin + Result := MDAsString(Fingerprint); +end; + +function TIdX509.RnotBefore: TDateTime; +begin + if FX509 = nil then begin + Result := 0 + end else begin + //This is a safe typecast since PASN1_UTCTIME and PASN1_TIME are really + //pointers to ASN1 strings since ASN1_UTCTIME amd ASM1_TIME are ASN1_STRING. + Result := UTCTime2DateTime(PASN1_UTCTIME(X509_get0_notBefore(FX509))); + end; +end; + +function TIdX509.RnotAfter:TDateTime; +begin + if FX509 = nil then begin + Result := 0 + end else begin + Result := UTCTime2DateTime(PASN1_UTCTIME(X509_get0_notAfter(FX509))); + end; +end; + +function IndySSL_CTX_use_PrivateKey_file_PKCS12(ctx: PSSL_CTX; const AFileName: String): TIdC_INT; +var + LM: TMemoryStream; + B: PBIO; + LKey: PEVP_PKEY; + LCert: PX509; + P12: PPKCS12; + CertChain: PSTACK_OF_X509; + LPassword: array of TIdAnsiChar; + LPasswordPtr: PIdAnsiChar; + default_passwd_cb: pem_password_cb; +begin + Result := 0; + + LM := nil; + try + LM := TMemoryStream.Create; + LM.LoadFromFile(AFileName); + except + // Surpress exception here since it's going to be called by the OpenSSL .DLL + // Follow the OpenSSL .DLL Error conventions. + SSLerr(SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE, ERR_R_SYS_LIB); + LM.Free; + Exit; + end; + + try + B := BIO_new_mem_buf(LM.Memory, LM.Size); + if not Assigned(B) then begin + SSLerr(SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE, ERR_R_BUF_LIB); + Exit; + end; + try + SetLength(LPassword, MAX_SSL_PASSWORD_LENGTH+1); + LPassword[MAX_SSL_PASSWORD_LENGTH] := TIdAnsiChar(0); + LPasswordPtr := PIdAnsiChar(LPassword); + default_passwd_cb := SSL_CTX_get_default_passwd_cb(ctx); + if Assigned(default_passwd_cb) then begin + default_passwd_cb(LPasswordPtr, MAX_SSL_PASSWORD_LENGTH, 0, SSL_CTX_get_default_passwd_cb_userdata(ctx)); + // TODO: check return value for failure + end else begin + // TODO: call PEM_def_callback(), like PEM_read_bio_X509() does + // when default_passwd_callback is nil + end; + P12 := d2i_PKCS12_bio(B, nil); + if not Assigned(P12) then begin + SSLerr(SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE, ERR_R_PKCS12_LIB); + Exit; + end; + try + CertChain := nil; + if PKCS12_parse(P12, LPasswordPtr, LKey, LCert, @CertChain) <> 1 then begin + SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, ERR_R_PKCS12_LIB); + Exit; + end; + try + Result := SSL_CTX_use_PrivateKey(ctx, LKey); + finally + OPENSSL_sk_pop_free(CertChain, @X509_free); + X509_free(LCert); + EVP_PKEY_free(LKey); + end; + finally + PKCS12_free(P12); + end; + finally + BIO_free(B); + end; + finally + FreeAndNil(LM); + end; +end; + +function IndySSL_CTX_use_certificate_file_PKCS12(ctx: PSSL_CTX; const AFileName: String): TIdC_INT; +var + LM: TMemoryStream; + B: PBIO; + LCert: PX509; + P12: PPKCS12; + PKey: PEVP_PKEY; + CertChain: PSTACK_OF_X509; + LPassword: array of TIdAnsiChar; + LPasswordPtr: PIdAnsiChar; + default_passwd_callback: pem_password_cb; +begin + Result := 0; + + LM := nil; + try + LM := TMemoryStream.Create; + LM.LoadFromFile(AFileName); + except + // Surpress exception here since it's going to be called by the OpenSSL .DLL + // Follow the OpenSSL .DLL Error conventions. + SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, ERR_R_SYS_LIB); + LM.Free; + Exit; + end; + + try + B := BIO_new_mem_buf(LM.Memory, LM.Size); + if not Assigned(B) then begin + SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, ERR_R_BUF_LIB); + Exit; + end; + try + SetLength(LPassword, MAX_SSL_PASSWORD_LENGTH+1); + LPassword[MAX_SSL_PASSWORD_LENGTH] := TIdAnsiChar(0); + LPasswordPtr := PIdAnsiChar(LPassword); + default_passwd_callback := SSL_CTX_get_default_passwd_cb(ctx); + if Assigned(default_passwd_callback) then begin + default_passwd_callback(LPasswordPtr, MAX_SSL_PASSWORD_LENGTH, 0, SSL_CTX_get_default_passwd_cb_userdata(ctx)); + // TODO: check return value for failure + end else begin + // TODO: call PEM_def_callback(), like PEM_read_bio_X509() does + // when default_passwd_callback is nil + end; + P12 := d2i_PKCS12_bio(B, nil); + if not Assigned(P12) then + begin + SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, ERR_R_PKCS12_LIB); + Exit; + end; + try + CertChain := nil; + if PKCS12_parse(P12, LPasswordPtr, PKey, LCert, @CertChain) <> 1 then begin + SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, ERR_R_PKCS12_LIB); + Exit; + end; + try + Result := SSL_CTX_use_certificate(ctx, LCert); + finally + OPENSSL_sk_pop_free(CertChain, @X509_free); + X509_free(LCert); + EVP_PKEY_free(PKey); + end; + finally + PKCS12_free(P12); + end; + finally + BIO_free(B); + end; + finally + FreeAndNil(LM); + end; +end; + +{ + IMPORTANT!!! + + OpenSSL can not handle Unicode file names at all. On Posix systems, UTF8 File + names can be used with OpenSSL. The Windows operating system does not accept + UTF8 file names at all so we have our own routines that will handle Unicode + filenames. Most of this section of code is based on code in the OpenSSL .DLL + which is copyrighted by the OpenSSL developers. Some of it is translated into + Pascal and made some modifications so that it will handle Unicode filenames. +} + +{$IFDEF STRING_IS_UNICODE} {UCS-2 implied} + + {$IFDEF WINDOWS} + +function Indy_unicode_X509_load_cert_crl_file(ctx: PX509_LOOKUP; const AFileName: String; + const _type: TIdC_INT): TIdC_INT; forward; +function Indy_unicode_X509_load_cert_file(ctx: PX509_LOOKUP; const AFileName: String; + _type: TIdC_INT): TIdC_INT; forward; + +{ + This is for some file lookup definitions for a LOOKUP method that + uses Unicode filenames instead of ASCII or UTF8. It is not meant + to be portable at all. +} + +function by_Indy_unicode_file_ctrl(ctx: PX509_LOOKUP; cmd: TIdC_INT; + const argc: PAnsiChar; argl: TIdC_LONG; out ret: PAnsiChar): TIdC_INT; cdecl; +var + LOk: TIdC_INT; + LFileName: String; +begin + LOk := 0; + case cmd of + X509_L_FILE_LOAD: + begin + // Note that typecasting an AnsiChar as a WideChar below is normally a crazy + // thing to do. The thing is that the OpenSSL API is based on PAnsiChar, and + // we are writing this function just for Unicode filenames. argc is actually + // a PWideChar that has been coerced into a PAnsiChar so it can pass through + // OpenSSL APIs... + case argl of + X509_FILETYPE_DEFAULT: + begin + LFileName := GetEnvironmentVariable(String(X509_get_default_cert_file_env)); + if LFileName = '' then begin + LFileName := String(X509_get_default_cert_file); + end; + LOk := Ord(Indy_unicode_X509_load_cert_crl_file(ctx, LFileName, X509_FILETYPE_PEM) <> 0); + if LOk = 0 then begin + X509err(X509_F_BY_FILE_CTRL, X509_R_LOADING_DEFAULTS); + end; + end; + X509_FILETYPE_PEM: + begin + LFileName := PWideChar(Pointer(argc)); + LOk := Ord(Indy_unicode_X509_load_cert_crl_file(ctx, LFileName, X509_FILETYPE_PEM) <> 0); + end; + else + LFileName := PWideChar(Pointer(argc)); + LOk := Ord(Indy_unicode_X509_load_cert_file(ctx, LFileName, TIdC_INT(argl)) <> 0); + end; + end; + end; + Result := LOk; +end; + +function Indy_unicode_X509_load_cert_file(ctx: PX509_LOOKUP; const AFileName: String; + _type: TIdC_INT): TIdC_INT; +var + LM: TMemoryStream; + Lin: PBIO; + LX: PX509; + i, count: Integer; +begin + Result := 0; + count := 0; + + if AFileName = '' then begin + Result := 1; + Exit; + end; + + LM := nil; + try + LM := TMemoryStream.Create; + LM.LoadFromFile(AFileName); + except + // Surpress exception here since it's going to be called by the OpenSSL .DLL + // Follow the OpenSSL .DLL Error conventions. + X509err(X509_F_X509_LOAD_CERT_FILE, ERR_R_SYS_LIB); + LM.Free; + Exit; + end; + + try + Lin := BIO_new_mem_buf(LM.Memory, LM.Size); + if not Assigned(Lin) then begin + X509err(X509_F_X509_LOAD_CERT_FILE, ERR_R_SYS_LIB); + Exit; + end; + try + case _type of + X509_FILETYPE_PEM: + begin + repeat + LX := PEM_read_bio_X509_AUX(Lin, nil, nil, nil); + if not Assigned(LX) then begin + if ((ERR_GET_REASON(ERR_peek_last_error()) + = PEM_R_NO_START_LINE) and (count > 0)) then begin + ERR_clear_error(); + Break; + end else begin + X509err(X509_F_X509_LOAD_CERT_FILE, ERR_R_PEM_LIB); + Exit; + end; + end; + i := X509_STORE_add_cert(X509_LOOKUP_get_store(ctx), LX); + if i = 0 then begin + Exit; + end; + Inc(count); + X509_Free(LX); + until False; + Result := count; + end; + X509_FILETYPE_ASN1: + begin + LX := d2i_X509_bio(Lin, nil); + if not Assigned(LX) then begin + X509err(X509_F_X509_LOAD_CERT_FILE, ERR_R_ASN1_LIB); + Exit; + end; + i := X509_STORE_add_cert(X509_LOOKUP_get_store(ctx), LX); + if i = 0 then begin + Exit; + end; + Result := i; + end; + else + X509err(X509_F_X509_LOAD_CERT_FILE, X509_R_BAD_X509_FILETYPE); + Exit; + end; + finally + BIO_free(Lin); + end; + finally + FreeAndNil(LM); + end; +end; + +function Indy_unicode_X509_load_cert_crl_file(ctx: PX509_LOOKUP; const AFileName: String; + const _type: TIdC_INT): TIdC_INT; +var + LM: TMemoryStream; + Linf: PSTACK_OF_X509_INFO; + Litmp: PX509_INFO; + Lin: PBIO; + i, count: Integer; +begin + Result := 0; + count := 0; + LM := nil; + + if _type <> X509_FILETYPE_PEM then begin + Result := Indy_unicode_X509_load_cert_file(ctx, AFileName, _type); + Exit; + end; + + try + LM := TMemoryStream.Create; + LM.LoadFromFile(AFileName); + except + // Surpress exception here since it's going to be called by the OpenSSL .DLL + // Follow the OpenSSL .DLL Error conventions. + X509err(X509_F_X509_LOAD_CERT_CRL_FILE, ERR_R_SYS_LIB); + LM.Free; + Exit; + end; + + try + Lin := BIO_new_mem_buf(LM.Memory, LM.Size); + if not Assigned(Lin) then begin + X509err(X509_F_X509_LOAD_CERT_CRL_FILE, ERR_R_SYS_LIB); + Exit; + end; + try + Linf := PEM_X509_INFO_read_bio(Lin, nil, nil, nil); + finally + BIO_free(Lin); + end; + finally + FreeAndNil(LM); + end; + if not Assigned(Linf) then begin + X509err(X509_F_X509_LOAD_CERT_CRL_FILE, ERR_R_PEM_LIB); + Exit; + end; + try + for i := 0 to OPENSSL_sk_num(Linf) - 1 do begin + Litmp := PX509_INFO(OPENSSL_sk_value(Linf, i)); + if Assigned(Litmp^.x509) then begin + X509_STORE_add_cert(X509_LOOKUP_get_store(ctx), Litmp^.x509); + Inc(count); + end; + if Assigned(Litmp^.crl) then begin + X509_STORE_add_crl(X509_LOOKUP_get_store(ctx), Litmp^.crl); + Inc(count); + end; + end; + finally + OPENSSL_sk_pop_free(Linf, @X509_INFO_free); + end; + Result := count; +end; + +procedure IndySSL_load_client_CA_file_err(var VRes: PSTACK_OF_X509_NAME); +{$IFDEF USE_INLINE} inline; {$ENDIF} +begin + if Assigned(VRes) then begin + OPENSSL_sk_pop_free(VRes, @X509_NAME_free); + VRes := nil; + end; +end; + +function xname_cmp(const a, b: PPX509_NAME): TIdC_INT; cdecl; +begin + Result := X509_NAME_cmp(a^, b^); +end; + +function IndySSL_load_client_CA_file(const AFileName: String): PSTACK_OF_X509_NAME; +var + LM: TMemoryStream; + LB: PBIO; + Lsk: PSTACK_OF_X509_NAME; + LX: PX509; + LXN, LXNDup: PX509_NAME; + Failed: Boolean; +begin + Result := nil; + Failed := False; + LX := nil; + Lsk := OPENSSL_sk_new(@xname_cmp); + if Assigned(Lsk) then begin + try + LM := nil; + try + LM := TMemoryStream.Create; + LM.LoadFromFile(AFileName); + except + // Surpress exception here since it's going to be called by the OpenSSL .DLL + // Follow the OpenSSL .DLL Error conventions. + SSLerr(SSL_F_SSL_LOAD_CLIENT_CA_FILE, ERR_R_SYS_LIB); + LM.Free; + Exit; + end; + try + LB := BIO_new_mem_buf(LM.Memory, LM.Size); + if Assigned(LB) then begin + try + try + repeat + LX := PEM_read_bio_X509(LB, nil, nil, nil); + if LX = nil then begin + Break; + end; + if not Assigned(Result) then begin + Result := OPENSSL_sk_new_null; + if not Assigned(Result) then begin + SSLerr(SSL_F_SSL_LOAD_CLIENT_CA_FILE, ERR_R_MALLOC_FAILURE); + Failed := True; + Exit; + end; + end; + LXN := X509_get_subject_name(LX); + if not Assigned(LXN) then begin + // error + IndySSL_load_client_CA_file_err(Result); + Failed := True; + Exit; + end; + // * check for duplicates */ + LXNDup := X509_NAME_dup(LXN); + if not Assigned(LXNDup) then begin + // error + IndySSL_load_client_CA_file_err(Result); + Failed := True; + Exit; + end; + if (OPENSSL_sk_find(Lsk, LXNDup) >= 0) then begin + X509_NAME_free(LXNDup); + end else begin + OPENSSL_sk_push(Lsk, LXNDup); + OPENSSL_sk_push(Result, LXNDup); + end; + X509_free(LX); + LX := nil; + until False; + finally + if Assigned(LX) then begin + X509_free(LX); + end; + if Failed and Assigned(Result) then begin + OPENSSL_sk_pop_free(Result, @X509_NAME_free); + Result := nil; + end; + end; + finally + BIO_free(LB); + end; + end + else begin + SSLerr(SSL_F_SSL_LOAD_CLIENT_CA_FILE, ERR_R_MALLOC_FAILURE); + end; + finally + FreeAndNil(LM); + end; + finally + OPENSSL_sk_free(Lsk); + end; + end + else begin + SSLerr(SSL_F_SSL_LOAD_CLIENT_CA_FILE, ERR_R_MALLOC_FAILURE); + end; + if Assigned(Result) then begin + ERR_clear_error; + end; +end; + +function IndySSL_CTX_use_PrivateKey_file(ctx: PSSL_CTX; const AFileName: String; + AType: Integer): TIdC_INT; +var + LM: TMemoryStream; + B: PBIO; + LKey: PEVP_PKEY; + j: TIdC_INT; +begin + Result := 0; + + LM := nil; + try + LM := TMemoryStream.Create; + LM.LoadFromFile(AFileName); + except + // Surpress exception here since it's going to be called by the OpenSSL .DLL + // Follow the OpenSSL .DLL Error conventions. + SSLerr(SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE, ERR_R_SYS_LIB); + LM.Free; + Exit; + end; + + try + B := BIO_new_mem_buf(LM.Memory, LM.Size); + if not Assigned(B) then begin + SSLerr(SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE, ERR_R_BUF_LIB); + Exit; + end; + try + case AType of + SSL_FILETYPE_PEM: + begin + j := ERR_R_PEM_LIB; + LKey := PEM_read_bio_PrivateKey(B, nil, + SSL_CTX_get_default_passwd_cb(ctx), + SSL_CTX_get_default_passwd_cb_userdata(ctx)); + end; + SSL_FILETYPE_ASN1: + begin + j := ERR_R_ASN1_LIB; + LKey := d2i_PrivateKey_bio(B, nil); + end; + else + SSLerr(SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE, SSL_R_BAD_SSL_FILETYPE); + Exit; + end; + if not Assigned(LKey) then begin + SSLerr(SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE, j); + Exit; + end; + Result := SSL_CTX_use_PrivateKey(ctx, LKey); + EVP_PKEY_free(LKey); + finally + BIO_free(B); + end; + finally + FreeAndNil(LM); + end; +end; + +function IndySSL_CTX_use_certificate_file(ctx: PSSL_CTX; + const AFileName: String; AType: Integer): TIdC_INT; +var + LM: TMemoryStream; + B: PBIO; + LX: PX509; + j: TIdC_INT; +begin + Result := 0; + + LM := nil; + try + LM := TMemoryStream.Create; + LM.LoadFromFile(AFileName); + except + // Surpress exception here since it's going to be called by the OpenSSL .DLL + // Follow the OpenSSL .DLL Error conventions. + SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, ERR_R_SYS_LIB); + LM.Free; + Exit; + end; + + try + B := BIO_new_mem_buf(LM.Memory, LM.Size); + if not Assigned(B) then begin + SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, ERR_R_BUF_LIB); + Exit; + end; + try + case AType of + SSL_FILETYPE_ASN1: + begin + j := ERR_R_ASN1_LIB; + LX := d2i_X509_bio(B, nil); + end; + SSL_FILETYPE_PEM: + begin + j := ERR_R_PEM_LIB; + LX := PEM_read_bio_X509(B, nil, SSL_CTX_get_default_passwd_cb(ctx), + SSL_CTX_get_default_passwd_cb_userdata(ctx)); + end + else begin + SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, SSL_R_BAD_SSL_FILETYPE); + Exit; + end; + end; + if not Assigned(LX) then begin + SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, j); + Exit; + end; + Result := SSL_CTX_use_certificate(ctx, LX); + X509_free(LX); + finally + BIO_free(B); + end; + finally + FreeAndNil(LM); + end; +end; + +function IndySSL_CTX_use_certificate_chain_file(ctx :PSSL_CTX; + const AFileName: String) : TIdC_INT; +var + LM: TMemoryStream; + B: PBIO; + LX: PX509; + ca :PX509; + r: TIdC_INT; + LErr :TIdC_ULONG; + +begin + Result := 0; + + ERR_clear_error(); //* clear error stack for + //* SSL_CTX_use_certificate() */ + + LM := nil; + try + LM := TMemoryStream.Create; + LM.LoadFromFile(AFileName); + except + // Surpress exception here since it's going to be called by the OpenSSL .DLL + // Follow the OpenSSL .DLL Error conventions. + SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_CHAIN_FILE, ERR_R_SYS_LIB); + LM.Free; + Exit; + end; + try + B := BIO_new_mem_buf(LM.Memory, LM.Size); + if not Assigned(B) then begin + SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_FILE, ERR_R_BUF_LIB); + Exit; + end; + try + LX := PEM_read_bio_X509_AUX(B, nil, SSL_CTX_get_default_passwd_cb(ctx), + SSL_CTX_get_default_passwd_cb_userdata(ctx)); + if (Lx = nil) then begin + SSLerr(SSL_F_SSL_CTX_USE_CERTIFICATE_CHAIN_FILE, ERR_R_PEM_LIB); + end else begin + Result := SSL_CTX_use_certificate(ctx, Lx); + if (ERR_peek_error() <> 0) then begin + Result := 0; //* Key/certificate mismatch doesn't imply + //* ret==0 ... */ + end; + if Result <> 0 then begin + SSL_CTX_clear_chain_certs(ctx); + repeat + ca := PEM_read_bio_X509(B, nil, + SSL_CTX_get_default_passwd_cb(ctx), + SSL_CTX_get_default_passwd_cb_userdata(ctx)); + if ca = nil then begin + break; + end; + r := SSL_CTX_add0_chain_cert(ctx, ca); + if (r = 0) then begin + X509_free(ca); + Result := 0; + break; +// goto end; + end; + //* + //* Note that we must not free r if it was successfully added to + //* the chain (while we must free the main certificate, since its + //* reference count is increased by SSL_CTX_use_certificate). + // */ + until False; + if ca <> nil then begin + //* When the while loop ends, it's usually just EOF. */ + LErr := ERR_peek_last_error(); + if (ERR_GET_LIB(Lerr) = ERR_LIB_PEM) + and (ERR_GET_REASON(Lerr) = PEM_R_NO_START_LINE) then begin + ERR_clear_error(); + end else begin + Result := 0; //* some real error */ + end; + end; + end; + //err: + if LX <> nil then begin + X509_free(LX); + end; + end; + finally + BIO_free(B); + end; + finally + FreeAndNil(LM); + end; +end; + +function IndyX509_STORE_load_locations(ctx: PX509_STORE; + const AFileName, APathName: String): TIdC_INT; +var + lookup: PX509_LOOKUP; + method: PX509_LOOKUP_METHOD; {reference counted} +begin + Result := 0; + if AFileName <> '' then begin + method := X509_LOOKUP_meth_new('Load file into cache'); + lookup := X509_STORE_add_lookup(ctx, method); + if not Assigned(lookup) then begin + Exit; + end; + X509_LOOKUP_meth_set_ctrl(method,@by_Indy_unicode_file_ctrl); + // RLebeau: the PAnsiChar(Pointer(...)) cast below looks weird, but it is + // intentional. X509_LOOKUP_load_file() takes a PAnsiChar as input, but + // we are using Unicode strings here. So casting the UnicodeString to a + // raw Pointer and then passing that to X509_LOOKUP_load_file() as PAnsiChar. + // Indy_Unicode_X509_LOOKUP_file will cast it back to PWideChar for processing... + if (X509_LOOKUP_load_file(lookup, PAnsiChar(pointer(AFileName)), X509_FILETYPE_PEM) <> 1) then begin + Exit; + end; + end; + if APathName <> '' then begin + { TODO: Figure out how to do the hash dir lookup with a Unicode path. } + if (X509_STORE_load_locations(ctx, nil, PAnsiChar(AnsiString(APathName))) <> 1) then begin + Exit; + end; + end; + if (AFileName = '') and (APathName = '') then begin + Exit; + end; + Result := 1; +end; + +function IndySSL_CTX_load_verify_locations(ctx: PSSL_CTX; + const ACAFile, ACAPath: String): TIdC_INT; +{$IFDEF USE_INLINE} inline; {$ENDIF} +begin + Result := IndyX509_STORE_load_locations(SSL_CTX_get_cert_store(ctx), ACAFile, ACAPath); +end; + +function IndySSL_CTX_use_DHparams_file(ctx: PSSL_CTX; + const AFileName: String; AType: Integer): TIdC_INT; +var + LM: TMemoryStream; + B: PBIO; + LDH: PDH; + j: Integer; +begin + Result := 0; + + LM := nil; + try + LM := TMemoryStream.Create; + LM.LoadFromFile(AFileName); + except + // Surpress exception here since it's going to be called by the OpenSSL .DLL + // Follow the OpenSSL .DLL Error conventions. + SSLerr(SSL_F_SSL3_CTRL, ERR_R_SYS_LIB); + LM.Free; + Exit; + end; + + try + B := BIO_new_mem_buf(LM.Memory, LM.Size); + if not Assigned(B) then begin + SSLerr(SSL_F_SSL3_CTRL, ERR_R_BUF_LIB); + Exit; + end; + try + case AType of + // TODO + { + SSL_FILETYPE_ASN1: + begin + j := ERR_R_ASN1_LIB; + LDH := d2i_DHparams_bio(B, nil); + end; + } + SSL_FILETYPE_PEM: + begin + j := ERR_R_DH_LIB; + LDH := PEM_read_bio_DHparams(B, nil, SSL_CTX_get_default_passwd_cb(ctx), + SSL_CTX_get_default_passwd_cb_userdata(ctx)); + end + else begin + SSLerr(SSL_F_SSL3_CTRL, SSL_R_BAD_SSL_FILETYPE); + Exit; + end; + end; + if not Assigned(LDH) then begin + SSLerr(SSL_F_SSL3_CTRL, j); + Exit; + end; + Result := SSL_CTX_set_tmp_dh(ctx, LDH); + DH_free(LDH); + finally + BIO_free(B); + end; + finally + FreeAndNil(LM); + end; +end; + + {$ENDIF} // WINDOWS + + {$IFDEF UNIX} + +function IndySSL_load_client_CA_file(const AFileName: String) : PSTACK_OF_X509_NAME; +{$IFDEF USE_MARSHALLED_PTRS} +var + M: TMarshaller; +{$ENDIF} +begin + Result := SSL_load_client_CA_file( + {$IFDEF USE_MARSHALLED_PTRS} + M.AsUtf8(AFileName).ToPointer + {$ELSE} + PAnsiChar(UTF8String(AFileName)) + {$ENDIF} + ); +end; + +function IndySSL_CTX_use_PrivateKey_file(ctx: PSSL_CTX; const AFileName: String; + AType: Integer): TIdC_INT; +{$IFDEF USE_INLINE} inline; {$ENDIF} +{$IFDEF USE_MARSHALLED_PTRS} +var + M: TMarshaller; +{$ENDIF} +begin + Result := SSL_CTX_use_PrivateKey_file(ctx, + {$IFDEF USE_MARSHALLED_PTRS} + M.AsUtf8(AFileName).ToPointer + {$ELSE} + PAnsiChar(UTF8String(AFileName)) + {$ENDIF} + , AType); +end; + +function IndySSL_CTX_use_certificate_file(ctx: PSSL_CTX; + const AFileName: String; AType: Integer): TIdC_INT; +{$IFDEF USE_INLINE} inline; {$ENDIF} +{$IFDEF USE_MARSHALLED_PTRS} +var + M: TMarshaller; +{$ENDIF} +begin + Result := SSL_CTX_use_certificate_file(ctx, + {$IFDEF USE_MARSHALLED_PTRS} + M.AsUtf8(AFileName).ToPointer + {$ELSE} + PAnsiChar(UTF8String(AFileName)) + {$ENDIF} + , AType); +end; + +function IndySSL_CTX_use_certificate_chain_file(ctx :PSSL_CTX; + const AFileName: String) : TIdC_INT; +{$IFDEF USE_INLINE} inline; {$ENDIF} +{$IFDEF USE_MARSHALLED_PTRS} +var + M: TMarshaller; +{$ENDIF} +begin + Result := SSL_CTX_use_certificate_chain_file(ctx, + {$IFDEF USE_MARSHALLED_PTRS} + M.AsUtf8(AFileName).ToPointer + {$ELSE} + PAnsiChar(UTF8String(AFileName)) + {$ENDIF}); +end; + +{$IFDEF USE_MARSHALLED_PTRS} +function AsUtf8OrNil(var M: TMarshaller; const S: String): Pointer; + {$IFDEF USE_INLINE} inline; {$ENDIF} +begin + if S <> '' then begin + Result := M.AsUtf8(S).ToPointer; + end else begin + Result := nil; + end; +end; +{$ENDIF} + +function IndyX509_STORE_load_locations(ctx: PX509_STORE; + const AFileName, APathName: String): TIdC_INT; +{$IFDEF USE_INLINE} inline; {$ENDIF} +{$IFDEF USE_MARSHALLED_PTRS} +var + M: TMarshaller; +{$ENDIF} +begin + // RLebeau 4/18/2010: X509_STORE_load_locations() expects nil pointers + // for unused values, but casting a string directly to a PAnsiChar + // always produces a non-nil pointer, which causes X509_STORE_load_locations() + // to fail. Need to cast the string to an intermediate Pointer so the + // PAnsiChar cast is applied to the raw data and thus can be nil... + // + // RLebeau 8/18/2017: TMarshaller also produces a non-nil TPtrWrapper for + // an empty string, so need to handle nil specially with marshalled + // strings as well... + // + Result := X509_STORE_load_locations(ctx, + {$IFDEF USE_MARSHALLED_PTRS} + AsUtf8OrNil(M, AFileName), + AsUtf8OrNil(M, APathName) + {$ELSE} + PAnsiChar(Pointer(UTF8String(AFileName))), + PAnsiChar(Pointer(UTF8String(APathName))) + {$ENDIF} + ); +end; + +function IndySSL_CTX_load_verify_locations(ctx: PSSL_CTX; + const ACAFile, ACAPath: String): TIdC_INT; +{$IFDEF USE_INLINE} inline; {$ENDIF} +begin + // RLebeau: why are we calling X509_STORE_load_locations() directly + // instead of just calling SSL_CTX_load_verify_locations() with + // UTF-8 input? + + //Result := SSL_CTX_load_verify_locations(ctx, + // {$IFDEF USE_MARSHALLED_PTRS} + // AsUtf8OrNl(ACAFile), + // AsUtf8OrNil(ACAPath) + // {$ELSE} + // PAnsiChar(Pointer(UTF8String(ACAFile))), + // PAnsiChar(Pointer(UTF8String(ACAPath))) + // {$ENDIF} + //); + + Result := IndyX509_STORE_load_locations(SSL_CTX_get_cert_store(ctx), ACAFile, ACAPath); +end; + +function IndySSL_CTX_use_DHparams_file(ctx: PSSL_CTX; + const AFileName: String; AType: Integer): TIdC_INT; +var + B: PBIO; + LDH: PDH; + j: Integer; + {$IFDEF USE_MARSHALLED_PTRS} + M: TMarshaller; + {$ENDIF} +begin + Result := 0; + B := BIO_new_file( + {$IFDEF USE_MARSHALLED_PTRS} + M.AsUtf8(AFileName).ToPointer + {$ELSE} + PAnsiChar(UTF8String(AFileName)) + {$ENDIF} + , 'r'); + if Assigned(B) then begin + try + case AType of + // TODO + { + SSL_FILETYPE_ASN1: + begin + j := ERR_R_ASN1_LIB; + LDH := d2i_DHparams_bio(B, nil); + end; + } + SSL_FILETYPE_PEM: + begin + j := ERR_R_DH_LIB; + LDH := PEM_read_bio_DHparams(B, nil, SSL_CTX_get_default_passwd_cb(ctx), + SSL_CTX_get_default_passwd_cb_userdata(ctx)); + end + else begin + SSLerr(SSL_F_SSL3_CTRL, SSL_R_BAD_SSL_FILETYPE); + Exit; + end; + end; + if not Assigned(LDH) then begin + SSLerr(SSL_F_SSL3_CTRL, j); + Exit; + end; + Result := SSL_CTX_set_tmp_dh(ctx, LDH); + DH_free(LDH); + finally + BIO_free(B); + end; + end; +end; + + {$ENDIF} // UNIX + +{$ELSE} // STRING_IS_UNICODE +{this conditional section assumes that strings are UTF8 or perhaps use a codepage + and the calls typically resolve to direct calls to OpenSSL} + +function IndySSL_load_client_CA_file(const AFileName: String) : PSTACK_OF_X509_NAME; +{$IFDEF USE_INLINE} inline; {$ENDIF} +begin + Result := SSL_load_client_CA_file(PAnsiChar(AFileName)); +end; + +function IndySSL_CTX_use_PrivateKey_file(ctx: PSSL_CTX; const AFileName: String; + AType: Integer): TIdC_INT; +{$IFDEF USE_INLINE} inline; {$ENDIF} +begin + Result := SSL_CTX_use_PrivateKey_file(ctx, PAnsiChar(AFileName), AType); +end; + +function IndySSL_CTX_use_certificate_file(ctx: PSSL_CTX; + const AFileName: String; AType: Integer): TIdC_INT; +{$IFDEF USE_INLINE} inline; {$ENDIF} +begin + Result := SSL_CTX_use_certificate_file(ctx, PAnsiChar(AFileName), AType); +end; + +function IndySSL_CTX_use_certificate_chain_file(ctx :PSSL_CTX; + const AFileName: String) : TIdC_INT; +{$IFDEF USE_INLINE} inline; {$ENDIF} +begin + Result := SSL_CTX_use_certificate_chain_file(ctx, PAnsiChar(AFileName)); +end; + +function IndyX509_STORE_load_locations(ctx: PX509_STORE; + const AFileName, APathName: String): TIdC_INT; +{$IFDEF USE_INLINE} inline; {$ENDIF} +begin + // RLebeau 4/18/2010: X509_STORE_load_locations() expects nil pointers + // for unused values, but casting a string directly to a PAnsiChar + // always produces a non-nil pointer, which causes X509_STORE_load_locations() + // to fail. Need to cast the string to an intermediate Pointer so the + // PAnsiChar cast is applied to the raw data and thus can be nil... + // + Result := X509_STORE_load_locations(ctx, + PAnsiChar(Pointer(AFileName)), + PAnsiChar(Pointer(APathName))); +end; + +function IndySSL_CTX_load_verify_locations(ctx: PSSL_CTX; + const ACAFile, ACAPath: String): TIdC_INT; +begin + // RLebeau 4/18/2010: X509_STORE_load_locations() expects nil pointers + // for unused values, but casting a string directly to a PAnsiChar + // always produces a non-nil pointer, which causes X509_STORE_load_locations() + // to fail. Need to cast the string to an intermediate Pointer so the + // PAnsiChar cast is applied to the raw data and thus can be nil... + // + Result := SSL_CTX_load_verify_locations(ctx, + PAnsiChar(Pointer(ACAFile)), + PAnsiChar(Pointer(ACAPath))); +end; + +function IndySSL_CTX_use_DHparams_file(ctx: PSSL_CTX; + const AFileName: String; AType: Integer): TIdC_INT; +var + B: PBIO; + LDH: PDH; + j: Integer; +begin + Result := 0; + B := BIO_new_file(PAnsiChar(AFileName), 'r'); + if Assigned(B) then begin + try + case AType of + // TODO + { + SSL_FILETYPE_ASN1: + begin + j := ERR_R_ASN1_LIB; + LDH := d2i_DHparams_bio(B, nil); + end; + } + SSL_FILETYPE_PEM: + begin + j := ERR_R_DH_LIB; + LDH := PEM_read_bio_DHparams(B, nil, SSL_CTX_get_default_passwd_cb(ctx), + SSL_CTX_get_default_passwd_cb_userdata(ctx)); + end + else begin + SSLerr(SSL_F_SSL3_CTRL, SSL_R_BAD_SSL_FILETYPE); + Exit; + end; + end; + if not Assigned(LDH) then begin + SSLerr(SSL_F_SSL3_CTRL, j); + Exit; + end; + Result := SSL_CTX_set_tmp_dh(ctx, LDH); + DH_free(LDH); + finally + BIO_free(B); + end; + end; +end; + +{$ENDIF} + +end. + diff --git a/src/IdSSLwincrypt.pas b/src/IdSSLwincrypt.pas new file mode 100644 index 0000000..501956b --- /dev/null +++ b/src/IdSSLwincrypt.pas @@ -0,0 +1,103 @@ +unit IdSSLwincrypt; + +{ + $Project$ + $Workfile$ + $Revision$ + $DateUTC$ + $Id$ + } + {******************************************************************************} + { } + { Indy (Internet Direct) - Internet Protocols Simplified } + { } + { https://www.indyproject.org/ } + { https://gitter.im/IndySockets/Indy } + { } + {******************************************************************************} + { } + { This file is part of the Indy (Internet Direct) project, and is offered } + { under the dual-licensing agreement described on the Indy website. } + { (https://www.indyproject.org/license/) } + { } + { Copyright: } + { (c) 1993-2024, the Indy Pit Crew. All rights reserved. } + { } + {******************************************************************************} + { } + { Contributers: } + { Here could be your name } + { } + {******************************************************************************} + +{ + $Log$ +} + + +interface + +{$I IdCompilerDefines.inc} + +{$IFDEF WINDOWS} +{$IFNDEF OPENSSL_DONT_USE_WINDOWS_CERT_STORE} +{$DEFINE USE_WINDOWS_CERT_STORE} +{$ENDIF} +{$ENDIF} + + +{$IFNDEF USE_OPENSSL} + {$message error Should not compile if USE_OPENSSL is not defined!!!} +{$ENDIF} + +{$TYPEDADDRESS OFF} + + +uses + Classes, + SysUtils, + {$IFDEF WINDOWS} Windows, {$ENDIF} + IdCTypes, + IdGlobal; + +{$IFDEF USE_WINDOWS_CERT_STORE} + +const + wincryptdll = 'crypt32.dll'; + RootStore = 'ROOT'; + +type + HCERTSTORE = THandle; + HCRYPTPROV_LEGACY = PIdC_LONG; + PCERT_INFO = pointer; {don't need to know this structure} + PCCERT_CONTEXT = ^CERT_CONTEXT; + CERT_CONTEXT = record + dwCertEncodingType: DWORD; + pbCertEncoded: PByte; + cbCertEncoded: DWORD; + CertInfo: PCERT_INFO; + certstore: HCERTSTORE + end; + +{$IFDEF STRING_IS_ANSI} +{$EXTERNALSYM CertOpenSystemStoreA} +function CertOpenSystemStoreA(hProv: HCRYPTPROV_LEGACY; szSubsystemProtocol: PIdAnsiChar):HCERTSTORE; + stdcall; external wincryptdll; +{$ELSE} +{$EXTERNALSYM CertOpenSystemStoreW} +function CertOpenSystemStoreW(hProv: HCRYPTPROV_LEGACY; szSubsystemProtocol: PCHar):HCERTSTORE; + stdcall; external wincryptdll; +{$ENDIF} + +{$EXTERNALSYM CertCloseStore} +function CertCloseStore(certstore: HCERTSTORE; dwFlags: DWORD): boolean; stdcall; external wincryptdll; + +{$EXTERNALSYM CertEnumCertificatesInStore} +function CertEnumCertificatesInStore(certstore: HCERTSTORE; pPrevCertContext: PCCERT_CONTEXT): PCCERT_CONTEXT; + stdcall; external wincryptdll; +{$ENDIF} + +implementation + +end. + diff --git a/src/IdSymbolDeprecatedOff.inc b/src/IdSymbolDeprecatedOff.inc new file mode 100644 index 0000000..744d9a7 --- /dev/null +++ b/src/IdSymbolDeprecatedOff.inc @@ -0,0 +1,4 @@ +// TODO: for FreePascal, use {$PUSH} here and {%POP} in IdSymbolDeprecatedOn.inc +{$IFDEF HAS_DEPRECATED} + {$WARN SYMBOL_DEPRECATED OFF} +{$ENDIF} diff --git a/src/IdSymbolDeprecatedOn.inc b/src/IdSymbolDeprecatedOn.inc new file mode 100644 index 0000000..dcbe2f8 --- /dev/null +++ b/src/IdSymbolDeprecatedOn.inc @@ -0,0 +1,9 @@ +// TODO: for FreePascal, use {$PUSH} in IdSymbolDeprecatedOff.inc and {$POP} here +{$IFDEF HAS_DEPRECATED} + {$IFDEF HAS_DIRECTIVE_WARN_DEFAULT} + {$WARN SYMBOL_DEPRECATED DEFAULT} + {$ELSE} + {$WARN SYMBOL_DEPRECATED ON} + {$ENDIF} +{$ENDIF} + diff --git a/src/Makefile.fpc b/src/Makefile.fpc new file mode 100644 index 0000000..00ae402 --- /dev/null +++ b/src/Makefile.fpc @@ -0,0 +1,28 @@ +[package] +name=indyopenssl +version=$(INDY_VERSION) +main=indy + +[requires] +packages=indyprotocols + +[compiler] +options= -MDelphi $(OPT) -Scghi -CX -Ur -Xs -vew +unittargetdir= ../../units/$(CPU_TARGET)-$(OS_TARGET) +includedir=.:opensslHdrs +unitdir=.:opensslHdrs + +[target] +units=indyopensslfpc + + +[install] +fpcpackage=y +fpcsubdir=packages/extra +buildunit=indyopensslfpc + +[clean] +files= \ + ../../units/$(CPU_TARGET)-$(OS_TARGET)/IdResourceStringsOpenSSL.rsj \ + ../../units/$(CPU_TARGET)-$(OS_TARGET)/IdSSLOpenSSLResourceStrings.rsj + diff --git a/src/indyopensslfpc.pas b/src/indyopensslfpc.pas new file mode 100644 index 0000000..c7a0d6a --- /dev/null +++ b/src/indyopensslfpc.pas @@ -0,0 +1,17 @@ +{ This file was automatically created by Lazarus. Do not edit! + This source is only used to compile and install the package. + } + +unit indyopensslfpc; + +{$warn 5023 off : no warning about unused units} +interface + +uses + IdNTLMOpenSSL, IdResourceStringsOpenSSL, IdSSLOpenSSL, IdSSLOpenSSLFIPS, + IdOpenSSLHeaders_AllHeaders, IdSSLOpenSSLOptions, IdSSLOpenSSLX509, IdSSLOpenSSLutils, + IdSSLOpenSSLSocket, IdSSLwincrypt; + +implementation + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_AllHeaders.pas b/src/opensslHdrs/IdOpenSSLHeaders_AllHeaders.pas new file mode 100644 index 0000000..ee51969 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_AllHeaders.pas @@ -0,0 +1,88 @@ +unit IdOpenSSLHeaders_AllHeaders; + +interface + +uses + IdOpenSSLHeaders_cmserr, + IdOpenSSLHeaders_ts, + IdOpenSSLHeaders_x509v3, + IdOpenSSLHeaders_conf, + IdOpenSSLHeaders_rsa, + IdOpenSSLHeaders_safestack, + IdOpenSSLHeaders_ecerr, + IdOpenSSLHeaders_pem, + IdOpenSSLHeaders_pemerr, + IdOpenSSLHeaders_uierr, + IdOpenSSLHeaders_whrlpool, + IdOpenSSLHeaders_dsaerr, + IdOpenSSLHeaders_asyncerr, + IdOpenSSLHeaders_ui, + IdOpenSSLHeaders_objectserr, + IdOpenSSLHeaders_tserr, + IdOpenSSLHeaders_cast, + IdOpenSSLHeaders_provider, + IdOpenSSLHeaders_rand, + IdOpenSSLHeaders_x509err, + IdOpenSSLHeaders_dherr, + IdOpenSSLHeaders_sslerr, + IdOpenSSLHeaders_rsaerr, + IdOpenSSLHeaders_pkcs12, + IdOpenSSLHeaders_blowfish, + IdOpenSSLHeaders_pkcs7err, + IdOpenSSLHeaders_des, + IdOpenSSLHeaders_rc4, + IdOpenSSLHeaders_cmac, + IdOpenSSLHeaders_asn1t, + IdOpenSSLHeaders_x509_vfy, + IdOpenSSLHeaders_obj_mac, + IdOpenSSLHeaders_ssl, + IdOpenSSLHeaders_comp, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_conf_api, + IdOpenSSLHeaders_txt_db, + IdOpenSSLHeaders_ebcdic, + IdOpenSSLHeaders_objects, + IdOpenSSLHeaders_kdferr, + IdOpenSSLHeaders_buffer, + IdOpenSSLHeaders_hmac, + IdOpenSSLHeaders_cryptoerr, + IdOpenSSLHeaders_randerr, + IdOpenSSLHeaders_async, + IdOpenSSLHeaders_bnerr, + IdOpenSSLHeaders_ec, + IdOpenSSLHeaders_evperr, + IdOpenSSLHeaders_asn1_mac, + IdOpenSSLHeaders_bn, + IdOpenSSLHeaders_tls1, + IdOpenSSLHeaders_asn1err, + IdOpenSSLHeaders_comperr, + IdOpenSSLHeaders_x509, + IdOpenSSLHeaders_stack, + IdOpenSSLHeaders_aes, + IdOpenSSLHeaders_err, + IdOpenSSLHeaders_crypto, + IdOpenSSLHeaders_buffererr, + IdOpenSSLHeaders_sha, + IdOpenSSLHeaders_bio, + IdOpenSSLHeaders_idea, + IdOpenSSLHeaders_srtp, + IdOpenSSLHeaders_evp, + IdOpenSSLHeaders_engineerr, + IdOpenSSLHeaders_ocsperr, + IdOpenSSLHeaders_cms, + IdOpenSSLHeaders_asn1, + IdOpenSSLHeaders_bioerr, + IdOpenSSLHeaders_engine, + IdOpenSSLHeaders_camellia, + IdOpenSSLHeaders_ssl3, + IdOpenSSLHeaders_pkcs7, + IdOpenSSLHeaders_core, + IdOpenSSLHeaders_conferr, + IdOpenSSLHeaders_cterr, + IdOpenSSLHeaders_dsa, + IdOpenSSLHeaders_storeerr, + IdOpenSSLHeaders_dh; + +implementation + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_aes.pas b/src/opensslHdrs/IdOpenSSLHeaders_aes.pas new file mode 100644 index 0000000..fc99f2c --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_aes.pas @@ -0,0 +1,299 @@ +(* This unit was generated from the source file aes.h2pas +It should not be modified directly. All changes should be made to aes.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_aes; + + +interface + +// Headers for OpenSSL 1.1.1 +// aes.h + + +uses + IdSSLOpenSSLAPI; + +const +// Added '_CONST' to avoid name clashes + AES_ENCRYPT_CONST = 1; +// Added '_CONST' to avoid name clashes + AES_DECRYPT_CONST = 0; + AES_MAXNR = 14; + AES_BLOCK_SIZE = 16; + +type + aes_key_st = record + // in old IdSSLOpenSSLHeaders.pas it was also TOpenSSL_C_UINT ¯\_(ツ)_/¯ +// {$IFDEF AES_LONG} +// rd_key: array[0..(4 * (AES_MAXNR + 1))] of TOpenSSL_C_ULONG; +// {$ELSE} + rd_key: array[0..(4 * (AES_MAXNR + 1))] of TOpenSSL_C_UINT; +// {$ENDIF} + rounds: TOpenSSL_C_INT; + end; + AES_KEY = aes_key_st; + PAES_KEY = ^AES_KEY; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM AES_options} +{$EXTERNALSYM AES_set_encrypt_key} +{$EXTERNALSYM AES_set_decrypt_key} +{$EXTERNALSYM AES_encrypt} +{$EXTERNALSYM AES_decrypt} +{$EXTERNALSYM AES_ecb_encrypt} +{$EXTERNALSYM AES_cbc_encrypt} +{$EXTERNALSYM AES_cfb128_encrypt} +{$EXTERNALSYM AES_cfb1_encrypt} +{$EXTERNALSYM AES_cfb8_encrypt} +{$EXTERNALSYM AES_ofb128_encrypt} +{$EXTERNALSYM AES_ige_encrypt} +{$EXTERNALSYM AES_bi_ige_encrypt} +{$EXTERNALSYM AES_wrap_key} +{$EXTERNALSYM AES_unwrap_key} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function AES_options: PAnsiChar; cdecl; external CLibCrypto; +function AES_set_encrypt_key(const userKey: PByte; const bits: TOpenSSL_C_INT; const key: PAES_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function AES_set_decrypt_key(const userKey: PByte; const bits: TOpenSSL_C_INT; const key: PAES_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure AES_encrypt(const in_: PByte; out_: PByte; const key: PAES_KEY); cdecl; external CLibCrypto; +procedure AES_decrypt(const in_: PByte; out_: PByte; const key: PAES_KEY); cdecl; external CLibCrypto; +procedure AES_ecb_encrypt(const in_: PByte; out_: PByte; const key: PAES_KEY; const enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure AES_cbc_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; const enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure AES_cfb128_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure AES_cfb1_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure AES_cfb8_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure AES_ofb128_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; num: POpenSSL_C_INT); cdecl; external CLibCrypto; +procedure AES_ige_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; const enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure AES_bi_ige_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; const key2: PAES_KEY; ivec: PByte; const enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function AES_wrap_key(key: PAES_KEY; const iv: PByte; out_: PByte; const in_: PByte; inlen: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function AES_unwrap_key(key: PAES_KEY; const iv: PByte; out_: PByte; const in_: PByte; inlen: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_AES_options: PAnsiChar; cdecl; +function Load_AES_set_encrypt_key(const userKey: PByte; const bits: TOpenSSL_C_INT; const key: PAES_KEY): TOpenSSL_C_INT; cdecl; +function Load_AES_set_decrypt_key(const userKey: PByte; const bits: TOpenSSL_C_INT; const key: PAES_KEY): TOpenSSL_C_INT; cdecl; +procedure Load_AES_encrypt(const in_: PByte; out_: PByte; const key: PAES_KEY); cdecl; +procedure Load_AES_decrypt(const in_: PByte; out_: PByte; const key: PAES_KEY); cdecl; +procedure Load_AES_ecb_encrypt(const in_: PByte; out_: PByte; const key: PAES_KEY; const enc: TOpenSSL_C_INT); cdecl; +procedure Load_AES_cbc_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; const enc: TOpenSSL_C_INT); cdecl; +procedure Load_AES_cfb128_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; +procedure Load_AES_cfb1_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; +procedure Load_AES_cfb8_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; +procedure Load_AES_ofb128_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; num: POpenSSL_C_INT); cdecl; +procedure Load_AES_ige_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; const enc: TOpenSSL_C_INT); cdecl; +procedure Load_AES_bi_ige_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; const key2: PAES_KEY; ivec: PByte; const enc: TOpenSSL_C_INT); cdecl; +function Load_AES_wrap_key(key: PAES_KEY; const iv: PByte; out_: PByte; const in_: PByte; inlen: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_AES_unwrap_key(key: PAES_KEY; const iv: PByte; out_: PByte; const in_: PByte; inlen: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; + +var + AES_options: function : PAnsiChar; cdecl = Load_AES_options; + AES_set_encrypt_key: function (const userKey: PByte; const bits: TOpenSSL_C_INT; const key: PAES_KEY): TOpenSSL_C_INT; cdecl = Load_AES_set_encrypt_key; + AES_set_decrypt_key: function (const userKey: PByte; const bits: TOpenSSL_C_INT; const key: PAES_KEY): TOpenSSL_C_INT; cdecl = Load_AES_set_decrypt_key; + AES_encrypt: procedure (const in_: PByte; out_: PByte; const key: PAES_KEY); cdecl = Load_AES_encrypt; + AES_decrypt: procedure (const in_: PByte; out_: PByte; const key: PAES_KEY); cdecl = Load_AES_decrypt; + AES_ecb_encrypt: procedure (const in_: PByte; out_: PByte; const key: PAES_KEY; const enc: TOpenSSL_C_INT); cdecl = Load_AES_ecb_encrypt; + AES_cbc_encrypt: procedure (const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; const enc: TOpenSSL_C_INT); cdecl = Load_AES_cbc_encrypt; + AES_cfb128_encrypt: procedure (const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl = Load_AES_cfb128_encrypt; + AES_cfb1_encrypt: procedure (const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl = Load_AES_cfb1_encrypt; + AES_cfb8_encrypt: procedure (const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl = Load_AES_cfb8_encrypt; + AES_ofb128_encrypt: procedure (const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; num: POpenSSL_C_INT); cdecl = Load_AES_ofb128_encrypt; + AES_ige_encrypt: procedure (const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; const enc: TOpenSSL_C_INT); cdecl = Load_AES_ige_encrypt; + AES_bi_ige_encrypt: procedure (const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; const key2: PAES_KEY; ivec: PByte; const enc: TOpenSSL_C_INT); cdecl = Load_AES_bi_ige_encrypt; + AES_wrap_key: function (key: PAES_KEY; const iv: PByte; out_: PByte; const in_: PByte; inlen: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_AES_wrap_key; + AES_unwrap_key: function (key: PAES_KEY; const iv: PByte; out_: PByte; const in_: PByte; inlen: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_AES_unwrap_key; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_AES_options: PAnsiChar; cdecl; +begin + AES_options := LoadLibCryptoFunction('AES_options'); + if not assigned(AES_options) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AES_options'); + Result := AES_options(); +end; + +function Load_AES_set_encrypt_key(const userKey: PByte; const bits: TOpenSSL_C_INT; const key: PAES_KEY): TOpenSSL_C_INT; cdecl; +begin + AES_set_encrypt_key := LoadLibCryptoFunction('AES_set_encrypt_key'); + if not assigned(AES_set_encrypt_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AES_set_encrypt_key'); + Result := AES_set_encrypt_key(userKey,bits,key); +end; + +function Load_AES_set_decrypt_key(const userKey: PByte; const bits: TOpenSSL_C_INT; const key: PAES_KEY): TOpenSSL_C_INT; cdecl; +begin + AES_set_decrypt_key := LoadLibCryptoFunction('AES_set_decrypt_key'); + if not assigned(AES_set_decrypt_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AES_set_decrypt_key'); + Result := AES_set_decrypt_key(userKey,bits,key); +end; + +procedure Load_AES_encrypt(const in_: PByte; out_: PByte; const key: PAES_KEY); cdecl; +begin + AES_encrypt := LoadLibCryptoFunction('AES_encrypt'); + if not assigned(AES_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AES_encrypt'); + AES_encrypt(in_,out_,key); +end; + +procedure Load_AES_decrypt(const in_: PByte; out_: PByte; const key: PAES_KEY); cdecl; +begin + AES_decrypt := LoadLibCryptoFunction('AES_decrypt'); + if not assigned(AES_decrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AES_decrypt'); + AES_decrypt(in_,out_,key); +end; + +procedure Load_AES_ecb_encrypt(const in_: PByte; out_: PByte; const key: PAES_KEY; const enc: TOpenSSL_C_INT); cdecl; +begin + AES_ecb_encrypt := LoadLibCryptoFunction('AES_ecb_encrypt'); + if not assigned(AES_ecb_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AES_ecb_encrypt'); + AES_ecb_encrypt(in_,out_,key,enc); +end; + +procedure Load_AES_cbc_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; const enc: TOpenSSL_C_INT); cdecl; +begin + AES_cbc_encrypt := LoadLibCryptoFunction('AES_cbc_encrypt'); + if not assigned(AES_cbc_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AES_cbc_encrypt'); + AES_cbc_encrypt(in_,out_,length,key,ivec,enc); +end; + +procedure Load_AES_cfb128_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; +begin + AES_cfb128_encrypt := LoadLibCryptoFunction('AES_cfb128_encrypt'); + if not assigned(AES_cfb128_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AES_cfb128_encrypt'); + AES_cfb128_encrypt(in_,out_,length,key,ivec,num,enc); +end; + +procedure Load_AES_cfb1_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; +begin + AES_cfb1_encrypt := LoadLibCryptoFunction('AES_cfb1_encrypt'); + if not assigned(AES_cfb1_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AES_cfb1_encrypt'); + AES_cfb1_encrypt(in_,out_,length,key,ivec,num,enc); +end; + +procedure Load_AES_cfb8_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; +begin + AES_cfb8_encrypt := LoadLibCryptoFunction('AES_cfb8_encrypt'); + if not assigned(AES_cfb8_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AES_cfb8_encrypt'); + AES_cfb8_encrypt(in_,out_,length,key,ivec,num,enc); +end; + +procedure Load_AES_ofb128_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; num: POpenSSL_C_INT); cdecl; +begin + AES_ofb128_encrypt := LoadLibCryptoFunction('AES_ofb128_encrypt'); + if not assigned(AES_ofb128_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AES_ofb128_encrypt'); + AES_ofb128_encrypt(in_,out_,length,key,ivec,num); +end; + +procedure Load_AES_ige_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; ivec: PByte; const enc: TOpenSSL_C_INT); cdecl; +begin + AES_ige_encrypt := LoadLibCryptoFunction('AES_ige_encrypt'); + if not assigned(AES_ige_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AES_ige_encrypt'); + AES_ige_encrypt(in_,out_,length,key,ivec,enc); +end; + +procedure Load_AES_bi_ige_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_SIZET; const key: PAES_KEY; const key2: PAES_KEY; ivec: PByte; const enc: TOpenSSL_C_INT); cdecl; +begin + AES_bi_ige_encrypt := LoadLibCryptoFunction('AES_bi_ige_encrypt'); + if not assigned(AES_bi_ige_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AES_bi_ige_encrypt'); + AES_bi_ige_encrypt(in_,out_,length,key,key2,ivec,enc); +end; + +function Load_AES_wrap_key(key: PAES_KEY; const iv: PByte; out_: PByte; const in_: PByte; inlen: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + AES_wrap_key := LoadLibCryptoFunction('AES_wrap_key'); + if not assigned(AES_wrap_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AES_wrap_key'); + Result := AES_wrap_key(key,iv,out_,in_,inlen); +end; + +function Load_AES_unwrap_key(key: PAES_KEY; const iv: PByte; out_: PByte; const in_: PByte; inlen: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + AES_unwrap_key := LoadLibCryptoFunction('AES_unwrap_key'); + if not assigned(AES_unwrap_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AES_unwrap_key'); + Result := AES_unwrap_key(key,iv,out_,in_,inlen); +end; + + +procedure UnLoad; +begin + AES_options := Load_AES_options; + AES_set_encrypt_key := Load_AES_set_encrypt_key; + AES_set_decrypt_key := Load_AES_set_decrypt_key; + AES_encrypt := Load_AES_encrypt; + AES_decrypt := Load_AES_decrypt; + AES_ecb_encrypt := Load_AES_ecb_encrypt; + AES_cbc_encrypt := Load_AES_cbc_encrypt; + AES_cfb128_encrypt := Load_AES_cfb128_encrypt; + AES_cfb1_encrypt := Load_AES_cfb1_encrypt; + AES_cfb8_encrypt := Load_AES_cfb8_encrypt; + AES_ofb128_encrypt := Load_AES_ofb128_encrypt; + AES_ige_encrypt := Load_AES_ige_encrypt; + AES_bi_ige_encrypt := Load_AES_bi_ige_encrypt; + AES_wrap_key := Load_AES_wrap_key; + AES_unwrap_key := Load_AES_unwrap_key; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_asn1.pas b/src/opensslHdrs/IdOpenSSLHeaders_asn1.pas new file mode 100644 index 0000000..fb66100 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_asn1.pas @@ -0,0 +1,2882 @@ +(* This unit was generated from the source file asn1.h2pas +It should not be modified directly. All changes should be made to asn1.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_asn1; + + +interface + +// Headers for OpenSSL 1.1.1 +// asn1.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_asn1t, + IdOpenSSLHeaders_bio, + IdOpenSSLHeaders_ossl_typ; + +{$MINENUMSIZE 4} + +const + (* + * NB the constants below are used internally by ASN1_INTEGER + * and ASN1_ENUMERATED to indicate the sign. They are *not* on + * the wire tag values. + *) + + V_ASN1_NEG = $100; + V_ASN1_NEG_INTEGER = 2 or V_ASN1_NEG; + V_ASN1_NEG_ENUMERATED = 10 or V_ASN1_NEG; + + (* For use with d2i_ASN1_type_bytes() *) + B_ASN1_NUMERICSTRING = $0001; + B_ASN1_PRINTABLESTRING = $0002; + B_ASN1_T61STRING = $0004; + B_ASN1_TELETEXSTRING = $0004; + B_ASN1_VIDEOTEXSTRING = $0008; + B_ASN1_IA5STRING = $0010; + B_ASN1_GRAPHICSTRING = $0020; + B_ASN1_ISO64STRING = $0040; + B_ASN1_VISIBLESTRING = $0040; + B_ASN1_GENERALSTRING = $0080; + B_ASN1_UNIVERSALSTRING = $0100; + B_ASN1_OCTET_STRING = $0200; + B_ASN1_BIT_STRING = $0400; + B_ASN1_BMPSTRING = $0800; + B_ASN1_UNKNOWN = $1000; + B_ASN1_UTF8STRING = $2000; + B_ASN1_UTCTIME = $4000; + B_ASN1_GENERALIZEDTIME = $8000; + B_ASN1_SEQUENCE = $10000; + (* For use with ASN1_mbstring_copy() *) + MBSTRING_FLAG = $1000; + MBSTRING_UTF8 = MBSTRING_FLAG; + MBSTRING_ASC = MBSTRING_FLAG or 1; + MBSTRING_BMP = MBSTRING_FLAG or 2; + MBSTRING_UNIV = MBSTRING_FLAG or 4; + SMIME_OLDMIME = $400; + SMIME_CRLFEOL = $800; + SMIME_STREAM = $1000; + +// struct X509_algor_st; +//DEFINE_STACK_OF(X509_ALGOR) + + ASN1_STRING_FLAG_BITS_LEFT = $08; (* Set if $07 has bits left value *) + (* + * This indicates that the ASN1_STRING is not a real value but just a place + * holder for the location where indefinite length constructed data should be + * inserted in the memory buffer + *) + ASN1_STRING_FLAG_NDEF = $010; + + (* + * This flag is used by the CMS code to indicate that a string is not + * complete and is a place holder for content when it had all been accessed. + * The flag will be reset when content has been written to it. + *) + + ASN1_STRING_FLAG_CONT = $020; + (* + * This flag is used by ASN1 code to indicate an ASN1_STRING is an MSTRING + * type. + *) + ASN1_STRING_FLAG_MSTRING = $040; + (* String is embedded and only content should be freed *) + ASN1_STRING_FLAG_EMBED = $080; + (* String should be parsed in RFC 5280's time format *) + ASN1_STRING_FLAG_X509_TIME = $100; + + (* Used with ASN1 LONG type: if a long is set to this it is omitted *) + ASN1_LONG_UNDEF = TOpenSSL_C_LONG($7fffffff); + + STABLE_FLAGS_MALLOC = $01; + (* + * A zero passed to ASN1_STRING_TABLE_new_add for the flags is interpreted + * as "don't change" and STABLE_FLAGS_MALLOC is always set. By setting + * STABLE_FLAGS_MALLOC only we can clear the existing value. Use the alias + * STABLE_FLAGS_CLEAR to reflect this. + *) + STABLE_FLAGS_CLEAR = STABLE_FLAGS_MALLOC; + STABLE_NO_MASK = $02; + DIRSTRING_TYPE = B_ASN1_PRINTABLESTRING or B_ASN1_T61STRING or B_ASN1_BMPSTRING or B_ASN1_UTF8STRING; + PKCS9STRING_TYPE = DIRSTRING_TYPE or B_ASN1_IA5STRING; + + (* size limits: this stuff is taken straight from RFC2459 *) + ub_name = 32768; + ub_common_name = 64; + ub_locality_name = 128; + ub_state_name = 128; + ub_organization_name = 64; + ub_organization_unit_name = 64; + ub_title = 64; + ub_email_address = 128; + + (* Parameters used by ASN1_STRING_print_ex() *) + + (* + * These determine which characters to escape: RFC2253 special characters, + * control characters and MSB set characters + *) + ASN1_STRFLGS_ESC_2253 = 1; + ASN1_STRFLGS_ESC_CTRL = 2; + ASN1_STRFLGS_ESC_MSB = 4; + + (* + * This flag determines how we do escaping: normally RC2253 backslash only, + * set this to use backslash and quote. + *) + + ASN1_STRFLGS_ESC_QUOTE = 8; + + (* These three flags are internal use only. *) + + (* Character is a valid PrintableString character *) + CHARTYPE_PRINTABLESTRING = $10; + (* Character needs escaping if it is the first character *) + CHARTYPE_FIRST_ESC_2253 = $20; + (* Character needs escaping if it is the last character *) + CHARTYPE_LAST_ESC_2253 = $40; + + (* + * NB the internal flags are safely reused below by flags handled at the top + * level. + *) + + (* + * If this is set we convert all character strings to UTF8 first + *) + + ASN1_STRFLGS_UTF8_CONVERT = $10; + + (* + * If this is set we don't attempt to interpret content: just assume all + * strings are 1 byte per character. This will produce some pretty odd + * looking output! + *) + + ASN1_STRFLGS_IGNORE_TYPE = $20; + + (* If this is set we include the string type in the output *) + ASN1_STRFLGS_SHOW_TYPE = $40; + + (* + * This determines which strings to display and which to 'dump' (hex dump of + * content octets or DER encoding). We can only dump non character strings or + * everything. If we don't dump 'unknown' they are interpreted as character + * strings with 1 octet per character and are subject to the usual escaping + * options. + *) + + ASN1_STRFLGS_DUMP_ALL = $80; + ASN1_STRFLGS_DUMP_UNKNOWN = $100; + + (* + * These determine what 'dumping' does, we can dump the content octets or the + * DER encoding: both use the RFC2253 #XXXXX notation. + *) + + ASN1_STRFLGS_DUMP_DER = $200; + + (* + * This flag specifies that RC2254 escaping shall be performed. + *) + + ASN1_STRFLGS_ESC_2254 = $400; + + (* + * All the string flags consistent with RFC2253, escaping control characters + * isn't essential in RFC2253 but it is advisable anyway. + *) + + ASN1_STRFLGS_RFC2253 = ASN1_STRFLGS_ESC_2253 or ASN1_STRFLGS_ESC_CTRL or + ASN1_STRFLGS_ESC_MSB or ASN1_STRFLGS_UTF8_CONVERT or + ASN1_STRFLGS_DUMP_UNKNOWN or ASN1_STRFLGS_DUMP_DER; + + B_ASN1_TIME = B_ASN1_UTCTIME or B_ASN1_GENERALIZEDTIME; + + B_ASN1_PRINTABLE = B_ASN1_NUMERICSTRING or B_ASN1_PRINTABLESTRING or + B_ASN1_T61STRING or B_ASN1_IA5STRING or B_ASN1_BIT_STRING or + B_ASN1_UNIVERSALSTRING or B_ASN1_BMPSTRING or B_ASN1_UTF8STRING or + B_ASN1_SEQUENCE or B_ASN1_UNKNOWN; + + B_ASN1_DIRECTORYSTRING = B_ASN1_PRINTABLESTRING or B_ASN1_TELETEXSTRING or + B_ASN1_BMPSTRING or B_ASN1_UNIVERSALSTRING or B_ASN1_UTF8STRING; + + B_ASN1_DISPLAYTEXT = B_ASN1_IA5STRING or B_ASN1_VISIBLESTRING or + B_ASN1_BMPSTRING or B_ASN1_UTF8STRING; + + (* ASN1 Print flags *) + (* Indicate missing OPTIONAL fields *) + ASN1_PCTX_FLAGS_SHOW_ABSENT = $001; + (* Mark start and end of SEQUENCE *) + ASN1_PCTX_FLAGS_SHOW_SEQUENCE = $002; + (* Mark start and end of SEQUENCE/SET OF *) + ASN1_PCTX_FLAGS_SHOW_SSOF = $004; + (* Show the ASN1 type of primitives *) + ASN1_PCTX_FLAGS_SHOW_TYPE = $008; + (* Don't show ASN1 type of ANY *) + ASN1_PCTX_FLAGS_NO_ANY_TYPE = $010; + (* Don't show ASN1 type of MSTRINGs *) + ASN1_PCTX_FLAGS_NO_MSTRING_TYPE = $020; + (* Don't show field names in SEQUENCE *) + ASN1_PCTX_FLAGS_NO_FIELD_NAME = $040; + (* Show structure names of each SEQUENCE field *) + ASN1_PCTX_FLAGS_SHOW_FIELD_STRUCT_NAME = $080; + (* Don't show structure name even at top level *) + ASN1_PCTX_FLAGS_NO_STRUCT_NAME = $100; + +type +// Moved to ossl_type to prevent circular references +///(* This is the base type that holds just about everything :-) *) +// asn1_string_st = record +// length: TOpenSSL_C_int; +// type_: TOpenSSL_C_int; +// data: PByte; +// (* +// * The value of the following field depends on the type being held. It +// * is mostly being used for BIT_STRING so if the input data has a +// * non-zero 'unused bits' value, it will be handled correctly +// *) +// flags: TOpenSSL_C_long; +// end; + + pxnew = function: Pointer; cdecl; + + (* + * ASN1_ENCODING structure: this is used to save the received encoding of an + * ASN1 type. This is useful to get round problems with invalid encodings + * which can break signatures. + *) + + ASN1_ENCODING_st = record + enc: PAnsiChar; (* DER encoding *) + len: TOpenSSL_C_LONG; (* Length of encoding *) + modified: TOpenSSL_C_INT; (* set to 1 if 'enc' is invalid *) + end; + ASN1_ENCODING = ASN1_ENCODING_st; + + asn1_string_table_st = record + nid: TOpenSSL_C_INT; + minsize: TOpenSSL_C_LONG; + maxsize: TOpenSSL_C_LONG; + mask: TOpenSSL_C_ULONG; + flags: TOpenSSL_C_ULONG; + end; + ASN1_STRING_TABLE = asn1_string_table_st; + PASN1_STRING_TABLE = ^ASN1_STRING_TABLE; + +// DEFINE_STACK_OF(ASN1_STRING_TABLE) + + (* !!! + * Declarations for template structures: for full definitions see asn1t.h + *) + (* This is just an opaque pointer *) +// typedef struct ASN1_VALUE_st ASN1_VALUE; + + (* Declare ASN1 functions: the implement macro in in asn1t.h *) + +//# define DECLARE_ASN1_FUNCTIONS(type) DECLARE_ASN1_FUNCTIONS_name(type, type) +// +//# define DECLARE_ASN1_ALLOC_FUNCTIONS(type) \ +// DECLARE_ASN1_ALLOC_FUNCTIONS_name(type, type) +// +//# define DECLARE_ASN1_FUNCTIONS_name(type, name) \ +// DECLARE_ASN1_ALLOC_FUNCTIONS_name(type, name) \ +// DECLARE_ASN1_ENCODE_FUNCTIONS(type, name, name) +// +//# define DECLARE_ASN1_FUNCTIONS_fname(type, itname, name) \ +// DECLARE_ASN1_ALLOC_FUNCTIONS_name(type, name) \ +// DECLARE_ASN1_ENCODE_FUNCTIONS(type, itname, name) +// +//# define DECLARE_ASN1_ENCODE_FUNCTIONS(type, itname, name) \ +// type *d2i_##name(type **a, const unsigned char **in, long len); \ +// int i2d_##name(type *a, unsigned char **out); \ +// DECLARE_ASN1_ITEM(itname) +// +//# define DECLARE_ASN1_ENCODE_FUNCTIONS_const(type, name) \ +// type *d2i_##name(type **a, const unsigned char **in, long len); \ +// int i2d_##name(const type *a, unsigned char **out); \ +// DECLARE_ASN1_ITEM(name) +// +//# define DECLARE_ASN1_NDEF_FUNCTION(name) \ +// int i2d_##name##_NDEF(name *a, unsigned char **out); +// +//# define DECLARE_ASN1_FUNCTIONS_const(name) \ +// DECLARE_ASN1_ALLOC_FUNCTIONS(name) \ +// DECLARE_ASN1_ENCODE_FUNCTIONS_const(name, name) +// +//# define DECLARE_ASN1_ALLOC_FUNCTIONS_name(type, name) \ +// type *name##_new(void); \ +// void name##_free(type *a); +// +//# define DECLARE_ASN1_PRINT_FUNCTION(stname) \ +// DECLARE_ASN1_PRINT_FUNCTION_fname(stname, stname) +// +//# define DECLARE_ASN1_PRINT_FUNCTION_fname(stname, fname) \ +// int fname##_print_ctx(BIO *out, stname *x, int indent, \ +// const ASN1_PCTX *pctx); +// +//# define D2I_OF(type) type *(*)(type **,const unsigned char **,long) +//# define I2D_OF(type) int (*)(type *,unsigned char **) +//# define I2D_OF_const(type) int (*)(const type *,unsigned char **) +// +//# define CHECKED_D2I_OF(type, d2i) \ +// ((d2i_of_void*) (1 ? d2i : ((D2I_OF(type))0))) +//# define CHECKED_I2D_OF(type, i2d) \ +// ((i2d_of_void*) (1 ? i2d : ((I2D_OF(type))0))) +//# define CHECKED_NEW_OF(type, xnew) \ +// ((void *(*)(void)) (1 ? xnew : ((type *(*)(void))0))) +//# define CHECKED_PTR_OF(type, p) \ +// ((void*) (1 ? p : (type*)0)) +//# define CHECKED_PPTR_OF(type, p) \ +// ((void**) (1 ? p : (type**)0)) +// +//# define TYPEDEF_D2I_OF(type) typedef type *d2i_of_##type(type **,const unsigned char **,long) +//# define TYPEDEF_I2D_OF(type) typedef int i2d_of_##type(type *,unsigned char **) +//# define TYPEDEF_D2I2D_OF(type) TYPEDEF_D2I_OF(type); TYPEDEF_I2D_OF(type) +// +//TYPEDEF_D2I2D_OF(void); + + (*- + * The following macros and typedefs allow an ASN1_ITEM + * to be embedded in a structure and referenced. Since + * the ASN1_ITEM pointers need to be globally accessible + * (possibly from shared libraries) they may exist in + * different forms. On platforms that support it the + * ASN1_ITEM structure itself will be globally exported. + * Other platforms will export a function that returns + * an ASN1_ITEM pointer. + * + * To handle both cases transparently the macros below + * should be used instead of hard coding an ASN1_ITEM + * pointer in a structure. + * + * The structure will look like this: + * + * typedef struct SOMETHING_st { + * ... + * ASN1_ITEM_EXP *iptr; + * ... + * } SOMETHING; + * + * It would be initialised as e.g.: + * + * SOMETHING somevar = {...,ASN1_ITEM_ref(X509),...}; + * + * and the actual pointer extracted with: + * + * const ASN1_ITEM *it = ASN1_ITEM_ptr(somevar.iptr); + * + * Finally an ASN1_ITEM pointer can be extracted from an + * appropriate reference with: ASN1_ITEM_rptr(X509). This + * would be used when a function takes an ASN1_ITEM * argument. + * + *) + +// # ifndef OPENSSL_EXPORT_VAR_AS_FUNCTION + +///(* ASN1_ITEM pointer exported type *) +//typedef const ASN1_ITEM ASN1_ITEM_EXP; +// +///(* Macro to obtain ASN1_ITEM pointer from exported type *) +//# define ASN1_ITEM_ptr(iptr) (iptr) +// +// (* Macro to include ASN1_ITEM pointer from base type *) +//# define ASN1_ITEM_ref(iptr) (&(iptr##_it)) +// +//# define ASN1_ITEM_rptr(ref) (&(ref##_it)) +// +//# define DECLARE_ASN1_ITEM(name) \ +// OPENSSL_EXTERN const ASN1_ITEM name##_it; +// +//# else + +// (* +// * Platforms that can't easily handle shared global variables are declared as +// * functions returning ASN1_ITEM pointers. +// *) + +///(* ASN1_ITEM pointer exported type *) +//typedef const ASN1_ITEM *ASN1_ITEM_EXP (void); +// +///(* Macro to obtain ASN1_ITEM pointer from exported type *) +//# define ASN1_ITEM_ptr(iptr) (iptr()) +// +///(* Macro to include ASN1_ITEM pointer from base type *) +//# define ASN1_ITEM_ref(iptr) (iptr##_it) +// +//# define ASN1_ITEM_rptr(ref) (ref##_it()) +// +//# define DECLARE_ASN1_ITEM(name) \ +// const ASN1_ITEM * name##_it(void); +// +//# endif + +//DEFINE_STACK_OF(ASN1_INTEGER) +// +//DEFINE_STACK_OF(ASN1_GENERALSTRING) +// +//DEFINE_STACK_OF(ASN1_UTF8STRING) + +//DEFINE_STACK_OF(ASN1_TYPE) +// +//typedef STACK_OF(ASN1_TYPE) ASN1_SEQUENCE_ANY; +// +//DECLARE_ASN1_ENCODE_FUNCTIONS_const(ASN1_SEQUENCE_ANY, ASN1_SEQUENCE_ANY) +//DECLARE_ASN1_ENCODE_FUNCTIONS_const(ASN1_SEQUENCE_ANY, ASN1_SET_ANY) + + (* This is used to contain a list of bit names *) + + BIT_STRING_BITNAME_st = record + bitnum: TOpenSSL_C_INT; + lname: PAnsiChar; + sname: PAnsiChar; + end; + BIT_STRING_BITNAME = BIT_STRING_BITNAME_st; + PBIT_STRING_BITNAME = ^BIT_STRING_BITNAME; + +//DECLARE_ASN1_FUNCTIONS(type) --> +// type *name##_new(void); \ +// void name##_free(type *a); +// type *d2i_##name(type **a, const unsigned char **in, long len); \ +// int i2d_##name(type *a, unsigned char **out); \ +//# define DECLARE_ASN1_ITEM(name) \ +// OPENSSL_EXTERN const ASN1_ITEM name##_it; + +// DECLARE_ASN1_FUNCTIONS_fname(ASN1_TYPE, ASN1_ANY, ASN1_TYPE) + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ASN1_TYPE_get} +{$EXTERNALSYM ASN1_TYPE_set} +{$EXTERNALSYM ASN1_TYPE_set1} +{$EXTERNALSYM ASN1_TYPE_cmp} +{$EXTERNALSYM ASN1_TYPE_pack_sequence} +{$EXTERNALSYM ASN1_TYPE_unpack_sequence} +{$EXTERNALSYM ASN1_OBJECT_new} +{$EXTERNALSYM ASN1_OBJECT_free} +{$EXTERNALSYM i2d_ASN1_OBJECT} +{$EXTERNALSYM d2i_ASN1_OBJECT} +{$EXTERNALSYM ASN1_STRING_new} +{$EXTERNALSYM ASN1_STRING_free} +{$EXTERNALSYM ASN1_STRING_clear_free} +{$EXTERNALSYM ASN1_STRING_copy} +{$EXTERNALSYM ASN1_STRING_dup} +{$EXTERNALSYM ASN1_STRING_type_new} +{$EXTERNALSYM ASN1_STRING_cmp} +{$EXTERNALSYM ASN1_STRING_set} +{$EXTERNALSYM ASN1_STRING_set0} +{$EXTERNALSYM ASN1_STRING_length} +{$EXTERNALSYM ASN1_STRING_length_set} +{$EXTERNALSYM ASN1_STRING_type} +{$EXTERNALSYM ASN1_STRING_get0_data} +{$EXTERNALSYM ASN1_BIT_STRING_set} +{$EXTERNALSYM ASN1_BIT_STRING_set_bit} +{$EXTERNALSYM ASN1_BIT_STRING_get_bit} +{$EXTERNALSYM ASN1_BIT_STRING_check} +{$EXTERNALSYM ASN1_BIT_STRING_name_print} +{$EXTERNALSYM ASN1_BIT_STRING_num_asc} +{$EXTERNALSYM ASN1_BIT_STRING_set_asc} +{$EXTERNALSYM ASN1_INTEGER_new} +{$EXTERNALSYM ASN1_INTEGER_free} +{$EXTERNALSYM d2i_ASN1_INTEGER} +{$EXTERNALSYM i2d_ASN1_INTEGER} +{$EXTERNALSYM d2i_ASN1_UINTEGER} +{$EXTERNALSYM ASN1_INTEGER_dup} +{$EXTERNALSYM ASN1_INTEGER_cmp} +{$EXTERNALSYM ASN1_UTCTIME_check} +{$EXTERNALSYM ASN1_UTCTIME_set} +{$EXTERNALSYM ASN1_UTCTIME_adj} +{$EXTERNALSYM ASN1_UTCTIME_set_string} +{$EXTERNALSYM ASN1_UTCTIME_cmp_time_t} +{$EXTERNALSYM ASN1_GENERALIZEDTIME_check} +{$EXTERNALSYM ASN1_GENERALIZEDTIME_set} +{$EXTERNALSYM ASN1_GENERALIZEDTIME_adj} +{$EXTERNALSYM ASN1_GENERALIZEDTIME_set_string} +{$EXTERNALSYM ASN1_TIME_diff} +{$EXTERNALSYM ASN1_OCTET_STRING_dup} +{$EXTERNALSYM ASN1_OCTET_STRING_cmp} +{$EXTERNALSYM ASN1_OCTET_STRING_set} +{$EXTERNALSYM ASN1_OCTET_STRING_new} +{$EXTERNALSYM ASN1_OCTET_STRING_free} +{$EXTERNALSYM d2i_ASN1_OCTET_STRING} +{$EXTERNALSYM i2d_ASN1_OCTET_STRING} +{$EXTERNALSYM UTF8_getc} +{$EXTERNALSYM UTF8_putc} +{$EXTERNALSYM ASN1_UTCTIME_new} +{$EXTERNALSYM ASN1_UTCTIME_free} +{$EXTERNALSYM d2i_ASN1_UTCTIME} +{$EXTERNALSYM i2d_ASN1_UTCTIME} +{$EXTERNALSYM ASN1_GENERALIZEDTIME_new} +{$EXTERNALSYM ASN1_GENERALIZEDTIME_free} +{$EXTERNALSYM d2i_ASN1_GENERALIZEDTIME} +{$EXTERNALSYM i2d_ASN1_GENERALIZEDTIME} +{$EXTERNALSYM ASN1_TIME_new} +{$EXTERNALSYM ASN1_TIME_free} +{$EXTERNALSYM d2i_ASN1_TIME} +{$EXTERNALSYM i2d_ASN1_TIME} +{$EXTERNALSYM ASN1_TIME_set} +{$EXTERNALSYM ASN1_TIME_adj} +{$EXTERNALSYM ASN1_TIME_check} +{$EXTERNALSYM ASN1_TIME_to_generalizedtime} +{$EXTERNALSYM ASN1_TIME_set_string} +{$EXTERNALSYM ASN1_TIME_set_string_X509} +{$EXTERNALSYM ASN1_TIME_to_tm} +{$EXTERNALSYM ASN1_TIME_normalize} +{$EXTERNALSYM ASN1_TIME_cmp_time_t} +{$EXTERNALSYM ASN1_TIME_compare} +{$EXTERNALSYM i2a_ASN1_INTEGER} +{$EXTERNALSYM a2i_ASN1_INTEGER} +{$EXTERNALSYM i2a_ASN1_ENUMERATED} +{$EXTERNALSYM a2i_ASN1_ENUMERATED} +{$EXTERNALSYM i2a_ASN1_OBJECT} +{$EXTERNALSYM a2i_ASN1_STRING} +{$EXTERNALSYM i2a_ASN1_STRING} +{$EXTERNALSYM i2t_ASN1_OBJECT} +{$EXTERNALSYM a2d_ASN1_OBJECT} +{$EXTERNALSYM ASN1_OBJECT_create} +{$EXTERNALSYM ASN1_INTEGER_get_int64} +{$EXTERNALSYM ASN1_INTEGER_set_int64} +{$EXTERNALSYM ASN1_INTEGER_get_uint64} +{$EXTERNALSYM ASN1_INTEGER_set_uint64} +{$EXTERNALSYM ASN1_INTEGER_set} +{$EXTERNALSYM ASN1_INTEGER_get} +{$EXTERNALSYM BN_to_ASN1_INTEGER} +{$EXTERNALSYM ASN1_INTEGER_to_BN} +{$EXTERNALSYM ASN1_ENUMERATED_get_int64} +{$EXTERNALSYM ASN1_ENUMERATED_set_int64} +{$EXTERNALSYM ASN1_ENUMERATED_set} +{$EXTERNALSYM ASN1_ENUMERATED_get} +{$EXTERNALSYM BN_to_ASN1_ENUMERATED} +{$EXTERNALSYM ASN1_ENUMERATED_to_BN} +{$EXTERNALSYM ASN1_PRINTABLE_type} +{$EXTERNALSYM ASN1_tag2bit} +{$EXTERNALSYM ASN1_get_object} +{$EXTERNALSYM ASN1_check_infinite_end} +{$EXTERNALSYM ASN1_const_check_infinite_end} +{$EXTERNALSYM ASN1_put_object} +{$EXTERNALSYM ASN1_put_eoc} +{$EXTERNALSYM ASN1_object_size} +{$EXTERNALSYM ASN1_item_dup} +{$EXTERNALSYM ASN1_STRING_to_UTF8} +{$EXTERNALSYM ASN1_d2i_bio} +{$EXTERNALSYM ASN1_item_d2i_bio} +{$EXTERNALSYM ASN1_i2d_bio} +{$EXTERNALSYM ASN1_item_i2d_bio} +{$EXTERNALSYM ASN1_UTCTIME_print} +{$EXTERNALSYM ASN1_GENERALIZEDTIME_print} +{$EXTERNALSYM ASN1_TIME_print} +{$EXTERNALSYM ASN1_STRING_print} +{$EXTERNALSYM ASN1_STRING_print_ex} +{$EXTERNALSYM ASN1_buf_print} +{$EXTERNALSYM ASN1_bn_print} +{$EXTERNALSYM ASN1_parse} +{$EXTERNALSYM ASN1_parse_dump} +{$EXTERNALSYM ASN1_tag2str} +{$EXTERNALSYM ASN1_UNIVERSALSTRING_to_string} +{$EXTERNALSYM ASN1_TYPE_set_octetstring} +{$EXTERNALSYM ASN1_TYPE_get_octetstring} +{$EXTERNALSYM ASN1_TYPE_set_int_octetstring} +{$EXTERNALSYM ASN1_TYPE_get_int_octetstring} +{$EXTERNALSYM ASN1_item_unpack} +{$EXTERNALSYM ASN1_item_pack} +{$EXTERNALSYM ASN1_STRING_set_default_mask} +{$EXTERNALSYM ASN1_STRING_set_default_mask_asc} +{$EXTERNALSYM ASN1_STRING_get_default_mask} +{$EXTERNALSYM ASN1_mbstring_copy} +{$EXTERNALSYM ASN1_mbstring_ncopy} +{$EXTERNALSYM ASN1_STRING_set_by_NID} +{$EXTERNALSYM ASN1_STRING_TABLE_get} +{$EXTERNALSYM ASN1_STRING_TABLE_add} +{$EXTERNALSYM ASN1_STRING_TABLE_cleanup} +{$EXTERNALSYM ASN1_item_new} +{$EXTERNALSYM ASN1_item_free} +{$EXTERNALSYM ASN1_item_d2i} +{$EXTERNALSYM ASN1_item_i2d} +{$EXTERNALSYM ASN1_item_ndef_i2d} +{$EXTERNALSYM ASN1_add_oid_module} +{$EXTERNALSYM ASN1_add_stable_module} +{$EXTERNALSYM ASN1_generate_nconf} +{$EXTERNALSYM ASN1_generate_v3} +{$EXTERNALSYM ASN1_str2mask} +{$EXTERNALSYM ASN1_item_print} +{$EXTERNALSYM ASN1_PCTX_new} +{$EXTERNALSYM ASN1_PCTX_free} +{$EXTERNALSYM ASN1_PCTX_get_flags} +{$EXTERNALSYM ASN1_PCTX_set_flags} +{$EXTERNALSYM ASN1_PCTX_get_nm_flags} +{$EXTERNALSYM ASN1_PCTX_set_nm_flags} +{$EXTERNALSYM ASN1_PCTX_get_cert_flags} +{$EXTERNALSYM ASN1_PCTX_set_cert_flags} +{$EXTERNALSYM ASN1_PCTX_get_oid_flags} +{$EXTERNALSYM ASN1_PCTX_set_oid_flags} +{$EXTERNALSYM ASN1_PCTX_get_str_flags} +{$EXTERNALSYM ASN1_PCTX_set_str_flags} +{$EXTERNALSYM ASN1_SCTX_free} +{$EXTERNALSYM ASN1_SCTX_get_item} +{$EXTERNALSYM ASN1_SCTX_get_template} +{$EXTERNALSYM ASN1_SCTX_get_flags} +{$EXTERNALSYM ASN1_SCTX_set_app_data} +{$EXTERNALSYM ASN1_SCTX_get_app_data} +{$EXTERNALSYM BIO_f_asn1} +{$EXTERNALSYM BIO_new_NDEF} +{$EXTERNALSYM i2d_ASN1_bio_stream} +{$EXTERNALSYM PEM_write_bio_ASN1_stream} +{$EXTERNALSYM SMIME_read_ASN1} +{$EXTERNALSYM SMIME_crlf_copy} +{$EXTERNALSYM SMIME_text} +{$EXTERNALSYM ASN1_ITEM_lookup} +{$EXTERNALSYM ASN1_ITEM_get} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ASN1_TYPE_get(const a: PASN1_TYPE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ASN1_TYPE_set(a: PASN1_TYPE; type_: TOpenSSL_C_INT; value: Pointer); cdecl; external CLibCrypto; +function ASN1_TYPE_set1(a: PASN1_TYPE; type_: TOpenSSL_C_INT; const value: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_TYPE_cmp(const a: PASN1_TYPE; const b: PASN1_TYPE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_TYPE_pack_sequence(const it: PASN1_ITEM; s: Pointer; t: PPASN1_TYPE): PASN1_TYPE; cdecl; external CLibCrypto; +function ASN1_TYPE_unpack_sequence(const it: PASN1_ITEM; const t: PASN1_TYPE): Pointer; cdecl; external CLibCrypto; +function ASN1_OBJECT_new: PASN1_OBJECT; cdecl; external CLibCrypto; +procedure ASN1_OBJECT_free(a: PASN1_OBJECT); cdecl; external CLibCrypto; +function i2d_ASN1_OBJECT(const a: PASN1_OBJECT; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_ASN1_OBJECT(a: PPASN1_OBJECT; const pp: PPByte; length: TOpenSSL_C_LONG): PASN1_OBJECT; cdecl; external CLibCrypto; +function ASN1_STRING_new: PASN1_STRING; cdecl; external CLibCrypto; +procedure ASN1_STRING_free(a: PASN1_STRING); cdecl; external CLibCrypto; +procedure ASN1_STRING_clear_free(a: PASN1_STRING); cdecl; external CLibCrypto; +function ASN1_STRING_copy(dst: PASN1_STRING; const str: PASN1_STRING): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_STRING_dup(const a: PASN1_STRING): PASN1_STRING; cdecl; external CLibCrypto; +function ASN1_STRING_type_new(type_: TOpenSSL_C_INT): PASN1_STRING; cdecl; external CLibCrypto; +function ASN1_STRING_cmp(const a: PASN1_STRING; const b: PASN1_STRING): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_STRING_set(str: PASN1_STRING; const data: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ASN1_STRING_set0(str: PASN1_STRING; data: Pointer; len: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function ASN1_STRING_length(const x: PASN1_STRING): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ASN1_STRING_length_set(x: PASN1_STRING; n: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function ASN1_STRING_type(const x: PASN1_STRING): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_STRING_get0_data(const x: PASN1_STRING): PByte; cdecl; external CLibCrypto; +function ASN1_BIT_STRING_set(a: PASN1_BIT_STRING; d: PByte; length: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_BIT_STRING_set_bit(a: PASN1_BIT_STRING; n: TOpenSSL_C_INT; value: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_BIT_STRING_get_bit(const a: PASN1_BIT_STRING; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_BIT_STRING_check(const a: PASN1_BIT_STRING; const flags: PByte; flags_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_BIT_STRING_name_print(out_: PBIO; bs: PASN1_BIT_STRING; tbl: PBIT_STRING_BITNAME; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_BIT_STRING_num_asc(const name: PAnsiChar; tbl: PBIT_STRING_BITNAME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_BIT_STRING_set_asc(bs: PASN1_BIT_STRING; const name: PAnsiChar; value: TOpenSSL_C_INT; tbl: PBIT_STRING_BITNAME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_INTEGER_new: PASN1_INTEGER; cdecl; external CLibCrypto; +procedure ASN1_INTEGER_free(a: PASN1_INTEGER); cdecl; external CLibCrypto; +function d2i_ASN1_INTEGER(a: PPASN1_INTEGER; const in_: PPByte; len: TOpenSSL_C_Long): PASN1_INTEGER; cdecl; external CLibCrypto; +function i2d_ASN1_INTEGER(a: PASN1_INTEGER; out_: PPByte): TOpenSSL_C_Int; cdecl; external CLibCrypto; +function d2i_ASN1_UINTEGER(a: PPASN1_INTEGER; const pp: PPByte; length: TOpenSSL_C_LONG): PASN1_INTEGER; cdecl; external CLibCrypto; +function ASN1_INTEGER_dup(const x: PASN1_INTEGER): PASN1_INTEGER; cdecl; external CLibCrypto; +function ASN1_INTEGER_cmp(const x: PASN1_INTEGER; const y: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_UTCTIME_check(const a: PASN1_UTCTIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_UTCTIME_set(s: PASN1_UTCTIME; t: TOpenSSL_C_TIMET): PASN1_UTCTIME; cdecl; external CLibCrypto; +function ASN1_UTCTIME_adj(s: PASN1_UTCTIME; t: TOpenSSL_C_TIMET; offset_day: TOpenSSL_C_INT; offset_sec: TOpenSSL_C_LONG): PASN1_UTCTIME; cdecl; external CLibCrypto; +function ASN1_UTCTIME_set_string(s: PASN1_UTCTIME; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_UTCTIME_cmp_time_t(const s: PASN1_UTCTIME; t: TOpenSSL_C_TIMET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_GENERALIZEDTIME_check(const a: PASN1_GENERALIZEDTIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_GENERALIZEDTIME_set(s: PASN1_GENERALIZEDTIME; t: TOpenSSL_C_TIMET): PASN1_GENERALIZEDTIME; cdecl; external CLibCrypto; +function ASN1_GENERALIZEDTIME_adj(s: PASN1_GENERALIZEDTIME; t: TOpenSSL_C_TIMET; offset_day: TOpenSSL_C_INT; offset_sec: TOpenSSL_C_LONG): PASN1_GENERALIZEDTIME; cdecl; external CLibCrypto; +function ASN1_GENERALIZEDTIME_set_string(s: pASN1_GENERALIZEDTIME; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_TIME_diff(pday: POpenSSL_C_INT; psec: POpenSSL_C_INT; const from: PASN1_TIME; const to_: PASN1_TIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_OCTET_STRING_dup(const a: PASN1_OCTET_STRING): PASN1_OCTET_STRING; cdecl; external CLibCrypto; +function ASN1_OCTET_STRING_cmp(const a: PASN1_OCTET_STRING; const b: PASN1_OCTET_STRING): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_OCTET_STRING_set(str: PASN1_OCTET_STRING; const data: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_OCTET_STRING_new: PASN1_OCTET_STRING; cdecl; external CLibCrypto; +procedure ASN1_OCTET_STRING_free(a: PASN1_OCTET_STRING); cdecl; external CLibCrypto; +function d2i_ASN1_OCTET_STRING(val_out : PPASN1_OCTET_STRING; der_in : PPAnsiChar; length : TOpenSSL_C_LONG): PASN1_OCTET_STRING; cdecl; external CLibCrypto; +function i2d_ASN1_OCTET_STRING(val_in : PASN1_OCTET_STRING; der_out : PPAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UTF8_getc(const str: PByte; len: TOpenSSL_C_INT; val: POpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UTF8_putc(str: PAnsiChar; len: TOpenSSL_C_INT; value: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_UTCTIME_new: PASN1_UTCTIME; cdecl; external CLibCrypto; +procedure ASN1_UTCTIME_free(a: PASN1_UTCTIME); cdecl; external CLibCrypto; +function d2i_ASN1_UTCTIME(a: PPASN1_UTCTIME; const in_: PPByte; len: TOpenSSL_C_LONG): PASN1_UTCTIME; cdecl; external CLibCrypto; +function i2d_ASN1_UTCTIME(a: PASN1_UTCTIME; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_GENERALIZEDTIME_new: PASN1_GENERALIZEDTIME; cdecl; external CLibCrypto; +procedure ASN1_GENERALIZEDTIME_free(a: PASN1_GENERALIZEDTIME); cdecl; external CLibCrypto; +function d2i_ASN1_GENERALIZEDTIME(a: PPASN1_GENERALIZEDTIME; const in_: PPByte; len: TOpenSSL_C_LONG): PASN1_GENERALIZEDTIME; cdecl; external CLibCrypto; +function i2d_ASN1_GENERALIZEDTIME(a: PASN1_GENERALIZEDTIME; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_TIME_new: PASN1_TIME; cdecl; external CLibCrypto; +procedure ASN1_TIME_free(a: PASN1_TIME); cdecl; external CLibCrypto; +function d2i_ASN1_TIME(a: PPASN1_TIME; const in_: PPByte; len: TOpenSSL_C_LONG): PASN1_TIME; cdecl; external CLibCrypto; +function i2d_ASN1_TIME(a: PASN1_TIME; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_TIME_set(s: PASN1_TIME; t: TOpenSSL_C_TIMET): PASN1_TIME; cdecl; external CLibCrypto; +function ASN1_TIME_adj(s: PASN1_TIME; t: TOpenSSL_C_TIMET; offset_day: TOpenSSL_C_INT; offset_sec: TOpenSSL_C_LONG): PASN1_TIME; cdecl; external CLibCrypto; +function ASN1_TIME_check(const t: PASN1_TIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_TIME_to_generalizedtime(const t: PASN1_TIME; out_: PPASN1_GENERALIZEDTIME): PASN1_GENERALIZEDTIME; cdecl; external CLibCrypto; +function ASN1_TIME_set_string(s: PASN1_TIME; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_TIME_set_string_X509(s: PASN1_TIME; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_TIME_to_tm(const s: PASN1_TIME; tm: POpenSSL_C_TM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_TIME_normalize(s: PASN1_TIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_TIME_cmp_time_t(const s: PASN1_TIME; t: TOpenSSL_C_TIMET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_TIME_compare(const a: PASN1_TIME; const b: PASN1_TIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2a_ASN1_INTEGER(bp: PBIO; const a: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function a2i_ASN1_INTEGER(bp: PBIO; bs: PASN1_INTEGER; buf: PAnsiChar; size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2a_ASN1_ENUMERATED(bp: PBIO; const a: PASN1_ENUMERATED): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function a2i_ASN1_ENUMERATED(bp: PBIO; bs: PASN1_ENUMERATED; buf: PAnsiChar; size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2a_ASN1_OBJECT(bp: PBIO; const a: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function a2i_ASN1_STRING(bp: PBIO; bs: PASN1_STRING; buf: PAnsiChar; size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2a_ASN1_STRING(bp: PBIO; const a: PASN1_STRING; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2t_ASN1_OBJECT(buf: PAnsiChar; buf_len: TOpenSSL_C_INT; const a: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function a2d_ASN1_OBJECT(out_: PByte; olen: TOpenSSL_C_INT; const buf: PAnsiChar; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_OBJECT_create(nid: TOpenSSL_C_INT; data: PByte; len: TOpenSSL_C_INT; const sn: PAnsiChar; const ln: PAnsiChar): PASN1_OBJECT; cdecl; external CLibCrypto; +function ASN1_INTEGER_get_int64(pr: POpenSSL_C_Int64; const a: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_INTEGER_set_int64(a: PASN1_INTEGER; r: TOpenSSL_C_Int64): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_INTEGER_get_uint64(pr: POpenSSL_C_UInt64; const a: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_INTEGER_set_uint64(a: PASN1_INTEGER; r: TOpenSSL_C_UInt64): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_INTEGER_set(a: PASN1_INTEGER; v: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_INTEGER_get(const a: PASN1_INTEGER): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function BN_to_ASN1_INTEGER(const bn: PBIGNUM; ai: PASN1_INTEGER): PASN1_INTEGER; cdecl; external CLibCrypto; +function ASN1_INTEGER_to_BN(const ai: PASN1_INTEGER; bn: PBIGNUM): PBIGNUM; cdecl; external CLibCrypto; +function ASN1_ENUMERATED_get_int64(pr: POpenSSL_C_Int64; const a: PASN1_ENUMERATED): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_ENUMERATED_set_int64(a: PASN1_ENUMERATED; r: TOpenSSL_C_Int64): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_ENUMERATED_set(a: PASN1_ENUMERATED; v: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_ENUMERATED_get(const a: PASN1_ENUMERATED): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function BN_to_ASN1_ENUMERATED(const bn: PBIGNUM; ai: PASN1_ENUMERATED): PASN1_ENUMERATED; cdecl; external CLibCrypto; +function ASN1_ENUMERATED_to_BN(const ai: PASN1_ENUMERATED; bn: PBIGNUM): PBIGNUM; cdecl; external CLibCrypto; +function ASN1_PRINTABLE_type(const s: PByte; max: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_tag2bit(tag: TOpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +function ASN1_get_object(const pp: PPByte; plength: POpenSSL_C_LONG; ptag: POpenSSL_C_INT; pclass: POpenSSL_C_INT; omax: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_check_infinite_end(p: PPByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_const_check_infinite_end(const p: PPByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ASN1_put_object(pp: PPByte; constructed: TOpenSSL_C_INT; length: TOpenSSL_C_INT; tag: TOpenSSL_C_INT; xclass: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function ASN1_put_eoc(pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_object_size(constructed: TOpenSSL_C_INT; length: TOpenSSL_C_INT; tag: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_item_dup(const it: PASN1_ITEM; x: Pointer): Pointer; cdecl; external CLibCrypto; +function ASN1_STRING_to_UTF8(out_: PPByte; const in_: PASN1_STRING): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_d2i_bio(xnew: pxnew; d2i: pd2i_of_void; in_: PBIO; x: PPointer): Pointer; cdecl; external CLibCrypto; +function ASN1_item_d2i_bio(const it: PASN1_ITEM; in_: PBIO; x: Pointer): Pointer; cdecl; external CLibCrypto; +function ASN1_i2d_bio(i2d: Pi2d_of_void; out_: PBIO; x: PByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_item_i2d_bio(const it: PASN1_ITEM; out_: PBIO; x: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_UTCTIME_print(fp: PBIO; const a: PASN1_UTCTIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_GENERALIZEDTIME_print(fp: PBIO; const a: PASN1_GENERALIZEDTIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_TIME_print(fp: PBIO; const a: PASN1_TIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_STRING_print(bp: PBIO; const v: PASN1_STRING): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_STRING_print_ex(out_: PBIO; const str: PASN1_STRING; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_buf_print(bp: PBIO; const buf: PByte; buflen: TOpenSSL_C_SIZET; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_bn_print(bp: PBIO; const number: PAnsiChar; const num: PBIGNUM; buf: PByte; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_parse(bp: PBIO; const pp: PByte; len: TOpenSSL_C_LONG; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_parse_dump(bp: PPBIO; const pp: PByte; len: TOpenSSL_C_LONG; indent: TOpenSSL_C_INT; dump: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_tag2str(tag: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibCrypto; +function ASN1_UNIVERSALSTRING_to_string(s: PASN1_UNIVERSALSTRING): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_TYPE_set_octetstring(a: PASN1_TYPE; data: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_TYPE_get_octetstring(const a: PASN1_TYPE; data: PByte; max_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_TYPE_set_int_octetstring(a: PASN1_TYPE; num: TOpenSSL_C_LONG; data: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_TYPE_get_int_octetstring(const a: PASN1_TYPE; num: POpenSSL_C_LONG; data: PByte; max_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_item_unpack(const oct: PASN1_STRING; const it: PASN1_ITEM): Pointer; cdecl; external CLibCrypto; +function ASN1_item_pack(obj: Pointer; const it: PASN1_ITEM; oct: PPASN1_OCTET_STRING): PASN1_STRING; cdecl; external CLibCrypto; +procedure ASN1_STRING_set_default_mask(mask: TOpenSSL_C_ULONG); cdecl; external CLibCrypto; +function ASN1_STRING_set_default_mask_asc(const p: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_STRING_get_default_mask: TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +function ASN1_mbstring_copy(out_: PPASN1_STRING; const in_: PByte; len: TOpenSSL_C_INT; inform: TOpenSSL_C_INT; mask: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_mbstring_ncopy(out_: PPASN1_STRING; const in_: PByte; len: TOpenSSL_C_INT; inform: TOpenSSL_C_INT; mask: TOpenSSL_C_ULONG; minsize: TOpenSSL_C_LONG; maxsize: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_STRING_set_by_NID(out_: PPASN1_STRING; const in_: PByte; inlen: TOpenSSL_C_INT; inform: TOpenSSL_C_INT; nid: TOpenSSL_C_INT): PASN1_STRING; cdecl; external CLibCrypto; +function ASN1_STRING_TABLE_get(nid: TOpenSSL_C_INT): PASN1_STRING_TABLE; cdecl; external CLibCrypto; +function ASN1_STRING_TABLE_add(v1: TOpenSSL_C_INT; v2: TOpenSSL_C_LONG; v3: TOpenSSL_C_LONG; v4: TOpenSSL_C_ULONG; v5: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ASN1_STRING_TABLE_cleanup; cdecl; external CLibCrypto; +function ASN1_item_new(const it: PASN1_ITEM): PASN1_VALUE; cdecl; external CLibCrypto; +procedure ASN1_item_free(val: PASN1_VALUE; const it: PASN1_ITEM); cdecl; external CLibCrypto; +function ASN1_item_d2i(val: PPASN1_VALUE; const in_: PPByte; len: TOpenSSL_C_LONG; const it: PASN1_ITEM): PASN1_VALUE; cdecl; external CLibCrypto; +function ASN1_item_i2d(val: PASN1_VALUE; out_: PPByte; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_item_ndef_i2d(val: PASN1_VALUE; out_: PPByte; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ASN1_add_oid_module; cdecl; external CLibCrypto; +procedure ASN1_add_stable_module; cdecl; external CLibCrypto; +function ASN1_generate_nconf(const str: PAnsiChar; nconf: PCONF): PASN1_TYPE; cdecl; external CLibCrypto; +function ASN1_generate_v3(const str: PAnsiChar; cnf: PX509V3_CTX): PASN1_TYPE; cdecl; external CLibCrypto; +function ASN1_str2mask(const str: PByte; pmask: POpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_item_print(out_: PBIO; ifld: PASN1_VALUE; indent: TOpenSSL_C_INT; const it: PASN1_ITEM; const pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_PCTX_new: PASN1_PCTX; cdecl; external CLibCrypto; +procedure ASN1_PCTX_free(p: PASN1_PCTX); cdecl; external CLibCrypto; +function ASN1_PCTX_get_flags(const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +procedure ASN1_PCTX_set_flags(p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl; external CLibCrypto; +function ASN1_PCTX_get_nm_flags(const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +procedure ASN1_PCTX_set_nm_flags(p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl; external CLibCrypto; +function ASN1_PCTX_get_cert_flags(const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +procedure ASN1_PCTX_set_cert_flags(p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl; external CLibCrypto; +function ASN1_PCTX_get_oid_flags(const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +procedure ASN1_PCTX_set_oid_flags(p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl; external CLibCrypto; +function ASN1_PCTX_get_str_flags(const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +procedure ASN1_PCTX_set_str_flags(p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl; external CLibCrypto; +procedure ASN1_SCTX_free(p: PASN1_SCTX); cdecl; external CLibCrypto; +function ASN1_SCTX_get_item(p: PASN1_SCTX): PASN1_ITEM; cdecl; external CLibCrypto; +function ASN1_SCTX_get_template(p: PASN1_SCTX): PASN1_TEMPLATE; cdecl; external CLibCrypto; +function ASN1_SCTX_get_flags(p: PASN1_SCTX): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +procedure ASN1_SCTX_set_app_data(p: PASN1_SCTX; data: Pointer); cdecl; external CLibCrypto; +function ASN1_SCTX_get_app_data(p: PASN1_SCTX): Pointer; cdecl; external CLibCrypto; +function BIO_f_asn1: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_new_NDEF(out_: PBIO; val: PASN1_VALUE; const it: PASN1_ITEM): PBIO; cdecl; external CLibCrypto; +function i2d_ASN1_bio_stream(out_: PBIO; val: PASN1_VALUE; in_: PBIO; flags: TOpenSSL_C_INT; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_write_bio_ASN1_stream(out_: PBIO; val: PASN1_VALUE; in_: PBIO; flags: TOpenSSL_C_INT; const hdr: PAnsiChar; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SMIME_read_ASN1(bio: PBIO; bcont: PPBIO; const it: PASN1_ITEM): PASN1_VALUE; cdecl; external CLibCrypto; +function SMIME_crlf_copy(in_: PBIO; out_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SMIME_text(in_: PBIO; out_: PBIO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_ITEM_lookup(const name: PAnsiChar): PASN1_ITEM; cdecl; external CLibCrypto; +function ASN1_ITEM_get(i: TOpenSSL_C_SIZET): PASN1_ITEM; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ASN1_TYPE_get(const a: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +procedure Load_ASN1_TYPE_set(a: PASN1_TYPE; type_: TOpenSSL_C_INT; value: Pointer); cdecl; +function Load_ASN1_TYPE_set1(a: PASN1_TYPE; type_: TOpenSSL_C_INT; const value: Pointer): TOpenSSL_C_INT; cdecl; +function Load_ASN1_TYPE_cmp(const a: PASN1_TYPE; const b: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +function Load_ASN1_TYPE_pack_sequence(const it: PASN1_ITEM; s: Pointer; t: PPASN1_TYPE): PASN1_TYPE; cdecl; +function Load_ASN1_TYPE_unpack_sequence(const it: PASN1_ITEM; const t: PASN1_TYPE): Pointer; cdecl; +function Load_ASN1_OBJECT_new: PASN1_OBJECT; cdecl; +procedure Load_ASN1_OBJECT_free(a: PASN1_OBJECT); cdecl; +function Load_i2d_ASN1_OBJECT(const a: PASN1_OBJECT; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_ASN1_OBJECT(a: PPASN1_OBJECT; const pp: PPByte; length: TOpenSSL_C_LONG): PASN1_OBJECT; cdecl; +function Load_ASN1_STRING_new: PASN1_STRING; cdecl; +procedure Load_ASN1_STRING_free(a: PASN1_STRING); cdecl; +procedure Load_ASN1_STRING_clear_free(a: PASN1_STRING); cdecl; +function Load_ASN1_STRING_copy(dst: PASN1_STRING; const str: PASN1_STRING): TOpenSSL_C_INT; cdecl; +function Load_ASN1_STRING_dup(const a: PASN1_STRING): PASN1_STRING; cdecl; +function Load_ASN1_STRING_type_new(type_: TOpenSSL_C_INT): PASN1_STRING; cdecl; +function Load_ASN1_STRING_cmp(const a: PASN1_STRING; const b: PASN1_STRING): TOpenSSL_C_INT; cdecl; +function Load_ASN1_STRING_set(str: PASN1_STRING; const data: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_ASN1_STRING_set0(str: PASN1_STRING; data: Pointer; len: TOpenSSL_C_INT); cdecl; +function Load_ASN1_STRING_length(const x: PASN1_STRING): TOpenSSL_C_INT; cdecl; +procedure Load_ASN1_STRING_length_set(x: PASN1_STRING; n: TOpenSSL_C_INT); cdecl; +function Load_ASN1_STRING_type(const x: PASN1_STRING): TOpenSSL_C_INT; cdecl; +function Load_ASN1_STRING_get0_data(const x: PASN1_STRING): PByte; cdecl; +function Load_ASN1_BIT_STRING_set(a: PASN1_BIT_STRING; d: PByte; length: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_BIT_STRING_set_bit(a: PASN1_BIT_STRING; n: TOpenSSL_C_INT; value: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_BIT_STRING_get_bit(const a: PASN1_BIT_STRING; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_BIT_STRING_check(const a: PASN1_BIT_STRING; const flags: PByte; flags_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_BIT_STRING_name_print(out_: PBIO; bs: PASN1_BIT_STRING; tbl: PBIT_STRING_BITNAME; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_BIT_STRING_num_asc(const name: PAnsiChar; tbl: PBIT_STRING_BITNAME): TOpenSSL_C_INT; cdecl; +function Load_ASN1_BIT_STRING_set_asc(bs: PASN1_BIT_STRING; const name: PAnsiChar; value: TOpenSSL_C_INT; tbl: PBIT_STRING_BITNAME): TOpenSSL_C_INT; cdecl; +function Load_ASN1_INTEGER_new: PASN1_INTEGER; cdecl; +procedure Load_ASN1_INTEGER_free(a: PASN1_INTEGER); cdecl; +function Load_d2i_ASN1_INTEGER(a: PPASN1_INTEGER; const in_: PPByte; len: TOpenSSL_C_Long): PASN1_INTEGER; cdecl; +function Load_i2d_ASN1_INTEGER(a: PASN1_INTEGER; out_: PPByte): TOpenSSL_C_Int; cdecl; +function Load_d2i_ASN1_UINTEGER(a: PPASN1_INTEGER; const pp: PPByte; length: TOpenSSL_C_LONG): PASN1_INTEGER; cdecl; +function Load_ASN1_INTEGER_dup(const x: PASN1_INTEGER): PASN1_INTEGER; cdecl; +function Load_ASN1_INTEGER_cmp(const x: PASN1_INTEGER; const y: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_ASN1_UTCTIME_check(const a: PASN1_UTCTIME): TOpenSSL_C_INT; cdecl; +function Load_ASN1_UTCTIME_set(s: PASN1_UTCTIME; t: TOpenSSL_C_TIMET): PASN1_UTCTIME; cdecl; +function Load_ASN1_UTCTIME_adj(s: PASN1_UTCTIME; t: TOpenSSL_C_TIMET; offset_day: TOpenSSL_C_INT; offset_sec: TOpenSSL_C_LONG): PASN1_UTCTIME; cdecl; +function Load_ASN1_UTCTIME_set_string(s: PASN1_UTCTIME; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_ASN1_UTCTIME_cmp_time_t(const s: PASN1_UTCTIME; t: TOpenSSL_C_TIMET): TOpenSSL_C_INT; cdecl; +function Load_ASN1_GENERALIZEDTIME_check(const a: PASN1_GENERALIZEDTIME): TOpenSSL_C_INT; cdecl; +function Load_ASN1_GENERALIZEDTIME_set(s: PASN1_GENERALIZEDTIME; t: TOpenSSL_C_TIMET): PASN1_GENERALIZEDTIME; cdecl; +function Load_ASN1_GENERALIZEDTIME_adj(s: PASN1_GENERALIZEDTIME; t: TOpenSSL_C_TIMET; offset_day: TOpenSSL_C_INT; offset_sec: TOpenSSL_C_LONG): PASN1_GENERALIZEDTIME; cdecl; +function Load_ASN1_GENERALIZEDTIME_set_string(s: pASN1_GENERALIZEDTIME; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_ASN1_TIME_diff(pday: POpenSSL_C_INT; psec: POpenSSL_C_INT; const from: PASN1_TIME; const to_: PASN1_TIME): TOpenSSL_C_INT; cdecl; +function Load_ASN1_OCTET_STRING_dup(const a: PASN1_OCTET_STRING): PASN1_OCTET_STRING; cdecl; +function Load_ASN1_OCTET_STRING_cmp(const a: PASN1_OCTET_STRING; const b: PASN1_OCTET_STRING): TOpenSSL_C_INT; cdecl; +function Load_ASN1_OCTET_STRING_set(str: PASN1_OCTET_STRING; const data: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_OCTET_STRING_new: PASN1_OCTET_STRING; cdecl; +procedure Load_ASN1_OCTET_STRING_free(a: PASN1_OCTET_STRING); cdecl; +function Load_d2i_ASN1_OCTET_STRING(val_out : PPASN1_OCTET_STRING; der_in : PPAnsiChar; length : TOpenSSL_C_LONG): PASN1_OCTET_STRING; cdecl; +function Load_i2d_ASN1_OCTET_STRING(val_in : PASN1_OCTET_STRING; der_out : PPAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_UTF8_getc(const str: PByte; len: TOpenSSL_C_INT; val: POpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_UTF8_putc(str: PAnsiChar; len: TOpenSSL_C_INT; value: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_ASN1_UTCTIME_new: PASN1_UTCTIME; cdecl; +procedure Load_ASN1_UTCTIME_free(a: PASN1_UTCTIME); cdecl; +function Load_d2i_ASN1_UTCTIME(a: PPASN1_UTCTIME; const in_: PPByte; len: TOpenSSL_C_LONG): PASN1_UTCTIME; cdecl; +function Load_i2d_ASN1_UTCTIME(a: PASN1_UTCTIME; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_ASN1_GENERALIZEDTIME_new: PASN1_GENERALIZEDTIME; cdecl; +procedure Load_ASN1_GENERALIZEDTIME_free(a: PASN1_GENERALIZEDTIME); cdecl; +function Load_d2i_ASN1_GENERALIZEDTIME(a: PPASN1_GENERALIZEDTIME; const in_: PPByte; len: TOpenSSL_C_LONG): PASN1_GENERALIZEDTIME; cdecl; +function Load_i2d_ASN1_GENERALIZEDTIME(a: PASN1_GENERALIZEDTIME; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_ASN1_TIME_new: PASN1_TIME; cdecl; +procedure Load_ASN1_TIME_free(a: PASN1_TIME); cdecl; +function Load_d2i_ASN1_TIME(a: PPASN1_TIME; const in_: PPByte; len: TOpenSSL_C_LONG): PASN1_TIME; cdecl; +function Load_i2d_ASN1_TIME(a: PASN1_TIME; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_ASN1_TIME_set(s: PASN1_TIME; t: TOpenSSL_C_TIMET): PASN1_TIME; cdecl; +function Load_ASN1_TIME_adj(s: PASN1_TIME; t: TOpenSSL_C_TIMET; offset_day: TOpenSSL_C_INT; offset_sec: TOpenSSL_C_LONG): PASN1_TIME; cdecl; +function Load_ASN1_TIME_check(const t: PASN1_TIME): TOpenSSL_C_INT; cdecl; +function Load_ASN1_TIME_to_generalizedtime(const t: PASN1_TIME; out_: PPASN1_GENERALIZEDTIME): PASN1_GENERALIZEDTIME; cdecl; +function Load_ASN1_TIME_set_string(s: PASN1_TIME; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_ASN1_TIME_set_string_X509(s: PASN1_TIME; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_ASN1_TIME_to_tm(const s: PASN1_TIME; tm: POpenSSL_C_TM): TOpenSSL_C_INT; cdecl; +function Load_ASN1_TIME_normalize(s: PASN1_TIME): TOpenSSL_C_INT; cdecl; +function Load_ASN1_TIME_cmp_time_t(const s: PASN1_TIME; t: TOpenSSL_C_TIMET): TOpenSSL_C_INT; cdecl; +function Load_ASN1_TIME_compare(const a: PASN1_TIME; const b: PASN1_TIME): TOpenSSL_C_INT; cdecl; +function Load_i2a_ASN1_INTEGER(bp: PBIO; const a: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_a2i_ASN1_INTEGER(bp: PBIO; bs: PASN1_INTEGER; buf: PAnsiChar; size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_i2a_ASN1_ENUMERATED(bp: PBIO; const a: PASN1_ENUMERATED): TOpenSSL_C_INT; cdecl; +function Load_a2i_ASN1_ENUMERATED(bp: PBIO; bs: PASN1_ENUMERATED; buf: PAnsiChar; size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_i2a_ASN1_OBJECT(bp: PBIO; const a: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_a2i_ASN1_STRING(bp: PBIO; bs: PASN1_STRING; buf: PAnsiChar; size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_i2a_ASN1_STRING(bp: PBIO; const a: PASN1_STRING; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_i2t_ASN1_OBJECT(buf: PAnsiChar; buf_len: TOpenSSL_C_INT; const a: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_a2d_ASN1_OBJECT(out_: PByte; olen: TOpenSSL_C_INT; const buf: PAnsiChar; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_OBJECT_create(nid: TOpenSSL_C_INT; data: PByte; len: TOpenSSL_C_INT; const sn: PAnsiChar; const ln: PAnsiChar): PASN1_OBJECT; cdecl; +function Load_ASN1_INTEGER_get_int64(pr: POpenSSL_C_Int64; const a: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_ASN1_INTEGER_set_int64(a: PASN1_INTEGER; r: TOpenSSL_C_Int64): TOpenSSL_C_INT; cdecl; +function Load_ASN1_INTEGER_get_uint64(pr: POpenSSL_C_UInt64; const a: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_ASN1_INTEGER_set_uint64(a: PASN1_INTEGER; r: TOpenSSL_C_UInt64): TOpenSSL_C_INT; cdecl; +function Load_ASN1_INTEGER_set(a: PASN1_INTEGER; v: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_ASN1_INTEGER_get(const a: PASN1_INTEGER): TOpenSSL_C_LONG; cdecl; +function Load_BN_to_ASN1_INTEGER(const bn: PBIGNUM; ai: PASN1_INTEGER): PASN1_INTEGER; cdecl; +function Load_ASN1_INTEGER_to_BN(const ai: PASN1_INTEGER; bn: PBIGNUM): PBIGNUM; cdecl; +function Load_ASN1_ENUMERATED_get_int64(pr: POpenSSL_C_Int64; const a: PASN1_ENUMERATED): TOpenSSL_C_INT; cdecl; +function Load_ASN1_ENUMERATED_set_int64(a: PASN1_ENUMERATED; r: TOpenSSL_C_Int64): TOpenSSL_C_INT; cdecl; +function Load_ASN1_ENUMERATED_set(a: PASN1_ENUMERATED; v: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_ASN1_ENUMERATED_get(const a: PASN1_ENUMERATED): TOpenSSL_C_LONG; cdecl; +function Load_BN_to_ASN1_ENUMERATED(const bn: PBIGNUM; ai: PASN1_ENUMERATED): PASN1_ENUMERATED; cdecl; +function Load_ASN1_ENUMERATED_to_BN(const ai: PASN1_ENUMERATED; bn: PBIGNUM): PBIGNUM; cdecl; +function Load_ASN1_PRINTABLE_type(const s: PByte; max: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_tag2bit(tag: TOpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; +function Load_ASN1_get_object(const pp: PPByte; plength: POpenSSL_C_LONG; ptag: POpenSSL_C_INT; pclass: POpenSSL_C_INT; omax: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_ASN1_check_infinite_end(p: PPByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_ASN1_const_check_infinite_end(const p: PPByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +procedure Load_ASN1_put_object(pp: PPByte; constructed: TOpenSSL_C_INT; length: TOpenSSL_C_INT; tag: TOpenSSL_C_INT; xclass: TOpenSSL_C_INT); cdecl; +function Load_ASN1_put_eoc(pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_ASN1_object_size(constructed: TOpenSSL_C_INT; length: TOpenSSL_C_INT; tag: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_item_dup(const it: PASN1_ITEM; x: Pointer): Pointer; cdecl; +function Load_ASN1_STRING_to_UTF8(out_: PPByte; const in_: PASN1_STRING): TOpenSSL_C_INT; cdecl; +function Load_ASN1_d2i_bio(xnew: pxnew; d2i: pd2i_of_void; in_: PBIO; x: PPointer): Pointer; cdecl; +function Load_ASN1_item_d2i_bio(const it: PASN1_ITEM; in_: PBIO; x: Pointer): Pointer; cdecl; +function Load_ASN1_i2d_bio(i2d: Pi2d_of_void; out_: PBIO; x: PByte): TOpenSSL_C_INT; cdecl; +function Load_ASN1_item_i2d_bio(const it: PASN1_ITEM; out_: PBIO; x: Pointer): TOpenSSL_C_INT; cdecl; +function Load_ASN1_UTCTIME_print(fp: PBIO; const a: PASN1_UTCTIME): TOpenSSL_C_INT; cdecl; +function Load_ASN1_GENERALIZEDTIME_print(fp: PBIO; const a: PASN1_GENERALIZEDTIME): TOpenSSL_C_INT; cdecl; +function Load_ASN1_TIME_print(fp: PBIO; const a: PASN1_TIME): TOpenSSL_C_INT; cdecl; +function Load_ASN1_STRING_print(bp: PBIO; const v: PASN1_STRING): TOpenSSL_C_INT; cdecl; +function Load_ASN1_STRING_print_ex(out_: PBIO; const str: PASN1_STRING; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_ASN1_buf_print(bp: PBIO; const buf: PByte; buflen: TOpenSSL_C_SIZET; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_bn_print(bp: PBIO; const number: PAnsiChar; const num: PBIGNUM; buf: PByte; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_parse(bp: PBIO; const pp: PByte; len: TOpenSSL_C_LONG; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_parse_dump(bp: PPBIO; const pp: PByte; len: TOpenSSL_C_LONG; indent: TOpenSSL_C_INT; dump: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_tag2str(tag: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_ASN1_UNIVERSALSTRING_to_string(s: PASN1_UNIVERSALSTRING): TOpenSSL_C_INT; cdecl; +function Load_ASN1_TYPE_set_octetstring(a: PASN1_TYPE; data: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_TYPE_get_octetstring(const a: PASN1_TYPE; data: PByte; max_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_TYPE_set_int_octetstring(a: PASN1_TYPE; num: TOpenSSL_C_LONG; data: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_TYPE_get_int_octetstring(const a: PASN1_TYPE; num: POpenSSL_C_LONG; data: PByte; max_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_item_unpack(const oct: PASN1_STRING; const it: PASN1_ITEM): Pointer; cdecl; +function Load_ASN1_item_pack(obj: Pointer; const it: PASN1_ITEM; oct: PPASN1_OCTET_STRING): PASN1_STRING; cdecl; +procedure Load_ASN1_STRING_set_default_mask(mask: TOpenSSL_C_ULONG); cdecl; +function Load_ASN1_STRING_set_default_mask_asc(const p: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_ASN1_STRING_get_default_mask: TOpenSSL_C_ULONG; cdecl; +function Load_ASN1_mbstring_copy(out_: PPASN1_STRING; const in_: PByte; len: TOpenSSL_C_INT; inform: TOpenSSL_C_INT; mask: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_ASN1_mbstring_ncopy(out_: PPASN1_STRING; const in_: PByte; len: TOpenSSL_C_INT; inform: TOpenSSL_C_INT; mask: TOpenSSL_C_ULONG; minsize: TOpenSSL_C_LONG; maxsize: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_ASN1_STRING_set_by_NID(out_: PPASN1_STRING; const in_: PByte; inlen: TOpenSSL_C_INT; inform: TOpenSSL_C_INT; nid: TOpenSSL_C_INT): PASN1_STRING; cdecl; +function Load_ASN1_STRING_TABLE_get(nid: TOpenSSL_C_INT): PASN1_STRING_TABLE; cdecl; +function Load_ASN1_STRING_TABLE_add(v1: TOpenSSL_C_INT; v2: TOpenSSL_C_LONG; v3: TOpenSSL_C_LONG; v4: TOpenSSL_C_ULONG; v5: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +procedure Load_ASN1_STRING_TABLE_cleanup; cdecl; +function Load_ASN1_item_new(const it: PASN1_ITEM): PASN1_VALUE; cdecl; +procedure Load_ASN1_item_free(val: PASN1_VALUE; const it: PASN1_ITEM); cdecl; +function Load_ASN1_item_d2i(val: PPASN1_VALUE; const in_: PPByte; len: TOpenSSL_C_LONG; const it: PASN1_ITEM): PASN1_VALUE; cdecl; +function Load_ASN1_item_i2d(val: PASN1_VALUE; out_: PPByte; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl; +function Load_ASN1_item_ndef_i2d(val: PASN1_VALUE; out_: PPByte; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl; +procedure Load_ASN1_add_oid_module; cdecl; +procedure Load_ASN1_add_stable_module; cdecl; +function Load_ASN1_generate_nconf(const str: PAnsiChar; nconf: PCONF): PASN1_TYPE; cdecl; +function Load_ASN1_generate_v3(const str: PAnsiChar; cnf: PX509V3_CTX): PASN1_TYPE; cdecl; +function Load_ASN1_str2mask(const str: PByte; pmask: POpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_ASN1_item_print(out_: PBIO; ifld: PASN1_VALUE; indent: TOpenSSL_C_INT; const it: PASN1_ITEM; const pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl; +function Load_ASN1_PCTX_new: PASN1_PCTX; cdecl; +procedure Load_ASN1_PCTX_free(p: PASN1_PCTX); cdecl; +function Load_ASN1_PCTX_get_flags(const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl; +procedure Load_ASN1_PCTX_set_flags(p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl; +function Load_ASN1_PCTX_get_nm_flags(const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl; +procedure Load_ASN1_PCTX_set_nm_flags(p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl; +function Load_ASN1_PCTX_get_cert_flags(const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl; +procedure Load_ASN1_PCTX_set_cert_flags(p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl; +function Load_ASN1_PCTX_get_oid_flags(const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl; +procedure Load_ASN1_PCTX_set_oid_flags(p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl; +function Load_ASN1_PCTX_get_str_flags(const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl; +procedure Load_ASN1_PCTX_set_str_flags(p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl; +procedure Load_ASN1_SCTX_free(p: PASN1_SCTX); cdecl; +function Load_ASN1_SCTX_get_item(p: PASN1_SCTX): PASN1_ITEM; cdecl; +function Load_ASN1_SCTX_get_template(p: PASN1_SCTX): PASN1_TEMPLATE; cdecl; +function Load_ASN1_SCTX_get_flags(p: PASN1_SCTX): TOpenSSL_C_ULONG; cdecl; +procedure Load_ASN1_SCTX_set_app_data(p: PASN1_SCTX; data: Pointer); cdecl; +function Load_ASN1_SCTX_get_app_data(p: PASN1_SCTX): Pointer; cdecl; +function Load_BIO_f_asn1: PBIO_METHOD; cdecl; +function Load_BIO_new_NDEF(out_: PBIO; val: PASN1_VALUE; const it: PASN1_ITEM): PBIO; cdecl; +function Load_i2d_ASN1_bio_stream(out_: PBIO; val: PASN1_VALUE; in_: PBIO; flags: TOpenSSL_C_INT; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl; +function Load_PEM_write_bio_ASN1_stream(out_: PBIO; val: PASN1_VALUE; in_: PBIO; flags: TOpenSSL_C_INT; const hdr: PAnsiChar; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl; +function Load_SMIME_read_ASN1(bio: PBIO; bcont: PPBIO; const it: PASN1_ITEM): PASN1_VALUE; cdecl; +function Load_SMIME_crlf_copy(in_: PBIO; out_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SMIME_text(in_: PBIO; out_: PBIO): TOpenSSL_C_INT; cdecl; +function Load_ASN1_ITEM_lookup(const name: PAnsiChar): PASN1_ITEM; cdecl; +function Load_ASN1_ITEM_get(i: TOpenSSL_C_SIZET): PASN1_ITEM; cdecl; + +var + ASN1_TYPE_get: function (const a: PASN1_TYPE): TOpenSSL_C_INT; cdecl = Load_ASN1_TYPE_get; + ASN1_TYPE_set: procedure (a: PASN1_TYPE; type_: TOpenSSL_C_INT; value: Pointer); cdecl = Load_ASN1_TYPE_set; + ASN1_TYPE_set1: function (a: PASN1_TYPE; type_: TOpenSSL_C_INT; const value: Pointer): TOpenSSL_C_INT; cdecl = Load_ASN1_TYPE_set1; + ASN1_TYPE_cmp: function (const a: PASN1_TYPE; const b: PASN1_TYPE): TOpenSSL_C_INT; cdecl = Load_ASN1_TYPE_cmp; + ASN1_TYPE_pack_sequence: function (const it: PASN1_ITEM; s: Pointer; t: PPASN1_TYPE): PASN1_TYPE; cdecl = Load_ASN1_TYPE_pack_sequence; + ASN1_TYPE_unpack_sequence: function (const it: PASN1_ITEM; const t: PASN1_TYPE): Pointer; cdecl = Load_ASN1_TYPE_unpack_sequence; + ASN1_OBJECT_new: function : PASN1_OBJECT; cdecl = Load_ASN1_OBJECT_new; + ASN1_OBJECT_free: procedure (a: PASN1_OBJECT); cdecl = Load_ASN1_OBJECT_free; + i2d_ASN1_OBJECT: function (const a: PASN1_OBJECT; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_ASN1_OBJECT; + d2i_ASN1_OBJECT: function (a: PPASN1_OBJECT; const pp: PPByte; length: TOpenSSL_C_LONG): PASN1_OBJECT; cdecl = Load_d2i_ASN1_OBJECT; + ASN1_STRING_new: function : PASN1_STRING; cdecl = Load_ASN1_STRING_new; + ASN1_STRING_free: procedure (a: PASN1_STRING); cdecl = Load_ASN1_STRING_free; + ASN1_STRING_clear_free: procedure (a: PASN1_STRING); cdecl = Load_ASN1_STRING_clear_free; + ASN1_STRING_copy: function (dst: PASN1_STRING; const str: PASN1_STRING): TOpenSSL_C_INT; cdecl = Load_ASN1_STRING_copy; + ASN1_STRING_dup: function (const a: PASN1_STRING): PASN1_STRING; cdecl = Load_ASN1_STRING_dup; + ASN1_STRING_type_new: function (type_: TOpenSSL_C_INT): PASN1_STRING; cdecl = Load_ASN1_STRING_type_new; + ASN1_STRING_cmp: function (const a: PASN1_STRING; const b: PASN1_STRING): TOpenSSL_C_INT; cdecl = Load_ASN1_STRING_cmp; + ASN1_STRING_set: function (str: PASN1_STRING; const data: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_STRING_set; + ASN1_STRING_set0: procedure (str: PASN1_STRING; data: Pointer; len: TOpenSSL_C_INT); cdecl = Load_ASN1_STRING_set0; + ASN1_STRING_length: function (const x: PASN1_STRING): TOpenSSL_C_INT; cdecl = Load_ASN1_STRING_length; + ASN1_STRING_length_set: procedure (x: PASN1_STRING; n: TOpenSSL_C_INT); cdecl = Load_ASN1_STRING_length_set; + ASN1_STRING_type: function (const x: PASN1_STRING): TOpenSSL_C_INT; cdecl = Load_ASN1_STRING_type; + ASN1_STRING_get0_data: function (const x: PASN1_STRING): PByte; cdecl = Load_ASN1_STRING_get0_data; + ASN1_BIT_STRING_set: function (a: PASN1_BIT_STRING; d: PByte; length: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_BIT_STRING_set; + ASN1_BIT_STRING_set_bit: function (a: PASN1_BIT_STRING; n: TOpenSSL_C_INT; value: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_BIT_STRING_set_bit; + ASN1_BIT_STRING_get_bit: function (const a: PASN1_BIT_STRING; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_BIT_STRING_get_bit; + ASN1_BIT_STRING_check: function (const a: PASN1_BIT_STRING; const flags: PByte; flags_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_BIT_STRING_check; + ASN1_BIT_STRING_name_print: function (out_: PBIO; bs: PASN1_BIT_STRING; tbl: PBIT_STRING_BITNAME; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_BIT_STRING_name_print; + ASN1_BIT_STRING_num_asc: function (const name: PAnsiChar; tbl: PBIT_STRING_BITNAME): TOpenSSL_C_INT; cdecl = Load_ASN1_BIT_STRING_num_asc; + ASN1_BIT_STRING_set_asc: function (bs: PASN1_BIT_STRING; const name: PAnsiChar; value: TOpenSSL_C_INT; tbl: PBIT_STRING_BITNAME): TOpenSSL_C_INT; cdecl = Load_ASN1_BIT_STRING_set_asc; + ASN1_INTEGER_new: function : PASN1_INTEGER; cdecl = Load_ASN1_INTEGER_new; + ASN1_INTEGER_free: procedure (a: PASN1_INTEGER); cdecl = Load_ASN1_INTEGER_free; + d2i_ASN1_INTEGER: function (a: PPASN1_INTEGER; const in_: PPByte; len: TOpenSSL_C_Long): PASN1_INTEGER; cdecl = Load_d2i_ASN1_INTEGER; + i2d_ASN1_INTEGER: function (a: PASN1_INTEGER; out_: PPByte): TOpenSSL_C_Int; cdecl = Load_i2d_ASN1_INTEGER; + d2i_ASN1_UINTEGER: function (a: PPASN1_INTEGER; const pp: PPByte; length: TOpenSSL_C_LONG): PASN1_INTEGER; cdecl = Load_d2i_ASN1_UINTEGER; + ASN1_INTEGER_dup: function (const x: PASN1_INTEGER): PASN1_INTEGER; cdecl = Load_ASN1_INTEGER_dup; + ASN1_INTEGER_cmp: function (const x: PASN1_INTEGER; const y: PASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_ASN1_INTEGER_cmp; + ASN1_UTCTIME_check: function (const a: PASN1_UTCTIME): TOpenSSL_C_INT; cdecl = Load_ASN1_UTCTIME_check; + ASN1_UTCTIME_set: function (s: PASN1_UTCTIME; t: TOpenSSL_C_TIMET): PASN1_UTCTIME; cdecl = Load_ASN1_UTCTIME_set; + ASN1_UTCTIME_adj: function (s: PASN1_UTCTIME; t: TOpenSSL_C_TIMET; offset_day: TOpenSSL_C_INT; offset_sec: TOpenSSL_C_LONG): PASN1_UTCTIME; cdecl = Load_ASN1_UTCTIME_adj; + ASN1_UTCTIME_set_string: function (s: PASN1_UTCTIME; const str: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_ASN1_UTCTIME_set_string; + ASN1_UTCTIME_cmp_time_t: function (const s: PASN1_UTCTIME; t: TOpenSSL_C_TIMET): TOpenSSL_C_INT; cdecl = Load_ASN1_UTCTIME_cmp_time_t; + ASN1_GENERALIZEDTIME_check: function (const a: PASN1_GENERALIZEDTIME): TOpenSSL_C_INT; cdecl = Load_ASN1_GENERALIZEDTIME_check; + ASN1_GENERALIZEDTIME_set: function (s: PASN1_GENERALIZEDTIME; t: TOpenSSL_C_TIMET): PASN1_GENERALIZEDTIME; cdecl = Load_ASN1_GENERALIZEDTIME_set; + ASN1_GENERALIZEDTIME_adj: function (s: PASN1_GENERALIZEDTIME; t: TOpenSSL_C_TIMET; offset_day: TOpenSSL_C_INT; offset_sec: TOpenSSL_C_LONG): PASN1_GENERALIZEDTIME; cdecl = Load_ASN1_GENERALIZEDTIME_adj; + ASN1_GENERALIZEDTIME_set_string: function (s: pASN1_GENERALIZEDTIME; const str: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_ASN1_GENERALIZEDTIME_set_string; + ASN1_TIME_diff: function (pday: POpenSSL_C_INT; psec: POpenSSL_C_INT; const from: PASN1_TIME; const to_: PASN1_TIME): TOpenSSL_C_INT; cdecl = Load_ASN1_TIME_diff; + ASN1_OCTET_STRING_dup: function (const a: PASN1_OCTET_STRING): PASN1_OCTET_STRING; cdecl = Load_ASN1_OCTET_STRING_dup; + ASN1_OCTET_STRING_cmp: function (const a: PASN1_OCTET_STRING; const b: PASN1_OCTET_STRING): TOpenSSL_C_INT; cdecl = Load_ASN1_OCTET_STRING_cmp; + ASN1_OCTET_STRING_set: function (str: PASN1_OCTET_STRING; const data: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_OCTET_STRING_set; + ASN1_OCTET_STRING_new: function : PASN1_OCTET_STRING; cdecl = Load_ASN1_OCTET_STRING_new; + ASN1_OCTET_STRING_free: procedure (a: PASN1_OCTET_STRING); cdecl = Load_ASN1_OCTET_STRING_free; + d2i_ASN1_OCTET_STRING: function (val_out : PPASN1_OCTET_STRING; der_in : PPAnsiChar; length : TOpenSSL_C_LONG): PASN1_OCTET_STRING; cdecl = Load_d2i_ASN1_OCTET_STRING; + i2d_ASN1_OCTET_STRING: function (val_in : PASN1_OCTET_STRING; der_out : PPAnsiChar): TOpenSSL_C_INT; cdecl = Load_i2d_ASN1_OCTET_STRING; + UTF8_getc: function (const str: PByte; len: TOpenSSL_C_INT; val: POpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_UTF8_getc; + UTF8_putc: function (str: PAnsiChar; len: TOpenSSL_C_INT; value: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_UTF8_putc; + ASN1_UTCTIME_new: function : PASN1_UTCTIME; cdecl = Load_ASN1_UTCTIME_new; + ASN1_UTCTIME_free: procedure (a: PASN1_UTCTIME); cdecl = Load_ASN1_UTCTIME_free; + d2i_ASN1_UTCTIME: function (a: PPASN1_UTCTIME; const in_: PPByte; len: TOpenSSL_C_LONG): PASN1_UTCTIME; cdecl = Load_d2i_ASN1_UTCTIME; + i2d_ASN1_UTCTIME: function (a: PASN1_UTCTIME; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_ASN1_UTCTIME; + ASN1_GENERALIZEDTIME_new: function : PASN1_GENERALIZEDTIME; cdecl = Load_ASN1_GENERALIZEDTIME_new; + ASN1_GENERALIZEDTIME_free: procedure (a: PASN1_GENERALIZEDTIME); cdecl = Load_ASN1_GENERALIZEDTIME_free; + d2i_ASN1_GENERALIZEDTIME: function (a: PPASN1_GENERALIZEDTIME; const in_: PPByte; len: TOpenSSL_C_LONG): PASN1_GENERALIZEDTIME; cdecl = Load_d2i_ASN1_GENERALIZEDTIME; + i2d_ASN1_GENERALIZEDTIME: function (a: PASN1_GENERALIZEDTIME; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_ASN1_GENERALIZEDTIME; + ASN1_TIME_new: function : PASN1_TIME; cdecl = Load_ASN1_TIME_new; + ASN1_TIME_free: procedure (a: PASN1_TIME); cdecl = Load_ASN1_TIME_free; + d2i_ASN1_TIME: function (a: PPASN1_TIME; const in_: PPByte; len: TOpenSSL_C_LONG): PASN1_TIME; cdecl = Load_d2i_ASN1_TIME; + i2d_ASN1_TIME: function (a: PASN1_TIME; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_ASN1_TIME; + ASN1_TIME_set: function (s: PASN1_TIME; t: TOpenSSL_C_TIMET): PASN1_TIME; cdecl = Load_ASN1_TIME_set; + ASN1_TIME_adj: function (s: PASN1_TIME; t: TOpenSSL_C_TIMET; offset_day: TOpenSSL_C_INT; offset_sec: TOpenSSL_C_LONG): PASN1_TIME; cdecl = Load_ASN1_TIME_adj; + ASN1_TIME_check: function (const t: PASN1_TIME): TOpenSSL_C_INT; cdecl = Load_ASN1_TIME_check; + ASN1_TIME_to_generalizedtime: function (const t: PASN1_TIME; out_: PPASN1_GENERALIZEDTIME): PASN1_GENERALIZEDTIME; cdecl = Load_ASN1_TIME_to_generalizedtime; + ASN1_TIME_set_string: function (s: PASN1_TIME; const str: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_ASN1_TIME_set_string; + ASN1_TIME_set_string_X509: function (s: PASN1_TIME; const str: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_ASN1_TIME_set_string_X509; + ASN1_TIME_to_tm: function (const s: PASN1_TIME; tm: POpenSSL_C_TM): TOpenSSL_C_INT; cdecl = Load_ASN1_TIME_to_tm; + ASN1_TIME_normalize: function (s: PASN1_TIME): TOpenSSL_C_INT; cdecl = Load_ASN1_TIME_normalize; + ASN1_TIME_cmp_time_t: function (const s: PASN1_TIME; t: TOpenSSL_C_TIMET): TOpenSSL_C_INT; cdecl = Load_ASN1_TIME_cmp_time_t; + ASN1_TIME_compare: function (const a: PASN1_TIME; const b: PASN1_TIME): TOpenSSL_C_INT; cdecl = Load_ASN1_TIME_compare; + i2a_ASN1_INTEGER: function (bp: PBIO; const a: PASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_i2a_ASN1_INTEGER; + a2i_ASN1_INTEGER: function (bp: PBIO; bs: PASN1_INTEGER; buf: PAnsiChar; size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_a2i_ASN1_INTEGER; + i2a_ASN1_ENUMERATED: function (bp: PBIO; const a: PASN1_ENUMERATED): TOpenSSL_C_INT; cdecl = Load_i2a_ASN1_ENUMERATED; + a2i_ASN1_ENUMERATED: function (bp: PBIO; bs: PASN1_ENUMERATED; buf: PAnsiChar; size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_a2i_ASN1_ENUMERATED; + i2a_ASN1_OBJECT: function (bp: PBIO; const a: PASN1_OBJECT): TOpenSSL_C_INT; cdecl = Load_i2a_ASN1_OBJECT; + a2i_ASN1_STRING: function (bp: PBIO; bs: PASN1_STRING; buf: PAnsiChar; size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_a2i_ASN1_STRING; + i2a_ASN1_STRING: function (bp: PBIO; const a: PASN1_STRING; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_i2a_ASN1_STRING; + i2t_ASN1_OBJECT: function (buf: PAnsiChar; buf_len: TOpenSSL_C_INT; const a: PASN1_OBJECT): TOpenSSL_C_INT; cdecl = Load_i2t_ASN1_OBJECT; + a2d_ASN1_OBJECT: function (out_: PByte; olen: TOpenSSL_C_INT; const buf: PAnsiChar; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_a2d_ASN1_OBJECT; + ASN1_OBJECT_create: function (nid: TOpenSSL_C_INT; data: PByte; len: TOpenSSL_C_INT; const sn: PAnsiChar; const ln: PAnsiChar): PASN1_OBJECT; cdecl = Load_ASN1_OBJECT_create; + ASN1_INTEGER_get_int64: function (pr: POpenSSL_C_Int64; const a: PASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_ASN1_INTEGER_get_int64; + ASN1_INTEGER_set_int64: function (a: PASN1_INTEGER; r: TOpenSSL_C_Int64): TOpenSSL_C_INT; cdecl = Load_ASN1_INTEGER_set_int64; + ASN1_INTEGER_get_uint64: function (pr: POpenSSL_C_UInt64; const a: PASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_ASN1_INTEGER_get_uint64; + ASN1_INTEGER_set_uint64: function (a: PASN1_INTEGER; r: TOpenSSL_C_UInt64): TOpenSSL_C_INT; cdecl = Load_ASN1_INTEGER_set_uint64; + ASN1_INTEGER_set: function (a: PASN1_INTEGER; v: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_ASN1_INTEGER_set; + ASN1_INTEGER_get: function (const a: PASN1_INTEGER): TOpenSSL_C_LONG; cdecl = Load_ASN1_INTEGER_get; + BN_to_ASN1_INTEGER: function (const bn: PBIGNUM; ai: PASN1_INTEGER): PASN1_INTEGER; cdecl = Load_BN_to_ASN1_INTEGER; + ASN1_INTEGER_to_BN: function (const ai: PASN1_INTEGER; bn: PBIGNUM): PBIGNUM; cdecl = Load_ASN1_INTEGER_to_BN; + ASN1_ENUMERATED_get_int64: function (pr: POpenSSL_C_Int64; const a: PASN1_ENUMERATED): TOpenSSL_C_INT; cdecl = Load_ASN1_ENUMERATED_get_int64; + ASN1_ENUMERATED_set_int64: function (a: PASN1_ENUMERATED; r: TOpenSSL_C_Int64): TOpenSSL_C_INT; cdecl = Load_ASN1_ENUMERATED_set_int64; + ASN1_ENUMERATED_set: function (a: PASN1_ENUMERATED; v: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_ASN1_ENUMERATED_set; + ASN1_ENUMERATED_get: function (const a: PASN1_ENUMERATED): TOpenSSL_C_LONG; cdecl = Load_ASN1_ENUMERATED_get; + BN_to_ASN1_ENUMERATED: function (const bn: PBIGNUM; ai: PASN1_ENUMERATED): PASN1_ENUMERATED; cdecl = Load_BN_to_ASN1_ENUMERATED; + ASN1_ENUMERATED_to_BN: function (const ai: PASN1_ENUMERATED; bn: PBIGNUM): PBIGNUM; cdecl = Load_ASN1_ENUMERATED_to_BN; + ASN1_PRINTABLE_type: function (const s: PByte; max: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_PRINTABLE_type; + ASN1_tag2bit: function (tag: TOpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl = Load_ASN1_tag2bit; + ASN1_get_object: function (const pp: PPByte; plength: POpenSSL_C_LONG; ptag: POpenSSL_C_INT; pclass: POpenSSL_C_INT; omax: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_ASN1_get_object; + ASN1_check_infinite_end: function (p: PPByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_ASN1_check_infinite_end; + ASN1_const_check_infinite_end: function (const p: PPByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_ASN1_const_check_infinite_end; + ASN1_put_object: procedure (pp: PPByte; constructed: TOpenSSL_C_INT; length: TOpenSSL_C_INT; tag: TOpenSSL_C_INT; xclass: TOpenSSL_C_INT); cdecl = Load_ASN1_put_object; + ASN1_put_eoc: function (pp: PPByte): TOpenSSL_C_INT; cdecl = Load_ASN1_put_eoc; + ASN1_object_size: function (constructed: TOpenSSL_C_INT; length: TOpenSSL_C_INT; tag: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_object_size; + ASN1_item_dup: function (const it: PASN1_ITEM; x: Pointer): Pointer; cdecl = Load_ASN1_item_dup; + ASN1_STRING_to_UTF8: function (out_: PPByte; const in_: PASN1_STRING): TOpenSSL_C_INT; cdecl = Load_ASN1_STRING_to_UTF8; + ASN1_d2i_bio: function (xnew: pxnew; d2i: pd2i_of_void; in_: PBIO; x: PPointer): Pointer; cdecl = Load_ASN1_d2i_bio; + ASN1_item_d2i_bio: function (const it: PASN1_ITEM; in_: PBIO; x: Pointer): Pointer; cdecl = Load_ASN1_item_d2i_bio; + ASN1_i2d_bio: function (i2d: Pi2d_of_void; out_: PBIO; x: PByte): TOpenSSL_C_INT; cdecl = Load_ASN1_i2d_bio; + ASN1_item_i2d_bio: function (const it: PASN1_ITEM; out_: PBIO; x: Pointer): TOpenSSL_C_INT; cdecl = Load_ASN1_item_i2d_bio; + ASN1_UTCTIME_print: function (fp: PBIO; const a: PASN1_UTCTIME): TOpenSSL_C_INT; cdecl = Load_ASN1_UTCTIME_print; + ASN1_GENERALIZEDTIME_print: function (fp: PBIO; const a: PASN1_GENERALIZEDTIME): TOpenSSL_C_INT; cdecl = Load_ASN1_GENERALIZEDTIME_print; + ASN1_TIME_print: function (fp: PBIO; const a: PASN1_TIME): TOpenSSL_C_INT; cdecl = Load_ASN1_TIME_print; + ASN1_STRING_print: function (bp: PBIO; const v: PASN1_STRING): TOpenSSL_C_INT; cdecl = Load_ASN1_STRING_print; + ASN1_STRING_print_ex: function (out_: PBIO; const str: PASN1_STRING; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_ASN1_STRING_print_ex; + ASN1_buf_print: function (bp: PBIO; const buf: PByte; buflen: TOpenSSL_C_SIZET; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_buf_print; + ASN1_bn_print: function (bp: PBIO; const number: PAnsiChar; const num: PBIGNUM; buf: PByte; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_bn_print; + ASN1_parse: function (bp: PBIO; const pp: PByte; len: TOpenSSL_C_LONG; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_parse; + ASN1_parse_dump: function (bp: PPBIO; const pp: PByte; len: TOpenSSL_C_LONG; indent: TOpenSSL_C_INT; dump: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_parse_dump; + ASN1_tag2str: function (tag: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_ASN1_tag2str; + ASN1_UNIVERSALSTRING_to_string: function (s: PASN1_UNIVERSALSTRING): TOpenSSL_C_INT; cdecl = Load_ASN1_UNIVERSALSTRING_to_string; + ASN1_TYPE_set_octetstring: function (a: PASN1_TYPE; data: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_TYPE_set_octetstring; + ASN1_TYPE_get_octetstring: function (const a: PASN1_TYPE; data: PByte; max_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_TYPE_get_octetstring; + ASN1_TYPE_set_int_octetstring: function (a: PASN1_TYPE; num: TOpenSSL_C_LONG; data: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_TYPE_set_int_octetstring; + ASN1_TYPE_get_int_octetstring: function (const a: PASN1_TYPE; num: POpenSSL_C_LONG; data: PByte; max_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_TYPE_get_int_octetstring; + ASN1_item_unpack: function (const oct: PASN1_STRING; const it: PASN1_ITEM): Pointer; cdecl = Load_ASN1_item_unpack; + ASN1_item_pack: function (obj: Pointer; const it: PASN1_ITEM; oct: PPASN1_OCTET_STRING): PASN1_STRING; cdecl = Load_ASN1_item_pack; + ASN1_STRING_set_default_mask: procedure (mask: TOpenSSL_C_ULONG); cdecl = Load_ASN1_STRING_set_default_mask; + ASN1_STRING_set_default_mask_asc: function (const p: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_ASN1_STRING_set_default_mask_asc; + ASN1_STRING_get_default_mask: function : TOpenSSL_C_ULONG; cdecl = Load_ASN1_STRING_get_default_mask; + ASN1_mbstring_copy: function (out_: PPASN1_STRING; const in_: PByte; len: TOpenSSL_C_INT; inform: TOpenSSL_C_INT; mask: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_ASN1_mbstring_copy; + ASN1_mbstring_ncopy: function (out_: PPASN1_STRING; const in_: PByte; len: TOpenSSL_C_INT; inform: TOpenSSL_C_INT; mask: TOpenSSL_C_ULONG; minsize: TOpenSSL_C_LONG; maxsize: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_ASN1_mbstring_ncopy; + ASN1_STRING_set_by_NID: function (out_: PPASN1_STRING; const in_: PByte; inlen: TOpenSSL_C_INT; inform: TOpenSSL_C_INT; nid: TOpenSSL_C_INT): PASN1_STRING; cdecl = Load_ASN1_STRING_set_by_NID; + ASN1_STRING_TABLE_get: function (nid: TOpenSSL_C_INT): PASN1_STRING_TABLE; cdecl = Load_ASN1_STRING_TABLE_get; + ASN1_STRING_TABLE_add: function (v1: TOpenSSL_C_INT; v2: TOpenSSL_C_LONG; v3: TOpenSSL_C_LONG; v4: TOpenSSL_C_ULONG; v5: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_ASN1_STRING_TABLE_add; + ASN1_STRING_TABLE_cleanup: procedure ; cdecl = Load_ASN1_STRING_TABLE_cleanup; + ASN1_item_new: function (const it: PASN1_ITEM): PASN1_VALUE; cdecl = Load_ASN1_item_new; + ASN1_item_free: procedure (val: PASN1_VALUE; const it: PASN1_ITEM); cdecl = Load_ASN1_item_free; + ASN1_item_d2i: function (val: PPASN1_VALUE; const in_: PPByte; len: TOpenSSL_C_LONG; const it: PASN1_ITEM): PASN1_VALUE; cdecl = Load_ASN1_item_d2i; + ASN1_item_i2d: function (val: PASN1_VALUE; out_: PPByte; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl = Load_ASN1_item_i2d; + ASN1_item_ndef_i2d: function (val: PASN1_VALUE; out_: PPByte; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl = Load_ASN1_item_ndef_i2d; + ASN1_add_oid_module: procedure ; cdecl = Load_ASN1_add_oid_module; + ASN1_add_stable_module: procedure ; cdecl = Load_ASN1_add_stable_module; + ASN1_generate_nconf: function (const str: PAnsiChar; nconf: PCONF): PASN1_TYPE; cdecl = Load_ASN1_generate_nconf; + ASN1_generate_v3: function (const str: PAnsiChar; cnf: PX509V3_CTX): PASN1_TYPE; cdecl = Load_ASN1_generate_v3; + ASN1_str2mask: function (const str: PByte; pmask: POpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_ASN1_str2mask; + ASN1_item_print: function (out_: PBIO; ifld: PASN1_VALUE; indent: TOpenSSL_C_INT; const it: PASN1_ITEM; const pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl = Load_ASN1_item_print; + ASN1_PCTX_new: function : PASN1_PCTX; cdecl = Load_ASN1_PCTX_new; + ASN1_PCTX_free: procedure (p: PASN1_PCTX); cdecl = Load_ASN1_PCTX_free; + ASN1_PCTX_get_flags: function (const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl = Load_ASN1_PCTX_get_flags; + ASN1_PCTX_set_flags: procedure (p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl = Load_ASN1_PCTX_set_flags; + ASN1_PCTX_get_nm_flags: function (const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl = Load_ASN1_PCTX_get_nm_flags; + ASN1_PCTX_set_nm_flags: procedure (p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl = Load_ASN1_PCTX_set_nm_flags; + ASN1_PCTX_get_cert_flags: function (const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl = Load_ASN1_PCTX_get_cert_flags; + ASN1_PCTX_set_cert_flags: procedure (p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl = Load_ASN1_PCTX_set_cert_flags; + ASN1_PCTX_get_oid_flags: function (const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl = Load_ASN1_PCTX_get_oid_flags; + ASN1_PCTX_set_oid_flags: procedure (p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl = Load_ASN1_PCTX_set_oid_flags; + ASN1_PCTX_get_str_flags: function (const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl = Load_ASN1_PCTX_get_str_flags; + ASN1_PCTX_set_str_flags: procedure (p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl = Load_ASN1_PCTX_set_str_flags; + ASN1_SCTX_free: procedure (p: PASN1_SCTX); cdecl = Load_ASN1_SCTX_free; + ASN1_SCTX_get_item: function (p: PASN1_SCTX): PASN1_ITEM; cdecl = Load_ASN1_SCTX_get_item; + ASN1_SCTX_get_template: function (p: PASN1_SCTX): PASN1_TEMPLATE; cdecl = Load_ASN1_SCTX_get_template; + ASN1_SCTX_get_flags: function (p: PASN1_SCTX): TOpenSSL_C_ULONG; cdecl = Load_ASN1_SCTX_get_flags; + ASN1_SCTX_set_app_data: procedure (p: PASN1_SCTX; data: Pointer); cdecl = Load_ASN1_SCTX_set_app_data; + ASN1_SCTX_get_app_data: function (p: PASN1_SCTX): Pointer; cdecl = Load_ASN1_SCTX_get_app_data; + BIO_f_asn1: function : PBIO_METHOD; cdecl = Load_BIO_f_asn1; + BIO_new_NDEF: function (out_: PBIO; val: PASN1_VALUE; const it: PASN1_ITEM): PBIO; cdecl = Load_BIO_new_NDEF; + i2d_ASN1_bio_stream: function (out_: PBIO; val: PASN1_VALUE; in_: PBIO; flags: TOpenSSL_C_INT; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl = Load_i2d_ASN1_bio_stream; + PEM_write_bio_ASN1_stream: function (out_: PBIO; val: PASN1_VALUE; in_: PBIO; flags: TOpenSSL_C_INT; const hdr: PAnsiChar; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_ASN1_stream; + SMIME_read_ASN1: function (bio: PBIO; bcont: PPBIO; const it: PASN1_ITEM): PASN1_VALUE; cdecl = Load_SMIME_read_ASN1; + SMIME_crlf_copy: function (in_: PBIO; out_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SMIME_crlf_copy; + SMIME_text: function (in_: PBIO; out_: PBIO): TOpenSSL_C_INT; cdecl = Load_SMIME_text; + ASN1_ITEM_lookup: function (const name: PAnsiChar): PASN1_ITEM; cdecl = Load_ASN1_ITEM_lookup; + ASN1_ITEM_get: function (i: TOpenSSL_C_SIZET): PASN1_ITEM; cdecl = Load_ASN1_ITEM_get; +{$ENDIF} +const + ASN1_TYPE_pack_sequence_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_TYPE_unpack_sequence_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_STRING_get0_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_TIME_set_string_X509_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_TIME_to_tm_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_TIME_normalize_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_TIME_cmp_time_t_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_TIME_compare_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_INTEGER_get_int64_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_INTEGER_set_int64_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_INTEGER_get_uint64_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_INTEGER_set_uint64_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_ENUMERATED_get_int64_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_ENUMERATED_set_int64_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_buf_print_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_add_stable_module_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_str2mask_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_SCTX_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_SCTX_get_item_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_SCTX_get_template_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_SCTX_get_flags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_SCTX_set_app_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_SCTX_get_app_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_ITEM_lookup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASN1_ITEM_get_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ASN1_TYPE_get(const a: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +begin + ASN1_TYPE_get := LoadLibCryptoFunction('ASN1_TYPE_get'); + if not assigned(ASN1_TYPE_get) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TYPE_get'); + Result := ASN1_TYPE_get(a); +end; + +procedure Load_ASN1_TYPE_set(a: PASN1_TYPE; type_: TOpenSSL_C_INT; value: Pointer); cdecl; +begin + ASN1_TYPE_set := LoadLibCryptoFunction('ASN1_TYPE_set'); + if not assigned(ASN1_TYPE_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TYPE_set'); + ASN1_TYPE_set(a,type_,value); +end; + +function Load_ASN1_TYPE_set1(a: PASN1_TYPE; type_: TOpenSSL_C_INT; const value: Pointer): TOpenSSL_C_INT; cdecl; +begin + ASN1_TYPE_set1 := LoadLibCryptoFunction('ASN1_TYPE_set1'); + if not assigned(ASN1_TYPE_set1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TYPE_set1'); + Result := ASN1_TYPE_set1(a,type_,value); +end; + +function Load_ASN1_TYPE_cmp(const a: PASN1_TYPE; const b: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +begin + ASN1_TYPE_cmp := LoadLibCryptoFunction('ASN1_TYPE_cmp'); + if not assigned(ASN1_TYPE_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TYPE_cmp'); + Result := ASN1_TYPE_cmp(a,b); +end; + +function Load_ASN1_TYPE_pack_sequence(const it: PASN1_ITEM; s: Pointer; t: PPASN1_TYPE): PASN1_TYPE; cdecl; +begin + ASN1_TYPE_pack_sequence := LoadLibCryptoFunction('ASN1_TYPE_pack_sequence'); + if not assigned(ASN1_TYPE_pack_sequence) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TYPE_pack_sequence'); + Result := ASN1_TYPE_pack_sequence(it,s,t); +end; + +function Load_ASN1_TYPE_unpack_sequence(const it: PASN1_ITEM; const t: PASN1_TYPE): Pointer; cdecl; +begin + ASN1_TYPE_unpack_sequence := LoadLibCryptoFunction('ASN1_TYPE_unpack_sequence'); + if not assigned(ASN1_TYPE_unpack_sequence) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TYPE_unpack_sequence'); + Result := ASN1_TYPE_unpack_sequence(it,t); +end; + +function Load_ASN1_OBJECT_new: PASN1_OBJECT; cdecl; +begin + ASN1_OBJECT_new := LoadLibCryptoFunction('ASN1_OBJECT_new'); + if not assigned(ASN1_OBJECT_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_OBJECT_new'); + Result := ASN1_OBJECT_new(); +end; + +procedure Load_ASN1_OBJECT_free(a: PASN1_OBJECT); cdecl; +begin + ASN1_OBJECT_free := LoadLibCryptoFunction('ASN1_OBJECT_free'); + if not assigned(ASN1_OBJECT_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_OBJECT_free'); + ASN1_OBJECT_free(a); +end; + +function Load_i2d_ASN1_OBJECT(const a: PASN1_OBJECT; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_ASN1_OBJECT := LoadLibCryptoFunction('i2d_ASN1_OBJECT'); + if not assigned(i2d_ASN1_OBJECT) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_ASN1_OBJECT'); + Result := i2d_ASN1_OBJECT(a,pp); +end; + +function Load_d2i_ASN1_OBJECT(a: PPASN1_OBJECT; const pp: PPByte; length: TOpenSSL_C_LONG): PASN1_OBJECT; cdecl; +begin + d2i_ASN1_OBJECT := LoadLibCryptoFunction('d2i_ASN1_OBJECT'); + if not assigned(d2i_ASN1_OBJECT) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_ASN1_OBJECT'); + Result := d2i_ASN1_OBJECT(a,pp,length); +end; + +function Load_ASN1_STRING_new: PASN1_STRING; cdecl; +begin + ASN1_STRING_new := LoadLibCryptoFunction('ASN1_STRING_new'); + if not assigned(ASN1_STRING_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_new'); + Result := ASN1_STRING_new(); +end; + +procedure Load_ASN1_STRING_free(a: PASN1_STRING); cdecl; +begin + ASN1_STRING_free := LoadLibCryptoFunction('ASN1_STRING_free'); + if not assigned(ASN1_STRING_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_free'); + ASN1_STRING_free(a); +end; + +procedure Load_ASN1_STRING_clear_free(a: PASN1_STRING); cdecl; +begin + ASN1_STRING_clear_free := LoadLibCryptoFunction('ASN1_STRING_clear_free'); + if not assigned(ASN1_STRING_clear_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_clear_free'); + ASN1_STRING_clear_free(a); +end; + +function Load_ASN1_STRING_copy(dst: PASN1_STRING; const str: PASN1_STRING): TOpenSSL_C_INT; cdecl; +begin + ASN1_STRING_copy := LoadLibCryptoFunction('ASN1_STRING_copy'); + if not assigned(ASN1_STRING_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_copy'); + Result := ASN1_STRING_copy(dst,str); +end; + +function Load_ASN1_STRING_dup(const a: PASN1_STRING): PASN1_STRING; cdecl; +begin + ASN1_STRING_dup := LoadLibCryptoFunction('ASN1_STRING_dup'); + if not assigned(ASN1_STRING_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_dup'); + Result := ASN1_STRING_dup(a); +end; + +function Load_ASN1_STRING_type_new(type_: TOpenSSL_C_INT): PASN1_STRING; cdecl; +begin + ASN1_STRING_type_new := LoadLibCryptoFunction('ASN1_STRING_type_new'); + if not assigned(ASN1_STRING_type_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_type_new'); + Result := ASN1_STRING_type_new(type_); +end; + +function Load_ASN1_STRING_cmp(const a: PASN1_STRING; const b: PASN1_STRING): TOpenSSL_C_INT; cdecl; +begin + ASN1_STRING_cmp := LoadLibCryptoFunction('ASN1_STRING_cmp'); + if not assigned(ASN1_STRING_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_cmp'); + Result := ASN1_STRING_cmp(a,b); +end; + +function Load_ASN1_STRING_set(str: PASN1_STRING; const data: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_STRING_set := LoadLibCryptoFunction('ASN1_STRING_set'); + if not assigned(ASN1_STRING_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_set'); + Result := ASN1_STRING_set(str,data,len); +end; + +procedure Load_ASN1_STRING_set0(str: PASN1_STRING; data: Pointer; len: TOpenSSL_C_INT); cdecl; +begin + ASN1_STRING_set0 := LoadLibCryptoFunction('ASN1_STRING_set0'); + if not assigned(ASN1_STRING_set0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_set0'); + ASN1_STRING_set0(str,data,len); +end; + +function Load_ASN1_STRING_length(const x: PASN1_STRING): TOpenSSL_C_INT; cdecl; +begin + ASN1_STRING_length := LoadLibCryptoFunction('ASN1_STRING_length'); + if not assigned(ASN1_STRING_length) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_length'); + Result := ASN1_STRING_length(x); +end; + +procedure Load_ASN1_STRING_length_set(x: PASN1_STRING; n: TOpenSSL_C_INT); cdecl; +begin + ASN1_STRING_length_set := LoadLibCryptoFunction('ASN1_STRING_length_set'); + if not assigned(ASN1_STRING_length_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_length_set'); + ASN1_STRING_length_set(x,n); +end; + +function Load_ASN1_STRING_type(const x: PASN1_STRING): TOpenSSL_C_INT; cdecl; +begin + ASN1_STRING_type := LoadLibCryptoFunction('ASN1_STRING_type'); + if not assigned(ASN1_STRING_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_type'); + Result := ASN1_STRING_type(x); +end; + +function Load_ASN1_STRING_get0_data(const x: PASN1_STRING): PByte; cdecl; +begin + ASN1_STRING_get0_data := LoadLibCryptoFunction('ASN1_STRING_get0_data'); + if not assigned(ASN1_STRING_get0_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_get0_data'); + Result := ASN1_STRING_get0_data(x); +end; + +function Load_ASN1_BIT_STRING_set(a: PASN1_BIT_STRING; d: PByte; length: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_BIT_STRING_set := LoadLibCryptoFunction('ASN1_BIT_STRING_set'); + if not assigned(ASN1_BIT_STRING_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_BIT_STRING_set'); + Result := ASN1_BIT_STRING_set(a,d,length); +end; + +function Load_ASN1_BIT_STRING_set_bit(a: PASN1_BIT_STRING; n: TOpenSSL_C_INT; value: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_BIT_STRING_set_bit := LoadLibCryptoFunction('ASN1_BIT_STRING_set_bit'); + if not assigned(ASN1_BIT_STRING_set_bit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_BIT_STRING_set_bit'); + Result := ASN1_BIT_STRING_set_bit(a,n,value); +end; + +function Load_ASN1_BIT_STRING_get_bit(const a: PASN1_BIT_STRING; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_BIT_STRING_get_bit := LoadLibCryptoFunction('ASN1_BIT_STRING_get_bit'); + if not assigned(ASN1_BIT_STRING_get_bit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_BIT_STRING_get_bit'); + Result := ASN1_BIT_STRING_get_bit(a,n); +end; + +function Load_ASN1_BIT_STRING_check(const a: PASN1_BIT_STRING; const flags: PByte; flags_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_BIT_STRING_check := LoadLibCryptoFunction('ASN1_BIT_STRING_check'); + if not assigned(ASN1_BIT_STRING_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_BIT_STRING_check'); + Result := ASN1_BIT_STRING_check(a,flags,flags_len); +end; + +function Load_ASN1_BIT_STRING_name_print(out_: PBIO; bs: PASN1_BIT_STRING; tbl: PBIT_STRING_BITNAME; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_BIT_STRING_name_print := LoadLibCryptoFunction('ASN1_BIT_STRING_name_print'); + if not assigned(ASN1_BIT_STRING_name_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_BIT_STRING_name_print'); + Result := ASN1_BIT_STRING_name_print(out_,bs,tbl,indent); +end; + +function Load_ASN1_BIT_STRING_num_asc(const name: PAnsiChar; tbl: PBIT_STRING_BITNAME): TOpenSSL_C_INT; cdecl; +begin + ASN1_BIT_STRING_num_asc := LoadLibCryptoFunction('ASN1_BIT_STRING_num_asc'); + if not assigned(ASN1_BIT_STRING_num_asc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_BIT_STRING_num_asc'); + Result := ASN1_BIT_STRING_num_asc(name,tbl); +end; + +function Load_ASN1_BIT_STRING_set_asc(bs: PASN1_BIT_STRING; const name: PAnsiChar; value: TOpenSSL_C_INT; tbl: PBIT_STRING_BITNAME): TOpenSSL_C_INT; cdecl; +begin + ASN1_BIT_STRING_set_asc := LoadLibCryptoFunction('ASN1_BIT_STRING_set_asc'); + if not assigned(ASN1_BIT_STRING_set_asc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_BIT_STRING_set_asc'); + Result := ASN1_BIT_STRING_set_asc(bs,name,value,tbl); +end; + +function Load_ASN1_INTEGER_new: PASN1_INTEGER; cdecl; +begin + ASN1_INTEGER_new := LoadLibCryptoFunction('ASN1_INTEGER_new'); + if not assigned(ASN1_INTEGER_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_INTEGER_new'); + Result := ASN1_INTEGER_new(); +end; + +procedure Load_ASN1_INTEGER_free(a: PASN1_INTEGER); cdecl; +begin + ASN1_INTEGER_free := LoadLibCryptoFunction('ASN1_INTEGER_free'); + if not assigned(ASN1_INTEGER_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_INTEGER_free'); + ASN1_INTEGER_free(a); +end; + +function Load_d2i_ASN1_INTEGER(a: PPASN1_INTEGER; const in_: PPByte; len: TOpenSSL_C_Long): PASN1_INTEGER; cdecl; +begin + d2i_ASN1_INTEGER := LoadLibCryptoFunction('d2i_ASN1_INTEGER'); + if not assigned(d2i_ASN1_INTEGER) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_ASN1_INTEGER'); + Result := d2i_ASN1_INTEGER(a,in_,len); +end; + +function Load_i2d_ASN1_INTEGER(a: PASN1_INTEGER; out_: PPByte): TOpenSSL_C_Int; cdecl; +begin + i2d_ASN1_INTEGER := LoadLibCryptoFunction('i2d_ASN1_INTEGER'); + if not assigned(i2d_ASN1_INTEGER) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_ASN1_INTEGER'); + Result := i2d_ASN1_INTEGER(a,out_); +end; + +function Load_d2i_ASN1_UINTEGER(a: PPASN1_INTEGER; const pp: PPByte; length: TOpenSSL_C_LONG): PASN1_INTEGER; cdecl; +begin + d2i_ASN1_UINTEGER := LoadLibCryptoFunction('d2i_ASN1_UINTEGER'); + if not assigned(d2i_ASN1_UINTEGER) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_ASN1_UINTEGER'); + Result := d2i_ASN1_UINTEGER(a,pp,length); +end; + +function Load_ASN1_INTEGER_dup(const x: PASN1_INTEGER): PASN1_INTEGER; cdecl; +begin + ASN1_INTEGER_dup := LoadLibCryptoFunction('ASN1_INTEGER_dup'); + if not assigned(ASN1_INTEGER_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_INTEGER_dup'); + Result := ASN1_INTEGER_dup(x); +end; + +function Load_ASN1_INTEGER_cmp(const x: PASN1_INTEGER; const y: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + ASN1_INTEGER_cmp := LoadLibCryptoFunction('ASN1_INTEGER_cmp'); + if not assigned(ASN1_INTEGER_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_INTEGER_cmp'); + Result := ASN1_INTEGER_cmp(x,y); +end; + +function Load_ASN1_UTCTIME_check(const a: PASN1_UTCTIME): TOpenSSL_C_INT; cdecl; +begin + ASN1_UTCTIME_check := LoadLibCryptoFunction('ASN1_UTCTIME_check'); + if not assigned(ASN1_UTCTIME_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_UTCTIME_check'); + Result := ASN1_UTCTIME_check(a); +end; + +function Load_ASN1_UTCTIME_set(s: PASN1_UTCTIME; t: TOpenSSL_C_TIMET): PASN1_UTCTIME; cdecl; +begin + ASN1_UTCTIME_set := LoadLibCryptoFunction('ASN1_UTCTIME_set'); + if not assigned(ASN1_UTCTIME_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_UTCTIME_set'); + Result := ASN1_UTCTIME_set(s,t); +end; + +function Load_ASN1_UTCTIME_adj(s: PASN1_UTCTIME; t: TOpenSSL_C_TIMET; offset_day: TOpenSSL_C_INT; offset_sec: TOpenSSL_C_LONG): PASN1_UTCTIME; cdecl; +begin + ASN1_UTCTIME_adj := LoadLibCryptoFunction('ASN1_UTCTIME_adj'); + if not assigned(ASN1_UTCTIME_adj) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_UTCTIME_adj'); + Result := ASN1_UTCTIME_adj(s,t,offset_day,offset_sec); +end; + +function Load_ASN1_UTCTIME_set_string(s: PASN1_UTCTIME; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + ASN1_UTCTIME_set_string := LoadLibCryptoFunction('ASN1_UTCTIME_set_string'); + if not assigned(ASN1_UTCTIME_set_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_UTCTIME_set_string'); + Result := ASN1_UTCTIME_set_string(s,str); +end; + +function Load_ASN1_UTCTIME_cmp_time_t(const s: PASN1_UTCTIME; t: TOpenSSL_C_TIMET): TOpenSSL_C_INT; cdecl; +begin + ASN1_UTCTIME_cmp_time_t := LoadLibCryptoFunction('ASN1_UTCTIME_cmp_time_t'); + if not assigned(ASN1_UTCTIME_cmp_time_t) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_UTCTIME_cmp_time_t'); + Result := ASN1_UTCTIME_cmp_time_t(s,t); +end; + +function Load_ASN1_GENERALIZEDTIME_check(const a: PASN1_GENERALIZEDTIME): TOpenSSL_C_INT; cdecl; +begin + ASN1_GENERALIZEDTIME_check := LoadLibCryptoFunction('ASN1_GENERALIZEDTIME_check'); + if not assigned(ASN1_GENERALIZEDTIME_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_GENERALIZEDTIME_check'); + Result := ASN1_GENERALIZEDTIME_check(a); +end; + +function Load_ASN1_GENERALIZEDTIME_set(s: PASN1_GENERALIZEDTIME; t: TOpenSSL_C_TIMET): PASN1_GENERALIZEDTIME; cdecl; +begin + ASN1_GENERALIZEDTIME_set := LoadLibCryptoFunction('ASN1_GENERALIZEDTIME_set'); + if not assigned(ASN1_GENERALIZEDTIME_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_GENERALIZEDTIME_set'); + Result := ASN1_GENERALIZEDTIME_set(s,t); +end; + +function Load_ASN1_GENERALIZEDTIME_adj(s: PASN1_GENERALIZEDTIME; t: TOpenSSL_C_TIMET; offset_day: TOpenSSL_C_INT; offset_sec: TOpenSSL_C_LONG): PASN1_GENERALIZEDTIME; cdecl; +begin + ASN1_GENERALIZEDTIME_adj := LoadLibCryptoFunction('ASN1_GENERALIZEDTIME_adj'); + if not assigned(ASN1_GENERALIZEDTIME_adj) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_GENERALIZEDTIME_adj'); + Result := ASN1_GENERALIZEDTIME_adj(s,t,offset_day,offset_sec); +end; + +function Load_ASN1_GENERALIZEDTIME_set_string(s: pASN1_GENERALIZEDTIME; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + ASN1_GENERALIZEDTIME_set_string := LoadLibCryptoFunction('ASN1_GENERALIZEDTIME_set_string'); + if not assigned(ASN1_GENERALIZEDTIME_set_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_GENERALIZEDTIME_set_string'); + Result := ASN1_GENERALIZEDTIME_set_string(s,str); +end; + +function Load_ASN1_TIME_diff(pday: POpenSSL_C_INT; psec: POpenSSL_C_INT; const from: PASN1_TIME; const to_: PASN1_TIME): TOpenSSL_C_INT; cdecl; +begin + ASN1_TIME_diff := LoadLibCryptoFunction('ASN1_TIME_diff'); + if not assigned(ASN1_TIME_diff) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TIME_diff'); + Result := ASN1_TIME_diff(pday,psec,from,to_); +end; + +function Load_ASN1_OCTET_STRING_dup(const a: PASN1_OCTET_STRING): PASN1_OCTET_STRING; cdecl; +begin + ASN1_OCTET_STRING_dup := LoadLibCryptoFunction('ASN1_OCTET_STRING_dup'); + if not assigned(ASN1_OCTET_STRING_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_OCTET_STRING_dup'); + Result := ASN1_OCTET_STRING_dup(a); +end; + +function Load_ASN1_OCTET_STRING_cmp(const a: PASN1_OCTET_STRING; const b: PASN1_OCTET_STRING): TOpenSSL_C_INT; cdecl; +begin + ASN1_OCTET_STRING_cmp := LoadLibCryptoFunction('ASN1_OCTET_STRING_cmp'); + if not assigned(ASN1_OCTET_STRING_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_OCTET_STRING_cmp'); + Result := ASN1_OCTET_STRING_cmp(a,b); +end; + +function Load_ASN1_OCTET_STRING_set(str: PASN1_OCTET_STRING; const data: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_OCTET_STRING_set := LoadLibCryptoFunction('ASN1_OCTET_STRING_set'); + if not assigned(ASN1_OCTET_STRING_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_OCTET_STRING_set'); + Result := ASN1_OCTET_STRING_set(str,data,len); +end; + +function Load_ASN1_OCTET_STRING_new: PASN1_OCTET_STRING; cdecl; +begin + ASN1_OCTET_STRING_new := LoadLibCryptoFunction('ASN1_OCTET_STRING_new'); + if not assigned(ASN1_OCTET_STRING_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_OCTET_STRING_new'); + Result := ASN1_OCTET_STRING_new(); +end; + +procedure Load_ASN1_OCTET_STRING_free(a: PASN1_OCTET_STRING); cdecl; +begin + ASN1_OCTET_STRING_free := LoadLibCryptoFunction('ASN1_OCTET_STRING_free'); + if not assigned(ASN1_OCTET_STRING_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_OCTET_STRING_free'); + ASN1_OCTET_STRING_free(a); +end; + +function Load_d2i_ASN1_OCTET_STRING(val_out : PPASN1_OCTET_STRING; der_in : PPAnsiChar; length : TOpenSSL_C_LONG): PASN1_OCTET_STRING; cdecl; +begin + d2i_ASN1_OCTET_STRING := LoadLibCryptoFunction('d2i_ASN1_OCTET_STRING'); + if not assigned(d2i_ASN1_OCTET_STRING) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_ASN1_OCTET_STRING'); + Result := d2i_ASN1_OCTET_STRING(val_out,der_in,length); +end; + +function Load_i2d_ASN1_OCTET_STRING(val_in : PASN1_OCTET_STRING; der_out : PPAnsiChar): TOpenSSL_C_INT; cdecl; +begin + i2d_ASN1_OCTET_STRING := LoadLibCryptoFunction('i2d_ASN1_OCTET_STRING'); + if not assigned(i2d_ASN1_OCTET_STRING) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_ASN1_OCTET_STRING'); + Result := i2d_ASN1_OCTET_STRING(val_in,der_out); +end; + +function Load_UTF8_getc(const str: PByte; len: TOpenSSL_C_INT; val: POpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + UTF8_getc := LoadLibCryptoFunction('UTF8_getc'); + if not assigned(UTF8_getc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UTF8_getc'); + Result := UTF8_getc(str,len,val); +end; + +function Load_UTF8_putc(str: PAnsiChar; len: TOpenSSL_C_INT; value: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + UTF8_putc := LoadLibCryptoFunction('UTF8_putc'); + if not assigned(UTF8_putc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UTF8_putc'); + Result := UTF8_putc(str,len,value); +end; + +function Load_ASN1_UTCTIME_new: PASN1_UTCTIME; cdecl; +begin + ASN1_UTCTIME_new := LoadLibCryptoFunction('ASN1_UTCTIME_new'); + if not assigned(ASN1_UTCTIME_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_UTCTIME_new'); + Result := ASN1_UTCTIME_new(); +end; + +procedure Load_ASN1_UTCTIME_free(a: PASN1_UTCTIME); cdecl; +begin + ASN1_UTCTIME_free := LoadLibCryptoFunction('ASN1_UTCTIME_free'); + if not assigned(ASN1_UTCTIME_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_UTCTIME_free'); + ASN1_UTCTIME_free(a); +end; + +function Load_d2i_ASN1_UTCTIME(a: PPASN1_UTCTIME; const in_: PPByte; len: TOpenSSL_C_LONG): PASN1_UTCTIME; cdecl; +begin + d2i_ASN1_UTCTIME := LoadLibCryptoFunction('d2i_ASN1_UTCTIME'); + if not assigned(d2i_ASN1_UTCTIME) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_ASN1_UTCTIME'); + Result := d2i_ASN1_UTCTIME(a,in_,len); +end; + +function Load_i2d_ASN1_UTCTIME(a: PASN1_UTCTIME; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_ASN1_UTCTIME := LoadLibCryptoFunction('i2d_ASN1_UTCTIME'); + if not assigned(i2d_ASN1_UTCTIME) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_ASN1_UTCTIME'); + Result := i2d_ASN1_UTCTIME(a,out_); +end; + +function Load_ASN1_GENERALIZEDTIME_new: PASN1_GENERALIZEDTIME; cdecl; +begin + ASN1_GENERALIZEDTIME_new := LoadLibCryptoFunction('ASN1_GENERALIZEDTIME_new'); + if not assigned(ASN1_GENERALIZEDTIME_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_GENERALIZEDTIME_new'); + Result := ASN1_GENERALIZEDTIME_new(); +end; + +procedure Load_ASN1_GENERALIZEDTIME_free(a: PASN1_GENERALIZEDTIME); cdecl; +begin + ASN1_GENERALIZEDTIME_free := LoadLibCryptoFunction('ASN1_GENERALIZEDTIME_free'); + if not assigned(ASN1_GENERALIZEDTIME_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_GENERALIZEDTIME_free'); + ASN1_GENERALIZEDTIME_free(a); +end; + +function Load_d2i_ASN1_GENERALIZEDTIME(a: PPASN1_GENERALIZEDTIME; const in_: PPByte; len: TOpenSSL_C_LONG): PASN1_GENERALIZEDTIME; cdecl; +begin + d2i_ASN1_GENERALIZEDTIME := LoadLibCryptoFunction('d2i_ASN1_GENERALIZEDTIME'); + if not assigned(d2i_ASN1_GENERALIZEDTIME) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_ASN1_GENERALIZEDTIME'); + Result := d2i_ASN1_GENERALIZEDTIME(a,in_,len); +end; + +function Load_i2d_ASN1_GENERALIZEDTIME(a: PASN1_GENERALIZEDTIME; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_ASN1_GENERALIZEDTIME := LoadLibCryptoFunction('i2d_ASN1_GENERALIZEDTIME'); + if not assigned(i2d_ASN1_GENERALIZEDTIME) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_ASN1_GENERALIZEDTIME'); + Result := i2d_ASN1_GENERALIZEDTIME(a,out_); +end; + +function Load_ASN1_TIME_new: PASN1_TIME; cdecl; +begin + ASN1_TIME_new := LoadLibCryptoFunction('ASN1_TIME_new'); + if not assigned(ASN1_TIME_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TIME_new'); + Result := ASN1_TIME_new(); +end; + +procedure Load_ASN1_TIME_free(a: PASN1_TIME); cdecl; +begin + ASN1_TIME_free := LoadLibCryptoFunction('ASN1_TIME_free'); + if not assigned(ASN1_TIME_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TIME_free'); + ASN1_TIME_free(a); +end; + +function Load_d2i_ASN1_TIME(a: PPASN1_TIME; const in_: PPByte; len: TOpenSSL_C_LONG): PASN1_TIME; cdecl; +begin + d2i_ASN1_TIME := LoadLibCryptoFunction('d2i_ASN1_TIME'); + if not assigned(d2i_ASN1_TIME) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_ASN1_TIME'); + Result := d2i_ASN1_TIME(a,in_,len); +end; + +function Load_i2d_ASN1_TIME(a: PASN1_TIME; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_ASN1_TIME := LoadLibCryptoFunction('i2d_ASN1_TIME'); + if not assigned(i2d_ASN1_TIME) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_ASN1_TIME'); + Result := i2d_ASN1_TIME(a,out_); +end; + +function Load_ASN1_TIME_set(s: PASN1_TIME; t: TOpenSSL_C_TIMET): PASN1_TIME; cdecl; +begin + ASN1_TIME_set := LoadLibCryptoFunction('ASN1_TIME_set'); + if not assigned(ASN1_TIME_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TIME_set'); + Result := ASN1_TIME_set(s,t); +end; + +function Load_ASN1_TIME_adj(s: PASN1_TIME; t: TOpenSSL_C_TIMET; offset_day: TOpenSSL_C_INT; offset_sec: TOpenSSL_C_LONG): PASN1_TIME; cdecl; +begin + ASN1_TIME_adj := LoadLibCryptoFunction('ASN1_TIME_adj'); + if not assigned(ASN1_TIME_adj) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TIME_adj'); + Result := ASN1_TIME_adj(s,t,offset_day,offset_sec); +end; + +function Load_ASN1_TIME_check(const t: PASN1_TIME): TOpenSSL_C_INT; cdecl; +begin + ASN1_TIME_check := LoadLibCryptoFunction('ASN1_TIME_check'); + if not assigned(ASN1_TIME_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TIME_check'); + Result := ASN1_TIME_check(t); +end; + +function Load_ASN1_TIME_to_generalizedtime(const t: PASN1_TIME; out_: PPASN1_GENERALIZEDTIME): PASN1_GENERALIZEDTIME; cdecl; +begin + ASN1_TIME_to_generalizedtime := LoadLibCryptoFunction('ASN1_TIME_to_generalizedtime'); + if not assigned(ASN1_TIME_to_generalizedtime) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TIME_to_generalizedtime'); + Result := ASN1_TIME_to_generalizedtime(t,out_); +end; + +function Load_ASN1_TIME_set_string(s: PASN1_TIME; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + ASN1_TIME_set_string := LoadLibCryptoFunction('ASN1_TIME_set_string'); + if not assigned(ASN1_TIME_set_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TIME_set_string'); + Result := ASN1_TIME_set_string(s,str); +end; + +function Load_ASN1_TIME_set_string_X509(s: PASN1_TIME; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + ASN1_TIME_set_string_X509 := LoadLibCryptoFunction('ASN1_TIME_set_string_X509'); + if not assigned(ASN1_TIME_set_string_X509) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TIME_set_string_X509'); + Result := ASN1_TIME_set_string_X509(s,str); +end; + +function Load_ASN1_TIME_to_tm(const s: PASN1_TIME; tm: POpenSSL_C_TM): TOpenSSL_C_INT; cdecl; +begin + ASN1_TIME_to_tm := LoadLibCryptoFunction('ASN1_TIME_to_tm'); + if not assigned(ASN1_TIME_to_tm) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TIME_to_tm'); + Result := ASN1_TIME_to_tm(s,tm); +end; + +function Load_ASN1_TIME_normalize(s: PASN1_TIME): TOpenSSL_C_INT; cdecl; +begin + ASN1_TIME_normalize := LoadLibCryptoFunction('ASN1_TIME_normalize'); + if not assigned(ASN1_TIME_normalize) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TIME_normalize'); + Result := ASN1_TIME_normalize(s); +end; + +function Load_ASN1_TIME_cmp_time_t(const s: PASN1_TIME; t: TOpenSSL_C_TIMET): TOpenSSL_C_INT; cdecl; +begin + ASN1_TIME_cmp_time_t := LoadLibCryptoFunction('ASN1_TIME_cmp_time_t'); + if not assigned(ASN1_TIME_cmp_time_t) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TIME_cmp_time_t'); + Result := ASN1_TIME_cmp_time_t(s,t); +end; + +function Load_ASN1_TIME_compare(const a: PASN1_TIME; const b: PASN1_TIME): TOpenSSL_C_INT; cdecl; +begin + ASN1_TIME_compare := LoadLibCryptoFunction('ASN1_TIME_compare'); + if not assigned(ASN1_TIME_compare) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TIME_compare'); + Result := ASN1_TIME_compare(a,b); +end; + +function Load_i2a_ASN1_INTEGER(bp: PBIO; const a: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + i2a_ASN1_INTEGER := LoadLibCryptoFunction('i2a_ASN1_INTEGER'); + if not assigned(i2a_ASN1_INTEGER) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2a_ASN1_INTEGER'); + Result := i2a_ASN1_INTEGER(bp,a); +end; + +function Load_a2i_ASN1_INTEGER(bp: PBIO; bs: PASN1_INTEGER; buf: PAnsiChar; size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + a2i_ASN1_INTEGER := LoadLibCryptoFunction('a2i_ASN1_INTEGER'); + if not assigned(a2i_ASN1_INTEGER) then + EOpenSSLAPIFunctionNotPresent.RaiseException('a2i_ASN1_INTEGER'); + Result := a2i_ASN1_INTEGER(bp,bs,buf,size); +end; + +function Load_i2a_ASN1_ENUMERATED(bp: PBIO; const a: PASN1_ENUMERATED): TOpenSSL_C_INT; cdecl; +begin + i2a_ASN1_ENUMERATED := LoadLibCryptoFunction('i2a_ASN1_ENUMERATED'); + if not assigned(i2a_ASN1_ENUMERATED) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2a_ASN1_ENUMERATED'); + Result := i2a_ASN1_ENUMERATED(bp,a); +end; + +function Load_a2i_ASN1_ENUMERATED(bp: PBIO; bs: PASN1_ENUMERATED; buf: PAnsiChar; size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + a2i_ASN1_ENUMERATED := LoadLibCryptoFunction('a2i_ASN1_ENUMERATED'); + if not assigned(a2i_ASN1_ENUMERATED) then + EOpenSSLAPIFunctionNotPresent.RaiseException('a2i_ASN1_ENUMERATED'); + Result := a2i_ASN1_ENUMERATED(bp,bs,buf,size); +end; + +function Load_i2a_ASN1_OBJECT(bp: PBIO; const a: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +begin + i2a_ASN1_OBJECT := LoadLibCryptoFunction('i2a_ASN1_OBJECT'); + if not assigned(i2a_ASN1_OBJECT) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2a_ASN1_OBJECT'); + Result := i2a_ASN1_OBJECT(bp,a); +end; + +function Load_a2i_ASN1_STRING(bp: PBIO; bs: PASN1_STRING; buf: PAnsiChar; size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + a2i_ASN1_STRING := LoadLibCryptoFunction('a2i_ASN1_STRING'); + if not assigned(a2i_ASN1_STRING) then + EOpenSSLAPIFunctionNotPresent.RaiseException('a2i_ASN1_STRING'); + Result := a2i_ASN1_STRING(bp,bs,buf,size); +end; + +function Load_i2a_ASN1_STRING(bp: PBIO; const a: PASN1_STRING; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + i2a_ASN1_STRING := LoadLibCryptoFunction('i2a_ASN1_STRING'); + if not assigned(i2a_ASN1_STRING) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2a_ASN1_STRING'); + Result := i2a_ASN1_STRING(bp,a,type_); +end; + +function Load_i2t_ASN1_OBJECT(buf: PAnsiChar; buf_len: TOpenSSL_C_INT; const a: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +begin + i2t_ASN1_OBJECT := LoadLibCryptoFunction('i2t_ASN1_OBJECT'); + if not assigned(i2t_ASN1_OBJECT) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2t_ASN1_OBJECT'); + Result := i2t_ASN1_OBJECT(buf,buf_len,a); +end; + +function Load_a2d_ASN1_OBJECT(out_: PByte; olen: TOpenSSL_C_INT; const buf: PAnsiChar; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + a2d_ASN1_OBJECT := LoadLibCryptoFunction('a2d_ASN1_OBJECT'); + if not assigned(a2d_ASN1_OBJECT) then + EOpenSSLAPIFunctionNotPresent.RaiseException('a2d_ASN1_OBJECT'); + Result := a2d_ASN1_OBJECT(out_,olen,buf,num); +end; + +function Load_ASN1_OBJECT_create(nid: TOpenSSL_C_INT; data: PByte; len: TOpenSSL_C_INT; const sn: PAnsiChar; const ln: PAnsiChar): PASN1_OBJECT; cdecl; +begin + ASN1_OBJECT_create := LoadLibCryptoFunction('ASN1_OBJECT_create'); + if not assigned(ASN1_OBJECT_create) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_OBJECT_create'); + Result := ASN1_OBJECT_create(nid,data,len,sn,ln); +end; + +function Load_ASN1_INTEGER_get_int64(pr: POpenSSL_C_Int64; const a: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + ASN1_INTEGER_get_int64 := LoadLibCryptoFunction('ASN1_INTEGER_get_int64'); + if not assigned(ASN1_INTEGER_get_int64) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_INTEGER_get_int64'); + Result := ASN1_INTEGER_get_int64(pr,a); +end; + +function Load_ASN1_INTEGER_set_int64(a: PASN1_INTEGER; r: TOpenSSL_C_Int64): TOpenSSL_C_INT; cdecl; +begin + ASN1_INTEGER_set_int64 := LoadLibCryptoFunction('ASN1_INTEGER_set_int64'); + if not assigned(ASN1_INTEGER_set_int64) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_INTEGER_set_int64'); + Result := ASN1_INTEGER_set_int64(a,r); +end; + +function Load_ASN1_INTEGER_get_uint64(pr: POpenSSL_C_UInt64; const a: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + ASN1_INTEGER_get_uint64 := LoadLibCryptoFunction('ASN1_INTEGER_get_uint64'); + if not assigned(ASN1_INTEGER_get_uint64) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_INTEGER_get_uint64'); + Result := ASN1_INTEGER_get_uint64(pr,a); +end; + +function Load_ASN1_INTEGER_set_uint64(a: PASN1_INTEGER; r: TOpenSSL_C_UInt64): TOpenSSL_C_INT; cdecl; +begin + ASN1_INTEGER_set_uint64 := LoadLibCryptoFunction('ASN1_INTEGER_set_uint64'); + if not assigned(ASN1_INTEGER_set_uint64) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_INTEGER_set_uint64'); + Result := ASN1_INTEGER_set_uint64(a,r); +end; + +function Load_ASN1_INTEGER_set(a: PASN1_INTEGER; v: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + ASN1_INTEGER_set := LoadLibCryptoFunction('ASN1_INTEGER_set'); + if not assigned(ASN1_INTEGER_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_INTEGER_set'); + Result := ASN1_INTEGER_set(a,v); +end; + +function Load_ASN1_INTEGER_get(const a: PASN1_INTEGER): TOpenSSL_C_LONG; cdecl; +begin + ASN1_INTEGER_get := LoadLibCryptoFunction('ASN1_INTEGER_get'); + if not assigned(ASN1_INTEGER_get) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_INTEGER_get'); + Result := ASN1_INTEGER_get(a); +end; + +function Load_BN_to_ASN1_INTEGER(const bn: PBIGNUM; ai: PASN1_INTEGER): PASN1_INTEGER; cdecl; +begin + BN_to_ASN1_INTEGER := LoadLibCryptoFunction('BN_to_ASN1_INTEGER'); + if not assigned(BN_to_ASN1_INTEGER) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_to_ASN1_INTEGER'); + Result := BN_to_ASN1_INTEGER(bn,ai); +end; + +function Load_ASN1_INTEGER_to_BN(const ai: PASN1_INTEGER; bn: PBIGNUM): PBIGNUM; cdecl; +begin + ASN1_INTEGER_to_BN := LoadLibCryptoFunction('ASN1_INTEGER_to_BN'); + if not assigned(ASN1_INTEGER_to_BN) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_INTEGER_to_BN'); + Result := ASN1_INTEGER_to_BN(ai,bn); +end; + +function Load_ASN1_ENUMERATED_get_int64(pr: POpenSSL_C_Int64; const a: PASN1_ENUMERATED): TOpenSSL_C_INT; cdecl; +begin + ASN1_ENUMERATED_get_int64 := LoadLibCryptoFunction('ASN1_ENUMERATED_get_int64'); + if not assigned(ASN1_ENUMERATED_get_int64) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_ENUMERATED_get_int64'); + Result := ASN1_ENUMERATED_get_int64(pr,a); +end; + +function Load_ASN1_ENUMERATED_set_int64(a: PASN1_ENUMERATED; r: TOpenSSL_C_Int64): TOpenSSL_C_INT; cdecl; +begin + ASN1_ENUMERATED_set_int64 := LoadLibCryptoFunction('ASN1_ENUMERATED_set_int64'); + if not assigned(ASN1_ENUMERATED_set_int64) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_ENUMERATED_set_int64'); + Result := ASN1_ENUMERATED_set_int64(a,r); +end; + +function Load_ASN1_ENUMERATED_set(a: PASN1_ENUMERATED; v: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + ASN1_ENUMERATED_set := LoadLibCryptoFunction('ASN1_ENUMERATED_set'); + if not assigned(ASN1_ENUMERATED_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_ENUMERATED_set'); + Result := ASN1_ENUMERATED_set(a,v); +end; + +function Load_ASN1_ENUMERATED_get(const a: PASN1_ENUMERATED): TOpenSSL_C_LONG; cdecl; +begin + ASN1_ENUMERATED_get := LoadLibCryptoFunction('ASN1_ENUMERATED_get'); + if not assigned(ASN1_ENUMERATED_get) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_ENUMERATED_get'); + Result := ASN1_ENUMERATED_get(a); +end; + +function Load_BN_to_ASN1_ENUMERATED(const bn: PBIGNUM; ai: PASN1_ENUMERATED): PASN1_ENUMERATED; cdecl; +begin + BN_to_ASN1_ENUMERATED := LoadLibCryptoFunction('BN_to_ASN1_ENUMERATED'); + if not assigned(BN_to_ASN1_ENUMERATED) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_to_ASN1_ENUMERATED'); + Result := BN_to_ASN1_ENUMERATED(bn,ai); +end; + +function Load_ASN1_ENUMERATED_to_BN(const ai: PASN1_ENUMERATED; bn: PBIGNUM): PBIGNUM; cdecl; +begin + ASN1_ENUMERATED_to_BN := LoadLibCryptoFunction('ASN1_ENUMERATED_to_BN'); + if not assigned(ASN1_ENUMERATED_to_BN) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_ENUMERATED_to_BN'); + Result := ASN1_ENUMERATED_to_BN(ai,bn); +end; + +function Load_ASN1_PRINTABLE_type(const s: PByte; max: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_PRINTABLE_type := LoadLibCryptoFunction('ASN1_PRINTABLE_type'); + if not assigned(ASN1_PRINTABLE_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_PRINTABLE_type'); + Result := ASN1_PRINTABLE_type(s,max); +end; + +function Load_ASN1_tag2bit(tag: TOpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; +begin + ASN1_tag2bit := LoadLibCryptoFunction('ASN1_tag2bit'); + if not assigned(ASN1_tag2bit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_tag2bit'); + Result := ASN1_tag2bit(tag); +end; + +function Load_ASN1_get_object(const pp: PPByte; plength: POpenSSL_C_LONG; ptag: POpenSSL_C_INT; pclass: POpenSSL_C_INT; omax: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + ASN1_get_object := LoadLibCryptoFunction('ASN1_get_object'); + if not assigned(ASN1_get_object) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_get_object'); + Result := ASN1_get_object(pp,plength,ptag,pclass,omax); +end; + +function Load_ASN1_check_infinite_end(p: PPByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + ASN1_check_infinite_end := LoadLibCryptoFunction('ASN1_check_infinite_end'); + if not assigned(ASN1_check_infinite_end) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_check_infinite_end'); + Result := ASN1_check_infinite_end(p,len); +end; + +function Load_ASN1_const_check_infinite_end(const p: PPByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + ASN1_const_check_infinite_end := LoadLibCryptoFunction('ASN1_const_check_infinite_end'); + if not assigned(ASN1_const_check_infinite_end) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_const_check_infinite_end'); + Result := ASN1_const_check_infinite_end(p,len); +end; + +procedure Load_ASN1_put_object(pp: PPByte; constructed: TOpenSSL_C_INT; length: TOpenSSL_C_INT; tag: TOpenSSL_C_INT; xclass: TOpenSSL_C_INT); cdecl; +begin + ASN1_put_object := LoadLibCryptoFunction('ASN1_put_object'); + if not assigned(ASN1_put_object) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_put_object'); + ASN1_put_object(pp,constructed,length,tag,xclass); +end; + +function Load_ASN1_put_eoc(pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + ASN1_put_eoc := LoadLibCryptoFunction('ASN1_put_eoc'); + if not assigned(ASN1_put_eoc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_put_eoc'); + Result := ASN1_put_eoc(pp); +end; + +function Load_ASN1_object_size(constructed: TOpenSSL_C_INT; length: TOpenSSL_C_INT; tag: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_object_size := LoadLibCryptoFunction('ASN1_object_size'); + if not assigned(ASN1_object_size) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_object_size'); + Result := ASN1_object_size(constructed,length,tag); +end; + +function Load_ASN1_item_dup(const it: PASN1_ITEM; x: Pointer): Pointer; cdecl; +begin + ASN1_item_dup := LoadLibCryptoFunction('ASN1_item_dup'); + if not assigned(ASN1_item_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_dup'); + Result := ASN1_item_dup(it,x); +end; + +function Load_ASN1_STRING_to_UTF8(out_: PPByte; const in_: PASN1_STRING): TOpenSSL_C_INT; cdecl; +begin + ASN1_STRING_to_UTF8 := LoadLibCryptoFunction('ASN1_STRING_to_UTF8'); + if not assigned(ASN1_STRING_to_UTF8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_to_UTF8'); + Result := ASN1_STRING_to_UTF8(out_,in_); +end; + +function Load_ASN1_d2i_bio(xnew: pxnew; d2i: pd2i_of_void; in_: PBIO; x: PPointer): Pointer; cdecl; +begin + ASN1_d2i_bio := LoadLibCryptoFunction('ASN1_d2i_bio'); + if not assigned(ASN1_d2i_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_d2i_bio'); + Result := ASN1_d2i_bio(xnew,d2i,in_,x); +end; + +function Load_ASN1_item_d2i_bio(const it: PASN1_ITEM; in_: PBIO; x: Pointer): Pointer; cdecl; +begin + ASN1_item_d2i_bio := LoadLibCryptoFunction('ASN1_item_d2i_bio'); + if not assigned(ASN1_item_d2i_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_d2i_bio'); + Result := ASN1_item_d2i_bio(it,in_,x); +end; + +function Load_ASN1_i2d_bio(i2d: Pi2d_of_void; out_: PBIO; x: PByte): TOpenSSL_C_INT; cdecl; +begin + ASN1_i2d_bio := LoadLibCryptoFunction('ASN1_i2d_bio'); + if not assigned(ASN1_i2d_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_i2d_bio'); + Result := ASN1_i2d_bio(i2d,out_,x); +end; + +function Load_ASN1_item_i2d_bio(const it: PASN1_ITEM; out_: PBIO; x: Pointer): TOpenSSL_C_INT; cdecl; +begin + ASN1_item_i2d_bio := LoadLibCryptoFunction('ASN1_item_i2d_bio'); + if not assigned(ASN1_item_i2d_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_i2d_bio'); + Result := ASN1_item_i2d_bio(it,out_,x); +end; + +function Load_ASN1_UTCTIME_print(fp: PBIO; const a: PASN1_UTCTIME): TOpenSSL_C_INT; cdecl; +begin + ASN1_UTCTIME_print := LoadLibCryptoFunction('ASN1_UTCTIME_print'); + if not assigned(ASN1_UTCTIME_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_UTCTIME_print'); + Result := ASN1_UTCTIME_print(fp,a); +end; + +function Load_ASN1_GENERALIZEDTIME_print(fp: PBIO; const a: PASN1_GENERALIZEDTIME): TOpenSSL_C_INT; cdecl; +begin + ASN1_GENERALIZEDTIME_print := LoadLibCryptoFunction('ASN1_GENERALIZEDTIME_print'); + if not assigned(ASN1_GENERALIZEDTIME_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_GENERALIZEDTIME_print'); + Result := ASN1_GENERALIZEDTIME_print(fp,a); +end; + +function Load_ASN1_TIME_print(fp: PBIO; const a: PASN1_TIME): TOpenSSL_C_INT; cdecl; +begin + ASN1_TIME_print := LoadLibCryptoFunction('ASN1_TIME_print'); + if not assigned(ASN1_TIME_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TIME_print'); + Result := ASN1_TIME_print(fp,a); +end; + +function Load_ASN1_STRING_print(bp: PBIO; const v: PASN1_STRING): TOpenSSL_C_INT; cdecl; +begin + ASN1_STRING_print := LoadLibCryptoFunction('ASN1_STRING_print'); + if not assigned(ASN1_STRING_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_print'); + Result := ASN1_STRING_print(bp,v); +end; + +function Load_ASN1_STRING_print_ex(out_: PBIO; const str: PASN1_STRING; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + ASN1_STRING_print_ex := LoadLibCryptoFunction('ASN1_STRING_print_ex'); + if not assigned(ASN1_STRING_print_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_print_ex'); + Result := ASN1_STRING_print_ex(out_,str,flags); +end; + +function Load_ASN1_buf_print(bp: PBIO; const buf: PByte; buflen: TOpenSSL_C_SIZET; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_buf_print := LoadLibCryptoFunction('ASN1_buf_print'); + if not assigned(ASN1_buf_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_buf_print'); + Result := ASN1_buf_print(bp,buf,buflen,off); +end; + +function Load_ASN1_bn_print(bp: PBIO; const number: PAnsiChar; const num: PBIGNUM; buf: PByte; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_bn_print := LoadLibCryptoFunction('ASN1_bn_print'); + if not assigned(ASN1_bn_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_bn_print'); + Result := ASN1_bn_print(bp,number,num,buf,off); +end; + +function Load_ASN1_parse(bp: PBIO; const pp: PByte; len: TOpenSSL_C_LONG; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_parse := LoadLibCryptoFunction('ASN1_parse'); + if not assigned(ASN1_parse) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_parse'); + Result := ASN1_parse(bp,pp,len,indent); +end; + +function Load_ASN1_parse_dump(bp: PPBIO; const pp: PByte; len: TOpenSSL_C_LONG; indent: TOpenSSL_C_INT; dump: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_parse_dump := LoadLibCryptoFunction('ASN1_parse_dump'); + if not assigned(ASN1_parse_dump) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_parse_dump'); + Result := ASN1_parse_dump(bp,pp,len,indent,dump); +end; + +function Load_ASN1_tag2str(tag: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + ASN1_tag2str := LoadLibCryptoFunction('ASN1_tag2str'); + if not assigned(ASN1_tag2str) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_tag2str'); + Result := ASN1_tag2str(tag); +end; + +function Load_ASN1_UNIVERSALSTRING_to_string(s: PASN1_UNIVERSALSTRING): TOpenSSL_C_INT; cdecl; +begin + ASN1_UNIVERSALSTRING_to_string := LoadLibCryptoFunction('ASN1_UNIVERSALSTRING_to_string'); + if not assigned(ASN1_UNIVERSALSTRING_to_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_UNIVERSALSTRING_to_string'); + Result := ASN1_UNIVERSALSTRING_to_string(s); +end; + +function Load_ASN1_TYPE_set_octetstring(a: PASN1_TYPE; data: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_TYPE_set_octetstring := LoadLibCryptoFunction('ASN1_TYPE_set_octetstring'); + if not assigned(ASN1_TYPE_set_octetstring) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TYPE_set_octetstring'); + Result := ASN1_TYPE_set_octetstring(a,data,len); +end; + +function Load_ASN1_TYPE_get_octetstring(const a: PASN1_TYPE; data: PByte; max_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_TYPE_get_octetstring := LoadLibCryptoFunction('ASN1_TYPE_get_octetstring'); + if not assigned(ASN1_TYPE_get_octetstring) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TYPE_get_octetstring'); + Result := ASN1_TYPE_get_octetstring(a,data,max_len); +end; + +function Load_ASN1_TYPE_set_int_octetstring(a: PASN1_TYPE; num: TOpenSSL_C_LONG; data: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_TYPE_set_int_octetstring := LoadLibCryptoFunction('ASN1_TYPE_set_int_octetstring'); + if not assigned(ASN1_TYPE_set_int_octetstring) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TYPE_set_int_octetstring'); + Result := ASN1_TYPE_set_int_octetstring(a,num,data,len); +end; + +function Load_ASN1_TYPE_get_int_octetstring(const a: PASN1_TYPE; num: POpenSSL_C_LONG; data: PByte; max_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_TYPE_get_int_octetstring := LoadLibCryptoFunction('ASN1_TYPE_get_int_octetstring'); + if not assigned(ASN1_TYPE_get_int_octetstring) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_TYPE_get_int_octetstring'); + Result := ASN1_TYPE_get_int_octetstring(a,num,data,max_len); +end; + +function Load_ASN1_item_unpack(const oct: PASN1_STRING; const it: PASN1_ITEM): Pointer; cdecl; +begin + ASN1_item_unpack := LoadLibCryptoFunction('ASN1_item_unpack'); + if not assigned(ASN1_item_unpack) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_unpack'); + Result := ASN1_item_unpack(oct,it); +end; + +function Load_ASN1_item_pack(obj: Pointer; const it: PASN1_ITEM; oct: PPASN1_OCTET_STRING): PASN1_STRING; cdecl; +begin + ASN1_item_pack := LoadLibCryptoFunction('ASN1_item_pack'); + if not assigned(ASN1_item_pack) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_pack'); + Result := ASN1_item_pack(obj,it,oct); +end; + +procedure Load_ASN1_STRING_set_default_mask(mask: TOpenSSL_C_ULONG); cdecl; +begin + ASN1_STRING_set_default_mask := LoadLibCryptoFunction('ASN1_STRING_set_default_mask'); + if not assigned(ASN1_STRING_set_default_mask) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_set_default_mask'); + ASN1_STRING_set_default_mask(mask); +end; + +function Load_ASN1_STRING_set_default_mask_asc(const p: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + ASN1_STRING_set_default_mask_asc := LoadLibCryptoFunction('ASN1_STRING_set_default_mask_asc'); + if not assigned(ASN1_STRING_set_default_mask_asc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_set_default_mask_asc'); + Result := ASN1_STRING_set_default_mask_asc(p); +end; + +function Load_ASN1_STRING_get_default_mask: TOpenSSL_C_ULONG; cdecl; +begin + ASN1_STRING_get_default_mask := LoadLibCryptoFunction('ASN1_STRING_get_default_mask'); + if not assigned(ASN1_STRING_get_default_mask) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_get_default_mask'); + Result := ASN1_STRING_get_default_mask(); +end; + +function Load_ASN1_mbstring_copy(out_: PPASN1_STRING; const in_: PByte; len: TOpenSSL_C_INT; inform: TOpenSSL_C_INT; mask: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + ASN1_mbstring_copy := LoadLibCryptoFunction('ASN1_mbstring_copy'); + if not assigned(ASN1_mbstring_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_mbstring_copy'); + Result := ASN1_mbstring_copy(out_,in_,len,inform,mask); +end; + +function Load_ASN1_mbstring_ncopy(out_: PPASN1_STRING; const in_: PByte; len: TOpenSSL_C_INT; inform: TOpenSSL_C_INT; mask: TOpenSSL_C_ULONG; minsize: TOpenSSL_C_LONG; maxsize: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + ASN1_mbstring_ncopy := LoadLibCryptoFunction('ASN1_mbstring_ncopy'); + if not assigned(ASN1_mbstring_ncopy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_mbstring_ncopy'); + Result := ASN1_mbstring_ncopy(out_,in_,len,inform,mask,minsize,maxsize); +end; + +function Load_ASN1_STRING_set_by_NID(out_: PPASN1_STRING; const in_: PByte; inlen: TOpenSSL_C_INT; inform: TOpenSSL_C_INT; nid: TOpenSSL_C_INT): PASN1_STRING; cdecl; +begin + ASN1_STRING_set_by_NID := LoadLibCryptoFunction('ASN1_STRING_set_by_NID'); + if not assigned(ASN1_STRING_set_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_set_by_NID'); + Result := ASN1_STRING_set_by_NID(out_,in_,inlen,inform,nid); +end; + +function Load_ASN1_STRING_TABLE_get(nid: TOpenSSL_C_INT): PASN1_STRING_TABLE; cdecl; +begin + ASN1_STRING_TABLE_get := LoadLibCryptoFunction('ASN1_STRING_TABLE_get'); + if not assigned(ASN1_STRING_TABLE_get) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_TABLE_get'); + Result := ASN1_STRING_TABLE_get(nid); +end; + +function Load_ASN1_STRING_TABLE_add(v1: TOpenSSL_C_INT; v2: TOpenSSL_C_LONG; v3: TOpenSSL_C_LONG; v4: TOpenSSL_C_ULONG; v5: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + ASN1_STRING_TABLE_add := LoadLibCryptoFunction('ASN1_STRING_TABLE_add'); + if not assigned(ASN1_STRING_TABLE_add) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_TABLE_add'); + Result := ASN1_STRING_TABLE_add(v1,v2,v3,v4,v5); +end; + +procedure Load_ASN1_STRING_TABLE_cleanup; cdecl; +begin + ASN1_STRING_TABLE_cleanup := LoadLibCryptoFunction('ASN1_STRING_TABLE_cleanup'); + if not assigned(ASN1_STRING_TABLE_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_STRING_TABLE_cleanup'); + ASN1_STRING_TABLE_cleanup(); +end; + +function Load_ASN1_item_new(const it: PASN1_ITEM): PASN1_VALUE; cdecl; +begin + ASN1_item_new := LoadLibCryptoFunction('ASN1_item_new'); + if not assigned(ASN1_item_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_new'); + Result := ASN1_item_new(it); +end; + +procedure Load_ASN1_item_free(val: PASN1_VALUE; const it: PASN1_ITEM); cdecl; +begin + ASN1_item_free := LoadLibCryptoFunction('ASN1_item_free'); + if not assigned(ASN1_item_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_free'); + ASN1_item_free(val,it); +end; + +function Load_ASN1_item_d2i(val: PPASN1_VALUE; const in_: PPByte; len: TOpenSSL_C_LONG; const it: PASN1_ITEM): PASN1_VALUE; cdecl; +begin + ASN1_item_d2i := LoadLibCryptoFunction('ASN1_item_d2i'); + if not assigned(ASN1_item_d2i) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_d2i'); + Result := ASN1_item_d2i(val,in_,len,it); +end; + +function Load_ASN1_item_i2d(val: PASN1_VALUE; out_: PPByte; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl; +begin + ASN1_item_i2d := LoadLibCryptoFunction('ASN1_item_i2d'); + if not assigned(ASN1_item_i2d) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_i2d'); + Result := ASN1_item_i2d(val,out_,it); +end; + +function Load_ASN1_item_ndef_i2d(val: PASN1_VALUE; out_: PPByte; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl; +begin + ASN1_item_ndef_i2d := LoadLibCryptoFunction('ASN1_item_ndef_i2d'); + if not assigned(ASN1_item_ndef_i2d) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_ndef_i2d'); + Result := ASN1_item_ndef_i2d(val,out_,it); +end; + +procedure Load_ASN1_add_oid_module; cdecl; +begin + ASN1_add_oid_module := LoadLibCryptoFunction('ASN1_add_oid_module'); + if not assigned(ASN1_add_oid_module) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_add_oid_module'); + ASN1_add_oid_module(); +end; + +procedure Load_ASN1_add_stable_module; cdecl; +begin + ASN1_add_stable_module := LoadLibCryptoFunction('ASN1_add_stable_module'); + if not assigned(ASN1_add_stable_module) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_add_stable_module'); + ASN1_add_stable_module(); +end; + +function Load_ASN1_generate_nconf(const str: PAnsiChar; nconf: PCONF): PASN1_TYPE; cdecl; +begin + ASN1_generate_nconf := LoadLibCryptoFunction('ASN1_generate_nconf'); + if not assigned(ASN1_generate_nconf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_generate_nconf'); + Result := ASN1_generate_nconf(str,nconf); +end; + +function Load_ASN1_generate_v3(const str: PAnsiChar; cnf: PX509V3_CTX): PASN1_TYPE; cdecl; +begin + ASN1_generate_v3 := LoadLibCryptoFunction('ASN1_generate_v3'); + if not assigned(ASN1_generate_v3) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_generate_v3'); + Result := ASN1_generate_v3(str,cnf); +end; + +function Load_ASN1_str2mask(const str: PByte; pmask: POpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + ASN1_str2mask := LoadLibCryptoFunction('ASN1_str2mask'); + if not assigned(ASN1_str2mask) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_str2mask'); + Result := ASN1_str2mask(str,pmask); +end; + +function Load_ASN1_item_print(out_: PBIO; ifld: PASN1_VALUE; indent: TOpenSSL_C_INT; const it: PASN1_ITEM; const pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl; +begin + ASN1_item_print := LoadLibCryptoFunction('ASN1_item_print'); + if not assigned(ASN1_item_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_print'); + Result := ASN1_item_print(out_,ifld,indent,it,pctx); +end; + +function Load_ASN1_PCTX_new: PASN1_PCTX; cdecl; +begin + ASN1_PCTX_new := LoadLibCryptoFunction('ASN1_PCTX_new'); + if not assigned(ASN1_PCTX_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_PCTX_new'); + Result := ASN1_PCTX_new(); +end; + +procedure Load_ASN1_PCTX_free(p: PASN1_PCTX); cdecl; +begin + ASN1_PCTX_free := LoadLibCryptoFunction('ASN1_PCTX_free'); + if not assigned(ASN1_PCTX_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_PCTX_free'); + ASN1_PCTX_free(p); +end; + +function Load_ASN1_PCTX_get_flags(const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl; +begin + ASN1_PCTX_get_flags := LoadLibCryptoFunction('ASN1_PCTX_get_flags'); + if not assigned(ASN1_PCTX_get_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_PCTX_get_flags'); + Result := ASN1_PCTX_get_flags(p); +end; + +procedure Load_ASN1_PCTX_set_flags(p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl; +begin + ASN1_PCTX_set_flags := LoadLibCryptoFunction('ASN1_PCTX_set_flags'); + if not assigned(ASN1_PCTX_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_PCTX_set_flags'); + ASN1_PCTX_set_flags(p,flags); +end; + +function Load_ASN1_PCTX_get_nm_flags(const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl; +begin + ASN1_PCTX_get_nm_flags := LoadLibCryptoFunction('ASN1_PCTX_get_nm_flags'); + if not assigned(ASN1_PCTX_get_nm_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_PCTX_get_nm_flags'); + Result := ASN1_PCTX_get_nm_flags(p); +end; + +procedure Load_ASN1_PCTX_set_nm_flags(p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl; +begin + ASN1_PCTX_set_nm_flags := LoadLibCryptoFunction('ASN1_PCTX_set_nm_flags'); + if not assigned(ASN1_PCTX_set_nm_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_PCTX_set_nm_flags'); + ASN1_PCTX_set_nm_flags(p,flags); +end; + +function Load_ASN1_PCTX_get_cert_flags(const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl; +begin + ASN1_PCTX_get_cert_flags := LoadLibCryptoFunction('ASN1_PCTX_get_cert_flags'); + if not assigned(ASN1_PCTX_get_cert_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_PCTX_get_cert_flags'); + Result := ASN1_PCTX_get_cert_flags(p); +end; + +procedure Load_ASN1_PCTX_set_cert_flags(p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl; +begin + ASN1_PCTX_set_cert_flags := LoadLibCryptoFunction('ASN1_PCTX_set_cert_flags'); + if not assigned(ASN1_PCTX_set_cert_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_PCTX_set_cert_flags'); + ASN1_PCTX_set_cert_flags(p,flags); +end; + +function Load_ASN1_PCTX_get_oid_flags(const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl; +begin + ASN1_PCTX_get_oid_flags := LoadLibCryptoFunction('ASN1_PCTX_get_oid_flags'); + if not assigned(ASN1_PCTX_get_oid_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_PCTX_get_oid_flags'); + Result := ASN1_PCTX_get_oid_flags(p); +end; + +procedure Load_ASN1_PCTX_set_oid_flags(p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl; +begin + ASN1_PCTX_set_oid_flags := LoadLibCryptoFunction('ASN1_PCTX_set_oid_flags'); + if not assigned(ASN1_PCTX_set_oid_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_PCTX_set_oid_flags'); + ASN1_PCTX_set_oid_flags(p,flags); +end; + +function Load_ASN1_PCTX_get_str_flags(const p: PASN1_PCTX): TOpenSSL_C_ULONG; cdecl; +begin + ASN1_PCTX_get_str_flags := LoadLibCryptoFunction('ASN1_PCTX_get_str_flags'); + if not assigned(ASN1_PCTX_get_str_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_PCTX_get_str_flags'); + Result := ASN1_PCTX_get_str_flags(p); +end; + +procedure Load_ASN1_PCTX_set_str_flags(p: PASN1_PCTX; flags: TOpenSSL_C_ULONG); cdecl; +begin + ASN1_PCTX_set_str_flags := LoadLibCryptoFunction('ASN1_PCTX_set_str_flags'); + if not assigned(ASN1_PCTX_set_str_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_PCTX_set_str_flags'); + ASN1_PCTX_set_str_flags(p,flags); +end; + +procedure Load_ASN1_SCTX_free(p: PASN1_SCTX); cdecl; +begin + ASN1_SCTX_free := LoadLibCryptoFunction('ASN1_SCTX_free'); + if not assigned(ASN1_SCTX_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_SCTX_free'); + ASN1_SCTX_free(p); +end; + +function Load_ASN1_SCTX_get_item(p: PASN1_SCTX): PASN1_ITEM; cdecl; +begin + ASN1_SCTX_get_item := LoadLibCryptoFunction('ASN1_SCTX_get_item'); + if not assigned(ASN1_SCTX_get_item) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_SCTX_get_item'); + Result := ASN1_SCTX_get_item(p); +end; + +function Load_ASN1_SCTX_get_template(p: PASN1_SCTX): PASN1_TEMPLATE; cdecl; +begin + ASN1_SCTX_get_template := LoadLibCryptoFunction('ASN1_SCTX_get_template'); + if not assigned(ASN1_SCTX_get_template) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_SCTX_get_template'); + Result := ASN1_SCTX_get_template(p); +end; + +function Load_ASN1_SCTX_get_flags(p: PASN1_SCTX): TOpenSSL_C_ULONG; cdecl; +begin + ASN1_SCTX_get_flags := LoadLibCryptoFunction('ASN1_SCTX_get_flags'); + if not assigned(ASN1_SCTX_get_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_SCTX_get_flags'); + Result := ASN1_SCTX_get_flags(p); +end; + +procedure Load_ASN1_SCTX_set_app_data(p: PASN1_SCTX; data: Pointer); cdecl; +begin + ASN1_SCTX_set_app_data := LoadLibCryptoFunction('ASN1_SCTX_set_app_data'); + if not assigned(ASN1_SCTX_set_app_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_SCTX_set_app_data'); + ASN1_SCTX_set_app_data(p,data); +end; + +function Load_ASN1_SCTX_get_app_data(p: PASN1_SCTX): Pointer; cdecl; +begin + ASN1_SCTX_get_app_data := LoadLibCryptoFunction('ASN1_SCTX_get_app_data'); + if not assigned(ASN1_SCTX_get_app_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_SCTX_get_app_data'); + Result := ASN1_SCTX_get_app_data(p); +end; + +function Load_BIO_f_asn1: PBIO_METHOD; cdecl; +begin + BIO_f_asn1 := LoadLibCryptoFunction('BIO_f_asn1'); + if not assigned(BIO_f_asn1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_f_asn1'); + Result := BIO_f_asn1(); +end; + +function Load_BIO_new_NDEF(out_: PBIO; val: PASN1_VALUE; const it: PASN1_ITEM): PBIO; cdecl; +begin + BIO_new_NDEF := LoadLibCryptoFunction('BIO_new_NDEF'); + if not assigned(BIO_new_NDEF) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_new_NDEF'); + Result := BIO_new_NDEF(out_,val,it); +end; + +function Load_i2d_ASN1_bio_stream(out_: PBIO; val: PASN1_VALUE; in_: PBIO; flags: TOpenSSL_C_INT; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl; +begin + i2d_ASN1_bio_stream := LoadLibCryptoFunction('i2d_ASN1_bio_stream'); + if not assigned(i2d_ASN1_bio_stream) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_ASN1_bio_stream'); + Result := i2d_ASN1_bio_stream(out_,val,in_,flags,it); +end; + +function Load_PEM_write_bio_ASN1_stream(out_: PBIO; val: PASN1_VALUE; in_: PBIO; flags: TOpenSSL_C_INT; const hdr: PAnsiChar; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_ASN1_stream := LoadLibCryptoFunction('PEM_write_bio_ASN1_stream'); + if not assigned(PEM_write_bio_ASN1_stream) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_ASN1_stream'); + Result := PEM_write_bio_ASN1_stream(out_,val,in_,flags,hdr,it); +end; + +function Load_SMIME_read_ASN1(bio: PBIO; bcont: PPBIO; const it: PASN1_ITEM): PASN1_VALUE; cdecl; +begin + SMIME_read_ASN1 := LoadLibCryptoFunction('SMIME_read_ASN1'); + if not assigned(SMIME_read_ASN1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SMIME_read_ASN1'); + Result := SMIME_read_ASN1(bio,bcont,it); +end; + +function Load_SMIME_crlf_copy(in_: PBIO; out_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SMIME_crlf_copy := LoadLibCryptoFunction('SMIME_crlf_copy'); + if not assigned(SMIME_crlf_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SMIME_crlf_copy'); + Result := SMIME_crlf_copy(in_,out_,flags); +end; + +function Load_SMIME_text(in_: PBIO; out_: PBIO): TOpenSSL_C_INT; cdecl; +begin + SMIME_text := LoadLibCryptoFunction('SMIME_text'); + if not assigned(SMIME_text) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SMIME_text'); + Result := SMIME_text(in_,out_); +end; + +function Load_ASN1_ITEM_lookup(const name: PAnsiChar): PASN1_ITEM; cdecl; +begin + ASN1_ITEM_lookup := LoadLibCryptoFunction('ASN1_ITEM_lookup'); + if not assigned(ASN1_ITEM_lookup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_ITEM_lookup'); + Result := ASN1_ITEM_lookup(name); +end; + +function Load_ASN1_ITEM_get(i: TOpenSSL_C_SIZET): PASN1_ITEM; cdecl; +begin + ASN1_ITEM_get := LoadLibCryptoFunction('ASN1_ITEM_get'); + if not assigned(ASN1_ITEM_get) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_ITEM_get'); + Result := ASN1_ITEM_get(i); +end; + + +procedure UnLoad; +begin + ASN1_TYPE_get := Load_ASN1_TYPE_get; + ASN1_TYPE_set := Load_ASN1_TYPE_set; + ASN1_TYPE_set1 := Load_ASN1_TYPE_set1; + ASN1_TYPE_cmp := Load_ASN1_TYPE_cmp; + ASN1_TYPE_pack_sequence := Load_ASN1_TYPE_pack_sequence; + ASN1_TYPE_unpack_sequence := Load_ASN1_TYPE_unpack_sequence; + ASN1_OBJECT_new := Load_ASN1_OBJECT_new; + ASN1_OBJECT_free := Load_ASN1_OBJECT_free; + i2d_ASN1_OBJECT := Load_i2d_ASN1_OBJECT; + d2i_ASN1_OBJECT := Load_d2i_ASN1_OBJECT; + ASN1_STRING_new := Load_ASN1_STRING_new; + ASN1_STRING_free := Load_ASN1_STRING_free; + ASN1_STRING_clear_free := Load_ASN1_STRING_clear_free; + ASN1_STRING_copy := Load_ASN1_STRING_copy; + ASN1_STRING_dup := Load_ASN1_STRING_dup; + ASN1_STRING_type_new := Load_ASN1_STRING_type_new; + ASN1_STRING_cmp := Load_ASN1_STRING_cmp; + ASN1_STRING_set := Load_ASN1_STRING_set; + ASN1_STRING_set0 := Load_ASN1_STRING_set0; + ASN1_STRING_length := Load_ASN1_STRING_length; + ASN1_STRING_length_set := Load_ASN1_STRING_length_set; + ASN1_STRING_type := Load_ASN1_STRING_type; + ASN1_STRING_get0_data := Load_ASN1_STRING_get0_data; + ASN1_BIT_STRING_set := Load_ASN1_BIT_STRING_set; + ASN1_BIT_STRING_set_bit := Load_ASN1_BIT_STRING_set_bit; + ASN1_BIT_STRING_get_bit := Load_ASN1_BIT_STRING_get_bit; + ASN1_BIT_STRING_check := Load_ASN1_BIT_STRING_check; + ASN1_BIT_STRING_name_print := Load_ASN1_BIT_STRING_name_print; + ASN1_BIT_STRING_num_asc := Load_ASN1_BIT_STRING_num_asc; + ASN1_BIT_STRING_set_asc := Load_ASN1_BIT_STRING_set_asc; + ASN1_INTEGER_new := Load_ASN1_INTEGER_new; + ASN1_INTEGER_free := Load_ASN1_INTEGER_free; + d2i_ASN1_INTEGER := Load_d2i_ASN1_INTEGER; + i2d_ASN1_INTEGER := Load_i2d_ASN1_INTEGER; + d2i_ASN1_UINTEGER := Load_d2i_ASN1_UINTEGER; + ASN1_INTEGER_dup := Load_ASN1_INTEGER_dup; + ASN1_INTEGER_cmp := Load_ASN1_INTEGER_cmp; + ASN1_UTCTIME_check := Load_ASN1_UTCTIME_check; + ASN1_UTCTIME_set := Load_ASN1_UTCTIME_set; + ASN1_UTCTIME_adj := Load_ASN1_UTCTIME_adj; + ASN1_UTCTIME_set_string := Load_ASN1_UTCTIME_set_string; + ASN1_UTCTIME_cmp_time_t := Load_ASN1_UTCTIME_cmp_time_t; + ASN1_GENERALIZEDTIME_check := Load_ASN1_GENERALIZEDTIME_check; + ASN1_GENERALIZEDTIME_set := Load_ASN1_GENERALIZEDTIME_set; + ASN1_GENERALIZEDTIME_adj := Load_ASN1_GENERALIZEDTIME_adj; + ASN1_GENERALIZEDTIME_set_string := Load_ASN1_GENERALIZEDTIME_set_string; + ASN1_TIME_diff := Load_ASN1_TIME_diff; + ASN1_OCTET_STRING_dup := Load_ASN1_OCTET_STRING_dup; + ASN1_OCTET_STRING_cmp := Load_ASN1_OCTET_STRING_cmp; + ASN1_OCTET_STRING_set := Load_ASN1_OCTET_STRING_set; + ASN1_OCTET_STRING_new := Load_ASN1_OCTET_STRING_new; + ASN1_OCTET_STRING_free := Load_ASN1_OCTET_STRING_free; + d2i_ASN1_OCTET_STRING := Load_d2i_ASN1_OCTET_STRING; + i2d_ASN1_OCTET_STRING := Load_i2d_ASN1_OCTET_STRING; + UTF8_getc := Load_UTF8_getc; + UTF8_putc := Load_UTF8_putc; + ASN1_UTCTIME_new := Load_ASN1_UTCTIME_new; + ASN1_UTCTIME_free := Load_ASN1_UTCTIME_free; + d2i_ASN1_UTCTIME := Load_d2i_ASN1_UTCTIME; + i2d_ASN1_UTCTIME := Load_i2d_ASN1_UTCTIME; + ASN1_GENERALIZEDTIME_new := Load_ASN1_GENERALIZEDTIME_new; + ASN1_GENERALIZEDTIME_free := Load_ASN1_GENERALIZEDTIME_free; + d2i_ASN1_GENERALIZEDTIME := Load_d2i_ASN1_GENERALIZEDTIME; + i2d_ASN1_GENERALIZEDTIME := Load_i2d_ASN1_GENERALIZEDTIME; + ASN1_TIME_new := Load_ASN1_TIME_new; + ASN1_TIME_free := Load_ASN1_TIME_free; + d2i_ASN1_TIME := Load_d2i_ASN1_TIME; + i2d_ASN1_TIME := Load_i2d_ASN1_TIME; + ASN1_TIME_set := Load_ASN1_TIME_set; + ASN1_TIME_adj := Load_ASN1_TIME_adj; + ASN1_TIME_check := Load_ASN1_TIME_check; + ASN1_TIME_to_generalizedtime := Load_ASN1_TIME_to_generalizedtime; + ASN1_TIME_set_string := Load_ASN1_TIME_set_string; + ASN1_TIME_set_string_X509 := Load_ASN1_TIME_set_string_X509; + ASN1_TIME_to_tm := Load_ASN1_TIME_to_tm; + ASN1_TIME_normalize := Load_ASN1_TIME_normalize; + ASN1_TIME_cmp_time_t := Load_ASN1_TIME_cmp_time_t; + ASN1_TIME_compare := Load_ASN1_TIME_compare; + i2a_ASN1_INTEGER := Load_i2a_ASN1_INTEGER; + a2i_ASN1_INTEGER := Load_a2i_ASN1_INTEGER; + i2a_ASN1_ENUMERATED := Load_i2a_ASN1_ENUMERATED; + a2i_ASN1_ENUMERATED := Load_a2i_ASN1_ENUMERATED; + i2a_ASN1_OBJECT := Load_i2a_ASN1_OBJECT; + a2i_ASN1_STRING := Load_a2i_ASN1_STRING; + i2a_ASN1_STRING := Load_i2a_ASN1_STRING; + i2t_ASN1_OBJECT := Load_i2t_ASN1_OBJECT; + a2d_ASN1_OBJECT := Load_a2d_ASN1_OBJECT; + ASN1_OBJECT_create := Load_ASN1_OBJECT_create; + ASN1_INTEGER_get_int64 := Load_ASN1_INTEGER_get_int64; + ASN1_INTEGER_set_int64 := Load_ASN1_INTEGER_set_int64; + ASN1_INTEGER_get_uint64 := Load_ASN1_INTEGER_get_uint64; + ASN1_INTEGER_set_uint64 := Load_ASN1_INTEGER_set_uint64; + ASN1_INTEGER_set := Load_ASN1_INTEGER_set; + ASN1_INTEGER_get := Load_ASN1_INTEGER_get; + BN_to_ASN1_INTEGER := Load_BN_to_ASN1_INTEGER; + ASN1_INTEGER_to_BN := Load_ASN1_INTEGER_to_BN; + ASN1_ENUMERATED_get_int64 := Load_ASN1_ENUMERATED_get_int64; + ASN1_ENUMERATED_set_int64 := Load_ASN1_ENUMERATED_set_int64; + ASN1_ENUMERATED_set := Load_ASN1_ENUMERATED_set; + ASN1_ENUMERATED_get := Load_ASN1_ENUMERATED_get; + BN_to_ASN1_ENUMERATED := Load_BN_to_ASN1_ENUMERATED; + ASN1_ENUMERATED_to_BN := Load_ASN1_ENUMERATED_to_BN; + ASN1_PRINTABLE_type := Load_ASN1_PRINTABLE_type; + ASN1_tag2bit := Load_ASN1_tag2bit; + ASN1_get_object := Load_ASN1_get_object; + ASN1_check_infinite_end := Load_ASN1_check_infinite_end; + ASN1_const_check_infinite_end := Load_ASN1_const_check_infinite_end; + ASN1_put_object := Load_ASN1_put_object; + ASN1_put_eoc := Load_ASN1_put_eoc; + ASN1_object_size := Load_ASN1_object_size; + ASN1_item_dup := Load_ASN1_item_dup; + ASN1_STRING_to_UTF8 := Load_ASN1_STRING_to_UTF8; + ASN1_d2i_bio := Load_ASN1_d2i_bio; + ASN1_item_d2i_bio := Load_ASN1_item_d2i_bio; + ASN1_i2d_bio := Load_ASN1_i2d_bio; + ASN1_item_i2d_bio := Load_ASN1_item_i2d_bio; + ASN1_UTCTIME_print := Load_ASN1_UTCTIME_print; + ASN1_GENERALIZEDTIME_print := Load_ASN1_GENERALIZEDTIME_print; + ASN1_TIME_print := Load_ASN1_TIME_print; + ASN1_STRING_print := Load_ASN1_STRING_print; + ASN1_STRING_print_ex := Load_ASN1_STRING_print_ex; + ASN1_buf_print := Load_ASN1_buf_print; + ASN1_bn_print := Load_ASN1_bn_print; + ASN1_parse := Load_ASN1_parse; + ASN1_parse_dump := Load_ASN1_parse_dump; + ASN1_tag2str := Load_ASN1_tag2str; + ASN1_UNIVERSALSTRING_to_string := Load_ASN1_UNIVERSALSTRING_to_string; + ASN1_TYPE_set_octetstring := Load_ASN1_TYPE_set_octetstring; + ASN1_TYPE_get_octetstring := Load_ASN1_TYPE_get_octetstring; + ASN1_TYPE_set_int_octetstring := Load_ASN1_TYPE_set_int_octetstring; + ASN1_TYPE_get_int_octetstring := Load_ASN1_TYPE_get_int_octetstring; + ASN1_item_unpack := Load_ASN1_item_unpack; + ASN1_item_pack := Load_ASN1_item_pack; + ASN1_STRING_set_default_mask := Load_ASN1_STRING_set_default_mask; + ASN1_STRING_set_default_mask_asc := Load_ASN1_STRING_set_default_mask_asc; + ASN1_STRING_get_default_mask := Load_ASN1_STRING_get_default_mask; + ASN1_mbstring_copy := Load_ASN1_mbstring_copy; + ASN1_mbstring_ncopy := Load_ASN1_mbstring_ncopy; + ASN1_STRING_set_by_NID := Load_ASN1_STRING_set_by_NID; + ASN1_STRING_TABLE_get := Load_ASN1_STRING_TABLE_get; + ASN1_STRING_TABLE_add := Load_ASN1_STRING_TABLE_add; + ASN1_STRING_TABLE_cleanup := Load_ASN1_STRING_TABLE_cleanup; + ASN1_item_new := Load_ASN1_item_new; + ASN1_item_free := Load_ASN1_item_free; + ASN1_item_d2i := Load_ASN1_item_d2i; + ASN1_item_i2d := Load_ASN1_item_i2d; + ASN1_item_ndef_i2d := Load_ASN1_item_ndef_i2d; + ASN1_add_oid_module := Load_ASN1_add_oid_module; + ASN1_add_stable_module := Load_ASN1_add_stable_module; + ASN1_generate_nconf := Load_ASN1_generate_nconf; + ASN1_generate_v3 := Load_ASN1_generate_v3; + ASN1_str2mask := Load_ASN1_str2mask; + ASN1_item_print := Load_ASN1_item_print; + ASN1_PCTX_new := Load_ASN1_PCTX_new; + ASN1_PCTX_free := Load_ASN1_PCTX_free; + ASN1_PCTX_get_flags := Load_ASN1_PCTX_get_flags; + ASN1_PCTX_set_flags := Load_ASN1_PCTX_set_flags; + ASN1_PCTX_get_nm_flags := Load_ASN1_PCTX_get_nm_flags; + ASN1_PCTX_set_nm_flags := Load_ASN1_PCTX_set_nm_flags; + ASN1_PCTX_get_cert_flags := Load_ASN1_PCTX_get_cert_flags; + ASN1_PCTX_set_cert_flags := Load_ASN1_PCTX_set_cert_flags; + ASN1_PCTX_get_oid_flags := Load_ASN1_PCTX_get_oid_flags; + ASN1_PCTX_set_oid_flags := Load_ASN1_PCTX_set_oid_flags; + ASN1_PCTX_get_str_flags := Load_ASN1_PCTX_get_str_flags; + ASN1_PCTX_set_str_flags := Load_ASN1_PCTX_set_str_flags; + ASN1_SCTX_free := Load_ASN1_SCTX_free; + ASN1_SCTX_get_item := Load_ASN1_SCTX_get_item; + ASN1_SCTX_get_template := Load_ASN1_SCTX_get_template; + ASN1_SCTX_get_flags := Load_ASN1_SCTX_get_flags; + ASN1_SCTX_set_app_data := Load_ASN1_SCTX_set_app_data; + ASN1_SCTX_get_app_data := Load_ASN1_SCTX_get_app_data; + BIO_f_asn1 := Load_BIO_f_asn1; + BIO_new_NDEF := Load_BIO_new_NDEF; + i2d_ASN1_bio_stream := Load_i2d_ASN1_bio_stream; + PEM_write_bio_ASN1_stream := Load_PEM_write_bio_ASN1_stream; + SMIME_read_ASN1 := Load_SMIME_read_ASN1; + SMIME_crlf_copy := Load_SMIME_crlf_copy; + SMIME_text := Load_SMIME_text; + ASN1_ITEM_lookup := Load_ASN1_ITEM_lookup; + ASN1_ITEM_get := Load_ASN1_ITEM_get; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_asn1_mac.pas b/src/opensslHdrs/IdOpenSSLHeaders_asn1_mac.pas new file mode 100644 index 0000000..71a2717 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_asn1_mac.pas @@ -0,0 +1,74 @@ +(* This unit was generated from the source file asn1_mac.h2pas +It should not be modified directly. All changes should be made to asn1_mac.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_asn1_mac; + + +interface + +// Headers for OpenSSL 1.1.1 +// asn1_mac.h + +{.$i IdCompilerDefines.inc} + +//#error "This file is obsolete; please update your software." + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} + +{$ELSE} + +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_asn1err.pas b/src/opensslHdrs/IdOpenSSLHeaders_asn1err.pas new file mode 100644 index 0000000..93cc92e --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_asn1err.pas @@ -0,0 +1,327 @@ +(* This unit was generated from the source file asn1err.h2pas +It should not be modified directly. All changes should be made to asn1err.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_asn1err; + + +interface + +// Headers for OpenSSL 1.1.1 +// asn1err.h + + +uses + IdSSLOpenSSLAPI; + +const + +// ASN1 function codes. + ASN1_F_A2D_ASN1_OBJECT = 100; + ASN1_F_A2I_ASN1_INTEGER = 102; + ASN1_F_A2I_ASN1_STRING = 103; + ASN1_F_APPEND_EXP = 176; + ASN1_F_ASN1_BIO_INIT = 113; + ASN1_F_ASN1_BIT_STRING_SET_BIT = 183; + ASN1_F_ASN1_CB = 177; + ASN1_F_ASN1_CHECK_TLEN = 104; + ASN1_F_ASN1_COLLECT = 106; + ASN1_F_ASN1_D2I_EX_PRIMITIVE = 108; + ASN1_F_ASN1_D2I_FP = 109; + ASN1_F_ASN1_D2I_READ_BIO = 107; + ASN1_F_ASN1_DIGEST = 184; + ASN1_F_ASN1_DO_ADB = 110; + ASN1_F_ASN1_DO_LOCK = 233; + ASN1_F_ASN1_DUP = 111; + ASN1_F_ASN1_ENC_SAVE = 115; + ASN1_F_ASN1_EX_C2I = 204; + ASN1_F_ASN1_FIND_END = 190; + ASN1_F_ASN1_GENERALIZEDTIME_ADJ = 216; + ASN1_F_ASN1_GENERATE_V3 = 178; + ASN1_F_ASN1_GET_INT64 = 224; + ASN1_F_ASN1_GET_OBJECT = 114; + ASN1_F_ASN1_GET_UINT64 = 225; + ASN1_F_ASN1_I2D_BIO = 116; + ASN1_F_ASN1_I2D_FP = 117; + ASN1_F_ASN1_ITEM_D2I_FP = 206; + ASN1_F_ASN1_ITEM_DUP = 191; + ASN1_F_ASN1_ITEM_EMBED_D2I = 120; + ASN1_F_ASN1_ITEM_EMBED_NEW = 121; + ASN1_F_ASN1_ITEM_FLAGS_I2D = 118; + ASN1_F_ASN1_ITEM_I2D_BIO = 192; + ASN1_F_ASN1_ITEM_I2D_FP = 193; + ASN1_F_ASN1_ITEM_PACK = 198; + ASN1_F_ASN1_ITEM_SIGN = 195; + ASN1_F_ASN1_ITEM_SIGN_CTX = 220; + ASN1_F_ASN1_ITEM_UNPACK = 199; + ASN1_F_ASN1_ITEM_VERIFY = 197; + ASN1_F_ASN1_MBSTRING_NCOPY = 122; + ASN1_F_ASN1_OBJECT_NEW = 123; + ASN1_F_ASN1_OUTPUT_DATA = 214; + ASN1_F_ASN1_PCTX_NEW = 205; + ASN1_F_ASN1_PRIMITIVE_NEW = 119; + ASN1_F_ASN1_SCTX_NEW = 221; + ASN1_F_ASN1_SIGN = 128; + ASN1_F_ASN1_STR2TYPE = 179; + ASN1_F_ASN1_STRING_GET_INT64 = 227; + ASN1_F_ASN1_STRING_GET_UINT64 = 230; + ASN1_F_ASN1_STRING_SET = 186; + ASN1_F_ASN1_STRING_TABLE_ADD = 129; + ASN1_F_ASN1_STRING_TO_BN = 228; + ASN1_F_ASN1_STRING_TYPE_NEW = 130; + ASN1_F_ASN1_TEMPLATE_EX_D2I = 132; + ASN1_F_ASN1_TEMPLATE_NEW = 133; + ASN1_F_ASN1_TEMPLATE_NOEXP_D2I = 131; + ASN1_F_ASN1_TIME_ADJ = 217; + ASN1_F_ASN1_TYPE_GET_INT_OCTETSTRING = 134; + ASN1_F_ASN1_TYPE_GET_OCTETSTRING = 135; + ASN1_F_ASN1_UTCTIME_ADJ = 218; + ASN1_F_ASN1_VERIFY = 137; + ASN1_F_B64_READ_ASN1 = 209; + ASN1_F_B64_WRITE_ASN1 = 210; + ASN1_F_BIO_NEW_NDEF = 208; + ASN1_F_BITSTR_CB = 180; + ASN1_F_BN_TO_ASN1_STRING = 229; + ASN1_F_C2I_ASN1_BIT_STRING = 189; + ASN1_F_C2I_ASN1_INTEGER = 194; + ASN1_F_C2I_ASN1_OBJECT = 196; + ASN1_F_C2I_IBUF = 226; + ASN1_F_C2I_UINT64_INT = 101; + ASN1_F_COLLECT_DATA = 140; + ASN1_F_D2I_ASN1_OBJECT = 147; + ASN1_F_D2I_ASN1_UINTEGER = 150; + ASN1_F_D2I_AUTOPRIVATEKEY = 207; + ASN1_F_D2I_PRIVATEKEY = 154; + ASN1_F_D2I_PUBLICKEY = 155; + ASN1_F_DO_BUF = 142; + ASN1_F_DO_CREATE = 124; + ASN1_F_DO_DUMP = 125; + ASN1_F_DO_TCREATE = 222; + ASN1_F_I2A_ASN1_OBJECT = 126; + ASN1_F_I2D_ASN1_BIO_STREAM = 211; + ASN1_F_I2D_ASN1_OBJECT = 143; + ASN1_F_I2D_DSA_PUBKEY = 161; + ASN1_F_I2D_EC_PUBKEY = 181; + ASN1_F_I2D_PRIVATEKEY = 163; + ASN1_F_I2D_PUBLICKEY = 164; + ASN1_F_I2D_RSA_PUBKEY = 165; + ASN1_F_LONG_C2I = 166; + ASN1_F_NDEF_PREFIX = 127; + ASN1_F_NDEF_SUFFIX = 136; + ASN1_F_OID_MODULE_INIT = 174; + ASN1_F_PARSE_TAGGING = 182; + ASN1_F_PKCS5_PBE2_SET_IV = 167; + ASN1_F_PKCS5_PBE2_SET_SCRYPT = 231; + ASN1_F_PKCS5_PBE_SET = 202; + ASN1_F_PKCS5_PBE_SET0_ALGOR = 215; + ASN1_F_PKCS5_PBKDF2_SET = 219; + ASN1_F_PKCS5_SCRYPT_SET = 232; + ASN1_F_SMIME_READ_ASN1 = 212; + ASN1_F_SMIME_TEXT = 213; + ASN1_F_STABLE_GET = 138; + ASN1_F_STBL_MODULE_INIT = 223; + ASN1_F_UINT32_C2I = 105; + ASN1_F_UINT32_NEW = 139; + ASN1_F_UINT64_C2I = 112; + ASN1_F_UINT64_NEW = 141; + ASN1_F_X509_CRL_ADD0_REVOKED = 169; + ASN1_F_X509_INFO_NEW = 170; + ASN1_F_X509_NAME_ENCODE = 203; + ASN1_F_X509_NAME_EX_D2I = 158; + ASN1_F_X509_NAME_EX_NEW = 171; + ASN1_F_X509_PKEY_NEW = 173; + +// ASN1 reason codes. + ASN1_R_ADDING_OBJECT = 171; + ASN1_R_ASN1_PARSE_ERROR = 203; + ASN1_R_ASN1_SIG_PARSE_ERROR = 204; + ASN1_R_AUX_ERROR = 100; + ASN1_R_BAD_OBJECT_HEADER = 102; + ASN1_R_BMPSTRING_IS_WRONG_LENGTH = 214; + ASN1_R_BN_LIB = 105; + ASN1_R_BOOLEAN_IS_WRONG_LENGTH = 106; + ASN1_R_BUFFER_TOO_SMALL = 107; + ASN1_R_CIPHER_HAS_NO_OBJECT_IDENTIFIER = 108; + ASN1_R_CONTEXT_NOT_INITIALISED = 217; + ASN1_R_DATA_IS_WRONG = 109; + ASN1_R_DECODE_ERROR = 110; + ASN1_R_DEPTH_EXCEEDED = 174; + ASN1_R_DIGEST_AND_KEY_TYPE_NOT_SUPPORTED = 198; + ASN1_R_ENCODE_ERROR = 112; + ASN1_R_ERROR_GETTING_TIME = 173; + ASN1_R_ERROR_LOADING_SECTION = 172; + ASN1_R_ERROR_SETTING_CIPHER_PARAMS = 114; + ASN1_R_EXPECTING_AN_INTEGER = 115; + ASN1_R_EXPECTING_AN_OBJECT = 116; + ASN1_R_EXPLICIT_LENGTH_MISMATCH = 119; + ASN1_R_EXPLICIT_TAG_NOT_CONSTRUCTED = 120; + ASN1_R_FIELD_MISSING = 121; + ASN1_R_FIRST_NUM_TOO_LARGE = 122; + ASN1_R_HEADER_TOO_LONG = 123; + ASN1_R_ILLEGAL_BITSTRING_FORMAT = 175; + ASN1_R_ILLEGAL_BOOLEAN = 176; + ASN1_R_ILLEGAL_CHARACTERS = 124; + ASN1_R_ILLEGAL_FORMAT = 177; + ASN1_R_ILLEGAL_HEX = 178; + ASN1_R_ILLEGAL_IMPLICIT_TAG = 179; + ASN1_R_ILLEGAL_INTEGER = 180; + ASN1_R_ILLEGAL_NEGATIVE_VALUE = 226; + ASN1_R_ILLEGAL_NESTED_TAGGING = 181; + ASN1_R_ILLEGAL_NULL = 125; + ASN1_R_ILLEGAL_NULL_VALUE = 182; + ASN1_R_ILLEGAL_OBJECT = 183; + ASN1_R_ILLEGAL_OPTIONAL_ANY = 126; + ASN1_R_ILLEGAL_OPTIONS_ON_ITEM_TEMPLATE = 170; + ASN1_R_ILLEGAL_PADDING = 221; + ASN1_R_ILLEGAL_TAGGED_ANY = 127; + ASN1_R_ILLEGAL_TIME_VALUE = 184; + ASN1_R_ILLEGAL_ZERO_CONTENT = 222; + ASN1_R_INTEGER_NOT_ASCII_FORMAT = 185; + ASN1_R_INTEGER_TOO_LARGE_FOR_LONG = 128; + ASN1_R_INVALID_BIT_STRING_BITS_LEFT = 220; + ASN1_R_INVALID_BMPSTRING_LENGTH = 129; + ASN1_R_INVALID_DIGIT = 130; + ASN1_R_INVALID_MIME_TYPE = 205; + ASN1_R_INVALID_MODIFIER = 186; + ASN1_R_INVALID_NUMBER = 187; + ASN1_R_INVALID_OBJECT_ENCODING = 216; + ASN1_R_INVALID_SCRYPT_PARAMETERS = 227; + ASN1_R_INVALID_SEPARATOR = 131; + ASN1_R_INVALID_STRING_TABLE_VALUE = 218; + ASN1_R_INVALID_UNIVERSALSTRING_LENGTH = 133; + ASN1_R_INVALID_UTF8STRING = 134; + ASN1_R_INVALID_VALUE = 219; + ASN1_R_LIST_ERROR = 188; + ASN1_R_MIME_NO_CONTENT_TYPE = 206; + ASN1_R_MIME_PARSE_ERROR = 207; + ASN1_R_MIME_SIG_PARSE_ERROR = 208; + ASN1_R_MISSING_EOC = 137; + ASN1_R_MISSING_SECOND_NUMBER = 138; + ASN1_R_MISSING_VALUE = 189; + ASN1_R_MSTRING_NOT_UNIVERSAL = 139; + ASN1_R_MSTRING_WRONG_TAG = 140; + ASN1_R_NESTED_ASN1_STRING = 197; + ASN1_R_NESTED_TOO_DEEP = 201; + ASN1_R_NON_HEX_CHARACTERS = 141; + ASN1_R_NOT_ASCII_FORMAT = 190; + ASN1_R_NOT_ENOUGH_DATA = 142; + ASN1_R_NO_CONTENT_TYPE = 209; + ASN1_R_NO_MATCHING_CHOICE_TYPE = 143; + ASN1_R_NO_MULTIPART_BODY_FAILURE = 210; + ASN1_R_NO_MULTIPART_BOUNDARY = 211; + ASN1_R_NO_SIG_CONTENT_TYPE = 212; + ASN1_R_NULL_IS_WRONG_LENGTH = 144; + ASN1_R_OBJECT_NOT_ASCII_FORMAT = 191; + ASN1_R_ODD_NUMBER_OF_CHARS = 145; + ASN1_R_SECOND_NUMBER_TOO_LARGE = 147; + ASN1_R_SEQUENCE_LENGTH_MISMATCH = 148; + ASN1_R_SEQUENCE_NOT_CONSTRUCTED = 149; + ASN1_R_SEQUENCE_OR_SET_NEEDS_CONFIG = 192; + ASN1_R_SHORT_LINE = 150; + ASN1_R_SIG_INVALID_MIME_TYPE = 213; + ASN1_R_STREAMING_NOT_SUPPORTED = 202; + ASN1_R_STRING_TOO_LONG = 151; + ASN1_R_STRING_TOO_SHORT = 152; + ASN1_R_THE_ASN1_OBJECT_IDENTIFIER_IS_NOT_KNOWN_FOR_THIS_MD = 154; + ASN1_R_TIME_NOT_ASCII_FORMAT = 193; + ASN1_R_TOO_LARGE = 223; + ASN1_R_TOO_LONG = 155; + ASN1_R_TOO_SMALL = 224; + ASN1_R_TYPE_NOT_CONSTRUCTED = 156; + ASN1_R_TYPE_NOT_PRIMITIVE = 195; + ASN1_R_UNEXPECTED_EOC = 159; + ASN1_R_UNIVERSALSTRING_IS_WRONG_LENGTH = 215; + ASN1_R_UNKNOWN_FORMAT = 160; + ASN1_R_UNKNOWN_MESSAGE_DIGEST_ALGORITHM = 161; + ASN1_R_UNKNOWN_OBJECT_TYPE = 162; + ASN1_R_UNKNOWN_PUBLIC_KEY_TYPE = 163; + ASN1_R_UNKNOWN_SIGNATURE_ALGORITHM = 199; + ASN1_R_UNKNOWN_TAG = 194; + ASN1_R_UNSUPPORTED_ANY_DEFINED_BY_TYPE = 164; + ASN1_R_UNSUPPORTED_CIPHER = 228; + ASN1_R_UNSUPPORTED_PUBLIC_KEY_TYPE = 167; + ASN1_R_UNSUPPORTED_TYPE = 196; + ASN1_R_WRONG_INTEGER_TYPE = 225; + ASN1_R_WRONG_PUBLIC_KEY_TYPE = 200; + ASN1_R_WRONG_TAG = 168; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_ASN1_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_ASN1_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_ASN1_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_ASN1_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_ASN1_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_ASN1_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_ASN1_strings := LoadLibCryptoFunction('ERR_load_ASN1_strings'); + if not assigned(ERR_load_ASN1_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_ASN1_strings'); + Result := ERR_load_ASN1_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_ASN1_strings := Load_ERR_load_ASN1_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_asn1t.pas b/src/opensslHdrs/IdOpenSSLHeaders_asn1t.pas new file mode 100644 index 0000000..c5d9804 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_asn1t.pas @@ -0,0 +1,1076 @@ +(* This unit was generated from the source file asn1t.h2pas +It should not be modified directly. All changes should be made to asn1t.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_asn1t; + + +interface + +// Headers for OpenSSL 1.1.1 +// asn1t.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ; + +type + // moved from asn1 + ASN1_ITEM_EXP = ASN1_ITEM; + PASN1_ITEM_EXP = ^ASN1_ITEM_EXP; + +//# ifndef OPENSSL_EXPORT_VAR_AS_FUNCTION +// +///// Macro to obtain ASN1_ADB pointer from a type (only used internally) /// +//# define ASN1_ADB_ptr(iptr) ((const ASN1_ADB //)(iptr)) +// +///// Macros for start and end of ASN1_ITEM definition /// +// +//# define ASN1_ITEM_start(itname) \ +// const ASN1_ITEM itname##_it = { +// +//# define static_ASN1_ITEM_start(itname) \ +// static const ASN1_ITEM itname##_it = { +// +//# define ASN1_ITEM_end(itname) \ +// }; +// +//# else +// +///// Macro to obtain ASN1_ADB pointer from a type (only used internally) /// +//# define ASN1_ADB_ptr(iptr) ((const ASN1_ADB //)((iptr)())) +// +///// Macros for start and end of ASN1_ITEM definition /// +// +//# define ASN1_ITEM_start(itname) \ +// const ASN1_ITEM // itname##_it(void) \ +// { \ +// static const ASN1_ITEM local_it = { +// +//# define static_ASN1_ITEM_start(itname) \ +// static ASN1_ITEM_start(itname) +// +//# define ASN1_ITEM_end(itname) \ +// }; \ +// return &local_it; \ +// } +// +//# endif +// +///// Macros to aid ASN1 template writing /// +// +// ASN1_ITEM_TEMPLATE(tname) \ +// static const PASN1_TEMPLATE tname##_item_tt +// +// ASN1_ITEM_TEMPLATE_END(tname) \ +// ;\ +// ASN1_ITEM_start(tname) \ +// ASN1_ITYPE_PRIMITIVE,\ +// -1,\ +// &tname##_item_tt,\ +// 0,\ +// NULL,\ +// 0,\ +// #tname \ +// ASN1_ITEM_end(tname) +// static_ASN1_ITEM_TEMPLATE_END(tname) \ +// ;\ +// static_ASN1_ITEM_start(tname) \ +// ASN1_ITYPE_PRIMITIVE,\ +// -1,\ +// &tname##_item_tt,\ +// 0,\ +// NULL,\ +// 0,\ +// #tname \ +// ASN1_ITEM_end(tname) +// +///// This is a ASN1 type which just embeds a template /// +// +/////- +// // This pair helps declare a SEQUENCE. We can do: +// // +// // ASN1_SEQUENCE(stname) = { +// // ... SEQUENCE components ... +// // } ASN1_SEQUENCE_END(stname) +// // +// // This will produce an ASN1_ITEM called stname_it +// // for a structure called stname. +// // +// // If you want the same structure but a different +// // name then use: +// // +// // ASN1_SEQUENCE(itname) = { +// // ... SEQUENCE components ... +// // } ASN1_SEQUENCE_END_name(stname, itname) +// // +// // This will create an item called itname_it using +// // a structure called stname. +// /// +// +// ASN1_SEQUENCE(tname) \ +// static const PASN1_TEMPLATE tname##_seq_tt[] +// +// ASN1_SEQUENCE_END(stname) ASN1_SEQUENCE_END_name(stname, stname) +// +// static_ASN1_SEQUENCE_END(stname) static_ASN1_SEQUENCE_END_name(stname, stname) +// +// ASN1_SEQUENCE_END_name(stname, tname) \ +// ;\ +// ASN1_ITEM_start(tname) \ +// ASN1_ITYPE_SEQUENCE,\ +// V_ASN1_SEQUENCE,\ +// tname##_seq_tt,\ +// sizeof(tname##_seq_tt) / sizeof(PASN1_TEMPLATE),\ +// NULL,\ +// sizeof(stname),\ +// #tname \ +// ASN1_ITEM_end(tname) +// +// static_ASN1_SEQUENCE_END_name(stname, tname) \ +// ;\ +// static_ASN1_ITEM_start(tname) \ +// ASN1_ITYPE_SEQUENCE,\ +// V_ASN1_SEQUENCE,\ +// tname##_seq_tt,\ +// sizeof(tname##_seq_tt) / sizeof(PASN1_TEMPLATE),\ +// NULL,\ +// sizeof(stname),\ +// #stname \ +// ASN1_ITEM_end(tname) +// +// ASN1_NDEF_SEQUENCE(tname) \ +// ASN1_SEQUENCE(tname) +// +// ASN1_NDEF_SEQUENCE_cb(tname, cb) \ +// ASN1_SEQUENCE_cb(tname, cb) +// +// ASN1_SEQUENCE_cb(tname, cb) \ +// static const ASN1_AUX tname##_aux = {NULL, 0, 0, 0, cb, 0}; \ +// ASN1_SEQUENCE(tname) +// +// ASN1_BROKEN_SEQUENCE(tname) \ +// static const ASN1_AUX tname##_aux = {NULL, ASN1_AFLG_BROKEN, 0, 0, 0, 0}; \ +// ASN1_SEQUENCE(tname) +// +// ASN1_SEQUENCE_ref(tname, cb) \ +// static const ASN1_AUX tname##_aux = {NULL, ASN1_AFLG_REFCOUNT, offsetof(tname, references), offsetof(tname, lock), cb, 0}; \ +// ASN1_SEQUENCE(tname) +// +// ASN1_SEQUENCE_enc(tname, enc, cb) \ +// static const ASN1_AUX tname##_aux = {NULL, ASN1_AFLG_ENCODING, 0, 0, cb, offsetof(tname, enc)}; \ +// ASN1_SEQUENCE(tname) +// +// ASN1_NDEF_SEQUENCE_END(tname) \ +// ;\ +// ASN1_ITEM_start(tname) \ +// ASN1_ITYPE_NDEF_SEQUENCE,\ +// V_ASN1_SEQUENCE,\ +// tname##_seq_tt,\ +// sizeof(tname##_seq_tt) / sizeof(PASN1_TEMPLATE),\ +// NULL,\ +// sizeof(tname),\ +// #tname \ +// ASN1_ITEM_end(tname) +// static_ASN1_NDEF_SEQUENCE_END(tname) \ +// ;\ +// static_ASN1_ITEM_start(tname) \ +// ASN1_ITYPE_NDEF_SEQUENCE,\ +// V_ASN1_SEQUENCE,\ +// tname##_seq_tt,\ +// sizeof(tname##_seq_tt) / sizeof(PASN1_TEMPLATE),\ +// NULL,\ +// sizeof(tname),\ +// #tname \ +// ASN1_ITEM_end(tname) +// +// ASN1_BROKEN_SEQUENCE_END(stname) ASN1_SEQUENCE_END_ref(stname, stname) +// static_ASN1_BROKEN_SEQUENCE_END(stname) \ +// static_ASN1_SEQUENCE_END_ref(stname, stname) +// +// ASN1_SEQUENCE_END_enc(stname, tname) ASN1_SEQUENCE_END_ref(stname, tname) +// +// ASN1_SEQUENCE_END_cb(stname, tname) ASN1_SEQUENCE_END_ref(stname, tname) +// static_ASN1_SEQUENCE_END_cb(stname, tname) static_ASN1_SEQUENCE_END_ref(stname, tname) +// +// ASN1_SEQUENCE_END_ref(stname, tname) \ +// ;\ +// ASN1_ITEM_start(tname) \ +// ASN1_ITYPE_SEQUENCE,\ +// V_ASN1_SEQUENCE,\ +// tname##_seq_tt,\ +// sizeof(tname##_seq_tt) / sizeof(PASN1_TEMPLATE),\ +// &tname##_aux,\ +// sizeof(stname),\ +// #tname \ +// ASN1_ITEM_end(tname) +// static_ASN1_SEQUENCE_END_ref(stname, tname) \ +// ;\ +// static_ASN1_ITEM_start(tname) \ +// ASN1_ITYPE_SEQUENCE,\ +// V_ASN1_SEQUENCE,\ +// tname##_seq_tt,\ +// sizeof(tname##_seq_tt) / sizeof(PASN1_TEMPLATE),\ +// &tname##_aux,\ +// sizeof(stname),\ +// #stname \ +// ASN1_ITEM_end(tname) +// +// ASN1_NDEF_SEQUENCE_END_cb(stname, tname) \ +// ;\ +// ASN1_ITEM_start(tname) \ +// ASN1_ITYPE_NDEF_SEQUENCE,\ +// V_ASN1_SEQUENCE,\ +// tname##_seq_tt,\ +// sizeof(tname##_seq_tt) / sizeof(PASN1_TEMPLATE),\ +// &tname##_aux,\ +// sizeof(stname),\ +// #stname \ +// ASN1_ITEM_end(tname) +// +/////- +// // This pair helps declare a CHOICE type. We can do: +// // +// // ASN1_CHOICE(chname) = { +// // ... CHOICE options ... +// // ASN1_CHOICE_END(chname) +// // +// // This will produce an ASN1_ITEM called chname_it +// // for a structure called chname. The structure +// // definition must look like this: +// // typedef struct { +// // int type; +// // union { +// // ASN1_SOMETHING //opt1; +// // ASN1_SOMEOTHER //opt2; +// // } value; +// // } chname; +// // +// // the name of the selector must be 'type'. +// // to use an alternative selector name use the +// // ASN1_CHOICE_END_selector() version. +// /// +// +// ASN1_CHOICE(tname) \ +// static const PASN1_TEMPLATE tname##_ch_tt[] +// +// ASN1_CHOICE_cb(tname, cb) \ +// static const ASN1_AUX tname##_aux = {NULL, 0, 0, 0, cb, 0}; \ +// ASN1_CHOICE(tname) +// +// ASN1_CHOICE_END(stname) ASN1_CHOICE_END_name(stname, stname) +// +// static_ASN1_CHOICE_END(stname) static_ASN1_CHOICE_END_name(stname, stname) +// +// ASN1_CHOICE_END_name(stname, tname) ASN1_CHOICE_END_selector(stname, tname, type) +// +// static_ASN1_CHOICE_END_name(stname, tname) static_ASN1_CHOICE_END_selector(stname, tname, type) +// +// ASN1_CHOICE_END_selector(stname, tname, selname) \ +// ;\ +// ASN1_ITEM_start(tname) \ +// ASN1_ITYPE_CHOICE,\ +// offsetof(stname,selname) ,\ +// tname##_ch_tt,\ +// sizeof(tname##_ch_tt) / sizeof(PASN1_TEMPLATE),\ +// NULL,\ +// sizeof(stname),\ +// #stname \ +// ASN1_ITEM_end(tname) +// +// static_ASN1_CHOICE_END_selector(stname, tname, selname) \ +// ;\ +// static_ASN1_ITEM_start(tname) \ +// ASN1_ITYPE_CHOICE,\ +// offsetof(stname,selname) ,\ +// tname##_ch_tt,\ +// sizeof(tname##_ch_tt) / sizeof(PASN1_TEMPLATE),\ +// NULL,\ +// sizeof(stname),\ +// #stname \ +// ASN1_ITEM_end(tname) +// +// ASN1_CHOICE_END_cb(stname, tname, selname) \ +// ;\ +// ASN1_ITEM_start(tname) \ +// ASN1_ITYPE_CHOICE,\ +// offsetof(stname,selname) ,\ +// tname##_ch_tt,\ +// sizeof(tname##_ch_tt) / sizeof(PASN1_TEMPLATE),\ +// &tname##_aux,\ +// sizeof(stname),\ +// #stname \ +// ASN1_ITEM_end(tname) +// +///// This helps with the template wrapper form of ASN1_ITEM /// +// +// ASN1_EX_TEMPLATE_TYPE(flags, tag, name, type) { \ +// (flags), (tag), 0,\ +// #name, ASN1_ITEM_ref(type) } +// +///// These help with SEQUENCE or CHOICE components /// +// +///// used to declare other types /// +// +// ASN1_EX_TYPE(flags, tag, stname, field, type) { \ +// (flags), (tag), offsetof(stname, field),\ +// #field, ASN1_ITEM_ref(type) } +// +///// implicit and explicit helper macros /// +// +// ASN1_IMP_EX(stname, field, type, tag, ex) \ +// ASN1_EX_TYPE(ASN1_TFLG_IMPLICIT | (ex), tag, stname, field, type) +// +// ASN1_EXP_EX(stname, field, type, tag, ex) \ +// ASN1_EX_TYPE(ASN1_TFLG_EXPLICIT | (ex), tag, stname, field, type) +// +///// Any defined by macros: the field used is in the table itself /// +// +//# ifndef OPENSSL_EXPORT_VAR_AS_FUNCTION +//# define ASN1_ADB_OBJECT(tblname) { ASN1_TFLG_ADB_OID, -1, 0, #tblname, (const ASN1_ITEM //)&(tblname##_adb) } +//# define ASN1_ADB_INTEGER(tblname) { ASN1_TFLG_ADB_INT, -1, 0, #tblname, (const ASN1_ITEM //)&(tblname##_adb) } +//# else +//# define ASN1_ADB_OBJECT(tblname) { ASN1_TFLG_ADB_OID, -1, 0, #tblname, tblname##_adb } +//# define ASN1_ADB_INTEGER(tblname) { ASN1_TFLG_ADB_INT, -1, 0, #tblname, tblname##_adb } +//# endif +///// Plain simple type /// +// ASN1_SIMPLE(stname, field, type) ASN1_EX_TYPE(0,0, stname, field, type) +///// Embedded simple type /// +// ASN1_EMBED(stname, field, type) ASN1_EX_TYPE(ASN1_TFLG_EMBED,0, stname, field, type) +// +///// OPTIONAL simple type /// +// ASN1_OPT(stname, field, type) ASN1_EX_TYPE(ASN1_TFLG_OPTIONAL, 0, stname, field, type) +// ASN1_OPT_EMBED(stname, field, type) ASN1_EX_TYPE(ASN1_TFLG_OPTIONAL|ASN1_TFLG_EMBED, 0, stname, field, type) +// +///// IMPLICIT tagged simple type /// +// ASN1_IMP(stname, field, type, tag) ASN1_IMP_EX(stname, field, type, tag, 0) +// ASN1_IMP_EMBED(stname, field, type, tag) ASN1_IMP_EX(stname, field, type, tag, ASN1_TFLG_EMBED) +// +///// IMPLICIT tagged OPTIONAL simple type /// +// ASN1_IMP_OPT(stname, field, type, tag) ASN1_IMP_EX(stname, field, type, tag, ASN1_TFLG_OPTIONAL) +// ASN1_IMP_OPT_EMBED(stname, field, type, tag) ASN1_IMP_EX(stname, field, type, tag, ASN1_TFLG_OPTIONAL|ASN1_TFLG_EMBED) +// +///// Same as above but EXPLICIT /// +// +// ASN1_EXP(stname, field, type, tag) ASN1_EXP_EX(stname, field, type, tag, 0) +// ASN1_EXP_EMBED(stname, field, type, tag) ASN1_EXP_EX(stname, field, type, tag, ASN1_TFLG_EMBED) +// ASN1_EXP_OPT(stname, field, type, tag) ASN1_EXP_EX(stname, field, type, tag, ASN1_TFLG_OPTIONAL) +// ASN1_EXP_OPT_EMBED(stname, field, type, tag) ASN1_EXP_EX(stname, field, type, tag, ASN1_TFLG_OPTIONAL|ASN1_TFLG_EMBED) +// +///// SEQUENCE OF type /// +// ASN1_SEQUENCE_OF(stname, field, type) \ +// ASN1_EX_TYPE(ASN1_TFLG_SEQUENCE_OF, 0, stname, field, type) +// +///// OPTIONAL SEQUENCE OF /// +// ASN1_SEQUENCE_OF_OPT(stname, field, type) \ +// ASN1_EX_TYPE(ASN1_TFLG_SEQUENCE_OF|ASN1_TFLG_OPTIONAL, 0, stname, field, type) +// +///// Same as above but for SET OF /// +// +// ASN1_SET_OF(stname, field, type) \ +// ASN1_EX_TYPE(ASN1_TFLG_SET_OF, 0, stname, field, type) +// +// ASN1_SET_OF_OPT(stname, field, type) \ +// ASN1_EX_TYPE(ASN1_TFLG_SET_OF|ASN1_TFLG_OPTIONAL, 0, stname, field, type) +// +///// Finally compound types of SEQUENCE, SET, IMPLICIT, EXPLICIT and OPTIONAL /// +// +// ASN1_IMP_SET_OF(stname, field, type, tag) \ +// ASN1_IMP_EX(stname, field, type, tag, ASN1_TFLG_SET_OF) +// +// ASN1_EXP_SET_OF(stname, field, type, tag) \ +// ASN1_EXP_EX(stname, field, type, tag, ASN1_TFLG_SET_OF) +// +// ASN1_IMP_SET_OF_OPT(stname, field, type, tag) \ +// ASN1_IMP_EX(stname, field, type, tag, ASN1_TFLG_SET_OF|ASN1_TFLG_OPTIONAL) +// +// ASN1_EXP_SET_OF_OPT(stname, field, type, tag) \ +// ASN1_EXP_EX(stname, field, type, tag, ASN1_TFLG_SET_OF|ASN1_TFLG_OPTIONAL) +// +// ASN1_IMP_SEQUENCE_OF(stname, field, type, tag) \ +// ASN1_IMP_EX(stname, field, type, tag, ASN1_TFLG_SEQUENCE_OF) +// +// ASN1_IMP_SEQUENCE_OF_OPT(stname, field, type, tag) \ +// ASN1_IMP_EX(stname, field, type, tag, ASN1_TFLG_SEQUENCE_OF|ASN1_TFLG_OPTIONAL) +// +// ASN1_EXP_SEQUENCE_OF(stname, field, type, tag) \ +// ASN1_EXP_EX(stname, field, type, tag, ASN1_TFLG_SEQUENCE_OF) +// +// ASN1_EXP_SEQUENCE_OF_OPT(stname, field, type, tag) \ +// ASN1_EXP_EX(stname, field, type, tag, ASN1_TFLG_SEQUENCE_OF|ASN1_TFLG_OPTIONAL) +// +///// EXPLICIT using indefinite length constructed form /// +// ASN1_NDEF_EXP(stname, field, type, tag) \ +// ASN1_EXP_EX(stname, field, type, tag, ASN1_TFLG_NDEF) +// +///// EXPLICIT OPTIONAL using indefinite length constructed form /// +// ASN1_NDEF_EXP_OPT(stname, field, type, tag) \ +// ASN1_EXP_EX(stname, field, type, tag, ASN1_TFLG_OPTIONAL|ASN1_TFLG_NDEF) +// +///// Macros for the ASN1_ADB structure /// +// +// ASN1_ADB(name) \ +// static const ASN1_ADB_TABLE name##_adbtbl[] +// +//# ifndef OPENSSL_EXPORT_VAR_AS_FUNCTION +// +//# define ASN1_ADB_END(name, flags, field, adb_cb, def, none) \ +// ;\ +// static const ASN1_ADB name##_adb = {\ +// flags,\ +// offsetof(name, field),\ +// adb_cb,\ +// name##_adbtbl,\ +// sizeof(name##_adbtbl) / sizeof(ASN1_ADB_TABLE),\ +// def,\ +// none\ +// } +// +//# else +// +//# define ASN1_ADB_END(name, flags, field, adb_cb, def, none) \ +// ;\ +// static const ASN1_ITEM //name##_adb(void) \ +// { \ +// static const ASN1_ADB internal_adb = \ +// {\ +// flags,\ +// offsetof(name, field),\ +// adb_cb,\ +// name##_adbtbl,\ +// sizeof(name##_adbtbl) / sizeof(ASN1_ADB_TABLE),\ +// def,\ +// none\ +// }; \ +// return (const ASN1_ITEM //) &internal_adb; \ +// } \ +// void dummy_function(void) +// +//# endif +// +// ADB_ENTRY(val, template) {val, template} +// +// ASN1_ADB_TEMPLATE(name) \ +// static const PASN1_TEMPLATE name##_tt +// +///// +// // This is the ASN1 template structure that defines a wrapper round the +// // actual type. It determines the actual position of the field in the value +// // structure, various flags such as OPTIONAL and the field name. +// /// + +type + ASN1_TEMPLATE_st = record + flags: TOpenSSL_C_ULONG; + tag: TOpenSSL_C_LONG; + offset: TOpenSSL_C_ULONG; + fieldname: PAnsiChar; + item: PASN1_ITEM_EXP; + end; + ASN1_TEMPLATE = ASN1_TEMPLATE_st; + PASN1_TEMPLATE = ^ASN1_TEMPLATE; + +///// Macro to extract ASN1_ITEM and ASN1_ADB pointer from PASN1_TEMPLATE /// +// +// ASN1_TEMPLATE_item(t) (t->item_ptr) +// ASN1_TEMPLATE_adb(t) (t->item_ptr) + + adb_cb_callback = function(psel: POpenSSL_C_LONG): TOpenSSL_C_INT; + + ASN1_ADB_TABLE_st = record + value: TOpenSSL_C_LONG; + tt: PASN1_TEMPLATE; + end; + + ASN1_ADB_TABLE = ASN1_ADB_TABLE_st; + PASN1_ADB_TABLE = ^ASN1_ADB_TABLE; + + ASN1_ADB_st = record + flags: TOpenSSL_C_ULONG; + offset: TOpenSSL_C_ULONG; + adb_cb: adb_cb_callback; + tbl: PASN1_ADB_TABLE; + tblcount: TOpenSSL_C_LONG; + default_tt: PASN1_TEMPLATE; + null_tt: PASN1_TEMPLATE; + end; + ASN1_ADB = ASN1_ADB_st; + +const +// template flags // + +// Field is optional // + ASN1_TFLG_OPTIONAL = $1; + +// Field is a SET OF // + ASN1_TFLG_SET_OF = ($1 shl 1); + +// Field is a SEQUENCE OF // + ASN1_TFLG_SEQUENCE_OF = ($2 shl 1); + +// +// Special case: this refers to a SET OF that will be sorted into DER order +// when encoded /and/ the corresponding STACK will be modified to match the +// new order. + // + ASN1_TFLG_SET_ORDER = ($3 shl 1); + +// Mask for SET OF or SEQUENCE OF // + ASN1_TFLG_SK_MASK = ($3 shl 1); + +// +// These flags mean the tag should be taken from the tag field. If EXPLICIT +// then the underlying type is used for the inner tag. + // + +// IMPLICIT tagging // + ASN1_TFLG_IMPTAG = ($1 shl 3); + +// EXPLICIT tagging, inner tag from underlying type // + ASN1_TFLG_EXPTAG = ($2 shl 3); + + ASN1_TFLG_TAG_MASK = ($3 shl 3); + +// context specific IMPLICIT // +// ASN1_TFLG_IMPLICIT (ASN1_TFLG_IMPTAG|ASN1_TFLG_CONTEXT) + +// context specific EXPLICIT // +// ASN1_TFLG_EXPLICIT (ASN1_TFLG_EXPTAG|ASN1_TFLG_CONTEXT) + +// +// If tagging is in force these determine the type of tag to use. Otherwise +// the tag is determined by the underlying type. These values reflect the +// actual octet format. + // + +// Universal tag // + ASN1_TFLG_UNIVERSAL = ($0 shl 6); +// Application tag // + ASN1_TFLG_APPLICATION = ($1 shl 6); +// Context specific tag // + ASN1_TFLG_CONTEXT = ($2 shl 6); +// Private tag // + ASN1_TFLG_PRIVATE = ($3 shl 6); + + ASN1_TFLG_TAG_CLASS = ($3 shl 6); + +// +// These are for ANY DEFINED BY type. In this case the 'item' field points to +// an ASN1_ADB structure which contains a table of values to decode the +// relevant type + // + + ASN1_TFLG_ADB_MASK = ($3 shl 8); + + ASN1_TFLG_ADB_OID = ($1 shl 8); + + ASN1_TFLG_ADB_INT = ($1 shl 9); + +// +// This flag when present in a SEQUENCE OF, SET OF or EXPLICIT causes +// indefinite length constructed encoding to be used if required. + // + + ASN1_TFLG_NDEF = ($1 shl 11); + +// Field is embedded and not a pointer // + ASN1_TFLG_EMBED = ($1 shl 12); + +// This is the actual ASN1 item itself // + +type + ASN1_ITEM_st = record + itype: AnsiChar; + utype: TOpenSSL_C_LONG; + template: PASN1_TEMPLATE; + tcount: TOpenSSL_C_LONG; + funcs: Pointer; + size: TOpenSSL_C_LONG; + sname: PAnsiChar; + end; + +//- + // These are values for the itype field and + // determine how the type is interpreted. + // + // For PRIMITIVE types the underlying type + // determines the behaviour if items is NULL. + // + // Otherwise templates must contain a single + // template and the type is treated in the + // same way as the type specified in the template. + // + // For SEQUENCE types the templates field points + // to the members, the size field is the + // structure size. + // + // For CHOICE types the templates field points + // to each possible member (typically a union) + // and the 'size' field is the offset of the + // selector. + // + // The 'funcs' field is used for application + // specific functions. + // + // The EXTERN type uses a new style d2i/i2d. + // The new style should be used where possible + // because it avoids things like the d2i IMPLICIT + // hack. + // + // MSTRING is a multiple string type, it is used + // for a CHOICE of character strings where the + // actual strings all occupy an ASN1_STRING + // structure. In this case the 'utype' field + // has a special meaning, it is used as a mask + // of acceptable types using the B_ASN1 constants. + // + // NDEF_SEQUENCE is the same as SEQUENCE except + // that it will use indefinite length constructed + // encoding if requested. + // + // + +const + ASN1_ITYPE_PRIMITIVE = $0; + + ASN1_ITYPE_SEQUENCE = $1; + + ASN1_ITYPE_CHOICE = $2; + + ASN1_ITYPE_EXTERN = $4; + + ASN1_ITYPE_MSTRING = $5; + + ASN1_ITYPE_NDEF_SEQUENCE = $6; + +// + // Cache for ASN1 tag and length, so we don't keep re-reading it for things + // like CHOICE + // + +type + ASN1_TLC_st = record + valid: AnsiChar; + ret: TOpenSSL_C_INT; + plen: TOpenSSL_C_LONG; + ptag: TOpenSSL_C_INT; + pclass: TOpenSSL_C_INT; + hdrlen: TOpenSSL_C_INT; + end; + ASN1_TLC = ASN1_TLC_st; + PASN1_TLC = ^ASN1_TLC; + + ASN1_ex_d2i = function(pval: PPASN1_VALUE; const AIn: PPByte; len: TOpenSSL_C_LONG; + const it: PASN1_ITEM; tag: TOpenSSL_C_INT; aclass: TOpenSSL_C_INT; + opt: AnsiChar; ctx: PASN1_TLC): TOpenSSL_C_INT; + PASN1_ex_d2i = ^ASN1_ex_d2i; + + ASN1_ex_i2d = function(pval: PPASN1_VALUE; AOut: PPByte; const it: PASN1_ITEM; + tag: TOpenSSL_C_INT; aclass: TOpenSSL_C_INT): TOpenSSL_C_INT; + PASN1_ex_i2d = ^ASN1_ex_i2d; + + ASN1_ex_new_func = function(pval: PPASN1_VALUE; const it: PASN1_ITEM): TOpenSSL_C_INT; + PASN1_ex_new_func = ^ASN1_ex_new_func; + + ASN1_ex_free_func = procedure(pval: PPASN1_VALUE; const it: PASN1_ITEM); + PASN1_ex_free_func = ^ASN1_ex_free_func; + + ASN1_ex_print_func = function(AOut: PBIO; pval: PPASN1_VALUE; indent: TOpenSSL_C_INT; + const fname: PAnsiChar; const pctx: PASN1_PCTX): TOpenSSL_C_INT; + PASN1_ex_print_func = ^ASN1_ex_print_func; + + ASN1_primitive_i2c = function(pval: PPASN1_VALUE; const cont: PAnsiChar; + puttype: POpenSSL_C_INT; const it: PASN1_ITEM): TOpenSSL_C_INT; + PASN1_primitive_i2c = ^ASN1_primitive_i2c; + + ASN1_primitive_c2i = function(pval: PPASN1_VALUE; const cont: PByte; + len: TOpenSSL_C_INT; utype: TOpenSSL_C_INT; free_cont: PAnsiChar; + const it: PASN1_ITEM): TOpenSSL_C_INT; + PASN1_primitive_c2i = ^ASN1_primitive_c2i; + + ASN1_primitive_print = function(AOut: PBIO; pval: PPASN1_VALUE; + const it: PASN1_ITEM; indent: TOpenSSL_C_INT; const pctx: PASN1_PCTX): TOpenSSL_C_INT; + PASN1_primitive_print = ^ASN1_primitive_print; + + ASN1_EXTERN_FUNCS_st = record + app_data: Pointer; + asn1_ex_new: PASN1_ex_new_func; + asn1_ex_free: PASN1_ex_free_func; + asn1_ex_clear: PASN1_ex_free_func; + asn1_ex_d2i: PASN1_ex_d2i; + asn1_ex_i2d: PASN1_ex_i2d; + asn1_ex_print: PASN1_ex_print_func; + end; + + ASN1_EXTERN_FUNCS = ASN1_EXTERN_FUNCS_st; + + ASN1_PRIMITIVE_FUNCS_st = record + app_data: Pointer; + flags: TOpenSSL_C_ULONG; + prim_new: PASN1_ex_new_func; + prim_free: PASN1_ex_free_func; + prim_clear: PASN1_ex_free_func; + prim_c2i: PASN1_primitive_c2i; + prim_i2c: PASN1_primitive_i2c; + prim_print: PASN1_primitive_print; + end; + + ASN1_PRIMITIVE_FUNCS = ASN1_PRIMITIVE_FUNCS_st; + +// + // This is the ASN1_AUX structure: it handles various miscellaneous + // requirements. For example the use of reference counts and an informational + // callback. The "informational callback" is called at various points during + // the ASN1 encoding and decoding. It can be used to provide minor + // customisation of the structures used. This is most useful where the + // supplied routines //almost// do the right thing but need some extra help at + // a few points. If the callback returns zero then it is assumed a fatal + // error has occurred and the main operation should be abandoned. If major + // changes in the default behaviour are required then an external type is + // more appropriate. + // + + ASN1_aux_cb = function(operation: TOpenSSL_C_INT; AIn: PASN1_VALUE; const it: PASN1_ITEM; exarg: Pointer): TOpenSSL_C_INT; + PASN1_aux_cb = ^ASN1_aux_cb; + + ASN1_AUX_st = record + app_data: Pointer; + flags: TOpenSSL_C_INT; + ref_offset: TOpenSSL_C_INT; + ref_lock: TOpenSSL_C_INT; + asn1_cb: PASN1_aux_cb; + enc_offset: TOpenSSL_C_INT; + end; + + ASN1_AUX = ASN1_AUX_st; + +// For print related callbacks exarg points to this structure + + ASN1_PRINT_ARG_st = record + AOut: PBIO; + indent: TOpenSSL_C_INT; + pctx: PASN1_PCTX; + end; + + ASN1_PRINT_ARG = ASN1_PRINT_ARG_st; + +// For streaming related callbacks exarg points to this structure + ASN1_STREAM_ARG_st = record + // BIO to stream through + FOut: PBIO; + // BIO with filters appended + ndef_bio: PBIO; + // Streaming I/O boundary + boundary: PPByte; + end; + + ASN1_STREAM_ARG = ASN1_STREAM_ARG_st; + +const +/// Flags in ASN1_AUX /// + +/// Use a reference count /// + ASN1_AFLG_REFCOUNT = 1; +/// Save the encoding of structure (useful for signatures) /// + ASN1_AFLG_ENCODING = 2; +/// The Sequence length is invalid /// + ASN1_AFLG_BROKEN = 4; + +/// operation values for asn1_cb /// + + ASN1_OP_NEW_PRE = 0; + ASN1_OP_NEW_POST = 1; + ASN1_OP_FREE_PRE = 2; + ASN1_OP_FREE_POST = 3; + ASN1_OP_D2I_PRE = 4; + ASN1_OP_D2I_POST = 5; + ASN1_OP_I2D_PRE = 6; + ASN1_OP_I2D_POST = 7; + ASN1_OP_PRINT_PRE = 8; + ASN1_OP_PRINT_POST = 9; + ASN1_OP_STREAM_PRE = 10; + ASN1_OP_STREAM_POST = 11; + ASN1_OP_DETACHED_PRE = 12; + ASN1_OP_DETACHED_POST = 13; + +///* Macro to implement a primitive type */ +//# define IMPLEMENT_ASN1_TYPE(stname) IMPLEMENT_ASN1_TYPE_ex(stname, stname, 0) +//# define IMPLEMENT_ASN1_TYPE_ex(itname, vname, ex) \ +// ASN1_ITEM_start(itname) \ +// ASN1_ITYPE_PRIMITIVE, V_##vname, NULL, 0, NULL, ex, #itname \ +// ASN1_ITEM_end(itname) +// +///* Macro to implement a multi string type */ +//# define IMPLEMENT_ASN1_MSTRING(itname, mask) \ +// ASN1_ITEM_start(itname) \ +// ASN1_ITYPE_MSTRING, mask, NULL, 0, NULL, sizeof(ASN1_STRING), #itname \ +// ASN1_ITEM_end(itname) +// +//# define IMPLEMENT_EXTERN_ASN1(sname, tag, fptrs) \ +// ASN1_ITEM_start(sname) \ +// ASN1_ITYPE_EXTERN, \ +// tag, \ +// NULL, \ +// 0, \ +// &fptrs, \ +// 0, \ +// #sname \ +// ASN1_ITEM_end(sname) +// +///* Macro to implement standard functions in terms of ASN1_ITEM structures */ +// +//# define IMPLEMENT_ASN1_FUNCTIONS(stname) IMPLEMENT_ASN1_FUNCTIONS_fname(stname, stname, stname) +// +//# define IMPLEMENT_ASN1_FUNCTIONS_name(stname, itname) IMPLEMENT_ASN1_FUNCTIONS_fname(stname, itname, itname) +// +//# define IMPLEMENT_ASN1_FUNCTIONS_ENCODE_name(stname, itname) \ +// IMPLEMENT_ASN1_FUNCTIONS_ENCODE_fname(stname, itname, itname) +// +//# define IMPLEMENT_STATIC_ASN1_ALLOC_FUNCTIONS(stname) \ +// IMPLEMENT_ASN1_ALLOC_FUNCTIONS_pfname(static, stname, stname, stname) +// +//# define IMPLEMENT_ASN1_ALLOC_FUNCTIONS(stname) \ +// IMPLEMENT_ASN1_ALLOC_FUNCTIONS_fname(stname, stname, stname) +// +//# define IMPLEMENT_ASN1_ALLOC_FUNCTIONS_pfname(pre, stname, itname, fname) \ +// pre stname *fname##_new(void) \ +// { \ +// return (stname *)ASN1_item_new(ASN1_ITEM_rptr(itname)); \ +// } \ +// pre void fname##_free(stname *a) \ +// { \ +// ASN1_item_free((ASN1_VALUE *)a, ASN1_ITEM_rptr(itname)); \ +// } +// +//# define IMPLEMENT_ASN1_ALLOC_FUNCTIONS_fname(stname, itname, fname) \ +// stname *fname##_new(void) \ +// { \ +// return (stname *)ASN1_item_new(ASN1_ITEM_rptr(itname)); \ +// } \ +// void fname##_free(stname *a) \ +// { \ +// ASN1_item_free((ASN1_VALUE *)a, ASN1_ITEM_rptr(itname)); \ +// } +// +//# define IMPLEMENT_ASN1_FUNCTIONS_fname(stname, itname, fname) \ +// IMPLEMENT_ASN1_ENCODE_FUNCTIONS_fname(stname, itname, fname) \ +// IMPLEMENT_ASN1_ALLOC_FUNCTIONS_fname(stname, itname, fname) +// +//# define IMPLEMENT_ASN1_ENCODE_FUNCTIONS_fname(stname, itname, fname) \ +// stname *d2i_##fname(stname **a, const unsigned char **in, long len) \ +// { \ +// return (stname *)ASN1_item_d2i((ASN1_VALUE **)a, in, len, ASN1_ITEM_rptr(itname));\ +// } \ +// int i2d_##fname(stname *a, unsigned char **out) \ +// { \ +// return ASN1_item_i2d((ASN1_VALUE *)a, out, ASN1_ITEM_rptr(itname));\ +// } +// +//# define IMPLEMENT_ASN1_NDEF_FUNCTION(stname) \ +// int i2d_##stname##_NDEF(stname *a, unsigned char **out) \ +// { \ +// return ASN1_item_ndef_i2d((ASN1_VALUE *)a, out, ASN1_ITEM_rptr(stname));\ +// } +// +//# define IMPLEMENT_STATIC_ASN1_ENCODE_FUNCTIONS(stname) \ +// static stname *d2i_##stname(stname **a, \ +// const unsigned char **in, long len) \ +// { \ +// return (stname *)ASN1_item_d2i((ASN1_VALUE **)a, in, len, \ +// ASN1_ITEM_rptr(stname)); \ +// } \ +// static int i2d_##stname(stname *a, unsigned char **out) \ +// { \ +// return ASN1_item_i2d((ASN1_VALUE *)a, out, \ +// ASN1_ITEM_rptr(stname)); \ +// } +// +///* +// * This includes evil casts to remove const: they will go away when full ASN1 +// * constification is done. +// */ +//# define IMPLEMENT_ASN1_ENCODE_FUNCTIONS_const_fname(stname, itname, fname) \ +// stname *d2i_##fname(stname **a, const unsigned char **in, long len) \ +// { \ +// return (stname *)ASN1_item_d2i((ASN1_VALUE **)a, in, len, ASN1_ITEM_rptr(itname));\ +// } \ +// int i2d_##fname(const stname *a, unsigned char **out) \ +// { \ +// return ASN1_item_i2d((ASN1_VALUE *)a, out, ASN1_ITEM_rptr(itname));\ +// } +// +//# define IMPLEMENT_ASN1_DUP_FUNCTION(stname) \ +// stname * stname##_dup(stname *x) \ +// { \ +// return ASN1_item_dup(ASN1_ITEM_rptr(stname), x); \ +// } +// +//# define IMPLEMENT_ASN1_PRINT_FUNCTION(stname) \ +// IMPLEMENT_ASN1_PRINT_FUNCTION_fname(stname, stname, stname) +// +//# define IMPLEMENT_ASN1_PRINT_FUNCTION_fname(stname, itname, fname) \ +// int fname##_print_ctx(BIO *out, stname *x, int indent, \ +// const ASN1_PCTX *pctx) \ +// { \ +// return ASN1_item_print(out, (ASN1_VALUE *)x, indent, \ +// ASN1_ITEM_rptr(itname), pctx); \ +// } +// +//# define IMPLEMENT_ASN1_FUNCTIONS_const(name) \ +// IMPLEMENT_ASN1_FUNCTIONS_const_fname(name, name, name) +// +//# define IMPLEMENT_ASN1_FUNCTIONS_const_fname(stname, itname, fname) \ +// IMPLEMENT_ASN1_ENCODE_FUNCTIONS_const_fname(stname, itname, fname) \ +// IMPLEMENT_ASN1_ALLOC_FUNCTIONS_fname(stname, itname, fname) +// +//* external definitions for primitive types */ + +//DECLARE_ASN1_ITEM(ASN1_BOOLEAN) +//DECLARE_ASN1_ITEM(ASN1_TBOOLEAN) +//DECLARE_ASN1_ITEM(ASN1_FBOOLEAN) +//DECLARE_ASN1_ITEM(ASN1_SEQUENCE) +//DECLARE_ASN1_ITEM(CBIGNUM) +//DECLARE_ASN1_ITEM(BIGNUM) +//DECLARE_ASN1_ITEM(INT32) +//DECLARE_ASN1_ITEM(ZINT32) +//DECLARE_ASN1_ITEM(UINT32) +//DECLARE_ASN1_ITEM(ZUINT32) +//DECLARE_ASN1_ITEM(INT64) +//DECLARE_ASN1_ITEM(ZINT64) +//DECLARE_ASN1_ITEM(UINT64) +//DECLARE_ASN1_ITEM(ZUINT64) + +//# if OPENSSL_API_COMPAT < 0x10200000L +///* +// * LONG and ZLONG are strongly discouraged for use as stored data, as the +// * underlying C type (long) differs in size depending on the architecture. +// * They are designed with 32-bit longs in mind. +// */ +//DECLARE_ASN1_ITEM(LONG) +//DECLARE_ASN1_ITEM(ZLONG) +//# endif + +//DEFINE_STACK_OF(ASN1_VALUE) + +//* Functions used internally by the ASN1 code */ + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ASN1_item_ex_new} +{$EXTERNALSYM ASN1_item_ex_free} +{$EXTERNALSYM ASN1_item_ex_d2i} +{$EXTERNALSYM ASN1_item_ex_i2d} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ASN1_item_ex_new(pval: PPASN1_VALUE; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ASN1_item_ex_free(pval: PPASN1_VALUE; const it: PASN1_ITEM); cdecl; external CLibCrypto; +function ASN1_item_ex_d2i(pval: PPASN1_VALUE; const AIn: PPByte; len: TOpenSSL_C_LONG; const it: PASN1_ITEM; tag: TOpenSSL_C_INT; aclass: TOpenSSL_C_INT; opt: AnsiChar; ctx: PASN1_TLC): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_item_ex_i2d(pval: PPASN1_VALUE; AOut: PPByte; const it: PASN1_ITEM; tag: TOpenSSL_C_INT; aclass: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ASN1_item_ex_new(pval: PPASN1_VALUE; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl; +procedure Load_ASN1_item_ex_free(pval: PPASN1_VALUE; const it: PASN1_ITEM); cdecl; +function Load_ASN1_item_ex_d2i(pval: PPASN1_VALUE; const AIn: PPByte; len: TOpenSSL_C_LONG; const it: PASN1_ITEM; tag: TOpenSSL_C_INT; aclass: TOpenSSL_C_INT; opt: AnsiChar; ctx: PASN1_TLC): TOpenSSL_C_INT; cdecl; +function Load_ASN1_item_ex_i2d(pval: PPASN1_VALUE; AOut: PPByte; const it: PASN1_ITEM; tag: TOpenSSL_C_INT; aclass: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + +var + ASN1_item_ex_new: function (pval: PPASN1_VALUE; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl = Load_ASN1_item_ex_new; + ASN1_item_ex_free: procedure (pval: PPASN1_VALUE; const it: PASN1_ITEM); cdecl = Load_ASN1_item_ex_free; + ASN1_item_ex_d2i: function (pval: PPASN1_VALUE; const AIn: PPByte; len: TOpenSSL_C_LONG; const it: PASN1_ITEM; tag: TOpenSSL_C_INT; aclass: TOpenSSL_C_INT; opt: AnsiChar; ctx: PASN1_TLC): TOpenSSL_C_INT; cdecl = Load_ASN1_item_ex_d2i; + ASN1_item_ex_i2d: function (pval: PPASN1_VALUE; AOut: PPByte; const it: PASN1_ITEM; tag: TOpenSSL_C_INT; aclass: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ASN1_item_ex_i2d; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ASN1_item_ex_new(pval: PPASN1_VALUE; const it: PASN1_ITEM): TOpenSSL_C_INT; cdecl; +begin + ASN1_item_ex_new := LoadLibCryptoFunction('ASN1_item_ex_new'); + if not assigned(ASN1_item_ex_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_ex_new'); + Result := ASN1_item_ex_new(pval,it); +end; + +procedure Load_ASN1_item_ex_free(pval: PPASN1_VALUE; const it: PASN1_ITEM); cdecl; +begin + ASN1_item_ex_free := LoadLibCryptoFunction('ASN1_item_ex_free'); + if not assigned(ASN1_item_ex_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_ex_free'); + ASN1_item_ex_free(pval,it); +end; + +function Load_ASN1_item_ex_d2i(pval: PPASN1_VALUE; const AIn: PPByte; len: TOpenSSL_C_LONG; const it: PASN1_ITEM; tag: TOpenSSL_C_INT; aclass: TOpenSSL_C_INT; opt: AnsiChar; ctx: PASN1_TLC): TOpenSSL_C_INT; cdecl; +begin + ASN1_item_ex_d2i := LoadLibCryptoFunction('ASN1_item_ex_d2i'); + if not assigned(ASN1_item_ex_d2i) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_ex_d2i'); + Result := ASN1_item_ex_d2i(pval,AIn,len,it,tag,aclass,opt,ctx); +end; + +function Load_ASN1_item_ex_i2d(pval: PPASN1_VALUE; AOut: PPByte; const it: PASN1_ITEM; tag: TOpenSSL_C_INT; aclass: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ASN1_item_ex_i2d := LoadLibCryptoFunction('ASN1_item_ex_i2d'); + if not assigned(ASN1_item_ex_i2d) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_ex_i2d'); + Result := ASN1_item_ex_i2d(pval,AOut,it,tag,aclass); +end; + + +procedure UnLoad; +begin + ASN1_item_ex_new := Load_ASN1_item_ex_new; + ASN1_item_ex_free := Load_ASN1_item_ex_free; + ASN1_item_ex_d2i := Load_ASN1_item_ex_d2i; + ASN1_item_ex_i2d := Load_ASN1_item_ex_i2d; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_async.pas b/src/opensslHdrs/IdOpenSSLHeaders_async.pas new file mode 100644 index 0000000..8938494 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_async.pas @@ -0,0 +1,332 @@ +(* This unit was generated from the source file async.h2pas +It should not be modified directly. All changes should be made to async.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_async; + + +interface + +// Headers for OpenSSL 1.1.1 +// async.h + + +uses + IdSSLOpenSSLAPI; + +const + ASYNC_ERR = 0; + ASYNC_NO_JOBS = 0; + ASYNC_PAUSE = 2; + ASYNC_FINISH = 3; + +type + async_job_st = type Pointer; + ASYNC_JOB = async_job_st; + PASYNC_JOB = ^ASYNC_JOB; + PPASYNC_JOB = ^PASYNC_JOB; + + async_wait_ctx_st = type Pointer; + ASYNC_WAIT_CTX = async_wait_ctx_st; + PASYNC_WAIT_CTX = ^ASYNC_WAIT_CTX; + + OSSL_ASYNC_FD = type TOpenSSL_C_INT; + POSSL_ASYNC_FD = ^OSSL_ASYNC_FD; + + ASYNC_WAIT_CTX_set_wait_fd_cleanup = procedure(v1: PASYNC_WAIT_CTX; + const v2: Pointer; v3: OSSL_ASYNC_FD; v4: Pointer); + ASYNC_start_job_cb = function(v1: Pointer): TOpenSSL_C_INT; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ASYNC_init_thread} +{$EXTERNALSYM ASYNC_cleanup_thread} +{$EXTERNALSYM ASYNC_WAIT_CTX_new} +{$EXTERNALSYM ASYNC_WAIT_CTX_free} +{$EXTERNALSYM ASYNC_WAIT_CTX_set_wait_fd} +{$EXTERNALSYM ASYNC_WAIT_CTX_get_fd} +{$EXTERNALSYM ASYNC_WAIT_CTX_get_all_fds} +{$EXTERNALSYM ASYNC_WAIT_CTX_get_changed_fds} +{$EXTERNALSYM ASYNC_WAIT_CTX_clear_fd} +{$EXTERNALSYM ASYNC_is_capable} +{$EXTERNALSYM ASYNC_start_job} +{$EXTERNALSYM ASYNC_pause_job} +{$EXTERNALSYM ASYNC_get_current_job} +{$EXTERNALSYM ASYNC_get_wait_ctx} +{$EXTERNALSYM ASYNC_block_pause} +{$EXTERNALSYM ASYNC_unblock_pause} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ASYNC_init_thread(max_size: TOpenSSL_C_SIZET; init_size: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ASYNC_cleanup_thread; cdecl; external CLibCrypto; +function ASYNC_WAIT_CTX_new: PASYNC_WAIT_CTX; cdecl; external CLibCrypto; +procedure ASYNC_WAIT_CTX_free(ctx: PASYNC_WAIT_CTX); cdecl; external CLibCrypto; +function ASYNC_WAIT_CTX_set_wait_fd(ctx: PASYNC_WAIT_CTX; const key: Pointer; fd: OSSL_ASYNC_FD; custom_data: Pointer; cleanup_cb: ASYNC_WAIT_CTX_set_wait_fd_cleanup): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASYNC_WAIT_CTX_get_fd(ctx: PASYNC_WAIT_CTX; const key: Pointer; fd: POSSL_ASYNC_FD; custom_data: PPointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASYNC_WAIT_CTX_get_all_fds(ctx: PASYNC_WAIT_CTX; fd: POSSL_ASYNC_FD; numfds: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASYNC_WAIT_CTX_get_changed_fds(ctx: PASYNC_WAIT_CTX; addfd: POSSL_ASYNC_FD; numaddfds: POpenSSL_C_SIZET; delfd: POSSL_ASYNC_FD; numdelfds: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASYNC_WAIT_CTX_clear_fd(ctx: PASYNC_WAIT_CTX; const key: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASYNC_is_capable: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASYNC_start_job(job: PPASYNC_JOB; ctx: PASYNC_WAIT_CTX; ret: POpenSSL_C_INT; func: ASYNC_start_job_cb; args: Pointer; size: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASYNC_pause_job: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASYNC_get_current_job: PASYNC_JOB; cdecl; external CLibCrypto; +function ASYNC_get_wait_ctx(job: PASYNC_JOB): PASYNC_WAIT_CTX; cdecl; external CLibCrypto; +procedure ASYNC_block_pause; cdecl; external CLibCrypto; +procedure ASYNC_unblock_pause; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ASYNC_init_thread(max_size: TOpenSSL_C_SIZET; init_size: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +procedure Load_ASYNC_cleanup_thread; cdecl; +function Load_ASYNC_WAIT_CTX_new: PASYNC_WAIT_CTX; cdecl; +procedure Load_ASYNC_WAIT_CTX_free(ctx: PASYNC_WAIT_CTX); cdecl; +function Load_ASYNC_WAIT_CTX_set_wait_fd(ctx: PASYNC_WAIT_CTX; const key: Pointer; fd: OSSL_ASYNC_FD; custom_data: Pointer; cleanup_cb: ASYNC_WAIT_CTX_set_wait_fd_cleanup): TOpenSSL_C_INT; cdecl; +function Load_ASYNC_WAIT_CTX_get_fd(ctx: PASYNC_WAIT_CTX; const key: Pointer; fd: POSSL_ASYNC_FD; custom_data: PPointer): TOpenSSL_C_INT; cdecl; +function Load_ASYNC_WAIT_CTX_get_all_fds(ctx: PASYNC_WAIT_CTX; fd: POSSL_ASYNC_FD; numfds: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_ASYNC_WAIT_CTX_get_changed_fds(ctx: PASYNC_WAIT_CTX; addfd: POSSL_ASYNC_FD; numaddfds: POpenSSL_C_SIZET; delfd: POSSL_ASYNC_FD; numdelfds: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_ASYNC_WAIT_CTX_clear_fd(ctx: PASYNC_WAIT_CTX; const key: Pointer): TOpenSSL_C_INT; cdecl; +function Load_ASYNC_is_capable: TOpenSSL_C_INT; cdecl; +function Load_ASYNC_start_job(job: PPASYNC_JOB; ctx: PASYNC_WAIT_CTX; ret: POpenSSL_C_INT; func: ASYNC_start_job_cb; args: Pointer; size: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_ASYNC_pause_job: TOpenSSL_C_INT; cdecl; +function Load_ASYNC_get_current_job: PASYNC_JOB; cdecl; +function Load_ASYNC_get_wait_ctx(job: PASYNC_JOB): PASYNC_WAIT_CTX; cdecl; +procedure Load_ASYNC_block_pause; cdecl; +procedure Load_ASYNC_unblock_pause; cdecl; + +var + ASYNC_init_thread: function (max_size: TOpenSSL_C_SIZET; init_size: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_ASYNC_init_thread; + ASYNC_cleanup_thread: procedure ; cdecl = Load_ASYNC_cleanup_thread; + ASYNC_WAIT_CTX_new: function : PASYNC_WAIT_CTX; cdecl = Load_ASYNC_WAIT_CTX_new; + ASYNC_WAIT_CTX_free: procedure (ctx: PASYNC_WAIT_CTX); cdecl = Load_ASYNC_WAIT_CTX_free; + ASYNC_WAIT_CTX_set_wait_fd: function (ctx: PASYNC_WAIT_CTX; const key: Pointer; fd: OSSL_ASYNC_FD; custom_data: Pointer; cleanup_cb: ASYNC_WAIT_CTX_set_wait_fd_cleanup): TOpenSSL_C_INT; cdecl = Load_ASYNC_WAIT_CTX_set_wait_fd; + ASYNC_WAIT_CTX_get_fd: function (ctx: PASYNC_WAIT_CTX; const key: Pointer; fd: POSSL_ASYNC_FD; custom_data: PPointer): TOpenSSL_C_INT; cdecl = Load_ASYNC_WAIT_CTX_get_fd; + ASYNC_WAIT_CTX_get_all_fds: function (ctx: PASYNC_WAIT_CTX; fd: POSSL_ASYNC_FD; numfds: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_ASYNC_WAIT_CTX_get_all_fds; + ASYNC_WAIT_CTX_get_changed_fds: function (ctx: PASYNC_WAIT_CTX; addfd: POSSL_ASYNC_FD; numaddfds: POpenSSL_C_SIZET; delfd: POSSL_ASYNC_FD; numdelfds: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_ASYNC_WAIT_CTX_get_changed_fds; + ASYNC_WAIT_CTX_clear_fd: function (ctx: PASYNC_WAIT_CTX; const key: Pointer): TOpenSSL_C_INT; cdecl = Load_ASYNC_WAIT_CTX_clear_fd; + ASYNC_is_capable: function : TOpenSSL_C_INT; cdecl = Load_ASYNC_is_capable; + ASYNC_start_job: function (job: PPASYNC_JOB; ctx: PASYNC_WAIT_CTX; ret: POpenSSL_C_INT; func: ASYNC_start_job_cb; args: Pointer; size: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_ASYNC_start_job; + ASYNC_pause_job: function : TOpenSSL_C_INT; cdecl = Load_ASYNC_pause_job; + ASYNC_get_current_job: function : PASYNC_JOB; cdecl = Load_ASYNC_get_current_job; + ASYNC_get_wait_ctx: function (job: PASYNC_JOB): PASYNC_WAIT_CTX; cdecl = Load_ASYNC_get_wait_ctx; + ASYNC_block_pause: procedure ; cdecl = Load_ASYNC_block_pause; + ASYNC_unblock_pause: procedure ; cdecl = Load_ASYNC_unblock_pause; +{$ENDIF} +const + ASYNC_init_thread_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASYNC_cleanup_thread_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASYNC_WAIT_CTX_new_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASYNC_WAIT_CTX_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASYNC_WAIT_CTX_set_wait_fd_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASYNC_WAIT_CTX_get_fd_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASYNC_WAIT_CTX_get_all_fds_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASYNC_WAIT_CTX_get_changed_fds_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASYNC_WAIT_CTX_clear_fd_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASYNC_is_capable_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASYNC_start_job_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASYNC_pause_job_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASYNC_get_current_job_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASYNC_get_wait_ctx_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASYNC_block_pause_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ASYNC_unblock_pause_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ASYNC_init_thread(max_size: TOpenSSL_C_SIZET; init_size: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + ASYNC_init_thread := LoadLibCryptoFunction('ASYNC_init_thread'); + if not assigned(ASYNC_init_thread) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASYNC_init_thread'); + Result := ASYNC_init_thread(max_size,init_size); +end; + +procedure Load_ASYNC_cleanup_thread; cdecl; +begin + ASYNC_cleanup_thread := LoadLibCryptoFunction('ASYNC_cleanup_thread'); + if not assigned(ASYNC_cleanup_thread) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASYNC_cleanup_thread'); + ASYNC_cleanup_thread(); +end; + +function Load_ASYNC_WAIT_CTX_new: PASYNC_WAIT_CTX; cdecl; +begin + ASYNC_WAIT_CTX_new := LoadLibCryptoFunction('ASYNC_WAIT_CTX_new'); + if not assigned(ASYNC_WAIT_CTX_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASYNC_WAIT_CTX_new'); + Result := ASYNC_WAIT_CTX_new(); +end; + +procedure Load_ASYNC_WAIT_CTX_free(ctx: PASYNC_WAIT_CTX); cdecl; +begin + ASYNC_WAIT_CTX_free := LoadLibCryptoFunction('ASYNC_WAIT_CTX_free'); + if not assigned(ASYNC_WAIT_CTX_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASYNC_WAIT_CTX_free'); + ASYNC_WAIT_CTX_free(ctx); +end; + +function Load_ASYNC_WAIT_CTX_set_wait_fd(ctx: PASYNC_WAIT_CTX; const key: Pointer; fd: OSSL_ASYNC_FD; custom_data: Pointer; cleanup_cb: ASYNC_WAIT_CTX_set_wait_fd_cleanup): TOpenSSL_C_INT; cdecl; +begin + ASYNC_WAIT_CTX_set_wait_fd := LoadLibCryptoFunction('ASYNC_WAIT_CTX_set_wait_fd'); + if not assigned(ASYNC_WAIT_CTX_set_wait_fd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASYNC_WAIT_CTX_set_wait_fd'); + Result := ASYNC_WAIT_CTX_set_wait_fd(ctx,key,fd,custom_data,cleanup_cb); +end; + +function Load_ASYNC_WAIT_CTX_get_fd(ctx: PASYNC_WAIT_CTX; const key: Pointer; fd: POSSL_ASYNC_FD; custom_data: PPointer): TOpenSSL_C_INT; cdecl; +begin + ASYNC_WAIT_CTX_get_fd := LoadLibCryptoFunction('ASYNC_WAIT_CTX_get_fd'); + if not assigned(ASYNC_WAIT_CTX_get_fd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASYNC_WAIT_CTX_get_fd'); + Result := ASYNC_WAIT_CTX_get_fd(ctx,key,fd,custom_data); +end; + +function Load_ASYNC_WAIT_CTX_get_all_fds(ctx: PASYNC_WAIT_CTX; fd: POSSL_ASYNC_FD; numfds: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + ASYNC_WAIT_CTX_get_all_fds := LoadLibCryptoFunction('ASYNC_WAIT_CTX_get_all_fds'); + if not assigned(ASYNC_WAIT_CTX_get_all_fds) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASYNC_WAIT_CTX_get_all_fds'); + Result := ASYNC_WAIT_CTX_get_all_fds(ctx,fd,numfds); +end; + +function Load_ASYNC_WAIT_CTX_get_changed_fds(ctx: PASYNC_WAIT_CTX; addfd: POSSL_ASYNC_FD; numaddfds: POpenSSL_C_SIZET; delfd: POSSL_ASYNC_FD; numdelfds: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + ASYNC_WAIT_CTX_get_changed_fds := LoadLibCryptoFunction('ASYNC_WAIT_CTX_get_changed_fds'); + if not assigned(ASYNC_WAIT_CTX_get_changed_fds) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASYNC_WAIT_CTX_get_changed_fds'); + Result := ASYNC_WAIT_CTX_get_changed_fds(ctx,addfd,numaddfds,delfd,numdelfds); +end; + +function Load_ASYNC_WAIT_CTX_clear_fd(ctx: PASYNC_WAIT_CTX; const key: Pointer): TOpenSSL_C_INT; cdecl; +begin + ASYNC_WAIT_CTX_clear_fd := LoadLibCryptoFunction('ASYNC_WAIT_CTX_clear_fd'); + if not assigned(ASYNC_WAIT_CTX_clear_fd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASYNC_WAIT_CTX_clear_fd'); + Result := ASYNC_WAIT_CTX_clear_fd(ctx,key); +end; + +function Load_ASYNC_is_capable: TOpenSSL_C_INT; cdecl; +begin + ASYNC_is_capable := LoadLibCryptoFunction('ASYNC_is_capable'); + if not assigned(ASYNC_is_capable) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASYNC_is_capable'); + Result := ASYNC_is_capable(); +end; + +function Load_ASYNC_start_job(job: PPASYNC_JOB; ctx: PASYNC_WAIT_CTX; ret: POpenSSL_C_INT; func: ASYNC_start_job_cb; args: Pointer; size: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + ASYNC_start_job := LoadLibCryptoFunction('ASYNC_start_job'); + if not assigned(ASYNC_start_job) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASYNC_start_job'); + Result := ASYNC_start_job(job,ctx,ret,func,args,size); +end; + +function Load_ASYNC_pause_job: TOpenSSL_C_INT; cdecl; +begin + ASYNC_pause_job := LoadLibCryptoFunction('ASYNC_pause_job'); + if not assigned(ASYNC_pause_job) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASYNC_pause_job'); + Result := ASYNC_pause_job(); +end; + +function Load_ASYNC_get_current_job: PASYNC_JOB; cdecl; +begin + ASYNC_get_current_job := LoadLibCryptoFunction('ASYNC_get_current_job'); + if not assigned(ASYNC_get_current_job) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASYNC_get_current_job'); + Result := ASYNC_get_current_job(); +end; + +function Load_ASYNC_get_wait_ctx(job: PASYNC_JOB): PASYNC_WAIT_CTX; cdecl; +begin + ASYNC_get_wait_ctx := LoadLibCryptoFunction('ASYNC_get_wait_ctx'); + if not assigned(ASYNC_get_wait_ctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASYNC_get_wait_ctx'); + Result := ASYNC_get_wait_ctx(job); +end; + +procedure Load_ASYNC_block_pause; cdecl; +begin + ASYNC_block_pause := LoadLibCryptoFunction('ASYNC_block_pause'); + if not assigned(ASYNC_block_pause) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASYNC_block_pause'); + ASYNC_block_pause(); +end; + +procedure Load_ASYNC_unblock_pause; cdecl; +begin + ASYNC_unblock_pause := LoadLibCryptoFunction('ASYNC_unblock_pause'); + if not assigned(ASYNC_unblock_pause) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASYNC_unblock_pause'); + ASYNC_unblock_pause(); +end; + + +procedure UnLoad; +begin + ASYNC_init_thread := Load_ASYNC_init_thread; + ASYNC_cleanup_thread := Load_ASYNC_cleanup_thread; + ASYNC_WAIT_CTX_new := Load_ASYNC_WAIT_CTX_new; + ASYNC_WAIT_CTX_free := Load_ASYNC_WAIT_CTX_free; + ASYNC_WAIT_CTX_set_wait_fd := Load_ASYNC_WAIT_CTX_set_wait_fd; + ASYNC_WAIT_CTX_get_fd := Load_ASYNC_WAIT_CTX_get_fd; + ASYNC_WAIT_CTX_get_all_fds := Load_ASYNC_WAIT_CTX_get_all_fds; + ASYNC_WAIT_CTX_get_changed_fds := Load_ASYNC_WAIT_CTX_get_changed_fds; + ASYNC_WAIT_CTX_clear_fd := Load_ASYNC_WAIT_CTX_clear_fd; + ASYNC_is_capable := Load_ASYNC_is_capable; + ASYNC_start_job := Load_ASYNC_start_job; + ASYNC_pause_job := Load_ASYNC_pause_job; + ASYNC_get_current_job := Load_ASYNC_get_current_job; + ASYNC_get_wait_ctx := Load_ASYNC_get_wait_ctx; + ASYNC_block_pause := Load_ASYNC_block_pause; + ASYNC_unblock_pause := Load_ASYNC_unblock_pause; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_asyncerr.pas b/src/opensslHdrs/IdOpenSSLHeaders_asyncerr.pas new file mode 100644 index 0000000..493fa37 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_asyncerr.pas @@ -0,0 +1,116 @@ +(* This unit was generated from the source file asyncerr.h2pas +It should not be modified directly. All changes should be made to asyncerr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_asyncerr; + + +interface + +// Headers for OpenSSL 1.1.1 +// asyncerr.h + + +uses + IdSSLOpenSSLAPI; + +const + // + // ASYNC function codes. + // + ASYNC_F_ASYNC_CTX_NEW = 100; + ASYNC_F_ASYNC_INIT_THREAD = 101; + ASYNC_F_ASYNC_JOB_NEW = 102; + ASYNC_F_ASYNC_PAUSE_JOB = 103; + ASYNC_F_ASYNC_START_FUNC = 104; + ASYNC_F_ASYNC_START_JOB = 105; + ASYNC_F_ASYNC_WAIT_CTX_SET_WAIT_FD = 106; + + // + // ASYNC reason codes. + // + ASYNC_R_FAILED_TO_SET_POOL = 101; + ASYNC_R_FAILED_TO_SWAP_CONTEXT = 102; + ASYNC_R_INIT_FAILED = 105; + ASYNC_R_INVALID_POOL_SIZE = 103; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_ASYNC_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_ASYNC_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_ASYNC_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_ASYNC_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_ASYNC_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_ASYNC_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_ASYNC_strings := LoadLibCryptoFunction('ERR_load_ASYNC_strings'); + if not assigned(ERR_load_ASYNC_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_ASYNC_strings'); + Result := ERR_load_ASYNC_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_ASYNC_strings := Load_ERR_load_ASYNC_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_bio.pas b/src/opensslHdrs/IdOpenSSLHeaders_bio.pas new file mode 100644 index 0000000..7799f97 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_bio.pas @@ -0,0 +1,2556 @@ +(* This unit was generated from the source file bio.h2pas +It should not be modified directly. All changes should be made to bio.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_bio; + + +interface + +// Headers for OpenSSL 1.1.1 +// bio.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ; + +{$MINENUMSIZE 4} + +const + (* There are the classes of BIOs *) + BIO_TYPE_DESCRIPTOR = $0100; + BIO_TYPE_FILTER = $0200; + BIO_TYPE_SOURCE_SINK = $0400; + + (* These are the 'types' of BIOs *) + BIO_TYPE_NONE = 0; + BIO_TYPE_MEM = 1 or BIO_TYPE_SOURCE_SINK; + BIO_TYPE_FILE = 2 or BIO_TYPE_SOURCE_SINK; + + BIO_TYPE_FD = 4 or BIO_TYPE_SOURCE_SINK or BIO_TYPE_DESCRIPTOR; + BIO_TYPE_SOCKET = 5 or BIO_TYPE_SOURCE_SINK or BIO_TYPE_DESCRIPTOR; + BIO_TYPE_NULL = 6 or BIO_TYPE_SOURCE_SINK; + BIO_TYPE_SSL = 7 or BIO_TYPE_FILTER; + BIO_TYPE_MD = 8 or BIO_TYPE_FILTER; + BIO_TYPE_BUFFER = 9 or BIO_TYPE_FILTER; + BIO_TYPE_CIPHER = 10 or BIO_TYPE_FILTER; + BIO_TYPE_BASE64 = 11 or BIO_TYPE_FILTER; + BIO_TYPE_CONNECT = 12 or BIO_TYPE_SOURCE_SINK or BIO_TYPE_DESCRIPTOR; + BIO_TYPE_ACCEPT = 13 or BIO_TYPE_SOURCE_SINK or BIO_TYPE_DESCRIPTOR; + + BIO_TYPE_NBIO_TEST = 16 or BIO_TYPE_FILTER; + BIO_TYPE_NULL_FILTER = 17 or BIO_TYPE_FILTER; + BIO_TYPE_BIO = 19 or BIO_TYPE_SOURCE_SINK; + BIO_TYPE_LINEBUFFER = 20 or BIO_TYPE_FILTER; + BIO_TYPE_DGRAM = 21 or BIO_TYPE_SOURCE_SINK or BIO_TYPE_DESCRIPTOR; + BIO_TYPE_ASN1 = 22 or BIO_TYPE_FILTER; + BIO_TYPE_COMP = 23 or BIO_TYPE_FILTER; + BIO_TYPE_DGRAM_SCTP = 24 or BIO_TYPE_SOURCE_SINK or BIO_TYPE_DESCRIPTOR; + + BIO_TYPE_START = 128; + + (* + * BIO_FILENAME_READ|BIO_CLOSE to open or close on free. + * BIO_set_fp(in,stdin,BIO_NOCLOSE); + *) + BIO_NOCLOSE = $00; + BIO_CLOSE = $01; + + (* + * These are used in the following macros and are passed to BIO_ctrl() + *) + BIO_CTRL_RESET = 1;(* opt - rewind/zero etc *) + BIO_CTRL_EOF = 2;(* opt - are we at the eof *) + BIO_CTRL_INFO = 3;(* opt - extra tit-bits *) + BIO_CTRL_SET = 4;(* man - set the 'IO' type *) + BIO_CTRL_GET = 5;(* man - get the 'IO' type *) + BIO_CTRL_PUSH = 6;(* opt - internal, used to signify change *) + BIO_CTRL_POP = 7;(* opt - internal, used to signify change *) + BIO_CTRL_GET_CLOSE = 8;(* man - set the 'close' on free *) + BIO_CTRL_SET_CLOSE = 9;(* man - set the 'close' on free *) + // Added "_const" to prevent naming clashes + BIO_CTRL_PENDING_const = 10;(* opt - is their more data buffered *) + BIO_CTRL_FLUSH = 11;(* opt - 'flush' buffered output *) + BIO_CTRL_DUP = 12;(* man - extra stuff for 'duped' BIO *) + // Added "_const" to prevent naming clashes + BIO_CTRL_WPENDING_const = 13;(* opt - number of bytes still to write *) + BIO_CTRL_SET_CALLBACK = 14;(* opt - set callback function *) + BIO_CTRL_GET_CALLBACK = 15;(* opt - set callback function *) + + BIO_CTRL_PEEK = 29;(* BIO_f_buffer special *) + BIO_CTRL_SET_FILENAME = 30;(* BIO_s_file special *) + + (* dgram BIO stuff *) + BIO_CTRL_DGRAM_CONNECT = 31;(* BIO dgram special *) + BIO_CTRL_DGRAM_SET_CONNECTED = 32;(* allow for an externally connected + * socket to be passed in *) + BIO_CTRL_DGRAM_SET_RECV_TIMEOUT = 33;(* setsockopt, essentially *) + BIO_CTRL_DGRAM_GET_RECV_TIMEOUT = 34;(* getsockopt, essentially *) + BIO_CTRL_DGRAM_SET_SEND_TIMEOUT = 35;(* setsockopt, essentially *) + BIO_CTRL_DGRAM_GET_SEND_TIMEOUT = 36;(* getsockopt, essentially *) + + BIO_CTRL_DGRAM_GET_RECV_TIMER_EXP = 37;(* flag whether the last *) + BIO_CTRL_DGRAM_GET_SEND_TIMER_EXP = 38;(* I/O operation tiemd out *) + + BIO_CTRL_DGRAM_MTU_DISCOVER = 39;(* set DF bit on egress packets *) + + BIO_CTRL_DGRAM_QUERY_MTU = 40;(* as kernel for current MTU *) + BIO_CTRL_DGRAM_GET_FALLBACK_MTU = 47; + BIO_CTRL_DGRAM_GET_MTU = 41;(* get cached value for MTU *) + BIO_CTRL_DGRAM_SET_MTU = 42;(* set cached value for MTU. + * want to use this if asking + * the kernel fails *) + + BIO_CTRL_DGRAM_MTU_EXCEEDED = 43;(* check whether the MTU was + * exceed in the previous write + * operation *) + + BIO_CTRL_DGRAM_GET_PEER = 46; + BIO_CTRL_DGRAM_SET_PEER = 44;(* Destination for the data *) + + BIO_CTRL_DGRAM_SET_NEXT_TIMEOUT = 45;(* Next DTLS handshake timeout + * to adjust socket timeouts *) + BIO_CTRL_DGRAM_SET_DONT_FRAG = 48; + + BIO_CTRL_DGRAM_GET_MTU_OVERHEAD = 49; + + (* Deliberately outside of OPENSSL_NO_SCTP - used in bss_dgram.c *) + BIO_CTRL_DGRAM_SCTP_SET_IN_HANDSHAKE = 50; + (* SCTP stuff *) + BIO_CTRL_DGRAM_SCTP_ADD_AUTH_KEY = 51; + BIO_CTRL_DGRAM_SCTP_NEXT_AUTH_KEY = 52; + BIO_CTRL_DGRAM_SCTP_AUTH_CCS_RCVD = 53; + BIO_CTRL_DGRAM_SCTP_GET_SNDINFO = 60; + BIO_CTRL_DGRAM_SCTP_SET_SNDINFO = 61; + BIO_CTRL_DGRAM_SCTP_GET_RCVINFO = 62; + BIO_CTRL_DGRAM_SCTP_SET_RCVINFO = 63; + BIO_CTRL_DGRAM_SCTP_GET_PRINFO = 64; + BIO_CTRL_DGRAM_SCTP_SET_PRINFO = 65; + BIO_CTRL_DGRAM_SCTP_SAVE_SHUTDOWN = 70; + + BIO_CTRL_DGRAM_SET_PEEK_MODE = 71; + + (* modifiers *) + BIO_FP_READ = $02; + BIO_FP_WRITE = $04; + BIO_FP_APPEND = $08; + BIO_FP_TEXT = $10; + + BIO_FLAGS_READ = $01; + BIO_FLAGS_WRITE = $02; + BIO_FLAGS_IO_SPECIAL = $04; + BIO_FLAGS_RWS = BIO_FLAGS_READ or BIO_FLAGS_WRITE or BIO_FLAGS_IO_SPECIAL; + BIO_FLAGS_SHOULD_RETRY = $08; + + BIO_FLAGS_BASE64_NO_NL = $100; + + (* + * This is used with memory BIOs: + * BIO_FLAGS_MEM_RDONLY means we shouldn't free up or change the data in any way; + * BIO_FLAGS_NONCLEAR_RST means we shouldn't clear data on reset. + *) + BIO_FLAGS_MEM_RDONLY = $200; + BIO_FLAGS_NONCLEAR_RST = $400; + + BIO_RR_SSL_X509_LOOKUP = $01; + (* Returned from the connect BIO when a connect would have blocked *) + BIO_RR_CONNECT = $02; + (* Returned from the accept BIO when an accept would have blocked *) + BIO_RR_ACCEPT = $03; + + (* These are passed by the BIO callback *) + BIO_CB_FREE = $01; + BIO_CB_READ = $02; + BIO_CB_WRITE = $03; + BIO_CB_PUTS = $04; + BIO_CB_GETS = $05; + BIO_CB_CTRL = $06; +///* +// * The callback is called before and after the underling operation, The +// * BIO_CB_RETURN flag indicates if it is after the call +// */ +//# define BIO_CB_RETURN 0x80 +//# define BIO_CB_return(a) ((a)|BIO_CB_RETURN) +//# define BIO_cb_pre(a) (!((a)&BIO_CB_RETURN)) +//# define BIO_cb_post(a) ((a)&BIO_CB_RETURN) + + BIO_C_SET_CONNECT = 100; + BIO_C_DO_STATE_MACHINE = 101; + BIO_C_SET_NBIO = 102; + (* BIO_C_SET_PROXY_PARAM = 103 *) + BIO_C_SET_FD = 104; + BIO_C_GET_FD = 105; + BIO_C_SET_FILE_PTR = 106; + BIO_C_GET_FILE_PTR = 107; + BIO_C_SET_FILENAME = 108; + BIO_C_SET_SSL = 109; + BIO_C_GET_SSL = 110; + BIO_C_SET_MD = 111; + BIO_C_GET_MD = 112; + BIO_C_GET_CIPHER_STATUS = 113; + BIO_C_SET_BUF_MEM = 114; + BIO_C_GET_BUF_MEM_PTR = 115; + BIO_C_GET_BUFF_NUM_LINES = 116; + BIO_C_SET_BUFF_SIZE = 117; + BIO_C_SET_ACCEPT = 118; + BIO_C_SSL_MODE = 119; + BIO_C_GET_MD_CTX = 120; + (* BIO_C_GET_PROXY_PARAM = 121 *) + BIO_C_SET_BUFF_READ_DATA = 122;(* data to read first *) + BIO_C_GET_CONNECT = 123; + BIO_C_GET_ACCEPT = 124; + BIO_C_SET_SSL_RENEGOTIATE_BYTES = 125; + BIO_C_GET_SSL_NUM_RENEGOTIATES = 126; + BIO_C_SET_SSL_RENEGOTIATE_TIMEOUT = 127; + BIO_C_FILE_SEEK = 128; + BIO_C_GET_CIPHER_CTX = 129; + BIO_C_SET_BUF_MEM_EOF_RETURN = 130;(* return end of input + * value *) + BIO_C_SET_BIND_MODE = 131; + BIO_C_GET_BIND_MODE = 132; + BIO_C_FILE_TELL = 133; + BIO_C_GET_SOCKS = 134; + BIO_C_SET_SOCKS = 135; + + BIO_C_SET_WRITE_BUF_SIZE = 136;(* for BIO_s_bio *) + BIO_C_GET_WRITE_BUF_SIZE = 137; + BIO_C_MAKE_BIO_PAIR = 138; + BIO_C_DESTROY_BIO_PAIR = 139; + BIO_C_GET_WRITE_GUARANTEE = 140; + BIO_C_GET_READ_REQUEST = 141; + BIO_C_SHUTDOWN_WR = 142; + BIO_C_NREAD0 = 143; + BIO_C_NREAD = 144; + BIO_C_NWRITE0 = 145; + BIO_C_NWRITE = 146; + BIO_C_RESET_READ_REQUEST = 147; + BIO_C_SET_MD_CTX = 148; + + BIO_C_SET_PREFIX = 149; + BIO_C_GET_PREFIX = 150; + BIO_C_SET_SUFFIX = 151; + BIO_C_GET_SUFFIX = 152; + + BIO_C_SET_EX_ARG = 153; + BIO_C_GET_EX_ARG = 154; + + BIO_C_SET_CONNECT_MODE = 155; + + BIO_SOCK_REUSEADDR = $01; + BIO_SOCK_V6_ONLY = $02; + BIO_SOCK_KEEPALIVE = $04; + BIO_SOCK_NONBLOCK = $08; + BIO_SOCK_NODELAY = $10; + +type + BIO_ADDR = Pointer; // bio_addr_st + PBIO_ADDR = ^BIO_ADDR; + BIO_ADDRINFO = Pointer; // bio_addrinfo_st + PBIO_ADDRINFO = ^BIO_ADDRINFO; + PPBIO_ADDRINFO = ^PBIO_ADDRINFO; + BIO_callback_fn = function(b: PBIO; oper: TOpenSSL_C_INT; const argp: PAnsiChar; + argi: TOpenSSL_C_INT; argl: TOpenSSL_C_LONG; ret: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + BIO_callback_fn_ex = function(b: PBIO; oper: TOpenSSL_C_INT; const argp: PAnsiChar; len: TOpenSSL_C_SIZET; argi: TOpenSSL_C_INT; argl: TOpenSSL_C_LONG; ret: TOpenSSL_C_INT; processed: POpenSSL_C_SIZET): TOpenSSL_C_LONG; + BIO_METHOD = Pointer; // bio_method_st + PBIO_METHOD = ^BIO_METHOD; + BIO_info_cb = function(v1: PBIO; v2: TOpenSSL_C_INT; v3: TOpenSSL_C_INT): TOpenSSL_C_INT; + PBIO_info_cb = ^BIO_info_cb; + asn1_ps_func = function(b: PBIO; pbuf: PPAnsiChar; plen: POpenSSL_C_INT; parg: Pointer): TOpenSSL_C_INT; + + bio_dgram_sctp_sndinfo = record + snd_sid: TOpenSSL_C_UINT16; + snd_flags: TOpenSSL_C_UINT16; + snd_ppid: TOpenSSL_C_UINT32; + snd_context: TOpenSSL_C_UINT32; + end; + + bio_dgram_sctp_rcvinfo = record + rcv_sid: TOpenSSL_C_UINT16; + rcv_ssn: TOpenSSL_C_UINT16; + rcv_flags: TOpenSSL_C_UINT16; + rcv_ppid: TOpenSSL_C_UINT32; + rcv_tsn: TOpenSSL_C_UINT32; + rcv_cumtsn: TOpenSSL_C_UINT32; + rcv_context: TOpenSSL_C_UINT32; + end; + + bio_dgram_sctp_prinfo = record + pr_policy: TOpenSSL_C_UINT16; + pr_value: TOpenSSL_C_UINT32; + end; + + BIO_hostserv_priorities = (BIO_PARSE_PRIO_HOST, BIO_PARSE_PRIO_SERV); + + BIO_lookup_type = (BIO_LOOKUP_CLIENT, BIO_LOOKUP_SERVER); + + BIO_sock_info_u = record + addr: PBIO_ADDR; + end; + PBIO_sock_info_u = ^BIO_sock_info_u; + + BIO_sock_info_type = (BIO_SOCK_INFO_ADDRESS); + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM BIO_get_new_index} +{$EXTERNALSYM BIO_set_flags} +{$EXTERNALSYM BIO_test_flags} +{$EXTERNALSYM BIO_clear_flags} +{$EXTERNALSYM BIO_get_callback} +{$EXTERNALSYM BIO_set_callback} +{$EXTERNALSYM BIO_get_callback_ex} +{$EXTERNALSYM BIO_set_callback_ex} +{$EXTERNALSYM BIO_get_callback_arg} +{$EXTERNALSYM BIO_set_callback_arg} +{$EXTERNALSYM BIO_method_name} +{$EXTERNALSYM BIO_method_type} +{$EXTERNALSYM BIO_ctrl_pending} +{$EXTERNALSYM BIO_ctrl_wpending} +{$EXTERNALSYM BIO_ctrl_get_write_guarantee} +{$EXTERNALSYM BIO_ctrl_get_read_request} +{$EXTERNALSYM BIO_ctrl_reset_read_request} +{$EXTERNALSYM BIO_set_ex_data} +{$EXTERNALSYM BIO_get_ex_data} +{$EXTERNALSYM BIO_number_read} +{$EXTERNALSYM BIO_number_written} +{$EXTERNALSYM BIO_s_file} +{$EXTERNALSYM BIO_new_file} +{$EXTERNALSYM BIO_new} +{$EXTERNALSYM BIO_free} +{$EXTERNALSYM BIO_set_data} +{$EXTERNALSYM BIO_get_data} +{$EXTERNALSYM BIO_set_init} +{$EXTERNALSYM BIO_get_init} +{$EXTERNALSYM BIO_set_shutdown} +{$EXTERNALSYM BIO_get_shutdown} +{$EXTERNALSYM BIO_vfree} +{$EXTERNALSYM BIO_up_ref} +{$EXTERNALSYM BIO_read} +{$EXTERNALSYM BIO_read_ex} +{$EXTERNALSYM BIO_gets} +{$EXTERNALSYM BIO_write} +{$EXTERNALSYM BIO_write_ex} +{$EXTERNALSYM BIO_puts} +{$EXTERNALSYM BIO_indent} +{$EXTERNALSYM BIO_ctrl} +{$EXTERNALSYM BIO_callback_ctrl} +{$EXTERNALSYM BIO_ptr_ctrl} +{$EXTERNALSYM BIO_int_ctrl} +{$EXTERNALSYM BIO_push} +{$EXTERNALSYM BIO_pop} +{$EXTERNALSYM BIO_free_all} +{$EXTERNALSYM BIO_find_type} +{$EXTERNALSYM BIO_next} +{$EXTERNALSYM BIO_set_next} +{$EXTERNALSYM BIO_get_retry_BIO} +{$EXTERNALSYM BIO_get_retry_reason} +{$EXTERNALSYM BIO_set_retry_reason} +{$EXTERNALSYM BIO_dup_chain} +{$EXTERNALSYM BIO_nread0} +{$EXTERNALSYM BIO_nread} +{$EXTERNALSYM BIO_nwrite0} +{$EXTERNALSYM BIO_nwrite} +{$EXTERNALSYM BIO_debug_callback} +{$EXTERNALSYM BIO_s_mem} +{$EXTERNALSYM BIO_s_secmem} +{$EXTERNALSYM BIO_new_mem_buf} +{$EXTERNALSYM BIO_s_socket} +{$EXTERNALSYM BIO_s_connect} +{$EXTERNALSYM BIO_s_accept} +{$EXTERNALSYM BIO_s_fd} +{$EXTERNALSYM BIO_s_log} +{$EXTERNALSYM BIO_s_bio} +{$EXTERNALSYM BIO_s_null} +{$EXTERNALSYM BIO_f_null} +{$EXTERNALSYM BIO_f_buffer} +{$EXTERNALSYM BIO_f_linebuffer} +{$EXTERNALSYM BIO_f_nbio_test} +{$EXTERNALSYM BIO_s_datagram} +{$EXTERNALSYM BIO_dgram_non_fatal_error} +{$EXTERNALSYM BIO_new_dgram} +{$EXTERNALSYM BIO_sock_should_retry} +{$EXTERNALSYM BIO_sock_non_fatal_error} +{$EXTERNALSYM BIO_fd_should_retry} +{$EXTERNALSYM BIO_fd_non_fatal_error} +{$EXTERNALSYM BIO_dump} +{$EXTERNALSYM BIO_dump_indent} +{$EXTERNALSYM BIO_hex_string} +{$EXTERNALSYM BIO_ADDR_new} +{$EXTERNALSYM BIO_ADDR_rawmake} +{$EXTERNALSYM BIO_ADDR_free} +{$EXTERNALSYM BIO_ADDR_clear} +{$EXTERNALSYM BIO_ADDR_family} +{$EXTERNALSYM BIO_ADDR_rawaddress} +{$EXTERNALSYM BIO_ADDR_rawport} +{$EXTERNALSYM BIO_ADDR_hostname_string} +{$EXTERNALSYM BIO_ADDR_service_string} +{$EXTERNALSYM BIO_ADDR_path_string} +{$EXTERNALSYM BIO_ADDRINFO_next} +{$EXTERNALSYM BIO_ADDRINFO_family} +{$EXTERNALSYM BIO_ADDRINFO_socktype} +{$EXTERNALSYM BIO_ADDRINFO_protocol} +{$EXTERNALSYM BIO_ADDRINFO_address} +{$EXTERNALSYM BIO_ADDRINFO_free} +{$EXTERNALSYM BIO_parse_hostserv} +{$EXTERNALSYM BIO_lookup} +{$EXTERNALSYM BIO_lookup_ex} +{$EXTERNALSYM BIO_sock_error} +{$EXTERNALSYM BIO_socket_ioctl} +{$EXTERNALSYM BIO_socket_nbio} +{$EXTERNALSYM BIO_sock_init} +{$EXTERNALSYM BIO_set_tcp_ndelay} +{$EXTERNALSYM BIO_sock_info} +{$EXTERNALSYM BIO_socket} +{$EXTERNALSYM BIO_connect} +{$EXTERNALSYM BIO_bind} +{$EXTERNALSYM BIO_listen} +{$EXTERNALSYM BIO_accept_ex} +{$EXTERNALSYM BIO_closesocket} +{$EXTERNALSYM BIO_new_socket} +{$EXTERNALSYM BIO_new_connect} +{$EXTERNALSYM BIO_new_accept} +{$EXTERNALSYM BIO_new_fd} +{$EXTERNALSYM BIO_new_bio_pair} +{$EXTERNALSYM BIO_copy_next_retry} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function BIO_get_new_index: TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure BIO_set_flags(b: PBIO; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function BIO_test_flags(const b: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure BIO_clear_flags(b: PBIO; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function BIO_get_callback(b: PBIO): BIO_callback_fn; cdecl; external CLibCrypto; +procedure BIO_set_callback(b: PBIO; callback: BIO_callback_fn); cdecl; external CLibCrypto; +function BIO_get_callback_ex(b: PBIO): BIO_callback_fn_ex; cdecl; external CLibCrypto; +procedure BIO_set_callback_ex(b: PBIO; callback: BIO_callback_fn_ex); cdecl; external CLibCrypto; +function BIO_get_callback_arg(const b: PBIO): PAnsiChar; cdecl; external CLibCrypto; +procedure BIO_set_callback_arg(var b: PBIO; arg: PAnsiChar); cdecl; external CLibCrypto; +function BIO_method_name(const b: PBIO): PAnsiChar; cdecl; external CLibCrypto; +function BIO_method_type(const b: PBIO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_ctrl_pending(b: PBIO): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function BIO_ctrl_wpending(b: PBIO): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function BIO_ctrl_get_write_guarantee(b: PBIO): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function BIO_ctrl_get_read_request(b: PBIO): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function BIO_ctrl_reset_read_request(b: PBIO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_set_ex_data(bio: PBIO; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_get_ex_data(bio: PBIO; idx: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function BIO_number_read(bio: PBIO): TOpenSSL_C_UINT64; cdecl; external CLibCrypto; +function BIO_number_written(bio: PBIO): TOpenSSL_C_UINT64; cdecl; external CLibCrypto; +function BIO_s_file: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_new_file(const filename: PAnsiChar; const mode: PAnsiChar): PBIO; cdecl; external CLibCrypto; +function BIO_new(const cType: PBIO_METHOD): PBIO; cdecl; external CLibCrypto; +function BIO_free(a: PBIO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure BIO_set_data(a: PBIO; ptr: Pointer); cdecl; external CLibCrypto; +function BIO_get_data(a: PBIO): Pointer; cdecl; external CLibCrypto; +procedure BIO_set_init(a: PBIO; init: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function BIO_get_init(a: PBIO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure BIO_set_shutdown(a: PBIO; shut: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function BIO_get_shutdown(a: PBIO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure BIO_vfree(a: PBIO); cdecl; external CLibCrypto; +function BIO_up_ref(a: PBIO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_read(b: PBIO; data: Pointer; dlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_read_ex(b: PBIO; data: Pointer; dlen: TOpenSSL_C_SIZET; readbytes: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_gets( bp: PBIO; buf: PAnsiChar; size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_write(b: PBIO; const data: Pointer; dlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_write_ex(b: PBIO; const data: Pointer; dlen: TOpenSSL_C_SIZET; written: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_puts(bp: PBIO; const buf: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_indent(b: PBIO; indent: TOpenSSL_C_INT; max: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_ctrl(bp: PBIO; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; parg: Pointer): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function BIO_callback_ctrl(b: PBIO; cmd: TOpenSSL_C_INT; fp: PBIO_info_cb): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function BIO_ptr_ctrl(bp: PBIO; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG): Pointer; cdecl; external CLibCrypto; +function BIO_int_ctrl(bp: PBIO; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; iarg: TOpenSSL_C_INT): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function BIO_push(b: PBIO; append: PBIO): PBIO; cdecl; external CLibCrypto; +function BIO_pop(b: PBIO): PBIO; cdecl; external CLibCrypto; +procedure BIO_free_all(a: PBIO); cdecl; external CLibCrypto; +function BIO_find_type(b: PBIO; bio_type: TOpenSSL_C_INT): PBIO; cdecl; external CLibCrypto; +function BIO_next(b: PBIO): PBIO; cdecl; external CLibCrypto; +procedure BIO_set_next(b: PBIO; next: PBIO); cdecl; external CLibCrypto; +function BIO_get_retry_BIO(bio: PBIO; reason: TOpenSSL_C_INT): PBIO; cdecl; external CLibCrypto; +function BIO_get_retry_reason(bio: PBIO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure BIO_set_retry_reason(bio: PBIO; reason: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function BIO_dup_chain(in_: PBIO): PBIO; cdecl; external CLibCrypto; +function BIO_nread0(bio: PBIO; buf: PPAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_nread(bio: PBIO; buf: PPAnsiChar; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_nwrite0(bio: PBIO; buf: PPAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_nwrite(bio: PBIO; buf: PPAnsiChar; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_debug_callback(bio: PBIO; cmd: TOpenSSL_C_INT; const argp: PAnsiChar; argi: TOpenSSL_C_INT; argl: TOpenSSL_C_LONG; ret: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function BIO_s_mem: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_s_secmem: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_new_mem_buf(const buf: Pointer; len: TOpenSSL_C_INT): PBIO; cdecl; external CLibCrypto; +function BIO_s_socket: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_s_connect: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_s_accept: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_s_fd: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_s_log: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_s_bio: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_s_null: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_f_null: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_f_buffer: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_f_linebuffer: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_f_nbio_test: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_s_datagram: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_dgram_non_fatal_error(error: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_new_dgram(fd: TOpenSSL_C_INT; close_flag: TOpenSSL_C_INT): PBIO; cdecl; external CLibCrypto; +function BIO_sock_should_retry(i: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_sock_non_fatal_error(error: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_fd_should_retry(i: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_fd_non_fatal_error(error: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_dump(b: PBIO; const bytes: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_dump_indent(b: PBIO; const bytes: PAnsiChar; len: TOpenSSL_C_INT; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_hex_string(out_: PBIO; indent: TOpenSSL_C_INT; width: TOpenSSL_C_INT; data: PByte; datalen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_ADDR_new: PBIO_ADDR; cdecl; external CLibCrypto; +function BIO_ADDR_rawmake(ap: PBIO_ADDR; familiy: TOpenSSL_C_INT; const where: Pointer; wherelen: TOpenSSL_C_SIZET; port: TOpenSSL_C_SHORT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure BIO_ADDR_free(a: PBIO_ADDR); cdecl; external CLibCrypto; +procedure BIO_ADDR_clear(ap: PBIO_ADDR); cdecl; external CLibCrypto; +function BIO_ADDR_family(const ap: PBIO_ADDR): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_ADDR_rawaddress(const ap: PBIO_ADDR; p: Pointer; l: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_ADDR_rawport(const ap: PBIO_ADDR): TOpenSSL_C_SHORT; cdecl; external CLibCrypto; +function BIO_ADDR_hostname_string(const ap: PBIO_ADDR; numeric: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibCrypto; +function BIO_ADDR_service_string(const ap: PBIO_ADDR; numeric: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibCrypto; +function BIO_ADDR_path_string(const ap: PBIO_ADDR): PAnsiChar; cdecl; external CLibCrypto; +function BIO_ADDRINFO_next(const bai: PBIO_ADDRINFO): PBIO_ADDRINFO; cdecl; external CLibCrypto; +function BIO_ADDRINFO_family(const bai: PBIO_ADDRINFO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_ADDRINFO_socktype(const bai: PBIO_ADDRINFO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_ADDRINFO_protocol(const bai: PBIO_ADDRINFO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_ADDRINFO_address(const bai: PBIO_ADDRINFO): PBIO_ADDR; cdecl; external CLibCrypto; +procedure BIO_ADDRINFO_free(bai: PBIO_ADDRINFO); cdecl; external CLibCrypto; +function BIO_parse_hostserv(const hostserv: PAnsiChar; host: PPAnsiChar; service: PPAnsiChar; hostserv_prio: BIO_hostserv_priorities): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_lookup(const host: PAnsiChar; const service: PAnsiChar; lookup_type: BIO_lookup_type; family: TOpenSSL_C_INT; socktype: TOpenSSL_C_INT; res: PPBIO_ADDRINFO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_lookup_ex(const host: PAnsiChar; const service: PAnsiChar; lookup_type: TOpenSSL_C_INT; family: TOpenSSL_C_INT; socktype: TOpenSSL_C_INT; protocol: TOpenSSL_C_INT; res: PPBIO_ADDRINFO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_sock_error(sock: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_socket_ioctl(fd: TOpenSSL_C_INT; cType: TOpenSSL_C_LONG; arg: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_socket_nbio(fd: TOpenSSL_C_INT; mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_sock_init: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_set_tcp_ndelay(sock: TOpenSSL_C_INT; turn_on: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_sock_info(sock: TOpenSSL_C_INT; type_: BIO_sock_info_type; info: PBIO_sock_info_u): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_socket(domain: TOpenSSL_C_INT; socktype: TOpenSSL_C_INT; protocol: TOpenSSL_C_INT; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_connect(sock: TOpenSSL_C_INT; const addr: PBIO_ADDR; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_bind(sock: TOpenSSL_C_INT; const addr: PBIO_ADDR; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_listen(sock: TOpenSSL_C_INT; const addr: PBIO_ADDR; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_accept_ex(accept_sock: TOpenSSL_C_INT; addr: PBIO_ADDR; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_closesocket(sock: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_new_socket(sock: TOpenSSL_C_INT; close_flag: TOpenSSL_C_INT): PBIO; cdecl; external CLibCrypto; +function BIO_new_connect(const host_port: PAnsiChar): PBIO; cdecl; external CLibCrypto; +function BIO_new_accept(const host_port: PAnsiChar): PBIO; cdecl; external CLibCrypto; +function BIO_new_fd(fd: TOpenSSL_C_INT; close_flag: TOpenSSL_C_INT): PBIO; cdecl; external CLibCrypto; +function BIO_new_bio_pair(bio1: PPBIO; writebuf1: TOpenSSL_C_SIZET; bio2: PPBIO; writebuf2: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure BIO_copy_next_retry(b: PBIO); cdecl; external CLibCrypto; + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function BIO_get_flags(const b: PBIO): TOpenSSL_C_INT; {removed 1.0.0} +procedure BIO_set_retry_special(b: PBIO); {removed 1.0.0} +procedure BIO_set_retry_read(b: PBIO); {removed 1.0.0} +procedure BIO_set_retry_write(b: PBIO); {removed 1.0.0} +procedure BIO_clear_retry_flags(b: PBIO); {removed 1.0.0} +function BIO_get_retry_flags(b: PBIO): TOpenSSL_C_INT; {removed 1.0.0} +function BIO_should_read(b: PBIO): TOpenSSL_C_INT; {removed 1.0.0} +function BIO_should_write(b: PBIO): TOpenSSL_C_INT; {removed 1.0.0} +function BIO_should_io_special(b: PBIO): TOpenSSL_C_INT; {removed 1.0.0} +function BIO_retry_type(b: PBIO): TOpenSSL_C_INT; {removed 1.0.0} +function BIO_should_retry(b: PBIO): TOpenSSL_C_INT; {removed 1.0.0} +function BIO_do_connect(b: PBIO): TOpenSSL_C_LONG; {removed 1.0.0} +function BIO_do_accept(b: PBIO): TOpenSSL_C_LONG; {removed 1.0.0} +function BIO_do_handshake(b: PBIO): TOpenSSL_C_LONG; {removed 1.0.0} +function BIO_get_mem_data(b: PBIO; pp: PAnsiChar): TOpenSSL_C_INT; {removed 1.0.0} +function BIO_set_mem_buf(b: PBIO; bm: PAnsiChar; c: TOpenSSL_C_INT): TOpenSSL_C_INT; {removed 1.0.0} +function BIO_get_mem_ptr(b: PBIO; pp: PAnsiChar): TOpenSSL_C_INT; {removed 1.0.0} +function BIO_set_mem_eof_return(b: PBIO; v: TOpenSSL_C_INT): TOpenSSL_C_INT; {removed 1.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_BIO_get_flags(const b: PBIO): TOpenSSL_C_INT; cdecl; +procedure Load_BIO_set_retry_special(b: PBIO); cdecl; +procedure Load_BIO_set_retry_read(b: PBIO); cdecl; +procedure Load_BIO_set_retry_write(b: PBIO); cdecl; +procedure Load_BIO_clear_retry_flags(b: PBIO); cdecl; +function Load_BIO_get_retry_flags(b: PBIO): TOpenSSL_C_INT; cdecl; +function Load_BIO_should_read(b: PBIO): TOpenSSL_C_INT; cdecl; +function Load_BIO_should_write(b: PBIO): TOpenSSL_C_INT; cdecl; +function Load_BIO_should_io_special(b: PBIO): TOpenSSL_C_INT; cdecl; +function Load_BIO_retry_type(b: PBIO): TOpenSSL_C_INT; cdecl; +function Load_BIO_should_retry(b: PBIO): TOpenSSL_C_INT; cdecl; +function Load_BIO_do_connect(b: PBIO): TOpenSSL_C_LONG; cdecl; +function Load_BIO_do_accept(b: PBIO): TOpenSSL_C_LONG; cdecl; +function Load_BIO_do_handshake(b: PBIO): TOpenSSL_C_LONG; cdecl; +function Load_BIO_get_mem_data(b: PBIO; pp: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_BIO_set_mem_buf(b: PBIO; bm: PAnsiChar; c: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_get_mem_ptr(b: PBIO; pp: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_BIO_set_mem_eof_return(b: PBIO; v: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_BIO_get_new_index: TOpenSSL_C_INT; cdecl; +procedure Load_BIO_set_flags(b: PBIO; flags: TOpenSSL_C_INT); cdecl; +function Load_BIO_test_flags(const b: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_BIO_clear_flags(b: PBIO; flags: TOpenSSL_C_INT); cdecl; +function Load_BIO_get_callback(b: PBIO): BIO_callback_fn; cdecl; +procedure Load_BIO_set_callback(b: PBIO; callback: BIO_callback_fn); cdecl; +function Load_BIO_get_callback_ex(b: PBIO): BIO_callback_fn_ex; cdecl; +procedure Load_BIO_set_callback_ex(b: PBIO; callback: BIO_callback_fn_ex); cdecl; +function Load_BIO_get_callback_arg(const b: PBIO): PAnsiChar; cdecl; +procedure Load_BIO_set_callback_arg(var b: PBIO; arg: PAnsiChar); cdecl; +function Load_BIO_method_name(const b: PBIO): PAnsiChar; cdecl; +function Load_BIO_method_type(const b: PBIO): TOpenSSL_C_INT; cdecl; +function Load_BIO_ctrl_pending(b: PBIO): TOpenSSL_C_SIZET; cdecl; +function Load_BIO_ctrl_wpending(b: PBIO): TOpenSSL_C_SIZET; cdecl; +function Load_BIO_ctrl_get_write_guarantee(b: PBIO): TOpenSSL_C_SIZET; cdecl; +function Load_BIO_ctrl_get_read_request(b: PBIO): TOpenSSL_C_SIZET; cdecl; +function Load_BIO_ctrl_reset_read_request(b: PBIO): TOpenSSL_C_INT; cdecl; +function Load_BIO_set_ex_data(bio: PBIO; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; +function Load_BIO_get_ex_data(bio: PBIO; idx: TOpenSSL_C_INT): Pointer; cdecl; +function Load_BIO_number_read(bio: PBIO): TOpenSSL_C_UINT64; cdecl; +function Load_BIO_number_written(bio: PBIO): TOpenSSL_C_UINT64; cdecl; +function Load_BIO_s_file: PBIO_METHOD; cdecl; +function Load_BIO_new_file(const filename: PAnsiChar; const mode: PAnsiChar): PBIO; cdecl; +function Load_BIO_new(const cType: PBIO_METHOD): PBIO; cdecl; +function Load_BIO_free(a: PBIO): TOpenSSL_C_INT; cdecl; +procedure Load_BIO_set_data(a: PBIO; ptr: Pointer); cdecl; +function Load_BIO_get_data(a: PBIO): Pointer; cdecl; +procedure Load_BIO_set_init(a: PBIO; init: TOpenSSL_C_INT); cdecl; +function Load_BIO_get_init(a: PBIO): TOpenSSL_C_INT; cdecl; +procedure Load_BIO_set_shutdown(a: PBIO; shut: TOpenSSL_C_INT); cdecl; +function Load_BIO_get_shutdown(a: PBIO): TOpenSSL_C_INT; cdecl; +procedure Load_BIO_vfree(a: PBIO); cdecl; +function Load_BIO_up_ref(a: PBIO): TOpenSSL_C_INT; cdecl; +function Load_BIO_read(b: PBIO; data: Pointer; dlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_read_ex(b: PBIO; data: Pointer; dlen: TOpenSSL_C_SIZET; readbytes: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_BIO_gets( bp: PBIO; buf: PAnsiChar; size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_write(b: PBIO; const data: Pointer; dlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_write_ex(b: PBIO; const data: Pointer; dlen: TOpenSSL_C_SIZET; written: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_BIO_puts(bp: PBIO; const buf: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_BIO_indent(b: PBIO; indent: TOpenSSL_C_INT; max: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_ctrl(bp: PBIO; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; parg: Pointer): TOpenSSL_C_LONG; cdecl; +function Load_BIO_callback_ctrl(b: PBIO; cmd: TOpenSSL_C_INT; fp: PBIO_info_cb): TOpenSSL_C_LONG; cdecl; +function Load_BIO_ptr_ctrl(bp: PBIO; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG): Pointer; cdecl; +function Load_BIO_int_ctrl(bp: PBIO; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; iarg: TOpenSSL_C_INT): TOpenSSL_C_LONG; cdecl; +function Load_BIO_push(b: PBIO; append: PBIO): PBIO; cdecl; +function Load_BIO_pop(b: PBIO): PBIO; cdecl; +procedure Load_BIO_free_all(a: PBIO); cdecl; +function Load_BIO_find_type(b: PBIO; bio_type: TOpenSSL_C_INT): PBIO; cdecl; +function Load_BIO_next(b: PBIO): PBIO; cdecl; +procedure Load_BIO_set_next(b: PBIO; next: PBIO); cdecl; +function Load_BIO_get_retry_BIO(bio: PBIO; reason: TOpenSSL_C_INT): PBIO; cdecl; +function Load_BIO_get_retry_reason(bio: PBIO): TOpenSSL_C_INT; cdecl; +procedure Load_BIO_set_retry_reason(bio: PBIO; reason: TOpenSSL_C_INT); cdecl; +function Load_BIO_dup_chain(in_: PBIO): PBIO; cdecl; +function Load_BIO_nread0(bio: PBIO; buf: PPAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_BIO_nread(bio: PBIO; buf: PPAnsiChar; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_nwrite0(bio: PBIO; buf: PPAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_BIO_nwrite(bio: PBIO; buf: PPAnsiChar; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_debug_callback(bio: PBIO; cmd: TOpenSSL_C_INT; const argp: PAnsiChar; argi: TOpenSSL_C_INT; argl: TOpenSSL_C_LONG; ret: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_BIO_s_mem: PBIO_METHOD; cdecl; +function Load_BIO_s_secmem: PBIO_METHOD; cdecl; +function Load_BIO_new_mem_buf(const buf: Pointer; len: TOpenSSL_C_INT): PBIO; cdecl; +function Load_BIO_s_socket: PBIO_METHOD; cdecl; +function Load_BIO_s_connect: PBIO_METHOD; cdecl; +function Load_BIO_s_accept: PBIO_METHOD; cdecl; +function Load_BIO_s_fd: PBIO_METHOD; cdecl; +function Load_BIO_s_log: PBIO_METHOD; cdecl; +function Load_BIO_s_bio: PBIO_METHOD; cdecl; +function Load_BIO_s_null: PBIO_METHOD; cdecl; +function Load_BIO_f_null: PBIO_METHOD; cdecl; +function Load_BIO_f_buffer: PBIO_METHOD; cdecl; +function Load_BIO_f_linebuffer: PBIO_METHOD; cdecl; +function Load_BIO_f_nbio_test: PBIO_METHOD; cdecl; +function Load_BIO_s_datagram: PBIO_METHOD; cdecl; +function Load_BIO_dgram_non_fatal_error(error: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_new_dgram(fd: TOpenSSL_C_INT; close_flag: TOpenSSL_C_INT): PBIO; cdecl; +function Load_BIO_sock_should_retry(i: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_sock_non_fatal_error(error: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_fd_should_retry(i: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_fd_non_fatal_error(error: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_dump(b: PBIO; const bytes: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_dump_indent(b: PBIO; const bytes: PAnsiChar; len: TOpenSSL_C_INT; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_hex_string(out_: PBIO; indent: TOpenSSL_C_INT; width: TOpenSSL_C_INT; data: PByte; datalen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_ADDR_new: PBIO_ADDR; cdecl; +function Load_BIO_ADDR_rawmake(ap: PBIO_ADDR; familiy: TOpenSSL_C_INT; const where: Pointer; wherelen: TOpenSSL_C_SIZET; port: TOpenSSL_C_SHORT): TOpenSSL_C_INT; cdecl; +procedure Load_BIO_ADDR_free(a: PBIO_ADDR); cdecl; +procedure Load_BIO_ADDR_clear(ap: PBIO_ADDR); cdecl; +function Load_BIO_ADDR_family(const ap: PBIO_ADDR): TOpenSSL_C_INT; cdecl; +function Load_BIO_ADDR_rawaddress(const ap: PBIO_ADDR; p: Pointer; l: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_BIO_ADDR_rawport(const ap: PBIO_ADDR): TOpenSSL_C_SHORT; cdecl; +function Load_BIO_ADDR_hostname_string(const ap: PBIO_ADDR; numeric: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_BIO_ADDR_service_string(const ap: PBIO_ADDR; numeric: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_BIO_ADDR_path_string(const ap: PBIO_ADDR): PAnsiChar; cdecl; +function Load_BIO_ADDRINFO_next(const bai: PBIO_ADDRINFO): PBIO_ADDRINFO; cdecl; +function Load_BIO_ADDRINFO_family(const bai: PBIO_ADDRINFO): TOpenSSL_C_INT; cdecl; +function Load_BIO_ADDRINFO_socktype(const bai: PBIO_ADDRINFO): TOpenSSL_C_INT; cdecl; +function Load_BIO_ADDRINFO_protocol(const bai: PBIO_ADDRINFO): TOpenSSL_C_INT; cdecl; +function Load_BIO_ADDRINFO_address(const bai: PBIO_ADDRINFO): PBIO_ADDR; cdecl; +procedure Load_BIO_ADDRINFO_free(bai: PBIO_ADDRINFO); cdecl; +function Load_BIO_parse_hostserv(const hostserv: PAnsiChar; host: PPAnsiChar; service: PPAnsiChar; hostserv_prio: BIO_hostserv_priorities): TOpenSSL_C_INT; cdecl; +function Load_BIO_lookup(const host: PAnsiChar; const service: PAnsiChar; lookup_type: BIO_lookup_type; family: TOpenSSL_C_INT; socktype: TOpenSSL_C_INT; res: PPBIO_ADDRINFO): TOpenSSL_C_INT; cdecl; +function Load_BIO_lookup_ex(const host: PAnsiChar; const service: PAnsiChar; lookup_type: TOpenSSL_C_INT; family: TOpenSSL_C_INT; socktype: TOpenSSL_C_INT; protocol: TOpenSSL_C_INT; res: PPBIO_ADDRINFO): TOpenSSL_C_INT; cdecl; +function Load_BIO_sock_error(sock: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_socket_ioctl(fd: TOpenSSL_C_INT; cType: TOpenSSL_C_LONG; arg: Pointer): TOpenSSL_C_INT; cdecl; +function Load_BIO_socket_nbio(fd: TOpenSSL_C_INT; mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_sock_init: TOpenSSL_C_INT; cdecl; +function Load_BIO_set_tcp_ndelay(sock: TOpenSSL_C_INT; turn_on: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_sock_info(sock: TOpenSSL_C_INT; type_: BIO_sock_info_type; info: PBIO_sock_info_u): TOpenSSL_C_INT; cdecl; +function Load_BIO_socket(domain: TOpenSSL_C_INT; socktype: TOpenSSL_C_INT; protocol: TOpenSSL_C_INT; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_connect(sock: TOpenSSL_C_INT; const addr: PBIO_ADDR; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_bind(sock: TOpenSSL_C_INT; const addr: PBIO_ADDR; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_listen(sock: TOpenSSL_C_INT; const addr: PBIO_ADDR; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_accept_ex(accept_sock: TOpenSSL_C_INT; addr: PBIO_ADDR; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_closesocket(sock: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BIO_new_socket(sock: TOpenSSL_C_INT; close_flag: TOpenSSL_C_INT): PBIO; cdecl; +function Load_BIO_new_connect(const host_port: PAnsiChar): PBIO; cdecl; +function Load_BIO_new_accept(const host_port: PAnsiChar): PBIO; cdecl; +function Load_BIO_new_fd(fd: TOpenSSL_C_INT; close_flag: TOpenSSL_C_INT): PBIO; cdecl; +function Load_BIO_new_bio_pair(bio1: PPBIO; writebuf1: TOpenSSL_C_SIZET; bio2: PPBIO; writebuf2: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +procedure Load_BIO_copy_next_retry(b: PBIO); cdecl; + +var + BIO_get_new_index: function : TOpenSSL_C_INT; cdecl = Load_BIO_get_new_index; + BIO_set_flags: procedure (b: PBIO; flags: TOpenSSL_C_INT); cdecl = Load_BIO_set_flags; + BIO_test_flags: function (const b: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_test_flags; + BIO_clear_flags: procedure (b: PBIO; flags: TOpenSSL_C_INT); cdecl = Load_BIO_clear_flags; + BIO_get_callback: function (b: PBIO): BIO_callback_fn; cdecl = Load_BIO_get_callback; + BIO_set_callback: procedure (b: PBIO; callback: BIO_callback_fn); cdecl = Load_BIO_set_callback; + BIO_get_callback_ex: function (b: PBIO): BIO_callback_fn_ex; cdecl = Load_BIO_get_callback_ex; + BIO_set_callback_ex: procedure (b: PBIO; callback: BIO_callback_fn_ex); cdecl = Load_BIO_set_callback_ex; + BIO_get_callback_arg: function (const b: PBIO): PAnsiChar; cdecl = Load_BIO_get_callback_arg; + BIO_set_callback_arg: procedure (var b: PBIO; arg: PAnsiChar); cdecl = Load_BIO_set_callback_arg; + BIO_method_name: function (const b: PBIO): PAnsiChar; cdecl = Load_BIO_method_name; + BIO_method_type: function (const b: PBIO): TOpenSSL_C_INT; cdecl = Load_BIO_method_type; + BIO_ctrl_pending: function (b: PBIO): TOpenSSL_C_SIZET; cdecl = Load_BIO_ctrl_pending; + BIO_ctrl_wpending: function (b: PBIO): TOpenSSL_C_SIZET; cdecl = Load_BIO_ctrl_wpending; + BIO_ctrl_get_write_guarantee: function (b: PBIO): TOpenSSL_C_SIZET; cdecl = Load_BIO_ctrl_get_write_guarantee; + BIO_ctrl_get_read_request: function (b: PBIO): TOpenSSL_C_SIZET; cdecl = Load_BIO_ctrl_get_read_request; + BIO_ctrl_reset_read_request: function (b: PBIO): TOpenSSL_C_INT; cdecl = Load_BIO_ctrl_reset_read_request; + BIO_set_ex_data: function (bio: PBIO; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl = Load_BIO_set_ex_data; + BIO_get_ex_data: function (bio: PBIO; idx: TOpenSSL_C_INT): Pointer; cdecl = Load_BIO_get_ex_data; + BIO_number_read: function (bio: PBIO): TOpenSSL_C_UINT64; cdecl = Load_BIO_number_read; + BIO_number_written: function (bio: PBIO): TOpenSSL_C_UINT64; cdecl = Load_BIO_number_written; + BIO_s_file: function : PBIO_METHOD; cdecl = Load_BIO_s_file; + BIO_new_file: function (const filename: PAnsiChar; const mode: PAnsiChar): PBIO; cdecl = Load_BIO_new_file; + BIO_new: function (const cType: PBIO_METHOD): PBIO; cdecl = Load_BIO_new; + BIO_free: function (a: PBIO): TOpenSSL_C_INT; cdecl = Load_BIO_free; + BIO_set_data: procedure (a: PBIO; ptr: Pointer); cdecl = Load_BIO_set_data; + BIO_get_data: function (a: PBIO): Pointer; cdecl = Load_BIO_get_data; + BIO_set_init: procedure (a: PBIO; init: TOpenSSL_C_INT); cdecl = Load_BIO_set_init; + BIO_get_init: function (a: PBIO): TOpenSSL_C_INT; cdecl = Load_BIO_get_init; + BIO_set_shutdown: procedure (a: PBIO; shut: TOpenSSL_C_INT); cdecl = Load_BIO_set_shutdown; + BIO_get_shutdown: function (a: PBIO): TOpenSSL_C_INT; cdecl = Load_BIO_get_shutdown; + BIO_vfree: procedure (a: PBIO); cdecl = Load_BIO_vfree; + BIO_up_ref: function (a: PBIO): TOpenSSL_C_INT; cdecl = Load_BIO_up_ref; + BIO_read: function (b: PBIO; data: Pointer; dlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_read; + BIO_read_ex: function (b: PBIO; data: Pointer; dlen: TOpenSSL_C_SIZET; readbytes: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_BIO_read_ex; + BIO_gets: function ( bp: PBIO; buf: PAnsiChar; size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_gets; + BIO_write: function (b: PBIO; const data: Pointer; dlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_write; + BIO_write_ex: function (b: PBIO; const data: Pointer; dlen: TOpenSSL_C_SIZET; written: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_BIO_write_ex; + BIO_puts: function (bp: PBIO; const buf: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_BIO_puts; + BIO_indent: function (b: PBIO; indent: TOpenSSL_C_INT; max: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_indent; + BIO_ctrl: function (bp: PBIO; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; parg: Pointer): TOpenSSL_C_LONG; cdecl = Load_BIO_ctrl; + BIO_callback_ctrl: function (b: PBIO; cmd: TOpenSSL_C_INT; fp: PBIO_info_cb): TOpenSSL_C_LONG; cdecl = Load_BIO_callback_ctrl; + BIO_ptr_ctrl: function (bp: PBIO; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG): Pointer; cdecl = Load_BIO_ptr_ctrl; + BIO_int_ctrl: function (bp: PBIO; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; iarg: TOpenSSL_C_INT): TOpenSSL_C_LONG; cdecl = Load_BIO_int_ctrl; + BIO_push: function (b: PBIO; append: PBIO): PBIO; cdecl = Load_BIO_push; + BIO_pop: function (b: PBIO): PBIO; cdecl = Load_BIO_pop; + BIO_free_all: procedure (a: PBIO); cdecl = Load_BIO_free_all; + BIO_find_type: function (b: PBIO; bio_type: TOpenSSL_C_INT): PBIO; cdecl = Load_BIO_find_type; + BIO_next: function (b: PBIO): PBIO; cdecl = Load_BIO_next; + BIO_set_next: procedure (b: PBIO; next: PBIO); cdecl = Load_BIO_set_next; + BIO_get_retry_BIO: function (bio: PBIO; reason: TOpenSSL_C_INT): PBIO; cdecl = Load_BIO_get_retry_BIO; + BIO_get_retry_reason: function (bio: PBIO): TOpenSSL_C_INT; cdecl = Load_BIO_get_retry_reason; + BIO_set_retry_reason: procedure (bio: PBIO; reason: TOpenSSL_C_INT); cdecl = Load_BIO_set_retry_reason; + BIO_dup_chain: function (in_: PBIO): PBIO; cdecl = Load_BIO_dup_chain; + BIO_nread0: function (bio: PBIO; buf: PPAnsiChar): TOpenSSL_C_INT; cdecl = Load_BIO_nread0; + BIO_nread: function (bio: PBIO; buf: PPAnsiChar; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_nread; + BIO_nwrite0: function (bio: PBIO; buf: PPAnsiChar): TOpenSSL_C_INT; cdecl = Load_BIO_nwrite0; + BIO_nwrite: function (bio: PBIO; buf: PPAnsiChar; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_nwrite; + BIO_debug_callback: function (bio: PBIO; cmd: TOpenSSL_C_INT; const argp: PAnsiChar; argi: TOpenSSL_C_INT; argl: TOpenSSL_C_LONG; ret: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_BIO_debug_callback; + BIO_s_mem: function : PBIO_METHOD; cdecl = Load_BIO_s_mem; + BIO_s_secmem: function : PBIO_METHOD; cdecl = Load_BIO_s_secmem; + BIO_new_mem_buf: function (const buf: Pointer; len: TOpenSSL_C_INT): PBIO; cdecl = Load_BIO_new_mem_buf; + BIO_s_socket: function : PBIO_METHOD; cdecl = Load_BIO_s_socket; + BIO_s_connect: function : PBIO_METHOD; cdecl = Load_BIO_s_connect; + BIO_s_accept: function : PBIO_METHOD; cdecl = Load_BIO_s_accept; + BIO_s_fd: function : PBIO_METHOD; cdecl = Load_BIO_s_fd; + BIO_s_log: function : PBIO_METHOD; cdecl = Load_BIO_s_log; + BIO_s_bio: function : PBIO_METHOD; cdecl = Load_BIO_s_bio; + BIO_s_null: function : PBIO_METHOD; cdecl = Load_BIO_s_null; + BIO_f_null: function : PBIO_METHOD; cdecl = Load_BIO_f_null; + BIO_f_buffer: function : PBIO_METHOD; cdecl = Load_BIO_f_buffer; + BIO_f_linebuffer: function : PBIO_METHOD; cdecl = Load_BIO_f_linebuffer; + BIO_f_nbio_test: function : PBIO_METHOD; cdecl = Load_BIO_f_nbio_test; + BIO_s_datagram: function : PBIO_METHOD; cdecl = Load_BIO_s_datagram; + BIO_dgram_non_fatal_error: function (error: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_dgram_non_fatal_error; + BIO_new_dgram: function (fd: TOpenSSL_C_INT; close_flag: TOpenSSL_C_INT): PBIO; cdecl = Load_BIO_new_dgram; + BIO_sock_should_retry: function (i: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_sock_should_retry; + BIO_sock_non_fatal_error: function (error: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_sock_non_fatal_error; + BIO_fd_should_retry: function (i: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_fd_should_retry; + BIO_fd_non_fatal_error: function (error: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_fd_non_fatal_error; + BIO_dump: function (b: PBIO; const bytes: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_dump; + BIO_dump_indent: function (b: PBIO; const bytes: PAnsiChar; len: TOpenSSL_C_INT; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_dump_indent; + BIO_hex_string: function (out_: PBIO; indent: TOpenSSL_C_INT; width: TOpenSSL_C_INT; data: PByte; datalen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_hex_string; + BIO_ADDR_new: function : PBIO_ADDR; cdecl = Load_BIO_ADDR_new; + BIO_ADDR_rawmake: function (ap: PBIO_ADDR; familiy: TOpenSSL_C_INT; const where: Pointer; wherelen: TOpenSSL_C_SIZET; port: TOpenSSL_C_SHORT): TOpenSSL_C_INT; cdecl = Load_BIO_ADDR_rawmake; + BIO_ADDR_free: procedure (a: PBIO_ADDR); cdecl = Load_BIO_ADDR_free; + BIO_ADDR_clear: procedure (ap: PBIO_ADDR); cdecl = Load_BIO_ADDR_clear; + BIO_ADDR_family: function (const ap: PBIO_ADDR): TOpenSSL_C_INT; cdecl = Load_BIO_ADDR_family; + BIO_ADDR_rawaddress: function (const ap: PBIO_ADDR; p: Pointer; l: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_BIO_ADDR_rawaddress; + BIO_ADDR_rawport: function (const ap: PBIO_ADDR): TOpenSSL_C_SHORT; cdecl = Load_BIO_ADDR_rawport; + BIO_ADDR_hostname_string: function (const ap: PBIO_ADDR; numeric: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_BIO_ADDR_hostname_string; + BIO_ADDR_service_string: function (const ap: PBIO_ADDR; numeric: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_BIO_ADDR_service_string; + BIO_ADDR_path_string: function (const ap: PBIO_ADDR): PAnsiChar; cdecl = Load_BIO_ADDR_path_string; + BIO_ADDRINFO_next: function (const bai: PBIO_ADDRINFO): PBIO_ADDRINFO; cdecl = Load_BIO_ADDRINFO_next; + BIO_ADDRINFO_family: function (const bai: PBIO_ADDRINFO): TOpenSSL_C_INT; cdecl = Load_BIO_ADDRINFO_family; + BIO_ADDRINFO_socktype: function (const bai: PBIO_ADDRINFO): TOpenSSL_C_INT; cdecl = Load_BIO_ADDRINFO_socktype; + BIO_ADDRINFO_protocol: function (const bai: PBIO_ADDRINFO): TOpenSSL_C_INT; cdecl = Load_BIO_ADDRINFO_protocol; + BIO_ADDRINFO_address: function (const bai: PBIO_ADDRINFO): PBIO_ADDR; cdecl = Load_BIO_ADDRINFO_address; + BIO_ADDRINFO_free: procedure (bai: PBIO_ADDRINFO); cdecl = Load_BIO_ADDRINFO_free; + BIO_parse_hostserv: function (const hostserv: PAnsiChar; host: PPAnsiChar; service: PPAnsiChar; hostserv_prio: BIO_hostserv_priorities): TOpenSSL_C_INT; cdecl = Load_BIO_parse_hostserv; + BIO_lookup: function (const host: PAnsiChar; const service: PAnsiChar; lookup_type: BIO_lookup_type; family: TOpenSSL_C_INT; socktype: TOpenSSL_C_INT; res: PPBIO_ADDRINFO): TOpenSSL_C_INT; cdecl = Load_BIO_lookup; + BIO_lookup_ex: function (const host: PAnsiChar; const service: PAnsiChar; lookup_type: TOpenSSL_C_INT; family: TOpenSSL_C_INT; socktype: TOpenSSL_C_INT; protocol: TOpenSSL_C_INT; res: PPBIO_ADDRINFO): TOpenSSL_C_INT; cdecl = Load_BIO_lookup_ex; + BIO_sock_error: function (sock: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_sock_error; + BIO_socket_ioctl: function (fd: TOpenSSL_C_INT; cType: TOpenSSL_C_LONG; arg: Pointer): TOpenSSL_C_INT; cdecl = Load_BIO_socket_ioctl; + BIO_socket_nbio: function (fd: TOpenSSL_C_INT; mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_socket_nbio; + BIO_sock_init: function : TOpenSSL_C_INT; cdecl = Load_BIO_sock_init; + BIO_set_tcp_ndelay: function (sock: TOpenSSL_C_INT; turn_on: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_set_tcp_ndelay; + BIO_sock_info: function (sock: TOpenSSL_C_INT; type_: BIO_sock_info_type; info: PBIO_sock_info_u): TOpenSSL_C_INT; cdecl = Load_BIO_sock_info; + BIO_socket: function (domain: TOpenSSL_C_INT; socktype: TOpenSSL_C_INT; protocol: TOpenSSL_C_INT; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_socket; + BIO_connect: function (sock: TOpenSSL_C_INT; const addr: PBIO_ADDR; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_connect; + BIO_bind: function (sock: TOpenSSL_C_INT; const addr: PBIO_ADDR; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_bind; + BIO_listen: function (sock: TOpenSSL_C_INT; const addr: PBIO_ADDR; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_listen; + BIO_accept_ex: function (accept_sock: TOpenSSL_C_INT; addr: PBIO_ADDR; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_accept_ex; + BIO_closesocket: function (sock: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_closesocket; + BIO_new_socket: function (sock: TOpenSSL_C_INT; close_flag: TOpenSSL_C_INT): PBIO; cdecl = Load_BIO_new_socket; + BIO_new_connect: function (const host_port: PAnsiChar): PBIO; cdecl = Load_BIO_new_connect; + BIO_new_accept: function (const host_port: PAnsiChar): PBIO; cdecl = Load_BIO_new_accept; + BIO_new_fd: function (fd: TOpenSSL_C_INT; close_flag: TOpenSSL_C_INT): PBIO; cdecl = Load_BIO_new_fd; + BIO_new_bio_pair: function (bio1: PPBIO; writebuf1: TOpenSSL_C_SIZET; bio2: PPBIO; writebuf2: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_BIO_new_bio_pair; + BIO_copy_next_retry: procedure (b: PBIO); cdecl = Load_BIO_copy_next_retry; + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +var + BIO_get_flags: function (const b: PBIO): TOpenSSL_C_INT; cdecl = Load_BIO_get_flags; {removed 1.0.0} + BIO_set_retry_special: procedure (b: PBIO); cdecl = Load_BIO_set_retry_special; {removed 1.0.0} + BIO_set_retry_read: procedure (b: PBIO); cdecl = Load_BIO_set_retry_read; {removed 1.0.0} + BIO_set_retry_write: procedure (b: PBIO); cdecl = Load_BIO_set_retry_write; {removed 1.0.0} + BIO_clear_retry_flags: procedure (b: PBIO); cdecl = Load_BIO_clear_retry_flags; {removed 1.0.0} + BIO_get_retry_flags: function (b: PBIO): TOpenSSL_C_INT; cdecl = Load_BIO_get_retry_flags; {removed 1.0.0} + BIO_should_read: function (b: PBIO): TOpenSSL_C_INT; cdecl = Load_BIO_should_read; {removed 1.0.0} + BIO_should_write: function (b: PBIO): TOpenSSL_C_INT; cdecl = Load_BIO_should_write; {removed 1.0.0} + BIO_should_io_special: function (b: PBIO): TOpenSSL_C_INT; cdecl = Load_BIO_should_io_special; {removed 1.0.0} + BIO_retry_type: function (b: PBIO): TOpenSSL_C_INT; cdecl = Load_BIO_retry_type; {removed 1.0.0} + BIO_should_retry: function (b: PBIO): TOpenSSL_C_INT; cdecl = Load_BIO_should_retry; {removed 1.0.0} + BIO_do_connect: function (b: PBIO): TOpenSSL_C_LONG; cdecl = Load_BIO_do_connect; {removed 1.0.0} + BIO_do_accept: function (b: PBIO): TOpenSSL_C_LONG; cdecl = Load_BIO_do_accept; {removed 1.0.0} + BIO_do_handshake: function (b: PBIO): TOpenSSL_C_LONG; cdecl = Load_BIO_do_handshake; {removed 1.0.0} + BIO_get_mem_data: function (b: PBIO; pp: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_BIO_get_mem_data; {removed 1.0.0} + BIO_set_mem_buf: function (b: PBIO; bm: PAnsiChar; c: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_set_mem_buf; {removed 1.0.0} + BIO_get_mem_ptr: function (b: PBIO; pp: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_BIO_get_mem_ptr; {removed 1.0.0} + BIO_set_mem_eof_return: function (b: PBIO; v: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_set_mem_eof_return; {removed 1.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +const + BIO_get_flags_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_set_retry_special_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_set_retry_read_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_set_retry_write_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_clear_retry_flags_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_get_retry_flags_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_should_read_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_should_write_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_should_io_special_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_retry_type_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_should_retry_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_do_connect_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_do_accept_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_do_handshake_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_get_mem_data_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_set_mem_buf_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_get_mem_ptr_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_set_mem_eof_return_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + BIO_get_new_index_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_get_callback_ex_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_set_callback_ex_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_set_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_get_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_set_init_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_get_init_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_set_shutdown_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_get_shutdown_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_up_ref_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_read_ex_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_write_ex_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_set_next_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_set_retry_reason_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_s_secmem_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_f_linebuffer_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_ADDR_new_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_ADDR_rawmake_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_ADDR_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_ADDR_clear_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_ADDR_family_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_ADDR_rawaddress_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_ADDR_rawport_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_ADDR_hostname_string_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_ADDR_service_string_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_ADDR_path_string_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_ADDRINFO_next_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_ADDRINFO_family_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_ADDRINFO_socktype_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_ADDRINFO_protocol_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_ADDRINFO_address_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_ADDRINFO_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_parse_hostserv_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_lookup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_lookup_ex_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_sock_info_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_socket_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_connect_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_bind_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_listen_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_accept_ex_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_closesocket_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + + +implementation + +// # define BIO_get_flags(b) BIO_test_flags(b, ~(0x0)) + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFDEF OPENSSL_STATIC_LINK_MODEL} + +{Legacy Support Functions} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function BIO_get_flags(const b: PBIO): TOpenSSL_C_INT; + +begin + Result := BIO_test_flags(b, not $0); +end; + +//# define BIO_set_retry_special(b) \ +// BIO_set_flags(b, (BIO_FLAGS_IO_SPECIAL|BIO_FLAGS_SHOULD_RETRY)) + + +procedure BIO_set_retry_special(b: PBIO); + +begin + BIO_set_flags(b, BIO_FLAGS_IO_SPECIAL or BIO_FLAGS_SHOULD_RETRY); +end; + +//# define BIO_set_retry_read(b) \ +// BIO_set_flags(b, (BIO_FLAGS_READ|BIO_FLAGS_SHOULD_RETRY)) + + +procedure BIO_set_retry_read(b: PBIO); + +begin + BIO_set_flags(b, BIO_FLAGS_READ or BIO_FLAGS_SHOULD_RETRY); +end; + +//# define BIO_set_retry_write(b) \ +// BIO_set_flags(b, (BIO_FLAGS_WRITE|BIO_FLAGS_SHOULD_RETRY)) + + +procedure BIO_set_retry_write(b: PBIO); + +begin + BIO_set_flags(b, BIO_FLAGS_WRITE or BIO_FLAGS_SHOULD_RETRY); +end; + +//# define BIO_clear_retry_flags(b) \ +// BIO_clear_flags(b, (BIO_FLAGS_RWS|BIO_FLAGS_SHOULD_RETRY)) + + +procedure BIO_clear_retry_flags(b: PBIO); + +begin + BIO_clear_flags(b, BIO_FLAGS_RWS or BIO_FLAGS_SHOULD_RETRY); +end; + +//# define BIO_get_retry_flags(b) \ +// BIO_test_flags(b, (BIO_FLAGS_RWS|BIO_FLAGS_SHOULD_RETRY)) + + +function BIO_get_retry_flags(b: PBIO): TOpenSSL_C_INT; + +begin + Result := BIO_test_flags(b, BIO_FLAGS_RWS or BIO_FLAGS_SHOULD_RETRY); +end; + +//# define BIO_should_read(a) BIO_test_flags(a, BIO_FLAGS_READ) + + +function BIO_should_read(b: PBIO): TOpenSSL_C_INT; + +begin + Result := BIO_test_flags(b, BIO_FLAGS_READ); +end; + +//# define BIO_should_write(a) BIO_test_flags(a, BIO_FLAGS_WRITE) + + +function BIO_should_write(b: PBIO): TOpenSSL_C_INT; + +begin + Result := BIO_test_flags(b, BIO_FLAGS_WRITE); +end; + +//# define BIO_should_io_special(a) BIO_test_flags(a, BIO_FLAGS_IO_SPECIAL) + + +function BIO_should_io_special(b: PBIO): TOpenSSL_C_INT; + +begin + Result := BIO_test_flags(b, BIO_FLAGS_IO_SPECIAL); +end; + +//# define BIO_retry_type(a) BIO_test_flags(a, BIO_FLAGS_RWS) + + +function BIO_retry_type(b: PBIO): TOpenSSL_C_INT; + +begin + Result := BIO_test_flags(b, BIO_FLAGS_RWS); +end; + +//# define BIO_should_retry(a) BIO_test_flags(a, BIO_FLAGS_SHOULD_RETRY) + + +function BIO_should_retry(b: PBIO): TOpenSSL_C_INT; + +begin + Result := BIO_test_flags(b, BIO_FLAGS_SHOULD_RETRY); +end; + +//# define BIO_do_connect(b) BIO_do_handshake(b) + + +function BIO_do_connect(b: PBIO): TOpenSSL_C_LONG; + +begin + Result := BIO_do_handshake(b); +end; + +//# define BIO_do_accept(b) BIO_do_handshake(b) + + +function BIO_do_accept(b: PBIO): TOpenSSL_C_LONG; + +begin + Result := BIO_do_handshake(b); +end; + +//# define BIO_do_handshake(b) BIO_ctrl(b,BIO_C_DO_STATE_MACHINE,0,NULL) + + +function BIO_do_handshake(b: PBIO): TOpenSSL_C_LONG; + +begin + Result := BIO_ctrl(b, BIO_C_DO_STATE_MACHINE, 0, nil); +end; + +//# define BIO_get_mem_data(b,pp) BIO_ctrl(b,BIO_CTRL_INFO,0,(char (pp)) + + +function BIO_get_mem_data(b: PBIO; pp: PAnsiChar): TOpenSSL_C_INT; + +begin + Result := BIO_ctrl(b, BIO_CTRL_INFO, 0, pp); +end; + +//# define BIO_set_mem_buf(b,bm,c) BIO_ctrl(b,BIO_C_SET_BUF_MEM,c,(char (bm)) + + +function BIO_set_mem_buf(b: PBIO; bm: PAnsiChar; c: TOpenSSL_C_INT): TOpenSSL_C_INT; + +begin + Result := BIO_ctrl(b, BIO_C_SET_BUF_MEM, c, bm); +end; + +//# define BIO_get_mem_ptr(b,pp) BIO_ctrl(b,BIO_C_GET_BUF_MEM_PTR,0,(char (pp)) + + +function BIO_get_mem_ptr(b: PBIO; pp: PAnsiChar): TOpenSSL_C_INT; + +begin + Result := BIO_ctrl(b, BIO_C_GET_BUF_MEM_PTR, 0, pp); +end; + +//# define BIO_set_mem_eof_return(b,v) BIO_ctrl(b,BIO_C_SET_BUF_MEM_EOF_RETURN,v,0) + + +function BIO_set_mem_eof_return(b: PBIO; v: TOpenSSL_C_INT): TOpenSSL_C_INT; + +begin + Result := BIO_ctrl(b, BIO_C_SET_BUF_MEM_EOF_RETURN, v, nil); +end; + + + + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function COMPAT_BIO_get_flags(const b: PBIO): TOpenSSL_C_INT; cdecl; + +begin + Result := BIO_test_flags(b, not $0); +end; + +//# define BIO_set_retry_special(b) \ +// BIO_set_flags(b, (BIO_FLAGS_IO_SPECIAL|BIO_FLAGS_SHOULD_RETRY)) + + +procedure COMPAT_BIO_set_retry_special(b: PBIO); cdecl; + +begin + BIO_set_flags(b, BIO_FLAGS_IO_SPECIAL or BIO_FLAGS_SHOULD_RETRY); +end; + +//# define BIO_set_retry_read(b) \ +// BIO_set_flags(b, (BIO_FLAGS_READ|BIO_FLAGS_SHOULD_RETRY)) + + +procedure COMPAT_BIO_set_retry_read(b: PBIO); cdecl; + +begin + BIO_set_flags(b, BIO_FLAGS_READ or BIO_FLAGS_SHOULD_RETRY); +end; + +//# define BIO_set_retry_write(b) \ +// BIO_set_flags(b, (BIO_FLAGS_WRITE|BIO_FLAGS_SHOULD_RETRY)) + + +procedure COMPAT_BIO_set_retry_write(b: PBIO); cdecl; + +begin + BIO_set_flags(b, BIO_FLAGS_WRITE or BIO_FLAGS_SHOULD_RETRY); +end; + +//# define BIO_clear_retry_flags(b) \ +// BIO_clear_flags(b, (BIO_FLAGS_RWS|BIO_FLAGS_SHOULD_RETRY)) + + +procedure COMPAT_BIO_clear_retry_flags(b: PBIO); cdecl; + +begin + BIO_clear_flags(b, BIO_FLAGS_RWS or BIO_FLAGS_SHOULD_RETRY); +end; + +//# define BIO_get_retry_flags(b) \ +// BIO_test_flags(b, (BIO_FLAGS_RWS|BIO_FLAGS_SHOULD_RETRY)) + + +function COMPAT_BIO_get_retry_flags(b: PBIO): TOpenSSL_C_INT; cdecl; + +begin + Result := BIO_test_flags(b, BIO_FLAGS_RWS or BIO_FLAGS_SHOULD_RETRY); +end; + +//# define BIO_should_read(a) BIO_test_flags(a, BIO_FLAGS_READ) + + +function COMPAT_BIO_should_read(b: PBIO): TOpenSSL_C_INT; cdecl; + +begin + Result := BIO_test_flags(b, BIO_FLAGS_READ); +end; + +//# define BIO_should_write(a) BIO_test_flags(a, BIO_FLAGS_WRITE) + + +function COMPAT_BIO_should_write(b: PBIO): TOpenSSL_C_INT; cdecl; + +begin + Result := BIO_test_flags(b, BIO_FLAGS_WRITE); +end; + +//# define BIO_should_io_special(a) BIO_test_flags(a, BIO_FLAGS_IO_SPECIAL) + + +function COMPAT_BIO_should_io_special(b: PBIO): TOpenSSL_C_INT; cdecl; + +begin + Result := BIO_test_flags(b, BIO_FLAGS_IO_SPECIAL); +end; + +//# define BIO_retry_type(a) BIO_test_flags(a, BIO_FLAGS_RWS) + + +function COMPAT_BIO_retry_type(b: PBIO): TOpenSSL_C_INT; cdecl; + +begin + Result := BIO_test_flags(b, BIO_FLAGS_RWS); +end; + +//# define BIO_should_retry(a) BIO_test_flags(a, BIO_FLAGS_SHOULD_RETRY) + + +function COMPAT_BIO_should_retry(b: PBIO): TOpenSSL_C_INT; cdecl; + +begin + Result := BIO_test_flags(b, BIO_FLAGS_SHOULD_RETRY); +end; + +//# define BIO_do_connect(b) BIO_do_handshake(b) + + +function COMPAT_BIO_do_connect(b: PBIO): TOpenSSL_C_LONG; cdecl; + +begin + Result := BIO_do_handshake(b); +end; + +//# define BIO_do_accept(b) BIO_do_handshake(b) + + +function COMPAT_BIO_do_accept(b: PBIO): TOpenSSL_C_LONG; cdecl; + +begin + Result := BIO_do_handshake(b); +end; + +//# define BIO_do_handshake(b) BIO_ctrl(b,BIO_C_DO_STATE_MACHINE,0,NULL) + + +function COMPAT_BIO_do_handshake(b: PBIO): TOpenSSL_C_LONG; cdecl; + +begin + Result := BIO_ctrl(b, BIO_C_DO_STATE_MACHINE, 0, nil); +end; + +//# define BIO_get_mem_data(b,pp) BIO_ctrl(b,BIO_CTRL_INFO,0,(char (pp)) + + +function COMPAT_BIO_get_mem_data(b: PBIO; pp: PAnsiChar): TOpenSSL_C_INT; cdecl; + +begin + Result := BIO_ctrl(b, BIO_CTRL_INFO, 0, pp); +end; + +//# define BIO_set_mem_buf(b,bm,c) BIO_ctrl(b,BIO_C_SET_BUF_MEM,c,(char (bm)) + + +function COMPAT_BIO_set_mem_buf(b: PBIO; bm: PAnsiChar; c: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + +begin + Result := BIO_ctrl(b, BIO_C_SET_BUF_MEM, c, bm); +end; + +//# define BIO_get_mem_ptr(b,pp) BIO_ctrl(b,BIO_C_GET_BUF_MEM_PTR,0,(char (pp)) + + +function COMPAT_BIO_get_mem_ptr(b: PBIO; pp: PAnsiChar): TOpenSSL_C_INT; cdecl; + +begin + Result := BIO_ctrl(b, BIO_C_GET_BUF_MEM_PTR, 0, pp); +end; + +//# define BIO_set_mem_eof_return(b,v) BIO_ctrl(b,BIO_C_SET_BUF_MEM_EOF_RETURN,v,0) + + +function COMPAT_BIO_set_mem_eof_return(b: PBIO; v: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + +begin + Result := BIO_ctrl(b, BIO_C_SET_BUF_MEM_EOF_RETURN, v, nil); +end; + + + + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_BIO_get_flags(const b: PBIO): TOpenSSL_C_INT; cdecl; +begin + BIO_get_flags := LoadLibCryptoFunction('BIO_get_flags'); + if not assigned(BIO_get_flags) then + BIO_get_flags := @COMPAT_BIO_get_flags; + Result := BIO_get_flags(b); +end; + +procedure Load_BIO_set_retry_special(b: PBIO); cdecl; +begin + BIO_set_retry_special := LoadLibCryptoFunction('BIO_set_retry_special'); + if not assigned(BIO_set_retry_special) then + BIO_set_retry_special := @COMPAT_BIO_set_retry_special; + BIO_set_retry_special(b); +end; + +procedure Load_BIO_set_retry_read(b: PBIO); cdecl; +begin + BIO_set_retry_read := LoadLibCryptoFunction('BIO_set_retry_read'); + if not assigned(BIO_set_retry_read) then + BIO_set_retry_read := @COMPAT_BIO_set_retry_read; + BIO_set_retry_read(b); +end; + +procedure Load_BIO_set_retry_write(b: PBIO); cdecl; +begin + BIO_set_retry_write := LoadLibCryptoFunction('BIO_set_retry_write'); + if not assigned(BIO_set_retry_write) then + BIO_set_retry_write := @COMPAT_BIO_set_retry_write; + BIO_set_retry_write(b); +end; + +procedure Load_BIO_clear_retry_flags(b: PBIO); cdecl; +begin + BIO_clear_retry_flags := LoadLibCryptoFunction('BIO_clear_retry_flags'); + if not assigned(BIO_clear_retry_flags) then + BIO_clear_retry_flags := @COMPAT_BIO_clear_retry_flags; + BIO_clear_retry_flags(b); +end; + +function Load_BIO_get_retry_flags(b: PBIO): TOpenSSL_C_INT; cdecl; +begin + BIO_get_retry_flags := LoadLibCryptoFunction('BIO_get_retry_flags'); + if not assigned(BIO_get_retry_flags) then + BIO_get_retry_flags := @COMPAT_BIO_get_retry_flags; + Result := BIO_get_retry_flags(b); +end; + +function Load_BIO_should_read(b: PBIO): TOpenSSL_C_INT; cdecl; +begin + BIO_should_read := LoadLibCryptoFunction('BIO_should_read'); + if not assigned(BIO_should_read) then + BIO_should_read := @COMPAT_BIO_should_read; + Result := BIO_should_read(b); +end; + +function Load_BIO_should_write(b: PBIO): TOpenSSL_C_INT; cdecl; +begin + BIO_should_write := LoadLibCryptoFunction('BIO_should_write'); + if not assigned(BIO_should_write) then + BIO_should_write := @COMPAT_BIO_should_write; + Result := BIO_should_write(b); +end; + +function Load_BIO_should_io_special(b: PBIO): TOpenSSL_C_INT; cdecl; +begin + BIO_should_io_special := LoadLibCryptoFunction('BIO_should_io_special'); + if not assigned(BIO_should_io_special) then + BIO_should_io_special := @COMPAT_BIO_should_io_special; + Result := BIO_should_io_special(b); +end; + +function Load_BIO_retry_type(b: PBIO): TOpenSSL_C_INT; cdecl; +begin + BIO_retry_type := LoadLibCryptoFunction('BIO_retry_type'); + if not assigned(BIO_retry_type) then + BIO_retry_type := @COMPAT_BIO_retry_type; + Result := BIO_retry_type(b); +end; + +function Load_BIO_should_retry(b: PBIO): TOpenSSL_C_INT; cdecl; +begin + BIO_should_retry := LoadLibCryptoFunction('BIO_should_retry'); + if not assigned(BIO_should_retry) then + BIO_should_retry := @COMPAT_BIO_should_retry; + Result := BIO_should_retry(b); +end; + +function Load_BIO_do_connect(b: PBIO): TOpenSSL_C_LONG; cdecl; +begin + BIO_do_connect := LoadLibCryptoFunction('BIO_do_connect'); + if not assigned(BIO_do_connect) then + BIO_do_connect := @COMPAT_BIO_do_connect; + Result := BIO_do_connect(b); +end; + +function Load_BIO_do_accept(b: PBIO): TOpenSSL_C_LONG; cdecl; +begin + BIO_do_accept := LoadLibCryptoFunction('BIO_do_accept'); + if not assigned(BIO_do_accept) then + BIO_do_accept := @COMPAT_BIO_do_accept; + Result := BIO_do_accept(b); +end; + +function Load_BIO_do_handshake(b: PBIO): TOpenSSL_C_LONG; cdecl; +begin + BIO_do_handshake := LoadLibCryptoFunction('BIO_do_handshake'); + if not assigned(BIO_do_handshake) then + BIO_do_handshake := @COMPAT_BIO_do_handshake; + Result := BIO_do_handshake(b); +end; + +function Load_BIO_get_mem_data(b: PBIO; pp: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + BIO_get_mem_data := LoadLibCryptoFunction('BIO_get_mem_data'); + if not assigned(BIO_get_mem_data) then + BIO_get_mem_data := @COMPAT_BIO_get_mem_data; + Result := BIO_get_mem_data(b,pp); +end; + +function Load_BIO_set_mem_buf(b: PBIO; bm: PAnsiChar; c: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_set_mem_buf := LoadLibCryptoFunction('BIO_set_mem_buf'); + if not assigned(BIO_set_mem_buf) then + BIO_set_mem_buf := @COMPAT_BIO_set_mem_buf; + Result := BIO_set_mem_buf(b,bm,c); +end; + +function Load_BIO_get_mem_ptr(b: PBIO; pp: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + BIO_get_mem_ptr := LoadLibCryptoFunction('BIO_get_mem_ptr'); + if not assigned(BIO_get_mem_ptr) then + BIO_get_mem_ptr := @COMPAT_BIO_get_mem_ptr; + Result := BIO_get_mem_ptr(b,pp); +end; + +function Load_BIO_set_mem_eof_return(b: PBIO; v: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_set_mem_eof_return := LoadLibCryptoFunction('BIO_set_mem_eof_return'); + if not assigned(BIO_set_mem_eof_return) then + BIO_set_mem_eof_return := @COMPAT_BIO_set_mem_eof_return; + Result := BIO_set_mem_eof_return(b,v); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_BIO_get_new_index: TOpenSSL_C_INT; cdecl; +begin + BIO_get_new_index := LoadLibCryptoFunction('BIO_get_new_index'); + if not assigned(BIO_get_new_index) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_get_new_index'); + Result := BIO_get_new_index(); +end; + +procedure Load_BIO_set_flags(b: PBIO; flags: TOpenSSL_C_INT); cdecl; +begin + BIO_set_flags := LoadLibCryptoFunction('BIO_set_flags'); + if not assigned(BIO_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_set_flags'); + BIO_set_flags(b,flags); +end; + +function Load_BIO_test_flags(const b: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_test_flags := LoadLibCryptoFunction('BIO_test_flags'); + if not assigned(BIO_test_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_test_flags'); + Result := BIO_test_flags(b,flags); +end; + +procedure Load_BIO_clear_flags(b: PBIO; flags: TOpenSSL_C_INT); cdecl; +begin + BIO_clear_flags := LoadLibCryptoFunction('BIO_clear_flags'); + if not assigned(BIO_clear_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_clear_flags'); + BIO_clear_flags(b,flags); +end; + +function Load_BIO_get_callback(b: PBIO): BIO_callback_fn; cdecl; +begin + BIO_get_callback := LoadLibCryptoFunction('BIO_get_callback'); + if not assigned(BIO_get_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_get_callback'); + Result := BIO_get_callback(b); +end; + +procedure Load_BIO_set_callback(b: PBIO; callback: BIO_callback_fn); cdecl; +begin + BIO_set_callback := LoadLibCryptoFunction('BIO_set_callback'); + if not assigned(BIO_set_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_set_callback'); + BIO_set_callback(b,callback); +end; + +function Load_BIO_get_callback_ex(b: PBIO): BIO_callback_fn_ex; cdecl; +begin + BIO_get_callback_ex := LoadLibCryptoFunction('BIO_get_callback_ex'); + if not assigned(BIO_get_callback_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_get_callback_ex'); + Result := BIO_get_callback_ex(b); +end; + +procedure Load_BIO_set_callback_ex(b: PBIO; callback: BIO_callback_fn_ex); cdecl; +begin + BIO_set_callback_ex := LoadLibCryptoFunction('BIO_set_callback_ex'); + if not assigned(BIO_set_callback_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_set_callback_ex'); + BIO_set_callback_ex(b,callback); +end; + +function Load_BIO_get_callback_arg(const b: PBIO): PAnsiChar; cdecl; +begin + BIO_get_callback_arg := LoadLibCryptoFunction('BIO_get_callback_arg'); + if not assigned(BIO_get_callback_arg) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_get_callback_arg'); + Result := BIO_get_callback_arg(b); +end; + +procedure Load_BIO_set_callback_arg(var b: PBIO; arg: PAnsiChar); cdecl; +begin + BIO_set_callback_arg := LoadLibCryptoFunction('BIO_set_callback_arg'); + if not assigned(BIO_set_callback_arg) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_set_callback_arg'); + BIO_set_callback_arg(b,arg); +end; + +function Load_BIO_method_name(const b: PBIO): PAnsiChar; cdecl; +begin + BIO_method_name := LoadLibCryptoFunction('BIO_method_name'); + if not assigned(BIO_method_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_method_name'); + Result := BIO_method_name(b); +end; + +function Load_BIO_method_type(const b: PBIO): TOpenSSL_C_INT; cdecl; +begin + BIO_method_type := LoadLibCryptoFunction('BIO_method_type'); + if not assigned(BIO_method_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_method_type'); + Result := BIO_method_type(b); +end; + +function Load_BIO_ctrl_pending(b: PBIO): TOpenSSL_C_SIZET; cdecl; +begin + BIO_ctrl_pending := LoadLibCryptoFunction('BIO_ctrl_pending'); + if not assigned(BIO_ctrl_pending) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ctrl_pending'); + Result := BIO_ctrl_pending(b); +end; + +function Load_BIO_ctrl_wpending(b: PBIO): TOpenSSL_C_SIZET; cdecl; +begin + BIO_ctrl_wpending := LoadLibCryptoFunction('BIO_ctrl_wpending'); + if not assigned(BIO_ctrl_wpending) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ctrl_wpending'); + Result := BIO_ctrl_wpending(b); +end; + +function Load_BIO_ctrl_get_write_guarantee(b: PBIO): TOpenSSL_C_SIZET; cdecl; +begin + BIO_ctrl_get_write_guarantee := LoadLibCryptoFunction('BIO_ctrl_get_write_guarantee'); + if not assigned(BIO_ctrl_get_write_guarantee) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ctrl_get_write_guarantee'); + Result := BIO_ctrl_get_write_guarantee(b); +end; + +function Load_BIO_ctrl_get_read_request(b: PBIO): TOpenSSL_C_SIZET; cdecl; +begin + BIO_ctrl_get_read_request := LoadLibCryptoFunction('BIO_ctrl_get_read_request'); + if not assigned(BIO_ctrl_get_read_request) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ctrl_get_read_request'); + Result := BIO_ctrl_get_read_request(b); +end; + +function Load_BIO_ctrl_reset_read_request(b: PBIO): TOpenSSL_C_INT; cdecl; +begin + BIO_ctrl_reset_read_request := LoadLibCryptoFunction('BIO_ctrl_reset_read_request'); + if not assigned(BIO_ctrl_reset_read_request) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ctrl_reset_read_request'); + Result := BIO_ctrl_reset_read_request(b); +end; + +function Load_BIO_set_ex_data(bio: PBIO; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; +begin + BIO_set_ex_data := LoadLibCryptoFunction('BIO_set_ex_data'); + if not assigned(BIO_set_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_set_ex_data'); + Result := BIO_set_ex_data(bio,idx,data); +end; + +function Load_BIO_get_ex_data(bio: PBIO; idx: TOpenSSL_C_INT): Pointer; cdecl; +begin + BIO_get_ex_data := LoadLibCryptoFunction('BIO_get_ex_data'); + if not assigned(BIO_get_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_get_ex_data'); + Result := BIO_get_ex_data(bio,idx); +end; + +function Load_BIO_number_read(bio: PBIO): TOpenSSL_C_UINT64; cdecl; +begin + BIO_number_read := LoadLibCryptoFunction('BIO_number_read'); + if not assigned(BIO_number_read) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_number_read'); + Result := BIO_number_read(bio); +end; + +function Load_BIO_number_written(bio: PBIO): TOpenSSL_C_UINT64; cdecl; +begin + BIO_number_written := LoadLibCryptoFunction('BIO_number_written'); + if not assigned(BIO_number_written) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_number_written'); + Result := BIO_number_written(bio); +end; + +function Load_BIO_s_file: PBIO_METHOD; cdecl; +begin + BIO_s_file := LoadLibCryptoFunction('BIO_s_file'); + if not assigned(BIO_s_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_s_file'); + Result := BIO_s_file(); +end; + +function Load_BIO_new_file(const filename: PAnsiChar; const mode: PAnsiChar): PBIO; cdecl; +begin + BIO_new_file := LoadLibCryptoFunction('BIO_new_file'); + if not assigned(BIO_new_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_new_file'); + Result := BIO_new_file(filename,mode); +end; + +function Load_BIO_new(const cType: PBIO_METHOD): PBIO; cdecl; +begin + BIO_new := LoadLibCryptoFunction('BIO_new'); + if not assigned(BIO_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_new'); + Result := BIO_new(cType); +end; + +function Load_BIO_free(a: PBIO): TOpenSSL_C_INT; cdecl; +begin + BIO_free := LoadLibCryptoFunction('BIO_free'); + if not assigned(BIO_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_free'); + Result := BIO_free(a); +end; + +procedure Load_BIO_set_data(a: PBIO; ptr: Pointer); cdecl; +begin + BIO_set_data := LoadLibCryptoFunction('BIO_set_data'); + if not assigned(BIO_set_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_set_data'); + BIO_set_data(a,ptr); +end; + +function Load_BIO_get_data(a: PBIO): Pointer; cdecl; +begin + BIO_get_data := LoadLibCryptoFunction('BIO_get_data'); + if not assigned(BIO_get_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_get_data'); + Result := BIO_get_data(a); +end; + +procedure Load_BIO_set_init(a: PBIO; init: TOpenSSL_C_INT); cdecl; +begin + BIO_set_init := LoadLibCryptoFunction('BIO_set_init'); + if not assigned(BIO_set_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_set_init'); + BIO_set_init(a,init); +end; + +function Load_BIO_get_init(a: PBIO): TOpenSSL_C_INT; cdecl; +begin + BIO_get_init := LoadLibCryptoFunction('BIO_get_init'); + if not assigned(BIO_get_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_get_init'); + Result := BIO_get_init(a); +end; + +procedure Load_BIO_set_shutdown(a: PBIO; shut: TOpenSSL_C_INT); cdecl; +begin + BIO_set_shutdown := LoadLibCryptoFunction('BIO_set_shutdown'); + if not assigned(BIO_set_shutdown) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_set_shutdown'); + BIO_set_shutdown(a,shut); +end; + +function Load_BIO_get_shutdown(a: PBIO): TOpenSSL_C_INT; cdecl; +begin + BIO_get_shutdown := LoadLibCryptoFunction('BIO_get_shutdown'); + if not assigned(BIO_get_shutdown) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_get_shutdown'); + Result := BIO_get_shutdown(a); +end; + +procedure Load_BIO_vfree(a: PBIO); cdecl; +begin + BIO_vfree := LoadLibCryptoFunction('BIO_vfree'); + if not assigned(BIO_vfree) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_vfree'); + BIO_vfree(a); +end; + +function Load_BIO_up_ref(a: PBIO): TOpenSSL_C_INT; cdecl; +begin + BIO_up_ref := LoadLibCryptoFunction('BIO_up_ref'); + if not assigned(BIO_up_ref) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_up_ref'); + Result := BIO_up_ref(a); +end; + +function Load_BIO_read(b: PBIO; data: Pointer; dlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_read := LoadLibCryptoFunction('BIO_read'); + if not assigned(BIO_read) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_read'); + Result := BIO_read(b,data,dlen); +end; + +function Load_BIO_read_ex(b: PBIO; data: Pointer; dlen: TOpenSSL_C_SIZET; readbytes: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + BIO_read_ex := LoadLibCryptoFunction('BIO_read_ex'); + if not assigned(BIO_read_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_read_ex'); + Result := BIO_read_ex(b,data,dlen,readbytes); +end; + +function Load_BIO_gets( bp: PBIO; buf: PAnsiChar; size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_gets := LoadLibCryptoFunction('BIO_gets'); + if not assigned(BIO_gets) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_gets'); + Result := BIO_gets(bp,buf,size); +end; + +function Load_BIO_write(b: PBIO; const data: Pointer; dlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_write := LoadLibCryptoFunction('BIO_write'); + if not assigned(BIO_write) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_write'); + Result := BIO_write(b,data,dlen); +end; + +function Load_BIO_write_ex(b: PBIO; const data: Pointer; dlen: TOpenSSL_C_SIZET; written: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + BIO_write_ex := LoadLibCryptoFunction('BIO_write_ex'); + if not assigned(BIO_write_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_write_ex'); + Result := BIO_write_ex(b,data,dlen,written); +end; + +function Load_BIO_puts(bp: PBIO; const buf: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + BIO_puts := LoadLibCryptoFunction('BIO_puts'); + if not assigned(BIO_puts) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_puts'); + Result := BIO_puts(bp,buf); +end; + +function Load_BIO_indent(b: PBIO; indent: TOpenSSL_C_INT; max: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_indent := LoadLibCryptoFunction('BIO_indent'); + if not assigned(BIO_indent) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_indent'); + Result := BIO_indent(b,indent,max); +end; + +function Load_BIO_ctrl(bp: PBIO; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; parg: Pointer): TOpenSSL_C_LONG; cdecl; +begin + BIO_ctrl := LoadLibCryptoFunction('BIO_ctrl'); + if not assigned(BIO_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ctrl'); + Result := BIO_ctrl(bp,cmd,larg,parg); +end; + +function Load_BIO_callback_ctrl(b: PBIO; cmd: TOpenSSL_C_INT; fp: PBIO_info_cb): TOpenSSL_C_LONG; cdecl; +begin + BIO_callback_ctrl := LoadLibCryptoFunction('BIO_callback_ctrl'); + if not assigned(BIO_callback_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_callback_ctrl'); + Result := BIO_callback_ctrl(b,cmd,fp); +end; + +function Load_BIO_ptr_ctrl(bp: PBIO; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG): Pointer; cdecl; +begin + BIO_ptr_ctrl := LoadLibCryptoFunction('BIO_ptr_ctrl'); + if not assigned(BIO_ptr_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ptr_ctrl'); + Result := BIO_ptr_ctrl(bp,cmd,larg); +end; + +function Load_BIO_int_ctrl(bp: PBIO; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; iarg: TOpenSSL_C_INT): TOpenSSL_C_LONG; cdecl; +begin + BIO_int_ctrl := LoadLibCryptoFunction('BIO_int_ctrl'); + if not assigned(BIO_int_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_int_ctrl'); + Result := BIO_int_ctrl(bp,cmd,larg,iarg); +end; + +function Load_BIO_push(b: PBIO; append: PBIO): PBIO; cdecl; +begin + BIO_push := LoadLibCryptoFunction('BIO_push'); + if not assigned(BIO_push) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_push'); + Result := BIO_push(b,append); +end; + +function Load_BIO_pop(b: PBIO): PBIO; cdecl; +begin + BIO_pop := LoadLibCryptoFunction('BIO_pop'); + if not assigned(BIO_pop) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_pop'); + Result := BIO_pop(b); +end; + +procedure Load_BIO_free_all(a: PBIO); cdecl; +begin + BIO_free_all := LoadLibCryptoFunction('BIO_free_all'); + if not assigned(BIO_free_all) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_free_all'); + BIO_free_all(a); +end; + +function Load_BIO_find_type(b: PBIO; bio_type: TOpenSSL_C_INT): PBIO; cdecl; +begin + BIO_find_type := LoadLibCryptoFunction('BIO_find_type'); + if not assigned(BIO_find_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_find_type'); + Result := BIO_find_type(b,bio_type); +end; + +function Load_BIO_next(b: PBIO): PBIO; cdecl; +begin + BIO_next := LoadLibCryptoFunction('BIO_next'); + if not assigned(BIO_next) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_next'); + Result := BIO_next(b); +end; + +procedure Load_BIO_set_next(b: PBIO; next: PBIO); cdecl; +begin + BIO_set_next := LoadLibCryptoFunction('BIO_set_next'); + if not assigned(BIO_set_next) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_set_next'); + BIO_set_next(b,next); +end; + +function Load_BIO_get_retry_BIO(bio: PBIO; reason: TOpenSSL_C_INT): PBIO; cdecl; +begin + BIO_get_retry_BIO := LoadLibCryptoFunction('BIO_get_retry_BIO'); + if not assigned(BIO_get_retry_BIO) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_get_retry_BIO'); + Result := BIO_get_retry_BIO(bio,reason); +end; + +function Load_BIO_get_retry_reason(bio: PBIO): TOpenSSL_C_INT; cdecl; +begin + BIO_get_retry_reason := LoadLibCryptoFunction('BIO_get_retry_reason'); + if not assigned(BIO_get_retry_reason) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_get_retry_reason'); + Result := BIO_get_retry_reason(bio); +end; + +procedure Load_BIO_set_retry_reason(bio: PBIO; reason: TOpenSSL_C_INT); cdecl; +begin + BIO_set_retry_reason := LoadLibCryptoFunction('BIO_set_retry_reason'); + if not assigned(BIO_set_retry_reason) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_set_retry_reason'); + BIO_set_retry_reason(bio,reason); +end; + +function Load_BIO_dup_chain(in_: PBIO): PBIO; cdecl; +begin + BIO_dup_chain := LoadLibCryptoFunction('BIO_dup_chain'); + if not assigned(BIO_dup_chain) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_dup_chain'); + Result := BIO_dup_chain(in_); +end; + +function Load_BIO_nread0(bio: PBIO; buf: PPAnsiChar): TOpenSSL_C_INT; cdecl; +begin + BIO_nread0 := LoadLibCryptoFunction('BIO_nread0'); + if not assigned(BIO_nread0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_nread0'); + Result := BIO_nread0(bio,buf); +end; + +function Load_BIO_nread(bio: PBIO; buf: PPAnsiChar; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_nread := LoadLibCryptoFunction('BIO_nread'); + if not assigned(BIO_nread) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_nread'); + Result := BIO_nread(bio,buf,num); +end; + +function Load_BIO_nwrite0(bio: PBIO; buf: PPAnsiChar): TOpenSSL_C_INT; cdecl; +begin + BIO_nwrite0 := LoadLibCryptoFunction('BIO_nwrite0'); + if not assigned(BIO_nwrite0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_nwrite0'); + Result := BIO_nwrite0(bio,buf); +end; + +function Load_BIO_nwrite(bio: PBIO; buf: PPAnsiChar; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_nwrite := LoadLibCryptoFunction('BIO_nwrite'); + if not assigned(BIO_nwrite) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_nwrite'); + Result := BIO_nwrite(bio,buf,num); +end; + +function Load_BIO_debug_callback(bio: PBIO; cmd: TOpenSSL_C_INT; const argp: PAnsiChar; argi: TOpenSSL_C_INT; argl: TOpenSSL_C_LONG; ret: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + BIO_debug_callback := LoadLibCryptoFunction('BIO_debug_callback'); + if not assigned(BIO_debug_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_debug_callback'); + Result := BIO_debug_callback(bio,cmd,argp,argi,argl,ret); +end; + +function Load_BIO_s_mem: PBIO_METHOD; cdecl; +begin + BIO_s_mem := LoadLibCryptoFunction('BIO_s_mem'); + if not assigned(BIO_s_mem) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_s_mem'); + Result := BIO_s_mem(); +end; + +function Load_BIO_s_secmem: PBIO_METHOD; cdecl; +begin + BIO_s_secmem := LoadLibCryptoFunction('BIO_s_secmem'); + if not assigned(BIO_s_secmem) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_s_secmem'); + Result := BIO_s_secmem(); +end; + +function Load_BIO_new_mem_buf(const buf: Pointer; len: TOpenSSL_C_INT): PBIO; cdecl; +begin + BIO_new_mem_buf := LoadLibCryptoFunction('BIO_new_mem_buf'); + if not assigned(BIO_new_mem_buf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_new_mem_buf'); + Result := BIO_new_mem_buf(buf,len); +end; + +function Load_BIO_s_socket: PBIO_METHOD; cdecl; +begin + BIO_s_socket := LoadLibCryptoFunction('BIO_s_socket'); + if not assigned(BIO_s_socket) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_s_socket'); + Result := BIO_s_socket(); +end; + +function Load_BIO_s_connect: PBIO_METHOD; cdecl; +begin + BIO_s_connect := LoadLibCryptoFunction('BIO_s_connect'); + if not assigned(BIO_s_connect) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_s_connect'); + Result := BIO_s_connect(); +end; + +function Load_BIO_s_accept: PBIO_METHOD; cdecl; +begin + BIO_s_accept := LoadLibCryptoFunction('BIO_s_accept'); + if not assigned(BIO_s_accept) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_s_accept'); + Result := BIO_s_accept(); +end; + +function Load_BIO_s_fd: PBIO_METHOD; cdecl; +begin + BIO_s_fd := LoadLibCryptoFunction('BIO_s_fd'); + if not assigned(BIO_s_fd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_s_fd'); + Result := BIO_s_fd(); +end; + +function Load_BIO_s_log: PBIO_METHOD; cdecl; +begin + BIO_s_log := LoadLibCryptoFunction('BIO_s_log'); + if not assigned(BIO_s_log) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_s_log'); + Result := BIO_s_log(); +end; + +function Load_BIO_s_bio: PBIO_METHOD; cdecl; +begin + BIO_s_bio := LoadLibCryptoFunction('BIO_s_bio'); + if not assigned(BIO_s_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_s_bio'); + Result := BIO_s_bio(); +end; + +function Load_BIO_s_null: PBIO_METHOD; cdecl; +begin + BIO_s_null := LoadLibCryptoFunction('BIO_s_null'); + if not assigned(BIO_s_null) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_s_null'); + Result := BIO_s_null(); +end; + +function Load_BIO_f_null: PBIO_METHOD; cdecl; +begin + BIO_f_null := LoadLibCryptoFunction('BIO_f_null'); + if not assigned(BIO_f_null) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_f_null'); + Result := BIO_f_null(); +end; + +function Load_BIO_f_buffer: PBIO_METHOD; cdecl; +begin + BIO_f_buffer := LoadLibCryptoFunction('BIO_f_buffer'); + if not assigned(BIO_f_buffer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_f_buffer'); + Result := BIO_f_buffer(); +end; + +function Load_BIO_f_linebuffer: PBIO_METHOD; cdecl; +begin + BIO_f_linebuffer := LoadLibCryptoFunction('BIO_f_linebuffer'); + if not assigned(BIO_f_linebuffer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_f_linebuffer'); + Result := BIO_f_linebuffer(); +end; + +function Load_BIO_f_nbio_test: PBIO_METHOD; cdecl; +begin + BIO_f_nbio_test := LoadLibCryptoFunction('BIO_f_nbio_test'); + if not assigned(BIO_f_nbio_test) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_f_nbio_test'); + Result := BIO_f_nbio_test(); +end; + +function Load_BIO_s_datagram: PBIO_METHOD; cdecl; +begin + BIO_s_datagram := LoadLibCryptoFunction('BIO_s_datagram'); + if not assigned(BIO_s_datagram) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_s_datagram'); + Result := BIO_s_datagram(); +end; + +function Load_BIO_dgram_non_fatal_error(error: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_dgram_non_fatal_error := LoadLibCryptoFunction('BIO_dgram_non_fatal_error'); + if not assigned(BIO_dgram_non_fatal_error) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_dgram_non_fatal_error'); + Result := BIO_dgram_non_fatal_error(error); +end; + +function Load_BIO_new_dgram(fd: TOpenSSL_C_INT; close_flag: TOpenSSL_C_INT): PBIO; cdecl; +begin + BIO_new_dgram := LoadLibCryptoFunction('BIO_new_dgram'); + if not assigned(BIO_new_dgram) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_new_dgram'); + Result := BIO_new_dgram(fd,close_flag); +end; + +function Load_BIO_sock_should_retry(i: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_sock_should_retry := LoadLibCryptoFunction('BIO_sock_should_retry'); + if not assigned(BIO_sock_should_retry) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_sock_should_retry'); + Result := BIO_sock_should_retry(i); +end; + +function Load_BIO_sock_non_fatal_error(error: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_sock_non_fatal_error := LoadLibCryptoFunction('BIO_sock_non_fatal_error'); + if not assigned(BIO_sock_non_fatal_error) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_sock_non_fatal_error'); + Result := BIO_sock_non_fatal_error(error); +end; + +function Load_BIO_fd_should_retry(i: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_fd_should_retry := LoadLibCryptoFunction('BIO_fd_should_retry'); + if not assigned(BIO_fd_should_retry) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_fd_should_retry'); + Result := BIO_fd_should_retry(i); +end; + +function Load_BIO_fd_non_fatal_error(error: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_fd_non_fatal_error := LoadLibCryptoFunction('BIO_fd_non_fatal_error'); + if not assigned(BIO_fd_non_fatal_error) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_fd_non_fatal_error'); + Result := BIO_fd_non_fatal_error(error); +end; + +function Load_BIO_dump(b: PBIO; const bytes: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_dump := LoadLibCryptoFunction('BIO_dump'); + if not assigned(BIO_dump) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_dump'); + Result := BIO_dump(b,bytes,len); +end; + +function Load_BIO_dump_indent(b: PBIO; const bytes: PAnsiChar; len: TOpenSSL_C_INT; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_dump_indent := LoadLibCryptoFunction('BIO_dump_indent'); + if not assigned(BIO_dump_indent) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_dump_indent'); + Result := BIO_dump_indent(b,bytes,len,indent); +end; + +function Load_BIO_hex_string(out_: PBIO; indent: TOpenSSL_C_INT; width: TOpenSSL_C_INT; data: PByte; datalen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_hex_string := LoadLibCryptoFunction('BIO_hex_string'); + if not assigned(BIO_hex_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_hex_string'); + Result := BIO_hex_string(out_,indent,width,data,datalen); +end; + +function Load_BIO_ADDR_new: PBIO_ADDR; cdecl; +begin + BIO_ADDR_new := LoadLibCryptoFunction('BIO_ADDR_new'); + if not assigned(BIO_ADDR_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ADDR_new'); + Result := BIO_ADDR_new(); +end; + +function Load_BIO_ADDR_rawmake(ap: PBIO_ADDR; familiy: TOpenSSL_C_INT; const where: Pointer; wherelen: TOpenSSL_C_SIZET; port: TOpenSSL_C_SHORT): TOpenSSL_C_INT; cdecl; +begin + BIO_ADDR_rawmake := LoadLibCryptoFunction('BIO_ADDR_rawmake'); + if not assigned(BIO_ADDR_rawmake) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ADDR_rawmake'); + Result := BIO_ADDR_rawmake(ap,familiy,where,wherelen,port); +end; + +procedure Load_BIO_ADDR_free(a: PBIO_ADDR); cdecl; +begin + BIO_ADDR_free := LoadLibCryptoFunction('BIO_ADDR_free'); + if not assigned(BIO_ADDR_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ADDR_free'); + BIO_ADDR_free(a); +end; + +procedure Load_BIO_ADDR_clear(ap: PBIO_ADDR); cdecl; +begin + BIO_ADDR_clear := LoadLibCryptoFunction('BIO_ADDR_clear'); + if not assigned(BIO_ADDR_clear) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ADDR_clear'); + BIO_ADDR_clear(ap); +end; + +function Load_BIO_ADDR_family(const ap: PBIO_ADDR): TOpenSSL_C_INT; cdecl; +begin + BIO_ADDR_family := LoadLibCryptoFunction('BIO_ADDR_family'); + if not assigned(BIO_ADDR_family) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ADDR_family'); + Result := BIO_ADDR_family(ap); +end; + +function Load_BIO_ADDR_rawaddress(const ap: PBIO_ADDR; p: Pointer; l: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + BIO_ADDR_rawaddress := LoadLibCryptoFunction('BIO_ADDR_rawaddress'); + if not assigned(BIO_ADDR_rawaddress) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ADDR_rawaddress'); + Result := BIO_ADDR_rawaddress(ap,p,l); +end; + +function Load_BIO_ADDR_rawport(const ap: PBIO_ADDR): TOpenSSL_C_SHORT; cdecl; +begin + BIO_ADDR_rawport := LoadLibCryptoFunction('BIO_ADDR_rawport'); + if not assigned(BIO_ADDR_rawport) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ADDR_rawport'); + Result := BIO_ADDR_rawport(ap); +end; + +function Load_BIO_ADDR_hostname_string(const ap: PBIO_ADDR; numeric: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + BIO_ADDR_hostname_string := LoadLibCryptoFunction('BIO_ADDR_hostname_string'); + if not assigned(BIO_ADDR_hostname_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ADDR_hostname_string'); + Result := BIO_ADDR_hostname_string(ap,numeric); +end; + +function Load_BIO_ADDR_service_string(const ap: PBIO_ADDR; numeric: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + BIO_ADDR_service_string := LoadLibCryptoFunction('BIO_ADDR_service_string'); + if not assigned(BIO_ADDR_service_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ADDR_service_string'); + Result := BIO_ADDR_service_string(ap,numeric); +end; + +function Load_BIO_ADDR_path_string(const ap: PBIO_ADDR): PAnsiChar; cdecl; +begin + BIO_ADDR_path_string := LoadLibCryptoFunction('BIO_ADDR_path_string'); + if not assigned(BIO_ADDR_path_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ADDR_path_string'); + Result := BIO_ADDR_path_string(ap); +end; + +function Load_BIO_ADDRINFO_next(const bai: PBIO_ADDRINFO): PBIO_ADDRINFO; cdecl; +begin + BIO_ADDRINFO_next := LoadLibCryptoFunction('BIO_ADDRINFO_next'); + if not assigned(BIO_ADDRINFO_next) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ADDRINFO_next'); + Result := BIO_ADDRINFO_next(bai); +end; + +function Load_BIO_ADDRINFO_family(const bai: PBIO_ADDRINFO): TOpenSSL_C_INT; cdecl; +begin + BIO_ADDRINFO_family := LoadLibCryptoFunction('BIO_ADDRINFO_family'); + if not assigned(BIO_ADDRINFO_family) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ADDRINFO_family'); + Result := BIO_ADDRINFO_family(bai); +end; + +function Load_BIO_ADDRINFO_socktype(const bai: PBIO_ADDRINFO): TOpenSSL_C_INT; cdecl; +begin + BIO_ADDRINFO_socktype := LoadLibCryptoFunction('BIO_ADDRINFO_socktype'); + if not assigned(BIO_ADDRINFO_socktype) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ADDRINFO_socktype'); + Result := BIO_ADDRINFO_socktype(bai); +end; + +function Load_BIO_ADDRINFO_protocol(const bai: PBIO_ADDRINFO): TOpenSSL_C_INT; cdecl; +begin + BIO_ADDRINFO_protocol := LoadLibCryptoFunction('BIO_ADDRINFO_protocol'); + if not assigned(BIO_ADDRINFO_protocol) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ADDRINFO_protocol'); + Result := BIO_ADDRINFO_protocol(bai); +end; + +function Load_BIO_ADDRINFO_address(const bai: PBIO_ADDRINFO): PBIO_ADDR; cdecl; +begin + BIO_ADDRINFO_address := LoadLibCryptoFunction('BIO_ADDRINFO_address'); + if not assigned(BIO_ADDRINFO_address) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ADDRINFO_address'); + Result := BIO_ADDRINFO_address(bai); +end; + +procedure Load_BIO_ADDRINFO_free(bai: PBIO_ADDRINFO); cdecl; +begin + BIO_ADDRINFO_free := LoadLibCryptoFunction('BIO_ADDRINFO_free'); + if not assigned(BIO_ADDRINFO_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ADDRINFO_free'); + BIO_ADDRINFO_free(bai); +end; + +function Load_BIO_parse_hostserv(const hostserv: PAnsiChar; host: PPAnsiChar; service: PPAnsiChar; hostserv_prio: BIO_hostserv_priorities): TOpenSSL_C_INT; cdecl; +begin + BIO_parse_hostserv := LoadLibCryptoFunction('BIO_parse_hostserv'); + if not assigned(BIO_parse_hostserv) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_parse_hostserv'); + Result := BIO_parse_hostserv(hostserv,host,service,hostserv_prio); +end; + +function Load_BIO_lookup(const host: PAnsiChar; const service: PAnsiChar; lookup_type: BIO_lookup_type; family: TOpenSSL_C_INT; socktype: TOpenSSL_C_INT; res: PPBIO_ADDRINFO): TOpenSSL_C_INT; cdecl; +begin + BIO_lookup := LoadLibCryptoFunction('BIO_lookup'); + if not assigned(BIO_lookup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_lookup'); + Result := BIO_lookup(host,service,lookup_type,family,socktype,res); +end; + +function Load_BIO_lookup_ex(const host: PAnsiChar; const service: PAnsiChar; lookup_type: TOpenSSL_C_INT; family: TOpenSSL_C_INT; socktype: TOpenSSL_C_INT; protocol: TOpenSSL_C_INT; res: PPBIO_ADDRINFO): TOpenSSL_C_INT; cdecl; +begin + BIO_lookup_ex := LoadLibCryptoFunction('BIO_lookup_ex'); + if not assigned(BIO_lookup_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_lookup_ex'); + Result := BIO_lookup_ex(host,service,lookup_type,family,socktype,protocol,res); +end; + +function Load_BIO_sock_error(sock: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_sock_error := LoadLibCryptoFunction('BIO_sock_error'); + if not assigned(BIO_sock_error) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_sock_error'); + Result := BIO_sock_error(sock); +end; + +function Load_BIO_socket_ioctl(fd: TOpenSSL_C_INT; cType: TOpenSSL_C_LONG; arg: Pointer): TOpenSSL_C_INT; cdecl; +begin + BIO_socket_ioctl := LoadLibCryptoFunction('BIO_socket_ioctl'); + if not assigned(BIO_socket_ioctl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_socket_ioctl'); + Result := BIO_socket_ioctl(fd,cType,arg); +end; + +function Load_BIO_socket_nbio(fd: TOpenSSL_C_INT; mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_socket_nbio := LoadLibCryptoFunction('BIO_socket_nbio'); + if not assigned(BIO_socket_nbio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_socket_nbio'); + Result := BIO_socket_nbio(fd,mode); +end; + +function Load_BIO_sock_init: TOpenSSL_C_INT; cdecl; +begin + BIO_sock_init := LoadLibCryptoFunction('BIO_sock_init'); + if not assigned(BIO_sock_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_sock_init'); + Result := BIO_sock_init(); +end; + +function Load_BIO_set_tcp_ndelay(sock: TOpenSSL_C_INT; turn_on: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_set_tcp_ndelay := LoadLibCryptoFunction('BIO_set_tcp_ndelay'); + if not assigned(BIO_set_tcp_ndelay) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_set_tcp_ndelay'); + Result := BIO_set_tcp_ndelay(sock,turn_on); +end; + +function Load_BIO_sock_info(sock: TOpenSSL_C_INT; type_: BIO_sock_info_type; info: PBIO_sock_info_u): TOpenSSL_C_INT; cdecl; +begin + BIO_sock_info := LoadLibCryptoFunction('BIO_sock_info'); + if not assigned(BIO_sock_info) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_sock_info'); + Result := BIO_sock_info(sock,type_,info); +end; + +function Load_BIO_socket(domain: TOpenSSL_C_INT; socktype: TOpenSSL_C_INT; protocol: TOpenSSL_C_INT; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_socket := LoadLibCryptoFunction('BIO_socket'); + if not assigned(BIO_socket) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_socket'); + Result := BIO_socket(domain,socktype,protocol,options); +end; + +function Load_BIO_connect(sock: TOpenSSL_C_INT; const addr: PBIO_ADDR; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_connect := LoadLibCryptoFunction('BIO_connect'); + if not assigned(BIO_connect) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_connect'); + Result := BIO_connect(sock,addr,options); +end; + +function Load_BIO_bind(sock: TOpenSSL_C_INT; const addr: PBIO_ADDR; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_bind := LoadLibCryptoFunction('BIO_bind'); + if not assigned(BIO_bind) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_bind'); + Result := BIO_bind(sock,addr,options); +end; + +function Load_BIO_listen(sock: TOpenSSL_C_INT; const addr: PBIO_ADDR; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_listen := LoadLibCryptoFunction('BIO_listen'); + if not assigned(BIO_listen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_listen'); + Result := BIO_listen(sock,addr,options); +end; + +function Load_BIO_accept_ex(accept_sock: TOpenSSL_C_INT; addr: PBIO_ADDR; options: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_accept_ex := LoadLibCryptoFunction('BIO_accept_ex'); + if not assigned(BIO_accept_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_accept_ex'); + Result := BIO_accept_ex(accept_sock,addr,options); +end; + +function Load_BIO_closesocket(sock: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_closesocket := LoadLibCryptoFunction('BIO_closesocket'); + if not assigned(BIO_closesocket) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_closesocket'); + Result := BIO_closesocket(sock); +end; + +function Load_BIO_new_socket(sock: TOpenSSL_C_INT; close_flag: TOpenSSL_C_INT): PBIO; cdecl; +begin + BIO_new_socket := LoadLibCryptoFunction('BIO_new_socket'); + if not assigned(BIO_new_socket) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_new_socket'); + Result := BIO_new_socket(sock,close_flag); +end; + +function Load_BIO_new_connect(const host_port: PAnsiChar): PBIO; cdecl; +begin + BIO_new_connect := LoadLibCryptoFunction('BIO_new_connect'); + if not assigned(BIO_new_connect) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_new_connect'); + Result := BIO_new_connect(host_port); +end; + +function Load_BIO_new_accept(const host_port: PAnsiChar): PBIO; cdecl; +begin + BIO_new_accept := LoadLibCryptoFunction('BIO_new_accept'); + if not assigned(BIO_new_accept) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_new_accept'); + Result := BIO_new_accept(host_port); +end; + +function Load_BIO_new_fd(fd: TOpenSSL_C_INT; close_flag: TOpenSSL_C_INT): PBIO; cdecl; +begin + BIO_new_fd := LoadLibCryptoFunction('BIO_new_fd'); + if not assigned(BIO_new_fd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_new_fd'); + Result := BIO_new_fd(fd,close_flag); +end; + +function Load_BIO_new_bio_pair(bio1: PPBIO; writebuf1: TOpenSSL_C_SIZET; bio2: PPBIO; writebuf2: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + BIO_new_bio_pair := LoadLibCryptoFunction('BIO_new_bio_pair'); + if not assigned(BIO_new_bio_pair) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_new_bio_pair'); + Result := BIO_new_bio_pair(bio1,writebuf1,bio2,writebuf2); +end; + +procedure Load_BIO_copy_next_retry(b: PBIO); cdecl; +begin + BIO_copy_next_retry := LoadLibCryptoFunction('BIO_copy_next_retry'); + if not assigned(BIO_copy_next_retry) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_copy_next_retry'); + BIO_copy_next_retry(b); +end; + + +procedure UnLoad; +begin +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + BIO_get_flags := Load_BIO_get_flags; + BIO_set_retry_special := Load_BIO_set_retry_special; + BIO_set_retry_read := Load_BIO_set_retry_read; + BIO_set_retry_write := Load_BIO_set_retry_write; + BIO_clear_retry_flags := Load_BIO_clear_retry_flags; + BIO_get_retry_flags := Load_BIO_get_retry_flags; + BIO_should_read := Load_BIO_should_read; + BIO_should_write := Load_BIO_should_write; + BIO_should_io_special := Load_BIO_should_io_special; + BIO_retry_type := Load_BIO_retry_type; + BIO_should_retry := Load_BIO_should_retry; + BIO_do_connect := Load_BIO_do_connect; + BIO_do_accept := Load_BIO_do_accept; + BIO_do_handshake := Load_BIO_do_handshake; + BIO_get_mem_data := Load_BIO_get_mem_data; + BIO_set_mem_buf := Load_BIO_set_mem_buf; + BIO_get_mem_ptr := Load_BIO_get_mem_ptr; + BIO_set_mem_eof_return := Load_BIO_set_mem_eof_return; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + BIO_get_new_index := Load_BIO_get_new_index; + BIO_set_flags := Load_BIO_set_flags; + BIO_test_flags := Load_BIO_test_flags; + BIO_clear_flags := Load_BIO_clear_flags; + BIO_get_callback := Load_BIO_get_callback; + BIO_set_callback := Load_BIO_set_callback; + BIO_get_callback_ex := Load_BIO_get_callback_ex; + BIO_set_callback_ex := Load_BIO_set_callback_ex; + BIO_get_callback_arg := Load_BIO_get_callback_arg; + BIO_set_callback_arg := Load_BIO_set_callback_arg; + BIO_method_name := Load_BIO_method_name; + BIO_method_type := Load_BIO_method_type; + BIO_ctrl_pending := Load_BIO_ctrl_pending; + BIO_ctrl_wpending := Load_BIO_ctrl_wpending; + BIO_ctrl_get_write_guarantee := Load_BIO_ctrl_get_write_guarantee; + BIO_ctrl_get_read_request := Load_BIO_ctrl_get_read_request; + BIO_ctrl_reset_read_request := Load_BIO_ctrl_reset_read_request; + BIO_set_ex_data := Load_BIO_set_ex_data; + BIO_get_ex_data := Load_BIO_get_ex_data; + BIO_number_read := Load_BIO_number_read; + BIO_number_written := Load_BIO_number_written; + BIO_s_file := Load_BIO_s_file; + BIO_new_file := Load_BIO_new_file; + BIO_new := Load_BIO_new; + BIO_free := Load_BIO_free; + BIO_set_data := Load_BIO_set_data; + BIO_get_data := Load_BIO_get_data; + BIO_set_init := Load_BIO_set_init; + BIO_get_init := Load_BIO_get_init; + BIO_set_shutdown := Load_BIO_set_shutdown; + BIO_get_shutdown := Load_BIO_get_shutdown; + BIO_vfree := Load_BIO_vfree; + BIO_up_ref := Load_BIO_up_ref; + BIO_read := Load_BIO_read; + BIO_read_ex := Load_BIO_read_ex; + BIO_gets := Load_BIO_gets; + BIO_write := Load_BIO_write; + BIO_write_ex := Load_BIO_write_ex; + BIO_puts := Load_BIO_puts; + BIO_indent := Load_BIO_indent; + BIO_ctrl := Load_BIO_ctrl; + BIO_callback_ctrl := Load_BIO_callback_ctrl; + BIO_ptr_ctrl := Load_BIO_ptr_ctrl; + BIO_int_ctrl := Load_BIO_int_ctrl; + BIO_push := Load_BIO_push; + BIO_pop := Load_BIO_pop; + BIO_free_all := Load_BIO_free_all; + BIO_find_type := Load_BIO_find_type; + BIO_next := Load_BIO_next; + BIO_set_next := Load_BIO_set_next; + BIO_get_retry_BIO := Load_BIO_get_retry_BIO; + BIO_get_retry_reason := Load_BIO_get_retry_reason; + BIO_set_retry_reason := Load_BIO_set_retry_reason; + BIO_dup_chain := Load_BIO_dup_chain; + BIO_nread0 := Load_BIO_nread0; + BIO_nread := Load_BIO_nread; + BIO_nwrite0 := Load_BIO_nwrite0; + BIO_nwrite := Load_BIO_nwrite; + BIO_debug_callback := Load_BIO_debug_callback; + BIO_s_mem := Load_BIO_s_mem; + BIO_s_secmem := Load_BIO_s_secmem; + BIO_new_mem_buf := Load_BIO_new_mem_buf; + BIO_s_socket := Load_BIO_s_socket; + BIO_s_connect := Load_BIO_s_connect; + BIO_s_accept := Load_BIO_s_accept; + BIO_s_fd := Load_BIO_s_fd; + BIO_s_log := Load_BIO_s_log; + BIO_s_bio := Load_BIO_s_bio; + BIO_s_null := Load_BIO_s_null; + BIO_f_null := Load_BIO_f_null; + BIO_f_buffer := Load_BIO_f_buffer; + BIO_f_linebuffer := Load_BIO_f_linebuffer; + BIO_f_nbio_test := Load_BIO_f_nbio_test; + BIO_s_datagram := Load_BIO_s_datagram; + BIO_dgram_non_fatal_error := Load_BIO_dgram_non_fatal_error; + BIO_new_dgram := Load_BIO_new_dgram; + BIO_sock_should_retry := Load_BIO_sock_should_retry; + BIO_sock_non_fatal_error := Load_BIO_sock_non_fatal_error; + BIO_fd_should_retry := Load_BIO_fd_should_retry; + BIO_fd_non_fatal_error := Load_BIO_fd_non_fatal_error; + BIO_dump := Load_BIO_dump; + BIO_dump_indent := Load_BIO_dump_indent; + BIO_hex_string := Load_BIO_hex_string; + BIO_ADDR_new := Load_BIO_ADDR_new; + BIO_ADDR_rawmake := Load_BIO_ADDR_rawmake; + BIO_ADDR_free := Load_BIO_ADDR_free; + BIO_ADDR_clear := Load_BIO_ADDR_clear; + BIO_ADDR_family := Load_BIO_ADDR_family; + BIO_ADDR_rawaddress := Load_BIO_ADDR_rawaddress; + BIO_ADDR_rawport := Load_BIO_ADDR_rawport; + BIO_ADDR_hostname_string := Load_BIO_ADDR_hostname_string; + BIO_ADDR_service_string := Load_BIO_ADDR_service_string; + BIO_ADDR_path_string := Load_BIO_ADDR_path_string; + BIO_ADDRINFO_next := Load_BIO_ADDRINFO_next; + BIO_ADDRINFO_family := Load_BIO_ADDRINFO_family; + BIO_ADDRINFO_socktype := Load_BIO_ADDRINFO_socktype; + BIO_ADDRINFO_protocol := Load_BIO_ADDRINFO_protocol; + BIO_ADDRINFO_address := Load_BIO_ADDRINFO_address; + BIO_ADDRINFO_free := Load_BIO_ADDRINFO_free; + BIO_parse_hostserv := Load_BIO_parse_hostserv; + BIO_lookup := Load_BIO_lookup; + BIO_lookup_ex := Load_BIO_lookup_ex; + BIO_sock_error := Load_BIO_sock_error; + BIO_socket_ioctl := Load_BIO_socket_ioctl; + BIO_socket_nbio := Load_BIO_socket_nbio; + BIO_sock_init := Load_BIO_sock_init; + BIO_set_tcp_ndelay := Load_BIO_set_tcp_ndelay; + BIO_sock_info := Load_BIO_sock_info; + BIO_socket := Load_BIO_socket; + BIO_connect := Load_BIO_connect; + BIO_bind := Load_BIO_bind; + BIO_listen := Load_BIO_listen; + BIO_accept_ex := Load_BIO_accept_ex; + BIO_closesocket := Load_BIO_closesocket; + BIO_new_socket := Load_BIO_new_socket; + BIO_new_connect := Load_BIO_new_connect; + BIO_new_accept := Load_BIO_new_accept; + BIO_new_fd := Load_BIO_new_fd; + BIO_new_bio_pair := Load_BIO_new_bio_pair; + BIO_copy_next_retry := Load_BIO_copy_next_retry; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_bioerr.pas b/src/opensslHdrs/IdOpenSSLHeaders_bioerr.pas new file mode 100644 index 0000000..448ec53 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_bioerr.pas @@ -0,0 +1,198 @@ +(* This unit was generated from the source file bioerr.h2pas +It should not be modified directly. All changes should be made to bioerr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_bioerr; + + +interface + +// Headers for OpenSSL 1.1.1 +// bioerr.h + + +uses + IdSSLOpenSSLAPI; + +const + (* + * BIO function codes. + *) + BIO_F_ACPT_STATE = 100; + BIO_F_ADDRINFO_WRAP = 148; + BIO_F_ADDR_STRINGS = 134; + BIO_F_BIO_ACCEPT = 101; + BIO_F_BIO_ACCEPT_EX = 137; + BIO_F_BIO_ACCEPT_NEW = 152; + BIO_F_BIO_ADDR_NEW = 144; + BIO_F_BIO_BIND = 147; + BIO_F_BIO_CALLBACK_CTRL = 131; + BIO_F_BIO_CONNECT = 138; + BIO_F_BIO_CONNECT_NEW = 153; + BIO_F_BIO_CTRL = 103; + BIO_F_BIO_GETS = 104; + BIO_F_BIO_GET_HOST_IP = 106; + BIO_F_BIO_GET_NEW_INDEX = 102; + BIO_F_BIO_GET_PORT = 107; + BIO_F_BIO_LISTEN = 139; + BIO_F_BIO_LOOKUP = 135; + BIO_F_BIO_LOOKUP_EX = 143; + BIO_F_BIO_MAKE_PAIR = 121; + BIO_F_BIO_METH_NEW = 146; + BIO_F_BIO_NEW = 108; + BIO_F_BIO_NEW_DGRAM_SCTP = 145; + BIO_F_BIO_NEW_FILE = 109; + BIO_F_BIO_NEW_MEM_BUF = 126; + BIO_F_BIO_NREAD = 123; + BIO_F_BIO_NREAD0 = 124; + BIO_F_BIO_NWRITE = 125; + BIO_F_BIO_NWRITE0 = 122; + BIO_F_BIO_PARSE_HOSTSERV = 136; + BIO_F_BIO_PUTS = 110; + BIO_F_BIO_READ = 111; + BIO_F_BIO_READ_EX = 105; + BIO_F_BIO_READ_INTERN = 120; + BIO_F_BIO_SOCKET = 140; + BIO_F_BIO_SOCKET_NBIO = 142; + BIO_F_BIO_SOCK_INFO = 141; + BIO_F_BIO_SOCK_INIT = 112; + BIO_F_BIO_WRITE = 113; + BIO_F_BIO_WRITE_EX = 119; + BIO_F_BIO_WRITE_INTERN = 128; + BIO_F_BUFFER_CTRL = 114; + BIO_F_CONN_CTRL = 127; + BIO_F_CONN_STATE = 115; + BIO_F_DGRAM_SCTP_NEW = 149; + BIO_F_DGRAM_SCTP_READ = 132; + BIO_F_DGRAM_SCTP_WRITE = 133; + BIO_F_DOAPR_OUTCH = 150; + BIO_F_FILE_CTRL = 116; + BIO_F_FILE_READ = 130; + BIO_F_LINEBUFFER_CTRL = 129; + BIO_F_LINEBUFFER_NEW = 151; + BIO_F_MEM_WRITE = 117; + BIO_F_NBIOF_NEW = 154; + BIO_F_SLG_WRITE = 155; + BIO_F_SSL_NEW = 118; + + (* + * BIO reason codes. + *) + BIO_R_ACCEPT_ERROR = 100; + BIO_R_ADDRINFO_ADDR_IS_NOT_AF_INET = 141; + BIO_R_AMBIGUOUS_HOST_OR_SERVICE = 129; + BIO_R_BAD_FOPEN_MODE = 101; + BIO_R_BROKEN_PIPE = 124; + BIO_R_CONNECT_ERROR = 103; + BIO_R_GETHOSTBYNAME_ADDR_IS_NOT_AF_INET = 107; + BIO_R_GETSOCKNAME_ERROR = 132; + BIO_R_GETSOCKNAME_TRUNCATED_ADDRESS = 133; + BIO_R_GETTING_SOCKTYPE = 134; + BIO_R_INVALID_ARGUMENT = 125; + BIO_R_INVALID_SOCKET = 135; + BIO_R_IN_USE = 123; + BIO_R_LENGTH_TOO_LONG = 102; + BIO_R_LISTEN_V6_ONLY = 136; + BIO_R_LOOKUP_RETURNED_NOTHING = 142; + BIO_R_MALFORMED_HOST_OR_SERVICE = 130; + BIO_R_NBIO_CONNECT_ERROR = 110; + BIO_R_NO_ACCEPT_ADDR_OR_SERVICE_SPECIFIED = 143; + BIO_R_NO_HOSTNAME_OR_SERVICE_SPECIFIED = 144; + BIO_R_NO_PORT_DEFINED = 113; + BIO_R_NO_SUCH_FILE = 128; + BIO_R_NULL_PARAMETER = 115; + BIO_R_UNABLE_TO_BIND_SOCKET = 117; + BIO_R_UNABLE_TO_CREATE_SOCKET = 118; + BIO_R_UNABLE_TO_KEEPALIVE = 137; + BIO_R_UNABLE_TO_LISTEN_SOCKET = 119; + BIO_R_UNABLE_TO_NODELAY = 138; + BIO_R_UNABLE_TO_REUSEADDR = 139; + BIO_R_UNAVAILABLE_IP_FAMILY = 145; + BIO_R_UNINITIALIZED = 120; + BIO_R_UNKNOWN_INFO_TYPE = 140; + BIO_R_UNSUPPORTED_IP_FAMILY = 146; + BIO_R_UNSUPPORTED_METHOD = 121; + BIO_R_UNSUPPORTED_PROTOCOL_FAMILY = 131; + BIO_R_WRITE_TO_READ_ONLY_BIO = 126; + BIO_R_WSASTARTUP = 122; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_BIO_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_BIO_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_BIO_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_BIO_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_BIO_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_BIO_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_BIO_strings := LoadLibCryptoFunction('ERR_load_BIO_strings'); + if not assigned(ERR_load_BIO_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_BIO_strings'); + Result := ERR_load_BIO_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_BIO_strings := Load_ERR_load_BIO_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_blowfish.pas b/src/opensslHdrs/IdOpenSSLHeaders_blowfish.pas new file mode 100644 index 0000000..cf66e28 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_blowfish.pas @@ -0,0 +1,207 @@ +(* This unit was generated from the source file blowfish.h2pas +It should not be modified directly. All changes should be made to blowfish.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_blowfish; + + +interface + +// Headers for OpenSSL 1.1.1 +// blowfish.h + + +uses + IdSSLOpenSSLAPI; + +const + // Added '_CONST' to avoid name clashes + BF_ENCRYPT_CONST = 1; + // Added '_CONST' to avoid name clashes + BF_DECRYPT_CONST = 0; + + BF_ROUNDS = 16; + BF_BLOCK = 8; + +type + BF_LONG = TOpenSSL_C_UINT; + PBF_LONG = ^BF_LONG; + + bf_key_st = record + p: array[0 .. BF_ROUNDS + 2 - 1] of BF_LONG; + s: array[0 .. 4 * 256 - 1] of BF_LONG; + end; + BF_KEY = bf_key_st; + PBF_KEY = ^BF_KEY; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM BF_set_key} +{$EXTERNALSYM BF_encrypt} +{$EXTERNALSYM BF_decrypt} +{$EXTERNALSYM BF_ecb_encrypt} +{$EXTERNALSYM BF_cbc_encrypt} +{$EXTERNALSYM BF_cfb64_encrypt} +{$EXTERNALSYM BF_ofb64_encrypt} +{$EXTERNALSYM BF_options} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +procedure BF_set_key(key: PBF_KEY; len: TOpenSSL_C_INT; const data: PByte); cdecl; external CLibCrypto; +procedure BF_encrypt(data: PBF_LONG; const key: PBF_KEY); cdecl; external CLibCrypto; +procedure BF_decrypt(data: PBF_LONG; const key: PBF_KEY); cdecl; external CLibCrypto; +procedure BF_ecb_encrypt(const in_: PByte; out_: PByte; key: PBF_KEY; enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure BF_cbc_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; schedule: PBF_KEY; ivec: PByte; enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure BF_cfb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; schedule: PBF_KEY; ivec: PByte; num: POpenSSL_C_INT; enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure BF_ofb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; schedule: PBF_KEY; ivec: PByte; num: POpenSSL_C_INT); cdecl; external CLibCrypto; +function BF_options: PAnsiChar; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +procedure Load_BF_set_key(key: PBF_KEY; len: TOpenSSL_C_INT; const data: PByte); cdecl; +procedure Load_BF_encrypt(data: PBF_LONG; const key: PBF_KEY); cdecl; +procedure Load_BF_decrypt(data: PBF_LONG; const key: PBF_KEY); cdecl; +procedure Load_BF_ecb_encrypt(const in_: PByte; out_: PByte; key: PBF_KEY; enc: TOpenSSL_C_INT); cdecl; +procedure Load_BF_cbc_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; schedule: PBF_KEY; ivec: PByte; enc: TOpenSSL_C_INT); cdecl; +procedure Load_BF_cfb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; schedule: PBF_KEY; ivec: PByte; num: POpenSSL_C_INT; enc: TOpenSSL_C_INT); cdecl; +procedure Load_BF_ofb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; schedule: PBF_KEY; ivec: PByte; num: POpenSSL_C_INT); cdecl; +function Load_BF_options: PAnsiChar; cdecl; + +var + BF_set_key: procedure (key: PBF_KEY; len: TOpenSSL_C_INT; const data: PByte); cdecl = Load_BF_set_key; + BF_encrypt: procedure (data: PBF_LONG; const key: PBF_KEY); cdecl = Load_BF_encrypt; + BF_decrypt: procedure (data: PBF_LONG; const key: PBF_KEY); cdecl = Load_BF_decrypt; + BF_ecb_encrypt: procedure (const in_: PByte; out_: PByte; key: PBF_KEY; enc: TOpenSSL_C_INT); cdecl = Load_BF_ecb_encrypt; + BF_cbc_encrypt: procedure (const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; schedule: PBF_KEY; ivec: PByte; enc: TOpenSSL_C_INT); cdecl = Load_BF_cbc_encrypt; + BF_cfb64_encrypt: procedure (const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; schedule: PBF_KEY; ivec: PByte; num: POpenSSL_C_INT; enc: TOpenSSL_C_INT); cdecl = Load_BF_cfb64_encrypt; + BF_ofb64_encrypt: procedure (const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; schedule: PBF_KEY; ivec: PByte; num: POpenSSL_C_INT); cdecl = Load_BF_ofb64_encrypt; + BF_options: function : PAnsiChar; cdecl = Load_BF_options; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_BF_set_key(key: PBF_KEY; len: TOpenSSL_C_INT; const data: PByte); cdecl; +begin + BF_set_key := LoadLibCryptoFunction('BF_set_key'); + if not assigned(BF_set_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BF_set_key'); + BF_set_key(key,len,data); +end; + +procedure Load_BF_encrypt(data: PBF_LONG; const key: PBF_KEY); cdecl; +begin + BF_encrypt := LoadLibCryptoFunction('BF_encrypt'); + if not assigned(BF_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BF_encrypt'); + BF_encrypt(data,key); +end; + +procedure Load_BF_decrypt(data: PBF_LONG; const key: PBF_KEY); cdecl; +begin + BF_decrypt := LoadLibCryptoFunction('BF_decrypt'); + if not assigned(BF_decrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BF_decrypt'); + BF_decrypt(data,key); +end; + +procedure Load_BF_ecb_encrypt(const in_: PByte; out_: PByte; key: PBF_KEY; enc: TOpenSSL_C_INT); cdecl; +begin + BF_ecb_encrypt := LoadLibCryptoFunction('BF_ecb_encrypt'); + if not assigned(BF_ecb_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BF_ecb_encrypt'); + BF_ecb_encrypt(in_,out_,key,enc); +end; + +procedure Load_BF_cbc_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; schedule: PBF_KEY; ivec: PByte; enc: TOpenSSL_C_INT); cdecl; +begin + BF_cbc_encrypt := LoadLibCryptoFunction('BF_cbc_encrypt'); + if not assigned(BF_cbc_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BF_cbc_encrypt'); + BF_cbc_encrypt(in_,out_,length,schedule,ivec,enc); +end; + +procedure Load_BF_cfb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; schedule: PBF_KEY; ivec: PByte; num: POpenSSL_C_INT; enc: TOpenSSL_C_INT); cdecl; +begin + BF_cfb64_encrypt := LoadLibCryptoFunction('BF_cfb64_encrypt'); + if not assigned(BF_cfb64_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BF_cfb64_encrypt'); + BF_cfb64_encrypt(in_,out_,length,schedule,ivec,num,enc); +end; + +procedure Load_BF_ofb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; schedule: PBF_KEY; ivec: PByte; num: POpenSSL_C_INT); cdecl; +begin + BF_ofb64_encrypt := LoadLibCryptoFunction('BF_ofb64_encrypt'); + if not assigned(BF_ofb64_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BF_ofb64_encrypt'); + BF_ofb64_encrypt(in_,out_,length,schedule,ivec,num); +end; + +function Load_BF_options: PAnsiChar; cdecl; +begin + BF_options := LoadLibCryptoFunction('BF_options'); + if not assigned(BF_options) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BF_options'); + Result := BF_options(); +end; + + +procedure UnLoad; +begin + BF_set_key := Load_BF_set_key; + BF_encrypt := Load_BF_encrypt; + BF_decrypt := Load_BF_decrypt; + BF_ecb_encrypt := Load_BF_ecb_encrypt; + BF_cbc_encrypt := Load_BF_cbc_encrypt; + BF_cfb64_encrypt := Load_BF_cfb64_encrypt; + BF_ofb64_encrypt := Load_BF_ofb64_encrypt; + BF_options := Load_BF_options; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_bn.pas b/src/opensslHdrs/IdOpenSSLHeaders_bn.pas new file mode 100644 index 0000000..1948168 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_bn.pas @@ -0,0 +1,2236 @@ +(* This unit was generated from the source file bn.h2pas +It should not be modified directly. All changes should be made to bn.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_bn; + + +interface + +// Headers for OpenSSL 1.1.1 +// bn.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ; + +const + BN_FLG_MALLOCED = $01; + BN_FLG_STATIC_DATA = $02; + + (* + * avoid leaking exponent information through timing, + * BN_mod_exp_mont() will call BN_mod_exp_mont_consttime, + * BN_div() will call BN_div_no_branch, + * BN_mod_inverse() will call BN_mod_inverse_no_branch. + *) + BN_FLG_CONSTTIME = $04; + BN_FLG_SECURE = $08; + + (* Values for |top| in BN_rand() *) + BN_RAND_TOP_ANY = -1; + BN_RAND_TOP_ONE = 0; + BN_RAND_TOP_TWO = 1; + + (* Values for |bottom| in BN_rand() *) + BN_RAND_BOTTOM_ANY = 0; + BN_RAND_BOTTOM_ODD = 1; + + (* BN_BLINDING flags *) + BN_BLINDING_NO_UPDATE = $00000001; + BN_BLINDING_NO_RECREATE = $00000002; + +type + BN_ULONG = TOpenSSL_C_ULONG; + + BN_GENCB_set_old_cb = procedure (a: TOpenSSL_C_INT; b: TOpenSSL_C_INT; c: Pointer); cdecl; + BN_GENCB_set_cb = function (a: TOpenSSL_C_INT; b: TOpenSSL_C_INT; c: PBN_GENCB): TOpenSSL_C_INT; cdecl; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM BN_set_flags} +{$EXTERNALSYM BN_get_flags} +{$EXTERNALSYM BN_with_flags} +{$EXTERNALSYM BN_GENCB_call} +{$EXTERNALSYM BN_GENCB_new} +{$EXTERNALSYM BN_GENCB_free} +{$EXTERNALSYM BN_GENCB_set_old} +{$EXTERNALSYM BN_GENCB_set} +{$EXTERNALSYM BN_GENCB_get_arg} +{$EXTERNALSYM BN_abs_is_word} +{$EXTERNALSYM BN_is_zero} +{$EXTERNALSYM BN_is_one} +{$EXTERNALSYM BN_is_word} +{$EXTERNALSYM BN_is_odd} +{$EXTERNALSYM BN_zero_ex} +{$EXTERNALSYM BN_value_one} +{$EXTERNALSYM BN_options} +{$EXTERNALSYM BN_CTX_new} +{$EXTERNALSYM BN_CTX_secure_new} +{$EXTERNALSYM BN_CTX_free} +{$EXTERNALSYM BN_CTX_start} +{$EXTERNALSYM BN_CTX_get} +{$EXTERNALSYM BN_CTX_end} +{$EXTERNALSYM BN_rand} +{$EXTERNALSYM BN_priv_rand} +{$EXTERNALSYM BN_rand_range} +{$EXTERNALSYM BN_priv_rand_range} +{$EXTERNALSYM BN_pseudo_rand} +{$EXTERNALSYM BN_pseudo_rand_range} +{$EXTERNALSYM BN_num_bits} +{$EXTERNALSYM BN_num_bits_word} +{$EXTERNALSYM BN_security_bits} +{$EXTERNALSYM BN_new} +{$EXTERNALSYM BN_secure_new} +{$EXTERNALSYM BN_clear_free} +{$EXTERNALSYM BN_copy} +{$EXTERNALSYM BN_swap} +{$EXTERNALSYM BN_bin2bn} +{$EXTERNALSYM BN_bn2bin} +{$EXTERNALSYM BN_bn2binpad} +{$EXTERNALSYM BN_lebin2bn} +{$EXTERNALSYM BN_bn2lebinpad} +{$EXTERNALSYM BN_mpi2bn} +{$EXTERNALSYM BN_bn2mpi} +{$EXTERNALSYM BN_sub} +{$EXTERNALSYM BN_usub} +{$EXTERNALSYM BN_uadd} +{$EXTERNALSYM BN_add} +{$EXTERNALSYM BN_mul} +{$EXTERNALSYM BN_sqr} +{$EXTERNALSYM BN_set_negative} +{$EXTERNALSYM BN_is_negative} +{$EXTERNALSYM BN_div} +{$EXTERNALSYM BN_nnmod} +{$EXTERNALSYM BN_mod_add} +{$EXTERNALSYM BN_mod_add_quick} +{$EXTERNALSYM BN_mod_sub} +{$EXTERNALSYM BN_mod_sub_quick} +{$EXTERNALSYM BN_mod_mul} +{$EXTERNALSYM BN_mod_sqr} +{$EXTERNALSYM BN_mod_lshift1} +{$EXTERNALSYM BN_mod_lshift1_quick} +{$EXTERNALSYM BN_mod_lshift} +{$EXTERNALSYM BN_mod_lshift_quick} +{$EXTERNALSYM BN_mod_word} +{$EXTERNALSYM BN_div_word} +{$EXTERNALSYM BN_mul_word} +{$EXTERNALSYM BN_add_word} +{$EXTERNALSYM BN_sub_word} +{$EXTERNALSYM BN_set_word} +{$EXTERNALSYM BN_get_word} +{$EXTERNALSYM BN_cmp} +{$EXTERNALSYM BN_free} +{$EXTERNALSYM BN_is_bit_set} +{$EXTERNALSYM BN_lshift} +{$EXTERNALSYM BN_lshift1} +{$EXTERNALSYM BN_exp} +{$EXTERNALSYM BN_mod_exp} +{$EXTERNALSYM BN_mod_exp_mont} +{$EXTERNALSYM BN_mod_exp_mont_consttime} +{$EXTERNALSYM BN_mod_exp_mont_word} +{$EXTERNALSYM BN_mod_exp2_mont} +{$EXTERNALSYM BN_mod_exp_simple} +{$EXTERNALSYM BN_mask_bits} +{$EXTERNALSYM BN_print} +{$EXTERNALSYM BN_reciprocal} +{$EXTERNALSYM BN_rshift} +{$EXTERNALSYM BN_rshift1} +{$EXTERNALSYM BN_clear} +{$EXTERNALSYM BN_dup} +{$EXTERNALSYM BN_ucmp} +{$EXTERNALSYM BN_set_bit} +{$EXTERNALSYM BN_clear_bit} +{$EXTERNALSYM BN_bn2hex} +{$EXTERNALSYM BN_bn2dec} +{$EXTERNALSYM BN_hex2bn} +{$EXTERNALSYM BN_dec2bn} +{$EXTERNALSYM BN_asc2bn} +{$EXTERNALSYM BN_gcd} +{$EXTERNALSYM BN_kronecker} +{$EXTERNALSYM BN_mod_inverse} +{$EXTERNALSYM BN_mod_sqrt} +{$EXTERNALSYM BN_consttime_swap} +{$EXTERNALSYM BN_generate_prime_ex} +{$EXTERNALSYM BN_is_prime_ex} +{$EXTERNALSYM BN_is_prime_fasttest_ex} +{$EXTERNALSYM BN_X931_generate_Xpq} +{$EXTERNALSYM BN_X931_derive_prime_ex} +{$EXTERNALSYM BN_X931_generate_prime_ex} +{$EXTERNALSYM BN_MONT_CTX_new} +{$EXTERNALSYM BN_mod_mul_montgomery} +{$EXTERNALSYM BN_to_montgomery} +{$EXTERNALSYM BN_from_montgomery} +{$EXTERNALSYM BN_MONT_CTX_free} +{$EXTERNALSYM BN_MONT_CTX_set} +{$EXTERNALSYM BN_MONT_CTX_copy} +{$EXTERNALSYM BN_BLINDING_new} +{$EXTERNALSYM BN_BLINDING_free} +{$EXTERNALSYM BN_BLINDING_update} +{$EXTERNALSYM BN_BLINDING_convert} +{$EXTERNALSYM BN_BLINDING_invert} +{$EXTERNALSYM BN_BLINDING_convert_ex} +{$EXTERNALSYM BN_BLINDING_invert_ex} +{$EXTERNALSYM BN_BLINDING_is_current_thread} +{$EXTERNALSYM BN_BLINDING_set_current_thread} +{$EXTERNALSYM BN_BLINDING_lock} +{$EXTERNALSYM BN_BLINDING_unlock} +{$EXTERNALSYM BN_BLINDING_get_flags} +{$EXTERNALSYM BN_BLINDING_set_flags} +{$EXTERNALSYM BN_RECP_CTX_free} +{$EXTERNALSYM BN_RECP_CTX_set} +{$EXTERNALSYM BN_mod_mul_reciprocal} +{$EXTERNALSYM BN_mod_exp_recp} +{$EXTERNALSYM BN_div_recp} +{$EXTERNALSYM BN_GF2m_add} +{$EXTERNALSYM BN_GF2m_mod} +{$EXTERNALSYM BN_GF2m_mod_mul} +{$EXTERNALSYM BN_GF2m_mod_sqr} +{$EXTERNALSYM BN_GF2m_mod_inv} +{$EXTERNALSYM BN_GF2m_mod_div} +{$EXTERNALSYM BN_GF2m_mod_exp} +{$EXTERNALSYM BN_GF2m_mod_sqrt} +{$EXTERNALSYM BN_GF2m_mod_solve_quad} +{$EXTERNALSYM BN_nist_mod_192} +{$EXTERNALSYM BN_nist_mod_224} +{$EXTERNALSYM BN_nist_mod_256} +{$EXTERNALSYM BN_nist_mod_384} +{$EXTERNALSYM BN_nist_mod_521} +{$EXTERNALSYM BN_get0_nist_prime_192} +{$EXTERNALSYM BN_get0_nist_prime_224} +{$EXTERNALSYM BN_get0_nist_prime_256} +{$EXTERNALSYM BN_get0_nist_prime_384} +{$EXTERNALSYM BN_get0_nist_prime_521} +{$EXTERNALSYM BN_generate_dsa_nonce} +{$EXTERNALSYM BN_get_rfc2409_prime_768} +{$EXTERNALSYM BN_get_rfc2409_prime_1024} +{$EXTERNALSYM BN_get_rfc3526_prime_1536} +{$EXTERNALSYM BN_get_rfc3526_prime_2048} +{$EXTERNALSYM BN_get_rfc3526_prime_3072} +{$EXTERNALSYM BN_get_rfc3526_prime_4096} +{$EXTERNALSYM BN_get_rfc3526_prime_6144} +{$EXTERNALSYM BN_get_rfc3526_prime_8192} +{$EXTERNALSYM BN_bntest_rand} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +procedure BN_set_flags(b: PBIGNUM; n: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function BN_get_flags(b: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure BN_with_flags(dest: PBIGNUM; b: PBIGNUM; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function BN_GENCB_call(cb: PBN_GENCB; a: TOpenSSL_C_INT; b: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_GENCB_new: PBN_GENCB; cdecl; external CLibCrypto; +procedure BN_GENCB_free(cb: PBN_GENCB); cdecl; external CLibCrypto; +procedure BN_GENCB_set_old(gencb: PBN_GENCB; callback: BN_GENCB_set_old_cb; cb_arg: Pointer); cdecl; external CLibCrypto; +procedure BN_GENCB_set(gencb: PBN_GENCB; callback: BN_GENCB_set_cb; cb_arg: Pointer); cdecl; external CLibCrypto; +function BN_GENCB_get_arg(cb: PBN_GENCB): Pointer; cdecl; external CLibCrypto; +function BN_abs_is_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_is_zero(a: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_is_one(a: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_is_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_is_odd(a: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure BN_zero_ex(a: PBIGNUM); cdecl; external CLibCrypto; +function BN_value_one: PBIGNUM; cdecl; external CLibCrypto; +function BN_options: PAnsiChar; cdecl; external CLibCrypto; +function BN_CTX_new: PBN_CTX; cdecl; external CLibCrypto; +function BN_CTX_secure_new: PBN_CTX; cdecl; external CLibCrypto; +procedure BN_CTX_free(c: PBN_CTX); cdecl; external CLibCrypto; +procedure BN_CTX_start(ctx: PBN_CTX); cdecl; external CLibCrypto; +function BN_CTX_get(ctx: PBN_CTX): PBIGNUM; cdecl; external CLibCrypto; +procedure BN_CTX_end(ctx: PBN_CTX); cdecl; external CLibCrypto; +function BN_rand(rnd: PBIGNUM; bits: TOpenSSL_C_INT; top: TOpenSSL_C_INT; bottom: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_priv_rand(rnd: PBIGNUM; bits: TOpenSSL_C_INT; top: TOpenSSL_C_INT; bottom: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_rand_range(rnd: PBIGNUM; range: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_priv_rand_range(rnd: PBIGNUM; range: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_pseudo_rand(rnd: PBIGNUM; bits: TOpenSSL_C_INT; top: TOpenSSL_C_INT; bottom: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_pseudo_rand_range(rnd: PBIGNUM; range: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_num_bits(a: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_num_bits_word(l: BN_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_security_bits(L: TOpenSSL_C_INT; N: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_new: PBIGNUM; cdecl; external CLibCrypto; +function BN_secure_new: PBIGNUM; cdecl; external CLibCrypto; +procedure BN_clear_free(a: PBIGNUM); cdecl; external CLibCrypto; +function BN_copy(a: PBIGNUM; b: PBIGNUM): PBIGNUM; cdecl; external CLibCrypto; +procedure BN_swap(a: PBIGNUM; b: PBIGNUM); cdecl; external CLibCrypto; +function BN_bin2bn(const s: PByte; len: TOpenSSL_C_INT; ret: PBIGNUM): PBIGNUM; cdecl; external CLibCrypto; +function BN_bn2bin(const a: PBIGNUM; to_: PByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_bn2binpad(const a: PBIGNUM; to_: PByte; tolen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_lebin2bn(const s: PByte; len: TOpenSSL_C_INT; ret: PBIGNUM): PBIGNUM; cdecl; external CLibCrypto; +function BN_bn2lebinpad(a: PBIGNUM; to_: PByte; tolen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mpi2bn(const s: PByte; len: TOpenSSL_C_INT; ret: PBIGNUM): PBIGNUM; cdecl; external CLibCrypto; +function BN_bn2mpi(a: PBIGNUM; to_: PByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_sub(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_usub(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_uadd(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_add(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mul(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_sqr(r: PBIGNUM; const a: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure BN_set_negative(b: PBIGNUM; n: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function BN_is_negative(b: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_div(dv: PBIGNUM; rem: PBIGNUM; const m: PBIGNUM; const d: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_nnmod(r: PBIGNUM; const m: PBIGNUM; const d: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_add(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_add_quick(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_sub(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_sub_quick(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_mul(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_sqr(r: PBIGNUM; const a: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_lshift1(r: PBIGNUM; const a: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_lshift1_quick(r: PBIGNUM; const a: PBIGNUM; const m: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_lshift(r: PBIGNUM; const a: PBIGNUM; n: TOpenSSL_C_INT; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_lshift_quick(r: PBIGNUM; const a: PBIGNUM; n: TOpenSSL_C_INT; const m: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_word(const a: PBIGNUM; w: BN_ULONG): BN_ULONG; cdecl; external CLibCrypto; +function BN_div_word(a: PBIGNUM; w: BN_ULONG): BN_ULONG; cdecl; external CLibCrypto; +function BN_mul_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_add_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_sub_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_set_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_get_word(const a: PBIGNUM): BN_ULONG; cdecl; external CLibCrypto; +function BN_cmp(const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure BN_free(a: PBIGNUM); cdecl; external CLibCrypto; +function BN_is_bit_set(const a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_lshift(r: PBIGNUM; const a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_lshift1(r: PBIGNUM; const a: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_exp(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_exp(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_exp_mont(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX; m_ctx: PBN_MONT_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_exp_mont_consttime(rr: PBIGNUM; a: PBIGNUM; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX; in_mont: PBN_MONT_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_exp_mont_word(r: PBIGNUM; a: BN_ULONG; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX; m_ctx: PBN_MONT_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_exp2_mont(r: PBIGNUM; const a1: PBIGNUM; const p1: PBIGNUM; const a2: PBIGNUM; const p2: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX; m_ctx: PBN_MONT_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_exp_simple(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mask_bits(a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_print(bio: PBIO; a: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_reciprocal(r: PBIGNUM; m: PBIGNUM; len: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_rshift(r: PBIGNUM; a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_rshift1(r: PBIGNUM; a: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure BN_clear(a: PBIGNUM); cdecl; external CLibCrypto; +function BN_dup(const a: PBIGNUM): PBIGNUM; cdecl; external CLibCrypto; +function BN_ucmp(a: PBIGNUM; b: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_set_bit(a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_clear_bit(a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_bn2hex(a: PBIGNUM): PAnsiChar; cdecl; external CLibCrypto; +function BN_bn2dec(a: PBIGNUM): PAnsiChar; cdecl; external CLibCrypto; +function BN_hex2bn(a: PPBIGNUM; str: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_dec2bn(a: PPBIGNUM; str: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_asc2bn(a: PPBIGNUM; str: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_gcd(r: PBIGNUM; a: PBIGNUM; b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_kronecker(a: PBIGNUM; b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_inverse(ret: PBIGNUM; a: PBIGNUM; const n: PBIGNUM; ctx: PBN_CTX): PBIGNUM; cdecl; external CLibCrypto; +function BN_mod_sqrt(ret: PBIGNUM; a: PBIGNUM; const n: PBIGNUM; ctx: PBN_CTX): PBIGNUM; cdecl; external CLibCrypto; +procedure BN_consttime_swap(swap: BN_ULONG; a: PBIGNUM; b: PBIGNUM; nwords: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function BN_generate_prime_ex(ret: PBIGNUM; bits: TOpenSSL_C_INT; safe: TOpenSSL_C_INT; const add: PBIGNUM; const rem: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_is_prime_ex(const p: PBIGNUM; nchecks: TOpenSSL_C_INT; ctx: PBN_CTX; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_is_prime_fasttest_ex(const p: PBIGNUM; nchecks: TOpenSSL_C_INT; ctx: PBN_CTX; do_trial_division: TOpenSSL_C_INT; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_X931_generate_Xpq(Xp: PBIGNUM; Xq: PBIGNUM; nbits: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_X931_derive_prime_ex(p: PBIGNUM; p1: PBIGNUM; p2: PBIGNUM; const Xp: PBIGNUM; const Xp1: PBIGNUM; const Xp2: PBIGNUM; const e: PBIGNUM; ctx: PBN_CTX; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_X931_generate_prime_ex(p: PBIGNUM; p1: PBIGNUM; p2: PBIGNUM; Xp1: PBIGNUM; Xp2: PBIGNUM; Xp: PBIGNUM; const e: PBIGNUM; ctx: PBN_CTX; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_MONT_CTX_new: PBN_MONT_CTX; cdecl; external CLibCrypto; +function BN_mod_mul_montgomery(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; mont: PBN_MONT_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_to_montgomery(r: PBIGNUM; a: PBIGNUM; mont: PBN_MONT_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_from_montgomery(r: PBIGNUM; a: PBIGNUM; mont: PBN_MONT_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure BN_MONT_CTX_free(mont: PBN_MONT_CTX); cdecl; external CLibCrypto; +function BN_MONT_CTX_set(mont: PBN_MONT_CTX; mod_: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_MONT_CTX_copy(to_: PBN_MONT_CTX; from: PBN_MONT_CTX): PBN_MONT_CTX; cdecl; external CLibCrypto; +function BN_BLINDING_new(const A: PBIGNUM; const Ai: PBIGNUM; mod_: PBIGNUM): PBN_BLINDING; cdecl; external CLibCrypto; +procedure BN_BLINDING_free(b: PBN_BLINDING); cdecl; external CLibCrypto; +function BN_BLINDING_update(b: PBN_BLINDING; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_BLINDING_convert(n: PBIGNUM; b: PBN_BLINDING; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_BLINDING_invert(n: PBIGNUM; b: PBN_BLINDING; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_BLINDING_convert_ex(n: PBIGNUM; r: PBIGNUM; b: PBN_BLINDING; v4: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_BLINDING_invert_ex(n: PBIGNUM; r: PBIGNUM; b: PBN_BLINDING; v2: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_BLINDING_is_current_thread(b: PBN_BLINDING): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure BN_BLINDING_set_current_thread(b: PBN_BLINDING); cdecl; external CLibCrypto; +function BN_BLINDING_lock(b: PBN_BLINDING): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_BLINDING_unlock(b: PBN_BLINDING): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_BLINDING_get_flags(v1: PBN_BLINDING): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +procedure BN_BLINDING_set_flags(v1: PBN_BLINDING; v2: TOpenSSL_C_ULONG); cdecl; external CLibCrypto; +procedure BN_RECP_CTX_free(recp: PBN_RECP_CTX); cdecl; external CLibCrypto; +function BN_RECP_CTX_set(recp: PBN_RECP_CTX; rdiv: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_mul_reciprocal(r: PBIGNUM; x: PBIGNUM; y: PBIGNUM; recp: PBN_RECP_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_mod_exp_recp(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_div_recp(dv: PBIGNUM; rem: PBIGNUM; m: PBIGNUM; recp: PBN_RECP_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_GF2m_add(r: PBIGNUM; a: PBIGNUM; b: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_GF2m_mod(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_GF2m_mod_mul(r: PBIGNUM; a: PBIGNUM; b: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_GF2m_mod_sqr(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_GF2m_mod_inv(r: PBIGNUM; b: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_GF2m_mod_div(r: PBIGNUM; a: PBIGNUM; b: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_GF2m_mod_exp(r: PBIGNUM; a: PBIGNUM; b: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_GF2m_mod_sqrt(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_GF2m_mod_solve_quad(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_nist_mod_192(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_nist_mod_224(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_nist_mod_256(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_nist_mod_384(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_nist_mod_521(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_get0_nist_prime_192: PBIGNUM; cdecl; external CLibCrypto; +function BN_get0_nist_prime_224: PBIGNUM; cdecl; external CLibCrypto; +function BN_get0_nist_prime_256: PBIGNUM; cdecl; external CLibCrypto; +function BN_get0_nist_prime_384: PBIGNUM; cdecl; external CLibCrypto; +function BN_get0_nist_prime_521: PBIGNUM; cdecl; external CLibCrypto; +function BN_generate_dsa_nonce(out_: PBIGNUM; range: PBIGNUM; priv: PBIGNUM; const message_: PByte; message_len: TOpenSSL_C_SIZET; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BN_get_rfc2409_prime_768(bn: PBIGNUM ): PBIGNUM; cdecl; external CLibCrypto; +function BN_get_rfc2409_prime_1024(bn: PBIGNUM): PBIGNUM; cdecl; external CLibCrypto; +function BN_get_rfc3526_prime_1536(bn: PBIGNUM): PBIGNUM; cdecl; external CLibCrypto; +function BN_get_rfc3526_prime_2048(bn: PBIGNUM): PBIGNUM; cdecl; external CLibCrypto; +function BN_get_rfc3526_prime_3072(bn: PBIGNUM): PBIGNUM; cdecl; external CLibCrypto; +function BN_get_rfc3526_prime_4096(bn: PBIGNUM): PBIGNUM; cdecl; external CLibCrypto; +function BN_get_rfc3526_prime_6144(bn: PBIGNUM): PBIGNUM; cdecl; external CLibCrypto; +function BN_get_rfc3526_prime_8192(bn: PBIGNUM): PBIGNUM; cdecl; external CLibCrypto; +function BN_bntest_rand(rnd: PBIGNUM; bits: TOpenSSL_C_INT; top: TOpenSSL_C_INT; bottom: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +procedure Load_BN_set_flags(b: PBIGNUM; n: TOpenSSL_C_INT); cdecl; +function Load_BN_get_flags(b: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_BN_with_flags(dest: PBIGNUM; b: PBIGNUM; flags: TOpenSSL_C_INT); cdecl; +function Load_BN_GENCB_call(cb: PBN_GENCB; a: TOpenSSL_C_INT; b: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BN_GENCB_new: PBN_GENCB; cdecl; +procedure Load_BN_GENCB_free(cb: PBN_GENCB); cdecl; +procedure Load_BN_GENCB_set_old(gencb: PBN_GENCB; callback: BN_GENCB_set_old_cb; cb_arg: Pointer); cdecl; +procedure Load_BN_GENCB_set(gencb: PBN_GENCB; callback: BN_GENCB_set_cb; cb_arg: Pointer); cdecl; +function Load_BN_GENCB_get_arg(cb: PBN_GENCB): Pointer; cdecl; +function Load_BN_abs_is_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; +function Load_BN_is_zero(a: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_is_one(a: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_is_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; +function Load_BN_is_odd(a: PBIGNUM): TOpenSSL_C_INT; cdecl; +procedure Load_BN_zero_ex(a: PBIGNUM); cdecl; +function Load_BN_value_one: PBIGNUM; cdecl; +function Load_BN_options: PAnsiChar; cdecl; +function Load_BN_CTX_new: PBN_CTX; cdecl; +function Load_BN_CTX_secure_new: PBN_CTX; cdecl; +procedure Load_BN_CTX_free(c: PBN_CTX); cdecl; +procedure Load_BN_CTX_start(ctx: PBN_CTX); cdecl; +function Load_BN_CTX_get(ctx: PBN_CTX): PBIGNUM; cdecl; +procedure Load_BN_CTX_end(ctx: PBN_CTX); cdecl; +function Load_BN_rand(rnd: PBIGNUM; bits: TOpenSSL_C_INT; top: TOpenSSL_C_INT; bottom: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BN_priv_rand(rnd: PBIGNUM; bits: TOpenSSL_C_INT; top: TOpenSSL_C_INT; bottom: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BN_rand_range(rnd: PBIGNUM; range: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_priv_rand_range(rnd: PBIGNUM; range: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_pseudo_rand(rnd: PBIGNUM; bits: TOpenSSL_C_INT; top: TOpenSSL_C_INT; bottom: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BN_pseudo_rand_range(rnd: PBIGNUM; range: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_num_bits(a: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_num_bits_word(l: BN_ULONG): TOpenSSL_C_INT; cdecl; +function Load_BN_security_bits(L: TOpenSSL_C_INT; N: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BN_new: PBIGNUM; cdecl; +function Load_BN_secure_new: PBIGNUM; cdecl; +procedure Load_BN_clear_free(a: PBIGNUM); cdecl; +function Load_BN_copy(a: PBIGNUM; b: PBIGNUM): PBIGNUM; cdecl; +procedure Load_BN_swap(a: PBIGNUM; b: PBIGNUM); cdecl; +function Load_BN_bin2bn(const s: PByte; len: TOpenSSL_C_INT; ret: PBIGNUM): PBIGNUM; cdecl; +function Load_BN_bn2bin(const a: PBIGNUM; to_: PByte): TOpenSSL_C_INT; cdecl; +function Load_BN_bn2binpad(const a: PBIGNUM; to_: PByte; tolen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BN_lebin2bn(const s: PByte; len: TOpenSSL_C_INT; ret: PBIGNUM): PBIGNUM; cdecl; +function Load_BN_bn2lebinpad(a: PBIGNUM; to_: PByte; tolen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BN_mpi2bn(const s: PByte; len: TOpenSSL_C_INT; ret: PBIGNUM): PBIGNUM; cdecl; +function Load_BN_bn2mpi(a: PBIGNUM; to_: PByte): TOpenSSL_C_INT; cdecl; +function Load_BN_sub(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_usub(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_uadd(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_add(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_mul(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_sqr(r: PBIGNUM; const a: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +procedure Load_BN_set_negative(b: PBIGNUM; n: TOpenSSL_C_INT); cdecl; +function Load_BN_is_negative(b: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_div(dv: PBIGNUM; rem: PBIGNUM; const m: PBIGNUM; const d: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_nnmod(r: PBIGNUM; const m: PBIGNUM; const d: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_add(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_add_quick(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_sub(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_sub_quick(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_mul(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_sqr(r: PBIGNUM; const a: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_lshift1(r: PBIGNUM; const a: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_lshift1_quick(r: PBIGNUM; const a: PBIGNUM; const m: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_lshift(r: PBIGNUM; const a: PBIGNUM; n: TOpenSSL_C_INT; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_lshift_quick(r: PBIGNUM; const a: PBIGNUM; n: TOpenSSL_C_INT; const m: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_word(const a: PBIGNUM; w: BN_ULONG): BN_ULONG; cdecl; +function Load_BN_div_word(a: PBIGNUM; w: BN_ULONG): BN_ULONG; cdecl; +function Load_BN_mul_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; +function Load_BN_add_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; +function Load_BN_sub_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; +function Load_BN_set_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; +function Load_BN_get_word(const a: PBIGNUM): BN_ULONG; cdecl; +function Load_BN_cmp(const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl; +procedure Load_BN_free(a: PBIGNUM); cdecl; +function Load_BN_is_bit_set(const a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BN_lshift(r: PBIGNUM; const a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BN_lshift1(r: PBIGNUM; const a: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_exp(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_exp(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_exp_mont(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX; m_ctx: PBN_MONT_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_exp_mont_consttime(rr: PBIGNUM; a: PBIGNUM; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX; in_mont: PBN_MONT_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_exp_mont_word(r: PBIGNUM; a: BN_ULONG; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX; m_ctx: PBN_MONT_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_exp2_mont(r: PBIGNUM; const a1: PBIGNUM; const p1: PBIGNUM; const a2: PBIGNUM; const p2: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX; m_ctx: PBN_MONT_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_exp_simple(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mask_bits(a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BN_print(bio: PBIO; a: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_reciprocal(r: PBIGNUM; m: PBIGNUM; len: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_rshift(r: PBIGNUM; a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BN_rshift1(r: PBIGNUM; a: PBIGNUM): TOpenSSL_C_INT; cdecl; +procedure Load_BN_clear(a: PBIGNUM); cdecl; +function Load_BN_dup(const a: PBIGNUM): PBIGNUM; cdecl; +function Load_BN_ucmp(a: PBIGNUM; b: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_set_bit(a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BN_clear_bit(a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_BN_bn2hex(a: PBIGNUM): PAnsiChar; cdecl; +function Load_BN_bn2dec(a: PBIGNUM): PAnsiChar; cdecl; +function Load_BN_hex2bn(a: PPBIGNUM; str: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_BN_dec2bn(a: PPBIGNUM; str: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_BN_asc2bn(a: PPBIGNUM; str: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_BN_gcd(r: PBIGNUM; a: PBIGNUM; b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_kronecker(a: PBIGNUM; b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_inverse(ret: PBIGNUM; a: PBIGNUM; const n: PBIGNUM; ctx: PBN_CTX): PBIGNUM; cdecl; +function Load_BN_mod_sqrt(ret: PBIGNUM; a: PBIGNUM; const n: PBIGNUM; ctx: PBN_CTX): PBIGNUM; cdecl; +procedure Load_BN_consttime_swap(swap: BN_ULONG; a: PBIGNUM; b: PBIGNUM; nwords: TOpenSSL_C_INT); cdecl; +function Load_BN_generate_prime_ex(ret: PBIGNUM; bits: TOpenSSL_C_INT; safe: TOpenSSL_C_INT; const add: PBIGNUM; const rem: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +function Load_BN_is_prime_ex(const p: PBIGNUM; nchecks: TOpenSSL_C_INT; ctx: PBN_CTX; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +function Load_BN_is_prime_fasttest_ex(const p: PBIGNUM; nchecks: TOpenSSL_C_INT; ctx: PBN_CTX; do_trial_division: TOpenSSL_C_INT; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +function Load_BN_X931_generate_Xpq(Xp: PBIGNUM; Xq: PBIGNUM; nbits: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_X931_derive_prime_ex(p: PBIGNUM; p1: PBIGNUM; p2: PBIGNUM; const Xp: PBIGNUM; const Xp1: PBIGNUM; const Xp2: PBIGNUM; const e: PBIGNUM; ctx: PBN_CTX; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +function Load_BN_X931_generate_prime_ex(p: PBIGNUM; p1: PBIGNUM; p2: PBIGNUM; Xp1: PBIGNUM; Xp2: PBIGNUM; Xp: PBIGNUM; const e: PBIGNUM; ctx: PBN_CTX; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +function Load_BN_MONT_CTX_new: PBN_MONT_CTX; cdecl; +function Load_BN_mod_mul_montgomery(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; mont: PBN_MONT_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_to_montgomery(r: PBIGNUM; a: PBIGNUM; mont: PBN_MONT_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_from_montgomery(r: PBIGNUM; a: PBIGNUM; mont: PBN_MONT_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +procedure Load_BN_MONT_CTX_free(mont: PBN_MONT_CTX); cdecl; +function Load_BN_MONT_CTX_set(mont: PBN_MONT_CTX; mod_: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_MONT_CTX_copy(to_: PBN_MONT_CTX; from: PBN_MONT_CTX): PBN_MONT_CTX; cdecl; +function Load_BN_BLINDING_new(const A: PBIGNUM; const Ai: PBIGNUM; mod_: PBIGNUM): PBN_BLINDING; cdecl; +procedure Load_BN_BLINDING_free(b: PBN_BLINDING); cdecl; +function Load_BN_BLINDING_update(b: PBN_BLINDING; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_BLINDING_convert(n: PBIGNUM; b: PBN_BLINDING; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_BLINDING_invert(n: PBIGNUM; b: PBN_BLINDING; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_BLINDING_convert_ex(n: PBIGNUM; r: PBIGNUM; b: PBN_BLINDING; v4: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_BLINDING_invert_ex(n: PBIGNUM; r: PBIGNUM; b: PBN_BLINDING; v2: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_BLINDING_is_current_thread(b: PBN_BLINDING): TOpenSSL_C_INT; cdecl; +procedure Load_BN_BLINDING_set_current_thread(b: PBN_BLINDING); cdecl; +function Load_BN_BLINDING_lock(b: PBN_BLINDING): TOpenSSL_C_INT; cdecl; +function Load_BN_BLINDING_unlock(b: PBN_BLINDING): TOpenSSL_C_INT; cdecl; +function Load_BN_BLINDING_get_flags(v1: PBN_BLINDING): TOpenSSL_C_ULONG; cdecl; +procedure Load_BN_BLINDING_set_flags(v1: PBN_BLINDING; v2: TOpenSSL_C_ULONG); cdecl; +procedure Load_BN_RECP_CTX_free(recp: PBN_RECP_CTX); cdecl; +function Load_BN_RECP_CTX_set(recp: PBN_RECP_CTX; rdiv: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_mul_reciprocal(r: PBIGNUM; x: PBIGNUM; y: PBIGNUM; recp: PBN_RECP_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_mod_exp_recp(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_div_recp(dv: PBIGNUM; rem: PBIGNUM; m: PBIGNUM; recp: PBN_RECP_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_GF2m_add(r: PBIGNUM; a: PBIGNUM; b: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_GF2m_mod(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_BN_GF2m_mod_mul(r: PBIGNUM; a: PBIGNUM; b: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_GF2m_mod_sqr(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_GF2m_mod_inv(r: PBIGNUM; b: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_GF2m_mod_div(r: PBIGNUM; a: PBIGNUM; b: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_GF2m_mod_exp(r: PBIGNUM; a: PBIGNUM; b: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_GF2m_mod_sqrt(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_GF2m_mod_solve_quad(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_nist_mod_192(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_nist_mod_224(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_nist_mod_256(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_nist_mod_384(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_nist_mod_521(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_get0_nist_prime_192: PBIGNUM; cdecl; +function Load_BN_get0_nist_prime_224: PBIGNUM; cdecl; +function Load_BN_get0_nist_prime_256: PBIGNUM; cdecl; +function Load_BN_get0_nist_prime_384: PBIGNUM; cdecl; +function Load_BN_get0_nist_prime_521: PBIGNUM; cdecl; +function Load_BN_generate_dsa_nonce(out_: PBIGNUM; range: PBIGNUM; priv: PBIGNUM; const message_: PByte; message_len: TOpenSSL_C_SIZET; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_BN_get_rfc2409_prime_768(bn: PBIGNUM ): PBIGNUM; cdecl; +function Load_BN_get_rfc2409_prime_1024(bn: PBIGNUM): PBIGNUM; cdecl; +function Load_BN_get_rfc3526_prime_1536(bn: PBIGNUM): PBIGNUM; cdecl; +function Load_BN_get_rfc3526_prime_2048(bn: PBIGNUM): PBIGNUM; cdecl; +function Load_BN_get_rfc3526_prime_3072(bn: PBIGNUM): PBIGNUM; cdecl; +function Load_BN_get_rfc3526_prime_4096(bn: PBIGNUM): PBIGNUM; cdecl; +function Load_BN_get_rfc3526_prime_6144(bn: PBIGNUM): PBIGNUM; cdecl; +function Load_BN_get_rfc3526_prime_8192(bn: PBIGNUM): PBIGNUM; cdecl; +function Load_BN_bntest_rand(rnd: PBIGNUM; bits: TOpenSSL_C_INT; top: TOpenSSL_C_INT; bottom: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + +var + BN_set_flags: procedure (b: PBIGNUM; n: TOpenSSL_C_INT); cdecl = Load_BN_set_flags; + BN_get_flags: function (b: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BN_get_flags; + BN_with_flags: procedure (dest: PBIGNUM; b: PBIGNUM; flags: TOpenSSL_C_INT); cdecl = Load_BN_with_flags; + BN_GENCB_call: function (cb: PBN_GENCB; a: TOpenSSL_C_INT; b: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BN_GENCB_call; + BN_GENCB_new: function : PBN_GENCB; cdecl = Load_BN_GENCB_new; + BN_GENCB_free: procedure (cb: PBN_GENCB); cdecl = Load_BN_GENCB_free; + BN_GENCB_set_old: procedure (gencb: PBN_GENCB; callback: BN_GENCB_set_old_cb; cb_arg: Pointer); cdecl = Load_BN_GENCB_set_old; + BN_GENCB_set: procedure (gencb: PBN_GENCB; callback: BN_GENCB_set_cb; cb_arg: Pointer); cdecl = Load_BN_GENCB_set; + BN_GENCB_get_arg: function (cb: PBN_GENCB): Pointer; cdecl = Load_BN_GENCB_get_arg; + BN_abs_is_word: function (a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl = Load_BN_abs_is_word; + BN_is_zero: function (a: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_is_zero; + BN_is_one: function (a: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_is_one; + BN_is_word: function (a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl = Load_BN_is_word; + BN_is_odd: function (a: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_is_odd; + BN_zero_ex: procedure (a: PBIGNUM); cdecl = Load_BN_zero_ex; + BN_value_one: function : PBIGNUM; cdecl = Load_BN_value_one; + BN_options: function : PAnsiChar; cdecl = Load_BN_options; + BN_CTX_new: function : PBN_CTX; cdecl = Load_BN_CTX_new; + BN_CTX_secure_new: function : PBN_CTX; cdecl = Load_BN_CTX_secure_new; + BN_CTX_free: procedure (c: PBN_CTX); cdecl = Load_BN_CTX_free; + BN_CTX_start: procedure (ctx: PBN_CTX); cdecl = Load_BN_CTX_start; + BN_CTX_get: function (ctx: PBN_CTX): PBIGNUM; cdecl = Load_BN_CTX_get; + BN_CTX_end: procedure (ctx: PBN_CTX); cdecl = Load_BN_CTX_end; + BN_rand: function (rnd: PBIGNUM; bits: TOpenSSL_C_INT; top: TOpenSSL_C_INT; bottom: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BN_rand; + BN_priv_rand: function (rnd: PBIGNUM; bits: TOpenSSL_C_INT; top: TOpenSSL_C_INT; bottom: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BN_priv_rand; + BN_rand_range: function (rnd: PBIGNUM; range: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_rand_range; + BN_priv_rand_range: function (rnd: PBIGNUM; range: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_priv_rand_range; + BN_pseudo_rand: function (rnd: PBIGNUM; bits: TOpenSSL_C_INT; top: TOpenSSL_C_INT; bottom: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BN_pseudo_rand; + BN_pseudo_rand_range: function (rnd: PBIGNUM; range: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_pseudo_rand_range; + BN_num_bits: function (a: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_num_bits; + BN_num_bits_word: function (l: BN_ULONG): TOpenSSL_C_INT; cdecl = Load_BN_num_bits_word; + BN_security_bits: function (L: TOpenSSL_C_INT; N: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BN_security_bits; + BN_new: function : PBIGNUM; cdecl = Load_BN_new; + BN_secure_new: function : PBIGNUM; cdecl = Load_BN_secure_new; + BN_clear_free: procedure (a: PBIGNUM); cdecl = Load_BN_clear_free; + BN_copy: function (a: PBIGNUM; b: PBIGNUM): PBIGNUM; cdecl = Load_BN_copy; + BN_swap: procedure (a: PBIGNUM; b: PBIGNUM); cdecl = Load_BN_swap; + BN_bin2bn: function (const s: PByte; len: TOpenSSL_C_INT; ret: PBIGNUM): PBIGNUM; cdecl = Load_BN_bin2bn; + BN_bn2bin: function (const a: PBIGNUM; to_: PByte): TOpenSSL_C_INT; cdecl = Load_BN_bn2bin; + BN_bn2binpad: function (const a: PBIGNUM; to_: PByte; tolen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BN_bn2binpad; + BN_lebin2bn: function (const s: PByte; len: TOpenSSL_C_INT; ret: PBIGNUM): PBIGNUM; cdecl = Load_BN_lebin2bn; + BN_bn2lebinpad: function (a: PBIGNUM; to_: PByte; tolen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BN_bn2lebinpad; + BN_mpi2bn: function (const s: PByte; len: TOpenSSL_C_INT; ret: PBIGNUM): PBIGNUM; cdecl = Load_BN_mpi2bn; + BN_bn2mpi: function (a: PBIGNUM; to_: PByte): TOpenSSL_C_INT; cdecl = Load_BN_bn2mpi; + BN_sub: function (r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_sub; + BN_usub: function (r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_usub; + BN_uadd: function (r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_uadd; + BN_add: function (r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_add; + BN_mul: function (r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_mul; + BN_sqr: function (r: PBIGNUM; const a: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_sqr; + BN_set_negative: procedure (b: PBIGNUM; n: TOpenSSL_C_INT); cdecl = Load_BN_set_negative; + BN_is_negative: function (b: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_is_negative; + BN_div: function (dv: PBIGNUM; rem: PBIGNUM; const m: PBIGNUM; const d: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_div; + BN_nnmod: function (r: PBIGNUM; const m: PBIGNUM; const d: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_nnmod; + BN_mod_add: function (r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_mod_add; + BN_mod_add_quick: function (r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_mod_add_quick; + BN_mod_sub: function (r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_mod_sub; + BN_mod_sub_quick: function (r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_mod_sub_quick; + BN_mod_mul: function (r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_mod_mul; + BN_mod_sqr: function (r: PBIGNUM; const a: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_mod_sqr; + BN_mod_lshift1: function (r: PBIGNUM; const a: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_mod_lshift1; + BN_mod_lshift1_quick: function (r: PBIGNUM; const a: PBIGNUM; const m: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_mod_lshift1_quick; + BN_mod_lshift: function (r: PBIGNUM; const a: PBIGNUM; n: TOpenSSL_C_INT; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_mod_lshift; + BN_mod_lshift_quick: function (r: PBIGNUM; const a: PBIGNUM; n: TOpenSSL_C_INT; const m: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_mod_lshift_quick; + BN_mod_word: function (const a: PBIGNUM; w: BN_ULONG): BN_ULONG; cdecl = Load_BN_mod_word; + BN_div_word: function (a: PBIGNUM; w: BN_ULONG): BN_ULONG; cdecl = Load_BN_div_word; + BN_mul_word: function (a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl = Load_BN_mul_word; + BN_add_word: function (a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl = Load_BN_add_word; + BN_sub_word: function (a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl = Load_BN_sub_word; + BN_set_word: function (a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl = Load_BN_set_word; + BN_get_word: function (const a: PBIGNUM): BN_ULONG; cdecl = Load_BN_get_word; + BN_cmp: function (const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_cmp; + BN_free: procedure (a: PBIGNUM); cdecl = Load_BN_free; + BN_is_bit_set: function (const a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BN_is_bit_set; + BN_lshift: function (r: PBIGNUM; const a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BN_lshift; + BN_lshift1: function (r: PBIGNUM; const a: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_lshift1; + BN_exp: function (r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_exp; + BN_mod_exp: function (r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_mod_exp; + BN_mod_exp_mont: function (r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX; m_ctx: PBN_MONT_CTX): TOpenSSL_C_INT; cdecl = Load_BN_mod_exp_mont; + BN_mod_exp_mont_consttime: function (rr: PBIGNUM; a: PBIGNUM; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX; in_mont: PBN_MONT_CTX): TOpenSSL_C_INT; cdecl = Load_BN_mod_exp_mont_consttime; + BN_mod_exp_mont_word: function (r: PBIGNUM; a: BN_ULONG; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX; m_ctx: PBN_MONT_CTX): TOpenSSL_C_INT; cdecl = Load_BN_mod_exp_mont_word; + BN_mod_exp2_mont: function (r: PBIGNUM; const a1: PBIGNUM; const p1: PBIGNUM; const a2: PBIGNUM; const p2: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX; m_ctx: PBN_MONT_CTX): TOpenSSL_C_INT; cdecl = Load_BN_mod_exp2_mont; + BN_mod_exp_simple: function (r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_mod_exp_simple; + BN_mask_bits: function (a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BN_mask_bits; + BN_print: function (bio: PBIO; a: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_print; + BN_reciprocal: function (r: PBIGNUM; m: PBIGNUM; len: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_reciprocal; + BN_rshift: function (r: PBIGNUM; a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BN_rshift; + BN_rshift1: function (r: PBIGNUM; a: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_rshift1; + BN_clear: procedure (a: PBIGNUM); cdecl = Load_BN_clear; + BN_dup: function (const a: PBIGNUM): PBIGNUM; cdecl = Load_BN_dup; + BN_ucmp: function (a: PBIGNUM; b: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_ucmp; + BN_set_bit: function (a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BN_set_bit; + BN_clear_bit: function (a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BN_clear_bit; + BN_bn2hex: function (a: PBIGNUM): PAnsiChar; cdecl = Load_BN_bn2hex; + BN_bn2dec: function (a: PBIGNUM): PAnsiChar; cdecl = Load_BN_bn2dec; + BN_hex2bn: function (a: PPBIGNUM; str: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_BN_hex2bn; + BN_dec2bn: function (a: PPBIGNUM; str: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_BN_dec2bn; + BN_asc2bn: function (a: PPBIGNUM; str: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_BN_asc2bn; + BN_gcd: function (r: PBIGNUM; a: PBIGNUM; b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_gcd; + BN_kronecker: function (a: PBIGNUM; b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_kronecker; + BN_mod_inverse: function (ret: PBIGNUM; a: PBIGNUM; const n: PBIGNUM; ctx: PBN_CTX): PBIGNUM; cdecl = Load_BN_mod_inverse; + BN_mod_sqrt: function (ret: PBIGNUM; a: PBIGNUM; const n: PBIGNUM; ctx: PBN_CTX): PBIGNUM; cdecl = Load_BN_mod_sqrt; + BN_consttime_swap: procedure (swap: BN_ULONG; a: PBIGNUM; b: PBIGNUM; nwords: TOpenSSL_C_INT); cdecl = Load_BN_consttime_swap; + BN_generate_prime_ex: function (ret: PBIGNUM; bits: TOpenSSL_C_INT; safe: TOpenSSL_C_INT; const add: PBIGNUM; const rem: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl = Load_BN_generate_prime_ex; + BN_is_prime_ex: function (const p: PBIGNUM; nchecks: TOpenSSL_C_INT; ctx: PBN_CTX; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl = Load_BN_is_prime_ex; + BN_is_prime_fasttest_ex: function (const p: PBIGNUM; nchecks: TOpenSSL_C_INT; ctx: PBN_CTX; do_trial_division: TOpenSSL_C_INT; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl = Load_BN_is_prime_fasttest_ex; + BN_X931_generate_Xpq: function (Xp: PBIGNUM; Xq: PBIGNUM; nbits: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_X931_generate_Xpq; + BN_X931_derive_prime_ex: function (p: PBIGNUM; p1: PBIGNUM; p2: PBIGNUM; const Xp: PBIGNUM; const Xp1: PBIGNUM; const Xp2: PBIGNUM; const e: PBIGNUM; ctx: PBN_CTX; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl = Load_BN_X931_derive_prime_ex; + BN_X931_generate_prime_ex: function (p: PBIGNUM; p1: PBIGNUM; p2: PBIGNUM; Xp1: PBIGNUM; Xp2: PBIGNUM; Xp: PBIGNUM; const e: PBIGNUM; ctx: PBN_CTX; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl = Load_BN_X931_generate_prime_ex; + BN_MONT_CTX_new: function : PBN_MONT_CTX; cdecl = Load_BN_MONT_CTX_new; + BN_mod_mul_montgomery: function (r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; mont: PBN_MONT_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_mod_mul_montgomery; + BN_to_montgomery: function (r: PBIGNUM; a: PBIGNUM; mont: PBN_MONT_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_to_montgomery; + BN_from_montgomery: function (r: PBIGNUM; a: PBIGNUM; mont: PBN_MONT_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_from_montgomery; + BN_MONT_CTX_free: procedure (mont: PBN_MONT_CTX); cdecl = Load_BN_MONT_CTX_free; + BN_MONT_CTX_set: function (mont: PBN_MONT_CTX; mod_: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_MONT_CTX_set; + BN_MONT_CTX_copy: function (to_: PBN_MONT_CTX; from: PBN_MONT_CTX): PBN_MONT_CTX; cdecl = Load_BN_MONT_CTX_copy; + BN_BLINDING_new: function (const A: PBIGNUM; const Ai: PBIGNUM; mod_: PBIGNUM): PBN_BLINDING; cdecl = Load_BN_BLINDING_new; + BN_BLINDING_free: procedure (b: PBN_BLINDING); cdecl = Load_BN_BLINDING_free; + BN_BLINDING_update: function (b: PBN_BLINDING; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_BLINDING_update; + BN_BLINDING_convert: function (n: PBIGNUM; b: PBN_BLINDING; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_BLINDING_convert; + BN_BLINDING_invert: function (n: PBIGNUM; b: PBN_BLINDING; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_BLINDING_invert; + BN_BLINDING_convert_ex: function (n: PBIGNUM; r: PBIGNUM; b: PBN_BLINDING; v4: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_BLINDING_convert_ex; + BN_BLINDING_invert_ex: function (n: PBIGNUM; r: PBIGNUM; b: PBN_BLINDING; v2: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_BLINDING_invert_ex; + BN_BLINDING_is_current_thread: function (b: PBN_BLINDING): TOpenSSL_C_INT; cdecl = Load_BN_BLINDING_is_current_thread; + BN_BLINDING_set_current_thread: procedure (b: PBN_BLINDING); cdecl = Load_BN_BLINDING_set_current_thread; + BN_BLINDING_lock: function (b: PBN_BLINDING): TOpenSSL_C_INT; cdecl = Load_BN_BLINDING_lock; + BN_BLINDING_unlock: function (b: PBN_BLINDING): TOpenSSL_C_INT; cdecl = Load_BN_BLINDING_unlock; + BN_BLINDING_get_flags: function (v1: PBN_BLINDING): TOpenSSL_C_ULONG; cdecl = Load_BN_BLINDING_get_flags; + BN_BLINDING_set_flags: procedure (v1: PBN_BLINDING; v2: TOpenSSL_C_ULONG); cdecl = Load_BN_BLINDING_set_flags; + BN_RECP_CTX_free: procedure (recp: PBN_RECP_CTX); cdecl = Load_BN_RECP_CTX_free; + BN_RECP_CTX_set: function (recp: PBN_RECP_CTX; rdiv: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_RECP_CTX_set; + BN_mod_mul_reciprocal: function (r: PBIGNUM; x: PBIGNUM; y: PBIGNUM; recp: PBN_RECP_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_mod_mul_reciprocal; + BN_mod_exp_recp: function (r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_mod_exp_recp; + BN_div_recp: function (dv: PBIGNUM; rem: PBIGNUM; m: PBIGNUM; recp: PBN_RECP_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_div_recp; + BN_GF2m_add: function (r: PBIGNUM; a: PBIGNUM; b: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_GF2m_add; + BN_GF2m_mod: function (r: PBIGNUM; a: PBIGNUM; p: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_BN_GF2m_mod; + BN_GF2m_mod_mul: function (r: PBIGNUM; a: PBIGNUM; b: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_GF2m_mod_mul; + BN_GF2m_mod_sqr: function (r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_GF2m_mod_sqr; + BN_GF2m_mod_inv: function (r: PBIGNUM; b: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_GF2m_mod_inv; + BN_GF2m_mod_div: function (r: PBIGNUM; a: PBIGNUM; b: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_GF2m_mod_div; + BN_GF2m_mod_exp: function (r: PBIGNUM; a: PBIGNUM; b: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_GF2m_mod_exp; + BN_GF2m_mod_sqrt: function (r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_GF2m_mod_sqrt; + BN_GF2m_mod_solve_quad: function (r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_GF2m_mod_solve_quad; + BN_nist_mod_192: function (r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_nist_mod_192; + BN_nist_mod_224: function (r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_nist_mod_224; + BN_nist_mod_256: function (r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_nist_mod_256; + BN_nist_mod_384: function (r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_nist_mod_384; + BN_nist_mod_521: function (r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_nist_mod_521; + BN_get0_nist_prime_192: function : PBIGNUM; cdecl = Load_BN_get0_nist_prime_192; + BN_get0_nist_prime_224: function : PBIGNUM; cdecl = Load_BN_get0_nist_prime_224; + BN_get0_nist_prime_256: function : PBIGNUM; cdecl = Load_BN_get0_nist_prime_256; + BN_get0_nist_prime_384: function : PBIGNUM; cdecl = Load_BN_get0_nist_prime_384; + BN_get0_nist_prime_521: function : PBIGNUM; cdecl = Load_BN_get0_nist_prime_521; + BN_generate_dsa_nonce: function (out_: PBIGNUM; range: PBIGNUM; priv: PBIGNUM; const message_: PByte; message_len: TOpenSSL_C_SIZET; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_BN_generate_dsa_nonce; + BN_get_rfc2409_prime_768: function (bn: PBIGNUM ): PBIGNUM; cdecl = Load_BN_get_rfc2409_prime_768; + BN_get_rfc2409_prime_1024: function (bn: PBIGNUM): PBIGNUM; cdecl = Load_BN_get_rfc2409_prime_1024; + BN_get_rfc3526_prime_1536: function (bn: PBIGNUM): PBIGNUM; cdecl = Load_BN_get_rfc3526_prime_1536; + BN_get_rfc3526_prime_2048: function (bn: PBIGNUM): PBIGNUM; cdecl = Load_BN_get_rfc3526_prime_2048; + BN_get_rfc3526_prime_3072: function (bn: PBIGNUM): PBIGNUM; cdecl = Load_BN_get_rfc3526_prime_3072; + BN_get_rfc3526_prime_4096: function (bn: PBIGNUM): PBIGNUM; cdecl = Load_BN_get_rfc3526_prime_4096; + BN_get_rfc3526_prime_6144: function (bn: PBIGNUM): PBIGNUM; cdecl = Load_BN_get_rfc3526_prime_6144; + BN_get_rfc3526_prime_8192: function (bn: PBIGNUM): PBIGNUM; cdecl = Load_BN_get_rfc3526_prime_8192; + BN_bntest_rand: function (rnd: PBIGNUM; bits: TOpenSSL_C_INT; top: TOpenSSL_C_INT; bottom: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BN_bntest_rand; +{$ENDIF} + +implementation + + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_BN_set_flags(b: PBIGNUM; n: TOpenSSL_C_INT); cdecl; +begin + BN_set_flags := LoadLibCryptoFunction('BN_set_flags'); + if not assigned(BN_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_set_flags'); + BN_set_flags(b,n); +end; + +function Load_BN_get_flags(b: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BN_get_flags := LoadLibCryptoFunction('BN_get_flags'); + if not assigned(BN_get_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_get_flags'); + Result := BN_get_flags(b,n); +end; + +procedure Load_BN_with_flags(dest: PBIGNUM; b: PBIGNUM; flags: TOpenSSL_C_INT); cdecl; +begin + BN_with_flags := LoadLibCryptoFunction('BN_with_flags'); + if not assigned(BN_with_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_with_flags'); + BN_with_flags(dest,b,flags); +end; + +function Load_BN_GENCB_call(cb: PBN_GENCB; a: TOpenSSL_C_INT; b: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BN_GENCB_call := LoadLibCryptoFunction('BN_GENCB_call'); + if not assigned(BN_GENCB_call) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_GENCB_call'); + Result := BN_GENCB_call(cb,a,b); +end; + +function Load_BN_GENCB_new: PBN_GENCB; cdecl; +begin + BN_GENCB_new := LoadLibCryptoFunction('BN_GENCB_new'); + if not assigned(BN_GENCB_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_GENCB_new'); + Result := BN_GENCB_new(); +end; + +procedure Load_BN_GENCB_free(cb: PBN_GENCB); cdecl; +begin + BN_GENCB_free := LoadLibCryptoFunction('BN_GENCB_free'); + if not assigned(BN_GENCB_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_GENCB_free'); + BN_GENCB_free(cb); +end; + +procedure Load_BN_GENCB_set_old(gencb: PBN_GENCB; callback: BN_GENCB_set_old_cb; cb_arg: Pointer); cdecl; +begin + BN_GENCB_set_old := LoadLibCryptoFunction('BN_GENCB_set_old'); + if not assigned(BN_GENCB_set_old) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_GENCB_set_old'); + BN_GENCB_set_old(gencb,callback,cb_arg); +end; + +procedure Load_BN_GENCB_set(gencb: PBN_GENCB; callback: BN_GENCB_set_cb; cb_arg: Pointer); cdecl; +begin + BN_GENCB_set := LoadLibCryptoFunction('BN_GENCB_set'); + if not assigned(BN_GENCB_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_GENCB_set'); + BN_GENCB_set(gencb,callback,cb_arg); +end; + +function Load_BN_GENCB_get_arg(cb: PBN_GENCB): Pointer; cdecl; +begin + BN_GENCB_get_arg := LoadLibCryptoFunction('BN_GENCB_get_arg'); + if not assigned(BN_GENCB_get_arg) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_GENCB_get_arg'); + Result := BN_GENCB_get_arg(cb); +end; + +function Load_BN_abs_is_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; +begin + BN_abs_is_word := LoadLibCryptoFunction('BN_abs_is_word'); + if not assigned(BN_abs_is_word) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_abs_is_word'); + Result := BN_abs_is_word(a,w); +end; + +function Load_BN_is_zero(a: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_is_zero := LoadLibCryptoFunction('BN_is_zero'); + if not assigned(BN_is_zero) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_is_zero'); + Result := BN_is_zero(a); +end; + +function Load_BN_is_one(a: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_is_one := LoadLibCryptoFunction('BN_is_one'); + if not assigned(BN_is_one) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_is_one'); + Result := BN_is_one(a); +end; + +function Load_BN_is_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; +begin + BN_is_word := LoadLibCryptoFunction('BN_is_word'); + if not assigned(BN_is_word) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_is_word'); + Result := BN_is_word(a,w); +end; + +function Load_BN_is_odd(a: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_is_odd := LoadLibCryptoFunction('BN_is_odd'); + if not assigned(BN_is_odd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_is_odd'); + Result := BN_is_odd(a); +end; + +procedure Load_BN_zero_ex(a: PBIGNUM); cdecl; +begin + BN_zero_ex := LoadLibCryptoFunction('BN_zero_ex'); + if not assigned(BN_zero_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_zero_ex'); + BN_zero_ex(a); +end; + +function Load_BN_value_one: PBIGNUM; cdecl; +begin + BN_value_one := LoadLibCryptoFunction('BN_value_one'); + if not assigned(BN_value_one) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_value_one'); + Result := BN_value_one(); +end; + +function Load_BN_options: PAnsiChar; cdecl; +begin + BN_options := LoadLibCryptoFunction('BN_options'); + if not assigned(BN_options) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_options'); + Result := BN_options(); +end; + +function Load_BN_CTX_new: PBN_CTX; cdecl; +begin + BN_CTX_new := LoadLibCryptoFunction('BN_CTX_new'); + if not assigned(BN_CTX_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_CTX_new'); + Result := BN_CTX_new(); +end; + +function Load_BN_CTX_secure_new: PBN_CTX; cdecl; +begin + BN_CTX_secure_new := LoadLibCryptoFunction('BN_CTX_secure_new'); + if not assigned(BN_CTX_secure_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_CTX_secure_new'); + Result := BN_CTX_secure_new(); +end; + +procedure Load_BN_CTX_free(c: PBN_CTX); cdecl; +begin + BN_CTX_free := LoadLibCryptoFunction('BN_CTX_free'); + if not assigned(BN_CTX_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_CTX_free'); + BN_CTX_free(c); +end; + +procedure Load_BN_CTX_start(ctx: PBN_CTX); cdecl; +begin + BN_CTX_start := LoadLibCryptoFunction('BN_CTX_start'); + if not assigned(BN_CTX_start) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_CTX_start'); + BN_CTX_start(ctx); +end; + +function Load_BN_CTX_get(ctx: PBN_CTX): PBIGNUM; cdecl; +begin + BN_CTX_get := LoadLibCryptoFunction('BN_CTX_get'); + if not assigned(BN_CTX_get) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_CTX_get'); + Result := BN_CTX_get(ctx); +end; + +procedure Load_BN_CTX_end(ctx: PBN_CTX); cdecl; +begin + BN_CTX_end := LoadLibCryptoFunction('BN_CTX_end'); + if not assigned(BN_CTX_end) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_CTX_end'); + BN_CTX_end(ctx); +end; + +function Load_BN_rand(rnd: PBIGNUM; bits: TOpenSSL_C_INT; top: TOpenSSL_C_INT; bottom: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BN_rand := LoadLibCryptoFunction('BN_rand'); + if not assigned(BN_rand) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_rand'); + Result := BN_rand(rnd,bits,top,bottom); +end; + +function Load_BN_priv_rand(rnd: PBIGNUM; bits: TOpenSSL_C_INT; top: TOpenSSL_C_INT; bottom: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BN_priv_rand := LoadLibCryptoFunction('BN_priv_rand'); + if not assigned(BN_priv_rand) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_priv_rand'); + Result := BN_priv_rand(rnd,bits,top,bottom); +end; + +function Load_BN_rand_range(rnd: PBIGNUM; range: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_rand_range := LoadLibCryptoFunction('BN_rand_range'); + if not assigned(BN_rand_range) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_rand_range'); + Result := BN_rand_range(rnd,range); +end; + +function Load_BN_priv_rand_range(rnd: PBIGNUM; range: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_priv_rand_range := LoadLibCryptoFunction('BN_priv_rand_range'); + if not assigned(BN_priv_rand_range) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_priv_rand_range'); + Result := BN_priv_rand_range(rnd,range); +end; + +function Load_BN_pseudo_rand(rnd: PBIGNUM; bits: TOpenSSL_C_INT; top: TOpenSSL_C_INT; bottom: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BN_pseudo_rand := LoadLibCryptoFunction('BN_pseudo_rand'); + if not assigned(BN_pseudo_rand) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_pseudo_rand'); + Result := BN_pseudo_rand(rnd,bits,top,bottom); +end; + +function Load_BN_pseudo_rand_range(rnd: PBIGNUM; range: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_pseudo_rand_range := LoadLibCryptoFunction('BN_pseudo_rand_range'); + if not assigned(BN_pseudo_rand_range) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_pseudo_rand_range'); + Result := BN_pseudo_rand_range(rnd,range); +end; + +function Load_BN_num_bits(a: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_num_bits := LoadLibCryptoFunction('BN_num_bits'); + if not assigned(BN_num_bits) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_num_bits'); + Result := BN_num_bits(a); +end; + +function Load_BN_num_bits_word(l: BN_ULONG): TOpenSSL_C_INT; cdecl; +begin + BN_num_bits_word := LoadLibCryptoFunction('BN_num_bits_word'); + if not assigned(BN_num_bits_word) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_num_bits_word'); + Result := BN_num_bits_word(l); +end; + +function Load_BN_security_bits(L: TOpenSSL_C_INT; N: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BN_security_bits := LoadLibCryptoFunction('BN_security_bits'); + if not assigned(BN_security_bits) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_security_bits'); + Result := BN_security_bits(L,N); +end; + +function Load_BN_new: PBIGNUM; cdecl; +begin + BN_new := LoadLibCryptoFunction('BN_new'); + if not assigned(BN_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_new'); + Result := BN_new(); +end; + +function Load_BN_secure_new: PBIGNUM; cdecl; +begin + BN_secure_new := LoadLibCryptoFunction('BN_secure_new'); + if not assigned(BN_secure_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_secure_new'); + Result := BN_secure_new(); +end; + +procedure Load_BN_clear_free(a: PBIGNUM); cdecl; +begin + BN_clear_free := LoadLibCryptoFunction('BN_clear_free'); + if not assigned(BN_clear_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_clear_free'); + BN_clear_free(a); +end; + +function Load_BN_copy(a: PBIGNUM; b: PBIGNUM): PBIGNUM; cdecl; +begin + BN_copy := LoadLibCryptoFunction('BN_copy'); + if not assigned(BN_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_copy'); + Result := BN_copy(a,b); +end; + +procedure Load_BN_swap(a: PBIGNUM; b: PBIGNUM); cdecl; +begin + BN_swap := LoadLibCryptoFunction('BN_swap'); + if not assigned(BN_swap) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_swap'); + BN_swap(a,b); +end; + +function Load_BN_bin2bn(const s: PByte; len: TOpenSSL_C_INT; ret: PBIGNUM): PBIGNUM; cdecl; +begin + BN_bin2bn := LoadLibCryptoFunction('BN_bin2bn'); + if not assigned(BN_bin2bn) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_bin2bn'); + Result := BN_bin2bn(s,len,ret); +end; + +function Load_BN_bn2bin(const a: PBIGNUM; to_: PByte): TOpenSSL_C_INT; cdecl; +begin + BN_bn2bin := LoadLibCryptoFunction('BN_bn2bin'); + if not assigned(BN_bn2bin) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_bn2bin'); + Result := BN_bn2bin(a,to_); +end; + +function Load_BN_bn2binpad(const a: PBIGNUM; to_: PByte; tolen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BN_bn2binpad := LoadLibCryptoFunction('BN_bn2binpad'); + if not assigned(BN_bn2binpad) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_bn2binpad'); + Result := BN_bn2binpad(a,to_,tolen); +end; + +function Load_BN_lebin2bn(const s: PByte; len: TOpenSSL_C_INT; ret: PBIGNUM): PBIGNUM; cdecl; +begin + BN_lebin2bn := LoadLibCryptoFunction('BN_lebin2bn'); + if not assigned(BN_lebin2bn) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_lebin2bn'); + Result := BN_lebin2bn(s,len,ret); +end; + +function Load_BN_bn2lebinpad(a: PBIGNUM; to_: PByte; tolen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BN_bn2lebinpad := LoadLibCryptoFunction('BN_bn2lebinpad'); + if not assigned(BN_bn2lebinpad) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_bn2lebinpad'); + Result := BN_bn2lebinpad(a,to_,tolen); +end; + +function Load_BN_mpi2bn(const s: PByte; len: TOpenSSL_C_INT; ret: PBIGNUM): PBIGNUM; cdecl; +begin + BN_mpi2bn := LoadLibCryptoFunction('BN_mpi2bn'); + if not assigned(BN_mpi2bn) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mpi2bn'); + Result := BN_mpi2bn(s,len,ret); +end; + +function Load_BN_bn2mpi(a: PBIGNUM; to_: PByte): TOpenSSL_C_INT; cdecl; +begin + BN_bn2mpi := LoadLibCryptoFunction('BN_bn2mpi'); + if not assigned(BN_bn2mpi) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_bn2mpi'); + Result := BN_bn2mpi(a,to_); +end; + +function Load_BN_sub(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_sub := LoadLibCryptoFunction('BN_sub'); + if not assigned(BN_sub) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_sub'); + Result := BN_sub(r,a,b); +end; + +function Load_BN_usub(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_usub := LoadLibCryptoFunction('BN_usub'); + if not assigned(BN_usub) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_usub'); + Result := BN_usub(r,a,b); +end; + +function Load_BN_uadd(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_uadd := LoadLibCryptoFunction('BN_uadd'); + if not assigned(BN_uadd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_uadd'); + Result := BN_uadd(r,a,b); +end; + +function Load_BN_add(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_add := LoadLibCryptoFunction('BN_add'); + if not assigned(BN_add) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_add'); + Result := BN_add(r,a,b); +end; + +function Load_BN_mul(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_mul := LoadLibCryptoFunction('BN_mul'); + if not assigned(BN_mul) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mul'); + Result := BN_mul(r,a,b,ctx); +end; + +function Load_BN_sqr(r: PBIGNUM; const a: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_sqr := LoadLibCryptoFunction('BN_sqr'); + if not assigned(BN_sqr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_sqr'); + Result := BN_sqr(r,a,ctx); +end; + +procedure Load_BN_set_negative(b: PBIGNUM; n: TOpenSSL_C_INT); cdecl; +begin + BN_set_negative := LoadLibCryptoFunction('BN_set_negative'); + if not assigned(BN_set_negative) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_set_negative'); + BN_set_negative(b,n); +end; + +function Load_BN_is_negative(b: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_is_negative := LoadLibCryptoFunction('BN_is_negative'); + if not assigned(BN_is_negative) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_is_negative'); + Result := BN_is_negative(b); +end; + +function Load_BN_div(dv: PBIGNUM; rem: PBIGNUM; const m: PBIGNUM; const d: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_div := LoadLibCryptoFunction('BN_div'); + if not assigned(BN_div) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_div'); + Result := BN_div(dv,rem,m,d,ctx); +end; + +function Load_BN_nnmod(r: PBIGNUM; const m: PBIGNUM; const d: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_nnmod := LoadLibCryptoFunction('BN_nnmod'); + if not assigned(BN_nnmod) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_nnmod'); + Result := BN_nnmod(r,m,d,ctx); +end; + +function Load_BN_mod_add(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_mod_add := LoadLibCryptoFunction('BN_mod_add'); + if not assigned(BN_mod_add) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_add'); + Result := BN_mod_add(r,a,b,m,ctx); +end; + +function Load_BN_mod_add_quick(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_mod_add_quick := LoadLibCryptoFunction('BN_mod_add_quick'); + if not assigned(BN_mod_add_quick) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_add_quick'); + Result := BN_mod_add_quick(r,a,b,m); +end; + +function Load_BN_mod_sub(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_mod_sub := LoadLibCryptoFunction('BN_mod_sub'); + if not assigned(BN_mod_sub) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_sub'); + Result := BN_mod_sub(r,a,b,m,ctx); +end; + +function Load_BN_mod_sub_quick(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_mod_sub_quick := LoadLibCryptoFunction('BN_mod_sub_quick'); + if not assigned(BN_mod_sub_quick) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_sub_quick'); + Result := BN_mod_sub_quick(r,a,b,m); +end; + +function Load_BN_mod_mul(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_mod_mul := LoadLibCryptoFunction('BN_mod_mul'); + if not assigned(BN_mod_mul) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_mul'); + Result := BN_mod_mul(r,a,b,m,ctx); +end; + +function Load_BN_mod_sqr(r: PBIGNUM; const a: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_mod_sqr := LoadLibCryptoFunction('BN_mod_sqr'); + if not assigned(BN_mod_sqr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_sqr'); + Result := BN_mod_sqr(r,a,m,ctx); +end; + +function Load_BN_mod_lshift1(r: PBIGNUM; const a: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_mod_lshift1 := LoadLibCryptoFunction('BN_mod_lshift1'); + if not assigned(BN_mod_lshift1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_lshift1'); + Result := BN_mod_lshift1(r,a,m,ctx); +end; + +function Load_BN_mod_lshift1_quick(r: PBIGNUM; const a: PBIGNUM; const m: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_mod_lshift1_quick := LoadLibCryptoFunction('BN_mod_lshift1_quick'); + if not assigned(BN_mod_lshift1_quick) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_lshift1_quick'); + Result := BN_mod_lshift1_quick(r,a,m); +end; + +function Load_BN_mod_lshift(r: PBIGNUM; const a: PBIGNUM; n: TOpenSSL_C_INT; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_mod_lshift := LoadLibCryptoFunction('BN_mod_lshift'); + if not assigned(BN_mod_lshift) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_lshift'); + Result := BN_mod_lshift(r,a,n,m,ctx); +end; + +function Load_BN_mod_lshift_quick(r: PBIGNUM; const a: PBIGNUM; n: TOpenSSL_C_INT; const m: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_mod_lshift_quick := LoadLibCryptoFunction('BN_mod_lshift_quick'); + if not assigned(BN_mod_lshift_quick) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_lshift_quick'); + Result := BN_mod_lshift_quick(r,a,n,m); +end; + +function Load_BN_mod_word(const a: PBIGNUM; w: BN_ULONG): BN_ULONG; cdecl; +begin + BN_mod_word := LoadLibCryptoFunction('BN_mod_word'); + if not assigned(BN_mod_word) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_word'); + Result := BN_mod_word(a,w); +end; + +function Load_BN_div_word(a: PBIGNUM; w: BN_ULONG): BN_ULONG; cdecl; +begin + BN_div_word := LoadLibCryptoFunction('BN_div_word'); + if not assigned(BN_div_word) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_div_word'); + Result := BN_div_word(a,w); +end; + +function Load_BN_mul_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; +begin + BN_mul_word := LoadLibCryptoFunction('BN_mul_word'); + if not assigned(BN_mul_word) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mul_word'); + Result := BN_mul_word(a,w); +end; + +function Load_BN_add_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; +begin + BN_add_word := LoadLibCryptoFunction('BN_add_word'); + if not assigned(BN_add_word) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_add_word'); + Result := BN_add_word(a,w); +end; + +function Load_BN_sub_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; +begin + BN_sub_word := LoadLibCryptoFunction('BN_sub_word'); + if not assigned(BN_sub_word) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_sub_word'); + Result := BN_sub_word(a,w); +end; + +function Load_BN_set_word(a: PBIGNUM; w: BN_ULONG): TOpenSSL_C_INT; cdecl; +begin + BN_set_word := LoadLibCryptoFunction('BN_set_word'); + if not assigned(BN_set_word) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_set_word'); + Result := BN_set_word(a,w); +end; + +function Load_BN_get_word(const a: PBIGNUM): BN_ULONG; cdecl; +begin + BN_get_word := LoadLibCryptoFunction('BN_get_word'); + if not assigned(BN_get_word) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_get_word'); + Result := BN_get_word(a); +end; + +function Load_BN_cmp(const a: PBIGNUM; const b: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_cmp := LoadLibCryptoFunction('BN_cmp'); + if not assigned(BN_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_cmp'); + Result := BN_cmp(a,b); +end; + +procedure Load_BN_free(a: PBIGNUM); cdecl; +begin + BN_free := LoadLibCryptoFunction('BN_free'); + if not assigned(BN_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_free'); + BN_free(a); +end; + +function Load_BN_is_bit_set(const a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BN_is_bit_set := LoadLibCryptoFunction('BN_is_bit_set'); + if not assigned(BN_is_bit_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_is_bit_set'); + Result := BN_is_bit_set(a,n); +end; + +function Load_BN_lshift(r: PBIGNUM; const a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BN_lshift := LoadLibCryptoFunction('BN_lshift'); + if not assigned(BN_lshift) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_lshift'); + Result := BN_lshift(r,a,n); +end; + +function Load_BN_lshift1(r: PBIGNUM; const a: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_lshift1 := LoadLibCryptoFunction('BN_lshift1'); + if not assigned(BN_lshift1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_lshift1'); + Result := BN_lshift1(r,a); +end; + +function Load_BN_exp(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_exp := LoadLibCryptoFunction('BN_exp'); + if not assigned(BN_exp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_exp'); + Result := BN_exp(r,a,p,ctx); +end; + +function Load_BN_mod_exp(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_mod_exp := LoadLibCryptoFunction('BN_mod_exp'); + if not assigned(BN_mod_exp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_exp'); + Result := BN_mod_exp(r,a,p,m,ctx); +end; + +function Load_BN_mod_exp_mont(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX; m_ctx: PBN_MONT_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_mod_exp_mont := LoadLibCryptoFunction('BN_mod_exp_mont'); + if not assigned(BN_mod_exp_mont) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_exp_mont'); + Result := BN_mod_exp_mont(r,a,p,m,ctx,m_ctx); +end; + +function Load_BN_mod_exp_mont_consttime(rr: PBIGNUM; a: PBIGNUM; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX; in_mont: PBN_MONT_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_mod_exp_mont_consttime := LoadLibCryptoFunction('BN_mod_exp_mont_consttime'); + if not assigned(BN_mod_exp_mont_consttime) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_exp_mont_consttime'); + Result := BN_mod_exp_mont_consttime(rr,a,p,m,ctx,in_mont); +end; + +function Load_BN_mod_exp_mont_word(r: PBIGNUM; a: BN_ULONG; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX; m_ctx: PBN_MONT_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_mod_exp_mont_word := LoadLibCryptoFunction('BN_mod_exp_mont_word'); + if not assigned(BN_mod_exp_mont_word) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_exp_mont_word'); + Result := BN_mod_exp_mont_word(r,a,p,m,ctx,m_ctx); +end; + +function Load_BN_mod_exp2_mont(r: PBIGNUM; const a1: PBIGNUM; const p1: PBIGNUM; const a2: PBIGNUM; const p2: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTX; m_ctx: PBN_MONT_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_mod_exp2_mont := LoadLibCryptoFunction('BN_mod_exp2_mont'); + if not assigned(BN_mod_exp2_mont) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_exp2_mont'); + Result := BN_mod_exp2_mont(r,a1,p1,a2,p2,m,ctx,m_ctx); +end; + +function Load_BN_mod_exp_simple(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_mod_exp_simple := LoadLibCryptoFunction('BN_mod_exp_simple'); + if not assigned(BN_mod_exp_simple) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_exp_simple'); + Result := BN_mod_exp_simple(r,a,p,m,ctx); +end; + +function Load_BN_mask_bits(a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BN_mask_bits := LoadLibCryptoFunction('BN_mask_bits'); + if not assigned(BN_mask_bits) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mask_bits'); + Result := BN_mask_bits(a,n); +end; + +function Load_BN_print(bio: PBIO; a: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_print := LoadLibCryptoFunction('BN_print'); + if not assigned(BN_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_print'); + Result := BN_print(bio,a); +end; + +function Load_BN_reciprocal(r: PBIGNUM; m: PBIGNUM; len: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_reciprocal := LoadLibCryptoFunction('BN_reciprocal'); + if not assigned(BN_reciprocal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_reciprocal'); + Result := BN_reciprocal(r,m,len,ctx); +end; + +function Load_BN_rshift(r: PBIGNUM; a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BN_rshift := LoadLibCryptoFunction('BN_rshift'); + if not assigned(BN_rshift) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_rshift'); + Result := BN_rshift(r,a,n); +end; + +function Load_BN_rshift1(r: PBIGNUM; a: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_rshift1 := LoadLibCryptoFunction('BN_rshift1'); + if not assigned(BN_rshift1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_rshift1'); + Result := BN_rshift1(r,a); +end; + +procedure Load_BN_clear(a: PBIGNUM); cdecl; +begin + BN_clear := LoadLibCryptoFunction('BN_clear'); + if not assigned(BN_clear) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_clear'); + BN_clear(a); +end; + +function Load_BN_dup(const a: PBIGNUM): PBIGNUM; cdecl; +begin + BN_dup := LoadLibCryptoFunction('BN_dup'); + if not assigned(BN_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_dup'); + Result := BN_dup(a); +end; + +function Load_BN_ucmp(a: PBIGNUM; b: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_ucmp := LoadLibCryptoFunction('BN_ucmp'); + if not assigned(BN_ucmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_ucmp'); + Result := BN_ucmp(a,b); +end; + +function Load_BN_set_bit(a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BN_set_bit := LoadLibCryptoFunction('BN_set_bit'); + if not assigned(BN_set_bit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_set_bit'); + Result := BN_set_bit(a,n); +end; + +function Load_BN_clear_bit(a: PBIGNUM; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BN_clear_bit := LoadLibCryptoFunction('BN_clear_bit'); + if not assigned(BN_clear_bit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_clear_bit'); + Result := BN_clear_bit(a,n); +end; + +function Load_BN_bn2hex(a: PBIGNUM): PAnsiChar; cdecl; +begin + BN_bn2hex := LoadLibCryptoFunction('BN_bn2hex'); + if not assigned(BN_bn2hex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_bn2hex'); + Result := BN_bn2hex(a); +end; + +function Load_BN_bn2dec(a: PBIGNUM): PAnsiChar; cdecl; +begin + BN_bn2dec := LoadLibCryptoFunction('BN_bn2dec'); + if not assigned(BN_bn2dec) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_bn2dec'); + Result := BN_bn2dec(a); +end; + +function Load_BN_hex2bn(a: PPBIGNUM; str: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + BN_hex2bn := LoadLibCryptoFunction('BN_hex2bn'); + if not assigned(BN_hex2bn) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_hex2bn'); + Result := BN_hex2bn(a,str); +end; + +function Load_BN_dec2bn(a: PPBIGNUM; str: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + BN_dec2bn := LoadLibCryptoFunction('BN_dec2bn'); + if not assigned(BN_dec2bn) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_dec2bn'); + Result := BN_dec2bn(a,str); +end; + +function Load_BN_asc2bn(a: PPBIGNUM; str: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + BN_asc2bn := LoadLibCryptoFunction('BN_asc2bn'); + if not assigned(BN_asc2bn) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_asc2bn'); + Result := BN_asc2bn(a,str); +end; + +function Load_BN_gcd(r: PBIGNUM; a: PBIGNUM; b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_gcd := LoadLibCryptoFunction('BN_gcd'); + if not assigned(BN_gcd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_gcd'); + Result := BN_gcd(r,a,b,ctx); +end; + +function Load_BN_kronecker(a: PBIGNUM; b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_kronecker := LoadLibCryptoFunction('BN_kronecker'); + if not assigned(BN_kronecker) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_kronecker'); + Result := BN_kronecker(a,b,ctx); +end; + +function Load_BN_mod_inverse(ret: PBIGNUM; a: PBIGNUM; const n: PBIGNUM; ctx: PBN_CTX): PBIGNUM; cdecl; +begin + BN_mod_inverse := LoadLibCryptoFunction('BN_mod_inverse'); + if not assigned(BN_mod_inverse) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_inverse'); + Result := BN_mod_inverse(ret,a,n,ctx); +end; + +function Load_BN_mod_sqrt(ret: PBIGNUM; a: PBIGNUM; const n: PBIGNUM; ctx: PBN_CTX): PBIGNUM; cdecl; +begin + BN_mod_sqrt := LoadLibCryptoFunction('BN_mod_sqrt'); + if not assigned(BN_mod_sqrt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_sqrt'); + Result := BN_mod_sqrt(ret,a,n,ctx); +end; + +procedure Load_BN_consttime_swap(swap: BN_ULONG; a: PBIGNUM; b: PBIGNUM; nwords: TOpenSSL_C_INT); cdecl; +begin + BN_consttime_swap := LoadLibCryptoFunction('BN_consttime_swap'); + if not assigned(BN_consttime_swap) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_consttime_swap'); + BN_consttime_swap(swap,a,b,nwords); +end; + +function Load_BN_generate_prime_ex(ret: PBIGNUM; bits: TOpenSSL_C_INT; safe: TOpenSSL_C_INT; const add: PBIGNUM; const rem: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +begin + BN_generate_prime_ex := LoadLibCryptoFunction('BN_generate_prime_ex'); + if not assigned(BN_generate_prime_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_generate_prime_ex'); + Result := BN_generate_prime_ex(ret,bits,safe,add,rem,cb); +end; + +function Load_BN_is_prime_ex(const p: PBIGNUM; nchecks: TOpenSSL_C_INT; ctx: PBN_CTX; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +begin + BN_is_prime_ex := LoadLibCryptoFunction('BN_is_prime_ex'); + if not assigned(BN_is_prime_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_is_prime_ex'); + Result := BN_is_prime_ex(p,nchecks,ctx,cb); +end; + +function Load_BN_is_prime_fasttest_ex(const p: PBIGNUM; nchecks: TOpenSSL_C_INT; ctx: PBN_CTX; do_trial_division: TOpenSSL_C_INT; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +begin + BN_is_prime_fasttest_ex := LoadLibCryptoFunction('BN_is_prime_fasttest_ex'); + if not assigned(BN_is_prime_fasttest_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_is_prime_fasttest_ex'); + Result := BN_is_prime_fasttest_ex(p,nchecks,ctx,do_trial_division,cb); +end; + +function Load_BN_X931_generate_Xpq(Xp: PBIGNUM; Xq: PBIGNUM; nbits: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_X931_generate_Xpq := LoadLibCryptoFunction('BN_X931_generate_Xpq'); + if not assigned(BN_X931_generate_Xpq) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_X931_generate_Xpq'); + Result := BN_X931_generate_Xpq(Xp,Xq,nbits,ctx); +end; + +function Load_BN_X931_derive_prime_ex(p: PBIGNUM; p1: PBIGNUM; p2: PBIGNUM; const Xp: PBIGNUM; const Xp1: PBIGNUM; const Xp2: PBIGNUM; const e: PBIGNUM; ctx: PBN_CTX; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +begin + BN_X931_derive_prime_ex := LoadLibCryptoFunction('BN_X931_derive_prime_ex'); + if not assigned(BN_X931_derive_prime_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_X931_derive_prime_ex'); + Result := BN_X931_derive_prime_ex(p,p1,p2,Xp,Xp1,Xp2,e,ctx,cb); +end; + +function Load_BN_X931_generate_prime_ex(p: PBIGNUM; p1: PBIGNUM; p2: PBIGNUM; Xp1: PBIGNUM; Xp2: PBIGNUM; Xp: PBIGNUM; const e: PBIGNUM; ctx: PBN_CTX; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +begin + BN_X931_generate_prime_ex := LoadLibCryptoFunction('BN_X931_generate_prime_ex'); + if not assigned(BN_X931_generate_prime_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_X931_generate_prime_ex'); + Result := BN_X931_generate_prime_ex(p,p1,p2,Xp1,Xp2,Xp,e,ctx,cb); +end; + +function Load_BN_MONT_CTX_new: PBN_MONT_CTX; cdecl; +begin + BN_MONT_CTX_new := LoadLibCryptoFunction('BN_MONT_CTX_new'); + if not assigned(BN_MONT_CTX_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_MONT_CTX_new'); + Result := BN_MONT_CTX_new(); +end; + +function Load_BN_mod_mul_montgomery(r: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; mont: PBN_MONT_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_mod_mul_montgomery := LoadLibCryptoFunction('BN_mod_mul_montgomery'); + if not assigned(BN_mod_mul_montgomery) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_mul_montgomery'); + Result := BN_mod_mul_montgomery(r,a,b,mont,ctx); +end; + +function Load_BN_to_montgomery(r: PBIGNUM; a: PBIGNUM; mont: PBN_MONT_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_to_montgomery := LoadLibCryptoFunction('BN_to_montgomery'); + if not assigned(BN_to_montgomery) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_to_montgomery'); + Result := BN_to_montgomery(r,a,mont,ctx); +end; + +function Load_BN_from_montgomery(r: PBIGNUM; a: PBIGNUM; mont: PBN_MONT_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_from_montgomery := LoadLibCryptoFunction('BN_from_montgomery'); + if not assigned(BN_from_montgomery) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_from_montgomery'); + Result := BN_from_montgomery(r,a,mont,ctx); +end; + +procedure Load_BN_MONT_CTX_free(mont: PBN_MONT_CTX); cdecl; +begin + BN_MONT_CTX_free := LoadLibCryptoFunction('BN_MONT_CTX_free'); + if not assigned(BN_MONT_CTX_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_MONT_CTX_free'); + BN_MONT_CTX_free(mont); +end; + +function Load_BN_MONT_CTX_set(mont: PBN_MONT_CTX; mod_: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_MONT_CTX_set := LoadLibCryptoFunction('BN_MONT_CTX_set'); + if not assigned(BN_MONT_CTX_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_MONT_CTX_set'); + Result := BN_MONT_CTX_set(mont,mod_,ctx); +end; + +function Load_BN_MONT_CTX_copy(to_: PBN_MONT_CTX; from: PBN_MONT_CTX): PBN_MONT_CTX; cdecl; +begin + BN_MONT_CTX_copy := LoadLibCryptoFunction('BN_MONT_CTX_copy'); + if not assigned(BN_MONT_CTX_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_MONT_CTX_copy'); + Result := BN_MONT_CTX_copy(to_,from); +end; + +function Load_BN_BLINDING_new(const A: PBIGNUM; const Ai: PBIGNUM; mod_: PBIGNUM): PBN_BLINDING; cdecl; +begin + BN_BLINDING_new := LoadLibCryptoFunction('BN_BLINDING_new'); + if not assigned(BN_BLINDING_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_BLINDING_new'); + Result := BN_BLINDING_new(A,Ai,mod_); +end; + +procedure Load_BN_BLINDING_free(b: PBN_BLINDING); cdecl; +begin + BN_BLINDING_free := LoadLibCryptoFunction('BN_BLINDING_free'); + if not assigned(BN_BLINDING_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_BLINDING_free'); + BN_BLINDING_free(b); +end; + +function Load_BN_BLINDING_update(b: PBN_BLINDING; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_BLINDING_update := LoadLibCryptoFunction('BN_BLINDING_update'); + if not assigned(BN_BLINDING_update) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_BLINDING_update'); + Result := BN_BLINDING_update(b,ctx); +end; + +function Load_BN_BLINDING_convert(n: PBIGNUM; b: PBN_BLINDING; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_BLINDING_convert := LoadLibCryptoFunction('BN_BLINDING_convert'); + if not assigned(BN_BLINDING_convert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_BLINDING_convert'); + Result := BN_BLINDING_convert(n,b,ctx); +end; + +function Load_BN_BLINDING_invert(n: PBIGNUM; b: PBN_BLINDING; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_BLINDING_invert := LoadLibCryptoFunction('BN_BLINDING_invert'); + if not assigned(BN_BLINDING_invert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_BLINDING_invert'); + Result := BN_BLINDING_invert(n,b,ctx); +end; + +function Load_BN_BLINDING_convert_ex(n: PBIGNUM; r: PBIGNUM; b: PBN_BLINDING; v4: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_BLINDING_convert_ex := LoadLibCryptoFunction('BN_BLINDING_convert_ex'); + if not assigned(BN_BLINDING_convert_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_BLINDING_convert_ex'); + Result := BN_BLINDING_convert_ex(n,r,b,v4); +end; + +function Load_BN_BLINDING_invert_ex(n: PBIGNUM; r: PBIGNUM; b: PBN_BLINDING; v2: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_BLINDING_invert_ex := LoadLibCryptoFunction('BN_BLINDING_invert_ex'); + if not assigned(BN_BLINDING_invert_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_BLINDING_invert_ex'); + Result := BN_BLINDING_invert_ex(n,r,b,v2); +end; + +function Load_BN_BLINDING_is_current_thread(b: PBN_BLINDING): TOpenSSL_C_INT; cdecl; +begin + BN_BLINDING_is_current_thread := LoadLibCryptoFunction('BN_BLINDING_is_current_thread'); + if not assigned(BN_BLINDING_is_current_thread) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_BLINDING_is_current_thread'); + Result := BN_BLINDING_is_current_thread(b); +end; + +procedure Load_BN_BLINDING_set_current_thread(b: PBN_BLINDING); cdecl; +begin + BN_BLINDING_set_current_thread := LoadLibCryptoFunction('BN_BLINDING_set_current_thread'); + if not assigned(BN_BLINDING_set_current_thread) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_BLINDING_set_current_thread'); + BN_BLINDING_set_current_thread(b); +end; + +function Load_BN_BLINDING_lock(b: PBN_BLINDING): TOpenSSL_C_INT; cdecl; +begin + BN_BLINDING_lock := LoadLibCryptoFunction('BN_BLINDING_lock'); + if not assigned(BN_BLINDING_lock) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_BLINDING_lock'); + Result := BN_BLINDING_lock(b); +end; + +function Load_BN_BLINDING_unlock(b: PBN_BLINDING): TOpenSSL_C_INT; cdecl; +begin + BN_BLINDING_unlock := LoadLibCryptoFunction('BN_BLINDING_unlock'); + if not assigned(BN_BLINDING_unlock) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_BLINDING_unlock'); + Result := BN_BLINDING_unlock(b); +end; + +function Load_BN_BLINDING_get_flags(v1: PBN_BLINDING): TOpenSSL_C_ULONG; cdecl; +begin + BN_BLINDING_get_flags := LoadLibCryptoFunction('BN_BLINDING_get_flags'); + if not assigned(BN_BLINDING_get_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_BLINDING_get_flags'); + Result := BN_BLINDING_get_flags(v1); +end; + +procedure Load_BN_BLINDING_set_flags(v1: PBN_BLINDING; v2: TOpenSSL_C_ULONG); cdecl; +begin + BN_BLINDING_set_flags := LoadLibCryptoFunction('BN_BLINDING_set_flags'); + if not assigned(BN_BLINDING_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_BLINDING_set_flags'); + BN_BLINDING_set_flags(v1,v2); +end; + +procedure Load_BN_RECP_CTX_free(recp: PBN_RECP_CTX); cdecl; +begin + BN_RECP_CTX_free := LoadLibCryptoFunction('BN_RECP_CTX_free'); + if not assigned(BN_RECP_CTX_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_RECP_CTX_free'); + BN_RECP_CTX_free(recp); +end; + +function Load_BN_RECP_CTX_set(recp: PBN_RECP_CTX; rdiv: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_RECP_CTX_set := LoadLibCryptoFunction('BN_RECP_CTX_set'); + if not assigned(BN_RECP_CTX_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_RECP_CTX_set'); + Result := BN_RECP_CTX_set(recp,rdiv,ctx); +end; + +function Load_BN_mod_mul_reciprocal(r: PBIGNUM; x: PBIGNUM; y: PBIGNUM; recp: PBN_RECP_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_mod_mul_reciprocal := LoadLibCryptoFunction('BN_mod_mul_reciprocal'); + if not assigned(BN_mod_mul_reciprocal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_mul_reciprocal'); + Result := BN_mod_mul_reciprocal(r,x,y,recp,ctx); +end; + +function Load_BN_mod_exp_recp(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_mod_exp_recp := LoadLibCryptoFunction('BN_mod_exp_recp'); + if not assigned(BN_mod_exp_recp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_mod_exp_recp'); + Result := BN_mod_exp_recp(r,a,p,m,ctx); +end; + +function Load_BN_div_recp(dv: PBIGNUM; rem: PBIGNUM; m: PBIGNUM; recp: PBN_RECP_CTX; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_div_recp := LoadLibCryptoFunction('BN_div_recp'); + if not assigned(BN_div_recp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_div_recp'); + Result := BN_div_recp(dv,rem,m,recp,ctx); +end; + +function Load_BN_GF2m_add(r: PBIGNUM; a: PBIGNUM; b: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_GF2m_add := LoadLibCryptoFunction('BN_GF2m_add'); + if not assigned(BN_GF2m_add) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_GF2m_add'); + Result := BN_GF2m_add(r,a,b); +end; + +function Load_BN_GF2m_mod(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + BN_GF2m_mod := LoadLibCryptoFunction('BN_GF2m_mod'); + if not assigned(BN_GF2m_mod) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_GF2m_mod'); + Result := BN_GF2m_mod(r,a,p); +end; + +function Load_BN_GF2m_mod_mul(r: PBIGNUM; a: PBIGNUM; b: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_GF2m_mod_mul := LoadLibCryptoFunction('BN_GF2m_mod_mul'); + if not assigned(BN_GF2m_mod_mul) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_GF2m_mod_mul'); + Result := BN_GF2m_mod_mul(r,a,b,p,ctx); +end; + +function Load_BN_GF2m_mod_sqr(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_GF2m_mod_sqr := LoadLibCryptoFunction('BN_GF2m_mod_sqr'); + if not assigned(BN_GF2m_mod_sqr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_GF2m_mod_sqr'); + Result := BN_GF2m_mod_sqr(r,a,p,ctx); +end; + +function Load_BN_GF2m_mod_inv(r: PBIGNUM; b: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_GF2m_mod_inv := LoadLibCryptoFunction('BN_GF2m_mod_inv'); + if not assigned(BN_GF2m_mod_inv) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_GF2m_mod_inv'); + Result := BN_GF2m_mod_inv(r,b,p,ctx); +end; + +function Load_BN_GF2m_mod_div(r: PBIGNUM; a: PBIGNUM; b: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_GF2m_mod_div := LoadLibCryptoFunction('BN_GF2m_mod_div'); + if not assigned(BN_GF2m_mod_div) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_GF2m_mod_div'); + Result := BN_GF2m_mod_div(r,a,b,p,ctx); +end; + +function Load_BN_GF2m_mod_exp(r: PBIGNUM; a: PBIGNUM; b: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_GF2m_mod_exp := LoadLibCryptoFunction('BN_GF2m_mod_exp'); + if not assigned(BN_GF2m_mod_exp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_GF2m_mod_exp'); + Result := BN_GF2m_mod_exp(r,a,b,p,ctx); +end; + +function Load_BN_GF2m_mod_sqrt(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_GF2m_mod_sqrt := LoadLibCryptoFunction('BN_GF2m_mod_sqrt'); + if not assigned(BN_GF2m_mod_sqrt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_GF2m_mod_sqrt'); + Result := BN_GF2m_mod_sqrt(r,a,p,ctx); +end; + +function Load_BN_GF2m_mod_solve_quad(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_GF2m_mod_solve_quad := LoadLibCryptoFunction('BN_GF2m_mod_solve_quad'); + if not assigned(BN_GF2m_mod_solve_quad) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_GF2m_mod_solve_quad'); + Result := BN_GF2m_mod_solve_quad(r,a,p,ctx); +end; + +function Load_BN_nist_mod_192(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_nist_mod_192 := LoadLibCryptoFunction('BN_nist_mod_192'); + if not assigned(BN_nist_mod_192) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_nist_mod_192'); + Result := BN_nist_mod_192(r,a,p,ctx); +end; + +function Load_BN_nist_mod_224(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_nist_mod_224 := LoadLibCryptoFunction('BN_nist_mod_224'); + if not assigned(BN_nist_mod_224) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_nist_mod_224'); + Result := BN_nist_mod_224(r,a,p,ctx); +end; + +function Load_BN_nist_mod_256(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_nist_mod_256 := LoadLibCryptoFunction('BN_nist_mod_256'); + if not assigned(BN_nist_mod_256) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_nist_mod_256'); + Result := BN_nist_mod_256(r,a,p,ctx); +end; + +function Load_BN_nist_mod_384(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_nist_mod_384 := LoadLibCryptoFunction('BN_nist_mod_384'); + if not assigned(BN_nist_mod_384) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_nist_mod_384'); + Result := BN_nist_mod_384(r,a,p,ctx); +end; + +function Load_BN_nist_mod_521(r: PBIGNUM; a: PBIGNUM; p: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_nist_mod_521 := LoadLibCryptoFunction('BN_nist_mod_521'); + if not assigned(BN_nist_mod_521) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_nist_mod_521'); + Result := BN_nist_mod_521(r,a,p,ctx); +end; + +function Load_BN_get0_nist_prime_192: PBIGNUM; cdecl; +begin + BN_get0_nist_prime_192 := LoadLibCryptoFunction('BN_get0_nist_prime_192'); + if not assigned(BN_get0_nist_prime_192) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_get0_nist_prime_192'); + Result := BN_get0_nist_prime_192(); +end; + +function Load_BN_get0_nist_prime_224: PBIGNUM; cdecl; +begin + BN_get0_nist_prime_224 := LoadLibCryptoFunction('BN_get0_nist_prime_224'); + if not assigned(BN_get0_nist_prime_224) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_get0_nist_prime_224'); + Result := BN_get0_nist_prime_224(); +end; + +function Load_BN_get0_nist_prime_256: PBIGNUM; cdecl; +begin + BN_get0_nist_prime_256 := LoadLibCryptoFunction('BN_get0_nist_prime_256'); + if not assigned(BN_get0_nist_prime_256) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_get0_nist_prime_256'); + Result := BN_get0_nist_prime_256(); +end; + +function Load_BN_get0_nist_prime_384: PBIGNUM; cdecl; +begin + BN_get0_nist_prime_384 := LoadLibCryptoFunction('BN_get0_nist_prime_384'); + if not assigned(BN_get0_nist_prime_384) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_get0_nist_prime_384'); + Result := BN_get0_nist_prime_384(); +end; + +function Load_BN_get0_nist_prime_521: PBIGNUM; cdecl; +begin + BN_get0_nist_prime_521 := LoadLibCryptoFunction('BN_get0_nist_prime_521'); + if not assigned(BN_get0_nist_prime_521) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_get0_nist_prime_521'); + Result := BN_get0_nist_prime_521(); +end; + +function Load_BN_generate_dsa_nonce(out_: PBIGNUM; range: PBIGNUM; priv: PBIGNUM; const message_: PByte; message_len: TOpenSSL_C_SIZET; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + BN_generate_dsa_nonce := LoadLibCryptoFunction('BN_generate_dsa_nonce'); + if not assigned(BN_generate_dsa_nonce) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_generate_dsa_nonce'); + Result := BN_generate_dsa_nonce(out_,range,priv,message_,message_len,ctx); +end; + +function Load_BN_get_rfc2409_prime_768(bn: PBIGNUM ): PBIGNUM; cdecl; +begin + BN_get_rfc2409_prime_768 := LoadLibCryptoFunction('BN_get_rfc2409_prime_768'); + if not assigned(BN_get_rfc2409_prime_768) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_get_rfc2409_prime_768'); + Result := BN_get_rfc2409_prime_768(bn); +end; + +function Load_BN_get_rfc2409_prime_1024(bn: PBIGNUM): PBIGNUM; cdecl; +begin + BN_get_rfc2409_prime_1024 := LoadLibCryptoFunction('BN_get_rfc2409_prime_1024'); + if not assigned(BN_get_rfc2409_prime_1024) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_get_rfc2409_prime_1024'); + Result := BN_get_rfc2409_prime_1024(bn); +end; + +function Load_BN_get_rfc3526_prime_1536(bn: PBIGNUM): PBIGNUM; cdecl; +begin + BN_get_rfc3526_prime_1536 := LoadLibCryptoFunction('BN_get_rfc3526_prime_1536'); + if not assigned(BN_get_rfc3526_prime_1536) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_get_rfc3526_prime_1536'); + Result := BN_get_rfc3526_prime_1536(bn); +end; + +function Load_BN_get_rfc3526_prime_2048(bn: PBIGNUM): PBIGNUM; cdecl; +begin + BN_get_rfc3526_prime_2048 := LoadLibCryptoFunction('BN_get_rfc3526_prime_2048'); + if not assigned(BN_get_rfc3526_prime_2048) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_get_rfc3526_prime_2048'); + Result := BN_get_rfc3526_prime_2048(bn); +end; + +function Load_BN_get_rfc3526_prime_3072(bn: PBIGNUM): PBIGNUM; cdecl; +begin + BN_get_rfc3526_prime_3072 := LoadLibCryptoFunction('BN_get_rfc3526_prime_3072'); + if not assigned(BN_get_rfc3526_prime_3072) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_get_rfc3526_prime_3072'); + Result := BN_get_rfc3526_prime_3072(bn); +end; + +function Load_BN_get_rfc3526_prime_4096(bn: PBIGNUM): PBIGNUM; cdecl; +begin + BN_get_rfc3526_prime_4096 := LoadLibCryptoFunction('BN_get_rfc3526_prime_4096'); + if not assigned(BN_get_rfc3526_prime_4096) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_get_rfc3526_prime_4096'); + Result := BN_get_rfc3526_prime_4096(bn); +end; + +function Load_BN_get_rfc3526_prime_6144(bn: PBIGNUM): PBIGNUM; cdecl; +begin + BN_get_rfc3526_prime_6144 := LoadLibCryptoFunction('BN_get_rfc3526_prime_6144'); + if not assigned(BN_get_rfc3526_prime_6144) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_get_rfc3526_prime_6144'); + Result := BN_get_rfc3526_prime_6144(bn); +end; + +function Load_BN_get_rfc3526_prime_8192(bn: PBIGNUM): PBIGNUM; cdecl; +begin + BN_get_rfc3526_prime_8192 := LoadLibCryptoFunction('BN_get_rfc3526_prime_8192'); + if not assigned(BN_get_rfc3526_prime_8192) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_get_rfc3526_prime_8192'); + Result := BN_get_rfc3526_prime_8192(bn); +end; + +function Load_BN_bntest_rand(rnd: PBIGNUM; bits: TOpenSSL_C_INT; top: TOpenSSL_C_INT; bottom: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BN_bntest_rand := LoadLibCryptoFunction('BN_bntest_rand'); + if not assigned(BN_bntest_rand) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BN_bntest_rand'); + Result := BN_bntest_rand(rnd,bits,top,bottom); +end; + + +procedure UnLoad; +begin + BN_set_flags := Load_BN_set_flags; + BN_get_flags := Load_BN_get_flags; + BN_with_flags := Load_BN_with_flags; + BN_GENCB_call := Load_BN_GENCB_call; + BN_GENCB_new := Load_BN_GENCB_new; + BN_GENCB_free := Load_BN_GENCB_free; + BN_GENCB_set_old := Load_BN_GENCB_set_old; + BN_GENCB_set := Load_BN_GENCB_set; + BN_GENCB_get_arg := Load_BN_GENCB_get_arg; + BN_abs_is_word := Load_BN_abs_is_word; + BN_is_zero := Load_BN_is_zero; + BN_is_one := Load_BN_is_one; + BN_is_word := Load_BN_is_word; + BN_is_odd := Load_BN_is_odd; + BN_zero_ex := Load_BN_zero_ex; + BN_value_one := Load_BN_value_one; + BN_options := Load_BN_options; + BN_CTX_new := Load_BN_CTX_new; + BN_CTX_secure_new := Load_BN_CTX_secure_new; + BN_CTX_free := Load_BN_CTX_free; + BN_CTX_start := Load_BN_CTX_start; + BN_CTX_get := Load_BN_CTX_get; + BN_CTX_end := Load_BN_CTX_end; + BN_rand := Load_BN_rand; + BN_priv_rand := Load_BN_priv_rand; + BN_rand_range := Load_BN_rand_range; + BN_priv_rand_range := Load_BN_priv_rand_range; + BN_pseudo_rand := Load_BN_pseudo_rand; + BN_pseudo_rand_range := Load_BN_pseudo_rand_range; + BN_num_bits := Load_BN_num_bits; + BN_num_bits_word := Load_BN_num_bits_word; + BN_security_bits := Load_BN_security_bits; + BN_new := Load_BN_new; + BN_secure_new := Load_BN_secure_new; + BN_clear_free := Load_BN_clear_free; + BN_copy := Load_BN_copy; + BN_swap := Load_BN_swap; + BN_bin2bn := Load_BN_bin2bn; + BN_bn2bin := Load_BN_bn2bin; + BN_bn2binpad := Load_BN_bn2binpad; + BN_lebin2bn := Load_BN_lebin2bn; + BN_bn2lebinpad := Load_BN_bn2lebinpad; + BN_mpi2bn := Load_BN_mpi2bn; + BN_bn2mpi := Load_BN_bn2mpi; + BN_sub := Load_BN_sub; + BN_usub := Load_BN_usub; + BN_uadd := Load_BN_uadd; + BN_add := Load_BN_add; + BN_mul := Load_BN_mul; + BN_sqr := Load_BN_sqr; + BN_set_negative := Load_BN_set_negative; + BN_is_negative := Load_BN_is_negative; + BN_div := Load_BN_div; + BN_nnmod := Load_BN_nnmod; + BN_mod_add := Load_BN_mod_add; + BN_mod_add_quick := Load_BN_mod_add_quick; + BN_mod_sub := Load_BN_mod_sub; + BN_mod_sub_quick := Load_BN_mod_sub_quick; + BN_mod_mul := Load_BN_mod_mul; + BN_mod_sqr := Load_BN_mod_sqr; + BN_mod_lshift1 := Load_BN_mod_lshift1; + BN_mod_lshift1_quick := Load_BN_mod_lshift1_quick; + BN_mod_lshift := Load_BN_mod_lshift; + BN_mod_lshift_quick := Load_BN_mod_lshift_quick; + BN_mod_word := Load_BN_mod_word; + BN_div_word := Load_BN_div_word; + BN_mul_word := Load_BN_mul_word; + BN_add_word := Load_BN_add_word; + BN_sub_word := Load_BN_sub_word; + BN_set_word := Load_BN_set_word; + BN_get_word := Load_BN_get_word; + BN_cmp := Load_BN_cmp; + BN_free := Load_BN_free; + BN_is_bit_set := Load_BN_is_bit_set; + BN_lshift := Load_BN_lshift; + BN_lshift1 := Load_BN_lshift1; + BN_exp := Load_BN_exp; + BN_mod_exp := Load_BN_mod_exp; + BN_mod_exp_mont := Load_BN_mod_exp_mont; + BN_mod_exp_mont_consttime := Load_BN_mod_exp_mont_consttime; + BN_mod_exp_mont_word := Load_BN_mod_exp_mont_word; + BN_mod_exp2_mont := Load_BN_mod_exp2_mont; + BN_mod_exp_simple := Load_BN_mod_exp_simple; + BN_mask_bits := Load_BN_mask_bits; + BN_print := Load_BN_print; + BN_reciprocal := Load_BN_reciprocal; + BN_rshift := Load_BN_rshift; + BN_rshift1 := Load_BN_rshift1; + BN_clear := Load_BN_clear; + BN_dup := Load_BN_dup; + BN_ucmp := Load_BN_ucmp; + BN_set_bit := Load_BN_set_bit; + BN_clear_bit := Load_BN_clear_bit; + BN_bn2hex := Load_BN_bn2hex; + BN_bn2dec := Load_BN_bn2dec; + BN_hex2bn := Load_BN_hex2bn; + BN_dec2bn := Load_BN_dec2bn; + BN_asc2bn := Load_BN_asc2bn; + BN_gcd := Load_BN_gcd; + BN_kronecker := Load_BN_kronecker; + BN_mod_inverse := Load_BN_mod_inverse; + BN_mod_sqrt := Load_BN_mod_sqrt; + BN_consttime_swap := Load_BN_consttime_swap; + BN_generate_prime_ex := Load_BN_generate_prime_ex; + BN_is_prime_ex := Load_BN_is_prime_ex; + BN_is_prime_fasttest_ex := Load_BN_is_prime_fasttest_ex; + BN_X931_generate_Xpq := Load_BN_X931_generate_Xpq; + BN_X931_derive_prime_ex := Load_BN_X931_derive_prime_ex; + BN_X931_generate_prime_ex := Load_BN_X931_generate_prime_ex; + BN_MONT_CTX_new := Load_BN_MONT_CTX_new; + BN_mod_mul_montgomery := Load_BN_mod_mul_montgomery; + BN_to_montgomery := Load_BN_to_montgomery; + BN_from_montgomery := Load_BN_from_montgomery; + BN_MONT_CTX_free := Load_BN_MONT_CTX_free; + BN_MONT_CTX_set := Load_BN_MONT_CTX_set; + BN_MONT_CTX_copy := Load_BN_MONT_CTX_copy; + BN_BLINDING_new := Load_BN_BLINDING_new; + BN_BLINDING_free := Load_BN_BLINDING_free; + BN_BLINDING_update := Load_BN_BLINDING_update; + BN_BLINDING_convert := Load_BN_BLINDING_convert; + BN_BLINDING_invert := Load_BN_BLINDING_invert; + BN_BLINDING_convert_ex := Load_BN_BLINDING_convert_ex; + BN_BLINDING_invert_ex := Load_BN_BLINDING_invert_ex; + BN_BLINDING_is_current_thread := Load_BN_BLINDING_is_current_thread; + BN_BLINDING_set_current_thread := Load_BN_BLINDING_set_current_thread; + BN_BLINDING_lock := Load_BN_BLINDING_lock; + BN_BLINDING_unlock := Load_BN_BLINDING_unlock; + BN_BLINDING_get_flags := Load_BN_BLINDING_get_flags; + BN_BLINDING_set_flags := Load_BN_BLINDING_set_flags; + BN_RECP_CTX_free := Load_BN_RECP_CTX_free; + BN_RECP_CTX_set := Load_BN_RECP_CTX_set; + BN_mod_mul_reciprocal := Load_BN_mod_mul_reciprocal; + BN_mod_exp_recp := Load_BN_mod_exp_recp; + BN_div_recp := Load_BN_div_recp; + BN_GF2m_add := Load_BN_GF2m_add; + BN_GF2m_mod := Load_BN_GF2m_mod; + BN_GF2m_mod_mul := Load_BN_GF2m_mod_mul; + BN_GF2m_mod_sqr := Load_BN_GF2m_mod_sqr; + BN_GF2m_mod_inv := Load_BN_GF2m_mod_inv; + BN_GF2m_mod_div := Load_BN_GF2m_mod_div; + BN_GF2m_mod_exp := Load_BN_GF2m_mod_exp; + BN_GF2m_mod_sqrt := Load_BN_GF2m_mod_sqrt; + BN_GF2m_mod_solve_quad := Load_BN_GF2m_mod_solve_quad; + BN_nist_mod_192 := Load_BN_nist_mod_192; + BN_nist_mod_224 := Load_BN_nist_mod_224; + BN_nist_mod_256 := Load_BN_nist_mod_256; + BN_nist_mod_384 := Load_BN_nist_mod_384; + BN_nist_mod_521 := Load_BN_nist_mod_521; + BN_get0_nist_prime_192 := Load_BN_get0_nist_prime_192; + BN_get0_nist_prime_224 := Load_BN_get0_nist_prime_224; + BN_get0_nist_prime_256 := Load_BN_get0_nist_prime_256; + BN_get0_nist_prime_384 := Load_BN_get0_nist_prime_384; + BN_get0_nist_prime_521 := Load_BN_get0_nist_prime_521; + BN_generate_dsa_nonce := Load_BN_generate_dsa_nonce; + BN_get_rfc2409_prime_768 := Load_BN_get_rfc2409_prime_768; + BN_get_rfc2409_prime_1024 := Load_BN_get_rfc2409_prime_1024; + BN_get_rfc3526_prime_1536 := Load_BN_get_rfc3526_prime_1536; + BN_get_rfc3526_prime_2048 := Load_BN_get_rfc3526_prime_2048; + BN_get_rfc3526_prime_3072 := Load_BN_get_rfc3526_prime_3072; + BN_get_rfc3526_prime_4096 := Load_BN_get_rfc3526_prime_4096; + BN_get_rfc3526_prime_6144 := Load_BN_get_rfc3526_prime_6144; + BN_get_rfc3526_prime_8192 := Load_BN_get_rfc3526_prime_8192; + BN_bntest_rand := Load_BN_bntest_rand; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_bnerr.pas b/src/opensslHdrs/IdOpenSSLHeaders_bnerr.pas new file mode 100644 index 0000000..3d97ab3 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_bnerr.pas @@ -0,0 +1,174 @@ +(* This unit was generated from the source file bnerr.h2pas +It should not be modified directly. All changes should be made to bnerr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_bnerr; + + +interface + +// Headers for OpenSSL 1.1.1 +// bnerr.h + + +uses + IdSSLOpenSSLAPI; + +const + (* + * BN function codes. + *) + BN_F_BNRAND = 127; + BN_F_BNRAND_RANGE = 138; + BN_F_BN_BLINDING_CONVERT_EX = 100; + BN_F_BN_BLINDING_CREATE_PARAM = 128; + BN_F_BN_BLINDING_INVERT_EX = 101; + BN_F_BN_BLINDING_NEW = 102; + BN_F_BN_BLINDING_UPDATE = 103; + BN_F_BN_BN2DEC = 104; + BN_F_BN_BN2HEX = 105; + BN_F_BN_COMPUTE_WNAF = 142; + BN_F_BN_CTX_GET = 116; + BN_F_BN_CTX_NEW = 106; + BN_F_BN_CTX_START = 129; + BN_F_BN_DIV = 107; + BN_F_BN_DIV_RECP = 130; + BN_F_BN_EXP = 123; + BN_F_BN_EXPAND_INTERNAL = 120; + BN_F_BN_GENCB_NEW = 143; + BN_F_BN_GENERATE_DSA_NONCE = 140; + BN_F_BN_GENERATE_PRIME_EX = 141; + BN_F_BN_GF2M_MOD = 131; + BN_F_BN_GF2M_MOD_EXP = 132; + BN_F_BN_GF2M_MOD_MUL = 133; + BN_F_BN_GF2M_MOD_SOLVE_QUAD = 134; + BN_F_BN_GF2M_MOD_SOLVE_QUAD_ARR = 135; + BN_F_BN_GF2M_MOD_SQR = 136; + BN_F_BN_GF2M_MOD_SQRT = 137; + BN_F_BN_LSHIFT = 145; + BN_F_BN_MOD_EXP2_MONT = 118; + BN_F_BN_MOD_EXP_MONT = 109; + BN_F_BN_MOD_EXP_MONT_CONSTTIME = 124; + BN_F_BN_MOD_EXP_MONT_WORD = 117; + BN_F_BN_MOD_EXP_RECP = 125; + BN_F_BN_MOD_EXP_SIMPLE = 126; + BN_F_BN_MOD_INVERSE = 110; + BN_F_BN_MOD_INVERSE_NO_BRANCH = 139; + BN_F_BN_MOD_LSHIFT_QUICK = 119; + BN_F_BN_MOD_SQRT = 121; + BN_F_BN_MONT_CTX_NEW = 149; + BN_F_BN_MPI2BN = 112; + BN_F_BN_NEW = 113; + BN_F_BN_POOL_GET = 147; + BN_F_BN_RAND = 114; + BN_F_BN_RAND_RANGE = 122; + BN_F_BN_RECP_CTX_NEW = 150; + BN_F_BN_RSHIFT = 146; + BN_F_BN_SET_WORDS = 144; + BN_F_BN_STACK_PUSH = 148; + BN_F_BN_USUB = 115; + + (* + * BN reason codes. + *) + BN_R_ARG2_LT_ARG3 = 100; + BN_R_BAD_RECIPROCAL = 101; + BN_R_BIGNUM_TOO_LONG = 114; + BN_R_BITS_TOO_SMALL = 118; + BN_R_CALLED_WITH_EVEN_MODULUS = 102; + BN_R_DIV_BY_ZERO = 103; + BN_R_ENCODING_ERROR = 104; + BN_R_EXPAND_ON_STATIC_BIGNUM_DATA = 105; + BN_R_INPUT_NOT_REDUCED = 110; + BN_R_INVALID_LENGTH = 106; + BN_R_INVALID_RANGE = 115; + BN_R_INVALID_SHIFT = 119; + BN_R_NOT_A_SQUARE = 111; + BN_R_NOT_INITIALIZED = 107; + BN_R_NO_INVERSE = 108; + BN_R_NO_SOLUTION = 116; + BN_R_PRIVATE_KEY_TOO_LARGE = 117; + BN_R_P_IS_NOT_PRIME = 112; + BN_R_TOO_MANY_ITERATIONS = 113; + BN_R_TOO_MANY_TEMPORARY_VARIABLES = 109; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_BN_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_BN_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_BN_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_BN_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_BN_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_BN_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_BN_strings := LoadLibCryptoFunction('ERR_load_BN_strings'); + if not assigned(ERR_load_BN_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_BN_strings'); + Result := ERR_load_BN_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_BN_strings := Load_ERR_load_BN_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_buffer.pas b/src/opensslHdrs/IdOpenSSLHeaders_buffer.pas new file mode 100644 index 0000000..93ec250 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_buffer.pas @@ -0,0 +1,173 @@ +(* This unit was generated from the source file buffer.h2pas +It should not be modified directly. All changes should be made to buffer.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_buffer; + + +interface + +// Headers for OpenSSL 1.1.1 +// buffer.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ; + +const + BUF_MEM_FLAG_SECURE = $01; + +type + buf_mem_st = record + length: TOpenSSL_C_SIZET; + data: PAnsiChar; + max: TOpenSSL_C_SIZET; + flags: TOpenSSL_C_ULONG; + end; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM BUF_MEM_new} +{$EXTERNALSYM BUF_MEM_new_ex} +{$EXTERNALSYM BUF_MEM_free} +{$EXTERNALSYM BUF_MEM_grow} +{$EXTERNALSYM BUF_MEM_grow_clean} +{$EXTERNALSYM BUF_reverse} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function BUF_MEM_new: PBUF_MEM; cdecl; external CLibCrypto; +function BUF_MEM_new_ex(flags: TOpenSSL_C_ULONG): PBUF_MEM; cdecl; external CLibCrypto; +procedure BUF_MEM_free(a: PBUF_MEM); cdecl; external CLibCrypto; +function BUF_MEM_grow(str: PBUF_MEM; len: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function BUF_MEM_grow_clean(str: PBUF_MEM; len: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +procedure BUF_reverse(out_: PByte; const in_: PByte; siz: TOpenSSL_C_SIZET); cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_BUF_MEM_new: PBUF_MEM; cdecl; +function Load_BUF_MEM_new_ex(flags: TOpenSSL_C_ULONG): PBUF_MEM; cdecl; +procedure Load_BUF_MEM_free(a: PBUF_MEM); cdecl; +function Load_BUF_MEM_grow(str: PBUF_MEM; len: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +function Load_BUF_MEM_grow_clean(str: PBUF_MEM; len: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +procedure Load_BUF_reverse(out_: PByte; const in_: PByte; siz: TOpenSSL_C_SIZET); cdecl; + +var + BUF_MEM_new: function : PBUF_MEM; cdecl = Load_BUF_MEM_new; + BUF_MEM_new_ex: function (flags: TOpenSSL_C_ULONG): PBUF_MEM; cdecl = Load_BUF_MEM_new_ex; + BUF_MEM_free: procedure (a: PBUF_MEM); cdecl = Load_BUF_MEM_free; + BUF_MEM_grow: function (str: PBUF_MEM; len: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl = Load_BUF_MEM_grow; + BUF_MEM_grow_clean: function (str: PBUF_MEM; len: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl = Load_BUF_MEM_grow_clean; + BUF_reverse: procedure (out_: PByte; const in_: PByte; siz: TOpenSSL_C_SIZET); cdecl = Load_BUF_reverse; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_BUF_MEM_new: PBUF_MEM; cdecl; +begin + BUF_MEM_new := LoadLibCryptoFunction('BUF_MEM_new'); + if not assigned(BUF_MEM_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BUF_MEM_new'); + Result := BUF_MEM_new(); +end; + +function Load_BUF_MEM_new_ex(flags: TOpenSSL_C_ULONG): PBUF_MEM; cdecl; +begin + BUF_MEM_new_ex := LoadLibCryptoFunction('BUF_MEM_new_ex'); + if not assigned(BUF_MEM_new_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BUF_MEM_new_ex'); + Result := BUF_MEM_new_ex(flags); +end; + +procedure Load_BUF_MEM_free(a: PBUF_MEM); cdecl; +begin + BUF_MEM_free := LoadLibCryptoFunction('BUF_MEM_free'); + if not assigned(BUF_MEM_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BUF_MEM_free'); + BUF_MEM_free(a); +end; + +function Load_BUF_MEM_grow(str: PBUF_MEM; len: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +begin + BUF_MEM_grow := LoadLibCryptoFunction('BUF_MEM_grow'); + if not assigned(BUF_MEM_grow) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BUF_MEM_grow'); + Result := BUF_MEM_grow(str,len); +end; + +function Load_BUF_MEM_grow_clean(str: PBUF_MEM; len: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +begin + BUF_MEM_grow_clean := LoadLibCryptoFunction('BUF_MEM_grow_clean'); + if not assigned(BUF_MEM_grow_clean) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BUF_MEM_grow_clean'); + Result := BUF_MEM_grow_clean(str,len); +end; + +procedure Load_BUF_reverse(out_: PByte; const in_: PByte; siz: TOpenSSL_C_SIZET); cdecl; +begin + BUF_reverse := LoadLibCryptoFunction('BUF_reverse'); + if not assigned(BUF_reverse) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BUF_reverse'); + BUF_reverse(out_,in_,siz); +end; + + +procedure UnLoad; +begin + BUF_MEM_new := Load_BUF_MEM_new; + BUF_MEM_new_ex := Load_BUF_MEM_new_ex; + BUF_MEM_free := Load_BUF_MEM_free; + BUF_MEM_grow := Load_BUF_MEM_grow; + BUF_MEM_grow_clean := Load_BUF_MEM_grow_clean; + BUF_reverse := Load_BUF_reverse; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_buffererr.pas b/src/opensslHdrs/IdOpenSSLHeaders_buffererr.pas new file mode 100644 index 0000000..635503f --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_buffererr.pas @@ -0,0 +1,104 @@ +(* This unit was generated from the source file buffererr.h2pas +It should not be modified directly. All changes should be made to buffererr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_buffererr; + + +interface + +// Headers for OpenSSL 1.1.1 +// buffererr.h + + +uses + IdSSLOpenSSLAPI; + +const +// BUF function codes. + BUF_F_BUF_MEM_GROW = 100; + BUF_F_BUF_MEM_GROW_CLEAN = 105; + BUF_F_BUF_MEM_NEW = 101; + +// BUF reason codes. + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_BUF_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_BUF_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_BUF_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_BUF_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_BUF_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_BUF_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_BUF_strings := LoadLibCryptoFunction('ERR_load_BUF_strings'); + if not assigned(ERR_load_BUF_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_BUF_strings'); + Result := ERR_load_BUF_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_BUF_strings := Load_ERR_load_BUF_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_camellia.pas b/src/opensslHdrs/IdOpenSSLHeaders_camellia.pas new file mode 100644 index 0000000..78f599f --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_camellia.pas @@ -0,0 +1,243 @@ +(* This unit was generated from the source file camellia.h2pas +It should not be modified directly. All changes should be made to camellia.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_camellia; + + +interface + +// Headers for OpenSSL 1.1.1 +// camellia.h + + +uses + IdSSLOpenSSLAPI; + +const + // Added '_CONST' to avoid name clashes + CAMELLIA_ENCRYPT_CONST = 1; + // Added '_CONST' to avoid name clashes + CAMELLIA_DECRYPT_CONST = 0; + + CAMELLIA_BLOCK_SIZE = 16; + CAMELLIA_TABLE_BYTE_LEN = 272; + CAMELLIA_TABLE_WORD_LEN = CAMELLIA_TABLE_BYTE_LEN div 4; + +type + KEY_TABLE_TYPE = array[0 .. CAMELLIA_TABLE_WORD_LEN - 1] of TOpenSSL_C_UINT; + + camellia_key_st_u = record + case Integer of + 0: (d: TOpenSSL_C_DOUBLE); + 1: (rd_key: KEY_TABLE_TYPE); + end; + + camellia_key_st = record + u: camellia_key_st_u; + grand_rounds: TOpenSSL_C_INT; + end; + + CAMELLIA_KEY = camellia_key_st; + PCAMELLIA_KEY = ^CAMELLIA_KEY; + + TCamellia_ctr128_encrypt_ivec = array[0 .. CAMELLIA_TABLE_WORD_LEN - 1] of Byte; + TCamellia_ctr128_encrypt_ecount_buf = array[0 .. CAMELLIA_TABLE_WORD_LEN - 1] of Byte; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM Camellia_set_key} +{$EXTERNALSYM Camellia_encrypt} +{$EXTERNALSYM Camellia_decrypt} +{$EXTERNALSYM Camellia_ecb_encrypt} +{$EXTERNALSYM Camellia_cbc_encrypt} +{$EXTERNALSYM Camellia_cfb128_encrypt} +{$EXTERNALSYM Camellia_cfb1_encrypt} +{$EXTERNALSYM Camellia_cfb8_encrypt} +{$EXTERNALSYM Camellia_ofb128_encrypt} +{$EXTERNALSYM Camellia_ctr128_encrypt} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function Camellia_set_key(const userKey: PByte; const bits: TOpenSSL_C_INT; key: PCAMELLIA_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure Camellia_encrypt(const in_: PByte; const out_: PByte; const key: PCAMELLIA_KEY); cdecl; external CLibCrypto; +procedure Camellia_decrypt(const in_: PByte; const out_: PByte; const key: PCAMELLIA_KEY); cdecl; external CLibCrypto; +procedure Camellia_ecb_encrypt( const in_: PByte; const out_: PByte; const key: PCAMELLIA_KEY; const enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure Camellia_cbc_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; const enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure Camellia_cfb128_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure Camellia_cfb1_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure Camellia_cfb8_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure Camellia_ofb128_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; num: POpenSSL_C_INT); cdecl; external CLibCrypto; +procedure Camellia_ctr128_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: TCamellia_ctr128_encrypt_ivec; ecount_buf: TCamellia_ctr128_encrypt_ecount_buf; num: POpenSSL_C_INT); cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_Camellia_set_key(const userKey: PByte; const bits: TOpenSSL_C_INT; key: PCAMELLIA_KEY): TOpenSSL_C_INT; cdecl; +procedure Load_Camellia_encrypt(const in_: PByte; const out_: PByte; const key: PCAMELLIA_KEY); cdecl; +procedure Load_Camellia_decrypt(const in_: PByte; const out_: PByte; const key: PCAMELLIA_KEY); cdecl; +procedure Load_Camellia_ecb_encrypt( const in_: PByte; const out_: PByte; const key: PCAMELLIA_KEY; const enc: TOpenSSL_C_INT); cdecl; +procedure Load_Camellia_cbc_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; const enc: TOpenSSL_C_INT); cdecl; +procedure Load_Camellia_cfb128_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; +procedure Load_Camellia_cfb1_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; +procedure Load_Camellia_cfb8_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; +procedure Load_Camellia_ofb128_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; num: POpenSSL_C_INT); cdecl; +procedure Load_Camellia_ctr128_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: TCamellia_ctr128_encrypt_ivec; ecount_buf: TCamellia_ctr128_encrypt_ecount_buf; num: POpenSSL_C_INT); cdecl; + +var + Camellia_set_key: function (const userKey: PByte; const bits: TOpenSSL_C_INT; key: PCAMELLIA_KEY): TOpenSSL_C_INT; cdecl = Load_Camellia_set_key; + Camellia_encrypt: procedure (const in_: PByte; const out_: PByte; const key: PCAMELLIA_KEY); cdecl = Load_Camellia_encrypt; + Camellia_decrypt: procedure (const in_: PByte; const out_: PByte; const key: PCAMELLIA_KEY); cdecl = Load_Camellia_decrypt; + Camellia_ecb_encrypt: procedure ( const in_: PByte; const out_: PByte; const key: PCAMELLIA_KEY; const enc: TOpenSSL_C_INT); cdecl = Load_Camellia_ecb_encrypt; + Camellia_cbc_encrypt: procedure ( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; const enc: TOpenSSL_C_INT); cdecl = Load_Camellia_cbc_encrypt; + Camellia_cfb128_encrypt: procedure ( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl = Load_Camellia_cfb128_encrypt; + Camellia_cfb1_encrypt: procedure ( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl = Load_Camellia_cfb1_encrypt; + Camellia_cfb8_encrypt: procedure ( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl = Load_Camellia_cfb8_encrypt; + Camellia_ofb128_encrypt: procedure ( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; num: POpenSSL_C_INT); cdecl = Load_Camellia_ofb128_encrypt; + Camellia_ctr128_encrypt: procedure ( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: TCamellia_ctr128_encrypt_ivec; ecount_buf: TCamellia_ctr128_encrypt_ecount_buf; num: POpenSSL_C_INT); cdecl = Load_Camellia_ctr128_encrypt; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_Camellia_set_key(const userKey: PByte; const bits: TOpenSSL_C_INT; key: PCAMELLIA_KEY): TOpenSSL_C_INT; cdecl; +begin + Camellia_set_key := LoadLibCryptoFunction('Camellia_set_key'); + if not assigned(Camellia_set_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('Camellia_set_key'); + Result := Camellia_set_key(userKey,bits,key); +end; + +procedure Load_Camellia_encrypt(const in_: PByte; const out_: PByte; const key: PCAMELLIA_KEY); cdecl; +begin + Camellia_encrypt := LoadLibCryptoFunction('Camellia_encrypt'); + if not assigned(Camellia_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('Camellia_encrypt'); + Camellia_encrypt(in_,out_,key); +end; + +procedure Load_Camellia_decrypt(const in_: PByte; const out_: PByte; const key: PCAMELLIA_KEY); cdecl; +begin + Camellia_decrypt := LoadLibCryptoFunction('Camellia_decrypt'); + if not assigned(Camellia_decrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('Camellia_decrypt'); + Camellia_decrypt(in_,out_,key); +end; + +procedure Load_Camellia_ecb_encrypt( const in_: PByte; const out_: PByte; const key: PCAMELLIA_KEY; const enc: TOpenSSL_C_INT); cdecl; +begin + Camellia_ecb_encrypt := LoadLibCryptoFunction('Camellia_ecb_encrypt'); + if not assigned(Camellia_ecb_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('Camellia_ecb_encrypt'); + Camellia_ecb_encrypt(in_,out_,key,enc); +end; + +procedure Load_Camellia_cbc_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; const enc: TOpenSSL_C_INT); cdecl; +begin + Camellia_cbc_encrypt := LoadLibCryptoFunction('Camellia_cbc_encrypt'); + if not assigned(Camellia_cbc_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('Camellia_cbc_encrypt'); + Camellia_cbc_encrypt(in_,out_,length,key,ivec,enc); +end; + +procedure Load_Camellia_cfb128_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; +begin + Camellia_cfb128_encrypt := LoadLibCryptoFunction('Camellia_cfb128_encrypt'); + if not assigned(Camellia_cfb128_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('Camellia_cfb128_encrypt'); + Camellia_cfb128_encrypt(in_,out_,length,key,ivec,num,enc); +end; + +procedure Load_Camellia_cfb1_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; +begin + Camellia_cfb1_encrypt := LoadLibCryptoFunction('Camellia_cfb1_encrypt'); + if not assigned(Camellia_cfb1_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('Camellia_cfb1_encrypt'); + Camellia_cfb1_encrypt(in_,out_,length,key,ivec,num,enc); +end; + +procedure Load_Camellia_cfb8_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; num: POpenSSL_C_INT; const enc: TOpenSSL_C_INT); cdecl; +begin + Camellia_cfb8_encrypt := LoadLibCryptoFunction('Camellia_cfb8_encrypt'); + if not assigned(Camellia_cfb8_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('Camellia_cfb8_encrypt'); + Camellia_cfb8_encrypt(in_,out_,length,key,ivec,num,enc); +end; + +procedure Load_Camellia_ofb128_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: PByte; num: POpenSSL_C_INT); cdecl; +begin + Camellia_ofb128_encrypt := LoadLibCryptoFunction('Camellia_ofb128_encrypt'); + if not assigned(Camellia_ofb128_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('Camellia_ofb128_encrypt'); + Camellia_ofb128_encrypt(in_,out_,length,key,ivec,num); +end; + +procedure Load_Camellia_ctr128_encrypt( const in_: PByte; const out_: PByte; length: TOpenSSL_C_SIZET; const key: PCAMELLIA_KEY; ivec: TCamellia_ctr128_encrypt_ivec; ecount_buf: TCamellia_ctr128_encrypt_ecount_buf; num: POpenSSL_C_INT); cdecl; +begin + Camellia_ctr128_encrypt := LoadLibCryptoFunction('Camellia_ctr128_encrypt'); + if not assigned(Camellia_ctr128_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('Camellia_ctr128_encrypt'); + Camellia_ctr128_encrypt(in_,out_,length,key,ivec,ecount_buf,num); +end; + + +procedure UnLoad; +begin + Camellia_set_key := Load_Camellia_set_key; + Camellia_encrypt := Load_Camellia_encrypt; + Camellia_decrypt := Load_Camellia_decrypt; + Camellia_ecb_encrypt := Load_Camellia_ecb_encrypt; + Camellia_cbc_encrypt := Load_Camellia_cbc_encrypt; + Camellia_cfb128_encrypt := Load_Camellia_cfb128_encrypt; + Camellia_cfb1_encrypt := Load_Camellia_cfb1_encrypt; + Camellia_cfb8_encrypt := Load_Camellia_cfb8_encrypt; + Camellia_ofb128_encrypt := Load_Camellia_ofb128_encrypt; + Camellia_ctr128_encrypt := Load_Camellia_ctr128_encrypt; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_cast.pas b/src/opensslHdrs/IdOpenSSLHeaders_cast.pas new file mode 100644 index 0000000..49d7491 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_cast.pas @@ -0,0 +1,192 @@ +(* This unit was generated from the source file cast.h2pas +It should not be modified directly. All changes should be made to cast.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_cast; + + +interface + +// Headers for OpenSSL 1.1.1 +// cast.h + + +uses + IdSSLOpenSSLAPI; + +const + CAST_ENCRYPT_CONST = 1; + CAST_DECRYPT_CONST = 0; + CAST_BLOCK = 8; + CAST_KEY_LENGTH = 16; + +type + CAST_LONG = type TOpenSSL_C_UINT; + PCAST_LONG = ^CAST_LONG; + + cast_key_st = record + data: array of CAST_LONG; + short_key: TOpenSSL_C_INT; //* Use reduced rounds for short key */ + end; + + CAST_KEY = cast_key_st; + PCAST_KEY = ^CAST_KEY; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM CAST_set_key} +{$EXTERNALSYM CAST_ecb_encrypt} +{$EXTERNALSYM CAST_encrypt} +{$EXTERNALSYM CAST_decrypt} +{$EXTERNALSYM CAST_cbc_encrypt} +{$EXTERNALSYM CAST_cfb64_encrypt} +{$EXTERNALSYM CAST_ofb64_encrypt} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +procedure CAST_set_key(key: PCast_Key; len: TOpenSSL_C_INT; const data: PByte); cdecl; external CLibCrypto; +procedure CAST_ecb_encrypt(const in_: PByte; out_: PByte; const key: PCast_Key; enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure CAST_encrypt(data: PCAST_LONG; const key: PCast_Key); cdecl; external CLibCrypto; +procedure CAST_decrypt(data: PCAST_LONG; const key: PCast_Key); cdecl; external CLibCrypto; +procedure CAST_cbc_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; const ks: PCast_Key; iv: PByte; enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure CAST_cfb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; const schedule: PCast_Key; ivec: PByte; num: POpenSSL_C_INT; enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure CAST_ofb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; const schedule: PCast_Key; ivec: PByte; num: POpenSSL_C_INT); cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +procedure Load_CAST_set_key(key: PCast_Key; len: TOpenSSL_C_INT; const data: PByte); cdecl; +procedure Load_CAST_ecb_encrypt(const in_: PByte; out_: PByte; const key: PCast_Key; enc: TOpenSSL_C_INT); cdecl; +procedure Load_CAST_encrypt(data: PCAST_LONG; const key: PCast_Key); cdecl; +procedure Load_CAST_decrypt(data: PCAST_LONG; const key: PCast_Key); cdecl; +procedure Load_CAST_cbc_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; const ks: PCast_Key; iv: PByte; enc: TOpenSSL_C_INT); cdecl; +procedure Load_CAST_cfb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; const schedule: PCast_Key; ivec: PByte; num: POpenSSL_C_INT; enc: TOpenSSL_C_INT); cdecl; +procedure Load_CAST_ofb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; const schedule: PCast_Key; ivec: PByte; num: POpenSSL_C_INT); cdecl; + +var + CAST_set_key: procedure (key: PCast_Key; len: TOpenSSL_C_INT; const data: PByte); cdecl = Load_CAST_set_key; + CAST_ecb_encrypt: procedure (const in_: PByte; out_: PByte; const key: PCast_Key; enc: TOpenSSL_C_INT); cdecl = Load_CAST_ecb_encrypt; + CAST_encrypt: procedure (data: PCAST_LONG; const key: PCast_Key); cdecl = Load_CAST_encrypt; + CAST_decrypt: procedure (data: PCAST_LONG; const key: PCast_Key); cdecl = Load_CAST_decrypt; + CAST_cbc_encrypt: procedure (const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; const ks: PCast_Key; iv: PByte; enc: TOpenSSL_C_INT); cdecl = Load_CAST_cbc_encrypt; + CAST_cfb64_encrypt: procedure (const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; const schedule: PCast_Key; ivec: PByte; num: POpenSSL_C_INT; enc: TOpenSSL_C_INT); cdecl = Load_CAST_cfb64_encrypt; + CAST_ofb64_encrypt: procedure (const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; const schedule: PCast_Key; ivec: PByte; num: POpenSSL_C_INT); cdecl = Load_CAST_ofb64_encrypt; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_CAST_set_key(key: PCast_Key; len: TOpenSSL_C_INT; const data: PByte); cdecl; +begin + CAST_set_key := LoadLibCryptoFunction('CAST_set_key'); + if not assigned(CAST_set_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CAST_set_key'); + CAST_set_key(key,len,data); +end; + +procedure Load_CAST_ecb_encrypt(const in_: PByte; out_: PByte; const key: PCast_Key; enc: TOpenSSL_C_INT); cdecl; +begin + CAST_ecb_encrypt := LoadLibCryptoFunction('CAST_ecb_encrypt'); + if not assigned(CAST_ecb_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CAST_ecb_encrypt'); + CAST_ecb_encrypt(in_,out_,key,enc); +end; + +procedure Load_CAST_encrypt(data: PCAST_LONG; const key: PCast_Key); cdecl; +begin + CAST_encrypt := LoadLibCryptoFunction('CAST_encrypt'); + if not assigned(CAST_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CAST_encrypt'); + CAST_encrypt(data,key); +end; + +procedure Load_CAST_decrypt(data: PCAST_LONG; const key: PCast_Key); cdecl; +begin + CAST_decrypt := LoadLibCryptoFunction('CAST_decrypt'); + if not assigned(CAST_decrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CAST_decrypt'); + CAST_decrypt(data,key); +end; + +procedure Load_CAST_cbc_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; const ks: PCast_Key; iv: PByte; enc: TOpenSSL_C_INT); cdecl; +begin + CAST_cbc_encrypt := LoadLibCryptoFunction('CAST_cbc_encrypt'); + if not assigned(CAST_cbc_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CAST_cbc_encrypt'); + CAST_cbc_encrypt(in_,out_,length,ks,iv,enc); +end; + +procedure Load_CAST_cfb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; const schedule: PCast_Key; ivec: PByte; num: POpenSSL_C_INT; enc: TOpenSSL_C_INT); cdecl; +begin + CAST_cfb64_encrypt := LoadLibCryptoFunction('CAST_cfb64_encrypt'); + if not assigned(CAST_cfb64_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CAST_cfb64_encrypt'); + CAST_cfb64_encrypt(in_,out_,length,schedule,ivec,num,enc); +end; + +procedure Load_CAST_ofb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; const schedule: PCast_Key; ivec: PByte; num: POpenSSL_C_INT); cdecl; +begin + CAST_ofb64_encrypt := LoadLibCryptoFunction('CAST_ofb64_encrypt'); + if not assigned(CAST_ofb64_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CAST_ofb64_encrypt'); + CAST_ofb64_encrypt(in_,out_,length,schedule,ivec,num); +end; + + +procedure UnLoad; +begin + CAST_set_key := Load_CAST_set_key; + CAST_ecb_encrypt := Load_CAST_ecb_encrypt; + CAST_encrypt := Load_CAST_encrypt; + CAST_decrypt := Load_CAST_decrypt; + CAST_cbc_encrypt := Load_CAST_cbc_encrypt; + CAST_cfb64_encrypt := Load_CAST_cfb64_encrypt; + CAST_ofb64_encrypt := Load_CAST_ofb64_encrypt; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_cmac.pas b/src/opensslHdrs/IdOpenSSLHeaders_cmac.pas new file mode 100644 index 0000000..a31a6a5 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_cmac.pas @@ -0,0 +1,209 @@ +(* This unit was generated from the source file cmac.h2pas +It should not be modified directly. All changes should be made to cmac.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_cmac; + + +interface + +// Headers for OpenSSL 1.1.1 +// cmac.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_evp, + IdOpenSSLHeaders_ossl_typ; + +//* Opaque */ + +type + CMAC_CTX_st = type Pointer; + CMAC_CTX = CMAC_CTX_st; + PCMAC_CTX = ^CMAC_CTX; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM CMAC_CTX_new} +{$EXTERNALSYM CMAC_CTX_cleanup} +{$EXTERNALSYM CMAC_CTX_free} +{$EXTERNALSYM CMAC_CTX_get0_cipher_ctx} +{$EXTERNALSYM CMAC_CTX_copy} +{$EXTERNALSYM CMAC_Init} +{$EXTERNALSYM CMAC_Update} +{$EXTERNALSYM CMAC_Final} +{$EXTERNALSYM CMAC_resume} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function CMAC_CTX_new: PCMAC_CTX; cdecl; external CLibCrypto; +procedure CMAC_CTX_cleanup(ctx: PCMAC_CTX); cdecl; external CLibCrypto; +procedure CMAC_CTX_free(ctx: PCMAC_CTX); cdecl; external CLibCrypto; +function CMAC_CTX_get0_cipher_ctx(ctx: PCMAC_CTX): PEVP_CIPHER_CTX; cdecl; external CLibCrypto; +function CMAC_CTX_copy(out_: PCMAC_CTX; const in_: PCMAC_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMAC_Init(ctx: PCMAC_CTX; const key: Pointer; keylen: TOpenSSL_C_SIZET; const cipher: PEVP_Cipher; impl: PENGINe): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMAC_Update(ctx: PCMAC_CTX; const data: Pointer; dlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMAC_Final(ctx: PCMAC_CTX; out_: PByte; poutlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMAC_resume(ctx: PCMAC_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_CMAC_CTX_new: PCMAC_CTX; cdecl; +procedure Load_CMAC_CTX_cleanup(ctx: PCMAC_CTX); cdecl; +procedure Load_CMAC_CTX_free(ctx: PCMAC_CTX); cdecl; +function Load_CMAC_CTX_get0_cipher_ctx(ctx: PCMAC_CTX): PEVP_CIPHER_CTX; cdecl; +function Load_CMAC_CTX_copy(out_: PCMAC_CTX; const in_: PCMAC_CTX): TOpenSSL_C_INT; cdecl; +function Load_CMAC_Init(ctx: PCMAC_CTX; const key: Pointer; keylen: TOpenSSL_C_SIZET; const cipher: PEVP_Cipher; impl: PENGINe): TOpenSSL_C_INT; cdecl; +function Load_CMAC_Update(ctx: PCMAC_CTX; const data: Pointer; dlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_CMAC_Final(ctx: PCMAC_CTX; out_: PByte; poutlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_CMAC_resume(ctx: PCMAC_CTX): TOpenSSL_C_INT; cdecl; + +var + CMAC_CTX_new: function : PCMAC_CTX; cdecl = Load_CMAC_CTX_new; + CMAC_CTX_cleanup: procedure (ctx: PCMAC_CTX); cdecl = Load_CMAC_CTX_cleanup; + CMAC_CTX_free: procedure (ctx: PCMAC_CTX); cdecl = Load_CMAC_CTX_free; + CMAC_CTX_get0_cipher_ctx: function (ctx: PCMAC_CTX): PEVP_CIPHER_CTX; cdecl = Load_CMAC_CTX_get0_cipher_ctx; + CMAC_CTX_copy: function (out_: PCMAC_CTX; const in_: PCMAC_CTX): TOpenSSL_C_INT; cdecl = Load_CMAC_CTX_copy; + CMAC_Init: function (ctx: PCMAC_CTX; const key: Pointer; keylen: TOpenSSL_C_SIZET; const cipher: PEVP_Cipher; impl: PENGINe): TOpenSSL_C_INT; cdecl = Load_CMAC_Init; + CMAC_Update: function (ctx: PCMAC_CTX; const data: Pointer; dlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_CMAC_Update; + CMAC_Final: function (ctx: PCMAC_CTX; out_: PByte; poutlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_CMAC_Final; + CMAC_resume: function (ctx: PCMAC_CTX): TOpenSSL_C_INT; cdecl = Load_CMAC_resume; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_CMAC_CTX_new: PCMAC_CTX; cdecl; +begin + CMAC_CTX_new := LoadLibCryptoFunction('CMAC_CTX_new'); + if not assigned(CMAC_CTX_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMAC_CTX_new'); + Result := CMAC_CTX_new(); +end; + +procedure Load_CMAC_CTX_cleanup(ctx: PCMAC_CTX); cdecl; +begin + CMAC_CTX_cleanup := LoadLibCryptoFunction('CMAC_CTX_cleanup'); + if not assigned(CMAC_CTX_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMAC_CTX_cleanup'); + CMAC_CTX_cleanup(ctx); +end; + +procedure Load_CMAC_CTX_free(ctx: PCMAC_CTX); cdecl; +begin + CMAC_CTX_free := LoadLibCryptoFunction('CMAC_CTX_free'); + if not assigned(CMAC_CTX_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMAC_CTX_free'); + CMAC_CTX_free(ctx); +end; + +function Load_CMAC_CTX_get0_cipher_ctx(ctx: PCMAC_CTX): PEVP_CIPHER_CTX; cdecl; +begin + CMAC_CTX_get0_cipher_ctx := LoadLibCryptoFunction('CMAC_CTX_get0_cipher_ctx'); + if not assigned(CMAC_CTX_get0_cipher_ctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMAC_CTX_get0_cipher_ctx'); + Result := CMAC_CTX_get0_cipher_ctx(ctx); +end; + +function Load_CMAC_CTX_copy(out_: PCMAC_CTX; const in_: PCMAC_CTX): TOpenSSL_C_INT; cdecl; +begin + CMAC_CTX_copy := LoadLibCryptoFunction('CMAC_CTX_copy'); + if not assigned(CMAC_CTX_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMAC_CTX_copy'); + Result := CMAC_CTX_copy(out_,in_); +end; + +function Load_CMAC_Init(ctx: PCMAC_CTX; const key: Pointer; keylen: TOpenSSL_C_SIZET; const cipher: PEVP_Cipher; impl: PENGINe): TOpenSSL_C_INT; cdecl; +begin + CMAC_Init := LoadLibCryptoFunction('CMAC_Init'); + if not assigned(CMAC_Init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMAC_Init'); + Result := CMAC_Init(ctx,key,keylen,cipher,impl); +end; + +function Load_CMAC_Update(ctx: PCMAC_CTX; const data: Pointer; dlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + CMAC_Update := LoadLibCryptoFunction('CMAC_Update'); + if not assigned(CMAC_Update) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMAC_Update'); + Result := CMAC_Update(ctx,data,dlen); +end; + +function Load_CMAC_Final(ctx: PCMAC_CTX; out_: PByte; poutlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + CMAC_Final := LoadLibCryptoFunction('CMAC_Final'); + if not assigned(CMAC_Final) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMAC_Final'); + Result := CMAC_Final(ctx,out_,poutlen); +end; + +function Load_CMAC_resume(ctx: PCMAC_CTX): TOpenSSL_C_INT; cdecl; +begin + CMAC_resume := LoadLibCryptoFunction('CMAC_resume'); + if not assigned(CMAC_resume) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMAC_resume'); + Result := CMAC_resume(ctx); +end; + + +procedure UnLoad; +begin + CMAC_CTX_new := Load_CMAC_CTX_new; + CMAC_CTX_cleanup := Load_CMAC_CTX_cleanup; + CMAC_CTX_free := Load_CMAC_CTX_free; + CMAC_CTX_get0_cipher_ctx := Load_CMAC_CTX_get0_cipher_ctx; + CMAC_CTX_copy := Load_CMAC_CTX_copy; + CMAC_Init := Load_CMAC_Init; + CMAC_Update := Load_CMAC_Update; + CMAC_Final := Load_CMAC_Final; + CMAC_resume := Load_CMAC_resume; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_cms.pas b/src/opensslHdrs/IdOpenSSLHeaders_cms.pas new file mode 100644 index 0000000..4f23850 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_cms.pas @@ -0,0 +1,1392 @@ +(* This unit was generated from the source file cms.h2pas +It should not be modified directly. All changes should be made to cms.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_cms; + + +interface + +// Headers for OpenSSL 1.1.1 +// cms.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_x509; + +type + CMS_ContentInfo_st = type Pointer; + CMS_ContentInfo = CMS_ContentInfo_st; + PCMS_ContentInfo = ^CMS_ContentInfo; + PPCMS_ContentInfo = ^PCMS_ContentInfo; + + CMS_SignerInfo_st = type Pointer; + CMS_SignerInfo = CMS_SignerInfo_st; + PCMS_SignerInfo = ^CMS_SignerInfo; + + CMS_CertificateChoices_st = type Pointer; + CMS_CertificateChoices = CMS_CertificateChoices_st; + PCMS_CertificateChoices = ^CMS_CertificateChoices; + + CMS_RevocationInfoChoice_st = type Pointer; + CMS_RevocationInfoChoice = CMS_RevocationInfoChoice_st; + PCMS_RevocationInfoChoice = ^CMS_RevocationInfoChoice; + + CMS_RecipientInfo_st = type Pointer; + CMS_RecipientInfo = CMS_RecipientInfo_st; + PCMS_RecipientInfo = ^CMS_RecipientInfo; + PPCMS_RecipientInfo = ^PCMS_RecipientInfo; + + CMS_ReceiptRequest_st = type Pointer; + CMS_ReceiptRequest = CMS_ReceiptRequest_st; + PCMS_ReceiptRequest = ^CMS_ReceiptRequest; + PPCMS_ReceiptRequest = ^PCMS_ReceiptRequest; + + CMS_Receipt_st = type Pointer; + CMS_Receipt = CMS_Receipt_st; + PCMS_Receipt = ^CMS_Receipt; + + CMS_RecipientEncryptedKey_st = type Pointer; + CMS_RecipientEncryptedKey = CMS_RecipientEncryptedKey_st; + PCMS_RecipientEncryptedKey = ^CMS_RecipientEncryptedKey; + + CMS_OtherKeyAttribute_st = type Pointer; + CMS_OtherKeyAttribute = CMS_OtherKeyAttribute_st; + PCMS_OtherKeyAttribute = ^CMS_OtherKeyAttribute; + PPCMS_OtherKeyAttribute = ^PCMS_OtherKeyAttribute; + +//DEFINE_STACK_OF(CMS_SignerInfo) +//DEFINE_STACK_OF(CMS_RecipientEncryptedKey) +//DEFINE_STACK_OF(CMS_RecipientInfo) +//DEFINE_STACK_OF(CMS_RevocationInfoChoice) +//DECLARE_ASN1_FUNCTIONS(CMS_ContentInfo) +//DECLARE_ASN1_FUNCTIONS(CMS_ReceiptRequest) +//DECLARE_ASN1_PRINT_FUNCTION(CMS_ContentInfo) + +const + CMS_SIGNERINFO_ISSUER_SERIAL = 0; + CMS_SIGNERINFO_KEYIDENTIFIER = 1; + + CMS_RECIPINFO_NONE = -1; + CMS_RECIPINFO_TRANS = 0; + CMS_RECIPINFO_AGREE = 1; + CMS_RECIPINFO_KEK = 2; + CMS_RECIPINFO_PASS = 3; + CMS_RECIPINFO_OTHER = 4; + +// S/MIME related flags / + + CMS_TEXT = $1; + CMS_NOCERTS = $2; + CMS_NO_CONTENT_VERIFY = $4; + CMS_NO_ATTR_VERIFY = $8; + CMS_NOSIGS = (CMS_NO_CONTENT_VERIFY or CMS_NO_ATTR_VERIFY); + CMS_NOINTERN = $10; + CMS_NO_SIGNER_CERT_VERIFY = $20; + CMS_NOVERIFY = $20; + CMS_DETACHED = $40; + CMS_BINARY = $80; + CMS_NOATTR = $100; + CMS_NOSMIMECAP = $200; + CMS_NOOLDMIMETYPE = $400; + CMS_CRLFEOL = $800; + CMS_STREAM_CONST = $1000; + CMS_NOCRL = $2000; + CMS_PARTIAL = $4000; + CMS_REUSE_DIGEST = $8000; + CMS_USE_KEYID = $10000; + CMS_DEBUG_DECRYPT = $20000; + CMS_KEY_PARAM = $40000; + CMS_ASCIICRLF = $80000; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM CMS_get0_type} +{$EXTERNALSYM CMS_dataInit} +{$EXTERNALSYM CMS_dataFinal} +{$EXTERNALSYM CMS_get0_content} +{$EXTERNALSYM CMS_is_detached} +{$EXTERNALSYM CMS_set_detached} +{$EXTERNALSYM CMS_stream} +{$EXTERNALSYM d2i_CMS_bio} +{$EXTERNALSYM i2d_CMS_bio} +{$EXTERNALSYM BIO_new_CMS} +{$EXTERNALSYM i2d_CMS_bio_stream} +{$EXTERNALSYM PEM_write_bio_CMS_stream} +{$EXTERNALSYM SMIME_read_CMS} +{$EXTERNALSYM SMIME_write_CMS} +{$EXTERNALSYM CMS_final} +{$EXTERNALSYM CMS_data} +{$EXTERNALSYM CMS_data_create} +{$EXTERNALSYM CMS_digest_verify} +{$EXTERNALSYM CMS_digest_create} +{$EXTERNALSYM CMS_EncryptedData_decrypt} +{$EXTERNALSYM CMS_EncryptedData_encrypt} +{$EXTERNALSYM CMS_EncryptedData_set1_key} +{$EXTERNALSYM CMS_decrypt} +{$EXTERNALSYM CMS_decrypt_set1_pkey} +{$EXTERNALSYM CMS_decrypt_set1_key} +{$EXTERNALSYM CMS_decrypt_set1_password} +{$EXTERNALSYM CMS_RecipientInfo_type} +{$EXTERNALSYM CMS_RecipientInfo_get0_pkey_ctx} +{$EXTERNALSYM CMS_EnvelopedData_create} +{$EXTERNALSYM CMS_add1_recipient_cert} +{$EXTERNALSYM CMS_RecipientInfo_set0_pkey} +{$EXTERNALSYM CMS_RecipientInfo_ktri_cert_cmp} +{$EXTERNALSYM CMS_RecipientInfo_ktri_get0_algs} +{$EXTERNALSYM CMS_RecipientInfo_ktri_get0_signer_id} +{$EXTERNALSYM CMS_add0_recipient_key} +{$EXTERNALSYM CMS_RecipientInfo_kekri_get0_id} +{$EXTERNALSYM CMS_RecipientInfo_set0_key} +{$EXTERNALSYM CMS_RecipientInfo_kekri_id_cmp} +{$EXTERNALSYM CMS_RecipientInfo_set0_password} +{$EXTERNALSYM CMS_add0_recipient_password} +{$EXTERNALSYM CMS_RecipientInfo_decrypt} +{$EXTERNALSYM CMS_RecipientInfo_encrypt} +{$EXTERNALSYM CMS_uncompress} +{$EXTERNALSYM CMS_compress} +{$EXTERNALSYM CMS_set1_eContentType} +{$EXTERNALSYM CMS_get0_eContentType} +{$EXTERNALSYM CMS_add0_CertificateChoices} +{$EXTERNALSYM CMS_add0_cert} +{$EXTERNALSYM CMS_add1_cert} +{$EXTERNALSYM CMS_add0_RevocationInfoChoice} +{$EXTERNALSYM CMS_add0_crl} +{$EXTERNALSYM CMS_add1_crl} +{$EXTERNALSYM CMS_SignedData_init} +{$EXTERNALSYM CMS_add1_signer} +{$EXTERNALSYM CMS_SignerInfo_get0_pkey_ctx} +{$EXTERNALSYM CMS_SignerInfo_get0_md_ctx} +{$EXTERNALSYM CMS_SignerInfo_set1_signer_cert} +{$EXTERNALSYM CMS_SignerInfo_get0_signer_id} +{$EXTERNALSYM CMS_SignerInfo_cert_cmp} +{$EXTERNALSYM CMS_SignerInfo_get0_algs} +{$EXTERNALSYM CMS_SignerInfo_get0_signature} +{$EXTERNALSYM CMS_SignerInfo_sign} +{$EXTERNALSYM CMS_SignerInfo_verify} +{$EXTERNALSYM CMS_SignerInfo_verify_content} +{$EXTERNALSYM CMS_signed_get_attr_count} +{$EXTERNALSYM CMS_signed_get_attr_by_NID} +{$EXTERNALSYM CMS_signed_get_attr_by_OBJ} +{$EXTERNALSYM CMS_signed_get_attr} +{$EXTERNALSYM CMS_signed_delete_attr} +{$EXTERNALSYM CMS_signed_add1_attr} +{$EXTERNALSYM CMS_signed_add1_attr_by_OBJ} +{$EXTERNALSYM CMS_signed_add1_attr_by_NID} +{$EXTERNALSYM CMS_signed_add1_attr_by_txt} +{$EXTERNALSYM CMS_signed_get0_data_by_OBJ} +{$EXTERNALSYM CMS_unsigned_get_attr_count} +{$EXTERNALSYM CMS_unsigned_get_attr_by_NID} +{$EXTERNALSYM CMS_unsigned_get_attr_by_OBJ} +{$EXTERNALSYM CMS_unsigned_get_attr} +{$EXTERNALSYM CMS_unsigned_delete_attr} +{$EXTERNALSYM CMS_unsigned_add1_attr} +{$EXTERNALSYM CMS_unsigned_add1_attr_by_OBJ} +{$EXTERNALSYM CMS_unsigned_add1_attr_by_NID} +{$EXTERNALSYM CMS_unsigned_add1_attr_by_txt} +{$EXTERNALSYM CMS_unsigned_get0_data_by_OBJ} +{$EXTERNALSYM CMS_get1_ReceiptRequest} +{$EXTERNALSYM CMS_add1_ReceiptRequest} +{$EXTERNALSYM CMS_RecipientInfo_kari_get0_orig_id} +{$EXTERNALSYM CMS_RecipientInfo_kari_orig_id_cmp} +{$EXTERNALSYM CMS_RecipientEncryptedKey_get0_id} +{$EXTERNALSYM CMS_RecipientEncryptedKey_cert_cmp} +{$EXTERNALSYM CMS_RecipientInfo_kari_set0_pkey} +{$EXTERNALSYM CMS_RecipientInfo_kari_get0_ctx} +{$EXTERNALSYM CMS_RecipientInfo_kari_decrypt} +{$EXTERNALSYM CMS_SharedInfo_encode} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function CMS_get0_type(const cms: PCMS_ContentInfo): PASN1_OBJECT; cdecl; external CLibCrypto; +function CMS_dataInit(cms: PCMS_ContentInfo; icont: PBIO): PBIO; cdecl; external CLibCrypto; +function CMS_dataFinal(cms: PCMS_ContentInfo; bio: PBIO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_get0_content(cms: PCMS_ContentInfo): PPASN1_OCTET_STRING; cdecl; external CLibCrypto; +function CMS_is_detached(cms: PCMS_ContentInfo): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_set_detached(cms: PCMS_ContentInfo; detached: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_stream(cms: PCMS_ContentInfo; boundary: PPPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_CMS_bio(bp: PBIO; cms: PPCMS_ContentInfo): PCMS_ContentInfo; cdecl; external CLibCrypto; +function i2d_CMS_bio(bp: PBIO; cms: PCMS_ContentInfo): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_new_CMS(out_: PBIO; cms: PCMS_ContentInfo): PBIO; cdecl; external CLibCrypto; +function i2d_CMS_bio_stream(out_: PBIO; cms: PCMS_ContentInfo; in_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_write_bio_CMS_stream(out_: PBIO; cms: PCMS_ContentInfo; in_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SMIME_read_CMS(bio: PBIO; bcont: PPBIO): PCMS_ContentInfo; cdecl; external CLibCrypto; +function SMIME_write_CMS(bio: PBIO; cms: PCMS_ContentInfo; data: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_final(cms: PCMS_ContentInfo; data: PBIO; dcont: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_data(cms: PCMS_ContentInfo; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_data_create(in_: PBIO; flags: TOpenSSL_C_UINT): PCMS_ContentInfo; cdecl; external CLibCrypto; +function CMS_digest_verify(cms: PCMS_ContentInfo; dcont: PBIO; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_digest_create(in_: PBIO; const md: PEVP_MD; flags: TOpenSSL_C_UINT): PCMS_ContentInfo; cdecl; external CLibCrypto; +function CMS_EncryptedData_decrypt(cms: PCMS_ContentInfo; const key: PByte; keylen: TOpenSSL_C_SIZET; dcont: PBIO; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_EncryptedData_encrypt(in_: PBIO; const cipher: PEVP_CIPHER; const key: PByte; keylen: TOpenSSL_C_SIZET; flags: TOpenSSL_C_UINT): PCMS_ContentInfo; cdecl; external CLibCrypto; +function CMS_EncryptedData_set1_key(cms: PCMS_ContentInfo; const ciph: PEVP_CIPHER; const key: PByte; keylen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_decrypt(cms: PCMS_ContentInfo; pkey: PEVP_PKEY; cert: PX509; dcont: PBIO; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_decrypt_set1_pkey(cms: PCMS_ContentInfo; pk: PEVP_PKEY; cert: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_decrypt_set1_key(cms: PCMS_ContentInfo; key: PByte; keylen: TOpenSSL_C_SIZET; const id: PByte; idlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_decrypt_set1_password(cms: PCMS_ContentInfo; pass: PByte; passlen: ossl_ssize_t): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_RecipientInfo_type(ri: PCMS_RecipientInfo): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_RecipientInfo_get0_pkey_ctx(ri: PCMS_RecipientInfo): PEVP_PKEY_CTX; cdecl; external CLibCrypto; +function CMS_EnvelopedData_create(const cipher: PEVP_CIPHER): PCMS_ContentInfo; cdecl; external CLibCrypto; +function CMS_add1_recipient_cert(cms: PCMS_ContentInfo; recip: PX509; flags: TOpenSSL_C_UINT): PCMS_RecipientInfo; cdecl; external CLibCrypto; +function CMS_RecipientInfo_set0_pkey(ri: PCMS_RecipientInfo; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_RecipientInfo_ktri_cert_cmp(ri: PCMS_RecipientInfo; cert: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_RecipientInfo_ktri_get0_algs(ri: PCMS_RecipientInfo; pk: PPEVP_PKEY; recip: PPX509; palg: PPX509_ALGOR): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_RecipientInfo_ktri_get0_signer_id(ri: PPCMS_RecipientInfo; keyid: PPASN1_OCTET_STRING; issuer: PPX509_NAME; sno: PPASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_add0_recipient_key(cms: PCMS_ContentInfo; nid: TOpenSSL_C_INT; key: PByte; keylen: TOpenSSL_C_SIZET; id: PByte; idlen: TOpenSSL_C_SIZET; date: PASN1_GENERALIZEDTIME; otherTypeId: PASN1_OBJECT; otherType: ASN1_TYPE): PCMS_RecipientInfo; cdecl; external CLibCrypto; +function CMS_RecipientInfo_kekri_get0_id(ri: PCMS_RecipientInfo; palg: PPX509_ALGOR; pid: PPASN1_OCTET_STRING; pdate: PPASN1_GENERALIZEDTIME; potherid: PPASN1_OBJECT; pothertype: PASN1_TYPE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_RecipientInfo_set0_key(ri: PCMS_RecipientInfo; key: PByte; keylen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_RecipientInfo_kekri_id_cmp(ri: PCMS_RecipientInfo; const id: PByte; idlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_RecipientInfo_set0_password(ri: PCMS_RecipientInfo; pass: PByte; passlen: ossl_ssize_t): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_add0_recipient_password(cms: PCMS_ContentInfo; iter: TOpenSSL_C_INT; wrap_nid: TOpenSSL_C_INT; pbe_nid: TOpenSSL_C_INT; pass: PByte; passlen: ossl_ssize_t; const kekciph: PEVP_CIPHER): PCMS_RecipientInfo; cdecl; external CLibCrypto; +function CMS_RecipientInfo_decrypt(cms: PCMS_ContentInfo; ri: PCMS_RecipientInfo): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_RecipientInfo_encrypt(cms: PCMS_ContentInfo; ri: PCMS_RecipientInfo): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_uncompress(cms: PCMS_ContentInfo; dcont: PBIO; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_compress(in_: PBIO; comp_nid: TOpenSSL_C_INT; flags: TOpenSSL_C_UINT): PCMS_ContentInfo; cdecl; external CLibCrypto; +function CMS_set1_eContentType(cms: CMS_ContentInfo; const oit: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_get0_eContentType(cms: PCMS_ContentInfo): PASN1_OBJECT; cdecl; external CLibCrypto; +function CMS_add0_CertificateChoices(cms: PCMS_ContentInfo): PCMS_CertificateChoices; cdecl; external CLibCrypto; +function CMS_add0_cert(cms: PCMS_ContentInfo; cert: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_add1_cert(cms: PCMS_ContentInfo; cert: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_add0_RevocationInfoChoice(cms: PCMS_ContentInfo): PCMS_RevocationInfoChoice; cdecl; external CLibCrypto; +function CMS_add0_crl(cms: PCMS_ContentInfo; crl: PX509_CRL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_add1_crl(cms: PCMS_ContentInfo; crl: PX509_CRL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_SignedData_init(cms: PCMS_ContentInfo): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_add1_signer(cms: PCMS_ContentInfo; signer: PX509; pk: PEVP_PKEY; const md: PEVP_MD; flags: TOpenSSL_C_UINT): PCMS_SignerInfo; cdecl; external CLibCrypto; +function CMS_SignerInfo_get0_pkey_ctx(si: PCMS_SignerInfo): PEVP_PKEY_CTX; cdecl; external CLibCrypto; +function CMS_SignerInfo_get0_md_ctx(si: PCMS_SignerInfo): PEVP_MD_CTX; cdecl; external CLibCrypto; +procedure CMS_SignerInfo_set1_signer_cert(si: PCMS_SignerInfo; signer: PX509); cdecl; external CLibCrypto; +function CMS_SignerInfo_get0_signer_id(si: PCMS_SignerInfo; keyid: PPASN1_OCTET_STRING; issuer: PPX509_NAME; sno: PPASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_SignerInfo_cert_cmp(si: PCMS_SignerInfo; cert: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure CMS_SignerInfo_get0_algs(si: PCMS_SignerInfo; pk: PPEVP_PKEY; signer: PPX509; pdig: PPX509_ALGOR; psig: PPX509_ALGOR); cdecl; external CLibCrypto; +function CMS_SignerInfo_get0_signature(si: PCMS_SignerInfo): PASN1_OCTET_STRING; cdecl; external CLibCrypto; +function CMS_SignerInfo_sign(si: PCMS_SignerInfo): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_SignerInfo_verify(si: PCMS_SignerInfo): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_SignerInfo_verify_content(si: PCMS_SignerInfo; chain: PBIO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_signed_get_attr_count(const si: PCMS_SignerInfo): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_signed_get_attr_by_NID(const si: PCMS_SignerInfo; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_signed_get_attr_by_OBJ(const si: PCMS_SignerInfo; const obj: ASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_signed_get_attr(const si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; external CLibCrypto; +function CMS_signed_delete_attr(const si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; external CLibCrypto; +function CMS_signed_add1_attr(si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_signed_add1_attr_by_OBJ(si: PCMS_SignerInfo; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_signed_add1_attr_by_NID(si: PCMS_SignerInfo; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_signed_add1_attr_by_txt(si: PCMS_SignerInfo; const attrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_signed_get0_data_by_OBJ(si: PCMS_SignerInfo; const oid: PASN1_OBJECT; lastpos: TOpenSSL_C_INT; type_: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function CMS_unsigned_get_attr_count(const si: PCMS_SignerInfo): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_unsigned_get_attr_by_NID(const si: PCMS_SignerInfo; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_unsigned_get_attr_by_OBJ(const si: PCMS_SignerInfo; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_unsigned_get_attr(const si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; external CLibCrypto; +function CMS_unsigned_delete_attr(si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; external CLibCrypto; +function CMS_unsigned_add1_attr(si: PCMS_SignerInfo; attr: PX509_ATTRIBUTE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_unsigned_add1_attr_by_OBJ(si: PCMS_SignerInfo; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_unsigned_add1_attr_by_NID(si: PCMS_SignerInfo; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_unsigned_add1_attr_by_txt(si: PCMS_SignerInfo; const attrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_unsigned_get0_data_by_OBJ(si: PCMS_SignerInfo; oid: PASN1_OBJECT; lastpos: TOpenSSL_C_INT; type_: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function CMS_get1_ReceiptRequest(si: PCMS_SignerInfo; prr: PPCMS_ReceiptRequest): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_add1_ReceiptRequest(si: PCMS_SignerInfo; rr: PCMS_ReceiptRequest): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_RecipientInfo_kari_get0_orig_id(ri: PCMS_RecipientInfo; pubalg: PPX509_ALGOR; pubkey: PASN1_BIT_STRING; keyid: PPASN1_OCTET_STRING; issuer: PPX509_NAME; sno: PPASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_RecipientInfo_kari_orig_id_cmp(ri: PCMS_RecipientInfo; cert: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_RecipientEncryptedKey_get0_id(rek: PCMS_RecipientEncryptedKey; keyid: PPASN1_OCTET_STRING; tm: PPASN1_GENERALIZEDTIME; other: PPCMS_OtherKeyAttribute; issuer: PPX509_NAME; sno: PPASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_RecipientEncryptedKey_cert_cmp(rek: PCMS_RecipientEncryptedKey; cert: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_RecipientInfo_kari_set0_pkey(ri: PCMS_RecipientInfo; pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_RecipientInfo_kari_get0_ctx(ri: PCMS_RecipientInfo): PEVP_CIPHER_CTX; cdecl; external CLibCrypto; +function CMS_RecipientInfo_kari_decrypt(cms: PCMS_ContentInfo; ri: PCMS_RecipientInfo; rek: PCMS_RecipientEncryptedKey): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CMS_SharedInfo_encode(pder: PPByte; kekalg: PX509_ALGOR; ukm: PASN1_OCTET_STRING; keylen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_CMS_get0_type(const cms: PCMS_ContentInfo): PASN1_OBJECT; cdecl; +function Load_CMS_dataInit(cms: PCMS_ContentInfo; icont: PBIO): PBIO; cdecl; +function Load_CMS_dataFinal(cms: PCMS_ContentInfo; bio: PBIO): TOpenSSL_C_INT; cdecl; +function Load_CMS_get0_content(cms: PCMS_ContentInfo): PPASN1_OCTET_STRING; cdecl; +function Load_CMS_is_detached(cms: PCMS_ContentInfo): TOpenSSL_C_INT; cdecl; +function Load_CMS_set_detached(cms: PCMS_ContentInfo; detached: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_CMS_stream(cms: PCMS_ContentInfo; boundary: PPPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_CMS_bio(bp: PBIO; cms: PPCMS_ContentInfo): PCMS_ContentInfo; cdecl; +function Load_i2d_CMS_bio(bp: PBIO; cms: PCMS_ContentInfo): TOpenSSL_C_INT; cdecl; +function Load_BIO_new_CMS(out_: PBIO; cms: PCMS_ContentInfo): PBIO; cdecl; +function Load_i2d_CMS_bio_stream(out_: PBIO; cms: PCMS_ContentInfo; in_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PEM_write_bio_CMS_stream(out_: PBIO; cms: PCMS_ContentInfo; in_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SMIME_read_CMS(bio: PBIO; bcont: PPBIO): PCMS_ContentInfo; cdecl; +function Load_SMIME_write_CMS(bio: PBIO; cms: PCMS_ContentInfo; data: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_CMS_final(cms: PCMS_ContentInfo; data: PBIO; dcont: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_CMS_data(cms: PCMS_ContentInfo; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_CMS_data_create(in_: PBIO; flags: TOpenSSL_C_UINT): PCMS_ContentInfo; cdecl; +function Load_CMS_digest_verify(cms: PCMS_ContentInfo; dcont: PBIO; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_CMS_digest_create(in_: PBIO; const md: PEVP_MD; flags: TOpenSSL_C_UINT): PCMS_ContentInfo; cdecl; +function Load_CMS_EncryptedData_decrypt(cms: PCMS_ContentInfo; const key: PByte; keylen: TOpenSSL_C_SIZET; dcont: PBIO; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_CMS_EncryptedData_encrypt(in_: PBIO; const cipher: PEVP_CIPHER; const key: PByte; keylen: TOpenSSL_C_SIZET; flags: TOpenSSL_C_UINT): PCMS_ContentInfo; cdecl; +function Load_CMS_EncryptedData_set1_key(cms: PCMS_ContentInfo; const ciph: PEVP_CIPHER; const key: PByte; keylen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_CMS_decrypt(cms: PCMS_ContentInfo; pkey: PEVP_PKEY; cert: PX509; dcont: PBIO; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_CMS_decrypt_set1_pkey(cms: PCMS_ContentInfo; pk: PEVP_PKEY; cert: PX509): TOpenSSL_C_INT; cdecl; +function Load_CMS_decrypt_set1_key(cms: PCMS_ContentInfo; key: PByte; keylen: TOpenSSL_C_SIZET; const id: PByte; idlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_CMS_decrypt_set1_password(cms: PCMS_ContentInfo; pass: PByte; passlen: ossl_ssize_t): TOpenSSL_C_INT; cdecl; +function Load_CMS_RecipientInfo_type(ri: PCMS_RecipientInfo): TOpenSSL_C_INT; cdecl; +function Load_CMS_RecipientInfo_get0_pkey_ctx(ri: PCMS_RecipientInfo): PEVP_PKEY_CTX; cdecl; +function Load_CMS_EnvelopedData_create(const cipher: PEVP_CIPHER): PCMS_ContentInfo; cdecl; +function Load_CMS_add1_recipient_cert(cms: PCMS_ContentInfo; recip: PX509; flags: TOpenSSL_C_UINT): PCMS_RecipientInfo; cdecl; +function Load_CMS_RecipientInfo_set0_pkey(ri: PCMS_RecipientInfo; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_CMS_RecipientInfo_ktri_cert_cmp(ri: PCMS_RecipientInfo; cert: PX509): TOpenSSL_C_INT; cdecl; +function Load_CMS_RecipientInfo_ktri_get0_algs(ri: PCMS_RecipientInfo; pk: PPEVP_PKEY; recip: PPX509; palg: PPX509_ALGOR): TOpenSSL_C_INT; cdecl; +function Load_CMS_RecipientInfo_ktri_get0_signer_id(ri: PPCMS_RecipientInfo; keyid: PPASN1_OCTET_STRING; issuer: PPX509_NAME; sno: PPASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_CMS_add0_recipient_key(cms: PCMS_ContentInfo; nid: TOpenSSL_C_INT; key: PByte; keylen: TOpenSSL_C_SIZET; id: PByte; idlen: TOpenSSL_C_SIZET; date: PASN1_GENERALIZEDTIME; otherTypeId: PASN1_OBJECT; otherType: ASN1_TYPE): PCMS_RecipientInfo; cdecl; +function Load_CMS_RecipientInfo_kekri_get0_id(ri: PCMS_RecipientInfo; palg: PPX509_ALGOR; pid: PPASN1_OCTET_STRING; pdate: PPASN1_GENERALIZEDTIME; potherid: PPASN1_OBJECT; pothertype: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +function Load_CMS_RecipientInfo_set0_key(ri: PCMS_RecipientInfo; key: PByte; keylen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_CMS_RecipientInfo_kekri_id_cmp(ri: PCMS_RecipientInfo; const id: PByte; idlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_CMS_RecipientInfo_set0_password(ri: PCMS_RecipientInfo; pass: PByte; passlen: ossl_ssize_t): TOpenSSL_C_INT; cdecl; +function Load_CMS_add0_recipient_password(cms: PCMS_ContentInfo; iter: TOpenSSL_C_INT; wrap_nid: TOpenSSL_C_INT; pbe_nid: TOpenSSL_C_INT; pass: PByte; passlen: ossl_ssize_t; const kekciph: PEVP_CIPHER): PCMS_RecipientInfo; cdecl; +function Load_CMS_RecipientInfo_decrypt(cms: PCMS_ContentInfo; ri: PCMS_RecipientInfo): TOpenSSL_C_INT; cdecl; +function Load_CMS_RecipientInfo_encrypt(cms: PCMS_ContentInfo; ri: PCMS_RecipientInfo): TOpenSSL_C_INT; cdecl; +function Load_CMS_uncompress(cms: PCMS_ContentInfo; dcont: PBIO; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_CMS_compress(in_: PBIO; comp_nid: TOpenSSL_C_INT; flags: TOpenSSL_C_UINT): PCMS_ContentInfo; cdecl; +function Load_CMS_set1_eContentType(cms: CMS_ContentInfo; const oit: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_CMS_get0_eContentType(cms: PCMS_ContentInfo): PASN1_OBJECT; cdecl; +function Load_CMS_add0_CertificateChoices(cms: PCMS_ContentInfo): PCMS_CertificateChoices; cdecl; +function Load_CMS_add0_cert(cms: PCMS_ContentInfo; cert: PX509): TOpenSSL_C_INT; cdecl; +function Load_CMS_add1_cert(cms: PCMS_ContentInfo; cert: PX509): TOpenSSL_C_INT; cdecl; +function Load_CMS_add0_RevocationInfoChoice(cms: PCMS_ContentInfo): PCMS_RevocationInfoChoice; cdecl; +function Load_CMS_add0_crl(cms: PCMS_ContentInfo; crl: PX509_CRL): TOpenSSL_C_INT; cdecl; +function Load_CMS_add1_crl(cms: PCMS_ContentInfo; crl: PX509_CRL): TOpenSSL_C_INT; cdecl; +function Load_CMS_SignedData_init(cms: PCMS_ContentInfo): TOpenSSL_C_INT; cdecl; +function Load_CMS_add1_signer(cms: PCMS_ContentInfo; signer: PX509; pk: PEVP_PKEY; const md: PEVP_MD; flags: TOpenSSL_C_UINT): PCMS_SignerInfo; cdecl; +function Load_CMS_SignerInfo_get0_pkey_ctx(si: PCMS_SignerInfo): PEVP_PKEY_CTX; cdecl; +function Load_CMS_SignerInfo_get0_md_ctx(si: PCMS_SignerInfo): PEVP_MD_CTX; cdecl; +procedure Load_CMS_SignerInfo_set1_signer_cert(si: PCMS_SignerInfo; signer: PX509); cdecl; +function Load_CMS_SignerInfo_get0_signer_id(si: PCMS_SignerInfo; keyid: PPASN1_OCTET_STRING; issuer: PPX509_NAME; sno: PPASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_CMS_SignerInfo_cert_cmp(si: PCMS_SignerInfo; cert: PX509): TOpenSSL_C_INT; cdecl; +procedure Load_CMS_SignerInfo_get0_algs(si: PCMS_SignerInfo; pk: PPEVP_PKEY; signer: PPX509; pdig: PPX509_ALGOR; psig: PPX509_ALGOR); cdecl; +function Load_CMS_SignerInfo_get0_signature(si: PCMS_SignerInfo): PASN1_OCTET_STRING; cdecl; +function Load_CMS_SignerInfo_sign(si: PCMS_SignerInfo): TOpenSSL_C_INT; cdecl; +function Load_CMS_SignerInfo_verify(si: PCMS_SignerInfo): TOpenSSL_C_INT; cdecl; +function Load_CMS_SignerInfo_verify_content(si: PCMS_SignerInfo; chain: PBIO): TOpenSSL_C_INT; cdecl; +function Load_CMS_signed_get_attr_count(const si: PCMS_SignerInfo): TOpenSSL_C_INT; cdecl; +function Load_CMS_signed_get_attr_by_NID(const si: PCMS_SignerInfo; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_CMS_signed_get_attr_by_OBJ(const si: PCMS_SignerInfo; const obj: ASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_CMS_signed_get_attr(const si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +function Load_CMS_signed_delete_attr(const si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +function Load_CMS_signed_add1_attr(si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_CMS_signed_add1_attr_by_OBJ(si: PCMS_SignerInfo; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_CMS_signed_add1_attr_by_NID(si: PCMS_SignerInfo; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_CMS_signed_add1_attr_by_txt(si: PCMS_SignerInfo; const attrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_CMS_signed_get0_data_by_OBJ(si: PCMS_SignerInfo; const oid: PASN1_OBJECT; lastpos: TOpenSSL_C_INT; type_: TOpenSSL_C_INT): Pointer; cdecl; +function Load_CMS_unsigned_get_attr_count(const si: PCMS_SignerInfo): TOpenSSL_C_INT; cdecl; +function Load_CMS_unsigned_get_attr_by_NID(const si: PCMS_SignerInfo; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_CMS_unsigned_get_attr_by_OBJ(const si: PCMS_SignerInfo; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_CMS_unsigned_get_attr(const si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +function Load_CMS_unsigned_delete_attr(si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +function Load_CMS_unsigned_add1_attr(si: PCMS_SignerInfo; attr: PX509_ATTRIBUTE): TOpenSSL_C_INT; cdecl; +function Load_CMS_unsigned_add1_attr_by_OBJ(si: PCMS_SignerInfo; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_CMS_unsigned_add1_attr_by_NID(si: PCMS_SignerInfo; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_CMS_unsigned_add1_attr_by_txt(si: PCMS_SignerInfo; const attrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_CMS_unsigned_get0_data_by_OBJ(si: PCMS_SignerInfo; oid: PASN1_OBJECT; lastpos: TOpenSSL_C_INT; type_: TOpenSSL_C_INT): Pointer; cdecl; +function Load_CMS_get1_ReceiptRequest(si: PCMS_SignerInfo; prr: PPCMS_ReceiptRequest): TOpenSSL_C_INT; cdecl; +function Load_CMS_add1_ReceiptRequest(si: PCMS_SignerInfo; rr: PCMS_ReceiptRequest): TOpenSSL_C_INT; cdecl; +function Load_CMS_RecipientInfo_kari_get0_orig_id(ri: PCMS_RecipientInfo; pubalg: PPX509_ALGOR; pubkey: PASN1_BIT_STRING; keyid: PPASN1_OCTET_STRING; issuer: PPX509_NAME; sno: PPASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_CMS_RecipientInfo_kari_orig_id_cmp(ri: PCMS_RecipientInfo; cert: PX509): TOpenSSL_C_INT; cdecl; +function Load_CMS_RecipientEncryptedKey_get0_id(rek: PCMS_RecipientEncryptedKey; keyid: PPASN1_OCTET_STRING; tm: PPASN1_GENERALIZEDTIME; other: PPCMS_OtherKeyAttribute; issuer: PPX509_NAME; sno: PPASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_CMS_RecipientEncryptedKey_cert_cmp(rek: PCMS_RecipientEncryptedKey; cert: PX509): TOpenSSL_C_INT; cdecl; +function Load_CMS_RecipientInfo_kari_set0_pkey(ri: PCMS_RecipientInfo; pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_CMS_RecipientInfo_kari_get0_ctx(ri: PCMS_RecipientInfo): PEVP_CIPHER_CTX; cdecl; +function Load_CMS_RecipientInfo_kari_decrypt(cms: PCMS_ContentInfo; ri: PCMS_RecipientInfo; rek: PCMS_RecipientEncryptedKey): TOpenSSL_C_INT; cdecl; +function Load_CMS_SharedInfo_encode(pder: PPByte; kekalg: PX509_ALGOR; ukm: PASN1_OCTET_STRING; keylen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + +var + CMS_get0_type: function (const cms: PCMS_ContentInfo): PASN1_OBJECT; cdecl = Load_CMS_get0_type; + CMS_dataInit: function (cms: PCMS_ContentInfo; icont: PBIO): PBIO; cdecl = Load_CMS_dataInit; + CMS_dataFinal: function (cms: PCMS_ContentInfo; bio: PBIO): TOpenSSL_C_INT; cdecl = Load_CMS_dataFinal; + CMS_get0_content: function (cms: PCMS_ContentInfo): PPASN1_OCTET_STRING; cdecl = Load_CMS_get0_content; + CMS_is_detached: function (cms: PCMS_ContentInfo): TOpenSSL_C_INT; cdecl = Load_CMS_is_detached; + CMS_set_detached: function (cms: PCMS_ContentInfo; detached: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_CMS_set_detached; + CMS_stream: function (cms: PCMS_ContentInfo; boundary: PPPByte): TOpenSSL_C_INT; cdecl = Load_CMS_stream; + d2i_CMS_bio: function (bp: PBIO; cms: PPCMS_ContentInfo): PCMS_ContentInfo; cdecl = Load_d2i_CMS_bio; + i2d_CMS_bio: function (bp: PBIO; cms: PCMS_ContentInfo): TOpenSSL_C_INT; cdecl = Load_i2d_CMS_bio; + BIO_new_CMS: function (out_: PBIO; cms: PCMS_ContentInfo): PBIO; cdecl = Load_BIO_new_CMS; + i2d_CMS_bio_stream: function (out_: PBIO; cms: PCMS_ContentInfo; in_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_i2d_CMS_bio_stream; + PEM_write_bio_CMS_stream: function (out_: PBIO; cms: PCMS_ContentInfo; in_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_CMS_stream; + SMIME_read_CMS: function (bio: PBIO; bcont: PPBIO): PCMS_ContentInfo; cdecl = Load_SMIME_read_CMS; + SMIME_write_CMS: function (bio: PBIO; cms: PCMS_ContentInfo; data: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SMIME_write_CMS; + CMS_final: function (cms: PCMS_ContentInfo; data: PBIO; dcont: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_CMS_final; + CMS_data: function (cms: PCMS_ContentInfo; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_CMS_data; + CMS_data_create: function (in_: PBIO; flags: TOpenSSL_C_UINT): PCMS_ContentInfo; cdecl = Load_CMS_data_create; + CMS_digest_verify: function (cms: PCMS_ContentInfo; dcont: PBIO; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_CMS_digest_verify; + CMS_digest_create: function (in_: PBIO; const md: PEVP_MD; flags: TOpenSSL_C_UINT): PCMS_ContentInfo; cdecl = Load_CMS_digest_create; + CMS_EncryptedData_decrypt: function (cms: PCMS_ContentInfo; const key: PByte; keylen: TOpenSSL_C_SIZET; dcont: PBIO; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_CMS_EncryptedData_decrypt; + CMS_EncryptedData_encrypt: function (in_: PBIO; const cipher: PEVP_CIPHER; const key: PByte; keylen: TOpenSSL_C_SIZET; flags: TOpenSSL_C_UINT): PCMS_ContentInfo; cdecl = Load_CMS_EncryptedData_encrypt; + CMS_EncryptedData_set1_key: function (cms: PCMS_ContentInfo; const ciph: PEVP_CIPHER; const key: PByte; keylen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_CMS_EncryptedData_set1_key; + CMS_decrypt: function (cms: PCMS_ContentInfo; pkey: PEVP_PKEY; cert: PX509; dcont: PBIO; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_CMS_decrypt; + CMS_decrypt_set1_pkey: function (cms: PCMS_ContentInfo; pk: PEVP_PKEY; cert: PX509): TOpenSSL_C_INT; cdecl = Load_CMS_decrypt_set1_pkey; + CMS_decrypt_set1_key: function (cms: PCMS_ContentInfo; key: PByte; keylen: TOpenSSL_C_SIZET; const id: PByte; idlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_CMS_decrypt_set1_key; + CMS_decrypt_set1_password: function (cms: PCMS_ContentInfo; pass: PByte; passlen: ossl_ssize_t): TOpenSSL_C_INT; cdecl = Load_CMS_decrypt_set1_password; + CMS_RecipientInfo_type: function (ri: PCMS_RecipientInfo): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientInfo_type; + CMS_RecipientInfo_get0_pkey_ctx: function (ri: PCMS_RecipientInfo): PEVP_PKEY_CTX; cdecl = Load_CMS_RecipientInfo_get0_pkey_ctx; + CMS_EnvelopedData_create: function (const cipher: PEVP_CIPHER): PCMS_ContentInfo; cdecl = Load_CMS_EnvelopedData_create; + CMS_add1_recipient_cert: function (cms: PCMS_ContentInfo; recip: PX509; flags: TOpenSSL_C_UINT): PCMS_RecipientInfo; cdecl = Load_CMS_add1_recipient_cert; + CMS_RecipientInfo_set0_pkey: function (ri: PCMS_RecipientInfo; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientInfo_set0_pkey; + CMS_RecipientInfo_ktri_cert_cmp: function (ri: PCMS_RecipientInfo; cert: PX509): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientInfo_ktri_cert_cmp; + CMS_RecipientInfo_ktri_get0_algs: function (ri: PCMS_RecipientInfo; pk: PPEVP_PKEY; recip: PPX509; palg: PPX509_ALGOR): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientInfo_ktri_get0_algs; + CMS_RecipientInfo_ktri_get0_signer_id: function (ri: PPCMS_RecipientInfo; keyid: PPASN1_OCTET_STRING; issuer: PPX509_NAME; sno: PPASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientInfo_ktri_get0_signer_id; + CMS_add0_recipient_key: function (cms: PCMS_ContentInfo; nid: TOpenSSL_C_INT; key: PByte; keylen: TOpenSSL_C_SIZET; id: PByte; idlen: TOpenSSL_C_SIZET; date: PASN1_GENERALIZEDTIME; otherTypeId: PASN1_OBJECT; otherType: ASN1_TYPE): PCMS_RecipientInfo; cdecl = Load_CMS_add0_recipient_key; + CMS_RecipientInfo_kekri_get0_id: function (ri: PCMS_RecipientInfo; palg: PPX509_ALGOR; pid: PPASN1_OCTET_STRING; pdate: PPASN1_GENERALIZEDTIME; potherid: PPASN1_OBJECT; pothertype: PASN1_TYPE): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientInfo_kekri_get0_id; + CMS_RecipientInfo_set0_key: function (ri: PCMS_RecipientInfo; key: PByte; keylen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientInfo_set0_key; + CMS_RecipientInfo_kekri_id_cmp: function (ri: PCMS_RecipientInfo; const id: PByte; idlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientInfo_kekri_id_cmp; + CMS_RecipientInfo_set0_password: function (ri: PCMS_RecipientInfo; pass: PByte; passlen: ossl_ssize_t): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientInfo_set0_password; + CMS_add0_recipient_password: function (cms: PCMS_ContentInfo; iter: TOpenSSL_C_INT; wrap_nid: TOpenSSL_C_INT; pbe_nid: TOpenSSL_C_INT; pass: PByte; passlen: ossl_ssize_t; const kekciph: PEVP_CIPHER): PCMS_RecipientInfo; cdecl = Load_CMS_add0_recipient_password; + CMS_RecipientInfo_decrypt: function (cms: PCMS_ContentInfo; ri: PCMS_RecipientInfo): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientInfo_decrypt; + CMS_RecipientInfo_encrypt: function (cms: PCMS_ContentInfo; ri: PCMS_RecipientInfo): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientInfo_encrypt; + CMS_uncompress: function (cms: PCMS_ContentInfo; dcont: PBIO; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_CMS_uncompress; + CMS_compress: function (in_: PBIO; comp_nid: TOpenSSL_C_INT; flags: TOpenSSL_C_UINT): PCMS_ContentInfo; cdecl = Load_CMS_compress; + CMS_set1_eContentType: function (cms: CMS_ContentInfo; const oit: PASN1_OBJECT): TOpenSSL_C_INT; cdecl = Load_CMS_set1_eContentType; + CMS_get0_eContentType: function (cms: PCMS_ContentInfo): PASN1_OBJECT; cdecl = Load_CMS_get0_eContentType; + CMS_add0_CertificateChoices: function (cms: PCMS_ContentInfo): PCMS_CertificateChoices; cdecl = Load_CMS_add0_CertificateChoices; + CMS_add0_cert: function (cms: PCMS_ContentInfo; cert: PX509): TOpenSSL_C_INT; cdecl = Load_CMS_add0_cert; + CMS_add1_cert: function (cms: PCMS_ContentInfo; cert: PX509): TOpenSSL_C_INT; cdecl = Load_CMS_add1_cert; + CMS_add0_RevocationInfoChoice: function (cms: PCMS_ContentInfo): PCMS_RevocationInfoChoice; cdecl = Load_CMS_add0_RevocationInfoChoice; + CMS_add0_crl: function (cms: PCMS_ContentInfo; crl: PX509_CRL): TOpenSSL_C_INT; cdecl = Load_CMS_add0_crl; + CMS_add1_crl: function (cms: PCMS_ContentInfo; crl: PX509_CRL): TOpenSSL_C_INT; cdecl = Load_CMS_add1_crl; + CMS_SignedData_init: function (cms: PCMS_ContentInfo): TOpenSSL_C_INT; cdecl = Load_CMS_SignedData_init; + CMS_add1_signer: function (cms: PCMS_ContentInfo; signer: PX509; pk: PEVP_PKEY; const md: PEVP_MD; flags: TOpenSSL_C_UINT): PCMS_SignerInfo; cdecl = Load_CMS_add1_signer; + CMS_SignerInfo_get0_pkey_ctx: function (si: PCMS_SignerInfo): PEVP_PKEY_CTX; cdecl = Load_CMS_SignerInfo_get0_pkey_ctx; + CMS_SignerInfo_get0_md_ctx: function (si: PCMS_SignerInfo): PEVP_MD_CTX; cdecl = Load_CMS_SignerInfo_get0_md_ctx; + CMS_SignerInfo_set1_signer_cert: procedure (si: PCMS_SignerInfo; signer: PX509); cdecl = Load_CMS_SignerInfo_set1_signer_cert; + CMS_SignerInfo_get0_signer_id: function (si: PCMS_SignerInfo; keyid: PPASN1_OCTET_STRING; issuer: PPX509_NAME; sno: PPASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_CMS_SignerInfo_get0_signer_id; + CMS_SignerInfo_cert_cmp: function (si: PCMS_SignerInfo; cert: PX509): TOpenSSL_C_INT; cdecl = Load_CMS_SignerInfo_cert_cmp; + CMS_SignerInfo_get0_algs: procedure (si: PCMS_SignerInfo; pk: PPEVP_PKEY; signer: PPX509; pdig: PPX509_ALGOR; psig: PPX509_ALGOR); cdecl = Load_CMS_SignerInfo_get0_algs; + CMS_SignerInfo_get0_signature: function (si: PCMS_SignerInfo): PASN1_OCTET_STRING; cdecl = Load_CMS_SignerInfo_get0_signature; + CMS_SignerInfo_sign: function (si: PCMS_SignerInfo): TOpenSSL_C_INT; cdecl = Load_CMS_SignerInfo_sign; + CMS_SignerInfo_verify: function (si: PCMS_SignerInfo): TOpenSSL_C_INT; cdecl = Load_CMS_SignerInfo_verify; + CMS_SignerInfo_verify_content: function (si: PCMS_SignerInfo; chain: PBIO): TOpenSSL_C_INT; cdecl = Load_CMS_SignerInfo_verify_content; + CMS_signed_get_attr_count: function (const si: PCMS_SignerInfo): TOpenSSL_C_INT; cdecl = Load_CMS_signed_get_attr_count; + CMS_signed_get_attr_by_NID: function (const si: PCMS_SignerInfo; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_CMS_signed_get_attr_by_NID; + CMS_signed_get_attr_by_OBJ: function (const si: PCMS_SignerInfo; const obj: ASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_CMS_signed_get_attr_by_OBJ; + CMS_signed_get_attr: function (const si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl = Load_CMS_signed_get_attr; + CMS_signed_delete_attr: function (const si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl = Load_CMS_signed_delete_attr; + CMS_signed_add1_attr: function (si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_CMS_signed_add1_attr; + CMS_signed_add1_attr_by_OBJ: function (si: PCMS_SignerInfo; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_CMS_signed_add1_attr_by_OBJ; + CMS_signed_add1_attr_by_NID: function (si: PCMS_SignerInfo; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_CMS_signed_add1_attr_by_NID; + CMS_signed_add1_attr_by_txt: function (si: PCMS_SignerInfo; const attrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_CMS_signed_add1_attr_by_txt; + CMS_signed_get0_data_by_OBJ: function (si: PCMS_SignerInfo; const oid: PASN1_OBJECT; lastpos: TOpenSSL_C_INT; type_: TOpenSSL_C_INT): Pointer; cdecl = Load_CMS_signed_get0_data_by_OBJ; + CMS_unsigned_get_attr_count: function (const si: PCMS_SignerInfo): TOpenSSL_C_INT; cdecl = Load_CMS_unsigned_get_attr_count; + CMS_unsigned_get_attr_by_NID: function (const si: PCMS_SignerInfo; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_CMS_unsigned_get_attr_by_NID; + CMS_unsigned_get_attr_by_OBJ: function (const si: PCMS_SignerInfo; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_CMS_unsigned_get_attr_by_OBJ; + CMS_unsigned_get_attr: function (const si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl = Load_CMS_unsigned_get_attr; + CMS_unsigned_delete_attr: function (si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl = Load_CMS_unsigned_delete_attr; + CMS_unsigned_add1_attr: function (si: PCMS_SignerInfo; attr: PX509_ATTRIBUTE): TOpenSSL_C_INT; cdecl = Load_CMS_unsigned_add1_attr; + CMS_unsigned_add1_attr_by_OBJ: function (si: PCMS_SignerInfo; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_CMS_unsigned_add1_attr_by_OBJ; + CMS_unsigned_add1_attr_by_NID: function (si: PCMS_SignerInfo; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_CMS_unsigned_add1_attr_by_NID; + CMS_unsigned_add1_attr_by_txt: function (si: PCMS_SignerInfo; const attrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_CMS_unsigned_add1_attr_by_txt; + CMS_unsigned_get0_data_by_OBJ: function (si: PCMS_SignerInfo; oid: PASN1_OBJECT; lastpos: TOpenSSL_C_INT; type_: TOpenSSL_C_INT): Pointer; cdecl = Load_CMS_unsigned_get0_data_by_OBJ; + CMS_get1_ReceiptRequest: function (si: PCMS_SignerInfo; prr: PPCMS_ReceiptRequest): TOpenSSL_C_INT; cdecl = Load_CMS_get1_ReceiptRequest; + CMS_add1_ReceiptRequest: function (si: PCMS_SignerInfo; rr: PCMS_ReceiptRequest): TOpenSSL_C_INT; cdecl = Load_CMS_add1_ReceiptRequest; + CMS_RecipientInfo_kari_get0_orig_id: function (ri: PCMS_RecipientInfo; pubalg: PPX509_ALGOR; pubkey: PASN1_BIT_STRING; keyid: PPASN1_OCTET_STRING; issuer: PPX509_NAME; sno: PPASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientInfo_kari_get0_orig_id; + CMS_RecipientInfo_kari_orig_id_cmp: function (ri: PCMS_RecipientInfo; cert: PX509): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientInfo_kari_orig_id_cmp; + CMS_RecipientEncryptedKey_get0_id: function (rek: PCMS_RecipientEncryptedKey; keyid: PPASN1_OCTET_STRING; tm: PPASN1_GENERALIZEDTIME; other: PPCMS_OtherKeyAttribute; issuer: PPX509_NAME; sno: PPASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientEncryptedKey_get0_id; + CMS_RecipientEncryptedKey_cert_cmp: function (rek: PCMS_RecipientEncryptedKey; cert: PX509): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientEncryptedKey_cert_cmp; + CMS_RecipientInfo_kari_set0_pkey: function (ri: PCMS_RecipientInfo; pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientInfo_kari_set0_pkey; + CMS_RecipientInfo_kari_get0_ctx: function (ri: PCMS_RecipientInfo): PEVP_CIPHER_CTX; cdecl = Load_CMS_RecipientInfo_kari_get0_ctx; + CMS_RecipientInfo_kari_decrypt: function (cms: PCMS_ContentInfo; ri: PCMS_RecipientInfo; rek: PCMS_RecipientEncryptedKey): TOpenSSL_C_INT; cdecl = Load_CMS_RecipientInfo_kari_decrypt; + CMS_SharedInfo_encode: function (pder: PPByte; kekalg: PX509_ALGOR; ukm: PASN1_OCTET_STRING; keylen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_CMS_SharedInfo_encode; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_CMS_get0_type(const cms: PCMS_ContentInfo): PASN1_OBJECT; cdecl; +begin + CMS_get0_type := LoadLibCryptoFunction('CMS_get0_type'); + if not assigned(CMS_get0_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_get0_type'); + Result := CMS_get0_type(cms); +end; + +function Load_CMS_dataInit(cms: PCMS_ContentInfo; icont: PBIO): PBIO; cdecl; +begin + CMS_dataInit := LoadLibCryptoFunction('CMS_dataInit'); + if not assigned(CMS_dataInit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_dataInit'); + Result := CMS_dataInit(cms,icont); +end; + +function Load_CMS_dataFinal(cms: PCMS_ContentInfo; bio: PBIO): TOpenSSL_C_INT; cdecl; +begin + CMS_dataFinal := LoadLibCryptoFunction('CMS_dataFinal'); + if not assigned(CMS_dataFinal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_dataFinal'); + Result := CMS_dataFinal(cms,bio); +end; + +function Load_CMS_get0_content(cms: PCMS_ContentInfo): PPASN1_OCTET_STRING; cdecl; +begin + CMS_get0_content := LoadLibCryptoFunction('CMS_get0_content'); + if not assigned(CMS_get0_content) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_get0_content'); + Result := CMS_get0_content(cms); +end; + +function Load_CMS_is_detached(cms: PCMS_ContentInfo): TOpenSSL_C_INT; cdecl; +begin + CMS_is_detached := LoadLibCryptoFunction('CMS_is_detached'); + if not assigned(CMS_is_detached) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_is_detached'); + Result := CMS_is_detached(cms); +end; + +function Load_CMS_set_detached(cms: PCMS_ContentInfo; detached: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + CMS_set_detached := LoadLibCryptoFunction('CMS_set_detached'); + if not assigned(CMS_set_detached) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_set_detached'); + Result := CMS_set_detached(cms,detached); +end; + +function Load_CMS_stream(cms: PCMS_ContentInfo; boundary: PPPByte): TOpenSSL_C_INT; cdecl; +begin + CMS_stream := LoadLibCryptoFunction('CMS_stream'); + if not assigned(CMS_stream) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_stream'); + Result := CMS_stream(cms,boundary); +end; + +function Load_d2i_CMS_bio(bp: PBIO; cms: PPCMS_ContentInfo): PCMS_ContentInfo; cdecl; +begin + d2i_CMS_bio := LoadLibCryptoFunction('d2i_CMS_bio'); + if not assigned(d2i_CMS_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_CMS_bio'); + Result := d2i_CMS_bio(bp,cms); +end; + +function Load_i2d_CMS_bio(bp: PBIO; cms: PCMS_ContentInfo): TOpenSSL_C_INT; cdecl; +begin + i2d_CMS_bio := LoadLibCryptoFunction('i2d_CMS_bio'); + if not assigned(i2d_CMS_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_CMS_bio'); + Result := i2d_CMS_bio(bp,cms); +end; + +function Load_BIO_new_CMS(out_: PBIO; cms: PCMS_ContentInfo): PBIO; cdecl; +begin + BIO_new_CMS := LoadLibCryptoFunction('BIO_new_CMS'); + if not assigned(BIO_new_CMS) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_new_CMS'); + Result := BIO_new_CMS(out_,cms); +end; + +function Load_i2d_CMS_bio_stream(out_: PBIO; cms: PCMS_ContentInfo; in_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + i2d_CMS_bio_stream := LoadLibCryptoFunction('i2d_CMS_bio_stream'); + if not assigned(i2d_CMS_bio_stream) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_CMS_bio_stream'); + Result := i2d_CMS_bio_stream(out_,cms,in_,flags); +end; + +function Load_PEM_write_bio_CMS_stream(out_: PBIO; cms: PCMS_ContentInfo; in_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_CMS_stream := LoadLibCryptoFunction('PEM_write_bio_CMS_stream'); + if not assigned(PEM_write_bio_CMS_stream) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_CMS_stream'); + Result := PEM_write_bio_CMS_stream(out_,cms,in_,flags); +end; + +function Load_SMIME_read_CMS(bio: PBIO; bcont: PPBIO): PCMS_ContentInfo; cdecl; +begin + SMIME_read_CMS := LoadLibCryptoFunction('SMIME_read_CMS'); + if not assigned(SMIME_read_CMS) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SMIME_read_CMS'); + Result := SMIME_read_CMS(bio,bcont); +end; + +function Load_SMIME_write_CMS(bio: PBIO; cms: PCMS_ContentInfo; data: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SMIME_write_CMS := LoadLibCryptoFunction('SMIME_write_CMS'); + if not assigned(SMIME_write_CMS) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SMIME_write_CMS'); + Result := SMIME_write_CMS(bio,cms,data,flags); +end; + +function Load_CMS_final(cms: PCMS_ContentInfo; data: PBIO; dcont: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + CMS_final := LoadLibCryptoFunction('CMS_final'); + if not assigned(CMS_final) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_final'); + Result := CMS_final(cms,data,dcont,flags); +end; + +function Load_CMS_data(cms: PCMS_ContentInfo; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + CMS_data := LoadLibCryptoFunction('CMS_data'); + if not assigned(CMS_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_data'); + Result := CMS_data(cms,out_,flags); +end; + +function Load_CMS_data_create(in_: PBIO; flags: TOpenSSL_C_UINT): PCMS_ContentInfo; cdecl; +begin + CMS_data_create := LoadLibCryptoFunction('CMS_data_create'); + if not assigned(CMS_data_create) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_data_create'); + Result := CMS_data_create(in_,flags); +end; + +function Load_CMS_digest_verify(cms: PCMS_ContentInfo; dcont: PBIO; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + CMS_digest_verify := LoadLibCryptoFunction('CMS_digest_verify'); + if not assigned(CMS_digest_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_digest_verify'); + Result := CMS_digest_verify(cms,dcont,out_,flags); +end; + +function Load_CMS_digest_create(in_: PBIO; const md: PEVP_MD; flags: TOpenSSL_C_UINT): PCMS_ContentInfo; cdecl; +begin + CMS_digest_create := LoadLibCryptoFunction('CMS_digest_create'); + if not assigned(CMS_digest_create) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_digest_create'); + Result := CMS_digest_create(in_,md,flags); +end; + +function Load_CMS_EncryptedData_decrypt(cms: PCMS_ContentInfo; const key: PByte; keylen: TOpenSSL_C_SIZET; dcont: PBIO; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + CMS_EncryptedData_decrypt := LoadLibCryptoFunction('CMS_EncryptedData_decrypt'); + if not assigned(CMS_EncryptedData_decrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_EncryptedData_decrypt'); + Result := CMS_EncryptedData_decrypt(cms,key,keylen,dcont,out_,flags); +end; + +function Load_CMS_EncryptedData_encrypt(in_: PBIO; const cipher: PEVP_CIPHER; const key: PByte; keylen: TOpenSSL_C_SIZET; flags: TOpenSSL_C_UINT): PCMS_ContentInfo; cdecl; +begin + CMS_EncryptedData_encrypt := LoadLibCryptoFunction('CMS_EncryptedData_encrypt'); + if not assigned(CMS_EncryptedData_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_EncryptedData_encrypt'); + Result := CMS_EncryptedData_encrypt(in_,cipher,key,keylen,flags); +end; + +function Load_CMS_EncryptedData_set1_key(cms: PCMS_ContentInfo; const ciph: PEVP_CIPHER; const key: PByte; keylen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + CMS_EncryptedData_set1_key := LoadLibCryptoFunction('CMS_EncryptedData_set1_key'); + if not assigned(CMS_EncryptedData_set1_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_EncryptedData_set1_key'); + Result := CMS_EncryptedData_set1_key(cms,ciph,key,keylen); +end; + +function Load_CMS_decrypt(cms: PCMS_ContentInfo; pkey: PEVP_PKEY; cert: PX509; dcont: PBIO; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + CMS_decrypt := LoadLibCryptoFunction('CMS_decrypt'); + if not assigned(CMS_decrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_decrypt'); + Result := CMS_decrypt(cms,pkey,cert,dcont,out_,flags); +end; + +function Load_CMS_decrypt_set1_pkey(cms: PCMS_ContentInfo; pk: PEVP_PKEY; cert: PX509): TOpenSSL_C_INT; cdecl; +begin + CMS_decrypt_set1_pkey := LoadLibCryptoFunction('CMS_decrypt_set1_pkey'); + if not assigned(CMS_decrypt_set1_pkey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_decrypt_set1_pkey'); + Result := CMS_decrypt_set1_pkey(cms,pk,cert); +end; + +function Load_CMS_decrypt_set1_key(cms: PCMS_ContentInfo; key: PByte; keylen: TOpenSSL_C_SIZET; const id: PByte; idlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + CMS_decrypt_set1_key := LoadLibCryptoFunction('CMS_decrypt_set1_key'); + if not assigned(CMS_decrypt_set1_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_decrypt_set1_key'); + Result := CMS_decrypt_set1_key(cms,key,keylen,id,idlen); +end; + +function Load_CMS_decrypt_set1_password(cms: PCMS_ContentInfo; pass: PByte; passlen: ossl_ssize_t): TOpenSSL_C_INT; cdecl; +begin + CMS_decrypt_set1_password := LoadLibCryptoFunction('CMS_decrypt_set1_password'); + if not assigned(CMS_decrypt_set1_password) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_decrypt_set1_password'); + Result := CMS_decrypt_set1_password(cms,pass,passlen); +end; + +function Load_CMS_RecipientInfo_type(ri: PCMS_RecipientInfo): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientInfo_type := LoadLibCryptoFunction('CMS_RecipientInfo_type'); + if not assigned(CMS_RecipientInfo_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_type'); + Result := CMS_RecipientInfo_type(ri); +end; + +function Load_CMS_RecipientInfo_get0_pkey_ctx(ri: PCMS_RecipientInfo): PEVP_PKEY_CTX; cdecl; +begin + CMS_RecipientInfo_get0_pkey_ctx := LoadLibCryptoFunction('CMS_RecipientInfo_get0_pkey_ctx'); + if not assigned(CMS_RecipientInfo_get0_pkey_ctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_get0_pkey_ctx'); + Result := CMS_RecipientInfo_get0_pkey_ctx(ri); +end; + +function Load_CMS_EnvelopedData_create(const cipher: PEVP_CIPHER): PCMS_ContentInfo; cdecl; +begin + CMS_EnvelopedData_create := LoadLibCryptoFunction('CMS_EnvelopedData_create'); + if not assigned(CMS_EnvelopedData_create) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_EnvelopedData_create'); + Result := CMS_EnvelopedData_create(cipher); +end; + +function Load_CMS_add1_recipient_cert(cms: PCMS_ContentInfo; recip: PX509; flags: TOpenSSL_C_UINT): PCMS_RecipientInfo; cdecl; +begin + CMS_add1_recipient_cert := LoadLibCryptoFunction('CMS_add1_recipient_cert'); + if not assigned(CMS_add1_recipient_cert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_add1_recipient_cert'); + Result := CMS_add1_recipient_cert(cms,recip,flags); +end; + +function Load_CMS_RecipientInfo_set0_pkey(ri: PCMS_RecipientInfo; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientInfo_set0_pkey := LoadLibCryptoFunction('CMS_RecipientInfo_set0_pkey'); + if not assigned(CMS_RecipientInfo_set0_pkey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_set0_pkey'); + Result := CMS_RecipientInfo_set0_pkey(ri,pkey); +end; + +function Load_CMS_RecipientInfo_ktri_cert_cmp(ri: PCMS_RecipientInfo; cert: PX509): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientInfo_ktri_cert_cmp := LoadLibCryptoFunction('CMS_RecipientInfo_ktri_cert_cmp'); + if not assigned(CMS_RecipientInfo_ktri_cert_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_ktri_cert_cmp'); + Result := CMS_RecipientInfo_ktri_cert_cmp(ri,cert); +end; + +function Load_CMS_RecipientInfo_ktri_get0_algs(ri: PCMS_RecipientInfo; pk: PPEVP_PKEY; recip: PPX509; palg: PPX509_ALGOR): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientInfo_ktri_get0_algs := LoadLibCryptoFunction('CMS_RecipientInfo_ktri_get0_algs'); + if not assigned(CMS_RecipientInfo_ktri_get0_algs) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_ktri_get0_algs'); + Result := CMS_RecipientInfo_ktri_get0_algs(ri,pk,recip,palg); +end; + +function Load_CMS_RecipientInfo_ktri_get0_signer_id(ri: PPCMS_RecipientInfo; keyid: PPASN1_OCTET_STRING; issuer: PPX509_NAME; sno: PPASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientInfo_ktri_get0_signer_id := LoadLibCryptoFunction('CMS_RecipientInfo_ktri_get0_signer_id'); + if not assigned(CMS_RecipientInfo_ktri_get0_signer_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_ktri_get0_signer_id'); + Result := CMS_RecipientInfo_ktri_get0_signer_id(ri,keyid,issuer,sno); +end; + +function Load_CMS_add0_recipient_key(cms: PCMS_ContentInfo; nid: TOpenSSL_C_INT; key: PByte; keylen: TOpenSSL_C_SIZET; id: PByte; idlen: TOpenSSL_C_SIZET; date: PASN1_GENERALIZEDTIME; otherTypeId: PASN1_OBJECT; otherType: ASN1_TYPE): PCMS_RecipientInfo; cdecl; +begin + CMS_add0_recipient_key := LoadLibCryptoFunction('CMS_add0_recipient_key'); + if not assigned(CMS_add0_recipient_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_add0_recipient_key'); + Result := CMS_add0_recipient_key(cms,nid,key,keylen,id,idlen,date,otherTypeId,otherType); +end; + +function Load_CMS_RecipientInfo_kekri_get0_id(ri: PCMS_RecipientInfo; palg: PPX509_ALGOR; pid: PPASN1_OCTET_STRING; pdate: PPASN1_GENERALIZEDTIME; potherid: PPASN1_OBJECT; pothertype: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientInfo_kekri_get0_id := LoadLibCryptoFunction('CMS_RecipientInfo_kekri_get0_id'); + if not assigned(CMS_RecipientInfo_kekri_get0_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_kekri_get0_id'); + Result := CMS_RecipientInfo_kekri_get0_id(ri,palg,pid,pdate,potherid,pothertype); +end; + +function Load_CMS_RecipientInfo_set0_key(ri: PCMS_RecipientInfo; key: PByte; keylen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientInfo_set0_key := LoadLibCryptoFunction('CMS_RecipientInfo_set0_key'); + if not assigned(CMS_RecipientInfo_set0_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_set0_key'); + Result := CMS_RecipientInfo_set0_key(ri,key,keylen); +end; + +function Load_CMS_RecipientInfo_kekri_id_cmp(ri: PCMS_RecipientInfo; const id: PByte; idlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientInfo_kekri_id_cmp := LoadLibCryptoFunction('CMS_RecipientInfo_kekri_id_cmp'); + if not assigned(CMS_RecipientInfo_kekri_id_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_kekri_id_cmp'); + Result := CMS_RecipientInfo_kekri_id_cmp(ri,id,idlen); +end; + +function Load_CMS_RecipientInfo_set0_password(ri: PCMS_RecipientInfo; pass: PByte; passlen: ossl_ssize_t): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientInfo_set0_password := LoadLibCryptoFunction('CMS_RecipientInfo_set0_password'); + if not assigned(CMS_RecipientInfo_set0_password) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_set0_password'); + Result := CMS_RecipientInfo_set0_password(ri,pass,passlen); +end; + +function Load_CMS_add0_recipient_password(cms: PCMS_ContentInfo; iter: TOpenSSL_C_INT; wrap_nid: TOpenSSL_C_INT; pbe_nid: TOpenSSL_C_INT; pass: PByte; passlen: ossl_ssize_t; const kekciph: PEVP_CIPHER): PCMS_RecipientInfo; cdecl; +begin + CMS_add0_recipient_password := LoadLibCryptoFunction('CMS_add0_recipient_password'); + if not assigned(CMS_add0_recipient_password) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_add0_recipient_password'); + Result := CMS_add0_recipient_password(cms,iter,wrap_nid,pbe_nid,pass,passlen,kekciph); +end; + +function Load_CMS_RecipientInfo_decrypt(cms: PCMS_ContentInfo; ri: PCMS_RecipientInfo): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientInfo_decrypt := LoadLibCryptoFunction('CMS_RecipientInfo_decrypt'); + if not assigned(CMS_RecipientInfo_decrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_decrypt'); + Result := CMS_RecipientInfo_decrypt(cms,ri); +end; + +function Load_CMS_RecipientInfo_encrypt(cms: PCMS_ContentInfo; ri: PCMS_RecipientInfo): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientInfo_encrypt := LoadLibCryptoFunction('CMS_RecipientInfo_encrypt'); + if not assigned(CMS_RecipientInfo_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_encrypt'); + Result := CMS_RecipientInfo_encrypt(cms,ri); +end; + +function Load_CMS_uncompress(cms: PCMS_ContentInfo; dcont: PBIO; out_: PBIO; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + CMS_uncompress := LoadLibCryptoFunction('CMS_uncompress'); + if not assigned(CMS_uncompress) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_uncompress'); + Result := CMS_uncompress(cms,dcont,out_,flags); +end; + +function Load_CMS_compress(in_: PBIO; comp_nid: TOpenSSL_C_INT; flags: TOpenSSL_C_UINT): PCMS_ContentInfo; cdecl; +begin + CMS_compress := LoadLibCryptoFunction('CMS_compress'); + if not assigned(CMS_compress) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_compress'); + Result := CMS_compress(in_,comp_nid,flags); +end; + +function Load_CMS_set1_eContentType(cms: CMS_ContentInfo; const oit: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +begin + CMS_set1_eContentType := LoadLibCryptoFunction('CMS_set1_eContentType'); + if not assigned(CMS_set1_eContentType) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_set1_eContentType'); + Result := CMS_set1_eContentType(cms,oit); +end; + +function Load_CMS_get0_eContentType(cms: PCMS_ContentInfo): PASN1_OBJECT; cdecl; +begin + CMS_get0_eContentType := LoadLibCryptoFunction('CMS_get0_eContentType'); + if not assigned(CMS_get0_eContentType) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_get0_eContentType'); + Result := CMS_get0_eContentType(cms); +end; + +function Load_CMS_add0_CertificateChoices(cms: PCMS_ContentInfo): PCMS_CertificateChoices; cdecl; +begin + CMS_add0_CertificateChoices := LoadLibCryptoFunction('CMS_add0_CertificateChoices'); + if not assigned(CMS_add0_CertificateChoices) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_add0_CertificateChoices'); + Result := CMS_add0_CertificateChoices(cms); +end; + +function Load_CMS_add0_cert(cms: PCMS_ContentInfo; cert: PX509): TOpenSSL_C_INT; cdecl; +begin + CMS_add0_cert := LoadLibCryptoFunction('CMS_add0_cert'); + if not assigned(CMS_add0_cert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_add0_cert'); + Result := CMS_add0_cert(cms,cert); +end; + +function Load_CMS_add1_cert(cms: PCMS_ContentInfo; cert: PX509): TOpenSSL_C_INT; cdecl; +begin + CMS_add1_cert := LoadLibCryptoFunction('CMS_add1_cert'); + if not assigned(CMS_add1_cert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_add1_cert'); + Result := CMS_add1_cert(cms,cert); +end; + +function Load_CMS_add0_RevocationInfoChoice(cms: PCMS_ContentInfo): PCMS_RevocationInfoChoice; cdecl; +begin + CMS_add0_RevocationInfoChoice := LoadLibCryptoFunction('CMS_add0_RevocationInfoChoice'); + if not assigned(CMS_add0_RevocationInfoChoice) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_add0_RevocationInfoChoice'); + Result := CMS_add0_RevocationInfoChoice(cms); +end; + +function Load_CMS_add0_crl(cms: PCMS_ContentInfo; crl: PX509_CRL): TOpenSSL_C_INT; cdecl; +begin + CMS_add0_crl := LoadLibCryptoFunction('CMS_add0_crl'); + if not assigned(CMS_add0_crl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_add0_crl'); + Result := CMS_add0_crl(cms,crl); +end; + +function Load_CMS_add1_crl(cms: PCMS_ContentInfo; crl: PX509_CRL): TOpenSSL_C_INT; cdecl; +begin + CMS_add1_crl := LoadLibCryptoFunction('CMS_add1_crl'); + if not assigned(CMS_add1_crl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_add1_crl'); + Result := CMS_add1_crl(cms,crl); +end; + +function Load_CMS_SignedData_init(cms: PCMS_ContentInfo): TOpenSSL_C_INT; cdecl; +begin + CMS_SignedData_init := LoadLibCryptoFunction('CMS_SignedData_init'); + if not assigned(CMS_SignedData_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_SignedData_init'); + Result := CMS_SignedData_init(cms); +end; + +function Load_CMS_add1_signer(cms: PCMS_ContentInfo; signer: PX509; pk: PEVP_PKEY; const md: PEVP_MD; flags: TOpenSSL_C_UINT): PCMS_SignerInfo; cdecl; +begin + CMS_add1_signer := LoadLibCryptoFunction('CMS_add1_signer'); + if not assigned(CMS_add1_signer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_add1_signer'); + Result := CMS_add1_signer(cms,signer,pk,md,flags); +end; + +function Load_CMS_SignerInfo_get0_pkey_ctx(si: PCMS_SignerInfo): PEVP_PKEY_CTX; cdecl; +begin + CMS_SignerInfo_get0_pkey_ctx := LoadLibCryptoFunction('CMS_SignerInfo_get0_pkey_ctx'); + if not assigned(CMS_SignerInfo_get0_pkey_ctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_SignerInfo_get0_pkey_ctx'); + Result := CMS_SignerInfo_get0_pkey_ctx(si); +end; + +function Load_CMS_SignerInfo_get0_md_ctx(si: PCMS_SignerInfo): PEVP_MD_CTX; cdecl; +begin + CMS_SignerInfo_get0_md_ctx := LoadLibCryptoFunction('CMS_SignerInfo_get0_md_ctx'); + if not assigned(CMS_SignerInfo_get0_md_ctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_SignerInfo_get0_md_ctx'); + Result := CMS_SignerInfo_get0_md_ctx(si); +end; + +procedure Load_CMS_SignerInfo_set1_signer_cert(si: PCMS_SignerInfo; signer: PX509); cdecl; +begin + CMS_SignerInfo_set1_signer_cert := LoadLibCryptoFunction('CMS_SignerInfo_set1_signer_cert'); + if not assigned(CMS_SignerInfo_set1_signer_cert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_SignerInfo_set1_signer_cert'); + CMS_SignerInfo_set1_signer_cert(si,signer); +end; + +function Load_CMS_SignerInfo_get0_signer_id(si: PCMS_SignerInfo; keyid: PPASN1_OCTET_STRING; issuer: PPX509_NAME; sno: PPASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + CMS_SignerInfo_get0_signer_id := LoadLibCryptoFunction('CMS_SignerInfo_get0_signer_id'); + if not assigned(CMS_SignerInfo_get0_signer_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_SignerInfo_get0_signer_id'); + Result := CMS_SignerInfo_get0_signer_id(si,keyid,issuer,sno); +end; + +function Load_CMS_SignerInfo_cert_cmp(si: PCMS_SignerInfo; cert: PX509): TOpenSSL_C_INT; cdecl; +begin + CMS_SignerInfo_cert_cmp := LoadLibCryptoFunction('CMS_SignerInfo_cert_cmp'); + if not assigned(CMS_SignerInfo_cert_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_SignerInfo_cert_cmp'); + Result := CMS_SignerInfo_cert_cmp(si,cert); +end; + +procedure Load_CMS_SignerInfo_get0_algs(si: PCMS_SignerInfo; pk: PPEVP_PKEY; signer: PPX509; pdig: PPX509_ALGOR; psig: PPX509_ALGOR); cdecl; +begin + CMS_SignerInfo_get0_algs := LoadLibCryptoFunction('CMS_SignerInfo_get0_algs'); + if not assigned(CMS_SignerInfo_get0_algs) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_SignerInfo_get0_algs'); + CMS_SignerInfo_get0_algs(si,pk,signer,pdig,psig); +end; + +function Load_CMS_SignerInfo_get0_signature(si: PCMS_SignerInfo): PASN1_OCTET_STRING; cdecl; +begin + CMS_SignerInfo_get0_signature := LoadLibCryptoFunction('CMS_SignerInfo_get0_signature'); + if not assigned(CMS_SignerInfo_get0_signature) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_SignerInfo_get0_signature'); + Result := CMS_SignerInfo_get0_signature(si); +end; + +function Load_CMS_SignerInfo_sign(si: PCMS_SignerInfo): TOpenSSL_C_INT; cdecl; +begin + CMS_SignerInfo_sign := LoadLibCryptoFunction('CMS_SignerInfo_sign'); + if not assigned(CMS_SignerInfo_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_SignerInfo_sign'); + Result := CMS_SignerInfo_sign(si); +end; + +function Load_CMS_SignerInfo_verify(si: PCMS_SignerInfo): TOpenSSL_C_INT; cdecl; +begin + CMS_SignerInfo_verify := LoadLibCryptoFunction('CMS_SignerInfo_verify'); + if not assigned(CMS_SignerInfo_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_SignerInfo_verify'); + Result := CMS_SignerInfo_verify(si); +end; + +function Load_CMS_SignerInfo_verify_content(si: PCMS_SignerInfo; chain: PBIO): TOpenSSL_C_INT; cdecl; +begin + CMS_SignerInfo_verify_content := LoadLibCryptoFunction('CMS_SignerInfo_verify_content'); + if not assigned(CMS_SignerInfo_verify_content) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_SignerInfo_verify_content'); + Result := CMS_SignerInfo_verify_content(si,chain); +end; + +function Load_CMS_signed_get_attr_count(const si: PCMS_SignerInfo): TOpenSSL_C_INT; cdecl; +begin + CMS_signed_get_attr_count := LoadLibCryptoFunction('CMS_signed_get_attr_count'); + if not assigned(CMS_signed_get_attr_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_signed_get_attr_count'); + Result := CMS_signed_get_attr_count(si); +end; + +function Load_CMS_signed_get_attr_by_NID(const si: PCMS_SignerInfo; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + CMS_signed_get_attr_by_NID := LoadLibCryptoFunction('CMS_signed_get_attr_by_NID'); + if not assigned(CMS_signed_get_attr_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_signed_get_attr_by_NID'); + Result := CMS_signed_get_attr_by_NID(si,nid,lastpos); +end; + +function Load_CMS_signed_get_attr_by_OBJ(const si: PCMS_SignerInfo; const obj: ASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + CMS_signed_get_attr_by_OBJ := LoadLibCryptoFunction('CMS_signed_get_attr_by_OBJ'); + if not assigned(CMS_signed_get_attr_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_signed_get_attr_by_OBJ'); + Result := CMS_signed_get_attr_by_OBJ(si,obj,lastpos); +end; + +function Load_CMS_signed_get_attr(const si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +begin + CMS_signed_get_attr := LoadLibCryptoFunction('CMS_signed_get_attr'); + if not assigned(CMS_signed_get_attr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_signed_get_attr'); + Result := CMS_signed_get_attr(si,loc); +end; + +function Load_CMS_signed_delete_attr(const si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +begin + CMS_signed_delete_attr := LoadLibCryptoFunction('CMS_signed_delete_attr'); + if not assigned(CMS_signed_delete_attr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_signed_delete_attr'); + Result := CMS_signed_delete_attr(si,loc); +end; + +function Load_CMS_signed_add1_attr(si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + CMS_signed_add1_attr := LoadLibCryptoFunction('CMS_signed_add1_attr'); + if not assigned(CMS_signed_add1_attr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_signed_add1_attr'); + Result := CMS_signed_add1_attr(si,loc); +end; + +function Load_CMS_signed_add1_attr_by_OBJ(si: PCMS_SignerInfo; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + CMS_signed_add1_attr_by_OBJ := LoadLibCryptoFunction('CMS_signed_add1_attr_by_OBJ'); + if not assigned(CMS_signed_add1_attr_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_signed_add1_attr_by_OBJ'); + Result := CMS_signed_add1_attr_by_OBJ(si,obj,type_,bytes,len); +end; + +function Load_CMS_signed_add1_attr_by_NID(si: PCMS_SignerInfo; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + CMS_signed_add1_attr_by_NID := LoadLibCryptoFunction('CMS_signed_add1_attr_by_NID'); + if not assigned(CMS_signed_add1_attr_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_signed_add1_attr_by_NID'); + Result := CMS_signed_add1_attr_by_NID(si,nid,type_,bytes,len); +end; + +function Load_CMS_signed_add1_attr_by_txt(si: PCMS_SignerInfo; const attrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + CMS_signed_add1_attr_by_txt := LoadLibCryptoFunction('CMS_signed_add1_attr_by_txt'); + if not assigned(CMS_signed_add1_attr_by_txt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_signed_add1_attr_by_txt'); + Result := CMS_signed_add1_attr_by_txt(si,attrname,type_,bytes,len); +end; + +function Load_CMS_signed_get0_data_by_OBJ(si: PCMS_SignerInfo; const oid: PASN1_OBJECT; lastpos: TOpenSSL_C_INT; type_: TOpenSSL_C_INT): Pointer; cdecl; +begin + CMS_signed_get0_data_by_OBJ := LoadLibCryptoFunction('CMS_signed_get0_data_by_OBJ'); + if not assigned(CMS_signed_get0_data_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_signed_get0_data_by_OBJ'); + Result := CMS_signed_get0_data_by_OBJ(si,oid,lastpos,type_); +end; + +function Load_CMS_unsigned_get_attr_count(const si: PCMS_SignerInfo): TOpenSSL_C_INT; cdecl; +begin + CMS_unsigned_get_attr_count := LoadLibCryptoFunction('CMS_unsigned_get_attr_count'); + if not assigned(CMS_unsigned_get_attr_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_unsigned_get_attr_count'); + Result := CMS_unsigned_get_attr_count(si); +end; + +function Load_CMS_unsigned_get_attr_by_NID(const si: PCMS_SignerInfo; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + CMS_unsigned_get_attr_by_NID := LoadLibCryptoFunction('CMS_unsigned_get_attr_by_NID'); + if not assigned(CMS_unsigned_get_attr_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_unsigned_get_attr_by_NID'); + Result := CMS_unsigned_get_attr_by_NID(si,nid,lastpos); +end; + +function Load_CMS_unsigned_get_attr_by_OBJ(const si: PCMS_SignerInfo; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + CMS_unsigned_get_attr_by_OBJ := LoadLibCryptoFunction('CMS_unsigned_get_attr_by_OBJ'); + if not assigned(CMS_unsigned_get_attr_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_unsigned_get_attr_by_OBJ'); + Result := CMS_unsigned_get_attr_by_OBJ(si,obj,lastpos); +end; + +function Load_CMS_unsigned_get_attr(const si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +begin + CMS_unsigned_get_attr := LoadLibCryptoFunction('CMS_unsigned_get_attr'); + if not assigned(CMS_unsigned_get_attr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_unsigned_get_attr'); + Result := CMS_unsigned_get_attr(si,loc); +end; + +function Load_CMS_unsigned_delete_attr(si: PCMS_SignerInfo; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +begin + CMS_unsigned_delete_attr := LoadLibCryptoFunction('CMS_unsigned_delete_attr'); + if not assigned(CMS_unsigned_delete_attr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_unsigned_delete_attr'); + Result := CMS_unsigned_delete_attr(si,loc); +end; + +function Load_CMS_unsigned_add1_attr(si: PCMS_SignerInfo; attr: PX509_ATTRIBUTE): TOpenSSL_C_INT; cdecl; +begin + CMS_unsigned_add1_attr := LoadLibCryptoFunction('CMS_unsigned_add1_attr'); + if not assigned(CMS_unsigned_add1_attr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_unsigned_add1_attr'); + Result := CMS_unsigned_add1_attr(si,attr); +end; + +function Load_CMS_unsigned_add1_attr_by_OBJ(si: PCMS_SignerInfo; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + CMS_unsigned_add1_attr_by_OBJ := LoadLibCryptoFunction('CMS_unsigned_add1_attr_by_OBJ'); + if not assigned(CMS_unsigned_add1_attr_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_unsigned_add1_attr_by_OBJ'); + Result := CMS_unsigned_add1_attr_by_OBJ(si,obj,type_,bytes,len); +end; + +function Load_CMS_unsigned_add1_attr_by_NID(si: PCMS_SignerInfo; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + CMS_unsigned_add1_attr_by_NID := LoadLibCryptoFunction('CMS_unsigned_add1_attr_by_NID'); + if not assigned(CMS_unsigned_add1_attr_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_unsigned_add1_attr_by_NID'); + Result := CMS_unsigned_add1_attr_by_NID(si,nid,type_,bytes,len); +end; + +function Load_CMS_unsigned_add1_attr_by_txt(si: PCMS_SignerInfo; const attrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + CMS_unsigned_add1_attr_by_txt := LoadLibCryptoFunction('CMS_unsigned_add1_attr_by_txt'); + if not assigned(CMS_unsigned_add1_attr_by_txt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_unsigned_add1_attr_by_txt'); + Result := CMS_unsigned_add1_attr_by_txt(si,attrname,type_,bytes,len); +end; + +function Load_CMS_unsigned_get0_data_by_OBJ(si: PCMS_SignerInfo; oid: PASN1_OBJECT; lastpos: TOpenSSL_C_INT; type_: TOpenSSL_C_INT): Pointer; cdecl; +begin + CMS_unsigned_get0_data_by_OBJ := LoadLibCryptoFunction('CMS_unsigned_get0_data_by_OBJ'); + if not assigned(CMS_unsigned_get0_data_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_unsigned_get0_data_by_OBJ'); + Result := CMS_unsigned_get0_data_by_OBJ(si,oid,lastpos,type_); +end; + +function Load_CMS_get1_ReceiptRequest(si: PCMS_SignerInfo; prr: PPCMS_ReceiptRequest): TOpenSSL_C_INT; cdecl; +begin + CMS_get1_ReceiptRequest := LoadLibCryptoFunction('CMS_get1_ReceiptRequest'); + if not assigned(CMS_get1_ReceiptRequest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_get1_ReceiptRequest'); + Result := CMS_get1_ReceiptRequest(si,prr); +end; + +function Load_CMS_add1_ReceiptRequest(si: PCMS_SignerInfo; rr: PCMS_ReceiptRequest): TOpenSSL_C_INT; cdecl; +begin + CMS_add1_ReceiptRequest := LoadLibCryptoFunction('CMS_add1_ReceiptRequest'); + if not assigned(CMS_add1_ReceiptRequest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_add1_ReceiptRequest'); + Result := CMS_add1_ReceiptRequest(si,rr); +end; + +function Load_CMS_RecipientInfo_kari_get0_orig_id(ri: PCMS_RecipientInfo; pubalg: PPX509_ALGOR; pubkey: PASN1_BIT_STRING; keyid: PPASN1_OCTET_STRING; issuer: PPX509_NAME; sno: PPASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientInfo_kari_get0_orig_id := LoadLibCryptoFunction('CMS_RecipientInfo_kari_get0_orig_id'); + if not assigned(CMS_RecipientInfo_kari_get0_orig_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_kari_get0_orig_id'); + Result := CMS_RecipientInfo_kari_get0_orig_id(ri,pubalg,pubkey,keyid,issuer,sno); +end; + +function Load_CMS_RecipientInfo_kari_orig_id_cmp(ri: PCMS_RecipientInfo; cert: PX509): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientInfo_kari_orig_id_cmp := LoadLibCryptoFunction('CMS_RecipientInfo_kari_orig_id_cmp'); + if not assigned(CMS_RecipientInfo_kari_orig_id_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_kari_orig_id_cmp'); + Result := CMS_RecipientInfo_kari_orig_id_cmp(ri,cert); +end; + +function Load_CMS_RecipientEncryptedKey_get0_id(rek: PCMS_RecipientEncryptedKey; keyid: PPASN1_OCTET_STRING; tm: PPASN1_GENERALIZEDTIME; other: PPCMS_OtherKeyAttribute; issuer: PPX509_NAME; sno: PPASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientEncryptedKey_get0_id := LoadLibCryptoFunction('CMS_RecipientEncryptedKey_get0_id'); + if not assigned(CMS_RecipientEncryptedKey_get0_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientEncryptedKey_get0_id'); + Result := CMS_RecipientEncryptedKey_get0_id(rek,keyid,tm,other,issuer,sno); +end; + +function Load_CMS_RecipientEncryptedKey_cert_cmp(rek: PCMS_RecipientEncryptedKey; cert: PX509): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientEncryptedKey_cert_cmp := LoadLibCryptoFunction('CMS_RecipientEncryptedKey_cert_cmp'); + if not assigned(CMS_RecipientEncryptedKey_cert_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientEncryptedKey_cert_cmp'); + Result := CMS_RecipientEncryptedKey_cert_cmp(rek,cert); +end; + +function Load_CMS_RecipientInfo_kari_set0_pkey(ri: PCMS_RecipientInfo; pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientInfo_kari_set0_pkey := LoadLibCryptoFunction('CMS_RecipientInfo_kari_set0_pkey'); + if not assigned(CMS_RecipientInfo_kari_set0_pkey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_kari_set0_pkey'); + Result := CMS_RecipientInfo_kari_set0_pkey(ri,pk); +end; + +function Load_CMS_RecipientInfo_kari_get0_ctx(ri: PCMS_RecipientInfo): PEVP_CIPHER_CTX; cdecl; +begin + CMS_RecipientInfo_kari_get0_ctx := LoadLibCryptoFunction('CMS_RecipientInfo_kari_get0_ctx'); + if not assigned(CMS_RecipientInfo_kari_get0_ctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_kari_get0_ctx'); + Result := CMS_RecipientInfo_kari_get0_ctx(ri); +end; + +function Load_CMS_RecipientInfo_kari_decrypt(cms: PCMS_ContentInfo; ri: PCMS_RecipientInfo; rek: PCMS_RecipientEncryptedKey): TOpenSSL_C_INT; cdecl; +begin + CMS_RecipientInfo_kari_decrypt := LoadLibCryptoFunction('CMS_RecipientInfo_kari_decrypt'); + if not assigned(CMS_RecipientInfo_kari_decrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_RecipientInfo_kari_decrypt'); + Result := CMS_RecipientInfo_kari_decrypt(cms,ri,rek); +end; + +function Load_CMS_SharedInfo_encode(pder: PPByte; kekalg: PX509_ALGOR; ukm: PASN1_OCTET_STRING; keylen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + CMS_SharedInfo_encode := LoadLibCryptoFunction('CMS_SharedInfo_encode'); + if not assigned(CMS_SharedInfo_encode) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CMS_SharedInfo_encode'); + Result := CMS_SharedInfo_encode(pder,kekalg,ukm,keylen); +end; + + +procedure UnLoad; +begin + CMS_get0_type := Load_CMS_get0_type; + CMS_dataInit := Load_CMS_dataInit; + CMS_dataFinal := Load_CMS_dataFinal; + CMS_get0_content := Load_CMS_get0_content; + CMS_is_detached := Load_CMS_is_detached; + CMS_set_detached := Load_CMS_set_detached; + CMS_stream := Load_CMS_stream; + d2i_CMS_bio := Load_d2i_CMS_bio; + i2d_CMS_bio := Load_i2d_CMS_bio; + BIO_new_CMS := Load_BIO_new_CMS; + i2d_CMS_bio_stream := Load_i2d_CMS_bio_stream; + PEM_write_bio_CMS_stream := Load_PEM_write_bio_CMS_stream; + SMIME_read_CMS := Load_SMIME_read_CMS; + SMIME_write_CMS := Load_SMIME_write_CMS; + CMS_final := Load_CMS_final; + CMS_data := Load_CMS_data; + CMS_data_create := Load_CMS_data_create; + CMS_digest_verify := Load_CMS_digest_verify; + CMS_digest_create := Load_CMS_digest_create; + CMS_EncryptedData_decrypt := Load_CMS_EncryptedData_decrypt; + CMS_EncryptedData_encrypt := Load_CMS_EncryptedData_encrypt; + CMS_EncryptedData_set1_key := Load_CMS_EncryptedData_set1_key; + CMS_decrypt := Load_CMS_decrypt; + CMS_decrypt_set1_pkey := Load_CMS_decrypt_set1_pkey; + CMS_decrypt_set1_key := Load_CMS_decrypt_set1_key; + CMS_decrypt_set1_password := Load_CMS_decrypt_set1_password; + CMS_RecipientInfo_type := Load_CMS_RecipientInfo_type; + CMS_RecipientInfo_get0_pkey_ctx := Load_CMS_RecipientInfo_get0_pkey_ctx; + CMS_EnvelopedData_create := Load_CMS_EnvelopedData_create; + CMS_add1_recipient_cert := Load_CMS_add1_recipient_cert; + CMS_RecipientInfo_set0_pkey := Load_CMS_RecipientInfo_set0_pkey; + CMS_RecipientInfo_ktri_cert_cmp := Load_CMS_RecipientInfo_ktri_cert_cmp; + CMS_RecipientInfo_ktri_get0_algs := Load_CMS_RecipientInfo_ktri_get0_algs; + CMS_RecipientInfo_ktri_get0_signer_id := Load_CMS_RecipientInfo_ktri_get0_signer_id; + CMS_add0_recipient_key := Load_CMS_add0_recipient_key; + CMS_RecipientInfo_kekri_get0_id := Load_CMS_RecipientInfo_kekri_get0_id; + CMS_RecipientInfo_set0_key := Load_CMS_RecipientInfo_set0_key; + CMS_RecipientInfo_kekri_id_cmp := Load_CMS_RecipientInfo_kekri_id_cmp; + CMS_RecipientInfo_set0_password := Load_CMS_RecipientInfo_set0_password; + CMS_add0_recipient_password := Load_CMS_add0_recipient_password; + CMS_RecipientInfo_decrypt := Load_CMS_RecipientInfo_decrypt; + CMS_RecipientInfo_encrypt := Load_CMS_RecipientInfo_encrypt; + CMS_uncompress := Load_CMS_uncompress; + CMS_compress := Load_CMS_compress; + CMS_set1_eContentType := Load_CMS_set1_eContentType; + CMS_get0_eContentType := Load_CMS_get0_eContentType; + CMS_add0_CertificateChoices := Load_CMS_add0_CertificateChoices; + CMS_add0_cert := Load_CMS_add0_cert; + CMS_add1_cert := Load_CMS_add1_cert; + CMS_add0_RevocationInfoChoice := Load_CMS_add0_RevocationInfoChoice; + CMS_add0_crl := Load_CMS_add0_crl; + CMS_add1_crl := Load_CMS_add1_crl; + CMS_SignedData_init := Load_CMS_SignedData_init; + CMS_add1_signer := Load_CMS_add1_signer; + CMS_SignerInfo_get0_pkey_ctx := Load_CMS_SignerInfo_get0_pkey_ctx; + CMS_SignerInfo_get0_md_ctx := Load_CMS_SignerInfo_get0_md_ctx; + CMS_SignerInfo_set1_signer_cert := Load_CMS_SignerInfo_set1_signer_cert; + CMS_SignerInfo_get0_signer_id := Load_CMS_SignerInfo_get0_signer_id; + CMS_SignerInfo_cert_cmp := Load_CMS_SignerInfo_cert_cmp; + CMS_SignerInfo_get0_algs := Load_CMS_SignerInfo_get0_algs; + CMS_SignerInfo_get0_signature := Load_CMS_SignerInfo_get0_signature; + CMS_SignerInfo_sign := Load_CMS_SignerInfo_sign; + CMS_SignerInfo_verify := Load_CMS_SignerInfo_verify; + CMS_SignerInfo_verify_content := Load_CMS_SignerInfo_verify_content; + CMS_signed_get_attr_count := Load_CMS_signed_get_attr_count; + CMS_signed_get_attr_by_NID := Load_CMS_signed_get_attr_by_NID; + CMS_signed_get_attr_by_OBJ := Load_CMS_signed_get_attr_by_OBJ; + CMS_signed_get_attr := Load_CMS_signed_get_attr; + CMS_signed_delete_attr := Load_CMS_signed_delete_attr; + CMS_signed_add1_attr := Load_CMS_signed_add1_attr; + CMS_signed_add1_attr_by_OBJ := Load_CMS_signed_add1_attr_by_OBJ; + CMS_signed_add1_attr_by_NID := Load_CMS_signed_add1_attr_by_NID; + CMS_signed_add1_attr_by_txt := Load_CMS_signed_add1_attr_by_txt; + CMS_signed_get0_data_by_OBJ := Load_CMS_signed_get0_data_by_OBJ; + CMS_unsigned_get_attr_count := Load_CMS_unsigned_get_attr_count; + CMS_unsigned_get_attr_by_NID := Load_CMS_unsigned_get_attr_by_NID; + CMS_unsigned_get_attr_by_OBJ := Load_CMS_unsigned_get_attr_by_OBJ; + CMS_unsigned_get_attr := Load_CMS_unsigned_get_attr; + CMS_unsigned_delete_attr := Load_CMS_unsigned_delete_attr; + CMS_unsigned_add1_attr := Load_CMS_unsigned_add1_attr; + CMS_unsigned_add1_attr_by_OBJ := Load_CMS_unsigned_add1_attr_by_OBJ; + CMS_unsigned_add1_attr_by_NID := Load_CMS_unsigned_add1_attr_by_NID; + CMS_unsigned_add1_attr_by_txt := Load_CMS_unsigned_add1_attr_by_txt; + CMS_unsigned_get0_data_by_OBJ := Load_CMS_unsigned_get0_data_by_OBJ; + CMS_get1_ReceiptRequest := Load_CMS_get1_ReceiptRequest; + CMS_add1_ReceiptRequest := Load_CMS_add1_ReceiptRequest; + CMS_RecipientInfo_kari_get0_orig_id := Load_CMS_RecipientInfo_kari_get0_orig_id; + CMS_RecipientInfo_kari_orig_id_cmp := Load_CMS_RecipientInfo_kari_orig_id_cmp; + CMS_RecipientEncryptedKey_get0_id := Load_CMS_RecipientEncryptedKey_get0_id; + CMS_RecipientEncryptedKey_cert_cmp := Load_CMS_RecipientEncryptedKey_cert_cmp; + CMS_RecipientInfo_kari_set0_pkey := Load_CMS_RecipientInfo_kari_set0_pkey; + CMS_RecipientInfo_kari_get0_ctx := Load_CMS_RecipientInfo_kari_get0_ctx; + CMS_RecipientInfo_kari_decrypt := Load_CMS_RecipientInfo_kari_decrypt; + CMS_SharedInfo_encode := Load_CMS_SharedInfo_encode; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_cmserr.pas b/src/opensslHdrs/IdOpenSSLHeaders_cmserr.pas new file mode 100644 index 0000000..489de83 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_cmserr.pas @@ -0,0 +1,271 @@ +(* This unit was generated from the source file cmserr.h2pas +It should not be modified directly. All changes should be made to cmserr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_cmserr; + + +interface + +// Headers for OpenSSL 1.1.1 +// cmserr.h + + +uses + IdSSLOpenSSLAPI; + +const + // + // CMS function codes. + // + CMS_F_CHECK_CONTENT = 99; + CMS_F_CMS_ADD0_CERT = 164; + CMS_F_CMS_ADD0_RECIPIENT_KEY = 100; + CMS_F_CMS_ADD0_RECIPIENT_PASSWORD = 165; + CMS_F_CMS_ADD1_RECEIPTREQUEST = 158; + CMS_F_CMS_ADD1_RECIPIENT_CERT = 101; + CMS_F_CMS_ADD1_SIGNER = 102; + CMS_F_CMS_ADD1_SIGNINGTIME = 103; + CMS_F_CMS_COMPRESS = 104; + CMS_F_CMS_COMPRESSEDDATA_CREATE = 105; + CMS_F_CMS_COMPRESSEDDATA_INIT_BIO = 106; + CMS_F_CMS_COPY_CONTENT = 107; + CMS_F_CMS_COPY_MESSAGEDIGEST = 108; + CMS_F_CMS_DATA = 109; + CMS_F_CMS_DATAFINAL = 110; + CMS_F_CMS_DATAINIT = 111; + CMS_F_CMS_DECRYPT = 112; + CMS_F_CMS_DECRYPT_SET1_KEY = 113; + CMS_F_CMS_DECRYPT_SET1_PASSWORD = 166; + CMS_F_CMS_DECRYPT_SET1_PKEY = 114; + CMS_F_CMS_DIGESTALGORITHM_FIND_CTX = 115; + CMS_F_CMS_DIGESTALGORITHM_INIT_BIO = 116; + CMS_F_CMS_DIGESTEDDATA_DO_FINAL = 117; + CMS_F_CMS_DIGEST_VERIFY = 118; + CMS_F_CMS_ENCODE_RECEIPT = 161; + CMS_F_CMS_ENCRYPT = 119; + CMS_F_CMS_ENCRYPTEDCONTENT_INIT = 179; + CMS_F_CMS_ENCRYPTEDCONTENT_INIT_BIO = 120; + CMS_F_CMS_ENCRYPTEDDATA_DECRYPT = 121; + CMS_F_CMS_ENCRYPTEDDATA_ENCRYPT = 122; + CMS_F_CMS_ENCRYPTEDDATA_SET1_KEY = 123; + CMS_F_CMS_ENVELOPEDDATA_CREATE = 124; + CMS_F_CMS_ENVELOPEDDATA_INIT_BIO = 125; + CMS_F_CMS_ENVELOPED_DATA_INIT = 126; + CMS_F_CMS_ENV_ASN1_CTRL = 171; + CMS_F_CMS_FINAL = 127; + CMS_F_CMS_GET0_CERTIFICATE_CHOICES = 128; + CMS_F_CMS_GET0_CONTENT = 129; + CMS_F_CMS_GET0_ECONTENT_TYPE = 130; + CMS_F_CMS_GET0_ENVELOPED = 131; + CMS_F_CMS_GET0_REVOCATION_CHOICES = 132; + CMS_F_CMS_GET0_SIGNED = 133; + CMS_F_CMS_MSGSIGDIGEST_ADD1 = 162; + CMS_F_CMS_RECEIPTREQUEST_CREATE0 = 159; + CMS_F_CMS_RECEIPT_VERIFY = 160; + CMS_F_CMS_RECIPIENTINFO_DECRYPT = 134; + CMS_F_CMS_RECIPIENTINFO_ENCRYPT = 169; + CMS_F_CMS_RECIPIENTINFO_KARI_ENCRYPT = 178; + CMS_F_CMS_RECIPIENTINFO_KARI_GET0_ALG = 175; + CMS_F_CMS_RECIPIENTINFO_KARI_GET0_ORIG_ID = 173; + CMS_F_CMS_RECIPIENTINFO_KARI_GET0_REKS = 172; + CMS_F_CMS_RECIPIENTINFO_KARI_ORIG_ID_CMP = 174; + CMS_F_CMS_RECIPIENTINFO_KEKRI_DECRYPT = 135; + CMS_F_CMS_RECIPIENTINFO_KEKRI_ENCRYPT = 136; + CMS_F_CMS_RECIPIENTINFO_KEKRI_GET0_ID = 137; + CMS_F_CMS_RECIPIENTINFO_KEKRI_ID_CMP = 138; + CMS_F_CMS_RECIPIENTINFO_KTRI_CERT_CMP = 139; + CMS_F_CMS_RECIPIENTINFO_KTRI_DECRYPT = 140; + CMS_F_CMS_RECIPIENTINFO_KTRI_ENCRYPT = 141; + CMS_F_CMS_RECIPIENTINFO_KTRI_GET0_ALGS = 142; + CMS_F_CMS_RECIPIENTINFO_KTRI_GET0_SIGNER_ID = 143; + CMS_F_CMS_RECIPIENTINFO_PWRI_CRYPT = 167; + CMS_F_CMS_RECIPIENTINFO_SET0_KEY = 144; + CMS_F_CMS_RECIPIENTINFO_SET0_PASSWORD = 168; + CMS_F_CMS_RECIPIENTINFO_SET0_PKEY = 145; + CMS_F_CMS_SD_ASN1_CTRL = 170; + CMS_F_CMS_SET1_IAS = 176; + CMS_F_CMS_SET1_KEYID = 177; + CMS_F_CMS_SET1_SIGNERIDENTIFIER = 146; + CMS_F_CMS_SET_DETACHED = 147; + CMS_F_CMS_SIGN = 148; + CMS_F_CMS_SIGNED_DATA_INIT = 149; + CMS_F_CMS_SIGNERINFO_CONTENT_SIGN = 150; + CMS_F_CMS_SIGNERINFO_SIGN = 151; + CMS_F_CMS_SIGNERINFO_VERIFY = 152; + CMS_F_CMS_SIGNERINFO_VERIFY_CERT = 153; + CMS_F_CMS_SIGNERINFO_VERIFY_CONTENT = 154; + CMS_F_CMS_SIGN_RECEIPT = 163; + CMS_F_CMS_SI_CHECK_ATTRIBUTES = 183; + CMS_F_CMS_STREAM = 155; + CMS_F_CMS_UNCOMPRESS = 156; + CMS_F_CMS_VERIFY = 157; + CMS_F_KEK_UNWRAP_KEY = 180; + + // + // CMS reason codes. + // + CMS_R_ADD_SIGNER_ERROR = 99; + CMS_R_ATTRIBUTE_ERROR = 161; + CMS_R_CERTIFICATE_ALREADY_PRESENT = 175; + CMS_R_CERTIFICATE_HAS_NO_KEYID = 160; + CMS_R_CERTIFICATE_VERIFY_ERROR = 100; + CMS_R_CIPHER_INITIALISATION_ERROR = 101; + CMS_R_CIPHER_PARAMETER_INITIALISATION_ERROR = 102; + CMS_R_CMS_DATAFINAL_ERROR = 103; + CMS_R_CMS_LIB = 104; + CMS_R_CONTENTIDENTIFIER_MISMATCH = 170; + CMS_R_CONTENT_NOT_FOUND = 105; + CMS_R_CONTENT_TYPE_MISMATCH = 171; + CMS_R_CONTENT_TYPE_NOT_COMPRESSED_DATA = 106; + CMS_R_CONTENT_TYPE_NOT_ENVELOPED_DATA = 107; + CMS_R_CONTENT_TYPE_NOT_SIGNED_DATA = 108; + CMS_R_CONTENT_VERIFY_ERROR = 109; + CMS_R_CTRL_ERROR = 110; + CMS_R_CTRL_FAILURE = 111; + CMS_R_DECRYPT_ERROR = 112; + CMS_R_ERROR_GETTING_PUBLIC_KEY = 113; + CMS_R_ERROR_READING_MESSAGEDIGEST_ATTRIBUTE = 114; + CMS_R_ERROR_SETTING_KEY = 115; + CMS_R_ERROR_SETTING_RECIPIENTINFO = 116; + CMS_R_INVALID_ENCRYPTED_KEY_LENGTH = 117; + CMS_R_INVALID_KEY_ENCRYPTION_PARAMETER = 176; + CMS_R_INVALID_KEY_LENGTH = 118; + CMS_R_MD_BIO_INIT_ERROR = 119; + CMS_R_MESSAGEDIGEST_ATTRIBUTE_WRONG_LENGTH = 120; + CMS_R_MESSAGEDIGEST_WRONG_LENGTH = 121; + CMS_R_MSGSIGDIGEST_ERROR = 172; + CMS_R_MSGSIGDIGEST_VERIFICATION_FAILURE = 162; + CMS_R_MSGSIGDIGEST_WRONG_LENGTH = 163; + CMS_R_NEED_ONE_SIGNER = 164; + CMS_R_NOT_A_SIGNED_RECEIPT = 165; + CMS_R_NOT_ENCRYPTED_DATA = 122; + CMS_R_NOT_KEK = 123; + CMS_R_NOT_KEY_AGREEMENT = 181; + CMS_R_NOT_KEY_TRANSPORT = 124; + CMS_R_NOT_PWRI = 177; + CMS_R_NOT_SUPPORTED_FOR_THIS_KEY_TYPE = 125; + CMS_R_NO_CIPHER = 126; + CMS_R_NO_CONTENT = 127; + CMS_R_NO_CONTENT_TYPE = 173; + CMS_R_NO_DEFAULT_DIGEST = 128; + CMS_R_NO_DIGEST_SET = 129; + CMS_R_NO_KEY = 130; + CMS_R_NO_KEY_OR_CERT = 174; + CMS_R_NO_MATCHING_DIGEST = 131; + CMS_R_NO_MATCHING_RECIPIENT = 132; + CMS_R_NO_MATCHING_SIGNATURE = 166; + CMS_R_NO_MSGSIGDIGEST = 167; + CMS_R_NO_PASSWORD = 178; + CMS_R_NO_PRIVATE_KEY = 133; + CMS_R_NO_PUBLIC_KEY = 134; + CMS_R_NO_RECEIPT_REQUEST = 168; + CMS_R_NO_SIGNERS = 135; + CMS_R_PRIVATE_KEY_DOES_NOT_MATCH_CERTIFICATE = 136; + CMS_R_RECEIPT_DECODE_ERROR = 169; + CMS_R_RECIPIENT_ERROR = 137; + CMS_R_SIGNER_CERTIFICATE_NOT_FOUND = 138; + CMS_R_SIGNFINAL_ERROR = 139; + CMS_R_SMIME_TEXT_ERROR = 140; + CMS_R_STORE_INIT_ERROR = 141; + CMS_R_TYPE_NOT_COMPRESSED_DATA = 142; + CMS_R_TYPE_NOT_DATA = 143; + CMS_R_TYPE_NOT_DIGESTED_DATA = 144; + CMS_R_TYPE_NOT_ENCRYPTED_DATA = 145; + CMS_R_TYPE_NOT_ENVELOPED_DATA = 146; + CMS_R_UNABLE_TO_FINALIZE_CONTEXT = 147; + CMS_R_UNKNOWN_CIPHER = 148; + CMS_R_UNKNOWN_DIGEST_ALGORITHM = 149; + CMS_R_UNKNOWN_ID = 150; + CMS_R_UNSUPPORTED_COMPRESSION_ALGORITHM = 151; + CMS_R_UNSUPPORTED_CONTENT_TYPE = 152; + CMS_R_UNSUPPORTED_KEK_ALGORITHM = 153; + CMS_R_UNSUPPORTED_KEY_ENCRYPTION_ALGORITHM = 179; + CMS_R_UNSUPPORTED_RECIPIENTINFO_TYPE = 155; + CMS_R_UNSUPPORTED_RECIPIENT_TYPE = 154; + CMS_R_UNSUPPORTED_TYPE = 156; + CMS_R_UNWRAP_ERROR = 157; + CMS_R_UNWRAP_FAILURE = 180; + CMS_R_VERIFICATION_FAILURE = 158; + CMS_R_WRAP_ERROR = 159; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_CMS_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_CMS_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_CMS_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_CMS_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_CMS_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_CMS_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_CMS_strings := LoadLibCryptoFunction('ERR_load_CMS_strings'); + if not assigned(ERR_load_CMS_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_CMS_strings'); + Result := ERR_load_CMS_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_CMS_strings := Load_ERR_load_CMS_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_comp.pas b/src/opensslHdrs/IdOpenSSLHeaders_comp.pas new file mode 100644 index 0000000..8ff10fc --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_comp.pas @@ -0,0 +1,215 @@ +(* This unit was generated from the source file comp.h2pas +It should not be modified directly. All changes should be made to comp.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_comp; + + +interface + +// Headers for OpenSSL 1.1.1 +// comp.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_bio, + IdOpenSSLHeaders_ossl_typ; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM COMP_CTX_new} +{$EXTERNALSYM COMP_CTX_get_method} +{$EXTERNALSYM COMP_CTX_get_type} +{$EXTERNALSYM COMP_get_type} +{$EXTERNALSYM COMP_get_name} +{$EXTERNALSYM COMP_CTX_free} +{$EXTERNALSYM COMP_compress_block} +{$EXTERNALSYM COMP_expand_block} +{$EXTERNALSYM COMP_zlib} +{$EXTERNALSYM BIO_f_zlib} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function COMP_CTX_new(meth: PCOMP_METHOD): PCOMP_CTX; cdecl; external CLibCrypto; +function COMP_CTX_get_method(const ctx: PCOMP_CTX): PCOMP_METHOD; cdecl; external CLibCrypto; +function COMP_CTX_get_type(const comp: PCOMP_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function COMP_get_type(const meth: PCOMP_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function COMP_get_name(const meth: PCOMP_METHOD): PAnsiChar; cdecl; external CLibCrypto; +procedure COMP_CTX_free(ctx: PCOMP_CTX); cdecl; external CLibCrypto; +function COMP_compress_block(ctx: PCOMP_CTX; out_: PByte; olen: TOpenSSL_C_INT; in_: PByte; ilen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function COMP_expand_block(ctx: PCOMP_CTX; out_: PByte; olen: TOpenSSL_C_INT; in_: PByte; ilen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function COMP_zlib: PCOMP_METHOD; cdecl; external CLibCrypto; +function BIO_f_zlib: PBIO_METHOD; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_COMP_CTX_new(meth: PCOMP_METHOD): PCOMP_CTX; cdecl; +function Load_COMP_CTX_get_method(const ctx: PCOMP_CTX): PCOMP_METHOD; cdecl; +function Load_COMP_CTX_get_type(const comp: PCOMP_CTX): TOpenSSL_C_INT; cdecl; +function Load_COMP_get_type(const meth: PCOMP_METHOD): TOpenSSL_C_INT; cdecl; +function Load_COMP_get_name(const meth: PCOMP_METHOD): PAnsiChar; cdecl; +procedure Load_COMP_CTX_free(ctx: PCOMP_CTX); cdecl; +function Load_COMP_compress_block(ctx: PCOMP_CTX; out_: PByte; olen: TOpenSSL_C_INT; in_: PByte; ilen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_COMP_expand_block(ctx: PCOMP_CTX; out_: PByte; olen: TOpenSSL_C_INT; in_: PByte; ilen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_COMP_zlib: PCOMP_METHOD; cdecl; +function Load_BIO_f_zlib: PBIO_METHOD; cdecl; + +var + COMP_CTX_new: function (meth: PCOMP_METHOD): PCOMP_CTX; cdecl = Load_COMP_CTX_new; + COMP_CTX_get_method: function (const ctx: PCOMP_CTX): PCOMP_METHOD; cdecl = Load_COMP_CTX_get_method; + COMP_CTX_get_type: function (const comp: PCOMP_CTX): TOpenSSL_C_INT; cdecl = Load_COMP_CTX_get_type; + COMP_get_type: function (const meth: PCOMP_METHOD): TOpenSSL_C_INT; cdecl = Load_COMP_get_type; + COMP_get_name: function (const meth: PCOMP_METHOD): PAnsiChar; cdecl = Load_COMP_get_name; + COMP_CTX_free: procedure (ctx: PCOMP_CTX); cdecl = Load_COMP_CTX_free; + COMP_compress_block: function (ctx: PCOMP_CTX; out_: PByte; olen: TOpenSSL_C_INT; in_: PByte; ilen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_COMP_compress_block; + COMP_expand_block: function (ctx: PCOMP_CTX; out_: PByte; olen: TOpenSSL_C_INT; in_: PByte; ilen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_COMP_expand_block; + COMP_zlib: function : PCOMP_METHOD; cdecl = Load_COMP_zlib; + BIO_f_zlib: function : PBIO_METHOD; cdecl = Load_BIO_f_zlib; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_COMP_CTX_new(meth: PCOMP_METHOD): PCOMP_CTX; cdecl; +begin + COMP_CTX_new := LoadLibCryptoFunction('COMP_CTX_new'); + if not assigned(COMP_CTX_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('COMP_CTX_new'); + Result := COMP_CTX_new(meth); +end; + +function Load_COMP_CTX_get_method(const ctx: PCOMP_CTX): PCOMP_METHOD; cdecl; +begin + COMP_CTX_get_method := LoadLibCryptoFunction('COMP_CTX_get_method'); + if not assigned(COMP_CTX_get_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('COMP_CTX_get_method'); + Result := COMP_CTX_get_method(ctx); +end; + +function Load_COMP_CTX_get_type(const comp: PCOMP_CTX): TOpenSSL_C_INT; cdecl; +begin + COMP_CTX_get_type := LoadLibCryptoFunction('COMP_CTX_get_type'); + if not assigned(COMP_CTX_get_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('COMP_CTX_get_type'); + Result := COMP_CTX_get_type(comp); +end; + +function Load_COMP_get_type(const meth: PCOMP_METHOD): TOpenSSL_C_INT; cdecl; +begin + COMP_get_type := LoadLibCryptoFunction('COMP_get_type'); + if not assigned(COMP_get_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('COMP_get_type'); + Result := COMP_get_type(meth); +end; + +function Load_COMP_get_name(const meth: PCOMP_METHOD): PAnsiChar; cdecl; +begin + COMP_get_name := LoadLibCryptoFunction('COMP_get_name'); + if not assigned(COMP_get_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('COMP_get_name'); + Result := COMP_get_name(meth); +end; + +procedure Load_COMP_CTX_free(ctx: PCOMP_CTX); cdecl; +begin + COMP_CTX_free := LoadLibCryptoFunction('COMP_CTX_free'); + if not assigned(COMP_CTX_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('COMP_CTX_free'); + COMP_CTX_free(ctx); +end; + +function Load_COMP_compress_block(ctx: PCOMP_CTX; out_: PByte; olen: TOpenSSL_C_INT; in_: PByte; ilen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + COMP_compress_block := LoadLibCryptoFunction('COMP_compress_block'); + if not assigned(COMP_compress_block) then + EOpenSSLAPIFunctionNotPresent.RaiseException('COMP_compress_block'); + Result := COMP_compress_block(ctx,out_,olen,in_,ilen); +end; + +function Load_COMP_expand_block(ctx: PCOMP_CTX; out_: PByte; olen: TOpenSSL_C_INT; in_: PByte; ilen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + COMP_expand_block := LoadLibCryptoFunction('COMP_expand_block'); + if not assigned(COMP_expand_block) then + EOpenSSLAPIFunctionNotPresent.RaiseException('COMP_expand_block'); + Result := COMP_expand_block(ctx,out_,olen,in_,ilen); +end; + +function Load_COMP_zlib: PCOMP_METHOD; cdecl; +begin + COMP_zlib := LoadLibCryptoFunction('COMP_zlib'); + if not assigned(COMP_zlib) then + EOpenSSLAPIFunctionNotPresent.RaiseException('COMP_zlib'); + Result := COMP_zlib(); +end; + +function Load_BIO_f_zlib: PBIO_METHOD; cdecl; +begin + BIO_f_zlib := LoadLibCryptoFunction('BIO_f_zlib'); + if not assigned(BIO_f_zlib) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_f_zlib'); + Result := BIO_f_zlib(); +end; + + +procedure UnLoad; +begin + COMP_CTX_new := Load_COMP_CTX_new; + COMP_CTX_get_method := Load_COMP_CTX_get_method; + COMP_CTX_get_type := Load_COMP_CTX_get_type; + COMP_get_type := Load_COMP_get_type; + COMP_get_name := Load_COMP_get_name; + COMP_CTX_free := Load_COMP_CTX_free; + COMP_compress_block := Load_COMP_compress_block; + COMP_expand_block := Load_COMP_expand_block; + COMP_zlib := Load_COMP_zlib; + BIO_f_zlib := Load_BIO_f_zlib; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_comperr.pas b/src/opensslHdrs/IdOpenSSLHeaders_comperr.pas new file mode 100644 index 0000000..0e2665c --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_comperr.pas @@ -0,0 +1,113 @@ +(* This unit was generated from the source file comperr.h2pas +It should not be modified directly. All changes should be made to comperr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_comperr; + + +interface + +// Headers for OpenSSL 1.1.1 +// comperr.h + + +uses + IdSSLOpenSSLAPI; + +const +///* +// * COMP function codes. +// */ + COMP_F_BIO_ZLIB_FLUSH = 99; + COMP_F_BIO_ZLIB_NEW = 100; + COMP_F_BIO_ZLIB_READ = 101; + COMP_F_BIO_ZLIB_WRITE = 102; + COMP_F_COMP_CTX_NEW = 103; + +///* +// * COMP reason codes. +// */ + COMP_R_ZLIB_DEFLATE_ERROR = 99; + COMP_R_ZLIB_INFLATE_ERROR = 100; + COMP_R_ZLIB_NOT_SUPPORTED = 101; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_COMP_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_COMP_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_COMP_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_COMP_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_COMP_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_COMP_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_COMP_strings := LoadLibCryptoFunction('ERR_load_COMP_strings'); + if not assigned(ERR_load_COMP_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_COMP_strings'); + Result := ERR_load_COMP_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_COMP_strings := Load_ERR_load_COMP_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_conf.pas b/src/opensslHdrs/IdOpenSSLHeaders_conf.pas new file mode 100644 index 0000000..cb9afa4 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_conf.pas @@ -0,0 +1,480 @@ +(* This unit was generated from the source file conf.h2pas +It should not be modified directly. All changes should be made to conf.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_conf; + + +interface + +// Headers for OpenSSL 1.1.1 +// conf.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_bio, + IdOpenSSLHeaders_ossl_typ; + +type + CONF_parse_list_list_cb = function (const elem: PAnsiChar; len: TOpenSSL_C_INT; usr: Pointer): TOpenSSL_C_INT; + + CONF_VALUE = record + section: PAnsiChar; + name: PAnsiChar; + value: PAnsiChar; + end; + PCONF_VALUE = ^CONF_VALUE; + +//DEFINE_STACK_OF(CONF_VALUE) +//DEFINE_LHASH_OF(CONF_VALUE); + + conf_st = type Pointer; + conf_method_st = type Pointer; + CONF_METHOD = conf_method_st; + PCONF_METHOD = ^conf_method_st; + CONF = conf_st; + PCONF = ^CONF; + + {conf_method_st = record + const char *name; + CONF *(*create) (CONF_METHOD *meth); + int (*init) (CONF *conf); + int (*destroy) (CONF *conf); + int (*destroy_data) (CONF *conf); + int (*load_bio) (CONF *conf, BIO *bp, long *eline); + int (*dump) (const CONF *conf, BIO *bp); + int (*is_number) (const CONF *conf, char c); + int (*to_int) (const CONF *conf, char c); + int (*load) (CONF *conf, const char *name, long *eline); + end; } + +//* Module definitions */ + + conf_imodule_st = type Pointer; + CONF_IMODULE = conf_imodule_st; + PCONF_IMODULE = ^CONF_IMODULE; + conf_module_st = type Pointer; + CONF_MODULE = conf_module_st; + PCONF_MODULE = ^CONF_MODULE; + +//DEFINE_STACK_OF(CONF_MODULE) +//DEFINE_STACK_OF(CONF_IMODULE) + +//* DSO module function typedefs */ + conf_init_func = function(md: PCONF_IMODULE; const cnf: PCONF): TOpenSSL_C_INT; + conf_finish_func = procedure(md: PCONF_IMODULE); + +const + CONF_MFLAGS_IGNORE_ERRORS = $1; + CONF_MFLAGS_IGNORE_RETURN_CODES = $2; + CONF_MFLAGS_SILENT = $4; + CONF_MFLAGS_NO_DSO = $8; + CONF_MFLAGS_IGNORE_MISSING_FILE = $10; + CONF_MFLAGS_DEFAULT_SECTION = $20; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM CONF_set_default_method} +{$EXTERNALSYM NCONF_new} +{$EXTERNALSYM NCONF_default} +{$EXTERNALSYM NCONF_WIN32} +{$EXTERNALSYM NCONF_free} +{$EXTERNALSYM NCONF_free_data} +{$EXTERNALSYM NCONF_load} +{$EXTERNALSYM NCONF_load_bio} +{$EXTERNALSYM NCONF_get_string} +{$EXTERNALSYM NCONF_get_number_e} +{$EXTERNALSYM NCONF_dump_bio} +{$EXTERNALSYM CONF_modules_load} +{$EXTERNALSYM CONF_modules_load_file} +{$EXTERNALSYM CONF_modules_unload} +{$EXTERNALSYM CONF_modules_finish} +{$EXTERNALSYM CONF_module_add} +{$EXTERNALSYM CONF_imodule_get_usr_data} +{$EXTERNALSYM CONF_imodule_set_usr_data} +{$EXTERNALSYM CONF_imodule_get_module} +{$EXTERNALSYM CONF_imodule_get_flags} +{$EXTERNALSYM CONF_imodule_set_flags} +{$EXTERNALSYM CONF_module_get_usr_data} +{$EXTERNALSYM CONF_module_set_usr_data} +{$EXTERNALSYM CONF_get1_default_config_file} +{$EXTERNALSYM CONF_parse_list} +{$EXTERNALSYM OPENSSL_load_builtin_modules} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function CONF_set_default_method(meth: PCONF_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function NCONF_new(meth: PCONF_METHOD): PCONF; cdecl; external CLibCrypto; +function NCONF_default: PCONF_METHOD; cdecl; external CLibCrypto; +function NCONF_WIN32: PCONF_METHOD; cdecl; external CLibCrypto; +procedure NCONF_free(conf: PCONF); cdecl; external CLibCrypto; +procedure NCONF_free_data(conf: PCONF); cdecl; external CLibCrypto; +function NCONF_load(conf: PCONF; const file_: PAnsiChar; eline: POpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function NCONF_load_bio(conf: PCONF; bp: PBIO; eline: POpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function NCONF_get_string(const conf: PCONF; const group: PAnsiChar; const name: PAnsiChar): PAnsiChar; cdecl; external CLibCrypto; +function NCONF_get_number_e(const conf: PCONF; const group: PAnsiChar; const name: PAnsiChar; result_: POpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function NCONF_dump_bio(const conf: PCONf; out_: PBIO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CONF_modules_load(const cnf: PCONF; const appname: PAnsiChar; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CONF_modules_load_file(const filename: PAnsiChar; const appname: PAnsiChar; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure CONF_modules_unload(all: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure CONF_modules_finish; cdecl; external CLibCrypto; +function CONF_module_add(const name: PAnsiChar; ifunc: conf_init_func; ffunc: conf_finish_func): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CONF_imodule_get_usr_data(const md: PCONF_IMODULE): Pointer; cdecl; external CLibCrypto; +procedure CONF_imodule_set_usr_data(md: PCONF_IMODULE; usr_data: Pointer); cdecl; external CLibCrypto; +function CONF_imodule_get_module(const md: PCONF_IMODULE): PCONF_MODULE; cdecl; external CLibCrypto; +function CONF_imodule_get_flags(const md: PCONF_IMODULE): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +procedure CONF_imodule_set_flags(md: PCONF_IMODULE; flags: TOpenSSL_C_ULONG); cdecl; external CLibCrypto; +function CONF_module_get_usr_data(pmod: PCONF_MODULE): Pointer; cdecl; external CLibCrypto; +procedure CONF_module_set_usr_data(pmod: PCONF_MODULE; usr_data: Pointer); cdecl; external CLibCrypto; +function CONF_get1_default_config_file: PAnsiChar; cdecl; external CLibCrypto; +function CONF_parse_list(const list: PAnsiChar; sep: TOpenSSL_C_INT; nospc: TOpenSSL_C_INT; list_cb: CONF_parse_list_list_cb; arg: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure OPENSSL_load_builtin_modules; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_CONF_set_default_method(meth: PCONF_METHOD): TOpenSSL_C_INT; cdecl; +function Load_NCONF_new(meth: PCONF_METHOD): PCONF; cdecl; +function Load_NCONF_default: PCONF_METHOD; cdecl; +function Load_NCONF_WIN32: PCONF_METHOD; cdecl; +procedure Load_NCONF_free(conf: PCONF); cdecl; +procedure Load_NCONF_free_data(conf: PCONF); cdecl; +function Load_NCONF_load(conf: PCONF; const file_: PAnsiChar; eline: POpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_NCONF_load_bio(conf: PCONF; bp: PBIO; eline: POpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_NCONF_get_string(const conf: PCONF; const group: PAnsiChar; const name: PAnsiChar): PAnsiChar; cdecl; +function Load_NCONF_get_number_e(const conf: PCONF; const group: PAnsiChar; const name: PAnsiChar; result_: POpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_NCONF_dump_bio(const conf: PCONf; out_: PBIO): TOpenSSL_C_INT; cdecl; +function Load_CONF_modules_load(const cnf: PCONF; const appname: PAnsiChar; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_CONF_modules_load_file(const filename: PAnsiChar; const appname: PAnsiChar; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +procedure Load_CONF_modules_unload(all: TOpenSSL_C_INT); cdecl; +procedure Load_CONF_modules_finish; cdecl; +function Load_CONF_module_add(const name: PAnsiChar; ifunc: conf_init_func; ffunc: conf_finish_func): TOpenSSL_C_INT; cdecl; +function Load_CONF_imodule_get_usr_data(const md: PCONF_IMODULE): Pointer; cdecl; +procedure Load_CONF_imodule_set_usr_data(md: PCONF_IMODULE; usr_data: Pointer); cdecl; +function Load_CONF_imodule_get_module(const md: PCONF_IMODULE): PCONF_MODULE; cdecl; +function Load_CONF_imodule_get_flags(const md: PCONF_IMODULE): TOpenSSL_C_ULONG; cdecl; +procedure Load_CONF_imodule_set_flags(md: PCONF_IMODULE; flags: TOpenSSL_C_ULONG); cdecl; +function Load_CONF_module_get_usr_data(pmod: PCONF_MODULE): Pointer; cdecl; +procedure Load_CONF_module_set_usr_data(pmod: PCONF_MODULE; usr_data: Pointer); cdecl; +function Load_CONF_get1_default_config_file: PAnsiChar; cdecl; +function Load_CONF_parse_list(const list: PAnsiChar; sep: TOpenSSL_C_INT; nospc: TOpenSSL_C_INT; list_cb: CONF_parse_list_list_cb; arg: Pointer): TOpenSSL_C_INT; cdecl; +procedure Load_OPENSSL_load_builtin_modules; cdecl; + +var + CONF_set_default_method: function (meth: PCONF_METHOD): TOpenSSL_C_INT; cdecl = Load_CONF_set_default_method; + NCONF_new: function (meth: PCONF_METHOD): PCONF; cdecl = Load_NCONF_new; + NCONF_default: function : PCONF_METHOD; cdecl = Load_NCONF_default; + NCONF_WIN32: function : PCONF_METHOD; cdecl = Load_NCONF_WIN32; + NCONF_free: procedure (conf: PCONF); cdecl = Load_NCONF_free; + NCONF_free_data: procedure (conf: PCONF); cdecl = Load_NCONF_free_data; + NCONF_load: function (conf: PCONF; const file_: PAnsiChar; eline: POpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_NCONF_load; + NCONF_load_bio: function (conf: PCONF; bp: PBIO; eline: POpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_NCONF_load_bio; + NCONF_get_string: function (const conf: PCONF; const group: PAnsiChar; const name: PAnsiChar): PAnsiChar; cdecl = Load_NCONF_get_string; + NCONF_get_number_e: function (const conf: PCONF; const group: PAnsiChar; const name: PAnsiChar; result_: POpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_NCONF_get_number_e; + NCONF_dump_bio: function (const conf: PCONf; out_: PBIO): TOpenSSL_C_INT; cdecl = Load_NCONF_dump_bio; + CONF_modules_load: function (const cnf: PCONF; const appname: PAnsiChar; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_CONF_modules_load; + CONF_modules_load_file: function (const filename: PAnsiChar; const appname: PAnsiChar; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_CONF_modules_load_file; + CONF_modules_unload: procedure (all: TOpenSSL_C_INT); cdecl = Load_CONF_modules_unload; + CONF_modules_finish: procedure ; cdecl = Load_CONF_modules_finish; + CONF_module_add: function (const name: PAnsiChar; ifunc: conf_init_func; ffunc: conf_finish_func): TOpenSSL_C_INT; cdecl = Load_CONF_module_add; + CONF_imodule_get_usr_data: function (const md: PCONF_IMODULE): Pointer; cdecl = Load_CONF_imodule_get_usr_data; + CONF_imodule_set_usr_data: procedure (md: PCONF_IMODULE; usr_data: Pointer); cdecl = Load_CONF_imodule_set_usr_data; + CONF_imodule_get_module: function (const md: PCONF_IMODULE): PCONF_MODULE; cdecl = Load_CONF_imodule_get_module; + CONF_imodule_get_flags: function (const md: PCONF_IMODULE): TOpenSSL_C_ULONG; cdecl = Load_CONF_imodule_get_flags; + CONF_imodule_set_flags: procedure (md: PCONF_IMODULE; flags: TOpenSSL_C_ULONG); cdecl = Load_CONF_imodule_set_flags; + CONF_module_get_usr_data: function (pmod: PCONF_MODULE): Pointer; cdecl = Load_CONF_module_get_usr_data; + CONF_module_set_usr_data: procedure (pmod: PCONF_MODULE; usr_data: Pointer); cdecl = Load_CONF_module_set_usr_data; + CONF_get1_default_config_file: function : PAnsiChar; cdecl = Load_CONF_get1_default_config_file; + CONF_parse_list: function (const list: PAnsiChar; sep: TOpenSSL_C_INT; nospc: TOpenSSL_C_INT; list_cb: CONF_parse_list_list_cb; arg: Pointer): TOpenSSL_C_INT; cdecl = Load_CONF_parse_list; + OPENSSL_load_builtin_modules: procedure ; cdecl = Load_OPENSSL_load_builtin_modules; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_CONF_set_default_method(meth: PCONF_METHOD): TOpenSSL_C_INT; cdecl; +begin + CONF_set_default_method := LoadLibCryptoFunction('CONF_set_default_method'); + if not assigned(CONF_set_default_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CONF_set_default_method'); + Result := CONF_set_default_method(meth); +end; + +function Load_NCONF_new(meth: PCONF_METHOD): PCONF; cdecl; +begin + NCONF_new := LoadLibCryptoFunction('NCONF_new'); + if not assigned(NCONF_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NCONF_new'); + Result := NCONF_new(meth); +end; + +function Load_NCONF_default: PCONF_METHOD; cdecl; +begin + NCONF_default := LoadLibCryptoFunction('NCONF_default'); + if not assigned(NCONF_default) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NCONF_default'); + Result := NCONF_default(); +end; + +function Load_NCONF_WIN32: PCONF_METHOD; cdecl; +begin + NCONF_WIN32 := LoadLibCryptoFunction('NCONF_WIN32'); + if not assigned(NCONF_WIN32) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NCONF_WIN32'); + Result := NCONF_WIN32(); +end; + +procedure Load_NCONF_free(conf: PCONF); cdecl; +begin + NCONF_free := LoadLibCryptoFunction('NCONF_free'); + if not assigned(NCONF_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NCONF_free'); + NCONF_free(conf); +end; + +procedure Load_NCONF_free_data(conf: PCONF); cdecl; +begin + NCONF_free_data := LoadLibCryptoFunction('NCONF_free_data'); + if not assigned(NCONF_free_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NCONF_free_data'); + NCONF_free_data(conf); +end; + +function Load_NCONF_load(conf: PCONF; const file_: PAnsiChar; eline: POpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + NCONF_load := LoadLibCryptoFunction('NCONF_load'); + if not assigned(NCONF_load) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NCONF_load'); + Result := NCONF_load(conf,file_,eline); +end; + +function Load_NCONF_load_bio(conf: PCONF; bp: PBIO; eline: POpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + NCONF_load_bio := LoadLibCryptoFunction('NCONF_load_bio'); + if not assigned(NCONF_load_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NCONF_load_bio'); + Result := NCONF_load_bio(conf,bp,eline); +end; + +function Load_NCONF_get_string(const conf: PCONF; const group: PAnsiChar; const name: PAnsiChar): PAnsiChar; cdecl; +begin + NCONF_get_string := LoadLibCryptoFunction('NCONF_get_string'); + if not assigned(NCONF_get_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NCONF_get_string'); + Result := NCONF_get_string(conf,group,name); +end; + +function Load_NCONF_get_number_e(const conf: PCONF; const group: PAnsiChar; const name: PAnsiChar; result_: POpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + NCONF_get_number_e := LoadLibCryptoFunction('NCONF_get_number_e'); + if not assigned(NCONF_get_number_e) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NCONF_get_number_e'); + Result := NCONF_get_number_e(conf,group,name,result_); +end; + +function Load_NCONF_dump_bio(const conf: PCONf; out_: PBIO): TOpenSSL_C_INT; cdecl; +begin + NCONF_dump_bio := LoadLibCryptoFunction('NCONF_dump_bio'); + if not assigned(NCONF_dump_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NCONF_dump_bio'); + Result := NCONF_dump_bio(conf,out_); +end; + +function Load_CONF_modules_load(const cnf: PCONF; const appname: PAnsiChar; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + CONF_modules_load := LoadLibCryptoFunction('CONF_modules_load'); + if not assigned(CONF_modules_load) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CONF_modules_load'); + Result := CONF_modules_load(cnf,appname,flags); +end; + +function Load_CONF_modules_load_file(const filename: PAnsiChar; const appname: PAnsiChar; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + CONF_modules_load_file := LoadLibCryptoFunction('CONF_modules_load_file'); + if not assigned(CONF_modules_load_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CONF_modules_load_file'); + Result := CONF_modules_load_file(filename,appname,flags); +end; + +procedure Load_CONF_modules_unload(all: TOpenSSL_C_INT); cdecl; +begin + CONF_modules_unload := LoadLibCryptoFunction('CONF_modules_unload'); + if not assigned(CONF_modules_unload) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CONF_modules_unload'); + CONF_modules_unload(all); +end; + +procedure Load_CONF_modules_finish; cdecl; +begin + CONF_modules_finish := LoadLibCryptoFunction('CONF_modules_finish'); + if not assigned(CONF_modules_finish) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CONF_modules_finish'); + CONF_modules_finish(); +end; + +function Load_CONF_module_add(const name: PAnsiChar; ifunc: conf_init_func; ffunc: conf_finish_func): TOpenSSL_C_INT; cdecl; +begin + CONF_module_add := LoadLibCryptoFunction('CONF_module_add'); + if not assigned(CONF_module_add) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CONF_module_add'); + Result := CONF_module_add(name,ifunc,ffunc); +end; + +function Load_CONF_imodule_get_usr_data(const md: PCONF_IMODULE): Pointer; cdecl; +begin + CONF_imodule_get_usr_data := LoadLibCryptoFunction('CONF_imodule_get_usr_data'); + if not assigned(CONF_imodule_get_usr_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CONF_imodule_get_usr_data'); + Result := CONF_imodule_get_usr_data(md); +end; + +procedure Load_CONF_imodule_set_usr_data(md: PCONF_IMODULE; usr_data: Pointer); cdecl; +begin + CONF_imodule_set_usr_data := LoadLibCryptoFunction('CONF_imodule_set_usr_data'); + if not assigned(CONF_imodule_set_usr_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CONF_imodule_set_usr_data'); + CONF_imodule_set_usr_data(md,usr_data); +end; + +function Load_CONF_imodule_get_module(const md: PCONF_IMODULE): PCONF_MODULE; cdecl; +begin + CONF_imodule_get_module := LoadLibCryptoFunction('CONF_imodule_get_module'); + if not assigned(CONF_imodule_get_module) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CONF_imodule_get_module'); + Result := CONF_imodule_get_module(md); +end; + +function Load_CONF_imodule_get_flags(const md: PCONF_IMODULE): TOpenSSL_C_ULONG; cdecl; +begin + CONF_imodule_get_flags := LoadLibCryptoFunction('CONF_imodule_get_flags'); + if not assigned(CONF_imodule_get_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CONF_imodule_get_flags'); + Result := CONF_imodule_get_flags(md); +end; + +procedure Load_CONF_imodule_set_flags(md: PCONF_IMODULE; flags: TOpenSSL_C_ULONG); cdecl; +begin + CONF_imodule_set_flags := LoadLibCryptoFunction('CONF_imodule_set_flags'); + if not assigned(CONF_imodule_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CONF_imodule_set_flags'); + CONF_imodule_set_flags(md,flags); +end; + +function Load_CONF_module_get_usr_data(pmod: PCONF_MODULE): Pointer; cdecl; +begin + CONF_module_get_usr_data := LoadLibCryptoFunction('CONF_module_get_usr_data'); + if not assigned(CONF_module_get_usr_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CONF_module_get_usr_data'); + Result := CONF_module_get_usr_data(pmod); +end; + +procedure Load_CONF_module_set_usr_data(pmod: PCONF_MODULE; usr_data: Pointer); cdecl; +begin + CONF_module_set_usr_data := LoadLibCryptoFunction('CONF_module_set_usr_data'); + if not assigned(CONF_module_set_usr_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CONF_module_set_usr_data'); + CONF_module_set_usr_data(pmod,usr_data); +end; + +function Load_CONF_get1_default_config_file: PAnsiChar; cdecl; +begin + CONF_get1_default_config_file := LoadLibCryptoFunction('CONF_get1_default_config_file'); + if not assigned(CONF_get1_default_config_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CONF_get1_default_config_file'); + Result := CONF_get1_default_config_file(); +end; + +function Load_CONF_parse_list(const list: PAnsiChar; sep: TOpenSSL_C_INT; nospc: TOpenSSL_C_INT; list_cb: CONF_parse_list_list_cb; arg: Pointer): TOpenSSL_C_INT; cdecl; +begin + CONF_parse_list := LoadLibCryptoFunction('CONF_parse_list'); + if not assigned(CONF_parse_list) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CONF_parse_list'); + Result := CONF_parse_list(list,sep,nospc,list_cb,arg); +end; + +procedure Load_OPENSSL_load_builtin_modules; cdecl; +begin + OPENSSL_load_builtin_modules := LoadLibCryptoFunction('OPENSSL_load_builtin_modules'); + if not assigned(OPENSSL_load_builtin_modules) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_load_builtin_modules'); + OPENSSL_load_builtin_modules(); +end; + + +procedure UnLoad; +begin + CONF_set_default_method := Load_CONF_set_default_method; + NCONF_new := Load_NCONF_new; + NCONF_default := Load_NCONF_default; + NCONF_WIN32 := Load_NCONF_WIN32; + NCONF_free := Load_NCONF_free; + NCONF_free_data := Load_NCONF_free_data; + NCONF_load := Load_NCONF_load; + NCONF_load_bio := Load_NCONF_load_bio; + NCONF_get_string := Load_NCONF_get_string; + NCONF_get_number_e := Load_NCONF_get_number_e; + NCONF_dump_bio := Load_NCONF_dump_bio; + CONF_modules_load := Load_CONF_modules_load; + CONF_modules_load_file := Load_CONF_modules_load_file; + CONF_modules_unload := Load_CONF_modules_unload; + CONF_modules_finish := Load_CONF_modules_finish; + CONF_module_add := Load_CONF_module_add; + CONF_imodule_get_usr_data := Load_CONF_imodule_get_usr_data; + CONF_imodule_set_usr_data := Load_CONF_imodule_set_usr_data; + CONF_imodule_get_module := Load_CONF_imodule_get_module; + CONF_imodule_get_flags := Load_CONF_imodule_get_flags; + CONF_imodule_set_flags := Load_CONF_imodule_set_flags; + CONF_module_get_usr_data := Load_CONF_module_get_usr_data; + CONF_module_set_usr_data := Load_CONF_module_set_usr_data; + CONF_get1_default_config_file := Load_CONF_get1_default_config_file; + CONF_parse_list := Load_CONF_parse_list; + OPENSSL_load_builtin_modules := Load_OPENSSL_load_builtin_modules; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_conf_api.pas b/src/opensslHdrs/IdOpenSSLHeaders_conf_api.pas new file mode 100644 index 0000000..668fd8c --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_conf_api.pas @@ -0,0 +1,176 @@ +(* This unit was generated from the source file conf_api.h2pas +It should not be modified directly. All changes should be made to conf_api.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_conf_api; + + +interface + +// Headers for OpenSSL 1.1.1 +// conf_api.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_conf; + + //* Up until OpenSSL 0.9.5a, this was new_section */ + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM _CONF_new_section} +{$EXTERNALSYM _CONF_get_section} +{$EXTERNALSYM _CONF_add_string} +{$EXTERNALSYM _CONF_get_string} +{$EXTERNALSYM _CONF_get_number} +{$EXTERNALSYM _CONF_new_data} +{$EXTERNALSYM _CONF_free_data} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function _CONF_new_section(conf: PCONF; const section: PAnsiChar): PCONF_VALUE; cdecl; external CLibCrypto; +function _CONF_get_section(const conf: PCONF; const section: PAnsiChar): PCONF_VALUE; cdecl; external CLibCrypto; +function _CONF_add_string(conf: PCONF; section: PCONF_VALUE; value: PCONF_VALUE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function _CONF_get_string(const conf: PCONF; const section: PAnsiChar; const name: PAnsiChar): PAnsiChar; cdecl; external CLibCrypto; +function _CONF_get_number(const conf: PCONF; const section: PAnsiChar; const name: PAnsiChar): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function _CONF_new_data(conf: PCONF): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure _CONF_free_data(conf: PCONF); cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load__CONF_new_section(conf: PCONF; const section: PAnsiChar): PCONF_VALUE; cdecl; +function Load__CONF_get_section(const conf: PCONF; const section: PAnsiChar): PCONF_VALUE; cdecl; +function Load__CONF_add_string(conf: PCONF; section: PCONF_VALUE; value: PCONF_VALUE): TOpenSSL_C_INT; cdecl; +function Load__CONF_get_string(const conf: PCONF; const section: PAnsiChar; const name: PAnsiChar): PAnsiChar; cdecl; +function Load__CONF_get_number(const conf: PCONF; const section: PAnsiChar; const name: PAnsiChar): TOpenSSL_C_LONG; cdecl; +function Load__CONF_new_data(conf: PCONF): TOpenSSL_C_INT; cdecl; +procedure Load__CONF_free_data(conf: PCONF); cdecl; + +var + _CONF_new_section: function (conf: PCONF; const section: PAnsiChar): PCONF_VALUE; cdecl = Load__CONF_new_section; + _CONF_get_section: function (const conf: PCONF; const section: PAnsiChar): PCONF_VALUE; cdecl = Load__CONF_get_section; + _CONF_add_string: function (conf: PCONF; section: PCONF_VALUE; value: PCONF_VALUE): TOpenSSL_C_INT; cdecl = Load__CONF_add_string; + _CONF_get_string: function (const conf: PCONF; const section: PAnsiChar; const name: PAnsiChar): PAnsiChar; cdecl = Load__CONF_get_string; + _CONF_get_number: function (const conf: PCONF; const section: PAnsiChar; const name: PAnsiChar): TOpenSSL_C_LONG; cdecl = Load__CONF_get_number; + _CONF_new_data: function (conf: PCONF): TOpenSSL_C_INT; cdecl = Load__CONF_new_data; + _CONF_free_data: procedure (conf: PCONF); cdecl = Load__CONF_free_data; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load__CONF_new_section(conf: PCONF; const section: PAnsiChar): PCONF_VALUE; cdecl; +begin + _CONF_new_section := LoadLibCryptoFunction('_CONF_new_section'); + if not assigned(_CONF_new_section) then + EOpenSSLAPIFunctionNotPresent.RaiseException('_CONF_new_section'); + Result := _CONF_new_section(conf,section); +end; + +function Load__CONF_get_section(const conf: PCONF; const section: PAnsiChar): PCONF_VALUE; cdecl; +begin + _CONF_get_section := LoadLibCryptoFunction('_CONF_get_section'); + if not assigned(_CONF_get_section) then + EOpenSSLAPIFunctionNotPresent.RaiseException('_CONF_get_section'); + Result := _CONF_get_section(conf,section); +end; + +function Load__CONF_add_string(conf: PCONF; section: PCONF_VALUE; value: PCONF_VALUE): TOpenSSL_C_INT; cdecl; +begin + _CONF_add_string := LoadLibCryptoFunction('_CONF_add_string'); + if not assigned(_CONF_add_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('_CONF_add_string'); + Result := _CONF_add_string(conf,section,value); +end; + +function Load__CONF_get_string(const conf: PCONF; const section: PAnsiChar; const name: PAnsiChar): PAnsiChar; cdecl; +begin + _CONF_get_string := LoadLibCryptoFunction('_CONF_get_string'); + if not assigned(_CONF_get_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('_CONF_get_string'); + Result := _CONF_get_string(conf,section,name); +end; + +function Load__CONF_get_number(const conf: PCONF; const section: PAnsiChar; const name: PAnsiChar): TOpenSSL_C_LONG; cdecl; +begin + _CONF_get_number := LoadLibCryptoFunction('_CONF_get_number'); + if not assigned(_CONF_get_number) then + EOpenSSLAPIFunctionNotPresent.RaiseException('_CONF_get_number'); + Result := _CONF_get_number(conf,section,name); +end; + +function Load__CONF_new_data(conf: PCONF): TOpenSSL_C_INT; cdecl; +begin + _CONF_new_data := LoadLibCryptoFunction('_CONF_new_data'); + if not assigned(_CONF_new_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('_CONF_new_data'); + Result := _CONF_new_data(conf); +end; + +procedure Load__CONF_free_data(conf: PCONF); cdecl; +begin + _CONF_free_data := LoadLibCryptoFunction('_CONF_free_data'); + if not assigned(_CONF_free_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('_CONF_free_data'); + _CONF_free_data(conf); +end; + + +procedure UnLoad; +begin + _CONF_new_section := Load__CONF_new_section; + _CONF_get_section := Load__CONF_get_section; + _CONF_add_string := Load__CONF_add_string; + _CONF_get_string := Load__CONF_get_string; + _CONF_get_number := Load__CONF_get_number; + _CONF_new_data := Load__CONF_new_data; + _CONF_free_data := Load__CONF_free_data; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_conferr.pas b/src/opensslHdrs/IdOpenSSLHeaders_conferr.pas new file mode 100644 index 0000000..62ecb46 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_conferr.pas @@ -0,0 +1,150 @@ +(* This unit was generated from the source file conferr.h2pas +It should not be modified directly. All changes should be made to conferr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_conferr; + + +interface + +// Headers for OpenSSL 1.1.1 +// conferr.h + + +uses + IdSSLOpenSSLAPI; + +const + ///* + // * CONF function codes. + // */ + CONF_F_CONF_DUMP_FP = 104; + CONF_F_CONF_LOAD = 100; + CONF_F_CONF_LOAD_FP = 103; + CONF_F_CONF_PARSE_LIST = 119; + CONF_F_DEF_LOAD = 120; + CONF_F_DEF_LOAD_BIO = 121; + CONF_F_GET_NEXT_FILE = 107; + CONF_F_MODULE_ADD = 122; + CONF_F_MODULE_INIT = 115; + CONF_F_MODULE_LOAD_DSO = 117; + CONF_F_MODULE_RUN = 118; + CONF_F_NCONF_DUMP_BIO = 105; + CONF_F_NCONF_DUMP_FP = 106; + CONF_F_NCONF_GET_NUMBER_E = 112; + CONF_F_NCONF_GET_SECTION = 108; + CONF_F_NCONF_GET_STRING = 109; + CONF_F_NCONF_LOAD = 113; + CONF_F_NCONF_LOAD_BIO = 110; + CONF_F_NCONF_LOAD_FP = 114; + CONF_F_NCONF_NEW = 111; + CONF_F_PROCESS_INCLUDE = 116; + CONF_F_SSL_MODULE_INIT = 123; + CONF_F_STR_COPY = 101; + + ///* + // * CONF reason codes. + // */ + CONF_R_ERROR_LOADING_DSO = 110; + CONF_R_LIST_CANNOT_BE_NULL = 115; + CONF_R_MISSING_CLOSE_SQUARE_BRACKET = 100; + CONF_R_MISSING_EQUAL_SIGN = 101; + CONF_R_MISSING_INIT_FUNCTION = 112; + CONF_R_MODULE_INITIALIZATION_ERROR = 109; + CONF_R_NO_CLOSE_BRACE = 102; + CONF_R_NO_CONF = 105; + CONF_R_NO_CONF_OR_ENVIRONMENT_VARIABLE = 106; + CONF_R_NO_SECTION = 107; + CONF_R_NO_SUCH_FILE = 114; + CONF_R_NO_VALUE = 108; + CONF_R_NUMBER_TOO_LARGE = 121; + CONF_R_RECURSIVE_DIRECTORY_INCLUDE = 111; + CONF_R_SSL_COMMAND_SECTION_EMPTY = 117; + CONF_R_SSL_COMMAND_SECTION_NOT_FOUND = 118; + CONF_R_SSL_SECTION_EMPTY = 119; + CONF_R_SSL_SECTION_NOT_FOUND = 120; + CONF_R_UNABLE_TO_CREATE_NEW_SECTION = 103; + CONF_R_UNKNOWN_MODULE_NAME = 113; + CONF_R_VARIABLE_EXPANSION_TOO_LONG = 116; + CONF_R_VARIABLE_HAS_NO_VALUE = 104; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_CONF_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_CONF_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_CONF_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_CONF_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_CONF_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_CONF_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_CONF_strings := LoadLibCryptoFunction('ERR_load_CONF_strings'); + if not assigned(ERR_load_CONF_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_CONF_strings'); + Result := ERR_load_CONF_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_CONF_strings := Load_ERR_load_CONF_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_core.pas b/src/opensslHdrs/IdOpenSSLHeaders_core.pas new file mode 100644 index 0000000..0d35157 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_core.pas @@ -0,0 +1,321 @@ +(* This unit was generated from the source file core.h2pas +It should not be modified directly. All changes should be made to core.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + +unit IdOpenSSLHeaders_core; + + +interface + +uses + IdSSLOpenSSLAPI,Types; + + +{ + Automatically converted by H2Pas 1.0.0 from core.h + The following command line parameters were used: + core.h +} + +{$IFDEF FPC} +{$PACKRECORDS C} +{$ENDIF} + + { + * Copyright 2019-2023 The OpenSSL Project Authors. All Rights Reserved. + * + * Licensed under the Apache License 2.0 (the "License"). You may not use + * this file except in compliance with the License. You can obtain a copy + * in the file LICENSE in the source distribution or at + * https://www.openssl.org/source/license.html + } + {- + * Base types + * ---------- + * + * These are the types that the OpenSSL core and providers have in common + * to communicate data between them. + } + { Opaque handles to be used with core upcall functions from providers } + + + +type + ossl_core_handle_st = record end; + OSSL_CORE_HANDLE = ossl_core_handle_st; + POSSL_CORE_HANDLE = ^OSSL_CORE_HANDLE; + openssl_core_ctx_st = record end; + OPENSSL_CORE_CTX = openssl_core_ctx_st; + POPENSSL_CORE_CTX = ^OPENSSL_CORE_CTX; + ossl_core_bio_st = record end; + OSSL_CORE_BIO = ossl_core_bio_st; + POSSL_CORE_BIO = ^OSSL_CORE_BIO; + { + * Dispatch table element. function_id numbers and the functions are defined + * in core_dispatch.h, see macros with 'OSSL_CORE_MAKE_FUNC' in their names. + * + * An array of these is always terminated by function_id == 0 + } + ossl_dispatch_st = record + function_id : TOpenSSL_C_LONG; + _function: procedure;cdecl; + end; + + OSSL_DISPATCH = ossl_dispatch_st; + POSSL_DISPATCH = ^OSSL_DISPATCH; + + { + * Other items, essentially an int<->pointer map element. + * + * We make this type distinct from OSSL_DISPATCH to ensure that dispatch + * tables remain tables with function pointers only. + * + * This is used whenever we need to pass things like a table of error reason + * codes <-> reason string maps, ... + * + * Usage determines which field works as key if any, rather than field order. + * + * An array of these is always terminated by id == 0 && ptr == NULL + } + ossl_item_st = record + id : dword; + ptr : pointer; + end; + + { + * Type to tie together algorithm names, property definition string and + * the algorithm implementation in the form of a dispatch table. + * + * An array of these is always terminated by algorithm_names == NULL + } + ossl_algorithm_st = record + algorithm_names : PAnsiChar; + property_definition : PAnsiChar; + implementation_ : ^OSSL_DISPATCH; + algorithm_description : PAnsiChar; + end; + + OSSL_ALGORITHM = ossl_algorithm_st; + + { + * Type to pass object data in a uniform way, without exposing the object + * structure. + * + * An array of these is always terminated by key == NULL + } + { the name of the parameter } + { declare what kind of content is in buffer } + { value being passed in or out } + { data size } + { returned content size } + ossl_param_st = record + key : PAnsiChar; + data_type : dword; + data : pointer; + data_size : TOpenSSL_C_SSIZET; + return_size : TOpenSSL_C_SSIZET; + end; + + OSSL_PARAM = ossl_param_st; + + { Currently supported OSSL_PARAM data types } + { + * OSSL_PARAM_INTEGER and OSSL_PARAM_UNSIGNED_INTEGER + * are arbitrary length and therefore require an arbitrarily sized buffer, + * since they may be used to pass numbers larger than what is natively + * available. + * + * The number must be buffered in native form, i.e. MSB first on B_ENDIAN + * systems and LSB first on L_ENDIAN systems. This means that arbitrary + * native integers can be stored in the buffer, just make sure that the + * buffer size is correct and the buffer itself is properly aligned (for + * example by having the buffer field point at a C integer). + } + + +const + OSSL_PARAM_INTEGER = 1; + OSSL_PARAM_UNSIGNED_INTEGER = 2; + {- + * OSSL_PARAM_REAL + * is a C binary floating point values in native form and alignment. + } + OSSL_PARAM_REAL = 3; + {- + * OSSL_PARAM_UTF8_STRING + * is a printable string. It is expected to be printed as it is. + } + OSSL_PARAM_UTF8_STRING = 4; + {- + * OSSL_PARAM_OCTET_STRING + * is a string of bytes with no further specification. It is expected to be + * printed as a hexdump. + } + OSSL_PARAM_OCTET_STRING = 5; + {- + * OSSL_PARAM_UTF8_PTR + * is a pointer to a printable string. It is expected to be printed as it is. + * + * The difference between this and OSSL_PARAM_UTF8_STRING is that only pointers + * are manipulated for this type. + * + * This is more relevant for parameter requests, where the responding + * function doesn't need to copy the data to the provided buffer, but + * sets the provided buffer to point at the actual data instead. + * + * WARNING! Using these is FRAGILE, as it assumes that the actual + * data and its location are constant. + * + * EXTRA WARNING! If you are not completely sure you most likely want + * to use the OSSL_PARAM_UTF8_STRING type. + } + OSSL_PARAM_UTF8_PTR = 6; + {- + * OSSL_PARAM_OCTET_PTR + * is a pointer to a string of bytes with no further specification. It is + * expected to be printed as a hexdump. + * + * The difference between this and OSSL_PARAM_OCTET_STRING is that only pointers + * are manipulated for this type. + * + * This is more relevant for parameter requests, where the responding + * function doesn't need to copy the data to the provided buffer, but + * sets the provided buffer to point at the actual data instead. + * + * WARNING! Using these is FRAGILE, as it assumes that the actual + * data and its location are constant. + * + * EXTRA WARNING! If you are not completely sure you most likely want + * to use the OSSL_PARAM_OCTET_STRING type. + } + OSSL_PARAM_OCTET_PTR = 7; + { + * Typedef for the thread stop handling callback. Used both internally and by + * providers. + * + * Providers may register for notifications about threads stopping by + * registering a callback to hear about such events. Providers register the + * callback using the OSSL_FUNC_CORE_THREAD_START function in the |in| dispatch + * table passed to OSSL_provider_init(). The arg passed back to a provider will + * be the provider side context object. + } + + +type + + OSSL_thread_stop_handler_fn = procedure (arg:pointer);cdecl; + {- + * Provider entry point + * -------------------- + * + * This function is expected to be present in any dynamically loadable + * provider module. By definition, if this function doesn't exist in a + * module, that module is not an OpenSSL provider module. + } + {- + * |handle| pointer to opaque type OSSL_CORE_HANDLE. This can be used + * together with some functions passed via |in| to query data. + * |in| is the array of functions that the Core passes to the provider. + * |out| will be the array of base functions that the provider passes + * back to the Core. + * |provctx| a provider side context object, optionally created if the + * provider needs it. This value is passed to other provider + * functions, notably other context constructors. + } + +type + OSSL_provider_init_fn = function (const handle: POSSL_CORE_HANDLE; + const in_: POSSL_DISPATCH; + var out_: POSSL_DISPATCH; + var provctx: pointer): TOpenSSL_C_INT cdecl; + + + OSSL_provider_init = OSSL_provider_init_fn; + + { + * Generic callback function signature. + * + * The expectation is that any provider function that wants to offer + * a callback / hook can do so by taking an argument with this type, + * as well as a pointer to caller-specific data. When calling the + * callback, the provider function can populate an OSSL_PARAM array + * with data of its choice and pass that in the callback call, along + * with the caller data argument. + * + * libcrypto may use the OSSL_PARAM array to create arguments for an + * application callback it knows about. + } + OSSL_CALLBACK = function(params: array of OSSL_PARAM; arg: pointer): TOpenSSL_C_INT cdecl; + + OSSL_INOUT_CALLBACK = function(in_params: array of OSSL_PARAM; + out_params: array of OSSL_PARAM; arg: pointer): TOpenSSL_C_INT cdecl; + + { + * Passphrase callback function signature + * + * This is similar to the generic callback function above, but adds a + * result parameter. + } + OSSL_PASSPHRASE_CALLBACK = function(pass: PAnsiChar; pass_size: TOpenSSL_C_SSIZET; + pass_len: POpenSSL_C_SSIZET; + params: array of OSSL_PARAM; arg: pointer): TOpenSSL_C_INT cdecl; + + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} + +{$ELSE} + +{$ENDIF} + +implementation + + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_crypto.pas b/src/opensslHdrs/IdOpenSSLHeaders_crypto.pas new file mode 100644 index 0000000..686d23a --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_crypto.pas @@ -0,0 +1,1901 @@ +(* This unit was generated from the source file crypto.h2pas +It should not be modified directly. All changes should be made to crypto.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_crypto; + + +interface + +// Headers for OpenSSL 1.1.1 +// crypto.h + +{$J+} +{$J+} + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_bio, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_evp, + IdOpenSSLHeaders_provider, + Types; + +{$MINENUMSIZE 4} + +const + CRYPTO_MEM_CHECK_OFF = $0; //* Control only */ + CRYPTO_MEM_CHECK_ON = $1; //* Control and mode bit */ + CRYPTO_MEM_CHECK_ENABLE = $2; //* Control and mode bit */ + CRYPTO_MEM_CHECK_DISABLE = $3; //* Control only */ + + CRYPTO_EX_INDEX_SSL = 0; + CRYPTO_EX_INDEX_SSL_CTX = 1; + CRYPTO_EX_INDEX_SSL_SESSION = 2; + CRYPTO_EX_INDEX_X509 = 3; + CRYPTO_EX_INDEX_X509_STORE = 4; + CRYPTO_EX_INDEX_X509_STORE_CTX = 5; + CRYPTO_EX_INDEX_DH = 6; + CRYPTO_EX_INDEX_DSA = 7; + CRYPTO_EX_INDEX_EC_KEY = 8; + CRYPTO_EX_INDEX_RSA = 9; + CRYPTO_EX_INDEX_ENGINE = 10; + CRYPTO_EX_INDEX_UI = 11; + CRYPTO_EX_INDEX_BIO = 12; + CRYPTO_EX_INDEX_APP = 13; + CRYPTO_EX_INDEX_UI_METHOD = 14; + CRYPTO_EX_INDEX_DRBG = 15; + CRYPTO_EX_INDEX__COUNT = 16; + + // Added _CONST to prevent nameclashes + OPENSSL_VERSION_CONST = 0; + OPENSSL_CFLAGS = 1; + OPENSSL_BUILT_ON = 2; + OPENSSL_PLATFORM = 3; + OPENSSL_DIR = 4; + OPENSSL_ENGINES_DIR = 5; + SSLEAY_VERSION_CONST = OPENSSL_VERSION_CONST; + + (* + * These defines where used in combination with the old locking callbacks, + * they are not called anymore, but old code that's not called might still + * use them. + *) + CRYPTO_LOCK = 1; + CRYPTO_UNLOCK = 2; + CRYPTO_READ = 4; + CRYPTO_WRITE = 8; + + (* Standard initialisation options *) + OPENSSL_INIT_NO_LOAD_CRYPTO_STRINGS = TOpenSSL_C_Long($00000001); + OPENSSL_INIT_LOAD_CRYPTO_STRINGS = TOpenSSL_C_Long($00000002); + OPENSSL_INIT_ADD_ALL_CIPHERS = TOpenSSL_C_Long($00000004); + OPENSSL_INIT_ADD_ALL_DIGESTS = TOpenSSL_C_Long($00000008); + OPENSSL_INIT_NO_ADD_ALL_CIPHERS = TOpenSSL_C_Long($00000010); + OPENSSL_INIT_NO_ADD_ALL_DIGESTS = TOpenSSL_C_Long($00000020); + OPENSSL_INIT_LOAD_CONFIG = TOpenSSL_C_Long($00000040); + OPENSSL_INIT_NO_LOAD_CONFIG = TOpenSSL_C_Long($00000080); + OPENSSL_INIT_ASYNC = TOpenSSL_C_Long($00000100); + OPENSSL_INIT_ENGINE_RDRAND = TOpenSSL_C_Long($00000200); + OPENSSL_INIT_ENGINE_DYNAMIC = TOpenSSL_C_Long($00000400); + OPENSSL_INIT_ENGINE_OPENSSL = TOpenSSL_C_Long($00000800); + OPENSSL_INIT_ENGINE_CRYPTODEV = TOpenSSL_C_Long($00001000); + OPENSSL_INIT_ENGINE_CAPI = TOpenSSL_C_Long($00002000); + OPENSSL_INIT_ENGINE_PADLOCK = TOpenSSL_C_Long($00004000); + OPENSSL_INIT_ENGINE_AFALG = TOpenSSL_C_Long($00008000); + (* OPENSSL_INIT_ZLIB = TOpenSSL_C_Long($00010000); *) + OPENSSL_INIT_ATFORK = TOpenSSL_C_Long(00020000); + (* OPENSSL_INIT_BASE_ONLY = TOpenSSL_C_Long(00040000); *) + OPENSSL_INIT_NO_ATEXIT = TOpenSSL_C_Long(00080000); + (* OPENSSL_INIT flag range 0xfff00000 reserved for OPENSSL_init_ssl() *) + (* Max OPENSSL_INIT flag value is 0x80000000 *) + + (* openssl and dasync not counted as builtin *) + OPENSSL_INIT_ENGINE_ALL_BUILTIN = OPENSSL_INIT_ENGINE_RDRAND + or OPENSSL_INIT_ENGINE_DYNAMIC or OPENSSL_INIT_ENGINE_CRYPTODEV + or OPENSSL_INIT_ENGINE_CAPI or OPENSSL_INIT_ENGINE_PADLOCK; + + CRYPTO_ONCE_STATIC_INIT = 0; + +type + CRYPTO_THREADID = record {1.0.x only} + ptr : Pointer; + val : TOpenSSL_C_ULONG; + end; + PCRYPTO_THREADID = ^CRYPTO_THREADID; + CRYPTO_RWLOCK = type Pointer; + PCRYPTO_RWLOCK = ^CRYPTO_RWLOCK; + //crypto_ex_data_st = record + // sk: PStackOfVoid; + //end; + //DEFINE_STACK_OF(void) + + Tthreadid_func = procedure (id : PCRYPTO_THREADID) cdecl; + + + // CRYPTO_EX_new = procedure(parent: Pointer; ptr: Pointer; CRYPTO_EX_DATA *ad; idx: TOpenSSL_C_INT; argl: TOpenSSL_C_LONG; argp: Pointer); + // CRYPTO_EX_free = procedure(void *parent, void *ptr, CRYPTO_EX_DATA *ad, + // int idx, long argl, void *argp); + //typedef int CRYPTO_EX_dup (CRYPTO_EX_DATA *to, const CRYPTO_EX_DATA *from, + // void *from_d, int idx, long argl, void *argp); + //__owur int CRYPTO_get_ex_new_index(int class_index, long argl, void *argp, + // CRYPTO_EX_new *new_func, CRYPTO_EX_dup *dup_func, + // CRYPTO_EX_free *free_func); + + CRYPTO_mem_leaks_cb_cb = function(const str: PAnsiChar; len: TOpenSSL_C_SIZET; u: Pointer): TOpenSSL_C_INT; cdecl; + CRYPTO_THREAD_run_once_init = procedure; cdecl; + + CRYPTO_THREAD_LOCAL = type DWORD; + PCRYPTO_THREAD_LOCAL = ^CRYPTO_THREAD_LOCAL; + CRYPTO_THREAD_ID = type DWORD; + CRYPTO_ONCE = type TOpenSSL_C_LONG; + PCRYPTO_ONCE = ^CRYPTO_ONCE; + + CRYPTO_set_mem_functions_m = function(size: TOpenSSL_C_SIZET; const filename: PAnsiChar; linenumber: TOpenSSL_C_INT): Pointer; cdecl; + CRYPTO_set_mem_functions_r = function(buffer: Pointer; size: TOpenSSL_C_SIZET; const filename: PAnsiChar; linenumber: TOpenSSL_C_INT): Pointer; cdecl; + CRYPTO_set_mem_functions_f = procedure(buffer: Pointer; const filename: PAnsiChar; const linenumber: TOpenSSL_C_INT); cdecl; + TIdSslIdCallback = function: TOpenSSL_C_ULONG; cdecl; + TIdSslLockingCallback = procedure (mode, n : TOpenSSL_C_INT; Afile : PAnsiChar; line : TOpenSSL_C_INT); cdecl; + + + +procedure SetLegacyCallbacks; +procedure RemoveLegacyCallbacks; + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM CRYPTO_THREAD_lock_new} +{$EXTERNALSYM CRYPTO_THREAD_read_lock} +{$EXTERNALSYM CRYPTO_THREAD_write_lock} +{$EXTERNALSYM CRYPTO_THREAD_unlock} +{$EXTERNALSYM CRYPTO_THREAD_lock_free} +{$EXTERNALSYM CRYPTO_atomic_add} +{$EXTERNALSYM OPENSSL_strlcpy} +{$EXTERNALSYM OPENSSL_strlcat} +{$EXTERNALSYM OPENSSL_strnlen} +{$EXTERNALSYM OPENSSL_buf2hexstr} +{$EXTERNALSYM OPENSSL_hexstr2buf} +{$EXTERNALSYM OPENSSL_hexchar2int} +{$EXTERNALSYM OpenSSL_version_num} +{$EXTERNALSYM OpenSSL_version} +{$EXTERNALSYM OPENSSL_issetugid} +{$EXTERNALSYM CRYPTO_new_ex_data} +{$EXTERNALSYM CRYPTO_dup_ex_data} +{$EXTERNALSYM CRYPTO_free_ex_data} +{$EXTERNALSYM CRYPTO_set_ex_data} +{$EXTERNALSYM CRYPTO_get_ex_data} +{$EXTERNALSYM CRYPTO_set_mem_functions} +{$EXTERNALSYM CRYPTO_malloc} +{$EXTERNALSYM CRYPTO_zalloc} +{$EXTERNALSYM CRYPTO_memdup} +{$EXTERNALSYM CRYPTO_strdup} +{$EXTERNALSYM CRYPTO_strndup} +{$EXTERNALSYM CRYPTO_free} +{$EXTERNALSYM CRYPTO_clear_free} +{$EXTERNALSYM CRYPTO_realloc} +{$EXTERNALSYM CRYPTO_clear_realloc} +{$EXTERNALSYM CRYPTO_secure_malloc_init} +{$EXTERNALSYM CRYPTO_secure_malloc_done} +{$EXTERNALSYM CRYPTO_secure_malloc} +{$EXTERNALSYM CRYPTO_secure_zalloc} +{$EXTERNALSYM CRYPTO_secure_free} +{$EXTERNALSYM CRYPTO_secure_clear_free} +{$EXTERNALSYM CRYPTO_secure_allocated} +{$EXTERNALSYM CRYPTO_secure_malloc_initialized} +{$EXTERNALSYM CRYPTO_secure_actual_size} +{$EXTERNALSYM CRYPTO_secure_used} +{$EXTERNALSYM OPENSSL_cleanse} +{$EXTERNALSYM OPENSSL_isservice} +{$EXTERNALSYM OPENSSL_init} +{$EXTERNALSYM CRYPTO_memcmp} +{$EXTERNALSYM OPENSSL_cleanup} +{$EXTERNALSYM OPENSSL_init_crypto} +{$EXTERNALSYM OPENSSL_thread_stop} +{$EXTERNALSYM OPENSSL_INIT_new} +{$EXTERNALSYM OPENSSL_INIT_free} +{$EXTERNALSYM CRYPTO_THREAD_run_once} +{$EXTERNALSYM CRYPTO_THREAD_get_local} +{$EXTERNALSYM CRYPTO_THREAD_set_local} +{$EXTERNALSYM CRYPTO_THREAD_cleanup_local} +{$EXTERNALSYM CRYPTO_THREAD_get_current_id} +{$EXTERNALSYM CRYPTO_THREAD_compare_id} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function CRYPTO_THREAD_lock_new: PCRYPTO_RWLOCK; cdecl; external CLibCrypto; +function CRYPTO_THREAD_read_lock(lock: PCRYPTO_RWLOCK): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CRYPTO_THREAD_write_lock(lock: PCRYPTO_RWLOCK): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CRYPTO_THREAD_unlock(lock: PCRYPTO_RWLOCK): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure CRYPTO_THREAD_lock_free(lock: PCRYPTO_RWLOCK); cdecl; external CLibCrypto; +function CRYPTO_atomic_add(val: POpenSSL_C_INT; amount: TOpenSSL_C_INT; ret: POpenSSL_C_INT; lock: PCRYPTO_RWLOCK): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OPENSSL_strlcpy(dst: PAnsiChar; const src: PAnsiChar; siz: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function OPENSSL_strlcat(dst: PAnsiChar; const src: PAnsiChar; siz: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function OPENSSL_strnlen(const str: PAnsiChar; maxlen: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function OPENSSL_buf2hexstr(const buffer: PByte; len: TOpenSSL_C_LONG): PAnsiChar; cdecl; external CLibCrypto; +function OPENSSL_hexstr2buf(const str: PAnsiChar; len: POpenSSL_C_LONG): PByte; cdecl; external CLibCrypto; +function OPENSSL_hexchar2int(c: Byte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OpenSSL_version_num: TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +function OpenSSL_version(type_: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibCrypto; +function OPENSSL_issetugid: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CRYPTO_new_ex_data(class_index: TOpenSSL_C_INT; obj: Pointer; ad: PCRYPTO_EX_DATA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CRYPTO_dup_ex_data(class_index: TOpenSSL_C_INT; to_: PCRYPTO_EX_DATA; const from: PCRYPTO_EX_DATA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure CRYPTO_free_ex_data(class_index: TOpenSSL_C_INT; obj: Pointer; ad: PCRYPTO_EX_DATA); cdecl; external CLibCrypto; +function CRYPTO_set_ex_data(ad: PCRYPTO_EX_DATA; idx: TOpenSSL_C_INT; val: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CRYPTO_get_ex_data(const ad: PCRYPTO_EX_DATA; idx: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function CRYPTO_set_mem_functions(m: CRYPTO_set_mem_functions_m; r: CRYPTO_set_mem_functions_r; f: CRYPTO_set_mem_functions_f): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CRYPTO_malloc(num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function CRYPTO_zalloc(num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function CRYPTO_memdup(const str: Pointer; siz: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function CRYPTO_strdup(const str: PAnsiChar; const file_: PAnsiChar; line: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibCrypto; +function CRYPTO_strndup(const str: PAnsiChar; s: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibCrypto; +procedure CRYPTO_free(ptr: Pointer; const file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure CRYPTO_clear_free(ptr: Pointer; num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function CRYPTO_realloc(addr: Pointer; num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function CRYPTO_clear_realloc(addr: Pointer; old_num: TOpenSSL_C_SIZET; num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function CRYPTO_secure_malloc_init(sz: TOpenSSL_C_SIZET; minsize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CRYPTO_secure_malloc_done: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CRYPTO_secure_malloc(num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function CRYPTO_secure_zalloc(num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +procedure CRYPTO_secure_free(ptr: Pointer; const file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure CRYPTO_secure_clear_free(ptr: Pointer; num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function CRYPTO_secure_allocated(const ptr: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CRYPTO_secure_malloc_initialized: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CRYPTO_secure_actual_size(ptr: Pointer): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function CRYPTO_secure_used: TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +procedure OPENSSL_cleanse(ptr: Pointer; len: TOpenSSL_C_SIZET); cdecl; external CLibCrypto; +function OPENSSL_isservice: TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure OPENSSL_init; cdecl; external CLibCrypto; +function CRYPTO_memcmp(const in_a: Pointer; const in_b: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure OPENSSL_cleanup; cdecl; external CLibCrypto; +function OPENSSL_init_crypto(opts: TOpenSSL_C_UINT64; const settings: POPENSSL_INIT_SETTINGS): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure OPENSSL_thread_stop; cdecl; external CLibCrypto; +function OPENSSL_INIT_new: POPENSSL_INIT_SETTINGS; cdecl; external CLibCrypto; +procedure OPENSSL_INIT_free(settings: POPENSSL_INIT_SETTINGS); cdecl; external CLibCrypto; +function CRYPTO_THREAD_run_once(once: PCRYPTO_ONCE; init: CRYPTO_THREAD_run_once_init): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CRYPTO_THREAD_get_local(key: PCRYPTO_THREAD_LOCAL): Pointer; cdecl; external CLibCrypto; +function CRYPTO_THREAD_set_local(key: PCRYPTO_THREAD_LOCAL; val: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CRYPTO_THREAD_cleanup_local(key: PCRYPTO_THREAD_LOCAL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function CRYPTO_THREAD_get_current_id: CRYPTO_THREAD_ID; cdecl; external CLibCrypto; +function CRYPTO_THREAD_compare_id(a: CRYPTO_THREAD_ID; b: CRYPTO_THREAD_ID): TOpenSSL_C_INT; cdecl; external CLibCrypto; + + + + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function OPENSSL_malloc(num: TOpenSSL_C_SIZET): Pointer; {removed 1.0.0} +function OPENSSL_zalloc(num: TOpenSSL_C_SIZET): Pointer; {removed 1.0.0} +function OPENSSL_realloc(addr: Pointer; num: TOpenSSL_C_SIZET): Pointer; {removed 1.0.0} +function OPENSSL_clear_realloc(addr: Pointer; old_num: TOpenSSL_C_SIZET; num: TOpenSSL_C_SIZET): Pointer; {removed 1.0.0} +procedure OPENSSL_clear_free(addr: Pointer; num: TOpenSSL_C_SIZET); {removed 1.0.0} +procedure OPENSSL_free(addr: Pointer); {removed 1.0.0} +function OPENSSL_memdup(const str: Pointer; s: TOpenSSL_C_SIZET): Pointer; {removed 1.0.0} +function OPENSSL_strdup(const str: PAnsiChar): PAnsiChar; {removed 1.0.0} +function OPENSSL_strndup(const str: PAnsiChar; n: TOpenSSL_C_SIZET): PAnsiChar; {removed 1.0.0} +function OPENSSL_secure_malloc(num: TOpenSSL_C_SIZET): Pointer; {removed 1.0.0} +function OPENSSL_secure_zalloc(num: TOpenSSL_C_SIZET): Pointer; {removed 1.0.0} +procedure OPENSSL_secure_free(addr: Pointer); {removed 1.0.0} +procedure OPENSSL_secure_clear_free(addr: Pointer; num: TOpenSSL_C_SIZET); {removed 1.0.0} +function OPENSSL_secure_actual_size(ptr: Pointer): TOpenSSL_C_SIZET; {removed 1.0.0} +function FIPS_mode: TOpenSSL_C_INT; {removed 3.0.0} +function FIPS_mode_set(r: TOpenSSL_C_INT): TOpenSSL_C_INT; {removed 3.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_OPENSSL_malloc(num: TOpenSSL_C_SIZET): Pointer; cdecl; +function Load_OPENSSL_zalloc(num: TOpenSSL_C_SIZET): Pointer; cdecl; +function Load_OPENSSL_realloc(addr: Pointer; num: TOpenSSL_C_SIZET): Pointer; cdecl; +function Load_OPENSSL_clear_realloc(addr: Pointer; old_num: TOpenSSL_C_SIZET; num: TOpenSSL_C_SIZET): Pointer; cdecl; +procedure Load_OPENSSL_clear_free(addr: Pointer; num: TOpenSSL_C_SIZET); cdecl; +procedure Load_OPENSSL_free(addr: Pointer); cdecl; +function Load_OPENSSL_memdup(const str: Pointer; s: TOpenSSL_C_SIZET): Pointer; cdecl; +function Load_OPENSSL_strdup(const str: PAnsiChar): PAnsiChar; cdecl; +function Load_OPENSSL_strndup(const str: PAnsiChar; n: TOpenSSL_C_SIZET): PAnsiChar; cdecl; +function Load_OPENSSL_secure_malloc(num: TOpenSSL_C_SIZET): Pointer; cdecl; +function Load_OPENSSL_secure_zalloc(num: TOpenSSL_C_SIZET): Pointer; cdecl; +procedure Load_OPENSSL_secure_free(addr: Pointer); cdecl; +procedure Load_OPENSSL_secure_clear_free(addr: Pointer; num: TOpenSSL_C_SIZET); cdecl; +function Load_OPENSSL_secure_actual_size(ptr: Pointer): TOpenSSL_C_SIZET; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_CRYPTO_THREAD_lock_new: PCRYPTO_RWLOCK; cdecl; +function Load_CRYPTO_THREAD_read_lock(lock: PCRYPTO_RWLOCK): TOpenSSL_C_INT; cdecl; +function Load_CRYPTO_THREAD_write_lock(lock: PCRYPTO_RWLOCK): TOpenSSL_C_INT; cdecl; +function Load_CRYPTO_THREAD_unlock(lock: PCRYPTO_RWLOCK): TOpenSSL_C_INT; cdecl; +procedure Load_CRYPTO_THREAD_lock_free(lock: PCRYPTO_RWLOCK); cdecl; +function Load_CRYPTO_atomic_add(val: POpenSSL_C_INT; amount: TOpenSSL_C_INT; ret: POpenSSL_C_INT; lock: PCRYPTO_RWLOCK): TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_CRYPTO_mem_ctrl(mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_OPENSSL_strlcpy(dst: PAnsiChar; const src: PAnsiChar; siz: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +function Load_OPENSSL_strlcat(dst: PAnsiChar; const src: PAnsiChar; siz: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +function Load_OPENSSL_strnlen(const str: PAnsiChar; maxlen: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +function Load_OPENSSL_buf2hexstr(const buffer: PByte; len: TOpenSSL_C_LONG): PAnsiChar; cdecl; +function Load_OPENSSL_hexstr2buf(const str: PAnsiChar; len: POpenSSL_C_LONG): PByte; cdecl; +function Load_OPENSSL_hexchar2int(c: Byte): TOpenSSL_C_INT; cdecl; +function Load_OpenSSL_version_num: TOpenSSL_C_ULONG; cdecl; +function Load_OpenSSL_version(type_: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_OPENSSL_issetugid: TOpenSSL_C_INT; cdecl; +function Load_CRYPTO_new_ex_data(class_index: TOpenSSL_C_INT; obj: Pointer; ad: PCRYPTO_EX_DATA): TOpenSSL_C_INT; cdecl; +function Load_CRYPTO_dup_ex_data(class_index: TOpenSSL_C_INT; to_: PCRYPTO_EX_DATA; const from: PCRYPTO_EX_DATA): TOpenSSL_C_INT; cdecl; +procedure Load_CRYPTO_free_ex_data(class_index: TOpenSSL_C_INT; obj: Pointer; ad: PCRYPTO_EX_DATA); cdecl; +function Load_CRYPTO_set_ex_data(ad: PCRYPTO_EX_DATA; idx: TOpenSSL_C_INT; val: Pointer): TOpenSSL_C_INT; cdecl; +function Load_CRYPTO_get_ex_data(const ad: PCRYPTO_EX_DATA; idx: TOpenSSL_C_INT): Pointer; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_CRYPTO_num_locks: TOpenSSL_C_INT; cdecl; +procedure Load_CRYPTO_set_locking_callback(func: TIdSslLockingCallback); cdecl; +procedure Load_CRYPTO_THREADID_set_numeric(id : PCRYPTO_THREADID; val: TOpenSSL_C_ULONG); cdecl; +procedure Load_CRYPTO_THREADID_set_callback(threadid_func: Tthreadid_func); cdecl; +procedure Load_CRYPTO_set_id_callback(func: TIdSslIdCallback); cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_CRYPTO_set_mem_functions(m: CRYPTO_set_mem_functions_m; r: CRYPTO_set_mem_functions_r; f: CRYPTO_set_mem_functions_f): TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_CRYPTO_set_mem_debug(flag: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_CRYPTO_malloc(num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; +function Load_CRYPTO_zalloc(num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; +function Load_CRYPTO_memdup(const str: Pointer; siz: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; +function Load_CRYPTO_strdup(const str: PAnsiChar; const file_: PAnsiChar; line: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_CRYPTO_strndup(const str: PAnsiChar; s: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): PAnsiChar; cdecl; +procedure Load_CRYPTO_free(ptr: Pointer; const file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl; +procedure Load_CRYPTO_clear_free(ptr: Pointer; num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl; +function Load_CRYPTO_realloc(addr: Pointer; num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; +function Load_CRYPTO_clear_realloc(addr: Pointer; old_num: TOpenSSL_C_SIZET; num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; +function Load_CRYPTO_secure_malloc_init(sz: TOpenSSL_C_SIZET; minsize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_CRYPTO_secure_malloc_done: TOpenSSL_C_INT; cdecl; +function Load_CRYPTO_secure_malloc(num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; +function Load_CRYPTO_secure_zalloc(num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; +procedure Load_CRYPTO_secure_free(ptr: Pointer; const file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl; +procedure Load_CRYPTO_secure_clear_free(ptr: Pointer; num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl; +function Load_CRYPTO_secure_allocated(const ptr: Pointer): TOpenSSL_C_INT; cdecl; +function Load_CRYPTO_secure_malloc_initialized: TOpenSSL_C_INT; cdecl; +function Load_CRYPTO_secure_actual_size(ptr: Pointer): TOpenSSL_C_SIZET; cdecl; +function Load_CRYPTO_secure_used: TOpenSSL_C_SIZET; cdecl; +procedure Load_OPENSSL_cleanse(ptr: Pointer; len: TOpenSSL_C_SIZET); cdecl; +function Load_OPENSSL_isservice: TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_FIPS_mode: TOpenSSL_C_INT; cdecl; +function Load_FIPS_mode_set(r: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +procedure Load_OPENSSL_init; cdecl; +function Load_CRYPTO_memcmp(const in_a: Pointer; const in_b: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +procedure Load_OPENSSL_cleanup; cdecl; +function Load_OPENSSL_init_crypto(opts: TOpenSSL_C_UINT64; const settings: POPENSSL_INIT_SETTINGS): TOpenSSL_C_INT; cdecl; +procedure Load_OPENSSL_thread_stop; cdecl; +function Load_OPENSSL_INIT_new: POPENSSL_INIT_SETTINGS; cdecl; +procedure Load_OPENSSL_INIT_free(settings: POPENSSL_INIT_SETTINGS); cdecl; +function Load_CRYPTO_THREAD_run_once(once: PCRYPTO_ONCE; init: CRYPTO_THREAD_run_once_init): TOpenSSL_C_INT; cdecl; +function Load_CRYPTO_THREAD_get_local(key: PCRYPTO_THREAD_LOCAL): Pointer; cdecl; +function Load_CRYPTO_THREAD_set_local(key: PCRYPTO_THREAD_LOCAL; val: Pointer): TOpenSSL_C_INT; cdecl; +function Load_CRYPTO_THREAD_cleanup_local(key: PCRYPTO_THREAD_LOCAL): TOpenSSL_C_INT; cdecl; +function Load_CRYPTO_THREAD_get_current_id: CRYPTO_THREAD_ID; cdecl; +function Load_CRYPTO_THREAD_compare_id(a: CRYPTO_THREAD_ID; b: CRYPTO_THREAD_ID): TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_SSLeay_version(type_ : TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_SSLeay: TOpenSSL_C_ULONG; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + +var + CRYPTO_THREAD_lock_new: function : PCRYPTO_RWLOCK; cdecl = Load_CRYPTO_THREAD_lock_new; + CRYPTO_THREAD_read_lock: function (lock: PCRYPTO_RWLOCK): TOpenSSL_C_INT; cdecl = Load_CRYPTO_THREAD_read_lock; + CRYPTO_THREAD_write_lock: function (lock: PCRYPTO_RWLOCK): TOpenSSL_C_INT; cdecl = Load_CRYPTO_THREAD_write_lock; + CRYPTO_THREAD_unlock: function (lock: PCRYPTO_RWLOCK): TOpenSSL_C_INT; cdecl = Load_CRYPTO_THREAD_unlock; + CRYPTO_THREAD_lock_free: procedure (lock: PCRYPTO_RWLOCK); cdecl = Load_CRYPTO_THREAD_lock_free; + CRYPTO_atomic_add: function (val: POpenSSL_C_INT; amount: TOpenSSL_C_INT; ret: POpenSSL_C_INT; lock: PCRYPTO_RWLOCK): TOpenSSL_C_INT; cdecl = Load_CRYPTO_atomic_add; + OPENSSL_strlcpy: function (dst: PAnsiChar; const src: PAnsiChar; siz: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl = Load_OPENSSL_strlcpy; + OPENSSL_strlcat: function (dst: PAnsiChar; const src: PAnsiChar; siz: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl = Load_OPENSSL_strlcat; + OPENSSL_strnlen: function (const str: PAnsiChar; maxlen: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl = Load_OPENSSL_strnlen; + OPENSSL_buf2hexstr: function (const buffer: PByte; len: TOpenSSL_C_LONG): PAnsiChar; cdecl = Load_OPENSSL_buf2hexstr; + OPENSSL_hexstr2buf: function (const str: PAnsiChar; len: POpenSSL_C_LONG): PByte; cdecl = Load_OPENSSL_hexstr2buf; + OPENSSL_hexchar2int: function (c: Byte): TOpenSSL_C_INT; cdecl = Load_OPENSSL_hexchar2int; + OpenSSL_version_num: function : TOpenSSL_C_ULONG; cdecl = Load_OpenSSL_version_num; + OpenSSL_version: function (type_: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_OpenSSL_version; + OPENSSL_issetugid: function : TOpenSSL_C_INT; cdecl = Load_OPENSSL_issetugid; + CRYPTO_new_ex_data: function (class_index: TOpenSSL_C_INT; obj: Pointer; ad: PCRYPTO_EX_DATA): TOpenSSL_C_INT; cdecl = Load_CRYPTO_new_ex_data; + CRYPTO_dup_ex_data: function (class_index: TOpenSSL_C_INT; to_: PCRYPTO_EX_DATA; const from: PCRYPTO_EX_DATA): TOpenSSL_C_INT; cdecl = Load_CRYPTO_dup_ex_data; + CRYPTO_free_ex_data: procedure (class_index: TOpenSSL_C_INT; obj: Pointer; ad: PCRYPTO_EX_DATA); cdecl = Load_CRYPTO_free_ex_data; + CRYPTO_set_ex_data: function (ad: PCRYPTO_EX_DATA; idx: TOpenSSL_C_INT; val: Pointer): TOpenSSL_C_INT; cdecl = Load_CRYPTO_set_ex_data; + CRYPTO_get_ex_data: function (const ad: PCRYPTO_EX_DATA; idx: TOpenSSL_C_INT): Pointer; cdecl = Load_CRYPTO_get_ex_data; + CRYPTO_set_mem_functions: function (m: CRYPTO_set_mem_functions_m; r: CRYPTO_set_mem_functions_r; f: CRYPTO_set_mem_functions_f): TOpenSSL_C_INT; cdecl = Load_CRYPTO_set_mem_functions; + CRYPTO_malloc: function (num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl = Load_CRYPTO_malloc; + CRYPTO_zalloc: function (num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl = Load_CRYPTO_zalloc; + CRYPTO_memdup: function (const str: Pointer; siz: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl = Load_CRYPTO_memdup; + CRYPTO_strdup: function (const str: PAnsiChar; const file_: PAnsiChar; line: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_CRYPTO_strdup; + CRYPTO_strndup: function (const str: PAnsiChar; s: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_CRYPTO_strndup; + CRYPTO_free: procedure (ptr: Pointer; const file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl = Load_CRYPTO_free; + CRYPTO_clear_free: procedure (ptr: Pointer; num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl = Load_CRYPTO_clear_free; + CRYPTO_realloc: function (addr: Pointer; num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl = Load_CRYPTO_realloc; + CRYPTO_clear_realloc: function (addr: Pointer; old_num: TOpenSSL_C_SIZET; num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl = Load_CRYPTO_clear_realloc; + CRYPTO_secure_malloc_init: function (sz: TOpenSSL_C_SIZET; minsize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_CRYPTO_secure_malloc_init; + CRYPTO_secure_malloc_done: function : TOpenSSL_C_INT; cdecl = Load_CRYPTO_secure_malloc_done; + CRYPTO_secure_malloc: function (num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl = Load_CRYPTO_secure_malloc; + CRYPTO_secure_zalloc: function (num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl = Load_CRYPTO_secure_zalloc; + CRYPTO_secure_free: procedure (ptr: Pointer; const file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl = Load_CRYPTO_secure_free; + CRYPTO_secure_clear_free: procedure (ptr: Pointer; num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl = Load_CRYPTO_secure_clear_free; + CRYPTO_secure_allocated: function (const ptr: Pointer): TOpenSSL_C_INT; cdecl = Load_CRYPTO_secure_allocated; + CRYPTO_secure_malloc_initialized: function : TOpenSSL_C_INT; cdecl = Load_CRYPTO_secure_malloc_initialized; + CRYPTO_secure_actual_size: function (ptr: Pointer): TOpenSSL_C_SIZET; cdecl = Load_CRYPTO_secure_actual_size; + CRYPTO_secure_used: function : TOpenSSL_C_SIZET; cdecl = Load_CRYPTO_secure_used; + OPENSSL_cleanse: procedure (ptr: Pointer; len: TOpenSSL_C_SIZET); cdecl = Load_OPENSSL_cleanse; + OPENSSL_isservice: function : TOpenSSL_C_INT; cdecl = Load_OPENSSL_isservice; + OPENSSL_init: procedure ; cdecl = Load_OPENSSL_init; + CRYPTO_memcmp: function (const in_a: Pointer; const in_b: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_CRYPTO_memcmp; + OPENSSL_cleanup: procedure ; cdecl = Load_OPENSSL_cleanup; + OPENSSL_init_crypto: function (opts: TOpenSSL_C_UINT64; const settings: POPENSSL_INIT_SETTINGS): TOpenSSL_C_INT; cdecl = Load_OPENSSL_init_crypto; + OPENSSL_thread_stop: procedure ; cdecl = Load_OPENSSL_thread_stop; + OPENSSL_INIT_new: function : POPENSSL_INIT_SETTINGS; cdecl = Load_OPENSSL_INIT_new; + OPENSSL_INIT_free: procedure (settings: POPENSSL_INIT_SETTINGS); cdecl = Load_OPENSSL_INIT_free; + CRYPTO_THREAD_run_once: function (once: PCRYPTO_ONCE; init: CRYPTO_THREAD_run_once_init): TOpenSSL_C_INT; cdecl = Load_CRYPTO_THREAD_run_once; + CRYPTO_THREAD_get_local: function (key: PCRYPTO_THREAD_LOCAL): Pointer; cdecl = Load_CRYPTO_THREAD_get_local; + CRYPTO_THREAD_set_local: function (key: PCRYPTO_THREAD_LOCAL; val: Pointer): TOpenSSL_C_INT; cdecl = Load_CRYPTO_THREAD_set_local; + CRYPTO_THREAD_cleanup_local: function (key: PCRYPTO_THREAD_LOCAL): TOpenSSL_C_INT; cdecl = Load_CRYPTO_THREAD_cleanup_local; + CRYPTO_THREAD_get_current_id: function : CRYPTO_THREAD_ID; cdecl = Load_CRYPTO_THREAD_get_current_id; + CRYPTO_THREAD_compare_id: function (a: CRYPTO_THREAD_ID; b: CRYPTO_THREAD_ID): TOpenSSL_C_INT; cdecl = Load_CRYPTO_THREAD_compare_id; + + + + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +var + OPENSSL_malloc: function (num: TOpenSSL_C_SIZET): Pointer; cdecl = Load_OPENSSL_malloc; {removed 1.0.0} + OPENSSL_zalloc: function (num: TOpenSSL_C_SIZET): Pointer; cdecl = Load_OPENSSL_zalloc; {removed 1.0.0} + OPENSSL_realloc: function (addr: Pointer; num: TOpenSSL_C_SIZET): Pointer; cdecl = Load_OPENSSL_realloc; {removed 1.0.0} + OPENSSL_clear_realloc: function (addr: Pointer; old_num: TOpenSSL_C_SIZET; num: TOpenSSL_C_SIZET): Pointer; cdecl = Load_OPENSSL_clear_realloc; {removed 1.0.0} + OPENSSL_clear_free: procedure (addr: Pointer; num: TOpenSSL_C_SIZET); cdecl = Load_OPENSSL_clear_free; {removed 1.0.0} + OPENSSL_free: procedure (addr: Pointer); cdecl = Load_OPENSSL_free; {removed 1.0.0} + OPENSSL_memdup: function (const str: Pointer; s: TOpenSSL_C_SIZET): Pointer; cdecl = Load_OPENSSL_memdup; {removed 1.0.0} + OPENSSL_strdup: function (const str: PAnsiChar): PAnsiChar; cdecl = Load_OPENSSL_strdup; {removed 1.0.0} + OPENSSL_strndup: function (const str: PAnsiChar; n: TOpenSSL_C_SIZET): PAnsiChar; cdecl = Load_OPENSSL_strndup; {removed 1.0.0} + OPENSSL_secure_malloc: function (num: TOpenSSL_C_SIZET): Pointer; cdecl = Load_OPENSSL_secure_malloc; {removed 1.0.0} + OPENSSL_secure_zalloc: function (num: TOpenSSL_C_SIZET): Pointer; cdecl = Load_OPENSSL_secure_zalloc; {removed 1.0.0} + OPENSSL_secure_free: procedure (addr: Pointer); cdecl = Load_OPENSSL_secure_free; {removed 1.0.0} + OPENSSL_secure_clear_free: procedure (addr: Pointer; num: TOpenSSL_C_SIZET); cdecl = Load_OPENSSL_secure_clear_free; {removed 1.0.0} + OPENSSL_secure_actual_size: function (ptr: Pointer): TOpenSSL_C_SIZET; cdecl = Load_OPENSSL_secure_actual_size; {removed 1.0.0} + FIPS_mode: function : TOpenSSL_C_INT; cdecl = Load_FIPS_mode; {removed 3.0.0} + FIPS_mode_set: function (r: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_FIPS_mode_set; {removed 3.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +const + OPENSSL_malloc_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + OPENSSL_zalloc_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + OPENSSL_realloc_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + OPENSSL_clear_realloc_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + OPENSSL_clear_free_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + OPENSSL_free_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + OPENSSL_memdup_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + OPENSSL_strdup_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + OPENSSL_strndup_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + OPENSSL_secure_malloc_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + OPENSSL_secure_zalloc_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + OPENSSL_secure_free_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + OPENSSL_secure_clear_free_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + OPENSSL_secure_actual_size_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + CRYPTO_THREAD_lock_new_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_THREAD_read_lock_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_THREAD_write_lock_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_THREAD_unlock_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_THREAD_lock_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_atomic_add_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_mem_ctrl_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + OPENSSL_strlcpy_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_strlcat_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_strnlen_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_buf2hexstr_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_hexstr2buf_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_hexchar2int_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OpenSSL_version_num_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OpenSSL_version_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_num_locks_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + CRYPTO_set_locking_callback_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + CRYPTO_THREADID_set_numeric_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + CRYPTO_THREADID_set_callback_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + CRYPTO_set_id_callback_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + CRYPTO_set_mem_debug_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_set_mem_debug_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + CRYPTO_zalloc_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_memdup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_strndup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_clear_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_clear_realloc_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_secure_malloc_init_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_secure_malloc_done_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_secure_malloc_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_secure_zalloc_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_secure_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_secure_clear_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_secure_allocated_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_secure_malloc_initialized_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_secure_actual_size_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_secure_used_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + FIPS_mode_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + FIPS_mode_set_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + OPENSSL_cleanup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_init_crypto_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_thread_stop_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_INIT_new_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_INIT_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_THREAD_run_once_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_THREAD_get_local_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_THREAD_set_local_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_THREAD_cleanup_local_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_THREAD_get_current_id_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + CRYPTO_THREAD_compare_id_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSLeay_version_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + SSLeay_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + + +implementation + +uses SyncObjs, Sysutils + {$IFNDEF FPC} + {$IFDEF POSIX} + ,Posix.Pthread + {$ELSE} + ,Windows + {$ENDIF} + {$ENDIF}, +Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +// OPENSSL_FILE = __FILE__ = C preprocessor macro +// OPENSSL_LINE = __LINE__ = C preprocessor macro +// FPC hase an equivalent with {$I %FILE%} and {$I %LINENUM%}, see https://www.freepascal.org/docs-html/prog/progsu41.html#x47-460001.1.41 +// Delphi has nothing :( + +//# define OPENSSL_malloc(num) CRYPTO_malloc(num, OPENSSL_FILE, OPENSSL_LINE) + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$J+} +var + CRYPTO_mem_ctrl: function (mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_CRYPTO_mem_ctrl; {removed 3.0.0} + CRYPTO_num_locks: function : TOpenSSL_C_INT; cdecl = Load_CRYPTO_num_locks; {removed 1.1.0} + CRYPTO_set_locking_callback: procedure (func: TIdSslLockingCallback); cdecl = Load_CRYPTO_set_locking_callback; {removed 1.1.0} + CRYPTO_THREADID_set_numeric: procedure (id : PCRYPTO_THREADID; val: TOpenSSL_C_ULONG); cdecl = Load_CRYPTO_THREADID_set_numeric; {removed 1.1.0} + CRYPTO_THREADID_set_callback: procedure (threadid_func: Tthreadid_func); cdecl = Load_CRYPTO_THREADID_set_callback; {removed 1.1.0} + CRYPTO_set_id_callback: procedure (func: TIdSslIdCallback); cdecl = Load_CRYPTO_set_id_callback; {removed 1.1.0} + CRYPTO_set_mem_debug: function (flag: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_CRYPTO_set_mem_debug; {removed 3.0.0} + SSLeay_version: function (type_ : TOpenSSL_C_INT): PAnsiChar; cdecl = Load_SSLeay_version; {removed 1.1.0} + SSLeay: function : TOpenSSL_C_ULONG; cdecl = Load_SSLeay; {removed 1.1.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +var fips_provider: POSSL_PROVIDER; + base_provider: POSSL_PROVIDER; + + + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$if declared(CRYPTO_num_locks)} +type + + { TOpenSSLLegacyCallbacks } + + TOpenSSLLegacyCallbacks = class(TThreadList) + private + procedure PrepareOpenSSLLocking; + class var FCallbackList: TOpenSSLLegacyCallbacks; + public + constructor Create; + destructor Destroy; override; + end; + +procedure TOpenSSLLegacyCallbacks.PrepareOpenSSLLocking; +var + i: integer; + Lock: TCriticalSection; +begin + LockList; + try + for i := 0 to CRYPTO_num_locks - 1 do + begin + Lock := TCriticalSection.Create; + try + Add(Lock); + except + Lock.Free; + raise; + end; + end; + finally + UnlockList; + end; +end; + +procedure OpenSSLSetCurrentThreadID(id : PCRYPTO_THREADID); cdecl; +begin + CRYPTO_THREADID_set_numeric(id, TOpenSSL_C_ULONG(GetCurrentThreadId)); +end; + +procedure OpenSSLLockingCallback(mode, n: TOpenSSL_C_INT; Afile: PAnsiChar; + line: TOpenSSL_C_INT); cdecl; +var + Lock: TCriticalSection; + LList: TList; +begin + Assert(TOpenSSLLegacyCallbacks.FCallbackList <> nil); + Lock := nil; + + LList := TOpenSSLLegacyCallbacks.FCallbackList.LockList; + try + if n < LList.Count then + Lock := TCriticalSection(LList[n]); + finally + TOpenSSLLegacyCallbacks.FCallbackList.UnlockList; + end; + Assert(Lock <> nil); + if (mode and CRYPTO_LOCK) = CRYPTO_LOCK then + Lock.Acquire + else + Lock.Release; +end; + +constructor TOpenSSLLegacyCallbacks.Create; +begin + Assert(FCallbackList = nil); + inherited Create; + FCallbackList := self; + PrepareOpenSSLLocking; + CRYPTO_set_locking_callback(@OpenSSLLockingCallback); + CRYPTO_THREADID_set_callback(@OpenSSLSetCurrentThreadID); +end; + +destructor TOpenSSLLegacyCallbacks.Destroy; +var i: integer; + LList: TList; +begin + CRYPTO_set_locking_callback(nil); + LList := LockList; + + try + for i := 0 to LList.Count - 1 do + TCriticalSection(LList[i]).Free; + Clear; + finally + UnlockList; + end; + inherited Destroy; + FCallbackList := nil; +end; +{$IFEND} +{$ENDIF} + + +procedure SetLegacyCallbacks; +begin + {$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + {$if declared(CRYPTO_num_locks)} + if TOpenSSLLegacyCallbacks.FCallbackList = nil then + TOpenSSLLegacyCallbacks.Create; + {$ifend} + {$ENDIF} +end; + +procedure RemoveLegacyCallbacks; +begin + {$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + {$if declared(CRYPTO_num_locks)} + if TOpenSSLLegacyCallbacks.FCallbackList <> nil then + FreeAndNil(TOpenSSLLegacyCallbacks.FCallbackList); + {$ifend} + {$ENDIF} +end; + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} + +{Legacy Support Functions} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function OPENSSL_malloc(num: TOpenSSL_C_SIZET): Pointer; + +begin + Result := CRYPTO_malloc(num, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_zalloc(num) CRYPTO_zalloc(num, OPENSSL_FILE, OPENSSL_LINE) + + +function OPENSSL_zalloc(num: TOpenSSL_C_SIZET): Pointer; + +begin + Result := CRYPTO_zalloc(num, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_realloc(addr, num) CRYPTO_realloc(addr, num, OPENSSL_FILE, OPENSSL_LINE) + + +function OPENSSL_realloc(addr: Pointer; num: TOpenSSL_C_SIZET): Pointer; + +begin + Result := CRYPTO_realloc(addr, num, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_clear_realloc(addr, old_num, num) CRYPTO_clear_realloc(addr, old_num, num, OPENSSL_FILE, OPENSSL_LINE) + + +function OPENSSL_clear_realloc(addr: Pointer; old_num: TOpenSSL_C_SIZET; num: TOpenSSL_C_SIZET): Pointer; + +begin + Result := CRYPTO_clear_realloc(addr, old_num, num, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_clear_free(addr, num) CRYPTO_clear_free(addr, num, OPENSSL_FILE, OPENSSL_LINE) + + +procedure OPENSSL_clear_free(addr: Pointer; num: TOpenSSL_C_SIZET); + +begin + CRYPTO_clear_free(addr, num, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_free(addr) CRYPTO_free(addr, OPENSSL_FILE, OPENSSL_LINE) + + +procedure OPENSSL_free(addr: Pointer); + +begin + CRYPTO_free(addr, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_memdup(str, s) CRYPTO_memdup((str), s, OPENSSL_FILE, OPENSSL_LINE) + + +function OPENSSL_memdup(const str: Pointer; s: TOpenSSL_C_SIZET): Pointer; + +begin + Result := CRYPTO_memdup(str, s, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_strdup(str) CRYPTO_strdup(str, OPENSSL_FILE, OPENSSL_LINE) + + +function OPENSSL_strdup(const str: PAnsiChar): PAnsiChar; + +begin + Result := CRYPTO_strdup(str, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_strndup(str, n) CRYPTO_strndup(str, n, OPENSSL_FILE, OPENSSL_LINE) + + +function OPENSSL_strndup(const str: PAnsiChar; n: TOpenSSL_C_SIZET): PAnsiChar; + +begin + Result := CRYPTO_strndup(str, n, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_secure_malloc(num) CRYPTO_secure_malloc(num, OPENSSL_FILE, OPENSSL_LINE) + + +function OPENSSL_secure_malloc(num: TOpenSSL_C_SIZET): Pointer; + +begin + Result := CRYPTO_secure_malloc(num, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_secure_zalloc(num) CRYPTO_secure_zalloc(num, OPENSSL_FILE, OPENSSL_LINE) + + +function OPENSSL_secure_zalloc(num: TOpenSSL_C_SIZET): Pointer; + +begin + Result := CRYPTO_secure_zalloc(num, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_secure_free(addr) CRYPTO_secure_free(addr, OPENSSL_FILE, OPENSSL_LINE) + + +procedure OPENSSL_secure_free(addr: Pointer); + +begin + CRYPTO_secure_free(addr, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_secure_clear_free(addr, num) CRYPTO_secure_clear_free(addr, num, OPENSSL_FILE, OPENSSL_LINE) + + +procedure OPENSSL_secure_clear_free(addr: Pointer; num: TOpenSSL_C_SIZET); + +begin + CRYPTO_secure_clear_free(addr, num, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_secure_actual_size(ptr) CRYPTO_secure_actual_size(ptr) + + +function OPENSSL_secure_actual_size(ptr: Pointer): TOpenSSL_C_SIZET; + +begin + Result := CRYPTO_secure_actual_size(ptr); +end; + + + +function FIPS_mode: TOpenSSL_C_INT; + +begin + Result := OSSL_PROVIDER_available(nil,PAnsiChar(AnsiString('fips'))); +end; + + +function FIPS_mode_set(r: TOpenSSL_C_INT): TOpenSSL_C_INT; + +begin + if r = 0 then + begin + if base_provider <> nil then + begin + OSSL_PROVIDER_unload(base_provider); + base_provider := nil; + end; + + if fips_provider <> nil then + begin + OSSL_PROVIDER_unload(fips_provider); + fips_provider := nil; + end; + Result := 1; + end + else + begin + Result := 0; + fips_provider := OSSL_PROVIDER_load(nil, PAnsiChar(AnsiString('fips'))); + if fips_provider = nil then + Exit; + base_provider := OSSL_PROVIDER_load(nil, PAnsiChar(AnsiString('base'))); + if base_provider = nil then + begin + OSSL_PROVIDER_unload(fips_provider); + fips_provider := nil; + Exit; + end; + Result := 1; + end; +end; + + + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function COMPAT_OPENSSL_malloc(num: TOpenSSL_C_SIZET): Pointer; cdecl; + +begin + Result := CRYPTO_malloc(num, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_zalloc(num) CRYPTO_zalloc(num, OPENSSL_FILE, OPENSSL_LINE) + + +function COMPAT_OPENSSL_zalloc(num: TOpenSSL_C_SIZET): Pointer; cdecl; + +begin + Result := CRYPTO_zalloc(num, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_realloc(addr, num) CRYPTO_realloc(addr, num, OPENSSL_FILE, OPENSSL_LINE) + + +function COMPAT_OPENSSL_realloc(addr: Pointer; num: TOpenSSL_C_SIZET): Pointer; cdecl; + +begin + Result := CRYPTO_realloc(addr, num, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_clear_realloc(addr, old_num, num) CRYPTO_clear_realloc(addr, old_num, num, OPENSSL_FILE, OPENSSL_LINE) + + +function COMPAT_OPENSSL_clear_realloc(addr: Pointer; old_num: TOpenSSL_C_SIZET; num: TOpenSSL_C_SIZET): Pointer; cdecl; + +begin + Result := CRYPTO_clear_realloc(addr, old_num, num, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_clear_free(addr, num) CRYPTO_clear_free(addr, num, OPENSSL_FILE, OPENSSL_LINE) + + +procedure COMPAT_OPENSSL_clear_free(addr: Pointer; num: TOpenSSL_C_SIZET); cdecl; + +begin + CRYPTO_clear_free(addr, num, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_free(addr) CRYPTO_free(addr, OPENSSL_FILE, OPENSSL_LINE) + + +procedure COMPAT_OPENSSL_free(addr: Pointer); cdecl; + +begin + CRYPTO_free(addr, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_memdup(str, s) CRYPTO_memdup((str), s, OPENSSL_FILE, OPENSSL_LINE) + + +function COMPAT_OPENSSL_memdup(const str: Pointer; s: TOpenSSL_C_SIZET): Pointer; cdecl; + +begin + Result := CRYPTO_memdup(str, s, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_strdup(str) CRYPTO_strdup(str, OPENSSL_FILE, OPENSSL_LINE) + + +function COMPAT_OPENSSL_strdup(const str: PAnsiChar): PAnsiChar; cdecl; + +begin + Result := CRYPTO_strdup(str, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_strndup(str, n) CRYPTO_strndup(str, n, OPENSSL_FILE, OPENSSL_LINE) + + +function COMPAT_OPENSSL_strndup(const str: PAnsiChar; n: TOpenSSL_C_SIZET): PAnsiChar; cdecl; + +begin + Result := CRYPTO_strndup(str, n, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_secure_malloc(num) CRYPTO_secure_malloc(num, OPENSSL_FILE, OPENSSL_LINE) + + +function COMPAT_OPENSSL_secure_malloc(num: TOpenSSL_C_SIZET): Pointer; cdecl; + +begin + Result := CRYPTO_secure_malloc(num, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_secure_zalloc(num) CRYPTO_secure_zalloc(num, OPENSSL_FILE, OPENSSL_LINE) + + +function COMPAT_OPENSSL_secure_zalloc(num: TOpenSSL_C_SIZET): Pointer; cdecl; + +begin + Result := CRYPTO_secure_zalloc(num, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_secure_free(addr) CRYPTO_secure_free(addr, OPENSSL_FILE, OPENSSL_LINE) + + +procedure COMPAT_OPENSSL_secure_free(addr: Pointer); cdecl; + +begin + CRYPTO_secure_free(addr, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_secure_clear_free(addr, num) CRYPTO_secure_clear_free(addr, num, OPENSSL_FILE, OPENSSL_LINE) + + +procedure COMPAT_OPENSSL_secure_clear_free(addr: Pointer; num: TOpenSSL_C_SIZET); cdecl; + +begin + CRYPTO_secure_clear_free(addr, num, {$IFNDEF FPC}''{$ELSE}{$I %FILE%}{$ENDIF}, {$IFNDEF FPC}-1{$ELSE}{$I %LINENUM%}{$ENDIF}); +end; + +//# define OPENSSL_secure_actual_size(ptr) CRYPTO_secure_actual_size(ptr) + + +function COMPAT_OPENSSL_secure_actual_size(ptr: Pointer): TOpenSSL_C_SIZET; cdecl; + +begin + Result := CRYPTO_secure_actual_size(ptr); +end; + + + +function COMPAT_OpenSSL_version(type_ : TOpenSSL_C_INT): PAnsiChar; cdecl; + +begin + Result := SSLeay_version(type_); +end; + + + +function COMPAT_OpenSSL_version_num: TOpenSSL_C_ULONG; cdecl; + +begin + Result := SSLeay; +end; + + + +function COMPAT_FIPS_mode: TOpenSSL_C_INT; cdecl; + +begin + Result := OSSL_PROVIDER_available(nil,PAnsiChar(AnsiString('fips'))); +end; + + +function COMPAT_FIPS_mode_set(r: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + +begin + if r = 0 then + begin + if base_provider <> nil then + begin + OSSL_PROVIDER_unload(base_provider); + base_provider := nil; + end; + + if fips_provider <> nil then + begin + OSSL_PROVIDER_unload(fips_provider); + fips_provider := nil; + end; + Result := 1; + end + else + begin + Result := 0; + fips_provider := OSSL_PROVIDER_load(nil, PAnsiChar(AnsiString('fips'))); + if fips_provider = nil then + Exit; + base_provider := OSSL_PROVIDER_load(nil, PAnsiChar(AnsiString('base'))); + if base_provider = nil then + begin + OSSL_PROVIDER_unload(fips_provider); + fips_provider := nil; + Exit; + end; + Result := 1; + end; +end; + + + + +function COMPAT_OPENSSL_init_crypto(opts: TOpenSSL_C_UINT64; const settings: POPENSSL_INIT_SETTINGS): TOpenSSL_C_INT; cdecl; + +var OpenSSL_add_all_ciphers: procedure; cdecl; + OpenSSL_add_all_digests: procedure; cdecl; +begin + Result := 0; + if opts and OPENSSL_INIT_ADD_ALL_CIPHERS <> 0 then + begin + OpenSSL_add_all_ciphers := LoadLibCryptoFunction('OpenSSL_add_all_ciphers'); + if not assigned(OpenSSL_add_all_ciphers) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OpenSSL_add_all_ciphers'); + OpenSSL_add_all_ciphers; + end; + if opts and OPENSSL_INIT_ADD_ALL_DIGESTS <> 0 then + begin + OpenSSL_add_all_digests := LoadLibCryptoFunction('OpenSSL_add_all_digests'); + if not assigned(OpenSSL_add_all_digests) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OpenSSL_add_all_digests'); + OpenSSL_add_all_digests; + end; + Result := 1; +end; + + + +procedure COMPAT_OPENSSL_cleanup; cdecl; + +begin + {nothing to do} +end; + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_OPENSSL_malloc(num: TOpenSSL_C_SIZET): Pointer; cdecl; +begin + OPENSSL_malloc := LoadLibCryptoFunction('OPENSSL_malloc'); + if not assigned(OPENSSL_malloc) then + OPENSSL_malloc := @COMPAT_OPENSSL_malloc; + Result := OPENSSL_malloc(num); +end; + +function Load_OPENSSL_zalloc(num: TOpenSSL_C_SIZET): Pointer; cdecl; +begin + OPENSSL_zalloc := LoadLibCryptoFunction('OPENSSL_zalloc'); + if not assigned(OPENSSL_zalloc) then + OPENSSL_zalloc := @COMPAT_OPENSSL_zalloc; + Result := OPENSSL_zalloc(num); +end; + +function Load_OPENSSL_realloc(addr: Pointer; num: TOpenSSL_C_SIZET): Pointer; cdecl; +begin + OPENSSL_realloc := LoadLibCryptoFunction('OPENSSL_realloc'); + if not assigned(OPENSSL_realloc) then + OPENSSL_realloc := @COMPAT_OPENSSL_realloc; + Result := OPENSSL_realloc(addr,num); +end; + +function Load_OPENSSL_clear_realloc(addr: Pointer; old_num: TOpenSSL_C_SIZET; num: TOpenSSL_C_SIZET): Pointer; cdecl; +begin + OPENSSL_clear_realloc := LoadLibCryptoFunction('OPENSSL_clear_realloc'); + if not assigned(OPENSSL_clear_realloc) then + OPENSSL_clear_realloc := @COMPAT_OPENSSL_clear_realloc; + Result := OPENSSL_clear_realloc(addr,old_num,num); +end; + +procedure Load_OPENSSL_clear_free(addr: Pointer; num: TOpenSSL_C_SIZET); cdecl; +begin + OPENSSL_clear_free := LoadLibCryptoFunction('OPENSSL_clear_free'); + if not assigned(OPENSSL_clear_free) then + OPENSSL_clear_free := @COMPAT_OPENSSL_clear_free; + OPENSSL_clear_free(addr,num); +end; + +procedure Load_OPENSSL_free(addr: Pointer); cdecl; +begin + OPENSSL_free := LoadLibCryptoFunction('OPENSSL_free'); + if not assigned(OPENSSL_free) then + OPENSSL_free := @COMPAT_OPENSSL_free; + OPENSSL_free(addr); +end; + +function Load_OPENSSL_memdup(const str: Pointer; s: TOpenSSL_C_SIZET): Pointer; cdecl; +begin + OPENSSL_memdup := LoadLibCryptoFunction('OPENSSL_memdup'); + if not assigned(OPENSSL_memdup) then + OPENSSL_memdup := @COMPAT_OPENSSL_memdup; + Result := OPENSSL_memdup(str,s); +end; + +function Load_OPENSSL_strdup(const str: PAnsiChar): PAnsiChar; cdecl; +begin + OPENSSL_strdup := LoadLibCryptoFunction('OPENSSL_strdup'); + if not assigned(OPENSSL_strdup) then + OPENSSL_strdup := @COMPAT_OPENSSL_strdup; + Result := OPENSSL_strdup(str); +end; + +function Load_OPENSSL_strndup(const str: PAnsiChar; n: TOpenSSL_C_SIZET): PAnsiChar; cdecl; +begin + OPENSSL_strndup := LoadLibCryptoFunction('OPENSSL_strndup'); + if not assigned(OPENSSL_strndup) then + OPENSSL_strndup := @COMPAT_OPENSSL_strndup; + Result := OPENSSL_strndup(str,n); +end; + +function Load_OPENSSL_secure_malloc(num: TOpenSSL_C_SIZET): Pointer; cdecl; +begin + OPENSSL_secure_malloc := LoadLibCryptoFunction('OPENSSL_secure_malloc'); + if not assigned(OPENSSL_secure_malloc) then + OPENSSL_secure_malloc := @COMPAT_OPENSSL_secure_malloc; + Result := OPENSSL_secure_malloc(num); +end; + +function Load_OPENSSL_secure_zalloc(num: TOpenSSL_C_SIZET): Pointer; cdecl; +begin + OPENSSL_secure_zalloc := LoadLibCryptoFunction('OPENSSL_secure_zalloc'); + if not assigned(OPENSSL_secure_zalloc) then + OPENSSL_secure_zalloc := @COMPAT_OPENSSL_secure_zalloc; + Result := OPENSSL_secure_zalloc(num); +end; + +procedure Load_OPENSSL_secure_free(addr: Pointer); cdecl; +begin + OPENSSL_secure_free := LoadLibCryptoFunction('OPENSSL_secure_free'); + if not assigned(OPENSSL_secure_free) then + OPENSSL_secure_free := @COMPAT_OPENSSL_secure_free; + OPENSSL_secure_free(addr); +end; + +procedure Load_OPENSSL_secure_clear_free(addr: Pointer; num: TOpenSSL_C_SIZET); cdecl; +begin + OPENSSL_secure_clear_free := LoadLibCryptoFunction('OPENSSL_secure_clear_free'); + if not assigned(OPENSSL_secure_clear_free) then + OPENSSL_secure_clear_free := @COMPAT_OPENSSL_secure_clear_free; + OPENSSL_secure_clear_free(addr,num); +end; + +function Load_OPENSSL_secure_actual_size(ptr: Pointer): TOpenSSL_C_SIZET; cdecl; +begin + OPENSSL_secure_actual_size := LoadLibCryptoFunction('OPENSSL_secure_actual_size'); + if not assigned(OPENSSL_secure_actual_size) then + OPENSSL_secure_actual_size := @COMPAT_OPENSSL_secure_actual_size; + Result := OPENSSL_secure_actual_size(ptr); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_CRYPTO_THREAD_lock_new: PCRYPTO_RWLOCK; cdecl; +begin + CRYPTO_THREAD_lock_new := LoadLibCryptoFunction('CRYPTO_THREAD_lock_new'); + if not assigned(CRYPTO_THREAD_lock_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_THREAD_lock_new'); + Result := CRYPTO_THREAD_lock_new(); +end; + +function Load_CRYPTO_THREAD_read_lock(lock: PCRYPTO_RWLOCK): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_THREAD_read_lock := LoadLibCryptoFunction('CRYPTO_THREAD_read_lock'); + if not assigned(CRYPTO_THREAD_read_lock) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_THREAD_read_lock'); + Result := CRYPTO_THREAD_read_lock(lock); +end; + +function Load_CRYPTO_THREAD_write_lock(lock: PCRYPTO_RWLOCK): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_THREAD_write_lock := LoadLibCryptoFunction('CRYPTO_THREAD_write_lock'); + if not assigned(CRYPTO_THREAD_write_lock) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_THREAD_write_lock'); + Result := CRYPTO_THREAD_write_lock(lock); +end; + +function Load_CRYPTO_THREAD_unlock(lock: PCRYPTO_RWLOCK): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_THREAD_unlock := LoadLibCryptoFunction('CRYPTO_THREAD_unlock'); + if not assigned(CRYPTO_THREAD_unlock) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_THREAD_unlock'); + Result := CRYPTO_THREAD_unlock(lock); +end; + +procedure Load_CRYPTO_THREAD_lock_free(lock: PCRYPTO_RWLOCK); cdecl; +begin + CRYPTO_THREAD_lock_free := LoadLibCryptoFunction('CRYPTO_THREAD_lock_free'); + if not assigned(CRYPTO_THREAD_lock_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_THREAD_lock_free'); + CRYPTO_THREAD_lock_free(lock); +end; + +function Load_CRYPTO_atomic_add(val: POpenSSL_C_INT; amount: TOpenSSL_C_INT; ret: POpenSSL_C_INT; lock: PCRYPTO_RWLOCK): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_atomic_add := LoadLibCryptoFunction('CRYPTO_atomic_add'); + if not assigned(CRYPTO_atomic_add) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_atomic_add'); + Result := CRYPTO_atomic_add(val,amount,ret,lock); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_CRYPTO_mem_ctrl(mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_mem_ctrl := LoadLibCryptoFunction('CRYPTO_mem_ctrl'); + if not assigned(CRYPTO_mem_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_mem_ctrl'); + Result := CRYPTO_mem_ctrl(mode); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_OPENSSL_strlcpy(dst: PAnsiChar; const src: PAnsiChar; siz: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +begin + OPENSSL_strlcpy := LoadLibCryptoFunction('OPENSSL_strlcpy'); + if not assigned(OPENSSL_strlcpy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_strlcpy'); + Result := OPENSSL_strlcpy(dst,src,siz); +end; + +function Load_OPENSSL_strlcat(dst: PAnsiChar; const src: PAnsiChar; siz: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +begin + OPENSSL_strlcat := LoadLibCryptoFunction('OPENSSL_strlcat'); + if not assigned(OPENSSL_strlcat) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_strlcat'); + Result := OPENSSL_strlcat(dst,src,siz); +end; + +function Load_OPENSSL_strnlen(const str: PAnsiChar; maxlen: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +begin + OPENSSL_strnlen := LoadLibCryptoFunction('OPENSSL_strnlen'); + if not assigned(OPENSSL_strnlen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_strnlen'); + Result := OPENSSL_strnlen(str,maxlen); +end; + +function Load_OPENSSL_buf2hexstr(const buffer: PByte; len: TOpenSSL_C_LONG): PAnsiChar; cdecl; +begin + OPENSSL_buf2hexstr := LoadLibCryptoFunction('OPENSSL_buf2hexstr'); + if not assigned(OPENSSL_buf2hexstr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_buf2hexstr'); + Result := OPENSSL_buf2hexstr(buffer,len); +end; + +function Load_OPENSSL_hexstr2buf(const str: PAnsiChar; len: POpenSSL_C_LONG): PByte; cdecl; +begin + OPENSSL_hexstr2buf := LoadLibCryptoFunction('OPENSSL_hexstr2buf'); + if not assigned(OPENSSL_hexstr2buf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_hexstr2buf'); + Result := OPENSSL_hexstr2buf(str,len); +end; + +function Load_OPENSSL_hexchar2int(c: Byte): TOpenSSL_C_INT; cdecl; +begin + OPENSSL_hexchar2int := LoadLibCryptoFunction('OPENSSL_hexchar2int'); + if not assigned(OPENSSL_hexchar2int) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_hexchar2int'); + Result := OPENSSL_hexchar2int(c); +end; + +function Load_OpenSSL_version_num: TOpenSSL_C_ULONG; cdecl; +begin + OpenSSL_version_num := LoadLibCryptoFunction('OpenSSL_version_num'); + if not assigned(OpenSSL_version_num) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OpenSSL_version_num := @COMPAT_OpenSSL_version_num; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OpenSSL_version_num'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OpenSSL_version_num(); +end; + +function Load_OpenSSL_version(type_: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + OpenSSL_version := LoadLibCryptoFunction('OpenSSL_version'); + if not assigned(OpenSSL_version) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OpenSSL_version := @COMPAT_OpenSSL_version; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OpenSSL_version'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OpenSSL_version(type_); +end; + +function Load_OPENSSL_issetugid: TOpenSSL_C_INT; cdecl; +begin + OPENSSL_issetugid := LoadLibCryptoFunction('OPENSSL_issetugid'); + if not assigned(OPENSSL_issetugid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_issetugid'); + Result := OPENSSL_issetugid(); +end; + +function Load_CRYPTO_new_ex_data(class_index: TOpenSSL_C_INT; obj: Pointer; ad: PCRYPTO_EX_DATA): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_new_ex_data := LoadLibCryptoFunction('CRYPTO_new_ex_data'); + if not assigned(CRYPTO_new_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_new_ex_data'); + Result := CRYPTO_new_ex_data(class_index,obj,ad); +end; + +function Load_CRYPTO_dup_ex_data(class_index: TOpenSSL_C_INT; to_: PCRYPTO_EX_DATA; const from: PCRYPTO_EX_DATA): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_dup_ex_data := LoadLibCryptoFunction('CRYPTO_dup_ex_data'); + if not assigned(CRYPTO_dup_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_dup_ex_data'); + Result := CRYPTO_dup_ex_data(class_index,to_,from); +end; + +procedure Load_CRYPTO_free_ex_data(class_index: TOpenSSL_C_INT; obj: Pointer; ad: PCRYPTO_EX_DATA); cdecl; +begin + CRYPTO_free_ex_data := LoadLibCryptoFunction('CRYPTO_free_ex_data'); + if not assigned(CRYPTO_free_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_free_ex_data'); + CRYPTO_free_ex_data(class_index,obj,ad); +end; + +function Load_CRYPTO_set_ex_data(ad: PCRYPTO_EX_DATA; idx: TOpenSSL_C_INT; val: Pointer): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_set_ex_data := LoadLibCryptoFunction('CRYPTO_set_ex_data'); + if not assigned(CRYPTO_set_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_set_ex_data'); + Result := CRYPTO_set_ex_data(ad,idx,val); +end; + +function Load_CRYPTO_get_ex_data(const ad: PCRYPTO_EX_DATA; idx: TOpenSSL_C_INT): Pointer; cdecl; +begin + CRYPTO_get_ex_data := LoadLibCryptoFunction('CRYPTO_get_ex_data'); + if not assigned(CRYPTO_get_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_get_ex_data'); + Result := CRYPTO_get_ex_data(ad,idx); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_CRYPTO_num_locks: TOpenSSL_C_INT; cdecl; +begin + CRYPTO_num_locks := LoadLibCryptoFunction('CRYPTO_num_locks'); + if not assigned(CRYPTO_num_locks) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_num_locks'); + Result := CRYPTO_num_locks(); +end; + +procedure Load_CRYPTO_set_locking_callback(func: TIdSslLockingCallback); cdecl; +begin + CRYPTO_set_locking_callback := LoadLibCryptoFunction('CRYPTO_set_locking_callback'); + if not assigned(CRYPTO_set_locking_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_set_locking_callback'); + CRYPTO_set_locking_callback(func); +end; + +procedure Load_CRYPTO_THREADID_set_numeric(id : PCRYPTO_THREADID; val: TOpenSSL_C_ULONG); cdecl; +begin + CRYPTO_THREADID_set_numeric := LoadLibCryptoFunction('CRYPTO_THREADID_set_numeric'); + if not assigned(CRYPTO_THREADID_set_numeric) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_THREADID_set_numeric'); + CRYPTO_THREADID_set_numeric(id,val); +end; + +procedure Load_CRYPTO_THREADID_set_callback(threadid_func: Tthreadid_func); cdecl; +begin + CRYPTO_THREADID_set_callback := LoadLibCryptoFunction('CRYPTO_THREADID_set_callback'); + if not assigned(CRYPTO_THREADID_set_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_THREADID_set_callback'); + CRYPTO_THREADID_set_callback(threadid_func); +end; + +procedure Load_CRYPTO_set_id_callback(func: TIdSslIdCallback); cdecl; +begin + CRYPTO_set_id_callback := LoadLibCryptoFunction('CRYPTO_set_id_callback'); + if not assigned(CRYPTO_set_id_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_set_id_callback'); + CRYPTO_set_id_callback(func); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_CRYPTO_set_mem_functions(m: CRYPTO_set_mem_functions_m; r: CRYPTO_set_mem_functions_r; f: CRYPTO_set_mem_functions_f): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_set_mem_functions := LoadLibCryptoFunction('CRYPTO_set_mem_functions'); + if not assigned(CRYPTO_set_mem_functions) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_set_mem_functions'); + Result := CRYPTO_set_mem_functions(m,r,f); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_CRYPTO_set_mem_debug(flag: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_set_mem_debug := LoadLibCryptoFunction('CRYPTO_set_mem_debug'); + if not assigned(CRYPTO_set_mem_debug) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_set_mem_debug'); + Result := CRYPTO_set_mem_debug(flag); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_CRYPTO_malloc(num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; +begin + CRYPTO_malloc := LoadLibCryptoFunction('CRYPTO_malloc'); + if not assigned(CRYPTO_malloc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_malloc'); + Result := CRYPTO_malloc(num,file_,line); +end; + +function Load_CRYPTO_zalloc(num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; +begin + CRYPTO_zalloc := LoadLibCryptoFunction('CRYPTO_zalloc'); + if not assigned(CRYPTO_zalloc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_zalloc'); + Result := CRYPTO_zalloc(num,file_,line); +end; + +function Load_CRYPTO_memdup(const str: Pointer; siz: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; +begin + CRYPTO_memdup := LoadLibCryptoFunction('CRYPTO_memdup'); + if not assigned(CRYPTO_memdup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_memdup'); + Result := CRYPTO_memdup(str,siz,file_,line); +end; + +function Load_CRYPTO_strdup(const str: PAnsiChar; const file_: PAnsiChar; line: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + CRYPTO_strdup := LoadLibCryptoFunction('CRYPTO_strdup'); + if not assigned(CRYPTO_strdup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_strdup'); + Result := CRYPTO_strdup(str,file_,line); +end; + +function Load_CRYPTO_strndup(const str: PAnsiChar; s: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + CRYPTO_strndup := LoadLibCryptoFunction('CRYPTO_strndup'); + if not assigned(CRYPTO_strndup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_strndup'); + Result := CRYPTO_strndup(str,s,file_,line); +end; + +procedure Load_CRYPTO_free(ptr: Pointer; const file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl; +begin + CRYPTO_free := LoadLibCryptoFunction('CRYPTO_free'); + if not assigned(CRYPTO_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_free'); + CRYPTO_free(ptr,file_,line); +end; + +procedure Load_CRYPTO_clear_free(ptr: Pointer; num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl; +begin + CRYPTO_clear_free := LoadLibCryptoFunction('CRYPTO_clear_free'); + if not assigned(CRYPTO_clear_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_clear_free'); + CRYPTO_clear_free(ptr,num,file_,line); +end; + +function Load_CRYPTO_realloc(addr: Pointer; num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; +begin + CRYPTO_realloc := LoadLibCryptoFunction('CRYPTO_realloc'); + if not assigned(CRYPTO_realloc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_realloc'); + Result := CRYPTO_realloc(addr,num,file_,line); +end; + +function Load_CRYPTO_clear_realloc(addr: Pointer; old_num: TOpenSSL_C_SIZET; num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; +begin + CRYPTO_clear_realloc := LoadLibCryptoFunction('CRYPTO_clear_realloc'); + if not assigned(CRYPTO_clear_realloc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_clear_realloc'); + Result := CRYPTO_clear_realloc(addr,old_num,num,file_,line); +end; + +function Load_CRYPTO_secure_malloc_init(sz: TOpenSSL_C_SIZET; minsize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_secure_malloc_init := LoadLibCryptoFunction('CRYPTO_secure_malloc_init'); + if not assigned(CRYPTO_secure_malloc_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_secure_malloc_init'); + Result := CRYPTO_secure_malloc_init(sz,minsize); +end; + +function Load_CRYPTO_secure_malloc_done: TOpenSSL_C_INT; cdecl; +begin + CRYPTO_secure_malloc_done := LoadLibCryptoFunction('CRYPTO_secure_malloc_done'); + if not assigned(CRYPTO_secure_malloc_done) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_secure_malloc_done'); + Result := CRYPTO_secure_malloc_done(); +end; + +function Load_CRYPTO_secure_malloc(num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; +begin + CRYPTO_secure_malloc := LoadLibCryptoFunction('CRYPTO_secure_malloc'); + if not assigned(CRYPTO_secure_malloc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_secure_malloc'); + Result := CRYPTO_secure_malloc(num,file_,line); +end; + +function Load_CRYPTO_secure_zalloc(num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT): Pointer; cdecl; +begin + CRYPTO_secure_zalloc := LoadLibCryptoFunction('CRYPTO_secure_zalloc'); + if not assigned(CRYPTO_secure_zalloc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_secure_zalloc'); + Result := CRYPTO_secure_zalloc(num,file_,line); +end; + +procedure Load_CRYPTO_secure_free(ptr: Pointer; const file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl; +begin + CRYPTO_secure_free := LoadLibCryptoFunction('CRYPTO_secure_free'); + if not assigned(CRYPTO_secure_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_secure_free'); + CRYPTO_secure_free(ptr,file_,line); +end; + +procedure Load_CRYPTO_secure_clear_free(ptr: Pointer; num: TOpenSSL_C_SIZET; const file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl; +begin + CRYPTO_secure_clear_free := LoadLibCryptoFunction('CRYPTO_secure_clear_free'); + if not assigned(CRYPTO_secure_clear_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_secure_clear_free'); + CRYPTO_secure_clear_free(ptr,num,file_,line); +end; + +function Load_CRYPTO_secure_allocated(const ptr: Pointer): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_secure_allocated := LoadLibCryptoFunction('CRYPTO_secure_allocated'); + if not assigned(CRYPTO_secure_allocated) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_secure_allocated'); + Result := CRYPTO_secure_allocated(ptr); +end; + +function Load_CRYPTO_secure_malloc_initialized: TOpenSSL_C_INT; cdecl; +begin + CRYPTO_secure_malloc_initialized := LoadLibCryptoFunction('CRYPTO_secure_malloc_initialized'); + if not assigned(CRYPTO_secure_malloc_initialized) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_secure_malloc_initialized'); + Result := CRYPTO_secure_malloc_initialized(); +end; + +function Load_CRYPTO_secure_actual_size(ptr: Pointer): TOpenSSL_C_SIZET; cdecl; +begin + CRYPTO_secure_actual_size := LoadLibCryptoFunction('CRYPTO_secure_actual_size'); + if not assigned(CRYPTO_secure_actual_size) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_secure_actual_size'); + Result := CRYPTO_secure_actual_size(ptr); +end; + +function Load_CRYPTO_secure_used: TOpenSSL_C_SIZET; cdecl; +begin + CRYPTO_secure_used := LoadLibCryptoFunction('CRYPTO_secure_used'); + if not assigned(CRYPTO_secure_used) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_secure_used'); + Result := CRYPTO_secure_used(); +end; + +procedure Load_OPENSSL_cleanse(ptr: Pointer; len: TOpenSSL_C_SIZET); cdecl; +begin + OPENSSL_cleanse := LoadLibCryptoFunction('OPENSSL_cleanse'); + if not assigned(OPENSSL_cleanse) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_cleanse'); + OPENSSL_cleanse(ptr,len); +end; + +function Load_OPENSSL_isservice: TOpenSSL_C_INT; cdecl; +begin + OPENSSL_isservice := LoadLibCryptoFunction('OPENSSL_isservice'); + if not assigned(OPENSSL_isservice) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_isservice'); + Result := OPENSSL_isservice(); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_FIPS_mode: TOpenSSL_C_INT; cdecl; +begin + FIPS_mode := LoadLibCryptoFunction('FIPS_mode'); + if not assigned(FIPS_mode) then + FIPS_mode := @COMPAT_FIPS_mode; + Result := FIPS_mode(); +end; + +function Load_FIPS_mode_set(r: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + FIPS_mode_set := LoadLibCryptoFunction('FIPS_mode_set'); + if not assigned(FIPS_mode_set) then + FIPS_mode_set := @COMPAT_FIPS_mode_set; + Result := FIPS_mode_set(r); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +procedure Load_OPENSSL_init; cdecl; +begin + OPENSSL_init := LoadLibCryptoFunction('OPENSSL_init'); + if not assigned(OPENSSL_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_init'); + OPENSSL_init(); +end; + +function Load_CRYPTO_memcmp(const in_a: Pointer; const in_b: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_memcmp := LoadLibCryptoFunction('CRYPTO_memcmp'); + if not assigned(CRYPTO_memcmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_memcmp'); + Result := CRYPTO_memcmp(in_a,in_b,len); +end; + +procedure Load_OPENSSL_cleanup; cdecl; +begin + OPENSSL_cleanup := LoadLibCryptoFunction('OPENSSL_cleanup'); + if not assigned(OPENSSL_cleanup) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_cleanup := @COMPAT_OPENSSL_cleanup; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_cleanup'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_cleanup(); +end; + +function Load_OPENSSL_init_crypto(opts: TOpenSSL_C_UINT64; const settings: POPENSSL_INIT_SETTINGS): TOpenSSL_C_INT; cdecl; +begin + OPENSSL_init_crypto := LoadLibCryptoFunction('OPENSSL_init_crypto'); + if not assigned(OPENSSL_init_crypto) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_init_crypto := @COMPAT_OPENSSL_init_crypto; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_init_crypto'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_init_crypto(opts,settings); +end; + +procedure Load_OPENSSL_thread_stop; cdecl; +begin + OPENSSL_thread_stop := LoadLibCryptoFunction('OPENSSL_thread_stop'); + if not assigned(OPENSSL_thread_stop) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_thread_stop'); + OPENSSL_thread_stop(); +end; + +function Load_OPENSSL_INIT_new: POPENSSL_INIT_SETTINGS; cdecl; +begin + OPENSSL_INIT_new := LoadLibCryptoFunction('OPENSSL_INIT_new'); + if not assigned(OPENSSL_INIT_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_INIT_new'); + Result := OPENSSL_INIT_new(); +end; + +procedure Load_OPENSSL_INIT_free(settings: POPENSSL_INIT_SETTINGS); cdecl; +begin + OPENSSL_INIT_free := LoadLibCryptoFunction('OPENSSL_INIT_free'); + if not assigned(OPENSSL_INIT_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_INIT_free'); + OPENSSL_INIT_free(settings); +end; + +function Load_CRYPTO_THREAD_run_once(once: PCRYPTO_ONCE; init: CRYPTO_THREAD_run_once_init): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_THREAD_run_once := LoadLibCryptoFunction('CRYPTO_THREAD_run_once'); + if not assigned(CRYPTO_THREAD_run_once) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_THREAD_run_once'); + Result := CRYPTO_THREAD_run_once(once,init); +end; + +function Load_CRYPTO_THREAD_get_local(key: PCRYPTO_THREAD_LOCAL): Pointer; cdecl; +begin + CRYPTO_THREAD_get_local := LoadLibCryptoFunction('CRYPTO_THREAD_get_local'); + if not assigned(CRYPTO_THREAD_get_local) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_THREAD_get_local'); + Result := CRYPTO_THREAD_get_local(key); +end; + +function Load_CRYPTO_THREAD_set_local(key: PCRYPTO_THREAD_LOCAL; val: Pointer): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_THREAD_set_local := LoadLibCryptoFunction('CRYPTO_THREAD_set_local'); + if not assigned(CRYPTO_THREAD_set_local) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_THREAD_set_local'); + Result := CRYPTO_THREAD_set_local(key,val); +end; + +function Load_CRYPTO_THREAD_cleanup_local(key: PCRYPTO_THREAD_LOCAL): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_THREAD_cleanup_local := LoadLibCryptoFunction('CRYPTO_THREAD_cleanup_local'); + if not assigned(CRYPTO_THREAD_cleanup_local) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_THREAD_cleanup_local'); + Result := CRYPTO_THREAD_cleanup_local(key); +end; + +function Load_CRYPTO_THREAD_get_current_id: CRYPTO_THREAD_ID; cdecl; +begin + CRYPTO_THREAD_get_current_id := LoadLibCryptoFunction('CRYPTO_THREAD_get_current_id'); + if not assigned(CRYPTO_THREAD_get_current_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_THREAD_get_current_id'); + Result := CRYPTO_THREAD_get_current_id(); +end; + +function Load_CRYPTO_THREAD_compare_id(a: CRYPTO_THREAD_ID; b: CRYPTO_THREAD_ID): TOpenSSL_C_INT; cdecl; +begin + CRYPTO_THREAD_compare_id := LoadLibCryptoFunction('CRYPTO_THREAD_compare_id'); + if not assigned(CRYPTO_THREAD_compare_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('CRYPTO_THREAD_compare_id'); + Result := CRYPTO_THREAD_compare_id(a,b); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_SSLeay_version(type_ : TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + SSLeay_version := LoadLibCryptoFunction('SSLeay_version'); + if not assigned(SSLeay_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSLeay_version'); + Result := SSLeay_version(type_); +end; + +function Load_SSLeay: TOpenSSL_C_ULONG; cdecl; +begin + SSLeay := LoadLibCryptoFunction('SSLeay'); + if not assigned(SSLeay) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSLeay'); + Result := SSLeay(); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + +{$WARN NO_RETVAL OFF} +{$J+} +{$WARN NO_RETVAL ON} + +procedure UnLoad; +begin +{$J+} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_malloc := Load_OPENSSL_malloc; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_zalloc := Load_OPENSSL_zalloc; + OPENSSL_realloc := Load_OPENSSL_realloc; + OPENSSL_clear_realloc := Load_OPENSSL_clear_realloc; + OPENSSL_clear_free := Load_OPENSSL_clear_free; + OPENSSL_free := Load_OPENSSL_free; + OPENSSL_memdup := Load_OPENSSL_memdup; + OPENSSL_strdup := Load_OPENSSL_strdup; + OPENSSL_strndup := Load_OPENSSL_strndup; + OPENSSL_secure_malloc := Load_OPENSSL_secure_malloc; + OPENSSL_secure_zalloc := Load_OPENSSL_secure_zalloc; + OPENSSL_secure_free := Load_OPENSSL_secure_free; + OPENSSL_secure_clear_free := Load_OPENSSL_secure_clear_free; + OPENSSL_secure_actual_size := Load_OPENSSL_secure_actual_size; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + CRYPTO_THREAD_lock_new := Load_CRYPTO_THREAD_lock_new; + CRYPTO_THREAD_read_lock := Load_CRYPTO_THREAD_read_lock; + CRYPTO_THREAD_write_lock := Load_CRYPTO_THREAD_write_lock; + CRYPTO_THREAD_unlock := Load_CRYPTO_THREAD_unlock; + CRYPTO_THREAD_lock_free := Load_CRYPTO_THREAD_lock_free; + CRYPTO_atomic_add := Load_CRYPTO_atomic_add; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + CRYPTO_mem_ctrl := Load_CRYPTO_mem_ctrl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + OPENSSL_strlcpy := Load_OPENSSL_strlcpy; + OPENSSL_strlcat := Load_OPENSSL_strlcat; + OPENSSL_strnlen := Load_OPENSSL_strnlen; + OPENSSL_buf2hexstr := Load_OPENSSL_buf2hexstr; + OPENSSL_hexstr2buf := Load_OPENSSL_hexstr2buf; + OPENSSL_hexchar2int := Load_OPENSSL_hexchar2int; + OpenSSL_version_num := Load_OpenSSL_version_num; + OpenSSL_version := Load_OpenSSL_version; + OPENSSL_issetugid := Load_OPENSSL_issetugid; + CRYPTO_new_ex_data := Load_CRYPTO_new_ex_data; + CRYPTO_dup_ex_data := Load_CRYPTO_dup_ex_data; + CRYPTO_free_ex_data := Load_CRYPTO_free_ex_data; + CRYPTO_set_ex_data := Load_CRYPTO_set_ex_data; + CRYPTO_get_ex_data := Load_CRYPTO_get_ex_data; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + CRYPTO_num_locks := Load_CRYPTO_num_locks; + CRYPTO_set_locking_callback := Load_CRYPTO_set_locking_callback; + CRYPTO_THREADID_set_numeric := Load_CRYPTO_THREADID_set_numeric; + CRYPTO_THREADID_set_callback := Load_CRYPTO_THREADID_set_callback; + CRYPTO_set_id_callback := Load_CRYPTO_set_id_callback; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + CRYPTO_set_mem_functions := Load_CRYPTO_set_mem_functions; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + CRYPTO_set_mem_debug := Load_CRYPTO_set_mem_debug; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + CRYPTO_malloc := Load_CRYPTO_malloc; + CRYPTO_zalloc := Load_CRYPTO_zalloc; + CRYPTO_memdup := Load_CRYPTO_memdup; + CRYPTO_strdup := Load_CRYPTO_strdup; + CRYPTO_strndup := Load_CRYPTO_strndup; + CRYPTO_free := Load_CRYPTO_free; + CRYPTO_clear_free := Load_CRYPTO_clear_free; + CRYPTO_realloc := Load_CRYPTO_realloc; + CRYPTO_clear_realloc := Load_CRYPTO_clear_realloc; + CRYPTO_secure_malloc_init := Load_CRYPTO_secure_malloc_init; + CRYPTO_secure_malloc_done := Load_CRYPTO_secure_malloc_done; + CRYPTO_secure_malloc := Load_CRYPTO_secure_malloc; + CRYPTO_secure_zalloc := Load_CRYPTO_secure_zalloc; + CRYPTO_secure_free := Load_CRYPTO_secure_free; + CRYPTO_secure_clear_free := Load_CRYPTO_secure_clear_free; + CRYPTO_secure_allocated := Load_CRYPTO_secure_allocated; + CRYPTO_secure_malloc_initialized := Load_CRYPTO_secure_malloc_initialized; + CRYPTO_secure_actual_size := Load_CRYPTO_secure_actual_size; + CRYPTO_secure_used := Load_CRYPTO_secure_used; + OPENSSL_cleanse := Load_OPENSSL_cleanse; + OPENSSL_isservice := Load_OPENSSL_isservice; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + FIPS_mode := Load_FIPS_mode; + FIPS_mode_set := Load_FIPS_mode_set; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + OPENSSL_init := Load_OPENSSL_init; + CRYPTO_memcmp := Load_CRYPTO_memcmp; + OPENSSL_cleanup := Load_OPENSSL_cleanup; + OPENSSL_init_crypto := Load_OPENSSL_init_crypto; + OPENSSL_thread_stop := Load_OPENSSL_thread_stop; + OPENSSL_INIT_new := Load_OPENSSL_INIT_new; + OPENSSL_INIT_free := Load_OPENSSL_INIT_free; + CRYPTO_THREAD_run_once := Load_CRYPTO_THREAD_run_once; + CRYPTO_THREAD_get_local := Load_CRYPTO_THREAD_get_local; + CRYPTO_THREAD_set_local := Load_CRYPTO_THREAD_set_local; + CRYPTO_THREAD_cleanup_local := Load_CRYPTO_THREAD_cleanup_local; + CRYPTO_THREAD_get_current_id := Load_CRYPTO_THREAD_get_current_id; + CRYPTO_THREAD_compare_id := Load_CRYPTO_THREAD_compare_id; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSLeay_version := Load_SSLeay_version; + SSLeay := Load_SSLeay; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +end; +{$ENDIF} + +initialization + + + {$if declared(CRYPTO_num_locks)} + TOpenSSLLegacyCallbacks.FCallbackList := nil; + {$ifend} + + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} + +finalization + + + RemoveLegacyCallbacks; + + + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_cryptoerr.pas b/src/opensslHdrs/IdOpenSSLHeaders_cryptoerr.pas new file mode 100644 index 0000000..fc43b50 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_cryptoerr.pas @@ -0,0 +1,131 @@ +(* This unit was generated from the source file cryptoerr.h2pas +It should not be modified directly. All changes should be made to cryptoerr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_cryptoerr; + + +interface + +// Headers for OpenSSL 1.1.1 +// cryptoerr.h + + +uses + IdSSLOpenSSLAPI; + +const + (* + * CRYPTO function codes. + *) + CRYPTO_F_CMAC_CTX_NEW = 120; + CRYPTO_F_CRYPTO_DUP_EX_DATA = 110; + CRYPTO_F_CRYPTO_FREE_EX_DATA = 111; + CRYPTO_F_CRYPTO_GET_EX_NEW_INDEX = 100; + CRYPTO_F_CRYPTO_MEMDUP = 115; + CRYPTO_F_CRYPTO_NEW_EX_DATA = 112; + CRYPTO_F_CRYPTO_OCB128_COPY_CTX = 121; + CRYPTO_F_CRYPTO_OCB128_INIT = 122; + CRYPTO_F_CRYPTO_SET_EX_DATA = 102; + CRYPTO_F_FIPS_MODE_SET = 109; + CRYPTO_F_GET_AND_LOCK = 113; + CRYPTO_F_OPENSSL_ATEXIT = 114; + CRYPTO_F_OPENSSL_BUF2HEXSTR = 117; + CRYPTO_F_OPENSSL_FOPEN = 119; + CRYPTO_F_OPENSSL_HEXSTR2BUF = 118; + CRYPTO_F_OPENSSL_INIT_CRYPTO = 116; + CRYPTO_F_OPENSSL_LH_NEW = 126; + CRYPTO_F_OPENSSL_SK_DEEP_COPY = 127; + CRYPTO_F_OPENSSL_SK_DUP = 128; + CRYPTO_F_PKEY_HMAC_INIT = 123; + CRYPTO_F_PKEY_POLY1305_INIT = 124; + CRYPTO_F_PKEY_SIPHASH_INIT = 125; + CRYPTO_F_SK_RESERVE = 129; + + (* + * CRYPTO reason codes. + *) + CRYPTO_R_FIPS_MODE_NOT_SUPPORTED = 101; + CRYPTO_R_ILLEGAL_HEX_DIGIT = 102; + CRYPTO_R_ODD_NUMBER_OF_DIGITS = 103; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_CRYPTO_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_CRYPTO_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_CRYPTO_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_CRYPTO_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_CRYPTO_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_CRYPTO_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_CRYPTO_strings := LoadLibCryptoFunction('ERR_load_CRYPTO_strings'); + if not assigned(ERR_load_CRYPTO_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_CRYPTO_strings'); + Result := ERR_load_CRYPTO_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_CRYPTO_strings := Load_ERR_load_CRYPTO_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_cterr.pas b/src/opensslHdrs/IdOpenSSLHeaders_cterr.pas new file mode 100644 index 0000000..f339a65 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_cterr.pas @@ -0,0 +1,150 @@ +(* This unit was generated from the source file cterr.h2pas +It should not be modified directly. All changes should be made to cterr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_cterr; + + +interface + +// Headers for OpenSSL 1.1.1 +// cterr.h + + +uses + IdSSLOpenSSLAPI; + +const + ///* + // * CT function codes. + // */ + CT_F_CTLOG_NEW = 117; + CT_F_CTLOG_NEW_FROM_BASE64 = 118; + CT_F_CTLOG_NEW_FROM_CONF = 119; + CT_F_CTLOG_STORE_LOAD_CTX_NEW = 122; + CT_F_CTLOG_STORE_LOAD_FILE = 123; + CT_F_CTLOG_STORE_LOAD_LOG = 130; + CT_F_CTLOG_STORE_NEW = 131; + CT_F_CT_BASE64_DECODE = 124; + CT_F_CT_POLICY_EVAL_CTX_NEW = 133; + CT_F_CT_V1_LOG_ID_FROM_PKEY = 125; + CT_F_I2O_SCT = 107; + CT_F_I2O_SCT_LIST = 108; + CT_F_I2O_SCT_SIGNATURE = 109; + CT_F_O2I_SCT = 110; + CT_F_O2I_SCT_LIST = 111; + CT_F_O2I_SCT_SIGNATURE = 112; + CT_F_SCT_CTX_NEW = 126; + CT_F_SCT_CTX_VERIFY = 128; + CT_F_SCT_NEW = 100; + CT_F_SCT_NEW_FROM_BASE64 = 127; + CT_F_SCT_SET0_LOG_ID = 101; + CT_F_SCT_SET1_EXTENSIONS = 114; + CT_F_SCT_SET1_LOG_ID = 115; + CT_F_SCT_SET1_SIGNATURE = 116; + CT_F_SCT_SET_LOG_ENTRY_TYPE = 102; + CT_F_SCT_SET_SIGNATURE_NID = 103; + CT_F_SCT_SET_VERSION = 104; + + + ///* + // * CT reason codes. + // */ + CT_R_BASE64_DECODE_ERROR = 108; + CT_R_INVALID_LOG_ID_LENGTH = 100; + CT_R_LOG_CONF_INVALID = 109; + CT_R_LOG_CONF_INVALID_KEY = 110; + CT_R_LOG_CONF_MISSING_DESCRIPTION = 111; + CT_R_LOG_CONF_MISSING_KEY = 112; + CT_R_LOG_KEY_INVALID = 113; + CT_R_SCT_FUTURE_TIMESTAMP = 116; + CT_R_SCT_INVALID = 104; + CT_R_SCT_INVALID_SIGNATURE = 107; + CT_R_SCT_LIST_INVALID = 105; + CT_R_SCT_LOG_ID_MISMATCH = 114; + CT_R_SCT_NOT_SET = 106; + CT_R_SCT_UNSUPPORTED_VERSION = 115; + CT_R_UNRECOGNIZED_SIGNATURE_NID = 101; + CT_R_UNSUPPORTED_ENTRY_TYPE = 102; + CT_R_UNSUPPORTED_VERSION = 103; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_CT_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_CT_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_CT_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_CT_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_CT_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_CT_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_CT_strings := LoadLibCryptoFunction('ERR_load_CT_strings'); + if not assigned(ERR_load_CT_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_CT_strings'); + Result := ERR_load_CT_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_CT_strings := Load_ERR_load_CT_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_des.pas b/src/opensslHdrs/IdOpenSSLHeaders_des.pas new file mode 100644 index 0000000..c39ade6 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_des.pas @@ -0,0 +1,735 @@ +(* This unit was generated from the source file des.h2pas +It should not be modified directly. All changes should be made to des.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + + +unit IdOpenSSLHeaders_des; + + +interface + + +uses + IdSSLOpenSSLAPI; + +{ + Automatically converted by H2Pas 1.0.0 from des.h + The following command line parameters were used: + des.h +} + + +Type + DES_LONG = type cardinal; + Pconst_DES_cblock = ^const_DES_cblock; + PDES_cblock = ^DES_cblock; + PDES_key_schedule = ^DES_key_schedule; + PDES_LONG = ^DES_LONG; + + + DES_cblock = array[0..7] of byte; + { const } + const_DES_cblock = array[0..7] of byte; + { + * With "const", gcc 2.8.1 on Solaris thinks that DES_cblock * and + * const_DES_cblock * are incompatible pointer types. + } + { + * make sure things are correct size on machines with 8 byte longs + } + + DES_ks = record + ks : array[0..15] of record + case longint of + 0 : ( cblock : DES_cblock ); + 1 : ( deslong : array[0..1] of DES_LONG ); + end; + end; + DES_key_schedule = DES_ks; + +var + DES_check_key : longint; + + + +const + DES_ENCRYPT = 1; + DES_DECRYPT = 0; + DES_CBC_MODE = 0; + DES_PCBC_MODE = 1; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM DES_options} +{$EXTERNALSYM DES_ecb3_encrypt} +{$EXTERNALSYM DES_cbc_cksum} +{$EXTERNALSYM DES_cbc_encrypt} +{$EXTERNALSYM DES_ncbc_encrypt} +{$EXTERNALSYM DES_xcbc_encrypt} +{$EXTERNALSYM DES_cfb_encrypt} +{$EXTERNALSYM DES_ecb_encrypt} +{$EXTERNALSYM DES_encrypt1} +{$EXTERNALSYM DES_encrypt2} +{$EXTERNALSYM DES_encrypt3} +{$EXTERNALSYM DES_decrypt3} +{$EXTERNALSYM DES_ede3_cbc_encrypt} +{$EXTERNALSYM DES_ede3_cfb64_encrypt} +{$EXTERNALSYM DES_ede3_cfb_encrypt} +{$EXTERNALSYM DES_ede3_ofb64_encrypt} +{$EXTERNALSYM DES_fcrypt} +{$EXTERNALSYM DES_crypt} +{$EXTERNALSYM DES_ofb_encrypt} +{$EXTERNALSYM DES_pcbc_encrypt} +{$EXTERNALSYM DES_quad_cksum} +{$EXTERNALSYM DES_random_key} +{$EXTERNALSYM DES_set_odd_parity} +{$EXTERNALSYM DES_check_key_parity} +{$EXTERNALSYM DES_is_weak_key} +{$EXTERNALSYM DES_set_key} +{$EXTERNALSYM DES_key_sched} +{$EXTERNALSYM DES_set_key_checked} +{$EXTERNALSYM DES_set_key_unchecked} +{$EXTERNALSYM DES_string_to_key} +{$EXTERNALSYM DES_string_to_2keys} +{$EXTERNALSYM DES_cfb64_encrypt} +{$EXTERNALSYM DES_ofb64_encrypt} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function DES_options: PAnsiChar; cdecl; external CLibCrypto; +procedure DES_ecb3_encrypt(input:Pconst_DES_cblock; output:PDES_cblock; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; enc:longint); cdecl; external CLibCrypto; +function DES_cbc_cksum(input:Pbyte; output:PDES_cblock; length:longint; schedule:PDES_key_schedule; ivec:Pconst_DES_cblock): DES_LONG; cdecl; external CLibCrypto; +procedure DES_cbc_encrypt(input:Pbyte; output:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; external CLibCrypto; +procedure DES_ncbc_encrypt(input:Pbyte; output:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; external CLibCrypto; +procedure DES_xcbc_encrypt(input:Pbyte; output:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; inw:Pconst_DES_cblock; outw:Pconst_DES_cblock; enc:longint); cdecl; external CLibCrypto; +procedure DES_cfb_encrypt(in_:Pbyte; out_:Pbyte; numbits:longint; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; external CLibCrypto; +procedure DES_ecb_encrypt(input:Pconst_DES_cblock; output:PDES_cblock; ks:PDES_key_schedule; enc:longint); cdecl; external CLibCrypto; +procedure DES_encrypt1(data:PDES_LONG; ks:PDES_key_schedule; enc:longint); cdecl; external CLibCrypto; +procedure DES_encrypt2(data:PDES_LONG; ks:PDES_key_schedule; enc:longint); cdecl; external CLibCrypto; +procedure DES_encrypt3(data:PDES_LONG; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule); cdecl; external CLibCrypto; +procedure DES_decrypt3(data:PDES_LONG; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule); cdecl; external CLibCrypto; +procedure DES_ede3_cbc_encrypt(input:Pbyte; output:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; external CLibCrypto; +procedure DES_ede3_cfb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; ivec:PDES_cblock; num:Plongint; enc:longint); cdecl; external CLibCrypto; +procedure DES_ede3_cfb_encrypt(in_:Pbyte; out_:Pbyte; numbits:longint; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; external CLibCrypto; +procedure DES_ede3_ofb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; ivec:PDES_cblock; num:Plongint); cdecl; external CLibCrypto; +function DES_fcrypt(buf:PAnsiChar; salt:PAnsiChar; ret:PAnsiChar): PAnsiChar; cdecl; external CLibCrypto; +function DES_crypt(buf:PAnsiChar; salt:PAnsiChar): PAnsiChar; cdecl; external CLibCrypto; +procedure DES_ofb_encrypt(in_:Pbyte; out_:Pbyte; numbits:longint; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock); cdecl; external CLibCrypto; +procedure DES_pcbc_encrypt(input:Pbyte; output:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; external CLibCrypto; +function DES_quad_cksum(input:Pbyte; output:PDES_cblock; length:longint; out_count:longint; seed:PDES_cblock): DES_LONG; cdecl; external CLibCrypto; +function DES_random_key(ret:PDES_cblock): longint; cdecl; external CLibCrypto; +procedure DES_set_odd_parity(key:PDES_cblock); cdecl; external CLibCrypto; +function DES_check_key_parity(key:Pconst_DES_cblock): longint; cdecl; external CLibCrypto; +function DES_is_weak_key(key:Pconst_DES_cblock): longint; cdecl; external CLibCrypto; +function DES_set_key(key:Pconst_DES_cblock; var schedule: DES_key_schedule): longint; cdecl; external CLibCrypto; +function DES_key_sched(key:Pconst_DES_cblock; schedule:PDES_key_schedule): longint; cdecl; external CLibCrypto; +function DES_set_key_checked(key:Pconst_DES_cblock; schedule:PDES_key_schedule): longint; cdecl; external CLibCrypto; +procedure DES_set_key_unchecked(key:Pconst_DES_cblock; schedule:PDES_key_schedule); cdecl; external CLibCrypto; +procedure DES_string_to_key(str:PAnsiChar; key:PDES_cblock); cdecl; external CLibCrypto; +procedure DES_string_to_2keys(str:PAnsiChar; key1:PDES_cblock; key2:PDES_cblock); cdecl; external CLibCrypto; +procedure DES_cfb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; num:Plongint; enc:longint); cdecl; external CLibCrypto; +procedure DES_ofb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; num:Plongint); cdecl; external CLibCrypto; + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure DES_ecb2_encrypt(input:Pconst_DES_cblock; output:PDES_cblock; ks1:PDES_key_schedule; ks2:PDES_key_schedule; enc:longint); {removed 1.0.0} +procedure DES_ede2_cbc_encrypt(input:Pbyte; output:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ivec:PDES_cblock; enc:longint); {removed 1.0.0} +procedure DES_ede2_cfb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ivec:PDES_cblock; num:Plongint; enc:longint); {removed 1.0.0} +procedure DES_ede2_ofb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ivec:PDES_cblock; num:Plongint); {removed 1.0.0} +procedure DES_fixup_key_parity(key: PDES_cblock); {removed 1.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_DES_ecb2_encrypt(input:Pconst_DES_cblock; output:PDES_cblock; ks1:PDES_key_schedule; ks2:PDES_key_schedule; enc:longint); cdecl; +procedure Load_DES_ede2_cbc_encrypt(input:Pbyte; output:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; +procedure Load_DES_ede2_cfb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ivec:PDES_cblock; num:Plongint; enc:longint); cdecl; +procedure Load_DES_ede2_ofb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ivec:PDES_cblock; num:Plongint); cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_DES_options: PAnsiChar; cdecl; +procedure Load_DES_ecb3_encrypt(input:Pconst_DES_cblock; output:PDES_cblock; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; enc:longint); cdecl; +function Load_DES_cbc_cksum(input:Pbyte; output:PDES_cblock; length:longint; schedule:PDES_key_schedule; ivec:Pconst_DES_cblock): DES_LONG; cdecl; +procedure Load_DES_cbc_encrypt(input:Pbyte; output:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; +procedure Load_DES_ncbc_encrypt(input:Pbyte; output:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; +procedure Load_DES_xcbc_encrypt(input:Pbyte; output:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; inw:Pconst_DES_cblock; outw:Pconst_DES_cblock; enc:longint); cdecl; +procedure Load_DES_cfb_encrypt(in_:Pbyte; out_:Pbyte; numbits:longint; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; +procedure Load_DES_ecb_encrypt(input:Pconst_DES_cblock; output:PDES_cblock; ks:PDES_key_schedule; enc:longint); cdecl; +procedure Load_DES_encrypt1(data:PDES_LONG; ks:PDES_key_schedule; enc:longint); cdecl; +procedure Load_DES_encrypt2(data:PDES_LONG; ks:PDES_key_schedule; enc:longint); cdecl; +procedure Load_DES_encrypt3(data:PDES_LONG; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule); cdecl; +procedure Load_DES_decrypt3(data:PDES_LONG; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule); cdecl; +procedure Load_DES_ede3_cbc_encrypt(input:Pbyte; output:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; +procedure Load_DES_ede3_cfb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; ivec:PDES_cblock; num:Plongint; enc:longint); cdecl; +procedure Load_DES_ede3_cfb_encrypt(in_:Pbyte; out_:Pbyte; numbits:longint; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; +procedure Load_DES_ede3_ofb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; ivec:PDES_cblock; num:Plongint); cdecl; +function Load_DES_fcrypt(buf:PAnsiChar; salt:PAnsiChar; ret:PAnsiChar): PAnsiChar; cdecl; +function Load_DES_crypt(buf:PAnsiChar; salt:PAnsiChar): PAnsiChar; cdecl; +procedure Load_DES_ofb_encrypt(in_:Pbyte; out_:Pbyte; numbits:longint; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock); cdecl; +procedure Load_DES_pcbc_encrypt(input:Pbyte; output:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; +function Load_DES_quad_cksum(input:Pbyte; output:PDES_cblock; length:longint; out_count:longint; seed:PDES_cblock): DES_LONG; cdecl; +function Load_DES_random_key(ret:PDES_cblock): longint; cdecl; +function Load_DES_check_key_parity(key:Pconst_DES_cblock): longint; cdecl; +function Load_DES_is_weak_key(key:Pconst_DES_cblock): longint; cdecl; +function Load_DES_key_sched(key:Pconst_DES_cblock; schedule:PDES_key_schedule): longint; cdecl; +function Load_DES_set_key_checked(key:Pconst_DES_cblock; schedule:PDES_key_schedule): longint; cdecl; +procedure Load_DES_set_key_unchecked(key:Pconst_DES_cblock; schedule:PDES_key_schedule); cdecl; +procedure Load_DES_string_to_key(str:PAnsiChar; key:PDES_cblock); cdecl; +procedure Load_DES_string_to_2keys(str:PAnsiChar; key1:PDES_cblock; key2:PDES_cblock); cdecl; +procedure Load_DES_cfb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; num:Plongint; enc:longint); cdecl; +procedure Load_DES_ofb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; num:Plongint); cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_DES_fixup_key_parity(key: PDES_cblock); cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + +var + DES_options: function : PAnsiChar; cdecl = Load_DES_options; + DES_ecb3_encrypt: procedure (input:Pconst_DES_cblock; output:PDES_cblock; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; enc:longint); cdecl = Load_DES_ecb3_encrypt; + DES_cbc_cksum: function (input:Pbyte; output:PDES_cblock; length:longint; schedule:PDES_key_schedule; ivec:Pconst_DES_cblock): DES_LONG; cdecl = Load_DES_cbc_cksum; + DES_cbc_encrypt: procedure (input:Pbyte; output:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl = Load_DES_cbc_encrypt; + DES_ncbc_encrypt: procedure (input:Pbyte; output:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl = Load_DES_ncbc_encrypt; + DES_xcbc_encrypt: procedure (input:Pbyte; output:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; inw:Pconst_DES_cblock; outw:Pconst_DES_cblock; enc:longint); cdecl = Load_DES_xcbc_encrypt; + DES_cfb_encrypt: procedure (in_:Pbyte; out_:Pbyte; numbits:longint; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl = Load_DES_cfb_encrypt; + DES_ecb_encrypt: procedure (input:Pconst_DES_cblock; output:PDES_cblock; ks:PDES_key_schedule; enc:longint); cdecl = Load_DES_ecb_encrypt; + DES_encrypt1: procedure (data:PDES_LONG; ks:PDES_key_schedule; enc:longint); cdecl = Load_DES_encrypt1; + DES_encrypt2: procedure (data:PDES_LONG; ks:PDES_key_schedule; enc:longint); cdecl = Load_DES_encrypt2; + DES_encrypt3: procedure (data:PDES_LONG; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule); cdecl = Load_DES_encrypt3; + DES_decrypt3: procedure (data:PDES_LONG; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule); cdecl = Load_DES_decrypt3; + DES_ede3_cbc_encrypt: procedure (input:Pbyte; output:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl = Load_DES_ede3_cbc_encrypt; + DES_ede3_cfb64_encrypt: procedure (in_:Pbyte; out_:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; ivec:PDES_cblock; num:Plongint; enc:longint); cdecl = Load_DES_ede3_cfb64_encrypt; + DES_ede3_cfb_encrypt: procedure (in_:Pbyte; out_:Pbyte; numbits:longint; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl = Load_DES_ede3_cfb_encrypt; + DES_ede3_ofb64_encrypt: procedure (in_:Pbyte; out_:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; ivec:PDES_cblock; num:Plongint); cdecl = Load_DES_ede3_ofb64_encrypt; + DES_fcrypt: function (buf:PAnsiChar; salt:PAnsiChar; ret:PAnsiChar): PAnsiChar; cdecl = Load_DES_fcrypt; + DES_crypt: function (buf:PAnsiChar; salt:PAnsiChar): PAnsiChar; cdecl = Load_DES_crypt; + DES_ofb_encrypt: procedure (in_:Pbyte; out_:Pbyte; numbits:longint; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock); cdecl = Load_DES_ofb_encrypt; + DES_pcbc_encrypt: procedure (input:Pbyte; output:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl = Load_DES_pcbc_encrypt; + DES_quad_cksum: function (input:Pbyte; output:PDES_cblock; length:longint; out_count:longint; seed:PDES_cblock): DES_LONG; cdecl = Load_DES_quad_cksum; + DES_random_key: function (ret:PDES_cblock): longint; cdecl = Load_DES_random_key; + DES_set_odd_parity: procedure (key:PDES_cblock); cdecl = nil; + DES_check_key_parity: function (key:Pconst_DES_cblock): longint; cdecl = Load_DES_check_key_parity; + DES_is_weak_key: function (key:Pconst_DES_cblock): longint; cdecl = Load_DES_is_weak_key; + DES_set_key: function (key:Pconst_DES_cblock; var schedule: DES_key_schedule): longint; cdecl = nil; + DES_key_sched: function (key:Pconst_DES_cblock; schedule:PDES_key_schedule): longint; cdecl = Load_DES_key_sched; + DES_set_key_checked: function (key:Pconst_DES_cblock; schedule:PDES_key_schedule): longint; cdecl = Load_DES_set_key_checked; + DES_set_key_unchecked: procedure (key:Pconst_DES_cblock; schedule:PDES_key_schedule); cdecl = Load_DES_set_key_unchecked; + DES_string_to_key: procedure (str:PAnsiChar; key:PDES_cblock); cdecl = Load_DES_string_to_key; + DES_string_to_2keys: procedure (str:PAnsiChar; key1:PDES_cblock; key2:PDES_cblock); cdecl = Load_DES_string_to_2keys; + DES_cfb64_encrypt: procedure (in_:Pbyte; out_:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; num:Plongint; enc:longint); cdecl = Load_DES_cfb64_encrypt; + DES_ofb64_encrypt: procedure (in_:Pbyte; out_:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; num:Plongint); cdecl = Load_DES_ofb64_encrypt; + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +var + DES_ecb2_encrypt: procedure (input:Pconst_DES_cblock; output:PDES_cblock; ks1:PDES_key_schedule; ks2:PDES_key_schedule; enc:longint); cdecl = Load_DES_ecb2_encrypt; {removed 1.0.0} + DES_ede2_cbc_encrypt: procedure (input:Pbyte; output:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl = Load_DES_ede2_cbc_encrypt; {removed 1.0.0} + DES_ede2_cfb64_encrypt: procedure (in_:Pbyte; out_:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ivec:PDES_cblock; num:Plongint; enc:longint); cdecl = Load_DES_ede2_cfb64_encrypt; {removed 1.0.0} + DES_ede2_ofb64_encrypt: procedure (in_:Pbyte; out_:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ivec:PDES_cblock; num:Plongint); cdecl = Load_DES_ede2_ofb64_encrypt; {removed 1.0.0} + DES_fixup_key_parity: procedure (key: PDES_cblock); cdecl = Load_DES_fixup_key_parity; {removed 1.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +const + DES_ecb2_encrypt_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + DES_ede2_cbc_encrypt_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + DES_ede2_cfb64_encrypt_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + DES_ede2_ofb64_encrypt_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + DES_fixup_key_parity_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + + +implementation + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFDEF OPENSSL_STATIC_LINK_MODEL} + +{Legacy Support Functions} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure DES_ecb2_encrypt(input:Pconst_DES_cblock; output:PDES_cblock; ks1: PDES_key_schedule; ks2: PDES_key_schedule; enc: longint); + + begin + DES_ecb3_encrypt(input,output,ks1,ks2,ks1,enc); + end; + + + +procedure DES_ede2_cbc_encrypt(input:Pbyte; output:Pbyte; length: longint; ks1: PDES_key_schedule; ks2: PDES_key_schedule; ivec: PDES_cblock; enc: longint); + + begin + DES_ede3_cbc_encrypt(input,output,length,ks1,ks2,ks1,ivec,enc); + end; + + + +procedure DES_ede2_cfb64_encrypt(in_: Pbyte; out_: Pbyte; length: longint; ks1: PDES_key_schedule; ks2: PDES_key_schedule; ivec: PDES_cblock; num: Plongint; enc: longint); + + begin + DES_ede3_cfb64_encrypt(in_,out_,length,ks1,ks2,ks1,ivec,num,enc); + end; + + + +procedure DES_ede2_ofb64_encrypt(in_: Pbyte; out_: Pbyte; length: longint; ks1: PDES_key_schedule; ks2: PDES_key_schedule; ivec: PDES_cblock; num: Plongint); + + begin + DES_ede3_ofb64_encrypt(in_,out_,length,ks1,ks2,ks1,ivec,num); + end; + + + +procedure DES_fixup_key_parity(key:PDES_cblock); + + begin + DES_set_odd_parity(key); + end; + + + + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure COMPAT_DES_ecb2_encrypt(input:Pconst_DES_cblock; output:PDES_cblock; ks1: PDES_key_schedule; ks2: PDES_key_schedule; enc: longint); cdecl; + + begin + DES_ecb3_encrypt(input,output,ks1,ks2,ks1,enc); + end; + + + +procedure COMPAT_DES_ede2_cbc_encrypt(input:Pbyte; output:Pbyte; length: longint; ks1: PDES_key_schedule; ks2: PDES_key_schedule; ivec: PDES_cblock; enc: longint); cdecl; + + begin + DES_ede3_cbc_encrypt(input,output,length,ks1,ks2,ks1,ivec,enc); + end; + + + +procedure COMPAT_DES_ede2_cfb64_encrypt(in_: Pbyte; out_: Pbyte; length: longint; ks1: PDES_key_schedule; ks2: PDES_key_schedule; ivec: PDES_cblock; num: Plongint; enc: longint); cdecl; + + begin + DES_ede3_cfb64_encrypt(in_,out_,length,ks1,ks2,ks1,ivec,num,enc); + end; + + + +procedure COMPAT_DES_ede2_ofb64_encrypt(in_: Pbyte; out_: Pbyte; length: longint; ks1: PDES_key_schedule; ks2: PDES_key_schedule; ivec: PDES_cblock; num: Plongint); cdecl; + + begin + DES_ede3_ofb64_encrypt(in_,out_,length,ks1,ks2,ks1,ivec,num); + end; + + + +procedure COMPAT_DES_fixup_key_parity(key:PDES_cblock); cdecl; + + begin + DES_set_odd_parity(key); + end; + + + + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_DES_ecb2_encrypt(input:Pconst_DES_cblock; output:PDES_cblock; ks1:PDES_key_schedule; ks2:PDES_key_schedule; enc:longint); cdecl; +begin + DES_ecb2_encrypt := LoadLibCryptoFunction('DES_ecb2_encrypt'); + if not assigned(DES_ecb2_encrypt) then + DES_ecb2_encrypt := @COMPAT_DES_ecb2_encrypt; + DES_ecb2_encrypt(input,output,ks1,ks2,enc); +end; + +procedure Load_DES_ede2_cbc_encrypt(input:Pbyte; output:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; +begin + DES_ede2_cbc_encrypt := LoadLibCryptoFunction('DES_ede2_cbc_encrypt'); + if not assigned(DES_ede2_cbc_encrypt) then + DES_ede2_cbc_encrypt := @COMPAT_DES_ede2_cbc_encrypt; + DES_ede2_cbc_encrypt(input,output,length,ks1,ks2,ivec,enc); +end; + +procedure Load_DES_ede2_cfb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ivec:PDES_cblock; num:Plongint; enc:longint); cdecl; +begin + DES_ede2_cfb64_encrypt := LoadLibCryptoFunction('DES_ede2_cfb64_encrypt'); + if not assigned(DES_ede2_cfb64_encrypt) then + DES_ede2_cfb64_encrypt := @COMPAT_DES_ede2_cfb64_encrypt; + DES_ede2_cfb64_encrypt(in_,out_,length,ks1,ks2,ivec,num,enc); +end; + +procedure Load_DES_ede2_ofb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ivec:PDES_cblock; num:Plongint); cdecl; +begin + DES_ede2_ofb64_encrypt := LoadLibCryptoFunction('DES_ede2_ofb64_encrypt'); + if not assigned(DES_ede2_ofb64_encrypt) then + DES_ede2_ofb64_encrypt := @COMPAT_DES_ede2_ofb64_encrypt; + DES_ede2_ofb64_encrypt(in_,out_,length,ks1,ks2,ivec,num); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_DES_options: PAnsiChar; cdecl; +begin + DES_options := LoadLibCryptoFunction('DES_options'); + if not assigned(DES_options) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_options'); + Result := DES_options(); +end; + +procedure Load_DES_ecb3_encrypt(input:Pconst_DES_cblock; output:PDES_cblock; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; enc:longint); cdecl; +begin + DES_ecb3_encrypt := LoadLibCryptoFunction('DES_ecb3_encrypt'); + if not assigned(DES_ecb3_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_ecb3_encrypt'); + DES_ecb3_encrypt(input,output,ks1,ks2,ks3,enc); +end; + +function Load_DES_cbc_cksum(input:Pbyte; output:PDES_cblock; length:longint; schedule:PDES_key_schedule; ivec:Pconst_DES_cblock): DES_LONG; cdecl; +begin + DES_cbc_cksum := LoadLibCryptoFunction('DES_cbc_cksum'); + if not assigned(DES_cbc_cksum) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_cbc_cksum'); + Result := DES_cbc_cksum(input,output,length,schedule,ivec); +end; + +procedure Load_DES_cbc_encrypt(input:Pbyte; output:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; +begin + DES_cbc_encrypt := LoadLibCryptoFunction('DES_cbc_encrypt'); + if not assigned(DES_cbc_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_cbc_encrypt'); + DES_cbc_encrypt(input,output,length,schedule,ivec,enc); +end; + +procedure Load_DES_ncbc_encrypt(input:Pbyte; output:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; +begin + DES_ncbc_encrypt := LoadLibCryptoFunction('DES_ncbc_encrypt'); + if not assigned(DES_ncbc_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_ncbc_encrypt'); + DES_ncbc_encrypt(input,output,length,schedule,ivec,enc); +end; + +procedure Load_DES_xcbc_encrypt(input:Pbyte; output:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; inw:Pconst_DES_cblock; outw:Pconst_DES_cblock; enc:longint); cdecl; +begin + DES_xcbc_encrypt := LoadLibCryptoFunction('DES_xcbc_encrypt'); + if not assigned(DES_xcbc_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_xcbc_encrypt'); + DES_xcbc_encrypt(input,output,length,schedule,ivec,inw,outw,enc); +end; + +procedure Load_DES_cfb_encrypt(in_:Pbyte; out_:Pbyte; numbits:longint; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; +begin + DES_cfb_encrypt := LoadLibCryptoFunction('DES_cfb_encrypt'); + if not assigned(DES_cfb_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_cfb_encrypt'); + DES_cfb_encrypt(in_,out_,numbits,length,schedule,ivec,enc); +end; + +procedure Load_DES_ecb_encrypt(input:Pconst_DES_cblock; output:PDES_cblock; ks:PDES_key_schedule; enc:longint); cdecl; +begin + DES_ecb_encrypt := LoadLibCryptoFunction('DES_ecb_encrypt'); + if not assigned(DES_ecb_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_ecb_encrypt'); + DES_ecb_encrypt(input,output,ks,enc); +end; + +procedure Load_DES_encrypt1(data:PDES_LONG; ks:PDES_key_schedule; enc:longint); cdecl; +begin + DES_encrypt1 := LoadLibCryptoFunction('DES_encrypt1'); + if not assigned(DES_encrypt1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_encrypt1'); + DES_encrypt1(data,ks,enc); +end; + +procedure Load_DES_encrypt2(data:PDES_LONG; ks:PDES_key_schedule; enc:longint); cdecl; +begin + DES_encrypt2 := LoadLibCryptoFunction('DES_encrypt2'); + if not assigned(DES_encrypt2) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_encrypt2'); + DES_encrypt2(data,ks,enc); +end; + +procedure Load_DES_encrypt3(data:PDES_LONG; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule); cdecl; +begin + DES_encrypt3 := LoadLibCryptoFunction('DES_encrypt3'); + if not assigned(DES_encrypt3) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_encrypt3'); + DES_encrypt3(data,ks1,ks2,ks3); +end; + +procedure Load_DES_decrypt3(data:PDES_LONG; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule); cdecl; +begin + DES_decrypt3 := LoadLibCryptoFunction('DES_decrypt3'); + if not assigned(DES_decrypt3) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_decrypt3'); + DES_decrypt3(data,ks1,ks2,ks3); +end; + +procedure Load_DES_ede3_cbc_encrypt(input:Pbyte; output:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; +begin + DES_ede3_cbc_encrypt := LoadLibCryptoFunction('DES_ede3_cbc_encrypt'); + if not assigned(DES_ede3_cbc_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_ede3_cbc_encrypt'); + DES_ede3_cbc_encrypt(input,output,length,ks1,ks2,ks3,ivec,enc); +end; + +procedure Load_DES_ede3_cfb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; ivec:PDES_cblock; num:Plongint; enc:longint); cdecl; +begin + DES_ede3_cfb64_encrypt := LoadLibCryptoFunction('DES_ede3_cfb64_encrypt'); + if not assigned(DES_ede3_cfb64_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_ede3_cfb64_encrypt'); + DES_ede3_cfb64_encrypt(in_,out_,length,ks1,ks2,ks3,ivec,num,enc); +end; + +procedure Load_DES_ede3_cfb_encrypt(in_:Pbyte; out_:Pbyte; numbits:longint; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; +begin + DES_ede3_cfb_encrypt := LoadLibCryptoFunction('DES_ede3_cfb_encrypt'); + if not assigned(DES_ede3_cfb_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_ede3_cfb_encrypt'); + DES_ede3_cfb_encrypt(in_,out_,numbits,length,ks1,ks2,ks3,ivec,enc); +end; + +procedure Load_DES_ede3_ofb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; ks1:PDES_key_schedule; ks2:PDES_key_schedule; ks3:PDES_key_schedule; ivec:PDES_cblock; num:Plongint); cdecl; +begin + DES_ede3_ofb64_encrypt := LoadLibCryptoFunction('DES_ede3_ofb64_encrypt'); + if not assigned(DES_ede3_ofb64_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_ede3_ofb64_encrypt'); + DES_ede3_ofb64_encrypt(in_,out_,length,ks1,ks2,ks3,ivec,num); +end; + +function Load_DES_fcrypt(buf:PAnsiChar; salt:PAnsiChar; ret:PAnsiChar): PAnsiChar; cdecl; +begin + DES_fcrypt := LoadLibCryptoFunction('DES_fcrypt'); + if not assigned(DES_fcrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_fcrypt'); + Result := DES_fcrypt(buf,salt,ret); +end; + +function Load_DES_crypt(buf:PAnsiChar; salt:PAnsiChar): PAnsiChar; cdecl; +begin + DES_crypt := LoadLibCryptoFunction('DES_crypt'); + if not assigned(DES_crypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_crypt'); + Result := DES_crypt(buf,salt); +end; + +procedure Load_DES_ofb_encrypt(in_:Pbyte; out_:Pbyte; numbits:longint; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock); cdecl; +begin + DES_ofb_encrypt := LoadLibCryptoFunction('DES_ofb_encrypt'); + if not assigned(DES_ofb_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_ofb_encrypt'); + DES_ofb_encrypt(in_,out_,numbits,length,schedule,ivec); +end; + +procedure Load_DES_pcbc_encrypt(input:Pbyte; output:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; enc:longint); cdecl; +begin + DES_pcbc_encrypt := LoadLibCryptoFunction('DES_pcbc_encrypt'); + if not assigned(DES_pcbc_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_pcbc_encrypt'); + DES_pcbc_encrypt(input,output,length,schedule,ivec,enc); +end; + +function Load_DES_quad_cksum(input:Pbyte; output:PDES_cblock; length:longint; out_count:longint; seed:PDES_cblock): DES_LONG; cdecl; +begin + DES_quad_cksum := LoadLibCryptoFunction('DES_quad_cksum'); + if not assigned(DES_quad_cksum) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_quad_cksum'); + Result := DES_quad_cksum(input,output,length,out_count,seed); +end; + +function Load_DES_random_key(ret:PDES_cblock): longint; cdecl; +begin + DES_random_key := LoadLibCryptoFunction('DES_random_key'); + if not assigned(DES_random_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_random_key'); + Result := DES_random_key(ret); +end; + +function Load_DES_check_key_parity(key:Pconst_DES_cblock): longint; cdecl; +begin + DES_check_key_parity := LoadLibCryptoFunction('DES_check_key_parity'); + if not assigned(DES_check_key_parity) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_check_key_parity'); + Result := DES_check_key_parity(key); +end; + +function Load_DES_is_weak_key(key:Pconst_DES_cblock): longint; cdecl; +begin + DES_is_weak_key := LoadLibCryptoFunction('DES_is_weak_key'); + if not assigned(DES_is_weak_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_is_weak_key'); + Result := DES_is_weak_key(key); +end; + +function Load_DES_key_sched(key:Pconst_DES_cblock; schedule:PDES_key_schedule): longint; cdecl; +begin + DES_key_sched := LoadLibCryptoFunction('DES_key_sched'); + if not assigned(DES_key_sched) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_key_sched'); + Result := DES_key_sched(key,schedule); +end; + +function Load_DES_set_key_checked(key:Pconst_DES_cblock; schedule:PDES_key_schedule): longint; cdecl; +begin + DES_set_key_checked := LoadLibCryptoFunction('DES_set_key_checked'); + if not assigned(DES_set_key_checked) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_set_key_checked'); + Result := DES_set_key_checked(key,schedule); +end; + +procedure Load_DES_set_key_unchecked(key:Pconst_DES_cblock; schedule:PDES_key_schedule); cdecl; +begin + DES_set_key_unchecked := LoadLibCryptoFunction('DES_set_key_unchecked'); + if not assigned(DES_set_key_unchecked) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_set_key_unchecked'); + DES_set_key_unchecked(key,schedule); +end; + +procedure Load_DES_string_to_key(str:PAnsiChar; key:PDES_cblock); cdecl; +begin + DES_string_to_key := LoadLibCryptoFunction('DES_string_to_key'); + if not assigned(DES_string_to_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_string_to_key'); + DES_string_to_key(str,key); +end; + +procedure Load_DES_string_to_2keys(str:PAnsiChar; key1:PDES_cblock; key2:PDES_cblock); cdecl; +begin + DES_string_to_2keys := LoadLibCryptoFunction('DES_string_to_2keys'); + if not assigned(DES_string_to_2keys) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_string_to_2keys'); + DES_string_to_2keys(str,key1,key2); +end; + +procedure Load_DES_cfb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; num:Plongint; enc:longint); cdecl; +begin + DES_cfb64_encrypt := LoadLibCryptoFunction('DES_cfb64_encrypt'); + if not assigned(DES_cfb64_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_cfb64_encrypt'); + DES_cfb64_encrypt(in_,out_,length,schedule,ivec,num,enc); +end; + +procedure Load_DES_ofb64_encrypt(in_:Pbyte; out_:Pbyte; length:longint; schedule:PDES_key_schedule; ivec:PDES_cblock; num:Plongint); cdecl; +begin + DES_ofb64_encrypt := LoadLibCryptoFunction('DES_ofb64_encrypt'); + if not assigned(DES_ofb64_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DES_ofb64_encrypt'); + DES_ofb64_encrypt(in_,out_,length,schedule,ivec,num); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_DES_fixup_key_parity(key: PDES_cblock); cdecl; +begin + DES_fixup_key_parity := LoadLibCryptoFunction('DES_fixup_key_parity'); + if not assigned(DES_fixup_key_parity) then + DES_fixup_key_parity := @COMPAT_DES_fixup_key_parity; + DES_fixup_key_parity(key); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +procedure Load(LibVersion: TOpenSSL_C_UINT; const AFailed: TStringList); +var FuncLoadError: boolean; +begin + DES_set_odd_parity := LoadLibCryptoFunction('DES_set_odd_parity'); + FuncLoadError := not assigned(DES_set_odd_parity); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + DES_set_key := LoadLibCryptoFunction('DES_set_key'); + FuncLoadError := not assigned(DES_set_key); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + +end; + +procedure UnLoad; +begin +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + DES_ecb2_encrypt := Load_DES_ecb2_encrypt; + DES_ede2_cbc_encrypt := Load_DES_ede2_cbc_encrypt; + DES_ede2_cfb64_encrypt := Load_DES_ede2_cfb64_encrypt; + DES_ede2_ofb64_encrypt := Load_DES_ede2_ofb64_encrypt; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + DES_options := Load_DES_options; + DES_ecb3_encrypt := Load_DES_ecb3_encrypt; + DES_cbc_cksum := Load_DES_cbc_cksum; + DES_cbc_encrypt := Load_DES_cbc_encrypt; + DES_ncbc_encrypt := Load_DES_ncbc_encrypt; + DES_xcbc_encrypt := Load_DES_xcbc_encrypt; + DES_cfb_encrypt := Load_DES_cfb_encrypt; + DES_ecb_encrypt := Load_DES_ecb_encrypt; + DES_encrypt1 := Load_DES_encrypt1; + DES_encrypt2 := Load_DES_encrypt2; + DES_encrypt3 := Load_DES_encrypt3; + DES_decrypt3 := Load_DES_decrypt3; + DES_ede3_cbc_encrypt := Load_DES_ede3_cbc_encrypt; + DES_ede3_cfb64_encrypt := Load_DES_ede3_cfb64_encrypt; + DES_ede3_cfb_encrypt := Load_DES_ede3_cfb_encrypt; + DES_ede3_ofb64_encrypt := Load_DES_ede3_ofb64_encrypt; + DES_fcrypt := Load_DES_fcrypt; + DES_crypt := Load_DES_crypt; + DES_ofb_encrypt := Load_DES_ofb_encrypt; + DES_pcbc_encrypt := Load_DES_pcbc_encrypt; + DES_quad_cksum := Load_DES_quad_cksum; + DES_random_key := Load_DES_random_key; + DES_set_odd_parity := nil; + DES_check_key_parity := Load_DES_check_key_parity; + DES_is_weak_key := Load_DES_is_weak_key; + DES_set_key := nil; + DES_key_sched := Load_DES_key_sched; + DES_set_key_checked := Load_DES_set_key_checked; + DES_set_key_unchecked := Load_DES_set_key_unchecked; + DES_string_to_key := Load_DES_string_to_key; + DES_string_to_2keys := Load_DES_string_to_2keys; + DES_cfb64_encrypt := Load_DES_cfb64_encrypt; + DES_ofb64_encrypt := Load_DES_ofb64_encrypt; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + DES_fixup_key_parity := Load_DES_fixup_key_parity; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLLoader(@Load); +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_dh.pas b/src/opensslHdrs/IdOpenSSLHeaders_dh.pas new file mode 100644 index 0000000..f6b4e06 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_dh.pas @@ -0,0 +1,1153 @@ +(* This unit was generated from the source file dh.h2pas +It should not be modified directly. All changes should be made to dh.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_dh; + + +interface + +// Headers for OpenSSL 1.1.1 +// dh.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_evp, + IdOpenSSLHeaders_asn1; + +const + OPENSSL_DH_MAX_MODULUS_BITS = 10000; + OPENSSL_DH_FIPS_MIN_MODULUS_BITS = 1024; + + DH_FLAG_CACHE_MONT_P = $01; + DH_FLAG_FIPS_METHOD = $0400; + DH_FLAG_NON_FIPS_ALLOW = $0400; + + DH_GENERATOR_2 = 2; + DH_GENERATOR_5 = 5; + + DH_CHECK_P_NOT_PRIME = $01; + DH_CHECK_P_NOT_SAFE_PRIME = $02; + DH_UNABLE_TO_CHECK_GENERATOR = $04; + DH_NOT_SUITABLE_GENERATOR = $08; + DH_CHECK_Q_NOT_PRIME = $10; + DH_CHECK_INVALID_Q_VALUE = $20; + DH_CHECK_INVALID_J_VALUE = $40; + DH_CHECK_PUBKEY_TOO_SMALL = $01; + DH_CHECK_PUBKEY_TOO_LARGE = $02; + DH_CHECK_PUBKEY_INVALID = $04; + DH_CHECK_P_NOT_STRONG_PRIME = DH_CHECK_P_NOT_SAFE_PRIME; + + EVP_PKEY_DH_KDF_NONE = 1; + EVP_PKEY_DH_KDF_X9_42 = 2; + + EVP_PKEY_CTRL_DH_PARAMGEN_PRIME_LEN = (EVP_PKEY_ALG_CTRL + 1); + EVP_PKEY_CTRL_DH_PARAMGEN_GENERATOR = (EVP_PKEY_ALG_CTRL + 2); + EVP_PKEY_CTRL_DH_RFC5114 = (EVP_PKEY_ALG_CTRL + 3); + EVP_PKEY_CTRL_DH_PARAMGEN_SUBPRIME_LEN = (EVP_PKEY_ALG_CTRL + 4); + EVP_PKEY_CTRL_DH_PARAMGEN_TYPE = (EVP_PKEY_ALG_CTRL + 5); + EVP_PKEY_CTRL_DH_KDF_TYPE = (EVP_PKEY_ALG_CTRL + 6); + EVP_PKEY_CTRL_DH_KDF_MD = (EVP_PKEY_ALG_CTRL + 7); + EVP_PKEY_CTRL_GET_DH_KDF_MD = (EVP_PKEY_ALG_CTRL + 8); + EVP_PKEY_CTRL_DH_KDF_OUTLEN = (EVP_PKEY_ALG_CTRL + 9); + EVP_PKEY_CTRL_GET_DH_KDF_OUTLEN = (EVP_PKEY_ALG_CTRL + 10); + EVP_PKEY_CTRL_DH_KDF_UKM = (EVP_PKEY_ALG_CTRL + 11); + EVP_PKEY_CTRL_GET_DH_KDF_UKM = (EVP_PKEY_ALG_CTRL + 12); + EVP_PKEY_CTRL_DH_KDF_OID = (EVP_PKEY_ALG_CTRL + 13); + EVP_PKEY_CTRL_GET_DH_KDF_OID = (EVP_PKEY_ALG_CTRL + 14); + EVP_PKEY_CTRL_DH_NID = (EVP_PKEY_ALG_CTRL + 15); + EVP_PKEY_CTRL_DH_PAD = (EVP_PKEY_ALG_CTRL + 16); + +type + DH_meth_generate_key_cb = function(dh: PDH): TOpenSSL_C_INT cdecl; + DH_meth_compute_key_cb = function(key: PByte; const pub_key: PBIGNUM; dh: PDH): TOpenSSL_C_INT cdecl; + DH_meth_bn_mod_exp_cb = function( + const dh: PDH; r: PBIGNUM; const a: PBIGNUM; + const p: PBIGNUM; const m: PBIGNUM; + ctx: PBN_CTX; m_ctx: PBN_MONT_CTX): TOpenSSL_C_INT cdecl; + DH_meth_init_cb = function(dh: PDH): TOpenSSL_C_INT cdecl; + DH_meth_finish_cb = function(dh: PDH): TOpenSSL_C_INT cdecl; + DH_meth_generate_params_cb = function(dh: PDH; prime_len: TOpenSSL_C_INT; generator: TOpenSSL_C_INT; cb: PBN_GENCB): TOpenSSL_C_INT cdecl; + +{ + # define DH_CHECK_P_NOT_STRONG_PRIME DH_CHECK_P_NOT_SAFE_PRIME + + # define d2i_DHparams_fp(fp,x) \ + (DH *)ASN1_d2i_fp((char *(*)())DH_new, \ + (char *(*)())d2i_DHparams, \ + (fp), \ + (unsigned char **)(x)) + # define i2d_DHparams_fp(fp,x) \ + ASN1_i2d_fp(i2d_DHparams,(fp), (unsigned char *)(x)) + # define d2i_DHparams_bio(bp,x) \ + ASN1_d2i_bio_of(DH, DH_new, d2i_DHparams, bp, x) + # define i2d_DHparams_bio(bp,x) \ + ASN1_i2d_bio_of_const(DH,i2d_DHparams,bp,x) + + # define d2i_DHxparams_fp(fp,x) \ + (DH *)ASN1_d2i_fp((char *(*)())DH_new, \ + (char *(*)())d2i_DHxparams, \ + (fp), \ + (unsigned char **)(x)) + # define i2d_DHxparams_fp(fp,x) \ + ASN1_i2d_fp(i2d_DHxparams,(fp), (unsigned char *)(x)) + # define d2i_DHxparams_bio(bp,x) \ + ASN1_d2i_bio_of(DH, DH_new, d2i_DHxparams, bp, x) + # define i2d_DHxparams_bio(bp,x) \ + ASN1_i2d_bio_of_const(DH, i2d_DHxparams, bp, x) +} + + + +function d2i_DHparams_bio(bp: PBIO; x: PPDH): PDH; + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM DHparams_dup} +{$EXTERNALSYM DH_OpenSSL} +{$EXTERNALSYM DH_set_default_method} +{$EXTERNALSYM DH_get_default_method} +{$EXTERNALSYM DH_set_method} +{$EXTERNALSYM DH_new_method} +{$EXTERNALSYM DH_new} +{$EXTERNALSYM DH_free} +{$EXTERNALSYM DH_up_ref} +{$EXTERNALSYM DH_bits} +{$EXTERNALSYM DH_size} +{$EXTERNALSYM DH_security_bits} +{$EXTERNALSYM DH_set_ex_data} +{$EXTERNALSYM DH_get_ex_data} +{$EXTERNALSYM DH_generate_parameters_ex} +{$EXTERNALSYM DH_check_params_ex} +{$EXTERNALSYM DH_check_ex} +{$EXTERNALSYM DH_check_pub_key_ex} +{$EXTERNALSYM DH_check_params} +{$EXTERNALSYM DH_check} +{$EXTERNALSYM DH_check_pub_key} +{$EXTERNALSYM DH_generate_key} +{$EXTERNALSYM DH_compute_key} +{$EXTERNALSYM DH_compute_key_padded} +{$EXTERNALSYM d2i_DHparams} +{$EXTERNALSYM i2d_DHparams} +{$EXTERNALSYM d2i_DHxparams} +{$EXTERNALSYM i2d_DHxparams} +{$EXTERNALSYM DHparams_print} +{$EXTERNALSYM DH_get_1024_160} +{$EXTERNALSYM DH_get_2048_224} +{$EXTERNALSYM DH_get_2048_256} +{$EXTERNALSYM DH_new_by_nid} +{$EXTERNALSYM DH_get_nid} +{$EXTERNALSYM DH_KDF_X9_42} +{$EXTERNALSYM DH_get0_pqg} +{$EXTERNALSYM DH_set0_pqg} +{$EXTERNALSYM DH_get0_key} +{$EXTERNALSYM DH_set0_key} +{$EXTERNALSYM DH_get0_p} +{$EXTERNALSYM DH_get0_q} +{$EXTERNALSYM DH_get0_g} +{$EXTERNALSYM DH_get0_priv_key} +{$EXTERNALSYM DH_get0_pub_key} +{$EXTERNALSYM DH_clear_flags} +{$EXTERNALSYM DH_test_flags} +{$EXTERNALSYM DH_set_flags} +{$EXTERNALSYM DH_get0_engine} +{$EXTERNALSYM DH_get_length} +{$EXTERNALSYM DH_set_length} +{$EXTERNALSYM DH_meth_new} +{$EXTERNALSYM DH_meth_free} +{$EXTERNALSYM DH_meth_dup} +{$EXTERNALSYM DH_meth_get0_name} +{$EXTERNALSYM DH_meth_set1_name} +{$EXTERNALSYM DH_meth_get_flags} +{$EXTERNALSYM DH_meth_set_flags} +{$EXTERNALSYM DH_meth_get0_app_data} +{$EXTERNALSYM DH_meth_set0_app_data} +{$EXTERNALSYM DH_meth_get_generate_key} +{$EXTERNALSYM DH_meth_set_generate_key} +{$EXTERNALSYM DH_meth_get_compute_key} +{$EXTERNALSYM DH_meth_set_compute_key} +{$EXTERNALSYM DH_meth_get_bn_mod_exp} +{$EXTERNALSYM DH_meth_set_bn_mod_exp} +{$EXTERNALSYM DH_meth_get_init} +{$EXTERNALSYM DH_meth_set_init} +{$EXTERNALSYM DH_meth_get_finish} +{$EXTERNALSYM DH_meth_set_finish} +{$EXTERNALSYM DH_meth_get_generate_params} +{$EXTERNALSYM DH_meth_set_generate_params} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function DHparams_dup(dh: PDH): PDH; cdecl; external CLibCrypto; +function DH_OpenSSL: PDH_Method; cdecl; external CLibCrypto; +procedure DH_set_default_method(const meth: PDH_Method); cdecl; external CLibCrypto; +function DH_get_default_method: PDH_Method; cdecl; external CLibCrypto; +function DH_set_method(dh: PDH; const meth: PDH_Method): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_new_method(engine: PENGINE): PDH; cdecl; external CLibCrypto; +function DH_new: PDH; cdecl; external CLibCrypto; +procedure DH_free(dh: PDH); cdecl; external CLibCrypto; +function DH_up_ref(dh: PDH): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_bits(const dh: PDH): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_size(const dh: PDH): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_security_bits(const dh: PDH): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_set_ex_data(d: PDH; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_get_ex_data(d: PDH; idx: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function DH_generate_parameters_ex(dh: PDH; prime_len: TOpenSSL_C_INT; generator: TOpenSSL_C_INT; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_check_params_ex(const dh: PDH): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_check_ex(const dh: PDH): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_check_pub_key_ex(const dh: PDH; const pub_key: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_check_params(const dh: PDH; ret: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_check(const dh: PDH; codes: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_check_pub_key(const dh: PDH; const pub_key: PBIGNUM; codes: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_generate_key(dh: PDH): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_compute_key(key: PByte; const pub_key: PBIGNUM; dh: PDH): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_compute_key_padded(key: PByte; const pub_key: PBIGNUM; dh: PDH): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_DHparams(a: PPDH; const pp: PPByte; length: TOpenSSL_C_LONG): PDH; cdecl; external CLibCrypto; +function i2d_DHparams(const a: PDH; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_DHxparams(a: PPDH; const pp: PPByte; length: TOpenSSL_C_LONG): PDH; cdecl; external CLibCrypto; +function i2d_DHxparams(const a: PDH; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DHparams_print(bp: PBIO; const x: PDH): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_get_1024_160: PDH; cdecl; external CLibCrypto; +function DH_get_2048_224: PDH; cdecl; external CLibCrypto; +function DH_get_2048_256: PDH; cdecl; external CLibCrypto; +function DH_new_by_nid(nid: TOpenSSL_C_INT): PDH; cdecl; external CLibCrypto; +function DH_get_nid(const dh: PDH): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_KDF_X9_42( out_: PByte; outlen: TOpenSSL_C_SIZET; const Z: PByte; Zlen: TOpenSSL_C_SIZET; key_oid: PASN1_OBJECT; const ukm: PByte; ukmlen: TOpenSSL_C_SIZET; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure DH_get0_pqg(const dh: PDH; const p: PPBIGNUM; const q: PPBIGNUM; const g: PPBIGNUM); cdecl; external CLibCrypto; +function DH_set0_pqg(dh: PDH; p: PBIGNUM; q: PBIGNUM; g: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure DH_get0_key(const dh: PDH; const pub_key: PPBIGNUM; const priv_key: PPBIGNUM); cdecl; external CLibCrypto; +function DH_set0_key(dh: PDH; pub_key: PBIGNUM; priv_key: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_get0_p(const dh: PDH): PBIGNUM; cdecl; external CLibCrypto; +function DH_get0_q(const dh: PDH): PBIGNUM; cdecl; external CLibCrypto; +function DH_get0_g(const dh: PDH): PBIGNUM; cdecl; external CLibCrypto; +function DH_get0_priv_key(const dh: PDH): PBIGNUM; cdecl; external CLibCrypto; +function DH_get0_pub_key(const dh: PDH): PBIGNUM; cdecl; external CLibCrypto; +procedure DH_clear_flags(dh: PDH; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function DH_test_flags(const dh: PDH; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure DH_set_flags(dh: PDH; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function DH_get0_engine(d: PDH): PENGINE; cdecl; external CLibCrypto; +function DH_get_length(const dh: PDH): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function DH_set_length(dh: PDH; length: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_meth_new(const name: PAnsiChar; flags: TOpenSSL_C_INT): PDH_Method; cdecl; external CLibCrypto; +procedure DH_meth_free(dhm: PDH_Method); cdecl; external CLibCrypto; +function DH_meth_dup(const dhm: PDH_Method): PDH_Method; cdecl; external CLibCrypto; +function DH_meth_get0_name(const dhm: PDH_Method): PAnsiChar; cdecl; external CLibCrypto; +function DH_meth_set1_name(dhm: PDH_Method; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_meth_get_flags(const dhm: PDH_Method): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_meth_set_flags(const dhm: PDH_Method; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_meth_get0_app_data(const dhm: PDH_Method): Pointer; cdecl; external CLibCrypto; +function DH_meth_set0_app_data(const dhm: PDH_Method; app_data: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_meth_get_generate_key(const dhm: PDH_Method): DH_meth_generate_key_cb; cdecl; external CLibCrypto; +function DH_meth_set_generate_key(const dhm: PDH_Method; generate_key: DH_meth_generate_key_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_meth_get_compute_key(const dhm: PDH_Method): DH_meth_compute_key_cb; cdecl; external CLibCrypto; +function DH_meth_set_compute_key(const dhm: PDH_Method; compute_key: DH_meth_compute_key_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_meth_get_bn_mod_exp(const dhm: PDH_Method): DH_meth_bn_mod_exp_cb; cdecl; external CLibCrypto; +function DH_meth_set_bn_mod_exp(const dhm: PDH_Method; bn_mod_expr: DH_meth_bn_mod_exp_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_meth_get_init(const dhm: PDH_Method): DH_meth_init_cb; cdecl; external CLibCrypto; +function DH_meth_set_init(const dhm: PDH_Method; init: DH_meth_init_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_meth_get_finish(const dhm: PDH_Method): DH_meth_finish_cb; cdecl; external CLibCrypto; +function DH_meth_set_finish(const dhm: PDH_Method; finish: DH_meth_finish_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DH_meth_get_generate_params(const dhm: PDH_Method): DH_meth_generate_params_cb; cdecl; external CLibCrypto; +function DH_meth_set_generate_params(const dhm: PDH_Method; generate_params: DH_meth_generate_params_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; + + + + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_DHparams_dup(dh: PDH): PDH; cdecl; +function Load_DH_OpenSSL: PDH_Method; cdecl; +procedure Load_DH_set_default_method(const meth: PDH_Method); cdecl; +function Load_DH_get_default_method: PDH_Method; cdecl; +function Load_DH_set_method(dh: PDH; const meth: PDH_Method): TOpenSSL_C_INT; cdecl; +function Load_DH_new_method(engine: PENGINE): PDH; cdecl; +function Load_DH_new: PDH; cdecl; +procedure Load_DH_free(dh: PDH); cdecl; +function Load_DH_up_ref(dh: PDH): TOpenSSL_C_INT; cdecl; +function Load_DH_bits(const dh: PDH): TOpenSSL_C_INT; cdecl; +function Load_DH_size(const dh: PDH): TOpenSSL_C_INT; cdecl; +function Load_DH_security_bits(const dh: PDH): TOpenSSL_C_INT; cdecl; +function Load_DH_set_ex_data(d: PDH; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; +function Load_DH_get_ex_data(d: PDH; idx: TOpenSSL_C_INT): Pointer; cdecl; +function Load_DH_generate_parameters_ex(dh: PDH; prime_len: TOpenSSL_C_INT; generator: TOpenSSL_C_INT; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +function Load_DH_check_params_ex(const dh: PDH): TOpenSSL_C_INT; cdecl; +function Load_DH_check_ex(const dh: PDH): TOpenSSL_C_INT; cdecl; +function Load_DH_check_pub_key_ex(const dh: PDH; const pub_key: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_DH_check_params(const dh: PDH; ret: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_DH_check(const dh: PDH; codes: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_DH_check_pub_key(const dh: PDH; const pub_key: PBIGNUM; codes: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_DH_generate_key(dh: PDH): TOpenSSL_C_INT; cdecl; +function Load_DH_compute_key(key: PByte; const pub_key: PBIGNUM; dh: PDH): TOpenSSL_C_INT; cdecl; +function Load_DH_compute_key_padded(key: PByte; const pub_key: PBIGNUM; dh: PDH): TOpenSSL_C_INT; cdecl; +function Load_d2i_DHparams(a: PPDH; const pp: PPByte; length: TOpenSSL_C_LONG): PDH; cdecl; +function Load_i2d_DHparams(const a: PDH; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_DHxparams(a: PPDH; const pp: PPByte; length: TOpenSSL_C_LONG): PDH; cdecl; +function Load_i2d_DHxparams(const a: PDH; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_DHparams_print(bp: PBIO; const x: PDH): TOpenSSL_C_INT; cdecl; +function Load_DH_get_1024_160: PDH; cdecl; +function Load_DH_get_2048_224: PDH; cdecl; +function Load_DH_get_2048_256: PDH; cdecl; +function Load_DH_new_by_nid(nid: TOpenSSL_C_INT): PDH; cdecl; +function Load_DH_get_nid(const dh: PDH): TOpenSSL_C_INT; cdecl; +function Load_DH_KDF_X9_42( out_: PByte; outlen: TOpenSSL_C_SIZET; const Z: PByte; Zlen: TOpenSSL_C_SIZET; key_oid: PASN1_OBJECT; const ukm: PByte; ukmlen: TOpenSSL_C_SIZET; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +procedure Load_DH_get0_pqg(const dh: PDH; const p: PPBIGNUM; const q: PPBIGNUM; const g: PPBIGNUM); cdecl; +function Load_DH_set0_pqg(dh: PDH; p: PBIGNUM; q: PBIGNUM; g: PBIGNUM): TOpenSSL_C_INT; cdecl; +procedure Load_DH_get0_key(const dh: PDH; const pub_key: PPBIGNUM; const priv_key: PPBIGNUM); cdecl; +function Load_DH_set0_key(dh: PDH; pub_key: PBIGNUM; priv_key: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_DH_get0_p(const dh: PDH): PBIGNUM; cdecl; +function Load_DH_get0_q(const dh: PDH): PBIGNUM; cdecl; +function Load_DH_get0_g(const dh: PDH): PBIGNUM; cdecl; +function Load_DH_get0_priv_key(const dh: PDH): PBIGNUM; cdecl; +function Load_DH_get0_pub_key(const dh: PDH): PBIGNUM; cdecl; +procedure Load_DH_clear_flags(dh: PDH; flags: TOpenSSL_C_INT); cdecl; +function Load_DH_test_flags(const dh: PDH; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_DH_set_flags(dh: PDH; flags: TOpenSSL_C_INT); cdecl; +function Load_DH_get0_engine(d: PDH): PENGINE; cdecl; +function Load_DH_get_length(const dh: PDH): TOpenSSL_C_LONG; cdecl; +function Load_DH_set_length(dh: PDH; length: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_DH_meth_new(const name: PAnsiChar; flags: TOpenSSL_C_INT): PDH_Method; cdecl; +procedure Load_DH_meth_free(dhm: PDH_Method); cdecl; +function Load_DH_meth_dup(const dhm: PDH_Method): PDH_Method; cdecl; +function Load_DH_meth_get0_name(const dhm: PDH_Method): PAnsiChar; cdecl; +function Load_DH_meth_set1_name(dhm: PDH_Method; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_DH_meth_get_flags(const dhm: PDH_Method): TOpenSSL_C_INT; cdecl; +function Load_DH_meth_set_flags(const dhm: PDH_Method; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_DH_meth_get0_app_data(const dhm: PDH_Method): Pointer; cdecl; +function Load_DH_meth_set0_app_data(const dhm: PDH_Method; app_data: Pointer): TOpenSSL_C_INT; cdecl; +function Load_DH_meth_get_generate_key(const dhm: PDH_Method): DH_meth_generate_key_cb; cdecl; +function Load_DH_meth_set_generate_key(const dhm: PDH_Method; generate_key: DH_meth_generate_key_cb): TOpenSSL_C_INT; cdecl; +function Load_DH_meth_get_compute_key(const dhm: PDH_Method): DH_meth_compute_key_cb; cdecl; +function Load_DH_meth_set_compute_key(const dhm: PDH_Method; compute_key: DH_meth_compute_key_cb): TOpenSSL_C_INT; cdecl; +function Load_DH_meth_get_bn_mod_exp(const dhm: PDH_Method): DH_meth_bn_mod_exp_cb; cdecl; +function Load_DH_meth_set_bn_mod_exp(const dhm: PDH_Method; bn_mod_expr: DH_meth_bn_mod_exp_cb): TOpenSSL_C_INT; cdecl; +function Load_DH_meth_get_init(const dhm: PDH_Method): DH_meth_init_cb; cdecl; +function Load_DH_meth_set_init(const dhm: PDH_Method; init: DH_meth_init_cb): TOpenSSL_C_INT; cdecl; +function Load_DH_meth_get_finish(const dhm: PDH_Method): DH_meth_finish_cb; cdecl; +function Load_DH_meth_set_finish(const dhm: PDH_Method; finish: DH_meth_finish_cb): TOpenSSL_C_INT; cdecl; +function Load_DH_meth_get_generate_params(const dhm: PDH_Method): DH_meth_generate_params_cb; cdecl; +function Load_DH_meth_set_generate_params(const dhm: PDH_Method; generate_params: DH_meth_generate_params_cb): TOpenSSL_C_INT; cdecl; + +var + DHparams_dup: function (dh: PDH): PDH; cdecl = Load_DHparams_dup; + DH_OpenSSL: function : PDH_Method; cdecl = Load_DH_OpenSSL; + DH_set_default_method: procedure (const meth: PDH_Method); cdecl = Load_DH_set_default_method; + DH_get_default_method: function : PDH_Method; cdecl = Load_DH_get_default_method; + DH_set_method: function (dh: PDH; const meth: PDH_Method): TOpenSSL_C_INT; cdecl = Load_DH_set_method; + DH_new_method: function (engine: PENGINE): PDH; cdecl = Load_DH_new_method; + DH_new: function : PDH; cdecl = Load_DH_new; + DH_free: procedure (dh: PDH); cdecl = Load_DH_free; + DH_up_ref: function (dh: PDH): TOpenSSL_C_INT; cdecl = Load_DH_up_ref; + DH_bits: function (const dh: PDH): TOpenSSL_C_INT; cdecl = Load_DH_bits; + DH_size: function (const dh: PDH): TOpenSSL_C_INT; cdecl = Load_DH_size; + DH_security_bits: function (const dh: PDH): TOpenSSL_C_INT; cdecl = Load_DH_security_bits; + DH_set_ex_data: function (d: PDH; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl = Load_DH_set_ex_data; + DH_get_ex_data: function (d: PDH; idx: TOpenSSL_C_INT): Pointer; cdecl = Load_DH_get_ex_data; + DH_generate_parameters_ex: function (dh: PDH; prime_len: TOpenSSL_C_INT; generator: TOpenSSL_C_INT; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl = Load_DH_generate_parameters_ex; + DH_check_params_ex: function (const dh: PDH): TOpenSSL_C_INT; cdecl = Load_DH_check_params_ex; + DH_check_ex: function (const dh: PDH): TOpenSSL_C_INT; cdecl = Load_DH_check_ex; + DH_check_pub_key_ex: function (const dh: PDH; const pub_key: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_DH_check_pub_key_ex; + DH_check_params: function (const dh: PDH; ret: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_DH_check_params; + DH_check: function (const dh: PDH; codes: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_DH_check; + DH_check_pub_key: function (const dh: PDH; const pub_key: PBIGNUM; codes: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_DH_check_pub_key; + DH_generate_key: function (dh: PDH): TOpenSSL_C_INT; cdecl = Load_DH_generate_key; + DH_compute_key: function (key: PByte; const pub_key: PBIGNUM; dh: PDH): TOpenSSL_C_INT; cdecl = Load_DH_compute_key; + DH_compute_key_padded: function (key: PByte; const pub_key: PBIGNUM; dh: PDH): TOpenSSL_C_INT; cdecl = Load_DH_compute_key_padded; + d2i_DHparams: function (a: PPDH; const pp: PPByte; length: TOpenSSL_C_LONG): PDH; cdecl = Load_d2i_DHparams; + i2d_DHparams: function (const a: PDH; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_DHparams; + d2i_DHxparams: function (a: PPDH; const pp: PPByte; length: TOpenSSL_C_LONG): PDH; cdecl = Load_d2i_DHxparams; + i2d_DHxparams: function (const a: PDH; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_DHxparams; + DHparams_print: function (bp: PBIO; const x: PDH): TOpenSSL_C_INT; cdecl = Load_DHparams_print; + DH_get_1024_160: function : PDH; cdecl = Load_DH_get_1024_160; + DH_get_2048_224: function : PDH; cdecl = Load_DH_get_2048_224; + DH_get_2048_256: function : PDH; cdecl = Load_DH_get_2048_256; + DH_new_by_nid: function (nid: TOpenSSL_C_INT): PDH; cdecl = Load_DH_new_by_nid; + DH_get_nid: function (const dh: PDH): TOpenSSL_C_INT; cdecl = Load_DH_get_nid; + DH_KDF_X9_42: function ( out_: PByte; outlen: TOpenSSL_C_SIZET; const Z: PByte; Zlen: TOpenSSL_C_SIZET; key_oid: PASN1_OBJECT; const ukm: PByte; ukmlen: TOpenSSL_C_SIZET; const md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_DH_KDF_X9_42; + DH_get0_pqg: procedure (const dh: PDH; const p: PPBIGNUM; const q: PPBIGNUM; const g: PPBIGNUM); cdecl = Load_DH_get0_pqg; + DH_set0_pqg: function (dh: PDH; p: PBIGNUM; q: PBIGNUM; g: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_DH_set0_pqg; + DH_get0_key: procedure (const dh: PDH; const pub_key: PPBIGNUM; const priv_key: PPBIGNUM); cdecl = Load_DH_get0_key; + DH_set0_key: function (dh: PDH; pub_key: PBIGNUM; priv_key: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_DH_set0_key; + DH_get0_p: function (const dh: PDH): PBIGNUM; cdecl = Load_DH_get0_p; + DH_get0_q: function (const dh: PDH): PBIGNUM; cdecl = Load_DH_get0_q; + DH_get0_g: function (const dh: PDH): PBIGNUM; cdecl = Load_DH_get0_g; + DH_get0_priv_key: function (const dh: PDH): PBIGNUM; cdecl = Load_DH_get0_priv_key; + DH_get0_pub_key: function (const dh: PDH): PBIGNUM; cdecl = Load_DH_get0_pub_key; + DH_clear_flags: procedure (dh: PDH; flags: TOpenSSL_C_INT); cdecl = Load_DH_clear_flags; + DH_test_flags: function (const dh: PDH; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_DH_test_flags; + DH_set_flags: procedure (dh: PDH; flags: TOpenSSL_C_INT); cdecl = Load_DH_set_flags; + DH_get0_engine: function (d: PDH): PENGINE; cdecl = Load_DH_get0_engine; + DH_get_length: function (const dh: PDH): TOpenSSL_C_LONG; cdecl = Load_DH_get_length; + DH_set_length: function (dh: PDH; length: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_DH_set_length; + DH_meth_new: function (const name: PAnsiChar; flags: TOpenSSL_C_INT): PDH_Method; cdecl = Load_DH_meth_new; + DH_meth_free: procedure (dhm: PDH_Method); cdecl = Load_DH_meth_free; + DH_meth_dup: function (const dhm: PDH_Method): PDH_Method; cdecl = Load_DH_meth_dup; + DH_meth_get0_name: function (const dhm: PDH_Method): PAnsiChar; cdecl = Load_DH_meth_get0_name; + DH_meth_set1_name: function (dhm: PDH_Method; const name: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_DH_meth_set1_name; + DH_meth_get_flags: function (const dhm: PDH_Method): TOpenSSL_C_INT; cdecl = Load_DH_meth_get_flags; + DH_meth_set_flags: function (const dhm: PDH_Method; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_DH_meth_set_flags; + DH_meth_get0_app_data: function (const dhm: PDH_Method): Pointer; cdecl = Load_DH_meth_get0_app_data; + DH_meth_set0_app_data: function (const dhm: PDH_Method; app_data: Pointer): TOpenSSL_C_INT; cdecl = Load_DH_meth_set0_app_data; + DH_meth_get_generate_key: function (const dhm: PDH_Method): DH_meth_generate_key_cb; cdecl = Load_DH_meth_get_generate_key; + DH_meth_set_generate_key: function (const dhm: PDH_Method; generate_key: DH_meth_generate_key_cb): TOpenSSL_C_INT; cdecl = Load_DH_meth_set_generate_key; + DH_meth_get_compute_key: function (const dhm: PDH_Method): DH_meth_compute_key_cb; cdecl = Load_DH_meth_get_compute_key; + DH_meth_set_compute_key: function (const dhm: PDH_Method; compute_key: DH_meth_compute_key_cb): TOpenSSL_C_INT; cdecl = Load_DH_meth_set_compute_key; + DH_meth_get_bn_mod_exp: function (const dhm: PDH_Method): DH_meth_bn_mod_exp_cb; cdecl = Load_DH_meth_get_bn_mod_exp; + DH_meth_set_bn_mod_exp: function (const dhm: PDH_Method; bn_mod_expr: DH_meth_bn_mod_exp_cb): TOpenSSL_C_INT; cdecl = Load_DH_meth_set_bn_mod_exp; + DH_meth_get_init: function (const dhm: PDH_Method): DH_meth_init_cb; cdecl = Load_DH_meth_get_init; + DH_meth_set_init: function (const dhm: PDH_Method; init: DH_meth_init_cb): TOpenSSL_C_INT; cdecl = Load_DH_meth_set_init; + DH_meth_get_finish: function (const dhm: PDH_Method): DH_meth_finish_cb; cdecl = Load_DH_meth_get_finish; + DH_meth_set_finish: function (const dhm: PDH_Method; finish: DH_meth_finish_cb): TOpenSSL_C_INT; cdecl = Load_DH_meth_set_finish; + DH_meth_get_generate_params: function (const dhm: PDH_Method): DH_meth_generate_params_cb; cdecl = Load_DH_meth_get_generate_params; + DH_meth_set_generate_params: function (const dhm: PDH_Method; generate_params: DH_meth_generate_params_cb): TOpenSSL_C_INT; cdecl = Load_DH_meth_set_generate_params; + + + +{$ENDIF} +const + DH_bits_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_security_bits_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_check_params_ex_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_check_ex_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_check_pub_key_ex_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_check_params_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_new_by_nid_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_get_nid_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_get0_pqg_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_set0_pqg_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_get0_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_set0_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_get0_p_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_get0_q_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_get0_g_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_get0_priv_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_get0_pub_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_clear_flags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_test_flags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_set_flags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_get0_engine_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_get_length_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_set_length_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_new_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_dup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_get0_name_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_set1_name_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_get_flags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_set_flags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_get0_app_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_set0_app_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_get_generate_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_set_generate_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_get_compute_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_set_compute_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_get_bn_mod_exp_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_set_bn_mod_exp_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_get_init_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_set_init_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_get_finish_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_set_finish_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_get_generate_params_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DH_meth_set_generate_params_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + + +implementation + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + + +function d2i_DHparams_bio(bp: PBIO; x: PPDH): PDH; +begin + Result := PDH(ASN1_d2i_bio(pxnew(@DH_new), pd2i_of_void(@d2i_DHparams), bp, PPointer(x))); +end; + + + + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_DHparams_dup(dh: PDH): PDH; cdecl; +begin + DHparams_dup := LoadLibCryptoFunction('DHparams_dup'); + if not assigned(DHparams_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DHparams_dup'); + Result := DHparams_dup(dh); +end; + +function Load_DH_OpenSSL: PDH_Method; cdecl; +begin + DH_OpenSSL := LoadLibCryptoFunction('DH_OpenSSL'); + if not assigned(DH_OpenSSL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_OpenSSL'); + Result := DH_OpenSSL(); +end; + +procedure Load_DH_set_default_method(const meth: PDH_Method); cdecl; +begin + DH_set_default_method := LoadLibCryptoFunction('DH_set_default_method'); + if not assigned(DH_set_default_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_set_default_method'); + DH_set_default_method(meth); +end; + +function Load_DH_get_default_method: PDH_Method; cdecl; +begin + DH_get_default_method := LoadLibCryptoFunction('DH_get_default_method'); + if not assigned(DH_get_default_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_get_default_method'); + Result := DH_get_default_method(); +end; + +function Load_DH_set_method(dh: PDH; const meth: PDH_Method): TOpenSSL_C_INT; cdecl; +begin + DH_set_method := LoadLibCryptoFunction('DH_set_method'); + if not assigned(DH_set_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_set_method'); + Result := DH_set_method(dh,meth); +end; + +function Load_DH_new_method(engine: PENGINE): PDH; cdecl; +begin + DH_new_method := LoadLibCryptoFunction('DH_new_method'); + if not assigned(DH_new_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_new_method'); + Result := DH_new_method(engine); +end; + +function Load_DH_new: PDH; cdecl; +begin + DH_new := LoadLibCryptoFunction('DH_new'); + if not assigned(DH_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_new'); + Result := DH_new(); +end; + +procedure Load_DH_free(dh: PDH); cdecl; +begin + DH_free := LoadLibCryptoFunction('DH_free'); + if not assigned(DH_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_free'); + DH_free(dh); +end; + +function Load_DH_up_ref(dh: PDH): TOpenSSL_C_INT; cdecl; +begin + DH_up_ref := LoadLibCryptoFunction('DH_up_ref'); + if not assigned(DH_up_ref) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_up_ref'); + Result := DH_up_ref(dh); +end; + +function Load_DH_bits(const dh: PDH): TOpenSSL_C_INT; cdecl; +begin + DH_bits := LoadLibCryptoFunction('DH_bits'); + if not assigned(DH_bits) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_bits'); + Result := DH_bits(dh); +end; + +function Load_DH_size(const dh: PDH): TOpenSSL_C_INT; cdecl; +begin + DH_size := LoadLibCryptoFunction('DH_size'); + if not assigned(DH_size) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_size'); + Result := DH_size(dh); +end; + +function Load_DH_security_bits(const dh: PDH): TOpenSSL_C_INT; cdecl; +begin + DH_security_bits := LoadLibCryptoFunction('DH_security_bits'); + if not assigned(DH_security_bits) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_security_bits'); + Result := DH_security_bits(dh); +end; + +function Load_DH_set_ex_data(d: PDH; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; +begin + DH_set_ex_data := LoadLibCryptoFunction('DH_set_ex_data'); + if not assigned(DH_set_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_set_ex_data'); + Result := DH_set_ex_data(d,idx,arg); +end; + +function Load_DH_get_ex_data(d: PDH; idx: TOpenSSL_C_INT): Pointer; cdecl; +begin + DH_get_ex_data := LoadLibCryptoFunction('DH_get_ex_data'); + if not assigned(DH_get_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_get_ex_data'); + Result := DH_get_ex_data(d,idx); +end; + +function Load_DH_generate_parameters_ex(dh: PDH; prime_len: TOpenSSL_C_INT; generator: TOpenSSL_C_INT; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +begin + DH_generate_parameters_ex := LoadLibCryptoFunction('DH_generate_parameters_ex'); + if not assigned(DH_generate_parameters_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_generate_parameters_ex'); + Result := DH_generate_parameters_ex(dh,prime_len,generator,cb); +end; + +function Load_DH_check_params_ex(const dh: PDH): TOpenSSL_C_INT; cdecl; +begin + DH_check_params_ex := LoadLibCryptoFunction('DH_check_params_ex'); + if not assigned(DH_check_params_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_check_params_ex'); + Result := DH_check_params_ex(dh); +end; + +function Load_DH_check_ex(const dh: PDH): TOpenSSL_C_INT; cdecl; +begin + DH_check_ex := LoadLibCryptoFunction('DH_check_ex'); + if not assigned(DH_check_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_check_ex'); + Result := DH_check_ex(dh); +end; + +function Load_DH_check_pub_key_ex(const dh: PDH; const pub_key: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + DH_check_pub_key_ex := LoadLibCryptoFunction('DH_check_pub_key_ex'); + if not assigned(DH_check_pub_key_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_check_pub_key_ex'); + Result := DH_check_pub_key_ex(dh,pub_key); +end; + +function Load_DH_check_params(const dh: PDH; ret: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + DH_check_params := LoadLibCryptoFunction('DH_check_params'); + if not assigned(DH_check_params) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_check_params'); + Result := DH_check_params(dh,ret); +end; + +function Load_DH_check(const dh: PDH; codes: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + DH_check := LoadLibCryptoFunction('DH_check'); + if not assigned(DH_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_check'); + Result := DH_check(dh,codes); +end; + +function Load_DH_check_pub_key(const dh: PDH; const pub_key: PBIGNUM; codes: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + DH_check_pub_key := LoadLibCryptoFunction('DH_check_pub_key'); + if not assigned(DH_check_pub_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_check_pub_key'); + Result := DH_check_pub_key(dh,pub_key,codes); +end; + +function Load_DH_generate_key(dh: PDH): TOpenSSL_C_INT; cdecl; +begin + DH_generate_key := LoadLibCryptoFunction('DH_generate_key'); + if not assigned(DH_generate_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_generate_key'); + Result := DH_generate_key(dh); +end; + +function Load_DH_compute_key(key: PByte; const pub_key: PBIGNUM; dh: PDH): TOpenSSL_C_INT; cdecl; +begin + DH_compute_key := LoadLibCryptoFunction('DH_compute_key'); + if not assigned(DH_compute_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_compute_key'); + Result := DH_compute_key(key,pub_key,dh); +end; + +function Load_DH_compute_key_padded(key: PByte; const pub_key: PBIGNUM; dh: PDH): TOpenSSL_C_INT; cdecl; +begin + DH_compute_key_padded := LoadLibCryptoFunction('DH_compute_key_padded'); + if not assigned(DH_compute_key_padded) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_compute_key_padded'); + Result := DH_compute_key_padded(key,pub_key,dh); +end; + +function Load_d2i_DHparams(a: PPDH; const pp: PPByte; length: TOpenSSL_C_LONG): PDH; cdecl; +begin + d2i_DHparams := LoadLibCryptoFunction('d2i_DHparams'); + if not assigned(d2i_DHparams) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_DHparams'); + Result := d2i_DHparams(a,pp,length); +end; + +function Load_i2d_DHparams(const a: PDH; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_DHparams := LoadLibCryptoFunction('i2d_DHparams'); + if not assigned(i2d_DHparams) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_DHparams'); + Result := i2d_DHparams(a,pp); +end; + +function Load_d2i_DHxparams(a: PPDH; const pp: PPByte; length: TOpenSSL_C_LONG): PDH; cdecl; +begin + d2i_DHxparams := LoadLibCryptoFunction('d2i_DHxparams'); + if not assigned(d2i_DHxparams) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_DHxparams'); + Result := d2i_DHxparams(a,pp,length); +end; + +function Load_i2d_DHxparams(const a: PDH; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_DHxparams := LoadLibCryptoFunction('i2d_DHxparams'); + if not assigned(i2d_DHxparams) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_DHxparams'); + Result := i2d_DHxparams(a,pp); +end; + +function Load_DHparams_print(bp: PBIO; const x: PDH): TOpenSSL_C_INT; cdecl; +begin + DHparams_print := LoadLibCryptoFunction('DHparams_print'); + if not assigned(DHparams_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DHparams_print'); + Result := DHparams_print(bp,x); +end; + +function Load_DH_get_1024_160: PDH; cdecl; +begin + DH_get_1024_160 := LoadLibCryptoFunction('DH_get_1024_160'); + if not assigned(DH_get_1024_160) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_get_1024_160'); + Result := DH_get_1024_160(); +end; + +function Load_DH_get_2048_224: PDH; cdecl; +begin + DH_get_2048_224 := LoadLibCryptoFunction('DH_get_2048_224'); + if not assigned(DH_get_2048_224) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_get_2048_224'); + Result := DH_get_2048_224(); +end; + +function Load_DH_get_2048_256: PDH; cdecl; +begin + DH_get_2048_256 := LoadLibCryptoFunction('DH_get_2048_256'); + if not assigned(DH_get_2048_256) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_get_2048_256'); + Result := DH_get_2048_256(); +end; + +function Load_DH_new_by_nid(nid: TOpenSSL_C_INT): PDH; cdecl; +begin + DH_new_by_nid := LoadLibCryptoFunction('DH_new_by_nid'); + if not assigned(DH_new_by_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_new_by_nid'); + Result := DH_new_by_nid(nid); +end; + +function Load_DH_get_nid(const dh: PDH): TOpenSSL_C_INT; cdecl; +begin + DH_get_nid := LoadLibCryptoFunction('DH_get_nid'); + if not assigned(DH_get_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_get_nid'); + Result := DH_get_nid(dh); +end; + +function Load_DH_KDF_X9_42( out_: PByte; outlen: TOpenSSL_C_SIZET; const Z: PByte; Zlen: TOpenSSL_C_SIZET; key_oid: PASN1_OBJECT; const ukm: PByte; ukmlen: TOpenSSL_C_SIZET; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + DH_KDF_X9_42 := LoadLibCryptoFunction('DH_KDF_X9_42'); + if not assigned(DH_KDF_X9_42) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_KDF_X9_42'); + Result := DH_KDF_X9_42(out_,outlen,Z,Zlen,key_oid,ukm,ukmlen,md); +end; + +procedure Load_DH_get0_pqg(const dh: PDH; const p: PPBIGNUM; const q: PPBIGNUM; const g: PPBIGNUM); cdecl; +begin + DH_get0_pqg := LoadLibCryptoFunction('DH_get0_pqg'); + if not assigned(DH_get0_pqg) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_get0_pqg'); + DH_get0_pqg(dh,p,q,g); +end; + +function Load_DH_set0_pqg(dh: PDH; p: PBIGNUM; q: PBIGNUM; g: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + DH_set0_pqg := LoadLibCryptoFunction('DH_set0_pqg'); + if not assigned(DH_set0_pqg) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_set0_pqg'); + Result := DH_set0_pqg(dh,p,q,g); +end; + +procedure Load_DH_get0_key(const dh: PDH; const pub_key: PPBIGNUM; const priv_key: PPBIGNUM); cdecl; +begin + DH_get0_key := LoadLibCryptoFunction('DH_get0_key'); + if not assigned(DH_get0_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_get0_key'); + DH_get0_key(dh,pub_key,priv_key); +end; + +function Load_DH_set0_key(dh: PDH; pub_key: PBIGNUM; priv_key: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + DH_set0_key := LoadLibCryptoFunction('DH_set0_key'); + if not assigned(DH_set0_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_set0_key'); + Result := DH_set0_key(dh,pub_key,priv_key); +end; + +function Load_DH_get0_p(const dh: PDH): PBIGNUM; cdecl; +begin + DH_get0_p := LoadLibCryptoFunction('DH_get0_p'); + if not assigned(DH_get0_p) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_get0_p'); + Result := DH_get0_p(dh); +end; + +function Load_DH_get0_q(const dh: PDH): PBIGNUM; cdecl; +begin + DH_get0_q := LoadLibCryptoFunction('DH_get0_q'); + if not assigned(DH_get0_q) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_get0_q'); + Result := DH_get0_q(dh); +end; + +function Load_DH_get0_g(const dh: PDH): PBIGNUM; cdecl; +begin + DH_get0_g := LoadLibCryptoFunction('DH_get0_g'); + if not assigned(DH_get0_g) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_get0_g'); + Result := DH_get0_g(dh); +end; + +function Load_DH_get0_priv_key(const dh: PDH): PBIGNUM; cdecl; +begin + DH_get0_priv_key := LoadLibCryptoFunction('DH_get0_priv_key'); + if not assigned(DH_get0_priv_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_get0_priv_key'); + Result := DH_get0_priv_key(dh); +end; + +function Load_DH_get0_pub_key(const dh: PDH): PBIGNUM; cdecl; +begin + DH_get0_pub_key := LoadLibCryptoFunction('DH_get0_pub_key'); + if not assigned(DH_get0_pub_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_get0_pub_key'); + Result := DH_get0_pub_key(dh); +end; + +procedure Load_DH_clear_flags(dh: PDH; flags: TOpenSSL_C_INT); cdecl; +begin + DH_clear_flags := LoadLibCryptoFunction('DH_clear_flags'); + if not assigned(DH_clear_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_clear_flags'); + DH_clear_flags(dh,flags); +end; + +function Load_DH_test_flags(const dh: PDH; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + DH_test_flags := LoadLibCryptoFunction('DH_test_flags'); + if not assigned(DH_test_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_test_flags'); + Result := DH_test_flags(dh,flags); +end; + +procedure Load_DH_set_flags(dh: PDH; flags: TOpenSSL_C_INT); cdecl; +begin + DH_set_flags := LoadLibCryptoFunction('DH_set_flags'); + if not assigned(DH_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_set_flags'); + DH_set_flags(dh,flags); +end; + +function Load_DH_get0_engine(d: PDH): PENGINE; cdecl; +begin + DH_get0_engine := LoadLibCryptoFunction('DH_get0_engine'); + if not assigned(DH_get0_engine) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_get0_engine'); + Result := DH_get0_engine(d); +end; + +function Load_DH_get_length(const dh: PDH): TOpenSSL_C_LONG; cdecl; +begin + DH_get_length := LoadLibCryptoFunction('DH_get_length'); + if not assigned(DH_get_length) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_get_length'); + Result := DH_get_length(dh); +end; + +function Load_DH_set_length(dh: PDH; length: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + DH_set_length := LoadLibCryptoFunction('DH_set_length'); + if not assigned(DH_set_length) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_set_length'); + Result := DH_set_length(dh,length); +end; + +function Load_DH_meth_new(const name: PAnsiChar; flags: TOpenSSL_C_INT): PDH_Method; cdecl; +begin + DH_meth_new := LoadLibCryptoFunction('DH_meth_new'); + if not assigned(DH_meth_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_new'); + Result := DH_meth_new(name,flags); +end; + +procedure Load_DH_meth_free(dhm: PDH_Method); cdecl; +begin + DH_meth_free := LoadLibCryptoFunction('DH_meth_free'); + if not assigned(DH_meth_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_free'); + DH_meth_free(dhm); +end; + +function Load_DH_meth_dup(const dhm: PDH_Method): PDH_Method; cdecl; +begin + DH_meth_dup := LoadLibCryptoFunction('DH_meth_dup'); + if not assigned(DH_meth_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_dup'); + Result := DH_meth_dup(dhm); +end; + +function Load_DH_meth_get0_name(const dhm: PDH_Method): PAnsiChar; cdecl; +begin + DH_meth_get0_name := LoadLibCryptoFunction('DH_meth_get0_name'); + if not assigned(DH_meth_get0_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_get0_name'); + Result := DH_meth_get0_name(dhm); +end; + +function Load_DH_meth_set1_name(dhm: PDH_Method; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + DH_meth_set1_name := LoadLibCryptoFunction('DH_meth_set1_name'); + if not assigned(DH_meth_set1_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_set1_name'); + Result := DH_meth_set1_name(dhm,name); +end; + +function Load_DH_meth_get_flags(const dhm: PDH_Method): TOpenSSL_C_INT; cdecl; +begin + DH_meth_get_flags := LoadLibCryptoFunction('DH_meth_get_flags'); + if not assigned(DH_meth_get_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_get_flags'); + Result := DH_meth_get_flags(dhm); +end; + +function Load_DH_meth_set_flags(const dhm: PDH_Method; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + DH_meth_set_flags := LoadLibCryptoFunction('DH_meth_set_flags'); + if not assigned(DH_meth_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_set_flags'); + Result := DH_meth_set_flags(dhm,flags); +end; + +function Load_DH_meth_get0_app_data(const dhm: PDH_Method): Pointer; cdecl; +begin + DH_meth_get0_app_data := LoadLibCryptoFunction('DH_meth_get0_app_data'); + if not assigned(DH_meth_get0_app_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_get0_app_data'); + Result := DH_meth_get0_app_data(dhm); +end; + +function Load_DH_meth_set0_app_data(const dhm: PDH_Method; app_data: Pointer): TOpenSSL_C_INT; cdecl; +begin + DH_meth_set0_app_data := LoadLibCryptoFunction('DH_meth_set0_app_data'); + if not assigned(DH_meth_set0_app_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_set0_app_data'); + Result := DH_meth_set0_app_data(dhm,app_data); +end; + +function Load_DH_meth_get_generate_key(const dhm: PDH_Method): DH_meth_generate_key_cb; cdecl; +begin + DH_meth_get_generate_key := LoadLibCryptoFunction('DH_meth_get_generate_key'); + if not assigned(DH_meth_get_generate_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_get_generate_key'); + Result := DH_meth_get_generate_key(dhm); +end; + +function Load_DH_meth_set_generate_key(const dhm: PDH_Method; generate_key: DH_meth_generate_key_cb): TOpenSSL_C_INT; cdecl; +begin + DH_meth_set_generate_key := LoadLibCryptoFunction('DH_meth_set_generate_key'); + if not assigned(DH_meth_set_generate_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_set_generate_key'); + Result := DH_meth_set_generate_key(dhm,generate_key); +end; + +function Load_DH_meth_get_compute_key(const dhm: PDH_Method): DH_meth_compute_key_cb; cdecl; +begin + DH_meth_get_compute_key := LoadLibCryptoFunction('DH_meth_get_compute_key'); + if not assigned(DH_meth_get_compute_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_get_compute_key'); + Result := DH_meth_get_compute_key(dhm); +end; + +function Load_DH_meth_set_compute_key(const dhm: PDH_Method; compute_key: DH_meth_compute_key_cb): TOpenSSL_C_INT; cdecl; +begin + DH_meth_set_compute_key := LoadLibCryptoFunction('DH_meth_set_compute_key'); + if not assigned(DH_meth_set_compute_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_set_compute_key'); + Result := DH_meth_set_compute_key(dhm,compute_key); +end; + +function Load_DH_meth_get_bn_mod_exp(const dhm: PDH_Method): DH_meth_bn_mod_exp_cb; cdecl; +begin + DH_meth_get_bn_mod_exp := LoadLibCryptoFunction('DH_meth_get_bn_mod_exp'); + if not assigned(DH_meth_get_bn_mod_exp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_get_bn_mod_exp'); + Result := DH_meth_get_bn_mod_exp(dhm); +end; + +function Load_DH_meth_set_bn_mod_exp(const dhm: PDH_Method; bn_mod_expr: DH_meth_bn_mod_exp_cb): TOpenSSL_C_INT; cdecl; +begin + DH_meth_set_bn_mod_exp := LoadLibCryptoFunction('DH_meth_set_bn_mod_exp'); + if not assigned(DH_meth_set_bn_mod_exp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_set_bn_mod_exp'); + Result := DH_meth_set_bn_mod_exp(dhm,bn_mod_expr); +end; + +function Load_DH_meth_get_init(const dhm: PDH_Method): DH_meth_init_cb; cdecl; +begin + DH_meth_get_init := LoadLibCryptoFunction('DH_meth_get_init'); + if not assigned(DH_meth_get_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_get_init'); + Result := DH_meth_get_init(dhm); +end; + +function Load_DH_meth_set_init(const dhm: PDH_Method; init: DH_meth_init_cb): TOpenSSL_C_INT; cdecl; +begin + DH_meth_set_init := LoadLibCryptoFunction('DH_meth_set_init'); + if not assigned(DH_meth_set_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_set_init'); + Result := DH_meth_set_init(dhm,init); +end; + +function Load_DH_meth_get_finish(const dhm: PDH_Method): DH_meth_finish_cb; cdecl; +begin + DH_meth_get_finish := LoadLibCryptoFunction('DH_meth_get_finish'); + if not assigned(DH_meth_get_finish) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_get_finish'); + Result := DH_meth_get_finish(dhm); +end; + +function Load_DH_meth_set_finish(const dhm: PDH_Method; finish: DH_meth_finish_cb): TOpenSSL_C_INT; cdecl; +begin + DH_meth_set_finish := LoadLibCryptoFunction('DH_meth_set_finish'); + if not assigned(DH_meth_set_finish) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_set_finish'); + Result := DH_meth_set_finish(dhm,finish); +end; + +function Load_DH_meth_get_generate_params(const dhm: PDH_Method): DH_meth_generate_params_cb; cdecl; +begin + DH_meth_get_generate_params := LoadLibCryptoFunction('DH_meth_get_generate_params'); + if not assigned(DH_meth_get_generate_params) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_get_generate_params'); + Result := DH_meth_get_generate_params(dhm); +end; + +function Load_DH_meth_set_generate_params(const dhm: PDH_Method; generate_params: DH_meth_generate_params_cb): TOpenSSL_C_INT; cdecl; +begin + DH_meth_set_generate_params := LoadLibCryptoFunction('DH_meth_set_generate_params'); + if not assigned(DH_meth_set_generate_params) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DH_meth_set_generate_params'); + Result := DH_meth_set_generate_params(dhm,generate_params); +end; + + +procedure UnLoad; +begin + DHparams_dup := Load_DHparams_dup; + DH_OpenSSL := Load_DH_OpenSSL; + DH_set_default_method := Load_DH_set_default_method; + DH_get_default_method := Load_DH_get_default_method; + DH_set_method := Load_DH_set_method; + DH_new_method := Load_DH_new_method; + DH_new := Load_DH_new; + DH_free := Load_DH_free; + DH_up_ref := Load_DH_up_ref; + DH_bits := Load_DH_bits; + DH_size := Load_DH_size; + DH_security_bits := Load_DH_security_bits; + DH_set_ex_data := Load_DH_set_ex_data; + DH_get_ex_data := Load_DH_get_ex_data; + DH_generate_parameters_ex := Load_DH_generate_parameters_ex; + DH_check_params_ex := Load_DH_check_params_ex; + DH_check_ex := Load_DH_check_ex; + DH_check_pub_key_ex := Load_DH_check_pub_key_ex; + DH_check_params := Load_DH_check_params; + DH_check := Load_DH_check; + DH_check_pub_key := Load_DH_check_pub_key; + DH_generate_key := Load_DH_generate_key; + DH_compute_key := Load_DH_compute_key; + DH_compute_key_padded := Load_DH_compute_key_padded; + d2i_DHparams := Load_d2i_DHparams; + i2d_DHparams := Load_i2d_DHparams; + d2i_DHxparams := Load_d2i_DHxparams; + i2d_DHxparams := Load_i2d_DHxparams; + DHparams_print := Load_DHparams_print; + DH_get_1024_160 := Load_DH_get_1024_160; + DH_get_2048_224 := Load_DH_get_2048_224; + DH_get_2048_256 := Load_DH_get_2048_256; + DH_new_by_nid := Load_DH_new_by_nid; + DH_get_nid := Load_DH_get_nid; + DH_KDF_X9_42 := Load_DH_KDF_X9_42; + DH_get0_pqg := Load_DH_get0_pqg; + DH_set0_pqg := Load_DH_set0_pqg; + DH_get0_key := Load_DH_get0_key; + DH_set0_key := Load_DH_set0_key; + DH_get0_p := Load_DH_get0_p; + DH_get0_q := Load_DH_get0_q; + DH_get0_g := Load_DH_get0_g; + DH_get0_priv_key := Load_DH_get0_priv_key; + DH_get0_pub_key := Load_DH_get0_pub_key; + DH_clear_flags := Load_DH_clear_flags; + DH_test_flags := Load_DH_test_flags; + DH_set_flags := Load_DH_set_flags; + DH_get0_engine := Load_DH_get0_engine; + DH_get_length := Load_DH_get_length; + DH_set_length := Load_DH_set_length; + DH_meth_new := Load_DH_meth_new; + DH_meth_free := Load_DH_meth_free; + DH_meth_dup := Load_DH_meth_dup; + DH_meth_get0_name := Load_DH_meth_get0_name; + DH_meth_set1_name := Load_DH_meth_set1_name; + DH_meth_get_flags := Load_DH_meth_get_flags; + DH_meth_set_flags := Load_DH_meth_set_flags; + DH_meth_get0_app_data := Load_DH_meth_get0_app_data; + DH_meth_set0_app_data := Load_DH_meth_set0_app_data; + DH_meth_get_generate_key := Load_DH_meth_get_generate_key; + DH_meth_set_generate_key := Load_DH_meth_set_generate_key; + DH_meth_get_compute_key := Load_DH_meth_get_compute_key; + DH_meth_set_compute_key := Load_DH_meth_set_compute_key; + DH_meth_get_bn_mod_exp := Load_DH_meth_get_bn_mod_exp; + DH_meth_set_bn_mod_exp := Load_DH_meth_set_bn_mod_exp; + DH_meth_get_init := Load_DH_meth_get_init; + DH_meth_set_init := Load_DH_meth_set_init; + DH_meth_get_finish := Load_DH_meth_get_finish; + DH_meth_set_finish := Load_DH_meth_set_finish; + DH_meth_get_generate_params := Load_DH_meth_get_generate_params; + DH_meth_set_generate_params := Load_DH_meth_set_generate_params; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_dherr.pas b/src/opensslHdrs/IdOpenSSLHeaders_dherr.pas new file mode 100644 index 0000000..b270e0e --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_dherr.pas @@ -0,0 +1,153 @@ +(* This unit was generated from the source file dherr.h2pas +It should not be modified directly. All changes should be made to dherr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_dherr; + + +interface + +// Headers for OpenSSL 1.1.1 +// dherr.h + + +uses + IdSSLOpenSSLAPI; + +const + // DH function codes + DH_F_COMPUTE_KEY = 102; + DH_F_DHPARAMS_PRINT_FP = 101; + DH_F_DH_BUILTIN_GENPARAMS = 106; + DH_F_DH_CHECK_EX = 121; + DH_F_DH_CHECK_PARAMS_EX = 122; + DH_F_DH_CHECK_PUB_KEY_EX = 123; + DH_F_DH_CMS_DECRYPT = 114; + DH_F_DH_CMS_SET_PEERKEY = 115; + DH_F_DH_CMS_SET_SHARED_INFO = 116; + DH_F_DH_METH_DUP = 117; + DH_F_DH_METH_NEW = 118; + DH_F_DH_METH_SET1_NAME = 119; + DH_F_DH_NEW_BY_NID = 104; + DH_F_DH_NEW_METHOD = 105; + DH_F_DH_PARAM_DECODE = 107; + DH_F_DH_PKEY_PUBLIC_CHECK = 124; + DH_F_DH_PRIV_DECODE = 110; + DH_F_DH_PRIV_ENCODE = 111; + DH_F_DH_PUB_DECODE = 108; + DH_F_DH_PUB_ENCODE = 109; + DH_F_DO_DH_PRINT = 100; + DH_F_GENERATE_KEY = 103; + DH_F_PKEY_DH_CTRL_STR = 120; + DH_F_PKEY_DH_DERIVE = 112; + DH_F_PKEY_DH_INIT = 125; + DH_F_PKEY_DH_KEYGEN = 113; + + // DH reason codes + DH_R_BAD_GENERATOR = 101; + DH_R_BN_DECODE_ERROR = 109; + DH_R_BN_ERROR = 106; + DH_R_CHECK_INVALID_J_VALUE = 115; + DH_R_CHECK_INVALID_Q_VALUE = 116; + DH_R_CHECK_PUBKEY_INVALID = 122; + DH_R_CHECK_PUBKEY_TOO_LARGE = 123; + DH_R_CHECK_PUBKEY_TOO_SMALL = 124; + DH_R_CHECK_P_NOT_PRIME = 117; + DH_R_CHECK_P_NOT_SAFE_PRIME = 118; + DH_R_CHECK_Q_NOT_PRIME = 119; + DH_R_DECODE_ERROR = 104; + DH_R_INVALID_PARAMETER_NAME = 110; + DH_R_INVALID_PARAMETER_NID = 114; + DH_R_INVALID_PUBKEY = 102; + DH_R_KDF_PARAMETER_ERROR = 112; + DH_R_KEYS_NOT_SET = 108; + DH_R_MISSING_PUBKEY = 125; + DH_R_MODULUS_TOO_LARGE = 103; + DH_R_NOT_SUITABLE_GENERATOR = 120; + DH_R_NO_PARAMETERS_SET = 107; + DH_R_NO_PRIVATE_VALUE = 100; + DH_R_PARAMETER_ENCODING_ERROR = 105; + DH_R_PEER_KEY_ERROR = 111; + DH_R_SHARED_INFO_ERROR = 113; + DH_R_UNABLE_TO_CHECK_GENERATOR = 121; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_DH_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_DH_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_DH_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_DH_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_DH_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_DH_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_DH_strings := LoadLibCryptoFunction('ERR_load_DH_strings'); + if not assigned(ERR_load_DH_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_DH_strings'); + Result := ERR_load_DH_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_DH_strings := Load_ERR_load_DH_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_dsa.pas b/src/opensslHdrs/IdOpenSSLHeaders_dsa.pas new file mode 100644 index 0000000..0b484f2 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_dsa.pas @@ -0,0 +1,1116 @@ +(* This unit was generated from the source file dsa.h2pas +It should not be modified directly. All changes should be made to dsa.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_dsa; + + +interface + +// Headers for OpenSSL 1.1.1 +// dsa.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_evp; + +const + OPENSSL_DSA_MAX_MODULUS_BITS = 10000; + OPENSSL_DSA_FIPS_MIN_MODULUS_BITS = 1024; + DSA_FLAG_CACHE_MONT_P = $01; + DSA_FLAG_NO_EXP_CONSTTIME = $00; + DSA_FLAG_FIPS_METHOD = $0400; + DSA_FLAG_NON_FIPS_ALLOW = $0400; + DSA_FLAG_FIPS_CHECKED = $0800; + + DSS_prime_checks = 64; + + EVP_PKEY_CTRL_DSA_PARAMGEN_BITS = EVP_PKEY_ALG_CTRL + 1; + EVP_PKEY_CTRL_DSA_PARAMGEN_Q_BITS = EVP_PKEY_ALG_CTRL + 2; + EVP_PKEY_CTRL_DSA_PARAMGEN_MD = EVP_PKEY_ALG_CTRL + 3; + +type + DSA_SIG = type Pointer; // DSA_SIG_st + PDSA_SIG = ^DSA_SIG; + PPDSA_SIG = ^PDSA_SIG; + + DSA_meth_sign_cb = function (const v1: PByte; v2: TOpenSSL_C_INT; v3: PDSA): PDSA_SIG cdecl; + DSA_meth_sign_setup_cb = function (v1: PDSA; v2: PBN_CTX; + v3: PPBIGNUM; v4: PPBIGNUM): TOpenSSL_C_INT cdecl; + DSA_meth_verify_cb = function (const v1: PByte; v2: TOpenSSL_C_INT; + v3: PDSA_SIG; v4: PDSA): TOpenSSL_C_INT cdecl; + DSA_meth_mod_exp_cb = function (v1: PDSA; v2: PBIGNUM; + const v3: PBIGNUM; const v4: PBIGNUM; const v5: PBIGNUM; const v6: PBIGNUM; + const v7: PBIGNUM; v8: PBN_CTX; v9: PBN_MONT_CTX): TOpenSSL_C_INT cdecl; + DSA_meth_bn_mod_exp_cb = function (v1: PDSA; v2: PBIGNUM; + const v3: PBIGNUM; const v4: PBIGNUM; const v5: PBIGNUM; v6: PBN_CTX; v7: PBN_MONT_CTX): TOpenSSL_C_INT cdecl; + DSA_meth_init_cb = function(v1: PDSA): TOpenSSL_C_INT cdecl; + DSA_meth_finish_cb = function (v1: PDSA): TOpenSSL_C_INT cdecl; + DSA_meth_paramgen_cb = function (v1: PDSA; v2: TOpenSSL_C_INT; + const v3: PByte; v4: TOpenSSL_C_INT; v5: POpenSSL_C_INT; v6: POpenSSL_C_ULONG; v7: PBN_GENCB): TOpenSSL_C_INT cdecl; + DSA_meth_keygen_cb = function (v1: PDSA): TOpenSSL_C_INT cdecl; + +//# define d2i_DSAparams_fp(fp,x) (DSA *)ASN1_d2i_fp((char *(*)())DSA_new, \ +// (char *(*)())d2i_DSAparams,(fp),(unsigned char **)(x)) +//# define i2d_DSAparams_fp(fp,x) ASN1_i2d_fp(i2d_DSAparams,(fp), \ +// (unsigned char *)(x)) +//# define d2i_DSAparams_bio(bp,x) ASN1_d2i_bio_of(DSA,DSA_new,d2i_DSAparams,bp,x) +//# define i2d_DSAparams_bio(bp,x) ASN1_i2d_bio_of_const(DSA,i2d_DSAparams,bp,x) + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM DSAparams_dup} +{$EXTERNALSYM DSA_SIG_new} +{$EXTERNALSYM DSA_SIG_free} +{$EXTERNALSYM i2d_DSA_SIG} +{$EXTERNALSYM d2i_DSA_SIG} +{$EXTERNALSYM DSA_SIG_get0} +{$EXTERNALSYM DSA_SIG_set0} +{$EXTERNALSYM DSA_do_sign} +{$EXTERNALSYM DSA_do_verify} +{$EXTERNALSYM DSA_OpenSSL} +{$EXTERNALSYM DSA_set_default_method} +{$EXTERNALSYM DSA_get_default_method} +{$EXTERNALSYM DSA_set_method} +{$EXTERNALSYM DSA_get_method} +{$EXTERNALSYM DSA_new} +{$EXTERNALSYM DSA_new_method} +{$EXTERNALSYM DSA_free} +{$EXTERNALSYM DSA_up_ref} +{$EXTERNALSYM DSA_size} +{$EXTERNALSYM DSA_bits} +{$EXTERNALSYM DSA_security_bits} +{$EXTERNALSYM DSA_sign} +{$EXTERNALSYM DSA_verify} +{$EXTERNALSYM DSA_set_ex_data} +{$EXTERNALSYM DSA_get_ex_data} +{$EXTERNALSYM d2i_DSAPublicKey} +{$EXTERNALSYM d2i_DSAPrivateKey} +{$EXTERNALSYM d2i_DSAparams} +{$EXTERNALSYM DSA_generate_parameters_ex} +{$EXTERNALSYM DSA_generate_key} +{$EXTERNALSYM i2d_DSAPublicKey} +{$EXTERNALSYM i2d_DSAPrivateKey} +{$EXTERNALSYM i2d_DSAparams} +{$EXTERNALSYM DSAparams_print} +{$EXTERNALSYM DSA_print} +{$EXTERNALSYM DSA_dup_DH} +{$EXTERNALSYM DSA_get0_pqg} +{$EXTERNALSYM DSA_set0_pqg} +{$EXTERNALSYM DSA_get0_key} +{$EXTERNALSYM DSA_set0_key} +{$EXTERNALSYM DSA_get0_p} +{$EXTERNALSYM DSA_get0_q} +{$EXTERNALSYM DSA_get0_g} +{$EXTERNALSYM DSA_get0_pub_key} +{$EXTERNALSYM DSA_get0_priv_key} +{$EXTERNALSYM DSA_clear_flags} +{$EXTERNALSYM DSA_test_flags} +{$EXTERNALSYM DSA_set_flags} +{$EXTERNALSYM DSA_get0_engine} +{$EXTERNALSYM DSA_meth_new} +{$EXTERNALSYM DSA_meth_free} +{$EXTERNALSYM DSA_meth_dup} +{$EXTERNALSYM DSA_meth_get0_name} +{$EXTERNALSYM DSA_meth_set1_name} +{$EXTERNALSYM DSA_meth_get_flags} +{$EXTERNALSYM DSA_meth_set_flags} +{$EXTERNALSYM DSA_meth_get0_app_data} +{$EXTERNALSYM DSA_meth_set0_app_data} +{$EXTERNALSYM DSA_meth_get_sign} +{$EXTERNALSYM DSA_meth_set_sign} +{$EXTERNALSYM DSA_meth_get_sign_setup} +{$EXTERNALSYM DSA_meth_set_sign_setup} +{$EXTERNALSYM DSA_meth_get_verify} +{$EXTERNALSYM DSA_meth_set_verify} +{$EXTERNALSYM DSA_meth_get_mod_exp} +{$EXTERNALSYM DSA_meth_set_mod_exp} +{$EXTERNALSYM DSA_meth_get_bn_mod_exp} +{$EXTERNALSYM DSA_meth_set_bn_mod_exp} +{$EXTERNALSYM DSA_meth_get_init} +{$EXTERNALSYM DSA_meth_set_init} +{$EXTERNALSYM DSA_meth_get_finish} +{$EXTERNALSYM DSA_meth_set_finish} +{$EXTERNALSYM DSA_meth_get_paramgen} +{$EXTERNALSYM DSA_meth_set_paramgen} +{$EXTERNALSYM DSA_meth_get_keygen} +{$EXTERNALSYM DSA_meth_set_keygen} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function DSAparams_dup(x: PDSA): PDSA; cdecl; external CLibCrypto; +function DSA_SIG_new: PDSA_SIG; cdecl; external CLibCrypto; +procedure DSA_SIG_free(a: PDSA_SIG); cdecl; external CLibCrypto; +function i2d_DSA_SIG(const a: PDSA_SIG; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_DSA_SIG(v: PPDSA_SIG; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA_SIG; cdecl; external CLibCrypto; +procedure DSA_SIG_get0(const sig: PDSA_SIG; const pr: PPBIGNUM; const ps: PPBIGNUM); cdecl; external CLibCrypto; +function DSA_SIG_set0(sig: PDSA_SIG; r: PBIGNUM; s: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_do_sign(const dgst: PByte; dlen: TOpenSSL_C_INT; dsa: PDSA): PDSA_SIG; cdecl; external CLibCrypto; +function DSA_do_verify(const dgst: PByte; dgst_len: TOpenSSL_C_INT; sig: PDSA_SIG; dsa: PDSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_OpenSSL: PDSA_METHOD; cdecl; external CLibCrypto; +procedure DSA_set_default_method(const v1: PDSA_METHOD); cdecl; external CLibCrypto; +function DSA_get_default_method: PDSA_METHOD; cdecl; external CLibCrypto; +function DSA_set_method(dsa: PDSA; const v1: PDSA_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_get_method(d: PDSA): PDSA_METHOD; cdecl; external CLibCrypto; +function DSA_new: PDSA; cdecl; external CLibCrypto; +function DSA_new_method(engine: PENGINE): PDSA; cdecl; external CLibCrypto; +procedure DSA_free(r: PDSA); cdecl; external CLibCrypto; +function DSA_up_ref(r: PDSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_size(const v1: PDSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_bits(const d: PDSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_security_bits(const d: PDSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_sign(type_: TOpenSSL_C_INT; const dgst: PByte; dlen: TOpenSSL_C_INT; sig: PByte; siglen: POpenSSL_C_UINT; dsa: PDSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_verify(type_: TOpenSSL_C_INT; const dgst: PByte; dgst_len: TOpenSSL_C_INT; const sigbuf: PByte; siglen: TOpenSSL_C_INT; dsa: PDSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_set_ex_data(d: PDSA; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_get_ex_data(d: PDSA; idx: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function d2i_DSAPublicKey(a: PPDSA; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA; cdecl; external CLibCrypto; +function d2i_DSAPrivateKey(a: PPDSA; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA; cdecl; external CLibCrypto; +function d2i_DSAparams(a: PPDSA; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA; cdecl; external CLibCrypto; +function DSA_generate_parameters_ex(dsa: PDSA; bits: TOpenSSL_C_INT; const seed: PByte; seed_len: TOpenSSL_C_INT; counter_ret: POpenSSL_C_INT; h_ret: POpenSSL_C_ULONG; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_generate_key(a: PDSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2d_DSAPublicKey(const a: PDSA; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2d_DSAPrivateKey(const a: PDSA; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2d_DSAparams(const a: PDSA; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSAparams_print(bp: PBIO; const x: PDSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_print(bp: PBIO; const x: PDSA; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_dup_DH(const r: PDSA): PDH; cdecl; external CLibCrypto; +procedure DSA_get0_pqg(const d: PDSA; const p: PPBIGNUM; const q: PPBIGNUM; const g: PPBIGNUM); cdecl; external CLibCrypto; +function DSA_set0_pqg(d: PDSA; p: PBIGNUM; q: PBIGNUM; g: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure DSA_get0_key(const d: PDSA; const pub_key: PPBIGNUM; const priv_key: PPBIGNUM); cdecl; external CLibCrypto; +function DSA_set0_key(d: PDSA; pub_key: PBIGNUM; priv_key: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_get0_p(const d: PDSA): PBIGNUM; cdecl; external CLibCrypto; +function DSA_get0_q(const d: PDSA): PBIGNUM; cdecl; external CLibCrypto; +function DSA_get0_g(const d: PDSA): PBIGNUM; cdecl; external CLibCrypto; +function DSA_get0_pub_key(const d: PDSA): PBIGNUM; cdecl; external CLibCrypto; +function DSA_get0_priv_key(const d: PDSA): PBIGNUM; cdecl; external CLibCrypto; +procedure DSA_clear_flags(d: PDSA; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function DSA_test_flags(const d: PDSA; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure DSA_set_flags(d: PDSA; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function DSA_get0_engine(d: PDSA): PENGINE; cdecl; external CLibCrypto; +function DSA_meth_new(const name: PAnsiChar; flags: TOpenSSL_C_INT): PDSA_METHOD; cdecl; external CLibCrypto; +procedure DSA_meth_free(dsam: PDSA_METHOD); cdecl; external CLibCrypto; +function DSA_meth_dup(const dsam: PDSA_METHOD): PDSA_METHOD; cdecl; external CLibCrypto; +function DSA_meth_get0_name(const dsam: PDSA_METHOD): PAnsiChar; cdecl; external CLibCrypto; +function DSA_meth_set1_name(dsam: PDSA_METHOD; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_meth_get_flags(const dsam: PDSA_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_meth_set_flags(dsam: PDSA_METHOD; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_meth_get0_app_data(const dsam: PDSA_METHOD): Pointer; cdecl; external CLibCrypto; +function DSA_meth_set0_app_data(dsam: PDSA_METHOD; app_data: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_meth_get_sign(const dsam: PDSA_METHOD): DSA_meth_sign_cb; cdecl; external CLibCrypto; +function DSA_meth_set_sign(dsam: PDSA_METHOD; sign: DSA_meth_sign_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_meth_get_sign_setup(const dsam: PDSA_METHOD): DSA_meth_sign_setup_cb; cdecl; external CLibCrypto; +function DSA_meth_set_sign_setup(dsam: PDSA_METHOD; sign_setup: DSA_meth_sign_setup_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_meth_get_verify(const dsam: PDSA_METHOD): DSA_meth_verify_cb; cdecl; external CLibCrypto; +function DSA_meth_set_verify(dsam: PDSA_METHOD; verify: DSA_meth_verify_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_meth_get_mod_exp(const dsam: PDSA_METHOD): DSA_meth_mod_exp_cb; cdecl; external CLibCrypto; +function DSA_meth_set_mod_exp(dsam: PDSA_METHOD; mod_exp: DSA_meth_mod_exp_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_meth_get_bn_mod_exp(const dsam: PDSA_METHOD): DSA_meth_bn_mod_exp_cb; cdecl; external CLibCrypto; +function DSA_meth_set_bn_mod_exp(dsam: PDSA_METHOD; bn_mod_exp: DSA_meth_bn_mod_exp_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_meth_get_init(const dsam: PDSA_METHOD): DSA_meth_init_cb; cdecl; external CLibCrypto; +function DSA_meth_set_init(dsam: PDSA_METHOD; init: DSA_meth_init_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_meth_get_finish(const dsam: PDSA_METHOD): DSA_meth_finish_cb; cdecl; external CLibCrypto; +function DSA_meth_set_finish(dsam: PDSA_METHOD; finish: DSA_meth_finish_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_meth_get_paramgen(const dsam: PDSA_METHOD): DSA_meth_paramgen_cb; cdecl; external CLibCrypto; +function DSA_meth_set_paramgen(dsam: PDSA_METHOD; paramgen: DSA_meth_paramgen_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DSA_meth_get_keygen(const dsam: PDSA_METHOD): DSA_meth_keygen_cb; cdecl; external CLibCrypto; +function DSA_meth_set_keygen(dsam: PDSA_METHOD; keygen: DSA_meth_keygen_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_DSAparams_dup(x: PDSA): PDSA; cdecl; +function Load_DSA_SIG_new: PDSA_SIG; cdecl; +procedure Load_DSA_SIG_free(a: PDSA_SIG); cdecl; +function Load_i2d_DSA_SIG(const a: PDSA_SIG; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_DSA_SIG(v: PPDSA_SIG; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA_SIG; cdecl; +procedure Load_DSA_SIG_get0(const sig: PDSA_SIG; const pr: PPBIGNUM; const ps: PPBIGNUM); cdecl; +function Load_DSA_SIG_set0(sig: PDSA_SIG; r: PBIGNUM; s: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_DSA_do_sign(const dgst: PByte; dlen: TOpenSSL_C_INT; dsa: PDSA): PDSA_SIG; cdecl; +function Load_DSA_do_verify(const dgst: PByte; dgst_len: TOpenSSL_C_INT; sig: PDSA_SIG; dsa: PDSA): TOpenSSL_C_INT; cdecl; +function Load_DSA_OpenSSL: PDSA_METHOD; cdecl; +procedure Load_DSA_set_default_method(const v1: PDSA_METHOD); cdecl; +function Load_DSA_get_default_method: PDSA_METHOD; cdecl; +function Load_DSA_set_method(dsa: PDSA; const v1: PDSA_METHOD): TOpenSSL_C_INT; cdecl; +function Load_DSA_get_method(d: PDSA): PDSA_METHOD; cdecl; +function Load_DSA_new: PDSA; cdecl; +function Load_DSA_new_method(engine: PENGINE): PDSA; cdecl; +procedure Load_DSA_free(r: PDSA); cdecl; +function Load_DSA_up_ref(r: PDSA): TOpenSSL_C_INT; cdecl; +function Load_DSA_size(const v1: PDSA): TOpenSSL_C_INT; cdecl; +function Load_DSA_bits(const d: PDSA): TOpenSSL_C_INT; cdecl; +function Load_DSA_security_bits(const d: PDSA): TOpenSSL_C_INT; cdecl; +function Load_DSA_sign(type_: TOpenSSL_C_INT; const dgst: PByte; dlen: TOpenSSL_C_INT; sig: PByte; siglen: POpenSSL_C_UINT; dsa: PDSA): TOpenSSL_C_INT; cdecl; +function Load_DSA_verify(type_: TOpenSSL_C_INT; const dgst: PByte; dgst_len: TOpenSSL_C_INT; const sigbuf: PByte; siglen: TOpenSSL_C_INT; dsa: PDSA): TOpenSSL_C_INT; cdecl; +function Load_DSA_set_ex_data(d: PDSA; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; +function Load_DSA_get_ex_data(d: PDSA; idx: TOpenSSL_C_INT): Pointer; cdecl; +function Load_d2i_DSAPublicKey(a: PPDSA; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA; cdecl; +function Load_d2i_DSAPrivateKey(a: PPDSA; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA; cdecl; +function Load_d2i_DSAparams(a: PPDSA; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA; cdecl; +function Load_DSA_generate_parameters_ex(dsa: PDSA; bits: TOpenSSL_C_INT; const seed: PByte; seed_len: TOpenSSL_C_INT; counter_ret: POpenSSL_C_INT; h_ret: POpenSSL_C_ULONG; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +function Load_DSA_generate_key(a: PDSA): TOpenSSL_C_INT; cdecl; +function Load_i2d_DSAPublicKey(const a: PDSA; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_i2d_DSAPrivateKey(const a: PDSA; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_i2d_DSAparams(const a: PDSA; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_DSAparams_print(bp: PBIO; const x: PDSA): TOpenSSL_C_INT; cdecl; +function Load_DSA_print(bp: PBIO; const x: PDSA; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_DSA_dup_DH(const r: PDSA): PDH; cdecl; +procedure Load_DSA_get0_pqg(const d: PDSA; const p: PPBIGNUM; const q: PPBIGNUM; const g: PPBIGNUM); cdecl; +function Load_DSA_set0_pqg(d: PDSA; p: PBIGNUM; q: PBIGNUM; g: PBIGNUM): TOpenSSL_C_INT; cdecl; +procedure Load_DSA_get0_key(const d: PDSA; const pub_key: PPBIGNUM; const priv_key: PPBIGNUM); cdecl; +function Load_DSA_set0_key(d: PDSA; pub_key: PBIGNUM; priv_key: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_DSA_get0_p(const d: PDSA): PBIGNUM; cdecl; +function Load_DSA_get0_q(const d: PDSA): PBIGNUM; cdecl; +function Load_DSA_get0_g(const d: PDSA): PBIGNUM; cdecl; +function Load_DSA_get0_pub_key(const d: PDSA): PBIGNUM; cdecl; +function Load_DSA_get0_priv_key(const d: PDSA): PBIGNUM; cdecl; +procedure Load_DSA_clear_flags(d: PDSA; flags: TOpenSSL_C_INT); cdecl; +function Load_DSA_test_flags(const d: PDSA; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_DSA_set_flags(d: PDSA; flags: TOpenSSL_C_INT); cdecl; +function Load_DSA_get0_engine(d: PDSA): PENGINE; cdecl; +function Load_DSA_meth_new(const name: PAnsiChar; flags: TOpenSSL_C_INT): PDSA_METHOD; cdecl; +procedure Load_DSA_meth_free(dsam: PDSA_METHOD); cdecl; +function Load_DSA_meth_dup(const dsam: PDSA_METHOD): PDSA_METHOD; cdecl; +function Load_DSA_meth_get0_name(const dsam: PDSA_METHOD): PAnsiChar; cdecl; +function Load_DSA_meth_set1_name(dsam: PDSA_METHOD; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_DSA_meth_get_flags(const dsam: PDSA_METHOD): TOpenSSL_C_INT; cdecl; +function Load_DSA_meth_set_flags(dsam: PDSA_METHOD; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_DSA_meth_get0_app_data(const dsam: PDSA_METHOD): Pointer; cdecl; +function Load_DSA_meth_set0_app_data(dsam: PDSA_METHOD; app_data: Pointer): TOpenSSL_C_INT; cdecl; +function Load_DSA_meth_get_sign(const dsam: PDSA_METHOD): DSA_meth_sign_cb; cdecl; +function Load_DSA_meth_set_sign(dsam: PDSA_METHOD; sign: DSA_meth_sign_cb): TOpenSSL_C_INT; cdecl; +function Load_DSA_meth_get_sign_setup(const dsam: PDSA_METHOD): DSA_meth_sign_setup_cb; cdecl; +function Load_DSA_meth_set_sign_setup(dsam: PDSA_METHOD; sign_setup: DSA_meth_sign_setup_cb): TOpenSSL_C_INT; cdecl; +function Load_DSA_meth_get_verify(const dsam: PDSA_METHOD): DSA_meth_verify_cb; cdecl; +function Load_DSA_meth_set_verify(dsam: PDSA_METHOD; verify: DSA_meth_verify_cb): TOpenSSL_C_INT; cdecl; +function Load_DSA_meth_get_mod_exp(const dsam: PDSA_METHOD): DSA_meth_mod_exp_cb; cdecl; +function Load_DSA_meth_set_mod_exp(dsam: PDSA_METHOD; mod_exp: DSA_meth_mod_exp_cb): TOpenSSL_C_INT; cdecl; +function Load_DSA_meth_get_bn_mod_exp(const dsam: PDSA_METHOD): DSA_meth_bn_mod_exp_cb; cdecl; +function Load_DSA_meth_set_bn_mod_exp(dsam: PDSA_METHOD; bn_mod_exp: DSA_meth_bn_mod_exp_cb): TOpenSSL_C_INT; cdecl; +function Load_DSA_meth_get_init(const dsam: PDSA_METHOD): DSA_meth_init_cb; cdecl; +function Load_DSA_meth_set_init(dsam: PDSA_METHOD; init: DSA_meth_init_cb): TOpenSSL_C_INT; cdecl; +function Load_DSA_meth_get_finish(const dsam: PDSA_METHOD): DSA_meth_finish_cb; cdecl; +function Load_DSA_meth_set_finish(dsam: PDSA_METHOD; finish: DSA_meth_finish_cb): TOpenSSL_C_INT; cdecl; +function Load_DSA_meth_get_paramgen(const dsam: PDSA_METHOD): DSA_meth_paramgen_cb; cdecl; +function Load_DSA_meth_set_paramgen(dsam: PDSA_METHOD; paramgen: DSA_meth_paramgen_cb): TOpenSSL_C_INT; cdecl; +function Load_DSA_meth_get_keygen(const dsam: PDSA_METHOD): DSA_meth_keygen_cb; cdecl; +function Load_DSA_meth_set_keygen(dsam: PDSA_METHOD; keygen: DSA_meth_keygen_cb): TOpenSSL_C_INT; cdecl; + +var + DSAparams_dup: function (x: PDSA): PDSA; cdecl = Load_DSAparams_dup; + DSA_SIG_new: function : PDSA_SIG; cdecl = Load_DSA_SIG_new; + DSA_SIG_free: procedure (a: PDSA_SIG); cdecl = Load_DSA_SIG_free; + i2d_DSA_SIG: function (const a: PDSA_SIG; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_DSA_SIG; + d2i_DSA_SIG: function (v: PPDSA_SIG; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA_SIG; cdecl = Load_d2i_DSA_SIG; + DSA_SIG_get0: procedure (const sig: PDSA_SIG; const pr: PPBIGNUM; const ps: PPBIGNUM); cdecl = Load_DSA_SIG_get0; + DSA_SIG_set0: function (sig: PDSA_SIG; r: PBIGNUM; s: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_DSA_SIG_set0; + DSA_do_sign: function (const dgst: PByte; dlen: TOpenSSL_C_INT; dsa: PDSA): PDSA_SIG; cdecl = Load_DSA_do_sign; + DSA_do_verify: function (const dgst: PByte; dgst_len: TOpenSSL_C_INT; sig: PDSA_SIG; dsa: PDSA): TOpenSSL_C_INT; cdecl = Load_DSA_do_verify; + DSA_OpenSSL: function : PDSA_METHOD; cdecl = Load_DSA_OpenSSL; + DSA_set_default_method: procedure (const v1: PDSA_METHOD); cdecl = Load_DSA_set_default_method; + DSA_get_default_method: function : PDSA_METHOD; cdecl = Load_DSA_get_default_method; + DSA_set_method: function (dsa: PDSA; const v1: PDSA_METHOD): TOpenSSL_C_INT; cdecl = Load_DSA_set_method; + DSA_get_method: function (d: PDSA): PDSA_METHOD; cdecl = Load_DSA_get_method; + DSA_new: function : PDSA; cdecl = Load_DSA_new; + DSA_new_method: function (engine: PENGINE): PDSA; cdecl = Load_DSA_new_method; + DSA_free: procedure (r: PDSA); cdecl = Load_DSA_free; + DSA_up_ref: function (r: PDSA): TOpenSSL_C_INT; cdecl = Load_DSA_up_ref; + DSA_size: function (const v1: PDSA): TOpenSSL_C_INT; cdecl = Load_DSA_size; + DSA_bits: function (const d: PDSA): TOpenSSL_C_INT; cdecl = Load_DSA_bits; + DSA_security_bits: function (const d: PDSA): TOpenSSL_C_INT; cdecl = Load_DSA_security_bits; + DSA_sign: function (type_: TOpenSSL_C_INT; const dgst: PByte; dlen: TOpenSSL_C_INT; sig: PByte; siglen: POpenSSL_C_UINT; dsa: PDSA): TOpenSSL_C_INT; cdecl = Load_DSA_sign; + DSA_verify: function (type_: TOpenSSL_C_INT; const dgst: PByte; dgst_len: TOpenSSL_C_INT; const sigbuf: PByte; siglen: TOpenSSL_C_INT; dsa: PDSA): TOpenSSL_C_INT; cdecl = Load_DSA_verify; + DSA_set_ex_data: function (d: PDSA; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl = Load_DSA_set_ex_data; + DSA_get_ex_data: function (d: PDSA; idx: TOpenSSL_C_INT): Pointer; cdecl = Load_DSA_get_ex_data; + d2i_DSAPublicKey: function (a: PPDSA; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA; cdecl = Load_d2i_DSAPublicKey; + d2i_DSAPrivateKey: function (a: PPDSA; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA; cdecl = Load_d2i_DSAPrivateKey; + d2i_DSAparams: function (a: PPDSA; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA; cdecl = Load_d2i_DSAparams; + DSA_generate_parameters_ex: function (dsa: PDSA; bits: TOpenSSL_C_INT; const seed: PByte; seed_len: TOpenSSL_C_INT; counter_ret: POpenSSL_C_INT; h_ret: POpenSSL_C_ULONG; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl = Load_DSA_generate_parameters_ex; + DSA_generate_key: function (a: PDSA): TOpenSSL_C_INT; cdecl = Load_DSA_generate_key; + i2d_DSAPublicKey: function (const a: PDSA; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_DSAPublicKey; + i2d_DSAPrivateKey: function (const a: PDSA; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_DSAPrivateKey; + i2d_DSAparams: function (const a: PDSA; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_DSAparams; + DSAparams_print: function (bp: PBIO; const x: PDSA): TOpenSSL_C_INT; cdecl = Load_DSAparams_print; + DSA_print: function (bp: PBIO; const x: PDSA; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_DSA_print; + DSA_dup_DH: function (const r: PDSA): PDH; cdecl = Load_DSA_dup_DH; + DSA_get0_pqg: procedure (const d: PDSA; const p: PPBIGNUM; const q: PPBIGNUM; const g: PPBIGNUM); cdecl = Load_DSA_get0_pqg; + DSA_set0_pqg: function (d: PDSA; p: PBIGNUM; q: PBIGNUM; g: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_DSA_set0_pqg; + DSA_get0_key: procedure (const d: PDSA; const pub_key: PPBIGNUM; const priv_key: PPBIGNUM); cdecl = Load_DSA_get0_key; + DSA_set0_key: function (d: PDSA; pub_key: PBIGNUM; priv_key: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_DSA_set0_key; + DSA_get0_p: function (const d: PDSA): PBIGNUM; cdecl = Load_DSA_get0_p; + DSA_get0_q: function (const d: PDSA): PBIGNUM; cdecl = Load_DSA_get0_q; + DSA_get0_g: function (const d: PDSA): PBIGNUM; cdecl = Load_DSA_get0_g; + DSA_get0_pub_key: function (const d: PDSA): PBIGNUM; cdecl = Load_DSA_get0_pub_key; + DSA_get0_priv_key: function (const d: PDSA): PBIGNUM; cdecl = Load_DSA_get0_priv_key; + DSA_clear_flags: procedure (d: PDSA; flags: TOpenSSL_C_INT); cdecl = Load_DSA_clear_flags; + DSA_test_flags: function (const d: PDSA; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_DSA_test_flags; + DSA_set_flags: procedure (d: PDSA; flags: TOpenSSL_C_INT); cdecl = Load_DSA_set_flags; + DSA_get0_engine: function (d: PDSA): PENGINE; cdecl = Load_DSA_get0_engine; + DSA_meth_new: function (const name: PAnsiChar; flags: TOpenSSL_C_INT): PDSA_METHOD; cdecl = Load_DSA_meth_new; + DSA_meth_free: procedure (dsam: PDSA_METHOD); cdecl = Load_DSA_meth_free; + DSA_meth_dup: function (const dsam: PDSA_METHOD): PDSA_METHOD; cdecl = Load_DSA_meth_dup; + DSA_meth_get0_name: function (const dsam: PDSA_METHOD): PAnsiChar; cdecl = Load_DSA_meth_get0_name; + DSA_meth_set1_name: function (dsam: PDSA_METHOD; const name: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_DSA_meth_set1_name; + DSA_meth_get_flags: function (const dsam: PDSA_METHOD): TOpenSSL_C_INT; cdecl = Load_DSA_meth_get_flags; + DSA_meth_set_flags: function (dsam: PDSA_METHOD; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_DSA_meth_set_flags; + DSA_meth_get0_app_data: function (const dsam: PDSA_METHOD): Pointer; cdecl = Load_DSA_meth_get0_app_data; + DSA_meth_set0_app_data: function (dsam: PDSA_METHOD; app_data: Pointer): TOpenSSL_C_INT; cdecl = Load_DSA_meth_set0_app_data; + DSA_meth_get_sign: function (const dsam: PDSA_METHOD): DSA_meth_sign_cb; cdecl = Load_DSA_meth_get_sign; + DSA_meth_set_sign: function (dsam: PDSA_METHOD; sign: DSA_meth_sign_cb): TOpenSSL_C_INT; cdecl = Load_DSA_meth_set_sign; + DSA_meth_get_sign_setup: function (const dsam: PDSA_METHOD): DSA_meth_sign_setup_cb; cdecl = Load_DSA_meth_get_sign_setup; + DSA_meth_set_sign_setup: function (dsam: PDSA_METHOD; sign_setup: DSA_meth_sign_setup_cb): TOpenSSL_C_INT; cdecl = Load_DSA_meth_set_sign_setup; + DSA_meth_get_verify: function (const dsam: PDSA_METHOD): DSA_meth_verify_cb; cdecl = Load_DSA_meth_get_verify; + DSA_meth_set_verify: function (dsam: PDSA_METHOD; verify: DSA_meth_verify_cb): TOpenSSL_C_INT; cdecl = Load_DSA_meth_set_verify; + DSA_meth_get_mod_exp: function (const dsam: PDSA_METHOD): DSA_meth_mod_exp_cb; cdecl = Load_DSA_meth_get_mod_exp; + DSA_meth_set_mod_exp: function (dsam: PDSA_METHOD; mod_exp: DSA_meth_mod_exp_cb): TOpenSSL_C_INT; cdecl = Load_DSA_meth_set_mod_exp; + DSA_meth_get_bn_mod_exp: function (const dsam: PDSA_METHOD): DSA_meth_bn_mod_exp_cb; cdecl = Load_DSA_meth_get_bn_mod_exp; + DSA_meth_set_bn_mod_exp: function (dsam: PDSA_METHOD; bn_mod_exp: DSA_meth_bn_mod_exp_cb): TOpenSSL_C_INT; cdecl = Load_DSA_meth_set_bn_mod_exp; + DSA_meth_get_init: function (const dsam: PDSA_METHOD): DSA_meth_init_cb; cdecl = Load_DSA_meth_get_init; + DSA_meth_set_init: function (dsam: PDSA_METHOD; init: DSA_meth_init_cb): TOpenSSL_C_INT; cdecl = Load_DSA_meth_set_init; + DSA_meth_get_finish: function (const dsam: PDSA_METHOD): DSA_meth_finish_cb; cdecl = Load_DSA_meth_get_finish; + DSA_meth_set_finish: function (dsam: PDSA_METHOD; finish: DSA_meth_finish_cb): TOpenSSL_C_INT; cdecl = Load_DSA_meth_set_finish; + DSA_meth_get_paramgen: function (const dsam: PDSA_METHOD): DSA_meth_paramgen_cb; cdecl = Load_DSA_meth_get_paramgen; + DSA_meth_set_paramgen: function (dsam: PDSA_METHOD; paramgen: DSA_meth_paramgen_cb): TOpenSSL_C_INT; cdecl = Load_DSA_meth_set_paramgen; + DSA_meth_get_keygen: function (const dsam: PDSA_METHOD): DSA_meth_keygen_cb; cdecl = Load_DSA_meth_get_keygen; + DSA_meth_set_keygen: function (dsam: PDSA_METHOD; keygen: DSA_meth_keygen_cb): TOpenSSL_C_INT; cdecl = Load_DSA_meth_set_keygen; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_DSAparams_dup(x: PDSA): PDSA; cdecl; +begin + DSAparams_dup := LoadLibCryptoFunction('DSAparams_dup'); + if not assigned(DSAparams_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSAparams_dup'); + Result := DSAparams_dup(x); +end; + +function Load_DSA_SIG_new: PDSA_SIG; cdecl; +begin + DSA_SIG_new := LoadLibCryptoFunction('DSA_SIG_new'); + if not assigned(DSA_SIG_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_SIG_new'); + Result := DSA_SIG_new(); +end; + +procedure Load_DSA_SIG_free(a: PDSA_SIG); cdecl; +begin + DSA_SIG_free := LoadLibCryptoFunction('DSA_SIG_free'); + if not assigned(DSA_SIG_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_SIG_free'); + DSA_SIG_free(a); +end; + +function Load_i2d_DSA_SIG(const a: PDSA_SIG; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_DSA_SIG := LoadLibCryptoFunction('i2d_DSA_SIG'); + if not assigned(i2d_DSA_SIG) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_DSA_SIG'); + Result := i2d_DSA_SIG(a,pp); +end; + +function Load_d2i_DSA_SIG(v: PPDSA_SIG; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA_SIG; cdecl; +begin + d2i_DSA_SIG := LoadLibCryptoFunction('d2i_DSA_SIG'); + if not assigned(d2i_DSA_SIG) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_DSA_SIG'); + Result := d2i_DSA_SIG(v,pp,length); +end; + +procedure Load_DSA_SIG_get0(const sig: PDSA_SIG; const pr: PPBIGNUM; const ps: PPBIGNUM); cdecl; +begin + DSA_SIG_get0 := LoadLibCryptoFunction('DSA_SIG_get0'); + if not assigned(DSA_SIG_get0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_SIG_get0'); + DSA_SIG_get0(sig,pr,ps); +end; + +function Load_DSA_SIG_set0(sig: PDSA_SIG; r: PBIGNUM; s: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + DSA_SIG_set0 := LoadLibCryptoFunction('DSA_SIG_set0'); + if not assigned(DSA_SIG_set0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_SIG_set0'); + Result := DSA_SIG_set0(sig,r,s); +end; + +function Load_DSA_do_sign(const dgst: PByte; dlen: TOpenSSL_C_INT; dsa: PDSA): PDSA_SIG; cdecl; +begin + DSA_do_sign := LoadLibCryptoFunction('DSA_do_sign'); + if not assigned(DSA_do_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_do_sign'); + Result := DSA_do_sign(dgst,dlen,dsa); +end; + +function Load_DSA_do_verify(const dgst: PByte; dgst_len: TOpenSSL_C_INT; sig: PDSA_SIG; dsa: PDSA): TOpenSSL_C_INT; cdecl; +begin + DSA_do_verify := LoadLibCryptoFunction('DSA_do_verify'); + if not assigned(DSA_do_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_do_verify'); + Result := DSA_do_verify(dgst,dgst_len,sig,dsa); +end; + +function Load_DSA_OpenSSL: PDSA_METHOD; cdecl; +begin + DSA_OpenSSL := LoadLibCryptoFunction('DSA_OpenSSL'); + if not assigned(DSA_OpenSSL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_OpenSSL'); + Result := DSA_OpenSSL(); +end; + +procedure Load_DSA_set_default_method(const v1: PDSA_METHOD); cdecl; +begin + DSA_set_default_method := LoadLibCryptoFunction('DSA_set_default_method'); + if not assigned(DSA_set_default_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_set_default_method'); + DSA_set_default_method(v1); +end; + +function Load_DSA_get_default_method: PDSA_METHOD; cdecl; +begin + DSA_get_default_method := LoadLibCryptoFunction('DSA_get_default_method'); + if not assigned(DSA_get_default_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_get_default_method'); + Result := DSA_get_default_method(); +end; + +function Load_DSA_set_method(dsa: PDSA; const v1: PDSA_METHOD): TOpenSSL_C_INT; cdecl; +begin + DSA_set_method := LoadLibCryptoFunction('DSA_set_method'); + if not assigned(DSA_set_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_set_method'); + Result := DSA_set_method(dsa,v1); +end; + +function Load_DSA_get_method(d: PDSA): PDSA_METHOD; cdecl; +begin + DSA_get_method := LoadLibCryptoFunction('DSA_get_method'); + if not assigned(DSA_get_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_get_method'); + Result := DSA_get_method(d); +end; + +function Load_DSA_new: PDSA; cdecl; +begin + DSA_new := LoadLibCryptoFunction('DSA_new'); + if not assigned(DSA_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_new'); + Result := DSA_new(); +end; + +function Load_DSA_new_method(engine: PENGINE): PDSA; cdecl; +begin + DSA_new_method := LoadLibCryptoFunction('DSA_new_method'); + if not assigned(DSA_new_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_new_method'); + Result := DSA_new_method(engine); +end; + +procedure Load_DSA_free(r: PDSA); cdecl; +begin + DSA_free := LoadLibCryptoFunction('DSA_free'); + if not assigned(DSA_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_free'); + DSA_free(r); +end; + +function Load_DSA_up_ref(r: PDSA): TOpenSSL_C_INT; cdecl; +begin + DSA_up_ref := LoadLibCryptoFunction('DSA_up_ref'); + if not assigned(DSA_up_ref) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_up_ref'); + Result := DSA_up_ref(r); +end; + +function Load_DSA_size(const v1: PDSA): TOpenSSL_C_INT; cdecl; +begin + DSA_size := LoadLibCryptoFunction('DSA_size'); + if not assigned(DSA_size) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_size'); + Result := DSA_size(v1); +end; + +function Load_DSA_bits(const d: PDSA): TOpenSSL_C_INT; cdecl; +begin + DSA_bits := LoadLibCryptoFunction('DSA_bits'); + if not assigned(DSA_bits) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_bits'); + Result := DSA_bits(d); +end; + +function Load_DSA_security_bits(const d: PDSA): TOpenSSL_C_INT; cdecl; +begin + DSA_security_bits := LoadLibCryptoFunction('DSA_security_bits'); + if not assigned(DSA_security_bits) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_security_bits'); + Result := DSA_security_bits(d); +end; + +function Load_DSA_sign(type_: TOpenSSL_C_INT; const dgst: PByte; dlen: TOpenSSL_C_INT; sig: PByte; siglen: POpenSSL_C_UINT; dsa: PDSA): TOpenSSL_C_INT; cdecl; +begin + DSA_sign := LoadLibCryptoFunction('DSA_sign'); + if not assigned(DSA_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_sign'); + Result := DSA_sign(type_,dgst,dlen,sig,siglen,dsa); +end; + +function Load_DSA_verify(type_: TOpenSSL_C_INT; const dgst: PByte; dgst_len: TOpenSSL_C_INT; const sigbuf: PByte; siglen: TOpenSSL_C_INT; dsa: PDSA): TOpenSSL_C_INT; cdecl; +begin + DSA_verify := LoadLibCryptoFunction('DSA_verify'); + if not assigned(DSA_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_verify'); + Result := DSA_verify(type_,dgst,dgst_len,sigbuf,siglen,dsa); +end; + +function Load_DSA_set_ex_data(d: PDSA; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; +begin + DSA_set_ex_data := LoadLibCryptoFunction('DSA_set_ex_data'); + if not assigned(DSA_set_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_set_ex_data'); + Result := DSA_set_ex_data(d,idx,arg); +end; + +function Load_DSA_get_ex_data(d: PDSA; idx: TOpenSSL_C_INT): Pointer; cdecl; +begin + DSA_get_ex_data := LoadLibCryptoFunction('DSA_get_ex_data'); + if not assigned(DSA_get_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_get_ex_data'); + Result := DSA_get_ex_data(d,idx); +end; + +function Load_d2i_DSAPublicKey(a: PPDSA; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA; cdecl; +begin + d2i_DSAPublicKey := LoadLibCryptoFunction('d2i_DSAPublicKey'); + if not assigned(d2i_DSAPublicKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_DSAPublicKey'); + Result := d2i_DSAPublicKey(a,pp,length); +end; + +function Load_d2i_DSAPrivateKey(a: PPDSA; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA; cdecl; +begin + d2i_DSAPrivateKey := LoadLibCryptoFunction('d2i_DSAPrivateKey'); + if not assigned(d2i_DSAPrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_DSAPrivateKey'); + Result := d2i_DSAPrivateKey(a,pp,length); +end; + +function Load_d2i_DSAparams(a: PPDSA; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA; cdecl; +begin + d2i_DSAparams := LoadLibCryptoFunction('d2i_DSAparams'); + if not assigned(d2i_DSAparams) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_DSAparams'); + Result := d2i_DSAparams(a,pp,length); +end; + +function Load_DSA_generate_parameters_ex(dsa: PDSA; bits: TOpenSSL_C_INT; const seed: PByte; seed_len: TOpenSSL_C_INT; counter_ret: POpenSSL_C_INT; h_ret: POpenSSL_C_ULONG; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +begin + DSA_generate_parameters_ex := LoadLibCryptoFunction('DSA_generate_parameters_ex'); + if not assigned(DSA_generate_parameters_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_generate_parameters_ex'); + Result := DSA_generate_parameters_ex(dsa,bits,seed,seed_len,counter_ret,h_ret,cb); +end; + +function Load_DSA_generate_key(a: PDSA): TOpenSSL_C_INT; cdecl; +begin + DSA_generate_key := LoadLibCryptoFunction('DSA_generate_key'); + if not assigned(DSA_generate_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_generate_key'); + Result := DSA_generate_key(a); +end; + +function Load_i2d_DSAPublicKey(const a: PDSA; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_DSAPublicKey := LoadLibCryptoFunction('i2d_DSAPublicKey'); + if not assigned(i2d_DSAPublicKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_DSAPublicKey'); + Result := i2d_DSAPublicKey(a,pp); +end; + +function Load_i2d_DSAPrivateKey(const a: PDSA; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_DSAPrivateKey := LoadLibCryptoFunction('i2d_DSAPrivateKey'); + if not assigned(i2d_DSAPrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_DSAPrivateKey'); + Result := i2d_DSAPrivateKey(a,pp); +end; + +function Load_i2d_DSAparams(const a: PDSA; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_DSAparams := LoadLibCryptoFunction('i2d_DSAparams'); + if not assigned(i2d_DSAparams) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_DSAparams'); + Result := i2d_DSAparams(a,pp); +end; + +function Load_DSAparams_print(bp: PBIO; const x: PDSA): TOpenSSL_C_INT; cdecl; +begin + DSAparams_print := LoadLibCryptoFunction('DSAparams_print'); + if not assigned(DSAparams_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSAparams_print'); + Result := DSAparams_print(bp,x); +end; + +function Load_DSA_print(bp: PBIO; const x: PDSA; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + DSA_print := LoadLibCryptoFunction('DSA_print'); + if not assigned(DSA_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_print'); + Result := DSA_print(bp,x,off); +end; + +function Load_DSA_dup_DH(const r: PDSA): PDH; cdecl; +begin + DSA_dup_DH := LoadLibCryptoFunction('DSA_dup_DH'); + if not assigned(DSA_dup_DH) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_dup_DH'); + Result := DSA_dup_DH(r); +end; + +procedure Load_DSA_get0_pqg(const d: PDSA; const p: PPBIGNUM; const q: PPBIGNUM; const g: PPBIGNUM); cdecl; +begin + DSA_get0_pqg := LoadLibCryptoFunction('DSA_get0_pqg'); + if not assigned(DSA_get0_pqg) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_get0_pqg'); + DSA_get0_pqg(d,p,q,g); +end; + +function Load_DSA_set0_pqg(d: PDSA; p: PBIGNUM; q: PBIGNUM; g: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + DSA_set0_pqg := LoadLibCryptoFunction('DSA_set0_pqg'); + if not assigned(DSA_set0_pqg) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_set0_pqg'); + Result := DSA_set0_pqg(d,p,q,g); +end; + +procedure Load_DSA_get0_key(const d: PDSA; const pub_key: PPBIGNUM; const priv_key: PPBIGNUM); cdecl; +begin + DSA_get0_key := LoadLibCryptoFunction('DSA_get0_key'); + if not assigned(DSA_get0_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_get0_key'); + DSA_get0_key(d,pub_key,priv_key); +end; + +function Load_DSA_set0_key(d: PDSA; pub_key: PBIGNUM; priv_key: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + DSA_set0_key := LoadLibCryptoFunction('DSA_set0_key'); + if not assigned(DSA_set0_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_set0_key'); + Result := DSA_set0_key(d,pub_key,priv_key); +end; + +function Load_DSA_get0_p(const d: PDSA): PBIGNUM; cdecl; +begin + DSA_get0_p := LoadLibCryptoFunction('DSA_get0_p'); + if not assigned(DSA_get0_p) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_get0_p'); + Result := DSA_get0_p(d); +end; + +function Load_DSA_get0_q(const d: PDSA): PBIGNUM; cdecl; +begin + DSA_get0_q := LoadLibCryptoFunction('DSA_get0_q'); + if not assigned(DSA_get0_q) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_get0_q'); + Result := DSA_get0_q(d); +end; + +function Load_DSA_get0_g(const d: PDSA): PBIGNUM; cdecl; +begin + DSA_get0_g := LoadLibCryptoFunction('DSA_get0_g'); + if not assigned(DSA_get0_g) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_get0_g'); + Result := DSA_get0_g(d); +end; + +function Load_DSA_get0_pub_key(const d: PDSA): PBIGNUM; cdecl; +begin + DSA_get0_pub_key := LoadLibCryptoFunction('DSA_get0_pub_key'); + if not assigned(DSA_get0_pub_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_get0_pub_key'); + Result := DSA_get0_pub_key(d); +end; + +function Load_DSA_get0_priv_key(const d: PDSA): PBIGNUM; cdecl; +begin + DSA_get0_priv_key := LoadLibCryptoFunction('DSA_get0_priv_key'); + if not assigned(DSA_get0_priv_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_get0_priv_key'); + Result := DSA_get0_priv_key(d); +end; + +procedure Load_DSA_clear_flags(d: PDSA; flags: TOpenSSL_C_INT); cdecl; +begin + DSA_clear_flags := LoadLibCryptoFunction('DSA_clear_flags'); + if not assigned(DSA_clear_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_clear_flags'); + DSA_clear_flags(d,flags); +end; + +function Load_DSA_test_flags(const d: PDSA; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + DSA_test_flags := LoadLibCryptoFunction('DSA_test_flags'); + if not assigned(DSA_test_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_test_flags'); + Result := DSA_test_flags(d,flags); +end; + +procedure Load_DSA_set_flags(d: PDSA; flags: TOpenSSL_C_INT); cdecl; +begin + DSA_set_flags := LoadLibCryptoFunction('DSA_set_flags'); + if not assigned(DSA_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_set_flags'); + DSA_set_flags(d,flags); +end; + +function Load_DSA_get0_engine(d: PDSA): PENGINE; cdecl; +begin + DSA_get0_engine := LoadLibCryptoFunction('DSA_get0_engine'); + if not assigned(DSA_get0_engine) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_get0_engine'); + Result := DSA_get0_engine(d); +end; + +function Load_DSA_meth_new(const name: PAnsiChar; flags: TOpenSSL_C_INT): PDSA_METHOD; cdecl; +begin + DSA_meth_new := LoadLibCryptoFunction('DSA_meth_new'); + if not assigned(DSA_meth_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_new'); + Result := DSA_meth_new(name,flags); +end; + +procedure Load_DSA_meth_free(dsam: PDSA_METHOD); cdecl; +begin + DSA_meth_free := LoadLibCryptoFunction('DSA_meth_free'); + if not assigned(DSA_meth_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_free'); + DSA_meth_free(dsam); +end; + +function Load_DSA_meth_dup(const dsam: PDSA_METHOD): PDSA_METHOD; cdecl; +begin + DSA_meth_dup := LoadLibCryptoFunction('DSA_meth_dup'); + if not assigned(DSA_meth_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_dup'); + Result := DSA_meth_dup(dsam); +end; + +function Load_DSA_meth_get0_name(const dsam: PDSA_METHOD): PAnsiChar; cdecl; +begin + DSA_meth_get0_name := LoadLibCryptoFunction('DSA_meth_get0_name'); + if not assigned(DSA_meth_get0_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_get0_name'); + Result := DSA_meth_get0_name(dsam); +end; + +function Load_DSA_meth_set1_name(dsam: PDSA_METHOD; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + DSA_meth_set1_name := LoadLibCryptoFunction('DSA_meth_set1_name'); + if not assigned(DSA_meth_set1_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_set1_name'); + Result := DSA_meth_set1_name(dsam,name); +end; + +function Load_DSA_meth_get_flags(const dsam: PDSA_METHOD): TOpenSSL_C_INT; cdecl; +begin + DSA_meth_get_flags := LoadLibCryptoFunction('DSA_meth_get_flags'); + if not assigned(DSA_meth_get_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_get_flags'); + Result := DSA_meth_get_flags(dsam); +end; + +function Load_DSA_meth_set_flags(dsam: PDSA_METHOD; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + DSA_meth_set_flags := LoadLibCryptoFunction('DSA_meth_set_flags'); + if not assigned(DSA_meth_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_set_flags'); + Result := DSA_meth_set_flags(dsam,flags); +end; + +function Load_DSA_meth_get0_app_data(const dsam: PDSA_METHOD): Pointer; cdecl; +begin + DSA_meth_get0_app_data := LoadLibCryptoFunction('DSA_meth_get0_app_data'); + if not assigned(DSA_meth_get0_app_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_get0_app_data'); + Result := DSA_meth_get0_app_data(dsam); +end; + +function Load_DSA_meth_set0_app_data(dsam: PDSA_METHOD; app_data: Pointer): TOpenSSL_C_INT; cdecl; +begin + DSA_meth_set0_app_data := LoadLibCryptoFunction('DSA_meth_set0_app_data'); + if not assigned(DSA_meth_set0_app_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_set0_app_data'); + Result := DSA_meth_set0_app_data(dsam,app_data); +end; + +function Load_DSA_meth_get_sign(const dsam: PDSA_METHOD): DSA_meth_sign_cb; cdecl; +begin + DSA_meth_get_sign := LoadLibCryptoFunction('DSA_meth_get_sign'); + if not assigned(DSA_meth_get_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_get_sign'); + Result := DSA_meth_get_sign(dsam); +end; + +function Load_DSA_meth_set_sign(dsam: PDSA_METHOD; sign: DSA_meth_sign_cb): TOpenSSL_C_INT; cdecl; +begin + DSA_meth_set_sign := LoadLibCryptoFunction('DSA_meth_set_sign'); + if not assigned(DSA_meth_set_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_set_sign'); + Result := DSA_meth_set_sign(dsam,sign); +end; + +function Load_DSA_meth_get_sign_setup(const dsam: PDSA_METHOD): DSA_meth_sign_setup_cb; cdecl; +begin + DSA_meth_get_sign_setup := LoadLibCryptoFunction('DSA_meth_get_sign_setup'); + if not assigned(DSA_meth_get_sign_setup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_get_sign_setup'); + Result := DSA_meth_get_sign_setup(dsam); +end; + +function Load_DSA_meth_set_sign_setup(dsam: PDSA_METHOD; sign_setup: DSA_meth_sign_setup_cb): TOpenSSL_C_INT; cdecl; +begin + DSA_meth_set_sign_setup := LoadLibCryptoFunction('DSA_meth_set_sign_setup'); + if not assigned(DSA_meth_set_sign_setup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_set_sign_setup'); + Result := DSA_meth_set_sign_setup(dsam,sign_setup); +end; + +function Load_DSA_meth_get_verify(const dsam: PDSA_METHOD): DSA_meth_verify_cb; cdecl; +begin + DSA_meth_get_verify := LoadLibCryptoFunction('DSA_meth_get_verify'); + if not assigned(DSA_meth_get_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_get_verify'); + Result := DSA_meth_get_verify(dsam); +end; + +function Load_DSA_meth_set_verify(dsam: PDSA_METHOD; verify: DSA_meth_verify_cb): TOpenSSL_C_INT; cdecl; +begin + DSA_meth_set_verify := LoadLibCryptoFunction('DSA_meth_set_verify'); + if not assigned(DSA_meth_set_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_set_verify'); + Result := DSA_meth_set_verify(dsam,verify); +end; + +function Load_DSA_meth_get_mod_exp(const dsam: PDSA_METHOD): DSA_meth_mod_exp_cb; cdecl; +begin + DSA_meth_get_mod_exp := LoadLibCryptoFunction('DSA_meth_get_mod_exp'); + if not assigned(DSA_meth_get_mod_exp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_get_mod_exp'); + Result := DSA_meth_get_mod_exp(dsam); +end; + +function Load_DSA_meth_set_mod_exp(dsam: PDSA_METHOD; mod_exp: DSA_meth_mod_exp_cb): TOpenSSL_C_INT; cdecl; +begin + DSA_meth_set_mod_exp := LoadLibCryptoFunction('DSA_meth_set_mod_exp'); + if not assigned(DSA_meth_set_mod_exp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_set_mod_exp'); + Result := DSA_meth_set_mod_exp(dsam,mod_exp); +end; + +function Load_DSA_meth_get_bn_mod_exp(const dsam: PDSA_METHOD): DSA_meth_bn_mod_exp_cb; cdecl; +begin + DSA_meth_get_bn_mod_exp := LoadLibCryptoFunction('DSA_meth_get_bn_mod_exp'); + if not assigned(DSA_meth_get_bn_mod_exp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_get_bn_mod_exp'); + Result := DSA_meth_get_bn_mod_exp(dsam); +end; + +function Load_DSA_meth_set_bn_mod_exp(dsam: PDSA_METHOD; bn_mod_exp: DSA_meth_bn_mod_exp_cb): TOpenSSL_C_INT; cdecl; +begin + DSA_meth_set_bn_mod_exp := LoadLibCryptoFunction('DSA_meth_set_bn_mod_exp'); + if not assigned(DSA_meth_set_bn_mod_exp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_set_bn_mod_exp'); + Result := DSA_meth_set_bn_mod_exp(dsam,bn_mod_exp); +end; + +function Load_DSA_meth_get_init(const dsam: PDSA_METHOD): DSA_meth_init_cb; cdecl; +begin + DSA_meth_get_init := LoadLibCryptoFunction('DSA_meth_get_init'); + if not assigned(DSA_meth_get_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_get_init'); + Result := DSA_meth_get_init(dsam); +end; + +function Load_DSA_meth_set_init(dsam: PDSA_METHOD; init: DSA_meth_init_cb): TOpenSSL_C_INT; cdecl; +begin + DSA_meth_set_init := LoadLibCryptoFunction('DSA_meth_set_init'); + if not assigned(DSA_meth_set_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_set_init'); + Result := DSA_meth_set_init(dsam,init); +end; + +function Load_DSA_meth_get_finish(const dsam: PDSA_METHOD): DSA_meth_finish_cb; cdecl; +begin + DSA_meth_get_finish := LoadLibCryptoFunction('DSA_meth_get_finish'); + if not assigned(DSA_meth_get_finish) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_get_finish'); + Result := DSA_meth_get_finish(dsam); +end; + +function Load_DSA_meth_set_finish(dsam: PDSA_METHOD; finish: DSA_meth_finish_cb): TOpenSSL_C_INT; cdecl; +begin + DSA_meth_set_finish := LoadLibCryptoFunction('DSA_meth_set_finish'); + if not assigned(DSA_meth_set_finish) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_set_finish'); + Result := DSA_meth_set_finish(dsam,finish); +end; + +function Load_DSA_meth_get_paramgen(const dsam: PDSA_METHOD): DSA_meth_paramgen_cb; cdecl; +begin + DSA_meth_get_paramgen := LoadLibCryptoFunction('DSA_meth_get_paramgen'); + if not assigned(DSA_meth_get_paramgen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_get_paramgen'); + Result := DSA_meth_get_paramgen(dsam); +end; + +function Load_DSA_meth_set_paramgen(dsam: PDSA_METHOD; paramgen: DSA_meth_paramgen_cb): TOpenSSL_C_INT; cdecl; +begin + DSA_meth_set_paramgen := LoadLibCryptoFunction('DSA_meth_set_paramgen'); + if not assigned(DSA_meth_set_paramgen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_set_paramgen'); + Result := DSA_meth_set_paramgen(dsam,paramgen); +end; + +function Load_DSA_meth_get_keygen(const dsam: PDSA_METHOD): DSA_meth_keygen_cb; cdecl; +begin + DSA_meth_get_keygen := LoadLibCryptoFunction('DSA_meth_get_keygen'); + if not assigned(DSA_meth_get_keygen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_get_keygen'); + Result := DSA_meth_get_keygen(dsam); +end; + +function Load_DSA_meth_set_keygen(dsam: PDSA_METHOD; keygen: DSA_meth_keygen_cb): TOpenSSL_C_INT; cdecl; +begin + DSA_meth_set_keygen := LoadLibCryptoFunction('DSA_meth_set_keygen'); + if not assigned(DSA_meth_set_keygen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DSA_meth_set_keygen'); + Result := DSA_meth_set_keygen(dsam,keygen); +end; + + +procedure UnLoad; +begin + DSAparams_dup := Load_DSAparams_dup; + DSA_SIG_new := Load_DSA_SIG_new; + DSA_SIG_free := Load_DSA_SIG_free; + i2d_DSA_SIG := Load_i2d_DSA_SIG; + d2i_DSA_SIG := Load_d2i_DSA_SIG; + DSA_SIG_get0 := Load_DSA_SIG_get0; + DSA_SIG_set0 := Load_DSA_SIG_set0; + DSA_do_sign := Load_DSA_do_sign; + DSA_do_verify := Load_DSA_do_verify; + DSA_OpenSSL := Load_DSA_OpenSSL; + DSA_set_default_method := Load_DSA_set_default_method; + DSA_get_default_method := Load_DSA_get_default_method; + DSA_set_method := Load_DSA_set_method; + DSA_get_method := Load_DSA_get_method; + DSA_new := Load_DSA_new; + DSA_new_method := Load_DSA_new_method; + DSA_free := Load_DSA_free; + DSA_up_ref := Load_DSA_up_ref; + DSA_size := Load_DSA_size; + DSA_bits := Load_DSA_bits; + DSA_security_bits := Load_DSA_security_bits; + DSA_sign := Load_DSA_sign; + DSA_verify := Load_DSA_verify; + DSA_set_ex_data := Load_DSA_set_ex_data; + DSA_get_ex_data := Load_DSA_get_ex_data; + d2i_DSAPublicKey := Load_d2i_DSAPublicKey; + d2i_DSAPrivateKey := Load_d2i_DSAPrivateKey; + d2i_DSAparams := Load_d2i_DSAparams; + DSA_generate_parameters_ex := Load_DSA_generate_parameters_ex; + DSA_generate_key := Load_DSA_generate_key; + i2d_DSAPublicKey := Load_i2d_DSAPublicKey; + i2d_DSAPrivateKey := Load_i2d_DSAPrivateKey; + i2d_DSAparams := Load_i2d_DSAparams; + DSAparams_print := Load_DSAparams_print; + DSA_print := Load_DSA_print; + DSA_dup_DH := Load_DSA_dup_DH; + DSA_get0_pqg := Load_DSA_get0_pqg; + DSA_set0_pqg := Load_DSA_set0_pqg; + DSA_get0_key := Load_DSA_get0_key; + DSA_set0_key := Load_DSA_set0_key; + DSA_get0_p := Load_DSA_get0_p; + DSA_get0_q := Load_DSA_get0_q; + DSA_get0_g := Load_DSA_get0_g; + DSA_get0_pub_key := Load_DSA_get0_pub_key; + DSA_get0_priv_key := Load_DSA_get0_priv_key; + DSA_clear_flags := Load_DSA_clear_flags; + DSA_test_flags := Load_DSA_test_flags; + DSA_set_flags := Load_DSA_set_flags; + DSA_get0_engine := Load_DSA_get0_engine; + DSA_meth_new := Load_DSA_meth_new; + DSA_meth_free := Load_DSA_meth_free; + DSA_meth_dup := Load_DSA_meth_dup; + DSA_meth_get0_name := Load_DSA_meth_get0_name; + DSA_meth_set1_name := Load_DSA_meth_set1_name; + DSA_meth_get_flags := Load_DSA_meth_get_flags; + DSA_meth_set_flags := Load_DSA_meth_set_flags; + DSA_meth_get0_app_data := Load_DSA_meth_get0_app_data; + DSA_meth_set0_app_data := Load_DSA_meth_set0_app_data; + DSA_meth_get_sign := Load_DSA_meth_get_sign; + DSA_meth_set_sign := Load_DSA_meth_set_sign; + DSA_meth_get_sign_setup := Load_DSA_meth_get_sign_setup; + DSA_meth_set_sign_setup := Load_DSA_meth_set_sign_setup; + DSA_meth_get_verify := Load_DSA_meth_get_verify; + DSA_meth_set_verify := Load_DSA_meth_set_verify; + DSA_meth_get_mod_exp := Load_DSA_meth_get_mod_exp; + DSA_meth_set_mod_exp := Load_DSA_meth_set_mod_exp; + DSA_meth_get_bn_mod_exp := Load_DSA_meth_get_bn_mod_exp; + DSA_meth_set_bn_mod_exp := Load_DSA_meth_set_bn_mod_exp; + DSA_meth_get_init := Load_DSA_meth_get_init; + DSA_meth_set_init := Load_DSA_meth_set_init; + DSA_meth_get_finish := Load_DSA_meth_get_finish; + DSA_meth_set_finish := Load_DSA_meth_set_finish; + DSA_meth_get_paramgen := Load_DSA_meth_get_paramgen; + DSA_meth_set_paramgen := Load_DSA_meth_set_paramgen; + DSA_meth_get_keygen := Load_DSA_meth_get_keygen; + DSA_meth_set_keygen := Load_DSA_meth_set_keygen; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_dsaerr.pas b/src/opensslHdrs/IdOpenSSLHeaders_dsaerr.pas new file mode 100644 index 0000000..f99e603 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_dsaerr.pas @@ -0,0 +1,141 @@ +(* This unit was generated from the source file dsaerr.h2pas +It should not be modified directly. All changes should be made to dsaerr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_dsaerr; + + +interface + +// Headers for OpenSSL 1.1.1 +// dsaerr.h + + +uses + IdSSLOpenSSLAPI; + +const + ///* + // * DSA function codes. + // */ + DSA_F_DSAPARAMS_PRINT = 100; + DSA_F_DSAPARAMS_PRINT_FP = 101; + DSA_F_DSA_BUILTIN_PARAMGEN = 125; + DSA_F_DSA_BUILTIN_PARAMGEN2 = 126; + DSA_F_DSA_DO_SIGN = 112; + DSA_F_DSA_DO_VERIFY = 113; + DSA_F_DSA_METH_DUP = 127; + DSA_F_DSA_METH_NEW = 128; + DSA_F_DSA_METH_SET1_NAME = 129; + DSA_F_DSA_NEW_METHOD = 103; + DSA_F_DSA_PARAM_DECODE = 119; + DSA_F_DSA_PRINT_FP = 105; + DSA_F_DSA_PRIV_DECODE = 115; + DSA_F_DSA_PRIV_ENCODE = 116; + DSA_F_DSA_PUB_DECODE = 117; + DSA_F_DSA_PUB_ENCODE = 118; + DSA_F_DSA_SIGN = 106; + DSA_F_DSA_SIGN_SETUP = 107; + DSA_F_DSA_SIG_NEW = 102; + DSA_F_OLD_DSA_PRIV_DECODE = 122; + DSA_F_PKEY_DSA_CTRL = 120; + DSA_F_PKEY_DSA_CTRL_STR = 104; + DSA_F_PKEY_DSA_KEYGEN = 121; + + ///* + // * DSA reason codes. + // */ + DSA_R_BAD_Q_VALUE = 102; + DSA_R_BN_DECODE_ERROR = 108; + DSA_R_BN_ERROR = 109; + DSA_R_DECODE_ERROR = 104; + DSA_R_INVALID_DIGEST_TYPE = 106; + DSA_R_INVALID_PARAMETERS = 112; + DSA_R_MISSING_PARAMETERS = 101; + DSA_R_MISSING_PRIVATE_KEY = 111; + DSA_R_MODULUS_TOO_LARGE = 103; + DSA_R_NO_PARAMETERS_SET = 107; + DSA_R_PARAMETER_ENCODING_ERROR = 105; + DSA_R_Q_NOT_PRIME = 113; + DSA_R_SEED_LEN_SMALL = 110; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_DSA_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_DSA_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_DSA_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_DSA_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_DSA_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_DSA_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_DSA_strings := LoadLibCryptoFunction('ERR_load_DSA_strings'); + if not assigned(ERR_load_DSA_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_DSA_strings'); + Result := ERR_load_DSA_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_DSA_strings := Load_ERR_load_DSA_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_ebcdic.pas b/src/opensslHdrs/IdOpenSSLHeaders_ebcdic.pas new file mode 100644 index 0000000..fc46866 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_ebcdic.pas @@ -0,0 +1,113 @@ +(* This unit was generated from the source file ebcdic.h2pas +It should not be modified directly. All changes should be made to ebcdic.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_ebcdic; + + +interface + +// Headers for OpenSSL 1.1.1 +// ebcdic.h + + +uses + IdSSLOpenSSLAPI; + + + //extern const unsigned char os_toascii[256]; + //extern const unsigned char os_toebcdic[256]; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ebcdic2ascii} +{$EXTERNALSYM ascii2ebcdic} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ebcdic2ascii(dest: Pointer; const srce: Pointer; count: TOpenSSL_C_SIZET): Pointer; cdecl; external CLibCrypto; +function ascii2ebcdic(dest: Pointer; const srce: Pointer; count: TOpenSSL_C_SIZET): Pointer; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ebcdic2ascii(dest: Pointer; const srce: Pointer; count: TOpenSSL_C_SIZET): Pointer; cdecl; +function Load_ascii2ebcdic(dest: Pointer; const srce: Pointer; count: TOpenSSL_C_SIZET): Pointer; cdecl; + +var + ebcdic2ascii: function (dest: Pointer; const srce: Pointer; count: TOpenSSL_C_SIZET): Pointer; cdecl = Load_ebcdic2ascii; + ascii2ebcdic: function (dest: Pointer; const srce: Pointer; count: TOpenSSL_C_SIZET): Pointer; cdecl = Load_ascii2ebcdic; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ebcdic2ascii(dest: Pointer; const srce: Pointer; count: TOpenSSL_C_SIZET): Pointer; cdecl; +begin + ebcdic2ascii := LoadLibCryptoFunction('ebcdic2ascii'); + if not assigned(ebcdic2ascii) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ebcdic2ascii'); + Result := ebcdic2ascii(dest,srce,count); +end; + +function Load_ascii2ebcdic(dest: Pointer; const srce: Pointer; count: TOpenSSL_C_SIZET): Pointer; cdecl; +begin + ascii2ebcdic := LoadLibCryptoFunction('ascii2ebcdic'); + if not assigned(ascii2ebcdic) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ascii2ebcdic'); + Result := ascii2ebcdic(dest,srce,count); +end; + + +procedure UnLoad; +begin + ebcdic2ascii := Load_ebcdic2ascii; + ascii2ebcdic := Load_ascii2ebcdic; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_ec.pas b/src/opensslHdrs/IdOpenSSLHeaders_ec.pas new file mode 100644 index 0000000..71dbf31 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_ec.pas @@ -0,0 +1,2511 @@ +(* This unit was generated from the source file ec.h2pas +It should not be modified directly. All changes should be made to ec.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_ec; + + +interface + +// Headers for OpenSSL 1.1.1 +// ec.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_evp; + +const + OPENSSL_EC_EXPLICIT_CURVE = $000; + OPENSSL_EC_NAMED_CURVE = $001; + EC_PKEY_NO_PARAMETERS = $001; + EC_PKEY_NO_PUBKEY = $002; + EC_FLAG_NON_FIPS_ALLOW = $1; + EC_FLAG_FIPS_CHECKED = $2; + EC_FLAG_COFACTOR_ECDH = $1000; + EVP_PKEY_CTRL_EC_PARAMGEN_CURVE_NID = (EVP_PKEY_ALG_CTRL + 1); + EVP_PKEY_CTRL_EC_PARAM_ENC = (EVP_PKEY_ALG_CTRL + 2); + EVP_PKEY_CTRL_EC_ECDH_COFACTOR = (EVP_PKEY_ALG_CTRL + 3); + EVP_PKEY_CTRL_EC_KDF_TYPE = (EVP_PKEY_ALG_CTRL + 4); + EVP_PKEY_CTRL_EC_KDF_MD = (EVP_PKEY_ALG_CTRL + 5); + EVP_PKEY_CTRL_GET_EC_KDF_MD = (EVP_PKEY_ALG_CTRL + 6); + EVP_PKEY_CTRL_EC_KDF_OUTLEN = (EVP_PKEY_ALG_CTRL + 7); + EVP_PKEY_CTRL_GET_EC_KDF_OUTLEN = (EVP_PKEY_ALG_CTRL + 8); + EVP_PKEY_CTRL_EC_KDF_UKM = (EVP_PKEY_ALG_CTRL + 9); + EVP_PKEY_CTRL_GET_EC_KDF_UKM = (EVP_PKEY_ALG_CTRL + 10); + EVP_PKEY_CTRL_SET1_ID = (EVP_PKEY_ALG_CTRL + 11); + EVP_PKEY_CTRL_GET1_ID = (EVP_PKEY_ALG_CTRL + 12); + EVP_PKEY_CTRL_GET1_ID_LEN = (EVP_PKEY_ALG_CTRL + 13); + EVP_PKEY_ECDH_KDF_NONE = 1; + EVP_PKEY_ECDH_KDF_X9_63 = 2; + EVP_PKEY_ECDH_KDF_X9_62 = EVP_PKEY_ECDH_KDF_X9_63; + +type + {$MINENUMSIZE 4} + point_conversion_form_t = ( + POINT_CONVERSION_COMPRESSED = 2, + POINT_CONVERSION_UNCOMPRESSED = 4, + POINT_CONVERSION_HYBRID = 6 + ); + + EC_METHOD = type Pointer; // ec_method_st + PEC_METHOD = ^EC_METHOD; + + EC_GROUP = type Pointer; // ec_group_st + PEC_GROUP = ^EC_GROUP; + PPEC_GROUP = ^PEC_GROUP; + + EC_POINT = type Pointer; // ec_point_st + PEC_POINT = ^EC_POINT; + PPEC_POINT = ^PEC_POINT; + + ECPKPARAMETERS = type Pointer; // ecpk_parameters_st + PECPKPARAMETERS = ^ECPKPARAMETERS; + + ECPARAMETERS = type Pointer; // ec_parameters_st + PECPARAMETERS = ^ECPARAMETERS; + + EC_builtin_curve = record + nid: TOpenSSL_C_INT; + comment: PAnsiChar; + end; + PEC_builtin_curve = ^EC_builtin_curve; + + ECDSA_SIG = type Pointer; // ECDSA_SIG_st + PECDSA_SIG = ^ECDSA_SIG; + PPECDSA_SIG = ^PECDSA_SIG; + + ECDH_compute_key_KDF = function(const in_: Pointer; inlen: TOpenSSL_C_SIZET; out_: Pointer; outlen: POpenSSL_C_SIZET): Pointer; cdecl; + + EC_KEY_METHOD_init_init = function(key: PEC_KEY): TOpenSSL_C_INT; cdecl; + EC_KEY_METHOD_init_finish = procedure(key: PEC_KEY); cdecl; + EC_KEY_METHOD_init_copy = function(dest: PEC_KEY; const src: PEC_KEY): TOpenSSL_C_INT; cdecl; + EC_KEY_METHOD_init_set_group = function(key: PEC_KEY; const grp: PEC_GROUP): TOpenSSL_C_INT; cdecl; + EC_KEY_METHOD_init_set_private = function(key: PEC_KEY; const priv_key: PBIGNUM): TOpenSSL_C_INT; cdecl; + EC_KEY_METHOD_init_set_public = function(key: PEC_KEY; const pub_key: PEC_POINT): TOpenSSL_C_INT; cdecl; + + EC_KEY_METHOD_keygen_keygen = function(key: PEC_KEY): TOpenSSL_C_INT; cdecl; + + EC_KEY_METHOD_compute_key_ckey = function(psec: PPByte; pseclen: POpenSSL_C_SIZET; const pub_key: PEC_POINT; const ecdh: PEC_KEY): TOpenSSL_C_INT; cdecl; + + EC_KEY_METHOD_sign_sign = function(type_: TOpenSSL_C_INT; const dgst: PByte; dlen: TOpenSSL_C_INT; sig: PByte; siglen: POpenSSL_C_UINT; const kinv: PBIGNUM; const r: PBIGNUM; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; + EC_KEY_METHOD_sign_sign_setup = function(eckey: PEC_KEY; ctx_in: PBN_CTX; kinvp: PPBIGNUM; rp: PPBIGNUM): TOpenSSL_C_INT; cdecl; + EC_KEY_METHOD_sign_sign_sig = function(const dgst: PByte; dgst_len: TOpenSSL_C_INT; const in_kinv: PBIGNUM; const in_r: PBIGNUM; eckey: PEC_KEY): PECDSA_SIG; cdecl; + + EC_KEY_METHOD_verify_verify = function(type_: TOpenSSL_C_INT; const dgst: PByte; dgst_len: TOpenSSL_C_INT; const sigbuf: PByte; sig_len: TOpenSSL_C_INT; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; + EC_KEY_METHOD_verify_verify_sig = function(const dgst: PByte; dgst_len: TOpenSSL_C_INT; const sig: PECDSA_SIG; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; + + PEC_KEY_METHOD_init_init = ^EC_KEY_METHOD_init_init; + PEC_KEY_METHOD_init_finish = ^EC_KEY_METHOD_init_finish; + PEC_KEY_METHOD_init_copy = ^EC_KEY_METHOD_init_copy; + PEC_KEY_METHOD_init_set_group = ^EC_KEY_METHOD_init_set_group; + PEC_KEY_METHOD_init_set_private = ^EC_KEY_METHOD_init_set_private; + PEC_KEY_METHOD_init_set_public = ^EC_KEY_METHOD_init_set_public; + + PEC_KEY_METHOD_keygen_keygen = ^EC_KEY_METHOD_keygen_keygen; + + PEC_KEY_METHOD_compute_key_ckey = ^EC_KEY_METHOD_compute_key_ckey; + + PEC_KEY_METHOD_sign_sign = ^EC_KEY_METHOD_sign_sign; + PEC_KEY_METHOD_sign_sign_setup = ^EC_KEY_METHOD_sign_sign_setup; + PEC_KEY_METHOD_sign_sign_sig = ^EC_KEY_METHOD_sign_sign_sig; + + PEC_KEY_METHOD_verify_verify = ^EC_KEY_METHOD_verify_verify; + PEC_KEY_METHOD_verify_verify_sig = ^EC_KEY_METHOD_verify_verify_sig; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM EC_GFp_simple_method} +{$EXTERNALSYM EC_GFp_mont_method} +{$EXTERNALSYM EC_GFp_nist_method} +{$EXTERNALSYM EC_GF2m_simple_method} +{$EXTERNALSYM EC_GROUP_new} +{$EXTERNALSYM EC_GROUP_free} +{$EXTERNALSYM EC_GROUP_clear_free} +{$EXTERNALSYM EC_GROUP_copy} +{$EXTERNALSYM EC_GROUP_dup} +{$EXTERNALSYM EC_GROUP_method_of} +{$EXTERNALSYM EC_METHOD_get_field_type} +{$EXTERNALSYM EC_GROUP_set_generator} +{$EXTERNALSYM EC_GROUP_get0_generator} +{$EXTERNALSYM EC_GROUP_get_mont_data} +{$EXTERNALSYM EC_GROUP_get_order} +{$EXTERNALSYM EC_GROUP_get0_order} +{$EXTERNALSYM EC_GROUP_order_bits} +{$EXTERNALSYM EC_GROUP_get_cofactor} +{$EXTERNALSYM EC_GROUP_get0_cofactor} +{$EXTERNALSYM EC_GROUP_set_curve_name} +{$EXTERNALSYM EC_GROUP_get_curve_name} +{$EXTERNALSYM EC_GROUP_set_asn1_flag} +{$EXTERNALSYM EC_GROUP_get_asn1_flag} +{$EXTERNALSYM EC_GROUP_set_point_conversion_form} +{$EXTERNALSYM EC_GROUP_get_point_conversion_form} +{$EXTERNALSYM EC_GROUP_get0_seed} +{$EXTERNALSYM EC_GROUP_get_seed_len} +{$EXTERNALSYM EC_GROUP_set_seed} +{$EXTERNALSYM EC_GROUP_set_curve} +{$EXTERNALSYM EC_GROUP_get_curve} +{$EXTERNALSYM EC_GROUP_set_curve_GFp} +{$EXTERNALSYM EC_GROUP_get_curve_GFp} +{$EXTERNALSYM EC_GROUP_set_curve_GF2m} +{$EXTERNALSYM EC_GROUP_get_curve_GF2m} +{$EXTERNALSYM EC_GROUP_get_degree} +{$EXTERNALSYM EC_GROUP_check} +{$EXTERNALSYM EC_GROUP_check_discriminant} +{$EXTERNALSYM EC_GROUP_cmp} +{$EXTERNALSYM EC_GROUP_new_curve_GFp} +{$EXTERNALSYM EC_GROUP_new_curve_GF2m} +{$EXTERNALSYM EC_GROUP_new_by_curve_name} +{$EXTERNALSYM EC_GROUP_new_from_ecparameters} +{$EXTERNALSYM EC_GROUP_get_ecparameters} +{$EXTERNALSYM EC_GROUP_new_from_ecpkparameters} +{$EXTERNALSYM EC_GROUP_get_ecpkparameters} +{$EXTERNALSYM EC_get_builtin_curves} +{$EXTERNALSYM EC_curve_nid2nist} +{$EXTERNALSYM EC_curve_nist2nid} +{$EXTERNALSYM EC_POINT_new} +{$EXTERNALSYM EC_POINT_free} +{$EXTERNALSYM EC_POINT_clear_free} +{$EXTERNALSYM EC_POINT_copy} +{$EXTERNALSYM EC_POINT_dup} +{$EXTERNALSYM EC_POINT_method_of} +{$EXTERNALSYM EC_POINT_set_to_infinity} +{$EXTERNALSYM EC_POINT_set_Jprojective_coordinates_GFp} +{$EXTERNALSYM EC_POINT_get_Jprojective_coordinates_GFp} +{$EXTERNALSYM EC_POINT_set_affine_coordinates} +{$EXTERNALSYM EC_POINT_get_affine_coordinates} +{$EXTERNALSYM EC_POINT_set_affine_coordinates_GFp} +{$EXTERNALSYM EC_POINT_get_affine_coordinates_GFp} +{$EXTERNALSYM EC_POINT_set_compressed_coordinates} +{$EXTERNALSYM EC_POINT_set_compressed_coordinates_GFp} +{$EXTERNALSYM EC_POINT_set_affine_coordinates_GF2m} +{$EXTERNALSYM EC_POINT_get_affine_coordinates_GF2m} +{$EXTERNALSYM EC_POINT_set_compressed_coordinates_GF2m} +{$EXTERNALSYM EC_POINT_point2oct} +{$EXTERNALSYM EC_POINT_oct2point} +{$EXTERNALSYM EC_POINT_point2buf} +{$EXTERNALSYM EC_POINT_point2bn} +{$EXTERNALSYM EC_POINT_bn2point} +{$EXTERNALSYM EC_POINT_point2hex} +{$EXTERNALSYM EC_POINT_hex2point} +{$EXTERNALSYM EC_POINT_add} +{$EXTERNALSYM EC_POINT_dbl} +{$EXTERNALSYM EC_POINT_invert} +{$EXTERNALSYM EC_POINT_is_at_infinity} +{$EXTERNALSYM EC_POINT_is_on_curve} +{$EXTERNALSYM EC_POINT_cmp} +{$EXTERNALSYM EC_POINT_make_affine} +{$EXTERNALSYM EC_POINTs_make_affine} +{$EXTERNALSYM EC_POINTs_mul} +{$EXTERNALSYM EC_POINT_mul} +{$EXTERNALSYM EC_GROUP_precompute_mult} +{$EXTERNALSYM EC_GROUP_have_precompute_mult} +{$EXTERNALSYM ECPKPARAMETERS_it} +{$EXTERNALSYM ECPKPARAMETERS_new} +{$EXTERNALSYM ECPKPARAMETERS_free} +{$EXTERNALSYM ECPARAMETERS_it} +{$EXTERNALSYM ECPARAMETERS_new} +{$EXTERNALSYM ECPARAMETERS_free} +{$EXTERNALSYM EC_GROUP_get_basis_type} +{$EXTERNALSYM EC_GROUP_get_trinomial_basis} +{$EXTERNALSYM EC_GROUP_get_pentanomial_basis} +{$EXTERNALSYM d2i_ECPKParameters} +{$EXTERNALSYM i2d_ECPKParameters} +{$EXTERNALSYM ECPKParameters_print} +{$EXTERNALSYM EC_KEY_new} +{$EXTERNALSYM EC_KEY_get_flags} +{$EXTERNALSYM EC_KEY_set_flags} +{$EXTERNALSYM EC_KEY_clear_flags} +{$EXTERNALSYM EC_KEY_new_by_curve_name} +{$EXTERNALSYM EC_KEY_free} +{$EXTERNALSYM EC_KEY_copy} +{$EXTERNALSYM EC_KEY_dup} +{$EXTERNALSYM EC_KEY_up_ref} +{$EXTERNALSYM EC_KEY_get0_engine} +{$EXTERNALSYM EC_KEY_get0_group} +{$EXTERNALSYM EC_KEY_set_group} +{$EXTERNALSYM EC_KEY_get0_private_key} +{$EXTERNALSYM EC_KEY_set_private_key} +{$EXTERNALSYM EC_KEY_get0_public_key} +{$EXTERNALSYM EC_KEY_set_public_key} +{$EXTERNALSYM EC_KEY_get_enc_flags} +{$EXTERNALSYM EC_KEY_set_enc_flags} +{$EXTERNALSYM EC_KEY_get_conv_form} +{$EXTERNALSYM EC_KEY_set_conv_form} +{$EXTERNALSYM EC_KEY_set_ex_data} +{$EXTERNALSYM EC_KEY_get_ex_data} +{$EXTERNALSYM EC_KEY_set_asn1_flag} +{$EXTERNALSYM EC_KEY_precompute_mult} +{$EXTERNALSYM EC_KEY_generate_key} +{$EXTERNALSYM EC_KEY_check_key} +{$EXTERNALSYM EC_KEY_can_sign} +{$EXTERNALSYM EC_KEY_set_public_key_affine_coordinates} +{$EXTERNALSYM EC_KEY_key2buf} +{$EXTERNALSYM EC_KEY_oct2key} +{$EXTERNALSYM EC_KEY_oct2priv} +{$EXTERNALSYM EC_KEY_priv2oct} +{$EXTERNALSYM EC_KEY_priv2buf} +{$EXTERNALSYM d2i_ECPrivateKey} +{$EXTERNALSYM i2d_ECPrivateKey} +{$EXTERNALSYM o2i_ECPublicKey} +{$EXTERNALSYM i2o_ECPublicKey} +{$EXTERNALSYM ECParameters_print} +{$EXTERNALSYM EC_KEY_print} +{$EXTERNALSYM EC_KEY_OpenSSL} +{$EXTERNALSYM EC_KEY_get_default_method} +{$EXTERNALSYM EC_KEY_set_default_method} +{$EXTERNALSYM EC_KEY_get_method} +{$EXTERNALSYM EC_KEY_set_method} +{$EXTERNALSYM EC_KEY_new_method} +{$EXTERNALSYM ECDH_KDF_X9_62} +{$EXTERNALSYM ECDH_compute_key} +{$EXTERNALSYM ECDSA_SIG_new} +{$EXTERNALSYM ECDSA_SIG_free} +{$EXTERNALSYM i2d_ECDSA_SIG} +{$EXTERNALSYM d2i_ECDSA_SIG} +{$EXTERNALSYM ECDSA_SIG_get0} +{$EXTERNALSYM ECDSA_SIG_get0_r} +{$EXTERNALSYM ECDSA_SIG_get0_s} +{$EXTERNALSYM ECDSA_SIG_set0} +{$EXTERNALSYM ECDSA_do_sign} +{$EXTERNALSYM ECDSA_do_sign_ex} +{$EXTERNALSYM ECDSA_do_verify} +{$EXTERNALSYM ECDSA_sign_setup} +{$EXTERNALSYM ECDSA_sign} +{$EXTERNALSYM ECDSA_sign_ex} +{$EXTERNALSYM ECDSA_verify} +{$EXTERNALSYM ECDSA_size} +{$EXTERNALSYM EC_KEY_METHOD_new} +{$EXTERNALSYM EC_KEY_METHOD_free} +{$EXTERNALSYM EC_KEY_METHOD_set_init} +{$EXTERNALSYM EC_KEY_METHOD_set_keygen} +{$EXTERNALSYM EC_KEY_METHOD_set_compute_key} +{$EXTERNALSYM EC_KEY_METHOD_set_sign} +{$EXTERNALSYM EC_KEY_METHOD_set_verify} +{$EXTERNALSYM EC_KEY_METHOD_get_init} +{$EXTERNALSYM EC_KEY_METHOD_get_keygen} +{$EXTERNALSYM EC_KEY_METHOD_get_compute_key} +{$EXTERNALSYM EC_KEY_METHOD_get_sign} +{$EXTERNALSYM EC_KEY_METHOD_get_verify} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function EC_GFp_simple_method: PEC_METHOD; cdecl; external CLibCrypto; +function EC_GFp_mont_method: PEC_METHOD; cdecl; external CLibCrypto; +function EC_GFp_nist_method: PEC_METHOD; cdecl; external CLibCrypto; +function EC_GF2m_simple_method: PEC_METHOD; cdecl; external CLibCrypto; +function EC_GROUP_new(const meth: PEC_METHOD): PEC_GROUP; cdecl; external CLibCrypto; +procedure EC_GROUP_free(group: PEC_GROUP); cdecl; external CLibCrypto; +procedure EC_GROUP_clear_free(group: PEC_GROUP); cdecl; external CLibCrypto; +function EC_GROUP_copy(dst: PEC_GROUP; const src: PEC_GROUP): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_dup(const src: PEC_GROUP): PEC_GROUP; cdecl; external CLibCrypto; +function EC_GROUP_method_of(const group: PEC_GROUP): PEC_GROUP; cdecl; external CLibCrypto; +function EC_METHOD_get_field_type(const meth: PEC_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_set_generator(group: PEC_GROUP; const generator: PEC_POINT; const order: PBIGNUM; const cofactor: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_get0_generator(const group: PEC_GROUP): PEC_POINT; cdecl; external CLibCrypto; +function EC_GROUP_get_mont_data(const group: PEC_GROUP): PBN_MONT_CTX; cdecl; external CLibCrypto; +function EC_GROUP_get_order(const group: PEC_GROUP; order: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_get0_order(const group: PEC_GROUP): PBIGNUM; cdecl; external CLibCrypto; +function EC_GROUP_order_bits(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_get_cofactor(const group: PEC_GROUP; cofactor: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_get0_cofactor(const group: PEC_GROUP): PBIGNUM; cdecl; external CLibCrypto; +procedure EC_GROUP_set_curve_name(group: PEC_GROUP; nid: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function EC_GROUP_get_curve_name(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure EC_GROUP_set_asn1_flag(group: PEC_GROUP; flag: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function EC_GROUP_get_asn1_flag(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure EC_GROUP_set_point_conversion_form(group: PEC_GROUP; form: point_conversion_form_t); cdecl; external CLibCrypto; +function EC_GROUP_get_point_conversion_form(const group: PEC_GROUP): point_conversion_form_t; cdecl; external CLibCrypto; +function EC_GROUP_get0_seed(const x: PEC_GROUP): PByte; cdecl; external CLibCrypto; +function EC_GROUP_get_seed_len(const x: PEC_GROUP): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function EC_GROUP_set_seed(x: PEC_GROUP; const p: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function EC_GROUP_set_curve(group: PEC_GROUP; const p: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_get_curve(const group: PEC_GROUP; p: PBIGNUM; a: PBIGNUM; b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_set_curve_GFp(group: PEC_GROUP; const p: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_get_curve_GFp(const group: PEC_GROUP; p: PBIGNUM; a: PBIGNUM; b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_set_curve_GF2m(group: PEC_GROUP; const p: PBIGNUM; const a: PBIGNUM; const b:PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_get_curve_GF2m(const group: PEC_GROUP; p: PBIGNUM; a: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_get_degree(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_check(const group: PEC_GROUP; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_check_discriminant(const group: PEC_GROUP; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_cmp(const a: PEC_GROUP; const b: PEC_GROUP; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_new_curve_GFp(const p: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): PEC_GROUP; cdecl; external CLibCrypto; +function EC_GROUP_new_curve_GF2m(const p: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): PEC_GROUP; cdecl; external CLibCrypto; +function EC_GROUP_new_by_curve_name(nid: TOpenSSL_C_INT): PEC_GROUP; cdecl; external CLibCrypto; +function EC_GROUP_new_from_ecparameters(const params: PECPARAMETERS): PEC_GROUP; cdecl; external CLibCrypto; +function EC_GROUP_get_ecparameters(const group: PEC_GROUP; params: PECPARAMETERS): PECPARAMETERS; cdecl; external CLibCrypto; +function EC_GROUP_new_from_ecpkparameters(const params: PECPKPARAMETERS): PEC_GROUP; cdecl; external CLibCrypto; +function EC_GROUP_get_ecpkparameters(const group: PEC_GROUP; params: PECPKPARAMETERS): PECPKPARAMETERS; cdecl; external CLibCrypto; +function EC_get_builtin_curves(r: PEC_builtin_curve; nitems: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function EC_curve_nid2nist(nid: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibCrypto; +function EC_curve_nist2nid(const name: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_new(const group: PEC_GROUP): PEC_POINT; cdecl; external CLibCrypto; +procedure EC_POINT_free(point: PEC_POINT); cdecl; external CLibCrypto; +procedure EC_POINT_clear_free(point: PEC_POINT); cdecl; external CLibCrypto; +function EC_POINT_copy(dst: PEC_POINT; const src: PEC_POINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_dup(const src: PEC_POINT; const group: PEC_GROUP): PEC_POINT; cdecl; external CLibCrypto; +function EC_POINT_method_of(const point: PEC_POINT): PEC_METHOD; cdecl; external CLibCrypto; +function EC_POINT_set_to_infinity(const group: PEC_GROUP; point: PEC_POINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_set_Jprojective_coordinates_GFp(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; const y: PBIGNUM; const z: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_get_Jprojective_coordinates_GFp(const group: PEC_METHOD; const p: PEC_POINT; x: PBIGNUM; y: PBIGNUM; z: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_set_affine_coordinates(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; const y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_get_affine_coordinates(const group: PEC_GROUP; const p: PEC_POINT; x: PBIGNUM; y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_set_affine_coordinates_GFp(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; const y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_get_affine_coordinates_GFp(const group: PEC_GROUP; const p: PEC_POINT; x: PBIGNUM; y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_set_compressed_coordinates(const group: PEC_GROUP; p: PEC_POINT; x: PBIGNUM; y_bit: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_set_compressed_coordinates_GFp(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; y_bit: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_set_affine_coordinates_GF2m(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; const y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_get_affine_coordinates_GF2m(const group: PEC_GROUP; p: PEC_POINT; x: PBIGNUM; y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_set_compressed_coordinates_GF2m(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; y_bit: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_point2oct(const group: PEC_GROUP; const p: PEC_POINT; form: point_conversion_form_t; buf: PByte; len: TOpenSSL_C_SIZET; ctx: PBN_CTX): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function EC_POINT_oct2point(const group: PEC_GROUP; p: PEC_POINT; const buf: PByte; len: TOpenSSL_C_SIZET; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_point2buf(const group: PEC_GROUP; const point: PEC_POINT; form: point_conversion_form_t; pbuf: PPByte; ctx: PBN_CTX): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function EC_POINT_point2bn(const group: PEC_GROUP; const p: PEC_POINT; form: point_conversion_form_t; bn: PBIGNUM; ctx: PBN_CTX): PBIGNUM; cdecl; external CLibCrypto; +function EC_POINT_bn2point(const group: PEC_GROUP; const bn: PBIGNUM; p: PEC_POINT; ctx: PBN_CTX): PEC_POINT; cdecl; external CLibCrypto; +function EC_POINT_point2hex(const group: PEC_GROUP; const p: PEC_POINT; form: point_conversion_form_t; ctx: PBN_CTX): PAnsiChar; cdecl; external CLibCrypto; +function EC_POINT_hex2point(const group: PEC_GROUP; const buf: PAnsiChar; p: PEC_POINT; ctx: PBN_CTX): PEC_POINT; cdecl; external CLibCrypto; +function EC_POINT_add(const group: PEC_GROUP; r: PEC_POINT; const a: PEC_POINT; const b: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_dbl(const group: PEC_GROUP; r: PEC_POINT; const a: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_invert(const group: PEC_GROUP; a: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_is_at_infinity(const group: PEC_GROUP; const p: PEC_POINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_is_on_curve(const group: PEC_GROUP; const point: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_cmp(const group: PEC_GROUP; const a: PEC_POINT; const b: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_make_affine(const group: PEC_GROUP; point: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINTs_make_affine(const group: PEC_METHOD; num: TOpenSSL_C_SIZET; points: PPEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINTs_mul(const group: PEC_GROUP; r: PEC_POINT; const n: PBIGNUM; num: TOpenSSL_C_SIZET; const p: PPEC_POINT; const m: PPBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_POINT_mul(const group: PEC_GROUP; r: PEC_POINT; const n: PBIGNUM; const q: PEC_POINT; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_precompute_mult(group: PEC_GROUP; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_have_precompute_mult(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ECPKPARAMETERS_it: PASN1_ITEM; cdecl; external CLibCrypto; +function ECPKPARAMETERS_new: PECPKPARAMETERS; cdecl; external CLibCrypto; +procedure ECPKPARAMETERS_free(a: PECPKPARAMETERS); cdecl; external CLibCrypto; +function ECPARAMETERS_it: PASN1_ITEM; cdecl; external CLibCrypto; +function ECPARAMETERS_new: PECPARAMETERS; cdecl; external CLibCrypto; +procedure ECPARAMETERS_free(a: PECPARAMETERS); cdecl; external CLibCrypto; +function EC_GROUP_get_basis_type(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_get_trinomial_basis(const group: PEC_GROUP; k: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_GROUP_get_pentanomial_basis(const group: PEC_GROUP; k1: POpenSSL_C_UINT; k2: POpenSSL_C_UINT; k3: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_ECPKParameters(group: PPEC_GROUP; const in_: PPByte; len: TOpenSSL_C_LONG): PEC_GROUP; cdecl; external CLibCrypto; +function i2d_ECPKParameters(const group: PEC_GROUP; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ECPKParameters_print(bp: PBIO; const x: PEC_GROUP; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_new: PEC_KEY; cdecl; external CLibCrypto; +function EC_KEY_get_flags(const key: PEC_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure EC_KEY_set_flags(key: PEC_KEY; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure EC_KEY_clear_flags(key: PEC_KEY; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function EC_KEY_new_by_curve_name(nid: TOpenSSL_C_INT): PEC_KEY; cdecl; external CLibCrypto; +procedure EC_KEY_free(key: PEC_KEY); cdecl; external CLibCrypto; +function EC_KEY_copy(dst: PEC_KEY; const src: PEC_KEY): PEC_KEY; cdecl; external CLibCrypto; +function EC_KEY_dup(const src: PEC_KEY): PEC_KEY; cdecl; external CLibCrypto; +function EC_KEY_up_ref(key: PEC_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_get0_engine(const eckey: PEC_KEY): PENGINE; cdecl; external CLibCrypto; +function EC_KEY_get0_group(const key: PEC_KEY): PEC_GROUP; cdecl; external CLibCrypto; +function EC_KEY_set_group(key: PEC_KEY; const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_get0_private_key(const key: PEC_KEY): PBIGNUM; cdecl; external CLibCrypto; +function EC_KEY_set_private_key(const key: PEC_KEY; const prv: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_get0_public_key(const key: PEC_KEY): PEC_POINT; cdecl; external CLibCrypto; +function EC_KEY_set_public_key(key: PEC_KEY; const pub: PEC_POINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_get_enc_flags(const key: PEC_KEY): TOpenSSL_C_UINT; cdecl; external CLibCrypto; +procedure EC_KEY_set_enc_flags(eckey: PEC_KEY; flags: TOpenSSL_C_UINT); cdecl; external CLibCrypto; +function EC_KEY_get_conv_form(const key: PEC_KEY): point_conversion_form_t; cdecl; external CLibCrypto; +procedure EC_KEY_set_conv_form(eckey: PEC_KEY; cform: point_conversion_form_t); cdecl; external CLibCrypto; +function EC_KEY_set_ex_data(key: PEC_KEY; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_get_ex_data(const key: PEC_KEY; idx: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +procedure EC_KEY_set_asn1_flag(eckey: PEC_KEY; asn1_flag: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function EC_KEY_precompute_mult(key: PEC_KEY; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_generate_key(key: PEC_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_check_key(const key: PEC_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_can_sign(const eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_set_public_key_affine_coordinates(key: PEC_KEY; x: PBIGNUM; y: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_key2buf(const key: PEC_KEY; form: point_conversion_form_t; pbuf: PPByte; ctx: PBN_CTX): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function EC_KEY_oct2key(key: PEC_KEY; const buf: PByte; len: TOpenSSL_C_SIZET; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_oct2priv(key: PEC_KEY; const buf: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_priv2oct(const key: PEC_KEY; buf: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function EC_KEY_priv2buf(const eckey: PEC_KEY; buf: PPByte): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function d2i_ECPrivateKey(key: PPEC_KEY; const in_: PPByte; len: TOpenSSL_C_LONG): PEC_KEY; cdecl; external CLibCrypto; +function i2d_ECPrivateKey(key: PEC_KEY; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function o2i_ECPublicKey(key: PPEC_KEY; const in_: PPByte; len: TOpenSSL_C_LONG): PEC_KEY; cdecl; external CLibCrypto; +function i2o_ECPublicKey(const key: PEC_KEY; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ECParameters_print(bp: PBIO; const key: PEC_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_print(bp: PBIO; const key: PEC_KEY; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_OpenSSL: PEC_KEY_METHOD; cdecl; external CLibCrypto; +function EC_KEY_get_default_method: PEC_KEY_METHOD; cdecl; external CLibCrypto; +procedure EC_KEY_set_default_method(const meth: PEC_KEY_METHOD); cdecl; external CLibCrypto; +function EC_KEY_get_method(const key: PEC_KEY): PEC_KEY_METHOD; cdecl; external CLibCrypto; +function EC_KEY_set_method(key: PEC_KEY; const meth: PEC_KEY_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_new_method(engine: PENGINE): PEC_KEY; cdecl; external CLibCrypto; +function ECDH_KDF_X9_62(out_: PByte; outlen: TOpenSSL_C_SIZET; const Z: PByte; Zlen: TOpenSSL_C_SIZET; const sinfo: PByte; sinfolen: TOpenSSL_C_SIZET; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ECDH_compute_key(out_: Pointer; oulen: TOpenSSL_C_SIZET; const pub_key: PEC_POINT; const ecdh: PEC_KEY; kdf: ECDH_compute_key_KDF): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ECDSA_SIG_new: PECDSA_SIG; cdecl; external CLibCrypto; +procedure ECDSA_SIG_free(sig: PECDSA_SIG); cdecl; external CLibCrypto; +function i2d_ECDSA_SIG(const sig: PECDSA_SIG; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_ECDSA_SIG(sig: PPECDSA_SIG; const pp: PPByte; len: TOpenSSL_C_LONG): PECDSA_SIG; cdecl; external CLibCrypto; +procedure ECDSA_SIG_get0(const sig: PECDSA_SIG; const pr: PPBIGNUM; const ps: PPBIGNUM); cdecl; external CLibCrypto; +function ECDSA_SIG_get0_r(const sig: PECDSA_SIG): PBIGNUM; cdecl; external CLibCrypto; +function ECDSA_SIG_get0_s(const sig: PECDSA_SIG): PBIGNUM; cdecl; external CLibCrypto; +function ECDSA_SIG_set0(sig: PECDSA_SIG; r: PBIGNUM; s: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ECDSA_do_sign(const dgst: PByte; dgst_len: TOpenSSL_C_INT; eckey: PEC_KEY): PECDSA_SIG; cdecl; external CLibCrypto; +function ECDSA_do_sign_ex(const dgst: PByte; dgst_len: TOpenSSL_C_INT; const kinv: PBIGNUM; const rp: PBIGNUM; eckey: PEC_KEY): PECDSA_SIG; cdecl; external CLibCrypto; +function ECDSA_do_verify(const dgst: PByte; dgst_len: TOpenSSL_C_INT; const sig: PECDSA_SIG; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ECDSA_sign_setup(eckey: PEC_KEY; ctx: PBN_CTX; kiv: PPBIGNUM; rp: PPBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ECDSA_sign(type_: TOpenSSL_C_INT; const dgst: PByte; dgstlen: TOpenSSL_C_INT; sig: PByte; siglen: POpenSSL_C_UINT; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ECDSA_sign_ex(type_: TOpenSSL_C_INT; const dgst: PByte; dgstlen: TOpenSSL_C_INT; sig: PByte; siglen: POpenSSL_C_UINT; const kinv: PBIGNUM; const rp: PBIGNUM; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ECDSA_verify(type_: TOpenSSL_C_INT; const dgst: PByte; dgstlen: TOpenSSL_C_INT; const sig: PByte; siglen: TOpenSSL_C_INT; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ECDSA_size(const eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EC_KEY_METHOD_new(const meth: PEC_KEY_METHOD): PEC_KEY_METHOD; cdecl; external CLibCrypto; +procedure EC_KEY_METHOD_free(meth: PEC_KEY_METHOD); cdecl; external CLibCrypto; +procedure EC_KEY_METHOD_set_init(meth: PEC_KEY_METHOD; init: EC_KEY_METHOD_init_init; finish: EC_KEY_METHOD_init_finish; copy: EC_KEY_METHOD_init_copy; set_group: EC_KEY_METHOD_init_set_group; set_private: EC_KEY_METHOD_init_set_private; set_public: EC_KEY_METHOD_init_set_public); cdecl; external CLibCrypto; +procedure EC_KEY_METHOD_set_keygen(meth: PEC_KEY_METHOD; keygen: EC_KEY_METHOD_keygen_keygen); cdecl; external CLibCrypto; +procedure EC_KEY_METHOD_set_compute_key(meth: PEC_KEY_METHOD; ckey: EC_KEY_METHOD_compute_key_ckey); cdecl; external CLibCrypto; +procedure EC_KEY_METHOD_set_sign(meth: PEC_KEY_METHOD; sign: EC_KEY_METHOD_sign_sign; sign_setup: EC_KEY_METHOD_sign_sign_setup; sign_sig: EC_KEY_METHOD_sign_sign_sig); cdecl; external CLibCrypto; +procedure EC_KEY_METHOD_set_verify(meth: PEC_KEY_METHOD; verify: EC_KEY_METHOD_verify_verify; verify_sig: EC_KEY_METHOD_verify_verify_sig); cdecl; external CLibCrypto; +procedure EC_KEY_METHOD_get_init(const meth: PEC_KEY_METHOD; pinit: PEC_KEY_METHOD_init_init; pfinish: PEC_KEY_METHOD_init_finish; pcopy: PEC_KEY_METHOD_init_copy; pset_group: PEC_KEY_METHOD_init_set_group; pset_private: PEC_KEY_METHOD_init_set_private; pset_public: PEC_KEY_METHOD_init_set_public); cdecl; external CLibCrypto; +procedure EC_KEY_METHOD_get_keygen(const meth: PEC_KEY_METHOD; pkeygen: PEC_KEY_METHOD_keygen_keygen); cdecl; external CLibCrypto; +procedure EC_KEY_METHOD_get_compute_key(const meth: PEC_KEY_METHOD; pck: PEC_KEY_METHOD_compute_key_ckey); cdecl; external CLibCrypto; +procedure EC_KEY_METHOD_get_sign(const meth: PEC_KEY_METHOD; psign: PEC_KEY_METHOD_sign_sign; psign_setup: PEC_KEY_METHOD_sign_sign_setup; psign_sig: PEC_KEY_METHOD_sign_sign_sig); cdecl; external CLibCrypto; +procedure EC_KEY_METHOD_get_verify(const meth: PEC_KEY_METHOD; pverify: PEC_KEY_METHOD_verify_verify; pverify_sig: PEC_KEY_METHOD_verify_verify_sig); cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_EC_GFp_simple_method: PEC_METHOD; cdecl; +function Load_EC_GFp_mont_method: PEC_METHOD; cdecl; +function Load_EC_GFp_nist_method: PEC_METHOD; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EC_GFp_nistp224_method: PEC_METHOD; cdecl; +function Load_EC_GFp_nistp256_method: PEC_METHOD; cdecl; +function Load_EC_GFp_nistp521_method: PEC_METHOD; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EC_GF2m_simple_method: PEC_METHOD; cdecl; +function Load_EC_GROUP_new(const meth: PEC_METHOD): PEC_GROUP; cdecl; +procedure Load_EC_GROUP_free(group: PEC_GROUP); cdecl; +procedure Load_EC_GROUP_clear_free(group: PEC_GROUP); cdecl; +function Load_EC_GROUP_copy(dst: PEC_GROUP; const src: PEC_GROUP): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_dup(const src: PEC_GROUP): PEC_GROUP; cdecl; +function Load_EC_GROUP_method_of(const group: PEC_GROUP): PEC_GROUP; cdecl; +function Load_EC_METHOD_get_field_type(const meth: PEC_METHOD): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_set_generator(group: PEC_GROUP; const generator: PEC_POINT; const order: PBIGNUM; const cofactor: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_get0_generator(const group: PEC_GROUP): PEC_POINT; cdecl; +function Load_EC_GROUP_get_mont_data(const group: PEC_GROUP): PBN_MONT_CTX; cdecl; +function Load_EC_GROUP_get_order(const group: PEC_GROUP; order: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_get0_order(const group: PEC_GROUP): PBIGNUM; cdecl; +function Load_EC_GROUP_order_bits(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_get_cofactor(const group: PEC_GROUP; cofactor: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_get0_cofactor(const group: PEC_GROUP): PBIGNUM; cdecl; +procedure Load_EC_GROUP_set_curve_name(group: PEC_GROUP; nid: TOpenSSL_C_INT); cdecl; +function Load_EC_GROUP_get_curve_name(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; +procedure Load_EC_GROUP_set_asn1_flag(group: PEC_GROUP; flag: TOpenSSL_C_INT); cdecl; +function Load_EC_GROUP_get_asn1_flag(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; +procedure Load_EC_GROUP_set_point_conversion_form(group: PEC_GROUP; form: point_conversion_form_t); cdecl; +function Load_EC_GROUP_get_point_conversion_form(const group: PEC_GROUP): point_conversion_form_t; cdecl; +function Load_EC_GROUP_get0_seed(const x: PEC_GROUP): PByte; cdecl; +function Load_EC_GROUP_get_seed_len(const x: PEC_GROUP): TOpenSSL_C_SIZET; cdecl; +function Load_EC_GROUP_set_seed(x: PEC_GROUP; const p: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +function Load_EC_GROUP_set_curve(group: PEC_GROUP; const p: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_get_curve(const group: PEC_GROUP; p: PBIGNUM; a: PBIGNUM; b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_set_curve_GFp(group: PEC_GROUP; const p: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_get_curve_GFp(const group: PEC_GROUP; p: PBIGNUM; a: PBIGNUM; b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_set_curve_GF2m(group: PEC_GROUP; const p: PBIGNUM; const a: PBIGNUM; const b:PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_get_curve_GF2m(const group: PEC_GROUP; p: PBIGNUM; a: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_get_degree(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_check(const group: PEC_GROUP; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_check_discriminant(const group: PEC_GROUP; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_cmp(const a: PEC_GROUP; const b: PEC_GROUP; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_new_curve_GFp(const p: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): PEC_GROUP; cdecl; +function Load_EC_GROUP_new_curve_GF2m(const p: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): PEC_GROUP; cdecl; +function Load_EC_GROUP_new_by_curve_name(nid: TOpenSSL_C_INT): PEC_GROUP; cdecl; +function Load_EC_GROUP_new_from_ecparameters(const params: PECPARAMETERS): PEC_GROUP; cdecl; +function Load_EC_GROUP_get_ecparameters(const group: PEC_GROUP; params: PECPARAMETERS): PECPARAMETERS; cdecl; +function Load_EC_GROUP_new_from_ecpkparameters(const params: PECPKPARAMETERS): PEC_GROUP; cdecl; +function Load_EC_GROUP_get_ecpkparameters(const group: PEC_GROUP; params: PECPKPARAMETERS): PECPKPARAMETERS; cdecl; +function Load_EC_get_builtin_curves(r: PEC_builtin_curve; nitems: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +function Load_EC_curve_nid2nist(nid: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_EC_curve_nist2nid(const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_new(const group: PEC_GROUP): PEC_POINT; cdecl; +procedure Load_EC_POINT_free(point: PEC_POINT); cdecl; +procedure Load_EC_POINT_clear_free(point: PEC_POINT); cdecl; +function Load_EC_POINT_copy(dst: PEC_POINT; const src: PEC_POINT): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_dup(const src: PEC_POINT; const group: PEC_GROUP): PEC_POINT; cdecl; +function Load_EC_POINT_method_of(const point: PEC_POINT): PEC_METHOD; cdecl; +function Load_EC_POINT_set_to_infinity(const group: PEC_GROUP; point: PEC_POINT): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_set_Jprojective_coordinates_GFp(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; const y: PBIGNUM; const z: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_get_Jprojective_coordinates_GFp(const group: PEC_METHOD; const p: PEC_POINT; x: PBIGNUM; y: PBIGNUM; z: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_set_affine_coordinates(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; const y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_get_affine_coordinates(const group: PEC_GROUP; const p: PEC_POINT; x: PBIGNUM; y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_set_affine_coordinates_GFp(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; const y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_get_affine_coordinates_GFp(const group: PEC_GROUP; const p: PEC_POINT; x: PBIGNUM; y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_set_compressed_coordinates(const group: PEC_GROUP; p: PEC_POINT; x: PBIGNUM; y_bit: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_set_compressed_coordinates_GFp(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; y_bit: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_set_affine_coordinates_GF2m(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; const y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_get_affine_coordinates_GF2m(const group: PEC_GROUP; p: PEC_POINT; x: PBIGNUM; y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_set_compressed_coordinates_GF2m(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; y_bit: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_point2oct(const group: PEC_GROUP; const p: PEC_POINT; form: point_conversion_form_t; buf: PByte; len: TOpenSSL_C_SIZET; ctx: PBN_CTX): TOpenSSL_C_SIZET; cdecl; +function Load_EC_POINT_oct2point(const group: PEC_GROUP; p: PEC_POINT; const buf: PByte; len: TOpenSSL_C_SIZET; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_point2buf(const group: PEC_GROUP; const point: PEC_POINT; form: point_conversion_form_t; pbuf: PPByte; ctx: PBN_CTX): TOpenSSL_C_SIZET; cdecl; +function Load_EC_POINT_point2bn(const group: PEC_GROUP; const p: PEC_POINT; form: point_conversion_form_t; bn: PBIGNUM; ctx: PBN_CTX): PBIGNUM; cdecl; +function Load_EC_POINT_bn2point(const group: PEC_GROUP; const bn: PBIGNUM; p: PEC_POINT; ctx: PBN_CTX): PEC_POINT; cdecl; +function Load_EC_POINT_point2hex(const group: PEC_GROUP; const p: PEC_POINT; form: point_conversion_form_t; ctx: PBN_CTX): PAnsiChar; cdecl; +function Load_EC_POINT_hex2point(const group: PEC_GROUP; const buf: PAnsiChar; p: PEC_POINT; ctx: PBN_CTX): PEC_POINT; cdecl; +function Load_EC_POINT_add(const group: PEC_GROUP; r: PEC_POINT; const a: PEC_POINT; const b: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_dbl(const group: PEC_GROUP; r: PEC_POINT; const a: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_invert(const group: PEC_GROUP; a: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_is_at_infinity(const group: PEC_GROUP; const p: PEC_POINT): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_is_on_curve(const group: PEC_GROUP; const point: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_cmp(const group: PEC_GROUP; const a: PEC_POINT; const b: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_make_affine(const group: PEC_GROUP; point: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINTs_make_affine(const group: PEC_METHOD; num: TOpenSSL_C_SIZET; points: PPEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINTs_mul(const group: PEC_GROUP; r: PEC_POINT; const n: PBIGNUM; num: TOpenSSL_C_SIZET; const p: PPEC_POINT; const m: PPBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_POINT_mul(const group: PEC_GROUP; r: PEC_POINT; const n: PBIGNUM; const q: PEC_POINT; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_precompute_mult(group: PEC_GROUP; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_have_precompute_mult(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; +function Load_ECPKPARAMETERS_it: PASN1_ITEM; cdecl; +function Load_ECPKPARAMETERS_new: PECPKPARAMETERS; cdecl; +procedure Load_ECPKPARAMETERS_free(a: PECPKPARAMETERS); cdecl; +function Load_ECPARAMETERS_it: PASN1_ITEM; cdecl; +function Load_ECPARAMETERS_new: PECPARAMETERS; cdecl; +procedure Load_ECPARAMETERS_free(a: PECPARAMETERS); cdecl; +function Load_EC_GROUP_get_basis_type(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_get_trinomial_basis(const group: PEC_GROUP; k: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_EC_GROUP_get_pentanomial_basis(const group: PEC_GROUP; k1: POpenSSL_C_UINT; k2: POpenSSL_C_UINT; k3: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_d2i_ECPKParameters(group: PPEC_GROUP; const in_: PPByte; len: TOpenSSL_C_LONG): PEC_GROUP; cdecl; +function Load_i2d_ECPKParameters(const group: PEC_GROUP; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_ECPKParameters_print(bp: PBIO; const x: PEC_GROUP; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_new: PEC_KEY; cdecl; +function Load_EC_KEY_get_flags(const key: PEC_KEY): TOpenSSL_C_INT; cdecl; +procedure Load_EC_KEY_set_flags(key: PEC_KEY; flags: TOpenSSL_C_INT); cdecl; +procedure Load_EC_KEY_clear_flags(key: PEC_KEY; flags: TOpenSSL_C_INT); cdecl; +function Load_EC_KEY_new_by_curve_name(nid: TOpenSSL_C_INT): PEC_KEY; cdecl; +procedure Load_EC_KEY_free(key: PEC_KEY); cdecl; +function Load_EC_KEY_copy(dst: PEC_KEY; const src: PEC_KEY): PEC_KEY; cdecl; +function Load_EC_KEY_dup(const src: PEC_KEY): PEC_KEY; cdecl; +function Load_EC_KEY_up_ref(key: PEC_KEY): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_get0_engine(const eckey: PEC_KEY): PENGINE; cdecl; +function Load_EC_KEY_get0_group(const key: PEC_KEY): PEC_GROUP; cdecl; +function Load_EC_KEY_set_group(key: PEC_KEY; const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_get0_private_key(const key: PEC_KEY): PBIGNUM; cdecl; +function Load_EC_KEY_set_private_key(const key: PEC_KEY; const prv: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_get0_public_key(const key: PEC_KEY): PEC_POINT; cdecl; +function Load_EC_KEY_set_public_key(key: PEC_KEY; const pub: PEC_POINT): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_get_enc_flags(const key: PEC_KEY): TOpenSSL_C_UINT; cdecl; +procedure Load_EC_KEY_set_enc_flags(eckey: PEC_KEY; flags: TOpenSSL_C_UINT); cdecl; +function Load_EC_KEY_get_conv_form(const key: PEC_KEY): point_conversion_form_t; cdecl; +procedure Load_EC_KEY_set_conv_form(eckey: PEC_KEY; cform: point_conversion_form_t); cdecl; +function Load_EC_KEY_set_ex_data(key: PEC_KEY; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_get_ex_data(const key: PEC_KEY; idx: TOpenSSL_C_INT): Pointer; cdecl; +procedure Load_EC_KEY_set_asn1_flag(eckey: PEC_KEY; asn1_flag: TOpenSSL_C_INT); cdecl; +function Load_EC_KEY_precompute_mult(key: PEC_KEY; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_generate_key(key: PEC_KEY): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_check_key(const key: PEC_KEY): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_can_sign(const eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_set_public_key_affine_coordinates(key: PEC_KEY; x: PBIGNUM; y: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_key2buf(const key: PEC_KEY; form: point_conversion_form_t; pbuf: PPByte; ctx: PBN_CTX): TOpenSSL_C_SIZET; cdecl; +function Load_EC_KEY_oct2key(key: PEC_KEY; const buf: PByte; len: TOpenSSL_C_SIZET; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_oct2priv(key: PEC_KEY; const buf: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_priv2oct(const key: PEC_KEY; buf: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +function Load_EC_KEY_priv2buf(const eckey: PEC_KEY; buf: PPByte): TOpenSSL_C_SIZET; cdecl; +function Load_d2i_ECPrivateKey(key: PPEC_KEY; const in_: PPByte; len: TOpenSSL_C_LONG): PEC_KEY; cdecl; +function Load_i2d_ECPrivateKey(key: PEC_KEY; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_o2i_ECPublicKey(key: PPEC_KEY; const in_: PPByte; len: TOpenSSL_C_LONG): PEC_KEY; cdecl; +function Load_i2o_ECPublicKey(const key: PEC_KEY; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_ECParameters_print(bp: PBIO; const key: PEC_KEY): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_print(bp: PBIO; const key: PEC_KEY; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_OpenSSL: PEC_KEY_METHOD; cdecl; +function Load_EC_KEY_get_default_method: PEC_KEY_METHOD; cdecl; +procedure Load_EC_KEY_set_default_method(const meth: PEC_KEY_METHOD); cdecl; +function Load_EC_KEY_get_method(const key: PEC_KEY): PEC_KEY_METHOD; cdecl; +function Load_EC_KEY_set_method(key: PEC_KEY; const meth: PEC_KEY_METHOD): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_new_method(engine: PENGINE): PEC_KEY; cdecl; +function Load_ECDH_KDF_X9_62(out_: PByte; outlen: TOpenSSL_C_SIZET; const Z: PByte; Zlen: TOpenSSL_C_SIZET; const sinfo: PByte; sinfolen: TOpenSSL_C_SIZET; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_ECDH_compute_key(out_: Pointer; oulen: TOpenSSL_C_SIZET; const pub_key: PEC_POINT; const ecdh: PEC_KEY; kdf: ECDH_compute_key_KDF): TOpenSSL_C_INT; cdecl; +function Load_ECDSA_SIG_new: PECDSA_SIG; cdecl; +procedure Load_ECDSA_SIG_free(sig: PECDSA_SIG); cdecl; +function Load_i2d_ECDSA_SIG(const sig: PECDSA_SIG; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_ECDSA_SIG(sig: PPECDSA_SIG; const pp: PPByte; len: TOpenSSL_C_LONG): PECDSA_SIG; cdecl; +procedure Load_ECDSA_SIG_get0(const sig: PECDSA_SIG; const pr: PPBIGNUM; const ps: PPBIGNUM); cdecl; +function Load_ECDSA_SIG_get0_r(const sig: PECDSA_SIG): PBIGNUM; cdecl; +function Load_ECDSA_SIG_get0_s(const sig: PECDSA_SIG): PBIGNUM; cdecl; +function Load_ECDSA_SIG_set0(sig: PECDSA_SIG; r: PBIGNUM; s: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_ECDSA_do_sign(const dgst: PByte; dgst_len: TOpenSSL_C_INT; eckey: PEC_KEY): PECDSA_SIG; cdecl; +function Load_ECDSA_do_sign_ex(const dgst: PByte; dgst_len: TOpenSSL_C_INT; const kinv: PBIGNUM; const rp: PBIGNUM; eckey: PEC_KEY): PECDSA_SIG; cdecl; +function Load_ECDSA_do_verify(const dgst: PByte; dgst_len: TOpenSSL_C_INT; const sig: PECDSA_SIG; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; +function Load_ECDSA_sign_setup(eckey: PEC_KEY; ctx: PBN_CTX; kiv: PPBIGNUM; rp: PPBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_ECDSA_sign(type_: TOpenSSL_C_INT; const dgst: PByte; dgstlen: TOpenSSL_C_INT; sig: PByte; siglen: POpenSSL_C_UINT; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; +function Load_ECDSA_sign_ex(type_: TOpenSSL_C_INT; const dgst: PByte; dgstlen: TOpenSSL_C_INT; sig: PByte; siglen: POpenSSL_C_UINT; const kinv: PBIGNUM; const rp: PBIGNUM; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; +function Load_ECDSA_verify(type_: TOpenSSL_C_INT; const dgst: PByte; dgstlen: TOpenSSL_C_INT; const sig: PByte; siglen: TOpenSSL_C_INT; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; +function Load_ECDSA_size(const eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; +function Load_EC_KEY_METHOD_new(const meth: PEC_KEY_METHOD): PEC_KEY_METHOD; cdecl; +procedure Load_EC_KEY_METHOD_free(meth: PEC_KEY_METHOD); cdecl; +procedure Load_EC_KEY_METHOD_set_init(meth: PEC_KEY_METHOD; init: EC_KEY_METHOD_init_init; finish: EC_KEY_METHOD_init_finish; copy: EC_KEY_METHOD_init_copy; set_group: EC_KEY_METHOD_init_set_group; set_private: EC_KEY_METHOD_init_set_private; set_public: EC_KEY_METHOD_init_set_public); cdecl; +procedure Load_EC_KEY_METHOD_set_keygen(meth: PEC_KEY_METHOD; keygen: EC_KEY_METHOD_keygen_keygen); cdecl; +procedure Load_EC_KEY_METHOD_set_compute_key(meth: PEC_KEY_METHOD; ckey: EC_KEY_METHOD_compute_key_ckey); cdecl; +procedure Load_EC_KEY_METHOD_set_sign(meth: PEC_KEY_METHOD; sign: EC_KEY_METHOD_sign_sign; sign_setup: EC_KEY_METHOD_sign_sign_setup; sign_sig: EC_KEY_METHOD_sign_sign_sig); cdecl; +procedure Load_EC_KEY_METHOD_set_verify(meth: PEC_KEY_METHOD; verify: EC_KEY_METHOD_verify_verify; verify_sig: EC_KEY_METHOD_verify_verify_sig); cdecl; +procedure Load_EC_KEY_METHOD_get_init(const meth: PEC_KEY_METHOD; pinit: PEC_KEY_METHOD_init_init; pfinish: PEC_KEY_METHOD_init_finish; pcopy: PEC_KEY_METHOD_init_copy; pset_group: PEC_KEY_METHOD_init_set_group; pset_private: PEC_KEY_METHOD_init_set_private; pset_public: PEC_KEY_METHOD_init_set_public); cdecl; +procedure Load_EC_KEY_METHOD_get_keygen(const meth: PEC_KEY_METHOD; pkeygen: PEC_KEY_METHOD_keygen_keygen); cdecl; +procedure Load_EC_KEY_METHOD_get_compute_key(const meth: PEC_KEY_METHOD; pck: PEC_KEY_METHOD_compute_key_ckey); cdecl; +procedure Load_EC_KEY_METHOD_get_sign(const meth: PEC_KEY_METHOD; psign: PEC_KEY_METHOD_sign_sign; psign_setup: PEC_KEY_METHOD_sign_sign_setup; psign_sig: PEC_KEY_METHOD_sign_sign_sig); cdecl; +procedure Load_EC_KEY_METHOD_get_verify(const meth: PEC_KEY_METHOD; pverify: PEC_KEY_METHOD_verify_verify; pverify_sig: PEC_KEY_METHOD_verify_verify_sig); cdecl; + +var + EC_GFp_simple_method: function : PEC_METHOD; cdecl = Load_EC_GFp_simple_method; + EC_GFp_mont_method: function : PEC_METHOD; cdecl = Load_EC_GFp_mont_method; + EC_GFp_nist_method: function : PEC_METHOD; cdecl = Load_EC_GFp_nist_method; + EC_GF2m_simple_method: function : PEC_METHOD; cdecl = Load_EC_GF2m_simple_method; + EC_GROUP_new: function (const meth: PEC_METHOD): PEC_GROUP; cdecl = Load_EC_GROUP_new; + EC_GROUP_free: procedure (group: PEC_GROUP); cdecl = Load_EC_GROUP_free; + EC_GROUP_clear_free: procedure (group: PEC_GROUP); cdecl = Load_EC_GROUP_clear_free; + EC_GROUP_copy: function (dst: PEC_GROUP; const src: PEC_GROUP): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_copy; + EC_GROUP_dup: function (const src: PEC_GROUP): PEC_GROUP; cdecl = Load_EC_GROUP_dup; + EC_GROUP_method_of: function (const group: PEC_GROUP): PEC_GROUP; cdecl = Load_EC_GROUP_method_of; + EC_METHOD_get_field_type: function (const meth: PEC_METHOD): TOpenSSL_C_INT; cdecl = Load_EC_METHOD_get_field_type; + EC_GROUP_set_generator: function (group: PEC_GROUP; const generator: PEC_POINT; const order: PBIGNUM; const cofactor: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_set_generator; + EC_GROUP_get0_generator: function (const group: PEC_GROUP): PEC_POINT; cdecl = Load_EC_GROUP_get0_generator; + EC_GROUP_get_mont_data: function (const group: PEC_GROUP): PBN_MONT_CTX; cdecl = Load_EC_GROUP_get_mont_data; + EC_GROUP_get_order: function (const group: PEC_GROUP; order: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_get_order; + EC_GROUP_get0_order: function (const group: PEC_GROUP): PBIGNUM; cdecl = Load_EC_GROUP_get0_order; + EC_GROUP_order_bits: function (const group: PEC_GROUP): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_order_bits; + EC_GROUP_get_cofactor: function (const group: PEC_GROUP; cofactor: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_get_cofactor; + EC_GROUP_get0_cofactor: function (const group: PEC_GROUP): PBIGNUM; cdecl = Load_EC_GROUP_get0_cofactor; + EC_GROUP_set_curve_name: procedure (group: PEC_GROUP; nid: TOpenSSL_C_INT); cdecl = Load_EC_GROUP_set_curve_name; + EC_GROUP_get_curve_name: function (const group: PEC_GROUP): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_get_curve_name; + EC_GROUP_set_asn1_flag: procedure (group: PEC_GROUP; flag: TOpenSSL_C_INT); cdecl = Load_EC_GROUP_set_asn1_flag; + EC_GROUP_get_asn1_flag: function (const group: PEC_GROUP): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_get_asn1_flag; + EC_GROUP_set_point_conversion_form: procedure (group: PEC_GROUP; form: point_conversion_form_t); cdecl = Load_EC_GROUP_set_point_conversion_form; + EC_GROUP_get_point_conversion_form: function (const group: PEC_GROUP): point_conversion_form_t; cdecl = Load_EC_GROUP_get_point_conversion_form; + EC_GROUP_get0_seed: function (const x: PEC_GROUP): PByte; cdecl = Load_EC_GROUP_get0_seed; + EC_GROUP_get_seed_len: function (const x: PEC_GROUP): TOpenSSL_C_SIZET; cdecl = Load_EC_GROUP_get_seed_len; + EC_GROUP_set_seed: function (x: PEC_GROUP; const p: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl = Load_EC_GROUP_set_seed; + EC_GROUP_set_curve: function (group: PEC_GROUP; const p: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_set_curve; + EC_GROUP_get_curve: function (const group: PEC_GROUP; p: PBIGNUM; a: PBIGNUM; b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_get_curve; + EC_GROUP_set_curve_GFp: function (group: PEC_GROUP; const p: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_set_curve_GFp; + EC_GROUP_get_curve_GFp: function (const group: PEC_GROUP; p: PBIGNUM; a: PBIGNUM; b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_get_curve_GFp; + EC_GROUP_set_curve_GF2m: function (group: PEC_GROUP; const p: PBIGNUM; const a: PBIGNUM; const b:PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_set_curve_GF2m; + EC_GROUP_get_curve_GF2m: function (const group: PEC_GROUP; p: PBIGNUM; a: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_get_curve_GF2m; + EC_GROUP_get_degree: function (const group: PEC_GROUP): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_get_degree; + EC_GROUP_check: function (const group: PEC_GROUP; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_check; + EC_GROUP_check_discriminant: function (const group: PEC_GROUP; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_check_discriminant; + EC_GROUP_cmp: function (const a: PEC_GROUP; const b: PEC_GROUP; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_cmp; + EC_GROUP_new_curve_GFp: function (const p: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): PEC_GROUP; cdecl = Load_EC_GROUP_new_curve_GFp; + EC_GROUP_new_curve_GF2m: function (const p: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): PEC_GROUP; cdecl = Load_EC_GROUP_new_curve_GF2m; + EC_GROUP_new_by_curve_name: function (nid: TOpenSSL_C_INT): PEC_GROUP; cdecl = Load_EC_GROUP_new_by_curve_name; + EC_GROUP_new_from_ecparameters: function (const params: PECPARAMETERS): PEC_GROUP; cdecl = Load_EC_GROUP_new_from_ecparameters; + EC_GROUP_get_ecparameters: function (const group: PEC_GROUP; params: PECPARAMETERS): PECPARAMETERS; cdecl = Load_EC_GROUP_get_ecparameters; + EC_GROUP_new_from_ecpkparameters: function (const params: PECPKPARAMETERS): PEC_GROUP; cdecl = Load_EC_GROUP_new_from_ecpkparameters; + EC_GROUP_get_ecpkparameters: function (const group: PEC_GROUP; params: PECPKPARAMETERS): PECPKPARAMETERS; cdecl = Load_EC_GROUP_get_ecpkparameters; + EC_get_builtin_curves: function (r: PEC_builtin_curve; nitems: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl = Load_EC_get_builtin_curves; + EC_curve_nid2nist: function (nid: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_EC_curve_nid2nist; + EC_curve_nist2nid: function (const name: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_EC_curve_nist2nid; + EC_POINT_new: function (const group: PEC_GROUP): PEC_POINT; cdecl = Load_EC_POINT_new; + EC_POINT_free: procedure (point: PEC_POINT); cdecl = Load_EC_POINT_free; + EC_POINT_clear_free: procedure (point: PEC_POINT); cdecl = Load_EC_POINT_clear_free; + EC_POINT_copy: function (dst: PEC_POINT; const src: PEC_POINT): TOpenSSL_C_INT; cdecl = Load_EC_POINT_copy; + EC_POINT_dup: function (const src: PEC_POINT; const group: PEC_GROUP): PEC_POINT; cdecl = Load_EC_POINT_dup; + EC_POINT_method_of: function (const point: PEC_POINT): PEC_METHOD; cdecl = Load_EC_POINT_method_of; + EC_POINT_set_to_infinity: function (const group: PEC_GROUP; point: PEC_POINT): TOpenSSL_C_INT; cdecl = Load_EC_POINT_set_to_infinity; + EC_POINT_set_Jprojective_coordinates_GFp: function (const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; const y: PBIGNUM; const z: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_set_Jprojective_coordinates_GFp; + EC_POINT_get_Jprojective_coordinates_GFp: function (const group: PEC_METHOD; const p: PEC_POINT; x: PBIGNUM; y: PBIGNUM; z: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_get_Jprojective_coordinates_GFp; + EC_POINT_set_affine_coordinates: function (const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; const y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_set_affine_coordinates; + EC_POINT_get_affine_coordinates: function (const group: PEC_GROUP; const p: PEC_POINT; x: PBIGNUM; y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_get_affine_coordinates; + EC_POINT_set_affine_coordinates_GFp: function (const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; const y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_set_affine_coordinates_GFp; + EC_POINT_get_affine_coordinates_GFp: function (const group: PEC_GROUP; const p: PEC_POINT; x: PBIGNUM; y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_get_affine_coordinates_GFp; + EC_POINT_set_compressed_coordinates: function (const group: PEC_GROUP; p: PEC_POINT; x: PBIGNUM; y_bit: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_set_compressed_coordinates; + EC_POINT_set_compressed_coordinates_GFp: function (const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; y_bit: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_set_compressed_coordinates_GFp; + EC_POINT_set_affine_coordinates_GF2m: function (const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; const y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_set_affine_coordinates_GF2m; + EC_POINT_get_affine_coordinates_GF2m: function (const group: PEC_GROUP; p: PEC_POINT; x: PBIGNUM; y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_get_affine_coordinates_GF2m; + EC_POINT_set_compressed_coordinates_GF2m: function (const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; y_bit: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_set_compressed_coordinates_GF2m; + EC_POINT_point2oct: function (const group: PEC_GROUP; const p: PEC_POINT; form: point_conversion_form_t; buf: PByte; len: TOpenSSL_C_SIZET; ctx: PBN_CTX): TOpenSSL_C_SIZET; cdecl = Load_EC_POINT_point2oct; + EC_POINT_oct2point: function (const group: PEC_GROUP; p: PEC_POINT; const buf: PByte; len: TOpenSSL_C_SIZET; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_oct2point; + EC_POINT_point2buf: function (const group: PEC_GROUP; const point: PEC_POINT; form: point_conversion_form_t; pbuf: PPByte; ctx: PBN_CTX): TOpenSSL_C_SIZET; cdecl = Load_EC_POINT_point2buf; + EC_POINT_point2bn: function (const group: PEC_GROUP; const p: PEC_POINT; form: point_conversion_form_t; bn: PBIGNUM; ctx: PBN_CTX): PBIGNUM; cdecl = Load_EC_POINT_point2bn; + EC_POINT_bn2point: function (const group: PEC_GROUP; const bn: PBIGNUM; p: PEC_POINT; ctx: PBN_CTX): PEC_POINT; cdecl = Load_EC_POINT_bn2point; + EC_POINT_point2hex: function (const group: PEC_GROUP; const p: PEC_POINT; form: point_conversion_form_t; ctx: PBN_CTX): PAnsiChar; cdecl = Load_EC_POINT_point2hex; + EC_POINT_hex2point: function (const group: PEC_GROUP; const buf: PAnsiChar; p: PEC_POINT; ctx: PBN_CTX): PEC_POINT; cdecl = Load_EC_POINT_hex2point; + EC_POINT_add: function (const group: PEC_GROUP; r: PEC_POINT; const a: PEC_POINT; const b: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_add; + EC_POINT_dbl: function (const group: PEC_GROUP; r: PEC_POINT; const a: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_dbl; + EC_POINT_invert: function (const group: PEC_GROUP; a: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_invert; + EC_POINT_is_at_infinity: function (const group: PEC_GROUP; const p: PEC_POINT): TOpenSSL_C_INT; cdecl = Load_EC_POINT_is_at_infinity; + EC_POINT_is_on_curve: function (const group: PEC_GROUP; const point: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_is_on_curve; + EC_POINT_cmp: function (const group: PEC_GROUP; const a: PEC_POINT; const b: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_cmp; + EC_POINT_make_affine: function (const group: PEC_GROUP; point: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_make_affine; + EC_POINTs_make_affine: function (const group: PEC_METHOD; num: TOpenSSL_C_SIZET; points: PPEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINTs_make_affine; + EC_POINTs_mul: function (const group: PEC_GROUP; r: PEC_POINT; const n: PBIGNUM; num: TOpenSSL_C_SIZET; const p: PPEC_POINT; const m: PPBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINTs_mul; + EC_POINT_mul: function (const group: PEC_GROUP; r: PEC_POINT; const n: PBIGNUM; const q: PEC_POINT; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_POINT_mul; + EC_GROUP_precompute_mult: function (group: PEC_GROUP; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_precompute_mult; + EC_GROUP_have_precompute_mult: function (const group: PEC_GROUP): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_have_precompute_mult; + ECPKPARAMETERS_it: function : PASN1_ITEM; cdecl = Load_ECPKPARAMETERS_it; + ECPKPARAMETERS_new: function : PECPKPARAMETERS; cdecl = Load_ECPKPARAMETERS_new; + ECPKPARAMETERS_free: procedure (a: PECPKPARAMETERS); cdecl = Load_ECPKPARAMETERS_free; + ECPARAMETERS_it: function : PASN1_ITEM; cdecl = Load_ECPARAMETERS_it; + ECPARAMETERS_new: function : PECPARAMETERS; cdecl = Load_ECPARAMETERS_new; + ECPARAMETERS_free: procedure (a: PECPARAMETERS); cdecl = Load_ECPARAMETERS_free; + EC_GROUP_get_basis_type: function (const group: PEC_GROUP): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_get_basis_type; + EC_GROUP_get_trinomial_basis: function (const group: PEC_GROUP; k: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_get_trinomial_basis; + EC_GROUP_get_pentanomial_basis: function (const group: PEC_GROUP; k1: POpenSSL_C_UINT; k2: POpenSSL_C_UINT; k3: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_EC_GROUP_get_pentanomial_basis; + d2i_ECPKParameters: function (group: PPEC_GROUP; const in_: PPByte; len: TOpenSSL_C_LONG): PEC_GROUP; cdecl = Load_d2i_ECPKParameters; + i2d_ECPKParameters: function (const group: PEC_GROUP; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_ECPKParameters; + ECPKParameters_print: function (bp: PBIO; const x: PEC_GROUP; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ECPKParameters_print; + EC_KEY_new: function : PEC_KEY; cdecl = Load_EC_KEY_new; + EC_KEY_get_flags: function (const key: PEC_KEY): TOpenSSL_C_INT; cdecl = Load_EC_KEY_get_flags; + EC_KEY_set_flags: procedure (key: PEC_KEY; flags: TOpenSSL_C_INT); cdecl = Load_EC_KEY_set_flags; + EC_KEY_clear_flags: procedure (key: PEC_KEY; flags: TOpenSSL_C_INT); cdecl = Load_EC_KEY_clear_flags; + EC_KEY_new_by_curve_name: function (nid: TOpenSSL_C_INT): PEC_KEY; cdecl = Load_EC_KEY_new_by_curve_name; + EC_KEY_free: procedure (key: PEC_KEY); cdecl = Load_EC_KEY_free; + EC_KEY_copy: function (dst: PEC_KEY; const src: PEC_KEY): PEC_KEY; cdecl = Load_EC_KEY_copy; + EC_KEY_dup: function (const src: PEC_KEY): PEC_KEY; cdecl = Load_EC_KEY_dup; + EC_KEY_up_ref: function (key: PEC_KEY): TOpenSSL_C_INT; cdecl = Load_EC_KEY_up_ref; + EC_KEY_get0_engine: function (const eckey: PEC_KEY): PENGINE; cdecl = Load_EC_KEY_get0_engine; + EC_KEY_get0_group: function (const key: PEC_KEY): PEC_GROUP; cdecl = Load_EC_KEY_get0_group; + EC_KEY_set_group: function (key: PEC_KEY; const group: PEC_GROUP): TOpenSSL_C_INT; cdecl = Load_EC_KEY_set_group; + EC_KEY_get0_private_key: function (const key: PEC_KEY): PBIGNUM; cdecl = Load_EC_KEY_get0_private_key; + EC_KEY_set_private_key: function (const key: PEC_KEY; const prv: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_EC_KEY_set_private_key; + EC_KEY_get0_public_key: function (const key: PEC_KEY): PEC_POINT; cdecl = Load_EC_KEY_get0_public_key; + EC_KEY_set_public_key: function (key: PEC_KEY; const pub: PEC_POINT): TOpenSSL_C_INT; cdecl = Load_EC_KEY_set_public_key; + EC_KEY_get_enc_flags: function (const key: PEC_KEY): TOpenSSL_C_UINT; cdecl = Load_EC_KEY_get_enc_flags; + EC_KEY_set_enc_flags: procedure (eckey: PEC_KEY; flags: TOpenSSL_C_UINT); cdecl = Load_EC_KEY_set_enc_flags; + EC_KEY_get_conv_form: function (const key: PEC_KEY): point_conversion_form_t; cdecl = Load_EC_KEY_get_conv_form; + EC_KEY_set_conv_form: procedure (eckey: PEC_KEY; cform: point_conversion_form_t); cdecl = Load_EC_KEY_set_conv_form; + EC_KEY_set_ex_data: function (key: PEC_KEY; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl = Load_EC_KEY_set_ex_data; + EC_KEY_get_ex_data: function (const key: PEC_KEY; idx: TOpenSSL_C_INT): Pointer; cdecl = Load_EC_KEY_get_ex_data; + EC_KEY_set_asn1_flag: procedure (eckey: PEC_KEY; asn1_flag: TOpenSSL_C_INT); cdecl = Load_EC_KEY_set_asn1_flag; + EC_KEY_precompute_mult: function (key: PEC_KEY; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_KEY_precompute_mult; + EC_KEY_generate_key: function (key: PEC_KEY): TOpenSSL_C_INT; cdecl = Load_EC_KEY_generate_key; + EC_KEY_check_key: function (const key: PEC_KEY): TOpenSSL_C_INT; cdecl = Load_EC_KEY_check_key; + EC_KEY_can_sign: function (const eckey: PEC_KEY): TOpenSSL_C_INT; cdecl = Load_EC_KEY_can_sign; + EC_KEY_set_public_key_affine_coordinates: function (key: PEC_KEY; x: PBIGNUM; y: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_EC_KEY_set_public_key_affine_coordinates; + EC_KEY_key2buf: function (const key: PEC_KEY; form: point_conversion_form_t; pbuf: PPByte; ctx: PBN_CTX): TOpenSSL_C_SIZET; cdecl = Load_EC_KEY_key2buf; + EC_KEY_oct2key: function (key: PEC_KEY; const buf: PByte; len: TOpenSSL_C_SIZET; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_EC_KEY_oct2key; + EC_KEY_oct2priv: function (key: PEC_KEY; const buf: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EC_KEY_oct2priv; + EC_KEY_priv2oct: function (const key: PEC_KEY; buf: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl = Load_EC_KEY_priv2oct; + EC_KEY_priv2buf: function (const eckey: PEC_KEY; buf: PPByte): TOpenSSL_C_SIZET; cdecl = Load_EC_KEY_priv2buf; + d2i_ECPrivateKey: function (key: PPEC_KEY; const in_: PPByte; len: TOpenSSL_C_LONG): PEC_KEY; cdecl = Load_d2i_ECPrivateKey; + i2d_ECPrivateKey: function (key: PEC_KEY; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_ECPrivateKey; + o2i_ECPublicKey: function (key: PPEC_KEY; const in_: PPByte; len: TOpenSSL_C_LONG): PEC_KEY; cdecl = Load_o2i_ECPublicKey; + i2o_ECPublicKey: function (const key: PEC_KEY; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2o_ECPublicKey; + ECParameters_print: function (bp: PBIO; const key: PEC_KEY): TOpenSSL_C_INT; cdecl = Load_ECParameters_print; + EC_KEY_print: function (bp: PBIO; const key: PEC_KEY; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EC_KEY_print; + EC_KEY_OpenSSL: function : PEC_KEY_METHOD; cdecl = Load_EC_KEY_OpenSSL; + EC_KEY_get_default_method: function : PEC_KEY_METHOD; cdecl = Load_EC_KEY_get_default_method; + EC_KEY_set_default_method: procedure (const meth: PEC_KEY_METHOD); cdecl = Load_EC_KEY_set_default_method; + EC_KEY_get_method: function (const key: PEC_KEY): PEC_KEY_METHOD; cdecl = Load_EC_KEY_get_method; + EC_KEY_set_method: function (key: PEC_KEY; const meth: PEC_KEY_METHOD): TOpenSSL_C_INT; cdecl = Load_EC_KEY_set_method; + EC_KEY_new_method: function (engine: PENGINE): PEC_KEY; cdecl = Load_EC_KEY_new_method; + ECDH_KDF_X9_62: function (out_: PByte; outlen: TOpenSSL_C_SIZET; const Z: PByte; Zlen: TOpenSSL_C_SIZET; const sinfo: PByte; sinfolen: TOpenSSL_C_SIZET; const md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_ECDH_KDF_X9_62; + ECDH_compute_key: function (out_: Pointer; oulen: TOpenSSL_C_SIZET; const pub_key: PEC_POINT; const ecdh: PEC_KEY; kdf: ECDH_compute_key_KDF): TOpenSSL_C_INT; cdecl = Load_ECDH_compute_key; + ECDSA_SIG_new: function : PECDSA_SIG; cdecl = Load_ECDSA_SIG_new; + ECDSA_SIG_free: procedure (sig: PECDSA_SIG); cdecl = Load_ECDSA_SIG_free; + i2d_ECDSA_SIG: function (const sig: PECDSA_SIG; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_ECDSA_SIG; + d2i_ECDSA_SIG: function (sig: PPECDSA_SIG; const pp: PPByte; len: TOpenSSL_C_LONG): PECDSA_SIG; cdecl = Load_d2i_ECDSA_SIG; + ECDSA_SIG_get0: procedure (const sig: PECDSA_SIG; const pr: PPBIGNUM; const ps: PPBIGNUM); cdecl = Load_ECDSA_SIG_get0; + ECDSA_SIG_get0_r: function (const sig: PECDSA_SIG): PBIGNUM; cdecl = Load_ECDSA_SIG_get0_r; + ECDSA_SIG_get0_s: function (const sig: PECDSA_SIG): PBIGNUM; cdecl = Load_ECDSA_SIG_get0_s; + ECDSA_SIG_set0: function (sig: PECDSA_SIG; r: PBIGNUM; s: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_ECDSA_SIG_set0; + ECDSA_do_sign: function (const dgst: PByte; dgst_len: TOpenSSL_C_INT; eckey: PEC_KEY): PECDSA_SIG; cdecl = Load_ECDSA_do_sign; + ECDSA_do_sign_ex: function (const dgst: PByte; dgst_len: TOpenSSL_C_INT; const kinv: PBIGNUM; const rp: PBIGNUM; eckey: PEC_KEY): PECDSA_SIG; cdecl = Load_ECDSA_do_sign_ex; + ECDSA_do_verify: function (const dgst: PByte; dgst_len: TOpenSSL_C_INT; const sig: PECDSA_SIG; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl = Load_ECDSA_do_verify; + ECDSA_sign_setup: function (eckey: PEC_KEY; ctx: PBN_CTX; kiv: PPBIGNUM; rp: PPBIGNUM): TOpenSSL_C_INT; cdecl = Load_ECDSA_sign_setup; + ECDSA_sign: function (type_: TOpenSSL_C_INT; const dgst: PByte; dgstlen: TOpenSSL_C_INT; sig: PByte; siglen: POpenSSL_C_UINT; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl = Load_ECDSA_sign; + ECDSA_sign_ex: function (type_: TOpenSSL_C_INT; const dgst: PByte; dgstlen: TOpenSSL_C_INT; sig: PByte; siglen: POpenSSL_C_UINT; const kinv: PBIGNUM; const rp: PBIGNUM; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl = Load_ECDSA_sign_ex; + ECDSA_verify: function (type_: TOpenSSL_C_INT; const dgst: PByte; dgstlen: TOpenSSL_C_INT; const sig: PByte; siglen: TOpenSSL_C_INT; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl = Load_ECDSA_verify; + ECDSA_size: function (const eckey: PEC_KEY): TOpenSSL_C_INT; cdecl = Load_ECDSA_size; + EC_KEY_METHOD_new: function (const meth: PEC_KEY_METHOD): PEC_KEY_METHOD; cdecl = Load_EC_KEY_METHOD_new; + EC_KEY_METHOD_free: procedure (meth: PEC_KEY_METHOD); cdecl = Load_EC_KEY_METHOD_free; + EC_KEY_METHOD_set_init: procedure (meth: PEC_KEY_METHOD; init: EC_KEY_METHOD_init_init; finish: EC_KEY_METHOD_init_finish; copy: EC_KEY_METHOD_init_copy; set_group: EC_KEY_METHOD_init_set_group; set_private: EC_KEY_METHOD_init_set_private; set_public: EC_KEY_METHOD_init_set_public); cdecl = Load_EC_KEY_METHOD_set_init; + EC_KEY_METHOD_set_keygen: procedure (meth: PEC_KEY_METHOD; keygen: EC_KEY_METHOD_keygen_keygen); cdecl = Load_EC_KEY_METHOD_set_keygen; + EC_KEY_METHOD_set_compute_key: procedure (meth: PEC_KEY_METHOD; ckey: EC_KEY_METHOD_compute_key_ckey); cdecl = Load_EC_KEY_METHOD_set_compute_key; + EC_KEY_METHOD_set_sign: procedure (meth: PEC_KEY_METHOD; sign: EC_KEY_METHOD_sign_sign; sign_setup: EC_KEY_METHOD_sign_sign_setup; sign_sig: EC_KEY_METHOD_sign_sign_sig); cdecl = Load_EC_KEY_METHOD_set_sign; + EC_KEY_METHOD_set_verify: procedure (meth: PEC_KEY_METHOD; verify: EC_KEY_METHOD_verify_verify; verify_sig: EC_KEY_METHOD_verify_verify_sig); cdecl = Load_EC_KEY_METHOD_set_verify; + EC_KEY_METHOD_get_init: procedure (const meth: PEC_KEY_METHOD; pinit: PEC_KEY_METHOD_init_init; pfinish: PEC_KEY_METHOD_init_finish; pcopy: PEC_KEY_METHOD_init_copy; pset_group: PEC_KEY_METHOD_init_set_group; pset_private: PEC_KEY_METHOD_init_set_private; pset_public: PEC_KEY_METHOD_init_set_public); cdecl = Load_EC_KEY_METHOD_get_init; + EC_KEY_METHOD_get_keygen: procedure (const meth: PEC_KEY_METHOD; pkeygen: PEC_KEY_METHOD_keygen_keygen); cdecl = Load_EC_KEY_METHOD_get_keygen; + EC_KEY_METHOD_get_compute_key: procedure (const meth: PEC_KEY_METHOD; pck: PEC_KEY_METHOD_compute_key_ckey); cdecl = Load_EC_KEY_METHOD_get_compute_key; + EC_KEY_METHOD_get_sign: procedure (const meth: PEC_KEY_METHOD; psign: PEC_KEY_METHOD_sign_sign; psign_setup: PEC_KEY_METHOD_sign_sign_setup; psign_sig: PEC_KEY_METHOD_sign_sign_sig); cdecl = Load_EC_KEY_METHOD_get_sign; + EC_KEY_METHOD_get_verify: procedure (const meth: PEC_KEY_METHOD; pverify: PEC_KEY_METHOD_verify_verify; pverify_sig: PEC_KEY_METHOD_verify_verify_sig); cdecl = Load_EC_KEY_METHOD_get_verify; +{$ENDIF} +const + EC_GFp_nistp224_method_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_GFp_nistp224_method_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EC_GFp_nistp256_method_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_GFp_nistp256_method_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EC_GFp_nistp521_method_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_GFp_nistp521_method_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EC_GROUP_get0_order_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_GROUP_order_bits_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_GROUP_get0_cofactor_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_GROUP_set_curve_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_GROUP_get_curve_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_GROUP_new_from_ecparameters_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_GROUP_get_ecparameters_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_GROUP_new_from_ecpkparameters_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_GROUP_get_ecpkparameters_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_POINT_set_affine_coordinates_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_POINT_get_affine_coordinates_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_POINT_set_compressed_coordinates_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_POINT_point2buf_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_get0_engine_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_set_ex_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_get_ex_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_can_sign_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_key2buf_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_oct2key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_oct2priv_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_priv2oct_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_priv2buf_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_OpenSSL_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_get_default_method_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_set_default_method_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_get_method_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_set_method_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_new_method_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ECDSA_SIG_get0_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ECDSA_SIG_get0_r_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ECDSA_SIG_get0_s_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ECDSA_SIG_set0_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_METHOD_new_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_METHOD_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_METHOD_set_init_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_METHOD_set_keygen_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_METHOD_set_compute_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_METHOD_set_sign_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_METHOD_set_verify_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_METHOD_get_init_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_METHOD_get_keygen_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_METHOD_get_compute_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_METHOD_get_sign_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EC_KEY_METHOD_get_verify_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +var + EC_GFp_nistp224_method: function : PEC_METHOD; cdecl = Load_EC_GFp_nistp224_method; {removed 3.0.0} + EC_GFp_nistp256_method: function : PEC_METHOD; cdecl = Load_EC_GFp_nistp256_method; {removed 3.0.0} + EC_GFp_nistp521_method: function : PEC_METHOD; cdecl = Load_EC_GFp_nistp521_method; {removed 3.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_EC_GFp_simple_method: PEC_METHOD; cdecl; +begin + EC_GFp_simple_method := LoadLibCryptoFunction('EC_GFp_simple_method'); + if not assigned(EC_GFp_simple_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GFp_simple_method'); + Result := EC_GFp_simple_method(); +end; + +function Load_EC_GFp_mont_method: PEC_METHOD; cdecl; +begin + EC_GFp_mont_method := LoadLibCryptoFunction('EC_GFp_mont_method'); + if not assigned(EC_GFp_mont_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GFp_mont_method'); + Result := EC_GFp_mont_method(); +end; + +function Load_EC_GFp_nist_method: PEC_METHOD; cdecl; +begin + EC_GFp_nist_method := LoadLibCryptoFunction('EC_GFp_nist_method'); + if not assigned(EC_GFp_nist_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GFp_nist_method'); + Result := EC_GFp_nist_method(); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EC_GFp_nistp224_method: PEC_METHOD; cdecl; +begin + EC_GFp_nistp224_method := LoadLibCryptoFunction('EC_GFp_nistp224_method'); + if not assigned(EC_GFp_nistp224_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GFp_nistp224_method'); + Result := EC_GFp_nistp224_method(); +end; + +function Load_EC_GFp_nistp256_method: PEC_METHOD; cdecl; +begin + EC_GFp_nistp256_method := LoadLibCryptoFunction('EC_GFp_nistp256_method'); + if not assigned(EC_GFp_nistp256_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GFp_nistp256_method'); + Result := EC_GFp_nistp256_method(); +end; + +function Load_EC_GFp_nistp521_method: PEC_METHOD; cdecl; +begin + EC_GFp_nistp521_method := LoadLibCryptoFunction('EC_GFp_nistp521_method'); + if not assigned(EC_GFp_nistp521_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GFp_nistp521_method'); + Result := EC_GFp_nistp521_method(); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EC_GF2m_simple_method: PEC_METHOD; cdecl; +begin + EC_GF2m_simple_method := LoadLibCryptoFunction('EC_GF2m_simple_method'); + if not assigned(EC_GF2m_simple_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GF2m_simple_method'); + Result := EC_GF2m_simple_method(); +end; + +function Load_EC_GROUP_new(const meth: PEC_METHOD): PEC_GROUP; cdecl; +begin + EC_GROUP_new := LoadLibCryptoFunction('EC_GROUP_new'); + if not assigned(EC_GROUP_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_new'); + Result := EC_GROUP_new(meth); +end; + +procedure Load_EC_GROUP_free(group: PEC_GROUP); cdecl; +begin + EC_GROUP_free := LoadLibCryptoFunction('EC_GROUP_free'); + if not assigned(EC_GROUP_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_free'); + EC_GROUP_free(group); +end; + +procedure Load_EC_GROUP_clear_free(group: PEC_GROUP); cdecl; +begin + EC_GROUP_clear_free := LoadLibCryptoFunction('EC_GROUP_clear_free'); + if not assigned(EC_GROUP_clear_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_clear_free'); + EC_GROUP_clear_free(group); +end; + +function Load_EC_GROUP_copy(dst: PEC_GROUP; const src: PEC_GROUP): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_copy := LoadLibCryptoFunction('EC_GROUP_copy'); + if not assigned(EC_GROUP_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_copy'); + Result := EC_GROUP_copy(dst,src); +end; + +function Load_EC_GROUP_dup(const src: PEC_GROUP): PEC_GROUP; cdecl; +begin + EC_GROUP_dup := LoadLibCryptoFunction('EC_GROUP_dup'); + if not assigned(EC_GROUP_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_dup'); + Result := EC_GROUP_dup(src); +end; + +function Load_EC_GROUP_method_of(const group: PEC_GROUP): PEC_GROUP; cdecl; +begin + EC_GROUP_method_of := LoadLibCryptoFunction('EC_GROUP_method_of'); + if not assigned(EC_GROUP_method_of) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_method_of'); + Result := EC_GROUP_method_of(group); +end; + +function Load_EC_METHOD_get_field_type(const meth: PEC_METHOD): TOpenSSL_C_INT; cdecl; +begin + EC_METHOD_get_field_type := LoadLibCryptoFunction('EC_METHOD_get_field_type'); + if not assigned(EC_METHOD_get_field_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_METHOD_get_field_type'); + Result := EC_METHOD_get_field_type(meth); +end; + +function Load_EC_GROUP_set_generator(group: PEC_GROUP; const generator: PEC_POINT; const order: PBIGNUM; const cofactor: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_set_generator := LoadLibCryptoFunction('EC_GROUP_set_generator'); + if not assigned(EC_GROUP_set_generator) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_set_generator'); + Result := EC_GROUP_set_generator(group,generator,order,cofactor); +end; + +function Load_EC_GROUP_get0_generator(const group: PEC_GROUP): PEC_POINT; cdecl; +begin + EC_GROUP_get0_generator := LoadLibCryptoFunction('EC_GROUP_get0_generator'); + if not assigned(EC_GROUP_get0_generator) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get0_generator'); + Result := EC_GROUP_get0_generator(group); +end; + +function Load_EC_GROUP_get_mont_data(const group: PEC_GROUP): PBN_MONT_CTX; cdecl; +begin + EC_GROUP_get_mont_data := LoadLibCryptoFunction('EC_GROUP_get_mont_data'); + if not assigned(EC_GROUP_get_mont_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get_mont_data'); + Result := EC_GROUP_get_mont_data(group); +end; + +function Load_EC_GROUP_get_order(const group: PEC_GROUP; order: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_get_order := LoadLibCryptoFunction('EC_GROUP_get_order'); + if not assigned(EC_GROUP_get_order) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get_order'); + Result := EC_GROUP_get_order(group,order,ctx); +end; + +function Load_EC_GROUP_get0_order(const group: PEC_GROUP): PBIGNUM; cdecl; +begin + EC_GROUP_get0_order := LoadLibCryptoFunction('EC_GROUP_get0_order'); + if not assigned(EC_GROUP_get0_order) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get0_order'); + Result := EC_GROUP_get0_order(group); +end; + +function Load_EC_GROUP_order_bits(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_order_bits := LoadLibCryptoFunction('EC_GROUP_order_bits'); + if not assigned(EC_GROUP_order_bits) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_order_bits'); + Result := EC_GROUP_order_bits(group); +end; + +function Load_EC_GROUP_get_cofactor(const group: PEC_GROUP; cofactor: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_get_cofactor := LoadLibCryptoFunction('EC_GROUP_get_cofactor'); + if not assigned(EC_GROUP_get_cofactor) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get_cofactor'); + Result := EC_GROUP_get_cofactor(group,cofactor,ctx); +end; + +function Load_EC_GROUP_get0_cofactor(const group: PEC_GROUP): PBIGNUM; cdecl; +begin + EC_GROUP_get0_cofactor := LoadLibCryptoFunction('EC_GROUP_get0_cofactor'); + if not assigned(EC_GROUP_get0_cofactor) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get0_cofactor'); + Result := EC_GROUP_get0_cofactor(group); +end; + +procedure Load_EC_GROUP_set_curve_name(group: PEC_GROUP; nid: TOpenSSL_C_INT); cdecl; +begin + EC_GROUP_set_curve_name := LoadLibCryptoFunction('EC_GROUP_set_curve_name'); + if not assigned(EC_GROUP_set_curve_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_set_curve_name'); + EC_GROUP_set_curve_name(group,nid); +end; + +function Load_EC_GROUP_get_curve_name(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_get_curve_name := LoadLibCryptoFunction('EC_GROUP_get_curve_name'); + if not assigned(EC_GROUP_get_curve_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get_curve_name'); + Result := EC_GROUP_get_curve_name(group); +end; + +procedure Load_EC_GROUP_set_asn1_flag(group: PEC_GROUP; flag: TOpenSSL_C_INT); cdecl; +begin + EC_GROUP_set_asn1_flag := LoadLibCryptoFunction('EC_GROUP_set_asn1_flag'); + if not assigned(EC_GROUP_set_asn1_flag) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_set_asn1_flag'); + EC_GROUP_set_asn1_flag(group,flag); +end; + +function Load_EC_GROUP_get_asn1_flag(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_get_asn1_flag := LoadLibCryptoFunction('EC_GROUP_get_asn1_flag'); + if not assigned(EC_GROUP_get_asn1_flag) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get_asn1_flag'); + Result := EC_GROUP_get_asn1_flag(group); +end; + +procedure Load_EC_GROUP_set_point_conversion_form(group: PEC_GROUP; form: point_conversion_form_t); cdecl; +begin + EC_GROUP_set_point_conversion_form := LoadLibCryptoFunction('EC_GROUP_set_point_conversion_form'); + if not assigned(EC_GROUP_set_point_conversion_form) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_set_point_conversion_form'); + EC_GROUP_set_point_conversion_form(group,form); +end; + +function Load_EC_GROUP_get_point_conversion_form(const group: PEC_GROUP): point_conversion_form_t; cdecl; +begin + EC_GROUP_get_point_conversion_form := LoadLibCryptoFunction('EC_GROUP_get_point_conversion_form'); + if not assigned(EC_GROUP_get_point_conversion_form) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get_point_conversion_form'); + Result := EC_GROUP_get_point_conversion_form(group); +end; + +function Load_EC_GROUP_get0_seed(const x: PEC_GROUP): PByte; cdecl; +begin + EC_GROUP_get0_seed := LoadLibCryptoFunction('EC_GROUP_get0_seed'); + if not assigned(EC_GROUP_get0_seed) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get0_seed'); + Result := EC_GROUP_get0_seed(x); +end; + +function Load_EC_GROUP_get_seed_len(const x: PEC_GROUP): TOpenSSL_C_SIZET; cdecl; +begin + EC_GROUP_get_seed_len := LoadLibCryptoFunction('EC_GROUP_get_seed_len'); + if not assigned(EC_GROUP_get_seed_len) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get_seed_len'); + Result := EC_GROUP_get_seed_len(x); +end; + +function Load_EC_GROUP_set_seed(x: PEC_GROUP; const p: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +begin + EC_GROUP_set_seed := LoadLibCryptoFunction('EC_GROUP_set_seed'); + if not assigned(EC_GROUP_set_seed) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_set_seed'); + Result := EC_GROUP_set_seed(x,p,len); +end; + +function Load_EC_GROUP_set_curve(group: PEC_GROUP; const p: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_set_curve := LoadLibCryptoFunction('EC_GROUP_set_curve'); + if not assigned(EC_GROUP_set_curve) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_set_curve'); + Result := EC_GROUP_set_curve(group,p,a,b,ctx); +end; + +function Load_EC_GROUP_get_curve(const group: PEC_GROUP; p: PBIGNUM; a: PBIGNUM; b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_get_curve := LoadLibCryptoFunction('EC_GROUP_get_curve'); + if not assigned(EC_GROUP_get_curve) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get_curve'); + Result := EC_GROUP_get_curve(group,p,a,b,ctx); +end; + +function Load_EC_GROUP_set_curve_GFp(group: PEC_GROUP; const p: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_set_curve_GFp := LoadLibCryptoFunction('EC_GROUP_set_curve_GFp'); + if not assigned(EC_GROUP_set_curve_GFp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_set_curve_GFp'); + Result := EC_GROUP_set_curve_GFp(group,p,a,b,ctx); +end; + +function Load_EC_GROUP_get_curve_GFp(const group: PEC_GROUP; p: PBIGNUM; a: PBIGNUM; b: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_get_curve_GFp := LoadLibCryptoFunction('EC_GROUP_get_curve_GFp'); + if not assigned(EC_GROUP_get_curve_GFp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get_curve_GFp'); + Result := EC_GROUP_get_curve_GFp(group,p,a,b,ctx); +end; + +function Load_EC_GROUP_set_curve_GF2m(group: PEC_GROUP; const p: PBIGNUM; const a: PBIGNUM; const b:PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_set_curve_GF2m := LoadLibCryptoFunction('EC_GROUP_set_curve_GF2m'); + if not assigned(EC_GROUP_set_curve_GF2m) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_set_curve_GF2m'); + Result := EC_GROUP_set_curve_GF2m(group,p,a,b,ctx); +end; + +function Load_EC_GROUP_get_curve_GF2m(const group: PEC_GROUP; p: PBIGNUM; a: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_get_curve_GF2m := LoadLibCryptoFunction('EC_GROUP_get_curve_GF2m'); + if not assigned(EC_GROUP_get_curve_GF2m) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get_curve_GF2m'); + Result := EC_GROUP_get_curve_GF2m(group,p,a,ctx); +end; + +function Load_EC_GROUP_get_degree(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_get_degree := LoadLibCryptoFunction('EC_GROUP_get_degree'); + if not assigned(EC_GROUP_get_degree) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get_degree'); + Result := EC_GROUP_get_degree(group); +end; + +function Load_EC_GROUP_check(const group: PEC_GROUP; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_check := LoadLibCryptoFunction('EC_GROUP_check'); + if not assigned(EC_GROUP_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_check'); + Result := EC_GROUP_check(group,ctx); +end; + +function Load_EC_GROUP_check_discriminant(const group: PEC_GROUP; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_check_discriminant := LoadLibCryptoFunction('EC_GROUP_check_discriminant'); + if not assigned(EC_GROUP_check_discriminant) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_check_discriminant'); + Result := EC_GROUP_check_discriminant(group,ctx); +end; + +function Load_EC_GROUP_cmp(const a: PEC_GROUP; const b: PEC_GROUP; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_cmp := LoadLibCryptoFunction('EC_GROUP_cmp'); + if not assigned(EC_GROUP_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_cmp'); + Result := EC_GROUP_cmp(a,b,ctx); +end; + +function Load_EC_GROUP_new_curve_GFp(const p: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): PEC_GROUP; cdecl; +begin + EC_GROUP_new_curve_GFp := LoadLibCryptoFunction('EC_GROUP_new_curve_GFp'); + if not assigned(EC_GROUP_new_curve_GFp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_new_curve_GFp'); + Result := EC_GROUP_new_curve_GFp(p,a,b,ctx); +end; + +function Load_EC_GROUP_new_curve_GF2m(const p: PBIGNUM; const a: PBIGNUM; const b: PBIGNUM; ctx: PBN_CTX): PEC_GROUP; cdecl; +begin + EC_GROUP_new_curve_GF2m := LoadLibCryptoFunction('EC_GROUP_new_curve_GF2m'); + if not assigned(EC_GROUP_new_curve_GF2m) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_new_curve_GF2m'); + Result := EC_GROUP_new_curve_GF2m(p,a,b,ctx); +end; + +function Load_EC_GROUP_new_by_curve_name(nid: TOpenSSL_C_INT): PEC_GROUP; cdecl; +begin + EC_GROUP_new_by_curve_name := LoadLibCryptoFunction('EC_GROUP_new_by_curve_name'); + if not assigned(EC_GROUP_new_by_curve_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_new_by_curve_name'); + Result := EC_GROUP_new_by_curve_name(nid); +end; + +function Load_EC_GROUP_new_from_ecparameters(const params: PECPARAMETERS): PEC_GROUP; cdecl; +begin + EC_GROUP_new_from_ecparameters := LoadLibCryptoFunction('EC_GROUP_new_from_ecparameters'); + if not assigned(EC_GROUP_new_from_ecparameters) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_new_from_ecparameters'); + Result := EC_GROUP_new_from_ecparameters(params); +end; + +function Load_EC_GROUP_get_ecparameters(const group: PEC_GROUP; params: PECPARAMETERS): PECPARAMETERS; cdecl; +begin + EC_GROUP_get_ecparameters := LoadLibCryptoFunction('EC_GROUP_get_ecparameters'); + if not assigned(EC_GROUP_get_ecparameters) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get_ecparameters'); + Result := EC_GROUP_get_ecparameters(group,params); +end; + +function Load_EC_GROUP_new_from_ecpkparameters(const params: PECPKPARAMETERS): PEC_GROUP; cdecl; +begin + EC_GROUP_new_from_ecpkparameters := LoadLibCryptoFunction('EC_GROUP_new_from_ecpkparameters'); + if not assigned(EC_GROUP_new_from_ecpkparameters) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_new_from_ecpkparameters'); + Result := EC_GROUP_new_from_ecpkparameters(params); +end; + +function Load_EC_GROUP_get_ecpkparameters(const group: PEC_GROUP; params: PECPKPARAMETERS): PECPKPARAMETERS; cdecl; +begin + EC_GROUP_get_ecpkparameters := LoadLibCryptoFunction('EC_GROUP_get_ecpkparameters'); + if not assigned(EC_GROUP_get_ecpkparameters) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get_ecpkparameters'); + Result := EC_GROUP_get_ecpkparameters(group,params); +end; + +function Load_EC_get_builtin_curves(r: PEC_builtin_curve; nitems: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +begin + EC_get_builtin_curves := LoadLibCryptoFunction('EC_get_builtin_curves'); + if not assigned(EC_get_builtin_curves) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_get_builtin_curves'); + Result := EC_get_builtin_curves(r,nitems); +end; + +function Load_EC_curve_nid2nist(nid: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + EC_curve_nid2nist := LoadLibCryptoFunction('EC_curve_nid2nist'); + if not assigned(EC_curve_nid2nist) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_curve_nid2nist'); + Result := EC_curve_nid2nist(nid); +end; + +function Load_EC_curve_nist2nid(const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + EC_curve_nist2nid := LoadLibCryptoFunction('EC_curve_nist2nid'); + if not assigned(EC_curve_nist2nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_curve_nist2nid'); + Result := EC_curve_nist2nid(name); +end; + +function Load_EC_POINT_new(const group: PEC_GROUP): PEC_POINT; cdecl; +begin + EC_POINT_new := LoadLibCryptoFunction('EC_POINT_new'); + if not assigned(EC_POINT_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_new'); + Result := EC_POINT_new(group); +end; + +procedure Load_EC_POINT_free(point: PEC_POINT); cdecl; +begin + EC_POINT_free := LoadLibCryptoFunction('EC_POINT_free'); + if not assigned(EC_POINT_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_free'); + EC_POINT_free(point); +end; + +procedure Load_EC_POINT_clear_free(point: PEC_POINT); cdecl; +begin + EC_POINT_clear_free := LoadLibCryptoFunction('EC_POINT_clear_free'); + if not assigned(EC_POINT_clear_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_clear_free'); + EC_POINT_clear_free(point); +end; + +function Load_EC_POINT_copy(dst: PEC_POINT; const src: PEC_POINT): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_copy := LoadLibCryptoFunction('EC_POINT_copy'); + if not assigned(EC_POINT_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_copy'); + Result := EC_POINT_copy(dst,src); +end; + +function Load_EC_POINT_dup(const src: PEC_POINT; const group: PEC_GROUP): PEC_POINT; cdecl; +begin + EC_POINT_dup := LoadLibCryptoFunction('EC_POINT_dup'); + if not assigned(EC_POINT_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_dup'); + Result := EC_POINT_dup(src,group); +end; + +function Load_EC_POINT_method_of(const point: PEC_POINT): PEC_METHOD; cdecl; +begin + EC_POINT_method_of := LoadLibCryptoFunction('EC_POINT_method_of'); + if not assigned(EC_POINT_method_of) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_method_of'); + Result := EC_POINT_method_of(point); +end; + +function Load_EC_POINT_set_to_infinity(const group: PEC_GROUP; point: PEC_POINT): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_set_to_infinity := LoadLibCryptoFunction('EC_POINT_set_to_infinity'); + if not assigned(EC_POINT_set_to_infinity) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_set_to_infinity'); + Result := EC_POINT_set_to_infinity(group,point); +end; + +function Load_EC_POINT_set_Jprojective_coordinates_GFp(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; const y: PBIGNUM; const z: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_set_Jprojective_coordinates_GFp := LoadLibCryptoFunction('EC_POINT_set_Jprojective_coordinates_GFp'); + if not assigned(EC_POINT_set_Jprojective_coordinates_GFp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_set_Jprojective_coordinates_GFp'); + Result := EC_POINT_set_Jprojective_coordinates_GFp(group,p,x,y,z,ctx); +end; + +function Load_EC_POINT_get_Jprojective_coordinates_GFp(const group: PEC_METHOD; const p: PEC_POINT; x: PBIGNUM; y: PBIGNUM; z: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_get_Jprojective_coordinates_GFp := LoadLibCryptoFunction('EC_POINT_get_Jprojective_coordinates_GFp'); + if not assigned(EC_POINT_get_Jprojective_coordinates_GFp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_get_Jprojective_coordinates_GFp'); + Result := EC_POINT_get_Jprojective_coordinates_GFp(group,p,x,y,z,ctx); +end; + +function Load_EC_POINT_set_affine_coordinates(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; const y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_set_affine_coordinates := LoadLibCryptoFunction('EC_POINT_set_affine_coordinates'); + if not assigned(EC_POINT_set_affine_coordinates) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_set_affine_coordinates'); + Result := EC_POINT_set_affine_coordinates(group,p,x,y,ctx); +end; + +function Load_EC_POINT_get_affine_coordinates(const group: PEC_GROUP; const p: PEC_POINT; x: PBIGNUM; y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_get_affine_coordinates := LoadLibCryptoFunction('EC_POINT_get_affine_coordinates'); + if not assigned(EC_POINT_get_affine_coordinates) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_get_affine_coordinates'); + Result := EC_POINT_get_affine_coordinates(group,p,x,y,ctx); +end; + +function Load_EC_POINT_set_affine_coordinates_GFp(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; const y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_set_affine_coordinates_GFp := LoadLibCryptoFunction('EC_POINT_set_affine_coordinates_GFp'); + if not assigned(EC_POINT_set_affine_coordinates_GFp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_set_affine_coordinates_GFp'); + Result := EC_POINT_set_affine_coordinates_GFp(group,p,x,y,ctx); +end; + +function Load_EC_POINT_get_affine_coordinates_GFp(const group: PEC_GROUP; const p: PEC_POINT; x: PBIGNUM; y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_get_affine_coordinates_GFp := LoadLibCryptoFunction('EC_POINT_get_affine_coordinates_GFp'); + if not assigned(EC_POINT_get_affine_coordinates_GFp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_get_affine_coordinates_GFp'); + Result := EC_POINT_get_affine_coordinates_GFp(group,p,x,y,ctx); +end; + +function Load_EC_POINT_set_compressed_coordinates(const group: PEC_GROUP; p: PEC_POINT; x: PBIGNUM; y_bit: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_set_compressed_coordinates := LoadLibCryptoFunction('EC_POINT_set_compressed_coordinates'); + if not assigned(EC_POINT_set_compressed_coordinates) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_set_compressed_coordinates'); + Result := EC_POINT_set_compressed_coordinates(group,p,x,y_bit,ctx); +end; + +function Load_EC_POINT_set_compressed_coordinates_GFp(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; y_bit: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_set_compressed_coordinates_GFp := LoadLibCryptoFunction('EC_POINT_set_compressed_coordinates_GFp'); + if not assigned(EC_POINT_set_compressed_coordinates_GFp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_set_compressed_coordinates_GFp'); + Result := EC_POINT_set_compressed_coordinates_GFp(group,p,x,y_bit,ctx); +end; + +function Load_EC_POINT_set_affine_coordinates_GF2m(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; const y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_set_affine_coordinates_GF2m := LoadLibCryptoFunction('EC_POINT_set_affine_coordinates_GF2m'); + if not assigned(EC_POINT_set_affine_coordinates_GF2m) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_set_affine_coordinates_GF2m'); + Result := EC_POINT_set_affine_coordinates_GF2m(group,p,x,y,ctx); +end; + +function Load_EC_POINT_get_affine_coordinates_GF2m(const group: PEC_GROUP; p: PEC_POINT; x: PBIGNUM; y: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_get_affine_coordinates_GF2m := LoadLibCryptoFunction('EC_POINT_get_affine_coordinates_GF2m'); + if not assigned(EC_POINT_get_affine_coordinates_GF2m) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_get_affine_coordinates_GF2m'); + Result := EC_POINT_get_affine_coordinates_GF2m(group,p,x,y,ctx); +end; + +function Load_EC_POINT_set_compressed_coordinates_GF2m(const group: PEC_GROUP; p: PEC_POINT; const x: PBIGNUM; y_bit: TOpenSSL_C_INT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_set_compressed_coordinates_GF2m := LoadLibCryptoFunction('EC_POINT_set_compressed_coordinates_GF2m'); + if not assigned(EC_POINT_set_compressed_coordinates_GF2m) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_set_compressed_coordinates_GF2m'); + Result := EC_POINT_set_compressed_coordinates_GF2m(group,p,x,y_bit,ctx); +end; + +function Load_EC_POINT_point2oct(const group: PEC_GROUP; const p: PEC_POINT; form: point_conversion_form_t; buf: PByte; len: TOpenSSL_C_SIZET; ctx: PBN_CTX): TOpenSSL_C_SIZET; cdecl; +begin + EC_POINT_point2oct := LoadLibCryptoFunction('EC_POINT_point2oct'); + if not assigned(EC_POINT_point2oct) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_point2oct'); + Result := EC_POINT_point2oct(group,p,form,buf,len,ctx); +end; + +function Load_EC_POINT_oct2point(const group: PEC_GROUP; p: PEC_POINT; const buf: PByte; len: TOpenSSL_C_SIZET; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_oct2point := LoadLibCryptoFunction('EC_POINT_oct2point'); + if not assigned(EC_POINT_oct2point) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_oct2point'); + Result := EC_POINT_oct2point(group,p,buf,len,ctx); +end; + +function Load_EC_POINT_point2buf(const group: PEC_GROUP; const point: PEC_POINT; form: point_conversion_form_t; pbuf: PPByte; ctx: PBN_CTX): TOpenSSL_C_SIZET; cdecl; +begin + EC_POINT_point2buf := LoadLibCryptoFunction('EC_POINT_point2buf'); + if not assigned(EC_POINT_point2buf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_point2buf'); + Result := EC_POINT_point2buf(group,point,form,pbuf,ctx); +end; + +function Load_EC_POINT_point2bn(const group: PEC_GROUP; const p: PEC_POINT; form: point_conversion_form_t; bn: PBIGNUM; ctx: PBN_CTX): PBIGNUM; cdecl; +begin + EC_POINT_point2bn := LoadLibCryptoFunction('EC_POINT_point2bn'); + if not assigned(EC_POINT_point2bn) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_point2bn'); + Result := EC_POINT_point2bn(group,p,form,bn,ctx); +end; + +function Load_EC_POINT_bn2point(const group: PEC_GROUP; const bn: PBIGNUM; p: PEC_POINT; ctx: PBN_CTX): PEC_POINT; cdecl; +begin + EC_POINT_bn2point := LoadLibCryptoFunction('EC_POINT_bn2point'); + if not assigned(EC_POINT_bn2point) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_bn2point'); + Result := EC_POINT_bn2point(group,bn,p,ctx); +end; + +function Load_EC_POINT_point2hex(const group: PEC_GROUP; const p: PEC_POINT; form: point_conversion_form_t; ctx: PBN_CTX): PAnsiChar; cdecl; +begin + EC_POINT_point2hex := LoadLibCryptoFunction('EC_POINT_point2hex'); + if not assigned(EC_POINT_point2hex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_point2hex'); + Result := EC_POINT_point2hex(group,p,form,ctx); +end; + +function Load_EC_POINT_hex2point(const group: PEC_GROUP; const buf: PAnsiChar; p: PEC_POINT; ctx: PBN_CTX): PEC_POINT; cdecl; +begin + EC_POINT_hex2point := LoadLibCryptoFunction('EC_POINT_hex2point'); + if not assigned(EC_POINT_hex2point) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_hex2point'); + Result := EC_POINT_hex2point(group,buf,p,ctx); +end; + +function Load_EC_POINT_add(const group: PEC_GROUP; r: PEC_POINT; const a: PEC_POINT; const b: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_add := LoadLibCryptoFunction('EC_POINT_add'); + if not assigned(EC_POINT_add) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_add'); + Result := EC_POINT_add(group,r,a,b,ctx); +end; + +function Load_EC_POINT_dbl(const group: PEC_GROUP; r: PEC_POINT; const a: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_dbl := LoadLibCryptoFunction('EC_POINT_dbl'); + if not assigned(EC_POINT_dbl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_dbl'); + Result := EC_POINT_dbl(group,r,a,ctx); +end; + +function Load_EC_POINT_invert(const group: PEC_GROUP; a: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_invert := LoadLibCryptoFunction('EC_POINT_invert'); + if not assigned(EC_POINT_invert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_invert'); + Result := EC_POINT_invert(group,a,ctx); +end; + +function Load_EC_POINT_is_at_infinity(const group: PEC_GROUP; const p: PEC_POINT): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_is_at_infinity := LoadLibCryptoFunction('EC_POINT_is_at_infinity'); + if not assigned(EC_POINT_is_at_infinity) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_is_at_infinity'); + Result := EC_POINT_is_at_infinity(group,p); +end; + +function Load_EC_POINT_is_on_curve(const group: PEC_GROUP; const point: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_is_on_curve := LoadLibCryptoFunction('EC_POINT_is_on_curve'); + if not assigned(EC_POINT_is_on_curve) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_is_on_curve'); + Result := EC_POINT_is_on_curve(group,point,ctx); +end; + +function Load_EC_POINT_cmp(const group: PEC_GROUP; const a: PEC_POINT; const b: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_cmp := LoadLibCryptoFunction('EC_POINT_cmp'); + if not assigned(EC_POINT_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_cmp'); + Result := EC_POINT_cmp(group,a,b,ctx); +end; + +function Load_EC_POINT_make_affine(const group: PEC_GROUP; point: PEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_make_affine := LoadLibCryptoFunction('EC_POINT_make_affine'); + if not assigned(EC_POINT_make_affine) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_make_affine'); + Result := EC_POINT_make_affine(group,point,ctx); +end; + +function Load_EC_POINTs_make_affine(const group: PEC_METHOD; num: TOpenSSL_C_SIZET; points: PPEC_POINT; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINTs_make_affine := LoadLibCryptoFunction('EC_POINTs_make_affine'); + if not assigned(EC_POINTs_make_affine) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINTs_make_affine'); + Result := EC_POINTs_make_affine(group,num,points,ctx); +end; + +function Load_EC_POINTs_mul(const group: PEC_GROUP; r: PEC_POINT; const n: PBIGNUM; num: TOpenSSL_C_SIZET; const p: PPEC_POINT; const m: PPBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINTs_mul := LoadLibCryptoFunction('EC_POINTs_mul'); + if not assigned(EC_POINTs_mul) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINTs_mul'); + Result := EC_POINTs_mul(group,r,n,num,p,m,ctx); +end; + +function Load_EC_POINT_mul(const group: PEC_GROUP; r: PEC_POINT; const n: PBIGNUM; const q: PEC_POINT; const m: PBIGNUM; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_POINT_mul := LoadLibCryptoFunction('EC_POINT_mul'); + if not assigned(EC_POINT_mul) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_POINT_mul'); + Result := EC_POINT_mul(group,r,n,q,m,ctx); +end; + +function Load_EC_GROUP_precompute_mult(group: PEC_GROUP; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_precompute_mult := LoadLibCryptoFunction('EC_GROUP_precompute_mult'); + if not assigned(EC_GROUP_precompute_mult) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_precompute_mult'); + Result := EC_GROUP_precompute_mult(group,ctx); +end; + +function Load_EC_GROUP_have_precompute_mult(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_have_precompute_mult := LoadLibCryptoFunction('EC_GROUP_have_precompute_mult'); + if not assigned(EC_GROUP_have_precompute_mult) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_have_precompute_mult'); + Result := EC_GROUP_have_precompute_mult(group); +end; + +function Load_ECPKPARAMETERS_it: PASN1_ITEM; cdecl; +begin + ECPKPARAMETERS_it := LoadLibCryptoFunction('ECPKPARAMETERS_it'); + if not assigned(ECPKPARAMETERS_it) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECPKPARAMETERS_it'); + Result := ECPKPARAMETERS_it(); +end; + +function Load_ECPKPARAMETERS_new: PECPKPARAMETERS; cdecl; +begin + ECPKPARAMETERS_new := LoadLibCryptoFunction('ECPKPARAMETERS_new'); + if not assigned(ECPKPARAMETERS_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECPKPARAMETERS_new'); + Result := ECPKPARAMETERS_new(); +end; + +procedure Load_ECPKPARAMETERS_free(a: PECPKPARAMETERS); cdecl; +begin + ECPKPARAMETERS_free := LoadLibCryptoFunction('ECPKPARAMETERS_free'); + if not assigned(ECPKPARAMETERS_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECPKPARAMETERS_free'); + ECPKPARAMETERS_free(a); +end; + +function Load_ECPARAMETERS_it: PASN1_ITEM; cdecl; +begin + ECPARAMETERS_it := LoadLibCryptoFunction('ECPARAMETERS_it'); + if not assigned(ECPARAMETERS_it) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECPARAMETERS_it'); + Result := ECPARAMETERS_it(); +end; + +function Load_ECPARAMETERS_new: PECPARAMETERS; cdecl; +begin + ECPARAMETERS_new := LoadLibCryptoFunction('ECPARAMETERS_new'); + if not assigned(ECPARAMETERS_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECPARAMETERS_new'); + Result := ECPARAMETERS_new(); +end; + +procedure Load_ECPARAMETERS_free(a: PECPARAMETERS); cdecl; +begin + ECPARAMETERS_free := LoadLibCryptoFunction('ECPARAMETERS_free'); + if not assigned(ECPARAMETERS_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECPARAMETERS_free'); + ECPARAMETERS_free(a); +end; + +function Load_EC_GROUP_get_basis_type(const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_get_basis_type := LoadLibCryptoFunction('EC_GROUP_get_basis_type'); + if not assigned(EC_GROUP_get_basis_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get_basis_type'); + Result := EC_GROUP_get_basis_type(group); +end; + +function Load_EC_GROUP_get_trinomial_basis(const group: PEC_GROUP; k: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_get_trinomial_basis := LoadLibCryptoFunction('EC_GROUP_get_trinomial_basis'); + if not assigned(EC_GROUP_get_trinomial_basis) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get_trinomial_basis'); + Result := EC_GROUP_get_trinomial_basis(group,k); +end; + +function Load_EC_GROUP_get_pentanomial_basis(const group: PEC_GROUP; k1: POpenSSL_C_UINT; k2: POpenSSL_C_UINT; k3: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + EC_GROUP_get_pentanomial_basis := LoadLibCryptoFunction('EC_GROUP_get_pentanomial_basis'); + if not assigned(EC_GROUP_get_pentanomial_basis) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_GROUP_get_pentanomial_basis'); + Result := EC_GROUP_get_pentanomial_basis(group,k1,k2,k3); +end; + +function Load_d2i_ECPKParameters(group: PPEC_GROUP; const in_: PPByte; len: TOpenSSL_C_LONG): PEC_GROUP; cdecl; +begin + d2i_ECPKParameters := LoadLibCryptoFunction('d2i_ECPKParameters'); + if not assigned(d2i_ECPKParameters) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_ECPKParameters'); + Result := d2i_ECPKParameters(group,in_,len); +end; + +function Load_i2d_ECPKParameters(const group: PEC_GROUP; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_ECPKParameters := LoadLibCryptoFunction('i2d_ECPKParameters'); + if not assigned(i2d_ECPKParameters) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_ECPKParameters'); + Result := i2d_ECPKParameters(group,out_); +end; + +function Load_ECPKParameters_print(bp: PBIO; const x: PEC_GROUP; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ECPKParameters_print := LoadLibCryptoFunction('ECPKParameters_print'); + if not assigned(ECPKParameters_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECPKParameters_print'); + Result := ECPKParameters_print(bp,x,off); +end; + +function Load_EC_KEY_new: PEC_KEY; cdecl; +begin + EC_KEY_new := LoadLibCryptoFunction('EC_KEY_new'); + if not assigned(EC_KEY_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_new'); + Result := EC_KEY_new(); +end; + +function Load_EC_KEY_get_flags(const key: PEC_KEY): TOpenSSL_C_INT; cdecl; +begin + EC_KEY_get_flags := LoadLibCryptoFunction('EC_KEY_get_flags'); + if not assigned(EC_KEY_get_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_get_flags'); + Result := EC_KEY_get_flags(key); +end; + +procedure Load_EC_KEY_set_flags(key: PEC_KEY; flags: TOpenSSL_C_INT); cdecl; +begin + EC_KEY_set_flags := LoadLibCryptoFunction('EC_KEY_set_flags'); + if not assigned(EC_KEY_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_set_flags'); + EC_KEY_set_flags(key,flags); +end; + +procedure Load_EC_KEY_clear_flags(key: PEC_KEY; flags: TOpenSSL_C_INT); cdecl; +begin + EC_KEY_clear_flags := LoadLibCryptoFunction('EC_KEY_clear_flags'); + if not assigned(EC_KEY_clear_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_clear_flags'); + EC_KEY_clear_flags(key,flags); +end; + +function Load_EC_KEY_new_by_curve_name(nid: TOpenSSL_C_INT): PEC_KEY; cdecl; +begin + EC_KEY_new_by_curve_name := LoadLibCryptoFunction('EC_KEY_new_by_curve_name'); + if not assigned(EC_KEY_new_by_curve_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_new_by_curve_name'); + Result := EC_KEY_new_by_curve_name(nid); +end; + +procedure Load_EC_KEY_free(key: PEC_KEY); cdecl; +begin + EC_KEY_free := LoadLibCryptoFunction('EC_KEY_free'); + if not assigned(EC_KEY_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_free'); + EC_KEY_free(key); +end; + +function Load_EC_KEY_copy(dst: PEC_KEY; const src: PEC_KEY): PEC_KEY; cdecl; +begin + EC_KEY_copy := LoadLibCryptoFunction('EC_KEY_copy'); + if not assigned(EC_KEY_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_copy'); + Result := EC_KEY_copy(dst,src); +end; + +function Load_EC_KEY_dup(const src: PEC_KEY): PEC_KEY; cdecl; +begin + EC_KEY_dup := LoadLibCryptoFunction('EC_KEY_dup'); + if not assigned(EC_KEY_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_dup'); + Result := EC_KEY_dup(src); +end; + +function Load_EC_KEY_up_ref(key: PEC_KEY): TOpenSSL_C_INT; cdecl; +begin + EC_KEY_up_ref := LoadLibCryptoFunction('EC_KEY_up_ref'); + if not assigned(EC_KEY_up_ref) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_up_ref'); + Result := EC_KEY_up_ref(key); +end; + +function Load_EC_KEY_get0_engine(const eckey: PEC_KEY): PENGINE; cdecl; +begin + EC_KEY_get0_engine := LoadLibCryptoFunction('EC_KEY_get0_engine'); + if not assigned(EC_KEY_get0_engine) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_get0_engine'); + Result := EC_KEY_get0_engine(eckey); +end; + +function Load_EC_KEY_get0_group(const key: PEC_KEY): PEC_GROUP; cdecl; +begin + EC_KEY_get0_group := LoadLibCryptoFunction('EC_KEY_get0_group'); + if not assigned(EC_KEY_get0_group) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_get0_group'); + Result := EC_KEY_get0_group(key); +end; + +function Load_EC_KEY_set_group(key: PEC_KEY; const group: PEC_GROUP): TOpenSSL_C_INT; cdecl; +begin + EC_KEY_set_group := LoadLibCryptoFunction('EC_KEY_set_group'); + if not assigned(EC_KEY_set_group) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_set_group'); + Result := EC_KEY_set_group(key,group); +end; + +function Load_EC_KEY_get0_private_key(const key: PEC_KEY): PBIGNUM; cdecl; +begin + EC_KEY_get0_private_key := LoadLibCryptoFunction('EC_KEY_get0_private_key'); + if not assigned(EC_KEY_get0_private_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_get0_private_key'); + Result := EC_KEY_get0_private_key(key); +end; + +function Load_EC_KEY_set_private_key(const key: PEC_KEY; const prv: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + EC_KEY_set_private_key := LoadLibCryptoFunction('EC_KEY_set_private_key'); + if not assigned(EC_KEY_set_private_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_set_private_key'); + Result := EC_KEY_set_private_key(key,prv); +end; + +function Load_EC_KEY_get0_public_key(const key: PEC_KEY): PEC_POINT; cdecl; +begin + EC_KEY_get0_public_key := LoadLibCryptoFunction('EC_KEY_get0_public_key'); + if not assigned(EC_KEY_get0_public_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_get0_public_key'); + Result := EC_KEY_get0_public_key(key); +end; + +function Load_EC_KEY_set_public_key(key: PEC_KEY; const pub: PEC_POINT): TOpenSSL_C_INT; cdecl; +begin + EC_KEY_set_public_key := LoadLibCryptoFunction('EC_KEY_set_public_key'); + if not assigned(EC_KEY_set_public_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_set_public_key'); + Result := EC_KEY_set_public_key(key,pub); +end; + +function Load_EC_KEY_get_enc_flags(const key: PEC_KEY): TOpenSSL_C_UINT; cdecl; +begin + EC_KEY_get_enc_flags := LoadLibCryptoFunction('EC_KEY_get_enc_flags'); + if not assigned(EC_KEY_get_enc_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_get_enc_flags'); + Result := EC_KEY_get_enc_flags(key); +end; + +procedure Load_EC_KEY_set_enc_flags(eckey: PEC_KEY; flags: TOpenSSL_C_UINT); cdecl; +begin + EC_KEY_set_enc_flags := LoadLibCryptoFunction('EC_KEY_set_enc_flags'); + if not assigned(EC_KEY_set_enc_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_set_enc_flags'); + EC_KEY_set_enc_flags(eckey,flags); +end; + +function Load_EC_KEY_get_conv_form(const key: PEC_KEY): point_conversion_form_t; cdecl; +begin + EC_KEY_get_conv_form := LoadLibCryptoFunction('EC_KEY_get_conv_form'); + if not assigned(EC_KEY_get_conv_form) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_get_conv_form'); + Result := EC_KEY_get_conv_form(key); +end; + +procedure Load_EC_KEY_set_conv_form(eckey: PEC_KEY; cform: point_conversion_form_t); cdecl; +begin + EC_KEY_set_conv_form := LoadLibCryptoFunction('EC_KEY_set_conv_form'); + if not assigned(EC_KEY_set_conv_form) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_set_conv_form'); + EC_KEY_set_conv_form(eckey,cform); +end; + +function Load_EC_KEY_set_ex_data(key: PEC_KEY; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; +begin + EC_KEY_set_ex_data := LoadLibCryptoFunction('EC_KEY_set_ex_data'); + if not assigned(EC_KEY_set_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_set_ex_data'); + Result := EC_KEY_set_ex_data(key,idx,arg); +end; + +function Load_EC_KEY_get_ex_data(const key: PEC_KEY; idx: TOpenSSL_C_INT): Pointer; cdecl; +begin + EC_KEY_get_ex_data := LoadLibCryptoFunction('EC_KEY_get_ex_data'); + if not assigned(EC_KEY_get_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_get_ex_data'); + Result := EC_KEY_get_ex_data(key,idx); +end; + +procedure Load_EC_KEY_set_asn1_flag(eckey: PEC_KEY; asn1_flag: TOpenSSL_C_INT); cdecl; +begin + EC_KEY_set_asn1_flag := LoadLibCryptoFunction('EC_KEY_set_asn1_flag'); + if not assigned(EC_KEY_set_asn1_flag) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_set_asn1_flag'); + EC_KEY_set_asn1_flag(eckey,asn1_flag); +end; + +function Load_EC_KEY_precompute_mult(key: PEC_KEY; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_KEY_precompute_mult := LoadLibCryptoFunction('EC_KEY_precompute_mult'); + if not assigned(EC_KEY_precompute_mult) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_precompute_mult'); + Result := EC_KEY_precompute_mult(key,ctx); +end; + +function Load_EC_KEY_generate_key(key: PEC_KEY): TOpenSSL_C_INT; cdecl; +begin + EC_KEY_generate_key := LoadLibCryptoFunction('EC_KEY_generate_key'); + if not assigned(EC_KEY_generate_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_generate_key'); + Result := EC_KEY_generate_key(key); +end; + +function Load_EC_KEY_check_key(const key: PEC_KEY): TOpenSSL_C_INT; cdecl; +begin + EC_KEY_check_key := LoadLibCryptoFunction('EC_KEY_check_key'); + if not assigned(EC_KEY_check_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_check_key'); + Result := EC_KEY_check_key(key); +end; + +function Load_EC_KEY_can_sign(const eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; +begin + EC_KEY_can_sign := LoadLibCryptoFunction('EC_KEY_can_sign'); + if not assigned(EC_KEY_can_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_can_sign'); + Result := EC_KEY_can_sign(eckey); +end; + +function Load_EC_KEY_set_public_key_affine_coordinates(key: PEC_KEY; x: PBIGNUM; y: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + EC_KEY_set_public_key_affine_coordinates := LoadLibCryptoFunction('EC_KEY_set_public_key_affine_coordinates'); + if not assigned(EC_KEY_set_public_key_affine_coordinates) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_set_public_key_affine_coordinates'); + Result := EC_KEY_set_public_key_affine_coordinates(key,x,y); +end; + +function Load_EC_KEY_key2buf(const key: PEC_KEY; form: point_conversion_form_t; pbuf: PPByte; ctx: PBN_CTX): TOpenSSL_C_SIZET; cdecl; +begin + EC_KEY_key2buf := LoadLibCryptoFunction('EC_KEY_key2buf'); + if not assigned(EC_KEY_key2buf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_key2buf'); + Result := EC_KEY_key2buf(key,form,pbuf,ctx); +end; + +function Load_EC_KEY_oct2key(key: PEC_KEY; const buf: PByte; len: TOpenSSL_C_SIZET; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + EC_KEY_oct2key := LoadLibCryptoFunction('EC_KEY_oct2key'); + if not assigned(EC_KEY_oct2key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_oct2key'); + Result := EC_KEY_oct2key(key,buf,len,ctx); +end; + +function Load_EC_KEY_oct2priv(key: PEC_KEY; const buf: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EC_KEY_oct2priv := LoadLibCryptoFunction('EC_KEY_oct2priv'); + if not assigned(EC_KEY_oct2priv) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_oct2priv'); + Result := EC_KEY_oct2priv(key,buf,len); +end; + +function Load_EC_KEY_priv2oct(const key: PEC_KEY; buf: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +begin + EC_KEY_priv2oct := LoadLibCryptoFunction('EC_KEY_priv2oct'); + if not assigned(EC_KEY_priv2oct) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_priv2oct'); + Result := EC_KEY_priv2oct(key,buf,len); +end; + +function Load_EC_KEY_priv2buf(const eckey: PEC_KEY; buf: PPByte): TOpenSSL_C_SIZET; cdecl; +begin + EC_KEY_priv2buf := LoadLibCryptoFunction('EC_KEY_priv2buf'); + if not assigned(EC_KEY_priv2buf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_priv2buf'); + Result := EC_KEY_priv2buf(eckey,buf); +end; + +function Load_d2i_ECPrivateKey(key: PPEC_KEY; const in_: PPByte; len: TOpenSSL_C_LONG): PEC_KEY; cdecl; +begin + d2i_ECPrivateKey := LoadLibCryptoFunction('d2i_ECPrivateKey'); + if not assigned(d2i_ECPrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_ECPrivateKey'); + Result := d2i_ECPrivateKey(key,in_,len); +end; + +function Load_i2d_ECPrivateKey(key: PEC_KEY; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_ECPrivateKey := LoadLibCryptoFunction('i2d_ECPrivateKey'); + if not assigned(i2d_ECPrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_ECPrivateKey'); + Result := i2d_ECPrivateKey(key,out_); +end; + +function Load_o2i_ECPublicKey(key: PPEC_KEY; const in_: PPByte; len: TOpenSSL_C_LONG): PEC_KEY; cdecl; +begin + o2i_ECPublicKey := LoadLibCryptoFunction('o2i_ECPublicKey'); + if not assigned(o2i_ECPublicKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('o2i_ECPublicKey'); + Result := o2i_ECPublicKey(key,in_,len); +end; + +function Load_i2o_ECPublicKey(const key: PEC_KEY; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2o_ECPublicKey := LoadLibCryptoFunction('i2o_ECPublicKey'); + if not assigned(i2o_ECPublicKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2o_ECPublicKey'); + Result := i2o_ECPublicKey(key,out_); +end; + +function Load_ECParameters_print(bp: PBIO; const key: PEC_KEY): TOpenSSL_C_INT; cdecl; +begin + ECParameters_print := LoadLibCryptoFunction('ECParameters_print'); + if not assigned(ECParameters_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECParameters_print'); + Result := ECParameters_print(bp,key); +end; + +function Load_EC_KEY_print(bp: PBIO; const key: PEC_KEY; off: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EC_KEY_print := LoadLibCryptoFunction('EC_KEY_print'); + if not assigned(EC_KEY_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_print'); + Result := EC_KEY_print(bp,key,off); +end; + +function Load_EC_KEY_OpenSSL: PEC_KEY_METHOD; cdecl; +begin + EC_KEY_OpenSSL := LoadLibCryptoFunction('EC_KEY_OpenSSL'); + if not assigned(EC_KEY_OpenSSL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_OpenSSL'); + Result := EC_KEY_OpenSSL(); +end; + +function Load_EC_KEY_get_default_method: PEC_KEY_METHOD; cdecl; +begin + EC_KEY_get_default_method := LoadLibCryptoFunction('EC_KEY_get_default_method'); + if not assigned(EC_KEY_get_default_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_get_default_method'); + Result := EC_KEY_get_default_method(); +end; + +procedure Load_EC_KEY_set_default_method(const meth: PEC_KEY_METHOD); cdecl; +begin + EC_KEY_set_default_method := LoadLibCryptoFunction('EC_KEY_set_default_method'); + if not assigned(EC_KEY_set_default_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_set_default_method'); + EC_KEY_set_default_method(meth); +end; + +function Load_EC_KEY_get_method(const key: PEC_KEY): PEC_KEY_METHOD; cdecl; +begin + EC_KEY_get_method := LoadLibCryptoFunction('EC_KEY_get_method'); + if not assigned(EC_KEY_get_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_get_method'); + Result := EC_KEY_get_method(key); +end; + +function Load_EC_KEY_set_method(key: PEC_KEY; const meth: PEC_KEY_METHOD): TOpenSSL_C_INT; cdecl; +begin + EC_KEY_set_method := LoadLibCryptoFunction('EC_KEY_set_method'); + if not assigned(EC_KEY_set_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_set_method'); + Result := EC_KEY_set_method(key,meth); +end; + +function Load_EC_KEY_new_method(engine: PENGINE): PEC_KEY; cdecl; +begin + EC_KEY_new_method := LoadLibCryptoFunction('EC_KEY_new_method'); + if not assigned(EC_KEY_new_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_new_method'); + Result := EC_KEY_new_method(engine); +end; + +function Load_ECDH_KDF_X9_62(out_: PByte; outlen: TOpenSSL_C_SIZET; const Z: PByte; Zlen: TOpenSSL_C_SIZET; const sinfo: PByte; sinfolen: TOpenSSL_C_SIZET; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + ECDH_KDF_X9_62 := LoadLibCryptoFunction('ECDH_KDF_X9_62'); + if not assigned(ECDH_KDF_X9_62) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECDH_KDF_X9_62'); + Result := ECDH_KDF_X9_62(out_,outlen,Z,Zlen,sinfo,sinfolen,md); +end; + +function Load_ECDH_compute_key(out_: Pointer; oulen: TOpenSSL_C_SIZET; const pub_key: PEC_POINT; const ecdh: PEC_KEY; kdf: ECDH_compute_key_KDF): TOpenSSL_C_INT; cdecl; +begin + ECDH_compute_key := LoadLibCryptoFunction('ECDH_compute_key'); + if not assigned(ECDH_compute_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECDH_compute_key'); + Result := ECDH_compute_key(out_,oulen,pub_key,ecdh,kdf); +end; + +function Load_ECDSA_SIG_new: PECDSA_SIG; cdecl; +begin + ECDSA_SIG_new := LoadLibCryptoFunction('ECDSA_SIG_new'); + if not assigned(ECDSA_SIG_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECDSA_SIG_new'); + Result := ECDSA_SIG_new(); +end; + +procedure Load_ECDSA_SIG_free(sig: PECDSA_SIG); cdecl; +begin + ECDSA_SIG_free := LoadLibCryptoFunction('ECDSA_SIG_free'); + if not assigned(ECDSA_SIG_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECDSA_SIG_free'); + ECDSA_SIG_free(sig); +end; + +function Load_i2d_ECDSA_SIG(const sig: PECDSA_SIG; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_ECDSA_SIG := LoadLibCryptoFunction('i2d_ECDSA_SIG'); + if not assigned(i2d_ECDSA_SIG) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_ECDSA_SIG'); + Result := i2d_ECDSA_SIG(sig,pp); +end; + +function Load_d2i_ECDSA_SIG(sig: PPECDSA_SIG; const pp: PPByte; len: TOpenSSL_C_LONG): PECDSA_SIG; cdecl; +begin + d2i_ECDSA_SIG := LoadLibCryptoFunction('d2i_ECDSA_SIG'); + if not assigned(d2i_ECDSA_SIG) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_ECDSA_SIG'); + Result := d2i_ECDSA_SIG(sig,pp,len); +end; + +procedure Load_ECDSA_SIG_get0(const sig: PECDSA_SIG; const pr: PPBIGNUM; const ps: PPBIGNUM); cdecl; +begin + ECDSA_SIG_get0 := LoadLibCryptoFunction('ECDSA_SIG_get0'); + if not assigned(ECDSA_SIG_get0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECDSA_SIG_get0'); + ECDSA_SIG_get0(sig,pr,ps); +end; + +function Load_ECDSA_SIG_get0_r(const sig: PECDSA_SIG): PBIGNUM; cdecl; +begin + ECDSA_SIG_get0_r := LoadLibCryptoFunction('ECDSA_SIG_get0_r'); + if not assigned(ECDSA_SIG_get0_r) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECDSA_SIG_get0_r'); + Result := ECDSA_SIG_get0_r(sig); +end; + +function Load_ECDSA_SIG_get0_s(const sig: PECDSA_SIG): PBIGNUM; cdecl; +begin + ECDSA_SIG_get0_s := LoadLibCryptoFunction('ECDSA_SIG_get0_s'); + if not assigned(ECDSA_SIG_get0_s) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECDSA_SIG_get0_s'); + Result := ECDSA_SIG_get0_s(sig); +end; + +function Load_ECDSA_SIG_set0(sig: PECDSA_SIG; r: PBIGNUM; s: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + ECDSA_SIG_set0 := LoadLibCryptoFunction('ECDSA_SIG_set0'); + if not assigned(ECDSA_SIG_set0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECDSA_SIG_set0'); + Result := ECDSA_SIG_set0(sig,r,s); +end; + +function Load_ECDSA_do_sign(const dgst: PByte; dgst_len: TOpenSSL_C_INT; eckey: PEC_KEY): PECDSA_SIG; cdecl; +begin + ECDSA_do_sign := LoadLibCryptoFunction('ECDSA_do_sign'); + if not assigned(ECDSA_do_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECDSA_do_sign'); + Result := ECDSA_do_sign(dgst,dgst_len,eckey); +end; + +function Load_ECDSA_do_sign_ex(const dgst: PByte; dgst_len: TOpenSSL_C_INT; const kinv: PBIGNUM; const rp: PBIGNUM; eckey: PEC_KEY): PECDSA_SIG; cdecl; +begin + ECDSA_do_sign_ex := LoadLibCryptoFunction('ECDSA_do_sign_ex'); + if not assigned(ECDSA_do_sign_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECDSA_do_sign_ex'); + Result := ECDSA_do_sign_ex(dgst,dgst_len,kinv,rp,eckey); +end; + +function Load_ECDSA_do_verify(const dgst: PByte; dgst_len: TOpenSSL_C_INT; const sig: PECDSA_SIG; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; +begin + ECDSA_do_verify := LoadLibCryptoFunction('ECDSA_do_verify'); + if not assigned(ECDSA_do_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECDSA_do_verify'); + Result := ECDSA_do_verify(dgst,dgst_len,sig,eckey); +end; + +function Load_ECDSA_sign_setup(eckey: PEC_KEY; ctx: PBN_CTX; kiv: PPBIGNUM; rp: PPBIGNUM): TOpenSSL_C_INT; cdecl; +begin + ECDSA_sign_setup := LoadLibCryptoFunction('ECDSA_sign_setup'); + if not assigned(ECDSA_sign_setup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECDSA_sign_setup'); + Result := ECDSA_sign_setup(eckey,ctx,kiv,rp); +end; + +function Load_ECDSA_sign(type_: TOpenSSL_C_INT; const dgst: PByte; dgstlen: TOpenSSL_C_INT; sig: PByte; siglen: POpenSSL_C_UINT; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; +begin + ECDSA_sign := LoadLibCryptoFunction('ECDSA_sign'); + if not assigned(ECDSA_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECDSA_sign'); + Result := ECDSA_sign(type_,dgst,dgstlen,sig,siglen,eckey); +end; + +function Load_ECDSA_sign_ex(type_: TOpenSSL_C_INT; const dgst: PByte; dgstlen: TOpenSSL_C_INT; sig: PByte; siglen: POpenSSL_C_UINT; const kinv: PBIGNUM; const rp: PBIGNUM; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; +begin + ECDSA_sign_ex := LoadLibCryptoFunction('ECDSA_sign_ex'); + if not assigned(ECDSA_sign_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECDSA_sign_ex'); + Result := ECDSA_sign_ex(type_,dgst,dgstlen,sig,siglen,kinv,rp,eckey); +end; + +function Load_ECDSA_verify(type_: TOpenSSL_C_INT; const dgst: PByte; dgstlen: TOpenSSL_C_INT; const sig: PByte; siglen: TOpenSSL_C_INT; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; +begin + ECDSA_verify := LoadLibCryptoFunction('ECDSA_verify'); + if not assigned(ECDSA_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECDSA_verify'); + Result := ECDSA_verify(type_,dgst,dgstlen,sig,siglen,eckey); +end; + +function Load_ECDSA_size(const eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; +begin + ECDSA_size := LoadLibCryptoFunction('ECDSA_size'); + if not assigned(ECDSA_size) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ECDSA_size'); + Result := ECDSA_size(eckey); +end; + +function Load_EC_KEY_METHOD_new(const meth: PEC_KEY_METHOD): PEC_KEY_METHOD; cdecl; +begin + EC_KEY_METHOD_new := LoadLibCryptoFunction('EC_KEY_METHOD_new'); + if not assigned(EC_KEY_METHOD_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_METHOD_new'); + Result := EC_KEY_METHOD_new(meth); +end; + +procedure Load_EC_KEY_METHOD_free(meth: PEC_KEY_METHOD); cdecl; +begin + EC_KEY_METHOD_free := LoadLibCryptoFunction('EC_KEY_METHOD_free'); + if not assigned(EC_KEY_METHOD_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_METHOD_free'); + EC_KEY_METHOD_free(meth); +end; + +procedure Load_EC_KEY_METHOD_set_init(meth: PEC_KEY_METHOD; init: EC_KEY_METHOD_init_init; finish: EC_KEY_METHOD_init_finish; copy: EC_KEY_METHOD_init_copy; set_group: EC_KEY_METHOD_init_set_group; set_private: EC_KEY_METHOD_init_set_private; set_public: EC_KEY_METHOD_init_set_public); cdecl; +begin + EC_KEY_METHOD_set_init := LoadLibCryptoFunction('EC_KEY_METHOD_set_init'); + if not assigned(EC_KEY_METHOD_set_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_METHOD_set_init'); + EC_KEY_METHOD_set_init(meth,init,finish,copy,set_group,set_private,set_public); +end; + +procedure Load_EC_KEY_METHOD_set_keygen(meth: PEC_KEY_METHOD; keygen: EC_KEY_METHOD_keygen_keygen); cdecl; +begin + EC_KEY_METHOD_set_keygen := LoadLibCryptoFunction('EC_KEY_METHOD_set_keygen'); + if not assigned(EC_KEY_METHOD_set_keygen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_METHOD_set_keygen'); + EC_KEY_METHOD_set_keygen(meth,keygen); +end; + +procedure Load_EC_KEY_METHOD_set_compute_key(meth: PEC_KEY_METHOD; ckey: EC_KEY_METHOD_compute_key_ckey); cdecl; +begin + EC_KEY_METHOD_set_compute_key := LoadLibCryptoFunction('EC_KEY_METHOD_set_compute_key'); + if not assigned(EC_KEY_METHOD_set_compute_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_METHOD_set_compute_key'); + EC_KEY_METHOD_set_compute_key(meth,ckey); +end; + +procedure Load_EC_KEY_METHOD_set_sign(meth: PEC_KEY_METHOD; sign: EC_KEY_METHOD_sign_sign; sign_setup: EC_KEY_METHOD_sign_sign_setup; sign_sig: EC_KEY_METHOD_sign_sign_sig); cdecl; +begin + EC_KEY_METHOD_set_sign := LoadLibCryptoFunction('EC_KEY_METHOD_set_sign'); + if not assigned(EC_KEY_METHOD_set_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_METHOD_set_sign'); + EC_KEY_METHOD_set_sign(meth,sign,sign_setup,sign_sig); +end; + +procedure Load_EC_KEY_METHOD_set_verify(meth: PEC_KEY_METHOD; verify: EC_KEY_METHOD_verify_verify; verify_sig: EC_KEY_METHOD_verify_verify_sig); cdecl; +begin + EC_KEY_METHOD_set_verify := LoadLibCryptoFunction('EC_KEY_METHOD_set_verify'); + if not assigned(EC_KEY_METHOD_set_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_METHOD_set_verify'); + EC_KEY_METHOD_set_verify(meth,verify,verify_sig); +end; + +procedure Load_EC_KEY_METHOD_get_init(const meth: PEC_KEY_METHOD; pinit: PEC_KEY_METHOD_init_init; pfinish: PEC_KEY_METHOD_init_finish; pcopy: PEC_KEY_METHOD_init_copy; pset_group: PEC_KEY_METHOD_init_set_group; pset_private: PEC_KEY_METHOD_init_set_private; pset_public: PEC_KEY_METHOD_init_set_public); cdecl; +begin + EC_KEY_METHOD_get_init := LoadLibCryptoFunction('EC_KEY_METHOD_get_init'); + if not assigned(EC_KEY_METHOD_get_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_METHOD_get_init'); + EC_KEY_METHOD_get_init(meth,pinit,pfinish,pcopy,pset_group,pset_private,pset_public); +end; + +procedure Load_EC_KEY_METHOD_get_keygen(const meth: PEC_KEY_METHOD; pkeygen: PEC_KEY_METHOD_keygen_keygen); cdecl; +begin + EC_KEY_METHOD_get_keygen := LoadLibCryptoFunction('EC_KEY_METHOD_get_keygen'); + if not assigned(EC_KEY_METHOD_get_keygen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_METHOD_get_keygen'); + EC_KEY_METHOD_get_keygen(meth,pkeygen); +end; + +procedure Load_EC_KEY_METHOD_get_compute_key(const meth: PEC_KEY_METHOD; pck: PEC_KEY_METHOD_compute_key_ckey); cdecl; +begin + EC_KEY_METHOD_get_compute_key := LoadLibCryptoFunction('EC_KEY_METHOD_get_compute_key'); + if not assigned(EC_KEY_METHOD_get_compute_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_METHOD_get_compute_key'); + EC_KEY_METHOD_get_compute_key(meth,pck); +end; + +procedure Load_EC_KEY_METHOD_get_sign(const meth: PEC_KEY_METHOD; psign: PEC_KEY_METHOD_sign_sign; psign_setup: PEC_KEY_METHOD_sign_sign_setup; psign_sig: PEC_KEY_METHOD_sign_sign_sig); cdecl; +begin + EC_KEY_METHOD_get_sign := LoadLibCryptoFunction('EC_KEY_METHOD_get_sign'); + if not assigned(EC_KEY_METHOD_get_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_METHOD_get_sign'); + EC_KEY_METHOD_get_sign(meth,psign,psign_setup,psign_sig); +end; + +procedure Load_EC_KEY_METHOD_get_verify(const meth: PEC_KEY_METHOD; pverify: PEC_KEY_METHOD_verify_verify; pverify_sig: PEC_KEY_METHOD_verify_verify_sig); cdecl; +begin + EC_KEY_METHOD_get_verify := LoadLibCryptoFunction('EC_KEY_METHOD_get_verify'); + if not assigned(EC_KEY_METHOD_get_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EC_KEY_METHOD_get_verify'); + EC_KEY_METHOD_get_verify(meth,pverify,pverify_sig); +end; + + +procedure UnLoad; +begin + EC_GFp_simple_method := Load_EC_GFp_simple_method; + EC_GFp_mont_method := Load_EC_GFp_mont_method; + EC_GFp_nist_method := Load_EC_GFp_nist_method; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EC_GFp_nistp224_method := Load_EC_GFp_nistp224_method; + EC_GFp_nistp256_method := Load_EC_GFp_nistp256_method; + EC_GFp_nistp521_method := Load_EC_GFp_nistp521_method; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + EC_GF2m_simple_method := Load_EC_GF2m_simple_method; + EC_GROUP_new := Load_EC_GROUP_new; + EC_GROUP_free := Load_EC_GROUP_free; + EC_GROUP_clear_free := Load_EC_GROUP_clear_free; + EC_GROUP_copy := Load_EC_GROUP_copy; + EC_GROUP_dup := Load_EC_GROUP_dup; + EC_GROUP_method_of := Load_EC_GROUP_method_of; + EC_METHOD_get_field_type := Load_EC_METHOD_get_field_type; + EC_GROUP_set_generator := Load_EC_GROUP_set_generator; + EC_GROUP_get0_generator := Load_EC_GROUP_get0_generator; + EC_GROUP_get_mont_data := Load_EC_GROUP_get_mont_data; + EC_GROUP_get_order := Load_EC_GROUP_get_order; + EC_GROUP_get0_order := Load_EC_GROUP_get0_order; + EC_GROUP_order_bits := Load_EC_GROUP_order_bits; + EC_GROUP_get_cofactor := Load_EC_GROUP_get_cofactor; + EC_GROUP_get0_cofactor := Load_EC_GROUP_get0_cofactor; + EC_GROUP_set_curve_name := Load_EC_GROUP_set_curve_name; + EC_GROUP_get_curve_name := Load_EC_GROUP_get_curve_name; + EC_GROUP_set_asn1_flag := Load_EC_GROUP_set_asn1_flag; + EC_GROUP_get_asn1_flag := Load_EC_GROUP_get_asn1_flag; + EC_GROUP_set_point_conversion_form := Load_EC_GROUP_set_point_conversion_form; + EC_GROUP_get_point_conversion_form := Load_EC_GROUP_get_point_conversion_form; + EC_GROUP_get0_seed := Load_EC_GROUP_get0_seed; + EC_GROUP_get_seed_len := Load_EC_GROUP_get_seed_len; + EC_GROUP_set_seed := Load_EC_GROUP_set_seed; + EC_GROUP_set_curve := Load_EC_GROUP_set_curve; + EC_GROUP_get_curve := Load_EC_GROUP_get_curve; + EC_GROUP_set_curve_GFp := Load_EC_GROUP_set_curve_GFp; + EC_GROUP_get_curve_GFp := Load_EC_GROUP_get_curve_GFp; + EC_GROUP_set_curve_GF2m := Load_EC_GROUP_set_curve_GF2m; + EC_GROUP_get_curve_GF2m := Load_EC_GROUP_get_curve_GF2m; + EC_GROUP_get_degree := Load_EC_GROUP_get_degree; + EC_GROUP_check := Load_EC_GROUP_check; + EC_GROUP_check_discriminant := Load_EC_GROUP_check_discriminant; + EC_GROUP_cmp := Load_EC_GROUP_cmp; + EC_GROUP_new_curve_GFp := Load_EC_GROUP_new_curve_GFp; + EC_GROUP_new_curve_GF2m := Load_EC_GROUP_new_curve_GF2m; + EC_GROUP_new_by_curve_name := Load_EC_GROUP_new_by_curve_name; + EC_GROUP_new_from_ecparameters := Load_EC_GROUP_new_from_ecparameters; + EC_GROUP_get_ecparameters := Load_EC_GROUP_get_ecparameters; + EC_GROUP_new_from_ecpkparameters := Load_EC_GROUP_new_from_ecpkparameters; + EC_GROUP_get_ecpkparameters := Load_EC_GROUP_get_ecpkparameters; + EC_get_builtin_curves := Load_EC_get_builtin_curves; + EC_curve_nid2nist := Load_EC_curve_nid2nist; + EC_curve_nist2nid := Load_EC_curve_nist2nid; + EC_POINT_new := Load_EC_POINT_new; + EC_POINT_free := Load_EC_POINT_free; + EC_POINT_clear_free := Load_EC_POINT_clear_free; + EC_POINT_copy := Load_EC_POINT_copy; + EC_POINT_dup := Load_EC_POINT_dup; + EC_POINT_method_of := Load_EC_POINT_method_of; + EC_POINT_set_to_infinity := Load_EC_POINT_set_to_infinity; + EC_POINT_set_Jprojective_coordinates_GFp := Load_EC_POINT_set_Jprojective_coordinates_GFp; + EC_POINT_get_Jprojective_coordinates_GFp := Load_EC_POINT_get_Jprojective_coordinates_GFp; + EC_POINT_set_affine_coordinates := Load_EC_POINT_set_affine_coordinates; + EC_POINT_get_affine_coordinates := Load_EC_POINT_get_affine_coordinates; + EC_POINT_set_affine_coordinates_GFp := Load_EC_POINT_set_affine_coordinates_GFp; + EC_POINT_get_affine_coordinates_GFp := Load_EC_POINT_get_affine_coordinates_GFp; + EC_POINT_set_compressed_coordinates := Load_EC_POINT_set_compressed_coordinates; + EC_POINT_set_compressed_coordinates_GFp := Load_EC_POINT_set_compressed_coordinates_GFp; + EC_POINT_set_affine_coordinates_GF2m := Load_EC_POINT_set_affine_coordinates_GF2m; + EC_POINT_get_affine_coordinates_GF2m := Load_EC_POINT_get_affine_coordinates_GF2m; + EC_POINT_set_compressed_coordinates_GF2m := Load_EC_POINT_set_compressed_coordinates_GF2m; + EC_POINT_point2oct := Load_EC_POINT_point2oct; + EC_POINT_oct2point := Load_EC_POINT_oct2point; + EC_POINT_point2buf := Load_EC_POINT_point2buf; + EC_POINT_point2bn := Load_EC_POINT_point2bn; + EC_POINT_bn2point := Load_EC_POINT_bn2point; + EC_POINT_point2hex := Load_EC_POINT_point2hex; + EC_POINT_hex2point := Load_EC_POINT_hex2point; + EC_POINT_add := Load_EC_POINT_add; + EC_POINT_dbl := Load_EC_POINT_dbl; + EC_POINT_invert := Load_EC_POINT_invert; + EC_POINT_is_at_infinity := Load_EC_POINT_is_at_infinity; + EC_POINT_is_on_curve := Load_EC_POINT_is_on_curve; + EC_POINT_cmp := Load_EC_POINT_cmp; + EC_POINT_make_affine := Load_EC_POINT_make_affine; + EC_POINTs_make_affine := Load_EC_POINTs_make_affine; + EC_POINTs_mul := Load_EC_POINTs_mul; + EC_POINT_mul := Load_EC_POINT_mul; + EC_GROUP_precompute_mult := Load_EC_GROUP_precompute_mult; + EC_GROUP_have_precompute_mult := Load_EC_GROUP_have_precompute_mult; + ECPKPARAMETERS_it := Load_ECPKPARAMETERS_it; + ECPKPARAMETERS_new := Load_ECPKPARAMETERS_new; + ECPKPARAMETERS_free := Load_ECPKPARAMETERS_free; + ECPARAMETERS_it := Load_ECPARAMETERS_it; + ECPARAMETERS_new := Load_ECPARAMETERS_new; + ECPARAMETERS_free := Load_ECPARAMETERS_free; + EC_GROUP_get_basis_type := Load_EC_GROUP_get_basis_type; + EC_GROUP_get_trinomial_basis := Load_EC_GROUP_get_trinomial_basis; + EC_GROUP_get_pentanomial_basis := Load_EC_GROUP_get_pentanomial_basis; + d2i_ECPKParameters := Load_d2i_ECPKParameters; + i2d_ECPKParameters := Load_i2d_ECPKParameters; + ECPKParameters_print := Load_ECPKParameters_print; + EC_KEY_new := Load_EC_KEY_new; + EC_KEY_get_flags := Load_EC_KEY_get_flags; + EC_KEY_set_flags := Load_EC_KEY_set_flags; + EC_KEY_clear_flags := Load_EC_KEY_clear_flags; + EC_KEY_new_by_curve_name := Load_EC_KEY_new_by_curve_name; + EC_KEY_free := Load_EC_KEY_free; + EC_KEY_copy := Load_EC_KEY_copy; + EC_KEY_dup := Load_EC_KEY_dup; + EC_KEY_up_ref := Load_EC_KEY_up_ref; + EC_KEY_get0_engine := Load_EC_KEY_get0_engine; + EC_KEY_get0_group := Load_EC_KEY_get0_group; + EC_KEY_set_group := Load_EC_KEY_set_group; + EC_KEY_get0_private_key := Load_EC_KEY_get0_private_key; + EC_KEY_set_private_key := Load_EC_KEY_set_private_key; + EC_KEY_get0_public_key := Load_EC_KEY_get0_public_key; + EC_KEY_set_public_key := Load_EC_KEY_set_public_key; + EC_KEY_get_enc_flags := Load_EC_KEY_get_enc_flags; + EC_KEY_set_enc_flags := Load_EC_KEY_set_enc_flags; + EC_KEY_get_conv_form := Load_EC_KEY_get_conv_form; + EC_KEY_set_conv_form := Load_EC_KEY_set_conv_form; + EC_KEY_set_ex_data := Load_EC_KEY_set_ex_data; + EC_KEY_get_ex_data := Load_EC_KEY_get_ex_data; + EC_KEY_set_asn1_flag := Load_EC_KEY_set_asn1_flag; + EC_KEY_precompute_mult := Load_EC_KEY_precompute_mult; + EC_KEY_generate_key := Load_EC_KEY_generate_key; + EC_KEY_check_key := Load_EC_KEY_check_key; + EC_KEY_can_sign := Load_EC_KEY_can_sign; + EC_KEY_set_public_key_affine_coordinates := Load_EC_KEY_set_public_key_affine_coordinates; + EC_KEY_key2buf := Load_EC_KEY_key2buf; + EC_KEY_oct2key := Load_EC_KEY_oct2key; + EC_KEY_oct2priv := Load_EC_KEY_oct2priv; + EC_KEY_priv2oct := Load_EC_KEY_priv2oct; + EC_KEY_priv2buf := Load_EC_KEY_priv2buf; + d2i_ECPrivateKey := Load_d2i_ECPrivateKey; + i2d_ECPrivateKey := Load_i2d_ECPrivateKey; + o2i_ECPublicKey := Load_o2i_ECPublicKey; + i2o_ECPublicKey := Load_i2o_ECPublicKey; + ECParameters_print := Load_ECParameters_print; + EC_KEY_print := Load_EC_KEY_print; + EC_KEY_OpenSSL := Load_EC_KEY_OpenSSL; + EC_KEY_get_default_method := Load_EC_KEY_get_default_method; + EC_KEY_set_default_method := Load_EC_KEY_set_default_method; + EC_KEY_get_method := Load_EC_KEY_get_method; + EC_KEY_set_method := Load_EC_KEY_set_method; + EC_KEY_new_method := Load_EC_KEY_new_method; + ECDH_KDF_X9_62 := Load_ECDH_KDF_X9_62; + ECDH_compute_key := Load_ECDH_compute_key; + ECDSA_SIG_new := Load_ECDSA_SIG_new; + ECDSA_SIG_free := Load_ECDSA_SIG_free; + i2d_ECDSA_SIG := Load_i2d_ECDSA_SIG; + d2i_ECDSA_SIG := Load_d2i_ECDSA_SIG; + ECDSA_SIG_get0 := Load_ECDSA_SIG_get0; + ECDSA_SIG_get0_r := Load_ECDSA_SIG_get0_r; + ECDSA_SIG_get0_s := Load_ECDSA_SIG_get0_s; + ECDSA_SIG_set0 := Load_ECDSA_SIG_set0; + ECDSA_do_sign := Load_ECDSA_do_sign; + ECDSA_do_sign_ex := Load_ECDSA_do_sign_ex; + ECDSA_do_verify := Load_ECDSA_do_verify; + ECDSA_sign_setup := Load_ECDSA_sign_setup; + ECDSA_sign := Load_ECDSA_sign; + ECDSA_sign_ex := Load_ECDSA_sign_ex; + ECDSA_verify := Load_ECDSA_verify; + ECDSA_size := Load_ECDSA_size; + EC_KEY_METHOD_new := Load_EC_KEY_METHOD_new; + EC_KEY_METHOD_free := Load_EC_KEY_METHOD_free; + EC_KEY_METHOD_set_init := Load_EC_KEY_METHOD_set_init; + EC_KEY_METHOD_set_keygen := Load_EC_KEY_METHOD_set_keygen; + EC_KEY_METHOD_set_compute_key := Load_EC_KEY_METHOD_set_compute_key; + EC_KEY_METHOD_set_sign := Load_EC_KEY_METHOD_set_sign; + EC_KEY_METHOD_set_verify := Load_EC_KEY_METHOD_set_verify; + EC_KEY_METHOD_get_init := Load_EC_KEY_METHOD_get_init; + EC_KEY_METHOD_get_keygen := Load_EC_KEY_METHOD_get_keygen; + EC_KEY_METHOD_get_compute_key := Load_EC_KEY_METHOD_get_compute_key; + EC_KEY_METHOD_get_sign := Load_EC_KEY_METHOD_get_sign; + EC_KEY_METHOD_get_verify := Load_EC_KEY_METHOD_get_verify; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_ecerr.pas b/src/opensslHdrs/IdOpenSSLHeaders_ecerr.pas new file mode 100644 index 0000000..06d64c3 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_ecerr.pas @@ -0,0 +1,344 @@ +(* This unit was generated from the source file ecerr.h2pas +It should not be modified directly. All changes should be made to ecerr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_ecerr; + + +interface + +// Headers for OpenSSL 1.1.1 +// ecerr.h + + +uses + IdSSLOpenSSLAPI; + +const + (* + * EC function codes. + *) + EC_F_BN_TO_FELEM = 224; + EC_F_D2I_ECPARAMETERS = 144; + EC_F_D2I_ECPKPARAMETERS = 145; + EC_F_D2I_ECPRIVATEKEY = 146; + EC_F_DO_EC_KEY_PRINT = 221; + EC_F_ECDH_CMS_DECRYPT = 238; + EC_F_ECDH_CMS_SET_SHARED_INFO = 239; + EC_F_ECDH_COMPUTE_KEY = 246; + EC_F_ECDH_SIMPLE_COMPUTE_KEY = 257; + EC_F_ECDSA_DO_SIGN_EX = 251; + EC_F_ECDSA_DO_VERIFY = 252; + EC_F_ECDSA_SIGN_EX = 254; + EC_F_ECDSA_SIGN_SETUP = 248; + EC_F_ECDSA_SIG_NEW = 265; + EC_F_ECDSA_VERIFY = 253; + EC_F_ECD_ITEM_VERIFY = 270; + EC_F_ECKEY_PARAM2TYPE = 223; + EC_F_ECKEY_PARAM_DECODE = 212; + EC_F_ECKEY_PRIV_DECODE = 213; + EC_F_ECKEY_PRIV_ENCODE = 214; + EC_F_ECKEY_PUB_DECODE = 215; + EC_F_ECKEY_PUB_ENCODE = 216; + EC_F_ECKEY_TYPE2PARAM = 220; + EC_F_ECPARAMETERS_PRINT = 147; + EC_F_ECPARAMETERS_PRINT_FP = 148; + EC_F_ECPKPARAMETERS_PRINT = 149; + EC_F_ECPKPARAMETERS_PRINT_FP = 150; + EC_F_ECP_NISTZ256_GET_AFFINE = 240; + EC_F_ECP_NISTZ256_INV_MOD_ORD = 275; + EC_F_ECP_NISTZ256_MULT_PRECOMPUTE = 243; + EC_F_ECP_NISTZ256_POINTS_MUL = 241; + EC_F_ECP_NISTZ256_PRE_COMP_NEW = 244; + EC_F_ECP_NISTZ256_WINDOWED_MUL = 242; + EC_F_ECX_KEY_OP = 266; + EC_F_ECX_PRIV_ENCODE = 267; + EC_F_ECX_PUB_ENCODE = 268; + EC_F_EC_ASN1_GROUP2CURVE = 153; + EC_F_EC_ASN1_GROUP2FIELDID = 154; + EC_F_EC_GF2M_MONTGOMERY_POINT_MULTIPLY = 208; + EC_F_EC_GF2M_SIMPLE_FIELD_INV = 296; + EC_F_EC_GF2M_SIMPLE_GROUP_CHECK_DISCRIMINANT = 159; + EC_F_EC_GF2M_SIMPLE_GROUP_SET_CURVE = 195; + EC_F_EC_GF2M_SIMPLE_LADDER_POST = 285; + EC_F_EC_GF2M_SIMPLE_LADDER_PRE = 288; + EC_F_EC_GF2M_SIMPLE_OCT2POINT = 160; + EC_F_EC_GF2M_SIMPLE_POINT2OCT = 161; + EC_F_EC_GF2M_SIMPLE_POINTS_MUL = 289; + EC_F_EC_GF2M_SIMPLE_POINT_GET_AFFINE_COORDINATES = 162; + EC_F_EC_GF2M_SIMPLE_POINT_SET_AFFINE_COORDINATES = 163; + EC_F_EC_GF2M_SIMPLE_SET_COMPRESSED_COORDINATES = 164; + EC_F_EC_GFP_MONT_FIELD_DECODE = 133; + EC_F_EC_GFP_MONT_FIELD_ENCODE = 134; + EC_F_EC_GFP_MONT_FIELD_INV = 297; + EC_F_EC_GFP_MONT_FIELD_MUL = 131; + EC_F_EC_GFP_MONT_FIELD_SET_TO_ONE = 209; + EC_F_EC_GFP_MONT_FIELD_SQR = 132; + EC_F_EC_GFP_MONT_GROUP_SET_CURVE = 189; + EC_F_EC_GFP_NISTP224_GROUP_SET_CURVE = 225; + EC_F_EC_GFP_NISTP224_POINTS_MUL = 228; + EC_F_EC_GFP_NISTP224_POINT_GET_AFFINE_COORDINATES = 226; + EC_F_EC_GFP_NISTP256_GROUP_SET_CURVE = 230; + EC_F_EC_GFP_NISTP256_POINTS_MUL = 231; + EC_F_EC_GFP_NISTP256_POINT_GET_AFFINE_COORDINATES = 232; + EC_F_EC_GFP_NISTP521_GROUP_SET_CURVE = 233; + EC_F_EC_GFP_NISTP521_POINTS_MUL = 234; + EC_F_EC_GFP_NISTP521_POINT_GET_AFFINE_COORDINATES = 235; + EC_F_EC_GFP_NIST_FIELD_MUL = 200; + EC_F_EC_GFP_NIST_FIELD_SQR = 201; + EC_F_EC_GFP_NIST_GROUP_SET_CURVE = 202; + EC_F_EC_GFP_SIMPLE_BLIND_COORDINATES = 287; + EC_F_EC_GFP_SIMPLE_FIELD_INV = 298; + EC_F_EC_GFP_SIMPLE_GROUP_CHECK_DISCRIMINANT = 165; + EC_F_EC_GFP_SIMPLE_GROUP_SET_CURVE = 166; + EC_F_EC_GFP_SIMPLE_MAKE_AFFINE = 102; + EC_F_EC_GFP_SIMPLE_OCT2POINT = 103; + EC_F_EC_GFP_SIMPLE_POINT2OCT = 104; + EC_F_EC_GFP_SIMPLE_POINTS_MAKE_AFFINE = 137; + EC_F_EC_GFP_SIMPLE_POINT_GET_AFFINE_COORDINATES = 167; + EC_F_EC_GFP_SIMPLE_POINT_SET_AFFINE_COORDINATES = 168; + EC_F_EC_GFP_SIMPLE_SET_COMPRESSED_COORDINATES = 169; + EC_F_EC_GROUP_CHECK = 170; + EC_F_EC_GROUP_CHECK_DISCRIMINANT = 171; + EC_F_EC_GROUP_COPY = 106; + EC_F_EC_GROUP_GET_CURVE = 291; + EC_F_EC_GROUP_GET_CURVE_GF2M = 172; + EC_F_EC_GROUP_GET_CURVE_GFP = 130; + EC_F_EC_GROUP_GET_DEGREE = 173; + EC_F_EC_GROUP_GET_ECPARAMETERS = 261; + EC_F_EC_GROUP_GET_ECPKPARAMETERS = 262; + EC_F_EC_GROUP_GET_PENTANOMIAL_BASIS = 193; + EC_F_EC_GROUP_GET_TRINOMIAL_BASIS = 194; + EC_F_EC_GROUP_NEW = 108; + EC_F_EC_GROUP_NEW_BY_CURVE_NAME = 174; + EC_F_EC_GROUP_NEW_FROM_DATA = 175; + EC_F_EC_GROUP_NEW_FROM_ECPARAMETERS = 263; + EC_F_EC_GROUP_NEW_FROM_ECPKPARAMETERS = 264; + EC_F_EC_GROUP_SET_CURVE = 292; + EC_F_EC_GROUP_SET_CURVE_GF2M = 176; + EC_F_EC_GROUP_SET_CURVE_GFP = 109; + EC_F_EC_GROUP_SET_GENERATOR = 111; + EC_F_EC_GROUP_SET_SEED = 286; + EC_F_EC_KEY_CHECK_KEY = 177; + EC_F_EC_KEY_COPY = 178; + EC_F_EC_KEY_GENERATE_KEY = 179; + EC_F_EC_KEY_NEW = 182; + EC_F_EC_KEY_NEW_METHOD = 245; + EC_F_EC_KEY_OCT2PRIV = 255; + EC_F_EC_KEY_PRINT = 180; + EC_F_EC_KEY_PRINT_FP = 181; + EC_F_EC_KEY_PRIV2BUF = 279; + EC_F_EC_KEY_PRIV2OCT = 256; + EC_F_EC_KEY_SET_PUBLIC_KEY_AFFINE_COORDINATES = 229; + EC_F_EC_KEY_SIMPLE_CHECK_KEY = 258; + EC_F_EC_KEY_SIMPLE_OCT2PRIV = 259; + EC_F_EC_KEY_SIMPLE_PRIV2OCT = 260; + EC_F_EC_PKEY_CHECK = 273; + EC_F_EC_PKEY_PARAM_CHECK = 274; + EC_F_EC_POINTS_MAKE_AFFINE = 136; + EC_F_EC_POINTS_MUL = 290; + EC_F_EC_POINT_ADD = 112; + EC_F_EC_POINT_BN2POINT = 280; + EC_F_EC_POINT_CMP = 113; + EC_F_EC_POINT_COPY = 114; + EC_F_EC_POINT_DBL = 115; + EC_F_EC_POINT_GET_AFFINE_COORDINATES = 293; + EC_F_EC_POINT_GET_AFFINE_COORDINATES_GF2M = 183; + EC_F_EC_POINT_GET_AFFINE_COORDINATES_GFP = 116; + EC_F_EC_POINT_GET_JPROJECTIVE_COORDINATES_GFP = 117; + EC_F_EC_POINT_INVERT = 210; + EC_F_EC_POINT_IS_AT_INFINITY = 118; + EC_F_EC_POINT_IS_ON_CURVE = 119; + EC_F_EC_POINT_MAKE_AFFINE = 120; + EC_F_EC_POINT_NEW = 121; + EC_F_EC_POINT_OCT2POINT = 122; + EC_F_EC_POINT_POINT2BUF = 281; + EC_F_EC_POINT_POINT2OCT = 123; + EC_F_EC_POINT_SET_AFFINE_COORDINATES = 294; + EC_F_EC_POINT_SET_AFFINE_COORDINATES_GF2M = 185; + EC_F_EC_POINT_SET_AFFINE_COORDINATES_GFP = 124; + EC_F_EC_POINT_SET_COMPRESSED_COORDINATES = 295; + EC_F_EC_POINT_SET_COMPRESSED_COORDINATES_GF2M = 186; + EC_F_EC_POINT_SET_COMPRESSED_COORDINATES_GFP = 125; + EC_F_EC_POINT_SET_JPROJECTIVE_COORDINATES_GFP = 126; + EC_F_EC_POINT_SET_TO_INFINITY = 127; + EC_F_EC_PRE_COMP_NEW = 196; + EC_F_EC_SCALAR_MUL_LADDER = 284; + EC_F_EC_WNAF_MUL = 187; + EC_F_EC_WNAF_PRECOMPUTE_MULT = 188; + EC_F_I2D_ECPARAMETERS = 190; + EC_F_I2D_ECPKPARAMETERS = 191; + EC_F_I2D_ECPRIVATEKEY = 192; + EC_F_I2O_ECPUBLICKEY = 151; + EC_F_NISTP224_PRE_COMP_NEW = 227; + EC_F_NISTP256_PRE_COMP_NEW = 236; + EC_F_NISTP521_PRE_COMP_NEW = 237; + EC_F_O2I_ECPUBLICKEY = 152; + EC_F_OLD_EC_PRIV_DECODE = 222; + EC_F_OSSL_ECDH_COMPUTE_KEY = 247; + EC_F_OSSL_ECDSA_SIGN_SIG = 249; + EC_F_OSSL_ECDSA_VERIFY_SIG = 250; + EC_F_PKEY_ECD_CTRL = 271; + EC_F_PKEY_ECD_DIGESTSIGN = 272; + EC_F_PKEY_ECD_DIGESTSIGN25519 = 276; + EC_F_PKEY_ECD_DIGESTSIGN448 = 277; + EC_F_PKEY_ECX_DERIVE = 269; + EC_F_PKEY_EC_CTRL = 197; + EC_F_PKEY_EC_CTRL_STR = 198; + EC_F_PKEY_EC_DERIVE = 217; + EC_F_PKEY_EC_INIT = 282; + EC_F_PKEY_EC_KDF_DERIVE = 283; + EC_F_PKEY_EC_KEYGEN = 199; + EC_F_PKEY_EC_PARAMGEN = 219; + EC_F_PKEY_EC_SIGN = 218; + EC_F_VALIDATE_ECX_DERIVE = 278; + + (* + * EC reason codes. + *) + EC_R_ASN1_ERROR = 115; + EC_R_BAD_SIGNATURE = 156; + EC_R_BIGNUM_OUT_OF_RANGE = 144; + EC_R_BUFFER_TOO_SMALL = 100; + EC_R_CANNOT_INVERT = 165; + EC_R_COORDINATES_OUT_OF_RANGE = 146; + EC_R_CURVE_DOES_NOT_SUPPORT_ECDH = 160; + EC_R_CURVE_DOES_NOT_SUPPORT_SIGNING = 159; + EC_R_D2I_ECPKPARAMETERS_FAILURE = 117; + EC_R_DECODE_ERROR = 142; + EC_R_DISCRIMINANT_IS_ZERO = 118; + EC_R_EC_GROUP_NEW_BY_NAME_FAILURE = 119; + EC_R_FIELD_TOO_LARGE = 143; + EC_R_GF2M_NOT_SUPPORTED = 147; + EC_R_GROUP2PKPARAMETERS_FAILURE = 120; + EC_R_I2D_ECPKPARAMETERS_FAILURE = 121; + EC_R_INCOMPATIBLE_OBJECTS = 101; + EC_R_INVALID_ARGUMENT = 112; + EC_R_INVALID_COMPRESSED_POINT = 110; + EC_R_INVALID_COMPRESSION_BIT = 109; + EC_R_INVALID_CURVE = 141; + EC_R_INVALID_DIGEST = 151; + EC_R_INVALID_DIGEST_TYPE = 138; + EC_R_INVALID_ENCODING = 102; + EC_R_INVALID_FIELD = 103; + EC_R_INVALID_FORM = 104; + EC_R_INVALID_GROUP_ORDER = 122; + EC_R_INVALID_KEY = 116; + EC_R_INVALID_OUTPUT_LENGTH = 161; + EC_R_INVALID_PEER_KEY = 133; + EC_R_INVALID_PENTANOMIAL_BASIS = 132; + EC_R_INVALID_PRIVATE_KEY = 123; + EC_R_INVALID_TRINOMIAL_BASIS = 137; + EC_R_KDF_PARAMETER_ERROR = 148; + EC_R_KEYS_NOT_SET = 140; + EC_R_LADDER_POST_FAILURE = 136; + EC_R_LADDER_PRE_FAILURE = 153; + EC_R_LADDER_STEP_FAILURE = 162; + EC_R_MISSING_PARAMETERS = 124; + EC_R_MISSING_PRIVATE_KEY = 125; + EC_R_NEED_NEW_SETUP_VALUES = 157; + EC_R_NOT_A_NIST_PRIME = 135; + EC_R_NOT_IMPLEMENTED = 126; + EC_R_NOT_INITIALIZED = 111; + EC_R_NO_PARAMETERS_SET = 139; + EC_R_NO_PRIVATE_VALUE = 154; + EC_R_OPERATION_NOT_SUPPORTED = 152; + EC_R_PASSED_NULL_PARAMETER = 134; + EC_R_PEER_KEY_ERROR = 149; + EC_R_PKPARAMETERS2GROUP_FAILURE = 127; + EC_R_POINT_ARITHMETIC_FAILURE = 155; + EC_R_POINT_AT_INFINITY = 106; + EC_R_POINT_COORDINATES_BLIND_FAILURE = 163; + EC_R_POINT_IS_NOT_ON_CURVE = 107; + EC_R_RANDOM_NUMBER_GENERATION_FAILED = 158; + EC_R_SHARED_INFO_ERROR = 150; + EC_R_SLOT_FULL = 108; + EC_R_UNDEFINED_GENERATOR = 113; + EC_R_UNDEFINED_ORDER = 128; + EC_R_UNKNOWN_COFACTOR = 164; + EC_R_UNKNOWN_GROUP = 129; + EC_R_UNKNOWN_ORDER = 114; + EC_R_UNSUPPORTED_FIELD = 131; + EC_R_WRONG_CURVE_PARAMETERS = 145; + EC_R_WRONG_ORDER = 130; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_EC_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_EC_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_EC_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_EC_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_EC_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_EC_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_EC_strings := LoadLibCryptoFunction('ERR_load_EC_strings'); + if not assigned(ERR_load_EC_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_EC_strings'); + Result := ERR_load_EC_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_EC_strings := Load_ERR_load_EC_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_engine.pas b/src/opensslHdrs/IdOpenSSLHeaders_engine.pas new file mode 100644 index 0000000..caa6ddf --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_engine.pas @@ -0,0 +1,1954 @@ +(* This unit was generated from the source file engine.h2pas +It should not be modified directly. All changes should be made to engine.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_engine; + + +interface + +// Headers for OpenSSL 1.1.1 +// engine.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_ec; + +const + (* + * These flags are used to control combinations of algorithm (methods) by + * bitwise "OR"ing. + *) + ENGINE_METHOD_RSA = TOpenSSL_C_UINT($0001); + ENGINE_METHOD_DSA = TOpenSSL_C_UINT($0002); + ENGINE_METHOD_DH = TOpenSSL_C_UINT($0004); + ENGINE_METHOD_RAND = TOpenSSL_C_UINT($0008); + ENGINE_METHOD_CIPHERS = TOpenSSL_C_UINT($0040); + ENGINE_METHOD_DIGESTS = TOpenSSL_C_UINT($0080); + ENGINE_METHOD_PKEY_METHS = TOpenSSL_C_UINT($0200); + ENGINE_METHOD_PKEY_ASN1_METHS = TOpenSSL_C_UINT($0400); + ENGINE_METHOD_EC = TOpenSSL_C_UINT($0800); + (* Obvious all-or-nothing cases. *) + ENGINE_METHOD_ALL = TOpenSSL_C_UINT($FFFF); + ENGINE_METHOD_NONE = TOpenSSL_C_UINT($0000); + + // + // This(ese) flag(s) controls behaviour of the ENGINE_TABLE mechanism used + // internally to control registration of ENGINE implementations, and can be + // set by ENGINE_set_table_flags(). The "NOINIT" flag prevents attempts to + // initialise registered ENGINEs if they are not already initialised. + // + ENGINE_TABLE_FLAG_NOINIT = TOpenSSL_C_UINT($0001); + + // + // This flag is for ENGINEs that wish to handle the various 'CMD'-related + // control commands on their own. Without this flag, ENGINE_ctrl() handles + // these control commands on behalf of the ENGINE using their "cmd_defns" + // data. + // + ENGINE_FLAGS_MANUAL_CMD_CTRL = TOpenSSL_C_INT($0002); + + // + // This flag is for ENGINEs who return new duplicate structures when found + // via "ENGINE_by_id()". When an ENGINE must store state (eg. if + // ENGINE_ctrl() commands are called in sequence as part of some stateful + // process like key-generation setup and execution), it can set this flag - + // then each attempt to obtain the ENGINE will result in it being copied intoo + // a new structure. Normally, ENGINEs don't declare this flag so + // ENGINE_by_id() just increments the existing ENGINE's structural reference + // count. + // + ENGINE_FLAGS_BY_ID_COPY = TOpenSSL_C_INT($0004); + + // + // This flag if for an ENGINE that does not want its methods registered as + // part of ENGINE_register_all_complete() for example if the methods are not + // usable as default methods. + // + + ENGINE_FLAGS_NO_REGISTER_ALL = TOpenSSL_C_INT($0008); + + // + // ENGINEs can support their own command types, and these flags are used in + // ENGINE_CTRL_GET_CMD_FLAGS to indicate to the caller what kind of input + // each command expects. Currently only numeric and string input is + // supported. If a control command supports none of the _NUMERIC, _STRING, or + // _NO_INPUT options, then it is regarded as an "internal" control command - + // and not for use in config setting situations. As such, they're not + // available to the ENGINE_ctrl_cmd_string() function, only raw ENGINE_ctrl() + // access. Changes to this list of 'command types' should be reflected + // carefully in ENGINE_cmd_is_executable() and ENGINE_ctrl_cmd_string(). + // + + // accepts a 'long' input value (3rd parameter to ENGINE_ctrl) */ + ENGINE_CMD_FLAG_NUMERIC = TOpenSSL_C_UINT($0001); + // + // accepts string input (cast from 'void*' to 'const char *', 4th parameter + // to ENGINE_ctrl) + // + ENGINE_CMD_FLAG_STRING = TOpenSSL_C_UINT($0002); + // + // Indicates that the control command takes *no* input. Ie. the control + // command is unparameterised. + // + ENGINE_CMD_FLAG_NO_INPUT = TOpenSSL_C_UINT($0004); + // + // Indicates that the control command is internal. This control command won't + // be shown in any output, and is only usable through the ENGINE_ctrl_cmd() + // function. + // + ENGINE_CMD_FLAG_INTERNAL = TOpenSSL_C_UINT($0008); + + // + // NB: These 3 control commands are deprecated and should not be used. + // ENGINEs relying on these commands should compile conditional support for + // compatibility (eg. if these symbols are defined) but should also migrate + // the same functionality to their own ENGINE-specific control functions that + // can be "discovered" by calling applications. The fact these control + // commands wouldn't be "executable" (ie. usable by text-based config) + // doesn't change the fact that application code can find and use them + // without requiring per-ENGINE hacking. + // + + // + // These flags are used to tell the ctrl function what should be done. All + // command numbers are shared between all engines, even if some don't make + // sense to some engines. In such a case, they do nothing but return the + // error ENGINE_R_CTRL_COMMAND_NOT_IMPLEMENTED. + // + ENGINE_CTRL_SET_LOGSTREAM = 1; + ENGINE_CTRL_SET_PASSWORD_CALLBACK = 2; + ENGINE_CTRL_HUP = 3;// Close and reinitialise + // any handles/connections + // etc. + ENGINE_CTRL_SET_USER_INTERFACE = 4;// Alternative to callback + ENGINE_CTRL_SET_CALLBACK_DATA = 5;// User-specific data, used + // when calling the password + // callback and the user + // interface + ENGINE_CTRL_LOAD_CONFIGURATION = 6;// Load a configuration, + // given a string that + // represents a file name + // or so + ENGINE_CTRL_LOAD_SECTION = 7;// Load data from a given + // section in the already + // loaded configuration + + // + // These control commands allow an application to deal with an arbitrary + // engine in a dynamic way. Warn: Negative return values indicate errors FOR + // THESE COMMANDS because zero is used to indicate 'end-of-list'. Other + // commands, including ENGINE-specific command types, return zero for an + // error. An ENGINE can choose to implement these ctrl functions, and can + // internally manage things however it chooses - it does so by setting the + // ENGINE_FLAGS_MANUAL_CMD_CTRL flag (using ENGINE_set_flags()). Otherwise + // the ENGINE_ctrl() code handles this on the ENGINE's behalf using the + // cmd_defns data (set using ENGINE_set_cmd_defns()). This means an ENGINE's + // ctrl() handler need only implement its own commands - the above "meta" + // commands will be taken care of. + // + + // + // Returns non-zero if the supplied ENGINE has a ctrl() handler. If "not", + // then all the remaining control commands will return failure, so it is + // worth checking this first if the caller is trying to "discover" the + // engine's capabilities and doesn't want errors generated unnecessarily. + // + ENGINE_CTRL_HAS_CTRL_FUNCTION = 10; + // + // Returns a positive command number for the first command supported by the + // engine. Returns zero if no ctrl commands are supported. + // + ENGINE_CTRL_GET_FIRST_CMD_TYPE = 11; + // + // The 'long' argument specifies a command implemented by the engine, and the + // return value is the next command supported, or zero if there are no more. + // + ENGINE_CTRL_GET_NEXT_CMD_TYPE = 12; + // + // The 'void*' argument is a command name (cast from 'const char *'), and the + // return value is the command that corresponds to it. + // + ENGINE_CTRL_GET_CMD_FROM_NAME = 13; + // + // The next two allow a command to be converted into its corresponding string + // form. In each case, the 'long' argument supplies the command. In the + // NAME_LEN case, the return value is the length of the command name (not + // counting a trailing EOL). In the NAME case, the 'void*' argument must be a + // string buffer large enough, and it will be populated with the name of the + // command (WITH a trailing EOL). + // + ENGINE_CTRL_GET_NAME_LEN_FROM_CMD = 14; + ENGINE_CTRL_GET_NAME_FROM_CMD = 15; + // The next two are similar but give a "short description" of a command. */ + ENGINE_CTRL_GET_DESC_LEN_FROM_CMD = 16; + ENGINE_CTRL_GET_DESC_FROM_CMD = 17; + // + // With this command, the return value is the OR'd combination of + // ENGINE_CMD_FLAG_*** values that indicate what kind of input a given + // engine-specific ctrl command expects. + // + ENGINE_CTRL_GET_CMD_FLAGS = 18; + + // + // ENGINE implementations should start the numbering of their own control + // commands from this value. (ie. ENGINE_CMD_BASE, ENGINE_CMD_BASE += 1, etc). + // + ENGINE_CMD_BASE = 200; + + // + // NB: These 2 nCipher "chil" control commands are deprecated, and their + // functionality is now available through ENGINE-specific control commands + // (exposed through the above-mentioned 'CMD'-handling). Code using these 2 + // commands should be migrated to the more general command handling before + // these are removed. + // + + // Flags specific to the nCipher "chil" engine */ + ENGINE_CTRL_CHIL_SET_FORKCHECK = 100; + // + // Depending on the value of the (long)i argument, this sets or + // unsets the SimpleForkCheck flag in the CHIL API to enable or + // disable checking and workarounds for applications that fork(). + // + ENGINE_CTRL_CHIL_NO_LOCKING = 101; + // + // This prevents the initialisation function from providing mutex + // callbacks to the nCipher library. + // + +type + // + // If an ENGINE supports its own specific control commands and wishes the + // framework to handle the above 'ENGINE_CMD_***'-manipulation commands on + // its behalf, it should supply a null-terminated array of ENGINE_CMD_DEFN + // entries to ENGINE_set_cmd_defns(). It should also implement a ctrl() + // handler that supports the stated commands (ie. the "cmd_num" entries as + // described by the array). NB: The array must be ordered in increasing order + // of cmd_num. "null-terminated" means that the last ENGINE_CMD_DEFN element + // has cmd_num set to zero and/or cmd_name set to NULL. + // + ENGINE_CMD_DEFN_st = record + cmd_num: TOpenSSL_C_UINT; + cmd_name: PAnsiChar; + cmd_desc: PAnsiChar; + cmd_flags: TOpenSSL_C_UINT; + end; + ENGINE_CMD_DEFN = ENGINE_CMD_DEFN_st; + PENGINE_CMD_DEFN = ^ENGINE_CMD_DEFN; + + // Generic function pointer */ + ENGINE_GEN_FUNC_PTR = function: TOpenSSL_C_INT; cdecl; + // Generic function pointer taking no arguments */ + ENGINE_GEN_INT_FUNC_PTR = function(v1: PENGINE): TOpenSSL_C_INT; cdecl; + // Specific control function pointer */ + f = procedure; cdecl; + ENGINE_CTRL_FUNC_PTR = function(v1: PENGINE; v2: TOpenSSL_C_INT; v3: TOpenSSL_C_LONG; v4: Pointer; v5: f): TOpenSSL_C_INT; cdecl; + // Generic load_key function pointer */ + ENGINE_LOAD_KEY_PTR = function(v1: PENGINE; const v2: PAnsiChar; + ui_method: PUI_METHOD; callback_data: Pointer): PEVP_PKEY; cdecl; + //ENGINE_SSL_CLIENT_CERT_PTR = function(v1: PENGINE; ssl: PSSL; + // {STACK_OF(X509_NAME) *ca_dn;} pcert: PPX509; pkey: PPEVP_PKEY; + // {STACK_OF(X509) **pother;} ui_method: PUI_METHOD; callback_data: Pointer): TOpenSSL_C_INT; cdecl; + + // + // These callback types are for an ENGINE's handler for cipher and digest logic. + // These handlers have these prototypes; + // int foo(ENGINE *e, const EVP_CIPHER **cipher, const int **nids, int nid); + // int foo(ENGINE *e, const EVP_MD **digest, const int **nids, int nid); + // Looking at how to implement these handlers in the case of cipher support, if + // the framework wants the EVP_CIPHER for 'nid', it will call; + // foo(e, &p_evp_cipher, NULL, nid); (return zero for failure) + // If the framework wants a list of supported 'nid's, it will call; + // foo(e, NULL, &p_nids, 0); (returns number of 'nids' or -1 for error) + // + // + // Returns to a pointer to the array of supported cipher 'nid's. If the + // second parameter is non-NULL it is set to the size of the returned array. + // + ENGINE_CIPHERS_PTR = function(v1: PENGINE; const v2: PPEVP_CIPHER; + const v3: PPOpenSSL_C_INT; v4: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + ENGINE_DIGESTS_PTR = function(v1: PENGINE; const v2: PPEVP_MD; + const v3: PPOpenSSL_C_INT; v4: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + ENGINE_PKEY_METHS_PTR = function(v1: PENGINE; v2: PPEVP_PKEY_METHOD; + const v3: PPOpenSSL_C_INT; v4: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + ENGINE_PKEY_ASN1_METHS_PTR = function(v1: PENGINE; v2: PPEVP_PKEY_ASN1_METHOD; + const v3: PPOpenSSL_C_INT; v4: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + + dyn_MEM_malloc_fn = function(v1: TOpenSSL_C_SIZET; const v2: PAnsiChar; v3: TOpenSSL_C_INT): Pointer; cdecl; + dyn_MEM_realloc_fn = function(v1: Pointer; v2: TOpenSSL_C_SIZET; const v3: PAnsiChar; v4: TOpenSSL_C_INT): Pointer; cdecl; + dyn_MEM_free_fn = procedure(v1: Pointer; const v2: PAnsiChar; v3: TOpenSSL_C_INT); cdecl; + + st_dynamic_MEM_fns = record + malloc_fn: dyn_MEM_malloc_fn; + realloc_fn: dyn_MEM_realloc_fn; + free_fn: dyn_MEM_free_fn; + end; + dynamic_MEM_fns = st_dynamic_MEM_fns; + + //* + // * FIXME: Perhaps the memory and locking code (crypto.h) should declare and + // * use these types so we (and any other dependent code) can simplify a bit?? + // */ + //* The top-level structure */ + st_dynamic_fns = record + static_state: Pointer; + mem_fns: dynamic_MEM_fns; + end; + dynamic_fns = st_dynamic_fns; + + //* + // * The version checking function should be of this prototype. NB: The + // * ossl_version value passed in is the OSSL_DYNAMIC_VERSION of the loading + // * code. If this function returns zero, it indicates a (potential) version + // * incompatibility and the loaded library doesn't believe it can proceed. + // * Otherwise, the returned value is the (latest) version supported by the + // * loading library. The loader may still decide that the loaded code's + // * version is unsatisfactory and could veto the load. The function is + // * expected to be implemented with the symbol name "v_check", and a default + // * implementation can be fully instantiated with + // * IMPLEMENT_DYNAMIC_CHECK_FN(). + // */ + dynamic_v_check_fn = function(ossl_version: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; + //# define IMPLEMENT_DYNAMIC_CHECK_FN() \ + // OPENSSL_EXPORT unsigned long v_check(unsigned long v); \ + // OPENSSL_EXPORT unsigned long v_check(unsigned long v) { \ + // if (v >= OSSL_DYNAMIC_OLDEST) return OSSL_DYNAMIC_VERSION; \ + // return 0; } + + //* + // * This function is passed the ENGINE structure to initialise with its own + // * function and command settings. It should not adjust the structural or + // * functional reference counts. If this function returns zero, (a) the load + // * will be aborted, (b) the previous ENGINE state will be memcpy'd back onto + // * the structure, and (c) the shared library will be unloaded. So + // * implementations should do their own internal cleanup in failure + // * circumstances otherwise they could leak. The 'id' parameter, if non-NULL, + // * represents the ENGINE id that the loader is looking for. If this is NULL, + // * the shared library can choose to return failure or to initialise a + // * 'default' ENGINE. If non-NULL, the shared library must initialise only an + // * ENGINE matching the passed 'id'. The function is expected to be + // * implemented with the symbol name "bind_engine". A standard implementation + // * can be instantiated with IMPLEMENT_DYNAMIC_BIND_FN(fn) where the parameter + // * 'fn' is a callback function that populates the ENGINE structure and + // * returns an int value (zero for failure). 'fn' should have prototype; + // * [static] int fn(ENGINE *e, const char *id); + // */ + dynamic_bind_engine = function(e: PENGINE; const id: PAnsiChar; + const fns: dynamic_fns): TOpenSSL_C_INT; cdecl; + + // + // STRUCTURE functions ... all of these functions deal with pointers to + // ENGINE structures where the pointers have a "structural reference". This + // means that their reference is to allowed access to the structure but it + // does not imply that the structure is functional. To simply increment or + // decrement the structural reference count, use ENGINE_by_id and + // ENGINE_free. NB: This is not required when iterating using ENGINE_get_next + // as it will automatically decrement the structural reference count of the + // "current" ENGINE and increment the structural reference count of the + // ENGINE it returns (unless it is NULL). + // + // Get the first/last "ENGINE" type available. */ + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ENGINE_get_first} +{$EXTERNALSYM ENGINE_get_last} +{$EXTERNALSYM ENGINE_get_next} +{$EXTERNALSYM ENGINE_get_prev} +{$EXTERNALSYM ENGINE_add} +{$EXTERNALSYM ENGINE_remove} +{$EXTERNALSYM ENGINE_by_id} +{$EXTERNALSYM ENGINE_load_builtin_engines} +{$EXTERNALSYM ENGINE_get_table_flags} +{$EXTERNALSYM ENGINE_set_table_flags} +{$EXTERNALSYM ENGINE_register_RSA} +{$EXTERNALSYM ENGINE_unregister_RSA} +{$EXTERNALSYM ENGINE_register_all_RSA} +{$EXTERNALSYM ENGINE_register_DSA} +{$EXTERNALSYM ENGINE_unregister_DSA} +{$EXTERNALSYM ENGINE_register_all_DSA} +{$EXTERNALSYM ENGINE_register_EC} +{$EXTERNALSYM ENGINE_unregister_EC} +{$EXTERNALSYM ENGINE_register_all_EC} +{$EXTERNALSYM ENGINE_register_DH} +{$EXTERNALSYM ENGINE_unregister_DH} +{$EXTERNALSYM ENGINE_register_all_DH} +{$EXTERNALSYM ENGINE_register_RAND} +{$EXTERNALSYM ENGINE_unregister_RAND} +{$EXTERNALSYM ENGINE_register_all_RAND} +{$EXTERNALSYM ENGINE_register_ciphers} +{$EXTERNALSYM ENGINE_unregister_ciphers} +{$EXTERNALSYM ENGINE_register_all_ciphers} +{$EXTERNALSYM ENGINE_register_digests} +{$EXTERNALSYM ENGINE_unregister_digests} +{$EXTERNALSYM ENGINE_register_all_digests} +{$EXTERNALSYM ENGINE_register_pkey_meths} +{$EXTERNALSYM ENGINE_unregister_pkey_meths} +{$EXTERNALSYM ENGINE_register_all_pkey_meths} +{$EXTERNALSYM ENGINE_register_pkey_asn1_meths} +{$EXTERNALSYM ENGINE_unregister_pkey_asn1_meths} +{$EXTERNALSYM ENGINE_register_all_pkey_asn1_meths} +{$EXTERNALSYM ENGINE_register_complete} +{$EXTERNALSYM ENGINE_register_all_complete} +{$EXTERNALSYM ENGINE_ctrl} +{$EXTERNALSYM ENGINE_cmd_is_executable} +{$EXTERNALSYM ENGINE_ctrl_cmd} +{$EXTERNALSYM ENGINE_ctrl_cmd_string} +{$EXTERNALSYM ENGINE_new} +{$EXTERNALSYM ENGINE_free} +{$EXTERNALSYM ENGINE_up_ref} +{$EXTERNALSYM ENGINE_set_id} +{$EXTERNALSYM ENGINE_set_name} +{$EXTERNALSYM ENGINE_set_RSA} +{$EXTERNALSYM ENGINE_set_DSA} +{$EXTERNALSYM ENGINE_set_EC} +{$EXTERNALSYM ENGINE_set_DH} +{$EXTERNALSYM ENGINE_set_RAND} +{$EXTERNALSYM ENGINE_set_destroy_function} +{$EXTERNALSYM ENGINE_set_init_function} +{$EXTERNALSYM ENGINE_set_finish_function} +{$EXTERNALSYM ENGINE_set_ctrl_function} +{$EXTERNALSYM ENGINE_set_load_privkey_function} +{$EXTERNALSYM ENGINE_set_load_pubkey_function} +{$EXTERNALSYM ENGINE_set_ciphers} +{$EXTERNALSYM ENGINE_set_digests} +{$EXTERNALSYM ENGINE_set_pkey_meths} +{$EXTERNALSYM ENGINE_set_pkey_asn1_meths} +{$EXTERNALSYM ENGINE_set_flags} +{$EXTERNALSYM ENGINE_set_cmd_defns} +{$EXTERNALSYM ENGINE_set_ex_data} +{$EXTERNALSYM ENGINE_get_ex_data} +{$EXTERNALSYM ENGINE_get_id} +{$EXTERNALSYM ENGINE_get_name} +{$EXTERNALSYM ENGINE_get_RSA} +{$EXTERNALSYM ENGINE_get_DSA} +{$EXTERNALSYM ENGINE_get_EC} +{$EXTERNALSYM ENGINE_get_DH} +{$EXTERNALSYM ENGINE_get_RAND} +{$EXTERNALSYM ENGINE_get_destroy_function} +{$EXTERNALSYM ENGINE_get_init_function} +{$EXTERNALSYM ENGINE_get_finish_function} +{$EXTERNALSYM ENGINE_get_ctrl_function} +{$EXTERNALSYM ENGINE_get_load_privkey_function} +{$EXTERNALSYM ENGINE_get_load_pubkey_function} +{$EXTERNALSYM ENGINE_get_ciphers} +{$EXTERNALSYM ENGINE_get_digests} +{$EXTERNALSYM ENGINE_get_pkey_meths} +{$EXTERNALSYM ENGINE_get_pkey_asn1_meths} +{$EXTERNALSYM ENGINE_get_cipher} +{$EXTERNALSYM ENGINE_get_digest} +{$EXTERNALSYM ENGINE_get_pkey_meth} +{$EXTERNALSYM ENGINE_get_pkey_asn1_meth} +{$EXTERNALSYM ENGINE_get_pkey_asn1_meth_str} +{$EXTERNALSYM ENGINE_pkey_asn1_find_str} +{$EXTERNALSYM ENGINE_get_cmd_defns} +{$EXTERNALSYM ENGINE_get_flags} +{$EXTERNALSYM ENGINE_init} +{$EXTERNALSYM ENGINE_finish} +{$EXTERNALSYM ENGINE_load_private_key} +{$EXTERNALSYM ENGINE_load_public_key} +{$EXTERNALSYM ENGINE_get_default_RSA} +{$EXTERNALSYM ENGINE_get_default_DSA} +{$EXTERNALSYM ENGINE_get_default_EC} +{$EXTERNALSYM ENGINE_get_default_DH} +{$EXTERNALSYM ENGINE_get_default_RAND} +{$EXTERNALSYM ENGINE_get_cipher_engine} +{$EXTERNALSYM ENGINE_get_digest_engine} +{$EXTERNALSYM ENGINE_get_pkey_meth_engine} +{$EXTERNALSYM ENGINE_get_pkey_asn1_meth_engine} +{$EXTERNALSYM ENGINE_set_default_RSA} +{$EXTERNALSYM ENGINE_set_default_string} +{$EXTERNALSYM ENGINE_set_default_DSA} +{$EXTERNALSYM ENGINE_set_default_EC} +{$EXTERNALSYM ENGINE_set_default_DH} +{$EXTERNALSYM ENGINE_set_default_RAND} +{$EXTERNALSYM ENGINE_set_default_ciphers} +{$EXTERNALSYM ENGINE_set_default_digests} +{$EXTERNALSYM ENGINE_set_default_pkey_meths} +{$EXTERNALSYM ENGINE_set_default_pkey_asn1_meths} +{$EXTERNALSYM ENGINE_set_default} +{$EXTERNALSYM ENGINE_add_conf_module} +{$EXTERNALSYM ENGINE_get_static_state} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ENGINE_get_first: PENGINE; cdecl; external CLibCrypto; +function ENGINE_get_last: PENGINE; cdecl; external CLibCrypto; +function ENGINE_get_next(e: PENGINE): PENGINE; cdecl; external CLibCrypto; +function ENGINE_get_prev(e: PENGINE): PENGINE; cdecl; external CLibCrypto; +function ENGINE_add(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_remove(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_by_id(const id: PAnsiChar): PENGINE; cdecl; external CLibCrypto; +procedure ENGINE_load_builtin_engines; cdecl; external CLibCrypto; +function ENGINE_get_table_flags: TOpenSSL_C_UINT; cdecl; external CLibCrypto; +procedure ENGINE_set_table_flags(flags: TOpenSSL_C_UINT); cdecl; external CLibCrypto; +function ENGINE_register_RSA(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ENGINE_unregister_RSA(e: PENGINE); cdecl; external CLibCrypto; +procedure ENGINE_register_all_RSA; cdecl; external CLibCrypto; +function ENGINE_register_DSA(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ENGINE_unregister_DSA(e: PENGINE); cdecl; external CLibCrypto; +procedure ENGINE_register_all_DSA; cdecl; external CLibCrypto; +function ENGINE_register_EC(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ENGINE_unregister_EC(e: PENGINE); cdecl; external CLibCrypto; +procedure ENGINE_register_all_EC; cdecl; external CLibCrypto; +function ENGINE_register_DH(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ENGINE_unregister_DH(e: PENGINE); cdecl; external CLibCrypto; +procedure ENGINE_register_all_DH; cdecl; external CLibCrypto; +function ENGINE_register_RAND(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ENGINE_unregister_RAND(e: PENGINE); cdecl; external CLibCrypto; +procedure ENGINE_register_all_RAND; cdecl; external CLibCrypto; +function ENGINE_register_ciphers(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ENGINE_unregister_ciphers(e: PENGINE); cdecl; external CLibCrypto; +procedure ENGINE_register_all_ciphers; cdecl; external CLibCrypto; +function ENGINE_register_digests(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ENGINE_unregister_digests(e: PENGINE); cdecl; external CLibCrypto; +procedure ENGINE_register_all_digests; cdecl; external CLibCrypto; +function ENGINE_register_pkey_meths(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ENGINE_unregister_pkey_meths(e: PENGINE); cdecl; external CLibCrypto; +procedure ENGINE_register_all_pkey_meths; cdecl; external CLibCrypto; +function ENGINE_register_pkey_asn1_meths(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ENGINE_unregister_pkey_asn1_meths(e: PENGINE); cdecl; external CLibCrypto; +procedure ENGINE_register_all_pkey_asn1_meths; cdecl; external CLibCrypto; +function ENGINE_register_complete(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_register_all_complete: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_ctrl(e: PENGINE; cmd: TOpenSSL_C_INT; i: TOpenSSL_C_LONG; p: Pointer; v1: f): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_cmd_is_executable(e: PENGINE; cmd: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_ctrl_cmd(e: PENGINE; const cmd_name: PAnsiChar; i: TOpenSSL_C_LONG; p: Pointer; v1: f; cmd_optional: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_ctrl_cmd_string(e: PENGINE; const cmd_name: PAnsiChar; const arg: PAnsiChar; cmd_optional: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_new: PENGINE; cdecl; external CLibCrypto; +function ENGINE_free(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_up_ref(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_id(e: PENGINE; const id: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_name(e: PENGINE; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_RSA(e: PENGINE; const rsa_meth: PRSA_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_DSA(e: PENGINE; const dsa_meth: PDSA_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_EC(e: PENGINE; const ecdsa_meth: PEC_KEY_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_DH(e: PENGINE; const dh_meth: PDH_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_RAND(e: PENGINE; const rand_meth: PRAND_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_destroy_function(e: PENGINE; destroy_f: ENGINE_GEN_INT_FUNC_PTR): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_init_function(e: PENGINE; init_f: ENGINE_GEN_INT_FUNC_PTR): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_finish_function(e: PENGINE; finish_f: ENGINE_GEN_INT_FUNC_PTR): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_ctrl_function(e: PENGINE; ctrl_f: ENGINE_CTRL_FUNC_PTR): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_load_privkey_function(e: PENGINE; loadpriv_f: ENGINE_LOAD_KEY_PTR): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_load_pubkey_function(e: PENGINE; loadpub_f: ENGINE_LOAD_KEY_PTR): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_ciphers(e: PENGINE; f: ENGINE_CIPHERS_PTR): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_digests(e: PENGINE; f: ENGINE_DIGESTS_PTR): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_pkey_meths(e: PENGINE; f: ENGINE_PKEY_METHS_PTR): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_pkey_asn1_meths(e: PENGINE; f: ENGINE_PKEY_ASN1_METHS_PTR): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_flags(e: PENGINE; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_cmd_defns(e: PENGINE; const defns: PENGINE_CMD_DEFN): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_ex_data(e: PENGINE; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_get_ex_data(const e: PENGINE; idx: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function ENGINE_get_id(const e: PENGINE): PAnsiChar; cdecl; external CLibCrypto; +function ENGINE_get_name(const e: PENGINE): PAnsiChar; cdecl; external CLibCrypto; +function ENGINE_get_RSA(const e: PENGINE): PRSA_METHOD; cdecl; external CLibCrypto; +function ENGINE_get_DSA(const e: PENGINE): PDSA_METHOD; cdecl; external CLibCrypto; +function ENGINE_get_EC(const e: PENGINE): PEC_METHOD; cdecl; external CLibCrypto; +function ENGINE_get_DH(const e: PENGINE): PDH_METHOD; cdecl; external CLibCrypto; +function ENGINE_get_RAND(const e: PENGINE): PRAND_METHOD; cdecl; external CLibCrypto; +function ENGINE_get_destroy_function(const e: PENGINE): ENGINE_GEN_INT_FUNC_PTR; cdecl; external CLibCrypto; +function ENGINE_get_init_function(const e: PENGINE): ENGINE_GEN_INT_FUNC_PTR; cdecl; external CLibCrypto; +function ENGINE_get_finish_function(const e: PENGINE): ENGINE_GEN_INT_FUNC_PTR; cdecl; external CLibCrypto; +function ENGINE_get_ctrl_function(const e: PENGINE): ENGINE_CTRL_FUNC_PTR; cdecl; external CLibCrypto; +function ENGINE_get_load_privkey_function(const e: PENGINE): ENGINE_LOAD_KEY_PTR; cdecl; external CLibCrypto; +function ENGINE_get_load_pubkey_function(const e: PENGINE): ENGINE_LOAD_KEY_PTR; cdecl; external CLibCrypto; +function ENGINE_get_ciphers(const e: PENGINE): ENGINE_CIPHERS_PTR; cdecl; external CLibCrypto; +function ENGINE_get_digests(const e: PENGINE): ENGINE_DIGESTS_PTR; cdecl; external CLibCrypto; +function ENGINE_get_pkey_meths(const e: PENGINE): ENGINE_PKEY_METHS_PTR; cdecl; external CLibCrypto; +function ENGINE_get_pkey_asn1_meths(const e: PENGINE): ENGINE_PKEY_ASN1_METHS_PTR; cdecl; external CLibCrypto; +function ENGINE_get_cipher(e: PENGINE; nid: TOpenSSL_C_INT): PEVP_CIPHER; cdecl; external CLibCrypto; +function ENGINE_get_digest(e: PENGINE; nid: TOpenSSL_C_INT): PEVP_MD; cdecl; external CLibCrypto; +function ENGINE_get_pkey_meth(e: PENGINE; nid: TOpenSSL_C_INT): PEVP_PKEY_METHOD; cdecl; external CLibCrypto; +function ENGINE_get_pkey_asn1_meth(e: PENGINE; nid: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; external CLibCrypto; +function ENGINE_get_pkey_asn1_meth_str(e: PENGINE; const str: PAnsiChar; len: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; external CLibCrypto; +function ENGINE_pkey_asn1_find_str(pe: PPENGINE; const str: PAnsiChar; len: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; external CLibCrypto; +function ENGINE_get_cmd_defns(const e: PENGINE): PENGINE_CMD_DEFN; cdecl; external CLibCrypto; +function ENGINE_get_flags(const e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_init(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_finish(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_load_private_key(e: PENGINE; const key_id: PAnsiChar; ui_method: PUI_METHOD; callback_data: Pointer): PEVP_PKEY; cdecl; external CLibCrypto; +function ENGINE_load_public_key(e: PENGINE; const key_id: PAnsiChar; ui_method: PUI_METHOD; callback_data: Pointer): PEVP_PKEY; cdecl; external CLibCrypto; +function ENGINE_get_default_RSA: PENGINE; cdecl; external CLibCrypto; +function ENGINE_get_default_DSA: PENGINE; cdecl; external CLibCrypto; +function ENGINE_get_default_EC: PENGINE; cdecl; external CLibCrypto; +function ENGINE_get_default_DH: PENGINE; cdecl; external CLibCrypto; +function ENGINE_get_default_RAND: PENGINE; cdecl; external CLibCrypto; +function ENGINE_get_cipher_engine(nid: TOpenSSL_C_INT): PENGINE; cdecl; external CLibCrypto; +function ENGINE_get_digest_engine(nid: TOpenSSL_C_INT): PENGINE; cdecl; external CLibCrypto; +function ENGINE_get_pkey_meth_engine(nid: TOpenSSL_C_INT): PENGINE; cdecl; external CLibCrypto; +function ENGINE_get_pkey_asn1_meth_engine(nid: TOpenSSL_C_INT): PENGINE; cdecl; external CLibCrypto; +function ENGINE_set_default_RSA(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_default_string(e: PENGINE; const def_list: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_default_DSA(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_default_EC(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_default_DH(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_default_RAND(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_default_ciphers(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_default_digests(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_default_pkey_meths(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_default_pkey_asn1_meths(e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ENGINE_set_default(e: PENGINE; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure ENGINE_add_conf_module; cdecl; external CLibCrypto; +function ENGINE_get_static_state: Pointer; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ENGINE_get_first: PENGINE; cdecl; +function Load_ENGINE_get_last: PENGINE; cdecl; +function Load_ENGINE_get_next(e: PENGINE): PENGINE; cdecl; +function Load_ENGINE_get_prev(e: PENGINE): PENGINE; cdecl; +function Load_ENGINE_add(e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_remove(e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_by_id(const id: PAnsiChar): PENGINE; cdecl; +procedure Load_ENGINE_load_builtin_engines; cdecl; +function Load_ENGINE_get_table_flags: TOpenSSL_C_UINT; cdecl; +procedure Load_ENGINE_set_table_flags(flags: TOpenSSL_C_UINT); cdecl; +function Load_ENGINE_register_RSA(e: PENGINE): TOpenSSL_C_INT; cdecl; +procedure Load_ENGINE_unregister_RSA(e: PENGINE); cdecl; +procedure Load_ENGINE_register_all_RSA; cdecl; +function Load_ENGINE_register_DSA(e: PENGINE): TOpenSSL_C_INT; cdecl; +procedure Load_ENGINE_unregister_DSA(e: PENGINE); cdecl; +procedure Load_ENGINE_register_all_DSA; cdecl; +function Load_ENGINE_register_EC(e: PENGINE): TOpenSSL_C_INT; cdecl; +procedure Load_ENGINE_unregister_EC(e: PENGINE); cdecl; +procedure Load_ENGINE_register_all_EC; cdecl; +function Load_ENGINE_register_DH(e: PENGINE): TOpenSSL_C_INT; cdecl; +procedure Load_ENGINE_unregister_DH(e: PENGINE); cdecl; +procedure Load_ENGINE_register_all_DH; cdecl; +function Load_ENGINE_register_RAND(e: PENGINE): TOpenSSL_C_INT; cdecl; +procedure Load_ENGINE_unregister_RAND(e: PENGINE); cdecl; +procedure Load_ENGINE_register_all_RAND; cdecl; +function Load_ENGINE_register_ciphers(e: PENGINE): TOpenSSL_C_INT; cdecl; +procedure Load_ENGINE_unregister_ciphers(e: PENGINE); cdecl; +procedure Load_ENGINE_register_all_ciphers; cdecl; +function Load_ENGINE_register_digests(e: PENGINE): TOpenSSL_C_INT; cdecl; +procedure Load_ENGINE_unregister_digests(e: PENGINE); cdecl; +procedure Load_ENGINE_register_all_digests; cdecl; +function Load_ENGINE_register_pkey_meths(e: PENGINE): TOpenSSL_C_INT; cdecl; +procedure Load_ENGINE_unregister_pkey_meths(e: PENGINE); cdecl; +procedure Load_ENGINE_register_all_pkey_meths; cdecl; +function Load_ENGINE_register_pkey_asn1_meths(e: PENGINE): TOpenSSL_C_INT; cdecl; +procedure Load_ENGINE_unregister_pkey_asn1_meths(e: PENGINE); cdecl; +procedure Load_ENGINE_register_all_pkey_asn1_meths; cdecl; +function Load_ENGINE_register_complete(e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_register_all_complete: TOpenSSL_C_INT; cdecl; +function Load_ENGINE_ctrl(e: PENGINE; cmd: TOpenSSL_C_INT; i: TOpenSSL_C_LONG; p: Pointer; v1: f): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_cmd_is_executable(e: PENGINE; cmd: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_ctrl_cmd(e: PENGINE; const cmd_name: PAnsiChar; i: TOpenSSL_C_LONG; p: Pointer; v1: f; cmd_optional: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_ctrl_cmd_string(e: PENGINE; const cmd_name: PAnsiChar; const arg: PAnsiChar; cmd_optional: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_new: PENGINE; cdecl; +function Load_ENGINE_free(e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_up_ref(e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_id(e: PENGINE; const id: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_name(e: PENGINE; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_RSA(e: PENGINE; const rsa_meth: PRSA_METHOD): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_DSA(e: PENGINE; const dsa_meth: PDSA_METHOD): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_EC(e: PENGINE; const ecdsa_meth: PEC_KEY_METHOD): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_DH(e: PENGINE; const dh_meth: PDH_METHOD): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_RAND(e: PENGINE; const rand_meth: PRAND_METHOD): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_destroy_function(e: PENGINE; destroy_f: ENGINE_GEN_INT_FUNC_PTR): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_init_function(e: PENGINE; init_f: ENGINE_GEN_INT_FUNC_PTR): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_finish_function(e: PENGINE; finish_f: ENGINE_GEN_INT_FUNC_PTR): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_ctrl_function(e: PENGINE; ctrl_f: ENGINE_CTRL_FUNC_PTR): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_load_privkey_function(e: PENGINE; loadpriv_f: ENGINE_LOAD_KEY_PTR): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_load_pubkey_function(e: PENGINE; loadpub_f: ENGINE_LOAD_KEY_PTR): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_ciphers(e: PENGINE; f: ENGINE_CIPHERS_PTR): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_digests(e: PENGINE; f: ENGINE_DIGESTS_PTR): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_pkey_meths(e: PENGINE; f: ENGINE_PKEY_METHS_PTR): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_pkey_asn1_meths(e: PENGINE; f: ENGINE_PKEY_ASN1_METHS_PTR): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_flags(e: PENGINE; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_cmd_defns(e: PENGINE; const defns: PENGINE_CMD_DEFN): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_ex_data(e: PENGINE; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_get_ex_data(const e: PENGINE; idx: TOpenSSL_C_INT): Pointer; cdecl; +function Load_ENGINE_get_id(const e: PENGINE): PAnsiChar; cdecl; +function Load_ENGINE_get_name(const e: PENGINE): PAnsiChar; cdecl; +function Load_ENGINE_get_RSA(const e: PENGINE): PRSA_METHOD; cdecl; +function Load_ENGINE_get_DSA(const e: PENGINE): PDSA_METHOD; cdecl; +function Load_ENGINE_get_EC(const e: PENGINE): PEC_METHOD; cdecl; +function Load_ENGINE_get_DH(const e: PENGINE): PDH_METHOD; cdecl; +function Load_ENGINE_get_RAND(const e: PENGINE): PRAND_METHOD; cdecl; +function Load_ENGINE_get_destroy_function(const e: PENGINE): ENGINE_GEN_INT_FUNC_PTR; cdecl; +function Load_ENGINE_get_init_function(const e: PENGINE): ENGINE_GEN_INT_FUNC_PTR; cdecl; +function Load_ENGINE_get_finish_function(const e: PENGINE): ENGINE_GEN_INT_FUNC_PTR; cdecl; +function Load_ENGINE_get_ctrl_function(const e: PENGINE): ENGINE_CTRL_FUNC_PTR; cdecl; +function Load_ENGINE_get_load_privkey_function(const e: PENGINE): ENGINE_LOAD_KEY_PTR; cdecl; +function Load_ENGINE_get_load_pubkey_function(const e: PENGINE): ENGINE_LOAD_KEY_PTR; cdecl; +function Load_ENGINE_get_ciphers(const e: PENGINE): ENGINE_CIPHERS_PTR; cdecl; +function Load_ENGINE_get_digests(const e: PENGINE): ENGINE_DIGESTS_PTR; cdecl; +function Load_ENGINE_get_pkey_meths(const e: PENGINE): ENGINE_PKEY_METHS_PTR; cdecl; +function Load_ENGINE_get_pkey_asn1_meths(const e: PENGINE): ENGINE_PKEY_ASN1_METHS_PTR; cdecl; +function Load_ENGINE_get_cipher(e: PENGINE; nid: TOpenSSL_C_INT): PEVP_CIPHER; cdecl; +function Load_ENGINE_get_digest(e: PENGINE; nid: TOpenSSL_C_INT): PEVP_MD; cdecl; +function Load_ENGINE_get_pkey_meth(e: PENGINE; nid: TOpenSSL_C_INT): PEVP_PKEY_METHOD; cdecl; +function Load_ENGINE_get_pkey_asn1_meth(e: PENGINE; nid: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; +function Load_ENGINE_get_pkey_asn1_meth_str(e: PENGINE; const str: PAnsiChar; len: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; +function Load_ENGINE_pkey_asn1_find_str(pe: PPENGINE; const str: PAnsiChar; len: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; +function Load_ENGINE_get_cmd_defns(const e: PENGINE): PENGINE_CMD_DEFN; cdecl; +function Load_ENGINE_get_flags(const e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_init(e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_finish(e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_load_private_key(e: PENGINE; const key_id: PAnsiChar; ui_method: PUI_METHOD; callback_data: Pointer): PEVP_PKEY; cdecl; +function Load_ENGINE_load_public_key(e: PENGINE; const key_id: PAnsiChar; ui_method: PUI_METHOD; callback_data: Pointer): PEVP_PKEY; cdecl; +function Load_ENGINE_get_default_RSA: PENGINE; cdecl; +function Load_ENGINE_get_default_DSA: PENGINE; cdecl; +function Load_ENGINE_get_default_EC: PENGINE; cdecl; +function Load_ENGINE_get_default_DH: PENGINE; cdecl; +function Load_ENGINE_get_default_RAND: PENGINE; cdecl; +function Load_ENGINE_get_cipher_engine(nid: TOpenSSL_C_INT): PENGINE; cdecl; +function Load_ENGINE_get_digest_engine(nid: TOpenSSL_C_INT): PENGINE; cdecl; +function Load_ENGINE_get_pkey_meth_engine(nid: TOpenSSL_C_INT): PENGINE; cdecl; +function Load_ENGINE_get_pkey_asn1_meth_engine(nid: TOpenSSL_C_INT): PENGINE; cdecl; +function Load_ENGINE_set_default_RSA(e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_default_string(e: PENGINE; const def_list: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_default_DSA(e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_default_EC(e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_default_DH(e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_default_RAND(e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_default_ciphers(e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_default_digests(e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_default_pkey_meths(e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_default_pkey_asn1_meths(e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_ENGINE_set_default(e: PENGINE; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +procedure Load_ENGINE_add_conf_module; cdecl; +function Load_ENGINE_get_static_state: Pointer; cdecl; + +var + ENGINE_get_first: function : PENGINE; cdecl = Load_ENGINE_get_first; + ENGINE_get_last: function : PENGINE; cdecl = Load_ENGINE_get_last; + ENGINE_get_next: function (e: PENGINE): PENGINE; cdecl = Load_ENGINE_get_next; + ENGINE_get_prev: function (e: PENGINE): PENGINE; cdecl = Load_ENGINE_get_prev; + ENGINE_add: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_add; + ENGINE_remove: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_remove; + ENGINE_by_id: function (const id: PAnsiChar): PENGINE; cdecl = Load_ENGINE_by_id; + ENGINE_load_builtin_engines: procedure ; cdecl = Load_ENGINE_load_builtin_engines; + ENGINE_get_table_flags: function : TOpenSSL_C_UINT; cdecl = Load_ENGINE_get_table_flags; + ENGINE_set_table_flags: procedure (flags: TOpenSSL_C_UINT); cdecl = Load_ENGINE_set_table_flags; + ENGINE_register_RSA: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_register_RSA; + ENGINE_unregister_RSA: procedure (e: PENGINE); cdecl = Load_ENGINE_unregister_RSA; + ENGINE_register_all_RSA: procedure ; cdecl = Load_ENGINE_register_all_RSA; + ENGINE_register_DSA: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_register_DSA; + ENGINE_unregister_DSA: procedure (e: PENGINE); cdecl = Load_ENGINE_unregister_DSA; + ENGINE_register_all_DSA: procedure ; cdecl = Load_ENGINE_register_all_DSA; + ENGINE_register_EC: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_register_EC; + ENGINE_unregister_EC: procedure (e: PENGINE); cdecl = Load_ENGINE_unregister_EC; + ENGINE_register_all_EC: procedure ; cdecl = Load_ENGINE_register_all_EC; + ENGINE_register_DH: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_register_DH; + ENGINE_unregister_DH: procedure (e: PENGINE); cdecl = Load_ENGINE_unregister_DH; + ENGINE_register_all_DH: procedure ; cdecl = Load_ENGINE_register_all_DH; + ENGINE_register_RAND: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_register_RAND; + ENGINE_unregister_RAND: procedure (e: PENGINE); cdecl = Load_ENGINE_unregister_RAND; + ENGINE_register_all_RAND: procedure ; cdecl = Load_ENGINE_register_all_RAND; + ENGINE_register_ciphers: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_register_ciphers; + ENGINE_unregister_ciphers: procedure (e: PENGINE); cdecl = Load_ENGINE_unregister_ciphers; + ENGINE_register_all_ciphers: procedure ; cdecl = Load_ENGINE_register_all_ciphers; + ENGINE_register_digests: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_register_digests; + ENGINE_unregister_digests: procedure (e: PENGINE); cdecl = Load_ENGINE_unregister_digests; + ENGINE_register_all_digests: procedure ; cdecl = Load_ENGINE_register_all_digests; + ENGINE_register_pkey_meths: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_register_pkey_meths; + ENGINE_unregister_pkey_meths: procedure (e: PENGINE); cdecl = Load_ENGINE_unregister_pkey_meths; + ENGINE_register_all_pkey_meths: procedure ; cdecl = Load_ENGINE_register_all_pkey_meths; + ENGINE_register_pkey_asn1_meths: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_register_pkey_asn1_meths; + ENGINE_unregister_pkey_asn1_meths: procedure (e: PENGINE); cdecl = Load_ENGINE_unregister_pkey_asn1_meths; + ENGINE_register_all_pkey_asn1_meths: procedure ; cdecl = Load_ENGINE_register_all_pkey_asn1_meths; + ENGINE_register_complete: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_register_complete; + ENGINE_register_all_complete: function : TOpenSSL_C_INT; cdecl = Load_ENGINE_register_all_complete; + ENGINE_ctrl: function (e: PENGINE; cmd: TOpenSSL_C_INT; i: TOpenSSL_C_LONG; p: Pointer; v1: f): TOpenSSL_C_INT; cdecl = Load_ENGINE_ctrl; + ENGINE_cmd_is_executable: function (e: PENGINE; cmd: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ENGINE_cmd_is_executable; + ENGINE_ctrl_cmd: function (e: PENGINE; const cmd_name: PAnsiChar; i: TOpenSSL_C_LONG; p: Pointer; v1: f; cmd_optional: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ENGINE_ctrl_cmd; + ENGINE_ctrl_cmd_string: function (e: PENGINE; const cmd_name: PAnsiChar; const arg: PAnsiChar; cmd_optional: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ENGINE_ctrl_cmd_string; + ENGINE_new: function : PENGINE; cdecl = Load_ENGINE_new; + ENGINE_free: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_free; + ENGINE_up_ref: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_up_ref; + ENGINE_set_id: function (e: PENGINE; const id: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_id; + ENGINE_set_name: function (e: PENGINE; const name: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_name; + ENGINE_set_RSA: function (e: PENGINE; const rsa_meth: PRSA_METHOD): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_RSA; + ENGINE_set_DSA: function (e: PENGINE; const dsa_meth: PDSA_METHOD): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_DSA; + ENGINE_set_EC: function (e: PENGINE; const ecdsa_meth: PEC_KEY_METHOD): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_EC; + ENGINE_set_DH: function (e: PENGINE; const dh_meth: PDH_METHOD): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_DH; + ENGINE_set_RAND: function (e: PENGINE; const rand_meth: PRAND_METHOD): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_RAND; + ENGINE_set_destroy_function: function (e: PENGINE; destroy_f: ENGINE_GEN_INT_FUNC_PTR): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_destroy_function; + ENGINE_set_init_function: function (e: PENGINE; init_f: ENGINE_GEN_INT_FUNC_PTR): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_init_function; + ENGINE_set_finish_function: function (e: PENGINE; finish_f: ENGINE_GEN_INT_FUNC_PTR): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_finish_function; + ENGINE_set_ctrl_function: function (e: PENGINE; ctrl_f: ENGINE_CTRL_FUNC_PTR): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_ctrl_function; + ENGINE_set_load_privkey_function: function (e: PENGINE; loadpriv_f: ENGINE_LOAD_KEY_PTR): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_load_privkey_function; + ENGINE_set_load_pubkey_function: function (e: PENGINE; loadpub_f: ENGINE_LOAD_KEY_PTR): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_load_pubkey_function; + ENGINE_set_ciphers: function (e: PENGINE; f: ENGINE_CIPHERS_PTR): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_ciphers; + ENGINE_set_digests: function (e: PENGINE; f: ENGINE_DIGESTS_PTR): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_digests; + ENGINE_set_pkey_meths: function (e: PENGINE; f: ENGINE_PKEY_METHS_PTR): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_pkey_meths; + ENGINE_set_pkey_asn1_meths: function (e: PENGINE; f: ENGINE_PKEY_ASN1_METHS_PTR): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_pkey_asn1_meths; + ENGINE_set_flags: function (e: PENGINE; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_flags; + ENGINE_set_cmd_defns: function (e: PENGINE; const defns: PENGINE_CMD_DEFN): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_cmd_defns; + ENGINE_set_ex_data: function (e: PENGINE; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_ex_data; + ENGINE_get_ex_data: function (const e: PENGINE; idx: TOpenSSL_C_INT): Pointer; cdecl = Load_ENGINE_get_ex_data; + ENGINE_get_id: function (const e: PENGINE): PAnsiChar; cdecl = Load_ENGINE_get_id; + ENGINE_get_name: function (const e: PENGINE): PAnsiChar; cdecl = Load_ENGINE_get_name; + ENGINE_get_RSA: function (const e: PENGINE): PRSA_METHOD; cdecl = Load_ENGINE_get_RSA; + ENGINE_get_DSA: function (const e: PENGINE): PDSA_METHOD; cdecl = Load_ENGINE_get_DSA; + ENGINE_get_EC: function (const e: PENGINE): PEC_METHOD; cdecl = Load_ENGINE_get_EC; + ENGINE_get_DH: function (const e: PENGINE): PDH_METHOD; cdecl = Load_ENGINE_get_DH; + ENGINE_get_RAND: function (const e: PENGINE): PRAND_METHOD; cdecl = Load_ENGINE_get_RAND; + ENGINE_get_destroy_function: function (const e: PENGINE): ENGINE_GEN_INT_FUNC_PTR; cdecl = Load_ENGINE_get_destroy_function; + ENGINE_get_init_function: function (const e: PENGINE): ENGINE_GEN_INT_FUNC_PTR; cdecl = Load_ENGINE_get_init_function; + ENGINE_get_finish_function: function (const e: PENGINE): ENGINE_GEN_INT_FUNC_PTR; cdecl = Load_ENGINE_get_finish_function; + ENGINE_get_ctrl_function: function (const e: PENGINE): ENGINE_CTRL_FUNC_PTR; cdecl = Load_ENGINE_get_ctrl_function; + ENGINE_get_load_privkey_function: function (const e: PENGINE): ENGINE_LOAD_KEY_PTR; cdecl = Load_ENGINE_get_load_privkey_function; + ENGINE_get_load_pubkey_function: function (const e: PENGINE): ENGINE_LOAD_KEY_PTR; cdecl = Load_ENGINE_get_load_pubkey_function; + ENGINE_get_ciphers: function (const e: PENGINE): ENGINE_CIPHERS_PTR; cdecl = Load_ENGINE_get_ciphers; + ENGINE_get_digests: function (const e: PENGINE): ENGINE_DIGESTS_PTR; cdecl = Load_ENGINE_get_digests; + ENGINE_get_pkey_meths: function (const e: PENGINE): ENGINE_PKEY_METHS_PTR; cdecl = Load_ENGINE_get_pkey_meths; + ENGINE_get_pkey_asn1_meths: function (const e: PENGINE): ENGINE_PKEY_ASN1_METHS_PTR; cdecl = Load_ENGINE_get_pkey_asn1_meths; + ENGINE_get_cipher: function (e: PENGINE; nid: TOpenSSL_C_INT): PEVP_CIPHER; cdecl = Load_ENGINE_get_cipher; + ENGINE_get_digest: function (e: PENGINE; nid: TOpenSSL_C_INT): PEVP_MD; cdecl = Load_ENGINE_get_digest; + ENGINE_get_pkey_meth: function (e: PENGINE; nid: TOpenSSL_C_INT): PEVP_PKEY_METHOD; cdecl = Load_ENGINE_get_pkey_meth; + ENGINE_get_pkey_asn1_meth: function (e: PENGINE; nid: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl = Load_ENGINE_get_pkey_asn1_meth; + ENGINE_get_pkey_asn1_meth_str: function (e: PENGINE; const str: PAnsiChar; len: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl = Load_ENGINE_get_pkey_asn1_meth_str; + ENGINE_pkey_asn1_find_str: function (pe: PPENGINE; const str: PAnsiChar; len: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl = Load_ENGINE_pkey_asn1_find_str; + ENGINE_get_cmd_defns: function (const e: PENGINE): PENGINE_CMD_DEFN; cdecl = Load_ENGINE_get_cmd_defns; + ENGINE_get_flags: function (const e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_get_flags; + ENGINE_init: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_init; + ENGINE_finish: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_finish; + ENGINE_load_private_key: function (e: PENGINE; const key_id: PAnsiChar; ui_method: PUI_METHOD; callback_data: Pointer): PEVP_PKEY; cdecl = Load_ENGINE_load_private_key; + ENGINE_load_public_key: function (e: PENGINE; const key_id: PAnsiChar; ui_method: PUI_METHOD; callback_data: Pointer): PEVP_PKEY; cdecl = Load_ENGINE_load_public_key; + ENGINE_get_default_RSA: function : PENGINE; cdecl = Load_ENGINE_get_default_RSA; + ENGINE_get_default_DSA: function : PENGINE; cdecl = Load_ENGINE_get_default_DSA; + ENGINE_get_default_EC: function : PENGINE; cdecl = Load_ENGINE_get_default_EC; + ENGINE_get_default_DH: function : PENGINE; cdecl = Load_ENGINE_get_default_DH; + ENGINE_get_default_RAND: function : PENGINE; cdecl = Load_ENGINE_get_default_RAND; + ENGINE_get_cipher_engine: function (nid: TOpenSSL_C_INT): PENGINE; cdecl = Load_ENGINE_get_cipher_engine; + ENGINE_get_digest_engine: function (nid: TOpenSSL_C_INT): PENGINE; cdecl = Load_ENGINE_get_digest_engine; + ENGINE_get_pkey_meth_engine: function (nid: TOpenSSL_C_INT): PENGINE; cdecl = Load_ENGINE_get_pkey_meth_engine; + ENGINE_get_pkey_asn1_meth_engine: function (nid: TOpenSSL_C_INT): PENGINE; cdecl = Load_ENGINE_get_pkey_asn1_meth_engine; + ENGINE_set_default_RSA: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_default_RSA; + ENGINE_set_default_string: function (e: PENGINE; const def_list: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_default_string; + ENGINE_set_default_DSA: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_default_DSA; + ENGINE_set_default_EC: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_default_EC; + ENGINE_set_default_DH: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_default_DH; + ENGINE_set_default_RAND: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_default_RAND; + ENGINE_set_default_ciphers: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_default_ciphers; + ENGINE_set_default_digests: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_default_digests; + ENGINE_set_default_pkey_meths: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_default_pkey_meths; + ENGINE_set_default_pkey_asn1_meths: function (e: PENGINE): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_default_pkey_asn1_meths; + ENGINE_set_default: function (e: PENGINE; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_ENGINE_set_default; + ENGINE_add_conf_module: procedure ; cdecl = Load_ENGINE_add_conf_module; + ENGINE_get_static_state: function : Pointer; cdecl = Load_ENGINE_get_static_state; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ENGINE_get_first: PENGINE; cdecl; +begin + ENGINE_get_first := LoadLibCryptoFunction('ENGINE_get_first'); + if not assigned(ENGINE_get_first) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_first'); + Result := ENGINE_get_first(); +end; + +function Load_ENGINE_get_last: PENGINE; cdecl; +begin + ENGINE_get_last := LoadLibCryptoFunction('ENGINE_get_last'); + if not assigned(ENGINE_get_last) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_last'); + Result := ENGINE_get_last(); +end; + +function Load_ENGINE_get_next(e: PENGINE): PENGINE; cdecl; +begin + ENGINE_get_next := LoadLibCryptoFunction('ENGINE_get_next'); + if not assigned(ENGINE_get_next) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_next'); + Result := ENGINE_get_next(e); +end; + +function Load_ENGINE_get_prev(e: PENGINE): PENGINE; cdecl; +begin + ENGINE_get_prev := LoadLibCryptoFunction('ENGINE_get_prev'); + if not assigned(ENGINE_get_prev) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_prev'); + Result := ENGINE_get_prev(e); +end; + +function Load_ENGINE_add(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_add := LoadLibCryptoFunction('ENGINE_add'); + if not assigned(ENGINE_add) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_add'); + Result := ENGINE_add(e); +end; + +function Load_ENGINE_remove(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_remove := LoadLibCryptoFunction('ENGINE_remove'); + if not assigned(ENGINE_remove) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_remove'); + Result := ENGINE_remove(e); +end; + +function Load_ENGINE_by_id(const id: PAnsiChar): PENGINE; cdecl; +begin + ENGINE_by_id := LoadLibCryptoFunction('ENGINE_by_id'); + if not assigned(ENGINE_by_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_by_id'); + Result := ENGINE_by_id(id); +end; + +procedure Load_ENGINE_load_builtin_engines; cdecl; +begin + ENGINE_load_builtin_engines := LoadLibCryptoFunction('ENGINE_load_builtin_engines'); + if not assigned(ENGINE_load_builtin_engines) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_load_builtin_engines'); + ENGINE_load_builtin_engines(); +end; + +function Load_ENGINE_get_table_flags: TOpenSSL_C_UINT; cdecl; +begin + ENGINE_get_table_flags := LoadLibCryptoFunction('ENGINE_get_table_flags'); + if not assigned(ENGINE_get_table_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_table_flags'); + Result := ENGINE_get_table_flags(); +end; + +procedure Load_ENGINE_set_table_flags(flags: TOpenSSL_C_UINT); cdecl; +begin + ENGINE_set_table_flags := LoadLibCryptoFunction('ENGINE_set_table_flags'); + if not assigned(ENGINE_set_table_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_table_flags'); + ENGINE_set_table_flags(flags); +end; + +function Load_ENGINE_register_RSA(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_register_RSA := LoadLibCryptoFunction('ENGINE_register_RSA'); + if not assigned(ENGINE_register_RSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_RSA'); + Result := ENGINE_register_RSA(e); +end; + +procedure Load_ENGINE_unregister_RSA(e: PENGINE); cdecl; +begin + ENGINE_unregister_RSA := LoadLibCryptoFunction('ENGINE_unregister_RSA'); + if not assigned(ENGINE_unregister_RSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_unregister_RSA'); + ENGINE_unregister_RSA(e); +end; + +procedure Load_ENGINE_register_all_RSA; cdecl; +begin + ENGINE_register_all_RSA := LoadLibCryptoFunction('ENGINE_register_all_RSA'); + if not assigned(ENGINE_register_all_RSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_all_RSA'); + ENGINE_register_all_RSA(); +end; + +function Load_ENGINE_register_DSA(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_register_DSA := LoadLibCryptoFunction('ENGINE_register_DSA'); + if not assigned(ENGINE_register_DSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_DSA'); + Result := ENGINE_register_DSA(e); +end; + +procedure Load_ENGINE_unregister_DSA(e: PENGINE); cdecl; +begin + ENGINE_unregister_DSA := LoadLibCryptoFunction('ENGINE_unregister_DSA'); + if not assigned(ENGINE_unregister_DSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_unregister_DSA'); + ENGINE_unregister_DSA(e); +end; + +procedure Load_ENGINE_register_all_DSA; cdecl; +begin + ENGINE_register_all_DSA := LoadLibCryptoFunction('ENGINE_register_all_DSA'); + if not assigned(ENGINE_register_all_DSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_all_DSA'); + ENGINE_register_all_DSA(); +end; + +function Load_ENGINE_register_EC(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_register_EC := LoadLibCryptoFunction('ENGINE_register_EC'); + if not assigned(ENGINE_register_EC) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_EC'); + Result := ENGINE_register_EC(e); +end; + +procedure Load_ENGINE_unregister_EC(e: PENGINE); cdecl; +begin + ENGINE_unregister_EC := LoadLibCryptoFunction('ENGINE_unregister_EC'); + if not assigned(ENGINE_unregister_EC) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_unregister_EC'); + ENGINE_unregister_EC(e); +end; + +procedure Load_ENGINE_register_all_EC; cdecl; +begin + ENGINE_register_all_EC := LoadLibCryptoFunction('ENGINE_register_all_EC'); + if not assigned(ENGINE_register_all_EC) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_all_EC'); + ENGINE_register_all_EC(); +end; + +function Load_ENGINE_register_DH(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_register_DH := LoadLibCryptoFunction('ENGINE_register_DH'); + if not assigned(ENGINE_register_DH) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_DH'); + Result := ENGINE_register_DH(e); +end; + +procedure Load_ENGINE_unregister_DH(e: PENGINE); cdecl; +begin + ENGINE_unregister_DH := LoadLibCryptoFunction('ENGINE_unregister_DH'); + if not assigned(ENGINE_unregister_DH) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_unregister_DH'); + ENGINE_unregister_DH(e); +end; + +procedure Load_ENGINE_register_all_DH; cdecl; +begin + ENGINE_register_all_DH := LoadLibCryptoFunction('ENGINE_register_all_DH'); + if not assigned(ENGINE_register_all_DH) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_all_DH'); + ENGINE_register_all_DH(); +end; + +function Load_ENGINE_register_RAND(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_register_RAND := LoadLibCryptoFunction('ENGINE_register_RAND'); + if not assigned(ENGINE_register_RAND) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_RAND'); + Result := ENGINE_register_RAND(e); +end; + +procedure Load_ENGINE_unregister_RAND(e: PENGINE); cdecl; +begin + ENGINE_unregister_RAND := LoadLibCryptoFunction('ENGINE_unregister_RAND'); + if not assigned(ENGINE_unregister_RAND) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_unregister_RAND'); + ENGINE_unregister_RAND(e); +end; + +procedure Load_ENGINE_register_all_RAND; cdecl; +begin + ENGINE_register_all_RAND := LoadLibCryptoFunction('ENGINE_register_all_RAND'); + if not assigned(ENGINE_register_all_RAND) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_all_RAND'); + ENGINE_register_all_RAND(); +end; + +function Load_ENGINE_register_ciphers(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_register_ciphers := LoadLibCryptoFunction('ENGINE_register_ciphers'); + if not assigned(ENGINE_register_ciphers) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_ciphers'); + Result := ENGINE_register_ciphers(e); +end; + +procedure Load_ENGINE_unregister_ciphers(e: PENGINE); cdecl; +begin + ENGINE_unregister_ciphers := LoadLibCryptoFunction('ENGINE_unregister_ciphers'); + if not assigned(ENGINE_unregister_ciphers) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_unregister_ciphers'); + ENGINE_unregister_ciphers(e); +end; + +procedure Load_ENGINE_register_all_ciphers; cdecl; +begin + ENGINE_register_all_ciphers := LoadLibCryptoFunction('ENGINE_register_all_ciphers'); + if not assigned(ENGINE_register_all_ciphers) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_all_ciphers'); + ENGINE_register_all_ciphers(); +end; + +function Load_ENGINE_register_digests(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_register_digests := LoadLibCryptoFunction('ENGINE_register_digests'); + if not assigned(ENGINE_register_digests) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_digests'); + Result := ENGINE_register_digests(e); +end; + +procedure Load_ENGINE_unregister_digests(e: PENGINE); cdecl; +begin + ENGINE_unregister_digests := LoadLibCryptoFunction('ENGINE_unregister_digests'); + if not assigned(ENGINE_unregister_digests) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_unregister_digests'); + ENGINE_unregister_digests(e); +end; + +procedure Load_ENGINE_register_all_digests; cdecl; +begin + ENGINE_register_all_digests := LoadLibCryptoFunction('ENGINE_register_all_digests'); + if not assigned(ENGINE_register_all_digests) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_all_digests'); + ENGINE_register_all_digests(); +end; + +function Load_ENGINE_register_pkey_meths(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_register_pkey_meths := LoadLibCryptoFunction('ENGINE_register_pkey_meths'); + if not assigned(ENGINE_register_pkey_meths) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_pkey_meths'); + Result := ENGINE_register_pkey_meths(e); +end; + +procedure Load_ENGINE_unregister_pkey_meths(e: PENGINE); cdecl; +begin + ENGINE_unregister_pkey_meths := LoadLibCryptoFunction('ENGINE_unregister_pkey_meths'); + if not assigned(ENGINE_unregister_pkey_meths) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_unregister_pkey_meths'); + ENGINE_unregister_pkey_meths(e); +end; + +procedure Load_ENGINE_register_all_pkey_meths; cdecl; +begin + ENGINE_register_all_pkey_meths := LoadLibCryptoFunction('ENGINE_register_all_pkey_meths'); + if not assigned(ENGINE_register_all_pkey_meths) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_all_pkey_meths'); + ENGINE_register_all_pkey_meths(); +end; + +function Load_ENGINE_register_pkey_asn1_meths(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_register_pkey_asn1_meths := LoadLibCryptoFunction('ENGINE_register_pkey_asn1_meths'); + if not assigned(ENGINE_register_pkey_asn1_meths) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_pkey_asn1_meths'); + Result := ENGINE_register_pkey_asn1_meths(e); +end; + +procedure Load_ENGINE_unregister_pkey_asn1_meths(e: PENGINE); cdecl; +begin + ENGINE_unregister_pkey_asn1_meths := LoadLibCryptoFunction('ENGINE_unregister_pkey_asn1_meths'); + if not assigned(ENGINE_unregister_pkey_asn1_meths) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_unregister_pkey_asn1_meths'); + ENGINE_unregister_pkey_asn1_meths(e); +end; + +procedure Load_ENGINE_register_all_pkey_asn1_meths; cdecl; +begin + ENGINE_register_all_pkey_asn1_meths := LoadLibCryptoFunction('ENGINE_register_all_pkey_asn1_meths'); + if not assigned(ENGINE_register_all_pkey_asn1_meths) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_all_pkey_asn1_meths'); + ENGINE_register_all_pkey_asn1_meths(); +end; + +function Load_ENGINE_register_complete(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_register_complete := LoadLibCryptoFunction('ENGINE_register_complete'); + if not assigned(ENGINE_register_complete) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_complete'); + Result := ENGINE_register_complete(e); +end; + +function Load_ENGINE_register_all_complete: TOpenSSL_C_INT; cdecl; +begin + ENGINE_register_all_complete := LoadLibCryptoFunction('ENGINE_register_all_complete'); + if not assigned(ENGINE_register_all_complete) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_register_all_complete'); + Result := ENGINE_register_all_complete(); +end; + +function Load_ENGINE_ctrl(e: PENGINE; cmd: TOpenSSL_C_INT; i: TOpenSSL_C_LONG; p: Pointer; v1: f): TOpenSSL_C_INT; cdecl; +begin + ENGINE_ctrl := LoadLibCryptoFunction('ENGINE_ctrl'); + if not assigned(ENGINE_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_ctrl'); + Result := ENGINE_ctrl(e,cmd,i,p,v1); +end; + +function Load_ENGINE_cmd_is_executable(e: PENGINE; cmd: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ENGINE_cmd_is_executable := LoadLibCryptoFunction('ENGINE_cmd_is_executable'); + if not assigned(ENGINE_cmd_is_executable) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_cmd_is_executable'); + Result := ENGINE_cmd_is_executable(e,cmd); +end; + +function Load_ENGINE_ctrl_cmd(e: PENGINE; const cmd_name: PAnsiChar; i: TOpenSSL_C_LONG; p: Pointer; v1: f; cmd_optional: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ENGINE_ctrl_cmd := LoadLibCryptoFunction('ENGINE_ctrl_cmd'); + if not assigned(ENGINE_ctrl_cmd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_ctrl_cmd'); + Result := ENGINE_ctrl_cmd(e,cmd_name,i,p,v1,cmd_optional); +end; + +function Load_ENGINE_ctrl_cmd_string(e: PENGINE; const cmd_name: PAnsiChar; const arg: PAnsiChar; cmd_optional: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ENGINE_ctrl_cmd_string := LoadLibCryptoFunction('ENGINE_ctrl_cmd_string'); + if not assigned(ENGINE_ctrl_cmd_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_ctrl_cmd_string'); + Result := ENGINE_ctrl_cmd_string(e,cmd_name,arg,cmd_optional); +end; + +function Load_ENGINE_new: PENGINE; cdecl; +begin + ENGINE_new := LoadLibCryptoFunction('ENGINE_new'); + if not assigned(ENGINE_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_new'); + Result := ENGINE_new(); +end; + +function Load_ENGINE_free(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_free := LoadLibCryptoFunction('ENGINE_free'); + if not assigned(ENGINE_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_free'); + Result := ENGINE_free(e); +end; + +function Load_ENGINE_up_ref(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_up_ref := LoadLibCryptoFunction('ENGINE_up_ref'); + if not assigned(ENGINE_up_ref) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_up_ref'); + Result := ENGINE_up_ref(e); +end; + +function Load_ENGINE_set_id(e: PENGINE; const id: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_id := LoadLibCryptoFunction('ENGINE_set_id'); + if not assigned(ENGINE_set_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_id'); + Result := ENGINE_set_id(e,id); +end; + +function Load_ENGINE_set_name(e: PENGINE; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_name := LoadLibCryptoFunction('ENGINE_set_name'); + if not assigned(ENGINE_set_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_name'); + Result := ENGINE_set_name(e,name); +end; + +function Load_ENGINE_set_RSA(e: PENGINE; const rsa_meth: PRSA_METHOD): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_RSA := LoadLibCryptoFunction('ENGINE_set_RSA'); + if not assigned(ENGINE_set_RSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_RSA'); + Result := ENGINE_set_RSA(e,rsa_meth); +end; + +function Load_ENGINE_set_DSA(e: PENGINE; const dsa_meth: PDSA_METHOD): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_DSA := LoadLibCryptoFunction('ENGINE_set_DSA'); + if not assigned(ENGINE_set_DSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_DSA'); + Result := ENGINE_set_DSA(e,dsa_meth); +end; + +function Load_ENGINE_set_EC(e: PENGINE; const ecdsa_meth: PEC_KEY_METHOD): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_EC := LoadLibCryptoFunction('ENGINE_set_EC'); + if not assigned(ENGINE_set_EC) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_EC'); + Result := ENGINE_set_EC(e,ecdsa_meth); +end; + +function Load_ENGINE_set_DH(e: PENGINE; const dh_meth: PDH_METHOD): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_DH := LoadLibCryptoFunction('ENGINE_set_DH'); + if not assigned(ENGINE_set_DH) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_DH'); + Result := ENGINE_set_DH(e,dh_meth); +end; + +function Load_ENGINE_set_RAND(e: PENGINE; const rand_meth: PRAND_METHOD): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_RAND := LoadLibCryptoFunction('ENGINE_set_RAND'); + if not assigned(ENGINE_set_RAND) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_RAND'); + Result := ENGINE_set_RAND(e,rand_meth); +end; + +function Load_ENGINE_set_destroy_function(e: PENGINE; destroy_f: ENGINE_GEN_INT_FUNC_PTR): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_destroy_function := LoadLibCryptoFunction('ENGINE_set_destroy_function'); + if not assigned(ENGINE_set_destroy_function) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_destroy_function'); + Result := ENGINE_set_destroy_function(e,destroy_f); +end; + +function Load_ENGINE_set_init_function(e: PENGINE; init_f: ENGINE_GEN_INT_FUNC_PTR): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_init_function := LoadLibCryptoFunction('ENGINE_set_init_function'); + if not assigned(ENGINE_set_init_function) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_init_function'); + Result := ENGINE_set_init_function(e,init_f); +end; + +function Load_ENGINE_set_finish_function(e: PENGINE; finish_f: ENGINE_GEN_INT_FUNC_PTR): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_finish_function := LoadLibCryptoFunction('ENGINE_set_finish_function'); + if not assigned(ENGINE_set_finish_function) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_finish_function'); + Result := ENGINE_set_finish_function(e,finish_f); +end; + +function Load_ENGINE_set_ctrl_function(e: PENGINE; ctrl_f: ENGINE_CTRL_FUNC_PTR): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_ctrl_function := LoadLibCryptoFunction('ENGINE_set_ctrl_function'); + if not assigned(ENGINE_set_ctrl_function) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_ctrl_function'); + Result := ENGINE_set_ctrl_function(e,ctrl_f); +end; + +function Load_ENGINE_set_load_privkey_function(e: PENGINE; loadpriv_f: ENGINE_LOAD_KEY_PTR): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_load_privkey_function := LoadLibCryptoFunction('ENGINE_set_load_privkey_function'); + if not assigned(ENGINE_set_load_privkey_function) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_load_privkey_function'); + Result := ENGINE_set_load_privkey_function(e,loadpriv_f); +end; + +function Load_ENGINE_set_load_pubkey_function(e: PENGINE; loadpub_f: ENGINE_LOAD_KEY_PTR): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_load_pubkey_function := LoadLibCryptoFunction('ENGINE_set_load_pubkey_function'); + if not assigned(ENGINE_set_load_pubkey_function) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_load_pubkey_function'); + Result := ENGINE_set_load_pubkey_function(e,loadpub_f); +end; + +function Load_ENGINE_set_ciphers(e: PENGINE; f: ENGINE_CIPHERS_PTR): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_ciphers := LoadLibCryptoFunction('ENGINE_set_ciphers'); + if not assigned(ENGINE_set_ciphers) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_ciphers'); + Result := ENGINE_set_ciphers(e,f); +end; + +function Load_ENGINE_set_digests(e: PENGINE; f: ENGINE_DIGESTS_PTR): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_digests := LoadLibCryptoFunction('ENGINE_set_digests'); + if not assigned(ENGINE_set_digests) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_digests'); + Result := ENGINE_set_digests(e,f); +end; + +function Load_ENGINE_set_pkey_meths(e: PENGINE; f: ENGINE_PKEY_METHS_PTR): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_pkey_meths := LoadLibCryptoFunction('ENGINE_set_pkey_meths'); + if not assigned(ENGINE_set_pkey_meths) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_pkey_meths'); + Result := ENGINE_set_pkey_meths(e,f); +end; + +function Load_ENGINE_set_pkey_asn1_meths(e: PENGINE; f: ENGINE_PKEY_ASN1_METHS_PTR): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_pkey_asn1_meths := LoadLibCryptoFunction('ENGINE_set_pkey_asn1_meths'); + if not assigned(ENGINE_set_pkey_asn1_meths) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_pkey_asn1_meths'); + Result := ENGINE_set_pkey_asn1_meths(e,f); +end; + +function Load_ENGINE_set_flags(e: PENGINE; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_flags := LoadLibCryptoFunction('ENGINE_set_flags'); + if not assigned(ENGINE_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_flags'); + Result := ENGINE_set_flags(e,flags); +end; + +function Load_ENGINE_set_cmd_defns(e: PENGINE; const defns: PENGINE_CMD_DEFN): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_cmd_defns := LoadLibCryptoFunction('ENGINE_set_cmd_defns'); + if not assigned(ENGINE_set_cmd_defns) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_cmd_defns'); + Result := ENGINE_set_cmd_defns(e,defns); +end; + +function Load_ENGINE_set_ex_data(e: PENGINE; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_ex_data := LoadLibCryptoFunction('ENGINE_set_ex_data'); + if not assigned(ENGINE_set_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_ex_data'); + Result := ENGINE_set_ex_data(e,idx,arg); +end; + +function Load_ENGINE_get_ex_data(const e: PENGINE; idx: TOpenSSL_C_INT): Pointer; cdecl; +begin + ENGINE_get_ex_data := LoadLibCryptoFunction('ENGINE_get_ex_data'); + if not assigned(ENGINE_get_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_ex_data'); + Result := ENGINE_get_ex_data(e,idx); +end; + +function Load_ENGINE_get_id(const e: PENGINE): PAnsiChar; cdecl; +begin + ENGINE_get_id := LoadLibCryptoFunction('ENGINE_get_id'); + if not assigned(ENGINE_get_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_id'); + Result := ENGINE_get_id(e); +end; + +function Load_ENGINE_get_name(const e: PENGINE): PAnsiChar; cdecl; +begin + ENGINE_get_name := LoadLibCryptoFunction('ENGINE_get_name'); + if not assigned(ENGINE_get_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_name'); + Result := ENGINE_get_name(e); +end; + +function Load_ENGINE_get_RSA(const e: PENGINE): PRSA_METHOD; cdecl; +begin + ENGINE_get_RSA := LoadLibCryptoFunction('ENGINE_get_RSA'); + if not assigned(ENGINE_get_RSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_RSA'); + Result := ENGINE_get_RSA(e); +end; + +function Load_ENGINE_get_DSA(const e: PENGINE): PDSA_METHOD; cdecl; +begin + ENGINE_get_DSA := LoadLibCryptoFunction('ENGINE_get_DSA'); + if not assigned(ENGINE_get_DSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_DSA'); + Result := ENGINE_get_DSA(e); +end; + +function Load_ENGINE_get_EC(const e: PENGINE): PEC_METHOD; cdecl; +begin + ENGINE_get_EC := LoadLibCryptoFunction('ENGINE_get_EC'); + if not assigned(ENGINE_get_EC) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_EC'); + Result := ENGINE_get_EC(e); +end; + +function Load_ENGINE_get_DH(const e: PENGINE): PDH_METHOD; cdecl; +begin + ENGINE_get_DH := LoadLibCryptoFunction('ENGINE_get_DH'); + if not assigned(ENGINE_get_DH) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_DH'); + Result := ENGINE_get_DH(e); +end; + +function Load_ENGINE_get_RAND(const e: PENGINE): PRAND_METHOD; cdecl; +begin + ENGINE_get_RAND := LoadLibCryptoFunction('ENGINE_get_RAND'); + if not assigned(ENGINE_get_RAND) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_RAND'); + Result := ENGINE_get_RAND(e); +end; + +function Load_ENGINE_get_destroy_function(const e: PENGINE): ENGINE_GEN_INT_FUNC_PTR; cdecl; +begin + ENGINE_get_destroy_function := LoadLibCryptoFunction('ENGINE_get_destroy_function'); + if not assigned(ENGINE_get_destroy_function) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_destroy_function'); + Result := ENGINE_get_destroy_function(e); +end; + +function Load_ENGINE_get_init_function(const e: PENGINE): ENGINE_GEN_INT_FUNC_PTR; cdecl; +begin + ENGINE_get_init_function := LoadLibCryptoFunction('ENGINE_get_init_function'); + if not assigned(ENGINE_get_init_function) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_init_function'); + Result := ENGINE_get_init_function(e); +end; + +function Load_ENGINE_get_finish_function(const e: PENGINE): ENGINE_GEN_INT_FUNC_PTR; cdecl; +begin + ENGINE_get_finish_function := LoadLibCryptoFunction('ENGINE_get_finish_function'); + if not assigned(ENGINE_get_finish_function) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_finish_function'); + Result := ENGINE_get_finish_function(e); +end; + +function Load_ENGINE_get_ctrl_function(const e: PENGINE): ENGINE_CTRL_FUNC_PTR; cdecl; +begin + ENGINE_get_ctrl_function := LoadLibCryptoFunction('ENGINE_get_ctrl_function'); + if not assigned(ENGINE_get_ctrl_function) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_ctrl_function'); + Result := ENGINE_get_ctrl_function(e); +end; + +function Load_ENGINE_get_load_privkey_function(const e: PENGINE): ENGINE_LOAD_KEY_PTR; cdecl; +begin + ENGINE_get_load_privkey_function := LoadLibCryptoFunction('ENGINE_get_load_privkey_function'); + if not assigned(ENGINE_get_load_privkey_function) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_load_privkey_function'); + Result := ENGINE_get_load_privkey_function(e); +end; + +function Load_ENGINE_get_load_pubkey_function(const e: PENGINE): ENGINE_LOAD_KEY_PTR; cdecl; +begin + ENGINE_get_load_pubkey_function := LoadLibCryptoFunction('ENGINE_get_load_pubkey_function'); + if not assigned(ENGINE_get_load_pubkey_function) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_load_pubkey_function'); + Result := ENGINE_get_load_pubkey_function(e); +end; + +function Load_ENGINE_get_ciphers(const e: PENGINE): ENGINE_CIPHERS_PTR; cdecl; +begin + ENGINE_get_ciphers := LoadLibCryptoFunction('ENGINE_get_ciphers'); + if not assigned(ENGINE_get_ciphers) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_ciphers'); + Result := ENGINE_get_ciphers(e); +end; + +function Load_ENGINE_get_digests(const e: PENGINE): ENGINE_DIGESTS_PTR; cdecl; +begin + ENGINE_get_digests := LoadLibCryptoFunction('ENGINE_get_digests'); + if not assigned(ENGINE_get_digests) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_digests'); + Result := ENGINE_get_digests(e); +end; + +function Load_ENGINE_get_pkey_meths(const e: PENGINE): ENGINE_PKEY_METHS_PTR; cdecl; +begin + ENGINE_get_pkey_meths := LoadLibCryptoFunction('ENGINE_get_pkey_meths'); + if not assigned(ENGINE_get_pkey_meths) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_pkey_meths'); + Result := ENGINE_get_pkey_meths(e); +end; + +function Load_ENGINE_get_pkey_asn1_meths(const e: PENGINE): ENGINE_PKEY_ASN1_METHS_PTR; cdecl; +begin + ENGINE_get_pkey_asn1_meths := LoadLibCryptoFunction('ENGINE_get_pkey_asn1_meths'); + if not assigned(ENGINE_get_pkey_asn1_meths) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_pkey_asn1_meths'); + Result := ENGINE_get_pkey_asn1_meths(e); +end; + +function Load_ENGINE_get_cipher(e: PENGINE; nid: TOpenSSL_C_INT): PEVP_CIPHER; cdecl; +begin + ENGINE_get_cipher := LoadLibCryptoFunction('ENGINE_get_cipher'); + if not assigned(ENGINE_get_cipher) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_cipher'); + Result := ENGINE_get_cipher(e,nid); +end; + +function Load_ENGINE_get_digest(e: PENGINE; nid: TOpenSSL_C_INT): PEVP_MD; cdecl; +begin + ENGINE_get_digest := LoadLibCryptoFunction('ENGINE_get_digest'); + if not assigned(ENGINE_get_digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_digest'); + Result := ENGINE_get_digest(e,nid); +end; + +function Load_ENGINE_get_pkey_meth(e: PENGINE; nid: TOpenSSL_C_INT): PEVP_PKEY_METHOD; cdecl; +begin + ENGINE_get_pkey_meth := LoadLibCryptoFunction('ENGINE_get_pkey_meth'); + if not assigned(ENGINE_get_pkey_meth) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_pkey_meth'); + Result := ENGINE_get_pkey_meth(e,nid); +end; + +function Load_ENGINE_get_pkey_asn1_meth(e: PENGINE; nid: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; +begin + ENGINE_get_pkey_asn1_meth := LoadLibCryptoFunction('ENGINE_get_pkey_asn1_meth'); + if not assigned(ENGINE_get_pkey_asn1_meth) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_pkey_asn1_meth'); + Result := ENGINE_get_pkey_asn1_meth(e,nid); +end; + +function Load_ENGINE_get_pkey_asn1_meth_str(e: PENGINE; const str: PAnsiChar; len: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; +begin + ENGINE_get_pkey_asn1_meth_str := LoadLibCryptoFunction('ENGINE_get_pkey_asn1_meth_str'); + if not assigned(ENGINE_get_pkey_asn1_meth_str) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_pkey_asn1_meth_str'); + Result := ENGINE_get_pkey_asn1_meth_str(e,str,len); +end; + +function Load_ENGINE_pkey_asn1_find_str(pe: PPENGINE; const str: PAnsiChar; len: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; +begin + ENGINE_pkey_asn1_find_str := LoadLibCryptoFunction('ENGINE_pkey_asn1_find_str'); + if not assigned(ENGINE_pkey_asn1_find_str) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_pkey_asn1_find_str'); + Result := ENGINE_pkey_asn1_find_str(pe,str,len); +end; + +function Load_ENGINE_get_cmd_defns(const e: PENGINE): PENGINE_CMD_DEFN; cdecl; +begin + ENGINE_get_cmd_defns := LoadLibCryptoFunction('ENGINE_get_cmd_defns'); + if not assigned(ENGINE_get_cmd_defns) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_cmd_defns'); + Result := ENGINE_get_cmd_defns(e); +end; + +function Load_ENGINE_get_flags(const e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_get_flags := LoadLibCryptoFunction('ENGINE_get_flags'); + if not assigned(ENGINE_get_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_flags'); + Result := ENGINE_get_flags(e); +end; + +function Load_ENGINE_init(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_init := LoadLibCryptoFunction('ENGINE_init'); + if not assigned(ENGINE_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_init'); + Result := ENGINE_init(e); +end; + +function Load_ENGINE_finish(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_finish := LoadLibCryptoFunction('ENGINE_finish'); + if not assigned(ENGINE_finish) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_finish'); + Result := ENGINE_finish(e); +end; + +function Load_ENGINE_load_private_key(e: PENGINE; const key_id: PAnsiChar; ui_method: PUI_METHOD; callback_data: Pointer): PEVP_PKEY; cdecl; +begin + ENGINE_load_private_key := LoadLibCryptoFunction('ENGINE_load_private_key'); + if not assigned(ENGINE_load_private_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_load_private_key'); + Result := ENGINE_load_private_key(e,key_id,ui_method,callback_data); +end; + +function Load_ENGINE_load_public_key(e: PENGINE; const key_id: PAnsiChar; ui_method: PUI_METHOD; callback_data: Pointer): PEVP_PKEY; cdecl; +begin + ENGINE_load_public_key := LoadLibCryptoFunction('ENGINE_load_public_key'); + if not assigned(ENGINE_load_public_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_load_public_key'); + Result := ENGINE_load_public_key(e,key_id,ui_method,callback_data); +end; + +function Load_ENGINE_get_default_RSA: PENGINE; cdecl; +begin + ENGINE_get_default_RSA := LoadLibCryptoFunction('ENGINE_get_default_RSA'); + if not assigned(ENGINE_get_default_RSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_default_RSA'); + Result := ENGINE_get_default_RSA(); +end; + +function Load_ENGINE_get_default_DSA: PENGINE; cdecl; +begin + ENGINE_get_default_DSA := LoadLibCryptoFunction('ENGINE_get_default_DSA'); + if not assigned(ENGINE_get_default_DSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_default_DSA'); + Result := ENGINE_get_default_DSA(); +end; + +function Load_ENGINE_get_default_EC: PENGINE; cdecl; +begin + ENGINE_get_default_EC := LoadLibCryptoFunction('ENGINE_get_default_EC'); + if not assigned(ENGINE_get_default_EC) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_default_EC'); + Result := ENGINE_get_default_EC(); +end; + +function Load_ENGINE_get_default_DH: PENGINE; cdecl; +begin + ENGINE_get_default_DH := LoadLibCryptoFunction('ENGINE_get_default_DH'); + if not assigned(ENGINE_get_default_DH) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_default_DH'); + Result := ENGINE_get_default_DH(); +end; + +function Load_ENGINE_get_default_RAND: PENGINE; cdecl; +begin + ENGINE_get_default_RAND := LoadLibCryptoFunction('ENGINE_get_default_RAND'); + if not assigned(ENGINE_get_default_RAND) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_default_RAND'); + Result := ENGINE_get_default_RAND(); +end; + +function Load_ENGINE_get_cipher_engine(nid: TOpenSSL_C_INT): PENGINE; cdecl; +begin + ENGINE_get_cipher_engine := LoadLibCryptoFunction('ENGINE_get_cipher_engine'); + if not assigned(ENGINE_get_cipher_engine) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_cipher_engine'); + Result := ENGINE_get_cipher_engine(nid); +end; + +function Load_ENGINE_get_digest_engine(nid: TOpenSSL_C_INT): PENGINE; cdecl; +begin + ENGINE_get_digest_engine := LoadLibCryptoFunction('ENGINE_get_digest_engine'); + if not assigned(ENGINE_get_digest_engine) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_digest_engine'); + Result := ENGINE_get_digest_engine(nid); +end; + +function Load_ENGINE_get_pkey_meth_engine(nid: TOpenSSL_C_INT): PENGINE; cdecl; +begin + ENGINE_get_pkey_meth_engine := LoadLibCryptoFunction('ENGINE_get_pkey_meth_engine'); + if not assigned(ENGINE_get_pkey_meth_engine) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_pkey_meth_engine'); + Result := ENGINE_get_pkey_meth_engine(nid); +end; + +function Load_ENGINE_get_pkey_asn1_meth_engine(nid: TOpenSSL_C_INT): PENGINE; cdecl; +begin + ENGINE_get_pkey_asn1_meth_engine := LoadLibCryptoFunction('ENGINE_get_pkey_asn1_meth_engine'); + if not assigned(ENGINE_get_pkey_asn1_meth_engine) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_pkey_asn1_meth_engine'); + Result := ENGINE_get_pkey_asn1_meth_engine(nid); +end; + +function Load_ENGINE_set_default_RSA(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_default_RSA := LoadLibCryptoFunction('ENGINE_set_default_RSA'); + if not assigned(ENGINE_set_default_RSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_default_RSA'); + Result := ENGINE_set_default_RSA(e); +end; + +function Load_ENGINE_set_default_string(e: PENGINE; const def_list: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_default_string := LoadLibCryptoFunction('ENGINE_set_default_string'); + if not assigned(ENGINE_set_default_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_default_string'); + Result := ENGINE_set_default_string(e,def_list); +end; + +function Load_ENGINE_set_default_DSA(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_default_DSA := LoadLibCryptoFunction('ENGINE_set_default_DSA'); + if not assigned(ENGINE_set_default_DSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_default_DSA'); + Result := ENGINE_set_default_DSA(e); +end; + +function Load_ENGINE_set_default_EC(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_default_EC := LoadLibCryptoFunction('ENGINE_set_default_EC'); + if not assigned(ENGINE_set_default_EC) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_default_EC'); + Result := ENGINE_set_default_EC(e); +end; + +function Load_ENGINE_set_default_DH(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_default_DH := LoadLibCryptoFunction('ENGINE_set_default_DH'); + if not assigned(ENGINE_set_default_DH) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_default_DH'); + Result := ENGINE_set_default_DH(e); +end; + +function Load_ENGINE_set_default_RAND(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_default_RAND := LoadLibCryptoFunction('ENGINE_set_default_RAND'); + if not assigned(ENGINE_set_default_RAND) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_default_RAND'); + Result := ENGINE_set_default_RAND(e); +end; + +function Load_ENGINE_set_default_ciphers(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_default_ciphers := LoadLibCryptoFunction('ENGINE_set_default_ciphers'); + if not assigned(ENGINE_set_default_ciphers) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_default_ciphers'); + Result := ENGINE_set_default_ciphers(e); +end; + +function Load_ENGINE_set_default_digests(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_default_digests := LoadLibCryptoFunction('ENGINE_set_default_digests'); + if not assigned(ENGINE_set_default_digests) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_default_digests'); + Result := ENGINE_set_default_digests(e); +end; + +function Load_ENGINE_set_default_pkey_meths(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_default_pkey_meths := LoadLibCryptoFunction('ENGINE_set_default_pkey_meths'); + if not assigned(ENGINE_set_default_pkey_meths) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_default_pkey_meths'); + Result := ENGINE_set_default_pkey_meths(e); +end; + +function Load_ENGINE_set_default_pkey_asn1_meths(e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_default_pkey_asn1_meths := LoadLibCryptoFunction('ENGINE_set_default_pkey_asn1_meths'); + if not assigned(ENGINE_set_default_pkey_asn1_meths) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_default_pkey_asn1_meths'); + Result := ENGINE_set_default_pkey_asn1_meths(e); +end; + +function Load_ENGINE_set_default(e: PENGINE; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + ENGINE_set_default := LoadLibCryptoFunction('ENGINE_set_default'); + if not assigned(ENGINE_set_default) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_set_default'); + Result := ENGINE_set_default(e,flags); +end; + +procedure Load_ENGINE_add_conf_module; cdecl; +begin + ENGINE_add_conf_module := LoadLibCryptoFunction('ENGINE_add_conf_module'); + if not assigned(ENGINE_add_conf_module) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_add_conf_module'); + ENGINE_add_conf_module(); +end; + +function Load_ENGINE_get_static_state: Pointer; cdecl; +begin + ENGINE_get_static_state := LoadLibCryptoFunction('ENGINE_get_static_state'); + if not assigned(ENGINE_get_static_state) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ENGINE_get_static_state'); + Result := ENGINE_get_static_state(); +end; + + +procedure UnLoad; +begin + ENGINE_get_first := Load_ENGINE_get_first; + ENGINE_get_last := Load_ENGINE_get_last; + ENGINE_get_next := Load_ENGINE_get_next; + ENGINE_get_prev := Load_ENGINE_get_prev; + ENGINE_add := Load_ENGINE_add; + ENGINE_remove := Load_ENGINE_remove; + ENGINE_by_id := Load_ENGINE_by_id; + ENGINE_load_builtin_engines := Load_ENGINE_load_builtin_engines; + ENGINE_get_table_flags := Load_ENGINE_get_table_flags; + ENGINE_set_table_flags := Load_ENGINE_set_table_flags; + ENGINE_register_RSA := Load_ENGINE_register_RSA; + ENGINE_unregister_RSA := Load_ENGINE_unregister_RSA; + ENGINE_register_all_RSA := Load_ENGINE_register_all_RSA; + ENGINE_register_DSA := Load_ENGINE_register_DSA; + ENGINE_unregister_DSA := Load_ENGINE_unregister_DSA; + ENGINE_register_all_DSA := Load_ENGINE_register_all_DSA; + ENGINE_register_EC := Load_ENGINE_register_EC; + ENGINE_unregister_EC := Load_ENGINE_unregister_EC; + ENGINE_register_all_EC := Load_ENGINE_register_all_EC; + ENGINE_register_DH := Load_ENGINE_register_DH; + ENGINE_unregister_DH := Load_ENGINE_unregister_DH; + ENGINE_register_all_DH := Load_ENGINE_register_all_DH; + ENGINE_register_RAND := Load_ENGINE_register_RAND; + ENGINE_unregister_RAND := Load_ENGINE_unregister_RAND; + ENGINE_register_all_RAND := Load_ENGINE_register_all_RAND; + ENGINE_register_ciphers := Load_ENGINE_register_ciphers; + ENGINE_unregister_ciphers := Load_ENGINE_unregister_ciphers; + ENGINE_register_all_ciphers := Load_ENGINE_register_all_ciphers; + ENGINE_register_digests := Load_ENGINE_register_digests; + ENGINE_unregister_digests := Load_ENGINE_unregister_digests; + ENGINE_register_all_digests := Load_ENGINE_register_all_digests; + ENGINE_register_pkey_meths := Load_ENGINE_register_pkey_meths; + ENGINE_unregister_pkey_meths := Load_ENGINE_unregister_pkey_meths; + ENGINE_register_all_pkey_meths := Load_ENGINE_register_all_pkey_meths; + ENGINE_register_pkey_asn1_meths := Load_ENGINE_register_pkey_asn1_meths; + ENGINE_unregister_pkey_asn1_meths := Load_ENGINE_unregister_pkey_asn1_meths; + ENGINE_register_all_pkey_asn1_meths := Load_ENGINE_register_all_pkey_asn1_meths; + ENGINE_register_complete := Load_ENGINE_register_complete; + ENGINE_register_all_complete := Load_ENGINE_register_all_complete; + ENGINE_ctrl := Load_ENGINE_ctrl; + ENGINE_cmd_is_executable := Load_ENGINE_cmd_is_executable; + ENGINE_ctrl_cmd := Load_ENGINE_ctrl_cmd; + ENGINE_ctrl_cmd_string := Load_ENGINE_ctrl_cmd_string; + ENGINE_new := Load_ENGINE_new; + ENGINE_free := Load_ENGINE_free; + ENGINE_up_ref := Load_ENGINE_up_ref; + ENGINE_set_id := Load_ENGINE_set_id; + ENGINE_set_name := Load_ENGINE_set_name; + ENGINE_set_RSA := Load_ENGINE_set_RSA; + ENGINE_set_DSA := Load_ENGINE_set_DSA; + ENGINE_set_EC := Load_ENGINE_set_EC; + ENGINE_set_DH := Load_ENGINE_set_DH; + ENGINE_set_RAND := Load_ENGINE_set_RAND; + ENGINE_set_destroy_function := Load_ENGINE_set_destroy_function; + ENGINE_set_init_function := Load_ENGINE_set_init_function; + ENGINE_set_finish_function := Load_ENGINE_set_finish_function; + ENGINE_set_ctrl_function := Load_ENGINE_set_ctrl_function; + ENGINE_set_load_privkey_function := Load_ENGINE_set_load_privkey_function; + ENGINE_set_load_pubkey_function := Load_ENGINE_set_load_pubkey_function; + ENGINE_set_ciphers := Load_ENGINE_set_ciphers; + ENGINE_set_digests := Load_ENGINE_set_digests; + ENGINE_set_pkey_meths := Load_ENGINE_set_pkey_meths; + ENGINE_set_pkey_asn1_meths := Load_ENGINE_set_pkey_asn1_meths; + ENGINE_set_flags := Load_ENGINE_set_flags; + ENGINE_set_cmd_defns := Load_ENGINE_set_cmd_defns; + ENGINE_set_ex_data := Load_ENGINE_set_ex_data; + ENGINE_get_ex_data := Load_ENGINE_get_ex_data; + ENGINE_get_id := Load_ENGINE_get_id; + ENGINE_get_name := Load_ENGINE_get_name; + ENGINE_get_RSA := Load_ENGINE_get_RSA; + ENGINE_get_DSA := Load_ENGINE_get_DSA; + ENGINE_get_EC := Load_ENGINE_get_EC; + ENGINE_get_DH := Load_ENGINE_get_DH; + ENGINE_get_RAND := Load_ENGINE_get_RAND; + ENGINE_get_destroy_function := Load_ENGINE_get_destroy_function; + ENGINE_get_init_function := Load_ENGINE_get_init_function; + ENGINE_get_finish_function := Load_ENGINE_get_finish_function; + ENGINE_get_ctrl_function := Load_ENGINE_get_ctrl_function; + ENGINE_get_load_privkey_function := Load_ENGINE_get_load_privkey_function; + ENGINE_get_load_pubkey_function := Load_ENGINE_get_load_pubkey_function; + ENGINE_get_ciphers := Load_ENGINE_get_ciphers; + ENGINE_get_digests := Load_ENGINE_get_digests; + ENGINE_get_pkey_meths := Load_ENGINE_get_pkey_meths; + ENGINE_get_pkey_asn1_meths := Load_ENGINE_get_pkey_asn1_meths; + ENGINE_get_cipher := Load_ENGINE_get_cipher; + ENGINE_get_digest := Load_ENGINE_get_digest; + ENGINE_get_pkey_meth := Load_ENGINE_get_pkey_meth; + ENGINE_get_pkey_asn1_meth := Load_ENGINE_get_pkey_asn1_meth; + ENGINE_get_pkey_asn1_meth_str := Load_ENGINE_get_pkey_asn1_meth_str; + ENGINE_pkey_asn1_find_str := Load_ENGINE_pkey_asn1_find_str; + ENGINE_get_cmd_defns := Load_ENGINE_get_cmd_defns; + ENGINE_get_flags := Load_ENGINE_get_flags; + ENGINE_init := Load_ENGINE_init; + ENGINE_finish := Load_ENGINE_finish; + ENGINE_load_private_key := Load_ENGINE_load_private_key; + ENGINE_load_public_key := Load_ENGINE_load_public_key; + ENGINE_get_default_RSA := Load_ENGINE_get_default_RSA; + ENGINE_get_default_DSA := Load_ENGINE_get_default_DSA; + ENGINE_get_default_EC := Load_ENGINE_get_default_EC; + ENGINE_get_default_DH := Load_ENGINE_get_default_DH; + ENGINE_get_default_RAND := Load_ENGINE_get_default_RAND; + ENGINE_get_cipher_engine := Load_ENGINE_get_cipher_engine; + ENGINE_get_digest_engine := Load_ENGINE_get_digest_engine; + ENGINE_get_pkey_meth_engine := Load_ENGINE_get_pkey_meth_engine; + ENGINE_get_pkey_asn1_meth_engine := Load_ENGINE_get_pkey_asn1_meth_engine; + ENGINE_set_default_RSA := Load_ENGINE_set_default_RSA; + ENGINE_set_default_string := Load_ENGINE_set_default_string; + ENGINE_set_default_DSA := Load_ENGINE_set_default_DSA; + ENGINE_set_default_EC := Load_ENGINE_set_default_EC; + ENGINE_set_default_DH := Load_ENGINE_set_default_DH; + ENGINE_set_default_RAND := Load_ENGINE_set_default_RAND; + ENGINE_set_default_ciphers := Load_ENGINE_set_default_ciphers; + ENGINE_set_default_digests := Load_ENGINE_set_default_digests; + ENGINE_set_default_pkey_meths := Load_ENGINE_set_default_pkey_meths; + ENGINE_set_default_pkey_asn1_meths := Load_ENGINE_set_default_pkey_asn1_meths; + ENGINE_set_default := Load_ENGINE_set_default; + ENGINE_add_conf_module := Load_ENGINE_add_conf_module; + ENGINE_get_static_state := Load_ENGINE_get_static_state; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_engineerr.pas b/src/opensslHdrs/IdOpenSSLHeaders_engineerr.pas new file mode 100644 index 0000000..e5a8819 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_engineerr.pas @@ -0,0 +1,180 @@ +(* This unit was generated from the source file engineerr.h2pas +It should not be modified directly. All changes should be made to engineerr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_engineerr; + + +interface + +// Headers for OpenSSL 1.1.1 +// engineerr.h + + +uses + IdSSLOpenSSLAPI; + +const + (* + * ENGINE function codes. + *) + ENGINE_F_DIGEST_UPDATE = 198; + ENGINE_F_DYNAMIC_CTRL = 180; + ENGINE_F_DYNAMIC_GET_DATA_CTX = 181; + ENGINE_F_DYNAMIC_LOAD = 182; + ENGINE_F_DYNAMIC_SET_DATA_CTX = 183; + ENGINE_F_ENGINE_ADD = 105; + ENGINE_F_ENGINE_BY_ID = 106; + ENGINE_F_ENGINE_CMD_IS_EXECUTABLE = 170; + ENGINE_F_ENGINE_CTRL = 142; + ENGINE_F_ENGINE_CTRL_CMD = 178; + ENGINE_F_ENGINE_CTRL_CMD_STRING = 171; + ENGINE_F_ENGINE_FINISH = 107; + ENGINE_F_ENGINE_GET_CIPHER = 185; + ENGINE_F_ENGINE_GET_DIGEST = 186; + ENGINE_F_ENGINE_GET_FIRST = 195; + ENGINE_F_ENGINE_GET_LAST = 196; + ENGINE_F_ENGINE_GET_NEXT = 115; + ENGINE_F_ENGINE_GET_PKEY_ASN1_METH = 193; + ENGINE_F_ENGINE_GET_PKEY_METH = 192; + ENGINE_F_ENGINE_GET_PREV = 116; + ENGINE_F_ENGINE_INIT = 119; + ENGINE_F_ENGINE_LIST_ADD = 120; + ENGINE_F_ENGINE_LIST_REMOVE = 121; + ENGINE_F_ENGINE_LOAD_PRIVATE_KEY = 150; + ENGINE_F_ENGINE_LOAD_PUBLIC_KEY = 151; + ENGINE_F_ENGINE_LOAD_SSL_CLIENT_CERT = 194; + ENGINE_F_ENGINE_NEW = 122; + ENGINE_F_ENGINE_PKEY_ASN1_FIND_STR = 197; + ENGINE_F_ENGINE_REMOVE = 123; + ENGINE_F_ENGINE_SET_DEFAULT_STRING = 189; + ENGINE_F_ENGINE_SET_ID = 129; + ENGINE_F_ENGINE_SET_NAME = 130; + ENGINE_F_ENGINE_TABLE_REGISTER = 184; + ENGINE_F_ENGINE_UNLOCKED_FINISH = 191; + ENGINE_F_ENGINE_UP_REF = 190; + ENGINE_F_INT_CLEANUP_ITEM = 199; + ENGINE_F_INT_CTRL_HELPER = 172; + ENGINE_F_INT_ENGINE_CONFIGURE = 188; + ENGINE_F_INT_ENGINE_MODULE_INIT = 187; + ENGINE_F_OSSL_HMAC_INIT = 200; + + (* + * ENGINE reason codes. + *) + ENGINE_R_ALREADY_LOADED = 100; + ENGINE_R_ARGUMENT_IS_NOT_A_NUMBER = 133; + ENGINE_R_CMD_NOT_EXECUTABLE = 134; + ENGINE_R_COMMAND_TAKES_INPUT = 135; + ENGINE_R_COMMAND_TAKES_NO_INPUT = 136; + ENGINE_R_CONFLICTING_ENGINE_ID = 103; + ENGINE_R_CTRL_COMMAND_NOT_IMPLEMENTED = 119; + ENGINE_R_DSO_FAILURE = 104; + ENGINE_R_DSO_NOT_FOUND = 132; + ENGINE_R_ENGINES_SECTION_ERROR = 148; + ENGINE_R_ENGINE_CONFIGURATION_ERROR = 102; + ENGINE_R_ENGINE_IS_NOT_IN_LIST = 105; + ENGINE_R_ENGINE_SECTION_ERROR = 149; + ENGINE_R_FAILED_LOADING_PRIVATE_KEY = 128; + ENGINE_R_FAILED_LOADING_PUBLIC_KEY = 129; + ENGINE_R_FINISH_FAILED = 106; + ENGINE_R_ID_OR_NAME_MISSING = 108; + ENGINE_R_INIT_FAILED = 109; + ENGINE_R_INTERNAL_LIST_ERROR = 110; + ENGINE_R_INVALID_ARGUMENT = 143; + ENGINE_R_INVALID_CMD_NAME = 137; + ENGINE_R_INVALID_CMD_NUMBER = 138; + ENGINE_R_INVALID_INIT_VALUE = 151; + ENGINE_R_INVALID_STRING = 150; + ENGINE_R_NOT_INITIALISED = 117; + ENGINE_R_NOT_LOADED = 112; + ENGINE_R_NO_CONTROL_FUNCTION = 120; + ENGINE_R_NO_INDEX = 144; + ENGINE_R_NO_LOAD_FUNCTION = 125; + ENGINE_R_NO_REFERENCE = 130; + ENGINE_R_NO_SUCH_ENGINE = 116; + ENGINE_R_UNIMPLEMENTED_CIPHER = 146; + ENGINE_R_UNIMPLEMENTED_DIGEST = 147; + ENGINE_R_UNIMPLEMENTED_PUBLIC_KEY_METHOD = 101; + ENGINE_R_VERSION_INCOMPATIBILITY = 145; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_ENGINE_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_ENGINE_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_ENGINE_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_ENGINE_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_ENGINE_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_ENGINE_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_ENGINE_strings := LoadLibCryptoFunction('ERR_load_ENGINE_strings'); + if not assigned(ERR_load_ENGINE_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_ENGINE_strings'); + Result := ERR_load_ENGINE_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_ENGINE_strings := Load_ERR_load_ENGINE_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_err.pas b/src/opensslHdrs/IdOpenSSLHeaders_err.pas new file mode 100644 index 0000000..1f28b15 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_err.pas @@ -0,0 +1,797 @@ +(* This unit was generated from the source file err.h2pas +It should not be modified directly. All changes should be made to err.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_err; + + +interface + +// Headers for OpenSSL 1.1.1 +// err.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ; + +const + ERR_TXT_MALLOCED = $01; + ERR_TXT_STRING = $02; + ERR_FLAG_MARK = $01; + ERR_FLAG_CLEAR = $02; + + ERR_NUM_ERRORS = 16; + +//* library */ + ERR_LIB_SYS = 2; + ERR_LIB_BN = 3; + ERR_LIB_RSA = 4; + ERR_LIB_DH = 5; + ERR_LIB_EVP = 6; + ERR_LIB_BUF = 7; + ERR_LIB_OBJ = 8; + ERR_LIB_PEM = 9; + ERR_LIB_DSA = 10; + ERR_LIB_X509 = 11; + // ERR_LIB_METH 12 + ERR_LIB_ASN1 = 13; + ERR_LIB_CONF = 14; + ERR_LIB_CRYPTO = 15; + ERR_LIB_EC = 16; + ERR_LIB_SSL = 20; +(* #define ERR_LIB_SSL23 21 *) +(* #define ERR_LIB_SSL2 22 *) +(* #define ERR_LIB_SSL3 23 *) +(* #define ERR_LIB_RSAREF 30 *) +(* #define ERR_LIB_PROXY 31 *) + ERR_LIB_BIO = 32; + ERR_LIB_PKCS7 = 33; + ERR_LIB_X509V3 = 34; + ERR_LIB_PKCS12 = 35; + ERR_LIB_RAND = 36; + ERR_LIB_DSO = 37; + ERR_LIB_ENGINE = 38; + ERR_LIB_OCSP = 39; + ERR_LIB_UI = 40; + ERR_LIB_COMP = 41; + ERR_LIB_ECDSA = 42; + ERR_LIB_ECDH = 43; + ERR_LIB_OSSL_STORE = 44; + ERR_LIB_FIPS = 45; + ERR_LIB_CMS = 46; + ERR_LIB_TS = 47; + ERR_LIB_HMAC = 48; +(* # define ERR_LIB_JPAKE 49 *) + ERR_LIB_CT = 50; + ERR_LIB_ASYNC = 51; + ERR_LIB_KDF = 52; + ERR_LIB_SM2 = 53; + ERR_LIB_USER = 128; + +//* OS functions */ + SYS_F_FOPEN = 1; + SYS_F_CONNECT = 2; + SYS_F_GETSERVBYNAME = 3; + SYS_F_SOCKET = 4; + SYS_F_IOCTLSOCKET = 5; + SYS_F_BIND = 6; + SYS_F_LISTEN = 7; + SYS_F_ACCEPT = 8; + SYS_F_WSASTARTUP = 9; (* Winsock stuff *) + SYS_F_OPENDIR = 10; + SYS_F_FREAD = 11; + SYS_F_GETADDRINFO = 12; + SYS_F_GETNAMEINFO = 13; + SYS_F_SETSOCKOPT = 14; + SYS_F_GETSOCKOPT = 15; + SYS_F_GETSOCKNAME = 16; + SYS_F_GETHOSTBYNAME = 17; + SYS_F_FFLUSH = 18; + SYS_F_OPEN = 19; + SYS_F_CLOSE = 20; + SYS_F_IOCTL = 21; + SYS_F_STAT = 22; + SYS_F_FCNTL = 23; + SYS_F_FSTAT = 24; + +//* reasons */ + ERR_R_SYS_LIB = ERR_LIB_SYS; //2 + ERR_R_BN_LIB = ERR_LIB_BN; //3 + ERR_R_RSA_LIB = ERR_LIB_RSA; //4 + ERR_R_DH_LIB = ERR_LIB_DH; //5 + ERR_R_EVP_LIB = ERR_LIB_EVP; //6 + ERR_R_BUF_LIB = ERR_LIB_BUF; //7 + ERR_R_OBJ_LIB = ERR_LIB_OBJ; //8 + ERR_R_PEM_LIB = ERR_LIB_PEM; //9 + ERR_R_DSA_LIB = ERR_LIB_DSA; //10 + ERR_R_X509_LIB = ERR_LIB_X509; //11 + ERR_R_ASN1_LIB = ERR_LIB_ASN1; //13 + ERR_R_EC_LIB = ERR_LIB_EC; //16 + ERR_R_BIO_LIB = ERR_LIB_BIO; //32 + ERR_R_PKCS7_LIB = ERR_LIB_PKCS7; //33 + ERR_R_X509V3_LIB = ERR_LIB_X509V3; //34 + ERR_R_ENGINE_LIB = ERR_LIB_ENGINE; //38 + ERR_R_UI_LIB = ERR_LIB_UI; //40 + ERR_R_ECDSA_LIB = ERR_LIB_ECDSA; //42 + ERR_R_OSSL_STORE_LIB = ERR_LIB_OSSL_STORE; //44 + + ERR_R_NESTED_ASN1_ERROR = 58; + ERR_R_MISSING_ASN1_EOS = 63; + + //* fatal error */ + ERR_R_FATAL = 64; + ERR_R_MALLOC_FAILURE = (1 or ERR_R_FATAL); + ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED = (2 or ERR_R_FATAL); + ERR_R_PASSED_NULL_PARAMETER = (3 or ERR_R_FATAL); + ERR_R_INTERNAL_ERROR = (4 or ERR_R_FATAL); + ERR_R_DISABLED = (5 or ERR_R_FATAL); + ERR_R_INIT_FAIL = (6 or ERR_R_FATAL); + ERR_R_PASSED_INVALID_ARGUMENT = (7); + ERR_R_OPERATION_FAIL = (8 or ERR_R_FATAL); + ERR_R_PKCS12_LIB = ERR_LIB_PKCS12; + + +(* + * 99 is the maximum possible ERR_R_... code, higher values are reserved for + * the individual libraries + *) + +type + err_state_st = record + err_flags: array[0..ERR_NUM_ERRORS -1] of TOpenSSL_C_INT; + err_buffer: array[0..ERR_NUM_ERRORS -1] of TOpenSSL_C_ULONG; + err_data: array[0..ERR_NUM_ERRORS -1] of PAnsiChar; + err_data_flags: array[0..ERR_NUM_ERRORS -1] of TOpenSSL_C_INT; + err_file: array[0..ERR_NUM_ERRORS -1] of PAnsiChar; + err_line: array[0..ERR_NUM_ERRORS -1] of TOpenSSL_C_INT; + top, bottom: TOpenSSL_C_INT; + end; + ERR_STATE = err_state_st; + PERR_STATE = ^ERR_STATE; + + ERR_string_data_st = record + error: TOpenSSL_C_ULONG; + string_: PAnsiChar; + end; + ERR_STRING_DATA = ERR_string_data_st; + PERR_STRING_DATA = ^ERR_STRING_DATA; + + ERR_print_errors_cb_cb = function(str: PAnsiChar; len: TOpenSSL_C_SIZET; u: Pointer): TOpenSSL_C_INT; cdecl; + +// DEFINE_LHASH_OF(ERR_STRING_DATA); + + + +function ERR_GET_LIB(l: TOpenSSL_C_INT): TOpenSSL_C_ULONG; + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_new} +{$EXTERNALSYM ERR_set_debug} +{$EXTERNALSYM ERR_set_error} +{$EXTERNALSYM ERR_set_error_data} +{$EXTERNALSYM ERR_get_error} +{$EXTERNALSYM ERR_get_error_line} +{$EXTERNALSYM ERR_get_error_line_data} +{$EXTERNALSYM ERR_peek_error} +{$EXTERNALSYM ERR_peek_error_line} +{$EXTERNALSYM ERR_peek_error_line_data} +{$EXTERNALSYM ERR_peek_last_error} +{$EXTERNALSYM ERR_peek_last_error_line} +{$EXTERNALSYM ERR_peek_last_error_line_data} +{$EXTERNALSYM ERR_clear_error} +{$EXTERNALSYM ERR_error_string} +{$EXTERNALSYM ERR_error_string_n} +{$EXTERNALSYM ERR_lib_error_string} +{$EXTERNALSYM ERR_func_error_string} +{$EXTERNALSYM ERR_reason_error_string} +{$EXTERNALSYM ERR_print_errors_cb} +{$EXTERNALSYM ERR_print_errors} +{$EXTERNALSYM ERR_load_strings} +{$EXTERNALSYM ERR_load_strings_const} +{$EXTERNALSYM ERR_unload_strings} +{$EXTERNALSYM ERR_load_ERR_strings} +{$EXTERNALSYM ERR_get_state} +{$EXTERNALSYM ERR_get_next_error_library} +{$EXTERNALSYM ERR_set_mark} +{$EXTERNALSYM ERR_pop_to_mark} +{$EXTERNALSYM ERR_clear_last_mark} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +procedure ERR_new; cdecl; external CLibCrypto; +procedure ERR_set_debug(const file_: PAnsiChar; line: integer; const func: PAnsiChar); cdecl; external CLibCrypto; +procedure ERR_set_error(lib: integer; reason: integer; fmt: PAnsiChar); cdecl varargs; external CLibCrypto; +procedure ERR_set_error_data(data: PAnsiChar; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function ERR_get_error: TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +function ERR_get_error_line(file_: PPAnsiChar; line: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +function ERR_get_error_line_data(file_: PPAnsiChar; line: POpenSSL_C_INT; data: PPAnsiChar; flags: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +function ERR_peek_error: TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +function ERR_peek_error_line(file_: PPAnsiChar; line: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +function ERR_peek_error_line_data(file_: PPAnsiChar; line: POpenSSL_C_INT; data: PPAnsiChar; flags: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +function ERR_peek_last_error: TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +function ERR_peek_last_error_line(file_: PPAnsiChar; line: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +function ERR_peek_last_error_line_data(file_: PPAnsiChar; line: POpenSSL_C_INT; data: PPAnsiChar; flags: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +procedure ERR_clear_error; cdecl; external CLibCrypto; +function ERR_error_string(e: TOpenSSL_C_ULONG; buf: PAnsiChar): PAnsiChar; cdecl; external CLibCrypto; +procedure ERR_error_string_n(e: TOpenSSL_C_ULONG; buf: PAnsiChar; len: TOpenSSL_C_SIZET); cdecl; external CLibCrypto; +function ERR_lib_error_string(e: TOpenSSL_C_ULONG): PAnsiChar; cdecl; external CLibCrypto; +function ERR_func_error_string(e: TOpenSSL_C_ULONG): PAnsiChar; cdecl; external CLibCrypto; +function ERR_reason_error_string(e: TOpenSSL_C_ULONG): PAnsiChar; cdecl; external CLibCrypto; +procedure ERR_print_errors_cb(cb: ERR_print_errors_cb_cb; u: Pointer); cdecl; external CLibCrypto; +procedure ERR_print_errors(bp: PBIO); cdecl; external CLibCrypto; +function ERR_load_strings(lib: TOpenSSL_C_INT; str: PERR_STRING_DATA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ERR_load_strings_const(str: PERR_STRING_DATA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ERR_unload_strings(lib: TOpenSSL_C_INT; str: PERR_STRING_DATA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ERR_load_ERR_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ERR_get_state: PERR_STATE; cdecl; external CLibCrypto; +function ERR_get_next_error_library: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ERR_set_mark: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ERR_pop_to_mark: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ERR_clear_last_mark: TOpenSSL_C_INT; cdecl; external CLibCrypto; + + + + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure ERR_put_error(lib: TOpenSSL_C_INT; func: TOpenSSL_C_INT; reason: TOpenSSL_C_INT; file_: PAnsiChar; line: TOpenSSL_C_INT); {removed 3.0.0} +procedure SSLErr(func: TOpenSSL_C_INT; reason: TOpenSSL_C_INT); {removed 1.0.0} +procedure X509err(const f,r : TOpenSSL_C_INT); {removed 1.0.0} +function ERR_GET_REASON(const l : TOpenSSL_C_INT): TOpenSSL_C_INT; {removed 1.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_ERR_put_error(lib: TOpenSSL_C_INT; func: TOpenSSL_C_INT; reason: TOpenSSL_C_INT; file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +procedure Load_ERR_new; cdecl; +procedure Load_ERR_set_debug(const file_: PAnsiChar; line: integer; const func: PAnsiChar); cdecl; +procedure Load_ERR_set_error(lib: integer; reason: integer; fmt: PAnsiChar); cdecl; +procedure Load_ERR_set_error_data(data: PAnsiChar; flags: TOpenSSL_C_INT); cdecl; +function Load_ERR_get_error: TOpenSSL_C_ULONG; cdecl; +function Load_ERR_get_error_line(file_: PPAnsiChar; line: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; +function Load_ERR_get_error_line_data(file_: PPAnsiChar; line: POpenSSL_C_INT; data: PPAnsiChar; flags: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; +function Load_ERR_peek_error: TOpenSSL_C_ULONG; cdecl; +function Load_ERR_peek_error_line(file_: PPAnsiChar; line: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; +function Load_ERR_peek_error_line_data(file_: PPAnsiChar; line: POpenSSL_C_INT; data: PPAnsiChar; flags: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; +function Load_ERR_peek_last_error: TOpenSSL_C_ULONG; cdecl; +function Load_ERR_peek_last_error_line(file_: PPAnsiChar; line: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; +function Load_ERR_peek_last_error_line_data(file_: PPAnsiChar; line: POpenSSL_C_INT; data: PPAnsiChar; flags: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; +procedure Load_ERR_clear_error; cdecl; +function Load_ERR_error_string(e: TOpenSSL_C_ULONG; buf: PAnsiChar): PAnsiChar; cdecl; +procedure Load_ERR_error_string_n(e: TOpenSSL_C_ULONG; buf: PAnsiChar; len: TOpenSSL_C_SIZET); cdecl; +function Load_ERR_lib_error_string(e: TOpenSSL_C_ULONG): PAnsiChar; cdecl; +function Load_ERR_func_error_string(e: TOpenSSL_C_ULONG): PAnsiChar; cdecl; +function Load_ERR_reason_error_string(e: TOpenSSL_C_ULONG): PAnsiChar; cdecl; +procedure Load_ERR_print_errors_cb(cb: ERR_print_errors_cb_cb; u: Pointer); cdecl; +procedure Load_ERR_print_errors(bp: PBIO); cdecl; +function Load_ERR_load_strings(lib: TOpenSSL_C_INT; str: PERR_STRING_DATA): TOpenSSL_C_INT; cdecl; +function Load_ERR_load_strings_const(str: PERR_STRING_DATA): TOpenSSL_C_INT; cdecl; +function Load_ERR_unload_strings(lib: TOpenSSL_C_INT; str: PERR_STRING_DATA): TOpenSSL_C_INT; cdecl; +function Load_ERR_load_ERR_strings: TOpenSSL_C_INT; cdecl; +function Load_ERR_get_state: PERR_STATE; cdecl; +function Load_ERR_get_next_error_library: TOpenSSL_C_INT; cdecl; +function Load_ERR_set_mark: TOpenSSL_C_INT; cdecl; +function Load_ERR_pop_to_mark: TOpenSSL_C_INT; cdecl; +function Load_ERR_clear_last_mark: TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_SSLErr(func: TOpenSSL_C_INT; reason: TOpenSSL_C_INT); cdecl; +procedure Load_X509err(const f,r : TOpenSSL_C_INT); cdecl; +function Load_ERR_GET_REASON(const l : TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + +var + ERR_new: procedure ; cdecl = Load_ERR_new; + ERR_set_debug: procedure (const file_: PAnsiChar; line: integer; const func: PAnsiChar); cdecl = Load_ERR_set_debug; + ERR_set_error: procedure (lib: integer; reason: integer; fmt: PAnsiChar); cdecl varargs = Load_ERR_set_error; + ERR_set_error_data: procedure (data: PAnsiChar; flags: TOpenSSL_C_INT); cdecl = Load_ERR_set_error_data; + ERR_get_error: function : TOpenSSL_C_ULONG; cdecl = Load_ERR_get_error; + ERR_get_error_line: function (file_: PPAnsiChar; line: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl = Load_ERR_get_error_line; + ERR_get_error_line_data: function (file_: PPAnsiChar; line: POpenSSL_C_INT; data: PPAnsiChar; flags: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl = Load_ERR_get_error_line_data; + ERR_peek_error: function : TOpenSSL_C_ULONG; cdecl = Load_ERR_peek_error; + ERR_peek_error_line: function (file_: PPAnsiChar; line: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl = Load_ERR_peek_error_line; + ERR_peek_error_line_data: function (file_: PPAnsiChar; line: POpenSSL_C_INT; data: PPAnsiChar; flags: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl = Load_ERR_peek_error_line_data; + ERR_peek_last_error: function : TOpenSSL_C_ULONG; cdecl = Load_ERR_peek_last_error; + ERR_peek_last_error_line: function (file_: PPAnsiChar; line: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl = Load_ERR_peek_last_error_line; + ERR_peek_last_error_line_data: function (file_: PPAnsiChar; line: POpenSSL_C_INT; data: PPAnsiChar; flags: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl = Load_ERR_peek_last_error_line_data; + ERR_clear_error: procedure ; cdecl = Load_ERR_clear_error; + ERR_error_string: function (e: TOpenSSL_C_ULONG; buf: PAnsiChar): PAnsiChar; cdecl = Load_ERR_error_string; + ERR_error_string_n: procedure (e: TOpenSSL_C_ULONG; buf: PAnsiChar; len: TOpenSSL_C_SIZET); cdecl = Load_ERR_error_string_n; + ERR_lib_error_string: function (e: TOpenSSL_C_ULONG): PAnsiChar; cdecl = Load_ERR_lib_error_string; + ERR_func_error_string: function (e: TOpenSSL_C_ULONG): PAnsiChar; cdecl = Load_ERR_func_error_string; + ERR_reason_error_string: function (e: TOpenSSL_C_ULONG): PAnsiChar; cdecl = Load_ERR_reason_error_string; + ERR_print_errors_cb: procedure (cb: ERR_print_errors_cb_cb; u: Pointer); cdecl = Load_ERR_print_errors_cb; + ERR_print_errors: procedure (bp: PBIO); cdecl = Load_ERR_print_errors; + ERR_load_strings: function (lib: TOpenSSL_C_INT; str: PERR_STRING_DATA): TOpenSSL_C_INT; cdecl = Load_ERR_load_strings; + ERR_load_strings_const: function (str: PERR_STRING_DATA): TOpenSSL_C_INT; cdecl = Load_ERR_load_strings_const; + ERR_unload_strings: function (lib: TOpenSSL_C_INT; str: PERR_STRING_DATA): TOpenSSL_C_INT; cdecl = Load_ERR_unload_strings; + ERR_load_ERR_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_ERR_strings; + ERR_get_state: function : PERR_STATE; cdecl = Load_ERR_get_state; + ERR_get_next_error_library: function : TOpenSSL_C_INT; cdecl = Load_ERR_get_next_error_library; + ERR_set_mark: function : TOpenSSL_C_INT; cdecl = Load_ERR_set_mark; + ERR_pop_to_mark: function : TOpenSSL_C_INT; cdecl = Load_ERR_pop_to_mark; + ERR_clear_last_mark: function : TOpenSSL_C_INT; cdecl = Load_ERR_clear_last_mark; + + + + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +var + ERR_put_error: procedure (lib: TOpenSSL_C_INT; func: TOpenSSL_C_INT; reason: TOpenSSL_C_INT; file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl = Load_ERR_put_error; {removed 3.0.0} + SSLErr: procedure (func: TOpenSSL_C_INT; reason: TOpenSSL_C_INT); cdecl = Load_SSLErr; {removed 1.0.0} + X509err: procedure (const f,r : TOpenSSL_C_INT); cdecl = Load_X509err; {removed 1.0.0} + ERR_GET_REASON: function (const l : TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_ERR_GET_REASON; {removed 1.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +const + ERR_put_error_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + ERR_new_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + ERR_set_debug_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + ERR_set_error_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + ERR_load_strings_const_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + ERR_clear_last_mark_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSLErr_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + X509err_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + ERR_GET_REASON_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + + +implementation + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} + +function ERR_GET_LIB(l: TOpenSSL_C_INT): TOpenSSL_C_ULONG; +begin + Result := (l shr 24) and $ff; +end; + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} + +{Legacy Support Functions} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure SSLErr(func: TOpenSSL_C_INT; reason: TOpenSSL_C_INT); + +begin + ERR_put_error(ERR_LIB_SSL,func,reason,'',0); +end; + + + +procedure ERR_put_error(lib: TOpenSSL_C_INT; func: TOpenSSL_C_INT; reason: TOpenSSL_C_INT; file_: PAnsiChar; line: TOpenSSL_C_INT); + +{ From 3.0 onwards, replaced by a macro + define ERR_put_error(lib, func, reason, file, line) + (ERR_new(), + ERR_set_debug((file), (line), OPENSSL_FUNC), + ERR_set_error((lib), (reason), ''))} +begin + ERR_new; + ERR_set_debug(file_,line, ''); + ERR_set_error(lib,reason,''); +end; + + + +procedure X509err(const f,r : TOpenSSL_C_INT); + +begin + ERR_PUT_error(ERR_LIB_X509,f,r,nil,0); +end; + + + +function ERR_GET_REASON(const l : TOpenSSL_C_INT): TOpenSSL_C_INT; + +begin + Result := l and $fff; +end; + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure COMPAT_SSLErr(func: TOpenSSL_C_INT; reason: TOpenSSL_C_INT); cdecl; + +begin + ERR_put_error(ERR_LIB_SSL,func,reason,'',0); +end; + + + +procedure COMPAT_ERR_put_error(lib: TOpenSSL_C_INT; func: TOpenSSL_C_INT; reason: TOpenSSL_C_INT; file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl; + +{ From 3.0 onwards, replaced by a macro + define ERR_put_error(lib, func, reason, file, line) + (ERR_new(), + ERR_set_debug((file), (line), OPENSSL_FUNC), + ERR_set_error((lib), (reason), ''))} +begin + ERR_new; + ERR_set_debug(file_,line, ''); + ERR_set_error(lib,reason,''); +end; + + + +procedure COMPAT_X509err(const f,r : TOpenSSL_C_INT); cdecl; + +begin + ERR_PUT_error(ERR_LIB_X509,f,r,nil,0); +end; + + + +function COMPAT_ERR_GET_REASON(const l : TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + +begin + Result := l and $fff; +end; + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_ERR_put_error(lib: TOpenSSL_C_INT; func: TOpenSSL_C_INT; reason: TOpenSSL_C_INT; file_: PAnsiChar; line: TOpenSSL_C_INT); cdecl; +begin + ERR_put_error := LoadLibCryptoFunction('ERR_put_error'); + if not assigned(ERR_put_error) then + ERR_put_error := @COMPAT_ERR_put_error; + ERR_put_error(lib,func,reason,file_,line); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +procedure Load_ERR_new; cdecl; +begin + ERR_new := LoadLibCryptoFunction('ERR_new'); + if not assigned(ERR_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_new'); + ERR_new(); +end; + +procedure Load_ERR_set_debug(const file_: PAnsiChar; line: integer; const func: PAnsiChar); cdecl; +begin + ERR_set_debug := LoadLibCryptoFunction('ERR_set_debug'); + if not assigned(ERR_set_debug) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_set_debug'); + ERR_set_debug(file_,line,func); +end; + +procedure Load_ERR_set_error(lib: integer; reason: integer; fmt: PAnsiChar); cdecl; +begin + ERR_set_error := LoadLibCryptoFunction('ERR_set_error'); + if not assigned(ERR_set_error) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_set_error'); + ERR_set_error(lib,reason,fmt); +end; + +procedure Load_ERR_set_error_data(data: PAnsiChar; flags: TOpenSSL_C_INT); cdecl; +begin + ERR_set_error_data := LoadLibCryptoFunction('ERR_set_error_data'); + if not assigned(ERR_set_error_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_set_error_data'); + ERR_set_error_data(data,flags); +end; + +function Load_ERR_get_error: TOpenSSL_C_ULONG; cdecl; +begin + ERR_get_error := LoadLibCryptoFunction('ERR_get_error'); + if not assigned(ERR_get_error) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_get_error'); + Result := ERR_get_error(); +end; + +function Load_ERR_get_error_line(file_: PPAnsiChar; line: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; +begin + ERR_get_error_line := LoadLibCryptoFunction('ERR_get_error_line'); + if not assigned(ERR_get_error_line) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_get_error_line'); + Result := ERR_get_error_line(file_,line); +end; + +function Load_ERR_get_error_line_data(file_: PPAnsiChar; line: POpenSSL_C_INT; data: PPAnsiChar; flags: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; +begin + ERR_get_error_line_data := LoadLibCryptoFunction('ERR_get_error_line_data'); + if not assigned(ERR_get_error_line_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_get_error_line_data'); + Result := ERR_get_error_line_data(file_,line,data,flags); +end; + +function Load_ERR_peek_error: TOpenSSL_C_ULONG; cdecl; +begin + ERR_peek_error := LoadLibCryptoFunction('ERR_peek_error'); + if not assigned(ERR_peek_error) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_peek_error'); + Result := ERR_peek_error(); +end; + +function Load_ERR_peek_error_line(file_: PPAnsiChar; line: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; +begin + ERR_peek_error_line := LoadLibCryptoFunction('ERR_peek_error_line'); + if not assigned(ERR_peek_error_line) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_peek_error_line'); + Result := ERR_peek_error_line(file_,line); +end; + +function Load_ERR_peek_error_line_data(file_: PPAnsiChar; line: POpenSSL_C_INT; data: PPAnsiChar; flags: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; +begin + ERR_peek_error_line_data := LoadLibCryptoFunction('ERR_peek_error_line_data'); + if not assigned(ERR_peek_error_line_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_peek_error_line_data'); + Result := ERR_peek_error_line_data(file_,line,data,flags); +end; + +function Load_ERR_peek_last_error: TOpenSSL_C_ULONG; cdecl; +begin + ERR_peek_last_error := LoadLibCryptoFunction('ERR_peek_last_error'); + if not assigned(ERR_peek_last_error) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_peek_last_error'); + Result := ERR_peek_last_error(); +end; + +function Load_ERR_peek_last_error_line(file_: PPAnsiChar; line: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; +begin + ERR_peek_last_error_line := LoadLibCryptoFunction('ERR_peek_last_error_line'); + if not assigned(ERR_peek_last_error_line) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_peek_last_error_line'); + Result := ERR_peek_last_error_line(file_,line); +end; + +function Load_ERR_peek_last_error_line_data(file_: PPAnsiChar; line: POpenSSL_C_INT; data: PPAnsiChar; flags: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; +begin + ERR_peek_last_error_line_data := LoadLibCryptoFunction('ERR_peek_last_error_line_data'); + if not assigned(ERR_peek_last_error_line_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_peek_last_error_line_data'); + Result := ERR_peek_last_error_line_data(file_,line,data,flags); +end; + +procedure Load_ERR_clear_error; cdecl; +begin + ERR_clear_error := LoadLibCryptoFunction('ERR_clear_error'); + if not assigned(ERR_clear_error) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_clear_error'); + ERR_clear_error(); +end; + +function Load_ERR_error_string(e: TOpenSSL_C_ULONG; buf: PAnsiChar): PAnsiChar; cdecl; +begin + ERR_error_string := LoadLibCryptoFunction('ERR_error_string'); + if not assigned(ERR_error_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_error_string'); + Result := ERR_error_string(e,buf); +end; + +procedure Load_ERR_error_string_n(e: TOpenSSL_C_ULONG; buf: PAnsiChar; len: TOpenSSL_C_SIZET); cdecl; +begin + ERR_error_string_n := LoadLibCryptoFunction('ERR_error_string_n'); + if not assigned(ERR_error_string_n) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_error_string_n'); + ERR_error_string_n(e,buf,len); +end; + +function Load_ERR_lib_error_string(e: TOpenSSL_C_ULONG): PAnsiChar; cdecl; +begin + ERR_lib_error_string := LoadLibCryptoFunction('ERR_lib_error_string'); + if not assigned(ERR_lib_error_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_lib_error_string'); + Result := ERR_lib_error_string(e); +end; + +function Load_ERR_func_error_string(e: TOpenSSL_C_ULONG): PAnsiChar; cdecl; +begin + ERR_func_error_string := LoadLibCryptoFunction('ERR_func_error_string'); + if not assigned(ERR_func_error_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_func_error_string'); + Result := ERR_func_error_string(e); +end; + +function Load_ERR_reason_error_string(e: TOpenSSL_C_ULONG): PAnsiChar; cdecl; +begin + ERR_reason_error_string := LoadLibCryptoFunction('ERR_reason_error_string'); + if not assigned(ERR_reason_error_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_reason_error_string'); + Result := ERR_reason_error_string(e); +end; + +procedure Load_ERR_print_errors_cb(cb: ERR_print_errors_cb_cb; u: Pointer); cdecl; +begin + ERR_print_errors_cb := LoadLibCryptoFunction('ERR_print_errors_cb'); + if not assigned(ERR_print_errors_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_print_errors_cb'); + ERR_print_errors_cb(cb,u); +end; + +procedure Load_ERR_print_errors(bp: PBIO); cdecl; +begin + ERR_print_errors := LoadLibCryptoFunction('ERR_print_errors'); + if not assigned(ERR_print_errors) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_print_errors'); + ERR_print_errors(bp); +end; + +function Load_ERR_load_strings(lib: TOpenSSL_C_INT; str: PERR_STRING_DATA): TOpenSSL_C_INT; cdecl; +begin + ERR_load_strings := LoadLibCryptoFunction('ERR_load_strings'); + if not assigned(ERR_load_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_strings'); + Result := ERR_load_strings(lib,str); +end; + +function Load_ERR_load_strings_const(str: PERR_STRING_DATA): TOpenSSL_C_INT; cdecl; +begin + ERR_load_strings_const := LoadLibCryptoFunction('ERR_load_strings_const'); + if not assigned(ERR_load_strings_const) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_strings_const'); + Result := ERR_load_strings_const(str); +end; + +function Load_ERR_unload_strings(lib: TOpenSSL_C_INT; str: PERR_STRING_DATA): TOpenSSL_C_INT; cdecl; +begin + ERR_unload_strings := LoadLibCryptoFunction('ERR_unload_strings'); + if not assigned(ERR_unload_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_unload_strings'); + Result := ERR_unload_strings(lib,str); +end; + +function Load_ERR_load_ERR_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_ERR_strings := LoadLibCryptoFunction('ERR_load_ERR_strings'); + if not assigned(ERR_load_ERR_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_ERR_strings'); + Result := ERR_load_ERR_strings(); +end; + +function Load_ERR_get_state: PERR_STATE; cdecl; +begin + ERR_get_state := LoadLibCryptoFunction('ERR_get_state'); + if not assigned(ERR_get_state) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_get_state'); + Result := ERR_get_state(); +end; + +function Load_ERR_get_next_error_library: TOpenSSL_C_INT; cdecl; +begin + ERR_get_next_error_library := LoadLibCryptoFunction('ERR_get_next_error_library'); + if not assigned(ERR_get_next_error_library) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_get_next_error_library'); + Result := ERR_get_next_error_library(); +end; + +function Load_ERR_set_mark: TOpenSSL_C_INT; cdecl; +begin + ERR_set_mark := LoadLibCryptoFunction('ERR_set_mark'); + if not assigned(ERR_set_mark) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_set_mark'); + Result := ERR_set_mark(); +end; + +function Load_ERR_pop_to_mark: TOpenSSL_C_INT; cdecl; +begin + ERR_pop_to_mark := LoadLibCryptoFunction('ERR_pop_to_mark'); + if not assigned(ERR_pop_to_mark) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_pop_to_mark'); + Result := ERR_pop_to_mark(); +end; + +function Load_ERR_clear_last_mark: TOpenSSL_C_INT; cdecl; +begin + ERR_clear_last_mark := LoadLibCryptoFunction('ERR_clear_last_mark'); + if not assigned(ERR_clear_last_mark) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_clear_last_mark'); + Result := ERR_clear_last_mark(); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_SSLErr(func: TOpenSSL_C_INT; reason: TOpenSSL_C_INT); cdecl; +begin + SSLErr := LoadLibCryptoFunction('SSLErr'); + if not assigned(SSLErr) then + SSLErr := @COMPAT_SSLErr; + SSLErr(func,reason); +end; + +procedure Load_X509err(const f,r : TOpenSSL_C_INT); cdecl; +begin + X509err := LoadLibCryptoFunction('X509err'); + if not assigned(X509err) then + X509err := @COMPAT_X509err; + X509err(f,r); +end; + +function Load_ERR_GET_REASON(const l : TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + ERR_GET_REASON := LoadLibCryptoFunction('ERR_GET_REASON'); + if not assigned(ERR_GET_REASON) then + ERR_GET_REASON := @COMPAT_ERR_GET_REASON; + Result := ERR_GET_REASON(l); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + +procedure UnLoad; +begin +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + ERR_put_error := Load_ERR_put_error; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + ERR_new := Load_ERR_new; + ERR_set_debug := Load_ERR_set_debug; + ERR_set_error := Load_ERR_set_error; + ERR_set_error_data := Load_ERR_set_error_data; + ERR_get_error := Load_ERR_get_error; + ERR_get_error_line := Load_ERR_get_error_line; + ERR_get_error_line_data := Load_ERR_get_error_line_data; + ERR_peek_error := Load_ERR_peek_error; + ERR_peek_error_line := Load_ERR_peek_error_line; + ERR_peek_error_line_data := Load_ERR_peek_error_line_data; + ERR_peek_last_error := Load_ERR_peek_last_error; + ERR_peek_last_error_line := Load_ERR_peek_last_error_line; + ERR_peek_last_error_line_data := Load_ERR_peek_last_error_line_data; + ERR_clear_error := Load_ERR_clear_error; + ERR_error_string := Load_ERR_error_string; + ERR_error_string_n := Load_ERR_error_string_n; + ERR_lib_error_string := Load_ERR_lib_error_string; + ERR_func_error_string := Load_ERR_func_error_string; + ERR_reason_error_string := Load_ERR_reason_error_string; + ERR_print_errors_cb := Load_ERR_print_errors_cb; + ERR_print_errors := Load_ERR_print_errors; + ERR_load_strings := Load_ERR_load_strings; + ERR_load_strings_const := Load_ERR_load_strings_const; + ERR_unload_strings := Load_ERR_unload_strings; + ERR_load_ERR_strings := Load_ERR_load_ERR_strings; + ERR_get_state := Load_ERR_get_state; + ERR_get_next_error_library := Load_ERR_get_next_error_library; + ERR_set_mark := Load_ERR_set_mark; + ERR_pop_to_mark := Load_ERR_pop_to_mark; + ERR_clear_last_mark := Load_ERR_clear_last_mark; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSLErr := Load_SSLErr; + X509err := Load_X509err; + ERR_GET_REASON := Load_ERR_GET_REASON; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_evp.pas b/src/opensslHdrs/IdOpenSSLHeaders_evp.pas new file mode 100644 index 0000000..f894d54 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_evp.pas @@ -0,0 +1,7981 @@ +(* This unit was generated from the source file evp.h2pas +It should not be modified directly. All changes should be made to evp.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_evp; + + +interface + +// Headers for OpenSSL 1.1.1 +// evp.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_bio, + IdOpenSSLHeaders_obj_mac, + IdOpenSSLHeaders_ossl_typ; + +const + EVP_MAX_MD_SIZE = 64; // longest known is SHA512 + EVP_MAX_KEY_LENGTH = 64; + EVP_MAX_IV_LENGTH = 16; + EVP_MAX_BLOCK_LENGTH = 32; + PKCS5_SALT_LEN = 8; + // Default PKCS#5 iteration count + PKCS5_DEFAULT_ITER = 2048; + EVP_PK_RSA = $0001; + EVP_PK_DSA = $0002; + EVP_PK_DH = $0004; + EVP_PK_EC = $0008; + EVP_PKT_SIGN = $0010; + EVP_PKT_ENC = $0020; + EVP_PKT_EXCH = $0040; + EVP_PKS_RSA = $0100; + EVP_PKS_DSA = $0200; + EVP_PKS_EC = $0400; + + EVP_PKEY_NONE = NID_undef; + EVP_PKEY_RSA = NID_rsaEncryption; + EVP_PKEY_RSA2 = NID_rsa; + EVP_PKEY_RSA_PSS = NID_rsassaPss; + EVP_PKEY_DSA = NID_dsa; + EVP_PKEY_DSA1 = NID_dsa_2; + EVP_PKEY_DSA2 = NID_dsaWithSHA; + EVP_PKEY_DSA3 = NID_dsaWithSHA1; + EVP_PKEY_DSA4 = NID_dsaWithSHA1_2; + EVP_PKEY_DH = NID_dhKeyAgreement; + EVP_PKEY_DHX = NID_dhpublicnumber; + EVP_PKEY_EC = NID_X9_62_id_ecPublicKey; + EVP_PKEY_SM2 = NID_sm2; + EVP_PKEY_HMAC = NID_hmac; + EVP_PKEY_CMAC = NID_cmac; + EVP_PKEY_SCRYPT = NID_id_scrypt; + EVP_PKEY_TLS1_PRF = NID_tls1_prf; + EVP_PKEY_HKDF = NID_hkdf; + EVP_PKEY_POLY1305 = NID_poly1305; + EVP_PKEY_SIPHASH = NID_siphash; + EVP_PKEY_X25519 = NID_X25519; + EVP_PKEY_ED25519 = NID_ED25519; + EVP_PKEY_X448 = NID_X448; + EVP_PKEY_ED448 = NID_ED448; + + EVP_PKEY_MO_SIGN = $0001; + EVP_PKEY_MO_VERIFY = $0002; + EVP_PKEY_MO_ENCRYPT = $0004; + EVP_PKEY_MO_DECRYPT = $0008; + +// digest can only handle a single block /// + EVP_MD_FLAG_ONESHOT = $0001; + +// digest is extensible-output function; XOF /// + + EVP_MD_FLAG_XOF = $0002; + +// DigestAlgorithmIdentifier flags... /// + + EVP_MD_FLAG_DIGALGID_MASK = $0018; + +// NULL or absent parameter accepted. Use NULL /// + + EVP_MD_FLAG_DIGALGID_NULL = $0000; + +// NULL or absent parameter accepted. Use NULL for PKCS#1 otherwise absent /// + + EVP_MD_FLAG_DIGALGID_ABSENT = $0008; + +// Custom handling via ctrl /// + + EVP_MD_FLAG_DIGALGID_CUSTOM = $0018; + +// Note if suitable for use in FIPS mode /// + + EVP_MD_FLAG_FIPS = $0400; + +// Digest ctrls /// + + EVP_MD_CTRL_DIGALGID = $1; + EVP_MD_CTRL_MICALG = $2; + EVP_MD_CTRL_XOF_LEN = $3; + +// Minimum Algorithm specific ctrl value /// + + EVP_MD_CTRL_ALG_CTRL = $1000; + // not EVP_MD /// + +// values for EVP_MD_CTX flags /// + EVP_MD_CTX_FLAG_ONESHOT = $0001; + EVP_MD_CTX_FLAG_CLEANED = $0002; + EVP_MD_CTX_FLAG_REUSE = $0004; +// + // FIPS and pad options are ignored in 1.0.0; definitions are here so we + // don't accidentally reuse the values for other purposes. + /// + + EVP_MD_CTX_FLAG_NON_FIPS_ALLOW = $0008; + +// + // The following PAD options are also currently ignored in 1.0.0; digest + // parameters are handled through EVP_DigestSign//() and EVP_DigestVerify//() + // instead. + /// + EVP_MD_CTX_FLAG_PAD_MASK = $F0; + EVP_MD_CTX_FLAG_PAD_PKCS1 = $00; + EVP_MD_CTX_FLAG_PAD_X931 = $10; + EVP_MD_CTX_FLAG_PAD_PSS = $20; + + EVP_MD_CTX_FLAG_NO_INIT = $0100; +// + // Some functions such as EVP_DigestSign only finalise copies of internal + // contexts so additional data can be included after the finalisation call. + // This is inefficient if this functionality is not required: it is disabled + // if the following flag is set. + /// + EVP_MD_CTX_FLAG_FINALISE = $0200; + + +// NOTE: $0400 is reserved for internal usage /// +// Values for cipher flags /// + +// Modes for ciphers /// + + EVP_CIPH_STREAM_CIPHER = $0; + EVP_CIPH_ECB_MODE = $1; + EVP_CIPHC_MODE = $2; + EVP_CIPH_CFB_MODE = $3; + EVP_CIPH_OFB_MODE = $4; + EVP_CIPH_CTR_MODE = $5; + EVP_CIPH_GCM_MODE = $6; + EVP_CIPH_CCM_MODE = $7; + EVP_CIPH_XTS_MODE = $10001; + EVP_CIPH_WRAP_MODE = $10002; + EVP_CIPH_OCB_MODE = $10003; + EVP_CIPH_MODE = $F0007; +// Set if variable length cipher /// + EVP_CIPH_VARIABLE_LENGTH = $8; +// Set if the iv handling should be done by the cipher itself /// + EVP_CIPH_CUSTOM_IV = $10; +// Set if the cipher's init() function should be called if key is NULL /// + EVP_CIPH_ALWAYS_CALL_INIT = $20; +// Call ctrl() to init cipher parameters /// + EVP_CIPH_CTRL_INIT = $40; +// Don't use standard key length function /// + EVP_CIPH_CUSTOM_KEY_LENGTH = $80; +// Don't use standard block padding /// + EVP_CIPH_NO_PADDING = $100; +// cipher handles random key generation /// + EVP_CIPH_RAND_KEY = $200; +// cipher has its own additional copying logic /// + EVP_CIPH_CUSTOM_COPY = $400; +// Don't use standard iv length function /// + EVP_CIPH_CUSTOM_IV_LENGTH = $800; +// Allow use default ASN1 get/set iv /// + EVP_CIPH_FLAG_DEFAULT_ASN1 = $1000; +// Buffer length in bits not bytes: CFB1 mode only /// + EVP_CIPH_FLAG_LENGTH_BITS = $2000; +// Note if suitable for use in FIPS mode /// + EVP_CIPH_FLAG_FIPS = $4000; +// Allow non FIPS cipher in FIPS mode /// + EVP_CIPH_FLAG_NON_FIPS_ALLOW = $8000; +// + // Cipher handles any and all padding logic as well as finalisation. + /// + EVP_CIPH_FLAG_CUSTOM_CIPHER = $100000; + EVP_CIPH_FLAG_AEAD_CIPHER = $200000; + EVP_CIPH_FLAG_TLS1_1_MULTIBLOCK = $400000; +// Cipher can handle pipeline operations /// + EVP_CIPH_FLAG_PIPELINE = $800000; + +// + // Cipher context flag to indicate we can handle wrap mode: if allowed in + // older applications it could overflow buffers. + /// + + EVP_CIPHER_CTX_FLAG_WRAP_ALLOW = $1; + +// ctrl() values /// + + EVP_CTRL_INIT = $0; + EVP_CTRL_SET_KEY_LENGTH = $1; + EVP_CTRL_GET_RC2_KEY_BITS = $2; + EVP_CTRL_SET_RC2_KEY_BITS = $3; + EVP_CTRL_GET_RC5_ROUNDS = $4; + EVP_CTRL_SET_RC5_ROUNDS = $5; + EVP_CTRL_RAND_KEY = $6; + EVP_CTRL_PBE_PRF_NID = $7; + EVP_CTRL_COPY = $8; + EVP_CTRL_AEAD_SET_IVLEN = $9; + EVP_CTRL_AEAD_GET_TAG = $10; + EVP_CTRL_AEAD_SET_TAG = $11; + EVP_CTRL_AEAD_SET_IV_FIXED = $12; + EVP_CTRL_GCM_SET_IVLEN = EVP_CTRL_AEAD_SET_IVLEN; + EVP_CTRL_GCM_GET_TAG = EVP_CTRL_AEAD_GET_TAG; + EVP_CTRL_GCM_SET_TAG = EVP_CTRL_AEAD_SET_TAG; + EVP_CTRL_GCM_SET_IV_FIXED = EVP_CTRL_AEAD_SET_IV_FIXED; + EVP_CTRL_GCM_IV_GEN = $13; + EVP_CTRL_CCM_SET_IVLEN = EVP_CTRL_AEAD_SET_IVLEN; + EVP_CTRL_CCM_GET_TAG = EVP_CTRL_AEAD_GET_TAG; + EVP_CTRL_CCM_SET_TAG = EVP_CTRL_AEAD_SET_TAG; + EVP_CTRL_CCM_SET_IV_FIXED = EVP_CTRL_AEAD_SET_IV_FIXED; + EVP_CTRL_CCM_SET_L = $14; + EVP_CTRL_CCM_SET_MSGLEN = $15; +// + // AEAD cipher deduces payload length and returns number of bytes required to + // store MAC and eventual padding. Subsequent call to EVP_Cipher even + // appends/verifies MAC. + /// + EVP_CTRL_AEAD_TLS1_AAD = $16; +// Used by composite AEAD ciphers; no-op in GCM; CCM... /// + EVP_CTRL_AEAD_SET_MAC_KEY = $17; +// Set the GCM invocation field; decrypt only /// + EVP_CTRL_GCM_SET_IV_INV = $18; + + EVP_CTRL_TLS1_1_MULTIBLOCK_AAD = $19; + EVP_CTRL_TLS1_1_MULTIBLOCK_ENCRYPT = $1a; + EVP_CTRL_TLS1_1_MULTIBLOCK_DECRYPT = $1b; + EVP_CTRL_TLS1_1_MULTIBLOCK_MAX_BUFSIZE = $1c; + + EVP_CTRL_SSL3_MASTER_SECRET = $1d; + +// EVP_CTRL_SET_SBOX takes the PAnsiChar// specifying S-boxes/// + EVP_CTRL_SET_SBOX = $1e; +// +// EVP_CTRL_SBOX_USED takes a 'TOpenSSL_C_SIZET' and 'PAnsiChar//'; pointing at a +// pre-allocated buffer with specified size +/// + EVP_CTRL_SBOX_USED = $1f; +// EVP_CTRL_KEY_MESH takes 'TOpenSSL_C_SIZET' number of bytes to mesh the key after; +// 0 switches meshing off +/// + EVP_CTRL_KEY_MESH = $20; +// EVP_CTRL_BLOCK_PADDING_MODE takes the padding mode/// + EVP_CTRL_BLOCK_PADDING_MODE = $21; + +// Set the output buffers to use for a pipelined operation/// + EVP_CTRL_SET_PIPELINE_OUTPUT_BUFS = $22; +// Set the input buffers to use for a pipelined operation/// + EVP_CTRL_SET_PIPELINE_INPUT_BUFS = $23; +// Set the input buffer lengths to use for a pipelined operation/// + EVP_CTRL_SET_PIPELINE_INPUT_LENS = $24; + + EVP_CTRL_GET_IVLEN = $25; + +// Padding modes/// + EVP_PADDING_PKCS7 = 1; + EVP_PADDING_ISO7816_4 = 2; + EVP_PADDING_ANSI923 = 3; + EVP_PADDING_ISO10126 = 4; + EVP_PADDING_ZERO = 5; + +// RFC 5246 defines additional data to be 13 bytes in length/// + EVP_AEAD_TLS1_AAD_LEN = 13; + +// GCM TLS constants/// +// Length of fixed part of IV derived from PRF/// + EVP_GCM_TLS_FIXED_IV_LEN = 4; +// Length of explicit part of IV part of TLS records/// + EVP_GCM_TLS_EXPLICIT_IV_LEN = 8; +// Length of tag for TLS + EVP_GCM_TLS_TAG_LEN = 16; + +/// CCM TLS constants /// +/// Length of fixed part of IV derived from PRF /// + EVP_CCM_TLS_FIXED_IV_LEN = 4; +/// Length of explicit part of IV part of TLS records /// + EVP_CCM_TLS_EXPLICIT_IV_LEN = 8; +/// Total length of CCM IV length for TLS /// + EVP_CCM_TLS_IV_LEN = 12; +/// Length of tag for TLS /// + EVP_CCM_TLS_TAG_LEN = 16; +/// Length of CCM8 tag for TLS /// + EVP_CCM8_TLS_TAG_LEN = 8; + +/// Length of tag for TLS /// + EVP_CHACHAPOLY_TLS_TAG_LEN = 16; + +(* Can appear as the outermost AlgorithmIdentifier *) + EVP_PBE_TYPE_OUTER = $0; +(* Is an PRF type OID *) + EVP_PBE_TYPE_PRF = $1; +(* Is a PKCS#5 v2.0 KDF *) + EVP_PBE_TYPE_KDF = $2; + + ASN1_PKEY_ALIAS = $1; + ASN1_PKEY_DYNAMIC = $2; + ASN1_PKEY_SIGPARAM_NULL = $4; + + ASN1_PKEY_CTRL_PKCS7_SIGN = $1; + ASN1_PKEY_CTRL_PKCS7_ENCRYPT = $2; + ASN1_PKEY_CTRL_DEFAULT_MD_NID = $3; + ASN1_PKEY_CTRL_CMS_SIGN = $5; + ASN1_PKEY_CTRL_CMS_ENVELOPE = $7; + ASN1_PKEY_CTRL_CMS_RI_TYPE = $8; + + ASN1_PKEY_CTRL_SET1_TLS_ENCPT = $9; + ASN1_PKEY_CTRL_GET1_TLS_ENCPT = $a; + + EVP_PKEY_OP_UNDEFINED = 0; + EVP_PKEY_OP_PARAMGEN = (1 shl 1); + EVP_PKEY_OP_KEYGEN = (1 shl 2); + EVP_PKEY_OP_SIGN = (1 shl 3); + EVP_PKEY_OP_VERIFY = (1 shl 4); + EVP_PKEY_OP_VERIFYRECOVER = (1 shl 5); + EVP_PKEY_OP_SIGNCTX = (1 shl 6); + EVP_PKEY_OP_VERIFYCTX = (1 shl 7); + EVP_PKEY_OP_ENCRYPT = (1 shl 8); + EVP_PKEY_OP_DECRYPT = (1 shl 9); + EVP_PKEY_OP_DERIVE = (1 shl 10); + + EVP_PKEY_OP_TYPE_SIG = EVP_PKEY_OP_SIGN or EVP_PKEY_OP_VERIFY + or EVP_PKEY_OP_VERIFYRECOVER or EVP_PKEY_OP_SIGNCTX or EVP_PKEY_OP_VERIFYCTX; + + EVP_PKEY_OP_TYPE_CRYPT = EVP_PKEY_OP_ENCRYPT or EVP_PKEY_OP_DECRYPT; + + EVP_PKEY_OP_TYPE_NOGEN = EVP_PKEY_OP_TYPE_SIG or EVP_PKEY_OP_TYPE_CRYPT or EVP_PKEY_OP_DERIVE; + + EVP_PKEY_OP_TYPE_GEN = EVP_PKEY_OP_PARAMGEN or EVP_PKEY_OP_KEYGEN; + + EVP_PKEY_CTRL_MD = 1; + EVP_PKEY_CTRL_PEER_KEY = 2; + + EVP_PKEY_CTRL_PKCS7_ENCRYPT = 3; + EVP_PKEY_CTRL_PKCS7_DECRYPT = 4; + + EVP_PKEY_CTRL_PKCS7_SIGN = 5; + + EVP_PKEY_CTRL_SET_MAC_KEY = 6; + + EVP_PKEY_CTRL_DIGESTINIT = 7; + +(* Used by GOST key encryption in TLS *) + EVP_PKEY_CTRL_SET_IV = 8; + + EVP_PKEY_CTRL_CMS_ENCRYPT = 9; + EVP_PKEY_CTRL_CMS_DECRYPT = 10; + EVP_PKEY_CTRL_CMS_SIGN = 11; + + EVP_PKEY_CTRL_CIPHER = 12; + + EVP_PKEY_CTRL_GET_MD = 13; + + EVP_PKEY_CTRL_SET_DIGEST_SIZE = 14; + + EVP_PKEY_ALG_CTRL = $1000; + + EVP_PKEY_FLAG_AUTOARGLEN = 2; + // + // Method handles all operations: don't assume any digest related defaults. + // + EVP_PKEY_FLAG_SIGCTX_CUSTOM = 4; + +type + EVP_MD_meth_init = function(ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; + EVP_MD_meth_update = function(ctx: PEVP_MD_CTX; const data: Pointer; + count: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + EVP_MD_meth_final = function(ctx: PEVP_MD_CTX; const md: PByte): TOpenSSL_C_INT; cdecl; + EVP_MD_meth_copy = function(to_: PEVP_MD_CTX; const from: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; + EVP_MD_meth_cleanup = function(ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; + EVP_MD_meth_ctrl = function(ctx: PEVP_MD_CTX; cmd: TOpenSSL_C_INT; p1: TOpenSSL_C_INT; + p2: Pointer): TOpenSSL_C_INT; cdecl; + + EVP_CIPHER_meth_init = function(ctx: PEVP_CIPHER_CTX; const key: PByte; + const iv: PByte; enc: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + EVP_CIPHER_meth_do_cipher = function(ctx: PEVP_CIPHER_CTX; out_: PByte; + const in_: PByte; inl: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + EVP_CIPHER_meth_cleanup = function(v1: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; + EVP_CIPHER_meth_set_asn1_params = function(v1: PEVP_CIPHER_CTX; + v2: PASN1_TYPE): TOpenSSL_C_INT; cdecl; + EVP_CIPHER_meth_get_asn1_params = function(v1: PEVP_CIPHER_CTX; + v2: PASN1_TYPE): TOpenSSL_C_INT; cdecl; + EVP_CIPHER_meth_ctrl = function(v1: PEVP_CIPHER_CTX; type_: TOpenSSL_C_INT; + arg: TOpenSSL_C_INT; ptr: Pointer): TOpenSSL_C_INT; cdecl; + + EVP_CTRL_TLS1_1_MULTIBLOCK_PARAM = record + out_: PByte; + inp: PByte; + len: TOpenSSL_C_SIZET; + interleave: TOpenSSL_C_UINT; + end; + + evp_cipher_info_st = record + cipher: PEVP_CIPHER; + iv: array[0 .. EVP_MAX_IV_LENGTH - 1] of PByte; + end; + EVP_CIPHER_INFO = evp_cipher_info_st; + + EVP_MD_CTX_update = function(ctx: PEVP_MD_CTX; const data: Pointer; count: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + + fn = procedure(const ciph: PEVP_CIPHER; const from: PAnsiChar; const to_: PAnsiChar; x: Pointer); cdecl; + + pub_decode = function(pk: PEVP_PKEY; pub: PX509_PUBKEY): TOpenSSL_C_INT; cdecl; + pub_encode = function(pub: PX509_PUBKEY; const pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + pub_cmd = function(const a: PEVP_PKEY; const b: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + pub_print = function(out_: PBIO; const pkey: PEVP_PKEY; indent: TOpenSSL_C_INT; pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl; + pkey_size = function(const pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + pkey_bits = function(const pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + + priv_decode = function(pk: PEVP_PKEY; const p8inf: PKCS8_PRIV_KEY_INFO): TOpenSSL_C_INT; cdecl; + priv_encode = function(p8: PPKCS8_PRIV_KEY_INFO; const pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + priv_print = function(out_: PBIO; const pkea: PEVP_PKEY; indent: TOpenSSL_C_INT; pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl; + + param_decode = function(pkey: PEVP_PKEY; const pder: PPByte; derlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + param_encode = function(const pkey: PEVP_PKEY; pder: PPByte): TOpenSSL_C_INT; cdecl; + param_missing = function(const pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + param_copy = function(to_: PEVP_PKEY; const from: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + param_cmp = function(const a: PEVP_PKEY; const b: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + param_print = function(out_: PBIO; const pkey: PEVP_PKEY; indent: TOpenSSL_C_INT; pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl; + + pkey_free = procedure(pkey: PEVP_PKEY); cdecl; + pkey_ctrl = function(pkey: PEVP_PKEY; op: TOpenSSL_C_INT; arg1: TOpenSSL_C_LONG; arg2: Pointer): TOpenSSL_C_INT; cdecl; + item_verify = function(ctx: PEVP_MD_CTX; const it: PASN1_ITEM; asn: Pointer; + a: PX509_ALGOR; sig: PASN1_BIT_STRING; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + item_sign = function(ctx: PEVP_MD_CTX; const it: PASN1_ITEM; asn: Pointer; + alg1: PX509_ALGOR; alg2: PX509_ALGOR; sig: PASN1_BIT_STRING): TOpenSSL_C_INT; cdecl; + siginf_set = function(siginf: PX509_SIG_INFO; const alg: PX509_ALGOR; const sig: PASN1_STRING): TOpenSSL_C_INT; cdecl; + pkey_check = function(const pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + pkey_pub_check = function(const pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + pkey_param_check = function(const pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + set_priv_key = function(pk: PEVP_PKEY; const priv: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + set_pub_key = function(pk: PEVP_PKEY; const pub: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + get_priv_key = function(const pk: PEVP_PKEY; priv: PByte; len: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + get_pub_key = function(const pk: PEVP_PKEY; pub: PByte; len: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + pkey_security_bits = function(const pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + + EVP_PKEY_gen_cb = function(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +// PEVP_PKEY_gen_cb = ^EVP_PKEY_gen_cb; + + EVP_PKEY_meth_init = function(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_init = ^EVP_PKEY_meth_init; + EVP_PKEY_meth_copy_cb = function(dst: PEVP_PKEY_CTX; src: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_copy = ^EVP_PKEY_meth_copy_cb; + EVP_PKEY_meth_cleanup = procedure(ctx: PEVP_PKEY_CTX); cdecl; + PEVP_PKEY_meth_cleanup = ^EVP_PKEY_meth_cleanup; + EVP_PKEY_meth_paramgen_init = function(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_paramgen_init = ^EVP_PKEY_meth_paramgen_init; + EVP_PKEY_meth_paramgen = function(ctx: PEVP_PKEY_CTX; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_paramgen = ^EVP_PKEY_meth_paramgen; + EVP_PKEY_meth_keygen_init = function(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_keygen_init = ^EVP_PKEY_meth_keygen_init; + EVP_PKEY_meth_keygen = function(ctx: PEVP_PKEY_CTX; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_keygen = ^EVP_PKEY_meth_keygen; + EVP_PKEY_meth_sign_init = function(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_sign_init = ^EVP_PKEY_meth_sign_init; + EVP_PKEY_meth_sign = function(ctx: PEVP_PKEY_CTX; sig: PByte; siglen: TOpenSSL_C_SIZET; + const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_sign = ^EVP_PKEY_meth_sign; + EVP_PKEY_meth_verify_init = function(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_verify_init = ^EVP_PKEY_meth_verify_init; + EVP_PKEY_meth_verify = function(ctx: PEVP_PKEY_CTX; const sig: PByte; + siglen: TOpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_verify = ^EVP_PKEY_meth_verify; + EVP_PKEY_meth_verify_recover_init = function(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_verify_recover_init = ^EVP_PKEY_meth_verify_recover_init; + EVP_PKEY_meth_verify_recover = function(ctx: PEVP_PKEY_CTX; sig: PByte; + siglen: TOpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_verify_recover = ^EVP_PKEY_meth_verify_recover; + EVP_PKEY_meth_signctx_init = function(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_signctx_init = ^EVP_PKEY_meth_signctx_init; + EVP_PKEY_meth_signctx = function(ctx: PEVP_PKEY_CTX; sig: Pbyte; + siglen: TOpenSSL_C_SIZET; mctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_signctx = ^EVP_PKEY_meth_signctx; + EVP_PKEY_meth_verifyctx_init = function(ctx: PEVP_PKEY_CTX; mctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_verifyctx_init = ^EVP_PKEY_meth_verifyctx_init; + EVP_PKEY_meth_verifyctx = function(ctx: PEVP_PKEY_CTX; const sig: PByte; + siglen: TOpenSSL_C_INT; mctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_verifyctx = ^EVP_PKEY_meth_verifyctx; + EVP_PKEY_meth_encrypt_init = function(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_encrypt_init = ^EVP_PKEY_meth_encrypt_init; + EVP_PKEY_meth_encrypt = function(ctx: PEVP_PKEY_CTX; out_: PByte; + outlen: TOpenSSL_C_SIZET; const in_: PByte): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_encrypt = ^ EVP_PKEY_meth_encrypt; + EVP_PKEY_meth_decrypt_init = function(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_decrypt_init = ^EVP_PKEY_meth_decrypt_init; + EVP_PKEY_meth_decrypt = function(ctx: PEVP_PKEY_CTX; out_: PByte; + outlen: TOpenSSL_C_SIZET; const in_: PByte; inlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_decrypt = ^EVP_PKEY_meth_decrypt; + EVP_PKEY_meth_derive_init = function(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_derive_init = ^EVP_PKEY_meth_derive_init; + EVP_PKEY_meth_derive = function(ctx: PEVP_PKEY_CTX; key: PByte; keylen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_derive = ^EVP_PKEY_meth_derive; + EVP_PKEY_meth_ctrl = function(ctx: PEVP_PKEY_CTX; type_: TOpenSSL_C_INT; p1: TOpenSSL_C_INT; p2: Pointer): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_ctrl = ^EVP_PKEY_meth_ctrl; + EVP_PKEY_meth_ctrl_str = function(ctx: PEVP_PKEY_CTX; key: PByte; keylen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_ctrl_str = ^EVP_PKEY_meth_ctrl_str; + EVP_PKEY_meth_digestsign = function(ctx: PEVP_PKEY_CTX; sig: PByte; + siglen: POpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_digestsign = ^EVP_PKEY_meth_digestsign; + EVP_PKEY_meth_digestverify = function(ctx: PEVP_MD_CTX; const sig: PByte; + siglen: TOpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_digestverify = ^EVP_PKEY_meth_digestverify; + EVP_PKEY_meth_check = function(pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_check = ^EVP_PKEY_meth_check; + EVP_PKEY_meth_public_check = function(pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_public_check = ^EVP_PKEY_meth_public_check; + EVP_PKEY_meth_param_check = function(pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_param_check = ^EVP_PKEY_meth_param_check; + EVP_PKEY_meth_digest_custom = function(pkey: PEVP_PKEY; mctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; + PEVP_PKEY_meth_digest_custom = ^EVP_PKEY_meth_digest_custom; + + // Password based encryption function + EVP_PBE_KEYGEN = function(ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; + passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const cipher: PEVP_CIPHER; + const md: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + PEVP_PBE_KEYGEN = ^EVP_PBE_KEYGEN; + PPEVP_PBE_KEYGEN = ^PEVP_PBE_KEYGEN; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM EVP_MD_meth_new} +{$EXTERNALSYM EVP_MD_meth_dup} +{$EXTERNALSYM EVP_MD_meth_free} +{$EXTERNALSYM EVP_MD_meth_set_input_blocksize} +{$EXTERNALSYM EVP_MD_meth_set_result_size} +{$EXTERNALSYM EVP_MD_meth_set_app_datasize} +{$EXTERNALSYM EVP_MD_meth_set_flags} +{$EXTERNALSYM EVP_MD_meth_set_init} +{$EXTERNALSYM EVP_MD_meth_set_update} +{$EXTERNALSYM EVP_MD_meth_set_final} +{$EXTERNALSYM EVP_MD_meth_set_copy} +{$EXTERNALSYM EVP_MD_meth_set_cleanup} +{$EXTERNALSYM EVP_MD_meth_set_ctrl} +{$EXTERNALSYM EVP_MD_meth_get_input_blocksize} +{$EXTERNALSYM EVP_MD_meth_get_result_size} +{$EXTERNALSYM EVP_MD_meth_get_app_datasize} +{$EXTERNALSYM EVP_MD_meth_get_flags} +{$EXTERNALSYM EVP_MD_meth_get_init} +{$EXTERNALSYM EVP_MD_meth_get_update} +{$EXTERNALSYM EVP_MD_meth_get_final} +{$EXTERNALSYM EVP_MD_meth_get_copy} +{$EXTERNALSYM EVP_MD_meth_get_cleanup} +{$EXTERNALSYM EVP_MD_meth_get_ctrl} +{$EXTERNALSYM EVP_CIPHER_meth_new} +{$EXTERNALSYM EVP_CIPHER_meth_dup} +{$EXTERNALSYM EVP_CIPHER_meth_free} +{$EXTERNALSYM EVP_CIPHER_meth_set_iv_length} +{$EXTERNALSYM EVP_CIPHER_meth_set_flags} +{$EXTERNALSYM EVP_CIPHER_meth_set_impl_ctx_size} +{$EXTERNALSYM EVP_CIPHER_meth_set_init} +{$EXTERNALSYM EVP_CIPHER_meth_set_do_cipher} +{$EXTERNALSYM EVP_CIPHER_meth_set_cleanup} +{$EXTERNALSYM EVP_CIPHER_meth_set_set_asn1_params} +{$EXTERNALSYM EVP_CIPHER_meth_set_get_asn1_params} +{$EXTERNALSYM EVP_CIPHER_meth_set_ctrl} +{$EXTERNALSYM EVP_CIPHER_meth_get_init} +{$EXTERNALSYM EVP_CIPHER_meth_get_do_cipher} +{$EXTERNALSYM EVP_CIPHER_meth_get_cleanup} +{$EXTERNALSYM EVP_CIPHER_meth_get_set_asn1_params} +{$EXTERNALSYM EVP_CIPHER_meth_get_get_asn1_params} +{$EXTERNALSYM EVP_CIPHER_meth_get_ctrl} +{$EXTERNALSYM EVP_MD_CTX_md} +{$EXTERNALSYM EVP_MD_CTX_update_fn} +{$EXTERNALSYM EVP_MD_CTX_set_update_fn} +{$EXTERNALSYM EVP_MD_CTX_set_pkey_ctx} +{$EXTERNALSYM EVP_CIPHER_impl_ctx_size} +{$EXTERNALSYM EVP_CIPHER_CTX_cipher} +{$EXTERNALSYM EVP_CIPHER_CTX_iv} +{$EXTERNALSYM EVP_CIPHER_CTX_original_iv} +{$EXTERNALSYM EVP_CIPHER_CTX_iv_noconst} +{$EXTERNALSYM EVP_CIPHER_CTX_buf_noconst} +{$EXTERNALSYM EVP_CIPHER_CTX_set_num} +{$EXTERNALSYM EVP_CIPHER_CTX_copy} +{$EXTERNALSYM EVP_CIPHER_CTX_get_app_data} +{$EXTERNALSYM EVP_CIPHER_CTX_set_app_data} +{$EXTERNALSYM EVP_CIPHER_CTX_get_cipher_data} +{$EXTERNALSYM EVP_CIPHER_CTX_set_cipher_data} +{$EXTERNALSYM EVP_MD_CTX_ctrl} +{$EXTERNALSYM EVP_MD_CTX_new} +{$EXTERNALSYM EVP_MD_CTX_reset} +{$EXTERNALSYM EVP_MD_CTX_free} +{$EXTERNALSYM EVP_MD_CTX_copy_ex} +{$EXTERNALSYM EVP_MD_CTX_set_flags} +{$EXTERNALSYM EVP_MD_CTX_clear_flags} +{$EXTERNALSYM EVP_MD_CTX_test_flags} +{$EXTERNALSYM EVP_DigestInit_ex} +{$EXTERNALSYM EVP_DigestUpdate} +{$EXTERNALSYM EVP_DigestFinal_ex} +{$EXTERNALSYM EVP_Digest} +{$EXTERNALSYM EVP_MD_CTX_copy} +{$EXTERNALSYM EVP_DigestInit} +{$EXTERNALSYM EVP_DigestFinal} +{$EXTERNALSYM EVP_DigestFinalXOF} +{$EXTERNALSYM EVP_read_pw_string} +{$EXTERNALSYM EVP_read_pw_string_min} +{$EXTERNALSYM EVP_set_pw_prompt} +{$EXTERNALSYM EVP_get_pw_prompt} +{$EXTERNALSYM EVP_BytesToKey} +{$EXTERNALSYM EVP_CIPHER_CTX_set_flags} +{$EXTERNALSYM EVP_CIPHER_CTX_clear_flags} +{$EXTERNALSYM EVP_CIPHER_CTX_test_flags} +{$EXTERNALSYM EVP_EncryptInit} +{$EXTERNALSYM EVP_EncryptInit_ex} +{$EXTERNALSYM EVP_EncryptUpdate} +{$EXTERNALSYM EVP_EncryptFinal_ex} +{$EXTERNALSYM EVP_EncryptFinal} +{$EXTERNALSYM EVP_DecryptInit} +{$EXTERNALSYM EVP_DecryptInit_ex} +{$EXTERNALSYM EVP_DecryptUpdate} +{$EXTERNALSYM EVP_DecryptFinal} +{$EXTERNALSYM EVP_DecryptFinal_ex} +{$EXTERNALSYM EVP_CipherInit} +{$EXTERNALSYM EVP_CipherInit_ex} +{$EXTERNALSYM EVP_CipherUpdate} +{$EXTERNALSYM EVP_CipherFinal} +{$EXTERNALSYM EVP_CipherFinal_ex} +{$EXTERNALSYM EVP_SignFinal} +{$EXTERNALSYM EVP_DigestSign} +{$EXTERNALSYM EVP_VerifyFinal} +{$EXTERNALSYM EVP_DigestVerify} +{$EXTERNALSYM EVP_DigestSignInit} +{$EXTERNALSYM EVP_DigestSignFinal} +{$EXTERNALSYM EVP_DigestVerifyInit} +{$EXTERNALSYM EVP_DigestVerifyFinal} +{$EXTERNALSYM EVP_OpenInit} +{$EXTERNALSYM EVP_OpenFinal} +{$EXTERNALSYM EVP_SealInit} +{$EXTERNALSYM EVP_SealFinal} +{$EXTERNALSYM EVP_ENCODE_CTX_new} +{$EXTERNALSYM EVP_ENCODE_CTX_free} +{$EXTERNALSYM EVP_ENCODE_CTX_copy} +{$EXTERNALSYM EVP_ENCODE_CTX_num} +{$EXTERNALSYM EVP_EncodeInit} +{$EXTERNALSYM EVP_EncodeUpdate} +{$EXTERNALSYM EVP_EncodeFinal} +{$EXTERNALSYM EVP_EncodeBlock} +{$EXTERNALSYM EVP_DecodeInit} +{$EXTERNALSYM EVP_DecodeUpdate} +{$EXTERNALSYM EVP_DecodeFinal} +{$EXTERNALSYM EVP_DecodeBlock} +{$EXTERNALSYM EVP_CIPHER_CTX_new} +{$EXTERNALSYM EVP_CIPHER_CTX_reset} +{$EXTERNALSYM EVP_CIPHER_CTX_free} +{$EXTERNALSYM EVP_CIPHER_CTX_set_key_length} +{$EXTERNALSYM EVP_CIPHER_CTX_set_padding} +{$EXTERNALSYM EVP_CIPHER_CTX_ctrl} +{$EXTERNALSYM EVP_CIPHER_CTX_rand_key} +{$EXTERNALSYM BIO_f_md} +{$EXTERNALSYM BIO_f_base64} +{$EXTERNALSYM BIO_f_cipher} +{$EXTERNALSYM BIO_f_reliable} +{$EXTERNALSYM BIO_set_cipher} +{$EXTERNALSYM EVP_md_null} +{$IFNDEF OPENSSL_NO_MD2} +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD4} +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD5} +{$ENDIF} +{$EXTERNALSYM EVP_md5_sha1} +{$EXTERNALSYM EVP_sha1} +{$EXTERNALSYM EVP_sha224} +{$EXTERNALSYM EVP_sha256} +{$EXTERNALSYM EVP_sha384} +{$EXTERNALSYM EVP_sha512} +{$EXTERNALSYM EVP_sha512_224} +{$EXTERNALSYM EVP_sha512_256} +{$EXTERNALSYM EVP_sha3_224} +{$EXTERNALSYM EVP_sha3_256} +{$EXTERNALSYM EVP_sha3_384} +{$EXTERNALSYM EVP_sha3_512} +{$EXTERNALSYM EVP_shake128} +{$EXTERNALSYM EVP_shake256} +{$EXTERNALSYM EVP_enc_null} +{$EXTERNALSYM EVP_des_ecb} +{$EXTERNALSYM EVP_des_ede} +{$EXTERNALSYM EVP_des_ede3} +{$EXTERNALSYM EVP_des_ede_ecb} +{$EXTERNALSYM EVP_des_ede3_ecb} +{$EXTERNALSYM EVP_des_cfb64} +{$EXTERNALSYM EVP_des_cfb1} +{$EXTERNALSYM EVP_des_cfb8} +{$EXTERNALSYM EVP_des_ede_cfb64} +{$EXTERNALSYM EVP_des_ede3_cfb64} +{$EXTERNALSYM EVP_des_ede3_cfb1} +{$EXTERNALSYM EVP_des_ede3_cfb8} +{$EXTERNALSYM EVP_des_ofb} +{$EXTERNALSYM EVP_des_ede_ofb} +{$EXTERNALSYM EVP_des_ede3_ofb} +{$EXTERNALSYM EVP_des_cbc} +{$EXTERNALSYM EVP_des_ede_cbc} +{$EXTERNALSYM EVP_des_ede3_cbc} +{$EXTERNALSYM EVP_desx_cbc} +{$EXTERNALSYM EVP_des_ede3_wrap} +{$EXTERNALSYM EVP_rc4} +{$EXTERNALSYM EVP_rc4_40} +{$EXTERNALSYM EVP_rc2_ecb} +{$EXTERNALSYM EVP_rc2_cbc} +{$EXTERNALSYM EVP_rc2_40_cbc} +{$EXTERNALSYM EVP_rc2_64_cbc} +{$EXTERNALSYM EVP_rc2_cfb64} +{$EXTERNALSYM EVP_rc2_ofb} +{$EXTERNALSYM EVP_bf_ecb} +{$EXTERNALSYM EVP_bf_cbc} +{$EXTERNALSYM EVP_bf_cfb64} +{$EXTERNALSYM EVP_bf_ofb} +{$EXTERNALSYM EVP_cast5_ecb} +{$EXTERNALSYM EVP_cast5_cbc} +{$EXTERNALSYM EVP_cast5_cfb64} +{$EXTERNALSYM EVP_cast5_ofb} +{$EXTERNALSYM EVP_aes_128_ecb} +{$EXTERNALSYM EVP_aes_128_cbc} +{$EXTERNALSYM EVP_aes_128_cfb1} +{$EXTERNALSYM EVP_aes_128_cfb8} +{$EXTERNALSYM EVP_aes_128_cfb128} +{$EXTERNALSYM EVP_aes_128_ofb} +{$EXTERNALSYM EVP_aes_128_ctr} +{$EXTERNALSYM EVP_aes_128_ccm} +{$EXTERNALSYM EVP_aes_128_gcm} +{$EXTERNALSYM EVP_aes_128_xts} +{$EXTERNALSYM EVP_aes_128_wrap} +{$EXTERNALSYM EVP_aes_128_wrap_pad} +{$EXTERNALSYM EVP_aes_128_ocb} +{$EXTERNALSYM EVP_aes_192_ecb} +{$EXTERNALSYM EVP_aes_192_cbc} +{$EXTERNALSYM EVP_aes_192_cfb1} +{$EXTERNALSYM EVP_aes_192_cfb8} +{$EXTERNALSYM EVP_aes_192_cfb128} +{$EXTERNALSYM EVP_aes_192_ofb} +{$EXTERNALSYM EVP_aes_192_ctr} +{$EXTERNALSYM EVP_aes_192_ccm} +{$EXTERNALSYM EVP_aes_192_gcm} +{$EXTERNALSYM EVP_aes_192_wrap} +{$EXTERNALSYM EVP_aes_192_wrap_pad} +{$EXTERNALSYM EVP_aes_192_ocb} +{$EXTERNALSYM EVP_aes_256_ecb} +{$EXTERNALSYM EVP_aes_256_cbc} +{$EXTERNALSYM EVP_aes_256_cfb1} +{$EXTERNALSYM EVP_aes_256_cfb8} +{$EXTERNALSYM EVP_aes_256_cfb128} +{$EXTERNALSYM EVP_aes_256_ofb} +{$EXTERNALSYM EVP_aes_256_ctr} +{$EXTERNALSYM EVP_aes_256_ccm} +{$EXTERNALSYM EVP_aes_256_gcm} +{$EXTERNALSYM EVP_aes_256_xts} +{$EXTERNALSYM EVP_aes_256_wrap} +{$EXTERNALSYM EVP_aes_256_wrap_pad} +{$EXTERNALSYM EVP_aes_256_ocb} +{$EXTERNALSYM EVP_aes_128_cbc_hmac_sha1} +{$EXTERNALSYM EVP_aes_256_cbc_hmac_sha1} +{$EXTERNALSYM EVP_aes_128_cbc_hmac_sha256} +{$EXTERNALSYM EVP_aes_256_cbc_hmac_sha256} +{$EXTERNALSYM EVP_aria_128_ecb} +{$EXTERNALSYM EVP_aria_128_cbc} +{$EXTERNALSYM EVP_aria_128_cfb1} +{$EXTERNALSYM EVP_aria_128_cfb8} +{$EXTERNALSYM EVP_aria_128_cfb128} +{$EXTERNALSYM EVP_aria_128_ctr} +{$EXTERNALSYM EVP_aria_128_ofb} +{$EXTERNALSYM EVP_aria_128_gcm} +{$EXTERNALSYM EVP_aria_128_ccm} +{$EXTERNALSYM EVP_aria_192_ecb} +{$EXTERNALSYM EVP_aria_192_cbc} +{$EXTERNALSYM EVP_aria_192_cfb1} +{$EXTERNALSYM EVP_aria_192_cfb8} +{$EXTERNALSYM EVP_aria_192_cfb128} +{$EXTERNALSYM EVP_aria_192_ctr} +{$EXTERNALSYM EVP_aria_192_ofb} +{$EXTERNALSYM EVP_aria_192_gcm} +{$EXTERNALSYM EVP_aria_192_ccm} +{$EXTERNALSYM EVP_aria_256_ecb} +{$EXTERNALSYM EVP_aria_256_cbc} +{$EXTERNALSYM EVP_aria_256_cfb1} +{$EXTERNALSYM EVP_aria_256_cfb8} +{$EXTERNALSYM EVP_aria_256_cfb128} +{$EXTERNALSYM EVP_aria_256_ctr} +{$EXTERNALSYM EVP_aria_256_ofb} +{$EXTERNALSYM EVP_aria_256_gcm} +{$EXTERNALSYM EVP_aria_256_ccm} +{$EXTERNALSYM EVP_camellia_128_ecb} +{$EXTERNALSYM EVP_camellia_128_cbc} +{$EXTERNALSYM EVP_camellia_128_cfb1} +{$EXTERNALSYM EVP_camellia_128_cfb8} +{$EXTERNALSYM EVP_camellia_128_cfb128} +{$EXTERNALSYM EVP_camellia_128_ofb} +{$EXTERNALSYM EVP_camellia_128_ctr} +{$EXTERNALSYM EVP_camellia_192_ecb} +{$EXTERNALSYM EVP_camellia_192_cbc} +{$EXTERNALSYM EVP_camellia_192_cfb1} +{$EXTERNALSYM EVP_camellia_192_cfb8} +{$EXTERNALSYM EVP_camellia_192_cfb128} +{$EXTERNALSYM EVP_camellia_192_ofb} +{$EXTERNALSYM EVP_camellia_192_ctr} +{$EXTERNALSYM EVP_camellia_256_ecb} +{$EXTERNALSYM EVP_camellia_256_cbc} +{$EXTERNALSYM EVP_camellia_256_cfb1} +{$EXTERNALSYM EVP_camellia_256_cfb8} +{$EXTERNALSYM EVP_camellia_256_cfb128} +{$EXTERNALSYM EVP_camellia_256_ofb} +{$EXTERNALSYM EVP_camellia_256_ctr} +{$EXTERNALSYM EVP_chacha20} +{$EXTERNALSYM EVP_chacha20_poly1305} +{$EXTERNALSYM EVP_seed_ecb} +{$EXTERNALSYM EVP_seed_cbc} +{$EXTERNALSYM EVP_seed_cfb128} +{$EXTERNALSYM EVP_seed_ofb} +{$EXTERNALSYM EVP_sm4_ecb} +{$EXTERNALSYM EVP_sm4_cbc} +{$EXTERNALSYM EVP_sm4_cfb128} +{$EXTERNALSYM EVP_sm4_ofb} +{$EXTERNALSYM EVP_sm4_ctr} +{$EXTERNALSYM EVP_add_cipher} +{$EXTERNALSYM EVP_add_digest} +{$EXTERNALSYM EVP_get_cipherbyname} +{$EXTERNALSYM EVP_get_digestbyname} +{$EXTERNALSYM EVP_CIPHER_do_all} +{$EXTERNALSYM EVP_CIPHER_do_all_sorted} +{$EXTERNALSYM EVP_MD_do_all} +{$EXTERNALSYM EVP_MD_do_all_sorted} +{$EXTERNALSYM EVP_PKEY_decrypt_old} +{$EXTERNALSYM EVP_PKEY_encrypt_old} +{$EXTERNALSYM EVP_PKEY_type} +{$EXTERNALSYM EVP_PKEY_get_base_id} +{$EXTERNALSYM EVP_PKEY_get_security_bits} +{$EXTERNALSYM EVP_PKEY_get_size} +{$EXTERNALSYM EVP_PKEY_set_type} +{$EXTERNALSYM EVP_PKEY_set_type_str} +{$EXTERNALSYM EVP_PKEY_set1_engine} +{$EXTERNALSYM EVP_PKEY_get0_engine} +{$EXTERNALSYM EVP_PKEY_assign} +{$EXTERNALSYM EVP_PKEY_get0} +{$EXTERNALSYM EVP_PKEY_get0_hmac} +{$EXTERNALSYM EVP_PKEY_get0_poly1305} +{$EXTERNALSYM EVP_PKEY_get0_siphash} +{$EXTERNALSYM EVP_PKEY_set1_RSA} +{$EXTERNALSYM EVP_PKEY_get0_RSA} +{$EXTERNALSYM EVP_PKEY_get1_RSA} +{$EXTERNALSYM EVP_PKEY_set1_DSA} +{$EXTERNALSYM EVP_PKEY_get0_DSA} +{$EXTERNALSYM EVP_PKEY_get1_DSA} +{$EXTERNALSYM EVP_PKEY_set1_DH} +{$EXTERNALSYM EVP_PKEY_get0_DH} +{$EXTERNALSYM EVP_PKEY_get1_DH} +{$EXTERNALSYM EVP_PKEY_set1_EC_KEY} +{$EXTERNALSYM EVP_PKEY_get0_EC_KEY} +{$EXTERNALSYM EVP_PKEY_get1_EC_KEY} +{$EXTERNALSYM EVP_PKEY_new} +{$EXTERNALSYM EVP_PKEY_up_ref} +{$EXTERNALSYM EVP_PKEY_free} +{$EXTERNALSYM d2i_PublicKey} +{$EXTERNALSYM i2d_PublicKey} +{$EXTERNALSYM d2i_PrivateKey} +{$EXTERNALSYM d2i_AutoPrivateKey} +{$EXTERNALSYM i2d_PrivateKey} +{$EXTERNALSYM EVP_PKEY_copy_parameters} +{$EXTERNALSYM EVP_PKEY_missing_parameters} +{$EXTERNALSYM EVP_PKEY_save_parameters} +{$EXTERNALSYM EVP_PKEY_cmp_parameters} +{$EXTERNALSYM EVP_PKEY_cmp} +{$EXTERNALSYM EVP_PKEY_print_public} +{$EXTERNALSYM EVP_PKEY_print_private} +{$EXTERNALSYM EVP_PKEY_print_params} +{$EXTERNALSYM EVP_PKEY_get_default_digest_nid} +{$EXTERNALSYM EVP_CIPHER_param_to_asn1} +{$EXTERNALSYM EVP_CIPHER_asn1_to_param} +{$EXTERNALSYM EVP_CIPHER_set_asn1_iv} +{$EXTERNALSYM EVP_CIPHER_get_asn1_iv} +{$EXTERNALSYM PKCS5_PBE_keyivgen} +{$EXTERNALSYM PKCS5_PBKDF2_HMAC_SHA1} +{$EXTERNALSYM PKCS5_PBKDF2_HMAC} +{$EXTERNALSYM PKCS5_v2_PBE_keyivgen} +{$EXTERNALSYM EVP_PBE_scrypt} +{$EXTERNALSYM PKCS5_v2_scrypt_keyivgen} +{$EXTERNALSYM PKCS5_PBE_add} +{$EXTERNALSYM EVP_PBE_CipherInit} +{$EXTERNALSYM EVP_PBE_alg_add_type} +{$EXTERNALSYM EVP_PBE_alg_add} +{$EXTERNALSYM EVP_PBE_find} +{$EXTERNALSYM EVP_PBE_cleanup} +{$EXTERNALSYM EVP_PBE_get} +{$EXTERNALSYM EVP_PKEY_asn1_get_count} +{$EXTERNALSYM EVP_PKEY_asn1_get0} +{$EXTERNALSYM EVP_PKEY_asn1_find} +{$EXTERNALSYM EVP_PKEY_asn1_find_str} +{$EXTERNALSYM EVP_PKEY_asn1_add0} +{$EXTERNALSYM EVP_PKEY_asn1_add_alias} +{$EXTERNALSYM EVP_PKEY_asn1_get0_info} +{$EXTERNALSYM EVP_PKEY_get0_asn1} +{$EXTERNALSYM EVP_PKEY_asn1_new} +{$EXTERNALSYM EVP_PKEY_asn1_copy} +{$EXTERNALSYM EVP_PKEY_asn1_free} +{$EXTERNALSYM EVP_PKEY_asn1_set_public} +{$EXTERNALSYM EVP_PKEY_asn1_set_private} +{$EXTERNALSYM EVP_PKEY_asn1_set_param} +{$EXTERNALSYM EVP_PKEY_asn1_set_free} +{$EXTERNALSYM EVP_PKEY_asn1_set_ctrl} +{$EXTERNALSYM EVP_PKEY_asn1_set_item} +{$EXTERNALSYM EVP_PKEY_asn1_set_siginf} +{$EXTERNALSYM EVP_PKEY_asn1_set_check} +{$EXTERNALSYM EVP_PKEY_asn1_set_public_check} +{$EXTERNALSYM EVP_PKEY_asn1_set_param_check} +{$EXTERNALSYM EVP_PKEY_asn1_set_set_priv_key} +{$EXTERNALSYM EVP_PKEY_asn1_set_set_pub_key} +{$EXTERNALSYM EVP_PKEY_asn1_set_get_priv_key} +{$EXTERNALSYM EVP_PKEY_asn1_set_get_pub_key} +{$EXTERNALSYM EVP_PKEY_asn1_set_security_bits} +{$EXTERNALSYM EVP_PKEY_meth_find} +{$EXTERNALSYM EVP_PKEY_meth_new} +{$EXTERNALSYM EVP_PKEY_meth_get0_info} +{$EXTERNALSYM EVP_PKEY_meth_copy} +{$EXTERNALSYM EVP_PKEY_meth_free} +{$EXTERNALSYM EVP_PKEY_meth_add0} +{$EXTERNALSYM EVP_PKEY_meth_remove} +{$EXTERNALSYM EVP_PKEY_meth_get_count} +{$EXTERNALSYM EVP_PKEY_meth_get0} +{$EXTERNALSYM EVP_PKEY_CTX_new} +{$EXTERNALSYM EVP_PKEY_CTX_new_id} +{$EXTERNALSYM EVP_PKEY_CTX_dup} +{$EXTERNALSYM EVP_PKEY_CTX_free} +{$EXTERNALSYM EVP_PKEY_CTX_ctrl} +{$EXTERNALSYM EVP_PKEY_CTX_ctrl_str} +{$EXTERNALSYM EVP_PKEY_CTX_ctrl_uint64} +{$EXTERNALSYM EVP_PKEY_CTX_str2ctrl} +{$EXTERNALSYM EVP_PKEY_CTX_hex2ctrl} +{$EXTERNALSYM EVP_PKEY_CTX_md} +{$EXTERNALSYM EVP_PKEY_CTX_get_operation} +{$EXTERNALSYM EVP_PKEY_CTX_set0_keygen_info} +{$EXTERNALSYM EVP_PKEY_new_mac_key} +{$EXTERNALSYM EVP_PKEY_new_raw_private_key} +{$EXTERNALSYM EVP_PKEY_new_raw_public_key} +{$EXTERNALSYM EVP_PKEY_get_raw_private_key} +{$EXTERNALSYM EVP_PKEY_get_raw_public_key} +{$EXTERNALSYM EVP_PKEY_new_CMAC_key} +{$EXTERNALSYM EVP_PKEY_CTX_set_data} +{$EXTERNALSYM EVP_PKEY_CTX_get_data} +{$EXTERNALSYM EVP_PKEY_CTX_get0_pkey} +{$EXTERNALSYM EVP_PKEY_CTX_get0_peerkey} +{$EXTERNALSYM EVP_PKEY_CTX_set_app_data} +{$EXTERNALSYM EVP_PKEY_CTX_get_app_data} +{$EXTERNALSYM EVP_PKEY_sign_init} +{$EXTERNALSYM EVP_PKEY_sign} +{$EXTERNALSYM EVP_PKEY_verify_init} +{$EXTERNALSYM EVP_PKEY_verify} +{$EXTERNALSYM EVP_PKEY_verify_recover_init} +{$EXTERNALSYM EVP_PKEY_verify_recover} +{$EXTERNALSYM EVP_PKEY_encrypt_init} +{$EXTERNALSYM EVP_PKEY_encrypt} +{$EXTERNALSYM EVP_PKEY_decrypt_init} +{$EXTERNALSYM EVP_PKEY_decrypt} +{$EXTERNALSYM EVP_PKEY_derive_init} +{$EXTERNALSYM EVP_PKEY_derive_set_peer} +{$EXTERNALSYM EVP_PKEY_derive} +{$EXTERNALSYM EVP_PKEY_paramgen_init} +{$EXTERNALSYM EVP_PKEY_paramgen} +{$EXTERNALSYM EVP_PKEY_keygen_init} +{$EXTERNALSYM EVP_PKEY_keygen} +{$EXTERNALSYM EVP_PKEY_check} +{$EXTERNALSYM EVP_PKEY_public_check} +{$EXTERNALSYM EVP_PKEY_param_check} +{$EXTERNALSYM EVP_PKEY_CTX_set_cb} +{$EXTERNALSYM EVP_PKEY_CTX_get_cb} +{$EXTERNALSYM EVP_PKEY_CTX_get_keygen_info} +{$EXTERNALSYM EVP_PKEY_meth_set_init} +{$EXTERNALSYM EVP_PKEY_meth_set_copy} +{$EXTERNALSYM EVP_PKEY_meth_set_cleanup} +{$EXTERNALSYM EVP_PKEY_meth_set_paramgen} +{$EXTERNALSYM EVP_PKEY_meth_set_keygen} +{$EXTERNALSYM EVP_PKEY_meth_set_sign} +{$EXTERNALSYM EVP_PKEY_meth_set_verify} +{$EXTERNALSYM EVP_PKEY_meth_set_verify_recover} +{$EXTERNALSYM EVP_PKEY_meth_set_signctx} +{$EXTERNALSYM EVP_PKEY_meth_set_verifyctx} +{$EXTERNALSYM EVP_PKEY_meth_set_encrypt} +{$EXTERNALSYM EVP_PKEY_meth_set_decrypt} +{$EXTERNALSYM EVP_PKEY_meth_set_derive} +{$EXTERNALSYM EVP_PKEY_meth_set_ctrl} +{$EXTERNALSYM EVP_PKEY_meth_set_digestsign} +{$EXTERNALSYM EVP_PKEY_meth_set_digestverify} +{$EXTERNALSYM EVP_PKEY_meth_set_check} +{$EXTERNALSYM EVP_PKEY_meth_set_public_check} +{$EXTERNALSYM EVP_PKEY_meth_set_param_check} +{$EXTERNALSYM EVP_PKEY_meth_set_digest_custom} +{$EXTERNALSYM EVP_PKEY_meth_get_init} +{$EXTERNALSYM EVP_PKEY_meth_get_copy} +{$EXTERNALSYM EVP_PKEY_meth_get_cleanup} +{$EXTERNALSYM EVP_PKEY_meth_get_paramgen} +{$EXTERNALSYM EVP_PKEY_meth_get_keygen} +{$EXTERNALSYM EVP_PKEY_meth_get_sign} +{$EXTERNALSYM EVP_PKEY_meth_get_verify} +{$EXTERNALSYM EVP_PKEY_meth_get_verify_recover} +{$EXTERNALSYM EVP_PKEY_meth_get_signctx} +{$EXTERNALSYM EVP_PKEY_meth_get_verifyctx} +{$EXTERNALSYM EVP_PKEY_meth_get_encrypt} +{$EXTERNALSYM EVP_PKEY_meth_get_decrypt} +{$EXTERNALSYM EVP_PKEY_meth_get_derive} +{$EXTERNALSYM EVP_PKEY_meth_get_ctrl} +{$EXTERNALSYM EVP_PKEY_meth_get_digestsign} +{$EXTERNALSYM EVP_PKEY_meth_get_digestverify} +{$EXTERNALSYM EVP_PKEY_meth_get_check} +{$EXTERNALSYM EVP_PKEY_meth_get_public_check} +{$EXTERNALSYM EVP_PKEY_meth_get_param_check} +{$EXTERNALSYM EVP_PKEY_meth_get_digest_custom} +{$EXTERNALSYM EVP_add_alg_module} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function EVP_MD_meth_new(md_type: TOpenSSL_C_INT; pkey_type: TOpenSSL_C_INT): PEVP_MD; cdecl; external CLibCrypto; +function EVP_MD_meth_dup(const md: PEVP_MD): PEVP_MD; cdecl; external CLibCrypto; +procedure EVP_MD_meth_free(md: PEVP_MD); cdecl; external CLibCrypto; +function EVP_MD_meth_set_input_blocksize(md: PEVP_MD; blocksize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_MD_meth_set_result_size(md: PEVP_MD; resultsize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_MD_meth_set_app_datasize(md: PEVP_MD; datasize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_MD_meth_set_flags(md: PEVP_MD; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_MD_meth_set_init(md: PEVP_MD; init: EVP_MD_meth_init): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_MD_meth_set_update(md: PEVP_MD; update: EVP_MD_meth_update): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_MD_meth_set_final(md: PEVP_MD; final_: EVP_MD_meth_final): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_MD_meth_set_copy(md: PEVP_MD; copy: EVP_MD_meth_copy): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_MD_meth_set_cleanup(md: PEVP_MD; cleanup: EVP_MD_meth_cleanup): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_MD_meth_set_ctrl(md: PEVP_MD; ctrl: EVP_MD_meth_ctrl): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_MD_meth_get_input_blocksize(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_MD_meth_get_result_size(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_MD_meth_get_app_datasize(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_MD_meth_get_flags(const md: PEVP_MD): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +function EVP_MD_meth_get_init(const md: PEVP_MD): EVP_MD_meth_init; cdecl; external CLibCrypto; +function EVP_MD_meth_get_update(const md: PEVP_MD): EVP_MD_meth_update; cdecl; external CLibCrypto; +function EVP_MD_meth_get_final(const md: PEVP_MD): EVP_MD_meth_final; cdecl; external CLibCrypto; +function EVP_MD_meth_get_copy(const md: PEVP_MD): EVP_MD_meth_copy; cdecl; external CLibCrypto; +function EVP_MD_meth_get_cleanup(const md: PEVP_MD): EVP_MD_meth_cleanup; cdecl; external CLibCrypto; +function EVP_MD_meth_get_ctrl(const md: PEVP_MD): EVP_MD_meth_ctrl; cdecl; external CLibCrypto; +function EVP_CIPHER_meth_new(cipher_type: TOpenSSL_C_INT; block_size: TOpenSSL_C_INT; key_len: TOpenSSL_C_INT): PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_CIPHER_meth_dup(const cipher: PEVP_CIPHER): PEVP_CIPHER; cdecl; external CLibCrypto; +procedure EVP_CIPHER_meth_free(cipher: PEVP_CIPHER); cdecl; external CLibCrypto; +function EVP_CIPHER_meth_set_iv_length(cipher: PEVP_CIPHER; iv_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_meth_set_flags(cipher: PEVP_CIPHER; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_meth_set_impl_ctx_size(cipher: PEVP_CIPHER; ctx_size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_meth_set_init(cipher: PEVP_CIPHER; init: EVP_CIPHER_meth_init): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_meth_set_do_cipher(cipher: PEVP_CIPHER; do_cipher: EVP_CIPHER_meth_do_cipher): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_meth_set_cleanup(cipher: PEVP_CIPHER; cleanup: EVP_CIPHER_meth_cleanup): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_meth_set_set_asn1_params(cipher: PEVP_CIPHER; set_asn1_parameters: EVP_CIPHER_meth_set_asn1_params): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_meth_set_get_asn1_params(cipher: PEVP_CIPHER; get_asn1_parameters: EVP_CIPHER_meth_get_asn1_params): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_meth_set_ctrl(cipher: PEVP_CIPHER; ctrl: EVP_CIPHER_meth_ctrl): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_meth_get_init(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_init; cdecl; external CLibCrypto; +function EVP_CIPHER_meth_get_do_cipher(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_do_cipher; cdecl; external CLibCrypto; +function EVP_CIPHER_meth_get_cleanup(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_cleanup; cdecl; external CLibCrypto; +function EVP_CIPHER_meth_get_set_asn1_params(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_set_asn1_params; cdecl; external CLibCrypto; +function EVP_CIPHER_meth_get_get_asn1_params(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_get_asn1_params; cdecl; external CLibCrypto; +function EVP_CIPHER_meth_get_ctrl(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_ctrl; cdecl; external CLibCrypto; +function EVP_MD_CTX_md(ctx: PEVP_MD_CTX): PEVP_MD; cdecl; external CLibCrypto; +function EVP_MD_CTX_update_fn(ctx: PEVP_MD_CTX): EVP_MD_CTX_update; cdecl; external CLibCrypto; +procedure EVP_MD_CTX_set_update_fn(ctx: PEVP_MD_CTX; update: EVP_MD_CTX_update); cdecl; external CLibCrypto; +procedure EVP_MD_CTX_set_pkey_ctx(ctx: PEVP_MD_CTX; pctx: PEVP_PKEY_CTX); cdecl; external CLibCrypto; +function EVP_CIPHER_impl_ctx_size(const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_CTX_cipher(const ctx: PEVP_CIPHER_CTX): PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_CIPHER_CTX_iv(const ctx: PEVP_CIPHER_CTX): PByte; cdecl; external CLibCrypto; +function EVP_CIPHER_CTX_original_iv(const ctx: PEVP_CIPHER_CTX): PByte; cdecl; external CLibCrypto; +function EVP_CIPHER_CTX_iv_noconst(ctx: PEVP_CIPHER_CTX): PByte; cdecl; external CLibCrypto; +function EVP_CIPHER_CTX_buf_noconst(ctx: PEVP_CIPHER_CTX): PByte; cdecl; external CLibCrypto; +procedure EVP_CIPHER_CTX_set_num(ctx: PEVP_CIPHER_CTX; num: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function EVP_CIPHER_CTX_copy(out_: PEVP_CIPHER_CTX; const in_: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_CTX_get_app_data(const ctx: PEVP_CIPHER_CTX): Pointer; cdecl; external CLibCrypto; +procedure EVP_CIPHER_CTX_set_app_data(ctx: PEVP_CIPHER_CTX; data: Pointer); cdecl; external CLibCrypto; +function EVP_CIPHER_CTX_get_cipher_data(const ctx: PEVP_CIPHER_CTX): Pointer; cdecl; external CLibCrypto; +function EVP_CIPHER_CTX_set_cipher_data(ctx: PEVP_CIPHER_CTX; cipher_data: Pointer): Pointer; cdecl; external CLibCrypto; +function EVP_MD_CTX_ctrl(ctx: PEVP_MD_CTX; cmd: TOpenSSL_C_INT; p1: TOpenSSL_C_INT; p2: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_MD_CTX_new: PEVP_MD_CTX; cdecl; external CLibCrypto; +function EVP_MD_CTX_reset(ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure EVP_MD_CTX_free(ctx: PEVP_MD_CTX); cdecl; external CLibCrypto; +function EVP_MD_CTX_copy_ex(out_: PEVP_MD_CTX; const in_: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure EVP_MD_CTX_set_flags(ctx: PEVP_MD_CTX; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure EVP_MD_CTX_clear_flags(ctx: PEVP_MD_CTX; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function EVP_MD_CTX_test_flags(const ctx: PEVP_MD_CTX; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DigestInit_ex(ctx: PEVP_MD_CTX; const type_: PEVP_MD; impl: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DigestUpdate(ctx: PEVP_MD_CTX; const d: Pointer; cnt: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DigestFinal_ex(ctx: PEVP_MD_CTX; md: PByte; var s: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_Digest(const data: Pointer; count: TOpenSSL_C_SIZET; md: PByte; size: POpenSSL_C_UINT; const type_: PEVP_MD; impl: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_MD_CTX_copy(out_: PEVP_MD_CTX; const in_: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DigestInit(ctx: PEVP_MD_CTX; const type_: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DigestFinal(ctx: PEVP_MD_CTX; md: PByte; var s: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DigestFinalXOF(ctx: PEVP_MD_CTX; md: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_read_pw_string(buf: PAnsiChar; length: TOpenSSL_C_INT; const prompt: PAnsiChar; verify: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_read_pw_string_min(buf: PAnsiChar; minlen: TOpenSSL_C_INT; maxlen: TOpenSSL_C_INT; const prompt: PAnsiChar; verify: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure EVP_set_pw_prompt(const prompt: PAnsiChar); cdecl; external CLibCrypto; +function EVP_get_pw_prompt: PAnsiChar; cdecl; external CLibCrypto; +function EVP_BytesToKey(const type_: PEVP_CIPHER; const md: PEVP_MD; const salt: PByte; const data: PByte; data1: TOpenSSL_C_INT; count: TOpenSSL_C_INT; key: PByte; iv: PByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure EVP_CIPHER_CTX_set_flags(ctx: PEVP_CIPHER_CTX; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure EVP_CIPHER_CTX_clear_flags(ctx: PEVP_CIPHER_CTX; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function EVP_CIPHER_CTX_test_flags(const ctx: PEVP_CIPHER_CTX; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_EncryptInit(ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; const key: PByte; const iv: PByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_EncryptInit_ex(ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; impl: PENGINE; const key: PByte; const iv: PByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_EncryptUpdate(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in_1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_EncryptFinal_ex(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_EncryptFinal(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DecryptInit(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DecryptInit_ex(ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; impl: PENGINE; const key: PByte; const iv: PByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DecryptUpdate(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in_1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DecryptFinal(ctx: PEVP_CIPHER_CTX; outm: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DecryptFinal_ex(ctx: PEVP_MD_CTX; outm: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CipherInit(ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; const key: PByte; const iv: PByte; enc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CipherInit_ex(ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; impl: PENGINE; const key: PByte; const iv: PByte; enc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CipherUpdate(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CipherFinal(ctx: PEVP_CIPHER_CTX; outm: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CipherFinal_ex(ctx: PEVP_CIPHER_CTX; outm: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_SignFinal(ctx: PEVP_CIPHER_CTX; md: PByte; s: POpenSSL_C_UINT; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DigestSign(ctx: PEVP_CIPHER_CTX; sigret: PByte; siglen: POpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_VerifyFinal(ctx: PEVP_MD_CTX; const sigbuf: PByte; siglen: TOpenSSL_C_UINT; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DigestVerify(ctx: PEVP_CIPHER_CTX; const sigret: PByte; siglen: TOpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DigestSignInit(ctx: PEVP_MD_CTX; pctx: PPEVP_PKEY_CTX; const type_: PEVP_MD; e: PENGINE; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DigestSignFinal(ctx: PEVP_MD_CTX; sigret: PByte; siglen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DigestVerifyInit(ctx: PEVP_MD_CTX; ppctx: PPEVP_PKEY_CTX; const type_: PEVP_MD; e: PENGINE; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DigestVerifyFinal(ctx: PEVP_MD_CTX; const sig: PByte; siglen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_OpenInit(ctx: PEVP_CIPHER_CTX; const type_: PEVP_CIPHER; const ek: PByte; ek1: TOpenSSL_C_INT; const iv: PByte; priv: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_OpenFinal(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_SealInit(ctx: PEVP_CIPHER_CTX; const type_: EVP_CIPHER; ek: PPByte; ek1: POpenSSL_C_INT; iv: PByte; pubk: PPEVP_PKEY; npubk: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_SealFinal(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_ENCODE_CTX_new: PEVP_ENCODE_CTX; cdecl; external CLibCrypto; +procedure EVP_ENCODE_CTX_free(ctx: PEVP_ENCODE_CTX); cdecl; external CLibCrypto; +function EVP_ENCODE_CTX_copy(dctx: PEVP_ENCODE_CTX; sctx: PEVP_ENCODE_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_ENCODE_CTX_num(ctx: PEVP_ENCODE_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure EVP_EncodeInit(ctx: PEVP_ENCODE_CTX); cdecl; external CLibCrypto; +function EVP_EncodeUpdate(ctx: PEVP_ENCODE_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure EVP_EncodeFinal(ctx: PEVP_ENCODE_CTX; out_: PByte; out1: POpenSSL_C_INT); cdecl; external CLibCrypto; +function EVP_EncodeBlock(t: PByte; const f: PByte; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure EVP_DecodeInit(ctx: PEVP_ENCODE_CTX); cdecl; external CLibCrypto; +function EVP_DecodeUpdate(ctx: PEVP_ENCODE_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DecodeFinal(ctx: PEVP_ENCODE_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_DecodeBlock(t: PByte; const f: PByte; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_CTX_new: PEVP_CIPHER_CTX; cdecl; external CLibCrypto; +function EVP_CIPHER_CTX_reset(c: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure EVP_CIPHER_CTX_free(c: PEVP_CIPHER_CTX); cdecl; external CLibCrypto; +function EVP_CIPHER_CTX_set_key_length(x: PEVP_CIPHER_CTX; keylen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_CTX_set_padding(c: PEVP_CIPHER_CTX; pad: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_CTX_ctrl(ctx: PEVP_CIPHER_CTX; type_: TOpenSSL_C_INT; arg: TOpenSSL_C_INT; ptr: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_CTX_rand_key(ctx: PEVP_CIPHER_CTX; key: PByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function BIO_f_md: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_f_base64: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_f_cipher: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_f_reliable: PBIO_METHOD; cdecl; external CLibCrypto; +function BIO_set_cipher(b: PBIO; c: PEVP_CIPHER; const k: PByte; const i: PByte; enc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_md_null: PEVP_MD; cdecl; external CLibCrypto; +{$IFNDEF OPENSSL_NO_MD2} +{$IFNDEF OPENSSL_NO_MD2} + +{$ENDIF} +{$ENDIF} + +{$IFNDEF OPENSSL_NO_MD4} +{$IFNDEF OPENSSL_NO_MD4} + +{$ENDIF} +{$ENDIF} + +{$IFNDEF OPENSSL_NO_MD5} +{$IFNDEF OPENSSL_NO_MD5} + +{$ENDIF} +{$ENDIF} + +function EVP_md5_sha1: PEVP_MD; cdecl; external CLibCrypto; +function EVP_sha1: PEVP_MD; cdecl; external CLibCrypto; +function EVP_sha224: PEVP_MD; cdecl; external CLibCrypto; +function EVP_sha256: PEVP_MD; cdecl; external CLibCrypto; +function EVP_sha384: PEVP_MD; cdecl; external CLibCrypto; +function EVP_sha512: PEVP_MD; cdecl; external CLibCrypto; +function EVP_sha512_224: PEVP_MD; cdecl; external CLibCrypto; +function EVP_sha512_256: PEVP_MD; cdecl; external CLibCrypto; +function EVP_sha3_224: PEVP_MD; cdecl; external CLibCrypto; +function EVP_sha3_256: PEVP_MD; cdecl; external CLibCrypto; +function EVP_sha3_384: PEVP_MD; cdecl; external CLibCrypto; +function EVP_sha3_512: PEVP_MD; cdecl; external CLibCrypto; +function EVP_shake128: PEVP_MD; cdecl; external CLibCrypto; +function EVP_shake256: PEVP_MD; cdecl; external CLibCrypto; +function EVP_enc_null: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_ede: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_ede3: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_ede_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_ede3_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_cfb64: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_cfb1: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_cfb8: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_ede_cfb64: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_ede3_cfb64: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_ede3_cfb1: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_ede3_cfb8: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_ede_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_ede3_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_ede_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_ede3_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_desx_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_des_ede3_wrap: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_rc4: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_rc4_40: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_rc2_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_rc2_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_rc2_40_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_rc2_64_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_rc2_cfb64: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_rc2_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_bf_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_bf_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_bf_cfb64: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_bf_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_cast5_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_cast5_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_cast5_cfb64: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_cast5_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_128_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_128_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_128_cfb1: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_128_cfb8: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_128_cfb128: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_128_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_128_ctr: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_128_ccm: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_128_gcm: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_128_xts: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_128_wrap: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_128_wrap_pad: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_128_ocb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_192_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_192_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_192_cfb1: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_192_cfb8: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_192_cfb128: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_192_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_192_ctr: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_192_ccm: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_192_gcm: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_192_wrap: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_192_wrap_pad: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_192_ocb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_256_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_256_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_256_cfb1: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_256_cfb8: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_256_cfb128: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_256_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_256_ctr: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_256_ccm: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_256_gcm: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_256_xts: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_256_wrap: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_256_wrap_pad: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_256_ocb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_128_cbc_hmac_sha1: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_256_cbc_hmac_sha1: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_128_cbc_hmac_sha256: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aes_256_cbc_hmac_sha256: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_128_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_128_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_128_cfb1: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_128_cfb8: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_128_cfb128: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_128_ctr: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_128_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_128_gcm: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_128_ccm: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_192_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_192_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_192_cfb1: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_192_cfb8: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_192_cfb128: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_192_ctr: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_192_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_192_gcm: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_192_ccm: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_256_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_256_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_256_cfb1: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_256_cfb8: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_256_cfb128: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_256_ctr: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_256_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_256_gcm: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_aria_256_ccm: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_128_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_128_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_128_cfb1: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_128_cfb8: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_128_cfb128: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_128_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_128_ctr: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_192_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_192_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_192_cfb1: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_192_cfb8: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_192_cfb128: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_192_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_192_ctr: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_256_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_256_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_256_cfb1: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_256_cfb8: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_256_cfb128: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_256_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_camellia_256_ctr: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_chacha20: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_chacha20_poly1305: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_seed_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_seed_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_seed_cfb128: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_seed_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_sm4_ecb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_sm4_cbc: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_sm4_cfb128: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_sm4_ofb: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_sm4_ctr: PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_add_cipher(const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_add_digest(const digest: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_get_cipherbyname(const name: PAnsiChar): PEVP_CIPHER; cdecl; external CLibCrypto; +function EVP_get_digestbyname(const name: PAnsiChar): PEVP_MD; cdecl; external CLibCrypto; +procedure EVP_CIPHER_do_all(AFn: fn; arg: Pointer); cdecl; external CLibCrypto; +procedure EVP_CIPHER_do_all_sorted(AFn: fn; arg: Pointer); cdecl; external CLibCrypto; +procedure EVP_MD_do_all(AFn: fn; arg: Pointer); cdecl; external CLibCrypto; +procedure EVP_MD_do_all_sorted(AFn: fn; arg: Pointer); cdecl; external CLibCrypto; +function EVP_PKEY_decrypt_old(dec_key: PByte; const enc_key: PByte; enc_key_len: TOpenSSL_C_INT; private_key: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_encrypt_old(dec_key: PByte; const enc_key: PByte; key_len: TOpenSSL_C_INT; pub_key: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_type(type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_get_base_id(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_get_security_bits(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_get_size(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_set_type(pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_set_type_str(pkey: PEVP_PKEY; const str: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_set1_engine(pkey: PEVP_PKEY; e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_get0_engine(const pkey: PEVP_PKEY): PENGINE; cdecl; external CLibCrypto; +function EVP_PKEY_assign(pkey: PEVP_PKEY; type_: TOpenSSL_C_INT; key: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_get0(const pkey: PEVP_PKEY): Pointer; cdecl; external CLibCrypto; +function EVP_PKEY_get0_hmac(const pkey: PEVP_PKEY; len: POpenSSL_C_SIZET): PByte; cdecl; external CLibCrypto; +function EVP_PKEY_get0_poly1305(const pkey: PEVP_PKEY; len: POpenSSL_C_SIZET): PByte; cdecl; external CLibCrypto; +function EVP_PKEY_get0_siphash(const pkey: PEVP_PKEY; len: POpenSSL_C_SIZET): PByte; cdecl; external CLibCrypto; +function EVP_PKEY_set1_RSA(pkey: PEVP_PKEY; key: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_get0_RSA(pkey: PEVP_PKEY): PRSA; cdecl; external CLibCrypto; +function EVP_PKEY_get1_RSA(pkey: PEVP_PKEY): PRSA; cdecl; external CLibCrypto; +function EVP_PKEY_set1_DSA(pkey: PEVP_PKEY; key: PDSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_get0_DSA(pkey: PEVP_PKEY): PDSA; cdecl; external CLibCrypto; +function EVP_PKEY_get1_DSA(pkey: PEVP_PKEY): PDSA; cdecl; external CLibCrypto; +function EVP_PKEY_set1_DH(pkey: PEVP_PKEY; key: PDH): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_get0_DH(pkey: PEVP_PKEY): PDH; cdecl; external CLibCrypto; +function EVP_PKEY_get1_DH(pkey: PEVP_PKEY): PDH; cdecl; external CLibCrypto; +function EVP_PKEY_set1_EC_KEY(pkey: PEVP_PKEY; key: PEC_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_get0_EC_KEY(pkey: PEVP_PKEY): PEC_KEY; cdecl; external CLibCrypto; +function EVP_PKEY_get1_EC_KEY(pkey: PEVP_PKEY): PEC_KEY; cdecl; external CLibCrypto; +function EVP_PKEY_new: PEVP_PKEY; cdecl; external CLibCrypto; +function EVP_PKEY_up_ref(pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure EVP_PKEY_free(pkey: PEVP_PKEY); cdecl; external CLibCrypto; +function d2i_PublicKey(type_: TOpenSSL_C_INT; a: PPEVP_PKEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; external CLibCrypto; +function i2d_PublicKey(a: PEVP_PKEY; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_PrivateKey(type_: TOpenSSL_C_INT; a: PEVP_PKEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; external CLibCrypto; +function d2i_AutoPrivateKey(a: PPEVP_PKEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; external CLibCrypto; +function i2d_PrivateKey(a: PEVP_PKEY; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_copy_parameters(to_: PEVP_PKEY; const from: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_missing_parameters(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_save_parameters(pkey: PEVP_PKEY; mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_cmp_parameters(const a: PEVP_PKEY; const b: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_cmp(const a: PEVP_PKEY; const b: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_print_public(out_: PBIO; const pkey: PEVP_PKEY; indent: TOpenSSL_C_INT; pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_print_private(out_: PBIO; const pkey: PEVP_PKEY; indent: TOpenSSL_C_INT; pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_print_params(out_: PBIO; const pkey: PEVP_PKEY; indent: TOpenSSL_C_INT; pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_get_default_digest_nid(pkey: PEVP_PKEY; pnid: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_param_to_asn1(c: PEVP_CIPHER_CTX; type_: PASN1_TYPE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_asn1_to_param(c: PEVP_CIPHER_CTX; type_: PASN1_TYPE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_set_asn1_iv(c: PEVP_CIPHER_CTX; type_: PASN1_TYPE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_CIPHER_get_asn1_iv(c: PEVP_CIPHER_CTX; type_: PASN1_TYPE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS5_PBE_keyivgen(ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const cipher: PEVP_CIPHER; const md: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS5_PBKDF2_HMAC_SHA1(const pass: PAnsiChar; passlen: TOpenSSL_C_INT; const salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; keylen: TOpenSSL_C_INT; out_: PByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS5_PBKDF2_HMAC(const pass: PAnsiChar; passlen: TOpenSSL_C_INT; const salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; const digest: PEVP_MD; keylen: TOpenSSL_C_INT; out_: PByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS5_v2_PBE_keyivgen(ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const cipher: PEVP_CIPHER; const md: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PBE_scrypt(const pass: PAnsiChar; passlen: TOpenSSL_C_SIZET; const salt: PByte; saltlen: TOpenSSL_C_SIZET; N: TOpenSSL_C_UINT64; r: TOpenSSL_C_UINT64; p: TOpenSSL_C_UINT64; maxmem: TOpenSSL_C_UINT64; key: PByte; keylen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS5_v2_scrypt_keyivgen(ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const c: PEVP_CIPHER; const md: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure PKCS5_PBE_add; cdecl; external CLibCrypto; +function EVP_PBE_CipherInit(pbe_obj: PASN1_OBJECT; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; ctx: PEVP_CIPHER_CTX; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PBE_alg_add_type(pbe_type: TOpenSSL_C_INT; pbe_nid: TOpenSSL_C_INT; cipher_nid: TOpenSSL_C_INT; md_nid: TOpenSSL_C_INT; keygen: PEVP_PBE_KEYGEN): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PBE_alg_add(nid: TOpenSSL_C_INT; const cipher: PEVP_CIPHER; const md: PEVP_MD; keygen: PEVP_PBE_KEYGEN): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PBE_find(type_: TOpenSSL_C_INT; pbe_nid: TOpenSSL_C_INT; pcnid: POpenSSL_C_INT; pmnid: POpenSSL_C_INT; pkeygen: PPEVP_PBE_KEYGEN): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure EVP_PBE_cleanup; cdecl; external CLibCrypto; +function EVP_PBE_get(ptype: POpenSSL_C_INT; ppbe_nid: POpenSSL_C_INT; num: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_asn1_get_count: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_asn1_get0(idx: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; external CLibCrypto; +function EVP_PKEY_asn1_find(pe: PPENGINE; type_: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; external CLibCrypto; +function EVP_PKEY_asn1_find_str(pe: PPENGINE; const str: PAnsiChar; len: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; external CLibCrypto; +function EVP_PKEY_asn1_add0(const ameth: PEVP_PKEY_ASN1_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_asn1_add_alias(to_: TOpenSSL_C_INT; from: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_asn1_get0_info(ppkey_id: POpenSSL_C_INT; pkey_base_id: POpenSSL_C_INT; ppkey_flags: POpenSSL_C_INT; const pinfo: PPAnsiChar; const ppem_str: PPAnsiChar; const ameth: PEVP_PKEY_ASN1_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_get0_asn1(const pkey: PEVP_PKEY): PEVP_PKEY_ASN1_METHOD; cdecl; external CLibCrypto; +function EVP_PKEY_asn1_new(id: TOpenSSL_C_INT; flags: TOpenSSL_C_INT; const pem_str: PAnsiChar; const info: PAnsiChar): PEVP_PKEY_ASN1_METHOD; cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_copy(dst: PEVP_PKEY_ASN1_METHOD; const src: PEVP_PKEY_ASN1_METHOD); cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_free(ameth: PEVP_PKEY_ASN1_METHOD); cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_set_public(ameth: PEVP_PKEY_ASN1_METHOD; APub_decode: pub_decode; APub_encode: pub_encode; APub_cmd: pub_cmd; APub_print: pub_print; APkey_size: pkey_size; APkey_bits: pkey_bits); cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_set_private(ameth: PEVP_PKEY_ASN1_METHOD; APriv_decode: priv_decode; APriv_encode: priv_encode; APriv_print: priv_print); cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_set_param(ameth: PEVP_PKEY_ASN1_METHOD; AParam_decode: param_decode; AParam_encode: param_encode; AParam_missing: param_missing; AParam_copy: param_copy; AParam_cmp: param_cmp; AParam_print: param_print); cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_set_free(ameth: PEVP_PKEY_ASN1_METHOD; APkey_free: pkey_free); cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_set_ctrl(ameth: PEVP_PKEY_ASN1_METHOD; APkey_ctrl: pkey_ctrl); cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_set_item(ameth: PEVP_PKEY_ASN1_METHOD; AItem_verify: item_verify; AItem_sign: item_sign); cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_set_siginf(ameth: PEVP_PKEY_ASN1_METHOD; ASiginf_set: siginf_set); cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_set_check(ameth: PEVP_PKEY_ASN1_METHOD; APkey_check: pkey_check); cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_set_public_check(ameth: PEVP_PKEY_ASN1_METHOD; APkey_pub_check: pkey_pub_check); cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_set_param_check(ameth: PEVP_PKEY_ASN1_METHOD; APkey_param_check: pkey_param_check); cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_set_set_priv_key(ameth: PEVP_PKEY_ASN1_METHOD; ASet_priv_key: set_priv_key); cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_set_set_pub_key(ameth: PEVP_PKEY_ASN1_METHOD; ASet_pub_key: set_pub_key); cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_set_get_priv_key(ameth: PEVP_PKEY_ASN1_METHOD; AGet_priv_key: get_priv_key); cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_set_get_pub_key(ameth: PEVP_PKEY_ASN1_METHOD; AGet_pub_key: get_pub_key); cdecl; external CLibCrypto; +procedure EVP_PKEY_asn1_set_security_bits(ameth: PEVP_PKEY_ASN1_METHOD; APkey_security_bits: pkey_security_bits); cdecl; external CLibCrypto; +function EVP_PKEY_meth_find(type_: TOpenSSL_C_INT): PEVP_PKEY_METHOD; cdecl; external CLibCrypto; +function EVP_PKEY_meth_new(id: TOpenSSL_C_INT; flags: TOpenSSL_C_INT): PEVP_PKEY_METHOD; cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get0_info(ppkey_id: POpenSSL_C_INT; pflags: POpenSSL_C_INT; const meth: PEVP_PKEY_METHOD); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_copy(dst: PEVP_PKEY_METHOD; const src: PEVP_PKEY_METHOD); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_free(pmeth: PEVP_PKEY_METHOD); cdecl; external CLibCrypto; +function EVP_PKEY_meth_add0(const pmeth: PEVP_PKEY_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_meth_remove(const pmeth: PEVP_PKEY_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_meth_get_count: TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function EVP_PKEY_meth_get0(idx: TOpenSSL_C_SIZET): PEVP_PKEY_METHOD; cdecl; external CLibCrypto; +function EVP_PKEY_CTX_new(pkey: PEVP_PKEY; e: PENGINE): PEVP_PKEY_CTX; cdecl; external CLibCrypto; +function EVP_PKEY_CTX_new_id(id: TOpenSSL_C_INT; e: PENGINE): PEVP_PKEY_CTX; cdecl; external CLibCrypto; +function EVP_PKEY_CTX_dup(ctx: PEVP_PKEY_CTX): PEVP_PKEY_CTX; cdecl; external CLibCrypto; +procedure EVP_PKEY_CTX_free(ctx: PEVP_PKEY_CTX); cdecl; external CLibCrypto; +function EVP_PKEY_CTX_ctrl(ctx: PEVP_PKEY_CTX; keytype: TOpenSSL_C_INT; optype: TOpenSSL_C_INT; cmd: TOpenSSL_C_INT; p1: TOpenSSL_C_INT; p2: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_CTX_ctrl_str(ctx: PEVP_PKEY_CTX; const type_: PAnsiChar; const value: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_CTX_ctrl_uint64(ctx: PEVP_PKEY_CTX; keytype: TOpenSSL_C_INT; optype: TOpenSSL_C_INT; cmd: TOpenSSL_C_INT; value: TOpenSSL_C_UINT64): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_CTX_str2ctrl(ctx: PEVP_PKEY_CTX; cmd: TOpenSSL_C_INT; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_CTX_hex2ctrl(ctx: PEVP_PKEY_CTX; cmd: TOpenSSL_C_INT; const hex: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_CTX_md(ctx: PEVP_PKEY_CTX; optype: TOpenSSL_C_INT; cmd: TOpenSSL_C_INT; const md: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_CTX_get_operation(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure EVP_PKEY_CTX_set0_keygen_info(ctx: PEVP_PKEY_CTX; dat: POpenSSL_C_INT; datlen: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function EVP_PKEY_new_mac_key(type_: TOpenSSL_C_INT; e: PENGINE; const key: PByte; keylen: TOpenSSL_C_INT): PEVP_PKEY; cdecl; external CLibCrypto; +function EVP_PKEY_new_raw_private_key(type_: TOpenSSL_C_INT; e: PENGINE; const priv: PByte; len: TOpenSSL_C_SIZET): PEVP_PKEY; cdecl; external CLibCrypto; +function EVP_PKEY_new_raw_public_key(type_: TOpenSSL_C_INT; e: PENGINE; const pub: PByte; len: TOpenSSL_C_SIZET): PEVP_PKEY; cdecl; external CLibCrypto; +function EVP_PKEY_get_raw_private_key(const pkey: PEVP_PKEY; priv: PByte; len: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_get_raw_public_key(const pkey: PEVP_PKEY; pub: PByte; len: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_new_CMAC_key(e: PENGINE; const priv: PByte; len: TOpenSSL_C_SIZET; const cipher: PEVP_CIPHER): PEVP_PKEY; cdecl; external CLibCrypto; +procedure EVP_PKEY_CTX_set_data(ctx: PEVP_PKEY_CTX; data: Pointer); cdecl; external CLibCrypto; +function EVP_PKEY_CTX_get_data(ctx: PEVP_PKEY_CTX): Pointer; cdecl; external CLibCrypto; +function EVP_PKEY_CTX_get0_pkey(ctx: PEVP_PKEY_CTX): PEVP_PKEY; cdecl; external CLibCrypto; +function EVP_PKEY_CTX_get0_peerkey(ctx: PEVP_PKEY_CTX): PEVP_PKEY; cdecl; external CLibCrypto; +procedure EVP_PKEY_CTX_set_app_data(ctx: PEVP_PKEY_CTX; data: Pointer); cdecl; external CLibCrypto; +function EVP_PKEY_CTX_get_app_data(ctx: PEVP_PKEY_CTX): Pointer; cdecl; external CLibCrypto; +function EVP_PKEY_sign_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_sign(ctx: PEVP_PKEY_CTX; sig: PByte; siglen: POpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_verify_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_verify(ctx: PEVP_PKEY_CTX; const sig: PByte; siglen: TOpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_verify_recover_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_verify_recover(ctx: PEVP_PKEY_CTX; rout: PByte; routlen: POpenSSL_C_SIZET; const sig: PByte; siglen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_encrypt_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_encrypt(ctx: PEVP_PKEY_CTX; out_: PByte; outlen: POpenSSL_C_SIZET; const in_: PByte; inlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_decrypt_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_decrypt(ctx: PEVP_PKEY_CTX; out_: PByte; outlen: POpenSSL_C_SIZET; const in_: PByte; inlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_derive_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_derive_set_peer(ctx: PEVP_PKEY_CTX; peer: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_derive(ctx: PEVP_PKEY_CTX; key: PByte; keylen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_paramgen_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_paramgen(ctx: PEVP_PKEY_CTX; ppkey: PPEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_keygen_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_keygen(ctx: PEVP_PKEY_CTX; ppkey: PPEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_check(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_public_check(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_param_check(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure EVP_PKEY_CTX_set_cb(ctx: PEVP_PKEY_CTX; cb: EVP_PKEY_gen_cb); cdecl; external CLibCrypto; +function EVP_PKEY_CTX_get_cb(ctx: PEVP_PKEY_CTX): EVP_PKEY_gen_cb; cdecl; external CLibCrypto; +function EVP_PKEY_CTX_get_keygen_info(ctx: PEVP_PKEY_CTX; idx: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_init(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_init: EVP_PKEY_meth_init); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_copy(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_copy_cb: EVP_PKEY_meth_copy_cb); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_cleanup(pmeth: PEVP_PKEY_METHOD; PEVP_PKEY_meth_cleanup: EVP_PKEY_meth_cleanup); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_paramgen(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_paramgen_init: EVP_PKEY_meth_paramgen_init; AEVP_PKEY_meth_paramgen: EVP_PKEY_meth_paramgen_init); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_keygen(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_keygen_init: EVP_PKEY_meth_keygen_init; AEVP_PKEY_meth_keygen: EVP_PKEY_meth_keygen); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_sign(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_sign_init: EVP_PKEY_meth_sign_init; AEVP_PKEY_meth_sign: EVP_PKEY_meth_sign); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_verify(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verify_init: EVP_PKEY_meth_verify_init; AEVP_PKEY_meth_verify: EVP_PKEY_meth_verify_init); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_verify_recover(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verify_recover_init: EVP_PKEY_meth_verify_recover_init; AEVP_PKEY_meth_verify_recover: EVP_PKEY_meth_verify_recover_init); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_signctx(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_signctx_init: EVP_PKEY_meth_signctx_init; AEVP_PKEY_meth_signctx: EVP_PKEY_meth_signctx); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_verifyctx(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verifyctx_init: EVP_PKEY_meth_verifyctx_init; AEVP_PKEY_meth_verifyctx: EVP_PKEY_meth_verifyctx); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_encrypt(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_encrypt_init: EVP_PKEY_meth_encrypt_init; AEVP_PKEY_meth_encrypt: EVP_PKEY_meth_encrypt); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_decrypt(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_decrypt_init: EVP_PKEY_meth_decrypt_init; AEVP_PKEY_meth_decrypt: EVP_PKEY_meth_decrypt); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_derive(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_derive_init: EVP_PKEY_meth_derive_init; AEVP_PKEY_meth_derive: EVP_PKEY_meth_derive); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_ctrl(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_ctrl: EVP_PKEY_meth_ctrl; AEVP_PKEY_meth_ctrl_str: EVP_PKEY_meth_ctrl_str); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_digestsign(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digestsign: EVP_PKEY_meth_digestsign); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_digestverify(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digestverify: EVP_PKEY_meth_digestverify); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_check: EVP_PKEY_meth_check); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_public_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_public_check: EVP_PKEY_meth_public_check); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_param_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_param_check: EVP_PKEY_meth_param_check); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_set_digest_custom(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digest_custom: EVP_PKEY_meth_digest_custom); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_init(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_init: PEVP_PKEY_meth_init); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_copy(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_copy: PEVP_PKEY_meth_copy); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_cleanup(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_cleanup: PEVP_PKEY_meth_cleanup); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_paramgen(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_paramgen_init: EVP_PKEY_meth_paramgen_init; AEVP_PKEY_meth_paramgen: PEVP_PKEY_meth_paramgen); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_keygen(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_keygen_init: EVP_PKEY_meth_keygen_init; AEVP_PKEY_meth_keygen: PEVP_PKEY_meth_keygen); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_sign(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_sign_init: PEVP_PKEY_meth_sign_init; AEVP_PKEY_meth_sign: PEVP_PKEY_meth_sign); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_verify(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verify_init: PEVP_PKEY_meth_verify_init; AEVP_PKEY_meth_verify: PEVP_PKEY_meth_verify_init); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_verify_recover(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verify_recover_init: PEVP_PKEY_meth_verify_recover_init; AEVP_PKEY_meth_verify_recover: PEVP_PKEY_meth_verify_recover_init); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_signctx(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_signctx_init: PEVP_PKEY_meth_signctx_init; AEVP_PKEY_meth_signctx: PEVP_PKEY_meth_signctx); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_verifyctx(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verifyctx_init: PEVP_PKEY_meth_verifyctx_init; AEVP_PKEY_meth_verifyctx: PEVP_PKEY_meth_verifyctx); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_encrypt(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_encrypt_init: PEVP_PKEY_meth_encrypt_init; AEVP_PKEY_meth_encrypt: PEVP_PKEY_meth_encrypt); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_decrypt(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_decrypt_init: PEVP_PKEY_meth_decrypt_init; AEVP_PKEY_meth_decrypt: PEVP_PKEY_meth_decrypt); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_derive(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_derive_init: PEVP_PKEY_meth_derive_init; AEVP_PKEY_meth_derive: PEVP_PKEY_meth_derive); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_ctrl(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_ctrl: PEVP_PKEY_meth_ctrl; AEVP_PKEY_meth_ctrl_str: PEVP_PKEY_meth_ctrl_str); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_digestsign(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digestsign: PEVP_PKEY_meth_digestsign); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_digestverify(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digestverify: PEVP_PKEY_meth_digestverify); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_check: PEVP_PKEY_meth_check); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_public_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_public_check: PEVP_PKEY_meth_public_check); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_param_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_param_check: PEVP_PKEY_meth_param_check); cdecl; external CLibCrypto; +procedure EVP_PKEY_meth_get_digest_custom(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digest_custom: PEVP_PKEY_meth_digest_custom); cdecl; external CLibCrypto; +procedure EVP_add_alg_module; cdecl; external CLibCrypto; + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function EVP_PKEY_assign_RSA(pkey: PEVP_PKEY; rsa: Pointer): TOpenSSL_C_INT; {removed 1.0.0} +function EVP_PKEY_assign_DSA(pkey: PEVP_PKEY; dsa: Pointer): TOpenSSL_C_INT; {removed 1.0.0} +function EVP_PKEY_assign_DH(pkey: PEVP_PKEY; dh: Pointer): TOpenSSL_C_INT; {removed 1.0.0} +function EVP_PKEY_assign_EC_KEY(pkey: PEVP_PKEY; eckey: Pointer): TOpenSSL_C_INT; {removed 1.0.0} +function EVP_PKEY_assign_SIPHASH(pkey: PEVP_PKEY; shkey: Pointer): TOpenSSL_C_INT; {removed 1.0.0} +function EVP_PKEY_assign_POLY1305(pkey: PEVP_PKEY; polykey: Pointer): TOpenSSL_C_INT; {removed 1.0.0} +procedure BIO_set_md(v1: PBIO; const md: PEVP_MD); {removed 1.0.0} +{$IFNDEF OPENSSL_NO_MD2} +function EVP_md2: PEVP_MD; {removed 1.1.0 allow_nil} +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD4} +function EVP_md4: PEVP_MD; {removed 1.1.0 allow_nil} +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD5} +function EVP_md5: PEVP_MD; {removed 1.1.0 allow_nil} +{$ENDIF} +function EVP_PKEY_security_bits(const pkey: PEVP_PKEY): TOpenSSL_C_INT; {removed 3.0.0} +function EVP_PKEY_size(const pkey: PEVP_PKEY): TOpenSSL_C_INT; {removed 3.0.0} +procedure OpenSSL_add_all_ciphers; {removed 1.1.0} +procedure OpenSSL_add_all_digests; {removed 1.1.0} +procedure EVP_cleanup; {removed 1.1.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_PKEY_assign_RSA(pkey: PEVP_PKEY; rsa: Pointer): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_assign_DSA(pkey: PEVP_PKEY; dsa: Pointer): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_assign_DH(pkey: PEVP_PKEY; dh: Pointer): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_assign_EC_KEY(pkey: PEVP_PKEY; eckey: Pointer): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_assign_SIPHASH(pkey: PEVP_PKEY; shkey: Pointer): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_assign_POLY1305(pkey: PEVP_PKEY; polykey: Pointer): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_MD_meth_new(md_type: TOpenSSL_C_INT; pkey_type: TOpenSSL_C_INT): PEVP_MD; cdecl; +function Load_EVP_MD_meth_dup(const md: PEVP_MD): PEVP_MD; cdecl; +procedure Load_EVP_MD_meth_free(md: PEVP_MD); cdecl; +function Load_EVP_MD_meth_set_input_blocksize(md: PEVP_MD; blocksize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_meth_set_result_size(md: PEVP_MD; resultsize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_meth_set_app_datasize(md: PEVP_MD; datasize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_meth_set_flags(md: PEVP_MD; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_meth_set_init(md: PEVP_MD; init: EVP_MD_meth_init): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_meth_set_update(md: PEVP_MD; update: EVP_MD_meth_update): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_meth_set_final(md: PEVP_MD; final_: EVP_MD_meth_final): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_meth_set_copy(md: PEVP_MD; copy: EVP_MD_meth_copy): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_meth_set_cleanup(md: PEVP_MD; cleanup: EVP_MD_meth_cleanup): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_meth_set_ctrl(md: PEVP_MD; ctrl: EVP_MD_meth_ctrl): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_meth_get_input_blocksize(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_meth_get_result_size(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_meth_get_app_datasize(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_meth_get_flags(const md: PEVP_MD): TOpenSSL_C_ULONG; cdecl; +function Load_EVP_MD_meth_get_init(const md: PEVP_MD): EVP_MD_meth_init; cdecl; +function Load_EVP_MD_meth_get_update(const md: PEVP_MD): EVP_MD_meth_update; cdecl; +function Load_EVP_MD_meth_get_final(const md: PEVP_MD): EVP_MD_meth_final; cdecl; +function Load_EVP_MD_meth_get_copy(const md: PEVP_MD): EVP_MD_meth_copy; cdecl; +function Load_EVP_MD_meth_get_cleanup(const md: PEVP_MD): EVP_MD_meth_cleanup; cdecl; +function Load_EVP_MD_meth_get_ctrl(const md: PEVP_MD): EVP_MD_meth_ctrl; cdecl; +function Load_EVP_CIPHER_meth_new(cipher_type: TOpenSSL_C_INT; block_size: TOpenSSL_C_INT; key_len: TOpenSSL_C_INT): PEVP_CIPHER; cdecl; +function Load_EVP_CIPHER_meth_dup(const cipher: PEVP_CIPHER): PEVP_CIPHER; cdecl; +procedure Load_EVP_CIPHER_meth_free(cipher: PEVP_CIPHER); cdecl; +function Load_EVP_CIPHER_meth_set_iv_length(cipher: PEVP_CIPHER; iv_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_meth_set_flags(cipher: PEVP_CIPHER; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_meth_set_impl_ctx_size(cipher: PEVP_CIPHER; ctx_size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_meth_set_init(cipher: PEVP_CIPHER; init: EVP_CIPHER_meth_init): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_meth_set_do_cipher(cipher: PEVP_CIPHER; do_cipher: EVP_CIPHER_meth_do_cipher): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_meth_set_cleanup(cipher: PEVP_CIPHER; cleanup: EVP_CIPHER_meth_cleanup): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_meth_set_set_asn1_params(cipher: PEVP_CIPHER; set_asn1_parameters: EVP_CIPHER_meth_set_asn1_params): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_meth_set_get_asn1_params(cipher: PEVP_CIPHER; get_asn1_parameters: EVP_CIPHER_meth_get_asn1_params): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_meth_set_ctrl(cipher: PEVP_CIPHER; ctrl: EVP_CIPHER_meth_ctrl): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_meth_get_init(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_init; cdecl; +function Load_EVP_CIPHER_meth_get_do_cipher(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_do_cipher; cdecl; +function Load_EVP_CIPHER_meth_get_cleanup(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_cleanup; cdecl; +function Load_EVP_CIPHER_meth_get_set_asn1_params(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_set_asn1_params; cdecl; +function Load_EVP_CIPHER_meth_get_get_asn1_params(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_get_asn1_params; cdecl; +function Load_EVP_CIPHER_meth_get_ctrl(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_ctrl; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_MD_type(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_pkey_type(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_size(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_block_size(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_flags(const md: PEVP_MD): POpenSSL_C_ULONG; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_MD_CTX_md(ctx: PEVP_MD_CTX): PEVP_MD; cdecl; +function Load_EVP_MD_CTX_update_fn(ctx: PEVP_MD_CTX): EVP_MD_CTX_update; cdecl; +procedure Load_EVP_MD_CTX_set_update_fn(ctx: PEVP_MD_CTX; update: EVP_MD_CTX_update); cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_MD_CTX_pkey_ctx(const ctx: PEVP_MD_CTX): PEVP_PKEY_CTX; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +procedure Load_EVP_MD_CTX_set_pkey_ctx(ctx: PEVP_MD_CTX; pctx: PEVP_PKEY_CTX); cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_MD_CTX_md_data(const ctx: PEVP_MD_CTX): Pointer; cdecl; +function Load_EVP_CIPHER_nid(const ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_block_size(const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_CIPHER_impl_ctx_size(const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_CIPHER_key_length(const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_iv_length(const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_flags(const cipher: PEVP_CIPHER): TOpenSSL_C_ULONG; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_CIPHER_CTX_cipher(const ctx: PEVP_CIPHER_CTX): PEVP_CIPHER; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_CIPHER_CTX_encrypting(const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_CTX_nid(const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_CTX_block_size(const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_CTX_key_length(const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_CTX_iv_length(const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_CIPHER_CTX_iv(const ctx: PEVP_CIPHER_CTX): PByte; cdecl; +function Load_EVP_CIPHER_CTX_original_iv(const ctx: PEVP_CIPHER_CTX): PByte; cdecl; +function Load_EVP_CIPHER_CTX_iv_noconst(ctx: PEVP_CIPHER_CTX): PByte; cdecl; +function Load_EVP_CIPHER_CTX_buf_noconst(ctx: PEVP_CIPHER_CTX): PByte; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_CIPHER_CTX_num(const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +procedure Load_EVP_CIPHER_CTX_set_num(ctx: PEVP_CIPHER_CTX; num: TOpenSSL_C_INT); cdecl; +function Load_EVP_CIPHER_CTX_copy(out_: PEVP_CIPHER_CTX; const in_: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_CTX_get_app_data(const ctx: PEVP_CIPHER_CTX): Pointer; cdecl; +procedure Load_EVP_CIPHER_CTX_set_app_data(ctx: PEVP_CIPHER_CTX; data: Pointer); cdecl; +function Load_EVP_CIPHER_CTX_get_cipher_data(const ctx: PEVP_CIPHER_CTX): Pointer; cdecl; +function Load_EVP_CIPHER_CTX_set_cipher_data(ctx: PEVP_CIPHER_CTX; cipher_data: Pointer): Pointer; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_BIO_set_md(v1: PBIO; const md: PEVP_MD); cdecl; +procedure Load_EVP_MD_CTX_init(ctx : PEVP_MD_CTX); cdecl; +function Load_EVP_MD_CTX_cleanup(ctx : PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_MD_CTX_ctrl(ctx: PEVP_MD_CTX; cmd: TOpenSSL_C_INT; p1: TOpenSSL_C_INT; p2: Pointer): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_CTX_new: PEVP_MD_CTX; cdecl; +function Load_EVP_MD_CTX_reset(ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +procedure Load_EVP_MD_CTX_free(ctx: PEVP_MD_CTX); cdecl; +function Load_EVP_MD_CTX_copy_ex(out_: PEVP_MD_CTX; const in_: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +procedure Load_EVP_MD_CTX_set_flags(ctx: PEVP_MD_CTX; flags: TOpenSSL_C_INT); cdecl; +procedure Load_EVP_MD_CTX_clear_flags(ctx: PEVP_MD_CTX; flags: TOpenSSL_C_INT); cdecl; +function Load_EVP_MD_CTX_test_flags(const ctx: PEVP_MD_CTX; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_DigestInit_ex(ctx: PEVP_MD_CTX; const type_: PEVP_MD; impl: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_EVP_DigestUpdate(ctx: PEVP_MD_CTX; const d: Pointer; cnt: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EVP_DigestFinal_ex(ctx: PEVP_MD_CTX; md: PByte; var s: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_EVP_Digest(const data: Pointer; count: TOpenSSL_C_SIZET; md: PByte; size: POpenSSL_C_UINT; const type_: PEVP_MD; impl: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_EVP_MD_CTX_copy(out_: PEVP_MD_CTX; const in_: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_DigestInit(ctx: PEVP_MD_CTX; const type_: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_EVP_DigestFinal(ctx: PEVP_MD_CTX; md: PByte; var s: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_EVP_DigestFinalXOF(ctx: PEVP_MD_CTX; md: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EVP_read_pw_string(buf: PAnsiChar; length: TOpenSSL_C_INT; const prompt: PAnsiChar; verify: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_read_pw_string_min(buf: PAnsiChar; minlen: TOpenSSL_C_INT; maxlen: TOpenSSL_C_INT; const prompt: PAnsiChar; verify: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_EVP_set_pw_prompt(const prompt: PAnsiChar); cdecl; +function Load_EVP_get_pw_prompt: PAnsiChar; cdecl; +function Load_EVP_BytesToKey(const type_: PEVP_CIPHER; const md: PEVP_MD; const salt: PByte; const data: PByte; data1: TOpenSSL_C_INT; count: TOpenSSL_C_INT; key: PByte; iv: PByte): TOpenSSL_C_INT; cdecl; +procedure Load_EVP_CIPHER_CTX_set_flags(ctx: PEVP_CIPHER_CTX; flags: TOpenSSL_C_INT); cdecl; +procedure Load_EVP_CIPHER_CTX_clear_flags(ctx: PEVP_CIPHER_CTX; flags: TOpenSSL_C_INT); cdecl; +function Load_EVP_CIPHER_CTX_test_flags(const ctx: PEVP_CIPHER_CTX; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_EncryptInit(ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; const key: PByte; const iv: PByte): TOpenSSL_C_INT; cdecl; +function Load_EVP_EncryptInit_ex(ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; impl: PENGINE; const key: PByte; const iv: PByte): TOpenSSL_C_INT; cdecl; +function Load_EVP_EncryptUpdate(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in_1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_EncryptFinal_ex(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_EncryptFinal(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_DecryptInit(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_DecryptInit_ex(ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; impl: PENGINE; const key: PByte; const iv: PByte): TOpenSSL_C_INT; cdecl; +function Load_EVP_DecryptUpdate(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in_1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_DecryptFinal(ctx: PEVP_CIPHER_CTX; outm: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_DecryptFinal_ex(ctx: PEVP_MD_CTX; outm: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_CipherInit(ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; const key: PByte; const iv: PByte; enc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_CipherInit_ex(ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; impl: PENGINE; const key: PByte; const iv: PByte; enc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_CipherUpdate(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_CipherFinal(ctx: PEVP_CIPHER_CTX; outm: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_CipherFinal_ex(ctx: PEVP_CIPHER_CTX; outm: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_SignFinal(ctx: PEVP_CIPHER_CTX; md: PByte; s: POpenSSL_C_UINT; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_DigestSign(ctx: PEVP_CIPHER_CTX; sigret: PByte; siglen: POpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EVP_VerifyFinal(ctx: PEVP_MD_CTX; const sigbuf: PByte; siglen: TOpenSSL_C_UINT; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_DigestVerify(ctx: PEVP_CIPHER_CTX; const sigret: PByte; siglen: TOpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EVP_DigestSignInit(ctx: PEVP_MD_CTX; pctx: PPEVP_PKEY_CTX; const type_: PEVP_MD; e: PENGINE; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_DigestSignFinal(ctx: PEVP_MD_CTX; sigret: PByte; siglen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EVP_DigestVerifyInit(ctx: PEVP_MD_CTX; ppctx: PPEVP_PKEY_CTX; const type_: PEVP_MD; e: PENGINE; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_DigestVerifyFinal(ctx: PEVP_MD_CTX; const sig: PByte; siglen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EVP_OpenInit(ctx: PEVP_CIPHER_CTX; const type_: PEVP_CIPHER; const ek: PByte; ek1: TOpenSSL_C_INT; const iv: PByte; priv: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_OpenFinal(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_SealInit(ctx: PEVP_CIPHER_CTX; const type_: EVP_CIPHER; ek: PPByte; ek1: POpenSSL_C_INT; iv: PByte; pubk: PPEVP_PKEY; npubk: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_SealFinal(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_ENCODE_CTX_new: PEVP_ENCODE_CTX; cdecl; +procedure Load_EVP_ENCODE_CTX_free(ctx: PEVP_ENCODE_CTX); cdecl; +function Load_EVP_ENCODE_CTX_copy(dctx: PEVP_ENCODE_CTX; sctx: PEVP_ENCODE_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_ENCODE_CTX_num(ctx: PEVP_ENCODE_CTX): TOpenSSL_C_INT; cdecl; +procedure Load_EVP_EncodeInit(ctx: PEVP_ENCODE_CTX); cdecl; +function Load_EVP_EncodeUpdate(ctx: PEVP_ENCODE_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_EVP_EncodeFinal(ctx: PEVP_ENCODE_CTX; out_: PByte; out1: POpenSSL_C_INT); cdecl; +function Load_EVP_EncodeBlock(t: PByte; const f: PByte; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_EVP_DecodeInit(ctx: PEVP_ENCODE_CTX); cdecl; +function Load_EVP_DecodeUpdate(ctx: PEVP_ENCODE_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_DecodeFinal(ctx: PEVP_ENCODE_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_DecodeBlock(t: PByte; const f: PByte; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_CTX_new: PEVP_CIPHER_CTX; cdecl; +function Load_EVP_CIPHER_CTX_reset(c: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; +procedure Load_EVP_CIPHER_CTX_free(c: PEVP_CIPHER_CTX); cdecl; +function Load_EVP_CIPHER_CTX_set_key_length(x: PEVP_CIPHER_CTX; keylen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_CTX_set_padding(c: PEVP_CIPHER_CTX; pad: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_CTX_ctrl(ctx: PEVP_CIPHER_CTX; type_: TOpenSSL_C_INT; arg: TOpenSSL_C_INT; ptr: Pointer): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_CTX_rand_key(ctx: PEVP_CIPHER_CTX; key: PByte): TOpenSSL_C_INT; cdecl; +function Load_BIO_f_md: PBIO_METHOD; cdecl; +function Load_BIO_f_base64: PBIO_METHOD; cdecl; +function Load_BIO_f_cipher: PBIO_METHOD; cdecl; +function Load_BIO_f_reliable: PBIO_METHOD; cdecl; +function Load_BIO_set_cipher(b: PBIO; c: PEVP_CIPHER; const k: PByte; const i: PByte; enc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_md_null: PEVP_MD; cdecl; +{$IFNDEF OPENSSL_NO_MD2} +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD4} +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD5} +{$ENDIF} +function Load_EVP_md5_sha1: PEVP_MD; cdecl; +function Load_EVP_sha1: PEVP_MD; cdecl; +function Load_EVP_sha224: PEVP_MD; cdecl; +function Load_EVP_sha256: PEVP_MD; cdecl; +function Load_EVP_sha384: PEVP_MD; cdecl; +function Load_EVP_sha512: PEVP_MD; cdecl; +function Load_EVP_sha512_224: PEVP_MD; cdecl; +function Load_EVP_sha512_256: PEVP_MD; cdecl; +function Load_EVP_sha3_224: PEVP_MD; cdecl; +function Load_EVP_sha3_256: PEVP_MD; cdecl; +function Load_EVP_sha3_384: PEVP_MD; cdecl; +function Load_EVP_sha3_512: PEVP_MD; cdecl; +function Load_EVP_shake128: PEVP_MD; cdecl; +function Load_EVP_shake256: PEVP_MD; cdecl; +function Load_EVP_enc_null: PEVP_CIPHER; cdecl; +function Load_EVP_des_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_des_ede: PEVP_CIPHER; cdecl; +function Load_EVP_des_ede3: PEVP_CIPHER; cdecl; +function Load_EVP_des_ede_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_des_ede3_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_des_cfb64: PEVP_CIPHER; cdecl; +function Load_EVP_des_cfb1: PEVP_CIPHER; cdecl; +function Load_EVP_des_cfb8: PEVP_CIPHER; cdecl; +function Load_EVP_des_ede_cfb64: PEVP_CIPHER; cdecl; +function Load_EVP_des_ede3_cfb64: PEVP_CIPHER; cdecl; +function Load_EVP_des_ede3_cfb1: PEVP_CIPHER; cdecl; +function Load_EVP_des_ede3_cfb8: PEVP_CIPHER; cdecl; +function Load_EVP_des_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_des_ede_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_des_ede3_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_des_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_des_ede_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_des_ede3_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_desx_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_des_ede3_wrap: PEVP_CIPHER; cdecl; +function Load_EVP_rc4: PEVP_CIPHER; cdecl; +function Load_EVP_rc4_40: PEVP_CIPHER; cdecl; +function Load_EVP_rc2_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_rc2_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_rc2_40_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_rc2_64_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_rc2_cfb64: PEVP_CIPHER; cdecl; +function Load_EVP_rc2_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_bf_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_bf_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_bf_cfb64: PEVP_CIPHER; cdecl; +function Load_EVP_bf_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_cast5_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_cast5_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_cast5_cfb64: PEVP_CIPHER; cdecl; +function Load_EVP_cast5_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_aes_128_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_aes_128_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_aes_128_cfb1: PEVP_CIPHER; cdecl; +function Load_EVP_aes_128_cfb8: PEVP_CIPHER; cdecl; +function Load_EVP_aes_128_cfb128: PEVP_CIPHER; cdecl; +function Load_EVP_aes_128_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_aes_128_ctr: PEVP_CIPHER; cdecl; +function Load_EVP_aes_128_ccm: PEVP_CIPHER; cdecl; +function Load_EVP_aes_128_gcm: PEVP_CIPHER; cdecl; +function Load_EVP_aes_128_xts: PEVP_CIPHER; cdecl; +function Load_EVP_aes_128_wrap: PEVP_CIPHER; cdecl; +function Load_EVP_aes_128_wrap_pad: PEVP_CIPHER; cdecl; +function Load_EVP_aes_128_ocb: PEVP_CIPHER; cdecl; +function Load_EVP_aes_192_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_aes_192_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_aes_192_cfb1: PEVP_CIPHER; cdecl; +function Load_EVP_aes_192_cfb8: PEVP_CIPHER; cdecl; +function Load_EVP_aes_192_cfb128: PEVP_CIPHER; cdecl; +function Load_EVP_aes_192_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_aes_192_ctr: PEVP_CIPHER; cdecl; +function Load_EVP_aes_192_ccm: PEVP_CIPHER; cdecl; +function Load_EVP_aes_192_gcm: PEVP_CIPHER; cdecl; +function Load_EVP_aes_192_wrap: PEVP_CIPHER; cdecl; +function Load_EVP_aes_192_wrap_pad: PEVP_CIPHER; cdecl; +function Load_EVP_aes_192_ocb: PEVP_CIPHER; cdecl; +function Load_EVP_aes_256_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_aes_256_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_aes_256_cfb1: PEVP_CIPHER; cdecl; +function Load_EVP_aes_256_cfb8: PEVP_CIPHER; cdecl; +function Load_EVP_aes_256_cfb128: PEVP_CIPHER; cdecl; +function Load_EVP_aes_256_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_aes_256_ctr: PEVP_CIPHER; cdecl; +function Load_EVP_aes_256_ccm: PEVP_CIPHER; cdecl; +function Load_EVP_aes_256_gcm: PEVP_CIPHER; cdecl; +function Load_EVP_aes_256_xts: PEVP_CIPHER; cdecl; +function Load_EVP_aes_256_wrap: PEVP_CIPHER; cdecl; +function Load_EVP_aes_256_wrap_pad: PEVP_CIPHER; cdecl; +function Load_EVP_aes_256_ocb: PEVP_CIPHER; cdecl; +function Load_EVP_aes_128_cbc_hmac_sha1: PEVP_CIPHER; cdecl; +function Load_EVP_aes_256_cbc_hmac_sha1: PEVP_CIPHER; cdecl; +function Load_EVP_aes_128_cbc_hmac_sha256: PEVP_CIPHER; cdecl; +function Load_EVP_aes_256_cbc_hmac_sha256: PEVP_CIPHER; cdecl; +function Load_EVP_aria_128_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_aria_128_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_aria_128_cfb1: PEVP_CIPHER; cdecl; +function Load_EVP_aria_128_cfb8: PEVP_CIPHER; cdecl; +function Load_EVP_aria_128_cfb128: PEVP_CIPHER; cdecl; +function Load_EVP_aria_128_ctr: PEVP_CIPHER; cdecl; +function Load_EVP_aria_128_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_aria_128_gcm: PEVP_CIPHER; cdecl; +function Load_EVP_aria_128_ccm: PEVP_CIPHER; cdecl; +function Load_EVP_aria_192_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_aria_192_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_aria_192_cfb1: PEVP_CIPHER; cdecl; +function Load_EVP_aria_192_cfb8: PEVP_CIPHER; cdecl; +function Load_EVP_aria_192_cfb128: PEVP_CIPHER; cdecl; +function Load_EVP_aria_192_ctr: PEVP_CIPHER; cdecl; +function Load_EVP_aria_192_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_aria_192_gcm: PEVP_CIPHER; cdecl; +function Load_EVP_aria_192_ccm: PEVP_CIPHER; cdecl; +function Load_EVP_aria_256_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_aria_256_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_aria_256_cfb1: PEVP_CIPHER; cdecl; +function Load_EVP_aria_256_cfb8: PEVP_CIPHER; cdecl; +function Load_EVP_aria_256_cfb128: PEVP_CIPHER; cdecl; +function Load_EVP_aria_256_ctr: PEVP_CIPHER; cdecl; +function Load_EVP_aria_256_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_aria_256_gcm: PEVP_CIPHER; cdecl; +function Load_EVP_aria_256_ccm: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_128_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_128_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_128_cfb1: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_128_cfb8: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_128_cfb128: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_128_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_128_ctr: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_192_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_192_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_192_cfb1: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_192_cfb8: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_192_cfb128: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_192_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_192_ctr: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_256_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_256_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_256_cfb1: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_256_cfb8: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_256_cfb128: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_256_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_camellia_256_ctr: PEVP_CIPHER; cdecl; +function Load_EVP_chacha20: PEVP_CIPHER; cdecl; +function Load_EVP_chacha20_poly1305: PEVP_CIPHER; cdecl; +function Load_EVP_seed_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_seed_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_seed_cfb128: PEVP_CIPHER; cdecl; +function Load_EVP_seed_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_sm4_ecb: PEVP_CIPHER; cdecl; +function Load_EVP_sm4_cbc: PEVP_CIPHER; cdecl; +function Load_EVP_sm4_cfb128: PEVP_CIPHER; cdecl; +function Load_EVP_sm4_ofb: PEVP_CIPHER; cdecl; +function Load_EVP_sm4_ctr: PEVP_CIPHER; cdecl; +function Load_EVP_add_cipher(const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; +function Load_EVP_add_digest(const digest: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_EVP_get_cipherbyname(const name: PAnsiChar): PEVP_CIPHER; cdecl; +function Load_EVP_get_digestbyname(const name: PAnsiChar): PEVP_MD; cdecl; +procedure Load_EVP_CIPHER_do_all(AFn: fn; arg: Pointer); cdecl; +procedure Load_EVP_CIPHER_do_all_sorted(AFn: fn; arg: Pointer); cdecl; +procedure Load_EVP_MD_do_all(AFn: fn; arg: Pointer); cdecl; +procedure Load_EVP_MD_do_all_sorted(AFn: fn; arg: Pointer); cdecl; +function Load_EVP_PKEY_decrypt_old(dec_key: PByte; const enc_key: PByte; enc_key_len: TOpenSSL_C_INT; private_key: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_encrypt_old(dec_key: PByte; const enc_key: PByte; key_len: TOpenSSL_C_INT; pub_key: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_type(type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_PKEY_id(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_base_id(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_PKEY_get_base_id(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_PKEY_bits(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_security_bits(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_PKEY_get_security_bits(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_PKEY_size(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_PKEY_get_size(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_set_type(pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_set_type_str(pkey: PEVP_PKEY; const str: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_PKEY_set_alias_type(pkey: PEVP_PKEY; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_PKEY_set1_engine(pkey: PEVP_PKEY; e: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_get0_engine(const pkey: PEVP_PKEY): PENGINE; cdecl; +function Load_EVP_PKEY_assign(pkey: PEVP_PKEY; type_: TOpenSSL_C_INT; key: Pointer): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_get0(const pkey: PEVP_PKEY): Pointer; cdecl; +function Load_EVP_PKEY_get0_hmac(const pkey: PEVP_PKEY; len: POpenSSL_C_SIZET): PByte; cdecl; +function Load_EVP_PKEY_get0_poly1305(const pkey: PEVP_PKEY; len: POpenSSL_C_SIZET): PByte; cdecl; +function Load_EVP_PKEY_get0_siphash(const pkey: PEVP_PKEY; len: POpenSSL_C_SIZET): PByte; cdecl; +function Load_EVP_PKEY_set1_RSA(pkey: PEVP_PKEY; key: PRSA): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_get0_RSA(pkey: PEVP_PKEY): PRSA; cdecl; +function Load_EVP_PKEY_get1_RSA(pkey: PEVP_PKEY): PRSA; cdecl; +function Load_EVP_PKEY_set1_DSA(pkey: PEVP_PKEY; key: PDSA): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_get0_DSA(pkey: PEVP_PKEY): PDSA; cdecl; +function Load_EVP_PKEY_get1_DSA(pkey: PEVP_PKEY): PDSA; cdecl; +function Load_EVP_PKEY_set1_DH(pkey: PEVP_PKEY; key: PDH): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_get0_DH(pkey: PEVP_PKEY): PDH; cdecl; +function Load_EVP_PKEY_get1_DH(pkey: PEVP_PKEY): PDH; cdecl; +function Load_EVP_PKEY_set1_EC_KEY(pkey: PEVP_PKEY; key: PEC_KEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_get0_EC_KEY(pkey: PEVP_PKEY): PEC_KEY; cdecl; +function Load_EVP_PKEY_get1_EC_KEY(pkey: PEVP_PKEY): PEC_KEY; cdecl; +function Load_EVP_PKEY_new: PEVP_PKEY; cdecl; +function Load_EVP_PKEY_up_ref(pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +procedure Load_EVP_PKEY_free(pkey: PEVP_PKEY); cdecl; +function Load_d2i_PublicKey(type_: TOpenSSL_C_INT; a: PPEVP_PKEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; +function Load_i2d_PublicKey(a: PEVP_PKEY; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_PrivateKey(type_: TOpenSSL_C_INT; a: PEVP_PKEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; +function Load_d2i_AutoPrivateKey(a: PPEVP_PKEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; +function Load_i2d_PrivateKey(a: PEVP_PKEY; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_copy_parameters(to_: PEVP_PKEY; const from: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_missing_parameters(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_save_parameters(pkey: PEVP_PKEY; mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_cmp_parameters(const a: PEVP_PKEY; const b: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_cmp(const a: PEVP_PKEY; const b: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_print_public(out_: PBIO; const pkey: PEVP_PKEY; indent: TOpenSSL_C_INT; pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_print_private(out_: PBIO; const pkey: PEVP_PKEY; indent: TOpenSSL_C_INT; pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_print_params(out_: PBIO; const pkey: PEVP_PKEY; indent: TOpenSSL_C_INT; pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_get_default_digest_nid(pkey: PEVP_PKEY; pnid: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_PKEY_set1_tls_encodedpoint(pkey: PEVP_PKEY; const pt: PByte; ptlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_get1_tls_encodedpoint(pkey: PEVP_PKEY; ppt: PPByte): TOpenSSL_C_SIZET; cdecl; +function Load_EVP_CIPHER_type(const ctx: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_CIPHER_param_to_asn1(c: PEVP_CIPHER_CTX; type_: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_asn1_to_param(c: PEVP_CIPHER_CTX; type_: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_set_asn1_iv(c: PEVP_CIPHER_CTX; type_: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +function Load_EVP_CIPHER_get_asn1_iv(c: PEVP_CIPHER_CTX; type_: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +function Load_PKCS5_PBE_keyivgen(ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const cipher: PEVP_CIPHER; const md: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS5_PBKDF2_HMAC_SHA1(const pass: PAnsiChar; passlen: TOpenSSL_C_INT; const salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; keylen: TOpenSSL_C_INT; out_: PByte): TOpenSSL_C_INT; cdecl; +function Load_PKCS5_PBKDF2_HMAC(const pass: PAnsiChar; passlen: TOpenSSL_C_INT; const salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; const digest: PEVP_MD; keylen: TOpenSSL_C_INT; out_: PByte): TOpenSSL_C_INT; cdecl; +function Load_PKCS5_v2_PBE_keyivgen(ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const cipher: PEVP_CIPHER; const md: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_PBE_scrypt(const pass: PAnsiChar; passlen: TOpenSSL_C_SIZET; const salt: PByte; saltlen: TOpenSSL_C_SIZET; N: TOpenSSL_C_UINT64; r: TOpenSSL_C_UINT64; p: TOpenSSL_C_UINT64; maxmem: TOpenSSL_C_UINT64; key: PByte; keylen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_PKCS5_v2_scrypt_keyivgen(ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const c: PEVP_CIPHER; const md: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_PKCS5_PBE_add; cdecl; +function Load_EVP_PBE_CipherInit(pbe_obj: PASN1_OBJECT; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; ctx: PEVP_CIPHER_CTX; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_PBE_alg_add_type(pbe_type: TOpenSSL_C_INT; pbe_nid: TOpenSSL_C_INT; cipher_nid: TOpenSSL_C_INT; md_nid: TOpenSSL_C_INT; keygen: PEVP_PBE_KEYGEN): TOpenSSL_C_INT; cdecl; +function Load_EVP_PBE_alg_add(nid: TOpenSSL_C_INT; const cipher: PEVP_CIPHER; const md: PEVP_MD; keygen: PEVP_PBE_KEYGEN): TOpenSSL_C_INT; cdecl; +function Load_EVP_PBE_find(type_: TOpenSSL_C_INT; pbe_nid: TOpenSSL_C_INT; pcnid: POpenSSL_C_INT; pmnid: POpenSSL_C_INT; pkeygen: PPEVP_PBE_KEYGEN): TOpenSSL_C_INT; cdecl; +procedure Load_EVP_PBE_cleanup; cdecl; +function Load_EVP_PBE_get(ptype: POpenSSL_C_INT; ppbe_nid: POpenSSL_C_INT; num: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_asn1_get_count: TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_asn1_get0(idx: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; +function Load_EVP_PKEY_asn1_find(pe: PPENGINE; type_: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; +function Load_EVP_PKEY_asn1_find_str(pe: PPENGINE; const str: PAnsiChar; len: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; +function Load_EVP_PKEY_asn1_add0(const ameth: PEVP_PKEY_ASN1_METHOD): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_asn1_add_alias(to_: TOpenSSL_C_INT; from: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_asn1_get0_info(ppkey_id: POpenSSL_C_INT; pkey_base_id: POpenSSL_C_INT; ppkey_flags: POpenSSL_C_INT; const pinfo: PPAnsiChar; const ppem_str: PPAnsiChar; const ameth: PEVP_PKEY_ASN1_METHOD): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_get0_asn1(const pkey: PEVP_PKEY): PEVP_PKEY_ASN1_METHOD; cdecl; +function Load_EVP_PKEY_asn1_new(id: TOpenSSL_C_INT; flags: TOpenSSL_C_INT; const pem_str: PAnsiChar; const info: PAnsiChar): PEVP_PKEY_ASN1_METHOD; cdecl; +procedure Load_EVP_PKEY_asn1_copy(dst: PEVP_PKEY_ASN1_METHOD; const src: PEVP_PKEY_ASN1_METHOD); cdecl; +procedure Load_EVP_PKEY_asn1_free(ameth: PEVP_PKEY_ASN1_METHOD); cdecl; +procedure Load_EVP_PKEY_asn1_set_public(ameth: PEVP_PKEY_ASN1_METHOD; APub_decode: pub_decode; APub_encode: pub_encode; APub_cmd: pub_cmd; APub_print: pub_print; APkey_size: pkey_size; APkey_bits: pkey_bits); cdecl; +procedure Load_EVP_PKEY_asn1_set_private(ameth: PEVP_PKEY_ASN1_METHOD; APriv_decode: priv_decode; APriv_encode: priv_encode; APriv_print: priv_print); cdecl; +procedure Load_EVP_PKEY_asn1_set_param(ameth: PEVP_PKEY_ASN1_METHOD; AParam_decode: param_decode; AParam_encode: param_encode; AParam_missing: param_missing; AParam_copy: param_copy; AParam_cmp: param_cmp; AParam_print: param_print); cdecl; +procedure Load_EVP_PKEY_asn1_set_free(ameth: PEVP_PKEY_ASN1_METHOD; APkey_free: pkey_free); cdecl; +procedure Load_EVP_PKEY_asn1_set_ctrl(ameth: PEVP_PKEY_ASN1_METHOD; APkey_ctrl: pkey_ctrl); cdecl; +procedure Load_EVP_PKEY_asn1_set_item(ameth: PEVP_PKEY_ASN1_METHOD; AItem_verify: item_verify; AItem_sign: item_sign); cdecl; +procedure Load_EVP_PKEY_asn1_set_siginf(ameth: PEVP_PKEY_ASN1_METHOD; ASiginf_set: siginf_set); cdecl; +procedure Load_EVP_PKEY_asn1_set_check(ameth: PEVP_PKEY_ASN1_METHOD; APkey_check: pkey_check); cdecl; +procedure Load_EVP_PKEY_asn1_set_public_check(ameth: PEVP_PKEY_ASN1_METHOD; APkey_pub_check: pkey_pub_check); cdecl; +procedure Load_EVP_PKEY_asn1_set_param_check(ameth: PEVP_PKEY_ASN1_METHOD; APkey_param_check: pkey_param_check); cdecl; +procedure Load_EVP_PKEY_asn1_set_set_priv_key(ameth: PEVP_PKEY_ASN1_METHOD; ASet_priv_key: set_priv_key); cdecl; +procedure Load_EVP_PKEY_asn1_set_set_pub_key(ameth: PEVP_PKEY_ASN1_METHOD; ASet_pub_key: set_pub_key); cdecl; +procedure Load_EVP_PKEY_asn1_set_get_priv_key(ameth: PEVP_PKEY_ASN1_METHOD; AGet_priv_key: get_priv_key); cdecl; +procedure Load_EVP_PKEY_asn1_set_get_pub_key(ameth: PEVP_PKEY_ASN1_METHOD; AGet_pub_key: get_pub_key); cdecl; +procedure Load_EVP_PKEY_asn1_set_security_bits(ameth: PEVP_PKEY_ASN1_METHOD; APkey_security_bits: pkey_security_bits); cdecl; +function Load_EVP_PKEY_meth_find(type_: TOpenSSL_C_INT): PEVP_PKEY_METHOD; cdecl; +function Load_EVP_PKEY_meth_new(id: TOpenSSL_C_INT; flags: TOpenSSL_C_INT): PEVP_PKEY_METHOD; cdecl; +procedure Load_EVP_PKEY_meth_get0_info(ppkey_id: POpenSSL_C_INT; pflags: POpenSSL_C_INT; const meth: PEVP_PKEY_METHOD); cdecl; +procedure Load_EVP_PKEY_meth_copy(dst: PEVP_PKEY_METHOD; const src: PEVP_PKEY_METHOD); cdecl; +procedure Load_EVP_PKEY_meth_free(pmeth: PEVP_PKEY_METHOD); cdecl; +function Load_EVP_PKEY_meth_add0(const pmeth: PEVP_PKEY_METHOD): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_meth_remove(const pmeth: PEVP_PKEY_METHOD): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_meth_get_count: TOpenSSL_C_SIZET; cdecl; +function Load_EVP_PKEY_meth_get0(idx: TOpenSSL_C_SIZET): PEVP_PKEY_METHOD; cdecl; +function Load_EVP_PKEY_CTX_new(pkey: PEVP_PKEY; e: PENGINE): PEVP_PKEY_CTX; cdecl; +function Load_EVP_PKEY_CTX_new_id(id: TOpenSSL_C_INT; e: PENGINE): PEVP_PKEY_CTX; cdecl; +function Load_EVP_PKEY_CTX_dup(ctx: PEVP_PKEY_CTX): PEVP_PKEY_CTX; cdecl; +procedure Load_EVP_PKEY_CTX_free(ctx: PEVP_PKEY_CTX); cdecl; +function Load_EVP_PKEY_CTX_ctrl(ctx: PEVP_PKEY_CTX; keytype: TOpenSSL_C_INT; optype: TOpenSSL_C_INT; cmd: TOpenSSL_C_INT; p1: TOpenSSL_C_INT; p2: Pointer): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_CTX_ctrl_str(ctx: PEVP_PKEY_CTX; const type_: PAnsiChar; const value: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_CTX_ctrl_uint64(ctx: PEVP_PKEY_CTX; keytype: TOpenSSL_C_INT; optype: TOpenSSL_C_INT; cmd: TOpenSSL_C_INT; value: TOpenSSL_C_UINT64): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_CTX_str2ctrl(ctx: PEVP_PKEY_CTX; cmd: TOpenSSL_C_INT; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_CTX_hex2ctrl(ctx: PEVP_PKEY_CTX; cmd: TOpenSSL_C_INT; const hex: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_CTX_md(ctx: PEVP_PKEY_CTX; optype: TOpenSSL_C_INT; cmd: TOpenSSL_C_INT; const md: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_CTX_get_operation(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +procedure Load_EVP_PKEY_CTX_set0_keygen_info(ctx: PEVP_PKEY_CTX; dat: POpenSSL_C_INT; datlen: TOpenSSL_C_INT); cdecl; +function Load_EVP_PKEY_new_mac_key(type_: TOpenSSL_C_INT; e: PENGINE; const key: PByte; keylen: TOpenSSL_C_INT): PEVP_PKEY; cdecl; +function Load_EVP_PKEY_new_raw_private_key(type_: TOpenSSL_C_INT; e: PENGINE; const priv: PByte; len: TOpenSSL_C_SIZET): PEVP_PKEY; cdecl; +function Load_EVP_PKEY_new_raw_public_key(type_: TOpenSSL_C_INT; e: PENGINE; const pub: PByte; len: TOpenSSL_C_SIZET): PEVP_PKEY; cdecl; +function Load_EVP_PKEY_get_raw_private_key(const pkey: PEVP_PKEY; priv: PByte; len: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_get_raw_public_key(const pkey: PEVP_PKEY; pub: PByte; len: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_new_CMAC_key(e: PENGINE; const priv: PByte; len: TOpenSSL_C_SIZET; const cipher: PEVP_CIPHER): PEVP_PKEY; cdecl; +procedure Load_EVP_PKEY_CTX_set_data(ctx: PEVP_PKEY_CTX; data: Pointer); cdecl; +function Load_EVP_PKEY_CTX_get_data(ctx: PEVP_PKEY_CTX): Pointer; cdecl; +function Load_EVP_PKEY_CTX_get0_pkey(ctx: PEVP_PKEY_CTX): PEVP_PKEY; cdecl; +function Load_EVP_PKEY_CTX_get0_peerkey(ctx: PEVP_PKEY_CTX): PEVP_PKEY; cdecl; +procedure Load_EVP_PKEY_CTX_set_app_data(ctx: PEVP_PKEY_CTX; data: Pointer); cdecl; +function Load_EVP_PKEY_CTX_get_app_data(ctx: PEVP_PKEY_CTX): Pointer; cdecl; +function Load_EVP_PKEY_sign_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_sign(ctx: PEVP_PKEY_CTX; sig: PByte; siglen: POpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_verify_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_verify(ctx: PEVP_PKEY_CTX; const sig: PByte; siglen: TOpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_verify_recover_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_verify_recover(ctx: PEVP_PKEY_CTX; rout: PByte; routlen: POpenSSL_C_SIZET; const sig: PByte; siglen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_encrypt_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_encrypt(ctx: PEVP_PKEY_CTX; out_: PByte; outlen: POpenSSL_C_SIZET; const in_: PByte; inlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_decrypt_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_decrypt(ctx: PEVP_PKEY_CTX; out_: PByte; outlen: POpenSSL_C_SIZET; const in_: PByte; inlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_derive_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_derive_set_peer(ctx: PEVP_PKEY_CTX; peer: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_derive(ctx: PEVP_PKEY_CTX; key: PByte; keylen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_paramgen_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_paramgen(ctx: PEVP_PKEY_CTX; ppkey: PPEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_keygen_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_keygen(ctx: PEVP_PKEY_CTX; ppkey: PPEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_check(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_public_check(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_param_check(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +procedure Load_EVP_PKEY_CTX_set_cb(ctx: PEVP_PKEY_CTX; cb: EVP_PKEY_gen_cb); cdecl; +function Load_EVP_PKEY_CTX_get_cb(ctx: PEVP_PKEY_CTX): EVP_PKEY_gen_cb; cdecl; +function Load_EVP_PKEY_CTX_get_keygen_info(ctx: PEVP_PKEY_CTX; idx: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_EVP_PKEY_meth_set_init(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_init: EVP_PKEY_meth_init); cdecl; +procedure Load_EVP_PKEY_meth_set_copy(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_copy_cb: EVP_PKEY_meth_copy_cb); cdecl; +procedure Load_EVP_PKEY_meth_set_cleanup(pmeth: PEVP_PKEY_METHOD; PEVP_PKEY_meth_cleanup: EVP_PKEY_meth_cleanup); cdecl; +procedure Load_EVP_PKEY_meth_set_paramgen(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_paramgen_init: EVP_PKEY_meth_paramgen_init; AEVP_PKEY_meth_paramgen: EVP_PKEY_meth_paramgen_init); cdecl; +procedure Load_EVP_PKEY_meth_set_keygen(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_keygen_init: EVP_PKEY_meth_keygen_init; AEVP_PKEY_meth_keygen: EVP_PKEY_meth_keygen); cdecl; +procedure Load_EVP_PKEY_meth_set_sign(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_sign_init: EVP_PKEY_meth_sign_init; AEVP_PKEY_meth_sign: EVP_PKEY_meth_sign); cdecl; +procedure Load_EVP_PKEY_meth_set_verify(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verify_init: EVP_PKEY_meth_verify_init; AEVP_PKEY_meth_verify: EVP_PKEY_meth_verify_init); cdecl; +procedure Load_EVP_PKEY_meth_set_verify_recover(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verify_recover_init: EVP_PKEY_meth_verify_recover_init; AEVP_PKEY_meth_verify_recover: EVP_PKEY_meth_verify_recover_init); cdecl; +procedure Load_EVP_PKEY_meth_set_signctx(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_signctx_init: EVP_PKEY_meth_signctx_init; AEVP_PKEY_meth_signctx: EVP_PKEY_meth_signctx); cdecl; +procedure Load_EVP_PKEY_meth_set_verifyctx(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verifyctx_init: EVP_PKEY_meth_verifyctx_init; AEVP_PKEY_meth_verifyctx: EVP_PKEY_meth_verifyctx); cdecl; +procedure Load_EVP_PKEY_meth_set_encrypt(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_encrypt_init: EVP_PKEY_meth_encrypt_init; AEVP_PKEY_meth_encrypt: EVP_PKEY_meth_encrypt); cdecl; +procedure Load_EVP_PKEY_meth_set_decrypt(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_decrypt_init: EVP_PKEY_meth_decrypt_init; AEVP_PKEY_meth_decrypt: EVP_PKEY_meth_decrypt); cdecl; +procedure Load_EVP_PKEY_meth_set_derive(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_derive_init: EVP_PKEY_meth_derive_init; AEVP_PKEY_meth_derive: EVP_PKEY_meth_derive); cdecl; +procedure Load_EVP_PKEY_meth_set_ctrl(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_ctrl: EVP_PKEY_meth_ctrl; AEVP_PKEY_meth_ctrl_str: EVP_PKEY_meth_ctrl_str); cdecl; +procedure Load_EVP_PKEY_meth_set_digestsign(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digestsign: EVP_PKEY_meth_digestsign); cdecl; +procedure Load_EVP_PKEY_meth_set_digestverify(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digestverify: EVP_PKEY_meth_digestverify); cdecl; +procedure Load_EVP_PKEY_meth_set_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_check: EVP_PKEY_meth_check); cdecl; +procedure Load_EVP_PKEY_meth_set_public_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_public_check: EVP_PKEY_meth_public_check); cdecl; +procedure Load_EVP_PKEY_meth_set_param_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_param_check: EVP_PKEY_meth_param_check); cdecl; +procedure Load_EVP_PKEY_meth_set_digest_custom(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digest_custom: EVP_PKEY_meth_digest_custom); cdecl; +procedure Load_EVP_PKEY_meth_get_init(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_init: PEVP_PKEY_meth_init); cdecl; +procedure Load_EVP_PKEY_meth_get_copy(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_copy: PEVP_PKEY_meth_copy); cdecl; +procedure Load_EVP_PKEY_meth_get_cleanup(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_cleanup: PEVP_PKEY_meth_cleanup); cdecl; +procedure Load_EVP_PKEY_meth_get_paramgen(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_paramgen_init: EVP_PKEY_meth_paramgen_init; AEVP_PKEY_meth_paramgen: PEVP_PKEY_meth_paramgen); cdecl; +procedure Load_EVP_PKEY_meth_get_keygen(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_keygen_init: EVP_PKEY_meth_keygen_init; AEVP_PKEY_meth_keygen: PEVP_PKEY_meth_keygen); cdecl; +procedure Load_EVP_PKEY_meth_get_sign(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_sign_init: PEVP_PKEY_meth_sign_init; AEVP_PKEY_meth_sign: PEVP_PKEY_meth_sign); cdecl; +procedure Load_EVP_PKEY_meth_get_verify(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verify_init: PEVP_PKEY_meth_verify_init; AEVP_PKEY_meth_verify: PEVP_PKEY_meth_verify_init); cdecl; +procedure Load_EVP_PKEY_meth_get_verify_recover(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verify_recover_init: PEVP_PKEY_meth_verify_recover_init; AEVP_PKEY_meth_verify_recover: PEVP_PKEY_meth_verify_recover_init); cdecl; +procedure Load_EVP_PKEY_meth_get_signctx(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_signctx_init: PEVP_PKEY_meth_signctx_init; AEVP_PKEY_meth_signctx: PEVP_PKEY_meth_signctx); cdecl; +procedure Load_EVP_PKEY_meth_get_verifyctx(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verifyctx_init: PEVP_PKEY_meth_verifyctx_init; AEVP_PKEY_meth_verifyctx: PEVP_PKEY_meth_verifyctx); cdecl; +procedure Load_EVP_PKEY_meth_get_encrypt(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_encrypt_init: PEVP_PKEY_meth_encrypt_init; AEVP_PKEY_meth_encrypt: PEVP_PKEY_meth_encrypt); cdecl; +procedure Load_EVP_PKEY_meth_get_decrypt(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_decrypt_init: PEVP_PKEY_meth_decrypt_init; AEVP_PKEY_meth_decrypt: PEVP_PKEY_meth_decrypt); cdecl; +procedure Load_EVP_PKEY_meth_get_derive(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_derive_init: PEVP_PKEY_meth_derive_init; AEVP_PKEY_meth_derive: PEVP_PKEY_meth_derive); cdecl; +procedure Load_EVP_PKEY_meth_get_ctrl(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_ctrl: PEVP_PKEY_meth_ctrl; AEVP_PKEY_meth_ctrl_str: PEVP_PKEY_meth_ctrl_str); cdecl; +procedure Load_EVP_PKEY_meth_get_digestsign(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digestsign: PEVP_PKEY_meth_digestsign); cdecl; +procedure Load_EVP_PKEY_meth_get_digestverify(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digestverify: PEVP_PKEY_meth_digestverify); cdecl; +procedure Load_EVP_PKEY_meth_get_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_check: PEVP_PKEY_meth_check); cdecl; +procedure Load_EVP_PKEY_meth_get_public_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_public_check: PEVP_PKEY_meth_public_check); cdecl; +procedure Load_EVP_PKEY_meth_get_param_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_param_check: PEVP_PKEY_meth_param_check); cdecl; +procedure Load_EVP_PKEY_meth_get_digest_custom(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digest_custom: PEVP_PKEY_meth_digest_custom); cdecl; +procedure Load_EVP_add_alg_module; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_OpenSSL_add_all_ciphers; cdecl; +procedure Load_OpenSSL_add_all_digests; cdecl; +procedure Load_EVP_cleanup; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + +var + EVP_MD_meth_new: function (md_type: TOpenSSL_C_INT; pkey_type: TOpenSSL_C_INT): PEVP_MD; cdecl = Load_EVP_MD_meth_new; + EVP_MD_meth_dup: function (const md: PEVP_MD): PEVP_MD; cdecl = Load_EVP_MD_meth_dup; + EVP_MD_meth_free: procedure (md: PEVP_MD); cdecl = Load_EVP_MD_meth_free; + EVP_MD_meth_set_input_blocksize: function (md: PEVP_MD; blocksize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_MD_meth_set_input_blocksize; + EVP_MD_meth_set_result_size: function (md: PEVP_MD; resultsize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_MD_meth_set_result_size; + EVP_MD_meth_set_app_datasize: function (md: PEVP_MD; datasize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_MD_meth_set_app_datasize; + EVP_MD_meth_set_flags: function (md: PEVP_MD; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_EVP_MD_meth_set_flags; + EVP_MD_meth_set_init: function (md: PEVP_MD; init: EVP_MD_meth_init): TOpenSSL_C_INT; cdecl = Load_EVP_MD_meth_set_init; + EVP_MD_meth_set_update: function (md: PEVP_MD; update: EVP_MD_meth_update): TOpenSSL_C_INT; cdecl = Load_EVP_MD_meth_set_update; + EVP_MD_meth_set_final: function (md: PEVP_MD; final_: EVP_MD_meth_final): TOpenSSL_C_INT; cdecl = Load_EVP_MD_meth_set_final; + EVP_MD_meth_set_copy: function (md: PEVP_MD; copy: EVP_MD_meth_copy): TOpenSSL_C_INT; cdecl = Load_EVP_MD_meth_set_copy; + EVP_MD_meth_set_cleanup: function (md: PEVP_MD; cleanup: EVP_MD_meth_cleanup): TOpenSSL_C_INT; cdecl = Load_EVP_MD_meth_set_cleanup; + EVP_MD_meth_set_ctrl: function (md: PEVP_MD; ctrl: EVP_MD_meth_ctrl): TOpenSSL_C_INT; cdecl = Load_EVP_MD_meth_set_ctrl; + EVP_MD_meth_get_input_blocksize: function (const md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_EVP_MD_meth_get_input_blocksize; + EVP_MD_meth_get_result_size: function (const md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_EVP_MD_meth_get_result_size; + EVP_MD_meth_get_app_datasize: function (const md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_EVP_MD_meth_get_app_datasize; + EVP_MD_meth_get_flags: function (const md: PEVP_MD): TOpenSSL_C_ULONG; cdecl = Load_EVP_MD_meth_get_flags; + EVP_MD_meth_get_init: function (const md: PEVP_MD): EVP_MD_meth_init; cdecl = Load_EVP_MD_meth_get_init; + EVP_MD_meth_get_update: function (const md: PEVP_MD): EVP_MD_meth_update; cdecl = Load_EVP_MD_meth_get_update; + EVP_MD_meth_get_final: function (const md: PEVP_MD): EVP_MD_meth_final; cdecl = Load_EVP_MD_meth_get_final; + EVP_MD_meth_get_copy: function (const md: PEVP_MD): EVP_MD_meth_copy; cdecl = Load_EVP_MD_meth_get_copy; + EVP_MD_meth_get_cleanup: function (const md: PEVP_MD): EVP_MD_meth_cleanup; cdecl = Load_EVP_MD_meth_get_cleanup; + EVP_MD_meth_get_ctrl: function (const md: PEVP_MD): EVP_MD_meth_ctrl; cdecl = Load_EVP_MD_meth_get_ctrl; + EVP_CIPHER_meth_new: function (cipher_type: TOpenSSL_C_INT; block_size: TOpenSSL_C_INT; key_len: TOpenSSL_C_INT): PEVP_CIPHER; cdecl = Load_EVP_CIPHER_meth_new; + EVP_CIPHER_meth_dup: function (const cipher: PEVP_CIPHER): PEVP_CIPHER; cdecl = Load_EVP_CIPHER_meth_dup; + EVP_CIPHER_meth_free: procedure (cipher: PEVP_CIPHER); cdecl = Load_EVP_CIPHER_meth_free; + EVP_CIPHER_meth_set_iv_length: function (cipher: PEVP_CIPHER; iv_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_meth_set_iv_length; + EVP_CIPHER_meth_set_flags: function (cipher: PEVP_CIPHER; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_meth_set_flags; + EVP_CIPHER_meth_set_impl_ctx_size: function (cipher: PEVP_CIPHER; ctx_size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_meth_set_impl_ctx_size; + EVP_CIPHER_meth_set_init: function (cipher: PEVP_CIPHER; init: EVP_CIPHER_meth_init): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_meth_set_init; + EVP_CIPHER_meth_set_do_cipher: function (cipher: PEVP_CIPHER; do_cipher: EVP_CIPHER_meth_do_cipher): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_meth_set_do_cipher; + EVP_CIPHER_meth_set_cleanup: function (cipher: PEVP_CIPHER; cleanup: EVP_CIPHER_meth_cleanup): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_meth_set_cleanup; + EVP_CIPHER_meth_set_set_asn1_params: function (cipher: PEVP_CIPHER; set_asn1_parameters: EVP_CIPHER_meth_set_asn1_params): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_meth_set_set_asn1_params; + EVP_CIPHER_meth_set_get_asn1_params: function (cipher: PEVP_CIPHER; get_asn1_parameters: EVP_CIPHER_meth_get_asn1_params): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_meth_set_get_asn1_params; + EVP_CIPHER_meth_set_ctrl: function (cipher: PEVP_CIPHER; ctrl: EVP_CIPHER_meth_ctrl): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_meth_set_ctrl; + EVP_CIPHER_meth_get_init: function (const cipher: PEVP_CIPHER): EVP_CIPHER_meth_init; cdecl = Load_EVP_CIPHER_meth_get_init; + EVP_CIPHER_meth_get_do_cipher: function (const cipher: PEVP_CIPHER): EVP_CIPHER_meth_do_cipher; cdecl = Load_EVP_CIPHER_meth_get_do_cipher; + EVP_CIPHER_meth_get_cleanup: function (const cipher: PEVP_CIPHER): EVP_CIPHER_meth_cleanup; cdecl = Load_EVP_CIPHER_meth_get_cleanup; + EVP_CIPHER_meth_get_set_asn1_params: function (const cipher: PEVP_CIPHER): EVP_CIPHER_meth_set_asn1_params; cdecl = Load_EVP_CIPHER_meth_get_set_asn1_params; + EVP_CIPHER_meth_get_get_asn1_params: function (const cipher: PEVP_CIPHER): EVP_CIPHER_meth_get_asn1_params; cdecl = Load_EVP_CIPHER_meth_get_get_asn1_params; + EVP_CIPHER_meth_get_ctrl: function (const cipher: PEVP_CIPHER): EVP_CIPHER_meth_ctrl; cdecl = Load_EVP_CIPHER_meth_get_ctrl; + EVP_MD_CTX_md: function (ctx: PEVP_MD_CTX): PEVP_MD; cdecl = Load_EVP_MD_CTX_md; + EVP_MD_CTX_update_fn: function (ctx: PEVP_MD_CTX): EVP_MD_CTX_update; cdecl = Load_EVP_MD_CTX_update_fn; + EVP_MD_CTX_set_update_fn: procedure (ctx: PEVP_MD_CTX; update: EVP_MD_CTX_update); cdecl = Load_EVP_MD_CTX_set_update_fn; + EVP_MD_CTX_set_pkey_ctx: procedure (ctx: PEVP_MD_CTX; pctx: PEVP_PKEY_CTX); cdecl = Load_EVP_MD_CTX_set_pkey_ctx; + EVP_CIPHER_impl_ctx_size: function (const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_impl_ctx_size; + EVP_CIPHER_CTX_cipher: function (const ctx: PEVP_CIPHER_CTX): PEVP_CIPHER; cdecl = Load_EVP_CIPHER_CTX_cipher; + EVP_CIPHER_CTX_iv: function (const ctx: PEVP_CIPHER_CTX): PByte; cdecl = Load_EVP_CIPHER_CTX_iv; + EVP_CIPHER_CTX_original_iv: function (const ctx: PEVP_CIPHER_CTX): PByte; cdecl = Load_EVP_CIPHER_CTX_original_iv; + EVP_CIPHER_CTX_iv_noconst: function (ctx: PEVP_CIPHER_CTX): PByte; cdecl = Load_EVP_CIPHER_CTX_iv_noconst; + EVP_CIPHER_CTX_buf_noconst: function (ctx: PEVP_CIPHER_CTX): PByte; cdecl = Load_EVP_CIPHER_CTX_buf_noconst; + EVP_CIPHER_CTX_set_num: procedure (ctx: PEVP_CIPHER_CTX; num: TOpenSSL_C_INT); cdecl = Load_EVP_CIPHER_CTX_set_num; + EVP_CIPHER_CTX_copy: function (out_: PEVP_CIPHER_CTX; const in_: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_CTX_copy; + EVP_CIPHER_CTX_get_app_data: function (const ctx: PEVP_CIPHER_CTX): Pointer; cdecl = Load_EVP_CIPHER_CTX_get_app_data; + EVP_CIPHER_CTX_set_app_data: procedure (ctx: PEVP_CIPHER_CTX; data: Pointer); cdecl = Load_EVP_CIPHER_CTX_set_app_data; + EVP_CIPHER_CTX_get_cipher_data: function (const ctx: PEVP_CIPHER_CTX): Pointer; cdecl = Load_EVP_CIPHER_CTX_get_cipher_data; + EVP_CIPHER_CTX_set_cipher_data: function (ctx: PEVP_CIPHER_CTX; cipher_data: Pointer): Pointer; cdecl = Load_EVP_CIPHER_CTX_set_cipher_data; + EVP_MD_CTX_ctrl: function (ctx: PEVP_MD_CTX; cmd: TOpenSSL_C_INT; p1: TOpenSSL_C_INT; p2: Pointer): TOpenSSL_C_INT; cdecl = Load_EVP_MD_CTX_ctrl; + EVP_MD_CTX_new: function : PEVP_MD_CTX; cdecl = Load_EVP_MD_CTX_new; + EVP_MD_CTX_reset: function (ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_MD_CTX_reset; + EVP_MD_CTX_free: procedure (ctx: PEVP_MD_CTX); cdecl = Load_EVP_MD_CTX_free; + EVP_MD_CTX_copy_ex: function (out_: PEVP_MD_CTX; const in_: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_MD_CTX_copy_ex; + EVP_MD_CTX_set_flags: procedure (ctx: PEVP_MD_CTX; flags: TOpenSSL_C_INT); cdecl = Load_EVP_MD_CTX_set_flags; + EVP_MD_CTX_clear_flags: procedure (ctx: PEVP_MD_CTX; flags: TOpenSSL_C_INT); cdecl = Load_EVP_MD_CTX_clear_flags; + EVP_MD_CTX_test_flags: function (const ctx: PEVP_MD_CTX; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_MD_CTX_test_flags; + EVP_DigestInit_ex: function (ctx: PEVP_MD_CTX; const type_: PEVP_MD; impl: PENGINE): TOpenSSL_C_INT; cdecl = Load_EVP_DigestInit_ex; + EVP_DigestUpdate: function (ctx: PEVP_MD_CTX; const d: Pointer; cnt: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_DigestUpdate; + EVP_DigestFinal_ex: function (ctx: PEVP_MD_CTX; md: PByte; var s: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_EVP_DigestFinal_ex; + EVP_Digest: function (const data: Pointer; count: TOpenSSL_C_SIZET; md: PByte; size: POpenSSL_C_UINT; const type_: PEVP_MD; impl: PENGINE): TOpenSSL_C_INT; cdecl = Load_EVP_Digest; + EVP_MD_CTX_copy: function (out_: PEVP_MD_CTX; const in_: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_MD_CTX_copy; + EVP_DigestInit: function (ctx: PEVP_MD_CTX; const type_: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_EVP_DigestInit; + EVP_DigestFinal: function (ctx: PEVP_MD_CTX; md: PByte; var s: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_EVP_DigestFinal; + EVP_DigestFinalXOF: function (ctx: PEVP_MD_CTX; md: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_DigestFinalXOF; + EVP_read_pw_string: function (buf: PAnsiChar; length: TOpenSSL_C_INT; const prompt: PAnsiChar; verify: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_read_pw_string; + EVP_read_pw_string_min: function (buf: PAnsiChar; minlen: TOpenSSL_C_INT; maxlen: TOpenSSL_C_INT; const prompt: PAnsiChar; verify: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_read_pw_string_min; + EVP_set_pw_prompt: procedure (const prompt: PAnsiChar); cdecl = Load_EVP_set_pw_prompt; + EVP_get_pw_prompt: function : PAnsiChar; cdecl = Load_EVP_get_pw_prompt; + EVP_BytesToKey: function (const type_: PEVP_CIPHER; const md: PEVP_MD; const salt: PByte; const data: PByte; data1: TOpenSSL_C_INT; count: TOpenSSL_C_INT; key: PByte; iv: PByte): TOpenSSL_C_INT; cdecl = Load_EVP_BytesToKey; + EVP_CIPHER_CTX_set_flags: procedure (ctx: PEVP_CIPHER_CTX; flags: TOpenSSL_C_INT); cdecl = Load_EVP_CIPHER_CTX_set_flags; + EVP_CIPHER_CTX_clear_flags: procedure (ctx: PEVP_CIPHER_CTX; flags: TOpenSSL_C_INT); cdecl = Load_EVP_CIPHER_CTX_clear_flags; + EVP_CIPHER_CTX_test_flags: function (const ctx: PEVP_CIPHER_CTX; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_CTX_test_flags; + EVP_EncryptInit: function (ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; const key: PByte; const iv: PByte): TOpenSSL_C_INT; cdecl = Load_EVP_EncryptInit; + EVP_EncryptInit_ex: function (ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; impl: PENGINE; const key: PByte; const iv: PByte): TOpenSSL_C_INT; cdecl = Load_EVP_EncryptInit_ex; + EVP_EncryptUpdate: function (ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in_1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_EncryptUpdate; + EVP_EncryptFinal_ex: function (ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_EncryptFinal_ex; + EVP_EncryptFinal: function (ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_EncryptFinal; + EVP_DecryptInit: function (ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_DecryptInit; + EVP_DecryptInit_ex: function (ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; impl: PENGINE; const key: PByte; const iv: PByte): TOpenSSL_C_INT; cdecl = Load_EVP_DecryptInit_ex; + EVP_DecryptUpdate: function (ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in_1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_DecryptUpdate; + EVP_DecryptFinal: function (ctx: PEVP_CIPHER_CTX; outm: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_DecryptFinal; + EVP_DecryptFinal_ex: function (ctx: PEVP_MD_CTX; outm: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_DecryptFinal_ex; + EVP_CipherInit: function (ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; const key: PByte; const iv: PByte; enc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_CipherInit; + EVP_CipherInit_ex: function (ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; impl: PENGINE; const key: PByte; const iv: PByte; enc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_CipherInit_ex; + EVP_CipherUpdate: function (ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_CipherUpdate; + EVP_CipherFinal: function (ctx: PEVP_CIPHER_CTX; outm: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_CipherFinal; + EVP_CipherFinal_ex: function (ctx: PEVP_CIPHER_CTX; outm: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_CipherFinal_ex; + EVP_SignFinal: function (ctx: PEVP_CIPHER_CTX; md: PByte; s: POpenSSL_C_UINT; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_SignFinal; + EVP_DigestSign: function (ctx: PEVP_CIPHER_CTX; sigret: PByte; siglen: POpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_DigestSign; + EVP_VerifyFinal: function (ctx: PEVP_MD_CTX; const sigbuf: PByte; siglen: TOpenSSL_C_UINT; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_VerifyFinal; + EVP_DigestVerify: function (ctx: PEVP_CIPHER_CTX; const sigret: PByte; siglen: TOpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_DigestVerify; + EVP_DigestSignInit: function (ctx: PEVP_MD_CTX; pctx: PPEVP_PKEY_CTX; const type_: PEVP_MD; e: PENGINE; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_DigestSignInit; + EVP_DigestSignFinal: function (ctx: PEVP_MD_CTX; sigret: PByte; siglen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_DigestSignFinal; + EVP_DigestVerifyInit: function (ctx: PEVP_MD_CTX; ppctx: PPEVP_PKEY_CTX; const type_: PEVP_MD; e: PENGINE; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_DigestVerifyInit; + EVP_DigestVerifyFinal: function (ctx: PEVP_MD_CTX; const sig: PByte; siglen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_DigestVerifyFinal; + EVP_OpenInit: function (ctx: PEVP_CIPHER_CTX; const type_: PEVP_CIPHER; const ek: PByte; ek1: TOpenSSL_C_INT; const iv: PByte; priv: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_OpenInit; + EVP_OpenFinal: function (ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_OpenFinal; + EVP_SealInit: function (ctx: PEVP_CIPHER_CTX; const type_: EVP_CIPHER; ek: PPByte; ek1: POpenSSL_C_INT; iv: PByte; pubk: PPEVP_PKEY; npubk: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_SealInit; + EVP_SealFinal: function (ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_SealFinal; + EVP_ENCODE_CTX_new: function : PEVP_ENCODE_CTX; cdecl = Load_EVP_ENCODE_CTX_new; + EVP_ENCODE_CTX_free: procedure (ctx: PEVP_ENCODE_CTX); cdecl = Load_EVP_ENCODE_CTX_free; + EVP_ENCODE_CTX_copy: function (dctx: PEVP_ENCODE_CTX; sctx: PEVP_ENCODE_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_ENCODE_CTX_copy; + EVP_ENCODE_CTX_num: function (ctx: PEVP_ENCODE_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_ENCODE_CTX_num; + EVP_EncodeInit: procedure (ctx: PEVP_ENCODE_CTX); cdecl = Load_EVP_EncodeInit; + EVP_EncodeUpdate: function (ctx: PEVP_ENCODE_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_EncodeUpdate; + EVP_EncodeFinal: procedure (ctx: PEVP_ENCODE_CTX; out_: PByte; out1: POpenSSL_C_INT); cdecl = Load_EVP_EncodeFinal; + EVP_EncodeBlock: function (t: PByte; const f: PByte; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_EncodeBlock; + EVP_DecodeInit: procedure (ctx: PEVP_ENCODE_CTX); cdecl = Load_EVP_DecodeInit; + EVP_DecodeUpdate: function (ctx: PEVP_ENCODE_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_DecodeUpdate; + EVP_DecodeFinal: function (ctx: PEVP_ENCODE_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_DecodeFinal; + EVP_DecodeBlock: function (t: PByte; const f: PByte; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_DecodeBlock; + EVP_CIPHER_CTX_new: function : PEVP_CIPHER_CTX; cdecl = Load_EVP_CIPHER_CTX_new; + EVP_CIPHER_CTX_reset: function (c: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_CTX_reset; + EVP_CIPHER_CTX_free: procedure (c: PEVP_CIPHER_CTX); cdecl = Load_EVP_CIPHER_CTX_free; + EVP_CIPHER_CTX_set_key_length: function (x: PEVP_CIPHER_CTX; keylen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_CTX_set_key_length; + EVP_CIPHER_CTX_set_padding: function (c: PEVP_CIPHER_CTX; pad: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_CTX_set_padding; + EVP_CIPHER_CTX_ctrl: function (ctx: PEVP_CIPHER_CTX; type_: TOpenSSL_C_INT; arg: TOpenSSL_C_INT; ptr: Pointer): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_CTX_ctrl; + EVP_CIPHER_CTX_rand_key: function (ctx: PEVP_CIPHER_CTX; key: PByte): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_CTX_rand_key; + BIO_f_md: function : PBIO_METHOD; cdecl = Load_BIO_f_md; + BIO_f_base64: function : PBIO_METHOD; cdecl = Load_BIO_f_base64; + BIO_f_cipher: function : PBIO_METHOD; cdecl = Load_BIO_f_cipher; + BIO_f_reliable: function : PBIO_METHOD; cdecl = Load_BIO_f_reliable; + BIO_set_cipher: function (b: PBIO; c: PEVP_CIPHER; const k: PByte; const i: PByte; enc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_BIO_set_cipher; + EVP_md_null: function : PEVP_MD; cdecl = Load_EVP_md_null; +{$IFNDEF OPENSSL_NO_MD2} +{$IFNDEF OPENSSL_NO_MD2} + +{$ENDIF} +{$ENDIF} + +{$IFNDEF OPENSSL_NO_MD4} +{$IFNDEF OPENSSL_NO_MD4} + +{$ENDIF} +{$ENDIF} + +{$IFNDEF OPENSSL_NO_MD5} +{$IFNDEF OPENSSL_NO_MD5} + +{$ENDIF} +{$ENDIF} + + EVP_md5_sha1: function : PEVP_MD; cdecl = Load_EVP_md5_sha1; + EVP_sha1: function : PEVP_MD; cdecl = Load_EVP_sha1; + EVP_sha224: function : PEVP_MD; cdecl = Load_EVP_sha224; + EVP_sha256: function : PEVP_MD; cdecl = Load_EVP_sha256; + EVP_sha384: function : PEVP_MD; cdecl = Load_EVP_sha384; + EVP_sha512: function : PEVP_MD; cdecl = Load_EVP_sha512; + EVP_sha512_224: function : PEVP_MD; cdecl = Load_EVP_sha512_224; + EVP_sha512_256: function : PEVP_MD; cdecl = Load_EVP_sha512_256; + EVP_sha3_224: function : PEVP_MD; cdecl = Load_EVP_sha3_224; + EVP_sha3_256: function : PEVP_MD; cdecl = Load_EVP_sha3_256; + EVP_sha3_384: function : PEVP_MD; cdecl = Load_EVP_sha3_384; + EVP_sha3_512: function : PEVP_MD; cdecl = Load_EVP_sha3_512; + EVP_shake128: function : PEVP_MD; cdecl = Load_EVP_shake128; + EVP_shake256: function : PEVP_MD; cdecl = Load_EVP_shake256; + EVP_enc_null: function : PEVP_CIPHER; cdecl = Load_EVP_enc_null; + EVP_des_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_des_ecb; + EVP_des_ede: function : PEVP_CIPHER; cdecl = Load_EVP_des_ede; + EVP_des_ede3: function : PEVP_CIPHER; cdecl = Load_EVP_des_ede3; + EVP_des_ede_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_des_ede_ecb; + EVP_des_ede3_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_des_ede3_ecb; + EVP_des_cfb64: function : PEVP_CIPHER; cdecl = Load_EVP_des_cfb64; + EVP_des_cfb1: function : PEVP_CIPHER; cdecl = Load_EVP_des_cfb1; + EVP_des_cfb8: function : PEVP_CIPHER; cdecl = Load_EVP_des_cfb8; + EVP_des_ede_cfb64: function : PEVP_CIPHER; cdecl = Load_EVP_des_ede_cfb64; + EVP_des_ede3_cfb64: function : PEVP_CIPHER; cdecl = Load_EVP_des_ede3_cfb64; + EVP_des_ede3_cfb1: function : PEVP_CIPHER; cdecl = Load_EVP_des_ede3_cfb1; + EVP_des_ede3_cfb8: function : PEVP_CIPHER; cdecl = Load_EVP_des_ede3_cfb8; + EVP_des_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_des_ofb; + EVP_des_ede_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_des_ede_ofb; + EVP_des_ede3_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_des_ede3_ofb; + EVP_des_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_des_cbc; + EVP_des_ede_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_des_ede_cbc; + EVP_des_ede3_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_des_ede3_cbc; + EVP_desx_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_desx_cbc; + EVP_des_ede3_wrap: function : PEVP_CIPHER; cdecl = Load_EVP_des_ede3_wrap; + EVP_rc4: function : PEVP_CIPHER; cdecl = Load_EVP_rc4; + EVP_rc4_40: function : PEVP_CIPHER; cdecl = Load_EVP_rc4_40; + EVP_rc2_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_rc2_ecb; + EVP_rc2_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_rc2_cbc; + EVP_rc2_40_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_rc2_40_cbc; + EVP_rc2_64_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_rc2_64_cbc; + EVP_rc2_cfb64: function : PEVP_CIPHER; cdecl = Load_EVP_rc2_cfb64; + EVP_rc2_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_rc2_ofb; + EVP_bf_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_bf_ecb; + EVP_bf_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_bf_cbc; + EVP_bf_cfb64: function : PEVP_CIPHER; cdecl = Load_EVP_bf_cfb64; + EVP_bf_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_bf_ofb; + EVP_cast5_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_cast5_ecb; + EVP_cast5_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_cast5_cbc; + EVP_cast5_cfb64: function : PEVP_CIPHER; cdecl = Load_EVP_cast5_cfb64; + EVP_cast5_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_cast5_ofb; + EVP_aes_128_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_aes_128_ecb; + EVP_aes_128_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_aes_128_cbc; + EVP_aes_128_cfb1: function : PEVP_CIPHER; cdecl = Load_EVP_aes_128_cfb1; + EVP_aes_128_cfb8: function : PEVP_CIPHER; cdecl = Load_EVP_aes_128_cfb8; + EVP_aes_128_cfb128: function : PEVP_CIPHER; cdecl = Load_EVP_aes_128_cfb128; + EVP_aes_128_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_aes_128_ofb; + EVP_aes_128_ctr: function : PEVP_CIPHER; cdecl = Load_EVP_aes_128_ctr; + EVP_aes_128_ccm: function : PEVP_CIPHER; cdecl = Load_EVP_aes_128_ccm; + EVP_aes_128_gcm: function : PEVP_CIPHER; cdecl = Load_EVP_aes_128_gcm; + EVP_aes_128_xts: function : PEVP_CIPHER; cdecl = Load_EVP_aes_128_xts; + EVP_aes_128_wrap: function : PEVP_CIPHER; cdecl = Load_EVP_aes_128_wrap; + EVP_aes_128_wrap_pad: function : PEVP_CIPHER; cdecl = Load_EVP_aes_128_wrap_pad; + EVP_aes_128_ocb: function : PEVP_CIPHER; cdecl = Load_EVP_aes_128_ocb; + EVP_aes_192_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_aes_192_ecb; + EVP_aes_192_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_aes_192_cbc; + EVP_aes_192_cfb1: function : PEVP_CIPHER; cdecl = Load_EVP_aes_192_cfb1; + EVP_aes_192_cfb8: function : PEVP_CIPHER; cdecl = Load_EVP_aes_192_cfb8; + EVP_aes_192_cfb128: function : PEVP_CIPHER; cdecl = Load_EVP_aes_192_cfb128; + EVP_aes_192_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_aes_192_ofb; + EVP_aes_192_ctr: function : PEVP_CIPHER; cdecl = Load_EVP_aes_192_ctr; + EVP_aes_192_ccm: function : PEVP_CIPHER; cdecl = Load_EVP_aes_192_ccm; + EVP_aes_192_gcm: function : PEVP_CIPHER; cdecl = Load_EVP_aes_192_gcm; + EVP_aes_192_wrap: function : PEVP_CIPHER; cdecl = Load_EVP_aes_192_wrap; + EVP_aes_192_wrap_pad: function : PEVP_CIPHER; cdecl = Load_EVP_aes_192_wrap_pad; + EVP_aes_192_ocb: function : PEVP_CIPHER; cdecl = Load_EVP_aes_192_ocb; + EVP_aes_256_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_aes_256_ecb; + EVP_aes_256_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_aes_256_cbc; + EVP_aes_256_cfb1: function : PEVP_CIPHER; cdecl = Load_EVP_aes_256_cfb1; + EVP_aes_256_cfb8: function : PEVP_CIPHER; cdecl = Load_EVP_aes_256_cfb8; + EVP_aes_256_cfb128: function : PEVP_CIPHER; cdecl = Load_EVP_aes_256_cfb128; + EVP_aes_256_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_aes_256_ofb; + EVP_aes_256_ctr: function : PEVP_CIPHER; cdecl = Load_EVP_aes_256_ctr; + EVP_aes_256_ccm: function : PEVP_CIPHER; cdecl = Load_EVP_aes_256_ccm; + EVP_aes_256_gcm: function : PEVP_CIPHER; cdecl = Load_EVP_aes_256_gcm; + EVP_aes_256_xts: function : PEVP_CIPHER; cdecl = Load_EVP_aes_256_xts; + EVP_aes_256_wrap: function : PEVP_CIPHER; cdecl = Load_EVP_aes_256_wrap; + EVP_aes_256_wrap_pad: function : PEVP_CIPHER; cdecl = Load_EVP_aes_256_wrap_pad; + EVP_aes_256_ocb: function : PEVP_CIPHER; cdecl = Load_EVP_aes_256_ocb; + EVP_aes_128_cbc_hmac_sha1: function : PEVP_CIPHER; cdecl = Load_EVP_aes_128_cbc_hmac_sha1; + EVP_aes_256_cbc_hmac_sha1: function : PEVP_CIPHER; cdecl = Load_EVP_aes_256_cbc_hmac_sha1; + EVP_aes_128_cbc_hmac_sha256: function : PEVP_CIPHER; cdecl = Load_EVP_aes_128_cbc_hmac_sha256; + EVP_aes_256_cbc_hmac_sha256: function : PEVP_CIPHER; cdecl = Load_EVP_aes_256_cbc_hmac_sha256; + EVP_aria_128_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_aria_128_ecb; + EVP_aria_128_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_aria_128_cbc; + EVP_aria_128_cfb1: function : PEVP_CIPHER; cdecl = Load_EVP_aria_128_cfb1; + EVP_aria_128_cfb8: function : PEVP_CIPHER; cdecl = Load_EVP_aria_128_cfb8; + EVP_aria_128_cfb128: function : PEVP_CIPHER; cdecl = Load_EVP_aria_128_cfb128; + EVP_aria_128_ctr: function : PEVP_CIPHER; cdecl = Load_EVP_aria_128_ctr; + EVP_aria_128_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_aria_128_ofb; + EVP_aria_128_gcm: function : PEVP_CIPHER; cdecl = Load_EVP_aria_128_gcm; + EVP_aria_128_ccm: function : PEVP_CIPHER; cdecl = Load_EVP_aria_128_ccm; + EVP_aria_192_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_aria_192_ecb; + EVP_aria_192_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_aria_192_cbc; + EVP_aria_192_cfb1: function : PEVP_CIPHER; cdecl = Load_EVP_aria_192_cfb1; + EVP_aria_192_cfb8: function : PEVP_CIPHER; cdecl = Load_EVP_aria_192_cfb8; + EVP_aria_192_cfb128: function : PEVP_CIPHER; cdecl = Load_EVP_aria_192_cfb128; + EVP_aria_192_ctr: function : PEVP_CIPHER; cdecl = Load_EVP_aria_192_ctr; + EVP_aria_192_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_aria_192_ofb; + EVP_aria_192_gcm: function : PEVP_CIPHER; cdecl = Load_EVP_aria_192_gcm; + EVP_aria_192_ccm: function : PEVP_CIPHER; cdecl = Load_EVP_aria_192_ccm; + EVP_aria_256_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_aria_256_ecb; + EVP_aria_256_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_aria_256_cbc; + EVP_aria_256_cfb1: function : PEVP_CIPHER; cdecl = Load_EVP_aria_256_cfb1; + EVP_aria_256_cfb8: function : PEVP_CIPHER; cdecl = Load_EVP_aria_256_cfb8; + EVP_aria_256_cfb128: function : PEVP_CIPHER; cdecl = Load_EVP_aria_256_cfb128; + EVP_aria_256_ctr: function : PEVP_CIPHER; cdecl = Load_EVP_aria_256_ctr; + EVP_aria_256_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_aria_256_ofb; + EVP_aria_256_gcm: function : PEVP_CIPHER; cdecl = Load_EVP_aria_256_gcm; + EVP_aria_256_ccm: function : PEVP_CIPHER; cdecl = Load_EVP_aria_256_ccm; + EVP_camellia_128_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_128_ecb; + EVP_camellia_128_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_128_cbc; + EVP_camellia_128_cfb1: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_128_cfb1; + EVP_camellia_128_cfb8: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_128_cfb8; + EVP_camellia_128_cfb128: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_128_cfb128; + EVP_camellia_128_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_128_ofb; + EVP_camellia_128_ctr: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_128_ctr; + EVP_camellia_192_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_192_ecb; + EVP_camellia_192_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_192_cbc; + EVP_camellia_192_cfb1: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_192_cfb1; + EVP_camellia_192_cfb8: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_192_cfb8; + EVP_camellia_192_cfb128: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_192_cfb128; + EVP_camellia_192_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_192_ofb; + EVP_camellia_192_ctr: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_192_ctr; + EVP_camellia_256_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_256_ecb; + EVP_camellia_256_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_256_cbc; + EVP_camellia_256_cfb1: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_256_cfb1; + EVP_camellia_256_cfb8: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_256_cfb8; + EVP_camellia_256_cfb128: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_256_cfb128; + EVP_camellia_256_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_256_ofb; + EVP_camellia_256_ctr: function : PEVP_CIPHER; cdecl = Load_EVP_camellia_256_ctr; + EVP_chacha20: function : PEVP_CIPHER; cdecl = Load_EVP_chacha20; + EVP_chacha20_poly1305: function : PEVP_CIPHER; cdecl = Load_EVP_chacha20_poly1305; + EVP_seed_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_seed_ecb; + EVP_seed_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_seed_cbc; + EVP_seed_cfb128: function : PEVP_CIPHER; cdecl = Load_EVP_seed_cfb128; + EVP_seed_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_seed_ofb; + EVP_sm4_ecb: function : PEVP_CIPHER; cdecl = Load_EVP_sm4_ecb; + EVP_sm4_cbc: function : PEVP_CIPHER; cdecl = Load_EVP_sm4_cbc; + EVP_sm4_cfb128: function : PEVP_CIPHER; cdecl = Load_EVP_sm4_cfb128; + EVP_sm4_ofb: function : PEVP_CIPHER; cdecl = Load_EVP_sm4_ofb; + EVP_sm4_ctr: function : PEVP_CIPHER; cdecl = Load_EVP_sm4_ctr; + EVP_add_cipher: function (const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl = Load_EVP_add_cipher; + EVP_add_digest: function (const digest: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_EVP_add_digest; + EVP_get_cipherbyname: function (const name: PAnsiChar): PEVP_CIPHER; cdecl = Load_EVP_get_cipherbyname; + EVP_get_digestbyname: function (const name: PAnsiChar): PEVP_MD; cdecl = Load_EVP_get_digestbyname; + EVP_CIPHER_do_all: procedure (AFn: fn; arg: Pointer); cdecl = Load_EVP_CIPHER_do_all; + EVP_CIPHER_do_all_sorted: procedure (AFn: fn; arg: Pointer); cdecl = Load_EVP_CIPHER_do_all_sorted; + EVP_MD_do_all: procedure (AFn: fn; arg: Pointer); cdecl = Load_EVP_MD_do_all; + EVP_MD_do_all_sorted: procedure (AFn: fn; arg: Pointer); cdecl = Load_EVP_MD_do_all_sorted; + EVP_PKEY_decrypt_old: function (dec_key: PByte; const enc_key: PByte; enc_key_len: TOpenSSL_C_INT; private_key: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_decrypt_old; + EVP_PKEY_encrypt_old: function (dec_key: PByte; const enc_key: PByte; key_len: TOpenSSL_C_INT; pub_key: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_encrypt_old; + EVP_PKEY_type: function (type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_type; + EVP_PKEY_get_base_id: function (const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_get_base_id; + EVP_PKEY_get_security_bits: function (const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_get_security_bits; + EVP_PKEY_get_size: function (const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_get_size; + EVP_PKEY_set_type: function (pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_set_type; + EVP_PKEY_set_type_str: function (pkey: PEVP_PKEY; const str: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_set_type_str; + EVP_PKEY_set1_engine: function (pkey: PEVP_PKEY; e: PENGINE): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_set1_engine; + EVP_PKEY_get0_engine: function (const pkey: PEVP_PKEY): PENGINE; cdecl = Load_EVP_PKEY_get0_engine; + EVP_PKEY_assign: function (pkey: PEVP_PKEY; type_: TOpenSSL_C_INT; key: Pointer): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_assign; + EVP_PKEY_get0: function (const pkey: PEVP_PKEY): Pointer; cdecl = Load_EVP_PKEY_get0; + EVP_PKEY_get0_hmac: function (const pkey: PEVP_PKEY; len: POpenSSL_C_SIZET): PByte; cdecl = Load_EVP_PKEY_get0_hmac; + EVP_PKEY_get0_poly1305: function (const pkey: PEVP_PKEY; len: POpenSSL_C_SIZET): PByte; cdecl = Load_EVP_PKEY_get0_poly1305; + EVP_PKEY_get0_siphash: function (const pkey: PEVP_PKEY; len: POpenSSL_C_SIZET): PByte; cdecl = Load_EVP_PKEY_get0_siphash; + EVP_PKEY_set1_RSA: function (pkey: PEVP_PKEY; key: PRSA): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_set1_RSA; + EVP_PKEY_get0_RSA: function (pkey: PEVP_PKEY): PRSA; cdecl = Load_EVP_PKEY_get0_RSA; + EVP_PKEY_get1_RSA: function (pkey: PEVP_PKEY): PRSA; cdecl = Load_EVP_PKEY_get1_RSA; + EVP_PKEY_set1_DSA: function (pkey: PEVP_PKEY; key: PDSA): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_set1_DSA; + EVP_PKEY_get0_DSA: function (pkey: PEVP_PKEY): PDSA; cdecl = Load_EVP_PKEY_get0_DSA; + EVP_PKEY_get1_DSA: function (pkey: PEVP_PKEY): PDSA; cdecl = Load_EVP_PKEY_get1_DSA; + EVP_PKEY_set1_DH: function (pkey: PEVP_PKEY; key: PDH): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_set1_DH; + EVP_PKEY_get0_DH: function (pkey: PEVP_PKEY): PDH; cdecl = Load_EVP_PKEY_get0_DH; + EVP_PKEY_get1_DH: function (pkey: PEVP_PKEY): PDH; cdecl = Load_EVP_PKEY_get1_DH; + EVP_PKEY_set1_EC_KEY: function (pkey: PEVP_PKEY; key: PEC_KEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_set1_EC_KEY; + EVP_PKEY_get0_EC_KEY: function (pkey: PEVP_PKEY): PEC_KEY; cdecl = Load_EVP_PKEY_get0_EC_KEY; + EVP_PKEY_get1_EC_KEY: function (pkey: PEVP_PKEY): PEC_KEY; cdecl = Load_EVP_PKEY_get1_EC_KEY; + EVP_PKEY_new: function : PEVP_PKEY; cdecl = Load_EVP_PKEY_new; + EVP_PKEY_up_ref: function (pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_up_ref; + EVP_PKEY_free: procedure (pkey: PEVP_PKEY); cdecl = Load_EVP_PKEY_free; + d2i_PublicKey: function (type_: TOpenSSL_C_INT; a: PPEVP_PKEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl = Load_d2i_PublicKey; + i2d_PublicKey: function (a: PEVP_PKEY; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_PublicKey; + d2i_PrivateKey: function (type_: TOpenSSL_C_INT; a: PEVP_PKEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl = Load_d2i_PrivateKey; + d2i_AutoPrivateKey: function (a: PPEVP_PKEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl = Load_d2i_AutoPrivateKey; + i2d_PrivateKey: function (a: PEVP_PKEY; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_PrivateKey; + EVP_PKEY_copy_parameters: function (to_: PEVP_PKEY; const from: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_copy_parameters; + EVP_PKEY_missing_parameters: function (const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_missing_parameters; + EVP_PKEY_save_parameters: function (pkey: PEVP_PKEY; mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_save_parameters; + EVP_PKEY_cmp_parameters: function (const a: PEVP_PKEY; const b: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_cmp_parameters; + EVP_PKEY_cmp: function (const a: PEVP_PKEY; const b: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_cmp; + EVP_PKEY_print_public: function (out_: PBIO; const pkey: PEVP_PKEY; indent: TOpenSSL_C_INT; pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_print_public; + EVP_PKEY_print_private: function (out_: PBIO; const pkey: PEVP_PKEY; indent: TOpenSSL_C_INT; pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_print_private; + EVP_PKEY_print_params: function (out_: PBIO; const pkey: PEVP_PKEY; indent: TOpenSSL_C_INT; pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_print_params; + EVP_PKEY_get_default_digest_nid: function (pkey: PEVP_PKEY; pnid: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_get_default_digest_nid; + EVP_CIPHER_param_to_asn1: function (c: PEVP_CIPHER_CTX; type_: PASN1_TYPE): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_param_to_asn1; + EVP_CIPHER_asn1_to_param: function (c: PEVP_CIPHER_CTX; type_: PASN1_TYPE): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_asn1_to_param; + EVP_CIPHER_set_asn1_iv: function (c: PEVP_CIPHER_CTX; type_: PASN1_TYPE): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_set_asn1_iv; + EVP_CIPHER_get_asn1_iv: function (c: PEVP_CIPHER_CTX; type_: PASN1_TYPE): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_get_asn1_iv; + PKCS5_PBE_keyivgen: function (ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const cipher: PEVP_CIPHER; const md: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS5_PBE_keyivgen; + PKCS5_PBKDF2_HMAC_SHA1: function (const pass: PAnsiChar; passlen: TOpenSSL_C_INT; const salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; keylen: TOpenSSL_C_INT; out_: PByte): TOpenSSL_C_INT; cdecl = Load_PKCS5_PBKDF2_HMAC_SHA1; + PKCS5_PBKDF2_HMAC: function (const pass: PAnsiChar; passlen: TOpenSSL_C_INT; const salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; const digest: PEVP_MD; keylen: TOpenSSL_C_INT; out_: PByte): TOpenSSL_C_INT; cdecl = Load_PKCS5_PBKDF2_HMAC; + PKCS5_v2_PBE_keyivgen: function (ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const cipher: PEVP_CIPHER; const md: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS5_v2_PBE_keyivgen; + EVP_PBE_scrypt: function (const pass: PAnsiChar; passlen: TOpenSSL_C_SIZET; const salt: PByte; saltlen: TOpenSSL_C_SIZET; N: TOpenSSL_C_UINT64; r: TOpenSSL_C_UINT64; p: TOpenSSL_C_UINT64; maxmem: TOpenSSL_C_UINT64; key: PByte; keylen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_PBE_scrypt; + PKCS5_v2_scrypt_keyivgen: function (ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const c: PEVP_CIPHER; const md: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS5_v2_scrypt_keyivgen; + PKCS5_PBE_add: procedure ; cdecl = Load_PKCS5_PBE_add; + EVP_PBE_CipherInit: function (pbe_obj: PASN1_OBJECT; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; ctx: PEVP_CIPHER_CTX; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_PBE_CipherInit; + EVP_PBE_alg_add_type: function (pbe_type: TOpenSSL_C_INT; pbe_nid: TOpenSSL_C_INT; cipher_nid: TOpenSSL_C_INT; md_nid: TOpenSSL_C_INT; keygen: PEVP_PBE_KEYGEN): TOpenSSL_C_INT; cdecl = Load_EVP_PBE_alg_add_type; + EVP_PBE_alg_add: function (nid: TOpenSSL_C_INT; const cipher: PEVP_CIPHER; const md: PEVP_MD; keygen: PEVP_PBE_KEYGEN): TOpenSSL_C_INT; cdecl = Load_EVP_PBE_alg_add; + EVP_PBE_find: function (type_: TOpenSSL_C_INT; pbe_nid: TOpenSSL_C_INT; pcnid: POpenSSL_C_INT; pmnid: POpenSSL_C_INT; pkeygen: PPEVP_PBE_KEYGEN): TOpenSSL_C_INT; cdecl = Load_EVP_PBE_find; + EVP_PBE_cleanup: procedure ; cdecl = Load_EVP_PBE_cleanup; + EVP_PBE_get: function (ptype: POpenSSL_C_INT; ppbe_nid: POpenSSL_C_INT; num: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_PBE_get; + EVP_PKEY_asn1_get_count: function : TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_asn1_get_count; + EVP_PKEY_asn1_get0: function (idx: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl = Load_EVP_PKEY_asn1_get0; + EVP_PKEY_asn1_find: function (pe: PPENGINE; type_: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl = Load_EVP_PKEY_asn1_find; + EVP_PKEY_asn1_find_str: function (pe: PPENGINE; const str: PAnsiChar; len: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl = Load_EVP_PKEY_asn1_find_str; + EVP_PKEY_asn1_add0: function (const ameth: PEVP_PKEY_ASN1_METHOD): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_asn1_add0; + EVP_PKEY_asn1_add_alias: function (to_: TOpenSSL_C_INT; from: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_asn1_add_alias; + EVP_PKEY_asn1_get0_info: function (ppkey_id: POpenSSL_C_INT; pkey_base_id: POpenSSL_C_INT; ppkey_flags: POpenSSL_C_INT; const pinfo: PPAnsiChar; const ppem_str: PPAnsiChar; const ameth: PEVP_PKEY_ASN1_METHOD): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_asn1_get0_info; + EVP_PKEY_get0_asn1: function (const pkey: PEVP_PKEY): PEVP_PKEY_ASN1_METHOD; cdecl = Load_EVP_PKEY_get0_asn1; + EVP_PKEY_asn1_new: function (id: TOpenSSL_C_INT; flags: TOpenSSL_C_INT; const pem_str: PAnsiChar; const info: PAnsiChar): PEVP_PKEY_ASN1_METHOD; cdecl = Load_EVP_PKEY_asn1_new; + EVP_PKEY_asn1_copy: procedure (dst: PEVP_PKEY_ASN1_METHOD; const src: PEVP_PKEY_ASN1_METHOD); cdecl = Load_EVP_PKEY_asn1_copy; + EVP_PKEY_asn1_free: procedure (ameth: PEVP_PKEY_ASN1_METHOD); cdecl = Load_EVP_PKEY_asn1_free; + EVP_PKEY_asn1_set_public: procedure (ameth: PEVP_PKEY_ASN1_METHOD; APub_decode: pub_decode; APub_encode: pub_encode; APub_cmd: pub_cmd; APub_print: pub_print; APkey_size: pkey_size; APkey_bits: pkey_bits); cdecl = Load_EVP_PKEY_asn1_set_public; + EVP_PKEY_asn1_set_private: procedure (ameth: PEVP_PKEY_ASN1_METHOD; APriv_decode: priv_decode; APriv_encode: priv_encode; APriv_print: priv_print); cdecl = Load_EVP_PKEY_asn1_set_private; + EVP_PKEY_asn1_set_param: procedure (ameth: PEVP_PKEY_ASN1_METHOD; AParam_decode: param_decode; AParam_encode: param_encode; AParam_missing: param_missing; AParam_copy: param_copy; AParam_cmp: param_cmp; AParam_print: param_print); cdecl = Load_EVP_PKEY_asn1_set_param; + EVP_PKEY_asn1_set_free: procedure (ameth: PEVP_PKEY_ASN1_METHOD; APkey_free: pkey_free); cdecl = Load_EVP_PKEY_asn1_set_free; + EVP_PKEY_asn1_set_ctrl: procedure (ameth: PEVP_PKEY_ASN1_METHOD; APkey_ctrl: pkey_ctrl); cdecl = Load_EVP_PKEY_asn1_set_ctrl; + EVP_PKEY_asn1_set_item: procedure (ameth: PEVP_PKEY_ASN1_METHOD; AItem_verify: item_verify; AItem_sign: item_sign); cdecl = Load_EVP_PKEY_asn1_set_item; + EVP_PKEY_asn1_set_siginf: procedure (ameth: PEVP_PKEY_ASN1_METHOD; ASiginf_set: siginf_set); cdecl = Load_EVP_PKEY_asn1_set_siginf; + EVP_PKEY_asn1_set_check: procedure (ameth: PEVP_PKEY_ASN1_METHOD; APkey_check: pkey_check); cdecl = Load_EVP_PKEY_asn1_set_check; + EVP_PKEY_asn1_set_public_check: procedure (ameth: PEVP_PKEY_ASN1_METHOD; APkey_pub_check: pkey_pub_check); cdecl = Load_EVP_PKEY_asn1_set_public_check; + EVP_PKEY_asn1_set_param_check: procedure (ameth: PEVP_PKEY_ASN1_METHOD; APkey_param_check: pkey_param_check); cdecl = Load_EVP_PKEY_asn1_set_param_check; + EVP_PKEY_asn1_set_set_priv_key: procedure (ameth: PEVP_PKEY_ASN1_METHOD; ASet_priv_key: set_priv_key); cdecl = Load_EVP_PKEY_asn1_set_set_priv_key; + EVP_PKEY_asn1_set_set_pub_key: procedure (ameth: PEVP_PKEY_ASN1_METHOD; ASet_pub_key: set_pub_key); cdecl = Load_EVP_PKEY_asn1_set_set_pub_key; + EVP_PKEY_asn1_set_get_priv_key: procedure (ameth: PEVP_PKEY_ASN1_METHOD; AGet_priv_key: get_priv_key); cdecl = Load_EVP_PKEY_asn1_set_get_priv_key; + EVP_PKEY_asn1_set_get_pub_key: procedure (ameth: PEVP_PKEY_ASN1_METHOD; AGet_pub_key: get_pub_key); cdecl = Load_EVP_PKEY_asn1_set_get_pub_key; + EVP_PKEY_asn1_set_security_bits: procedure (ameth: PEVP_PKEY_ASN1_METHOD; APkey_security_bits: pkey_security_bits); cdecl = Load_EVP_PKEY_asn1_set_security_bits; + EVP_PKEY_meth_find: function (type_: TOpenSSL_C_INT): PEVP_PKEY_METHOD; cdecl = Load_EVP_PKEY_meth_find; + EVP_PKEY_meth_new: function (id: TOpenSSL_C_INT; flags: TOpenSSL_C_INT): PEVP_PKEY_METHOD; cdecl = Load_EVP_PKEY_meth_new; + EVP_PKEY_meth_get0_info: procedure (ppkey_id: POpenSSL_C_INT; pflags: POpenSSL_C_INT; const meth: PEVP_PKEY_METHOD); cdecl = Load_EVP_PKEY_meth_get0_info; + EVP_PKEY_meth_copy: procedure (dst: PEVP_PKEY_METHOD; const src: PEVP_PKEY_METHOD); cdecl = Load_EVP_PKEY_meth_copy; + EVP_PKEY_meth_free: procedure (pmeth: PEVP_PKEY_METHOD); cdecl = Load_EVP_PKEY_meth_free; + EVP_PKEY_meth_add0: function (const pmeth: PEVP_PKEY_METHOD): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_meth_add0; + EVP_PKEY_meth_remove: function (const pmeth: PEVP_PKEY_METHOD): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_meth_remove; + EVP_PKEY_meth_get_count: function : TOpenSSL_C_SIZET; cdecl = Load_EVP_PKEY_meth_get_count; + EVP_PKEY_meth_get0: function (idx: TOpenSSL_C_SIZET): PEVP_PKEY_METHOD; cdecl = Load_EVP_PKEY_meth_get0; + EVP_PKEY_CTX_new: function (pkey: PEVP_PKEY; e: PENGINE): PEVP_PKEY_CTX; cdecl = Load_EVP_PKEY_CTX_new; + EVP_PKEY_CTX_new_id: function (id: TOpenSSL_C_INT; e: PENGINE): PEVP_PKEY_CTX; cdecl = Load_EVP_PKEY_CTX_new_id; + EVP_PKEY_CTX_dup: function (ctx: PEVP_PKEY_CTX): PEVP_PKEY_CTX; cdecl = Load_EVP_PKEY_CTX_dup; + EVP_PKEY_CTX_free: procedure (ctx: PEVP_PKEY_CTX); cdecl = Load_EVP_PKEY_CTX_free; + EVP_PKEY_CTX_ctrl: function (ctx: PEVP_PKEY_CTX; keytype: TOpenSSL_C_INT; optype: TOpenSSL_C_INT; cmd: TOpenSSL_C_INT; p1: TOpenSSL_C_INT; p2: Pointer): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_CTX_ctrl; + EVP_PKEY_CTX_ctrl_str: function (ctx: PEVP_PKEY_CTX; const type_: PAnsiChar; const value: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_CTX_ctrl_str; + EVP_PKEY_CTX_ctrl_uint64: function (ctx: PEVP_PKEY_CTX; keytype: TOpenSSL_C_INT; optype: TOpenSSL_C_INT; cmd: TOpenSSL_C_INT; value: TOpenSSL_C_UINT64): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_CTX_ctrl_uint64; + EVP_PKEY_CTX_str2ctrl: function (ctx: PEVP_PKEY_CTX; cmd: TOpenSSL_C_INT; const str: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_CTX_str2ctrl; + EVP_PKEY_CTX_hex2ctrl: function (ctx: PEVP_PKEY_CTX; cmd: TOpenSSL_C_INT; const hex: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_CTX_hex2ctrl; + EVP_PKEY_CTX_md: function (ctx: PEVP_PKEY_CTX; optype: TOpenSSL_C_INT; cmd: TOpenSSL_C_INT; const md: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_CTX_md; + EVP_PKEY_CTX_get_operation: function (ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_CTX_get_operation; + EVP_PKEY_CTX_set0_keygen_info: procedure (ctx: PEVP_PKEY_CTX; dat: POpenSSL_C_INT; datlen: TOpenSSL_C_INT); cdecl = Load_EVP_PKEY_CTX_set0_keygen_info; + EVP_PKEY_new_mac_key: function (type_: TOpenSSL_C_INT; e: PENGINE; const key: PByte; keylen: TOpenSSL_C_INT): PEVP_PKEY; cdecl = Load_EVP_PKEY_new_mac_key; + EVP_PKEY_new_raw_private_key: function (type_: TOpenSSL_C_INT; e: PENGINE; const priv: PByte; len: TOpenSSL_C_SIZET): PEVP_PKEY; cdecl = Load_EVP_PKEY_new_raw_private_key; + EVP_PKEY_new_raw_public_key: function (type_: TOpenSSL_C_INT; e: PENGINE; const pub: PByte; len: TOpenSSL_C_SIZET): PEVP_PKEY; cdecl = Load_EVP_PKEY_new_raw_public_key; + EVP_PKEY_get_raw_private_key: function (const pkey: PEVP_PKEY; priv: PByte; len: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_get_raw_private_key; + EVP_PKEY_get_raw_public_key: function (const pkey: PEVP_PKEY; pub: PByte; len: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_get_raw_public_key; + EVP_PKEY_new_CMAC_key: function (e: PENGINE; const priv: PByte; len: TOpenSSL_C_SIZET; const cipher: PEVP_CIPHER): PEVP_PKEY; cdecl = Load_EVP_PKEY_new_CMAC_key; + EVP_PKEY_CTX_set_data: procedure (ctx: PEVP_PKEY_CTX; data: Pointer); cdecl = Load_EVP_PKEY_CTX_set_data; + EVP_PKEY_CTX_get_data: function (ctx: PEVP_PKEY_CTX): Pointer; cdecl = Load_EVP_PKEY_CTX_get_data; + EVP_PKEY_CTX_get0_pkey: function (ctx: PEVP_PKEY_CTX): PEVP_PKEY; cdecl = Load_EVP_PKEY_CTX_get0_pkey; + EVP_PKEY_CTX_get0_peerkey: function (ctx: PEVP_PKEY_CTX): PEVP_PKEY; cdecl = Load_EVP_PKEY_CTX_get0_peerkey; + EVP_PKEY_CTX_set_app_data: procedure (ctx: PEVP_PKEY_CTX; data: Pointer); cdecl = Load_EVP_PKEY_CTX_set_app_data; + EVP_PKEY_CTX_get_app_data: function (ctx: PEVP_PKEY_CTX): Pointer; cdecl = Load_EVP_PKEY_CTX_get_app_data; + EVP_PKEY_sign_init: function (ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_sign_init; + EVP_PKEY_sign: function (ctx: PEVP_PKEY_CTX; sig: PByte; siglen: POpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_sign; + EVP_PKEY_verify_init: function (ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_verify_init; + EVP_PKEY_verify: function (ctx: PEVP_PKEY_CTX; const sig: PByte; siglen: TOpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_verify; + EVP_PKEY_verify_recover_init: function (ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_verify_recover_init; + EVP_PKEY_verify_recover: function (ctx: PEVP_PKEY_CTX; rout: PByte; routlen: POpenSSL_C_SIZET; const sig: PByte; siglen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_verify_recover; + EVP_PKEY_encrypt_init: function (ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_encrypt_init; + EVP_PKEY_encrypt: function (ctx: PEVP_PKEY_CTX; out_: PByte; outlen: POpenSSL_C_SIZET; const in_: PByte; inlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_encrypt; + EVP_PKEY_decrypt_init: function (ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_decrypt_init; + EVP_PKEY_decrypt: function (ctx: PEVP_PKEY_CTX; out_: PByte; outlen: POpenSSL_C_SIZET; const in_: PByte; inlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_decrypt; + EVP_PKEY_derive_init: function (ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_derive_init; + EVP_PKEY_derive_set_peer: function (ctx: PEVP_PKEY_CTX; peer: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_derive_set_peer; + EVP_PKEY_derive: function (ctx: PEVP_PKEY_CTX; key: PByte; keylen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_derive; + EVP_PKEY_paramgen_init: function (ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_paramgen_init; + EVP_PKEY_paramgen: function (ctx: PEVP_PKEY_CTX; ppkey: PPEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_paramgen; + EVP_PKEY_keygen_init: function (ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_keygen_init; + EVP_PKEY_keygen: function (ctx: PEVP_PKEY_CTX; ppkey: PPEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_keygen; + EVP_PKEY_check: function (ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_check; + EVP_PKEY_public_check: function (ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_public_check; + EVP_PKEY_param_check: function (ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_param_check; + EVP_PKEY_CTX_set_cb: procedure (ctx: PEVP_PKEY_CTX; cb: EVP_PKEY_gen_cb); cdecl = Load_EVP_PKEY_CTX_set_cb; + EVP_PKEY_CTX_get_cb: function (ctx: PEVP_PKEY_CTX): EVP_PKEY_gen_cb; cdecl = Load_EVP_PKEY_CTX_get_cb; + EVP_PKEY_CTX_get_keygen_info: function (ctx: PEVP_PKEY_CTX; idx: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_CTX_get_keygen_info; + EVP_PKEY_meth_set_init: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_init: EVP_PKEY_meth_init); cdecl = Load_EVP_PKEY_meth_set_init; + EVP_PKEY_meth_set_copy: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_copy_cb: EVP_PKEY_meth_copy_cb); cdecl = Load_EVP_PKEY_meth_set_copy; + EVP_PKEY_meth_set_cleanup: procedure (pmeth: PEVP_PKEY_METHOD; PEVP_PKEY_meth_cleanup: EVP_PKEY_meth_cleanup); cdecl = Load_EVP_PKEY_meth_set_cleanup; + EVP_PKEY_meth_set_paramgen: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_paramgen_init: EVP_PKEY_meth_paramgen_init; AEVP_PKEY_meth_paramgen: EVP_PKEY_meth_paramgen_init); cdecl = Load_EVP_PKEY_meth_set_paramgen; + EVP_PKEY_meth_set_keygen: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_keygen_init: EVP_PKEY_meth_keygen_init; AEVP_PKEY_meth_keygen: EVP_PKEY_meth_keygen); cdecl = Load_EVP_PKEY_meth_set_keygen; + EVP_PKEY_meth_set_sign: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_sign_init: EVP_PKEY_meth_sign_init; AEVP_PKEY_meth_sign: EVP_PKEY_meth_sign); cdecl = Load_EVP_PKEY_meth_set_sign; + EVP_PKEY_meth_set_verify: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verify_init: EVP_PKEY_meth_verify_init; AEVP_PKEY_meth_verify: EVP_PKEY_meth_verify_init); cdecl = Load_EVP_PKEY_meth_set_verify; + EVP_PKEY_meth_set_verify_recover: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verify_recover_init: EVP_PKEY_meth_verify_recover_init; AEVP_PKEY_meth_verify_recover: EVP_PKEY_meth_verify_recover_init); cdecl = Load_EVP_PKEY_meth_set_verify_recover; + EVP_PKEY_meth_set_signctx: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_signctx_init: EVP_PKEY_meth_signctx_init; AEVP_PKEY_meth_signctx: EVP_PKEY_meth_signctx); cdecl = Load_EVP_PKEY_meth_set_signctx; + EVP_PKEY_meth_set_verifyctx: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verifyctx_init: EVP_PKEY_meth_verifyctx_init; AEVP_PKEY_meth_verifyctx: EVP_PKEY_meth_verifyctx); cdecl = Load_EVP_PKEY_meth_set_verifyctx; + EVP_PKEY_meth_set_encrypt: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_encrypt_init: EVP_PKEY_meth_encrypt_init; AEVP_PKEY_meth_encrypt: EVP_PKEY_meth_encrypt); cdecl = Load_EVP_PKEY_meth_set_encrypt; + EVP_PKEY_meth_set_decrypt: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_decrypt_init: EVP_PKEY_meth_decrypt_init; AEVP_PKEY_meth_decrypt: EVP_PKEY_meth_decrypt); cdecl = Load_EVP_PKEY_meth_set_decrypt; + EVP_PKEY_meth_set_derive: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_derive_init: EVP_PKEY_meth_derive_init; AEVP_PKEY_meth_derive: EVP_PKEY_meth_derive); cdecl = Load_EVP_PKEY_meth_set_derive; + EVP_PKEY_meth_set_ctrl: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_ctrl: EVP_PKEY_meth_ctrl; AEVP_PKEY_meth_ctrl_str: EVP_PKEY_meth_ctrl_str); cdecl = Load_EVP_PKEY_meth_set_ctrl; + EVP_PKEY_meth_set_digestsign: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digestsign: EVP_PKEY_meth_digestsign); cdecl = Load_EVP_PKEY_meth_set_digestsign; + EVP_PKEY_meth_set_digestverify: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digestverify: EVP_PKEY_meth_digestverify); cdecl = Load_EVP_PKEY_meth_set_digestverify; + EVP_PKEY_meth_set_check: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_check: EVP_PKEY_meth_check); cdecl = Load_EVP_PKEY_meth_set_check; + EVP_PKEY_meth_set_public_check: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_public_check: EVP_PKEY_meth_public_check); cdecl = Load_EVP_PKEY_meth_set_public_check; + EVP_PKEY_meth_set_param_check: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_param_check: EVP_PKEY_meth_param_check); cdecl = Load_EVP_PKEY_meth_set_param_check; + EVP_PKEY_meth_set_digest_custom: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digest_custom: EVP_PKEY_meth_digest_custom); cdecl = Load_EVP_PKEY_meth_set_digest_custom; + EVP_PKEY_meth_get_init: procedure (const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_init: PEVP_PKEY_meth_init); cdecl = Load_EVP_PKEY_meth_get_init; + EVP_PKEY_meth_get_copy: procedure (const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_copy: PEVP_PKEY_meth_copy); cdecl = Load_EVP_PKEY_meth_get_copy; + EVP_PKEY_meth_get_cleanup: procedure (const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_cleanup: PEVP_PKEY_meth_cleanup); cdecl = Load_EVP_PKEY_meth_get_cleanup; + EVP_PKEY_meth_get_paramgen: procedure (const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_paramgen_init: EVP_PKEY_meth_paramgen_init; AEVP_PKEY_meth_paramgen: PEVP_PKEY_meth_paramgen); cdecl = Load_EVP_PKEY_meth_get_paramgen; + EVP_PKEY_meth_get_keygen: procedure (const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_keygen_init: EVP_PKEY_meth_keygen_init; AEVP_PKEY_meth_keygen: PEVP_PKEY_meth_keygen); cdecl = Load_EVP_PKEY_meth_get_keygen; + EVP_PKEY_meth_get_sign: procedure (const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_sign_init: PEVP_PKEY_meth_sign_init; AEVP_PKEY_meth_sign: PEVP_PKEY_meth_sign); cdecl = Load_EVP_PKEY_meth_get_sign; + EVP_PKEY_meth_get_verify: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verify_init: PEVP_PKEY_meth_verify_init; AEVP_PKEY_meth_verify: PEVP_PKEY_meth_verify_init); cdecl = Load_EVP_PKEY_meth_get_verify; + EVP_PKEY_meth_get_verify_recover: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verify_recover_init: PEVP_PKEY_meth_verify_recover_init; AEVP_PKEY_meth_verify_recover: PEVP_PKEY_meth_verify_recover_init); cdecl = Load_EVP_PKEY_meth_get_verify_recover; + EVP_PKEY_meth_get_signctx: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_signctx_init: PEVP_PKEY_meth_signctx_init; AEVP_PKEY_meth_signctx: PEVP_PKEY_meth_signctx); cdecl = Load_EVP_PKEY_meth_get_signctx; + EVP_PKEY_meth_get_verifyctx: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verifyctx_init: PEVP_PKEY_meth_verifyctx_init; AEVP_PKEY_meth_verifyctx: PEVP_PKEY_meth_verifyctx); cdecl = Load_EVP_PKEY_meth_get_verifyctx; + EVP_PKEY_meth_get_encrypt: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_encrypt_init: PEVP_PKEY_meth_encrypt_init; AEVP_PKEY_meth_encrypt: PEVP_PKEY_meth_encrypt); cdecl = Load_EVP_PKEY_meth_get_encrypt; + EVP_PKEY_meth_get_decrypt: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_decrypt_init: PEVP_PKEY_meth_decrypt_init; AEVP_PKEY_meth_decrypt: PEVP_PKEY_meth_decrypt); cdecl = Load_EVP_PKEY_meth_get_decrypt; + EVP_PKEY_meth_get_derive: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_derive_init: PEVP_PKEY_meth_derive_init; AEVP_PKEY_meth_derive: PEVP_PKEY_meth_derive); cdecl = Load_EVP_PKEY_meth_get_derive; + EVP_PKEY_meth_get_ctrl: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_ctrl: PEVP_PKEY_meth_ctrl; AEVP_PKEY_meth_ctrl_str: PEVP_PKEY_meth_ctrl_str); cdecl = Load_EVP_PKEY_meth_get_ctrl; + EVP_PKEY_meth_get_digestsign: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digestsign: PEVP_PKEY_meth_digestsign); cdecl = Load_EVP_PKEY_meth_get_digestsign; + EVP_PKEY_meth_get_digestverify: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digestverify: PEVP_PKEY_meth_digestverify); cdecl = Load_EVP_PKEY_meth_get_digestverify; + EVP_PKEY_meth_get_check: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_check: PEVP_PKEY_meth_check); cdecl = Load_EVP_PKEY_meth_get_check; + EVP_PKEY_meth_get_public_check: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_public_check: PEVP_PKEY_meth_public_check); cdecl = Load_EVP_PKEY_meth_get_public_check; + EVP_PKEY_meth_get_param_check: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_param_check: PEVP_PKEY_meth_param_check); cdecl = Load_EVP_PKEY_meth_get_param_check; + EVP_PKEY_meth_get_digest_custom: procedure (pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digest_custom: PEVP_PKEY_meth_digest_custom); cdecl = Load_EVP_PKEY_meth_get_digest_custom; + EVP_add_alg_module: procedure ; cdecl = Load_EVP_add_alg_module; + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +var + EVP_PKEY_assign_RSA: function (pkey: PEVP_PKEY; rsa: Pointer): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_assign_RSA; {removed 1.0.0} + EVP_PKEY_assign_DSA: function (pkey: PEVP_PKEY; dsa: Pointer): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_assign_DSA; {removed 1.0.0} + EVP_PKEY_assign_DH: function (pkey: PEVP_PKEY; dh: Pointer): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_assign_DH; {removed 1.0.0} + EVP_PKEY_assign_EC_KEY: function (pkey: PEVP_PKEY; eckey: Pointer): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_assign_EC_KEY; {removed 1.0.0} + EVP_PKEY_assign_SIPHASH: function (pkey: PEVP_PKEY; shkey: Pointer): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_assign_SIPHASH; {removed 1.0.0} + EVP_PKEY_assign_POLY1305: function (pkey: PEVP_PKEY; polykey: Pointer): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_assign_POLY1305; {removed 1.0.0} + BIO_set_md: procedure (v1: PBIO; const md: PEVP_MD); cdecl = Load_BIO_set_md; {removed 1.0.0} +{$IFNDEF OPENSSL_NO_MD2} + EVP_md2: function : PEVP_MD; cdecl = nil; {removed 1.1.0 allow_nil} +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD4} + EVP_md4: function : PEVP_MD; cdecl = nil; {removed 1.1.0 allow_nil} +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD5} + EVP_md5: function : PEVP_MD; cdecl = nil; {removed 1.1.0 allow_nil} +{$ENDIF} + EVP_PKEY_security_bits: function (const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_security_bits; {removed 3.0.0} + EVP_PKEY_size: function (const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_size; {removed 3.0.0} + OpenSSL_add_all_ciphers: procedure ; cdecl = Load_OpenSSL_add_all_ciphers; {removed 1.1.0} + OpenSSL_add_all_digests: procedure ; cdecl = Load_OpenSSL_add_all_digests; {removed 1.1.0} + EVP_cleanup: procedure ; cdecl = Load_EVP_cleanup; {removed 1.1.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +const + EVP_PKEY_assign_RSA_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + EVP_PKEY_assign_DSA_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + EVP_PKEY_assign_DH_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + EVP_PKEY_assign_EC_KEY_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + EVP_PKEY_assign_SIPHASH_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + EVP_PKEY_assign_POLY1305_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + EVP_MD_meth_new_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_dup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_set_input_blocksize_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_set_result_size_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_set_app_datasize_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_set_flags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_set_init_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_set_update_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_set_final_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_set_copy_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_set_cleanup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_set_ctrl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_get_input_blocksize_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_get_result_size_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_get_app_datasize_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_get_flags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_get_init_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_get_update_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_get_final_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_get_copy_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_get_cleanup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_meth_get_ctrl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_new_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_dup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_set_iv_length_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_set_flags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_set_impl_ctx_size_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_set_init_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_set_do_cipher_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_set_cleanup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_set_set_asn1_params_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_set_get_asn1_params_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_set_ctrl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_get_init_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_get_do_cipher_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_get_cleanup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_get_set_asn1_params_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_get_get_asn1_params_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_meth_get_ctrl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_type_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_MD_pkey_type_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_MD_size_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_MD_block_size_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_MD_flags_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_MD_CTX_update_fn_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_CTX_set_update_fn_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_CTX_pkey_ctx_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_CTX_pkey_ctx_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_MD_CTX_set_pkey_ctx_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_CTX_md_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_CTX_md_data_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_CIPHER_nid_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_CIPHER_block_size_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_CIPHER_impl_ctx_size_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_key_length_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_CIPHER_iv_length_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_CIPHER_flags_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_CIPHER_CTX_encrypting_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_CTX_encrypting_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_CIPHER_CTX_nid_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_CIPHER_CTX_block_size_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_CIPHER_CTX_key_length_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_CIPHER_CTX_iv_length_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_CIPHER_CTX_iv_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_CTX_original_iv_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_CTX_iv_noconst_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_CTX_buf_noconst_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_CTX_num_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_CTX_num_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_CIPHER_CTX_set_num_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_CTX_get_cipher_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_CTX_set_cipher_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + BIO_set_md_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + EVP_MD_CTX_init_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + EVP_MD_CTX_cleanup_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + EVP_MD_CTX_ctrl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_CTX_new_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_CTX_reset_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_MD_CTX_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_DigestFinalXOF_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_DigestSign_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_DigestVerify_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_ENCODE_CTX_new_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_ENCODE_CTX_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_ENCODE_CTX_copy_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_ENCODE_CTX_num_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_CIPHER_CTX_reset_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_md2_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + EVP_md4_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + EVP_md5_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + EVP_md5_sha1_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_sha512_224_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_sha512_256_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_sha3_224_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_sha3_256_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_sha3_384_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_sha3_512_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_shake128_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_shake256_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aes_128_wrap_pad_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aes_128_ocb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aes_192_wrap_pad_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aes_192_ocb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aes_256_wrap_pad_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aes_256_ocb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_128_ecb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_128_cbc_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_128_cfb1_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_128_cfb8_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_128_cfb128_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_128_ctr_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_128_ofb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_128_gcm_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_128_ccm_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_192_ecb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_192_cbc_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_192_cfb1_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_192_cfb8_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_192_cfb128_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_192_ctr_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_192_ofb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_192_gcm_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_192_ccm_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_256_ecb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_256_cbc_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_256_cfb1_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_256_cfb8_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_256_cfb128_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_256_ctr_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_256_ofb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_256_gcm_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_aria_256_ccm_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_camellia_128_ctr_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_camellia_192_ctr_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_camellia_256_ctr_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_chacha20_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_chacha20_poly1305_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_sm4_ecb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_sm4_cbc_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_sm4_cfb128_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_sm4_ofb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_sm4_ctr_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_id_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_PKEY_base_id_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_PKEY_get_base_id_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + EVP_PKEY_bits_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_PKEY_security_bits_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_security_bits_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_PKEY_get_security_bits_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + EVP_PKEY_size_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_PKEY_get_size_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + EVP_PKEY_set_alias_type_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_set_alias_type_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_PKEY_set1_engine_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_get0_engine_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_get0_hmac_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_get0_poly1305_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_get0_siphash_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_get0_RSA_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_get0_DSA_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_get0_DH_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_get0_EC_KEY_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_up_ref_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_set1_tls_encodedpoint_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_set1_tls_encodedpoint_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_PKEY_get1_tls_encodedpoint_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_get1_tls_encodedpoint_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_CIPHER_type_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + EVP_PBE_scrypt_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS5_v2_scrypt_keyivgen_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PBE_get_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_asn1_set_siginf_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_asn1_set_check_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_asn1_set_public_check_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_asn1_set_param_check_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_asn1_set_set_priv_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_asn1_set_set_pub_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_asn1_set_get_priv_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_asn1_set_get_pub_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_asn1_set_security_bits_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_meth_remove_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_meth_get_count_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_meth_get0_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_CTX_ctrl_uint64_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_CTX_str2ctrl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_CTX_hex2ctrl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_CTX_md_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_new_raw_private_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_new_raw_public_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_get_raw_private_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_get_raw_public_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_new_CMAC_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_check_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_public_check_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_param_check_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_meth_set_digestsign_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_meth_set_digestverify_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_meth_set_check_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_meth_set_public_check_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_meth_set_param_check_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_meth_set_digest_custom_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_meth_get_digestsign_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_meth_get_digestverify_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_meth_get_check_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_meth_get_public_check_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_meth_get_param_check_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + EVP_PKEY_meth_get_digest_custom_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OpenSSL_add_all_ciphers_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + OpenSSL_add_all_digests_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + EVP_cleanup_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + + +implementation + +uses IdOpenSSLHeaders_crypto, +Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +//# define EVP_PKEY_assign_RSA(pkey,rsa) EVP_PKEY_assign((pkey),EVP_PKEY_RSA, (char *)(rsa)) + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +var + EVP_MD_type: function (const md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_EVP_MD_type; {removed 3.0.0} + EVP_MD_pkey_type: function (const md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_EVP_MD_pkey_type; {removed 3.0.0} + EVP_MD_size: function (const md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_EVP_MD_size; {removed 3.0.0} + EVP_MD_block_size: function (const md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_EVP_MD_block_size; {removed 3.0.0} + EVP_MD_flags: function (const md: PEVP_MD): POpenSSL_C_ULONG; cdecl = Load_EVP_MD_flags; {removed 3.0.0} + EVP_MD_CTX_pkey_ctx: function (const ctx: PEVP_MD_CTX): PEVP_PKEY_CTX; cdecl = Load_EVP_MD_CTX_pkey_ctx; {removed 3.0.0} + EVP_MD_CTX_md_data: function (const ctx: PEVP_MD_CTX): Pointer; cdecl = Load_EVP_MD_CTX_md_data; {removed 3.0.0} + EVP_CIPHER_nid: function (const ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_nid; {removed 3.0.0} + EVP_CIPHER_block_size: function (const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_block_size; {removed 3.0.0} + EVP_CIPHER_key_length: function (const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_key_length; {removed 3.0.0} + EVP_CIPHER_iv_length: function (const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_iv_length; {removed 3.0.0} + EVP_CIPHER_flags: function (const cipher: PEVP_CIPHER): TOpenSSL_C_ULONG; cdecl = Load_EVP_CIPHER_flags; {removed 3.0.0} + EVP_CIPHER_CTX_encrypting: function (const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_CTX_encrypting; {removed 3.0.0} + EVP_CIPHER_CTX_nid: function (const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_CTX_nid; {removed 3.0.0} + EVP_CIPHER_CTX_block_size: function (const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_CTX_block_size; {removed 3.0.0} + EVP_CIPHER_CTX_key_length: function (const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_CTX_key_length; {removed 3.0.0} + EVP_CIPHER_CTX_iv_length: function (const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_CTX_iv_length; {removed 3.0.0} + EVP_CIPHER_CTX_num: function (const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_CTX_num; {removed 3.0.0} + EVP_MD_CTX_init: procedure (ctx : PEVP_MD_CTX); cdecl = Load_EVP_MD_CTX_init; {removed 1.1.0} + EVP_MD_CTX_cleanup: function (ctx : PEVP_MD_CTX): TOpenSSL_C_INT; cdecl = Load_EVP_MD_CTX_cleanup; {removed 1.1.0} +{$IFNDEF OPENSSL_NO_MD2} +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD4} +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD5} +{$ENDIF} + EVP_PKEY_id: function (const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_id; {removed 3.0.0} + EVP_PKEY_base_id: function (const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_base_id; {removed 3.0.0} + EVP_PKEY_bits: function (const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_bits; {removed 3.0.0} + EVP_PKEY_set_alias_type: function (pkey: PEVP_PKEY; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_set_alias_type; {removed 3.0.0} + EVP_PKEY_set1_tls_encodedpoint: function (pkey: PEVP_PKEY; const pt: PByte; ptlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_set1_tls_encodedpoint; {removed 3.0.0} + EVP_PKEY_get1_tls_encodedpoint: function (pkey: PEVP_PKEY; ppt: PPByte): TOpenSSL_C_SIZET; cdecl = Load_EVP_PKEY_get1_tls_encodedpoint; {removed 3.0.0} + EVP_CIPHER_type: function (const ctx: PEVP_CIPHER): TOpenSSL_C_INT; cdecl = Load_EVP_CIPHER_type; {removed 3.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFDEF OPENSSL_STATIC_LINK_MODEL} + +{Legacy Support Functions} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function EVP_PKEY_assign_RSA(pkey: PEVP_PKEY; rsa: Pointer): TOpenSSL_C_INT; + +begin + Result := EVP_PKEY_assign(pkey, EVP_PKEY_RSA, rsa); +end; + +//# define EVP_PKEY_assign_DSA(pkey,dsa) EVP_PKEY_assign((pkey),EVP_PKEY_DSA, (char *)(dsa)) + + +function EVP_PKEY_assign_DSA(pkey: PEVP_PKEY; dsa: Pointer): TOpenSSL_C_INT; + +begin + Result := EVP_PKEY_assign(pkey, EVP_PKEY_DSA, dsa); +end; + +//# define EVP_PKEY_assign_DH(pkey,dh) EVP_PKEY_assign((pkey),EVP_PKEY_DH, (char *)(dh)) + + +function EVP_PKEY_assign_DH(pkey: PEVP_PKEY; dh: Pointer): TOpenSSL_C_INT; + +begin + Result := EVP_PKEY_assign(pkey, EVP_PKEY_DH, dh); +end; + +//# define EVP_PKEY_assign_EC_KEY(pkey,eckey) EVP_PKEY_assign((pkey),EVP_PKEY_EC, (char *)(eckey)) + + +function EVP_PKEY_assign_EC_KEY(pkey: PEVP_PKEY; eckey: Pointer): TOpenSSL_C_INT; + +begin + Result := EVP_PKEY_assign(pkey, EVP_PKEY_EC, eckey); +end; + +//# define EVP_PKEY_assign_SIPHASH(pkey,shkey) EVP_PKEY_assign((pkey),EVP_PKEY_SIPHASH, (char *)(shkey)) + + +function EVP_PKEY_assign_SIPHASH(pkey: PEVP_PKEY; shkey: Pointer): TOpenSSL_C_INT; + +begin + Result := EVP_PKEY_assign(pkey, EVP_PKEY_SIPHASH, shkey); +end; + +//# define EVP_PKEY_assign_POLY1305(pkey,polykey) EVP_PKEY_assign((pkey),EVP_PKEY_POLY1305, (char *)(polykey)) + + +function EVP_PKEY_assign_POLY1305(pkey: PEVP_PKEY; polykey: Pointer): TOpenSSL_C_INT; + +begin + Result := EVP_PKEY_assign(pkey, EVP_PKEY_POLY1305, polykey); +end; + + + +procedure OpenSSL_add_all_ciphers; + +begin + OPENSSL_init_crypto(OPENSSL_INIT_ADD_ALL_CIPHERS, nil); +end; + + + +procedure OpenSSL_add_all_digests; + +begin + OPENSSL_init_crypto(OPENSSL_INIT_ADD_ALL_DIGESTS, Nil); +end; + + + +procedure EVP_cleanup; + +begin +end; + + + +procedure BIO_set_md(v1: PBIO; const md: PEVP_MD); + +begin + {define BIO_set_md(b,md) BIO_ctrl(b,BIO_C_SET_MD,0,(char *)(md))} + BIO_ctrl(v1,BIO_C_SET_MD,0,PAnsiChar(md)); +end; + + + +{$WARN NO_RETVAL OFF} +{$IFNDEF OPENSSL_NO_MD2} +function EVP_md2: PEVP_MD; + +begin + EOpenSSLAPIFunctionNotPresent.RaiseException(ROSUnsupported); +end; + +{$ENDIF } +{$IFNDEF OPENSSL_NO_MD4} +function EVP_md4: PEVP_MD; + +begin + EOpenSSLAPIFunctionNotPresent.RaiseException(ROSUnsupported); +end; + +{$ENDIF } +{$IFNDEF OPENSSL_NO_MD5} +function EVP_md5: PEVP_MD; + +begin + Result := EVP_md5_sha1; +end; + +{$ENDIF } +{$WARN NO_RETVAL ON} +function EVP_PKEY_security_bits(const pkey: PEVP_PKEY): TOpenSSL_C_INT; + +begin + Result := EVP_PKEY_get_security_bits(pkey); +end; + + + +function EVP_PKEY_size(const pkey: PEVP_PKEY): TOpenSSL_C_INT; + +begin + Result := EVP_PKEY_get_size(pkey); +end; + + + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function COMPAT_EVP_PKEY_assign_RSA(pkey: PEVP_PKEY; rsa: Pointer): TOpenSSL_C_INT; cdecl; + +begin + Result := EVP_PKEY_assign(pkey, EVP_PKEY_RSA, rsa); +end; + +//# define EVP_PKEY_assign_DSA(pkey,dsa) EVP_PKEY_assign((pkey),EVP_PKEY_DSA, (char *)(dsa)) + + +function COMPAT_EVP_PKEY_assign_DSA(pkey: PEVP_PKEY; dsa: Pointer): TOpenSSL_C_INT; cdecl; + +begin + Result := EVP_PKEY_assign(pkey, EVP_PKEY_DSA, dsa); +end; + +//# define EVP_PKEY_assign_DH(pkey,dh) EVP_PKEY_assign((pkey),EVP_PKEY_DH, (char *)(dh)) + + +function COMPAT_EVP_PKEY_assign_DH(pkey: PEVP_PKEY; dh: Pointer): TOpenSSL_C_INT; cdecl; + +begin + Result := EVP_PKEY_assign(pkey, EVP_PKEY_DH, dh); +end; + +//# define EVP_PKEY_assign_EC_KEY(pkey,eckey) EVP_PKEY_assign((pkey),EVP_PKEY_EC, (char *)(eckey)) + + +function COMPAT_EVP_PKEY_assign_EC_KEY(pkey: PEVP_PKEY; eckey: Pointer): TOpenSSL_C_INT; cdecl; + +begin + Result := EVP_PKEY_assign(pkey, EVP_PKEY_EC, eckey); +end; + +//# define EVP_PKEY_assign_SIPHASH(pkey,shkey) EVP_PKEY_assign((pkey),EVP_PKEY_SIPHASH, (char *)(shkey)) + + +function COMPAT_EVP_PKEY_assign_SIPHASH(pkey: PEVP_PKEY; shkey: Pointer): TOpenSSL_C_INT; cdecl; + +begin + Result := EVP_PKEY_assign(pkey, EVP_PKEY_SIPHASH, shkey); +end; + +//# define EVP_PKEY_assign_POLY1305(pkey,polykey) EVP_PKEY_assign((pkey),EVP_PKEY_POLY1305, (char *)(polykey)) + + +function COMPAT_EVP_PKEY_assign_POLY1305(pkey: PEVP_PKEY; polykey: Pointer): TOpenSSL_C_INT; cdecl; + +begin + Result := EVP_PKEY_assign(pkey, EVP_PKEY_POLY1305, polykey); +end; + + + +procedure COMPAT_OpenSSL_add_all_ciphers; cdecl; + +begin + OPENSSL_init_crypto(OPENSSL_INIT_ADD_ALL_CIPHERS, nil); +end; + + + +procedure COMPAT_OpenSSL_add_all_digests; cdecl; + +begin + OPENSSL_init_crypto(OPENSSL_INIT_ADD_ALL_DIGESTS, Nil); +end; + + + +procedure COMPAT_EVP_cleanup; cdecl; + +begin +end; + + + +procedure COMPAT_BIO_set_md(v1: PBIO; const md: PEVP_MD); cdecl; + +begin + {define BIO_set_md(b,md) BIO_ctrl(b,BIO_C_SET_MD,0,(char *)(md))} + BIO_ctrl(v1,BIO_C_SET_MD,0,PAnsiChar(md)); +end; + + + +function COMPAT_EVP_MD_CTX_new: PEVP_MD_CTX; cdecl; + +begin + Result := AllocMem(SizeOf(EVP_MD_CTX)); + EVP_MD_CTX_init(Result); +end; + + + +procedure COMPAT_EVP_MD_CTX_free(ctx: PEVP_MD_CTX); cdecl; + +begin + EVP_MD_CTX_cleanup(ctx); + FreeMem(ctx,SizeOf(EVP_MD_CTX)); +end; + + +{$WARN NO_RETVAL OFF} +{$IFNDEF OPENSSL_NO_MD2} +function COMPAT_EVP_md2: PEVP_MD; cdecl; + +begin + EOpenSSLAPIFunctionNotPresent.RaiseException(ROSUnsupported); +end; + +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD4} +function COMPAT_EVP_md4: PEVP_MD; cdecl; + +begin + EOpenSSLAPIFunctionNotPresent.RaiseException(ROSUnsupported); +end; + +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD5} +function COMPAT_EVP_md5: PEVP_MD; cdecl; + +begin + Result := EVP_md5_sha1; +end; + +{$ENDIF} +{$WARN NO_RETVAL ON} +function COMPAT_EVP_PKEY_security_bits(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + +begin + Result := EVP_PKEY_get_security_bits(pkey); +end; + + + +function COMPAT_EVP_PKEY_size(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; + +begin + Result := EVP_PKEY_get_size(pkey); +end; + + + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_PKEY_assign_RSA(pkey: PEVP_PKEY; rsa: Pointer): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_assign_RSA := LoadLibCryptoFunction('EVP_PKEY_assign_RSA'); + if not assigned(EVP_PKEY_assign_RSA) then + EVP_PKEY_assign_RSA := @COMPAT_EVP_PKEY_assign_RSA; + Result := EVP_PKEY_assign_RSA(pkey,rsa); +end; + +function Load_EVP_PKEY_assign_DSA(pkey: PEVP_PKEY; dsa: Pointer): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_assign_DSA := LoadLibCryptoFunction('EVP_PKEY_assign_DSA'); + if not assigned(EVP_PKEY_assign_DSA) then + EVP_PKEY_assign_DSA := @COMPAT_EVP_PKEY_assign_DSA; + Result := EVP_PKEY_assign_DSA(pkey,dsa); +end; + +function Load_EVP_PKEY_assign_DH(pkey: PEVP_PKEY; dh: Pointer): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_assign_DH := LoadLibCryptoFunction('EVP_PKEY_assign_DH'); + if not assigned(EVP_PKEY_assign_DH) then + EVP_PKEY_assign_DH := @COMPAT_EVP_PKEY_assign_DH; + Result := EVP_PKEY_assign_DH(pkey,dh); +end; + +function Load_EVP_PKEY_assign_EC_KEY(pkey: PEVP_PKEY; eckey: Pointer): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_assign_EC_KEY := LoadLibCryptoFunction('EVP_PKEY_assign_EC_KEY'); + if not assigned(EVP_PKEY_assign_EC_KEY) then + EVP_PKEY_assign_EC_KEY := @COMPAT_EVP_PKEY_assign_EC_KEY; + Result := EVP_PKEY_assign_EC_KEY(pkey,eckey); +end; + +function Load_EVP_PKEY_assign_SIPHASH(pkey: PEVP_PKEY; shkey: Pointer): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_assign_SIPHASH := LoadLibCryptoFunction('EVP_PKEY_assign_SIPHASH'); + if not assigned(EVP_PKEY_assign_SIPHASH) then + EVP_PKEY_assign_SIPHASH := @COMPAT_EVP_PKEY_assign_SIPHASH; + Result := EVP_PKEY_assign_SIPHASH(pkey,shkey); +end; + +function Load_EVP_PKEY_assign_POLY1305(pkey: PEVP_PKEY; polykey: Pointer): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_assign_POLY1305 := LoadLibCryptoFunction('EVP_PKEY_assign_POLY1305'); + if not assigned(EVP_PKEY_assign_POLY1305) then + EVP_PKEY_assign_POLY1305 := @COMPAT_EVP_PKEY_assign_POLY1305; + Result := EVP_PKEY_assign_POLY1305(pkey,polykey); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_MD_meth_new(md_type: TOpenSSL_C_INT; pkey_type: TOpenSSL_C_INT): PEVP_MD; cdecl; +begin + EVP_MD_meth_new := LoadLibCryptoFunction('EVP_MD_meth_new'); + if not assigned(EVP_MD_meth_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_new'); + Result := EVP_MD_meth_new(md_type,pkey_type); +end; + +function Load_EVP_MD_meth_dup(const md: PEVP_MD): PEVP_MD; cdecl; +begin + EVP_MD_meth_dup := LoadLibCryptoFunction('EVP_MD_meth_dup'); + if not assigned(EVP_MD_meth_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_dup'); + Result := EVP_MD_meth_dup(md); +end; + +procedure Load_EVP_MD_meth_free(md: PEVP_MD); cdecl; +begin + EVP_MD_meth_free := LoadLibCryptoFunction('EVP_MD_meth_free'); + if not assigned(EVP_MD_meth_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_free'); + EVP_MD_meth_free(md); +end; + +function Load_EVP_MD_meth_set_input_blocksize(md: PEVP_MD; blocksize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_meth_set_input_blocksize := LoadLibCryptoFunction('EVP_MD_meth_set_input_blocksize'); + if not assigned(EVP_MD_meth_set_input_blocksize) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_set_input_blocksize'); + Result := EVP_MD_meth_set_input_blocksize(md,blocksize); +end; + +function Load_EVP_MD_meth_set_result_size(md: PEVP_MD; resultsize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_meth_set_result_size := LoadLibCryptoFunction('EVP_MD_meth_set_result_size'); + if not assigned(EVP_MD_meth_set_result_size) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_set_result_size'); + Result := EVP_MD_meth_set_result_size(md,resultsize); +end; + +function Load_EVP_MD_meth_set_app_datasize(md: PEVP_MD; datasize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_meth_set_app_datasize := LoadLibCryptoFunction('EVP_MD_meth_set_app_datasize'); + if not assigned(EVP_MD_meth_set_app_datasize) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_set_app_datasize'); + Result := EVP_MD_meth_set_app_datasize(md,datasize); +end; + +function Load_EVP_MD_meth_set_flags(md: PEVP_MD; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_meth_set_flags := LoadLibCryptoFunction('EVP_MD_meth_set_flags'); + if not assigned(EVP_MD_meth_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_set_flags'); + Result := EVP_MD_meth_set_flags(md,flags); +end; + +function Load_EVP_MD_meth_set_init(md: PEVP_MD; init: EVP_MD_meth_init): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_meth_set_init := LoadLibCryptoFunction('EVP_MD_meth_set_init'); + if not assigned(EVP_MD_meth_set_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_set_init'); + Result := EVP_MD_meth_set_init(md,init); +end; + +function Load_EVP_MD_meth_set_update(md: PEVP_MD; update: EVP_MD_meth_update): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_meth_set_update := LoadLibCryptoFunction('EVP_MD_meth_set_update'); + if not assigned(EVP_MD_meth_set_update) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_set_update'); + Result := EVP_MD_meth_set_update(md,update); +end; + +function Load_EVP_MD_meth_set_final(md: PEVP_MD; final_: EVP_MD_meth_final): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_meth_set_final := LoadLibCryptoFunction('EVP_MD_meth_set_final'); + if not assigned(EVP_MD_meth_set_final) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_set_final'); + Result := EVP_MD_meth_set_final(md,final_); +end; + +function Load_EVP_MD_meth_set_copy(md: PEVP_MD; copy: EVP_MD_meth_copy): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_meth_set_copy := LoadLibCryptoFunction('EVP_MD_meth_set_copy'); + if not assigned(EVP_MD_meth_set_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_set_copy'); + Result := EVP_MD_meth_set_copy(md,copy); +end; + +function Load_EVP_MD_meth_set_cleanup(md: PEVP_MD; cleanup: EVP_MD_meth_cleanup): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_meth_set_cleanup := LoadLibCryptoFunction('EVP_MD_meth_set_cleanup'); + if not assigned(EVP_MD_meth_set_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_set_cleanup'); + Result := EVP_MD_meth_set_cleanup(md,cleanup); +end; + +function Load_EVP_MD_meth_set_ctrl(md: PEVP_MD; ctrl: EVP_MD_meth_ctrl): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_meth_set_ctrl := LoadLibCryptoFunction('EVP_MD_meth_set_ctrl'); + if not assigned(EVP_MD_meth_set_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_set_ctrl'); + Result := EVP_MD_meth_set_ctrl(md,ctrl); +end; + +function Load_EVP_MD_meth_get_input_blocksize(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_meth_get_input_blocksize := LoadLibCryptoFunction('EVP_MD_meth_get_input_blocksize'); + if not assigned(EVP_MD_meth_get_input_blocksize) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_get_input_blocksize'); + Result := EVP_MD_meth_get_input_blocksize(md); +end; + +function Load_EVP_MD_meth_get_result_size(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_meth_get_result_size := LoadLibCryptoFunction('EVP_MD_meth_get_result_size'); + if not assigned(EVP_MD_meth_get_result_size) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_get_result_size'); + Result := EVP_MD_meth_get_result_size(md); +end; + +function Load_EVP_MD_meth_get_app_datasize(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_meth_get_app_datasize := LoadLibCryptoFunction('EVP_MD_meth_get_app_datasize'); + if not assigned(EVP_MD_meth_get_app_datasize) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_get_app_datasize'); + Result := EVP_MD_meth_get_app_datasize(md); +end; + +function Load_EVP_MD_meth_get_flags(const md: PEVP_MD): TOpenSSL_C_ULONG; cdecl; +begin + EVP_MD_meth_get_flags := LoadLibCryptoFunction('EVP_MD_meth_get_flags'); + if not assigned(EVP_MD_meth_get_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_get_flags'); + Result := EVP_MD_meth_get_flags(md); +end; + +function Load_EVP_MD_meth_get_init(const md: PEVP_MD): EVP_MD_meth_init; cdecl; +begin + EVP_MD_meth_get_init := LoadLibCryptoFunction('EVP_MD_meth_get_init'); + if not assigned(EVP_MD_meth_get_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_get_init'); + Result := EVP_MD_meth_get_init(md); +end; + +function Load_EVP_MD_meth_get_update(const md: PEVP_MD): EVP_MD_meth_update; cdecl; +begin + EVP_MD_meth_get_update := LoadLibCryptoFunction('EVP_MD_meth_get_update'); + if not assigned(EVP_MD_meth_get_update) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_get_update'); + Result := EVP_MD_meth_get_update(md); +end; + +function Load_EVP_MD_meth_get_final(const md: PEVP_MD): EVP_MD_meth_final; cdecl; +begin + EVP_MD_meth_get_final := LoadLibCryptoFunction('EVP_MD_meth_get_final'); + if not assigned(EVP_MD_meth_get_final) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_get_final'); + Result := EVP_MD_meth_get_final(md); +end; + +function Load_EVP_MD_meth_get_copy(const md: PEVP_MD): EVP_MD_meth_copy; cdecl; +begin + EVP_MD_meth_get_copy := LoadLibCryptoFunction('EVP_MD_meth_get_copy'); + if not assigned(EVP_MD_meth_get_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_get_copy'); + Result := EVP_MD_meth_get_copy(md); +end; + +function Load_EVP_MD_meth_get_cleanup(const md: PEVP_MD): EVP_MD_meth_cleanup; cdecl; +begin + EVP_MD_meth_get_cleanup := LoadLibCryptoFunction('EVP_MD_meth_get_cleanup'); + if not assigned(EVP_MD_meth_get_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_get_cleanup'); + Result := EVP_MD_meth_get_cleanup(md); +end; + +function Load_EVP_MD_meth_get_ctrl(const md: PEVP_MD): EVP_MD_meth_ctrl; cdecl; +begin + EVP_MD_meth_get_ctrl := LoadLibCryptoFunction('EVP_MD_meth_get_ctrl'); + if not assigned(EVP_MD_meth_get_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_meth_get_ctrl'); + Result := EVP_MD_meth_get_ctrl(md); +end; + +function Load_EVP_CIPHER_meth_new(cipher_type: TOpenSSL_C_INT; block_size: TOpenSSL_C_INT; key_len: TOpenSSL_C_INT): PEVP_CIPHER; cdecl; +begin + EVP_CIPHER_meth_new := LoadLibCryptoFunction('EVP_CIPHER_meth_new'); + if not assigned(EVP_CIPHER_meth_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_new'); + Result := EVP_CIPHER_meth_new(cipher_type,block_size,key_len); +end; + +function Load_EVP_CIPHER_meth_dup(const cipher: PEVP_CIPHER): PEVP_CIPHER; cdecl; +begin + EVP_CIPHER_meth_dup := LoadLibCryptoFunction('EVP_CIPHER_meth_dup'); + if not assigned(EVP_CIPHER_meth_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_dup'); + Result := EVP_CIPHER_meth_dup(cipher); +end; + +procedure Load_EVP_CIPHER_meth_free(cipher: PEVP_CIPHER); cdecl; +begin + EVP_CIPHER_meth_free := LoadLibCryptoFunction('EVP_CIPHER_meth_free'); + if not assigned(EVP_CIPHER_meth_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_free'); + EVP_CIPHER_meth_free(cipher); +end; + +function Load_EVP_CIPHER_meth_set_iv_length(cipher: PEVP_CIPHER; iv_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_meth_set_iv_length := LoadLibCryptoFunction('EVP_CIPHER_meth_set_iv_length'); + if not assigned(EVP_CIPHER_meth_set_iv_length) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_set_iv_length'); + Result := EVP_CIPHER_meth_set_iv_length(cipher,iv_len); +end; + +function Load_EVP_CIPHER_meth_set_flags(cipher: PEVP_CIPHER; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_meth_set_flags := LoadLibCryptoFunction('EVP_CIPHER_meth_set_flags'); + if not assigned(EVP_CIPHER_meth_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_set_flags'); + Result := EVP_CIPHER_meth_set_flags(cipher,flags); +end; + +function Load_EVP_CIPHER_meth_set_impl_ctx_size(cipher: PEVP_CIPHER; ctx_size: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_meth_set_impl_ctx_size := LoadLibCryptoFunction('EVP_CIPHER_meth_set_impl_ctx_size'); + if not assigned(EVP_CIPHER_meth_set_impl_ctx_size) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_set_impl_ctx_size'); + Result := EVP_CIPHER_meth_set_impl_ctx_size(cipher,ctx_size); +end; + +function Load_EVP_CIPHER_meth_set_init(cipher: PEVP_CIPHER; init: EVP_CIPHER_meth_init): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_meth_set_init := LoadLibCryptoFunction('EVP_CIPHER_meth_set_init'); + if not assigned(EVP_CIPHER_meth_set_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_set_init'); + Result := EVP_CIPHER_meth_set_init(cipher,init); +end; + +function Load_EVP_CIPHER_meth_set_do_cipher(cipher: PEVP_CIPHER; do_cipher: EVP_CIPHER_meth_do_cipher): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_meth_set_do_cipher := LoadLibCryptoFunction('EVP_CIPHER_meth_set_do_cipher'); + if not assigned(EVP_CIPHER_meth_set_do_cipher) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_set_do_cipher'); + Result := EVP_CIPHER_meth_set_do_cipher(cipher,do_cipher); +end; + +function Load_EVP_CIPHER_meth_set_cleanup(cipher: PEVP_CIPHER; cleanup: EVP_CIPHER_meth_cleanup): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_meth_set_cleanup := LoadLibCryptoFunction('EVP_CIPHER_meth_set_cleanup'); + if not assigned(EVP_CIPHER_meth_set_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_set_cleanup'); + Result := EVP_CIPHER_meth_set_cleanup(cipher,cleanup); +end; + +function Load_EVP_CIPHER_meth_set_set_asn1_params(cipher: PEVP_CIPHER; set_asn1_parameters: EVP_CIPHER_meth_set_asn1_params): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_meth_set_set_asn1_params := LoadLibCryptoFunction('EVP_CIPHER_meth_set_set_asn1_params'); + if not assigned(EVP_CIPHER_meth_set_set_asn1_params) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_set_set_asn1_params'); + Result := EVP_CIPHER_meth_set_set_asn1_params(cipher,set_asn1_parameters); +end; + +function Load_EVP_CIPHER_meth_set_get_asn1_params(cipher: PEVP_CIPHER; get_asn1_parameters: EVP_CIPHER_meth_get_asn1_params): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_meth_set_get_asn1_params := LoadLibCryptoFunction('EVP_CIPHER_meth_set_get_asn1_params'); + if not assigned(EVP_CIPHER_meth_set_get_asn1_params) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_set_get_asn1_params'); + Result := EVP_CIPHER_meth_set_get_asn1_params(cipher,get_asn1_parameters); +end; + +function Load_EVP_CIPHER_meth_set_ctrl(cipher: PEVP_CIPHER; ctrl: EVP_CIPHER_meth_ctrl): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_meth_set_ctrl := LoadLibCryptoFunction('EVP_CIPHER_meth_set_ctrl'); + if not assigned(EVP_CIPHER_meth_set_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_set_ctrl'); + Result := EVP_CIPHER_meth_set_ctrl(cipher,ctrl); +end; + +function Load_EVP_CIPHER_meth_get_init(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_init; cdecl; +begin + EVP_CIPHER_meth_get_init := LoadLibCryptoFunction('EVP_CIPHER_meth_get_init'); + if not assigned(EVP_CIPHER_meth_get_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_get_init'); + Result := EVP_CIPHER_meth_get_init(cipher); +end; + +function Load_EVP_CIPHER_meth_get_do_cipher(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_do_cipher; cdecl; +begin + EVP_CIPHER_meth_get_do_cipher := LoadLibCryptoFunction('EVP_CIPHER_meth_get_do_cipher'); + if not assigned(EVP_CIPHER_meth_get_do_cipher) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_get_do_cipher'); + Result := EVP_CIPHER_meth_get_do_cipher(cipher); +end; + +function Load_EVP_CIPHER_meth_get_cleanup(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_cleanup; cdecl; +begin + EVP_CIPHER_meth_get_cleanup := LoadLibCryptoFunction('EVP_CIPHER_meth_get_cleanup'); + if not assigned(EVP_CIPHER_meth_get_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_get_cleanup'); + Result := EVP_CIPHER_meth_get_cleanup(cipher); +end; + +function Load_EVP_CIPHER_meth_get_set_asn1_params(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_set_asn1_params; cdecl; +begin + EVP_CIPHER_meth_get_set_asn1_params := LoadLibCryptoFunction('EVP_CIPHER_meth_get_set_asn1_params'); + if not assigned(EVP_CIPHER_meth_get_set_asn1_params) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_get_set_asn1_params'); + Result := EVP_CIPHER_meth_get_set_asn1_params(cipher); +end; + +function Load_EVP_CIPHER_meth_get_get_asn1_params(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_get_asn1_params; cdecl; +begin + EVP_CIPHER_meth_get_get_asn1_params := LoadLibCryptoFunction('EVP_CIPHER_meth_get_get_asn1_params'); + if not assigned(EVP_CIPHER_meth_get_get_asn1_params) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_get_get_asn1_params'); + Result := EVP_CIPHER_meth_get_get_asn1_params(cipher); +end; + +function Load_EVP_CIPHER_meth_get_ctrl(const cipher: PEVP_CIPHER): EVP_CIPHER_meth_ctrl; cdecl; +begin + EVP_CIPHER_meth_get_ctrl := LoadLibCryptoFunction('EVP_CIPHER_meth_get_ctrl'); + if not assigned(EVP_CIPHER_meth_get_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_meth_get_ctrl'); + Result := EVP_CIPHER_meth_get_ctrl(cipher); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_MD_type(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_type := LoadLibCryptoFunction('EVP_MD_type'); + if not assigned(EVP_MD_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_type'); + Result := EVP_MD_type(md); +end; + +function Load_EVP_MD_pkey_type(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_pkey_type := LoadLibCryptoFunction('EVP_MD_pkey_type'); + if not assigned(EVP_MD_pkey_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_pkey_type'); + Result := EVP_MD_pkey_type(md); +end; + +function Load_EVP_MD_size(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_size := LoadLibCryptoFunction('EVP_MD_size'); + if not assigned(EVP_MD_size) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_size'); + Result := EVP_MD_size(md); +end; + +function Load_EVP_MD_block_size(const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_block_size := LoadLibCryptoFunction('EVP_MD_block_size'); + if not assigned(EVP_MD_block_size) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_block_size'); + Result := EVP_MD_block_size(md); +end; + +function Load_EVP_MD_flags(const md: PEVP_MD): POpenSSL_C_ULONG; cdecl; +begin + EVP_MD_flags := LoadLibCryptoFunction('EVP_MD_flags'); + if not assigned(EVP_MD_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_flags'); + Result := EVP_MD_flags(md); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_MD_CTX_md(ctx: PEVP_MD_CTX): PEVP_MD; cdecl; +begin + EVP_MD_CTX_md := LoadLibCryptoFunction('EVP_MD_CTX_md'); + if not assigned(EVP_MD_CTX_md) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_md'); + Result := EVP_MD_CTX_md(ctx); +end; + +function Load_EVP_MD_CTX_update_fn(ctx: PEVP_MD_CTX): EVP_MD_CTX_update; cdecl; +begin + EVP_MD_CTX_update_fn := LoadLibCryptoFunction('EVP_MD_CTX_update_fn'); + if not assigned(EVP_MD_CTX_update_fn) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_update_fn'); + Result := EVP_MD_CTX_update_fn(ctx); +end; + +procedure Load_EVP_MD_CTX_set_update_fn(ctx: PEVP_MD_CTX; update: EVP_MD_CTX_update); cdecl; +begin + EVP_MD_CTX_set_update_fn := LoadLibCryptoFunction('EVP_MD_CTX_set_update_fn'); + if not assigned(EVP_MD_CTX_set_update_fn) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_set_update_fn'); + EVP_MD_CTX_set_update_fn(ctx,update); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_MD_CTX_pkey_ctx(const ctx: PEVP_MD_CTX): PEVP_PKEY_CTX; cdecl; +begin + EVP_MD_CTX_pkey_ctx := LoadLibCryptoFunction('EVP_MD_CTX_pkey_ctx'); + if not assigned(EVP_MD_CTX_pkey_ctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_pkey_ctx'); + Result := EVP_MD_CTX_pkey_ctx(ctx); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +procedure Load_EVP_MD_CTX_set_pkey_ctx(ctx: PEVP_MD_CTX; pctx: PEVP_PKEY_CTX); cdecl; +begin + EVP_MD_CTX_set_pkey_ctx := LoadLibCryptoFunction('EVP_MD_CTX_set_pkey_ctx'); + if not assigned(EVP_MD_CTX_set_pkey_ctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_set_pkey_ctx'); + EVP_MD_CTX_set_pkey_ctx(ctx,pctx); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_MD_CTX_md_data(const ctx: PEVP_MD_CTX): Pointer; cdecl; +begin + EVP_MD_CTX_md_data := LoadLibCryptoFunction('EVP_MD_CTX_md_data'); + if not assigned(EVP_MD_CTX_md_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_md_data'); + Result := EVP_MD_CTX_md_data(ctx); +end; + +function Load_EVP_CIPHER_nid(const ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_nid := LoadLibCryptoFunction('EVP_CIPHER_nid'); + if not assigned(EVP_CIPHER_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_nid'); + Result := EVP_CIPHER_nid(ctx); +end; + +function Load_EVP_CIPHER_block_size(const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_block_size := LoadLibCryptoFunction('EVP_CIPHER_block_size'); + if not assigned(EVP_CIPHER_block_size) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_block_size'); + Result := EVP_CIPHER_block_size(cipher); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_CIPHER_impl_ctx_size(const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_impl_ctx_size := LoadLibCryptoFunction('EVP_CIPHER_impl_ctx_size'); + if not assigned(EVP_CIPHER_impl_ctx_size) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_impl_ctx_size'); + Result := EVP_CIPHER_impl_ctx_size(cipher); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_CIPHER_key_length(const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_key_length := LoadLibCryptoFunction('EVP_CIPHER_key_length'); + if not assigned(EVP_CIPHER_key_length) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_key_length'); + Result := EVP_CIPHER_key_length(cipher); +end; + +function Load_EVP_CIPHER_iv_length(const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_iv_length := LoadLibCryptoFunction('EVP_CIPHER_iv_length'); + if not assigned(EVP_CIPHER_iv_length) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_iv_length'); + Result := EVP_CIPHER_iv_length(cipher); +end; + +function Load_EVP_CIPHER_flags(const cipher: PEVP_CIPHER): TOpenSSL_C_ULONG; cdecl; +begin + EVP_CIPHER_flags := LoadLibCryptoFunction('EVP_CIPHER_flags'); + if not assigned(EVP_CIPHER_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_flags'); + Result := EVP_CIPHER_flags(cipher); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_CIPHER_CTX_cipher(const ctx: PEVP_CIPHER_CTX): PEVP_CIPHER; cdecl; +begin + EVP_CIPHER_CTX_cipher := LoadLibCryptoFunction('EVP_CIPHER_CTX_cipher'); + if not assigned(EVP_CIPHER_CTX_cipher) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_cipher'); + Result := EVP_CIPHER_CTX_cipher(ctx); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_CIPHER_CTX_encrypting(const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_CTX_encrypting := LoadLibCryptoFunction('EVP_CIPHER_CTX_encrypting'); + if not assigned(EVP_CIPHER_CTX_encrypting) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_encrypting'); + Result := EVP_CIPHER_CTX_encrypting(ctx); +end; + +function Load_EVP_CIPHER_CTX_nid(const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_CTX_nid := LoadLibCryptoFunction('EVP_CIPHER_CTX_nid'); + if not assigned(EVP_CIPHER_CTX_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_nid'); + Result := EVP_CIPHER_CTX_nid(ctx); +end; + +function Load_EVP_CIPHER_CTX_block_size(const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_CTX_block_size := LoadLibCryptoFunction('EVP_CIPHER_CTX_block_size'); + if not assigned(EVP_CIPHER_CTX_block_size) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_block_size'); + Result := EVP_CIPHER_CTX_block_size(ctx); +end; + +function Load_EVP_CIPHER_CTX_key_length(const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_CTX_key_length := LoadLibCryptoFunction('EVP_CIPHER_CTX_key_length'); + if not assigned(EVP_CIPHER_CTX_key_length) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_key_length'); + Result := EVP_CIPHER_CTX_key_length(ctx); +end; + +function Load_EVP_CIPHER_CTX_iv_length(const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_CTX_iv_length := LoadLibCryptoFunction('EVP_CIPHER_CTX_iv_length'); + if not assigned(EVP_CIPHER_CTX_iv_length) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_iv_length'); + Result := EVP_CIPHER_CTX_iv_length(ctx); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_CIPHER_CTX_iv(const ctx: PEVP_CIPHER_CTX): PByte; cdecl; +begin + EVP_CIPHER_CTX_iv := LoadLibCryptoFunction('EVP_CIPHER_CTX_iv'); + if not assigned(EVP_CIPHER_CTX_iv) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_iv'); + Result := EVP_CIPHER_CTX_iv(ctx); +end; + +function Load_EVP_CIPHER_CTX_original_iv(const ctx: PEVP_CIPHER_CTX): PByte; cdecl; +begin + EVP_CIPHER_CTX_original_iv := LoadLibCryptoFunction('EVP_CIPHER_CTX_original_iv'); + if not assigned(EVP_CIPHER_CTX_original_iv) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_original_iv'); + Result := EVP_CIPHER_CTX_original_iv(ctx); +end; + +function Load_EVP_CIPHER_CTX_iv_noconst(ctx: PEVP_CIPHER_CTX): PByte; cdecl; +begin + EVP_CIPHER_CTX_iv_noconst := LoadLibCryptoFunction('EVP_CIPHER_CTX_iv_noconst'); + if not assigned(EVP_CIPHER_CTX_iv_noconst) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_iv_noconst'); + Result := EVP_CIPHER_CTX_iv_noconst(ctx); +end; + +function Load_EVP_CIPHER_CTX_buf_noconst(ctx: PEVP_CIPHER_CTX): PByte; cdecl; +begin + EVP_CIPHER_CTX_buf_noconst := LoadLibCryptoFunction('EVP_CIPHER_CTX_buf_noconst'); + if not assigned(EVP_CIPHER_CTX_buf_noconst) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_buf_noconst'); + Result := EVP_CIPHER_CTX_buf_noconst(ctx); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_CIPHER_CTX_num(const ctx: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_CTX_num := LoadLibCryptoFunction('EVP_CIPHER_CTX_num'); + if not assigned(EVP_CIPHER_CTX_num) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_num'); + Result := EVP_CIPHER_CTX_num(ctx); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +procedure Load_EVP_CIPHER_CTX_set_num(ctx: PEVP_CIPHER_CTX; num: TOpenSSL_C_INT); cdecl; +begin + EVP_CIPHER_CTX_set_num := LoadLibCryptoFunction('EVP_CIPHER_CTX_set_num'); + if not assigned(EVP_CIPHER_CTX_set_num) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_set_num'); + EVP_CIPHER_CTX_set_num(ctx,num); +end; + +function Load_EVP_CIPHER_CTX_copy(out_: PEVP_CIPHER_CTX; const in_: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_CTX_copy := LoadLibCryptoFunction('EVP_CIPHER_CTX_copy'); + if not assigned(EVP_CIPHER_CTX_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_copy'); + Result := EVP_CIPHER_CTX_copy(out_,in_); +end; + +function Load_EVP_CIPHER_CTX_get_app_data(const ctx: PEVP_CIPHER_CTX): Pointer; cdecl; +begin + EVP_CIPHER_CTX_get_app_data := LoadLibCryptoFunction('EVP_CIPHER_CTX_get_app_data'); + if not assigned(EVP_CIPHER_CTX_get_app_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_get_app_data'); + Result := EVP_CIPHER_CTX_get_app_data(ctx); +end; + +procedure Load_EVP_CIPHER_CTX_set_app_data(ctx: PEVP_CIPHER_CTX; data: Pointer); cdecl; +begin + EVP_CIPHER_CTX_set_app_data := LoadLibCryptoFunction('EVP_CIPHER_CTX_set_app_data'); + if not assigned(EVP_CIPHER_CTX_set_app_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_set_app_data'); + EVP_CIPHER_CTX_set_app_data(ctx,data); +end; + +function Load_EVP_CIPHER_CTX_get_cipher_data(const ctx: PEVP_CIPHER_CTX): Pointer; cdecl; +begin + EVP_CIPHER_CTX_get_cipher_data := LoadLibCryptoFunction('EVP_CIPHER_CTX_get_cipher_data'); + if not assigned(EVP_CIPHER_CTX_get_cipher_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_get_cipher_data'); + Result := EVP_CIPHER_CTX_get_cipher_data(ctx); +end; + +function Load_EVP_CIPHER_CTX_set_cipher_data(ctx: PEVP_CIPHER_CTX; cipher_data: Pointer): Pointer; cdecl; +begin + EVP_CIPHER_CTX_set_cipher_data := LoadLibCryptoFunction('EVP_CIPHER_CTX_set_cipher_data'); + if not assigned(EVP_CIPHER_CTX_set_cipher_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_set_cipher_data'); + Result := EVP_CIPHER_CTX_set_cipher_data(ctx,cipher_data); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_BIO_set_md(v1: PBIO; const md: PEVP_MD); cdecl; +begin + BIO_set_md := LoadLibCryptoFunction('BIO_set_md'); + if not assigned(BIO_set_md) then + BIO_set_md := @COMPAT_BIO_set_md; + BIO_set_md(v1,md); +end; + +procedure Load_EVP_MD_CTX_init(ctx : PEVP_MD_CTX); cdecl; +begin + EVP_MD_CTX_init := LoadLibCryptoFunction('EVP_MD_CTX_init'); + if not assigned(EVP_MD_CTX_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_init'); + EVP_MD_CTX_init(ctx); +end; + +function Load_EVP_MD_CTX_cleanup(ctx : PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_CTX_cleanup := LoadLibCryptoFunction('EVP_MD_CTX_cleanup'); + if not assigned(EVP_MD_CTX_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_cleanup'); + Result := EVP_MD_CTX_cleanup(ctx); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_MD_CTX_ctrl(ctx: PEVP_MD_CTX; cmd: TOpenSSL_C_INT; p1: TOpenSSL_C_INT; p2: Pointer): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_CTX_ctrl := LoadLibCryptoFunction('EVP_MD_CTX_ctrl'); + if not assigned(EVP_MD_CTX_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_ctrl'); + Result := EVP_MD_CTX_ctrl(ctx,cmd,p1,p2); +end; + +function Load_EVP_MD_CTX_new: PEVP_MD_CTX; cdecl; +begin + EVP_MD_CTX_new := LoadLibCryptoFunction('EVP_MD_CTX_new'); + if not assigned(EVP_MD_CTX_new) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_MD_CTX_new := @COMPAT_EVP_MD_CTX_new; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_new'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := EVP_MD_CTX_new(); +end; + +function Load_EVP_MD_CTX_reset(ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_CTX_reset := LoadLibCryptoFunction('EVP_MD_CTX_reset'); + if not assigned(EVP_MD_CTX_reset) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_reset'); + Result := EVP_MD_CTX_reset(ctx); +end; + +procedure Load_EVP_MD_CTX_free(ctx: PEVP_MD_CTX); cdecl; +begin + EVP_MD_CTX_free := LoadLibCryptoFunction('EVP_MD_CTX_free'); + if not assigned(EVP_MD_CTX_free) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_MD_CTX_free := @COMPAT_EVP_MD_CTX_free; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_free'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + EVP_MD_CTX_free(ctx); +end; + +function Load_EVP_MD_CTX_copy_ex(out_: PEVP_MD_CTX; const in_: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_CTX_copy_ex := LoadLibCryptoFunction('EVP_MD_CTX_copy_ex'); + if not assigned(EVP_MD_CTX_copy_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_copy_ex'); + Result := EVP_MD_CTX_copy_ex(out_,in_); +end; + +procedure Load_EVP_MD_CTX_set_flags(ctx: PEVP_MD_CTX; flags: TOpenSSL_C_INT); cdecl; +begin + EVP_MD_CTX_set_flags := LoadLibCryptoFunction('EVP_MD_CTX_set_flags'); + if not assigned(EVP_MD_CTX_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_set_flags'); + EVP_MD_CTX_set_flags(ctx,flags); +end; + +procedure Load_EVP_MD_CTX_clear_flags(ctx: PEVP_MD_CTX; flags: TOpenSSL_C_INT); cdecl; +begin + EVP_MD_CTX_clear_flags := LoadLibCryptoFunction('EVP_MD_CTX_clear_flags'); + if not assigned(EVP_MD_CTX_clear_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_clear_flags'); + EVP_MD_CTX_clear_flags(ctx,flags); +end; + +function Load_EVP_MD_CTX_test_flags(const ctx: PEVP_MD_CTX; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_CTX_test_flags := LoadLibCryptoFunction('EVP_MD_CTX_test_flags'); + if not assigned(EVP_MD_CTX_test_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_test_flags'); + Result := EVP_MD_CTX_test_flags(ctx,flags); +end; + +function Load_EVP_DigestInit_ex(ctx: PEVP_MD_CTX; const type_: PEVP_MD; impl: PENGINE): TOpenSSL_C_INT; cdecl; +begin + EVP_DigestInit_ex := LoadLibCryptoFunction('EVP_DigestInit_ex'); + if not assigned(EVP_DigestInit_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DigestInit_ex'); + Result := EVP_DigestInit_ex(ctx,type_,impl); +end; + +function Load_EVP_DigestUpdate(ctx: PEVP_MD_CTX; const d: Pointer; cnt: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_DigestUpdate := LoadLibCryptoFunction('EVP_DigestUpdate'); + if not assigned(EVP_DigestUpdate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DigestUpdate'); + Result := EVP_DigestUpdate(ctx,d,cnt); +end; + +function Load_EVP_DigestFinal_ex(ctx: PEVP_MD_CTX; md: PByte; var s: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + EVP_DigestFinal_ex := LoadLibCryptoFunction('EVP_DigestFinal_ex'); + if not assigned(EVP_DigestFinal_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DigestFinal_ex'); + Result := EVP_DigestFinal_ex(ctx,md,s); +end; + +function Load_EVP_Digest(const data: Pointer; count: TOpenSSL_C_SIZET; md: PByte; size: POpenSSL_C_UINT; const type_: PEVP_MD; impl: PENGINE): TOpenSSL_C_INT; cdecl; +begin + EVP_Digest := LoadLibCryptoFunction('EVP_Digest'); + if not assigned(EVP_Digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_Digest'); + Result := EVP_Digest(data,count,md,size,type_,impl); +end; + +function Load_EVP_MD_CTX_copy(out_: PEVP_MD_CTX; const in_: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_CTX_copy := LoadLibCryptoFunction('EVP_MD_CTX_copy'); + if not assigned(EVP_MD_CTX_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_CTX_copy'); + Result := EVP_MD_CTX_copy(out_,in_); +end; + +function Load_EVP_DigestInit(ctx: PEVP_MD_CTX; const type_: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + EVP_DigestInit := LoadLibCryptoFunction('EVP_DigestInit'); + if not assigned(EVP_DigestInit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DigestInit'); + Result := EVP_DigestInit(ctx,type_); +end; + +function Load_EVP_DigestFinal(ctx: PEVP_MD_CTX; md: PByte; var s: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + EVP_DigestFinal := LoadLibCryptoFunction('EVP_DigestFinal'); + if not assigned(EVP_DigestFinal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DigestFinal'); + Result := EVP_DigestFinal(ctx,md,s); +end; + +function Load_EVP_DigestFinalXOF(ctx: PEVP_MD_CTX; md: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_DigestFinalXOF := LoadLibCryptoFunction('EVP_DigestFinalXOF'); + if not assigned(EVP_DigestFinalXOF) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DigestFinalXOF'); + Result := EVP_DigestFinalXOF(ctx,md,len); +end; + +function Load_EVP_read_pw_string(buf: PAnsiChar; length: TOpenSSL_C_INT; const prompt: PAnsiChar; verify: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_read_pw_string := LoadLibCryptoFunction('EVP_read_pw_string'); + if not assigned(EVP_read_pw_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_read_pw_string'); + Result := EVP_read_pw_string(buf,length,prompt,verify); +end; + +function Load_EVP_read_pw_string_min(buf: PAnsiChar; minlen: TOpenSSL_C_INT; maxlen: TOpenSSL_C_INT; const prompt: PAnsiChar; verify: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_read_pw_string_min := LoadLibCryptoFunction('EVP_read_pw_string_min'); + if not assigned(EVP_read_pw_string_min) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_read_pw_string_min'); + Result := EVP_read_pw_string_min(buf,minlen,maxlen,prompt,verify); +end; + +procedure Load_EVP_set_pw_prompt(const prompt: PAnsiChar); cdecl; +begin + EVP_set_pw_prompt := LoadLibCryptoFunction('EVP_set_pw_prompt'); + if not assigned(EVP_set_pw_prompt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_set_pw_prompt'); + EVP_set_pw_prompt(prompt); +end; + +function Load_EVP_get_pw_prompt: PAnsiChar; cdecl; +begin + EVP_get_pw_prompt := LoadLibCryptoFunction('EVP_get_pw_prompt'); + if not assigned(EVP_get_pw_prompt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_get_pw_prompt'); + Result := EVP_get_pw_prompt(); +end; + +function Load_EVP_BytesToKey(const type_: PEVP_CIPHER; const md: PEVP_MD; const salt: PByte; const data: PByte; data1: TOpenSSL_C_INT; count: TOpenSSL_C_INT; key: PByte; iv: PByte): TOpenSSL_C_INT; cdecl; +begin + EVP_BytesToKey := LoadLibCryptoFunction('EVP_BytesToKey'); + if not assigned(EVP_BytesToKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_BytesToKey'); + Result := EVP_BytesToKey(type_,md,salt,data,data1,count,key,iv); +end; + +procedure Load_EVP_CIPHER_CTX_set_flags(ctx: PEVP_CIPHER_CTX; flags: TOpenSSL_C_INT); cdecl; +begin + EVP_CIPHER_CTX_set_flags := LoadLibCryptoFunction('EVP_CIPHER_CTX_set_flags'); + if not assigned(EVP_CIPHER_CTX_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_set_flags'); + EVP_CIPHER_CTX_set_flags(ctx,flags); +end; + +procedure Load_EVP_CIPHER_CTX_clear_flags(ctx: PEVP_CIPHER_CTX; flags: TOpenSSL_C_INT); cdecl; +begin + EVP_CIPHER_CTX_clear_flags := LoadLibCryptoFunction('EVP_CIPHER_CTX_clear_flags'); + if not assigned(EVP_CIPHER_CTX_clear_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_clear_flags'); + EVP_CIPHER_CTX_clear_flags(ctx,flags); +end; + +function Load_EVP_CIPHER_CTX_test_flags(const ctx: PEVP_CIPHER_CTX; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_CTX_test_flags := LoadLibCryptoFunction('EVP_CIPHER_CTX_test_flags'); + if not assigned(EVP_CIPHER_CTX_test_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_test_flags'); + Result := EVP_CIPHER_CTX_test_flags(ctx,flags); +end; + +function Load_EVP_EncryptInit(ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; const key: PByte; const iv: PByte): TOpenSSL_C_INT; cdecl; +begin + EVP_EncryptInit := LoadLibCryptoFunction('EVP_EncryptInit'); + if not assigned(EVP_EncryptInit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_EncryptInit'); + Result := EVP_EncryptInit(ctx,cipher,key,iv); +end; + +function Load_EVP_EncryptInit_ex(ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; impl: PENGINE; const key: PByte; const iv: PByte): TOpenSSL_C_INT; cdecl; +begin + EVP_EncryptInit_ex := LoadLibCryptoFunction('EVP_EncryptInit_ex'); + if not assigned(EVP_EncryptInit_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_EncryptInit_ex'); + Result := EVP_EncryptInit_ex(ctx,cipher,impl,key,iv); +end; + +function Load_EVP_EncryptUpdate(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in_1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_EncryptUpdate := LoadLibCryptoFunction('EVP_EncryptUpdate'); + if not assigned(EVP_EncryptUpdate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_EncryptUpdate'); + Result := EVP_EncryptUpdate(ctx,out_,out1,in_,in_1); +end; + +function Load_EVP_EncryptFinal_ex(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_EncryptFinal_ex := LoadLibCryptoFunction('EVP_EncryptFinal_ex'); + if not assigned(EVP_EncryptFinal_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_EncryptFinal_ex'); + Result := EVP_EncryptFinal_ex(ctx,out_,out1); +end; + +function Load_EVP_EncryptFinal(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_EncryptFinal := LoadLibCryptoFunction('EVP_EncryptFinal'); + if not assigned(EVP_EncryptFinal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_EncryptFinal'); + Result := EVP_EncryptFinal(ctx,out_,out1); +end; + +function Load_EVP_DecryptInit(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_DecryptInit := LoadLibCryptoFunction('EVP_DecryptInit'); + if not assigned(EVP_DecryptInit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DecryptInit'); + Result := EVP_DecryptInit(ctx,out_,out1); +end; + +function Load_EVP_DecryptInit_ex(ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; impl: PENGINE; const key: PByte; const iv: PByte): TOpenSSL_C_INT; cdecl; +begin + EVP_DecryptInit_ex := LoadLibCryptoFunction('EVP_DecryptInit_ex'); + if not assigned(EVP_DecryptInit_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DecryptInit_ex'); + Result := EVP_DecryptInit_ex(ctx,cipher,impl,key,iv); +end; + +function Load_EVP_DecryptUpdate(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in_1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_DecryptUpdate := LoadLibCryptoFunction('EVP_DecryptUpdate'); + if not assigned(EVP_DecryptUpdate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DecryptUpdate'); + Result := EVP_DecryptUpdate(ctx,out_,out1,in_,in_1); +end; + +function Load_EVP_DecryptFinal(ctx: PEVP_CIPHER_CTX; outm: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_DecryptFinal := LoadLibCryptoFunction('EVP_DecryptFinal'); + if not assigned(EVP_DecryptFinal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DecryptFinal'); + Result := EVP_DecryptFinal(ctx,outm,out1); +end; + +function Load_EVP_DecryptFinal_ex(ctx: PEVP_MD_CTX; outm: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_DecryptFinal_ex := LoadLibCryptoFunction('EVP_DecryptFinal_ex'); + if not assigned(EVP_DecryptFinal_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DecryptFinal_ex'); + Result := EVP_DecryptFinal_ex(ctx,outm,out1); +end; + +function Load_EVP_CipherInit(ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; const key: PByte; const iv: PByte; enc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_CipherInit := LoadLibCryptoFunction('EVP_CipherInit'); + if not assigned(EVP_CipherInit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CipherInit'); + Result := EVP_CipherInit(ctx,cipher,key,iv,enc); +end; + +function Load_EVP_CipherInit_ex(ctx: PEVP_CIPHER_CTX; const cipher: PEVP_CIPHER; impl: PENGINE; const key: PByte; const iv: PByte; enc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_CipherInit_ex := LoadLibCryptoFunction('EVP_CipherInit_ex'); + if not assigned(EVP_CipherInit_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CipherInit_ex'); + Result := EVP_CipherInit_ex(ctx,cipher,impl,key,iv,enc); +end; + +function Load_EVP_CipherUpdate(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_CipherUpdate := LoadLibCryptoFunction('EVP_CipherUpdate'); + if not assigned(EVP_CipherUpdate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CipherUpdate'); + Result := EVP_CipherUpdate(ctx,out_,out1,in_,in1); +end; + +function Load_EVP_CipherFinal(ctx: PEVP_CIPHER_CTX; outm: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_CipherFinal := LoadLibCryptoFunction('EVP_CipherFinal'); + if not assigned(EVP_CipherFinal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CipherFinal'); + Result := EVP_CipherFinal(ctx,outm,out1); +end; + +function Load_EVP_CipherFinal_ex(ctx: PEVP_CIPHER_CTX; outm: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_CipherFinal_ex := LoadLibCryptoFunction('EVP_CipherFinal_ex'); + if not assigned(EVP_CipherFinal_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CipherFinal_ex'); + Result := EVP_CipherFinal_ex(ctx,outm,out1); +end; + +function Load_EVP_SignFinal(ctx: PEVP_CIPHER_CTX; md: PByte; s: POpenSSL_C_UINT; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_SignFinal := LoadLibCryptoFunction('EVP_SignFinal'); + if not assigned(EVP_SignFinal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_SignFinal'); + Result := EVP_SignFinal(ctx,md,s,pkey); +end; + +function Load_EVP_DigestSign(ctx: PEVP_CIPHER_CTX; sigret: PByte; siglen: POpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_DigestSign := LoadLibCryptoFunction('EVP_DigestSign'); + if not assigned(EVP_DigestSign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DigestSign'); + Result := EVP_DigestSign(ctx,sigret,siglen,tbs,tbslen); +end; + +function Load_EVP_VerifyFinal(ctx: PEVP_MD_CTX; const sigbuf: PByte; siglen: TOpenSSL_C_UINT; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_VerifyFinal := LoadLibCryptoFunction('EVP_VerifyFinal'); + if not assigned(EVP_VerifyFinal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_VerifyFinal'); + Result := EVP_VerifyFinal(ctx,sigbuf,siglen,pkey); +end; + +function Load_EVP_DigestVerify(ctx: PEVP_CIPHER_CTX; const sigret: PByte; siglen: TOpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_DigestVerify := LoadLibCryptoFunction('EVP_DigestVerify'); + if not assigned(EVP_DigestVerify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DigestVerify'); + Result := EVP_DigestVerify(ctx,sigret,siglen,tbs,tbslen); +end; + +function Load_EVP_DigestSignInit(ctx: PEVP_MD_CTX; pctx: PPEVP_PKEY_CTX; const type_: PEVP_MD; e: PENGINE; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_DigestSignInit := LoadLibCryptoFunction('EVP_DigestSignInit'); + if not assigned(EVP_DigestSignInit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DigestSignInit'); + Result := EVP_DigestSignInit(ctx,pctx,type_,e,pkey); +end; + +function Load_EVP_DigestSignFinal(ctx: PEVP_MD_CTX; sigret: PByte; siglen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_DigestSignFinal := LoadLibCryptoFunction('EVP_DigestSignFinal'); + if not assigned(EVP_DigestSignFinal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DigestSignFinal'); + Result := EVP_DigestSignFinal(ctx,sigret,siglen); +end; + +function Load_EVP_DigestVerifyInit(ctx: PEVP_MD_CTX; ppctx: PPEVP_PKEY_CTX; const type_: PEVP_MD; e: PENGINE; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_DigestVerifyInit := LoadLibCryptoFunction('EVP_DigestVerifyInit'); + if not assigned(EVP_DigestVerifyInit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DigestVerifyInit'); + Result := EVP_DigestVerifyInit(ctx,ppctx,type_,e,pkey); +end; + +function Load_EVP_DigestVerifyFinal(ctx: PEVP_MD_CTX; const sig: PByte; siglen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_DigestVerifyFinal := LoadLibCryptoFunction('EVP_DigestVerifyFinal'); + if not assigned(EVP_DigestVerifyFinal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DigestVerifyFinal'); + Result := EVP_DigestVerifyFinal(ctx,sig,siglen); +end; + +function Load_EVP_OpenInit(ctx: PEVP_CIPHER_CTX; const type_: PEVP_CIPHER; const ek: PByte; ek1: TOpenSSL_C_INT; const iv: PByte; priv: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_OpenInit := LoadLibCryptoFunction('EVP_OpenInit'); + if not assigned(EVP_OpenInit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_OpenInit'); + Result := EVP_OpenInit(ctx,type_,ek,ek1,iv,priv); +end; + +function Load_EVP_OpenFinal(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_OpenFinal := LoadLibCryptoFunction('EVP_OpenFinal'); + if not assigned(EVP_OpenFinal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_OpenFinal'); + Result := EVP_OpenFinal(ctx,out_,out1); +end; + +function Load_EVP_SealInit(ctx: PEVP_CIPHER_CTX; const type_: EVP_CIPHER; ek: PPByte; ek1: POpenSSL_C_INT; iv: PByte; pubk: PPEVP_PKEY; npubk: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_SealInit := LoadLibCryptoFunction('EVP_SealInit'); + if not assigned(EVP_SealInit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_SealInit'); + Result := EVP_SealInit(ctx,type_,ek,ek1,iv,pubk,npubk); +end; + +function Load_EVP_SealFinal(ctx: PEVP_CIPHER_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_SealFinal := LoadLibCryptoFunction('EVP_SealFinal'); + if not assigned(EVP_SealFinal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_SealFinal'); + Result := EVP_SealFinal(ctx,out_,out1); +end; + +function Load_EVP_ENCODE_CTX_new: PEVP_ENCODE_CTX; cdecl; +begin + EVP_ENCODE_CTX_new := LoadLibCryptoFunction('EVP_ENCODE_CTX_new'); + if not assigned(EVP_ENCODE_CTX_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_ENCODE_CTX_new'); + Result := EVP_ENCODE_CTX_new(); +end; + +procedure Load_EVP_ENCODE_CTX_free(ctx: PEVP_ENCODE_CTX); cdecl; +begin + EVP_ENCODE_CTX_free := LoadLibCryptoFunction('EVP_ENCODE_CTX_free'); + if not assigned(EVP_ENCODE_CTX_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_ENCODE_CTX_free'); + EVP_ENCODE_CTX_free(ctx); +end; + +function Load_EVP_ENCODE_CTX_copy(dctx: PEVP_ENCODE_CTX; sctx: PEVP_ENCODE_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_ENCODE_CTX_copy := LoadLibCryptoFunction('EVP_ENCODE_CTX_copy'); + if not assigned(EVP_ENCODE_CTX_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_ENCODE_CTX_copy'); + Result := EVP_ENCODE_CTX_copy(dctx,sctx); +end; + +function Load_EVP_ENCODE_CTX_num(ctx: PEVP_ENCODE_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_ENCODE_CTX_num := LoadLibCryptoFunction('EVP_ENCODE_CTX_num'); + if not assigned(EVP_ENCODE_CTX_num) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_ENCODE_CTX_num'); + Result := EVP_ENCODE_CTX_num(ctx); +end; + +procedure Load_EVP_EncodeInit(ctx: PEVP_ENCODE_CTX); cdecl; +begin + EVP_EncodeInit := LoadLibCryptoFunction('EVP_EncodeInit'); + if not assigned(EVP_EncodeInit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_EncodeInit'); + EVP_EncodeInit(ctx); +end; + +function Load_EVP_EncodeUpdate(ctx: PEVP_ENCODE_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_EncodeUpdate := LoadLibCryptoFunction('EVP_EncodeUpdate'); + if not assigned(EVP_EncodeUpdate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_EncodeUpdate'); + Result := EVP_EncodeUpdate(ctx,out_,out1,in_,in1); +end; + +procedure Load_EVP_EncodeFinal(ctx: PEVP_ENCODE_CTX; out_: PByte; out1: POpenSSL_C_INT); cdecl; +begin + EVP_EncodeFinal := LoadLibCryptoFunction('EVP_EncodeFinal'); + if not assigned(EVP_EncodeFinal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_EncodeFinal'); + EVP_EncodeFinal(ctx,out_,out1); +end; + +function Load_EVP_EncodeBlock(t: PByte; const f: PByte; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_EncodeBlock := LoadLibCryptoFunction('EVP_EncodeBlock'); + if not assigned(EVP_EncodeBlock) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_EncodeBlock'); + Result := EVP_EncodeBlock(t,f,n); +end; + +procedure Load_EVP_DecodeInit(ctx: PEVP_ENCODE_CTX); cdecl; +begin + EVP_DecodeInit := LoadLibCryptoFunction('EVP_DecodeInit'); + if not assigned(EVP_DecodeInit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DecodeInit'); + EVP_DecodeInit(ctx); +end; + +function Load_EVP_DecodeUpdate(ctx: PEVP_ENCODE_CTX; out_: PByte; out1: POpenSSL_C_INT; const in_: PByte; in1: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_DecodeUpdate := LoadLibCryptoFunction('EVP_DecodeUpdate'); + if not assigned(EVP_DecodeUpdate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DecodeUpdate'); + Result := EVP_DecodeUpdate(ctx,out_,out1,in_,in1); +end; + +function Load_EVP_DecodeFinal(ctx: PEVP_ENCODE_CTX; out_: PByte; out1: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_DecodeFinal := LoadLibCryptoFunction('EVP_DecodeFinal'); + if not assigned(EVP_DecodeFinal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DecodeFinal'); + Result := EVP_DecodeFinal(ctx,out_,out1); +end; + +function Load_EVP_DecodeBlock(t: PByte; const f: PByte; n: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_DecodeBlock := LoadLibCryptoFunction('EVP_DecodeBlock'); + if not assigned(EVP_DecodeBlock) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_DecodeBlock'); + Result := EVP_DecodeBlock(t,f,n); +end; + +function Load_EVP_CIPHER_CTX_new: PEVP_CIPHER_CTX; cdecl; +begin + EVP_CIPHER_CTX_new := LoadLibCryptoFunction('EVP_CIPHER_CTX_new'); + if not assigned(EVP_CIPHER_CTX_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_new'); + Result := EVP_CIPHER_CTX_new(); +end; + +function Load_EVP_CIPHER_CTX_reset(c: PEVP_CIPHER_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_CTX_reset := LoadLibCryptoFunction('EVP_CIPHER_CTX_reset'); + if not assigned(EVP_CIPHER_CTX_reset) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_reset'); + Result := EVP_CIPHER_CTX_reset(c); +end; + +procedure Load_EVP_CIPHER_CTX_free(c: PEVP_CIPHER_CTX); cdecl; +begin + EVP_CIPHER_CTX_free := LoadLibCryptoFunction('EVP_CIPHER_CTX_free'); + if not assigned(EVP_CIPHER_CTX_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_free'); + EVP_CIPHER_CTX_free(c); +end; + +function Load_EVP_CIPHER_CTX_set_key_length(x: PEVP_CIPHER_CTX; keylen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_CTX_set_key_length := LoadLibCryptoFunction('EVP_CIPHER_CTX_set_key_length'); + if not assigned(EVP_CIPHER_CTX_set_key_length) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_set_key_length'); + Result := EVP_CIPHER_CTX_set_key_length(x,keylen); +end; + +function Load_EVP_CIPHER_CTX_set_padding(c: PEVP_CIPHER_CTX; pad: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_CTX_set_padding := LoadLibCryptoFunction('EVP_CIPHER_CTX_set_padding'); + if not assigned(EVP_CIPHER_CTX_set_padding) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_set_padding'); + Result := EVP_CIPHER_CTX_set_padding(c,pad); +end; + +function Load_EVP_CIPHER_CTX_ctrl(ctx: PEVP_CIPHER_CTX; type_: TOpenSSL_C_INT; arg: TOpenSSL_C_INT; ptr: Pointer): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_CTX_ctrl := LoadLibCryptoFunction('EVP_CIPHER_CTX_ctrl'); + if not assigned(EVP_CIPHER_CTX_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_ctrl'); + Result := EVP_CIPHER_CTX_ctrl(ctx,type_,arg,ptr); +end; + +function Load_EVP_CIPHER_CTX_rand_key(ctx: PEVP_CIPHER_CTX; key: PByte): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_CTX_rand_key := LoadLibCryptoFunction('EVP_CIPHER_CTX_rand_key'); + if not assigned(EVP_CIPHER_CTX_rand_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_CTX_rand_key'); + Result := EVP_CIPHER_CTX_rand_key(ctx,key); +end; + +function Load_BIO_f_md: PBIO_METHOD; cdecl; +begin + BIO_f_md := LoadLibCryptoFunction('BIO_f_md'); + if not assigned(BIO_f_md) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_f_md'); + Result := BIO_f_md(); +end; + +function Load_BIO_f_base64: PBIO_METHOD; cdecl; +begin + BIO_f_base64 := LoadLibCryptoFunction('BIO_f_base64'); + if not assigned(BIO_f_base64) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_f_base64'); + Result := BIO_f_base64(); +end; + +function Load_BIO_f_cipher: PBIO_METHOD; cdecl; +begin + BIO_f_cipher := LoadLibCryptoFunction('BIO_f_cipher'); + if not assigned(BIO_f_cipher) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_f_cipher'); + Result := BIO_f_cipher(); +end; + +function Load_BIO_f_reliable: PBIO_METHOD; cdecl; +begin + BIO_f_reliable := LoadLibCryptoFunction('BIO_f_reliable'); + if not assigned(BIO_f_reliable) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_f_reliable'); + Result := BIO_f_reliable(); +end; + +function Load_BIO_set_cipher(b: PBIO; c: PEVP_CIPHER; const k: PByte; const i: PByte; enc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + BIO_set_cipher := LoadLibCryptoFunction('BIO_set_cipher'); + if not assigned(BIO_set_cipher) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_set_cipher'); + Result := BIO_set_cipher(b,c,k,i,enc); +end; + +function Load_EVP_md_null: PEVP_MD; cdecl; +begin + EVP_md_null := LoadLibCryptoFunction('EVP_md_null'); + if not assigned(EVP_md_null) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_md_null'); + Result := EVP_md_null(); +end; + +{$IFNDEF OPENSSL_NO_MD2} +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD4} +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD5} +{$ENDIF} +function Load_EVP_md5_sha1: PEVP_MD; cdecl; +begin + EVP_md5_sha1 := LoadLibCryptoFunction('EVP_md5_sha1'); + if not assigned(EVP_md5_sha1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_md5_sha1'); + Result := EVP_md5_sha1(); +end; + +function Load_EVP_sha1: PEVP_MD; cdecl; +begin + EVP_sha1 := LoadLibCryptoFunction('EVP_sha1'); + if not assigned(EVP_sha1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_sha1'); + Result := EVP_sha1(); +end; + +function Load_EVP_sha224: PEVP_MD; cdecl; +begin + EVP_sha224 := LoadLibCryptoFunction('EVP_sha224'); + if not assigned(EVP_sha224) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_sha224'); + Result := EVP_sha224(); +end; + +function Load_EVP_sha256: PEVP_MD; cdecl; +begin + EVP_sha256 := LoadLibCryptoFunction('EVP_sha256'); + if not assigned(EVP_sha256) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_sha256'); + Result := EVP_sha256(); +end; + +function Load_EVP_sha384: PEVP_MD; cdecl; +begin + EVP_sha384 := LoadLibCryptoFunction('EVP_sha384'); + if not assigned(EVP_sha384) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_sha384'); + Result := EVP_sha384(); +end; + +function Load_EVP_sha512: PEVP_MD; cdecl; +begin + EVP_sha512 := LoadLibCryptoFunction('EVP_sha512'); + if not assigned(EVP_sha512) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_sha512'); + Result := EVP_sha512(); +end; + +function Load_EVP_sha512_224: PEVP_MD; cdecl; +begin + EVP_sha512_224 := LoadLibCryptoFunction('EVP_sha512_224'); + if not assigned(EVP_sha512_224) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_sha512_224'); + Result := EVP_sha512_224(); +end; + +function Load_EVP_sha512_256: PEVP_MD; cdecl; +begin + EVP_sha512_256 := LoadLibCryptoFunction('EVP_sha512_256'); + if not assigned(EVP_sha512_256) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_sha512_256'); + Result := EVP_sha512_256(); +end; + +function Load_EVP_sha3_224: PEVP_MD; cdecl; +begin + EVP_sha3_224 := LoadLibCryptoFunction('EVP_sha3_224'); + if not assigned(EVP_sha3_224) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_sha3_224'); + Result := EVP_sha3_224(); +end; + +function Load_EVP_sha3_256: PEVP_MD; cdecl; +begin + EVP_sha3_256 := LoadLibCryptoFunction('EVP_sha3_256'); + if not assigned(EVP_sha3_256) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_sha3_256'); + Result := EVP_sha3_256(); +end; + +function Load_EVP_sha3_384: PEVP_MD; cdecl; +begin + EVP_sha3_384 := LoadLibCryptoFunction('EVP_sha3_384'); + if not assigned(EVP_sha3_384) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_sha3_384'); + Result := EVP_sha3_384(); +end; + +function Load_EVP_sha3_512: PEVP_MD; cdecl; +begin + EVP_sha3_512 := LoadLibCryptoFunction('EVP_sha3_512'); + if not assigned(EVP_sha3_512) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_sha3_512'); + Result := EVP_sha3_512(); +end; + +function Load_EVP_shake128: PEVP_MD; cdecl; +begin + EVP_shake128 := LoadLibCryptoFunction('EVP_shake128'); + if not assigned(EVP_shake128) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_shake128'); + Result := EVP_shake128(); +end; + +function Load_EVP_shake256: PEVP_MD; cdecl; +begin + EVP_shake256 := LoadLibCryptoFunction('EVP_shake256'); + if not assigned(EVP_shake256) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_shake256'); + Result := EVP_shake256(); +end; + +function Load_EVP_enc_null: PEVP_CIPHER; cdecl; +begin + EVP_enc_null := LoadLibCryptoFunction('EVP_enc_null'); + if not assigned(EVP_enc_null) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_enc_null'); + Result := EVP_enc_null(); +end; + +function Load_EVP_des_ecb: PEVP_CIPHER; cdecl; +begin + EVP_des_ecb := LoadLibCryptoFunction('EVP_des_ecb'); + if not assigned(EVP_des_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_ecb'); + Result := EVP_des_ecb(); +end; + +function Load_EVP_des_ede: PEVP_CIPHER; cdecl; +begin + EVP_des_ede := LoadLibCryptoFunction('EVP_des_ede'); + if not assigned(EVP_des_ede) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_ede'); + Result := EVP_des_ede(); +end; + +function Load_EVP_des_ede3: PEVP_CIPHER; cdecl; +begin + EVP_des_ede3 := LoadLibCryptoFunction('EVP_des_ede3'); + if not assigned(EVP_des_ede3) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_ede3'); + Result := EVP_des_ede3(); +end; + +function Load_EVP_des_ede_ecb: PEVP_CIPHER; cdecl; +begin + EVP_des_ede_ecb := LoadLibCryptoFunction('EVP_des_ede_ecb'); + if not assigned(EVP_des_ede_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_ede_ecb'); + Result := EVP_des_ede_ecb(); +end; + +function Load_EVP_des_ede3_ecb: PEVP_CIPHER; cdecl; +begin + EVP_des_ede3_ecb := LoadLibCryptoFunction('EVP_des_ede3_ecb'); + if not assigned(EVP_des_ede3_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_ede3_ecb'); + Result := EVP_des_ede3_ecb(); +end; + +function Load_EVP_des_cfb64: PEVP_CIPHER; cdecl; +begin + EVP_des_cfb64 := LoadLibCryptoFunction('EVP_des_cfb64'); + if not assigned(EVP_des_cfb64) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_cfb64'); + Result := EVP_des_cfb64(); +end; + +function Load_EVP_des_cfb1: PEVP_CIPHER; cdecl; +begin + EVP_des_cfb1 := LoadLibCryptoFunction('EVP_des_cfb1'); + if not assigned(EVP_des_cfb1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_cfb1'); + Result := EVP_des_cfb1(); +end; + +function Load_EVP_des_cfb8: PEVP_CIPHER; cdecl; +begin + EVP_des_cfb8 := LoadLibCryptoFunction('EVP_des_cfb8'); + if not assigned(EVP_des_cfb8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_cfb8'); + Result := EVP_des_cfb8(); +end; + +function Load_EVP_des_ede_cfb64: PEVP_CIPHER; cdecl; +begin + EVP_des_ede_cfb64 := LoadLibCryptoFunction('EVP_des_ede_cfb64'); + if not assigned(EVP_des_ede_cfb64) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_ede_cfb64'); + Result := EVP_des_ede_cfb64(); +end; + +function Load_EVP_des_ede3_cfb64: PEVP_CIPHER; cdecl; +begin + EVP_des_ede3_cfb64 := LoadLibCryptoFunction('EVP_des_ede3_cfb64'); + if not assigned(EVP_des_ede3_cfb64) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_ede3_cfb64'); + Result := EVP_des_ede3_cfb64(); +end; + +function Load_EVP_des_ede3_cfb1: PEVP_CIPHER; cdecl; +begin + EVP_des_ede3_cfb1 := LoadLibCryptoFunction('EVP_des_ede3_cfb1'); + if not assigned(EVP_des_ede3_cfb1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_ede3_cfb1'); + Result := EVP_des_ede3_cfb1(); +end; + +function Load_EVP_des_ede3_cfb8: PEVP_CIPHER; cdecl; +begin + EVP_des_ede3_cfb8 := LoadLibCryptoFunction('EVP_des_ede3_cfb8'); + if not assigned(EVP_des_ede3_cfb8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_ede3_cfb8'); + Result := EVP_des_ede3_cfb8(); +end; + +function Load_EVP_des_ofb: PEVP_CIPHER; cdecl; +begin + EVP_des_ofb := LoadLibCryptoFunction('EVP_des_ofb'); + if not assigned(EVP_des_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_ofb'); + Result := EVP_des_ofb(); +end; + +function Load_EVP_des_ede_ofb: PEVP_CIPHER; cdecl; +begin + EVP_des_ede_ofb := LoadLibCryptoFunction('EVP_des_ede_ofb'); + if not assigned(EVP_des_ede_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_ede_ofb'); + Result := EVP_des_ede_ofb(); +end; + +function Load_EVP_des_ede3_ofb: PEVP_CIPHER; cdecl; +begin + EVP_des_ede3_ofb := LoadLibCryptoFunction('EVP_des_ede3_ofb'); + if not assigned(EVP_des_ede3_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_ede3_ofb'); + Result := EVP_des_ede3_ofb(); +end; + +function Load_EVP_des_cbc: PEVP_CIPHER; cdecl; +begin + EVP_des_cbc := LoadLibCryptoFunction('EVP_des_cbc'); + if not assigned(EVP_des_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_cbc'); + Result := EVP_des_cbc(); +end; + +function Load_EVP_des_ede_cbc: PEVP_CIPHER; cdecl; +begin + EVP_des_ede_cbc := LoadLibCryptoFunction('EVP_des_ede_cbc'); + if not assigned(EVP_des_ede_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_ede_cbc'); + Result := EVP_des_ede_cbc(); +end; + +function Load_EVP_des_ede3_cbc: PEVP_CIPHER; cdecl; +begin + EVP_des_ede3_cbc := LoadLibCryptoFunction('EVP_des_ede3_cbc'); + if not assigned(EVP_des_ede3_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_ede3_cbc'); + Result := EVP_des_ede3_cbc(); +end; + +function Load_EVP_desx_cbc: PEVP_CIPHER; cdecl; +begin + EVP_desx_cbc := LoadLibCryptoFunction('EVP_desx_cbc'); + if not assigned(EVP_desx_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_desx_cbc'); + Result := EVP_desx_cbc(); +end; + +function Load_EVP_des_ede3_wrap: PEVP_CIPHER; cdecl; +begin + EVP_des_ede3_wrap := LoadLibCryptoFunction('EVP_des_ede3_wrap'); + if not assigned(EVP_des_ede3_wrap) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_des_ede3_wrap'); + Result := EVP_des_ede3_wrap(); +end; + +function Load_EVP_rc4: PEVP_CIPHER; cdecl; +begin + EVP_rc4 := LoadLibCryptoFunction('EVP_rc4'); + if not assigned(EVP_rc4) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_rc4'); + Result := EVP_rc4(); +end; + +function Load_EVP_rc4_40: PEVP_CIPHER; cdecl; +begin + EVP_rc4_40 := LoadLibCryptoFunction('EVP_rc4_40'); + if not assigned(EVP_rc4_40) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_rc4_40'); + Result := EVP_rc4_40(); +end; + +function Load_EVP_rc2_ecb: PEVP_CIPHER; cdecl; +begin + EVP_rc2_ecb := LoadLibCryptoFunction('EVP_rc2_ecb'); + if not assigned(EVP_rc2_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_rc2_ecb'); + Result := EVP_rc2_ecb(); +end; + +function Load_EVP_rc2_cbc: PEVP_CIPHER; cdecl; +begin + EVP_rc2_cbc := LoadLibCryptoFunction('EVP_rc2_cbc'); + if not assigned(EVP_rc2_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_rc2_cbc'); + Result := EVP_rc2_cbc(); +end; + +function Load_EVP_rc2_40_cbc: PEVP_CIPHER; cdecl; +begin + EVP_rc2_40_cbc := LoadLibCryptoFunction('EVP_rc2_40_cbc'); + if not assigned(EVP_rc2_40_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_rc2_40_cbc'); + Result := EVP_rc2_40_cbc(); +end; + +function Load_EVP_rc2_64_cbc: PEVP_CIPHER; cdecl; +begin + EVP_rc2_64_cbc := LoadLibCryptoFunction('EVP_rc2_64_cbc'); + if not assigned(EVP_rc2_64_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_rc2_64_cbc'); + Result := EVP_rc2_64_cbc(); +end; + +function Load_EVP_rc2_cfb64: PEVP_CIPHER; cdecl; +begin + EVP_rc2_cfb64 := LoadLibCryptoFunction('EVP_rc2_cfb64'); + if not assigned(EVP_rc2_cfb64) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_rc2_cfb64'); + Result := EVP_rc2_cfb64(); +end; + +function Load_EVP_rc2_ofb: PEVP_CIPHER; cdecl; +begin + EVP_rc2_ofb := LoadLibCryptoFunction('EVP_rc2_ofb'); + if not assigned(EVP_rc2_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_rc2_ofb'); + Result := EVP_rc2_ofb(); +end; + +function Load_EVP_bf_ecb: PEVP_CIPHER; cdecl; +begin + EVP_bf_ecb := LoadLibCryptoFunction('EVP_bf_ecb'); + if not assigned(EVP_bf_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_bf_ecb'); + Result := EVP_bf_ecb(); +end; + +function Load_EVP_bf_cbc: PEVP_CIPHER; cdecl; +begin + EVP_bf_cbc := LoadLibCryptoFunction('EVP_bf_cbc'); + if not assigned(EVP_bf_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_bf_cbc'); + Result := EVP_bf_cbc(); +end; + +function Load_EVP_bf_cfb64: PEVP_CIPHER; cdecl; +begin + EVP_bf_cfb64 := LoadLibCryptoFunction('EVP_bf_cfb64'); + if not assigned(EVP_bf_cfb64) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_bf_cfb64'); + Result := EVP_bf_cfb64(); +end; + +function Load_EVP_bf_ofb: PEVP_CIPHER; cdecl; +begin + EVP_bf_ofb := LoadLibCryptoFunction('EVP_bf_ofb'); + if not assigned(EVP_bf_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_bf_ofb'); + Result := EVP_bf_ofb(); +end; + +function Load_EVP_cast5_ecb: PEVP_CIPHER; cdecl; +begin + EVP_cast5_ecb := LoadLibCryptoFunction('EVP_cast5_ecb'); + if not assigned(EVP_cast5_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_cast5_ecb'); + Result := EVP_cast5_ecb(); +end; + +function Load_EVP_cast5_cbc: PEVP_CIPHER; cdecl; +begin + EVP_cast5_cbc := LoadLibCryptoFunction('EVP_cast5_cbc'); + if not assigned(EVP_cast5_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_cast5_cbc'); + Result := EVP_cast5_cbc(); +end; + +function Load_EVP_cast5_cfb64: PEVP_CIPHER; cdecl; +begin + EVP_cast5_cfb64 := LoadLibCryptoFunction('EVP_cast5_cfb64'); + if not assigned(EVP_cast5_cfb64) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_cast5_cfb64'); + Result := EVP_cast5_cfb64(); +end; + +function Load_EVP_cast5_ofb: PEVP_CIPHER; cdecl; +begin + EVP_cast5_ofb := LoadLibCryptoFunction('EVP_cast5_ofb'); + if not assigned(EVP_cast5_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_cast5_ofb'); + Result := EVP_cast5_ofb(); +end; + +function Load_EVP_aes_128_ecb: PEVP_CIPHER; cdecl; +begin + EVP_aes_128_ecb := LoadLibCryptoFunction('EVP_aes_128_ecb'); + if not assigned(EVP_aes_128_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_128_ecb'); + Result := EVP_aes_128_ecb(); +end; + +function Load_EVP_aes_128_cbc: PEVP_CIPHER; cdecl; +begin + EVP_aes_128_cbc := LoadLibCryptoFunction('EVP_aes_128_cbc'); + if not assigned(EVP_aes_128_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_128_cbc'); + Result := EVP_aes_128_cbc(); +end; + +function Load_EVP_aes_128_cfb1: PEVP_CIPHER; cdecl; +begin + EVP_aes_128_cfb1 := LoadLibCryptoFunction('EVP_aes_128_cfb1'); + if not assigned(EVP_aes_128_cfb1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_128_cfb1'); + Result := EVP_aes_128_cfb1(); +end; + +function Load_EVP_aes_128_cfb8: PEVP_CIPHER; cdecl; +begin + EVP_aes_128_cfb8 := LoadLibCryptoFunction('EVP_aes_128_cfb8'); + if not assigned(EVP_aes_128_cfb8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_128_cfb8'); + Result := EVP_aes_128_cfb8(); +end; + +function Load_EVP_aes_128_cfb128: PEVP_CIPHER; cdecl; +begin + EVP_aes_128_cfb128 := LoadLibCryptoFunction('EVP_aes_128_cfb128'); + if not assigned(EVP_aes_128_cfb128) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_128_cfb128'); + Result := EVP_aes_128_cfb128(); +end; + +function Load_EVP_aes_128_ofb: PEVP_CIPHER; cdecl; +begin + EVP_aes_128_ofb := LoadLibCryptoFunction('EVP_aes_128_ofb'); + if not assigned(EVP_aes_128_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_128_ofb'); + Result := EVP_aes_128_ofb(); +end; + +function Load_EVP_aes_128_ctr: PEVP_CIPHER; cdecl; +begin + EVP_aes_128_ctr := LoadLibCryptoFunction('EVP_aes_128_ctr'); + if not assigned(EVP_aes_128_ctr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_128_ctr'); + Result := EVP_aes_128_ctr(); +end; + +function Load_EVP_aes_128_ccm: PEVP_CIPHER; cdecl; +begin + EVP_aes_128_ccm := LoadLibCryptoFunction('EVP_aes_128_ccm'); + if not assigned(EVP_aes_128_ccm) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_128_ccm'); + Result := EVP_aes_128_ccm(); +end; + +function Load_EVP_aes_128_gcm: PEVP_CIPHER; cdecl; +begin + EVP_aes_128_gcm := LoadLibCryptoFunction('EVP_aes_128_gcm'); + if not assigned(EVP_aes_128_gcm) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_128_gcm'); + Result := EVP_aes_128_gcm(); +end; + +function Load_EVP_aes_128_xts: PEVP_CIPHER; cdecl; +begin + EVP_aes_128_xts := LoadLibCryptoFunction('EVP_aes_128_xts'); + if not assigned(EVP_aes_128_xts) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_128_xts'); + Result := EVP_aes_128_xts(); +end; + +function Load_EVP_aes_128_wrap: PEVP_CIPHER; cdecl; +begin + EVP_aes_128_wrap := LoadLibCryptoFunction('EVP_aes_128_wrap'); + if not assigned(EVP_aes_128_wrap) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_128_wrap'); + Result := EVP_aes_128_wrap(); +end; + +function Load_EVP_aes_128_wrap_pad: PEVP_CIPHER; cdecl; +begin + EVP_aes_128_wrap_pad := LoadLibCryptoFunction('EVP_aes_128_wrap_pad'); + if not assigned(EVP_aes_128_wrap_pad) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_128_wrap_pad'); + Result := EVP_aes_128_wrap_pad(); +end; + +function Load_EVP_aes_128_ocb: PEVP_CIPHER; cdecl; +begin + EVP_aes_128_ocb := LoadLibCryptoFunction('EVP_aes_128_ocb'); + if not assigned(EVP_aes_128_ocb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_128_ocb'); + Result := EVP_aes_128_ocb(); +end; + +function Load_EVP_aes_192_ecb: PEVP_CIPHER; cdecl; +begin + EVP_aes_192_ecb := LoadLibCryptoFunction('EVP_aes_192_ecb'); + if not assigned(EVP_aes_192_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_192_ecb'); + Result := EVP_aes_192_ecb(); +end; + +function Load_EVP_aes_192_cbc: PEVP_CIPHER; cdecl; +begin + EVP_aes_192_cbc := LoadLibCryptoFunction('EVP_aes_192_cbc'); + if not assigned(EVP_aes_192_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_192_cbc'); + Result := EVP_aes_192_cbc(); +end; + +function Load_EVP_aes_192_cfb1: PEVP_CIPHER; cdecl; +begin + EVP_aes_192_cfb1 := LoadLibCryptoFunction('EVP_aes_192_cfb1'); + if not assigned(EVP_aes_192_cfb1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_192_cfb1'); + Result := EVP_aes_192_cfb1(); +end; + +function Load_EVP_aes_192_cfb8: PEVP_CIPHER; cdecl; +begin + EVP_aes_192_cfb8 := LoadLibCryptoFunction('EVP_aes_192_cfb8'); + if not assigned(EVP_aes_192_cfb8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_192_cfb8'); + Result := EVP_aes_192_cfb8(); +end; + +function Load_EVP_aes_192_cfb128: PEVP_CIPHER; cdecl; +begin + EVP_aes_192_cfb128 := LoadLibCryptoFunction('EVP_aes_192_cfb128'); + if not assigned(EVP_aes_192_cfb128) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_192_cfb128'); + Result := EVP_aes_192_cfb128(); +end; + +function Load_EVP_aes_192_ofb: PEVP_CIPHER; cdecl; +begin + EVP_aes_192_ofb := LoadLibCryptoFunction('EVP_aes_192_ofb'); + if not assigned(EVP_aes_192_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_192_ofb'); + Result := EVP_aes_192_ofb(); +end; + +function Load_EVP_aes_192_ctr: PEVP_CIPHER; cdecl; +begin + EVP_aes_192_ctr := LoadLibCryptoFunction('EVP_aes_192_ctr'); + if not assigned(EVP_aes_192_ctr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_192_ctr'); + Result := EVP_aes_192_ctr(); +end; + +function Load_EVP_aes_192_ccm: PEVP_CIPHER; cdecl; +begin + EVP_aes_192_ccm := LoadLibCryptoFunction('EVP_aes_192_ccm'); + if not assigned(EVP_aes_192_ccm) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_192_ccm'); + Result := EVP_aes_192_ccm(); +end; + +function Load_EVP_aes_192_gcm: PEVP_CIPHER; cdecl; +begin + EVP_aes_192_gcm := LoadLibCryptoFunction('EVP_aes_192_gcm'); + if not assigned(EVP_aes_192_gcm) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_192_gcm'); + Result := EVP_aes_192_gcm(); +end; + +function Load_EVP_aes_192_wrap: PEVP_CIPHER; cdecl; +begin + EVP_aes_192_wrap := LoadLibCryptoFunction('EVP_aes_192_wrap'); + if not assigned(EVP_aes_192_wrap) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_192_wrap'); + Result := EVP_aes_192_wrap(); +end; + +function Load_EVP_aes_192_wrap_pad: PEVP_CIPHER; cdecl; +begin + EVP_aes_192_wrap_pad := LoadLibCryptoFunction('EVP_aes_192_wrap_pad'); + if not assigned(EVP_aes_192_wrap_pad) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_192_wrap_pad'); + Result := EVP_aes_192_wrap_pad(); +end; + +function Load_EVP_aes_192_ocb: PEVP_CIPHER; cdecl; +begin + EVP_aes_192_ocb := LoadLibCryptoFunction('EVP_aes_192_ocb'); + if not assigned(EVP_aes_192_ocb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_192_ocb'); + Result := EVP_aes_192_ocb(); +end; + +function Load_EVP_aes_256_ecb: PEVP_CIPHER; cdecl; +begin + EVP_aes_256_ecb := LoadLibCryptoFunction('EVP_aes_256_ecb'); + if not assigned(EVP_aes_256_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_256_ecb'); + Result := EVP_aes_256_ecb(); +end; + +function Load_EVP_aes_256_cbc: PEVP_CIPHER; cdecl; +begin + EVP_aes_256_cbc := LoadLibCryptoFunction('EVP_aes_256_cbc'); + if not assigned(EVP_aes_256_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_256_cbc'); + Result := EVP_aes_256_cbc(); +end; + +function Load_EVP_aes_256_cfb1: PEVP_CIPHER; cdecl; +begin + EVP_aes_256_cfb1 := LoadLibCryptoFunction('EVP_aes_256_cfb1'); + if not assigned(EVP_aes_256_cfb1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_256_cfb1'); + Result := EVP_aes_256_cfb1(); +end; + +function Load_EVP_aes_256_cfb8: PEVP_CIPHER; cdecl; +begin + EVP_aes_256_cfb8 := LoadLibCryptoFunction('EVP_aes_256_cfb8'); + if not assigned(EVP_aes_256_cfb8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_256_cfb8'); + Result := EVP_aes_256_cfb8(); +end; + +function Load_EVP_aes_256_cfb128: PEVP_CIPHER; cdecl; +begin + EVP_aes_256_cfb128 := LoadLibCryptoFunction('EVP_aes_256_cfb128'); + if not assigned(EVP_aes_256_cfb128) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_256_cfb128'); + Result := EVP_aes_256_cfb128(); +end; + +function Load_EVP_aes_256_ofb: PEVP_CIPHER; cdecl; +begin + EVP_aes_256_ofb := LoadLibCryptoFunction('EVP_aes_256_ofb'); + if not assigned(EVP_aes_256_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_256_ofb'); + Result := EVP_aes_256_ofb(); +end; + +function Load_EVP_aes_256_ctr: PEVP_CIPHER; cdecl; +begin + EVP_aes_256_ctr := LoadLibCryptoFunction('EVP_aes_256_ctr'); + if not assigned(EVP_aes_256_ctr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_256_ctr'); + Result := EVP_aes_256_ctr(); +end; + +function Load_EVP_aes_256_ccm: PEVP_CIPHER; cdecl; +begin + EVP_aes_256_ccm := LoadLibCryptoFunction('EVP_aes_256_ccm'); + if not assigned(EVP_aes_256_ccm) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_256_ccm'); + Result := EVP_aes_256_ccm(); +end; + +function Load_EVP_aes_256_gcm: PEVP_CIPHER; cdecl; +begin + EVP_aes_256_gcm := LoadLibCryptoFunction('EVP_aes_256_gcm'); + if not assigned(EVP_aes_256_gcm) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_256_gcm'); + Result := EVP_aes_256_gcm(); +end; + +function Load_EVP_aes_256_xts: PEVP_CIPHER; cdecl; +begin + EVP_aes_256_xts := LoadLibCryptoFunction('EVP_aes_256_xts'); + if not assigned(EVP_aes_256_xts) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_256_xts'); + Result := EVP_aes_256_xts(); +end; + +function Load_EVP_aes_256_wrap: PEVP_CIPHER; cdecl; +begin + EVP_aes_256_wrap := LoadLibCryptoFunction('EVP_aes_256_wrap'); + if not assigned(EVP_aes_256_wrap) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_256_wrap'); + Result := EVP_aes_256_wrap(); +end; + +function Load_EVP_aes_256_wrap_pad: PEVP_CIPHER; cdecl; +begin + EVP_aes_256_wrap_pad := LoadLibCryptoFunction('EVP_aes_256_wrap_pad'); + if not assigned(EVP_aes_256_wrap_pad) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_256_wrap_pad'); + Result := EVP_aes_256_wrap_pad(); +end; + +function Load_EVP_aes_256_ocb: PEVP_CIPHER; cdecl; +begin + EVP_aes_256_ocb := LoadLibCryptoFunction('EVP_aes_256_ocb'); + if not assigned(EVP_aes_256_ocb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_256_ocb'); + Result := EVP_aes_256_ocb(); +end; + +function Load_EVP_aes_128_cbc_hmac_sha1: PEVP_CIPHER; cdecl; +begin + EVP_aes_128_cbc_hmac_sha1 := LoadLibCryptoFunction('EVP_aes_128_cbc_hmac_sha1'); + if not assigned(EVP_aes_128_cbc_hmac_sha1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_128_cbc_hmac_sha1'); + Result := EVP_aes_128_cbc_hmac_sha1(); +end; + +function Load_EVP_aes_256_cbc_hmac_sha1: PEVP_CIPHER; cdecl; +begin + EVP_aes_256_cbc_hmac_sha1 := LoadLibCryptoFunction('EVP_aes_256_cbc_hmac_sha1'); + if not assigned(EVP_aes_256_cbc_hmac_sha1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_256_cbc_hmac_sha1'); + Result := EVP_aes_256_cbc_hmac_sha1(); +end; + +function Load_EVP_aes_128_cbc_hmac_sha256: PEVP_CIPHER; cdecl; +begin + EVP_aes_128_cbc_hmac_sha256 := LoadLibCryptoFunction('EVP_aes_128_cbc_hmac_sha256'); + if not assigned(EVP_aes_128_cbc_hmac_sha256) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_128_cbc_hmac_sha256'); + Result := EVP_aes_128_cbc_hmac_sha256(); +end; + +function Load_EVP_aes_256_cbc_hmac_sha256: PEVP_CIPHER; cdecl; +begin + EVP_aes_256_cbc_hmac_sha256 := LoadLibCryptoFunction('EVP_aes_256_cbc_hmac_sha256'); + if not assigned(EVP_aes_256_cbc_hmac_sha256) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aes_256_cbc_hmac_sha256'); + Result := EVP_aes_256_cbc_hmac_sha256(); +end; + +function Load_EVP_aria_128_ecb: PEVP_CIPHER; cdecl; +begin + EVP_aria_128_ecb := LoadLibCryptoFunction('EVP_aria_128_ecb'); + if not assigned(EVP_aria_128_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_128_ecb'); + Result := EVP_aria_128_ecb(); +end; + +function Load_EVP_aria_128_cbc: PEVP_CIPHER; cdecl; +begin + EVP_aria_128_cbc := LoadLibCryptoFunction('EVP_aria_128_cbc'); + if not assigned(EVP_aria_128_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_128_cbc'); + Result := EVP_aria_128_cbc(); +end; + +function Load_EVP_aria_128_cfb1: PEVP_CIPHER; cdecl; +begin + EVP_aria_128_cfb1 := LoadLibCryptoFunction('EVP_aria_128_cfb1'); + if not assigned(EVP_aria_128_cfb1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_128_cfb1'); + Result := EVP_aria_128_cfb1(); +end; + +function Load_EVP_aria_128_cfb8: PEVP_CIPHER; cdecl; +begin + EVP_aria_128_cfb8 := LoadLibCryptoFunction('EVP_aria_128_cfb8'); + if not assigned(EVP_aria_128_cfb8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_128_cfb8'); + Result := EVP_aria_128_cfb8(); +end; + +function Load_EVP_aria_128_cfb128: PEVP_CIPHER; cdecl; +begin + EVP_aria_128_cfb128 := LoadLibCryptoFunction('EVP_aria_128_cfb128'); + if not assigned(EVP_aria_128_cfb128) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_128_cfb128'); + Result := EVP_aria_128_cfb128(); +end; + +function Load_EVP_aria_128_ctr: PEVP_CIPHER; cdecl; +begin + EVP_aria_128_ctr := LoadLibCryptoFunction('EVP_aria_128_ctr'); + if not assigned(EVP_aria_128_ctr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_128_ctr'); + Result := EVP_aria_128_ctr(); +end; + +function Load_EVP_aria_128_ofb: PEVP_CIPHER; cdecl; +begin + EVP_aria_128_ofb := LoadLibCryptoFunction('EVP_aria_128_ofb'); + if not assigned(EVP_aria_128_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_128_ofb'); + Result := EVP_aria_128_ofb(); +end; + +function Load_EVP_aria_128_gcm: PEVP_CIPHER; cdecl; +begin + EVP_aria_128_gcm := LoadLibCryptoFunction('EVP_aria_128_gcm'); + if not assigned(EVP_aria_128_gcm) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_128_gcm'); + Result := EVP_aria_128_gcm(); +end; + +function Load_EVP_aria_128_ccm: PEVP_CIPHER; cdecl; +begin + EVP_aria_128_ccm := LoadLibCryptoFunction('EVP_aria_128_ccm'); + if not assigned(EVP_aria_128_ccm) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_128_ccm'); + Result := EVP_aria_128_ccm(); +end; + +function Load_EVP_aria_192_ecb: PEVP_CIPHER; cdecl; +begin + EVP_aria_192_ecb := LoadLibCryptoFunction('EVP_aria_192_ecb'); + if not assigned(EVP_aria_192_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_192_ecb'); + Result := EVP_aria_192_ecb(); +end; + +function Load_EVP_aria_192_cbc: PEVP_CIPHER; cdecl; +begin + EVP_aria_192_cbc := LoadLibCryptoFunction('EVP_aria_192_cbc'); + if not assigned(EVP_aria_192_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_192_cbc'); + Result := EVP_aria_192_cbc(); +end; + +function Load_EVP_aria_192_cfb1: PEVP_CIPHER; cdecl; +begin + EVP_aria_192_cfb1 := LoadLibCryptoFunction('EVP_aria_192_cfb1'); + if not assigned(EVP_aria_192_cfb1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_192_cfb1'); + Result := EVP_aria_192_cfb1(); +end; + +function Load_EVP_aria_192_cfb8: PEVP_CIPHER; cdecl; +begin + EVP_aria_192_cfb8 := LoadLibCryptoFunction('EVP_aria_192_cfb8'); + if not assigned(EVP_aria_192_cfb8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_192_cfb8'); + Result := EVP_aria_192_cfb8(); +end; + +function Load_EVP_aria_192_cfb128: PEVP_CIPHER; cdecl; +begin + EVP_aria_192_cfb128 := LoadLibCryptoFunction('EVP_aria_192_cfb128'); + if not assigned(EVP_aria_192_cfb128) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_192_cfb128'); + Result := EVP_aria_192_cfb128(); +end; + +function Load_EVP_aria_192_ctr: PEVP_CIPHER; cdecl; +begin + EVP_aria_192_ctr := LoadLibCryptoFunction('EVP_aria_192_ctr'); + if not assigned(EVP_aria_192_ctr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_192_ctr'); + Result := EVP_aria_192_ctr(); +end; + +function Load_EVP_aria_192_ofb: PEVP_CIPHER; cdecl; +begin + EVP_aria_192_ofb := LoadLibCryptoFunction('EVP_aria_192_ofb'); + if not assigned(EVP_aria_192_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_192_ofb'); + Result := EVP_aria_192_ofb(); +end; + +function Load_EVP_aria_192_gcm: PEVP_CIPHER; cdecl; +begin + EVP_aria_192_gcm := LoadLibCryptoFunction('EVP_aria_192_gcm'); + if not assigned(EVP_aria_192_gcm) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_192_gcm'); + Result := EVP_aria_192_gcm(); +end; + +function Load_EVP_aria_192_ccm: PEVP_CIPHER; cdecl; +begin + EVP_aria_192_ccm := LoadLibCryptoFunction('EVP_aria_192_ccm'); + if not assigned(EVP_aria_192_ccm) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_192_ccm'); + Result := EVP_aria_192_ccm(); +end; + +function Load_EVP_aria_256_ecb: PEVP_CIPHER; cdecl; +begin + EVP_aria_256_ecb := LoadLibCryptoFunction('EVP_aria_256_ecb'); + if not assigned(EVP_aria_256_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_256_ecb'); + Result := EVP_aria_256_ecb(); +end; + +function Load_EVP_aria_256_cbc: PEVP_CIPHER; cdecl; +begin + EVP_aria_256_cbc := LoadLibCryptoFunction('EVP_aria_256_cbc'); + if not assigned(EVP_aria_256_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_256_cbc'); + Result := EVP_aria_256_cbc(); +end; + +function Load_EVP_aria_256_cfb1: PEVP_CIPHER; cdecl; +begin + EVP_aria_256_cfb1 := LoadLibCryptoFunction('EVP_aria_256_cfb1'); + if not assigned(EVP_aria_256_cfb1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_256_cfb1'); + Result := EVP_aria_256_cfb1(); +end; + +function Load_EVP_aria_256_cfb8: PEVP_CIPHER; cdecl; +begin + EVP_aria_256_cfb8 := LoadLibCryptoFunction('EVP_aria_256_cfb8'); + if not assigned(EVP_aria_256_cfb8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_256_cfb8'); + Result := EVP_aria_256_cfb8(); +end; + +function Load_EVP_aria_256_cfb128: PEVP_CIPHER; cdecl; +begin + EVP_aria_256_cfb128 := LoadLibCryptoFunction('EVP_aria_256_cfb128'); + if not assigned(EVP_aria_256_cfb128) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_256_cfb128'); + Result := EVP_aria_256_cfb128(); +end; + +function Load_EVP_aria_256_ctr: PEVP_CIPHER; cdecl; +begin + EVP_aria_256_ctr := LoadLibCryptoFunction('EVP_aria_256_ctr'); + if not assigned(EVP_aria_256_ctr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_256_ctr'); + Result := EVP_aria_256_ctr(); +end; + +function Load_EVP_aria_256_ofb: PEVP_CIPHER; cdecl; +begin + EVP_aria_256_ofb := LoadLibCryptoFunction('EVP_aria_256_ofb'); + if not assigned(EVP_aria_256_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_256_ofb'); + Result := EVP_aria_256_ofb(); +end; + +function Load_EVP_aria_256_gcm: PEVP_CIPHER; cdecl; +begin + EVP_aria_256_gcm := LoadLibCryptoFunction('EVP_aria_256_gcm'); + if not assigned(EVP_aria_256_gcm) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_256_gcm'); + Result := EVP_aria_256_gcm(); +end; + +function Load_EVP_aria_256_ccm: PEVP_CIPHER; cdecl; +begin + EVP_aria_256_ccm := LoadLibCryptoFunction('EVP_aria_256_ccm'); + if not assigned(EVP_aria_256_ccm) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_aria_256_ccm'); + Result := EVP_aria_256_ccm(); +end; + +function Load_EVP_camellia_128_ecb: PEVP_CIPHER; cdecl; +begin + EVP_camellia_128_ecb := LoadLibCryptoFunction('EVP_camellia_128_ecb'); + if not assigned(EVP_camellia_128_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_128_ecb'); + Result := EVP_camellia_128_ecb(); +end; + +function Load_EVP_camellia_128_cbc: PEVP_CIPHER; cdecl; +begin + EVP_camellia_128_cbc := LoadLibCryptoFunction('EVP_camellia_128_cbc'); + if not assigned(EVP_camellia_128_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_128_cbc'); + Result := EVP_camellia_128_cbc(); +end; + +function Load_EVP_camellia_128_cfb1: PEVP_CIPHER; cdecl; +begin + EVP_camellia_128_cfb1 := LoadLibCryptoFunction('EVP_camellia_128_cfb1'); + if not assigned(EVP_camellia_128_cfb1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_128_cfb1'); + Result := EVP_camellia_128_cfb1(); +end; + +function Load_EVP_camellia_128_cfb8: PEVP_CIPHER; cdecl; +begin + EVP_camellia_128_cfb8 := LoadLibCryptoFunction('EVP_camellia_128_cfb8'); + if not assigned(EVP_camellia_128_cfb8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_128_cfb8'); + Result := EVP_camellia_128_cfb8(); +end; + +function Load_EVP_camellia_128_cfb128: PEVP_CIPHER; cdecl; +begin + EVP_camellia_128_cfb128 := LoadLibCryptoFunction('EVP_camellia_128_cfb128'); + if not assigned(EVP_camellia_128_cfb128) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_128_cfb128'); + Result := EVP_camellia_128_cfb128(); +end; + +function Load_EVP_camellia_128_ofb: PEVP_CIPHER; cdecl; +begin + EVP_camellia_128_ofb := LoadLibCryptoFunction('EVP_camellia_128_ofb'); + if not assigned(EVP_camellia_128_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_128_ofb'); + Result := EVP_camellia_128_ofb(); +end; + +function Load_EVP_camellia_128_ctr: PEVP_CIPHER; cdecl; +begin + EVP_camellia_128_ctr := LoadLibCryptoFunction('EVP_camellia_128_ctr'); + if not assigned(EVP_camellia_128_ctr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_128_ctr'); + Result := EVP_camellia_128_ctr(); +end; + +function Load_EVP_camellia_192_ecb: PEVP_CIPHER; cdecl; +begin + EVP_camellia_192_ecb := LoadLibCryptoFunction('EVP_camellia_192_ecb'); + if not assigned(EVP_camellia_192_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_192_ecb'); + Result := EVP_camellia_192_ecb(); +end; + +function Load_EVP_camellia_192_cbc: PEVP_CIPHER; cdecl; +begin + EVP_camellia_192_cbc := LoadLibCryptoFunction('EVP_camellia_192_cbc'); + if not assigned(EVP_camellia_192_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_192_cbc'); + Result := EVP_camellia_192_cbc(); +end; + +function Load_EVP_camellia_192_cfb1: PEVP_CIPHER; cdecl; +begin + EVP_camellia_192_cfb1 := LoadLibCryptoFunction('EVP_camellia_192_cfb1'); + if not assigned(EVP_camellia_192_cfb1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_192_cfb1'); + Result := EVP_camellia_192_cfb1(); +end; + +function Load_EVP_camellia_192_cfb8: PEVP_CIPHER; cdecl; +begin + EVP_camellia_192_cfb8 := LoadLibCryptoFunction('EVP_camellia_192_cfb8'); + if not assigned(EVP_camellia_192_cfb8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_192_cfb8'); + Result := EVP_camellia_192_cfb8(); +end; + +function Load_EVP_camellia_192_cfb128: PEVP_CIPHER; cdecl; +begin + EVP_camellia_192_cfb128 := LoadLibCryptoFunction('EVP_camellia_192_cfb128'); + if not assigned(EVP_camellia_192_cfb128) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_192_cfb128'); + Result := EVP_camellia_192_cfb128(); +end; + +function Load_EVP_camellia_192_ofb: PEVP_CIPHER; cdecl; +begin + EVP_camellia_192_ofb := LoadLibCryptoFunction('EVP_camellia_192_ofb'); + if not assigned(EVP_camellia_192_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_192_ofb'); + Result := EVP_camellia_192_ofb(); +end; + +function Load_EVP_camellia_192_ctr: PEVP_CIPHER; cdecl; +begin + EVP_camellia_192_ctr := LoadLibCryptoFunction('EVP_camellia_192_ctr'); + if not assigned(EVP_camellia_192_ctr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_192_ctr'); + Result := EVP_camellia_192_ctr(); +end; + +function Load_EVP_camellia_256_ecb: PEVP_CIPHER; cdecl; +begin + EVP_camellia_256_ecb := LoadLibCryptoFunction('EVP_camellia_256_ecb'); + if not assigned(EVP_camellia_256_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_256_ecb'); + Result := EVP_camellia_256_ecb(); +end; + +function Load_EVP_camellia_256_cbc: PEVP_CIPHER; cdecl; +begin + EVP_camellia_256_cbc := LoadLibCryptoFunction('EVP_camellia_256_cbc'); + if not assigned(EVP_camellia_256_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_256_cbc'); + Result := EVP_camellia_256_cbc(); +end; + +function Load_EVP_camellia_256_cfb1: PEVP_CIPHER; cdecl; +begin + EVP_camellia_256_cfb1 := LoadLibCryptoFunction('EVP_camellia_256_cfb1'); + if not assigned(EVP_camellia_256_cfb1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_256_cfb1'); + Result := EVP_camellia_256_cfb1(); +end; + +function Load_EVP_camellia_256_cfb8: PEVP_CIPHER; cdecl; +begin + EVP_camellia_256_cfb8 := LoadLibCryptoFunction('EVP_camellia_256_cfb8'); + if not assigned(EVP_camellia_256_cfb8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_256_cfb8'); + Result := EVP_camellia_256_cfb8(); +end; + +function Load_EVP_camellia_256_cfb128: PEVP_CIPHER; cdecl; +begin + EVP_camellia_256_cfb128 := LoadLibCryptoFunction('EVP_camellia_256_cfb128'); + if not assigned(EVP_camellia_256_cfb128) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_256_cfb128'); + Result := EVP_camellia_256_cfb128(); +end; + +function Load_EVP_camellia_256_ofb: PEVP_CIPHER; cdecl; +begin + EVP_camellia_256_ofb := LoadLibCryptoFunction('EVP_camellia_256_ofb'); + if not assigned(EVP_camellia_256_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_256_ofb'); + Result := EVP_camellia_256_ofb(); +end; + +function Load_EVP_camellia_256_ctr: PEVP_CIPHER; cdecl; +begin + EVP_camellia_256_ctr := LoadLibCryptoFunction('EVP_camellia_256_ctr'); + if not assigned(EVP_camellia_256_ctr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_camellia_256_ctr'); + Result := EVP_camellia_256_ctr(); +end; + +function Load_EVP_chacha20: PEVP_CIPHER; cdecl; +begin + EVP_chacha20 := LoadLibCryptoFunction('EVP_chacha20'); + if not assigned(EVP_chacha20) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_chacha20'); + Result := EVP_chacha20(); +end; + +function Load_EVP_chacha20_poly1305: PEVP_CIPHER; cdecl; +begin + EVP_chacha20_poly1305 := LoadLibCryptoFunction('EVP_chacha20_poly1305'); + if not assigned(EVP_chacha20_poly1305) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_chacha20_poly1305'); + Result := EVP_chacha20_poly1305(); +end; + +function Load_EVP_seed_ecb: PEVP_CIPHER; cdecl; +begin + EVP_seed_ecb := LoadLibCryptoFunction('EVP_seed_ecb'); + if not assigned(EVP_seed_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_seed_ecb'); + Result := EVP_seed_ecb(); +end; + +function Load_EVP_seed_cbc: PEVP_CIPHER; cdecl; +begin + EVP_seed_cbc := LoadLibCryptoFunction('EVP_seed_cbc'); + if not assigned(EVP_seed_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_seed_cbc'); + Result := EVP_seed_cbc(); +end; + +function Load_EVP_seed_cfb128: PEVP_CIPHER; cdecl; +begin + EVP_seed_cfb128 := LoadLibCryptoFunction('EVP_seed_cfb128'); + if not assigned(EVP_seed_cfb128) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_seed_cfb128'); + Result := EVP_seed_cfb128(); +end; + +function Load_EVP_seed_ofb: PEVP_CIPHER; cdecl; +begin + EVP_seed_ofb := LoadLibCryptoFunction('EVP_seed_ofb'); + if not assigned(EVP_seed_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_seed_ofb'); + Result := EVP_seed_ofb(); +end; + +function Load_EVP_sm4_ecb: PEVP_CIPHER; cdecl; +begin + EVP_sm4_ecb := LoadLibCryptoFunction('EVP_sm4_ecb'); + if not assigned(EVP_sm4_ecb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_sm4_ecb'); + Result := EVP_sm4_ecb(); +end; + +function Load_EVP_sm4_cbc: PEVP_CIPHER; cdecl; +begin + EVP_sm4_cbc := LoadLibCryptoFunction('EVP_sm4_cbc'); + if not assigned(EVP_sm4_cbc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_sm4_cbc'); + Result := EVP_sm4_cbc(); +end; + +function Load_EVP_sm4_cfb128: PEVP_CIPHER; cdecl; +begin + EVP_sm4_cfb128 := LoadLibCryptoFunction('EVP_sm4_cfb128'); + if not assigned(EVP_sm4_cfb128) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_sm4_cfb128'); + Result := EVP_sm4_cfb128(); +end; + +function Load_EVP_sm4_ofb: PEVP_CIPHER; cdecl; +begin + EVP_sm4_ofb := LoadLibCryptoFunction('EVP_sm4_ofb'); + if not assigned(EVP_sm4_ofb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_sm4_ofb'); + Result := EVP_sm4_ofb(); +end; + +function Load_EVP_sm4_ctr: PEVP_CIPHER; cdecl; +begin + EVP_sm4_ctr := LoadLibCryptoFunction('EVP_sm4_ctr'); + if not assigned(EVP_sm4_ctr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_sm4_ctr'); + Result := EVP_sm4_ctr(); +end; + +function Load_EVP_add_cipher(const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; +begin + EVP_add_cipher := LoadLibCryptoFunction('EVP_add_cipher'); + if not assigned(EVP_add_cipher) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_add_cipher'); + Result := EVP_add_cipher(cipher); +end; + +function Load_EVP_add_digest(const digest: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + EVP_add_digest := LoadLibCryptoFunction('EVP_add_digest'); + if not assigned(EVP_add_digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_add_digest'); + Result := EVP_add_digest(digest); +end; + +function Load_EVP_get_cipherbyname(const name: PAnsiChar): PEVP_CIPHER; cdecl; +begin + EVP_get_cipherbyname := LoadLibCryptoFunction('EVP_get_cipherbyname'); + if not assigned(EVP_get_cipherbyname) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_get_cipherbyname'); + Result := EVP_get_cipherbyname(name); +end; + +function Load_EVP_get_digestbyname(const name: PAnsiChar): PEVP_MD; cdecl; +begin + EVP_get_digestbyname := LoadLibCryptoFunction('EVP_get_digestbyname'); + if not assigned(EVP_get_digestbyname) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_get_digestbyname'); + Result := EVP_get_digestbyname(name); +end; + +procedure Load_EVP_CIPHER_do_all(AFn: fn; arg: Pointer); cdecl; +begin + EVP_CIPHER_do_all := LoadLibCryptoFunction('EVP_CIPHER_do_all'); + if not assigned(EVP_CIPHER_do_all) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_do_all'); + EVP_CIPHER_do_all(AFn,arg); +end; + +procedure Load_EVP_CIPHER_do_all_sorted(AFn: fn; arg: Pointer); cdecl; +begin + EVP_CIPHER_do_all_sorted := LoadLibCryptoFunction('EVP_CIPHER_do_all_sorted'); + if not assigned(EVP_CIPHER_do_all_sorted) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_do_all_sorted'); + EVP_CIPHER_do_all_sorted(AFn,arg); +end; + +procedure Load_EVP_MD_do_all(AFn: fn; arg: Pointer); cdecl; +begin + EVP_MD_do_all := LoadLibCryptoFunction('EVP_MD_do_all'); + if not assigned(EVP_MD_do_all) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_do_all'); + EVP_MD_do_all(AFn,arg); +end; + +procedure Load_EVP_MD_do_all_sorted(AFn: fn; arg: Pointer); cdecl; +begin + EVP_MD_do_all_sorted := LoadLibCryptoFunction('EVP_MD_do_all_sorted'); + if not assigned(EVP_MD_do_all_sorted) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_do_all_sorted'); + EVP_MD_do_all_sorted(AFn,arg); +end; + +function Load_EVP_PKEY_decrypt_old(dec_key: PByte; const enc_key: PByte; enc_key_len: TOpenSSL_C_INT; private_key: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_decrypt_old := LoadLibCryptoFunction('EVP_PKEY_decrypt_old'); + if not assigned(EVP_PKEY_decrypt_old) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_decrypt_old'); + Result := EVP_PKEY_decrypt_old(dec_key,enc_key,enc_key_len,private_key); +end; + +function Load_EVP_PKEY_encrypt_old(dec_key: PByte; const enc_key: PByte; key_len: TOpenSSL_C_INT; pub_key: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_encrypt_old := LoadLibCryptoFunction('EVP_PKEY_encrypt_old'); + if not assigned(EVP_PKEY_encrypt_old) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_encrypt_old'); + Result := EVP_PKEY_encrypt_old(dec_key,enc_key,key_len,pub_key); +end; + +function Load_EVP_PKEY_type(type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_type := LoadLibCryptoFunction('EVP_PKEY_type'); + if not assigned(EVP_PKEY_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_type'); + Result := EVP_PKEY_type(type_); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_PKEY_id(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_id := LoadLibCryptoFunction('EVP_PKEY_id'); + if not assigned(EVP_PKEY_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_id'); + Result := EVP_PKEY_id(pkey); +end; + +function Load_EVP_PKEY_base_id(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_base_id := LoadLibCryptoFunction('EVP_PKEY_base_id'); + if not assigned(EVP_PKEY_base_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_base_id'); + Result := EVP_PKEY_base_id(pkey); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_PKEY_get_base_id(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_get_base_id := LoadLibCryptoFunction('EVP_PKEY_get_base_id'); + if not assigned(EVP_PKEY_get_base_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get_base_id'); + Result := EVP_PKEY_get_base_id(pkey); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_PKEY_bits(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_bits := LoadLibCryptoFunction('EVP_PKEY_bits'); + if not assigned(EVP_PKEY_bits) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_bits'); + Result := EVP_PKEY_bits(pkey); +end; + +function Load_EVP_PKEY_security_bits(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_security_bits := LoadLibCryptoFunction('EVP_PKEY_security_bits'); + if not assigned(EVP_PKEY_security_bits) then + EVP_PKEY_security_bits := @COMPAT_EVP_PKEY_security_bits; + Result := EVP_PKEY_security_bits(pkey); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_PKEY_get_security_bits(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_get_security_bits := LoadLibCryptoFunction('EVP_PKEY_get_security_bits'); + if not assigned(EVP_PKEY_get_security_bits) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get_security_bits'); + Result := EVP_PKEY_get_security_bits(pkey); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_PKEY_size(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_size := LoadLibCryptoFunction('EVP_PKEY_size'); + if not assigned(EVP_PKEY_size) then + EVP_PKEY_size := @COMPAT_EVP_PKEY_size; + Result := EVP_PKEY_size(pkey); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_PKEY_get_size(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_get_size := LoadLibCryptoFunction('EVP_PKEY_get_size'); + if not assigned(EVP_PKEY_get_size) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get_size'); + Result := EVP_PKEY_get_size(pkey); +end; + +function Load_EVP_PKEY_set_type(pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_set_type := LoadLibCryptoFunction('EVP_PKEY_set_type'); + if not assigned(EVP_PKEY_set_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_set_type'); + Result := EVP_PKEY_set_type(pkey); +end; + +function Load_EVP_PKEY_set_type_str(pkey: PEVP_PKEY; const str: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_set_type_str := LoadLibCryptoFunction('EVP_PKEY_set_type_str'); + if not assigned(EVP_PKEY_set_type_str) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_set_type_str'); + Result := EVP_PKEY_set_type_str(pkey,str,len); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_PKEY_set_alias_type(pkey: PEVP_PKEY; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_set_alias_type := LoadLibCryptoFunction('EVP_PKEY_set_alias_type'); + if not assigned(EVP_PKEY_set_alias_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_set_alias_type'); + Result := EVP_PKEY_set_alias_type(pkey,type_); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_PKEY_set1_engine(pkey: PEVP_PKEY; e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_set1_engine := LoadLibCryptoFunction('EVP_PKEY_set1_engine'); + if not assigned(EVP_PKEY_set1_engine) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_set1_engine'); + Result := EVP_PKEY_set1_engine(pkey,e); +end; + +function Load_EVP_PKEY_get0_engine(const pkey: PEVP_PKEY): PENGINE; cdecl; +begin + EVP_PKEY_get0_engine := LoadLibCryptoFunction('EVP_PKEY_get0_engine'); + if not assigned(EVP_PKEY_get0_engine) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get0_engine'); + Result := EVP_PKEY_get0_engine(pkey); +end; + +function Load_EVP_PKEY_assign(pkey: PEVP_PKEY; type_: TOpenSSL_C_INT; key: Pointer): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_assign := LoadLibCryptoFunction('EVP_PKEY_assign'); + if not assigned(EVP_PKEY_assign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_assign'); + Result := EVP_PKEY_assign(pkey,type_,key); +end; + +function Load_EVP_PKEY_get0(const pkey: PEVP_PKEY): Pointer; cdecl; +begin + EVP_PKEY_get0 := LoadLibCryptoFunction('EVP_PKEY_get0'); + if not assigned(EVP_PKEY_get0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get0'); + Result := EVP_PKEY_get0(pkey); +end; + +function Load_EVP_PKEY_get0_hmac(const pkey: PEVP_PKEY; len: POpenSSL_C_SIZET): PByte; cdecl; +begin + EVP_PKEY_get0_hmac := LoadLibCryptoFunction('EVP_PKEY_get0_hmac'); + if not assigned(EVP_PKEY_get0_hmac) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get0_hmac'); + Result := EVP_PKEY_get0_hmac(pkey,len); +end; + +function Load_EVP_PKEY_get0_poly1305(const pkey: PEVP_PKEY; len: POpenSSL_C_SIZET): PByte; cdecl; +begin + EVP_PKEY_get0_poly1305 := LoadLibCryptoFunction('EVP_PKEY_get0_poly1305'); + if not assigned(EVP_PKEY_get0_poly1305) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get0_poly1305'); + Result := EVP_PKEY_get0_poly1305(pkey,len); +end; + +function Load_EVP_PKEY_get0_siphash(const pkey: PEVP_PKEY; len: POpenSSL_C_SIZET): PByte; cdecl; +begin + EVP_PKEY_get0_siphash := LoadLibCryptoFunction('EVP_PKEY_get0_siphash'); + if not assigned(EVP_PKEY_get0_siphash) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get0_siphash'); + Result := EVP_PKEY_get0_siphash(pkey,len); +end; + +function Load_EVP_PKEY_set1_RSA(pkey: PEVP_PKEY; key: PRSA): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_set1_RSA := LoadLibCryptoFunction('EVP_PKEY_set1_RSA'); + if not assigned(EVP_PKEY_set1_RSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_set1_RSA'); + Result := EVP_PKEY_set1_RSA(pkey,key); +end; + +function Load_EVP_PKEY_get0_RSA(pkey: PEVP_PKEY): PRSA; cdecl; +begin + EVP_PKEY_get0_RSA := LoadLibCryptoFunction('EVP_PKEY_get0_RSA'); + if not assigned(EVP_PKEY_get0_RSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get0_RSA'); + Result := EVP_PKEY_get0_RSA(pkey); +end; + +function Load_EVP_PKEY_get1_RSA(pkey: PEVP_PKEY): PRSA; cdecl; +begin + EVP_PKEY_get1_RSA := LoadLibCryptoFunction('EVP_PKEY_get1_RSA'); + if not assigned(EVP_PKEY_get1_RSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get1_RSA'); + Result := EVP_PKEY_get1_RSA(pkey); +end; + +function Load_EVP_PKEY_set1_DSA(pkey: PEVP_PKEY; key: PDSA): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_set1_DSA := LoadLibCryptoFunction('EVP_PKEY_set1_DSA'); + if not assigned(EVP_PKEY_set1_DSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_set1_DSA'); + Result := EVP_PKEY_set1_DSA(pkey,key); +end; + +function Load_EVP_PKEY_get0_DSA(pkey: PEVP_PKEY): PDSA; cdecl; +begin + EVP_PKEY_get0_DSA := LoadLibCryptoFunction('EVP_PKEY_get0_DSA'); + if not assigned(EVP_PKEY_get0_DSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get0_DSA'); + Result := EVP_PKEY_get0_DSA(pkey); +end; + +function Load_EVP_PKEY_get1_DSA(pkey: PEVP_PKEY): PDSA; cdecl; +begin + EVP_PKEY_get1_DSA := LoadLibCryptoFunction('EVP_PKEY_get1_DSA'); + if not assigned(EVP_PKEY_get1_DSA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get1_DSA'); + Result := EVP_PKEY_get1_DSA(pkey); +end; + +function Load_EVP_PKEY_set1_DH(pkey: PEVP_PKEY; key: PDH): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_set1_DH := LoadLibCryptoFunction('EVP_PKEY_set1_DH'); + if not assigned(EVP_PKEY_set1_DH) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_set1_DH'); + Result := EVP_PKEY_set1_DH(pkey,key); +end; + +function Load_EVP_PKEY_get0_DH(pkey: PEVP_PKEY): PDH; cdecl; +begin + EVP_PKEY_get0_DH := LoadLibCryptoFunction('EVP_PKEY_get0_DH'); + if not assigned(EVP_PKEY_get0_DH) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get0_DH'); + Result := EVP_PKEY_get0_DH(pkey); +end; + +function Load_EVP_PKEY_get1_DH(pkey: PEVP_PKEY): PDH; cdecl; +begin + EVP_PKEY_get1_DH := LoadLibCryptoFunction('EVP_PKEY_get1_DH'); + if not assigned(EVP_PKEY_get1_DH) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get1_DH'); + Result := EVP_PKEY_get1_DH(pkey); +end; + +function Load_EVP_PKEY_set1_EC_KEY(pkey: PEVP_PKEY; key: PEC_KEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_set1_EC_KEY := LoadLibCryptoFunction('EVP_PKEY_set1_EC_KEY'); + if not assigned(EVP_PKEY_set1_EC_KEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_set1_EC_KEY'); + Result := EVP_PKEY_set1_EC_KEY(pkey,key); +end; + +function Load_EVP_PKEY_get0_EC_KEY(pkey: PEVP_PKEY): PEC_KEY; cdecl; +begin + EVP_PKEY_get0_EC_KEY := LoadLibCryptoFunction('EVP_PKEY_get0_EC_KEY'); + if not assigned(EVP_PKEY_get0_EC_KEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get0_EC_KEY'); + Result := EVP_PKEY_get0_EC_KEY(pkey); +end; + +function Load_EVP_PKEY_get1_EC_KEY(pkey: PEVP_PKEY): PEC_KEY; cdecl; +begin + EVP_PKEY_get1_EC_KEY := LoadLibCryptoFunction('EVP_PKEY_get1_EC_KEY'); + if not assigned(EVP_PKEY_get1_EC_KEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get1_EC_KEY'); + Result := EVP_PKEY_get1_EC_KEY(pkey); +end; + +function Load_EVP_PKEY_new: PEVP_PKEY; cdecl; +begin + EVP_PKEY_new := LoadLibCryptoFunction('EVP_PKEY_new'); + if not assigned(EVP_PKEY_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_new'); + Result := EVP_PKEY_new(); +end; + +function Load_EVP_PKEY_up_ref(pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_up_ref := LoadLibCryptoFunction('EVP_PKEY_up_ref'); + if not assigned(EVP_PKEY_up_ref) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_up_ref'); + Result := EVP_PKEY_up_ref(pkey); +end; + +procedure Load_EVP_PKEY_free(pkey: PEVP_PKEY); cdecl; +begin + EVP_PKEY_free := LoadLibCryptoFunction('EVP_PKEY_free'); + if not assigned(EVP_PKEY_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_free'); + EVP_PKEY_free(pkey); +end; + +function Load_d2i_PublicKey(type_: TOpenSSL_C_INT; a: PPEVP_PKEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; +begin + d2i_PublicKey := LoadLibCryptoFunction('d2i_PublicKey'); + if not assigned(d2i_PublicKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_PublicKey'); + Result := d2i_PublicKey(type_,a,pp,length); +end; + +function Load_i2d_PublicKey(a: PEVP_PKEY; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_PublicKey := LoadLibCryptoFunction('i2d_PublicKey'); + if not assigned(i2d_PublicKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PublicKey'); + Result := i2d_PublicKey(a,pp); +end; + +function Load_d2i_PrivateKey(type_: TOpenSSL_C_INT; a: PEVP_PKEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; +begin + d2i_PrivateKey := LoadLibCryptoFunction('d2i_PrivateKey'); + if not assigned(d2i_PrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_PrivateKey'); + Result := d2i_PrivateKey(type_,a,pp,length); +end; + +function Load_d2i_AutoPrivateKey(a: PPEVP_PKEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; +begin + d2i_AutoPrivateKey := LoadLibCryptoFunction('d2i_AutoPrivateKey'); + if not assigned(d2i_AutoPrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_AutoPrivateKey'); + Result := d2i_AutoPrivateKey(a,pp,length); +end; + +function Load_i2d_PrivateKey(a: PEVP_PKEY; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_PrivateKey := LoadLibCryptoFunction('i2d_PrivateKey'); + if not assigned(i2d_PrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PrivateKey'); + Result := i2d_PrivateKey(a,pp); +end; + +function Load_EVP_PKEY_copy_parameters(to_: PEVP_PKEY; const from: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_copy_parameters := LoadLibCryptoFunction('EVP_PKEY_copy_parameters'); + if not assigned(EVP_PKEY_copy_parameters) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_copy_parameters'); + Result := EVP_PKEY_copy_parameters(to_,from); +end; + +function Load_EVP_PKEY_missing_parameters(const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_missing_parameters := LoadLibCryptoFunction('EVP_PKEY_missing_parameters'); + if not assigned(EVP_PKEY_missing_parameters) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_missing_parameters'); + Result := EVP_PKEY_missing_parameters(pkey); +end; + +function Load_EVP_PKEY_save_parameters(pkey: PEVP_PKEY; mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_save_parameters := LoadLibCryptoFunction('EVP_PKEY_save_parameters'); + if not assigned(EVP_PKEY_save_parameters) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_save_parameters'); + Result := EVP_PKEY_save_parameters(pkey,mode); +end; + +function Load_EVP_PKEY_cmp_parameters(const a: PEVP_PKEY; const b: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_cmp_parameters := LoadLibCryptoFunction('EVP_PKEY_cmp_parameters'); + if not assigned(EVP_PKEY_cmp_parameters) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_cmp_parameters'); + Result := EVP_PKEY_cmp_parameters(a,b); +end; + +function Load_EVP_PKEY_cmp(const a: PEVP_PKEY; const b: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_cmp := LoadLibCryptoFunction('EVP_PKEY_cmp'); + if not assigned(EVP_PKEY_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_cmp'); + Result := EVP_PKEY_cmp(a,b); +end; + +function Load_EVP_PKEY_print_public(out_: PBIO; const pkey: PEVP_PKEY; indent: TOpenSSL_C_INT; pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_print_public := LoadLibCryptoFunction('EVP_PKEY_print_public'); + if not assigned(EVP_PKEY_print_public) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_print_public'); + Result := EVP_PKEY_print_public(out_,pkey,indent,pctx); +end; + +function Load_EVP_PKEY_print_private(out_: PBIO; const pkey: PEVP_PKEY; indent: TOpenSSL_C_INT; pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_print_private := LoadLibCryptoFunction('EVP_PKEY_print_private'); + if not assigned(EVP_PKEY_print_private) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_print_private'); + Result := EVP_PKEY_print_private(out_,pkey,indent,pctx); +end; + +function Load_EVP_PKEY_print_params(out_: PBIO; const pkey: PEVP_PKEY; indent: TOpenSSL_C_INT; pctx: PASN1_PCTX): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_print_params := LoadLibCryptoFunction('EVP_PKEY_print_params'); + if not assigned(EVP_PKEY_print_params) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_print_params'); + Result := EVP_PKEY_print_params(out_,pkey,indent,pctx); +end; + +function Load_EVP_PKEY_get_default_digest_nid(pkey: PEVP_PKEY; pnid: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_get_default_digest_nid := LoadLibCryptoFunction('EVP_PKEY_get_default_digest_nid'); + if not assigned(EVP_PKEY_get_default_digest_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get_default_digest_nid'); + Result := EVP_PKEY_get_default_digest_nid(pkey,pnid); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_EVP_PKEY_set1_tls_encodedpoint(pkey: PEVP_PKEY; const pt: PByte; ptlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_set1_tls_encodedpoint := LoadLibCryptoFunction('EVP_PKEY_set1_tls_encodedpoint'); + if not assigned(EVP_PKEY_set1_tls_encodedpoint) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_set1_tls_encodedpoint'); + Result := EVP_PKEY_set1_tls_encodedpoint(pkey,pt,ptlen); +end; + +function Load_EVP_PKEY_get1_tls_encodedpoint(pkey: PEVP_PKEY; ppt: PPByte): TOpenSSL_C_SIZET; cdecl; +begin + EVP_PKEY_get1_tls_encodedpoint := LoadLibCryptoFunction('EVP_PKEY_get1_tls_encodedpoint'); + if not assigned(EVP_PKEY_get1_tls_encodedpoint) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get1_tls_encodedpoint'); + Result := EVP_PKEY_get1_tls_encodedpoint(pkey,ppt); +end; + +function Load_EVP_CIPHER_type(const ctx: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_type := LoadLibCryptoFunction('EVP_CIPHER_type'); + if not assigned(EVP_CIPHER_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_type'); + Result := EVP_CIPHER_type(ctx); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_EVP_CIPHER_param_to_asn1(c: PEVP_CIPHER_CTX; type_: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_param_to_asn1 := LoadLibCryptoFunction('EVP_CIPHER_param_to_asn1'); + if not assigned(EVP_CIPHER_param_to_asn1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_param_to_asn1'); + Result := EVP_CIPHER_param_to_asn1(c,type_); +end; + +function Load_EVP_CIPHER_asn1_to_param(c: PEVP_CIPHER_CTX; type_: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_asn1_to_param := LoadLibCryptoFunction('EVP_CIPHER_asn1_to_param'); + if not assigned(EVP_CIPHER_asn1_to_param) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_asn1_to_param'); + Result := EVP_CIPHER_asn1_to_param(c,type_); +end; + +function Load_EVP_CIPHER_set_asn1_iv(c: PEVP_CIPHER_CTX; type_: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_set_asn1_iv := LoadLibCryptoFunction('EVP_CIPHER_set_asn1_iv'); + if not assigned(EVP_CIPHER_set_asn1_iv) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_set_asn1_iv'); + Result := EVP_CIPHER_set_asn1_iv(c,type_); +end; + +function Load_EVP_CIPHER_get_asn1_iv(c: PEVP_CIPHER_CTX; type_: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +begin + EVP_CIPHER_get_asn1_iv := LoadLibCryptoFunction('EVP_CIPHER_get_asn1_iv'); + if not assigned(EVP_CIPHER_get_asn1_iv) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_CIPHER_get_asn1_iv'); + Result := EVP_CIPHER_get_asn1_iv(c,type_); +end; + +function Load_PKCS5_PBE_keyivgen(ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const cipher: PEVP_CIPHER; const md: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS5_PBE_keyivgen := LoadLibCryptoFunction('PKCS5_PBE_keyivgen'); + if not assigned(PKCS5_PBE_keyivgen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS5_PBE_keyivgen'); + Result := PKCS5_PBE_keyivgen(ctx,pass,passlen,param,cipher,md,en_de); +end; + +function Load_PKCS5_PBKDF2_HMAC_SHA1(const pass: PAnsiChar; passlen: TOpenSSL_C_INT; const salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; keylen: TOpenSSL_C_INT; out_: PByte): TOpenSSL_C_INT; cdecl; +begin + PKCS5_PBKDF2_HMAC_SHA1 := LoadLibCryptoFunction('PKCS5_PBKDF2_HMAC_SHA1'); + if not assigned(PKCS5_PBKDF2_HMAC_SHA1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS5_PBKDF2_HMAC_SHA1'); + Result := PKCS5_PBKDF2_HMAC_SHA1(pass,passlen,salt,saltlen,iter,keylen,out_); +end; + +function Load_PKCS5_PBKDF2_HMAC(const pass: PAnsiChar; passlen: TOpenSSL_C_INT; const salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; const digest: PEVP_MD; keylen: TOpenSSL_C_INT; out_: PByte): TOpenSSL_C_INT; cdecl; +begin + PKCS5_PBKDF2_HMAC := LoadLibCryptoFunction('PKCS5_PBKDF2_HMAC'); + if not assigned(PKCS5_PBKDF2_HMAC) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS5_PBKDF2_HMAC'); + Result := PKCS5_PBKDF2_HMAC(pass,passlen,salt,saltlen,iter,digest,keylen,out_); +end; + +function Load_PKCS5_v2_PBE_keyivgen(ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const cipher: PEVP_CIPHER; const md: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS5_v2_PBE_keyivgen := LoadLibCryptoFunction('PKCS5_v2_PBE_keyivgen'); + if not assigned(PKCS5_v2_PBE_keyivgen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS5_v2_PBE_keyivgen'); + Result := PKCS5_v2_PBE_keyivgen(ctx,pass,passlen,param,cipher,md,en_de); +end; + +function Load_EVP_PBE_scrypt(const pass: PAnsiChar; passlen: TOpenSSL_C_SIZET; const salt: PByte; saltlen: TOpenSSL_C_SIZET; N: TOpenSSL_C_UINT64; r: TOpenSSL_C_UINT64; p: TOpenSSL_C_UINT64; maxmem: TOpenSSL_C_UINT64; key: PByte; keylen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_PBE_scrypt := LoadLibCryptoFunction('EVP_PBE_scrypt'); + if not assigned(EVP_PBE_scrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PBE_scrypt'); + Result := EVP_PBE_scrypt(pass,passlen,salt,saltlen,N,r,p,maxmem,key,keylen); +end; + +function Load_PKCS5_v2_scrypt_keyivgen(ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const c: PEVP_CIPHER; const md: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS5_v2_scrypt_keyivgen := LoadLibCryptoFunction('PKCS5_v2_scrypt_keyivgen'); + if not assigned(PKCS5_v2_scrypt_keyivgen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS5_v2_scrypt_keyivgen'); + Result := PKCS5_v2_scrypt_keyivgen(ctx,pass,passlen,param,c,md,en_de); +end; + +procedure Load_PKCS5_PBE_add; cdecl; +begin + PKCS5_PBE_add := LoadLibCryptoFunction('PKCS5_PBE_add'); + if not assigned(PKCS5_PBE_add) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS5_PBE_add'); + PKCS5_PBE_add(); +end; + +function Load_EVP_PBE_CipherInit(pbe_obj: PASN1_OBJECT; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; ctx: PEVP_CIPHER_CTX; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_PBE_CipherInit := LoadLibCryptoFunction('EVP_PBE_CipherInit'); + if not assigned(EVP_PBE_CipherInit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PBE_CipherInit'); + Result := EVP_PBE_CipherInit(pbe_obj,pass,passlen,param,ctx,en_de); +end; + +function Load_EVP_PBE_alg_add_type(pbe_type: TOpenSSL_C_INT; pbe_nid: TOpenSSL_C_INT; cipher_nid: TOpenSSL_C_INT; md_nid: TOpenSSL_C_INT; keygen: PEVP_PBE_KEYGEN): TOpenSSL_C_INT; cdecl; +begin + EVP_PBE_alg_add_type := LoadLibCryptoFunction('EVP_PBE_alg_add_type'); + if not assigned(EVP_PBE_alg_add_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PBE_alg_add_type'); + Result := EVP_PBE_alg_add_type(pbe_type,pbe_nid,cipher_nid,md_nid,keygen); +end; + +function Load_EVP_PBE_alg_add(nid: TOpenSSL_C_INT; const cipher: PEVP_CIPHER; const md: PEVP_MD; keygen: PEVP_PBE_KEYGEN): TOpenSSL_C_INT; cdecl; +begin + EVP_PBE_alg_add := LoadLibCryptoFunction('EVP_PBE_alg_add'); + if not assigned(EVP_PBE_alg_add) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PBE_alg_add'); + Result := EVP_PBE_alg_add(nid,cipher,md,keygen); +end; + +function Load_EVP_PBE_find(type_: TOpenSSL_C_INT; pbe_nid: TOpenSSL_C_INT; pcnid: POpenSSL_C_INT; pmnid: POpenSSL_C_INT; pkeygen: PPEVP_PBE_KEYGEN): TOpenSSL_C_INT; cdecl; +begin + EVP_PBE_find := LoadLibCryptoFunction('EVP_PBE_find'); + if not assigned(EVP_PBE_find) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PBE_find'); + Result := EVP_PBE_find(type_,pbe_nid,pcnid,pmnid,pkeygen); +end; + +procedure Load_EVP_PBE_cleanup; cdecl; +begin + EVP_PBE_cleanup := LoadLibCryptoFunction('EVP_PBE_cleanup'); + if not assigned(EVP_PBE_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PBE_cleanup'); + EVP_PBE_cleanup(); +end; + +function Load_EVP_PBE_get(ptype: POpenSSL_C_INT; ppbe_nid: POpenSSL_C_INT; num: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_PBE_get := LoadLibCryptoFunction('EVP_PBE_get'); + if not assigned(EVP_PBE_get) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PBE_get'); + Result := EVP_PBE_get(ptype,ppbe_nid,num); +end; + +function Load_EVP_PKEY_asn1_get_count: TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_asn1_get_count := LoadLibCryptoFunction('EVP_PKEY_asn1_get_count'); + if not assigned(EVP_PKEY_asn1_get_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_get_count'); + Result := EVP_PKEY_asn1_get_count(); +end; + +function Load_EVP_PKEY_asn1_get0(idx: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; +begin + EVP_PKEY_asn1_get0 := LoadLibCryptoFunction('EVP_PKEY_asn1_get0'); + if not assigned(EVP_PKEY_asn1_get0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_get0'); + Result := EVP_PKEY_asn1_get0(idx); +end; + +function Load_EVP_PKEY_asn1_find(pe: PPENGINE; type_: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; +begin + EVP_PKEY_asn1_find := LoadLibCryptoFunction('EVP_PKEY_asn1_find'); + if not assigned(EVP_PKEY_asn1_find) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_find'); + Result := EVP_PKEY_asn1_find(pe,type_); +end; + +function Load_EVP_PKEY_asn1_find_str(pe: PPENGINE; const str: PAnsiChar; len: TOpenSSL_C_INT): PEVP_PKEY_ASN1_METHOD; cdecl; +begin + EVP_PKEY_asn1_find_str := LoadLibCryptoFunction('EVP_PKEY_asn1_find_str'); + if not assigned(EVP_PKEY_asn1_find_str) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_find_str'); + Result := EVP_PKEY_asn1_find_str(pe,str,len); +end; + +function Load_EVP_PKEY_asn1_add0(const ameth: PEVP_PKEY_ASN1_METHOD): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_asn1_add0 := LoadLibCryptoFunction('EVP_PKEY_asn1_add0'); + if not assigned(EVP_PKEY_asn1_add0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_add0'); + Result := EVP_PKEY_asn1_add0(ameth); +end; + +function Load_EVP_PKEY_asn1_add_alias(to_: TOpenSSL_C_INT; from: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_asn1_add_alias := LoadLibCryptoFunction('EVP_PKEY_asn1_add_alias'); + if not assigned(EVP_PKEY_asn1_add_alias) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_add_alias'); + Result := EVP_PKEY_asn1_add_alias(to_,from); +end; + +function Load_EVP_PKEY_asn1_get0_info(ppkey_id: POpenSSL_C_INT; pkey_base_id: POpenSSL_C_INT; ppkey_flags: POpenSSL_C_INT; const pinfo: PPAnsiChar; const ppem_str: PPAnsiChar; const ameth: PEVP_PKEY_ASN1_METHOD): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_asn1_get0_info := LoadLibCryptoFunction('EVP_PKEY_asn1_get0_info'); + if not assigned(EVP_PKEY_asn1_get0_info) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_get0_info'); + Result := EVP_PKEY_asn1_get0_info(ppkey_id,pkey_base_id,ppkey_flags,pinfo,ppem_str,ameth); +end; + +function Load_EVP_PKEY_get0_asn1(const pkey: PEVP_PKEY): PEVP_PKEY_ASN1_METHOD; cdecl; +begin + EVP_PKEY_get0_asn1 := LoadLibCryptoFunction('EVP_PKEY_get0_asn1'); + if not assigned(EVP_PKEY_get0_asn1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get0_asn1'); + Result := EVP_PKEY_get0_asn1(pkey); +end; + +function Load_EVP_PKEY_asn1_new(id: TOpenSSL_C_INT; flags: TOpenSSL_C_INT; const pem_str: PAnsiChar; const info: PAnsiChar): PEVP_PKEY_ASN1_METHOD; cdecl; +begin + EVP_PKEY_asn1_new := LoadLibCryptoFunction('EVP_PKEY_asn1_new'); + if not assigned(EVP_PKEY_asn1_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_new'); + Result := EVP_PKEY_asn1_new(id,flags,pem_str,info); +end; + +procedure Load_EVP_PKEY_asn1_copy(dst: PEVP_PKEY_ASN1_METHOD; const src: PEVP_PKEY_ASN1_METHOD); cdecl; +begin + EVP_PKEY_asn1_copy := LoadLibCryptoFunction('EVP_PKEY_asn1_copy'); + if not assigned(EVP_PKEY_asn1_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_copy'); + EVP_PKEY_asn1_copy(dst,src); +end; + +procedure Load_EVP_PKEY_asn1_free(ameth: PEVP_PKEY_ASN1_METHOD); cdecl; +begin + EVP_PKEY_asn1_free := LoadLibCryptoFunction('EVP_PKEY_asn1_free'); + if not assigned(EVP_PKEY_asn1_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_free'); + EVP_PKEY_asn1_free(ameth); +end; + +procedure Load_EVP_PKEY_asn1_set_public(ameth: PEVP_PKEY_ASN1_METHOD; APub_decode: pub_decode; APub_encode: pub_encode; APub_cmd: pub_cmd; APub_print: pub_print; APkey_size: pkey_size; APkey_bits: pkey_bits); cdecl; +begin + EVP_PKEY_asn1_set_public := LoadLibCryptoFunction('EVP_PKEY_asn1_set_public'); + if not assigned(EVP_PKEY_asn1_set_public) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_set_public'); + EVP_PKEY_asn1_set_public(ameth,APub_decode,APub_encode,APub_cmd,APub_print,APkey_size,APkey_bits); +end; + +procedure Load_EVP_PKEY_asn1_set_private(ameth: PEVP_PKEY_ASN1_METHOD; APriv_decode: priv_decode; APriv_encode: priv_encode; APriv_print: priv_print); cdecl; +begin + EVP_PKEY_asn1_set_private := LoadLibCryptoFunction('EVP_PKEY_asn1_set_private'); + if not assigned(EVP_PKEY_asn1_set_private) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_set_private'); + EVP_PKEY_asn1_set_private(ameth,APriv_decode,APriv_encode,APriv_print); +end; + +procedure Load_EVP_PKEY_asn1_set_param(ameth: PEVP_PKEY_ASN1_METHOD; AParam_decode: param_decode; AParam_encode: param_encode; AParam_missing: param_missing; AParam_copy: param_copy; AParam_cmp: param_cmp; AParam_print: param_print); cdecl; +begin + EVP_PKEY_asn1_set_param := LoadLibCryptoFunction('EVP_PKEY_asn1_set_param'); + if not assigned(EVP_PKEY_asn1_set_param) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_set_param'); + EVP_PKEY_asn1_set_param(ameth,AParam_decode,AParam_encode,AParam_missing,AParam_copy,AParam_cmp,AParam_print); +end; + +procedure Load_EVP_PKEY_asn1_set_free(ameth: PEVP_PKEY_ASN1_METHOD; APkey_free: pkey_free); cdecl; +begin + EVP_PKEY_asn1_set_free := LoadLibCryptoFunction('EVP_PKEY_asn1_set_free'); + if not assigned(EVP_PKEY_asn1_set_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_set_free'); + EVP_PKEY_asn1_set_free(ameth,APkey_free); +end; + +procedure Load_EVP_PKEY_asn1_set_ctrl(ameth: PEVP_PKEY_ASN1_METHOD; APkey_ctrl: pkey_ctrl); cdecl; +begin + EVP_PKEY_asn1_set_ctrl := LoadLibCryptoFunction('EVP_PKEY_asn1_set_ctrl'); + if not assigned(EVP_PKEY_asn1_set_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_set_ctrl'); + EVP_PKEY_asn1_set_ctrl(ameth,APkey_ctrl); +end; + +procedure Load_EVP_PKEY_asn1_set_item(ameth: PEVP_PKEY_ASN1_METHOD; AItem_verify: item_verify; AItem_sign: item_sign); cdecl; +begin + EVP_PKEY_asn1_set_item := LoadLibCryptoFunction('EVP_PKEY_asn1_set_item'); + if not assigned(EVP_PKEY_asn1_set_item) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_set_item'); + EVP_PKEY_asn1_set_item(ameth,AItem_verify,AItem_sign); +end; + +procedure Load_EVP_PKEY_asn1_set_siginf(ameth: PEVP_PKEY_ASN1_METHOD; ASiginf_set: siginf_set); cdecl; +begin + EVP_PKEY_asn1_set_siginf := LoadLibCryptoFunction('EVP_PKEY_asn1_set_siginf'); + if not assigned(EVP_PKEY_asn1_set_siginf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_set_siginf'); + EVP_PKEY_asn1_set_siginf(ameth,ASiginf_set); +end; + +procedure Load_EVP_PKEY_asn1_set_check(ameth: PEVP_PKEY_ASN1_METHOD; APkey_check: pkey_check); cdecl; +begin + EVP_PKEY_asn1_set_check := LoadLibCryptoFunction('EVP_PKEY_asn1_set_check'); + if not assigned(EVP_PKEY_asn1_set_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_set_check'); + EVP_PKEY_asn1_set_check(ameth,APkey_check); +end; + +procedure Load_EVP_PKEY_asn1_set_public_check(ameth: PEVP_PKEY_ASN1_METHOD; APkey_pub_check: pkey_pub_check); cdecl; +begin + EVP_PKEY_asn1_set_public_check := LoadLibCryptoFunction('EVP_PKEY_asn1_set_public_check'); + if not assigned(EVP_PKEY_asn1_set_public_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_set_public_check'); + EVP_PKEY_asn1_set_public_check(ameth,APkey_pub_check); +end; + +procedure Load_EVP_PKEY_asn1_set_param_check(ameth: PEVP_PKEY_ASN1_METHOD; APkey_param_check: pkey_param_check); cdecl; +begin + EVP_PKEY_asn1_set_param_check := LoadLibCryptoFunction('EVP_PKEY_asn1_set_param_check'); + if not assigned(EVP_PKEY_asn1_set_param_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_set_param_check'); + EVP_PKEY_asn1_set_param_check(ameth,APkey_param_check); +end; + +procedure Load_EVP_PKEY_asn1_set_set_priv_key(ameth: PEVP_PKEY_ASN1_METHOD; ASet_priv_key: set_priv_key); cdecl; +begin + EVP_PKEY_asn1_set_set_priv_key := LoadLibCryptoFunction('EVP_PKEY_asn1_set_set_priv_key'); + if not assigned(EVP_PKEY_asn1_set_set_priv_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_set_set_priv_key'); + EVP_PKEY_asn1_set_set_priv_key(ameth,ASet_priv_key); +end; + +procedure Load_EVP_PKEY_asn1_set_set_pub_key(ameth: PEVP_PKEY_ASN1_METHOD; ASet_pub_key: set_pub_key); cdecl; +begin + EVP_PKEY_asn1_set_set_pub_key := LoadLibCryptoFunction('EVP_PKEY_asn1_set_set_pub_key'); + if not assigned(EVP_PKEY_asn1_set_set_pub_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_set_set_pub_key'); + EVP_PKEY_asn1_set_set_pub_key(ameth,ASet_pub_key); +end; + +procedure Load_EVP_PKEY_asn1_set_get_priv_key(ameth: PEVP_PKEY_ASN1_METHOD; AGet_priv_key: get_priv_key); cdecl; +begin + EVP_PKEY_asn1_set_get_priv_key := LoadLibCryptoFunction('EVP_PKEY_asn1_set_get_priv_key'); + if not assigned(EVP_PKEY_asn1_set_get_priv_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_set_get_priv_key'); + EVP_PKEY_asn1_set_get_priv_key(ameth,AGet_priv_key); +end; + +procedure Load_EVP_PKEY_asn1_set_get_pub_key(ameth: PEVP_PKEY_ASN1_METHOD; AGet_pub_key: get_pub_key); cdecl; +begin + EVP_PKEY_asn1_set_get_pub_key := LoadLibCryptoFunction('EVP_PKEY_asn1_set_get_pub_key'); + if not assigned(EVP_PKEY_asn1_set_get_pub_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_set_get_pub_key'); + EVP_PKEY_asn1_set_get_pub_key(ameth,AGet_pub_key); +end; + +procedure Load_EVP_PKEY_asn1_set_security_bits(ameth: PEVP_PKEY_ASN1_METHOD; APkey_security_bits: pkey_security_bits); cdecl; +begin + EVP_PKEY_asn1_set_security_bits := LoadLibCryptoFunction('EVP_PKEY_asn1_set_security_bits'); + if not assigned(EVP_PKEY_asn1_set_security_bits) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_asn1_set_security_bits'); + EVP_PKEY_asn1_set_security_bits(ameth,APkey_security_bits); +end; + +function Load_EVP_PKEY_meth_find(type_: TOpenSSL_C_INT): PEVP_PKEY_METHOD; cdecl; +begin + EVP_PKEY_meth_find := LoadLibCryptoFunction('EVP_PKEY_meth_find'); + if not assigned(EVP_PKEY_meth_find) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_find'); + Result := EVP_PKEY_meth_find(type_); +end; + +function Load_EVP_PKEY_meth_new(id: TOpenSSL_C_INT; flags: TOpenSSL_C_INT): PEVP_PKEY_METHOD; cdecl; +begin + EVP_PKEY_meth_new := LoadLibCryptoFunction('EVP_PKEY_meth_new'); + if not assigned(EVP_PKEY_meth_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_new'); + Result := EVP_PKEY_meth_new(id,flags); +end; + +procedure Load_EVP_PKEY_meth_get0_info(ppkey_id: POpenSSL_C_INT; pflags: POpenSSL_C_INT; const meth: PEVP_PKEY_METHOD); cdecl; +begin + EVP_PKEY_meth_get0_info := LoadLibCryptoFunction('EVP_PKEY_meth_get0_info'); + if not assigned(EVP_PKEY_meth_get0_info) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get0_info'); + EVP_PKEY_meth_get0_info(ppkey_id,pflags,meth); +end; + +procedure Load_EVP_PKEY_meth_copy(dst: PEVP_PKEY_METHOD; const src: PEVP_PKEY_METHOD); cdecl; +begin + EVP_PKEY_meth_copy := LoadLibCryptoFunction('EVP_PKEY_meth_copy'); + if not assigned(EVP_PKEY_meth_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_copy'); + EVP_PKEY_meth_copy(dst,src); +end; + +procedure Load_EVP_PKEY_meth_free(pmeth: PEVP_PKEY_METHOD); cdecl; +begin + EVP_PKEY_meth_free := LoadLibCryptoFunction('EVP_PKEY_meth_free'); + if not assigned(EVP_PKEY_meth_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_free'); + EVP_PKEY_meth_free(pmeth); +end; + +function Load_EVP_PKEY_meth_add0(const pmeth: PEVP_PKEY_METHOD): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_meth_add0 := LoadLibCryptoFunction('EVP_PKEY_meth_add0'); + if not assigned(EVP_PKEY_meth_add0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_add0'); + Result := EVP_PKEY_meth_add0(pmeth); +end; + +function Load_EVP_PKEY_meth_remove(const pmeth: PEVP_PKEY_METHOD): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_meth_remove := LoadLibCryptoFunction('EVP_PKEY_meth_remove'); + if not assigned(EVP_PKEY_meth_remove) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_remove'); + Result := EVP_PKEY_meth_remove(pmeth); +end; + +function Load_EVP_PKEY_meth_get_count: TOpenSSL_C_SIZET; cdecl; +begin + EVP_PKEY_meth_get_count := LoadLibCryptoFunction('EVP_PKEY_meth_get_count'); + if not assigned(EVP_PKEY_meth_get_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_count'); + Result := EVP_PKEY_meth_get_count(); +end; + +function Load_EVP_PKEY_meth_get0(idx: TOpenSSL_C_SIZET): PEVP_PKEY_METHOD; cdecl; +begin + EVP_PKEY_meth_get0 := LoadLibCryptoFunction('EVP_PKEY_meth_get0'); + if not assigned(EVP_PKEY_meth_get0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get0'); + Result := EVP_PKEY_meth_get0(idx); +end; + +function Load_EVP_PKEY_CTX_new(pkey: PEVP_PKEY; e: PENGINE): PEVP_PKEY_CTX; cdecl; +begin + EVP_PKEY_CTX_new := LoadLibCryptoFunction('EVP_PKEY_CTX_new'); + if not assigned(EVP_PKEY_CTX_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_new'); + Result := EVP_PKEY_CTX_new(pkey,e); +end; + +function Load_EVP_PKEY_CTX_new_id(id: TOpenSSL_C_INT; e: PENGINE): PEVP_PKEY_CTX; cdecl; +begin + EVP_PKEY_CTX_new_id := LoadLibCryptoFunction('EVP_PKEY_CTX_new_id'); + if not assigned(EVP_PKEY_CTX_new_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_new_id'); + Result := EVP_PKEY_CTX_new_id(id,e); +end; + +function Load_EVP_PKEY_CTX_dup(ctx: PEVP_PKEY_CTX): PEVP_PKEY_CTX; cdecl; +begin + EVP_PKEY_CTX_dup := LoadLibCryptoFunction('EVP_PKEY_CTX_dup'); + if not assigned(EVP_PKEY_CTX_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_dup'); + Result := EVP_PKEY_CTX_dup(ctx); +end; + +procedure Load_EVP_PKEY_CTX_free(ctx: PEVP_PKEY_CTX); cdecl; +begin + EVP_PKEY_CTX_free := LoadLibCryptoFunction('EVP_PKEY_CTX_free'); + if not assigned(EVP_PKEY_CTX_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_free'); + EVP_PKEY_CTX_free(ctx); +end; + +function Load_EVP_PKEY_CTX_ctrl(ctx: PEVP_PKEY_CTX; keytype: TOpenSSL_C_INT; optype: TOpenSSL_C_INT; cmd: TOpenSSL_C_INT; p1: TOpenSSL_C_INT; p2: Pointer): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_CTX_ctrl := LoadLibCryptoFunction('EVP_PKEY_CTX_ctrl'); + if not assigned(EVP_PKEY_CTX_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_ctrl'); + Result := EVP_PKEY_CTX_ctrl(ctx,keytype,optype,cmd,p1,p2); +end; + +function Load_EVP_PKEY_CTX_ctrl_str(ctx: PEVP_PKEY_CTX; const type_: PAnsiChar; const value: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_CTX_ctrl_str := LoadLibCryptoFunction('EVP_PKEY_CTX_ctrl_str'); + if not assigned(EVP_PKEY_CTX_ctrl_str) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_ctrl_str'); + Result := EVP_PKEY_CTX_ctrl_str(ctx,type_,value); +end; + +function Load_EVP_PKEY_CTX_ctrl_uint64(ctx: PEVP_PKEY_CTX; keytype: TOpenSSL_C_INT; optype: TOpenSSL_C_INT; cmd: TOpenSSL_C_INT; value: TOpenSSL_C_UINT64): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_CTX_ctrl_uint64 := LoadLibCryptoFunction('EVP_PKEY_CTX_ctrl_uint64'); + if not assigned(EVP_PKEY_CTX_ctrl_uint64) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_ctrl_uint64'); + Result := EVP_PKEY_CTX_ctrl_uint64(ctx,keytype,optype,cmd,value); +end; + +function Load_EVP_PKEY_CTX_str2ctrl(ctx: PEVP_PKEY_CTX; cmd: TOpenSSL_C_INT; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_CTX_str2ctrl := LoadLibCryptoFunction('EVP_PKEY_CTX_str2ctrl'); + if not assigned(EVP_PKEY_CTX_str2ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_str2ctrl'); + Result := EVP_PKEY_CTX_str2ctrl(ctx,cmd,str); +end; + +function Load_EVP_PKEY_CTX_hex2ctrl(ctx: PEVP_PKEY_CTX; cmd: TOpenSSL_C_INT; const hex: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_CTX_hex2ctrl := LoadLibCryptoFunction('EVP_PKEY_CTX_hex2ctrl'); + if not assigned(EVP_PKEY_CTX_hex2ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_hex2ctrl'); + Result := EVP_PKEY_CTX_hex2ctrl(ctx,cmd,hex); +end; + +function Load_EVP_PKEY_CTX_md(ctx: PEVP_PKEY_CTX; optype: TOpenSSL_C_INT; cmd: TOpenSSL_C_INT; const md: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_CTX_md := LoadLibCryptoFunction('EVP_PKEY_CTX_md'); + if not assigned(EVP_PKEY_CTX_md) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_md'); + Result := EVP_PKEY_CTX_md(ctx,optype,cmd,md); +end; + +function Load_EVP_PKEY_CTX_get_operation(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_CTX_get_operation := LoadLibCryptoFunction('EVP_PKEY_CTX_get_operation'); + if not assigned(EVP_PKEY_CTX_get_operation) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_get_operation'); + Result := EVP_PKEY_CTX_get_operation(ctx); +end; + +procedure Load_EVP_PKEY_CTX_set0_keygen_info(ctx: PEVP_PKEY_CTX; dat: POpenSSL_C_INT; datlen: TOpenSSL_C_INT); cdecl; +begin + EVP_PKEY_CTX_set0_keygen_info := LoadLibCryptoFunction('EVP_PKEY_CTX_set0_keygen_info'); + if not assigned(EVP_PKEY_CTX_set0_keygen_info) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_set0_keygen_info'); + EVP_PKEY_CTX_set0_keygen_info(ctx,dat,datlen); +end; + +function Load_EVP_PKEY_new_mac_key(type_: TOpenSSL_C_INT; e: PENGINE; const key: PByte; keylen: TOpenSSL_C_INT): PEVP_PKEY; cdecl; +begin + EVP_PKEY_new_mac_key := LoadLibCryptoFunction('EVP_PKEY_new_mac_key'); + if not assigned(EVP_PKEY_new_mac_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_new_mac_key'); + Result := EVP_PKEY_new_mac_key(type_,e,key,keylen); +end; + +function Load_EVP_PKEY_new_raw_private_key(type_: TOpenSSL_C_INT; e: PENGINE; const priv: PByte; len: TOpenSSL_C_SIZET): PEVP_PKEY; cdecl; +begin + EVP_PKEY_new_raw_private_key := LoadLibCryptoFunction('EVP_PKEY_new_raw_private_key'); + if not assigned(EVP_PKEY_new_raw_private_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_new_raw_private_key'); + Result := EVP_PKEY_new_raw_private_key(type_,e,priv,len); +end; + +function Load_EVP_PKEY_new_raw_public_key(type_: TOpenSSL_C_INT; e: PENGINE; const pub: PByte; len: TOpenSSL_C_SIZET): PEVP_PKEY; cdecl; +begin + EVP_PKEY_new_raw_public_key := LoadLibCryptoFunction('EVP_PKEY_new_raw_public_key'); + if not assigned(EVP_PKEY_new_raw_public_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_new_raw_public_key'); + Result := EVP_PKEY_new_raw_public_key(type_,e,pub,len); +end; + +function Load_EVP_PKEY_get_raw_private_key(const pkey: PEVP_PKEY; priv: PByte; len: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_get_raw_private_key := LoadLibCryptoFunction('EVP_PKEY_get_raw_private_key'); + if not assigned(EVP_PKEY_get_raw_private_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get_raw_private_key'); + Result := EVP_PKEY_get_raw_private_key(pkey,priv,len); +end; + +function Load_EVP_PKEY_get_raw_public_key(const pkey: PEVP_PKEY; pub: PByte; len: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_get_raw_public_key := LoadLibCryptoFunction('EVP_PKEY_get_raw_public_key'); + if not assigned(EVP_PKEY_get_raw_public_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get_raw_public_key'); + Result := EVP_PKEY_get_raw_public_key(pkey,pub,len); +end; + +function Load_EVP_PKEY_new_CMAC_key(e: PENGINE; const priv: PByte; len: TOpenSSL_C_SIZET; const cipher: PEVP_CIPHER): PEVP_PKEY; cdecl; +begin + EVP_PKEY_new_CMAC_key := LoadLibCryptoFunction('EVP_PKEY_new_CMAC_key'); + if not assigned(EVP_PKEY_new_CMAC_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_new_CMAC_key'); + Result := EVP_PKEY_new_CMAC_key(e,priv,len,cipher); +end; + +procedure Load_EVP_PKEY_CTX_set_data(ctx: PEVP_PKEY_CTX; data: Pointer); cdecl; +begin + EVP_PKEY_CTX_set_data := LoadLibCryptoFunction('EVP_PKEY_CTX_set_data'); + if not assigned(EVP_PKEY_CTX_set_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_set_data'); + EVP_PKEY_CTX_set_data(ctx,data); +end; + +function Load_EVP_PKEY_CTX_get_data(ctx: PEVP_PKEY_CTX): Pointer; cdecl; +begin + EVP_PKEY_CTX_get_data := LoadLibCryptoFunction('EVP_PKEY_CTX_get_data'); + if not assigned(EVP_PKEY_CTX_get_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_get_data'); + Result := EVP_PKEY_CTX_get_data(ctx); +end; + +function Load_EVP_PKEY_CTX_get0_pkey(ctx: PEVP_PKEY_CTX): PEVP_PKEY; cdecl; +begin + EVP_PKEY_CTX_get0_pkey := LoadLibCryptoFunction('EVP_PKEY_CTX_get0_pkey'); + if not assigned(EVP_PKEY_CTX_get0_pkey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_get0_pkey'); + Result := EVP_PKEY_CTX_get0_pkey(ctx); +end; + +function Load_EVP_PKEY_CTX_get0_peerkey(ctx: PEVP_PKEY_CTX): PEVP_PKEY; cdecl; +begin + EVP_PKEY_CTX_get0_peerkey := LoadLibCryptoFunction('EVP_PKEY_CTX_get0_peerkey'); + if not assigned(EVP_PKEY_CTX_get0_peerkey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_get0_peerkey'); + Result := EVP_PKEY_CTX_get0_peerkey(ctx); +end; + +procedure Load_EVP_PKEY_CTX_set_app_data(ctx: PEVP_PKEY_CTX; data: Pointer); cdecl; +begin + EVP_PKEY_CTX_set_app_data := LoadLibCryptoFunction('EVP_PKEY_CTX_set_app_data'); + if not assigned(EVP_PKEY_CTX_set_app_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_set_app_data'); + EVP_PKEY_CTX_set_app_data(ctx,data); +end; + +function Load_EVP_PKEY_CTX_get_app_data(ctx: PEVP_PKEY_CTX): Pointer; cdecl; +begin + EVP_PKEY_CTX_get_app_data := LoadLibCryptoFunction('EVP_PKEY_CTX_get_app_data'); + if not assigned(EVP_PKEY_CTX_get_app_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_get_app_data'); + Result := EVP_PKEY_CTX_get_app_data(ctx); +end; + +function Load_EVP_PKEY_sign_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_sign_init := LoadLibCryptoFunction('EVP_PKEY_sign_init'); + if not assigned(EVP_PKEY_sign_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_sign_init'); + Result := EVP_PKEY_sign_init(ctx); +end; + +function Load_EVP_PKEY_sign(ctx: PEVP_PKEY_CTX; sig: PByte; siglen: POpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_sign := LoadLibCryptoFunction('EVP_PKEY_sign'); + if not assigned(EVP_PKEY_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_sign'); + Result := EVP_PKEY_sign(ctx,sig,siglen,tbs,tbslen); +end; + +function Load_EVP_PKEY_verify_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_verify_init := LoadLibCryptoFunction('EVP_PKEY_verify_init'); + if not assigned(EVP_PKEY_verify_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_verify_init'); + Result := EVP_PKEY_verify_init(ctx); +end; + +function Load_EVP_PKEY_verify(ctx: PEVP_PKEY_CTX; const sig: PByte; siglen: TOpenSSL_C_SIZET; const tbs: PByte; tbslen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_verify := LoadLibCryptoFunction('EVP_PKEY_verify'); + if not assigned(EVP_PKEY_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_verify'); + Result := EVP_PKEY_verify(ctx,sig,siglen,tbs,tbslen); +end; + +function Load_EVP_PKEY_verify_recover_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_verify_recover_init := LoadLibCryptoFunction('EVP_PKEY_verify_recover_init'); + if not assigned(EVP_PKEY_verify_recover_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_verify_recover_init'); + Result := EVP_PKEY_verify_recover_init(ctx); +end; + +function Load_EVP_PKEY_verify_recover(ctx: PEVP_PKEY_CTX; rout: PByte; routlen: POpenSSL_C_SIZET; const sig: PByte; siglen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_verify_recover := LoadLibCryptoFunction('EVP_PKEY_verify_recover'); + if not assigned(EVP_PKEY_verify_recover) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_verify_recover'); + Result := EVP_PKEY_verify_recover(ctx,rout,routlen,sig,siglen); +end; + +function Load_EVP_PKEY_encrypt_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_encrypt_init := LoadLibCryptoFunction('EVP_PKEY_encrypt_init'); + if not assigned(EVP_PKEY_encrypt_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_encrypt_init'); + Result := EVP_PKEY_encrypt_init(ctx); +end; + +function Load_EVP_PKEY_encrypt(ctx: PEVP_PKEY_CTX; out_: PByte; outlen: POpenSSL_C_SIZET; const in_: PByte; inlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_encrypt := LoadLibCryptoFunction('EVP_PKEY_encrypt'); + if not assigned(EVP_PKEY_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_encrypt'); + Result := EVP_PKEY_encrypt(ctx,out_,outlen,in_,inlen); +end; + +function Load_EVP_PKEY_decrypt_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_decrypt_init := LoadLibCryptoFunction('EVP_PKEY_decrypt_init'); + if not assigned(EVP_PKEY_decrypt_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_decrypt_init'); + Result := EVP_PKEY_decrypt_init(ctx); +end; + +function Load_EVP_PKEY_decrypt(ctx: PEVP_PKEY_CTX; out_: PByte; outlen: POpenSSL_C_SIZET; const in_: PByte; inlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_decrypt := LoadLibCryptoFunction('EVP_PKEY_decrypt'); + if not assigned(EVP_PKEY_decrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_decrypt'); + Result := EVP_PKEY_decrypt(ctx,out_,outlen,in_,inlen); +end; + +function Load_EVP_PKEY_derive_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_derive_init := LoadLibCryptoFunction('EVP_PKEY_derive_init'); + if not assigned(EVP_PKEY_derive_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_derive_init'); + Result := EVP_PKEY_derive_init(ctx); +end; + +function Load_EVP_PKEY_derive_set_peer(ctx: PEVP_PKEY_CTX; peer: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_derive_set_peer := LoadLibCryptoFunction('EVP_PKEY_derive_set_peer'); + if not assigned(EVP_PKEY_derive_set_peer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_derive_set_peer'); + Result := EVP_PKEY_derive_set_peer(ctx,peer); +end; + +function Load_EVP_PKEY_derive(ctx: PEVP_PKEY_CTX; key: PByte; keylen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_derive := LoadLibCryptoFunction('EVP_PKEY_derive'); + if not assigned(EVP_PKEY_derive) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_derive'); + Result := EVP_PKEY_derive(ctx,key,keylen); +end; + +function Load_EVP_PKEY_paramgen_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_paramgen_init := LoadLibCryptoFunction('EVP_PKEY_paramgen_init'); + if not assigned(EVP_PKEY_paramgen_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_paramgen_init'); + Result := EVP_PKEY_paramgen_init(ctx); +end; + +function Load_EVP_PKEY_paramgen(ctx: PEVP_PKEY_CTX; ppkey: PPEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_paramgen := LoadLibCryptoFunction('EVP_PKEY_paramgen'); + if not assigned(EVP_PKEY_paramgen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_paramgen'); + Result := EVP_PKEY_paramgen(ctx,ppkey); +end; + +function Load_EVP_PKEY_keygen_init(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_keygen_init := LoadLibCryptoFunction('EVP_PKEY_keygen_init'); + if not assigned(EVP_PKEY_keygen_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_keygen_init'); + Result := EVP_PKEY_keygen_init(ctx); +end; + +function Load_EVP_PKEY_keygen(ctx: PEVP_PKEY_CTX; ppkey: PPEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_keygen := LoadLibCryptoFunction('EVP_PKEY_keygen'); + if not assigned(EVP_PKEY_keygen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_keygen'); + Result := EVP_PKEY_keygen(ctx,ppkey); +end; + +function Load_EVP_PKEY_check(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_check := LoadLibCryptoFunction('EVP_PKEY_check'); + if not assigned(EVP_PKEY_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_check'); + Result := EVP_PKEY_check(ctx); +end; + +function Load_EVP_PKEY_public_check(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_public_check := LoadLibCryptoFunction('EVP_PKEY_public_check'); + if not assigned(EVP_PKEY_public_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_public_check'); + Result := EVP_PKEY_public_check(ctx); +end; + +function Load_EVP_PKEY_param_check(ctx: PEVP_PKEY_CTX): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_param_check := LoadLibCryptoFunction('EVP_PKEY_param_check'); + if not assigned(EVP_PKEY_param_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_param_check'); + Result := EVP_PKEY_param_check(ctx); +end; + +procedure Load_EVP_PKEY_CTX_set_cb(ctx: PEVP_PKEY_CTX; cb: EVP_PKEY_gen_cb); cdecl; +begin + EVP_PKEY_CTX_set_cb := LoadLibCryptoFunction('EVP_PKEY_CTX_set_cb'); + if not assigned(EVP_PKEY_CTX_set_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_set_cb'); + EVP_PKEY_CTX_set_cb(ctx,cb); +end; + +function Load_EVP_PKEY_CTX_get_cb(ctx: PEVP_PKEY_CTX): EVP_PKEY_gen_cb; cdecl; +begin + EVP_PKEY_CTX_get_cb := LoadLibCryptoFunction('EVP_PKEY_CTX_get_cb'); + if not assigned(EVP_PKEY_CTX_get_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_get_cb'); + Result := EVP_PKEY_CTX_get_cb(ctx); +end; + +function Load_EVP_PKEY_CTX_get_keygen_info(ctx: PEVP_PKEY_CTX; idx: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_CTX_get_keygen_info := LoadLibCryptoFunction('EVP_PKEY_CTX_get_keygen_info'); + if not assigned(EVP_PKEY_CTX_get_keygen_info) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_CTX_get_keygen_info'); + Result := EVP_PKEY_CTX_get_keygen_info(ctx,idx); +end; + +procedure Load_EVP_PKEY_meth_set_init(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_init: EVP_PKEY_meth_init); cdecl; +begin + EVP_PKEY_meth_set_init := LoadLibCryptoFunction('EVP_PKEY_meth_set_init'); + if not assigned(EVP_PKEY_meth_set_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_init'); + EVP_PKEY_meth_set_init(pmeth,AEVP_PKEY_meth_init); +end; + +procedure Load_EVP_PKEY_meth_set_copy(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_copy_cb: EVP_PKEY_meth_copy_cb); cdecl; +begin + EVP_PKEY_meth_set_copy := LoadLibCryptoFunction('EVP_PKEY_meth_set_copy'); + if not assigned(EVP_PKEY_meth_set_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_copy'); + EVP_PKEY_meth_set_copy(pmeth,AEVP_PKEY_meth_copy_cb); +end; + +procedure Load_EVP_PKEY_meth_set_cleanup(pmeth: PEVP_PKEY_METHOD; PEVP_PKEY_meth_cleanup: EVP_PKEY_meth_cleanup); cdecl; +begin + EVP_PKEY_meth_set_cleanup := LoadLibCryptoFunction('EVP_PKEY_meth_set_cleanup'); + if not assigned(EVP_PKEY_meth_set_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_cleanup'); + EVP_PKEY_meth_set_cleanup(pmeth,PEVP_PKEY_meth_cleanup); +end; + +procedure Load_EVP_PKEY_meth_set_paramgen(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_paramgen_init: EVP_PKEY_meth_paramgen_init; AEVP_PKEY_meth_paramgen: EVP_PKEY_meth_paramgen_init); cdecl; +begin + EVP_PKEY_meth_set_paramgen := LoadLibCryptoFunction('EVP_PKEY_meth_set_paramgen'); + if not assigned(EVP_PKEY_meth_set_paramgen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_paramgen'); + EVP_PKEY_meth_set_paramgen(pmeth,AEVP_PKEY_meth_paramgen_init,AEVP_PKEY_meth_paramgen); +end; + +procedure Load_EVP_PKEY_meth_set_keygen(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_keygen_init: EVP_PKEY_meth_keygen_init; AEVP_PKEY_meth_keygen: EVP_PKEY_meth_keygen); cdecl; +begin + EVP_PKEY_meth_set_keygen := LoadLibCryptoFunction('EVP_PKEY_meth_set_keygen'); + if not assigned(EVP_PKEY_meth_set_keygen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_keygen'); + EVP_PKEY_meth_set_keygen(pmeth,AEVP_PKEY_meth_keygen_init,AEVP_PKEY_meth_keygen); +end; + +procedure Load_EVP_PKEY_meth_set_sign(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_sign_init: EVP_PKEY_meth_sign_init; AEVP_PKEY_meth_sign: EVP_PKEY_meth_sign); cdecl; +begin + EVP_PKEY_meth_set_sign := LoadLibCryptoFunction('EVP_PKEY_meth_set_sign'); + if not assigned(EVP_PKEY_meth_set_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_sign'); + EVP_PKEY_meth_set_sign(pmeth,AEVP_PKEY_meth_sign_init,AEVP_PKEY_meth_sign); +end; + +procedure Load_EVP_PKEY_meth_set_verify(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verify_init: EVP_PKEY_meth_verify_init; AEVP_PKEY_meth_verify: EVP_PKEY_meth_verify_init); cdecl; +begin + EVP_PKEY_meth_set_verify := LoadLibCryptoFunction('EVP_PKEY_meth_set_verify'); + if not assigned(EVP_PKEY_meth_set_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_verify'); + EVP_PKEY_meth_set_verify(pmeth,AEVP_PKEY_meth_verify_init,AEVP_PKEY_meth_verify); +end; + +procedure Load_EVP_PKEY_meth_set_verify_recover(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verify_recover_init: EVP_PKEY_meth_verify_recover_init; AEVP_PKEY_meth_verify_recover: EVP_PKEY_meth_verify_recover_init); cdecl; +begin + EVP_PKEY_meth_set_verify_recover := LoadLibCryptoFunction('EVP_PKEY_meth_set_verify_recover'); + if not assigned(EVP_PKEY_meth_set_verify_recover) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_verify_recover'); + EVP_PKEY_meth_set_verify_recover(pmeth,AEVP_PKEY_meth_verify_recover_init,AEVP_PKEY_meth_verify_recover); +end; + +procedure Load_EVP_PKEY_meth_set_signctx(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_signctx_init: EVP_PKEY_meth_signctx_init; AEVP_PKEY_meth_signctx: EVP_PKEY_meth_signctx); cdecl; +begin + EVP_PKEY_meth_set_signctx := LoadLibCryptoFunction('EVP_PKEY_meth_set_signctx'); + if not assigned(EVP_PKEY_meth_set_signctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_signctx'); + EVP_PKEY_meth_set_signctx(pmeth,AEVP_PKEY_meth_signctx_init,AEVP_PKEY_meth_signctx); +end; + +procedure Load_EVP_PKEY_meth_set_verifyctx(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verifyctx_init: EVP_PKEY_meth_verifyctx_init; AEVP_PKEY_meth_verifyctx: EVP_PKEY_meth_verifyctx); cdecl; +begin + EVP_PKEY_meth_set_verifyctx := LoadLibCryptoFunction('EVP_PKEY_meth_set_verifyctx'); + if not assigned(EVP_PKEY_meth_set_verifyctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_verifyctx'); + EVP_PKEY_meth_set_verifyctx(pmeth,AEVP_PKEY_meth_verifyctx_init,AEVP_PKEY_meth_verifyctx); +end; + +procedure Load_EVP_PKEY_meth_set_encrypt(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_encrypt_init: EVP_PKEY_meth_encrypt_init; AEVP_PKEY_meth_encrypt: EVP_PKEY_meth_encrypt); cdecl; +begin + EVP_PKEY_meth_set_encrypt := LoadLibCryptoFunction('EVP_PKEY_meth_set_encrypt'); + if not assigned(EVP_PKEY_meth_set_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_encrypt'); + EVP_PKEY_meth_set_encrypt(pmeth,AEVP_PKEY_meth_encrypt_init,AEVP_PKEY_meth_encrypt); +end; + +procedure Load_EVP_PKEY_meth_set_decrypt(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_decrypt_init: EVP_PKEY_meth_decrypt_init; AEVP_PKEY_meth_decrypt: EVP_PKEY_meth_decrypt); cdecl; +begin + EVP_PKEY_meth_set_decrypt := LoadLibCryptoFunction('EVP_PKEY_meth_set_decrypt'); + if not assigned(EVP_PKEY_meth_set_decrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_decrypt'); + EVP_PKEY_meth_set_decrypt(pmeth,AEVP_PKEY_meth_decrypt_init,AEVP_PKEY_meth_decrypt); +end; + +procedure Load_EVP_PKEY_meth_set_derive(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_derive_init: EVP_PKEY_meth_derive_init; AEVP_PKEY_meth_derive: EVP_PKEY_meth_derive); cdecl; +begin + EVP_PKEY_meth_set_derive := LoadLibCryptoFunction('EVP_PKEY_meth_set_derive'); + if not assigned(EVP_PKEY_meth_set_derive) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_derive'); + EVP_PKEY_meth_set_derive(pmeth,AEVP_PKEY_meth_derive_init,AEVP_PKEY_meth_derive); +end; + +procedure Load_EVP_PKEY_meth_set_ctrl(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_ctrl: EVP_PKEY_meth_ctrl; AEVP_PKEY_meth_ctrl_str: EVP_PKEY_meth_ctrl_str); cdecl; +begin + EVP_PKEY_meth_set_ctrl := LoadLibCryptoFunction('EVP_PKEY_meth_set_ctrl'); + if not assigned(EVP_PKEY_meth_set_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_ctrl'); + EVP_PKEY_meth_set_ctrl(pmeth,AEVP_PKEY_meth_ctrl,AEVP_PKEY_meth_ctrl_str); +end; + +procedure Load_EVP_PKEY_meth_set_digestsign(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digestsign: EVP_PKEY_meth_digestsign); cdecl; +begin + EVP_PKEY_meth_set_digestsign := LoadLibCryptoFunction('EVP_PKEY_meth_set_digestsign'); + if not assigned(EVP_PKEY_meth_set_digestsign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_digestsign'); + EVP_PKEY_meth_set_digestsign(pmeth,AEVP_PKEY_meth_digestsign); +end; + +procedure Load_EVP_PKEY_meth_set_digestverify(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digestverify: EVP_PKEY_meth_digestverify); cdecl; +begin + EVP_PKEY_meth_set_digestverify := LoadLibCryptoFunction('EVP_PKEY_meth_set_digestverify'); + if not assigned(EVP_PKEY_meth_set_digestverify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_digestverify'); + EVP_PKEY_meth_set_digestverify(pmeth,AEVP_PKEY_meth_digestverify); +end; + +procedure Load_EVP_PKEY_meth_set_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_check: EVP_PKEY_meth_check); cdecl; +begin + EVP_PKEY_meth_set_check := LoadLibCryptoFunction('EVP_PKEY_meth_set_check'); + if not assigned(EVP_PKEY_meth_set_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_check'); + EVP_PKEY_meth_set_check(pmeth,AEVP_PKEY_meth_check); +end; + +procedure Load_EVP_PKEY_meth_set_public_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_public_check: EVP_PKEY_meth_public_check); cdecl; +begin + EVP_PKEY_meth_set_public_check := LoadLibCryptoFunction('EVP_PKEY_meth_set_public_check'); + if not assigned(EVP_PKEY_meth_set_public_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_public_check'); + EVP_PKEY_meth_set_public_check(pmeth,AEVP_PKEY_meth_public_check); +end; + +procedure Load_EVP_PKEY_meth_set_param_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_param_check: EVP_PKEY_meth_param_check); cdecl; +begin + EVP_PKEY_meth_set_param_check := LoadLibCryptoFunction('EVP_PKEY_meth_set_param_check'); + if not assigned(EVP_PKEY_meth_set_param_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_param_check'); + EVP_PKEY_meth_set_param_check(pmeth,AEVP_PKEY_meth_param_check); +end; + +procedure Load_EVP_PKEY_meth_set_digest_custom(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digest_custom: EVP_PKEY_meth_digest_custom); cdecl; +begin + EVP_PKEY_meth_set_digest_custom := LoadLibCryptoFunction('EVP_PKEY_meth_set_digest_custom'); + if not assigned(EVP_PKEY_meth_set_digest_custom) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_set_digest_custom'); + EVP_PKEY_meth_set_digest_custom(pmeth,AEVP_PKEY_meth_digest_custom); +end; + +procedure Load_EVP_PKEY_meth_get_init(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_init: PEVP_PKEY_meth_init); cdecl; +begin + EVP_PKEY_meth_get_init := LoadLibCryptoFunction('EVP_PKEY_meth_get_init'); + if not assigned(EVP_PKEY_meth_get_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_init'); + EVP_PKEY_meth_get_init(pmeth,AEVP_PKEY_meth_init); +end; + +procedure Load_EVP_PKEY_meth_get_copy(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_copy: PEVP_PKEY_meth_copy); cdecl; +begin + EVP_PKEY_meth_get_copy := LoadLibCryptoFunction('EVP_PKEY_meth_get_copy'); + if not assigned(EVP_PKEY_meth_get_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_copy'); + EVP_PKEY_meth_get_copy(pmeth,AEVP_PKEY_meth_copy); +end; + +procedure Load_EVP_PKEY_meth_get_cleanup(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_cleanup: PEVP_PKEY_meth_cleanup); cdecl; +begin + EVP_PKEY_meth_get_cleanup := LoadLibCryptoFunction('EVP_PKEY_meth_get_cleanup'); + if not assigned(EVP_PKEY_meth_get_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_cleanup'); + EVP_PKEY_meth_get_cleanup(pmeth,AEVP_PKEY_meth_cleanup); +end; + +procedure Load_EVP_PKEY_meth_get_paramgen(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_paramgen_init: EVP_PKEY_meth_paramgen_init; AEVP_PKEY_meth_paramgen: PEVP_PKEY_meth_paramgen); cdecl; +begin + EVP_PKEY_meth_get_paramgen := LoadLibCryptoFunction('EVP_PKEY_meth_get_paramgen'); + if not assigned(EVP_PKEY_meth_get_paramgen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_paramgen'); + EVP_PKEY_meth_get_paramgen(pmeth,AEVP_PKEY_meth_paramgen_init,AEVP_PKEY_meth_paramgen); +end; + +procedure Load_EVP_PKEY_meth_get_keygen(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_keygen_init: EVP_PKEY_meth_keygen_init; AEVP_PKEY_meth_keygen: PEVP_PKEY_meth_keygen); cdecl; +begin + EVP_PKEY_meth_get_keygen := LoadLibCryptoFunction('EVP_PKEY_meth_get_keygen'); + if not assigned(EVP_PKEY_meth_get_keygen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_keygen'); + EVP_PKEY_meth_get_keygen(pmeth,AEVP_PKEY_meth_keygen_init,AEVP_PKEY_meth_keygen); +end; + +procedure Load_EVP_PKEY_meth_get_sign(const pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_sign_init: PEVP_PKEY_meth_sign_init; AEVP_PKEY_meth_sign: PEVP_PKEY_meth_sign); cdecl; +begin + EVP_PKEY_meth_get_sign := LoadLibCryptoFunction('EVP_PKEY_meth_get_sign'); + if not assigned(EVP_PKEY_meth_get_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_sign'); + EVP_PKEY_meth_get_sign(pmeth,AEVP_PKEY_meth_sign_init,AEVP_PKEY_meth_sign); +end; + +procedure Load_EVP_PKEY_meth_get_verify(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verify_init: PEVP_PKEY_meth_verify_init; AEVP_PKEY_meth_verify: PEVP_PKEY_meth_verify_init); cdecl; +begin + EVP_PKEY_meth_get_verify := LoadLibCryptoFunction('EVP_PKEY_meth_get_verify'); + if not assigned(EVP_PKEY_meth_get_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_verify'); + EVP_PKEY_meth_get_verify(pmeth,AEVP_PKEY_meth_verify_init,AEVP_PKEY_meth_verify); +end; + +procedure Load_EVP_PKEY_meth_get_verify_recover(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verify_recover_init: PEVP_PKEY_meth_verify_recover_init; AEVP_PKEY_meth_verify_recover: PEVP_PKEY_meth_verify_recover_init); cdecl; +begin + EVP_PKEY_meth_get_verify_recover := LoadLibCryptoFunction('EVP_PKEY_meth_get_verify_recover'); + if not assigned(EVP_PKEY_meth_get_verify_recover) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_verify_recover'); + EVP_PKEY_meth_get_verify_recover(pmeth,AEVP_PKEY_meth_verify_recover_init,AEVP_PKEY_meth_verify_recover); +end; + +procedure Load_EVP_PKEY_meth_get_signctx(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_signctx_init: PEVP_PKEY_meth_signctx_init; AEVP_PKEY_meth_signctx: PEVP_PKEY_meth_signctx); cdecl; +begin + EVP_PKEY_meth_get_signctx := LoadLibCryptoFunction('EVP_PKEY_meth_get_signctx'); + if not assigned(EVP_PKEY_meth_get_signctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_signctx'); + EVP_PKEY_meth_get_signctx(pmeth,AEVP_PKEY_meth_signctx_init,AEVP_PKEY_meth_signctx); +end; + +procedure Load_EVP_PKEY_meth_get_verifyctx(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_verifyctx_init: PEVP_PKEY_meth_verifyctx_init; AEVP_PKEY_meth_verifyctx: PEVP_PKEY_meth_verifyctx); cdecl; +begin + EVP_PKEY_meth_get_verifyctx := LoadLibCryptoFunction('EVP_PKEY_meth_get_verifyctx'); + if not assigned(EVP_PKEY_meth_get_verifyctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_verifyctx'); + EVP_PKEY_meth_get_verifyctx(pmeth,AEVP_PKEY_meth_verifyctx_init,AEVP_PKEY_meth_verifyctx); +end; + +procedure Load_EVP_PKEY_meth_get_encrypt(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_encrypt_init: PEVP_PKEY_meth_encrypt_init; AEVP_PKEY_meth_encrypt: PEVP_PKEY_meth_encrypt); cdecl; +begin + EVP_PKEY_meth_get_encrypt := LoadLibCryptoFunction('EVP_PKEY_meth_get_encrypt'); + if not assigned(EVP_PKEY_meth_get_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_encrypt'); + EVP_PKEY_meth_get_encrypt(pmeth,AEVP_PKEY_meth_encrypt_init,AEVP_PKEY_meth_encrypt); +end; + +procedure Load_EVP_PKEY_meth_get_decrypt(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_decrypt_init: PEVP_PKEY_meth_decrypt_init; AEVP_PKEY_meth_decrypt: PEVP_PKEY_meth_decrypt); cdecl; +begin + EVP_PKEY_meth_get_decrypt := LoadLibCryptoFunction('EVP_PKEY_meth_get_decrypt'); + if not assigned(EVP_PKEY_meth_get_decrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_decrypt'); + EVP_PKEY_meth_get_decrypt(pmeth,AEVP_PKEY_meth_decrypt_init,AEVP_PKEY_meth_decrypt); +end; + +procedure Load_EVP_PKEY_meth_get_derive(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_derive_init: PEVP_PKEY_meth_derive_init; AEVP_PKEY_meth_derive: PEVP_PKEY_meth_derive); cdecl; +begin + EVP_PKEY_meth_get_derive := LoadLibCryptoFunction('EVP_PKEY_meth_get_derive'); + if not assigned(EVP_PKEY_meth_get_derive) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_derive'); + EVP_PKEY_meth_get_derive(pmeth,AEVP_PKEY_meth_derive_init,AEVP_PKEY_meth_derive); +end; + +procedure Load_EVP_PKEY_meth_get_ctrl(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_ctrl: PEVP_PKEY_meth_ctrl; AEVP_PKEY_meth_ctrl_str: PEVP_PKEY_meth_ctrl_str); cdecl; +begin + EVP_PKEY_meth_get_ctrl := LoadLibCryptoFunction('EVP_PKEY_meth_get_ctrl'); + if not assigned(EVP_PKEY_meth_get_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_ctrl'); + EVP_PKEY_meth_get_ctrl(pmeth,AEVP_PKEY_meth_ctrl,AEVP_PKEY_meth_ctrl_str); +end; + +procedure Load_EVP_PKEY_meth_get_digestsign(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digestsign: PEVP_PKEY_meth_digestsign); cdecl; +begin + EVP_PKEY_meth_get_digestsign := LoadLibCryptoFunction('EVP_PKEY_meth_get_digestsign'); + if not assigned(EVP_PKEY_meth_get_digestsign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_digestsign'); + EVP_PKEY_meth_get_digestsign(pmeth,AEVP_PKEY_meth_digestsign); +end; + +procedure Load_EVP_PKEY_meth_get_digestverify(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digestverify: PEVP_PKEY_meth_digestverify); cdecl; +begin + EVP_PKEY_meth_get_digestverify := LoadLibCryptoFunction('EVP_PKEY_meth_get_digestverify'); + if not assigned(EVP_PKEY_meth_get_digestverify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_digestverify'); + EVP_PKEY_meth_get_digestverify(pmeth,AEVP_PKEY_meth_digestverify); +end; + +procedure Load_EVP_PKEY_meth_get_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_check: PEVP_PKEY_meth_check); cdecl; +begin + EVP_PKEY_meth_get_check := LoadLibCryptoFunction('EVP_PKEY_meth_get_check'); + if not assigned(EVP_PKEY_meth_get_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_check'); + EVP_PKEY_meth_get_check(pmeth,AEVP_PKEY_meth_check); +end; + +procedure Load_EVP_PKEY_meth_get_public_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_public_check: PEVP_PKEY_meth_public_check); cdecl; +begin + EVP_PKEY_meth_get_public_check := LoadLibCryptoFunction('EVP_PKEY_meth_get_public_check'); + if not assigned(EVP_PKEY_meth_get_public_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_public_check'); + EVP_PKEY_meth_get_public_check(pmeth,AEVP_PKEY_meth_public_check); +end; + +procedure Load_EVP_PKEY_meth_get_param_check(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_param_check: PEVP_PKEY_meth_param_check); cdecl; +begin + EVP_PKEY_meth_get_param_check := LoadLibCryptoFunction('EVP_PKEY_meth_get_param_check'); + if not assigned(EVP_PKEY_meth_get_param_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_param_check'); + EVP_PKEY_meth_get_param_check(pmeth,AEVP_PKEY_meth_param_check); +end; + +procedure Load_EVP_PKEY_meth_get_digest_custom(pmeth: PEVP_PKEY_METHOD; AEVP_PKEY_meth_digest_custom: PEVP_PKEY_meth_digest_custom); cdecl; +begin + EVP_PKEY_meth_get_digest_custom := LoadLibCryptoFunction('EVP_PKEY_meth_get_digest_custom'); + if not assigned(EVP_PKEY_meth_get_digest_custom) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_meth_get_digest_custom'); + EVP_PKEY_meth_get_digest_custom(pmeth,AEVP_PKEY_meth_digest_custom); +end; + +procedure Load_EVP_add_alg_module; cdecl; +begin + EVP_add_alg_module := LoadLibCryptoFunction('EVP_add_alg_module'); + if not assigned(EVP_add_alg_module) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_add_alg_module'); + EVP_add_alg_module(); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_OpenSSL_add_all_ciphers; cdecl; +begin + OpenSSL_add_all_ciphers := LoadLibCryptoFunction('OpenSSL_add_all_ciphers'); + if not assigned(OpenSSL_add_all_ciphers) then + OpenSSL_add_all_ciphers := @COMPAT_OpenSSL_add_all_ciphers; + OpenSSL_add_all_ciphers(); +end; + +procedure Load_OpenSSL_add_all_digests; cdecl; +begin + OpenSSL_add_all_digests := LoadLibCryptoFunction('OpenSSL_add_all_digests'); + if not assigned(OpenSSL_add_all_digests) then + OpenSSL_add_all_digests := @COMPAT_OpenSSL_add_all_digests; + OpenSSL_add_all_digests(); +end; + +procedure Load_EVP_cleanup; cdecl; +begin + EVP_cleanup := LoadLibCryptoFunction('EVP_cleanup'); + if not assigned(EVP_cleanup) then + EVP_cleanup := @COMPAT_EVP_cleanup; + EVP_cleanup(); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + +{$WARN NO_RETVAL OFF} +{$IFNDEF OPENSSL_NO_MD2} +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD4} +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD5} +{$ENDIF} +{$WARN NO_RETVAL ON} +procedure Load(LibVersion: TOpenSSL_C_UINT; const AFailed: TStringList); +var FuncLoadError: boolean; +begin +{$IFNDEF OPENSSL_NO_MD2} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_md2 := LoadLibCryptoFunction('EVP_md2'); + FuncLoadError := not assigned(EVP_md2); + if FuncLoadError then + begin + EVP_md2 := @COMPAT_EVP_md2; + {Don't report allow nil failure} + end; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD4} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_md4 := LoadLibCryptoFunction('EVP_md4'); + FuncLoadError := not assigned(EVP_md4); + if FuncLoadError then + begin + EVP_md4 := @COMPAT_EVP_md4; + {Don't report allow nil failure} + end; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD5} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_md5 := LoadLibCryptoFunction('EVP_md5'); + FuncLoadError := not assigned(EVP_md5); + if FuncLoadError then + begin + EVP_md5 := @COMPAT_EVP_md5; + {Don't report allow nil failure} + end; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + +{$ENDIF} +end; + +procedure UnLoad; +begin +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_PKEY_assign_RSA := Load_EVP_PKEY_assign_RSA; + EVP_PKEY_assign_DSA := Load_EVP_PKEY_assign_DSA; + EVP_PKEY_assign_DH := Load_EVP_PKEY_assign_DH; + EVP_PKEY_assign_EC_KEY := Load_EVP_PKEY_assign_EC_KEY; + EVP_PKEY_assign_SIPHASH := Load_EVP_PKEY_assign_SIPHASH; + EVP_PKEY_assign_POLY1305 := Load_EVP_PKEY_assign_POLY1305; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + EVP_MD_meth_new := Load_EVP_MD_meth_new; + EVP_MD_meth_dup := Load_EVP_MD_meth_dup; + EVP_MD_meth_free := Load_EVP_MD_meth_free; + EVP_MD_meth_set_input_blocksize := Load_EVP_MD_meth_set_input_blocksize; + EVP_MD_meth_set_result_size := Load_EVP_MD_meth_set_result_size; + EVP_MD_meth_set_app_datasize := Load_EVP_MD_meth_set_app_datasize; + EVP_MD_meth_set_flags := Load_EVP_MD_meth_set_flags; + EVP_MD_meth_set_init := Load_EVP_MD_meth_set_init; + EVP_MD_meth_set_update := Load_EVP_MD_meth_set_update; + EVP_MD_meth_set_final := Load_EVP_MD_meth_set_final; + EVP_MD_meth_set_copy := Load_EVP_MD_meth_set_copy; + EVP_MD_meth_set_cleanup := Load_EVP_MD_meth_set_cleanup; + EVP_MD_meth_set_ctrl := Load_EVP_MD_meth_set_ctrl; + EVP_MD_meth_get_input_blocksize := Load_EVP_MD_meth_get_input_blocksize; + EVP_MD_meth_get_result_size := Load_EVP_MD_meth_get_result_size; + EVP_MD_meth_get_app_datasize := Load_EVP_MD_meth_get_app_datasize; + EVP_MD_meth_get_flags := Load_EVP_MD_meth_get_flags; + EVP_MD_meth_get_init := Load_EVP_MD_meth_get_init; + EVP_MD_meth_get_update := Load_EVP_MD_meth_get_update; + EVP_MD_meth_get_final := Load_EVP_MD_meth_get_final; + EVP_MD_meth_get_copy := Load_EVP_MD_meth_get_copy; + EVP_MD_meth_get_cleanup := Load_EVP_MD_meth_get_cleanup; + EVP_MD_meth_get_ctrl := Load_EVP_MD_meth_get_ctrl; + EVP_CIPHER_meth_new := Load_EVP_CIPHER_meth_new; + EVP_CIPHER_meth_dup := Load_EVP_CIPHER_meth_dup; + EVP_CIPHER_meth_free := Load_EVP_CIPHER_meth_free; + EVP_CIPHER_meth_set_iv_length := Load_EVP_CIPHER_meth_set_iv_length; + EVP_CIPHER_meth_set_flags := Load_EVP_CIPHER_meth_set_flags; + EVP_CIPHER_meth_set_impl_ctx_size := Load_EVP_CIPHER_meth_set_impl_ctx_size; + EVP_CIPHER_meth_set_init := Load_EVP_CIPHER_meth_set_init; + EVP_CIPHER_meth_set_do_cipher := Load_EVP_CIPHER_meth_set_do_cipher; + EVP_CIPHER_meth_set_cleanup := Load_EVP_CIPHER_meth_set_cleanup; + EVP_CIPHER_meth_set_set_asn1_params := Load_EVP_CIPHER_meth_set_set_asn1_params; + EVP_CIPHER_meth_set_get_asn1_params := Load_EVP_CIPHER_meth_set_get_asn1_params; + EVP_CIPHER_meth_set_ctrl := Load_EVP_CIPHER_meth_set_ctrl; + EVP_CIPHER_meth_get_init := Load_EVP_CIPHER_meth_get_init; + EVP_CIPHER_meth_get_do_cipher := Load_EVP_CIPHER_meth_get_do_cipher; + EVP_CIPHER_meth_get_cleanup := Load_EVP_CIPHER_meth_get_cleanup; + EVP_CIPHER_meth_get_set_asn1_params := Load_EVP_CIPHER_meth_get_set_asn1_params; + EVP_CIPHER_meth_get_get_asn1_params := Load_EVP_CIPHER_meth_get_get_asn1_params; + EVP_CIPHER_meth_get_ctrl := Load_EVP_CIPHER_meth_get_ctrl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_MD_type := Load_EVP_MD_type; + EVP_MD_pkey_type := Load_EVP_MD_pkey_type; + EVP_MD_size := Load_EVP_MD_size; + EVP_MD_block_size := Load_EVP_MD_block_size; + EVP_MD_flags := Load_EVP_MD_flags; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + EVP_MD_CTX_md := Load_EVP_MD_CTX_md; + EVP_MD_CTX_update_fn := Load_EVP_MD_CTX_update_fn; + EVP_MD_CTX_set_update_fn := Load_EVP_MD_CTX_set_update_fn; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_MD_CTX_pkey_ctx := Load_EVP_MD_CTX_pkey_ctx; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + EVP_MD_CTX_set_pkey_ctx := Load_EVP_MD_CTX_set_pkey_ctx; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_MD_CTX_md_data := Load_EVP_MD_CTX_md_data; + EVP_CIPHER_nid := Load_EVP_CIPHER_nid; + EVP_CIPHER_block_size := Load_EVP_CIPHER_block_size; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + EVP_CIPHER_impl_ctx_size := Load_EVP_CIPHER_impl_ctx_size; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_CIPHER_key_length := Load_EVP_CIPHER_key_length; + EVP_CIPHER_iv_length := Load_EVP_CIPHER_iv_length; + EVP_CIPHER_flags := Load_EVP_CIPHER_flags; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + EVP_CIPHER_CTX_cipher := Load_EVP_CIPHER_CTX_cipher; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_CIPHER_CTX_encrypting := Load_EVP_CIPHER_CTX_encrypting; + EVP_CIPHER_CTX_nid := Load_EVP_CIPHER_CTX_nid; + EVP_CIPHER_CTX_block_size := Load_EVP_CIPHER_CTX_block_size; + EVP_CIPHER_CTX_key_length := Load_EVP_CIPHER_CTX_key_length; + EVP_CIPHER_CTX_iv_length := Load_EVP_CIPHER_CTX_iv_length; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + EVP_CIPHER_CTX_iv := Load_EVP_CIPHER_CTX_iv; + EVP_CIPHER_CTX_original_iv := Load_EVP_CIPHER_CTX_original_iv; + EVP_CIPHER_CTX_iv_noconst := Load_EVP_CIPHER_CTX_iv_noconst; + EVP_CIPHER_CTX_buf_noconst := Load_EVP_CIPHER_CTX_buf_noconst; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_CIPHER_CTX_num := Load_EVP_CIPHER_CTX_num; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + EVP_CIPHER_CTX_set_num := Load_EVP_CIPHER_CTX_set_num; + EVP_CIPHER_CTX_copy := Load_EVP_CIPHER_CTX_copy; + EVP_CIPHER_CTX_get_app_data := Load_EVP_CIPHER_CTX_get_app_data; + EVP_CIPHER_CTX_set_app_data := Load_EVP_CIPHER_CTX_set_app_data; + EVP_CIPHER_CTX_get_cipher_data := Load_EVP_CIPHER_CTX_get_cipher_data; + EVP_CIPHER_CTX_set_cipher_data := Load_EVP_CIPHER_CTX_set_cipher_data; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + BIO_set_md := Load_BIO_set_md; + EVP_MD_CTX_init := Load_EVP_MD_CTX_init; + EVP_MD_CTX_cleanup := Load_EVP_MD_CTX_cleanup; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + EVP_MD_CTX_ctrl := Load_EVP_MD_CTX_ctrl; + EVP_MD_CTX_new := Load_EVP_MD_CTX_new; + EVP_MD_CTX_reset := Load_EVP_MD_CTX_reset; + EVP_MD_CTX_free := Load_EVP_MD_CTX_free; + EVP_MD_CTX_copy_ex := Load_EVP_MD_CTX_copy_ex; + EVP_MD_CTX_set_flags := Load_EVP_MD_CTX_set_flags; + EVP_MD_CTX_clear_flags := Load_EVP_MD_CTX_clear_flags; + EVP_MD_CTX_test_flags := Load_EVP_MD_CTX_test_flags; + EVP_DigestInit_ex := Load_EVP_DigestInit_ex; + EVP_DigestUpdate := Load_EVP_DigestUpdate; + EVP_DigestFinal_ex := Load_EVP_DigestFinal_ex; + EVP_Digest := Load_EVP_Digest; + EVP_MD_CTX_copy := Load_EVP_MD_CTX_copy; + EVP_DigestInit := Load_EVP_DigestInit; + EVP_DigestFinal := Load_EVP_DigestFinal; + EVP_DigestFinalXOF := Load_EVP_DigestFinalXOF; + EVP_read_pw_string := Load_EVP_read_pw_string; + EVP_read_pw_string_min := Load_EVP_read_pw_string_min; + EVP_set_pw_prompt := Load_EVP_set_pw_prompt; + EVP_get_pw_prompt := Load_EVP_get_pw_prompt; + EVP_BytesToKey := Load_EVP_BytesToKey; + EVP_CIPHER_CTX_set_flags := Load_EVP_CIPHER_CTX_set_flags; + EVP_CIPHER_CTX_clear_flags := Load_EVP_CIPHER_CTX_clear_flags; + EVP_CIPHER_CTX_test_flags := Load_EVP_CIPHER_CTX_test_flags; + EVP_EncryptInit := Load_EVP_EncryptInit; + EVP_EncryptInit_ex := Load_EVP_EncryptInit_ex; + EVP_EncryptUpdate := Load_EVP_EncryptUpdate; + EVP_EncryptFinal_ex := Load_EVP_EncryptFinal_ex; + EVP_EncryptFinal := Load_EVP_EncryptFinal; + EVP_DecryptInit := Load_EVP_DecryptInit; + EVP_DecryptInit_ex := Load_EVP_DecryptInit_ex; + EVP_DecryptUpdate := Load_EVP_DecryptUpdate; + EVP_DecryptFinal := Load_EVP_DecryptFinal; + EVP_DecryptFinal_ex := Load_EVP_DecryptFinal_ex; + EVP_CipherInit := Load_EVP_CipherInit; + EVP_CipherInit_ex := Load_EVP_CipherInit_ex; + EVP_CipherUpdate := Load_EVP_CipherUpdate; + EVP_CipherFinal := Load_EVP_CipherFinal; + EVP_CipherFinal_ex := Load_EVP_CipherFinal_ex; + EVP_SignFinal := Load_EVP_SignFinal; + EVP_DigestSign := Load_EVP_DigestSign; + EVP_VerifyFinal := Load_EVP_VerifyFinal; + EVP_DigestVerify := Load_EVP_DigestVerify; + EVP_DigestSignInit := Load_EVP_DigestSignInit; + EVP_DigestSignFinal := Load_EVP_DigestSignFinal; + EVP_DigestVerifyInit := Load_EVP_DigestVerifyInit; + EVP_DigestVerifyFinal := Load_EVP_DigestVerifyFinal; + EVP_OpenInit := Load_EVP_OpenInit; + EVP_OpenFinal := Load_EVP_OpenFinal; + EVP_SealInit := Load_EVP_SealInit; + EVP_SealFinal := Load_EVP_SealFinal; + EVP_ENCODE_CTX_new := Load_EVP_ENCODE_CTX_new; + EVP_ENCODE_CTX_free := Load_EVP_ENCODE_CTX_free; + EVP_ENCODE_CTX_copy := Load_EVP_ENCODE_CTX_copy; + EVP_ENCODE_CTX_num := Load_EVP_ENCODE_CTX_num; + EVP_EncodeInit := Load_EVP_EncodeInit; + EVP_EncodeUpdate := Load_EVP_EncodeUpdate; + EVP_EncodeFinal := Load_EVP_EncodeFinal; + EVP_EncodeBlock := Load_EVP_EncodeBlock; + EVP_DecodeInit := Load_EVP_DecodeInit; + EVP_DecodeUpdate := Load_EVP_DecodeUpdate; + EVP_DecodeFinal := Load_EVP_DecodeFinal; + EVP_DecodeBlock := Load_EVP_DecodeBlock; + EVP_CIPHER_CTX_new := Load_EVP_CIPHER_CTX_new; + EVP_CIPHER_CTX_reset := Load_EVP_CIPHER_CTX_reset; + EVP_CIPHER_CTX_free := Load_EVP_CIPHER_CTX_free; + EVP_CIPHER_CTX_set_key_length := Load_EVP_CIPHER_CTX_set_key_length; + EVP_CIPHER_CTX_set_padding := Load_EVP_CIPHER_CTX_set_padding; + EVP_CIPHER_CTX_ctrl := Load_EVP_CIPHER_CTX_ctrl; + EVP_CIPHER_CTX_rand_key := Load_EVP_CIPHER_CTX_rand_key; + BIO_f_md := Load_BIO_f_md; + BIO_f_base64 := Load_BIO_f_base64; + BIO_f_cipher := Load_BIO_f_cipher; + BIO_f_reliable := Load_BIO_f_reliable; + BIO_set_cipher := Load_BIO_set_cipher; + EVP_md_null := Load_EVP_md_null; +{$IFNDEF OPENSSL_NO_MD2} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_md2 := nil; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD4} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_md4 := nil; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +{$ENDIF} +{$IFNDEF OPENSSL_NO_MD5} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_md5 := nil; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +{$ENDIF} + EVP_md5_sha1 := Load_EVP_md5_sha1; + EVP_sha1 := Load_EVP_sha1; + EVP_sha224 := Load_EVP_sha224; + EVP_sha256 := Load_EVP_sha256; + EVP_sha384 := Load_EVP_sha384; + EVP_sha512 := Load_EVP_sha512; + EVP_sha512_224 := Load_EVP_sha512_224; + EVP_sha512_256 := Load_EVP_sha512_256; + EVP_sha3_224 := Load_EVP_sha3_224; + EVP_sha3_256 := Load_EVP_sha3_256; + EVP_sha3_384 := Load_EVP_sha3_384; + EVP_sha3_512 := Load_EVP_sha3_512; + EVP_shake128 := Load_EVP_shake128; + EVP_shake256 := Load_EVP_shake256; + EVP_enc_null := Load_EVP_enc_null; + EVP_des_ecb := Load_EVP_des_ecb; + EVP_des_ede := Load_EVP_des_ede; + EVP_des_ede3 := Load_EVP_des_ede3; + EVP_des_ede_ecb := Load_EVP_des_ede_ecb; + EVP_des_ede3_ecb := Load_EVP_des_ede3_ecb; + EVP_des_cfb64 := Load_EVP_des_cfb64; + EVP_des_cfb1 := Load_EVP_des_cfb1; + EVP_des_cfb8 := Load_EVP_des_cfb8; + EVP_des_ede_cfb64 := Load_EVP_des_ede_cfb64; + EVP_des_ede3_cfb64 := Load_EVP_des_ede3_cfb64; + EVP_des_ede3_cfb1 := Load_EVP_des_ede3_cfb1; + EVP_des_ede3_cfb8 := Load_EVP_des_ede3_cfb8; + EVP_des_ofb := Load_EVP_des_ofb; + EVP_des_ede_ofb := Load_EVP_des_ede_ofb; + EVP_des_ede3_ofb := Load_EVP_des_ede3_ofb; + EVP_des_cbc := Load_EVP_des_cbc; + EVP_des_ede_cbc := Load_EVP_des_ede_cbc; + EVP_des_ede3_cbc := Load_EVP_des_ede3_cbc; + EVP_desx_cbc := Load_EVP_desx_cbc; + EVP_des_ede3_wrap := Load_EVP_des_ede3_wrap; + EVP_rc4 := Load_EVP_rc4; + EVP_rc4_40 := Load_EVP_rc4_40; + EVP_rc2_ecb := Load_EVP_rc2_ecb; + EVP_rc2_cbc := Load_EVP_rc2_cbc; + EVP_rc2_40_cbc := Load_EVP_rc2_40_cbc; + EVP_rc2_64_cbc := Load_EVP_rc2_64_cbc; + EVP_rc2_cfb64 := Load_EVP_rc2_cfb64; + EVP_rc2_ofb := Load_EVP_rc2_ofb; + EVP_bf_ecb := Load_EVP_bf_ecb; + EVP_bf_cbc := Load_EVP_bf_cbc; + EVP_bf_cfb64 := Load_EVP_bf_cfb64; + EVP_bf_ofb := Load_EVP_bf_ofb; + EVP_cast5_ecb := Load_EVP_cast5_ecb; + EVP_cast5_cbc := Load_EVP_cast5_cbc; + EVP_cast5_cfb64 := Load_EVP_cast5_cfb64; + EVP_cast5_ofb := Load_EVP_cast5_ofb; + EVP_aes_128_ecb := Load_EVP_aes_128_ecb; + EVP_aes_128_cbc := Load_EVP_aes_128_cbc; + EVP_aes_128_cfb1 := Load_EVP_aes_128_cfb1; + EVP_aes_128_cfb8 := Load_EVP_aes_128_cfb8; + EVP_aes_128_cfb128 := Load_EVP_aes_128_cfb128; + EVP_aes_128_ofb := Load_EVP_aes_128_ofb; + EVP_aes_128_ctr := Load_EVP_aes_128_ctr; + EVP_aes_128_ccm := Load_EVP_aes_128_ccm; + EVP_aes_128_gcm := Load_EVP_aes_128_gcm; + EVP_aes_128_xts := Load_EVP_aes_128_xts; + EVP_aes_128_wrap := Load_EVP_aes_128_wrap; + EVP_aes_128_wrap_pad := Load_EVP_aes_128_wrap_pad; + EVP_aes_128_ocb := Load_EVP_aes_128_ocb; + EVP_aes_192_ecb := Load_EVP_aes_192_ecb; + EVP_aes_192_cbc := Load_EVP_aes_192_cbc; + EVP_aes_192_cfb1 := Load_EVP_aes_192_cfb1; + EVP_aes_192_cfb8 := Load_EVP_aes_192_cfb8; + EVP_aes_192_cfb128 := Load_EVP_aes_192_cfb128; + EVP_aes_192_ofb := Load_EVP_aes_192_ofb; + EVP_aes_192_ctr := Load_EVP_aes_192_ctr; + EVP_aes_192_ccm := Load_EVP_aes_192_ccm; + EVP_aes_192_gcm := Load_EVP_aes_192_gcm; + EVP_aes_192_wrap := Load_EVP_aes_192_wrap; + EVP_aes_192_wrap_pad := Load_EVP_aes_192_wrap_pad; + EVP_aes_192_ocb := Load_EVP_aes_192_ocb; + EVP_aes_256_ecb := Load_EVP_aes_256_ecb; + EVP_aes_256_cbc := Load_EVP_aes_256_cbc; + EVP_aes_256_cfb1 := Load_EVP_aes_256_cfb1; + EVP_aes_256_cfb8 := Load_EVP_aes_256_cfb8; + EVP_aes_256_cfb128 := Load_EVP_aes_256_cfb128; + EVP_aes_256_ofb := Load_EVP_aes_256_ofb; + EVP_aes_256_ctr := Load_EVP_aes_256_ctr; + EVP_aes_256_ccm := Load_EVP_aes_256_ccm; + EVP_aes_256_gcm := Load_EVP_aes_256_gcm; + EVP_aes_256_xts := Load_EVP_aes_256_xts; + EVP_aes_256_wrap := Load_EVP_aes_256_wrap; + EVP_aes_256_wrap_pad := Load_EVP_aes_256_wrap_pad; + EVP_aes_256_ocb := Load_EVP_aes_256_ocb; + EVP_aes_128_cbc_hmac_sha1 := Load_EVP_aes_128_cbc_hmac_sha1; + EVP_aes_256_cbc_hmac_sha1 := Load_EVP_aes_256_cbc_hmac_sha1; + EVP_aes_128_cbc_hmac_sha256 := Load_EVP_aes_128_cbc_hmac_sha256; + EVP_aes_256_cbc_hmac_sha256 := Load_EVP_aes_256_cbc_hmac_sha256; + EVP_aria_128_ecb := Load_EVP_aria_128_ecb; + EVP_aria_128_cbc := Load_EVP_aria_128_cbc; + EVP_aria_128_cfb1 := Load_EVP_aria_128_cfb1; + EVP_aria_128_cfb8 := Load_EVP_aria_128_cfb8; + EVP_aria_128_cfb128 := Load_EVP_aria_128_cfb128; + EVP_aria_128_ctr := Load_EVP_aria_128_ctr; + EVP_aria_128_ofb := Load_EVP_aria_128_ofb; + EVP_aria_128_gcm := Load_EVP_aria_128_gcm; + EVP_aria_128_ccm := Load_EVP_aria_128_ccm; + EVP_aria_192_ecb := Load_EVP_aria_192_ecb; + EVP_aria_192_cbc := Load_EVP_aria_192_cbc; + EVP_aria_192_cfb1 := Load_EVP_aria_192_cfb1; + EVP_aria_192_cfb8 := Load_EVP_aria_192_cfb8; + EVP_aria_192_cfb128 := Load_EVP_aria_192_cfb128; + EVP_aria_192_ctr := Load_EVP_aria_192_ctr; + EVP_aria_192_ofb := Load_EVP_aria_192_ofb; + EVP_aria_192_gcm := Load_EVP_aria_192_gcm; + EVP_aria_192_ccm := Load_EVP_aria_192_ccm; + EVP_aria_256_ecb := Load_EVP_aria_256_ecb; + EVP_aria_256_cbc := Load_EVP_aria_256_cbc; + EVP_aria_256_cfb1 := Load_EVP_aria_256_cfb1; + EVP_aria_256_cfb8 := Load_EVP_aria_256_cfb8; + EVP_aria_256_cfb128 := Load_EVP_aria_256_cfb128; + EVP_aria_256_ctr := Load_EVP_aria_256_ctr; + EVP_aria_256_ofb := Load_EVP_aria_256_ofb; + EVP_aria_256_gcm := Load_EVP_aria_256_gcm; + EVP_aria_256_ccm := Load_EVP_aria_256_ccm; + EVP_camellia_128_ecb := Load_EVP_camellia_128_ecb; + EVP_camellia_128_cbc := Load_EVP_camellia_128_cbc; + EVP_camellia_128_cfb1 := Load_EVP_camellia_128_cfb1; + EVP_camellia_128_cfb8 := Load_EVP_camellia_128_cfb8; + EVP_camellia_128_cfb128 := Load_EVP_camellia_128_cfb128; + EVP_camellia_128_ofb := Load_EVP_camellia_128_ofb; + EVP_camellia_128_ctr := Load_EVP_camellia_128_ctr; + EVP_camellia_192_ecb := Load_EVP_camellia_192_ecb; + EVP_camellia_192_cbc := Load_EVP_camellia_192_cbc; + EVP_camellia_192_cfb1 := Load_EVP_camellia_192_cfb1; + EVP_camellia_192_cfb8 := Load_EVP_camellia_192_cfb8; + EVP_camellia_192_cfb128 := Load_EVP_camellia_192_cfb128; + EVP_camellia_192_ofb := Load_EVP_camellia_192_ofb; + EVP_camellia_192_ctr := Load_EVP_camellia_192_ctr; + EVP_camellia_256_ecb := Load_EVP_camellia_256_ecb; + EVP_camellia_256_cbc := Load_EVP_camellia_256_cbc; + EVP_camellia_256_cfb1 := Load_EVP_camellia_256_cfb1; + EVP_camellia_256_cfb8 := Load_EVP_camellia_256_cfb8; + EVP_camellia_256_cfb128 := Load_EVP_camellia_256_cfb128; + EVP_camellia_256_ofb := Load_EVP_camellia_256_ofb; + EVP_camellia_256_ctr := Load_EVP_camellia_256_ctr; + EVP_chacha20 := Load_EVP_chacha20; + EVP_chacha20_poly1305 := Load_EVP_chacha20_poly1305; + EVP_seed_ecb := Load_EVP_seed_ecb; + EVP_seed_cbc := Load_EVP_seed_cbc; + EVP_seed_cfb128 := Load_EVP_seed_cfb128; + EVP_seed_ofb := Load_EVP_seed_ofb; + EVP_sm4_ecb := Load_EVP_sm4_ecb; + EVP_sm4_cbc := Load_EVP_sm4_cbc; + EVP_sm4_cfb128 := Load_EVP_sm4_cfb128; + EVP_sm4_ofb := Load_EVP_sm4_ofb; + EVP_sm4_ctr := Load_EVP_sm4_ctr; + EVP_add_cipher := Load_EVP_add_cipher; + EVP_add_digest := Load_EVP_add_digest; + EVP_get_cipherbyname := Load_EVP_get_cipherbyname; + EVP_get_digestbyname := Load_EVP_get_digestbyname; + EVP_CIPHER_do_all := Load_EVP_CIPHER_do_all; + EVP_CIPHER_do_all_sorted := Load_EVP_CIPHER_do_all_sorted; + EVP_MD_do_all := Load_EVP_MD_do_all; + EVP_MD_do_all_sorted := Load_EVP_MD_do_all_sorted; + EVP_PKEY_decrypt_old := Load_EVP_PKEY_decrypt_old; + EVP_PKEY_encrypt_old := Load_EVP_PKEY_encrypt_old; + EVP_PKEY_type := Load_EVP_PKEY_type; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_PKEY_id := Load_EVP_PKEY_id; + EVP_PKEY_base_id := Load_EVP_PKEY_base_id; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + EVP_PKEY_get_base_id := Load_EVP_PKEY_get_base_id; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_PKEY_bits := Load_EVP_PKEY_bits; + EVP_PKEY_security_bits := Load_EVP_PKEY_security_bits; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + EVP_PKEY_get_security_bits := Load_EVP_PKEY_get_security_bits; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_PKEY_size := Load_EVP_PKEY_size; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + EVP_PKEY_get_size := Load_EVP_PKEY_get_size; + EVP_PKEY_set_type := Load_EVP_PKEY_set_type; + EVP_PKEY_set_type_str := Load_EVP_PKEY_set_type_str; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_PKEY_set_alias_type := Load_EVP_PKEY_set_alias_type; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + EVP_PKEY_set1_engine := Load_EVP_PKEY_set1_engine; + EVP_PKEY_get0_engine := Load_EVP_PKEY_get0_engine; + EVP_PKEY_assign := Load_EVP_PKEY_assign; + EVP_PKEY_get0 := Load_EVP_PKEY_get0; + EVP_PKEY_get0_hmac := Load_EVP_PKEY_get0_hmac; + EVP_PKEY_get0_poly1305 := Load_EVP_PKEY_get0_poly1305; + EVP_PKEY_get0_siphash := Load_EVP_PKEY_get0_siphash; + EVP_PKEY_set1_RSA := Load_EVP_PKEY_set1_RSA; + EVP_PKEY_get0_RSA := Load_EVP_PKEY_get0_RSA; + EVP_PKEY_get1_RSA := Load_EVP_PKEY_get1_RSA; + EVP_PKEY_set1_DSA := Load_EVP_PKEY_set1_DSA; + EVP_PKEY_get0_DSA := Load_EVP_PKEY_get0_DSA; + EVP_PKEY_get1_DSA := Load_EVP_PKEY_get1_DSA; + EVP_PKEY_set1_DH := Load_EVP_PKEY_set1_DH; + EVP_PKEY_get0_DH := Load_EVP_PKEY_get0_DH; + EVP_PKEY_get1_DH := Load_EVP_PKEY_get1_DH; + EVP_PKEY_set1_EC_KEY := Load_EVP_PKEY_set1_EC_KEY; + EVP_PKEY_get0_EC_KEY := Load_EVP_PKEY_get0_EC_KEY; + EVP_PKEY_get1_EC_KEY := Load_EVP_PKEY_get1_EC_KEY; + EVP_PKEY_new := Load_EVP_PKEY_new; + EVP_PKEY_up_ref := Load_EVP_PKEY_up_ref; + EVP_PKEY_free := Load_EVP_PKEY_free; + d2i_PublicKey := Load_d2i_PublicKey; + i2d_PublicKey := Load_i2d_PublicKey; + d2i_PrivateKey := Load_d2i_PrivateKey; + d2i_AutoPrivateKey := Load_d2i_AutoPrivateKey; + i2d_PrivateKey := Load_i2d_PrivateKey; + EVP_PKEY_copy_parameters := Load_EVP_PKEY_copy_parameters; + EVP_PKEY_missing_parameters := Load_EVP_PKEY_missing_parameters; + EVP_PKEY_save_parameters := Load_EVP_PKEY_save_parameters; + EVP_PKEY_cmp_parameters := Load_EVP_PKEY_cmp_parameters; + EVP_PKEY_cmp := Load_EVP_PKEY_cmp; + EVP_PKEY_print_public := Load_EVP_PKEY_print_public; + EVP_PKEY_print_private := Load_EVP_PKEY_print_private; + EVP_PKEY_print_params := Load_EVP_PKEY_print_params; + EVP_PKEY_get_default_digest_nid := Load_EVP_PKEY_get_default_digest_nid; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + EVP_PKEY_set1_tls_encodedpoint := Load_EVP_PKEY_set1_tls_encodedpoint; + EVP_PKEY_get1_tls_encodedpoint := Load_EVP_PKEY_get1_tls_encodedpoint; + EVP_CIPHER_type := Load_EVP_CIPHER_type; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + EVP_CIPHER_param_to_asn1 := Load_EVP_CIPHER_param_to_asn1; + EVP_CIPHER_asn1_to_param := Load_EVP_CIPHER_asn1_to_param; + EVP_CIPHER_set_asn1_iv := Load_EVP_CIPHER_set_asn1_iv; + EVP_CIPHER_get_asn1_iv := Load_EVP_CIPHER_get_asn1_iv; + PKCS5_PBE_keyivgen := Load_PKCS5_PBE_keyivgen; + PKCS5_PBKDF2_HMAC_SHA1 := Load_PKCS5_PBKDF2_HMAC_SHA1; + PKCS5_PBKDF2_HMAC := Load_PKCS5_PBKDF2_HMAC; + PKCS5_v2_PBE_keyivgen := Load_PKCS5_v2_PBE_keyivgen; + EVP_PBE_scrypt := Load_EVP_PBE_scrypt; + PKCS5_v2_scrypt_keyivgen := Load_PKCS5_v2_scrypt_keyivgen; + PKCS5_PBE_add := Load_PKCS5_PBE_add; + EVP_PBE_CipherInit := Load_EVP_PBE_CipherInit; + EVP_PBE_alg_add_type := Load_EVP_PBE_alg_add_type; + EVP_PBE_alg_add := Load_EVP_PBE_alg_add; + EVP_PBE_find := Load_EVP_PBE_find; + EVP_PBE_cleanup := Load_EVP_PBE_cleanup; + EVP_PBE_get := Load_EVP_PBE_get; + EVP_PKEY_asn1_get_count := Load_EVP_PKEY_asn1_get_count; + EVP_PKEY_asn1_get0 := Load_EVP_PKEY_asn1_get0; + EVP_PKEY_asn1_find := Load_EVP_PKEY_asn1_find; + EVP_PKEY_asn1_find_str := Load_EVP_PKEY_asn1_find_str; + EVP_PKEY_asn1_add0 := Load_EVP_PKEY_asn1_add0; + EVP_PKEY_asn1_add_alias := Load_EVP_PKEY_asn1_add_alias; + EVP_PKEY_asn1_get0_info := Load_EVP_PKEY_asn1_get0_info; + EVP_PKEY_get0_asn1 := Load_EVP_PKEY_get0_asn1; + EVP_PKEY_asn1_new := Load_EVP_PKEY_asn1_new; + EVP_PKEY_asn1_copy := Load_EVP_PKEY_asn1_copy; + EVP_PKEY_asn1_free := Load_EVP_PKEY_asn1_free; + EVP_PKEY_asn1_set_public := Load_EVP_PKEY_asn1_set_public; + EVP_PKEY_asn1_set_private := Load_EVP_PKEY_asn1_set_private; + EVP_PKEY_asn1_set_param := Load_EVP_PKEY_asn1_set_param; + EVP_PKEY_asn1_set_free := Load_EVP_PKEY_asn1_set_free; + EVP_PKEY_asn1_set_ctrl := Load_EVP_PKEY_asn1_set_ctrl; + EVP_PKEY_asn1_set_item := Load_EVP_PKEY_asn1_set_item; + EVP_PKEY_asn1_set_siginf := Load_EVP_PKEY_asn1_set_siginf; + EVP_PKEY_asn1_set_check := Load_EVP_PKEY_asn1_set_check; + EVP_PKEY_asn1_set_public_check := Load_EVP_PKEY_asn1_set_public_check; + EVP_PKEY_asn1_set_param_check := Load_EVP_PKEY_asn1_set_param_check; + EVP_PKEY_asn1_set_set_priv_key := Load_EVP_PKEY_asn1_set_set_priv_key; + EVP_PKEY_asn1_set_set_pub_key := Load_EVP_PKEY_asn1_set_set_pub_key; + EVP_PKEY_asn1_set_get_priv_key := Load_EVP_PKEY_asn1_set_get_priv_key; + EVP_PKEY_asn1_set_get_pub_key := Load_EVP_PKEY_asn1_set_get_pub_key; + EVP_PKEY_asn1_set_security_bits := Load_EVP_PKEY_asn1_set_security_bits; + EVP_PKEY_meth_find := Load_EVP_PKEY_meth_find; + EVP_PKEY_meth_new := Load_EVP_PKEY_meth_new; + EVP_PKEY_meth_get0_info := Load_EVP_PKEY_meth_get0_info; + EVP_PKEY_meth_copy := Load_EVP_PKEY_meth_copy; + EVP_PKEY_meth_free := Load_EVP_PKEY_meth_free; + EVP_PKEY_meth_add0 := Load_EVP_PKEY_meth_add0; + EVP_PKEY_meth_remove := Load_EVP_PKEY_meth_remove; + EVP_PKEY_meth_get_count := Load_EVP_PKEY_meth_get_count; + EVP_PKEY_meth_get0 := Load_EVP_PKEY_meth_get0; + EVP_PKEY_CTX_new := Load_EVP_PKEY_CTX_new; + EVP_PKEY_CTX_new_id := Load_EVP_PKEY_CTX_new_id; + EVP_PKEY_CTX_dup := Load_EVP_PKEY_CTX_dup; + EVP_PKEY_CTX_free := Load_EVP_PKEY_CTX_free; + EVP_PKEY_CTX_ctrl := Load_EVP_PKEY_CTX_ctrl; + EVP_PKEY_CTX_ctrl_str := Load_EVP_PKEY_CTX_ctrl_str; + EVP_PKEY_CTX_ctrl_uint64 := Load_EVP_PKEY_CTX_ctrl_uint64; + EVP_PKEY_CTX_str2ctrl := Load_EVP_PKEY_CTX_str2ctrl; + EVP_PKEY_CTX_hex2ctrl := Load_EVP_PKEY_CTX_hex2ctrl; + EVP_PKEY_CTX_md := Load_EVP_PKEY_CTX_md; + EVP_PKEY_CTX_get_operation := Load_EVP_PKEY_CTX_get_operation; + EVP_PKEY_CTX_set0_keygen_info := Load_EVP_PKEY_CTX_set0_keygen_info; + EVP_PKEY_new_mac_key := Load_EVP_PKEY_new_mac_key; + EVP_PKEY_new_raw_private_key := Load_EVP_PKEY_new_raw_private_key; + EVP_PKEY_new_raw_public_key := Load_EVP_PKEY_new_raw_public_key; + EVP_PKEY_get_raw_private_key := Load_EVP_PKEY_get_raw_private_key; + EVP_PKEY_get_raw_public_key := Load_EVP_PKEY_get_raw_public_key; + EVP_PKEY_new_CMAC_key := Load_EVP_PKEY_new_CMAC_key; + EVP_PKEY_CTX_set_data := Load_EVP_PKEY_CTX_set_data; + EVP_PKEY_CTX_get_data := Load_EVP_PKEY_CTX_get_data; + EVP_PKEY_CTX_get0_pkey := Load_EVP_PKEY_CTX_get0_pkey; + EVP_PKEY_CTX_get0_peerkey := Load_EVP_PKEY_CTX_get0_peerkey; + EVP_PKEY_CTX_set_app_data := Load_EVP_PKEY_CTX_set_app_data; + EVP_PKEY_CTX_get_app_data := Load_EVP_PKEY_CTX_get_app_data; + EVP_PKEY_sign_init := Load_EVP_PKEY_sign_init; + EVP_PKEY_sign := Load_EVP_PKEY_sign; + EVP_PKEY_verify_init := Load_EVP_PKEY_verify_init; + EVP_PKEY_verify := Load_EVP_PKEY_verify; + EVP_PKEY_verify_recover_init := Load_EVP_PKEY_verify_recover_init; + EVP_PKEY_verify_recover := Load_EVP_PKEY_verify_recover; + EVP_PKEY_encrypt_init := Load_EVP_PKEY_encrypt_init; + EVP_PKEY_encrypt := Load_EVP_PKEY_encrypt; + EVP_PKEY_decrypt_init := Load_EVP_PKEY_decrypt_init; + EVP_PKEY_decrypt := Load_EVP_PKEY_decrypt; + EVP_PKEY_derive_init := Load_EVP_PKEY_derive_init; + EVP_PKEY_derive_set_peer := Load_EVP_PKEY_derive_set_peer; + EVP_PKEY_derive := Load_EVP_PKEY_derive; + EVP_PKEY_paramgen_init := Load_EVP_PKEY_paramgen_init; + EVP_PKEY_paramgen := Load_EVP_PKEY_paramgen; + EVP_PKEY_keygen_init := Load_EVP_PKEY_keygen_init; + EVP_PKEY_keygen := Load_EVP_PKEY_keygen; + EVP_PKEY_check := Load_EVP_PKEY_check; + EVP_PKEY_public_check := Load_EVP_PKEY_public_check; + EVP_PKEY_param_check := Load_EVP_PKEY_param_check; + EVP_PKEY_CTX_set_cb := Load_EVP_PKEY_CTX_set_cb; + EVP_PKEY_CTX_get_cb := Load_EVP_PKEY_CTX_get_cb; + EVP_PKEY_CTX_get_keygen_info := Load_EVP_PKEY_CTX_get_keygen_info; + EVP_PKEY_meth_set_init := Load_EVP_PKEY_meth_set_init; + EVP_PKEY_meth_set_copy := Load_EVP_PKEY_meth_set_copy; + EVP_PKEY_meth_set_cleanup := Load_EVP_PKEY_meth_set_cleanup; + EVP_PKEY_meth_set_paramgen := Load_EVP_PKEY_meth_set_paramgen; + EVP_PKEY_meth_set_keygen := Load_EVP_PKEY_meth_set_keygen; + EVP_PKEY_meth_set_sign := Load_EVP_PKEY_meth_set_sign; + EVP_PKEY_meth_set_verify := Load_EVP_PKEY_meth_set_verify; + EVP_PKEY_meth_set_verify_recover := Load_EVP_PKEY_meth_set_verify_recover; + EVP_PKEY_meth_set_signctx := Load_EVP_PKEY_meth_set_signctx; + EVP_PKEY_meth_set_verifyctx := Load_EVP_PKEY_meth_set_verifyctx; + EVP_PKEY_meth_set_encrypt := Load_EVP_PKEY_meth_set_encrypt; + EVP_PKEY_meth_set_decrypt := Load_EVP_PKEY_meth_set_decrypt; + EVP_PKEY_meth_set_derive := Load_EVP_PKEY_meth_set_derive; + EVP_PKEY_meth_set_ctrl := Load_EVP_PKEY_meth_set_ctrl; + EVP_PKEY_meth_set_digestsign := Load_EVP_PKEY_meth_set_digestsign; + EVP_PKEY_meth_set_digestverify := Load_EVP_PKEY_meth_set_digestverify; + EVP_PKEY_meth_set_check := Load_EVP_PKEY_meth_set_check; + EVP_PKEY_meth_set_public_check := Load_EVP_PKEY_meth_set_public_check; + EVP_PKEY_meth_set_param_check := Load_EVP_PKEY_meth_set_param_check; + EVP_PKEY_meth_set_digest_custom := Load_EVP_PKEY_meth_set_digest_custom; + EVP_PKEY_meth_get_init := Load_EVP_PKEY_meth_get_init; + EVP_PKEY_meth_get_copy := Load_EVP_PKEY_meth_get_copy; + EVP_PKEY_meth_get_cleanup := Load_EVP_PKEY_meth_get_cleanup; + EVP_PKEY_meth_get_paramgen := Load_EVP_PKEY_meth_get_paramgen; + EVP_PKEY_meth_get_keygen := Load_EVP_PKEY_meth_get_keygen; + EVP_PKEY_meth_get_sign := Load_EVP_PKEY_meth_get_sign; + EVP_PKEY_meth_get_verify := Load_EVP_PKEY_meth_get_verify; + EVP_PKEY_meth_get_verify_recover := Load_EVP_PKEY_meth_get_verify_recover; + EVP_PKEY_meth_get_signctx := Load_EVP_PKEY_meth_get_signctx; + EVP_PKEY_meth_get_verifyctx := Load_EVP_PKEY_meth_get_verifyctx; + EVP_PKEY_meth_get_encrypt := Load_EVP_PKEY_meth_get_encrypt; + EVP_PKEY_meth_get_decrypt := Load_EVP_PKEY_meth_get_decrypt; + EVP_PKEY_meth_get_derive := Load_EVP_PKEY_meth_get_derive; + EVP_PKEY_meth_get_ctrl := Load_EVP_PKEY_meth_get_ctrl; + EVP_PKEY_meth_get_digestsign := Load_EVP_PKEY_meth_get_digestsign; + EVP_PKEY_meth_get_digestverify := Load_EVP_PKEY_meth_get_digestverify; + EVP_PKEY_meth_get_check := Load_EVP_PKEY_meth_get_check; + EVP_PKEY_meth_get_public_check := Load_EVP_PKEY_meth_get_public_check; + EVP_PKEY_meth_get_param_check := Load_EVP_PKEY_meth_get_param_check; + EVP_PKEY_meth_get_digest_custom := Load_EVP_PKEY_meth_get_digest_custom; + EVP_add_alg_module := Load_EVP_add_alg_module; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OpenSSL_add_all_ciphers := Load_OpenSSL_add_all_ciphers; + OpenSSL_add_all_digests := Load_OpenSSL_add_all_digests; + EVP_cleanup := Load_EVP_cleanup; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLLoader(@Load); +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_evperr.pas b/src/opensslHdrs/IdOpenSSLHeaders_evperr.pas new file mode 100644 index 0000000..3e4915d --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_evperr.pas @@ -0,0 +1,278 @@ +(* This unit was generated from the source file evperr.h2pas +It should not be modified directly. All changes should be made to evperr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_evperr; + + +interface + +// Headers for OpenSSL 1.1.1 +// evperr.h + + +uses + IdSSLOpenSSLAPI; + +const + (* + * EVP function codes. + *) + EVP_F_AESNI_INIT_KEY = 165; + EVP_F_AESNI_XTS_INIT_KEY = 207; + EVP_F_AES_GCM_CTRL = 196; + EVP_F_AES_INIT_KEY = 133; + EVP_F_AES_OCB_CIPHER = 169; + EVP_F_AES_T4_INIT_KEY = 178; + EVP_F_AES_T4_XTS_INIT_KEY = 208; + EVP_F_AES_WRAP_CIPHER = 170; + EVP_F_AES_XTS_INIT_KEY = 209; + EVP_F_ALG_MODULE_INIT = 177; + EVP_F_ARIA_CCM_INIT_KEY = 175; + EVP_F_ARIA_GCM_CTRL = 197; + EVP_F_ARIA_GCM_INIT_KEY = 176; + EVP_F_ARIA_INIT_KEY = 185; + EVP_F_B64_NEW = 198; + EVP_F_CAMELLIA_INIT_KEY = 159; + EVP_F_CHACHA20_POLY1305_CTRL = 182; + EVP_F_CMLL_T4_INIT_KEY = 179; + EVP_F_DES_EDE3_WRAP_CIPHER = 171; + EVP_F_DO_SIGVER_INIT = 161; + EVP_F_ENC_NEW = 199; + EVP_F_EVP_CIPHERINIT_EX = 123; + EVP_F_EVP_CIPHER_ASN1_TO_PARAM = 204; + EVP_F_EVP_CIPHER_CTX_COPY = 163; + EVP_F_EVP_CIPHER_CTX_CTRL = 124; + EVP_F_EVP_CIPHER_CTX_SET_KEY_LENGTH = 122; + EVP_F_EVP_CIPHER_PARAM_TO_ASN1 = 205; + EVP_F_EVP_DECRYPTFINAL_EX = 101; + EVP_F_EVP_DECRYPTUPDATE = 166; + EVP_F_EVP_DIGESTFINALXOF = 174; + EVP_F_EVP_DIGESTINIT_EX = 128; + EVP_F_EVP_ENCRYPTDECRYPTUPDATE = 219; + EVP_F_EVP_ENCRYPTFINAL_EX = 127; + EVP_F_EVP_ENCRYPTUPDATE = 167; + EVP_F_EVP_MD_CTX_COPY_EX = 110; + EVP_F_EVP_MD_SIZE = 162; + EVP_F_EVP_OPENINIT = 102; + EVP_F_EVP_PBE_ALG_ADD = 115; + EVP_F_EVP_PBE_ALG_ADD_TYPE = 160; + EVP_F_EVP_PBE_CIPHERINIT = 116; + EVP_F_EVP_PBE_SCRYPT = 181; + EVP_F_EVP_PKCS82PKEY = 111; + EVP_F_EVP_PKEY2PKCS8 = 113; + EVP_F_EVP_PKEY_ASN1_ADD0 = 188; + EVP_F_EVP_PKEY_CHECK = 186; + EVP_F_EVP_PKEY_COPY_PARAMETERS = 103; + EVP_F_EVP_PKEY_CTX_CTRL = 137; + EVP_F_EVP_PKEY_CTX_CTRL_STR = 150; + EVP_F_EVP_PKEY_CTX_DUP = 156; + EVP_F_EVP_PKEY_CTX_MD = 168; + EVP_F_EVP_PKEY_DECRYPT = 104; + EVP_F_EVP_PKEY_DECRYPT_INIT = 138; + EVP_F_EVP_PKEY_DECRYPT_OLD = 151; + EVP_F_EVP_PKEY_DERIVE = 153; + EVP_F_EVP_PKEY_DERIVE_INIT = 154; + EVP_F_EVP_PKEY_DERIVE_SET_PEER = 155; + EVP_F_EVP_PKEY_ENCRYPT = 105; + EVP_F_EVP_PKEY_ENCRYPT_INIT = 139; + EVP_F_EVP_PKEY_ENCRYPT_OLD = 152; + EVP_F_EVP_PKEY_GET0_DH = 119; + EVP_F_EVP_PKEY_GET0_DSA = 120; + EVP_F_EVP_PKEY_GET0_EC_KEY = 131; + EVP_F_EVP_PKEY_GET0_HMAC = 183; + EVP_F_EVP_PKEY_GET0_POLY1305 = 184; + EVP_F_EVP_PKEY_GET0_RSA = 121; + EVP_F_EVP_PKEY_GET0_SIPHASH = 172; + EVP_F_EVP_PKEY_GET_RAW_PRIVATE_KEY = 202; + EVP_F_EVP_PKEY_GET_RAW_PUBLIC_KEY = 203; + EVP_F_EVP_PKEY_KEYGEN = 146; + EVP_F_EVP_PKEY_KEYGEN_INIT = 147; + EVP_F_EVP_PKEY_METH_ADD0 = 194; + EVP_F_EVP_PKEY_METH_NEW = 195; + EVP_F_EVP_PKEY_NEW = 106; + EVP_F_EVP_PKEY_NEW_CMAC_KEY = 193; + EVP_F_EVP_PKEY_NEW_RAW_PRIVATE_KEY = 191; + EVP_F_EVP_PKEY_NEW_RAW_PUBLIC_KEY = 192; + EVP_F_EVP_PKEY_PARAMGEN = 148; + EVP_F_EVP_PKEY_PARAMGEN_INIT = 149; + EVP_F_EVP_PKEY_PARAM_CHECK = 189; + EVP_F_EVP_PKEY_PUBLIC_CHECK = 190; + EVP_F_EVP_PKEY_SET1_ENGINE = 187; + EVP_F_EVP_PKEY_SET_ALIAS_TYPE = 206; + EVP_F_EVP_PKEY_SIGN = 140; + EVP_F_EVP_PKEY_SIGN_INIT = 141; + EVP_F_EVP_PKEY_VERIFY = 142; + EVP_F_EVP_PKEY_VERIFY_INIT = 143; + EVP_F_EVP_PKEY_VERIFY_RECOVER = 144; + EVP_F_EVP_PKEY_VERIFY_RECOVER_INIT = 145; + EVP_F_EVP_SIGNFINAL = 107; + EVP_F_EVP_VERIFYFINAL = 108; + EVP_F_INT_CTX_NEW = 157; + EVP_F_OK_NEW = 200; + EVP_F_PKCS5_PBE_KEYIVGEN = 117; + EVP_F_PKCS5_V2_PBE_KEYIVGEN = 118; + EVP_F_PKCS5_V2_PBKDF2_KEYIVGEN = 164; + EVP_F_PKCS5_V2_SCRYPT_KEYIVGEN = 180; + EVP_F_PKEY_SET_TYPE = 158; + EVP_F_RC2_MAGIC_TO_METH = 109; + EVP_F_RC5_CTRL = 125; + EVP_F_R_32_12_16_INIT_KEY = 242; + EVP_F_S390X_AES_GCM_CTRL = 201; + EVP_F_UPDATE = 173; + + (* + * EVP reason codes. + *) + EVP_R_AES_KEY_SETUP_FAILED = 143; + EVP_R_ARIA_KEY_SETUP_FAILED = 176; + EVP_R_BAD_DECRYPT = 100; + EVP_R_BAD_KEY_LENGTH = 195; + EVP_R_BUFFER_TOO_SMALL = 155; + EVP_R_CAMELLIA_KEY_SETUP_FAILED = 157; + EVP_R_CIPHER_PARAMETER_ERROR = 122; + EVP_R_COMMAND_NOT_SUPPORTED = 147; + EVP_R_COPY_ERROR = 173; + EVP_R_CTRL_NOT_IMPLEMENTED = 132; + EVP_R_CTRL_OPERATION_NOT_IMPLEMENTED = 133; + EVP_R_DATA_NOT_MULTIPLE_OF_BLOCK_LENGTH = 138; + EVP_R_DECODE_ERROR = 114; + EVP_R_DIFFERENT_KEY_TYPES = 101; + EVP_R_DIFFERENT_PARAMETERS = 153; + EVP_R_ERROR_LOADING_SECTION = 165; + EVP_R_ERROR_SETTING_FIPS_MODE = 166; + EVP_R_EXPECTING_AN_HMAC_KEY = 174; + EVP_R_EXPECTING_AN_RSA_KEY = 127; + EVP_R_EXPECTING_A_DH_KEY = 128; + EVP_R_EXPECTING_A_DSA_KEY = 129; + EVP_R_EXPECTING_A_EC_KEY = 142; + EVP_R_EXPECTING_A_POLY1305_KEY = 164; + EVP_R_EXPECTING_A_SIPHASH_KEY = 175; + EVP_R_FIPS_MODE_NOT_SUPPORTED = 167; + EVP_R_GET_RAW_KEY_FAILED = 182; + EVP_R_ILLEGAL_SCRYPT_PARAMETERS = 171; + EVP_R_INITIALIZATION_ERROR = 134; + EVP_R_INPUT_NOT_INITIALIZED = 111; + EVP_R_INVALID_DIGEST = 152; + EVP_R_INVALID_FIPS_MODE = 168; + EVP_R_INVALID_KEY = 163; + EVP_R_INVALID_KEY_LENGTH = 130; + EVP_R_INVALID_OPERATION = 148; + EVP_R_KEYGEN_FAILURE = 120; + EVP_R_KEY_SETUP_FAILED = 180; + EVP_R_MEMORY_LIMIT_EXCEEDED = 172; + EVP_R_MESSAGE_DIGEST_IS_NULL = 159; + EVP_R_METHOD_NOT_SUPPORTED = 144; + EVP_R_MISSING_PARAMETERS = 103; + EVP_R_NOT_XOF_OR_INVALID_LENGTH = 178; + EVP_R_NO_CIPHER_SET = 131; + EVP_R_NO_DEFAULT_DIGEST = 158; + EVP_R_NO_DIGEST_SET = 139; + EVP_R_NO_KEY_SET = 154; + EVP_R_NO_OPERATION_SET = 149; + EVP_R_ONLY_ONESHOT_SUPPORTED = 177; + EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE = 150; + EVP_R_OPERATON_NOT_INITIALIZED = 151; + EVP_R_PARTIALLY_OVERLAPPING = 162; + EVP_R_PBKDF2_ERROR = 181; + EVP_R_PKEY_APPLICATION_ASN1_METHOD_ALREADY_REGISTERED = 179; + EVP_R_PRIVATE_KEY_DECODE_ERROR = 145; + EVP_R_PRIVATE_KEY_ENCODE_ERROR = 146; + EVP_R_PUBLIC_KEY_NOT_RSA = 106; + EVP_R_UNKNOWN_CIPHER = 160; + EVP_R_UNKNOWN_DIGEST = 161; + EVP_R_UNKNOWN_OPTION = 169; + EVP_R_UNKNOWN_PBE_ALGORITHM = 121; + EVP_R_UNSUPPORTED_ALGORITHM = 156; + EVP_R_UNSUPPORTED_CIPHER = 107; + EVP_R_UNSUPPORTED_KEYLENGTH = 123; + EVP_R_UNSUPPORTED_KEY_DERIVATION_FUNCTION = 124; + EVP_R_UNSUPPORTED_KEY_SIZE = 108; + EVP_R_UNSUPPORTED_NUMBER_OF_ROUNDS = 135; + EVP_R_UNSUPPORTED_PRF = 125; + EVP_R_UNSUPPORTED_PRIVATE_KEY_ALGORITHM = 118; + EVP_R_UNSUPPORTED_SALT_TYPE = 126; + EVP_R_WRAP_MODE_NOT_ALLOWED = 170; + EVP_R_WRONG_FINAL_BLOCK_LENGTH = 109; + EVP_R_XTS_DUPLICATED_KEYS = 183; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_EVP_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_EVP_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_EVP_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_EVP_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_EVP_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_EVP_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_EVP_strings := LoadLibCryptoFunction('ERR_load_EVP_strings'); + if not assigned(ERR_load_EVP_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_EVP_strings'); + Result := ERR_load_EVP_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_EVP_strings := Load_ERR_load_EVP_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_hmac.pas b/src/opensslHdrs/IdOpenSSLHeaders_hmac.pas new file mode 100644 index 0000000..c1d5841 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_hmac.pas @@ -0,0 +1,344 @@ +(* This unit was generated from the source file hmac.h2pas +It should not be modified directly. All changes should be made to hmac.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_hmac; + + +interface + +// Headers for OpenSSL 1.1.1 +// hmac.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_evp; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM HMAC_size} +{$EXTERNALSYM HMAC_CTX_new} +{$EXTERNALSYM HMAC_CTX_reset} +{$EXTERNALSYM HMAC_CTX_free} +{$EXTERNALSYM HMAC_Init_ex} +{$EXTERNALSYM HMAC_Update} +{$EXTERNALSYM HMAC_Final} +{$EXTERNALSYM HMAC} +{$EXTERNALSYM HMAC_CTX_copy} +{$EXTERNALSYM HMAC_CTX_set_flags} +{$EXTERNALSYM HMAC_CTX_get_md} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function HMAC_size(const e: PHMAC_CTX): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function HMAC_CTX_new: PHMAC_CTX; cdecl; external CLibCrypto; +function HMAC_CTX_reset(ctx: PHMAC_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure HMAC_CTX_free(ctx: PHMAC_CTX); cdecl; external CLibCrypto; +function HMAC_Init_ex(ctx: PHMAC_CTX; const key: Pointer; len: TOpenSSL_C_INT; const md: PEVP_MD; impl: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function HMAC_Update(ctx: PHMAC_CTX; const data: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function HMAC_Final(ctx: PHMAC_CTX; md: PByte; len: PByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function HMAC(const evp_md: PEVP_MD; const key: Pointer; key_len: TOpenSSL_C_INT; const d: PByte; n: TOpenSSL_C_SIZET; md: PByte; md_len: POpenSSL_C_INT): PByte; cdecl; external CLibCrypto; +function HMAC_CTX_copy(dctx: PHMAC_CTX; sctx: PHMAC_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure HMAC_CTX_set_flags(ctx: PHMAC_CTX; flags: TOpenSSL_C_ULONG); cdecl; external CLibCrypto; +function HMAC_CTX_get_md(const ctx: PHMAC_CTX): PEVP_MD; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_HMAC_CTX_init(ctx : PHMAC_CTX); cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_HMAC_size(const e: PHMAC_CTX): TOpenSSL_C_SIZET; cdecl; +function Load_HMAC_CTX_new: PHMAC_CTX; cdecl; +function Load_HMAC_CTX_reset(ctx: PHMAC_CTX): TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_HMAC_CTX_cleanup(ctx : PHMAC_CTX); cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +procedure Load_HMAC_CTX_free(ctx: PHMAC_CTX); cdecl; +function Load_HMAC_Init_ex(ctx: PHMAC_CTX; const key: Pointer; len: TOpenSSL_C_INT; const md: PEVP_MD; impl: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_HMAC_Update(ctx: PHMAC_CTX; const data: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_HMAC_Final(ctx: PHMAC_CTX; md: PByte; len: PByte): TOpenSSL_C_INT; cdecl; +function Load_HMAC(const evp_md: PEVP_MD; const key: Pointer; key_len: TOpenSSL_C_INT; const d: PByte; n: TOpenSSL_C_SIZET; md: PByte; md_len: POpenSSL_C_INT): PByte; cdecl; +function Load_HMAC_CTX_copy(dctx: PHMAC_CTX; sctx: PHMAC_CTX): TOpenSSL_C_INT; cdecl; +procedure Load_HMAC_CTX_set_flags(ctx: PHMAC_CTX; flags: TOpenSSL_C_ULONG); cdecl; +function Load_HMAC_CTX_get_md(const ctx: PHMAC_CTX): PEVP_MD; cdecl; + +var + HMAC_size: function (const e: PHMAC_CTX): TOpenSSL_C_SIZET; cdecl = Load_HMAC_size; + HMAC_CTX_new: function : PHMAC_CTX; cdecl = Load_HMAC_CTX_new; + HMAC_CTX_reset: function (ctx: PHMAC_CTX): TOpenSSL_C_INT; cdecl = Load_HMAC_CTX_reset; + HMAC_CTX_free: procedure (ctx: PHMAC_CTX); cdecl = Load_HMAC_CTX_free; + HMAC_Init_ex: function (ctx: PHMAC_CTX; const key: Pointer; len: TOpenSSL_C_INT; const md: PEVP_MD; impl: PENGINE): TOpenSSL_C_INT; cdecl = Load_HMAC_Init_ex; + HMAC_Update: function (ctx: PHMAC_CTX; const data: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_HMAC_Update; + HMAC_Final: function (ctx: PHMAC_CTX; md: PByte; len: PByte): TOpenSSL_C_INT; cdecl = Load_HMAC_Final; + HMAC: function (const evp_md: PEVP_MD; const key: Pointer; key_len: TOpenSSL_C_INT; const d: PByte; n: TOpenSSL_C_SIZET; md: PByte; md_len: POpenSSL_C_INT): PByte; cdecl = Load_HMAC; + HMAC_CTX_copy: function (dctx: PHMAC_CTX; sctx: PHMAC_CTX): TOpenSSL_C_INT; cdecl = Load_HMAC_CTX_copy; + HMAC_CTX_set_flags: procedure (ctx: PHMAC_CTX; flags: TOpenSSL_C_ULONG); cdecl = Load_HMAC_CTX_set_flags; + HMAC_CTX_get_md: function (const ctx: PHMAC_CTX): PEVP_MD; cdecl = Load_HMAC_CTX_get_md; +{$ENDIF} +const + HMAC_CTX_init_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + HMAC_size_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + HMAC_CTX_new_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + HMAC_CTX_reset_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + HMAC_CTX_cleanup_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + HMAC_CTX_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + HMAC_CTX_get_md_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +var + HMAC_CTX_init: procedure (ctx : PHMAC_CTX); cdecl = Load_HMAC_CTX_init; {removed 1.1.0} + HMAC_CTX_cleanup: procedure (ctx : PHMAC_CTX); cdecl = Load_HMAC_CTX_cleanup; {removed 1.1.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +const + HMAC_MAX_MD_CBLOCK = 128; {largest known is SHA512} + +type + _PHMAC_CTX = ^HMAC_CTX; + HMAC_CTX = record + md: EVP_MD; + md_ctx: EVP_MD_CTX; + i_ctx: EVP_MD_CTX; + o_ctx: EVP_MD_CTX; + key_length: TOpenSSL_C_UINT; + key: array [0..HMAC_MAX_MD_CBLOCK] of char; + end; + + + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function COMPAT_HMAC_CTX_new: PHMAC_CTX; cdecl; + +begin + Result := AllocMem(SizeOf(HMAC_CTX)); + HMAC_CTX_init(Result); +end; + + + +procedure COMPAT_HMAC_CTX_free(ctx: PHMAC_CTX); cdecl; + +begin + HMAC_CTX_cleanup(ctx); + FreeMem(ctx,SizeOf(HMAC_CTX)); +end; + +(* +typedef struct hmac_ctx_st { + const EVP_MD *md; + EVP_MD_CTX md_ctx; + EVP_MD_CTX i_ctx; + EVP_MD_CTX o_ctx; + unsigned int key_length; + unsigned char key[HMAC_MAX_MD_CBLOCK]; +} HMAC_CTX; +*) + + +function COMPAT_HMAC_size(const e: PHMAC_CTX): TOpenSSL_C_SIZET; cdecl; + +var EVP_MD_size: function (const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + EVP_MD_size := LoadLibCryptoFunction('EVP_MD_size'); + if not assigned(EVP_MD_size) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_MD_size'); + Result := EVP_MD_size(_PHMAC_CTX(e)^.md); +end; + + + + + + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_HMAC_CTX_init(ctx : PHMAC_CTX); cdecl; +begin + HMAC_CTX_init := LoadLibCryptoFunction('HMAC_CTX_init'); + if not assigned(HMAC_CTX_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('HMAC_CTX_init'); + HMAC_CTX_init(ctx); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_HMAC_size(const e: PHMAC_CTX): TOpenSSL_C_SIZET; cdecl; +begin + HMAC_size := LoadLibCryptoFunction('HMAC_size'); + if not assigned(HMAC_size) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + HMAC_size := @COMPAT_HMAC_size; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('HMAC_size'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := HMAC_size(e); +end; + +function Load_HMAC_CTX_new: PHMAC_CTX; cdecl; +begin + HMAC_CTX_new := LoadLibCryptoFunction('HMAC_CTX_new'); + if not assigned(HMAC_CTX_new) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + HMAC_CTX_new := @COMPAT_HMAC_CTX_new; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('HMAC_CTX_new'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := HMAC_CTX_new(); +end; + +function Load_HMAC_CTX_reset(ctx: PHMAC_CTX): TOpenSSL_C_INT; cdecl; +begin + HMAC_CTX_reset := LoadLibCryptoFunction('HMAC_CTX_reset'); + if not assigned(HMAC_CTX_reset) then + EOpenSSLAPIFunctionNotPresent.RaiseException('HMAC_CTX_reset'); + Result := HMAC_CTX_reset(ctx); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_HMAC_CTX_cleanup(ctx : PHMAC_CTX); cdecl; +begin + HMAC_CTX_cleanup := LoadLibCryptoFunction('HMAC_CTX_cleanup'); + if not assigned(HMAC_CTX_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('HMAC_CTX_cleanup'); + HMAC_CTX_cleanup(ctx); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +procedure Load_HMAC_CTX_free(ctx: PHMAC_CTX); cdecl; +begin + HMAC_CTX_free := LoadLibCryptoFunction('HMAC_CTX_free'); + if not assigned(HMAC_CTX_free) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + HMAC_CTX_free := @COMPAT_HMAC_CTX_free; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('HMAC_CTX_free'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + HMAC_CTX_free(ctx); +end; + +function Load_HMAC_Init_ex(ctx: PHMAC_CTX; const key: Pointer; len: TOpenSSL_C_INT; const md: PEVP_MD; impl: PENGINE): TOpenSSL_C_INT; cdecl; +begin + HMAC_Init_ex := LoadLibCryptoFunction('HMAC_Init_ex'); + if not assigned(HMAC_Init_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('HMAC_Init_ex'); + Result := HMAC_Init_ex(ctx,key,len,md,impl); +end; + +function Load_HMAC_Update(ctx: PHMAC_CTX; const data: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + HMAC_Update := LoadLibCryptoFunction('HMAC_Update'); + if not assigned(HMAC_Update) then + EOpenSSLAPIFunctionNotPresent.RaiseException('HMAC_Update'); + Result := HMAC_Update(ctx,data,len); +end; + +function Load_HMAC_Final(ctx: PHMAC_CTX; md: PByte; len: PByte): TOpenSSL_C_INT; cdecl; +begin + HMAC_Final := LoadLibCryptoFunction('HMAC_Final'); + if not assigned(HMAC_Final) then + EOpenSSLAPIFunctionNotPresent.RaiseException('HMAC_Final'); + Result := HMAC_Final(ctx,md,len); +end; + +function Load_HMAC(const evp_md: PEVP_MD; const key: Pointer; key_len: TOpenSSL_C_INT; const d: PByte; n: TOpenSSL_C_SIZET; md: PByte; md_len: POpenSSL_C_INT): PByte; cdecl; +begin + HMAC := LoadLibCryptoFunction('HMAC'); + if not assigned(HMAC) then + EOpenSSLAPIFunctionNotPresent.RaiseException('HMAC'); + Result := HMAC(evp_md,key,key_len,d,n,md,md_len); +end; + +function Load_HMAC_CTX_copy(dctx: PHMAC_CTX; sctx: PHMAC_CTX): TOpenSSL_C_INT; cdecl; +begin + HMAC_CTX_copy := LoadLibCryptoFunction('HMAC_CTX_copy'); + if not assigned(HMAC_CTX_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('HMAC_CTX_copy'); + Result := HMAC_CTX_copy(dctx,sctx); +end; + +procedure Load_HMAC_CTX_set_flags(ctx: PHMAC_CTX; flags: TOpenSSL_C_ULONG); cdecl; +begin + HMAC_CTX_set_flags := LoadLibCryptoFunction('HMAC_CTX_set_flags'); + if not assigned(HMAC_CTX_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('HMAC_CTX_set_flags'); + HMAC_CTX_set_flags(ctx,flags); +end; + +function Load_HMAC_CTX_get_md(const ctx: PHMAC_CTX): PEVP_MD; cdecl; +begin + HMAC_CTX_get_md := LoadLibCryptoFunction('HMAC_CTX_get_md'); + if not assigned(HMAC_CTX_get_md) then + EOpenSSLAPIFunctionNotPresent.RaiseException('HMAC_CTX_get_md'); + Result := HMAC_CTX_get_md(ctx); +end; + + +procedure UnLoad; +begin +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + HMAC_CTX_init := Load_HMAC_CTX_init; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + HMAC_size := Load_HMAC_size; + HMAC_CTX_new := Load_HMAC_CTX_new; + HMAC_CTX_reset := Load_HMAC_CTX_reset; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + HMAC_CTX_cleanup := Load_HMAC_CTX_cleanup; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + HMAC_CTX_free := Load_HMAC_CTX_free; + HMAC_Init_ex := Load_HMAC_Init_ex; + HMAC_Update := Load_HMAC_Update; + HMAC_Final := Load_HMAC_Final; + HMAC := Load_HMAC; + HMAC_CTX_copy := Load_HMAC_CTX_copy; + HMAC_CTX_set_flags := Load_HMAC_CTX_set_flags; + HMAC_CTX_get_md := Load_HMAC_CTX_get_md; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_idea.pas b/src/opensslHdrs/IdOpenSSLHeaders_idea.pas new file mode 100644 index 0000000..6553ab2 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_idea.pas @@ -0,0 +1,205 @@ +(* This unit was generated from the source file idea.h2pas +It should not be modified directly. All changes should be made to idea.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_idea; + + +interface + +// Headers for OpenSSL 1.1.1 +// idea.h + + +uses + IdSSLOpenSSLAPI; + +const + // Added '_CONST' to avoid name clashes + IDEA_ENCRYPT_CONST = 1; + // Added '_CONST' to avoid name clashes + IDEA_DECRYPT_CONST = 0; + + IDEA_BLOCK = 8; + IDEA_KEY_LENGTH = 16; + +type + IDEA_INT = type TOpenSSL_C_INT; + + idea_key_st = record + data: array[0..8, 0..5] of IDEA_INT; + end; + IDEA_KEY_SCHEDULE = idea_key_st; + PIDEA_KEY_SCHEDULE = ^IDEA_KEY_SCHEDULE; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM IDEA_options} +{$EXTERNALSYM IDEA_ecb_encrypt} +{$EXTERNALSYM IDEA_set_encrypt_key} +{$EXTERNALSYM IDEA_set_decrypt_key} +{$EXTERNALSYM IDEA_cbc_encrypt} +{$EXTERNALSYM IDEA_cfb64_encrypt} +{$EXTERNALSYM IDEA_ofb64_encrypt} +{$EXTERNALSYM IDEA_encrypt} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function IDEA_options: PAnsiChar; cdecl; external CLibCrypto; +procedure IDEA_ecb_encrypt(const in_: PByte; out_: PByte; ks: PIDEA_KEY_SCHEDULE); cdecl; external CLibCrypto; +procedure IDEA_set_encrypt_key(const key: PByte; ks: PIDEA_KEY_SCHEDULE); cdecl; external CLibCrypto; +procedure IDEA_set_decrypt_key(ek: PIDEA_KEY_SCHEDULE; dk: PIDEA_KEY_SCHEDULE); cdecl; external CLibCrypto; +procedure IDEA_cbc_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; ks: PIDEA_KEY_SCHEDULE; iv: PByte; enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure IDEA_cfb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; ks: PIDEA_KEY_SCHEDULE; iv: PByte; num: POpenSSL_C_INT; enc: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure IDEA_ofb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; ks: PIDEA_KEY_SCHEDULE; iv: PByte; num: POpenSSL_C_INT); cdecl; external CLibCrypto; +procedure IDEA_encrypt(in_: POpenSSL_C_LONG; ks: PIDEA_KEY_SCHEDULE); cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_IDEA_options: PAnsiChar; cdecl; +procedure Load_IDEA_ecb_encrypt(const in_: PByte; out_: PByte; ks: PIDEA_KEY_SCHEDULE); cdecl; +procedure Load_IDEA_set_encrypt_key(const key: PByte; ks: PIDEA_KEY_SCHEDULE); cdecl; +procedure Load_IDEA_set_decrypt_key(ek: PIDEA_KEY_SCHEDULE; dk: PIDEA_KEY_SCHEDULE); cdecl; +procedure Load_IDEA_cbc_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; ks: PIDEA_KEY_SCHEDULE; iv: PByte; enc: TOpenSSL_C_INT); cdecl; +procedure Load_IDEA_cfb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; ks: PIDEA_KEY_SCHEDULE; iv: PByte; num: POpenSSL_C_INT; enc: TOpenSSL_C_INT); cdecl; +procedure Load_IDEA_ofb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; ks: PIDEA_KEY_SCHEDULE; iv: PByte; num: POpenSSL_C_INT); cdecl; +procedure Load_IDEA_encrypt(in_: POpenSSL_C_LONG; ks: PIDEA_KEY_SCHEDULE); cdecl; + +var + IDEA_options: function : PAnsiChar; cdecl = Load_IDEA_options; + IDEA_ecb_encrypt: procedure (const in_: PByte; out_: PByte; ks: PIDEA_KEY_SCHEDULE); cdecl = Load_IDEA_ecb_encrypt; + IDEA_set_encrypt_key: procedure (const key: PByte; ks: PIDEA_KEY_SCHEDULE); cdecl = Load_IDEA_set_encrypt_key; + IDEA_set_decrypt_key: procedure (ek: PIDEA_KEY_SCHEDULE; dk: PIDEA_KEY_SCHEDULE); cdecl = Load_IDEA_set_decrypt_key; + IDEA_cbc_encrypt: procedure (const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; ks: PIDEA_KEY_SCHEDULE; iv: PByte; enc: TOpenSSL_C_INT); cdecl = Load_IDEA_cbc_encrypt; + IDEA_cfb64_encrypt: procedure (const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; ks: PIDEA_KEY_SCHEDULE; iv: PByte; num: POpenSSL_C_INT; enc: TOpenSSL_C_INT); cdecl = Load_IDEA_cfb64_encrypt; + IDEA_ofb64_encrypt: procedure (const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; ks: PIDEA_KEY_SCHEDULE; iv: PByte; num: POpenSSL_C_INT); cdecl = Load_IDEA_ofb64_encrypt; + IDEA_encrypt: procedure (in_: POpenSSL_C_LONG; ks: PIDEA_KEY_SCHEDULE); cdecl = Load_IDEA_encrypt; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_IDEA_options: PAnsiChar; cdecl; +begin + IDEA_options := LoadLibCryptoFunction('IDEA_options'); + if not assigned(IDEA_options) then + EOpenSSLAPIFunctionNotPresent.RaiseException('IDEA_options'); + Result := IDEA_options(); +end; + +procedure Load_IDEA_ecb_encrypt(const in_: PByte; out_: PByte; ks: PIDEA_KEY_SCHEDULE); cdecl; +begin + IDEA_ecb_encrypt := LoadLibCryptoFunction('IDEA_ecb_encrypt'); + if not assigned(IDEA_ecb_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('IDEA_ecb_encrypt'); + IDEA_ecb_encrypt(in_,out_,ks); +end; + +procedure Load_IDEA_set_encrypt_key(const key: PByte; ks: PIDEA_KEY_SCHEDULE); cdecl; +begin + IDEA_set_encrypt_key := LoadLibCryptoFunction('IDEA_set_encrypt_key'); + if not assigned(IDEA_set_encrypt_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('IDEA_set_encrypt_key'); + IDEA_set_encrypt_key(key,ks); +end; + +procedure Load_IDEA_set_decrypt_key(ek: PIDEA_KEY_SCHEDULE; dk: PIDEA_KEY_SCHEDULE); cdecl; +begin + IDEA_set_decrypt_key := LoadLibCryptoFunction('IDEA_set_decrypt_key'); + if not assigned(IDEA_set_decrypt_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('IDEA_set_decrypt_key'); + IDEA_set_decrypt_key(ek,dk); +end; + +procedure Load_IDEA_cbc_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; ks: PIDEA_KEY_SCHEDULE; iv: PByte; enc: TOpenSSL_C_INT); cdecl; +begin + IDEA_cbc_encrypt := LoadLibCryptoFunction('IDEA_cbc_encrypt'); + if not assigned(IDEA_cbc_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('IDEA_cbc_encrypt'); + IDEA_cbc_encrypt(in_,out_,length,ks,iv,enc); +end; + +procedure Load_IDEA_cfb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; ks: PIDEA_KEY_SCHEDULE; iv: PByte; num: POpenSSL_C_INT; enc: TOpenSSL_C_INT); cdecl; +begin + IDEA_cfb64_encrypt := LoadLibCryptoFunction('IDEA_cfb64_encrypt'); + if not assigned(IDEA_cfb64_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('IDEA_cfb64_encrypt'); + IDEA_cfb64_encrypt(in_,out_,length,ks,iv,num,enc); +end; + +procedure Load_IDEA_ofb64_encrypt(const in_: PByte; out_: PByte; length: TOpenSSL_C_LONG; ks: PIDEA_KEY_SCHEDULE; iv: PByte; num: POpenSSL_C_INT); cdecl; +begin + IDEA_ofb64_encrypt := LoadLibCryptoFunction('IDEA_ofb64_encrypt'); + if not assigned(IDEA_ofb64_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('IDEA_ofb64_encrypt'); + IDEA_ofb64_encrypt(in_,out_,length,ks,iv,num); +end; + +procedure Load_IDEA_encrypt(in_: POpenSSL_C_LONG; ks: PIDEA_KEY_SCHEDULE); cdecl; +begin + IDEA_encrypt := LoadLibCryptoFunction('IDEA_encrypt'); + if not assigned(IDEA_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('IDEA_encrypt'); + IDEA_encrypt(in_,ks); +end; + + +procedure UnLoad; +begin + IDEA_options := Load_IDEA_options; + IDEA_ecb_encrypt := Load_IDEA_ecb_encrypt; + IDEA_set_encrypt_key := Load_IDEA_set_encrypt_key; + IDEA_set_decrypt_key := Load_IDEA_set_decrypt_key; + IDEA_cbc_encrypt := Load_IDEA_cbc_encrypt; + IDEA_cfb64_encrypt := Load_IDEA_cfb64_encrypt; + IDEA_ofb64_encrypt := Load_IDEA_ofb64_encrypt; + IDEA_encrypt := Load_IDEA_encrypt; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_kdferr.pas b/src/opensslHdrs/IdOpenSSLHeaders_kdferr.pas new file mode 100644 index 0000000..62ac2ed --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_kdferr.pas @@ -0,0 +1,129 @@ +(* This unit was generated from the source file kdferr.h2pas +It should not be modified directly. All changes should be made to kdferr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_kdferr; + + +interface + +// Headers for OpenSSL 1.1.1 +// kdferr.h + + +uses + IdSSLOpenSSLAPI; + +const + (* + * KDF function codes. + *) + KDF_F_PKEY_HKDF_CTRL_STR = 103; + KDF_F_PKEY_HKDF_DERIVE = 102; + KDF_F_PKEY_HKDF_INIT = 108; + KDF_F_PKEY_SCRYPT_CTRL_STR = 104; + KDF_F_PKEY_SCRYPT_CTRL_UINT64 = 105; + KDF_F_PKEY_SCRYPT_DERIVE = 109; + KDF_F_PKEY_SCRYPT_INIT = 106; + KDF_F_PKEY_SCRYPT_SET_MEMBUF = 107; + KDF_F_PKEY_TLS1_PRF_CTRL_STR = 100; + KDF_F_PKEY_TLS1_PRF_DERIVE = 101; + KDF_F_PKEY_TLS1_PRF_INIT = 110; + KDF_F_TLS1_PRF_ALG = 111; + + (* + * KDF reason codes. + *) + KDF_R_INVALID_DIGEST = 100; + KDF_R_MISSING_ITERATION_COUNT = 109; + KDF_R_MISSING_KEY = 104; + KDF_R_MISSING_MESSAGE_DIGEST = 105; + KDF_R_MISSING_PARAMETER = 101; + KDF_R_MISSING_PASS = 110; + KDF_R_MISSING_SALT = 111; + KDF_R_MISSING_SECRET = 107; + KDF_R_MISSING_SEED = 106; + KDF_R_UNKNOWN_PARAMETER_TYPE = 103; + KDF_R_VALUE_ERROR = 108; + KDF_R_VALUE_MISSING = 102; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_KDF_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_KDF_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_KDF_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_KDF_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_KDF_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_KDF_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_KDF_strings := LoadLibCryptoFunction('ERR_load_KDF_strings'); + if not assigned(ERR_load_KDF_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_KDF_strings'); + Result := ERR_load_KDF_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_KDF_strings := Load_ERR_load_KDF_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_obj_mac.pas b/src/opensslHdrs/IdOpenSSLHeaders_obj_mac.pas new file mode 100644 index 0000000..2a78217 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_obj_mac.pas @@ -0,0 +1,4132 @@ +(* This unit was generated from the source file obj_mac.h2pas +It should not be modified directly. All changes should be made to obj_mac.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_obj_mac; + + +interface + +// Headers for OpenSSL 1.1.1 +// obj_mac.h + + +const + SN_undef = AnsiString('UNDEF'); + LN_undef = AnsiString('undefined'); + NID_undef = 0; + + SN_itu_t = AnsiString('ITU-T'); + LN_itu_t = AnsiString('itu-t'); + NID_itu_t = 645; + + NID_ccitt = 404; + + SN_iso = AnsiString('ISO'); + LN_iso = AnsiString('iso'); + NID_iso = 181; + + SN_joint_iso_itu_t = AnsiString('JOINT-ISO-ITU-T'); + LN_joint_iso_itu_t = AnsiString('joint-iso-itu-t'); + NID_joint_iso_itu_t = 646; + + NID_joint_iso_ccitt = 393; + + SN_member_body = AnsiString('member-body'); + LN_member_body = AnsiString('ISO Member Body'); + NID_member_body = 182; + + SN_identified_organization = AnsiString('identified-organization'); + NID_identified_organization = 676; + + SN_hmac_md5 = AnsiString('HMAC-MD5'); + LN_hmac_md5 = AnsiString('hmac-md5'); + NID_hmac_md5 = 780; + + SN_hmac_sha1 = AnsiString('HMAC-SHA1'); + LN_hmac_sha1 = AnsiString('hmac-sha1'); + NID_hmac_sha1 = 781; + + SN_x509ExtAdmission = AnsiString('x509ExtAdmission'); + LN_x509ExtAdmission = AnsiString('Professional Information or basis for Admission'); + NID_x509ExtAdmission = 1093; + + SN_certicom_arc = AnsiString('certicom-arc'); + NID_certicom_arc = 677; + + SN_ieee = AnsiString('ieee'); + NID_ieee = 1170; + + SN_ieee_siswg = AnsiString('ieee-siswg'); + LN_ieee_siswg = AnsiString('IEEE Security in Storage Working Group'); + NID_ieee_siswg = 1171; + + SN_international_organizations = AnsiString('international-organizations'); + LN_international_organizations = AnsiString('International Organizations'); + NID_international_organizations = 647; + + SN_wap = AnsiString('wap'); + NID_wap = 678; + + SN_wap_wsg = AnsiString('wap-wsg'); + NID_wap_wsg = 679; + + SN_selected_attribute_types = AnsiString('selected-attribute-types'); + LN_selected_attribute_types = AnsiString('Selected Attribute Types'); + NID_selected_attribute_types = 394; + + SN_clearance = AnsiString('clearance'); + NID_clearance = 395; + + SN_ISO_US = AnsiString('ISO-US'); + LN_ISO_US = AnsiString('ISO US Member Body'); + NID_ISO_US = 183; + + SN_X9_57 = AnsiString('X9-57'); + LN_X9_57 = AnsiString('X9.57'); + NID_X9_57 = 184; + + SN_X9cm = AnsiString('X9cm'); + LN_X9cm = AnsiString('X9.57 CM ?'); + NID_X9cm = 185; + + SN_ISO_CN = AnsiString('ISO-CN'); + LN_ISO_CN = AnsiString('ISO CN Member Body'); + NID_ISO_CN = 1140; + + SN_oscca = AnsiString('oscca'); + NID_oscca = 1141; + + SN_sm_scheme = AnsiString('sm-scheme'); + NID_sm_scheme = 1142; + + SN_dsa = AnsiString('DSA'); + LN_dsa = AnsiString('dsaEncryption'); + NID_dsa = 116; + + SN_dsaWithSHA1 = AnsiString('DSA-SHA1'); + LN_dsaWithSHA1 = AnsiString('dsaWithSHA1'); + NID_dsaWithSHA1 = 113; + + SN_ansi_X9_62 = AnsiString('ansi-X9-62'); + LN_ansi_X9_62 = AnsiString('ANSI X9.62'); + NID_ansi_X9_62 = 405; + + SN_X9_62_prime_field = AnsiString('prime-field'); + NID_X9_62_prime_field = 406; + + SN_X9_62_characteristic_two_field = AnsiString('characteristic-two-field'); + NID_X9_62_characteristic_two_field = 407; + + SN_X9_62_id_characteristic_two_basis = AnsiString('id-characteristic-two-basis'); + NID_X9_62_id_characteristic_two_basis = 680; + + SN_X9_62_onBasis = AnsiString('onBasis'); + NID_X9_62_onBasis = 681; + + SN_X9_62_tpBasis = AnsiString('tpBasis'); + NID_X9_62_tpBasis = 682; + + SN_X9_62_ppBasis = AnsiString('ppBasis'); + NID_X9_62_ppBasis = 683; + + SN_X9_62_id_ecPublicKey = AnsiString('id-ecPublicKey'); + NID_X9_62_id_ecPublicKey = 408; + + SN_X9_62_c2pnb163v1 = AnsiString('c2pnb163v1'); + NID_X9_62_c2pnb163v1 = 684; + + SN_X9_62_c2pnb163v2 = AnsiString('c2pnb163v2'); + NID_X9_62_c2pnb163v2 = 685; + + SN_X9_62_c2pnb163v3 = AnsiString('c2pnb163v3'); + NID_X9_62_c2pnb163v3 = 686; + + SN_X9_62_c2pnb176v1 = AnsiString('c2pnb176v1'); + NID_X9_62_c2pnb176v1 = 687; + + SN_X9_62_c2tnb191v1 = AnsiString('c2tnb191v1'); + NID_X9_62_c2tnb191v1 = 688; + + SN_X9_62_c2tnb191v2 = AnsiString('c2tnb191v2'); + NID_X9_62_c2tnb191v2 = 689; + + SN_X9_62_c2tnb191v3 = AnsiString('c2tnb191v3'); + NID_X9_62_c2tnb191v3 = 690; + + SN_X9_62_c2onb191v4 = AnsiString('c2onb191v4'); + NID_X9_62_c2onb191v4 = 691; + + SN_X9_62_c2onb191v5 = AnsiString('c2onb191v5'); + NID_X9_62_c2onb191v5 = 692; + + SN_X9_62_c2pnb208w1 = AnsiString('c2pnb208w1'); + NID_X9_62_c2pnb208w1 = 693; + + SN_X9_62_c2tnb239v1 = AnsiString('c2tnb239v1'); + NID_X9_62_c2tnb239v1 = 694; + + SN_X9_62_c2tnb239v2 = AnsiString('c2tnb239v2'); + NID_X9_62_c2tnb239v2 = 695; + + SN_X9_62_c2tnb239v3 = AnsiString('c2tnb239v3'); + NID_X9_62_c2tnb239v3 = 696; + + SN_X9_62_c2onb239v4 = AnsiString('c2onb239v4'); + NID_X9_62_c2onb239v4 = 697; + + SN_X9_62_c2onb239v5 = AnsiString('c2onb239v5'); + NID_X9_62_c2onb239v5 = 698; + + SN_X9_62_c2pnb272w1 = AnsiString('c2pnb272w1'); + NID_X9_62_c2pnb272w1 = 699; + + SN_X9_62_c2pnb304w1 = AnsiString('c2pnb304w1'); + NID_X9_62_c2pnb304w1 = 700; + + SN_X9_62_c2tnb359v1 = AnsiString('c2tnb359v1'); + NID_X9_62_c2tnb359v1 = 701; + + SN_X9_62_c2pnb368w1 = AnsiString('c2pnb368w1'); + NID_X9_62_c2pnb368w1 = 702; + + SN_X9_62_c2tnb431r1 = AnsiString('c2tnb431r1'); + NID_X9_62_c2tnb431r1 = 703; + + SN_X9_62_prime192v1 = AnsiString('prime192v1'); + NID_X9_62_prime192v1 = 409; + + SN_X9_62_prime192v2 = AnsiString('prime192v2'); + NID_X9_62_prime192v2 = 410; + + SN_X9_62_prime192v3 = AnsiString('prime192v3'); + NID_X9_62_prime192v3 = 411; + + SN_X9_62_prime239v1 = AnsiString('prime239v1'); + NID_X9_62_prime239v1 = 412; + + SN_X9_62_prime239v2 = AnsiString('prime239v2'); + NID_X9_62_prime239v2 = 413; + + SN_X9_62_prime239v3 = AnsiString('prime239v3'); + NID_X9_62_prime239v3 = 414; + + SN_X9_62_prime256v1 = AnsiString('prime256v1'); + NID_X9_62_prime256v1 = 415; + + SN_ecdsa_with_SHA1 = AnsiString('ecdsa-with-SHA1'); + NID_ecdsa_with_SHA1 = 416; + + SN_ecdsa_with_Recommended = AnsiString('ecdsa-with-Recommended'); + NID_ecdsa_with_Recommended = 791; + + SN_ecdsa_with_Specified = AnsiString('ecdsa-with-Specified'); + NID_ecdsa_with_Specified = 792; + + SN_ecdsa_with_SHA224 = AnsiString('ecdsa-with-SHA224'); + NID_ecdsa_with_SHA224 = 793; + + SN_ecdsa_with_SHA256 = AnsiString('ecdsa-with-SHA256'); + NID_ecdsa_with_SHA256 = 794; + + SN_ecdsa_with_SHA384 = AnsiString('ecdsa-with-SHA384'); + NID_ecdsa_with_SHA384 = 795; + + SN_ecdsa_with_SHA512 = AnsiString('ecdsa-with-SHA512'); + NID_ecdsa_with_SHA512 = 796; + + SN_secp112r1 = AnsiString('secp112r1'); + NID_secp112r1 = 704; + + SN_secp112r2 = AnsiString('secp112r2'); + NID_secp112r2 = 705; + + SN_secp128r1 = AnsiString('secp128r1'); + NID_secp128r1 = 706; + + SN_secp128r2 = AnsiString('secp128r2'); + NID_secp128r2 = 707; + + SN_secp160k1 = AnsiString('secp160k1'); + NID_secp160k1 = 708; + + SN_secp160r1 = AnsiString('secp160r1'); + NID_secp160r1 = 709; + + SN_secp160r2 = AnsiString('secp160r2'); + NID_secp160r2 = 710; + + SN_secp192k1 = AnsiString('secp192k1'); + NID_secp192k1 = 711; + + SN_secp224k1 = AnsiString('secp224k1'); + NID_secp224k1 = 712; + + SN_secp224r1 = AnsiString('secp224r1'); + NID_secp224r1 = 713; + + SN_secp256k1 = AnsiString('secp256k1'); + NID_secp256k1 = 714; + + SN_secp384r1 = AnsiString('secp384r1'); + NID_secp384r1 = 715; + + SN_secp521r1 = AnsiString('secp521r1'); + NID_secp521r1 = 716; + + SN_sect113r1 = AnsiString('sect113r1'); + NID_sect113r1 = 717; + + SN_sect113r2 = AnsiString('sect113r2'); + NID_sect113r2 = 718; + + SN_sect131r1 = AnsiString('sect131r1'); + NID_sect131r1 = 719; + + SN_sect131r2 = AnsiString('sect131r2'); + NID_sect131r2 = 720; + + SN_sect163k1 = AnsiString('sect163k1'); + NID_sect163k1 = 721; + + SN_sect163r1 = AnsiString('sect163r1'); + NID_sect163r1 = 722; + + SN_sect163r2 = AnsiString('sect163r2'); + NID_sect163r2 = 723; + + SN_sect193r1 = AnsiString('sect193r1'); + NID_sect193r1 = 724; + + SN_sect193r2 = AnsiString('sect193r2'); + NID_sect193r2 = 725; + + SN_sect233k1 = AnsiString('sect233k1'); + NID_sect233k1 = 726; + + SN_sect233r1 = AnsiString('sect233r1'); + NID_sect233r1 = 727; + + SN_sect239k1 = AnsiString('sect239k1'); + NID_sect239k1 = 728; + + SN_sect283k1 = AnsiString('sect283k1'); + NID_sect283k1 = 729; + + SN_sect283r1 = AnsiString('sect283r1'); + NID_sect283r1 = 730; + + SN_sect409k1 = AnsiString('sect409k1'); + NID_sect409k1 = 731; + + SN_sect409r1 = AnsiString('sect409r1'); + NID_sect409r1 = 732; + + SN_sect571k1 = AnsiString('sect571k1'); + NID_sect571k1 = 733; + + SN_sect571r1 = AnsiString('sect571r1'); + NID_sect571r1 = 734; + + SN_wap_wsg_idm_ecid_wtls1 = AnsiString('wap-wsg-idm-ecid-wtls1'); + NID_wap_wsg_idm_ecid_wtls1 = 735; + + SN_wap_wsg_idm_ecid_wtls3 = AnsiString('wap-wsg-idm-ecid-wtls3'); + NID_wap_wsg_idm_ecid_wtls3 = 736; + + SN_wap_wsg_idm_ecid_wtls4 = AnsiString('wap-wsg-idm-ecid-wtls4'); + NID_wap_wsg_idm_ecid_wtls4 = 737; + + SN_wap_wsg_idm_ecid_wtls5 = AnsiString('wap-wsg-idm-ecid-wtls5'); + NID_wap_wsg_idm_ecid_wtls5 = 738; + + SN_wap_wsg_idm_ecid_wtls6 = AnsiString('wap-wsg-idm-ecid-wtls6'); + NID_wap_wsg_idm_ecid_wtls6 = 739; + + SN_wap_wsg_idm_ecid_wtls7 = AnsiString('wap-wsg-idm-ecid-wtls7'); + NID_wap_wsg_idm_ecid_wtls7 = 740; + + SN_wap_wsg_idm_ecid_wtls8 = AnsiString('wap-wsg-idm-ecid-wtls8'); + NID_wap_wsg_idm_ecid_wtls8 = 741; + + SN_wap_wsg_idm_ecid_wtls9 = AnsiString('wap-wsg-idm-ecid-wtls9'); + NID_wap_wsg_idm_ecid_wtls9 = 742; + + SN_wap_wsg_idm_ecid_wtls10 = AnsiString('wap-wsg-idm-ecid-wtls10'); + NID_wap_wsg_idm_ecid_wtls10 = 743; + + SN_wap_wsg_idm_ecid_wtls11 = AnsiString('wap-wsg-idm-ecid-wtls11'); + NID_wap_wsg_idm_ecid_wtls11 = 744; + + SN_wap_wsg_idm_ecid_wtls12 = AnsiString('wap-wsg-idm-ecid-wtls12'); + NID_wap_wsg_idm_ecid_wtls12 = 745; + + SN_cast5_cbc = AnsiString('CAST5-CBC'); + LN_cast5_cbc = AnsiString('cast5-cbc'); + NID_cast5_cbc = 108; + + SN_cast5_ecb = AnsiString('CAST5-ECB'); + LN_cast5_ecb = AnsiString('cast5-ecb'); + NID_cast5_ecb = 109; + + SN_cast5_cfb64 = AnsiString('CAST5-CFB'); + LN_cast5_cfb64 = AnsiString('cast5-cfb'); + NID_cast5_cfb64 = 110; + + SN_cast5_ofb64 = AnsiString('CAST5-OFB'); + LN_cast5_ofb64 = AnsiString('cast5-ofb'); + NID_cast5_ofb64 = 111; + + LN_pbeWithMD5AndCast5_CBC = AnsiString('pbeWithMD5AndCast5CBC'); + NID_pbeWithMD5AndCast5_CBC = 112; + + SN_id_PasswordBasedMAC = AnsiString('id-PasswordBasedMAC'); + LN_id_PasswordBasedMAC = AnsiString('password based MAC'); + NID_id_PasswordBasedMAC = 782; + + SN_id_DHBasedMac = AnsiString('id-DHBasedMac'); + LN_id_DHBasedMac = AnsiString('Diffie-Hellman based MAC'); + NID_id_DHBasedMac = 783; + + SN_rsadsi = AnsiString('rsadsi'); + LN_rsadsi = AnsiString('RSA Data Security; Inc.'); + NID_rsadsi = 1; + + SN_pkcs = AnsiString('pkcs'); + LN_pkcs = AnsiString('RSA Data Security; Inc. PKCS'); + NID_pkcs = 2; + + SN_pkcs1 = AnsiString('pkcs1'); + NID_pkcs1 = 186; + + LN_rsaEncryption = AnsiString('rsaEncryption'); + NID_rsaEncryption = 6; + + SN_md2WithRSAEncryption = AnsiString('RSA-MD2'); + LN_md2WithRSAEncryption = AnsiString('md2WithRSAEncryption'); + NID_md2WithRSAEncryption = 7; + + SN_md4WithRSAEncryption = AnsiString('RSA-MD4'); + LN_md4WithRSAEncryption = AnsiString('md4WithRSAEncryption'); + NID_md4WithRSAEncryption = 396; + + SN_md5WithRSAEncryption = AnsiString('RSA-MD5'); + LN_md5WithRSAEncryption = AnsiString('md5WithRSAEncryption'); + NID_md5WithRSAEncryption = 8; + + SN_sha1WithRSAEncryption = AnsiString('RSA-SHA1'); + LN_sha1WithRSAEncryption = AnsiString('sha1WithRSAEncryption'); + NID_sha1WithRSAEncryption = 65; + + SN_rsaesOaep = AnsiString('RSAES-OAEP'); + LN_rsaesOaep = AnsiString('rsaesOaep'); + NID_rsaesOaep = 919; + + SN_mgf1 = AnsiString('MGF1'); + LN_mgf1 = AnsiString('mgf1'); + NID_mgf1 = 911; + + SN_pSpecified = AnsiString('PSPECIFIED'); + LN_pSpecified = AnsiString('pSpecified'); + NID_pSpecified = 935; + + SN_rsassaPss = AnsiString('RSASSA-PSS'); + LN_rsassaPss = AnsiString('rsassaPss'); + NID_rsassaPss = 912; + + SN_sha256WithRSAEncryption = AnsiString('RSA-SHA256'); + LN_sha256WithRSAEncryption = AnsiString('sha256WithRSAEncryption'); + NID_sha256WithRSAEncryption = 668; + + SN_sha384WithRSAEncryption = AnsiString('RSA-SHA384'); + LN_sha384WithRSAEncryption = AnsiString('sha384WithRSAEncryption'); + NID_sha384WithRSAEncryption = 669; + + SN_sha512WithRSAEncryption = AnsiString('RSA-SHA512'); + LN_sha512WithRSAEncryption = AnsiString('sha512WithRSAEncryption'); + NID_sha512WithRSAEncryption = 670; + + SN_sha224WithRSAEncryption = AnsiString('RSA-SHA224'); + LN_sha224WithRSAEncryption = AnsiString('sha224WithRSAEncryption'); + NID_sha224WithRSAEncryption = 671; + + SN_sha512_224WithRSAEncryption = AnsiString('RSA-SHA512/224'); + LN_sha512_224WithRSAEncryption = AnsiString('sha512-224WithRSAEncryption'); + NID_sha512_224WithRSAEncryption = 1145; + + SN_sha512_256WithRSAEncryption = AnsiString('RSA-SHA512/256'); + LN_sha512_256WithRSAEncryption = AnsiString('sha512-256WithRSAEncryption'); + NID_sha512_256WithRSAEncryption = 1146; + + SN_pkcs3 = AnsiString('pkcs3'); + NID_pkcs3 = 27; + + LN_dhKeyAgreement = AnsiString('dhKeyAgreement'); + NID_dhKeyAgreement = 28; + + SN_pkcs5 = AnsiString('pkcs5'); + NID_pkcs5 = 187; + + SN_pbeWithMD2AndDES_CBC = AnsiString('PBE-MD2-DES'); + LN_pbeWithMD2AndDES_CBC = AnsiString('pbeWithMD2AndDES-CBC'); + NID_pbeWithMD2AndDES_CBC = 9; + + SN_pbeWithMD5AndDES_CBC = AnsiString('PBE-MD5-DES'); + LN_pbeWithMD5AndDES_CBC = AnsiString('pbeWithMD5AndDES-CBC'); + NID_pbeWithMD5AndDES_CBC = 10; + + SN_pbeWithMD2AndRC2_CBC = AnsiString('PBE-MD2-RC2-64'); + LN_pbeWithMD2AndRC2_CBC = AnsiString('pbeWithMD2AndRC2-CBC'); + NID_pbeWithMD2AndRC2_CBC = 168; + + SN_pbeWithMD5AndRC2_CBC = AnsiString('PBE-MD5-RC2-64'); + LN_pbeWithMD5AndRC2_CBC = AnsiString('pbeWithMD5AndRC2-CBC'); + NID_pbeWithMD5AndRC2_CBC = 169; + + SN_pbeWithSHA1AndDES_CBC = AnsiString('PBE-SHA1-DES'); + LN_pbeWithSHA1AndDES_CBC = AnsiString('pbeWithSHA1AndDES-CBC'); + NID_pbeWithSHA1AndDES_CBC = 170; + + SN_pbeWithSHA1AndRC2_CBC = AnsiString('PBE-SHA1-RC2-64'); + LN_pbeWithSHA1AndRC2_CBC = AnsiString('pbeWithSHA1AndRC2-CBC'); + NID_pbeWithSHA1AndRC2_CBC = 68; + + LN_id_pbkdf2 = AnsiString('PBKDF2'); + NID_id_pbkdf2 = 69; + + LN_pbes2 = AnsiString('PBES2'); + NID_pbes2 = 161; + + LN_pbmac1 = AnsiString('PBMAC1'); + NID_pbmac1 = 162; + + SN_pkcs7 = AnsiString('pkcs7'); + NID_pkcs7 = 20; + + LN_pkcs7_data = AnsiString('pkcs7-data'); + NID_pkcs7_data = 21; + + LN_pkcs7_signed = AnsiString('pkcs7-signedData'); + NID_pkcs7_signed = 22; + + LN_pkcs7_enveloped = AnsiString('pkcs7-envelopedData'); + NID_pkcs7_enveloped = 23; + + LN_pkcs7_signedAndEnveloped = AnsiString('pkcs7-signedAndEnvelopedData'); + NID_pkcs7_signedAndEnveloped = 24; + + LN_pkcs7_digest = AnsiString('pkcs7-digestData'); + NID_pkcs7_digest = 25; + + LN_pkcs7_encrypted = AnsiString('pkcs7-encryptedData'); + NID_pkcs7_encrypted = 26; + + SN_pkcs9 = AnsiString('pkcs9'); + NID_pkcs9 = 47; + + LN_pkcs9_emailAddress = AnsiString('emailAddress'); + NID_pkcs9_emailAddress = 48; + + LN_pkcs9_unstructuredName = AnsiString('unstructuredName'); + NID_pkcs9_unstructuredName = 49; + + LN_pkcs9_contentType = AnsiString('contentType'); + NID_pkcs9_contentType = 50; + + LN_pkcs9_messageDigest = AnsiString('messageDigest'); + NID_pkcs9_messageDigest = 51; + + LN_pkcs9_signingTime = AnsiString('signingTime'); + NID_pkcs9_signingTime = 52; + + LN_pkcs9_countersignature = AnsiString('countersignature'); + NID_pkcs9_countersignature = 53; + + LN_pkcs9_challengePassword = AnsiString('challengePassword'); + NID_pkcs9_challengePassword = 54; + + LN_pkcs9_unstructuredAddress = AnsiString('unstructuredAddress'); + NID_pkcs9_unstructuredAddress = 55; + + LN_pkcs9_extCertAttributes = AnsiString('extendedCertificateAttributes'); + NID_pkcs9_extCertAttributes = 56; + + SN_ext_req = AnsiString('extReq'); + LN_ext_req = AnsiString('Extension Request'); + NID_ext_req = 172; + + SN_SMIMECapabilities = AnsiString('SMIME-CAPS'); + LN_SMIMECapabilities = AnsiString('S/MIME Capabilities'); + NID_SMIMECapabilities = 167; + + SN_SMIME = AnsiString('SMIME'); + LN_SMIME = AnsiString('S/MIME'); + NID_SMIME = 188; + + SN_id_smime_mod = AnsiString('id-smime-mod'); + NID_id_smime_mod = 189; + + SN_id_smime_ct = AnsiString('id-smime-ct'); + NID_id_smime_ct = 190; + + SN_id_smime_aa = AnsiString('id-smime-aa'); + NID_id_smime_aa = 191; + + SN_id_smime_alg = AnsiString('id-smime-alg'); + NID_id_smime_alg = 192; + + SN_id_smime_cd = AnsiString('id-smime-cd'); + NID_id_smime_cd = 193; + + SN_id_smime_spq = AnsiString('id-smime-spq'); + NID_id_smime_spq = 194; + + SN_id_smime_cti = AnsiString('id-smime-cti'); + NID_id_smime_cti = 195; + + SN_id_smime_mod_cms = AnsiString('id-smime-mod-cms'); + NID_id_smime_mod_cms = 196; + + SN_id_smime_mod_ess = AnsiString('id-smime-mod-ess'); + NID_id_smime_mod_ess = 197; + + SN_id_smime_mod_oid = AnsiString('id-smime-mod-oid'); + NID_id_smime_mod_oid = 198; + + SN_id_smime_mod_msg_v3 = AnsiString('id-smime-mod-msg-v3'); + NID_id_smime_mod_msg_v3 = 199; + + SN_id_smime_mod_ets_eSignature_88 = AnsiString('id-smime-mod-ets-eSignature-88'); + NID_id_smime_mod_ets_eSignature_88 = 200; + + SN_id_smime_mod_ets_eSignature_97 = AnsiString('id-smime-mod-ets-eSignature-97'); + NID_id_smime_mod_ets_eSignature_97 = 201; + + SN_id_smime_mod_ets_eSigPolicy_88 = AnsiString('id-smime-mod-ets-eSigPolicy-88'); + NID_id_smime_mod_ets_eSigPolicy_88 = 202; + + SN_id_smime_mod_ets_eSigPolicy_97 = AnsiString('id-smime-mod-ets-eSigPolicy-97'); + NID_id_smime_mod_ets_eSigPolicy_97 = 203; + + SN_id_smime_ct_receipt = AnsiString('id-smime-ct-receipt'); + NID_id_smime_ct_receipt = 204; + + SN_id_smime_ct_authData = AnsiString('id-smime-ct-authData'); + NID_id_smime_ct_authData = 205; + + SN_id_smime_ct_publishCert = AnsiString('id-smime-ct-publishCert'); + NID_id_smime_ct_publishCert = 206; + + SN_id_smime_ct_TSTInfo = AnsiString('id-smime-ct-TSTInfo'); + NID_id_smime_ct_TSTInfo = 207; + + SN_id_smime_ct_TDTInfo = AnsiString('id-smime-ct-TDTInfo'); + NID_id_smime_ct_TDTInfo = 208; + + SN_id_smime_ct_contentInfo = AnsiString('id-smime-ct-contentInfo'); + NID_id_smime_ct_contentInfo = 209; + + SN_id_smime_ct_DVCSRequestData = AnsiString('id-smime-ct-DVCSRequestData'); + NID_id_smime_ct_DVCSRequestData = 210; + + SN_id_smime_ct_DVCSResponseData = AnsiString('id-smime-ct-DVCSResponseData'); + NID_id_smime_ct_DVCSResponseData = 211; + + SN_id_smime_ct_compressedData = AnsiString('id-smime-ct-compressedData'); + NID_id_smime_ct_compressedData = 786; + + SN_id_smime_ct_contentCollection = AnsiString('id-smime-ct-contentCollection'); + NID_id_smime_ct_contentCollection = 1058; + + SN_id_smime_ct_authEnvelopedData = AnsiString('id-smime-ct-authEnvelopedData'); + NID_id_smime_ct_authEnvelopedData = 1059; + + SN_id_ct_asciiTextWithCRLF = AnsiString('id-ct-asciiTextWithCRLF'); + NID_id_ct_asciiTextWithCRLF = 787; + + SN_id_ct_xml = AnsiString('id-ct-xml'); + NID_id_ct_xml = 1060; + + SN_id_smime_aa_receiptRequest = AnsiString('id-smime-aa-receiptRequest'); + NID_id_smime_aa_receiptRequest = 212; + + SN_id_smime_aa_securityLabel = AnsiString('id-smime-aa-securityLabel'); + NID_id_smime_aa_securityLabel = 213; + + SN_id_smime_aa_mlExpandHistory = AnsiString('id-smime-aa-mlExpandHistory'); + NID_id_smime_aa_mlExpandHistory = 214; + + SN_id_smime_aa_contentHint = AnsiString('id-smime-aa-contentHint'); + NID_id_smime_aa_contentHint = 215; + + SN_id_smime_aa_msgSigDigest = AnsiString('id-smime-aa-msgSigDigest'); + NID_id_smime_aa_msgSigDigest = 216; + + SN_id_smime_aa_encapContentType = AnsiString('id-smime-aa-encapContentType'); + NID_id_smime_aa_encapContentType = 217; + + SN_id_smime_aa_contentIdentifier = AnsiString('id-smime-aa-contentIdentifier'); + NID_id_smime_aa_contentIdentifier = 218; + + SN_id_smime_aa_macValue = AnsiString('id-smime-aa-macValue'); + NID_id_smime_aa_macValue = 219; + + SN_id_smime_aa_equivalentLabels = AnsiString('id-smime-aa-equivalentLabels'); + NID_id_smime_aa_equivalentLabels = 220; + + SN_id_smime_aa_contentReference = AnsiString('id-smime-aa-contentReference'); + NID_id_smime_aa_contentReference = 221; + + SN_id_smime_aa_encrypKeyPref = AnsiString('id-smime-aa-encrypKeyPref'); + NID_id_smime_aa_encrypKeyPref = 222; + + SN_id_smime_aa_signingCertificate = AnsiString('id-smime-aa-signingCertificate'); + NID_id_smime_aa_signingCertificate = 223; + + SN_id_smime_aa_smimeEncryptCerts = AnsiString('id-smime-aa-smimeEncryptCerts'); + NID_id_smime_aa_smimeEncryptCerts = 224; + + SN_id_smime_aa_timeStampToken = AnsiString('id-smime-aa-timeStampToken'); + NID_id_smime_aa_timeStampToken = 225; + + SN_id_smime_aa_ets_sigPolicyId = AnsiString('id-smime-aa-ets-sigPolicyId'); + NID_id_smime_aa_ets_sigPolicyId = 226; + + SN_id_smime_aa_ets_commitmentType = AnsiString('id-smime-aa-ets-commitmentType'); + NID_id_smime_aa_ets_commitmentType = 227; + + SN_id_smime_aa_ets_signerLocation = AnsiString('id-smime-aa-ets-signerLocation'); + NID_id_smime_aa_ets_signerLocation = 228; + + SN_id_smime_aa_ets_signerAttr = AnsiString('id-smime-aa-ets-signerAttr'); + NID_id_smime_aa_ets_signerAttr = 229; + + SN_id_smime_aa_ets_otherSigCert = AnsiString('id-smime-aa-ets-otherSigCert'); + NID_id_smime_aa_ets_otherSigCert = 230; + + SN_id_smime_aa_ets_contentTimestamp = AnsiString('id-smime-aa-ets-contentTimestamp'); + NID_id_smime_aa_ets_contentTimestamp = 231; + + SN_id_smime_aa_ets_CertificateRefs = AnsiString('id-smime-aa-ets-CertificateRefs'); + NID_id_smime_aa_ets_CertificateRefs = 232; + + SN_id_smime_aa_ets_RevocationRefs = AnsiString('id-smime-aa-ets-RevocationRefs'); + NID_id_smime_aa_ets_RevocationRefs = 233; + + SN_id_smime_aa_ets_certValues = AnsiString('id-smime-aa-ets-certValues'); + NID_id_smime_aa_ets_certValues = 234; + + SN_id_smime_aa_ets_revocationValues = AnsiString('id-smime-aa-ets-revocationValues'); + NID_id_smime_aa_ets_revocationValues = 235; + + SN_id_smime_aa_ets_escTimeStamp = AnsiString('id-smime-aa-ets-escTimeStamp'); + NID_id_smime_aa_ets_escTimeStamp = 236; + + SN_id_smime_aa_ets_certCRLTimestamp = AnsiString('id-smime-aa-ets-certCRLTimestamp'); + NID_id_smime_aa_ets_certCRLTimestamp = 237; + + SN_id_smime_aa_ets_archiveTimeStamp = AnsiString('id-smime-aa-ets-archiveTimeStamp'); + NID_id_smime_aa_ets_archiveTimeStamp = 238; + + SN_id_smime_aa_signatureType = AnsiString('id-smime-aa-signatureType'); + NID_id_smime_aa_signatureType = 239; + + SN_id_smime_aa_dvcs_dvc = AnsiString('id-smime-aa-dvcs-dvc'); + NID_id_smime_aa_dvcs_dvc = 240; + + SN_id_smime_aa_signingCertificateV2 = AnsiString('id-smime-aa-signingCertificateV2'); + NID_id_smime_aa_signingCertificateV2 = 1086; + + SN_id_smime_alg_ESDHwith3DES = AnsiString('id-smime-alg-ESDHwith3DES'); + NID_id_smime_alg_ESDHwith3DES = 241; + + SN_id_smime_alg_ESDHwithRC2 = AnsiString('id-smime-alg-ESDHwithRC2'); + NID_id_smime_alg_ESDHwithRC2 = 242; + + SN_id_smime_alg_3DESwrap = AnsiString('id-smime-alg-3DESwrap'); + NID_id_smime_alg_3DESwrap = 243; + + SN_id_smime_alg_RC2wrap = AnsiString('id-smime-alg-RC2wrap'); + NID_id_smime_alg_RC2wrap = 244; + + SN_id_smime_alg_ESDH = AnsiString('id-smime-alg-ESDH'); + NID_id_smime_alg_ESDH = 245; + + SN_id_smime_alg_CMS3DESwrap = AnsiString('id-smime-alg-CMS3DESwrap'); + NID_id_smime_alg_CMS3DESwrap = 246; + + SN_id_smime_alg_CMSRC2wrap = AnsiString('id-smime-alg-CMSRC2wrap'); + NID_id_smime_alg_CMSRC2wrap = 247; + + SN_id_alg_PWRI_KEK = AnsiString('id-alg-PWRI-KEK'); + NID_id_alg_PWRI_KEK = 893; + + SN_id_smime_cd_ldap = AnsiString('id-smime-cd-ldap'); + NID_id_smime_cd_ldap = 248; + + SN_id_smime_spq_ets_sqt_uri = AnsiString('id-smime-spq-ets-sqt-uri'); + NID_id_smime_spq_ets_sqt_uri = 249; + + SN_id_smime_spq_ets_sqt_unotice = AnsiString('id-smime-spq-ets-sqt-unotice'); + NID_id_smime_spq_ets_sqt_unotice = 250; + + SN_id_smime_cti_ets_proofOfOrigin = AnsiString('id-smime-cti-ets-proofOfOrigin'); + NID_id_smime_cti_ets_proofOfOrigin = 251; + + SN_id_smime_cti_ets_proofOfReceipt = AnsiString('id-smime-cti-ets-proofOfReceipt'); + NID_id_smime_cti_ets_proofOfReceipt = 252; + + SN_id_smime_cti_ets_proofOfDelivery = AnsiString('id-smime-cti-ets-proofOfDelivery'); + NID_id_smime_cti_ets_proofOfDelivery = 253; + + SN_id_smime_cti_ets_proofOfSender = AnsiString('id-smime-cti-ets-proofOfSender'); + NID_id_smime_cti_ets_proofOfSender = 254; + + SN_id_smime_cti_ets_proofOfApproval = AnsiString('id-smime-cti-ets-proofOfApproval'); + NID_id_smime_cti_ets_proofOfApproval = 255; + + SN_id_smime_cti_ets_proofOfCreation = AnsiString('id-smime-cti-ets-proofOfCreation'); + NID_id_smime_cti_ets_proofOfCreation = 256; + + LN_friendlyName = AnsiString('friendlyName'); + NID_friendlyName = 156; + + LN_localKeyID = AnsiString('localKeyID'); + NID_localKeyID = 157; + + SN_ms_csp_name = AnsiString('CSPName'); + LN_ms_csp_name = AnsiString('Microsoft CSP Name'); + NID_ms_csp_name = 417; + + SN_LocalKeySet = AnsiString('LocalKeySet'); + LN_LocalKeySet = AnsiString('Microsoft Local Key set'); + NID_LocalKeySet = 856; + + LN_x509Certificate = AnsiString('x509Certificate'); + NID_x509Certificate = 158; + + LN_sdsiCertificate = AnsiString('sdsiCertificate'); + NID_sdsiCertificate = 159; + + LN_x509Crl = AnsiString('x509Crl'); + NID_x509Crl = 160; + + SN_pbe_WithSHA1And128BitRC4 = AnsiString('PBE-SHA1-RC4-128'); + LN_pbe_WithSHA1And128BitRC4 = AnsiString('pbeWithSHA1And128BitRC4'); + NID_pbe_WithSHA1And128BitRC4 = 144; + + SN_pbe_WithSHA1And40BitRC4 = AnsiString('PBE-SHA1-RC4-40'); + LN_pbe_WithSHA1And40BitRC4 = AnsiString('pbeWithSHA1And40BitRC4'); + NID_pbe_WithSHA1And40BitRC4 = 145; + + SN_pbe_WithSHA1And3_Key_TripleDES_CBC = AnsiString('PBE-SHA1-3DES'); + LN_pbe_WithSHA1And3_Key_TripleDES_CBC = AnsiString('pbeWithSHA1And3-KeyTripleDES-CBC'); + NID_pbe_WithSHA1And3_Key_TripleDES_CBC = 146; + + SN_pbe_WithSHA1And2_Key_TripleDES_CBC = AnsiString('PBE-SHA1-2DES'); + LN_pbe_WithSHA1And2_Key_TripleDES_CBC = AnsiString('pbeWithSHA1And2-KeyTripleDES-CBC'); + NID_pbe_WithSHA1And2_Key_TripleDES_CBC = 147; + + SN_pbe_WithSHA1And128BitRC2_CBC = AnsiString('PBE-SHA1-RC2-128'); + LN_pbe_WithSHA1And128BitRC2_CBC = AnsiString('pbeWithSHA1And128BitRC2-CBC'); + NID_pbe_WithSHA1And128BitRC2_CBC = 148; + + SN_pbe_WithSHA1And40BitRC2_CBC = AnsiString('PBE-SHA1-RC2-40'); + LN_pbe_WithSHA1And40BitRC2_CBC = AnsiString('pbeWithSHA1And40BitRC2-CBC'); + NID_pbe_WithSHA1And40BitRC2_CBC = 149; + + LN_keyBag = AnsiString('keyBag'); + NID_keyBag = 150; + + LN_pkcs8ShroudedKeyBag = AnsiString('pkcs8ShroudedKeyBag'); + NID_pkcs8ShroudedKeyBag = 151; + + LN_certBag = AnsiString('certBag'); + NID_certBag = 152; + + LN_crlBag = AnsiString('crlBag'); + NID_crlBag = 153; + + LN_secretBag = AnsiString('secretBag'); + NID_secretBag = 154; + + LN_safeContentsBag = AnsiString('safeContentsBag'); + NID_safeContentsBag = 155; + + SN_md2 = AnsiString('MD2'); + LN_md2 = AnsiString('md2'); + NID_md2 = 3; + + SN_md4 = AnsiString('MD4'); + LN_md4 = AnsiString('md4'); + NID_md4 = 257; + + SN_md5 = AnsiString('MD5'); + LN_md5 = AnsiString('md5'); + NID_md5 = 4; + + SN_md5_sha1 = AnsiString('MD5-SHA1'); + LN_md5_sha1 = AnsiString('md5-sha1'); + NID_md5_sha1 = 114; + + LN_hmacWithMD5 = AnsiString('hmacWithMD5'); + NID_hmacWithMD5 = 797; + + LN_hmacWithSHA1 = AnsiString('hmacWithSHA1'); + NID_hmacWithSHA1 = 163; + + SN_sm2 = AnsiString('SM2'); + LN_sm2 = AnsiString('sm2'); + NID_sm2 = 1172; + + SN_sm3 = AnsiString('SM3'); + LN_sm3 = AnsiString('sm3'); + NID_sm3 = 1143; + + SN_sm3WithRSAEncryption = AnsiString('RSA-SM3'); + LN_sm3WithRSAEncryption = AnsiString('sm3WithRSAEncryption'); + NID_sm3WithRSAEncryption = 1144; + + LN_hmacWithSHA224 = AnsiString('hmacWithSHA224'); + NID_hmacWithSHA224 = 798; + + LN_hmacWithSHA256 = AnsiString('hmacWithSHA256'); + NID_hmacWithSHA256 = 799; + + LN_hmacWithSHA384 = AnsiString('hmacWithSHA384'); + NID_hmacWithSHA384 = 800; + + LN_hmacWithSHA512 = AnsiString('hmacWithSHA512'); + NID_hmacWithSHA512 = 801; + + LN_hmacWithSHA512_224 = AnsiString('hmacWithSHA512-224'); + NID_hmacWithSHA512_224 = 1193; + + LN_hmacWithSHA512_256 = AnsiString('hmacWithSHA512-256'); + NID_hmacWithSHA512_256 = 1194; + + SN_rc2_cbc = AnsiString('RC2-CBC'); + LN_rc2_cbc = AnsiString('rc2-cbc'); + NID_rc2_cbc = 37; + + SN_rc2_ecb = AnsiString('RC2-ECB'); + LN_rc2_ecb = AnsiString('rc2-ecb'); + NID_rc2_ecb = 38; + + SN_rc2_cfb64 = AnsiString('RC2-CFB'); + LN_rc2_cfb64 = AnsiString('rc2-cfb'); + NID_rc2_cfb64 = 39; + + SN_rc2_ofb64 = AnsiString('RC2-OFB'); + LN_rc2_ofb64 = AnsiString('rc2-ofb'); + NID_rc2_ofb64 = 40; + + SN_rc2_40_cbc = AnsiString('RC2-40-CBC'); + LN_rc2_40_cbc = AnsiString('rc2-40-cbc'); + NID_rc2_40_cbc = 98; + + SN_rc2_64_cbc = AnsiString('RC2-64-CBC'); + LN_rc2_64_cbc = AnsiString('rc2-64-cbc'); + NID_rc2_64_cbc = 166; + + SN_rc4 = AnsiString('RC4'); + LN_rc4 = AnsiString('rc4'); + NID_rc4 = 5; + + SN_rc4_40 = AnsiString('RC4-40'); + LN_rc4_40 = AnsiString('rc4-40'); + NID_rc4_40 = 97; + + SN_des_ede3_cbc = AnsiString('DES-EDE3-CBC'); + LN_des_ede3_cbc = AnsiString('des-ede3-cbc'); + NID_des_ede3_cbc = 44; + + SN_rc5_cbc = AnsiString('RC5-CBC'); + LN_rc5_cbc = AnsiString('rc5-cbc'); + NID_rc5_cbc = 120; + + SN_rc5_ecb = AnsiString('RC5-ECB'); + LN_rc5_ecb = AnsiString('rc5-ecb'); + NID_rc5_ecb = 121; + + SN_rc5_cfb64 = AnsiString('RC5-CFB'); + LN_rc5_cfb64 = AnsiString('rc5-cfb'); + NID_rc5_cfb64 = 122; + + SN_rc5_ofb64 = AnsiString('RC5-OFB'); + LN_rc5_ofb64 = AnsiString('rc5-ofb'); + NID_rc5_ofb64 = 123; + + SN_ms_ext_req = AnsiString('msExtReq'); + LN_ms_ext_req = AnsiString('Microsoft Extension Request'); + NID_ms_ext_req = 171; + + SN_ms_code_ind = AnsiString('msCodeInd'); + LN_ms_code_ind = AnsiString('Microsoft Individual Code Signing'); + NID_ms_code_ind = 134; + + SN_ms_code_com = AnsiString('msCodeCom'); + LN_ms_code_com = AnsiString('Microsoft Commercial Code Signing'); + NID_ms_code_com = 135; + + SN_ms_ctl_sign = AnsiString('msCTLSign'); + LN_ms_ctl_sign = AnsiString('Microsoft Trust List Signing'); + NID_ms_ctl_sign = 136; + + SN_ms_sgc = AnsiString('msSGC'); + LN_ms_sgc = AnsiString('Microsoft Server Gated Crypto'); + NID_ms_sgc = 137; + + SN_ms_efs = AnsiString('msEFS'); + LN_ms_efs = AnsiString('Microsoft Encrypted File System'); + NID_ms_efs = 138; + + SN_ms_smartcard_login = AnsiString('msSmartcardLogin'); + LN_ms_smartcard_login = AnsiString('Microsoft Smartcard Login'); + NID_ms_smartcard_login = 648; + + SN_ms_upn = AnsiString('msUPN'); + LN_ms_upn = AnsiString('Microsoft User Principal Name'); + NID_ms_upn = 649; + + SN_idea_cbc = AnsiString('IDEA-CBC'); + LN_idea_cbc = AnsiString('idea-cbc'); + NID_idea_cbc = 34; + + SN_idea_ecb = AnsiString('IDEA-ECB'); + LN_idea_ecb = AnsiString('idea-ecb'); + NID_idea_ecb = 36; + + SN_idea_cfb64 = AnsiString('IDEA-CFB'); + LN_idea_cfb64 = AnsiString('idea-cfb'); + NID_idea_cfb64 = 35; + + SN_idea_ofb64 = AnsiString('IDEA-OFB'); + LN_idea_ofb64 = AnsiString('idea-ofb'); + NID_idea_ofb64 = 46; + + SN_bf_cbc = AnsiString('BF-CBC'); + LN_bf_cbc = AnsiString('bf-cbc'); + NID_bf_cbc = 91; + + SN_bf_ecb = AnsiString('BF-ECB'); + LN_bf_ecb = AnsiString('bf-ecb'); + NID_bf_ecb = 92; + + SN_bf_cfb64 = AnsiString('BF-CFB'); + LN_bf_cfb64 = AnsiString('bf-cfb'); + NID_bf_cfb64 = 93; + + SN_bf_ofb64 = AnsiString('BF-OFB'); + LN_bf_ofb64 = AnsiString('bf-ofb'); + NID_bf_ofb64 = 94; + + SN_id_pkix = AnsiString('PKIX'); + NID_id_pkix = 127; + + SN_id_pkix_mod = AnsiString('id-pkix-mod'); + NID_id_pkix_mod = 258; + + SN_id_pe = AnsiString('id-pe'); + NID_id_pe = 175; + + SN_id_qt = AnsiString('id-qt'); + NID_id_qt = 259; + + SN_id_kp = AnsiString('id-kp'); + NID_id_kp = 128; + + SN_id_it = AnsiString('id-it'); + NID_id_it = 260; + + SN_id_pkip = AnsiString('id-pkip'); + NID_id_pkip = 261; + + SN_id_alg = AnsiString('id-alg'); + NID_id_alg = 262; + + SN_id_cmc = AnsiString('id-cmc'); + NID_id_cmc = 263; + + SN_id_on = AnsiString('id-on'); + NID_id_on = 264; + + SN_id_pda = AnsiString('id-pda'); + NID_id_pda = 265; + + SN_id_aca = AnsiString('id-aca'); + NID_id_aca = 266; + + SN_id_qcs = AnsiString('id-qcs'); + NID_id_qcs = 267; + + SN_id_cct = AnsiString('id-cct'); + NID_id_cct = 268; + + SN_id_ppl = AnsiString('id-ppl'); + NID_id_ppl = 662; + + SN_id_ad = AnsiString('id-ad'); + NID_id_ad = 176; + + SN_id_pkix1_explicit_88 = AnsiString('id-pkix1-explicit-88'); + NID_id_pkix1_explicit_88 = 269; + + SN_id_pkix1_implicit_88 = AnsiString('id-pkix1-implicit-88'); + NID_id_pkix1_implicit_88 = 270; + + SN_id_pkix1_explicit_93 = AnsiString('id-pkix1-explicit-93'); + NID_id_pkix1_explicit_93 = 271; + + SN_id_pkix1_implicit_93 = AnsiString('id-pkix1-implicit-93'); + NID_id_pkix1_implicit_93 = 272; + + SN_id_mod_crmf = AnsiString('id-mod-crmf'); + NID_id_mod_crmf = 273; + + SN_id_mod_cmc = AnsiString('id-mod-cmc'); + NID_id_mod_cmc = 274; + + SN_id_mod_kea_profile_88 = AnsiString('id-mod-kea-profile-88'); + NID_id_mod_kea_profile_88 = 275; + + SN_id_mod_kea_profile_93 = AnsiString('id-mod-kea-profile-93'); + NID_id_mod_kea_profile_93 = 276; + + SN_id_mod_cmp = AnsiString('id-mod-cmp'); + NID_id_mod_cmp = 277; + + SN_id_mod_qualified_cert_88 = AnsiString('id-mod-qualified-cert-88'); + NID_id_mod_qualified_cert_88 = 278; + + SN_id_mod_qualified_cert_93 = AnsiString('id-mod-qualified-cert-93'); + NID_id_mod_qualified_cert_93 = 279; + + SN_id_mod_attribute_cert = AnsiString('id-mod-attribute-cert'); + NID_id_mod_attribute_cert = 280; + + SN_id_mod_timestamp_protocol = AnsiString('id-mod-timestamp-protocol'); + NID_id_mod_timestamp_protocol = 281; + + SN_id_mod_ocsp = AnsiString('id-mod-ocsp'); + NID_id_mod_ocsp = 282; + + SN_id_mod_dvcs = AnsiString('id-mod-dvcs'); + NID_id_mod_dvcs = 283; + + SN_id_mod_cmp2000 = AnsiString('id-mod-cmp2000'); + NID_id_mod_cmp2000 = 284; + + SN_info_access = AnsiString('authorityInfoAccess'); + LN_info_access = AnsiString('Authority Information Access'); + NID_info_access = 177; + + SN_biometricInfo = AnsiString('biometricInfo'); + LN_biometricInfo = AnsiString('Biometric Info'); + NID_biometricInfo = 285; + + SN_qcStatements = AnsiString('qcStatements'); + NID_qcStatements = 286; + + SN_ac_auditEntity = AnsiString('ac-auditEntity'); + NID_ac_auditEntity = 287; + + SN_ac_targeting = AnsiString('ac-targeting'); + NID_ac_targeting = 288; + + SN_aaControls = AnsiString('aaControls'); + NID_aaControls = 289; + + SN_sbgp_ipAddrBlock = AnsiString('sbgp-ipAddrBlock'); + NID_sbgp_ipAddrBlock = 290; + + SN_sbgp_autonomousSysNum = AnsiString('sbgp-autonomousSysNum'); + NID_sbgp_autonomousSysNum = 291; + + SN_sbgp_routerIdentifier = AnsiString('sbgp-routerIdentifier'); + NID_sbgp_routerIdentifier = 292; + + SN_ac_proxying = AnsiString('ac-proxying'); + NID_ac_proxying = 397; + + SN_sinfo_access = AnsiString('subjectInfoAccess'); + LN_sinfo_access = AnsiString('Subject Information Access'); + NID_sinfo_access = 398; + + SN_proxyCertInfo = AnsiString('proxyCertInfo'); + LN_proxyCertInfo = AnsiString('Proxy Certificate Information'); + NID_proxyCertInfo = 663; + + SN_tlsfeature = AnsiString('tlsfeature'); + LN_tlsfeature = AnsiString('TLS Feature'); + NID_tlsfeature = 1020; + + SN_id_qt_cps = AnsiString('id-qt-cps'); + LN_id_qt_cps = AnsiString('Policy Qualifier CPS'); + NID_id_qt_cps = 164; + + SN_id_qt_unotice = AnsiString('id-qt-unotice'); + LN_id_qt_unotice = AnsiString('Policy Qualifier User Notice'); + NID_id_qt_unotice = 165; + + SN_textNotice = AnsiString('textNotice'); + NID_textNotice = 293; + + SN_server_auth = AnsiString('serverAuth'); + LN_server_auth = AnsiString('TLS Web Server Authentication'); + NID_server_auth = 129; + + SN_client_auth = AnsiString('clientAuth'); + LN_client_auth = AnsiString('TLS Web Client Authentication'); + NID_client_auth = 130; + + SN_code_sign = AnsiString('codeSigning'); + LN_code_sign = AnsiString('Code Signing'); + NID_code_sign = 131; + + SN_email_protect = AnsiString('emailProtection'); + LN_email_protect = AnsiString('E-mail Protection'); + NID_email_protect = 132; + + SN_ipsecEndSystem = AnsiString('ipsecEndSystem'); + LN_ipsecEndSystem = AnsiString('IPSec End System'); + NID_ipsecEndSystem = 294; + + SN_ipsecTunnel = AnsiString('ipsecTunnel'); + LN_ipsecTunnel = AnsiString('IPSec Tunnel'); + NID_ipsecTunnel = 295; + + SN_ipsecUser = AnsiString('ipsecUser'); + LN_ipsecUser = AnsiString('IPSec User'); + NID_ipsecUser = 296; + + SN_time_stamp = AnsiString('timeStamping'); + LN_time_stamp = AnsiString('Time Stamping'); + NID_time_stamp = 133; + + SN_OCSP_sign = AnsiString('OCSPSigning'); + LN_OCSP_sign = AnsiString('OCSP Signing'); + NID_OCSP_sign = 180; + + SN_dvcs = AnsiString('DVCS'); + LN_dvcs = AnsiString('dvcs'); + NID_dvcs = 297; + + SN_ipsec_IKE = AnsiString('ipsecIKE'); + LN_ipsec_IKE = AnsiString('ipsec Internet Key Exchange'); + NID_ipsec_IKE = 1022; + + SN_capwapAC = AnsiString('capwapAC'); + LN_capwapAC = AnsiString('Ctrl/provision WAP Access'); + NID_capwapAC = 1023; + + SN_capwapWTP = AnsiString('capwapWTP'); + LN_capwapWTP = AnsiString('Ctrl/Provision WAP Termination'); + NID_capwapWTP = 1024; + + SN_sshClient = AnsiString('secureShellClient'); + LN_sshClient = AnsiString('SSH Client'); + NID_sshClient = 1025; + + SN_sshServer = AnsiString('secureShellServer'); + LN_sshServer = AnsiString('SSH Server'); + NID_sshServer = 1026; + + SN_sendRouter = AnsiString('sendRouter'); + LN_sendRouter = AnsiString('Send Router'); + NID_sendRouter = 1027; + + SN_sendProxiedRouter = AnsiString('sendProxiedRouter'); + LN_sendProxiedRouter = AnsiString('Send Proxied Router'); + NID_sendProxiedRouter = 1028; + + SN_sendOwner = AnsiString('sendOwner'); + LN_sendOwner = AnsiString('Send Owner'); + NID_sendOwner = 1029; + + SN_sendProxiedOwner = AnsiString('sendProxiedOwner'); + LN_sendProxiedOwner = AnsiString('Send Proxied Owner'); + NID_sendProxiedOwner = 1030; + + SN_cmcCA = AnsiString('cmcCA'); + LN_cmcCA = AnsiString('CMC Certificate Authority'); + NID_cmcCA = 1131; + + SN_cmcRA = AnsiString('cmcRA'); + LN_cmcRA = AnsiString('CMC Registration Authority'); + NID_cmcRA = 1132; + + SN_id_it_caProtEncCert = AnsiString('id-it-caProtEncCert'); + NID_id_it_caProtEncCert = 298; + + SN_id_it_signKeyPairTypes = AnsiString('id-it-signKeyPairTypes'); + NID_id_it_signKeyPairTypes = 299; + + SN_id_it_encKeyPairTypes = AnsiString('id-it-encKeyPairTypes'); + NID_id_it_encKeyPairTypes = 300; + + SN_id_it_preferredSymmAlg = AnsiString('id-it-preferredSymmAlg'); + NID_id_it_preferredSymmAlg = 301; + + SN_id_it_caKeyUpdateInfo = AnsiString('id-it-caKeyUpdateInfo'); + NID_id_it_caKeyUpdateInfo = 302; + + SN_id_it_currentCRL = AnsiString('id-it-currentCRL'); + NID_id_it_currentCRL = 303; + + SN_id_it_unsupportedOIDs = AnsiString('id-it-unsupportedOIDs'); + NID_id_it_unsupportedOIDs = 304; + + SN_id_it_subscriptionRequest = AnsiString('id-it-subscriptionRequest'); + NID_id_it_subscriptionRequest = 305; + + SN_id_it_subscriptionResponse = AnsiString('id-it-subscriptionResponse'); + NID_id_it_subscriptionResponse = 306; + + SN_id_it_keyPairParamReq = AnsiString('id-it-keyPairParamReq'); + NID_id_it_keyPairParamReq = 307; + + SN_id_it_keyPairParamRep = AnsiString('id-it-keyPairParamRep'); + NID_id_it_keyPairParamRep = 308; + + SN_id_it_revPassphrase = AnsiString('id-it-revPassphrase'); + NID_id_it_revPassphrase = 309; + + SN_id_it_implicitConfirm = AnsiString('id-it-implicitConfirm'); + NID_id_it_implicitConfirm = 310; + + SN_id_it_confirmWaitTime = AnsiString('id-it-confirmWaitTime'); + NID_id_it_confirmWaitTime = 311; + + SN_id_it_origPKIMessage = AnsiString('id-it-origPKIMessage'); + NID_id_it_origPKIMessage = 312; + + SN_id_it_suppLangTags = AnsiString('id-it-suppLangTags'); + NID_id_it_suppLangTags = 784; + + SN_id_regCtrl = AnsiString('id-regCtrl'); + NID_id_regCtrl = 313; + + SN_id_regInfo = AnsiString('id-regInfo'); + NID_id_regInfo = 314; + + SN_id_regCtrl_regToken = AnsiString('id-regCtrl-regToken'); + NID_id_regCtrl_regToken = 315; + + SN_id_regCtrl_authenticator = AnsiString('id-regCtrl-authenticator'); + NID_id_regCtrl_authenticator = 316; + + SN_id_regCtrl_pkiPublicationInfo = AnsiString('id-regCtrl-pkiPublicationInfo'); + NID_id_regCtrl_pkiPublicationInfo = 317; + + SN_id_regCtrl_pkiArchiveOptions = AnsiString('id-regCtrl-pkiArchiveOptions'); + NID_id_regCtrl_pkiArchiveOptions = 318; + + SN_id_regCtrl_oldCertID = AnsiString('id-regCtrl-oldCertID'); + NID_id_regCtrl_oldCertID = 319; + + SN_id_regCtrl_protocolEncrKey = AnsiString('id-regCtrl-protocolEncrKey'); + NID_id_regCtrl_protocolEncrKey = 320; + + SN_id_regInfo_utf8Pairs = AnsiString('id-regInfo-utf8Pairs'); + NID_id_regInfo_utf8Pairs = 321; + + SN_id_regInfo_certReq = AnsiString('id-regInfo-certReq'); + NID_id_regInfo_certReq = 322; + + SN_id_alg_des40 = AnsiString('id-alg-des40'); + NID_id_alg_des40 = 323; + + SN_id_alg_noSignature = AnsiString('id-alg-noSignature'); + NID_id_alg_noSignature = 324; + + SN_id_alg_dh_sig_hmac_sha1 = AnsiString('id-alg-dh-sig-hmac-sha1'); + NID_id_alg_dh_sig_hmac_sha1 = 325; + + SN_id_alg_dh_pop = AnsiString('id-alg-dh-pop'); + NID_id_alg_dh_pop = 326; + + SN_id_cmc_statusInfo = AnsiString('id-cmc-statusInfo'); + NID_id_cmc_statusInfo = 327; + + SN_id_cmc_identification = AnsiString('id-cmc-identification'); + NID_id_cmc_identification = 328; + + SN_id_cmc_identityProof = AnsiString('id-cmc-identityProof'); + NID_id_cmc_identityProof = 329; + + SN_id_cmc_dataReturn = AnsiString('id-cmc-dataReturn'); + NID_id_cmc_dataReturn = 330; + + SN_id_cmc_transactionId = AnsiString('id-cmc-transactionId'); + NID_id_cmc_transactionId = 331; + + SN_id_cmc_senderNonce = AnsiString('id-cmc-senderNonce'); + NID_id_cmc_senderNonce = 332; + + SN_id_cmc_recipientNonce = AnsiString('id-cmc-recipientNonce'); + NID_id_cmc_recipientNonce = 333; + + SN_id_cmc_addExtensions = AnsiString('id-cmc-addExtensions'); + NID_id_cmc_addExtensions = 334; + + SN_id_cmc_encryptedPOP = AnsiString('id-cmc-encryptedPOP'); + NID_id_cmc_encryptedPOP = 335; + + SN_id_cmc_decryptedPOP = AnsiString('id-cmc-decryptedPOP'); + NID_id_cmc_decryptedPOP = 336; + + SN_id_cmc_lraPOPWitness = AnsiString('id-cmc-lraPOPWitness'); + NID_id_cmc_lraPOPWitness = 337; + + SN_id_cmc_getCert = AnsiString('id-cmc-getCert'); + NID_id_cmc_getCert = 338; + + SN_id_cmc_getCRL = AnsiString('id-cmc-getCRL'); + NID_id_cmc_getCRL = 339; + + SN_id_cmc_revokeRequest = AnsiString('id-cmc-revokeRequest'); + NID_id_cmc_revokeRequest = 340; + + SN_id_cmc_regInfo = AnsiString('id-cmc-regInfo'); + NID_id_cmc_regInfo = 341; + + SN_id_cmc_responseInfo = AnsiString('id-cmc-responseInfo'); + NID_id_cmc_responseInfo = 342; + + SN_id_cmc_queryPending = AnsiString('id-cmc-queryPending'); + NID_id_cmc_queryPending = 343; + + SN_id_cmc_popLinkRandom = AnsiString('id-cmc-popLinkRandom'); + NID_id_cmc_popLinkRandom = 344; + + SN_id_cmc_popLinkWitness = AnsiString('id-cmc-popLinkWitness'); + NID_id_cmc_popLinkWitness = 345; + + SN_id_cmc_confirmCertAcceptance = AnsiString('id-cmc-confirmCertAcceptance'); + NID_id_cmc_confirmCertAcceptance = 346; + + SN_id_on_personalData = AnsiString('id-on-personalData'); + NID_id_on_personalData = 347; + + SN_id_on_permanentIdentifier = AnsiString('id-on-permanentIdentifier'); + LN_id_on_permanentIdentifier = AnsiString('Permanent Identifier'); + NID_id_on_permanentIdentifier = 858; + + SN_id_pda_dateOfBirth = AnsiString('id-pda-dateOfBirth'); + NID_id_pda_dateOfBirth = 348; + + SN_id_pda_placeOfBirth = AnsiString('id-pda-placeOfBirth'); + NID_id_pda_placeOfBirth = 349; + + SN_id_pda_gender = AnsiString('id-pda-gender'); + NID_id_pda_gender = 351; + + SN_id_pda_countryOfCitizenship = AnsiString('id-pda-countryOfCitizenship'); + NID_id_pda_countryOfCitizenship = 352; + + SN_id_pda_countryOfResidence = AnsiString('id-pda-countryOfResidence'); + NID_id_pda_countryOfResidence = 353; + + SN_id_aca_authenticationInfo = AnsiString('id-aca-authenticationInfo'); + NID_id_aca_authenticationInfo = 354; + + SN_id_aca_accessIdentity = AnsiString('id-aca-accessIdentity'); + NID_id_aca_accessIdentity = 355; + + SN_id_aca_chargingIdentity = AnsiString('id-aca-chargingIdentity'); + NID_id_aca_chargingIdentity = 356; + + SN_id_aca_group = AnsiString('id-aca-group'); + NID_id_aca_group = 357; + + SN_id_aca_role = AnsiString('id-aca-role'); + NID_id_aca_role = 358; + + SN_id_aca_encAttrs = AnsiString('id-aca-encAttrs'); + NID_id_aca_encAttrs = 399; + + SN_id_qcs_pkixQCSyntax_v1 = AnsiString('id-qcs-pkixQCSyntax-v1'); + NID_id_qcs_pkixQCSyntax_v1 = 359; + + SN_id_cct_crs = AnsiString('id-cct-crs'); + NID_id_cct_crs = 360; + + SN_id_cct_PKIData = AnsiString('id-cct-PKIData'); + NID_id_cct_PKIData = 361; + + SN_id_cct_PKIResponse = AnsiString('id-cct-PKIResponse'); + NID_id_cct_PKIResponse = 362; + + SN_id_ppl_anyLanguage = AnsiString('id-ppl-anyLanguage'); + LN_id_ppl_anyLanguage = AnsiString('Any language'); + + NID_id_ppl_anyLanguage = 664; + SN_id_ppl_inheritAll = AnsiString('id-ppl-inheritAll'); + + LN_id_ppl_inheritAll = AnsiString('Inherit all'); + NID_id_ppl_inheritAll = 665; + + SN_Independent = AnsiString('id-ppl-independent'); + LN_Independent = AnsiString('Independent'); + NID_Independent = 667; + + SN_ad_OCSP = AnsiString('OCSP'); + LN_ad_OCSP = AnsiString('OCSP'); + NID_ad_OCSP = 178; + + SN_ad_ca_issuers = AnsiString('caIssuers'); + LN_ad_ca_issuers = AnsiString('CA Issuers'); + NID_ad_ca_issuers = 179; + + SN_ad_timeStamping = AnsiString('ad_timestamping'); + LN_ad_timeStamping = AnsiString('AD Time Stamping'); + NID_ad_timeStamping = 363; + + SN_ad_dvcs = AnsiString('AD_DVCS'); + LN_ad_dvcs = AnsiString('ad dvcs'); + NID_ad_dvcs = 364; + + SN_caRepository = AnsiString('caRepository'); + LN_caRepository = AnsiString('CA Repository'); + NID_caRepository = 785; + + SN_id_pkix_OCSP_basic = AnsiString('basicOCSPResponse'); + LN_id_pkix_OCSP_basic = AnsiString('Basic OCSP Response'); + NID_id_pkix_OCSP_basic = 365; + + SN_id_pkix_OCSP_Nonce = AnsiString('Nonce'); + LN_id_pkix_OCSP_Nonce = AnsiString('OCSP Nonce'); + NID_id_pkix_OCSP_Nonce = 366; + + SN_id_pkix_OCSP_CrlID = AnsiString('CrlID'); + LN_id_pkix_OCSP_CrlID = AnsiString('OCSP CRL ID'); + NID_id_pkix_OCSP_CrlID = 367; + + SN_id_pkix_OCSP_acceptableResponses = AnsiString('acceptableResponses'); + LN_id_pkix_OCSP_acceptableResponses = AnsiString('Acceptable OCSP Responses'); + NID_id_pkix_OCSP_acceptableResponses = 368; + + SN_id_pkix_OCSP_noCheck = AnsiString('noCheck'); + LN_id_pkix_OCSP_noCheck = AnsiString('OCSP No Check'); + NID_id_pkix_OCSP_noCheck = 369; + + SN_id_pkix_OCSP_archiveCutoff = AnsiString('archiveCutoff'); + LN_id_pkix_OCSP_archiveCutoff = AnsiString('OCSP Archive Cutoff'); + NID_id_pkix_OCSP_archiveCutoff = 370; + + SN_id_pkix_OCSP_serviceLocator = AnsiString('serviceLocator'); + LN_id_pkix_OCSP_serviceLocator = AnsiString('OCSP Service Locator'); + NID_id_pkix_OCSP_serviceLocator = 371; + + SN_id_pkix_OCSP_extendedStatus = AnsiString('extendedStatus'); + LN_id_pkix_OCSP_extendedStatus = AnsiString('Extended OCSP Status'); + NID_id_pkix_OCSP_extendedStatus = 372; + + SN_id_pkix_OCSP_valid = AnsiString('valid'); + NID_id_pkix_OCSP_valid = 373; + + SN_id_pkix_OCSP_path = AnsiString('path'); + NID_id_pkix_OCSP_path = 374; + + SN_id_pkix_OCSP_trustRoot = AnsiString('trustRoot'); + LN_id_pkix_OCSP_trustRoot = AnsiString('Trust Root'); + NID_id_pkix_OCSP_trustRoot = 375; + + SN_algorithm = AnsiString('algorithm'); + LN_algorithm = AnsiString('algorithm'); + NID_algorithm = 376; + + SN_md5WithRSA = AnsiString('RSA-NP-MD5'); + LN_md5WithRSA = AnsiString('md5WithRSA'); + NID_md5WithRSA = 104; + + SN_des_ecb = AnsiString('DES-ECB'); + LN_des_ecb = AnsiString('des-ecb'); + NID_des_ecb = 29; + + SN_des_cbc = AnsiString('DES-CBC'); + LN_des_cbc = AnsiString('des-cbc'); + NID_des_cbc = 31; + + SN_des_ofb64 = AnsiString('DES-OFB'); + LN_des_ofb64 = AnsiString('des-ofb'); + NID_des_ofb64 = 45; + + SN_des_cfb64 = AnsiString('DES-CFB'); + LN_des_cfb64 = AnsiString('des-cfb'); + NID_des_cfb64 = 30; + + SN_rsaSignature = AnsiString('rsaSignature'); + NID_rsaSignature = 377; + + SN_dsa_2 = AnsiString('DSA-old'); + LN_dsa_2 = AnsiString('dsaEncryption-old'); + NID_dsa_2 = 67; + + SN_dsaWithSHA = AnsiString('DSA-SHA'); + LN_dsaWithSHA = AnsiString('dsaWithSHA'); + NID_dsaWithSHA = 66; + + SN_shaWithRSAEncryption = AnsiString('RSA-SHA'); + LN_shaWithRSAEncryption = AnsiString('shaWithRSAEncryption'); + NID_shaWithRSAEncryption = 42; + + SN_des_ede_ecb = AnsiString('DES-EDE'); + LN_des_ede_ecb = AnsiString('des-ede'); + NID_des_ede_ecb = 32; + + SN_des_ede3_ecb = AnsiString('DES-EDE3'); + LN_des_ede3_ecb = AnsiString('des-ede3'); + NID_des_ede3_ecb = 33; + + SN_des_ede_cbc = AnsiString('DES-EDE-CBC'); + LN_des_ede_cbc = AnsiString('des-ede-cbc'); + NID_des_ede_cbc = 43; + + SN_des_ede_cfb64 = AnsiString('DES-EDE-CFB'); + LN_des_ede_cfb64 = AnsiString('des-ede-cfb'); + NID_des_ede_cfb64 = 60; + + SN_des_ede3_cfb64 = AnsiString('DES-EDE3-CFB'); + LN_des_ede3_cfb64 = AnsiString('des-ede3-cfb'); + NID_des_ede3_cfb64 = 61; + + SN_des_ede_ofb64 = AnsiString('DES-EDE-OFB'); + LN_des_ede_ofb64 = AnsiString('des-ede-ofb'); + NID_des_ede_ofb64 = 62; + + SN_des_ede3_ofb64 = AnsiString('DES-EDE3-OFB'); + LN_des_ede3_ofb64 = AnsiString('des-ede3-ofb'); + NID_des_ede3_ofb64 = 63; + + SN_desx_cbc = AnsiString('DESX-CBC'); + LN_desx_cbc = AnsiString('desx-cbc'); + NID_desx_cbc = 80; + + SN_sha = AnsiString('SHA'); + LN_sha = AnsiString('sha'); + NID_sha = 41; + + SN_sha1 = AnsiString('SHA1'); + LN_sha1 = AnsiString('sha1'); + NID_sha1 = 64; + + SN_dsaWithSHA1_2 = AnsiString('DSA-SHA1-old'); + LN_dsaWithSHA1_2 = AnsiString('dsaWithSHA1-old'); + NID_dsaWithSHA1_2 = 70; + + SN_sha1WithRSA = AnsiString('RSA-SHA1-2'); + LN_sha1WithRSA = AnsiString('sha1WithRSA'); + NID_sha1WithRSA = 115; + + SN_ripemd160 = AnsiString('RIPEMD160'); + LN_ripemd160 = AnsiString('ripemd160'); + NID_ripemd160 = 117; + + SN_ripemd160WithRSA = AnsiString('RSA-RIPEMD160'); + LN_ripemd160WithRSA = AnsiString('ripemd160WithRSA'); + NID_ripemd160WithRSA = 119; + + SN_blake2b512 = AnsiString('BLAKE2b512'); + LN_blake2b512 = AnsiString('blake2b512'); + NID_blake2b512 = 1056; + + SN_blake2s256 = AnsiString('BLAKE2s256'); + LN_blake2s256 = AnsiString('blake2s256'); + NID_blake2s256 = 1057; + + SN_sxnet = AnsiString('SXNetID'); + LN_sxnet = AnsiString('Strong Extranet ID'); + NID_sxnet = 143; + + SN_X500 = AnsiString('X500'); + LN_X500 = AnsiString('directory services(X.500)'); + NID_X500 = 11; + + SN_X509 = AnsiString('X509'); + NID_X509 = 12; + + SN_commonName = AnsiString('CN'); + LN_commonName = AnsiString('commonName'); + NID_commonName = 13; + + SN_surname = AnsiString('SN'); + LN_surname = AnsiString('surname'); + NID_surname = 100; + + LN_serialNumber = AnsiString('serialNumber'); + NID_serialNumber = 105; + + SN_countryName = AnsiString('C'); + LN_countryName = AnsiString('countryName'); + NID_countryName = 14; + + SN_localityName = AnsiString('L'); + LN_localityName = AnsiString('localityName'); + NID_localityName = 15; + + SN_stateOrProvinceName = AnsiString('ST'); + LN_stateOrProvinceName = AnsiString('stateOrProvinceName'); + NID_stateOrProvinceName = 16; + + SN_streetAddress = AnsiString('street'); + LN_streetAddress = AnsiString('streetAddress'); + NID_streetAddress = 660; + + SN_organizationName = AnsiString('O'); + LN_organizationName = AnsiString('organizationName'); + NID_organizationName = 17; + + SN_organizationalUnitName = AnsiString('OU'); + LN_organizationalUnitName = AnsiString('organizationalUnitName'); + NID_organizationalUnitName = 18; + + SN_title = AnsiString('title'); + LN_title = AnsiString('title'); + NID_title = 106; + + LN_description = AnsiString('description'); + NID_description = 107; + + LN_searchGuide = AnsiString('searchGuide'); + NID_searchGuide = 859; + LN_businessCategory = AnsiString('businessCategory'); + NID_businessCategory = 860; + + LN_postalAddress = AnsiString('postalAddress'); + NID_postalAddress = 861; + + LN_postalCode = AnsiString('postalCode'); + NID_postalCode = 661; + + LN_postOfficeBox = AnsiString('postOfficeBox'); + NID_postOfficeBox = 862; + + LN_physicalDeliveryOfficeName = AnsiString('physicalDeliveryOfficeName'); + NID_physicalDeliveryOfficeName = 863; + + LN_telephoneNumber = AnsiString('telephoneNumber'); + NID_telephoneNumber = 864; + + LN_telexNumber = AnsiString('telexNumber'); + NID_telexNumber = 865; + + LN_teletexTerminalIdentifier = AnsiString('teletexTerminalIdentifier'); + NID_teletexTerminalIdentifier = 866; + + LN_facsimileTelephoneNumber = AnsiString('facsimileTelephoneNumber'); + NID_facsimileTelephoneNumber = 867; + + LN_x121Address = AnsiString('x121Address'); + NID_x121Address = 868; + + LN_internationaliSDNNumber = AnsiString('internationaliSDNNumber'); + NID_internationaliSDNNumber = 869; + + LN_registeredAddress = AnsiString('registeredAddress'); + NID_registeredAddress = 870; + + LN_destinationIndicator = AnsiString('destinationIndicator'); + NID_destinationIndicator = 871; + + LN_preferredDeliveryMethod = AnsiString('preferredDeliveryMethod'); + NID_preferredDeliveryMethod = 872; + + LN_presentationAddress = AnsiString('presentationAddress'); + NID_presentationAddress = 873; + + LN_supportedApplicationContext = AnsiString('supportedApplicationContext'); + NID_supportedApplicationContext = 874; + + SN_member = AnsiString('member'); + NID_member = 875; + + SN_owner = AnsiString('owner'); + NID_owner = 876; + + LN_roleOccupant = AnsiString('roleOccupant'); + NID_roleOccupant = 877; + + SN_seeAlso = AnsiString('seeAlso'); + NID_seeAlso = 878; + + LN_userPassword = AnsiString('userPassword'); + NID_userPassword = 879; + + LN_userCertificate = AnsiString('userCertificate'); + NID_userCertificate = 880; + + LN_cACertificate = AnsiString('cACertificate'); + NID_cACertificate = 881; + + LN_authorityRevocationList = AnsiString('authorityRevocationList'); + NID_authorityRevocationList = 882; + + LN_certificateRevocationList = AnsiString('certificateRevocationList'); + NID_certificateRevocationList = 883; + + LN_crossCertificatePair = AnsiString('crossCertificatePair'); + NID_crossCertificatePair = 884; + + SN_name = AnsiString('name'); + LN_name = AnsiString('name'); + NID_name = 173; + + SN_givenName = AnsiString('GN'); + LN_givenName = AnsiString('givenName'); + NID_givenName = 99; + + SN_initials = AnsiString('initials'); + LN_initials = AnsiString('initials'); + NID_initials = 101; + + LN_generationQualifier = AnsiString('generationQualifier'); + NID_generationQualifier = 509; + + LN_x500UniqueIdentifier = AnsiString('x500UniqueIdentifier'); + NID_x500UniqueIdentifier = 503; + + SN_dnQualifier = AnsiString('dnQualifier'); + LN_dnQualifier = AnsiString('dnQualifier'); + NID_dnQualifier = 174; + + LN_enhancedSearchGuide = AnsiString('enhancedSearchGuide'); + NID_enhancedSearchGuide = 885; + + LN_protocolInformation = AnsiString('protocolInformation'); + NID_protocolInformation = 886; + + LN_distinguishedName = AnsiString('distinguishedName'); + NID_distinguishedName = 887; + + LN_uniqueMember = AnsiString('uniqueMember'); + NID_uniqueMember = 888; + + LN_houseIdentifier = AnsiString('houseIdentifier'); + NID_houseIdentifier = 889; + + LN_supportedAlgorithms = AnsiString('supportedAlgorithms'); + NID_supportedAlgorithms = 890; + + LN_deltaRevocationList = AnsiString('deltaRevocationList'); + NID_deltaRevocationList = 891; + + SN_dmdName = AnsiString('dmdName'); + NID_dmdName = 892; + + LN_pseudonym = AnsiString('pseudonym'); + NID_pseudonym = 510; + + SN_role = AnsiString('role'); + LN_role = AnsiString('role'); + NID_role = 400; + + LN_organizationIdentifier = AnsiString('organizationIdentifier'); + NID_organizationIdentifier = 1089; + + SN_countryCode3c = AnsiString('c3'); + LN_countryCode3c = AnsiString('countryCode3c'); + NID_countryCode3c = 1090; + + SN_countryCode3n = AnsiString('n3'); + LN_countryCode3n = AnsiString('countryCode3n'); + NID_countryCode3n = 1091; + + LN_dnsName = AnsiString('dnsName'); + NID_dnsName = 1092; + + SN_X500algorithms = AnsiString('X500algorithms'); + LN_X500algorithms = AnsiString('directory services - algorithms'); + NID_X500algorithms = 378; + + SN_rsa = AnsiString('RSA'); + LN_rsa = AnsiString('rsa'); + NID_rsa = 19; + + SN_mdc2WithRSA = AnsiString('RSA-MDC2'); + LN_mdc2WithRSA = AnsiString('mdc2WithRSA'); + NID_mdc2WithRSA = 96; + + SN_mdc2 = AnsiString('MDC2'); + LN_mdc2 = AnsiString('mdc2'); + NID_mdc2 = 95; + + SN_id_ce = AnsiString('id-ce'); + NID_id_ce = 81; + + SN_subject_directory_attributes = AnsiString('subjectDirectoryAttributes'); + LN_subject_directory_attributes = AnsiString('X509v3 Subject Directory Attributes'); + NID_subject_directory_attributes = 769; + + SN_subject_key_identifier = AnsiString('subjectKeyIdentifier'); + LN_subject_key_identifier = AnsiString('X509v3 Subject Key Identifier'); + NID_subject_key_identifier = 82; + + SN_key_usage = AnsiString('keyUsage'); + LN_key_usage = AnsiString('X509v3 Key Usage'); + NID_key_usage = 83; + + SN_private_key_usage_period = AnsiString('privateKeyUsagePeriod'); + LN_private_key_usage_period = AnsiString('X509v3 Private Key Usage Period'); + NID_private_key_usage_period = 84; + + SN_subject_alt_name = AnsiString('subjectAltName'); + LN_subject_alt_name = AnsiString('X509v3 Subject Alternative Name'); + NID_subject_alt_name = 85; + + SN_issuer_alt_name = AnsiString('issuerAltName'); + LN_issuer_alt_name = AnsiString('X509v3 Issuer Alternative Name'); + NID_issuer_alt_name = 86; + + SN_basic_constraints = AnsiString('basicConstraints'); + LN_basic_constraints = AnsiString('X509v3 Basic Constraints'); + NID_basic_constraints = 87; + + SN_crl_number = AnsiString('crlNumber'); + LN_crl_number = AnsiString('X509v3 CRL Number'); + NID_crl_number = 88; + + SN_crl_reason = AnsiString('CRLReason'); + LN_crl_reason = AnsiString('X509v3 CRL Reason Code'); + NID_crl_reason = 141; + + SN_invalidity_date = AnsiString('invalidityDate'); + LN_invalidity_date = AnsiString('Invalidity Date'); + NID_invalidity_date = 142; + + SN_delta_crl = AnsiString('deltaCRL'); + LN_delta_crl = AnsiString('X509v3 Delta CRL Indicator'); + NID_delta_crl = 140; + + SN_issuing_distribution_point = AnsiString('issuingDistributionPoint'); + LN_issuing_distribution_point = AnsiString('X509v3 Issuing Distribution Point'); + NID_issuing_distribution_point = 770; + + SN_certificate_issuer = AnsiString('certificateIssuer'); + LN_certificate_issuer = AnsiString('X509v3 Certificate Issuer'); + NID_certificate_issuer = 771; + + SN_name_constraints = AnsiString('nameConstraints'); + LN_name_constraints = AnsiString('X509v3 Name Constraints'); + NID_name_constraints = 666; + + SN_crl_distribution_points = AnsiString('crlDistributionPoints'); + LN_crl_distribution_points = AnsiString('X509v3 CRL Distribution Points'); + NID_crl_distribution_points = 103; + + SN_certificate_policies = AnsiString('certificatePolicies'); + LN_certificate_policies = AnsiString('X509v3 Certificate Policies'); + NID_certificate_policies = 89; + + SN_any_policy = AnsiString('anyPolicy'); + LN_any_policy = AnsiString('X509v3 Any Policy'); + NID_any_policy = 746; + + SN_policy_mappings = AnsiString('policyMappings'); + LN_policy_mappings = AnsiString('X509v3 Policy Mappings'); + NID_policy_mappings = 747; + + SN_authority_key_identifier = AnsiString('authorityKeyIdentifier'); + LN_authority_key_identifier = AnsiString('X509v3 Authority Key Identifier'); + NID_authority_key_identifier = 90; + + SN_policy_constraints = AnsiString('policyConstraints'); + LN_policy_constraints = AnsiString('X509v3 Policy Constraints'); + NID_policy_constraints = 401; + + SN_ext_key_usage = AnsiString('extendedKeyUsage'); + LN_ext_key_usage = AnsiString('X509v3 Extended Key Usage'); + NID_ext_key_usage = 126; + + SN_freshest_crl = AnsiString('freshestCRL'); + LN_freshest_crl = AnsiString('X509v3 Freshest CRL'); + NID_freshest_crl = 857; + + SN_inhibit_any_policy = AnsiString('inhibitAnyPolicy'); + LN_inhibit_any_policy = AnsiString('X509v3 Inhibit Any Policy'); + NID_inhibit_any_policy = 748; + + SN_target_information = AnsiString('targetInformation'); + LN_target_information = AnsiString('X509v3 AC Targeting'); + NID_target_information = 402; + + SN_no_rev_avail = AnsiString('noRevAvail'); + LN_no_rev_avail = AnsiString('X509v3 No Revocation Available'); + NID_no_rev_avail = 403; + + SN_anyExtendedKeyUsage = AnsiString('anyExtendedKeyUsage'); + LN_anyExtendedKeyUsage = AnsiString('Any Extended Key Usage'); + NID_anyExtendedKeyUsage = 910; + + SN_netscape = AnsiString('Netscape'); + LN_netscape = AnsiString('Netscape Communications Corp.'); + NID_netscape = 57; + + SN_netscape_cert_extension = AnsiString('nsCertExt'); + LN_netscape_cert_extension = AnsiString('Netscape Certificate Extension'); + NID_netscape_cert_extension = 58; + + SN_netscape_data_type = AnsiString('nsDataType'); + LN_netscape_data_type = AnsiString('Netscape Data Type'); + NID_netscape_data_type = 59; + + SN_netscape_cert_type = AnsiString('nsCertType'); + LN_netscape_cert_type = AnsiString('Netscape Cert Type'); + NID_netscape_cert_type = 71; + + SN_netscape_base_url = AnsiString('nsBaseUrl'); + LN_netscape_base_url = AnsiString('Netscape Base Url'); + NID_netscape_base_url = 72; + + SN_netscape_revocation_url = AnsiString('nsRevocationUrl'); + LN_netscape_revocation_url = AnsiString('Netscape Revocation Url'); + NID_netscape_revocation_url = 73; + + SN_netscape_ca_revocation_url = AnsiString('nsCaRevocationUrl'); + LN_netscape_ca_revocation_url = AnsiString('Netscape CA Revocation Url'); + NID_netscape_ca_revocation_url = 74; + + SN_netscape_renewal_url = AnsiString('nsRenewalUrl'); + LN_netscape_renewal_url = AnsiString('Netscape Renewal Url'); + NID_netscape_renewal_url = 75; + + SN_netscape_ca_policy_url = AnsiString('nsCaPolicyUrl'); + LN_netscape_ca_policy_url = AnsiString('Netscape CA Policy Url'); + NID_netscape_ca_policy_url = 76; + + SN_netscape_ssl_server_name = AnsiString('nsSslServerName'); + LN_netscape_ssl_server_name = AnsiString('Netscape Server: SSl Name'); + NID_netscape_ssl_server_name = 77; + + SN_netscape_comment = AnsiString('nsComment'); + LN_netscape_comment = AnsiString('Netscape Comment'); + NID_netscape_comment = 78; + + SN_netscape_cert_sequence = AnsiString('nsCertSequence'); + LN_netscape_cert_sequence = AnsiString('Netscape Certificate Sequence'); + NID_netscape_cert_sequence = 79; + + SN_ns_sgc = AnsiString('nsSGC'); + LN_ns_sgc = AnsiString('Netscape Server Gated Crypto'); + NID_ns_sgc = 139; + + SN_org = AnsiString('ORG'); + LN_org = AnsiString('org'); + NID_org = 379; + + SN_dod = AnsiString('DOD'); + LN_dod = AnsiString('dod'); + NID_dod = 380; + + SN_iana = AnsiString('IANA'); + LN_iana = AnsiString('iana'); + NID_iana = 381; + + SN_Directory = AnsiString('directory'); + LN_Directory = AnsiString('Directory'); + NID_Directory = 382; + + SN_Management = AnsiString('mgmt'); + LN_Management = AnsiString('Management'); + NID_Management = 383; + + SN_Experimental = AnsiString('experimental'); + LN_Experimental = AnsiString('Experimental'); + NID_Experimental = 384; + + SN_Private = AnsiString('private'); + LN_Private = AnsiString('Private'); + NID_Private = 385; + + SN_Security = AnsiString('security'); + LN_Security = AnsiString('Security'); + NID_Security = 386; + + SN_SNMPv2 = AnsiString('snmpv2'); + LN_SNMPv2 = AnsiString('SNMPv2'); + NID_SNMPv2 = 387; + + LN_Mail = AnsiString('Mail'); + NID_Mail = 388; + + SN_Enterprises = AnsiString('enterprises'); + LN_Enterprises = AnsiString('Enterprises'); + NID_Enterprises = 389; + + SN_dcObject = AnsiString('dcobject'); + LN_dcObject = AnsiString('dcObject'); + NID_dcObject = 390; + + SN_mime_mhs = AnsiString('mime-mhs'); + LN_mime_mhs = AnsiString('MIME MHS'); + NID_mime_mhs = 504; + + SN_mime_mhs_headings = AnsiString('mime-mhs-headings'); + LN_mime_mhs_headings = AnsiString('mime-mhs-headings'); + NID_mime_mhs_headings = 505; + + SN_mime_mhs_bodies = AnsiString('mime-mhs-bodies'); + LN_mime_mhs_bodies = AnsiString('mime-mhs-bodies'); + NID_mime_mhs_bodies = 506; + + SN_id_hex_partial_message = AnsiString('id-hex-partial-message'); + LN_id_hex_partial_message = AnsiString('id-hex-partial-message'); + NID_id_hex_partial_message = 507; + + SN_id_hex_multipart_message = AnsiString('id-hex-multipart-message'); + LN_id_hex_multipart_message = AnsiString('id-hex-multipart-message'); + NID_id_hex_multipart_message = 508; + + SN_zlib_compression = AnsiString('ZLIB'); + LN_zlib_compression = AnsiString('zlib compression'); + NID_zlib_compression = 125; + + SN_aes_128_ecb = AnsiString('AES-128-ECB'); + LN_aes_128_ecb = AnsiString('aes-128-ecb'); + NID_aes_128_ecb = 418; + + SN_aes_128_cbc = AnsiString('AES-128-CBC'); + LN_aes_128_cbc = AnsiString('aes-128-cbc'); + NID_aes_128_cbc = 419; + + SN_aes_128_ofb128 = AnsiString('AES-128-OFB'); + LN_aes_128_ofb128 = AnsiString('aes-128-ofb'); + NID_aes_128_ofb128 = 420; + + SN_aes_128_cfb128 = AnsiString('AES-128-CFB'); + LN_aes_128_cfb128 = AnsiString('aes-128-cfb'); + NID_aes_128_cfb128 = 421; + + SN_id_aes128_wrap = AnsiString('id-aes128-wrap'); + NID_id_aes128_wrap = 788; + + SN_aes_128_gcm = AnsiString('id-aes128-GCM'); + LN_aes_128_gcm = AnsiString('aes-128-gcm'); + NID_aes_128_gcm = 895; + + SN_aes_128_ccm = AnsiString('id-aes128-CCM'); + LN_aes_128_ccm = AnsiString('aes-128-ccm'); + NID_aes_128_ccm = 896; + + SN_id_aes128_wrap_pad = AnsiString('id-aes128-wrap-pad'); + NID_id_aes128_wrap_pad = 897; + + SN_aes_192_ecb = AnsiString('AES-192-ECB'); + LN_aes_192_ecb = AnsiString('aes-192-ecb'); + NID_aes_192_ecb = 422; + + SN_aes_192_cbc = AnsiString('AES-192-CBC'); + LN_aes_192_cbc = AnsiString('aes-192-cbc'); + NID_aes_192_cbc = 423; + + SN_aes_192_ofb128 = AnsiString('AES-192-OFB'); + LN_aes_192_ofb128 = AnsiString('aes-192-ofb'); + NID_aes_192_ofb128 = 424; + + SN_aes_192_cfb128 = AnsiString('AES-192-CFB'); + LN_aes_192_cfb128 = AnsiString('aes-192-cfb'); + NID_aes_192_cfb128 = 425; + + SN_id_aes192_wrap = AnsiString('id-aes192-wrap'); + NID_id_aes192_wrap = 789; + + SN_aes_192_gcm = AnsiString('id-aes192-GCM'); + LN_aes_192_gcm = AnsiString('aes-192-gcm'); + NID_aes_192_gcm = 898; + + SN_aes_192_ccm = AnsiString('id-aes192-CCM'); + LN_aes_192_ccm = AnsiString('aes-192-ccm'); + NID_aes_192_ccm = 899; + + SN_id_aes192_wrap_pad = AnsiString('id-aes192-wrap-pad'); + NID_id_aes192_wrap_pad = 900; + + SN_aes_256_ecb = AnsiString('AES-256-ECB'); + LN_aes_256_ecb = AnsiString('aes-256-ecb'); + NID_aes_256_ecb = 426; + + SN_aes_256_cbc = AnsiString('AES-256-CBC'); + LN_aes_256_cbc = AnsiString('aes-256-cbc'); + NID_aes_256_cbc = 427; + + SN_aes_256_ofb128 = AnsiString('AES-256-OFB'); + LN_aes_256_ofb128 = AnsiString('aes-256-ofb'); + NID_aes_256_ofb128 = 428; + + SN_aes_256_cfb128 = AnsiString('AES-256-CFB'); + LN_aes_256_cfb128 = AnsiString('aes-256-cfb'); + NID_aes_256_cfb128 = 429; + + SN_id_aes256_wrap = AnsiString('id-aes256-wrap'); + NID_id_aes256_wrap = 790; + + SN_aes_256_gcm = AnsiString('id-aes256-GCM'); + LN_aes_256_gcm = AnsiString('aes-256-gcm'); + NID_aes_256_gcm = 901; + + SN_aes_256_ccm = AnsiString('id-aes256-CCM'); + LN_aes_256_ccm = AnsiString('aes-256-ccm'); + NID_aes_256_ccm = 902; + + SN_id_aes256_wrap_pad = AnsiString('id-aes256-wrap-pad'); + NID_id_aes256_wrap_pad = 903; + + SN_aes_128_xts = AnsiString('AES-128-XTS'); + LN_aes_128_xts = AnsiString('aes-128-xts'); + NID_aes_128_xts = 913; + + SN_aes_256_xts = AnsiString('AES-256-XTS'); + LN_aes_256_xts = AnsiString('aes-256-xts'); + NID_aes_256_xts = 914; + + SN_aes_128_cfb1 = AnsiString('AES-128-CFB1'); + LN_aes_128_cfb1 = AnsiString('aes-128-cfb1'); + NID_aes_128_cfb1 = 650; + + SN_aes_192_cfb1 = AnsiString('AES-192-CFB1'); + LN_aes_192_cfb1 = AnsiString('aes-192-cfb1'); + NID_aes_192_cfb1 = 651; + + SN_aes_256_cfb1 = AnsiString('AES-256-CFB1'); + LN_aes_256_cfb1 = AnsiString('aes-256-cfb1'); + NID_aes_256_cfb1 = 652; + + SN_aes_128_cfb8 = AnsiString('AES-128-CFB8'); + LN_aes_128_cfb8 = AnsiString('aes-128-cfb8'); + NID_aes_128_cfb8 = 653; + + SN_aes_192_cfb8 = AnsiString('AES-192-CFB8'); + LN_aes_192_cfb8 = AnsiString('aes-192-cfb8'); + NID_aes_192_cfb8 = 654; + + SN_aes_256_cfb8 = AnsiString('AES-256-CFB8'); + LN_aes_256_cfb8 = AnsiString('aes-256-cfb8'); + NID_aes_256_cfb8 = 655; + + SN_aes_128_ctr = AnsiString('AES-128-CTR'); + LN_aes_128_ctr = AnsiString('aes-128-ctr'); + NID_aes_128_ctr = 904; + + SN_aes_192_ctr = AnsiString('AES-192-CTR'); + LN_aes_192_ctr = AnsiString('aes-192-ctr'); + NID_aes_192_ctr = 905; + + SN_aes_256_ctr = AnsiString('AES-256-CTR'); + LN_aes_256_ctr = AnsiString('aes-256-ctr'); + NID_aes_256_ctr = 906; + + SN_aes_128_ocb = AnsiString('AES-128-OCB'); + LN_aes_128_ocb = AnsiString('aes-128-ocb'); + NID_aes_128_ocb = 958; + + SN_aes_192_ocb = AnsiString('AES-192-OCB'); + LN_aes_192_ocb = AnsiString('aes-192-ocb'); + NID_aes_192_ocb = 959; + + SN_aes_256_ocb = AnsiString('AES-256-OCB'); + LN_aes_256_ocb = AnsiString('aes-256-ocb'); + NID_aes_256_ocb = 960; + + SN_des_cfb1 = AnsiString('DES-CFB1'); + LN_des_cfb1 = AnsiString('des-cfb1'); + NID_des_cfb1 = 656; + + SN_des_cfb8 = AnsiString('DES-CFB8'); + LN_des_cfb8 = AnsiString('des-cfb8'); + NID_des_cfb8 = 657; + + SN_des_ede3_cfb1 = AnsiString('DES-EDE3-CFB1'); + LN_des_ede3_cfb1 = AnsiString('des-ede3-cfb1'); + NID_des_ede3_cfb1 = 658; + + SN_des_ede3_cfb8 = AnsiString('DES-EDE3-CFB8'); + LN_des_ede3_cfb8 = AnsiString('des-ede3-cfb8'); + NID_des_ede3_cfb8 = 659; + + SN_sha256 = AnsiString('SHA256'); + LN_sha256 = AnsiString('sha256'); + NID_sha256 = 672; + + SN_sha384 = AnsiString('SHA384'); + LN_sha384 = AnsiString('sha384'); + NID_sha384 = 673; + + SN_sha512 = AnsiString('SHA512'); + LN_sha512 = AnsiString('sha512'); + NID_sha512 = 674; + + SN_sha224 = AnsiString('SHA224'); + LN_sha224 = AnsiString('sha224'); + NID_sha224 = 675; + + SN_sha512_224 = AnsiString('SHA512-224'); + LN_sha512_224 = AnsiString('sha512-224'); + NID_sha512_224 = 1094; + + SN_sha512_256 = AnsiString('SHA512-256'); + LN_sha512_256 = AnsiString('sha512-256'); + NID_sha512_256 = 1095; + + SN_sha3_224 = AnsiString('SHA3-224'); + LN_sha3_224 = AnsiString('sha3-224'); + NID_sha3_224 = 1096; + + SN_sha3_256 = AnsiString('SHA3-256'); + LN_sha3_256 = AnsiString('sha3-256'); + NID_sha3_256 = 1097; + + SN_sha3_384 = AnsiString('SHA3-384'); + LN_sha3_384 = AnsiString('sha3-384'); + NID_sha3_384 = 1098; + + SN_sha3_512 = AnsiString('SHA3-512'); + LN_sha3_512 = AnsiString('sha3-512'); + NID_sha3_512 = 1099; + + SN_shake128 = AnsiString('SHAKE128'); + LN_shake128 = AnsiString('shake128'); + NID_shake128 = 1100; + + SN_shake256 = AnsiString('SHAKE256'); + LN_shake256 = AnsiString('shake256'); + NID_shake256 = 1101; + + SN_hmac_sha3_224 = AnsiString('id-hmacWithSHA3-224'); + LN_hmac_sha3_224 = AnsiString('hmac-sha3-224'); + NID_hmac_sha3_224 = 1102; + + SN_hmac_sha3_256 = AnsiString('id-hmacWithSHA3-256'); + LN_hmac_sha3_256 = AnsiString('hmac-sha3-256'); + NID_hmac_sha3_256 = 1103; + + SN_hmac_sha3_384 = AnsiString('id-hmacWithSHA3-384'); + LN_hmac_sha3_384 = AnsiString('hmac-sha3-384'); + NID_hmac_sha3_384 = 1104; + + SN_hmac_sha3_512 = AnsiString('id-hmacWithSHA3-512'); + LN_hmac_sha3_512 = AnsiString('hmac-sha3-512'); + NID_hmac_sha3_512 = 1105; + + SN_dsa_with_SHA224 = AnsiString('dsa_with_SHA224'); + NID_dsa_with_SHA224 = 802; + + SN_dsa_with_SHA256 = AnsiString('dsa_with_SHA256'); + NID_dsa_with_SHA256 = 803; + + SN_dsa_with_SHA384 = AnsiString('id-dsa-with-sha384'); + LN_dsa_with_SHA384 = AnsiString('dsa_with_SHA384'); + NID_dsa_with_SHA384 = 1106; + + SN_dsa_with_SHA512 = AnsiString('id-dsa-with-sha512'); + LN_dsa_with_SHA512 = AnsiString('dsa_with_SHA512'); + NID_dsa_with_SHA512 = 1107; + + SN_dsa_with_SHA3_224 = AnsiString('id-dsa-with-sha3-224'); + LN_dsa_with_SHA3_224 = AnsiString('dsa_with_SHA3-224'); + NID_dsa_with_SHA3_224 = 1108; + + SN_dsa_with_SHA3_256 = AnsiString('id-dsa-with-sha3-256'); + LN_dsa_with_SHA3_256 = AnsiString('dsa_with_SHA3-256'); + NID_dsa_with_SHA3_256 = 1109; + + SN_dsa_with_SHA3_384 = AnsiString('id-dsa-with-sha3-384'); + LN_dsa_with_SHA3_384 = AnsiString('dsa_with_SHA3-384'); + NID_dsa_with_SHA3_384 = 1110; + + SN_dsa_with_SHA3_512 = AnsiString('id-dsa-with-sha3-512'); + LN_dsa_with_SHA3_512 = AnsiString('dsa_with_SHA3-512'); + NID_dsa_with_SHA3_512 = 1111; + + SN_ecdsa_with_SHA3_224 = AnsiString('id-ecdsa-with-sha3-224'); + LN_ecdsa_with_SHA3_224 = AnsiString('ecdsa_with_SHA3-224'); + NID_ecdsa_with_SHA3_224 = 1112; + + SN_ecdsa_with_SHA3_256 = AnsiString('id-ecdsa-with-sha3-256'); + LN_ecdsa_with_SHA3_256 = AnsiString('ecdsa_with_SHA3-256'); + NID_ecdsa_with_SHA3_256 = 1113; + + SN_ecdsa_with_SHA3_384 = AnsiString('id-ecdsa-with-sha3-384'); + LN_ecdsa_with_SHA3_384 = AnsiString('ecdsa_with_SHA3-384'); + NID_ecdsa_with_SHA3_384 = 1114; + + SN_ecdsa_with_SHA3_512 = AnsiString('id-ecdsa-with-sha3-512'); + LN_ecdsa_with_SHA3_512 = AnsiString('ecdsa_with_SHA3-512'); + NID_ecdsa_with_SHA3_512 = 1115; + + SN_RSA_SHA3_224 = AnsiString('id-rsassa-pkcs1-v1_5-with-sha3-224'); + LN_RSA_SHA3_224 = AnsiString('RSA-SHA3-224'); + NID_RSA_SHA3_224 = 1116; + + SN_RSA_SHA3_256 = AnsiString('id-rsassa-pkcs1-v1_5-with-sha3-256'); + LN_RSA_SHA3_256 = AnsiString('RSA-SHA3-256'); + NID_RSA_SHA3_256 = 1117; + + SN_RSA_SHA3_384 = AnsiString('id-rsassa-pkcs1-v1_5-with-sha3-384'); + LN_RSA_SHA3_384 = AnsiString('RSA-SHA3-384'); + NID_RSA_SHA3_384 = 1118; + + SN_RSA_SHA3_512 = AnsiString('id-rsassa-pkcs1-v1_5-with-sha3-512'); + LN_RSA_SHA3_512 = AnsiString('RSA-SHA3-512'); + NID_RSA_SHA3_512 = 1119; + + SN_hold_instruction_code = AnsiString('holdInstructionCode'); + LN_hold_instruction_code = AnsiString('Hold Instruction Code'); + NID_hold_instruction_code = 430; + + SN_hold_instruction_none = AnsiString('holdInstructionNone'); + LN_hold_instruction_none = AnsiString('Hold Instruction None'); + NID_hold_instruction_none = 431; + + SN_hold_instruction_call_issuer = AnsiString('holdInstructionCallIssuer'); + LN_hold_instruction_call_issuer = AnsiString('Hold Instruction Call Issuer'); + NID_hold_instruction_call_issuer = 432; + + SN_hold_instruction_reject = AnsiString('holdInstructionReject'); + LN_hold_instruction_reject = AnsiString('Hold Instruction Reject'); + NID_hold_instruction_reject = 433; + + SN_data = AnsiString('data'); + NID_data = 434; + + SN_pss = AnsiString('pss'); + NID_pss = 435; + + SN_ucl = AnsiString('ucl'); + NID_ucl = 436; + + SN_pilot = AnsiString('pilot'); + NID_pilot = 437; + + LN_pilotAttributeType = AnsiString('pilotAttributeType'); + NID_pilotAttributeType = 438; + + LN_pilotAttributeSyntax = AnsiString('pilotAttributeSyntax'); + NID_pilotAttributeSyntax = 439; + + LN_pilotObjectClass = AnsiString('pilotObjectClass'); + NID_pilotObjectClass = 440; + + LN_pilotGroups = AnsiString('pilotGroups'); + NID_pilotGroups = 441; + + LN_iA5StringSyntax = AnsiString('iA5StringSyntax'); + NID_iA5StringSyntax = 442; + + LN_caseIgnoreIA5StringSyntax = AnsiString('caseIgnoreIA5StringSyntax'); + NID_caseIgnoreIA5StringSyntax = 443; + + LN_pilotObject = AnsiString('pilotObject'); + NID_pilotObject = 444; + + LN_pilotPerson = AnsiString('pilotPerson'); + NID_pilotPerson = 445; + + SN_account = AnsiString('account'); + NID_account = 446; + + SN_document = AnsiString('document'); + NID_document = 447; + + SN_room = AnsiString('room'); + NID_room = 448; + + LN_documentSeries = AnsiString('documentSeries'); + NID_documentSeries = 449; + + SN_Domain = AnsiString('domain'); + LN_Domain = AnsiString('Domain'); + NID_Domain = 392; + + LN_rFC822localPart = AnsiString('rFC822localPart'); + NID_rFC822localPart = 450; + + LN_dNSDomain = AnsiString('dNSDomain'); + NID_dNSDomain = 451; + + LN_domainRelatedObject = AnsiString('domainRelatedObject'); + NID_domainRelatedObject = 452; + + LN_friendlyCountry = AnsiString('friendlyCountry'); + NID_friendlyCountry = 453; + + LN_simpleSecurityObject = AnsiString('simpleSecurityObject'); + NID_simpleSecurityObject = 454; + + LN_pilotOrganization = AnsiString('pilotOrganization'); + NID_pilotOrganization = 455; + + LN_pilotDSA = AnsiString('pilotDSA'); + NID_pilotDSA = 456; + + LN_qualityLabelledData = AnsiString('qualityLabelledData'); + NID_qualityLabelledData = 457; + + SN_userId = AnsiString('UID'); + LN_userId = AnsiString('userId'); + NID_userId = 458; + + LN_textEncodedORAddress = AnsiString('textEncodedORAddress'); + NID_textEncodedORAddress = 459; + + SN_rfc822Mailbox = AnsiString('mail'); + LN_rfc822Mailbox = AnsiString('rfc822Mailbox'); + NID_rfc822Mailbox = 460; + + SN_info = AnsiString('info'); + NID_info = 461; + + LN_favouriteDrink = AnsiString('favouriteDrink'); + NID_favouriteDrink = 462; + + LN_roomNumber = AnsiString('roomNumber'); + NID_roomNumber = 463; + + SN_photo = AnsiString('photo'); + NID_photo = 464; + + LN_userClass = AnsiString('userClass'); + NID_userClass = 465; + + SN_host = AnsiString('host'); + NID_host = 466; + + SN_manager = AnsiString('manager'); + NID_manager = 467; + + LN_documentIdentifier = AnsiString('documentIdentifier'); + NID_documentIdentifier = 468; + + LN_documentTitle = AnsiString('documentTitle'); + NID_documentTitle = 469; + + LN_documentVersion = AnsiString('documentVersion'); + NID_documentVersion = 470; + + LN_documentAuthor = AnsiString('documentAuthor'); + NID_documentAuthor = 471; + + LN_documentLocation = AnsiString('documentLocation'); + NID_documentLocation = 472; + + LN_homeTelephoneNumber = AnsiString('homeTelephoneNumber'); + NID_homeTelephoneNumber = 473; + + SN_secretary = AnsiString('secretary'); + NID_secretary = 474; + + LN_otherMailbox = AnsiString('otherMailbox'); + NID_otherMailbox = 475; + + LN_lastModifiedTime = AnsiString('lastModifiedTime'); + NID_lastModifiedTime = 476; + + LN_lastModifiedBy = AnsiString('lastModifiedBy'); + NID_lastModifiedBy = 477; + + SN_domainComponent = AnsiString('DC'); + LN_domainComponent = AnsiString('domainComponent'); + NID_domainComponent = 391; + + LN_aRecord = AnsiString('aRecord'); + NID_aRecord = 478; + + LN_pilotAttributeType27 = AnsiString('pilotAttributeType27'); + NID_pilotAttributeType27 = 479; + + LN_mXRecord = AnsiString('mXRecord'); + NID_mXRecord = 480; + + LN_nSRecord = AnsiString('nSRecord'); + NID_nSRecord = 481; + + LN_sOARecord = AnsiString('sOARecord'); + NID_sOARecord = 482; + + LN_cNAMERecord = AnsiString('cNAMERecord'); + NID_cNAMERecord = 483; + + LN_associatedDomain = AnsiString('associatedDomain'); + NID_associatedDomain = 484; + + LN_associatedName = AnsiString('associatedName'); + NID_associatedName = 485; + + LN_homePostalAddress = AnsiString('homePostalAddress'); + NID_homePostalAddress = 486; + + LN_personalTitle = AnsiString('personalTitle'); + NID_personalTitle = 487; + + LN_mobileTelephoneNumber = AnsiString('mobileTelephoneNumber'); + NID_mobileTelephoneNumber = 488; + + LN_pagerTelephoneNumber = AnsiString('pagerTelephoneNumber'); + NID_pagerTelephoneNumber = 489; + + LN_friendlyCountryName = AnsiString('friendlyCountryName'); + NID_friendlyCountryName = 490; + + SN_uniqueIdentifier = AnsiString('uid'); + LN_uniqueIdentifier = AnsiString('uniqueIdentifier'); + NID_uniqueIdentifier = 102; + + LN_organizationalStatus = AnsiString('organizationalStatus'); + NID_organizationalStatus = 491; + + LN_janetMailbox = AnsiString('janetMailbox'); + NID_janetMailbox = 492; + LN_mailPreferenceOption = AnsiString('mailPreferenceOption'); + NID_mailPreferenceOption = 493; + + LN_buildingName = AnsiString('buildingName'); + NID_buildingName = 494; + + LN_dSAQuality = AnsiString('dSAQuality'); + NID_dSAQuality = 495; + + LN_singleLevelQuality = AnsiString('singleLevelQuality'); + NID_singleLevelQuality = 496; + + LN_subtreeMinimumQuality = AnsiString('subtreeMinimumQuality'); + NID_subtreeMinimumQuality = 497; + + LN_subtreeMaximumQuality = AnsiString('subtreeMaximumQuality'); + NID_subtreeMaximumQuality = 498; + + LN_personalSignature = AnsiString('personalSignature'); + NID_personalSignature = 499; + + LN_dITRedirect = AnsiString('dITRedirect'); + NID_dITRedirect = 500; + + SN_audio = AnsiString('audio'); + NID_audio = 501; + + LN_documentPublisher = AnsiString('documentPublisher'); + NID_documentPublisher = 502; + + SN_id_set = AnsiString('id-set'); + LN_id_set = AnsiString('Secure Electronic Transactions'); + NID_id_set = 512; + + SN_set_ctype = AnsiString('set-ctype'); + LN_set_ctype = AnsiString('content types'); + NID_set_ctype = 513; + + SN_set_msgExt = AnsiString('set-msgExt'); + LN_set_msgExt = AnsiString('message extensions'); + NID_set_msgExt = 514; + + SN_set_attr = AnsiString('set-attr'); + NID_set_attr = 515; + + SN_set_policy = AnsiString('set-policy'); + NID_set_policy = 516; + + SN_set_certExt = AnsiString('set-certExt'); + LN_set_certExt = AnsiString('certificate extensions'); + NID_set_certExt = 517; + + SN_set_brand = AnsiString('set-brand'); + NID_set_brand = 518; + + SN_setct_PANData = AnsiString('setct-PANData'); + NID_setct_PANData = 519; + + SN_setct_PANToken = AnsiString('setct-PANToken'); + NID_setct_PANToken = 520; + + SN_setct_PANOnly = AnsiString('setct-PANOnly'); + NID_setct_PANOnly = 521; + + SN_setct_OIData = AnsiString('setct-OIData'); + NID_setct_OIData = 522; + + SN_setct_PI = AnsiString('setct-PI'); + NID_setct_PI = 523; + + SN_setct_PIData = AnsiString('setct-PIData'); + NID_setct_PIData = 524; + + SN_setct_PIDataUnsigned = AnsiString('setct-PIDataUnsigned'); + NID_setct_PIDataUnsigned = 525; + + SN_setct_HODInput = AnsiString('setct-HODInput'); + NID_setct_HODInput = 526; + + SN_setct_AuthResBaggage = AnsiString('setct-AuthResBaggage'); + NID_setct_AuthResBaggage = 527; + + SN_setct_AuthRevReqBaggage = AnsiString('setct-AuthRevReqBaggage'); + NID_setct_AuthRevReqBaggage = 528; + + SN_setct_AuthRevResBaggage = AnsiString('setct-AuthRevResBaggage'); + NID_setct_AuthRevResBaggage = 529; + + SN_setct_CapTokenSeq = AnsiString('setct-CapTokenSeq'); + NID_setct_CapTokenSeq = 530; + + SN_setct_PInitResData = AnsiString('setct-PInitResData'); + NID_setct_PInitResData = 531; + + SN_setct_PI_TBS = AnsiString('setct-PI-TBS'); + NID_setct_PI_TBS = 532; + + SN_setct_PResData = AnsiString('setct-PResData'); + NID_setct_PResData = 533; + + SN_setct_AuthReqTBS = AnsiString('setct-AuthReqTBS'); + NID_setct_AuthReqTBS = 534; + + SN_setct_AuthResTBS = AnsiString('setct-AuthResTBS'); + NID_setct_AuthResTBS = 535; + + SN_setct_AuthResTBSX = AnsiString('setct-AuthResTBSX'); + NID_setct_AuthResTBSX = 536; + + SN_setct_AuthTokenTBS = AnsiString('setct-AuthTokenTBS'); + NID_setct_AuthTokenTBS = 537; + + SN_setct_CapTokenData = AnsiString('setct-CapTokenData'); + NID_setct_CapTokenData = 538; + + SN_setct_CapTokenTBS = AnsiString('setct-CapTokenTBS'); + NID_setct_CapTokenTBS = 539; + + SN_setct_AcqCardCodeMsg = AnsiString('setct-AcqCardCodeMsg'); + NID_setct_AcqCardCodeMsg = 540; + + SN_setct_AuthRevReqTBS = AnsiString('setct-AuthRevReqTBS'); + NID_setct_AuthRevReqTBS = 541; + + SN_setct_AuthRevResData = AnsiString('setct-AuthRevResData'); + NID_setct_AuthRevResData = 542; + + SN_setct_AuthRevResTBS = AnsiString('setct-AuthRevResTBS'); + NID_setct_AuthRevResTBS = 543; + + SN_setct_CapReqTBS = AnsiString('setct-CapReqTBS'); + NID_setct_CapReqTBS = 544; + + SN_setct_CapReqTBSX = AnsiString('setct-CapReqTBSX'); + NID_setct_CapReqTBSX = 545; + + SN_setct_CapResData = AnsiString('setct-CapResData'); + NID_setct_CapResData = 546; + + SN_setct_CapRevReqTBS = AnsiString('setct-CapRevReqTBS'); + NID_setct_CapRevReqTBS = 547; + + SN_setct_CapRevReqTBSX = AnsiString('setct-CapRevReqTBSX'); + NID_setct_CapRevReqTBSX = 548; + + SN_setct_CapRevResData = AnsiString('setct-CapRevResData'); + NID_setct_CapRevResData = 549; + + SN_setct_CredReqTBS = AnsiString('setct-CredReqTBS'); + NID_setct_CredReqTBS = 550; + + SN_setct_CredReqTBSX = AnsiString('setct-CredReqTBSX'); + NID_setct_CredReqTBSX = 551; + + SN_setct_CredResData = AnsiString('setct-CredResData'); + NID_setct_CredResData = 552; + + SN_setct_CredRevReqTBS = AnsiString('setct-CredRevReqTBS'); + NID_setct_CredRevReqTBS = 553; + + SN_setct_CredRevReqTBSX = AnsiString('setct-CredRevReqTBSX'); + NID_setct_CredRevReqTBSX = 554; + + SN_setct_CredRevResData = AnsiString('setct-CredRevResData'); + NID_setct_CredRevResData = 555; + + SN_setct_PCertReqData = AnsiString('setct-PCertReqData'); + NID_setct_PCertReqData = 556; + + SN_setct_PCertResTBS = AnsiString('setct-PCertResTBS'); + NID_setct_PCertResTBS = 557; + + SN_setct_BatchAdminReqData = AnsiString('setct-BatchAdminReqData'); + NID_setct_BatchAdminReqData = 558; + + SN_setct_BatchAdminResData = AnsiString('setct-BatchAdminResData'); + NID_setct_BatchAdminResData = 559; + + SN_setct_CardCInitResTBS = AnsiString('setct-CardCInitResTBS'); + NID_setct_CardCInitResTBS = 560; + + SN_setct_MeAqCInitResTBS = AnsiString('setct-MeAqCInitResTBS'); + NID_setct_MeAqCInitResTBS = 561; + + SN_setct_RegFormResTBS = AnsiString('setct-RegFormResTBS'); + NID_setct_RegFormResTBS = 562; + + SN_setct_CertReqData = AnsiString('setct-CertReqData'); + NID_setct_CertReqData = 563; + + SN_setct_CertReqTBS = AnsiString('setct-CertReqTBS'); + NID_setct_CertReqTBS = 564; + + SN_setct_CertResData = AnsiString('setct-CertResData'); + NID_setct_CertResData = 565; + + SN_setct_CertInqReqTBS = AnsiString('setct-CertInqReqTBS'); + NID_setct_CertInqReqTBS = 566; + + SN_setct_ErrorTBS = AnsiString('setct-ErrorTBS'); + NID_setct_ErrorTBS = 567; + + SN_setct_PIDualSignedTBE = AnsiString('setct-PIDualSignedTBE'); + NID_setct_PIDualSignedTBE = 568; + + SN_setct_PIUnsignedTBE = AnsiString('setct-PIUnsignedTBE'); + NID_setct_PIUnsignedTBE = 569; + + SN_setct_AuthReqTBE = AnsiString('setct-AuthReqTBE'); + NID_setct_AuthReqTBE = 570; + + SN_setct_AuthResTBE = AnsiString('setct-AuthResTBE'); + NID_setct_AuthResTBE = 571; + + SN_setct_AuthResTBEX = AnsiString('setct-AuthResTBEX'); + NID_setct_AuthResTBEX = 572; + + SN_setct_AuthTokenTBE = AnsiString('setct-AuthTokenTBE'); + NID_setct_AuthTokenTBE = 573; + + SN_setct_CapTokenTBE = AnsiString('setct-CapTokenTBE'); + NID_setct_CapTokenTBE = 574; + + SN_setct_CapTokenTBEX = AnsiString('setct-CapTokenTBEX'); + NID_setct_CapTokenTBEX = 575; + + SN_setct_AcqCardCodeMsgTBE = AnsiString('setct-AcqCardCodeMsgTBE'); + NID_setct_AcqCardCodeMsgTBE = 576; + + SN_setct_AuthRevReqTBE = AnsiString('setct-AuthRevReqTBE'); + NID_setct_AuthRevReqTBE = 577; + + SN_setct_AuthRevResTBE = AnsiString('setct-AuthRevResTBE'); + NID_setct_AuthRevResTBE = 578; + + SN_setct_AuthRevResTBEB = AnsiString('setct-AuthRevResTBEB'); + NID_setct_AuthRevResTBEB = 579; + + SN_setct_CapReqTBE = AnsiString('setct-CapReqTBE'); + NID_setct_CapReqTBE = 580; + + SN_setct_CapReqTBEX = AnsiString('setct-CapReqTBEX'); + NID_setct_CapReqTBEX = 581; + + SN_setct_CapResTBE = AnsiString('setct-CapResTBE'); + NID_setct_CapResTBE = 582; + + SN_setct_CapRevReqTBE = AnsiString('setct-CapRevReqTBE'); + NID_setct_CapRevReqTBE = 583; + + SN_setct_CapRevReqTBEX = AnsiString('setct-CapRevReqTBEX'); + NID_setct_CapRevReqTBEX = 584; + + SN_setct_CapRevResTBE = AnsiString('setct-CapRevResTBE'); + NID_setct_CapRevResTBE = 585; + + SN_setct_CredReqTBE = AnsiString('setct-CredReqTBE'); + NID_setct_CredReqTBE = 586; + + SN_setct_CredReqTBEX = AnsiString('setct-CredReqTBEX'); + NID_setct_CredReqTBEX = 587; + + SN_setct_CredResTBE = AnsiString('setct-CredResTBE'); + NID_setct_CredResTBE = 588; + + SN_setct_CredRevReqTBE = AnsiString('setct-CredRevReqTBE'); + NID_setct_CredRevReqTBE = 589; + + SN_setct_CredRevReqTBEX = AnsiString('setct-CredRevReqTBEX'); + NID_setct_CredRevReqTBEX = 590; + + SN_setct_CredRevResTBE = AnsiString('setct-CredRevResTBE'); + NID_setct_CredRevResTBE = 591; + + SN_setct_BatchAdminReqTBE = AnsiString('setct-BatchAdminReqTBE'); + NID_setct_BatchAdminReqTBE = 592; + + SN_setct_BatchAdminResTBE = AnsiString('setct-BatchAdminResTBE'); + NID_setct_BatchAdminResTBE = 593; + + SN_setct_RegFormReqTBE = AnsiString('setct-RegFormReqTBE'); + NID_setct_RegFormReqTBE = 594; + + SN_setct_CertReqTBE = AnsiString('setct-CertReqTBE'); + NID_setct_CertReqTBE = 595; + + SN_setct_CertReqTBEX = AnsiString('setct-CertReqTBEX'); + NID_setct_CertReqTBEX = 596; + + SN_setct_CertResTBE = AnsiString('setct-CertResTBE'); + NID_setct_CertResTBE = 597; + + SN_setct_CRLNotificationTBS = AnsiString('setct-CRLNotificationTBS'); + NID_setct_CRLNotificationTBS = 598; + + SN_setct_CRLNotificationResTBS = AnsiString('setct-CRLNotificationResTBS'); + NID_setct_CRLNotificationResTBS = 599; + + SN_setct_BCIDistributionTBS = AnsiString('setct-BCIDistributionTBS'); + NID_setct_BCIDistributionTBS = 600; + + SN_setext_genCrypt = AnsiString('setext-genCrypt'); + LN_setext_genCrypt = AnsiString('generic cryptogram'); + NID_setext_genCrypt = 601; + + SN_setext_miAuth = AnsiString('setext-miAuth'); + LN_setext_miAuth = AnsiString('merchant initiated auth'); + NID_setext_miAuth = 602; + + SN_setext_pinSecure = AnsiString('setext-pinSecure'); + NID_setext_pinSecure = 603; + + SN_setext_pinAny = AnsiString('setext-pinAny'); + NID_setext_pinAny = 604; + + SN_setext_track2 = AnsiString('setext-track2'); + NID_setext_track2 = 605; + + SN_setext_cv = AnsiString('setext-cv'); + LN_setext_cv = AnsiString('additional verification'); + NID_setext_cv = 606; + + SN_set_policy_root = AnsiString('set-policy-root'); + NID_set_policy_root = 607; + + SN_setCext_hashedRoot = AnsiString('setCext-hashedRoot'); + NID_setCext_hashedRoot = 608; + + SN_setCext_certType = AnsiString('setCext-certType'); + NID_setCext_certType = 609; + + SN_setCext_merchData = AnsiString('setCext-merchData'); + NID_setCext_merchData = 610; + + SN_setCext_cCertRequired = AnsiString('setCext-cCertRequired'); + NID_setCext_cCertRequired = 611; + + SN_setCext_tunneling = AnsiString('setCext-tunneling'); + NID_setCext_tunneling = 612; + + SN_setCext_setExt = AnsiString('setCext-setExt'); + NID_setCext_setExt = 613; + + SN_setCext_setQualf = AnsiString('setCext-setQualf'); + NID_setCext_setQualf = 614; + + SN_setCext_PGWYcapabilities = AnsiString('setCext-PGWYcapabilities'); + NID_setCext_PGWYcapabilities = 615; + + SN_setCext_TokenIdentifier = AnsiString('setCext-TokenIdentifier'); + NID_setCext_TokenIdentifier = 616; + + SN_setCext_Track2Data = AnsiString('setCext-Track2Data'); + NID_setCext_Track2Data = 617; + + SN_setCext_TokenType = AnsiString('setCext-TokenType'); + NID_setCext_TokenType = 618; + + SN_setCext_IssuerCapabilities = AnsiString('setCext-IssuerCapabilities'); + NID_setCext_IssuerCapabilities = 619; + + SN_setAttr_Cert = AnsiString('setAttr-Cert'); + NID_setAttr_Cert = 620; + + SN_setAttr_PGWYcap = AnsiString('setAttr-PGWYcap'); + LN_setAttr_PGWYcap = AnsiString('payment gateway capabilities'); + NID_setAttr_PGWYcap = 621; + + SN_setAttr_TokenType = AnsiString('setAttr-TokenType'); + NID_setAttr_TokenType = 622; + + SN_setAttr_IssCap = AnsiString('setAttr-IssCap'); + LN_setAttr_IssCap = AnsiString('issuer capabilities'); + NID_setAttr_IssCap = 623; + + SN_set_rootKeyThumb = AnsiString('set-rootKeyThumb'); + NID_set_rootKeyThumb = 624; + + SN_set_addPolicy = AnsiString('set-addPolicy'); + NID_set_addPolicy = 625; + + SN_setAttr_Token_EMV = AnsiString('setAttr-Token-EMV'); + NID_setAttr_Token_EMV = 626; + + SN_setAttr_Token_B0Prime = AnsiString('setAttr-Token-B0Prime'); + NID_setAttr_Token_B0Prime = 627; + + SN_setAttr_IssCap_CVM = AnsiString('setAttr-IssCap-CVM'); + NID_setAttr_IssCap_CVM = 628; + + SN_setAttr_IssCap_T2 = AnsiString('setAttr-IssCap-T2'); + NID_setAttr_IssCap_T2 = 629; + + SN_setAttr_IssCap_Sig = AnsiString('setAttr-IssCap-Sig'); + NID_setAttr_IssCap_Sig = 630; + + SN_setAttr_GenCryptgrm = AnsiString('setAttr-GenCryptgrm'); + LN_setAttr_GenCryptgrm = AnsiString('generate cryptogram'); + NID_setAttr_GenCryptgrm = 631; + + SN_setAttr_T2Enc = AnsiString('setAttr-T2Enc'); + LN_setAttr_T2Enc = AnsiString('encrypted track 2'); + NID_setAttr_T2Enc = 632; + + SN_setAttr_T2cleartxt = AnsiString('setAttr-T2cleartxt'); + LN_setAttr_T2cleartxt = AnsiString('cleartext track 2'); + NID_setAttr_T2cleartxt = 633; + + SN_setAttr_TokICCsig = AnsiString('setAttr-TokICCsig'); + LN_setAttr_TokICCsig = AnsiString('ICC or token signature'); + NID_setAttr_TokICCsig = 634; + + SN_setAttr_SecDevSig = AnsiString('setAttr-SecDevSig'); + LN_setAttr_SecDevSig = AnsiString('secure device signature'); + NID_setAttr_SecDevSig = 635; + + SN_set_brand_IATA_ATA = AnsiString('set-brand-IATA-ATA'); + NID_set_brand_IATA_ATA = 636; + + SN_set_brand_Diners = AnsiString('set-brand-Diners'); + NID_set_brand_Diners = 637; + + SN_set_brand_AmericanExpress = AnsiString('set-brand-AmericanExpress'); + NID_set_brand_AmericanExpress = 638; + + SN_set_brand_JCB = AnsiString('set-brand-JCB'); + NID_set_brand_JCB = 639; + + SN_set_brand_Visa = AnsiString('set-brand-Visa'); + NID_set_brand_Visa = 640; + + SN_set_brand_MasterCard = AnsiString('set-brand-MasterCard'); + NID_set_brand_MasterCard = 641; + + SN_set_brand_Novus = AnsiString('set-brand-Novus'); + NID_set_brand_Novus = 642; + + SN_des_cdmf = AnsiString('DES-CDMF'); + LN_des_cdmf = AnsiString('des-cdmf'); + NID_des_cdmf = 643; + + SN_rsaOAEPEncryptionSET = AnsiString('rsaOAEPEncryptionSET'); + NID_rsaOAEPEncryptionSET = 644; + + SN_ipsec3 = AnsiString('Oakley-EC2N-3'); + LN_ipsec3 = AnsiString('ipsec3'); + NID_ipsec3 = 749; + + SN_ipsec4 = AnsiString('Oakley-EC2N-4'); + LN_ipsec4 = AnsiString('ipsec4'); + NID_ipsec4 = 750; + + SN_whirlpool = AnsiString('whirlpool'); + NID_whirlpool = 804; + + SN_cryptopro = AnsiString('cryptopro'); + NID_cryptopro = 805; + + SN_cryptocom = AnsiString('cryptocom'); + NID_cryptocom = 806; + + SN_id_tc26 = AnsiString('id-tc26'); + NID_id_tc26 = 974; + + SN_id_GostR3411_94_with_GostR3410_2001 = AnsiString('id-GostR3411-94-with-GostR3410-2001'); + LN_id_GostR3411_94_with_GostR3410_2001 = AnsiString('GOST R 34.11-94 with GOST R 34.10-2001'); + NID_id_GostR3411_94_with_GostR3410_2001 = 807; + + SN_id_GostR3411_94_with_GostR3410_94 = AnsiString('id-GostR3411-94-with-GostR3410-94'); + LN_id_GostR3411_94_with_GostR3410_94 = AnsiString('GOST R 34.11-94 with GOST R 34.10-94'); + NID_id_GostR3411_94_with_GostR3410_94 = 808; + + SN_id_GostR3411_94 = AnsiString('md_gost94'); + LN_id_GostR3411_94 = AnsiString('GOST R 34.11-94'); + NID_id_GostR3411_94 = 809; + + SN_id_HMACGostR3411_94 = AnsiString('id-HMACGostR3411-94'); + LN_id_HMACGostR3411_94 = AnsiString('HMAC GOST 34.11-94'); + NID_id_HMACGostR3411_94 = 810; + + SN_id_GostR3410_2001 = AnsiString('gost2001'); + LN_id_GostR3410_2001 = AnsiString('GOST R 34.10-2001'); + NID_id_GostR3410_2001 = 811; + + SN_id_GostR3410_94 = AnsiString('gost94'); + LN_id_GostR3410_94 = AnsiString('GOST R 34.10-94'); + NID_id_GostR3410_94 = 812; + + SN_id_Gost28147_89 = AnsiString('gost89'); + LN_id_Gost28147_89 = AnsiString('GOST 28147-89'); + NID_id_Gost28147_89 = 813; + + SN_gost89_cnt = AnsiString('gost89-cnt'); + NID_gost89_cnt = 814; + + SN_gost89_cnt_12 = AnsiString('gost89-cnt-12'); + NID_gost89_cnt_12 = 975; + + SN_gost89_cbc = AnsiString('gost89-cbc'); + NID_gost89_cbc = 1009; + + SN_gost89_ecb = AnsiString('gost89-ecb'); + NID_gost89_ecb = 1010; + + SN_gost89_ctr = AnsiString('gost89-ctr'); + NID_gost89_ctr = 1011; + + SN_id_Gost28147_89_MAC = AnsiString('gost-mac'); + LN_id_Gost28147_89_MAC = AnsiString('GOST 28147-89 MAC'); + NID_id_Gost28147_89_MAC = 815; + + SN_gost_mac_12 = AnsiString('gost-mac-12'); + NID_gost_mac_12 = 976; + + SN_id_GostR3411_94_prf = AnsiString('prf-gostr3411-94'); + LN_id_GostR3411_94_prf = AnsiString('GOST R 34.11-94 PRF'); + NID_id_GostR3411_94_prf = 816; + + SN_id_GostR3410_2001DH = AnsiString('id-GostR3410-2001DH'); + LN_id_GostR3410_2001DH = AnsiString('GOST R 34.10-2001 DH'); + NID_id_GostR3410_2001DH = 817; + + SN_id_GostR3410_94DH = AnsiString('id-GostR3410-94DH'); + LN_id_GostR3410_94DH = AnsiString('GOST R 34.10-94 DH'); + NID_id_GostR3410_94DH = 818; + + SN_id_Gost28147_89_CryptoPro_KeyMeshing = AnsiString('id-Gost28147-89-CryptoPro-KeyMeshing'); + NID_id_Gost28147_89_CryptoPro_KeyMeshing = 819; + + SN_id_Gost28147_89_None_KeyMeshing = AnsiString('id-Gost28147-89-None-KeyMeshing'); + NID_id_Gost28147_89_None_KeyMeshing = 820; + + SN_id_GostR3411_94_TestParamSet = AnsiString('id-GostR3411-94-TestParamSet'); + NID_id_GostR3411_94_TestParamSet = 821; + + SN_id_GostR3411_94_CryptoProParamSet = AnsiString('id-GostR3411-94-CryptoProParamSet'); + NID_id_GostR3411_94_CryptoProParamSet = 822; + + SN_id_Gost28147_89_TestParamSet = AnsiString('id-Gost28147-89-TestParamSet'); + NID_id_Gost28147_89_TestParamSet = 823; + + SN_id_Gost28147_89_CryptoPro_A_ParamSet = AnsiString('id-Gost28147-89-CryptoPro-A-ParamSet'); + NID_id_Gost28147_89_CryptoPro_A_ParamSet = 824; + + SN_id_Gost28147_89_CryptoPro_B_ParamSet = AnsiString('id-Gost28147-89-CryptoPro-B-ParamSet'); + NID_id_Gost28147_89_CryptoPro_B_ParamSet = 825; + + SN_id_Gost28147_89_CryptoPro_C_ParamSet = AnsiString('id-Gost28147-89-CryptoPro-C-ParamSet'); + NID_id_Gost28147_89_CryptoPro_C_ParamSet = 826; + + SN_id_Gost28147_89_CryptoPro_D_ParamSet = AnsiString('id-Gost28147-89-CryptoPro-D-ParamSet'); + NID_id_Gost28147_89_CryptoPro_D_ParamSet = 827; + + SN_id_Gost28147_89_CryptoPro_Oscar_1_1_ParamSet = AnsiString('id-Gost28147-89-CryptoPro-Oscar-1-1-ParamSet'); + NID_id_Gost28147_89_CryptoPro_Oscar_1_1_ParamSet = 828; + + SN_id_Gost28147_89_CryptoPro_Oscar_1_0_ParamSet = AnsiString('id-Gost28147-89-CryptoPro-Oscar-1-0-ParamSet'); + NID_id_Gost28147_89_CryptoPro_Oscar_1_0_ParamSet = 829; + + SN_id_Gost28147_89_CryptoPro_RIC_1_ParamSet = AnsiString('id-Gost28147-89-CryptoPro-RIC-1-ParamSet'); + NID_id_Gost28147_89_CryptoPro_RIC_1_ParamSet = 830; + + SN_id_GostR3410_94_TestParamSet = AnsiString('id-GostR3410-94-TestParamSet'); + NID_id_GostR3410_94_TestParamSet = 831; + + SN_id_GostR3410_94_CryptoPro_A_ParamSet = AnsiString('id-GostR3410-94-CryptoPro-A-ParamSet'); + NID_id_GostR3410_94_CryptoPro_A_ParamSet = 832; + + SN_id_GostR3410_94_CryptoPro_B_ParamSet = AnsiString('id-GostR3410-94-CryptoPro-B-ParamSet'); + NID_id_GostR3410_94_CryptoPro_B_ParamSet = 833; + + SN_id_GostR3410_94_CryptoPro_C_ParamSet = AnsiString('id-GostR3410-94-CryptoPro-C-ParamSet'); + NID_id_GostR3410_94_CryptoPro_C_ParamSet = 834; + + SN_id_GostR3410_94_CryptoPro_D_ParamSet = AnsiString('id-GostR3410-94-CryptoPro-D-ParamSet'); + NID_id_GostR3410_94_CryptoPro_D_ParamSet = 835; + + SN_id_GostR3410_94_CryptoPro_XchA_ParamSet = AnsiString('id-GostR3410-94-CryptoPro-XchA-ParamSet'); + NID_id_GostR3410_94_CryptoPro_XchA_ParamSet = 836; + + SN_id_GostR3410_94_CryptoPro_XchB_ParamSet = AnsiString('id-GostR3410-94-CryptoPro-XchB-ParamSet'); + NID_id_GostR3410_94_CryptoPro_XchB_ParamSet = 837; + + SN_id_GostR3410_94_CryptoPro_XchC_ParamSet = AnsiString('id-GostR3410-94-CryptoPro-XchC-ParamSet'); + NID_id_GostR3410_94_CryptoPro_XchC_ParamSet = 838; + + SN_id_GostR3410_2001_TestParamSet = AnsiString('id-GostR3410-2001-TestParamSet'); + NID_id_GostR3410_2001_TestParamSet = 839; + + SN_id_GostR3410_2001_CryptoPro_A_ParamSet = AnsiString('id-GostR3410-2001-CryptoPro-A-ParamSet'); + NID_id_GostR3410_2001_CryptoPro_A_ParamSet = 840; + + SN_id_GostR3410_2001_CryptoPro_B_ParamSet = AnsiString('id-GostR3410-2001-CryptoPro-B-ParamSet'); + NID_id_GostR3410_2001_CryptoPro_B_ParamSet = 841; + + SN_id_GostR3410_2001_CryptoPro_C_ParamSet = AnsiString('id-GostR3410-2001-CryptoPro-C-ParamSet'); + NID_id_GostR3410_2001_CryptoPro_C_ParamSet = 842; + + SN_id_GostR3410_2001_CryptoPro_XchA_ParamSet = AnsiString('id-GostR3410-2001-CryptoPro-XchA-ParamSet'); + NID_id_GostR3410_2001_CryptoPro_XchA_ParamSet = 843; + + SN_id_GostR3410_2001_CryptoPro_XchB_ParamSet = AnsiString('id-GostR3410-2001-CryptoPro-XchB-ParamSet'); + NID_id_GostR3410_2001_CryptoPro_XchB_ParamSet = 844; + + SN_id_GostR3410_94_a = AnsiString('id-GostR3410-94-a'); + NID_id_GostR3410_94_a = 845; + + SN_id_GostR3410_94_aBis = AnsiString('id-GostR3410-94-aBis'); + NID_id_GostR3410_94_aBis = 846; + + SN_id_GostR3410_94_b = AnsiString('id-GostR3410-94-b'); + NID_id_GostR3410_94_b = 847; + + SN_id_GostR3410_94_bBis = AnsiString('id-GostR3410-94-bBis'); + NID_id_GostR3410_94_bBis = 848; + + SN_id_Gost28147_89_cc = AnsiString('id-Gost28147-89-cc'); + LN_id_Gost28147_89_cc = AnsiString('GOST 28147-89 Cryptocom ParamSet'); + NID_id_Gost28147_89_cc = 849; + + SN_id_GostR3410_94_cc = AnsiString('gost94cc'); + LN_id_GostR3410_94_cc = AnsiString('GOST 34.10-94 Cryptocom'); + NID_id_GostR3410_94_cc = 850; + + SN_id_GostR3410_2001_cc = AnsiString('gost2001cc'); + LN_id_GostR3410_2001_cc = AnsiString('GOST 34.10-2001 Cryptocom'); + NID_id_GostR3410_2001_cc = 851; + + SN_id_GostR3411_94_with_GostR3410_94_cc = AnsiString('id-GostR3411-94-with-GostR3410-94-cc'); + LN_id_GostR3411_94_with_GostR3410_94_cc = AnsiString('GOST R 34.11-94 with GOST R 34.10-94 Cryptocom'); + NID_id_GostR3411_94_with_GostR3410_94_cc = 852; + + SN_id_GostR3411_94_with_GostR3410_2001_cc = AnsiString('id-GostR3411-94-with-GostR3410-2001-cc'); + LN_id_GostR3411_94_with_GostR3410_2001_cc = AnsiString('GOST R 34.11-94 with GOST R 34.10-2001 Cryptocom'); + NID_id_GostR3411_94_with_GostR3410_2001_cc = 853; + + SN_id_GostR3410_2001_ParamSet_cc = AnsiString('id-GostR3410-2001-ParamSet-cc'); + LN_id_GostR3410_2001_ParamSet_cc = AnsiString('GOST R 3410-2001 Parameter Set Cryptocom'); + NID_id_GostR3410_2001_ParamSet_cc = 854; + + SN_id_tc26_algorithms = AnsiString('id-tc26-algorithms'); + NID_id_tc26_algorithms = 977; + + SN_id_tc26_sign = AnsiString('id-tc26-sign'); + NID_id_tc26_sign = 978; + + SN_id_GostR3410_2012_256 = AnsiString('gost2012_256'); + LN_id_GostR3410_2012_256 = AnsiString('GOST R 34.10-2012 with 256 bit modulus'); + NID_id_GostR3410_2012_256 = 979; + + SN_id_GostR3410_2012_512 = AnsiString('gost2012_512'); + LN_id_GostR3410_2012_512 = AnsiString('GOST R 34.10-2012 with 512 bit modulus'); + NID_id_GostR3410_2012_512 = 980; + + SN_id_tc26_digest = AnsiString('id-tc26-digest'); + NID_id_tc26_digest = 981; + + SN_id_GostR3411_2012_256 = AnsiString('md_gost12_256'); + LN_id_GostR3411_2012_256 = AnsiString('GOST R 34.11-2012 with 256 bit hash'); + NID_id_GostR3411_2012_256 = 982; + + SN_id_GostR3411_2012_512 = AnsiString('md_gost12_512'); + LN_id_GostR3411_2012_512 = AnsiString('GOST R 34.11-2012 with 512 bit hash'); + NID_id_GostR3411_2012_512 = 983; + + SN_id_tc26_signwithdigest = AnsiString('id-tc26-signwithdigest'); + NID_id_tc26_signwithdigest = 984; + + SN_id_tc26_signwithdigest_gost3410_2012_256 = AnsiString('id-tc26-signwithdigest-gost3410-2012-256'); + LN_id_tc26_signwithdigest_gost3410_2012_256 = AnsiString('GOST R 34.10-2012 with GOST R 34.11-2012(256 bit)'); + NID_id_tc26_signwithdigest_gost3410_2012_256 = 985; + + SN_id_tc26_signwithdigest_gost3410_2012_512 = AnsiString('id-tc26-signwithdigest-gost3410-2012-512'); + LN_id_tc26_signwithdigest_gost3410_2012_512 = AnsiString('GOST R 34.10-2012 with GOST R 34.11-2012(512 bit)'); + NID_id_tc26_signwithdigest_gost3410_2012_512 = 986; + + SN_id_tc26_mac = AnsiString('id-tc26-mac'); + NID_id_tc26_mac = 987; + + SN_id_tc26_hmac_gost_3411_2012_256 = AnsiString('id-tc26-hmac-gost-3411-2012-256'); + LN_id_tc26_hmac_gost_3411_2012_256 = AnsiString('HMAC GOST 34.11-2012 256 bit'); + NID_id_tc26_hmac_gost_3411_2012_256 = 988; + + SN_id_tc26_hmac_gost_3411_2012_512 = AnsiString('id-tc26-hmac-gost-3411-2012-512'); + LN_id_tc26_hmac_gost_3411_2012_512 = AnsiString('HMAC GOST 34.11-2012 512 bit'); + NID_id_tc26_hmac_gost_3411_2012_512 = 989; + + SN_id_tc26_cipher = AnsiString('id-tc26-cipher'); + NID_id_tc26_cipher = 990; + + SN_id_tc26_cipher_gostr3412_2015_magma = AnsiString('id-tc26-cipher-gostr3412-2015-magma'); + NID_id_tc26_cipher_gostr3412_2015_magma = 1173; + + SN_id_tc26_cipher_gostr3412_2015_magma_ctracpkm = AnsiString('id-tc26-cipher-gostr3412-2015-magma-ctracpkm'); + NID_id_tc26_cipher_gostr3412_2015_magma_ctracpkm = 1174; + + SN_id_tc26_cipher_gostr3412_2015_magma_ctracpkm_omac = AnsiString('id-tc26-cipher-gostr3412-2015-magma-ctracpkm-omac'); + NID_id_tc26_cipher_gostr3412_2015_magma_ctracpkm_omac = 1175; + + SN_id_tc26_cipher_gostr3412_2015_kuznyechik = AnsiString('id-tc26-cipher-gostr3412-2015-kuznyechik'); + NID_id_tc26_cipher_gostr3412_2015_kuznyechik = 1176; + + SN_id_tc26_cipher_gostr3412_2015_kuznyechik_ctracpkm = AnsiString('id-tc26-cipher-gostr3412-2015-kuznyechik-ctracpkm'); + NID_id_tc26_cipher_gostr3412_2015_kuznyechik_ctracpkm = 1177; + + SN_id_tc26_cipher_gostr3412_2015_kuznyechik_ctracpkm_omac = AnsiString('id-tc26-cipher-gostr3412-2015-kuznyechik-ctracpkm-omac'); + NID_id_tc26_cipher_gostr3412_2015_kuznyechik_ctracpkm_omac = 1178; + + SN_id_tc26_agreement = AnsiString('id-tc26-agreement'); + NID_id_tc26_agreement = 991; + + SN_id_tc26_agreement_gost_3410_2012_256 = AnsiString('id-tc26-agreement-gost-3410-2012-256'); + NID_id_tc26_agreement_gost_3410_2012_256 = 992; + + SN_id_tc26_agreement_gost_3410_2012_512 = AnsiString('id-tc26-agreement-gost-3410-2012-512'); + NID_id_tc26_agreement_gost_3410_2012_512 = 993; + + SN_id_tc26_wrap = AnsiString('id-tc26-wrap'); + NID_id_tc26_wrap = 1179; + + SN_id_tc26_wrap_gostr3412_2015_magma = AnsiString('id-tc26-wrap-gostr3412-2015-magma'); + NID_id_tc26_wrap_gostr3412_2015_magma = 1180; + + SN_id_tc26_wrap_gostr3412_2015_magma_kexp15 = AnsiString('id-tc26-wrap-gostr3412-2015-magma-kexp15'); + NID_id_tc26_wrap_gostr3412_2015_magma_kexp15 = 1181; + + SN_id_tc26_wrap_gostr3412_2015_kuznyechik = AnsiString('id-tc26-wrap-gostr3412-2015-kuznyechik'); + NID_id_tc26_wrap_gostr3412_2015_kuznyechik = 1182; + + SN_id_tc26_wrap_gostr3412_2015_kuznyechik_kexp15 = AnsiString('id-tc26-wrap-gostr3412-2015-kuznyechik-kexp15'); + NID_id_tc26_wrap_gostr3412_2015_kuznyechik_kexp15 = 1183; + + SN_id_tc26_constants = AnsiString('id-tc26-constants'); + NID_id_tc26_constants = 994; + + SN_id_tc26_sign_constants = AnsiString('id-tc26-sign-constants'); + NID_id_tc26_sign_constants = 995; + + SN_id_tc26_gost_3410_2012_256_constants = AnsiString('id-tc26-gost-3410-2012-256-constants'); + NID_id_tc26_gost_3410_2012_256_constants = 1147; + + SN_id_tc26_gost_3410_2012_256_paramSetA = AnsiString('id-tc26-gost-3410-2012-256-paramSetA'); + LN_id_tc26_gost_3410_2012_256_paramSetA = AnsiString('GOST R 34.10-2012(256 bit)ParamSet A'); + NID_id_tc26_gost_3410_2012_256_paramSetA = 1148; + + SN_id_tc26_gost_3410_2012_256_paramSetB = AnsiString('id-tc26-gost-3410-2012-256-paramSetB'); + LN_id_tc26_gost_3410_2012_256_paramSetB = AnsiString('GOST R 34.10-2012(256 bit)ParamSet B'); + NID_id_tc26_gost_3410_2012_256_paramSetB = 1184; + + SN_id_tc26_gost_3410_2012_256_paramSetC = AnsiString('id-tc26-gost-3410-2012-256-paramSetC'); + LN_id_tc26_gost_3410_2012_256_paramSetC = AnsiString('GOST R 34.10-2012(256 bit)ParamSet C'); + NID_id_tc26_gost_3410_2012_256_paramSetC = 1185; + + SN_id_tc26_gost_3410_2012_256_paramSetD = AnsiString('id-tc26-gost-3410-2012-256-paramSetD'); + LN_id_tc26_gost_3410_2012_256_paramSetD = AnsiString('GOST R 34.10-2012(256 bit)ParamSet D'); + NID_id_tc26_gost_3410_2012_256_paramSetD = 1186; + + SN_id_tc26_gost_3410_2012_512_constants = AnsiString('id-tc26-gost-3410-2012-512-constants'); + NID_id_tc26_gost_3410_2012_512_constants = 996; + + SN_id_tc26_gost_3410_2012_512_paramSetTest = AnsiString('id-tc26-gost-3410-2012-512-paramSetTest'); + LN_id_tc26_gost_3410_2012_512_paramSetTest = AnsiString('GOST R 34.10-2012(512 bit)testing parameter set'); + NID_id_tc26_gost_3410_2012_512_paramSetTest = 997; + + SN_id_tc26_gost_3410_2012_512_paramSetA = AnsiString('id-tc26-gost-3410-2012-512-paramSetA'); + LN_id_tc26_gost_3410_2012_512_paramSetA = AnsiString('GOST R 34.10-2012(512 bit)ParamSet A'); + NID_id_tc26_gost_3410_2012_512_paramSetA = 998; + + SN_id_tc26_gost_3410_2012_512_paramSetB = AnsiString('id-tc26-gost-3410-2012-512-paramSetB'); + LN_id_tc26_gost_3410_2012_512_paramSetB = AnsiString('GOST R 34.10-2012(512 bit)ParamSet B'); + NID_id_tc26_gost_3410_2012_512_paramSetB = 999; + + SN_id_tc26_gost_3410_2012_512_paramSetC = AnsiString('id-tc26-gost-3410-2012-512-paramSetC'); + LN_id_tc26_gost_3410_2012_512_paramSetC = AnsiString('GOST R 34.10-2012(512 bit)ParamSet C'); + NID_id_tc26_gost_3410_2012_512_paramSetC = 1149; + + SN_id_tc26_digest_constants = AnsiString('id-tc26-digest-constants'); + NID_id_tc26_digest_constants = 1000; + + SN_id_tc26_cipher_constants = AnsiString('id-tc26-cipher-constants'); + NID_id_tc26_cipher_constants = 1001; + + SN_id_tc26_gost_28147_constants = AnsiString('id-tc26-gost-28147-constants'); + NID_id_tc26_gost_28147_constants = 1002; + + SN_id_tc26_gost_28147_param_Z = AnsiString('id-tc26-gost-28147-param-Z'); + LN_id_tc26_gost_28147_param_Z = AnsiString('GOST 28147-89 TC26 parameter set'); + NID_id_tc26_gost_28147_param_Z = 1003; + + SN_INN = AnsiString('INN'); + LN_INN = AnsiString('INN'); + NID_INN = 1004; + + SN_OGRN = AnsiString('OGRN'); + LN_OGRN = AnsiString('OGRN'); + NID_OGRN = 1005; + + SN_SNILS = AnsiString('SNILS'); + LN_SNILS = AnsiString('SNILS'); + NID_SNILS = 1006; + + SN_subjectSignTool = AnsiString('subjectSignTool'); + LN_subjectSignTool = AnsiString('Signing Tool of Subject'); + NID_subjectSignTool = 1007; + + SN_issuerSignTool = AnsiString('issuerSignTool'); + LN_issuerSignTool = AnsiString('Signing Tool of Issuer'); + NID_issuerSignTool = 1008; + + SN_grasshopper_ecb = AnsiString('grasshopper-ecb'); + NID_grasshopper_ecb = 1012; + + SN_grasshopper_ctr = AnsiString('grasshopper-ctr'); + NID_grasshopper_ctr = 1013; + + SN_grasshopper_ofb = AnsiString('grasshopper-ofb'); + NID_grasshopper_ofb = 1014; + + SN_grasshopper_cbc = AnsiString('grasshopper-cbc'); + NID_grasshopper_cbc = 1015; + + SN_grasshopper_cfb = AnsiString('grasshopper-cfb'); + NID_grasshopper_cfb = 1016; + + SN_grasshopper_mac = AnsiString('grasshopper-mac'); + NID_grasshopper_mac = 1017; + + SN_magma_ecb = AnsiString('magma-ecb'); + NID_magma_ecb = 1187; + + SN_magma_ctr = AnsiString('magma-ctr'); + NID_magma_ctr = 1188; + + SN_magma_ofb = AnsiString('magma-ofb'); + NID_magma_ofb = 1189; + + SN_magma_cbc = AnsiString('magma-cbc'); + NID_magma_cbc = 1190; + + SN_magma_cfb = AnsiString('magma-cfb'); + NID_magma_cfb = 1191; + + SN_magma_mac = AnsiString('magma-mac'); + NID_magma_mac = 1192; + + SN_camellia_128_cbc = AnsiString('CAMELLIA-128-CBC'); + LN_camellia_128_cbc = AnsiString('camellia-128-cbc'); + NID_camellia_128_cbc = 751; + + SN_camellia_192_cbc = AnsiString('CAMELLIA-192-CBC'); + LN_camellia_192_cbc = AnsiString('camellia-192-cbc'); + NID_camellia_192_cbc = 752; + + SN_camellia_256_cbc = AnsiString('CAMELLIA-256-CBC'); + LN_camellia_256_cbc = AnsiString('camellia-256-cbc'); + NID_camellia_256_cbc = 753; + + SN_id_camellia128_wrap = AnsiString('id-camellia128-wrap'); + NID_id_camellia128_wrap = 907; + + SN_id_camellia192_wrap = AnsiString('id-camellia192-wrap'); + NID_id_camellia192_wrap = 908; + + SN_id_camellia256_wrap = AnsiString('id-camellia256-wrap'); + NID_id_camellia256_wrap = 909; + + SN_camellia_128_ecb = AnsiString('CAMELLIA-128-ECB'); + LN_camellia_128_ecb = AnsiString('camellia-128-ecb'); + NID_camellia_128_ecb = 754; + + SN_camellia_128_ofb128 = AnsiString('CAMELLIA-128-OFB'); + LN_camellia_128_ofb128 = AnsiString('camellia-128-ofb'); + NID_camellia_128_ofb128 = 766; + + SN_camellia_128_cfb128 = AnsiString('CAMELLIA-128-CFB'); + LN_camellia_128_cfb128 = AnsiString('camellia-128-cfb'); + NID_camellia_128_cfb128 = 757; + + SN_camellia_128_gcm = AnsiString('CAMELLIA-128-GCM'); + LN_camellia_128_gcm = AnsiString('camellia-128-gcm'); + NID_camellia_128_gcm = 961; + + SN_camellia_128_ccm = AnsiString('CAMELLIA-128-CCM'); + LN_camellia_128_ccm = AnsiString('camellia-128-ccm'); + NID_camellia_128_ccm = 962; + + SN_camellia_128_ctr = AnsiString('CAMELLIA-128-CTR'); + LN_camellia_128_ctr = AnsiString('camellia-128-ctr'); + NID_camellia_128_ctr = 963; + + SN_camellia_128_cmac = AnsiString('CAMELLIA-128-CMAC'); + LN_camellia_128_cmac = AnsiString('camellia-128-cmac'); + NID_camellia_128_cmac = 964; + + SN_camellia_192_ecb = AnsiString('CAMELLIA-192-ECB'); + LN_camellia_192_ecb = AnsiString('camellia-192-ecb'); + NID_camellia_192_ecb = 755; + + SN_camellia_192_ofb128 = AnsiString('CAMELLIA-192-OFB'); + LN_camellia_192_ofb128 = AnsiString('camellia-192-ofb'); + NID_camellia_192_ofb128 = 767; + + SN_camellia_192_cfb128 = AnsiString('CAMELLIA-192-CFB'); + LN_camellia_192_cfb128 = AnsiString('camellia-192-cfb'); + NID_camellia_192_cfb128 = 758; + + SN_camellia_192_gcm = AnsiString('CAMELLIA-192-GCM'); + LN_camellia_192_gcm = AnsiString('camellia-192-gcm'); + NID_camellia_192_gcm = 965; + + SN_camellia_192_ccm = AnsiString('CAMELLIA-192-CCM'); + LN_camellia_192_ccm = AnsiString('camellia-192-ccm'); + NID_camellia_192_ccm = 966; + + SN_camellia_192_ctr = AnsiString('CAMELLIA-192-CTR'); + LN_camellia_192_ctr = AnsiString('camellia-192-ctr'); + NID_camellia_192_ctr = 967; + + SN_camellia_192_cmac = AnsiString('CAMELLIA-192-CMAC'); + LN_camellia_192_cmac = AnsiString('camellia-192-cmac'); + NID_camellia_192_cmac = 968; + + SN_camellia_256_ecb = AnsiString('CAMELLIA-256-ECB'); + LN_camellia_256_ecb = AnsiString('camellia-256-ecb'); + NID_camellia_256_ecb = 756; + + SN_camellia_256_ofb128 = AnsiString('CAMELLIA-256-OFB'); + LN_camellia_256_ofb128 = AnsiString('camellia-256-ofb'); + NID_camellia_256_ofb128 = 768; + + SN_camellia_256_cfb128 = AnsiString('CAMELLIA-256-CFB'); + LN_camellia_256_cfb128 = AnsiString('camellia-256-cfb'); + NID_camellia_256_cfb128 = 759; + + SN_camellia_256_gcm = AnsiString('CAMELLIA-256-GCM'); + LN_camellia_256_gcm = AnsiString('camellia-256-gcm'); + NID_camellia_256_gcm = 969; + + SN_camellia_256_ccm = AnsiString('CAMELLIA-256-CCM'); + LN_camellia_256_ccm = AnsiString('camellia-256-ccm'); + NID_camellia_256_ccm = 970; + + SN_camellia_256_ctr = AnsiString('CAMELLIA-256-CTR'); + LN_camellia_256_ctr = AnsiString('camellia-256-ctr'); + NID_camellia_256_ctr = 971; + + SN_camellia_256_cmac = AnsiString('CAMELLIA-256-CMAC'); + LN_camellia_256_cmac = AnsiString('camellia-256-cmac'); + NID_camellia_256_cmac = 972; + + SN_camellia_128_cfb1 = AnsiString('CAMELLIA-128-CFB1'); + LN_camellia_128_cfb1 = AnsiString('camellia-128-cfb1'); + NID_camellia_128_cfb1 = 760; + + SN_camellia_192_cfb1 = AnsiString('CAMELLIA-192-CFB1'); + LN_camellia_192_cfb1 = AnsiString('camellia-192-cfb1'); + NID_camellia_192_cfb1 = 761; + + SN_camellia_256_cfb1 = AnsiString('CAMELLIA-256-CFB1'); + LN_camellia_256_cfb1 = AnsiString('camellia-256-cfb1'); + NID_camellia_256_cfb1 = 762; + + SN_camellia_128_cfb8 = AnsiString('CAMELLIA-128-CFB8'); + LN_camellia_128_cfb8 = AnsiString('camellia-128-cfb8'); + NID_camellia_128_cfb8 = 763; + + SN_camellia_192_cfb8 = AnsiString('CAMELLIA-192-CFB8'); + LN_camellia_192_cfb8 = AnsiString('camellia-192-cfb8'); + NID_camellia_192_cfb8 = 764; + + SN_camellia_256_cfb8 = AnsiString('CAMELLIA-256-CFB8'); + LN_camellia_256_cfb8 = AnsiString('camellia-256-cfb8'); + NID_camellia_256_cfb8 = 765; + + SN_aria_128_ecb = AnsiString('ARIA-128-ECB'); + LN_aria_128_ecb = AnsiString('aria-128-ecb'); + NID_aria_128_ecb = 1065; + + SN_aria_128_cbc = AnsiString('ARIA-128-CBC'); + LN_aria_128_cbc = AnsiString('aria-128-cbc'); + NID_aria_128_cbc = 1066; + + SN_aria_128_cfb128 = AnsiString('ARIA-128-CFB'); + LN_aria_128_cfb128 = AnsiString('aria-128-cfb'); + NID_aria_128_cfb128 = 1067; + + SN_aria_128_ofb128 = AnsiString('ARIA-128-OFB'); + LN_aria_128_ofb128 = AnsiString('aria-128-ofb'); + NID_aria_128_ofb128 = 1068; + + SN_aria_128_ctr = AnsiString('ARIA-128-CTR'); + LN_aria_128_ctr = AnsiString('aria-128-ctr'); + NID_aria_128_ctr = 1069; + + SN_aria_192_ecb = AnsiString('ARIA-192-ECB'); + LN_aria_192_ecb = AnsiString('aria-192-ecb'); + NID_aria_192_ecb = 1070; + + SN_aria_192_cbc = AnsiString('ARIA-192-CBC'); + LN_aria_192_cbc = AnsiString('aria-192-cbc'); + NID_aria_192_cbc = 1071; + + SN_aria_192_cfb128 = AnsiString('ARIA-192-CFB'); + LN_aria_192_cfb128 = AnsiString('aria-192-cfb'); + NID_aria_192_cfb128 = 1072; + + SN_aria_192_ofb128 = AnsiString('ARIA-192-OFB'); + LN_aria_192_ofb128 = AnsiString('aria-192-ofb'); + NID_aria_192_ofb128 = 1073; + + SN_aria_192_ctr = AnsiString('ARIA-192-CTR'); + LN_aria_192_ctr = AnsiString('aria-192-ctr'); + NID_aria_192_ctr = 1074; + + SN_aria_256_ecb = AnsiString('ARIA-256-ECB'); + LN_aria_256_ecb = AnsiString('aria-256-ecb'); + NID_aria_256_ecb = 1075; + + SN_aria_256_cbc = AnsiString('ARIA-256-CBC'); + LN_aria_256_cbc = AnsiString('aria-256-cbc'); + NID_aria_256_cbc = 1076; + + SN_aria_256_cfb128 = AnsiString('ARIA-256-CFB'); + LN_aria_256_cfb128 = AnsiString('aria-256-cfb'); + NID_aria_256_cfb128 = 1077; + + SN_aria_256_ofb128 = AnsiString('ARIA-256-OFB'); + LN_aria_256_ofb128 = AnsiString('aria-256-ofb'); + NID_aria_256_ofb128 = 1078; + + SN_aria_256_ctr = AnsiString('ARIA-256-CTR'); + LN_aria_256_ctr = AnsiString('aria-256-ctr'); + NID_aria_256_ctr = 1079; + + SN_aria_128_cfb1 = AnsiString('ARIA-128-CFB1'); + LN_aria_128_cfb1 = AnsiString('aria-128-cfb1'); + NID_aria_128_cfb1 = 1080; + + SN_aria_192_cfb1 = AnsiString('ARIA-192-CFB1'); + LN_aria_192_cfb1 = AnsiString('aria-192-cfb1'); + NID_aria_192_cfb1 = 1081; + + SN_aria_256_cfb1 = AnsiString('ARIA-256-CFB1'); + LN_aria_256_cfb1 = AnsiString('aria-256-cfb1'); + NID_aria_256_cfb1 = 1082; + + SN_aria_128_cfb8 = AnsiString('ARIA-128-CFB8'); + LN_aria_128_cfb8 = AnsiString('aria-128-cfb8'); + NID_aria_128_cfb8 = 1083; + + SN_aria_192_cfb8 = AnsiString('ARIA-192-CFB8'); + LN_aria_192_cfb8 = AnsiString('aria-192-cfb8'); + NID_aria_192_cfb8 = 1084; + + SN_aria_256_cfb8 = AnsiString('ARIA-256-CFB8'); + LN_aria_256_cfb8 = AnsiString('aria-256-cfb8'); + NID_aria_256_cfb8 = 1085; + + SN_aria_128_ccm = AnsiString('ARIA-128-CCM'); + LN_aria_128_ccm = AnsiString('aria-128-ccm'); + NID_aria_128_ccm = 1120; + + SN_aria_192_ccm = AnsiString('ARIA-192-CCM'); + LN_aria_192_ccm = AnsiString('aria-192-ccm'); + NID_aria_192_ccm = 1121; + + SN_aria_256_ccm = AnsiString('ARIA-256-CCM'); + LN_aria_256_ccm = AnsiString('aria-256-ccm'); + NID_aria_256_ccm = 1122; + + SN_aria_128_gcm = AnsiString('ARIA-128-GCM'); + LN_aria_128_gcm = AnsiString('aria-128-gcm'); + NID_aria_128_gcm = 1123; + + SN_aria_192_gcm = AnsiString('ARIA-192-GCM'); + LN_aria_192_gcm = AnsiString('aria-192-gcm'); + NID_aria_192_gcm = 1124; + + SN_aria_256_gcm = AnsiString('ARIA-256-GCM'); + LN_aria_256_gcm = AnsiString('aria-256-gcm'); + NID_aria_256_gcm = 1125; + + SN_kisa = AnsiString('KISA'); + LN_kisa = AnsiString('kisa'); + NID_kisa = 773; + + SN_seed_ecb = AnsiString('SEED-ECB'); + LN_seed_ecb = AnsiString('seed-ecb'); + NID_seed_ecb = 776; + + SN_seed_cbc = AnsiString('SEED-CBC'); + LN_seed_cbc = AnsiString('seed-cbc'); + NID_seed_cbc = 777; + + SN_seed_cfb128 = AnsiString('SEED-CFB'); + LN_seed_cfb128 = AnsiString('seed-cfb'); + NID_seed_cfb128 = 779; + + SN_seed_ofb128 = AnsiString('SEED-OFB'); + LN_seed_ofb128 = AnsiString('seed-ofb'); + NID_seed_ofb128 = 778; + + SN_sm4_ecb = AnsiString('SM4-ECB'); + LN_sm4_ecb = AnsiString('sm4-ecb'); + NID_sm4_ecb = 1133; + + SN_sm4_cbc = AnsiString('SM4-CBC'); + LN_sm4_cbc = AnsiString('sm4-cbc'); + NID_sm4_cbc = 1134; + + SN_sm4_ofb128 = AnsiString('SM4-OFB'); + LN_sm4_ofb128 = AnsiString('sm4-ofb'); + NID_sm4_ofb128 = 1135; + + SN_sm4_cfb128 = AnsiString('SM4-CFB'); + LN_sm4_cfb128 = AnsiString('sm4-cfb'); + NID_sm4_cfb128 = 1137; + + SN_sm4_cfb1 = AnsiString('SM4-CFB1'); + LN_sm4_cfb1 = AnsiString('sm4-cfb1'); + NID_sm4_cfb1 = 1136; + + SN_sm4_cfb8 = AnsiString('SM4-CFB8'); + LN_sm4_cfb8 = AnsiString('sm4-cfb8'); + NID_sm4_cfb8 = 1138; + + SN_sm4_ctr = AnsiString('SM4-CTR'); + LN_sm4_ctr = AnsiString('sm4-ctr'); + NID_sm4_ctr = 1139; + + SN_hmac = AnsiString('HMAC'); + LN_hmac = AnsiString('hmac'); + NID_hmac = 855; + + SN_cmac = AnsiString('CMAC'); + LN_cmac = AnsiString('cmac'); + NID_cmac = 894; + + SN_rc4_hmac_md5 = AnsiString('RC4-HMAC-MD5'); + LN_rc4_hmac_md5 = AnsiString('rc4-hmac-md5'); + NID_rc4_hmac_md5 = 915; + + SN_aes_128_cbc_hmac_sha1 = AnsiString('AES-128-CBC-HMAC-SHA1'); + LN_aes_128_cbc_hmac_sha1 = AnsiString('aes-128-cbc-hmac-sha1'); + NID_aes_128_cbc_hmac_sha1 = 916; + + SN_aes_192_cbc_hmac_sha1 = AnsiString('AES-192-CBC-HMAC-SHA1'); + LN_aes_192_cbc_hmac_sha1 = AnsiString('aes-192-cbc-hmac-sha1'); + NID_aes_192_cbc_hmac_sha1 = 917; + + SN_aes_256_cbc_hmac_sha1 = AnsiString('AES-256-CBC-HMAC-SHA1'); + LN_aes_256_cbc_hmac_sha1 = AnsiString('aes-256-cbc-hmac-sha1'); + NID_aes_256_cbc_hmac_sha1 = 918; + + SN_aes_128_cbc_hmac_sha256 = AnsiString('AES-128-CBC-HMAC-SHA256'); + LN_aes_128_cbc_hmac_sha256 = AnsiString('aes-128-cbc-hmac-sha256'); + NID_aes_128_cbc_hmac_sha256 = 948; + + SN_aes_192_cbc_hmac_sha256 = AnsiString('AES-192-CBC-HMAC-SHA256'); + LN_aes_192_cbc_hmac_sha256 = AnsiString('aes-192-cbc-hmac-sha256'); + NID_aes_192_cbc_hmac_sha256 = 949; + + SN_aes_256_cbc_hmac_sha256 = AnsiString('AES-256-CBC-HMAC-SHA256'); + LN_aes_256_cbc_hmac_sha256 = AnsiString('aes-256-cbc-hmac-sha256'); + NID_aes_256_cbc_hmac_sha256 = 950; + + SN_chacha20_poly1305 = AnsiString('ChaCha20-Poly1305'); + LN_chacha20_poly1305 = AnsiString('chacha20-poly1305'); + NID_chacha20_poly1305 = 1018; + + SN_chacha20 = AnsiString('ChaCha20'); + LN_chacha20 = AnsiString('chacha20'); + NID_chacha20 = 1019; + + SN_dhpublicnumber = AnsiString('dhpublicnumber'); + LN_dhpublicnumber = AnsiString('X9.42 DH'); + NID_dhpublicnumber = 920; + + SN_brainpoolP160r1 = AnsiString('brainpoolP160r1'); + NID_brainpoolP160r1 = 921; + + SN_brainpoolP160t1 = AnsiString('brainpoolP160t1'); + NID_brainpoolP160t1 = 922; + + SN_brainpoolP192r1 = AnsiString('brainpoolP192r1'); + NID_brainpoolP192r1 = 923; + + SN_brainpoolP192t1 = AnsiString('brainpoolP192t1'); + NID_brainpoolP192t1 = 924; + + SN_brainpoolP224r1 = AnsiString('brainpoolP224r1'); + NID_brainpoolP224r1 = 925; + + SN_brainpoolP224t1 = AnsiString('brainpoolP224t1'); + NID_brainpoolP224t1 = 926; + + SN_brainpoolP256r1 = AnsiString('brainpoolP256r1'); + NID_brainpoolP256r1 = 927; + + SN_brainpoolP256t1 = AnsiString('brainpoolP256t1'); + NID_brainpoolP256t1 = 928; + + SN_brainpoolP320r1 = AnsiString('brainpoolP320r1'); + NID_brainpoolP320r1 = 929; + + SN_brainpoolP320t1 = AnsiString('brainpoolP320t1'); + NID_brainpoolP320t1 = 930; + + SN_brainpoolP384r1 = AnsiString('brainpoolP384r1'); + NID_brainpoolP384r1 = 931; + + SN_brainpoolP384t1 = AnsiString('brainpoolP384t1'); + NID_brainpoolP384t1 = 932; + + SN_brainpoolP512r1 = AnsiString('brainpoolP512r1'); + NID_brainpoolP512r1 = 933; + + SN_brainpoolP512t1 = AnsiString('brainpoolP512t1'); + NID_brainpoolP512t1 = 934; + + SN_dhSinglePass_stdDH_sha1kdf_scheme = AnsiString('dhSinglePass-stdDH-sha1kdf-scheme'); + NID_dhSinglePass_stdDH_sha1kdf_scheme = 936; + + SN_dhSinglePass_stdDH_sha224kdf_scheme = AnsiString('dhSinglePass-stdDH-sha224kdf-scheme'); + NID_dhSinglePass_stdDH_sha224kdf_scheme = 937; + + SN_dhSinglePass_stdDH_sha256kdf_scheme = AnsiString('dhSinglePass-stdDH-sha256kdf-scheme'); + NID_dhSinglePass_stdDH_sha256kdf_scheme = 938; + + SN_dhSinglePass_stdDH_sha384kdf_scheme = AnsiString('dhSinglePass-stdDH-sha384kdf-scheme'); + NID_dhSinglePass_stdDH_sha384kdf_scheme = 939; + + SN_dhSinglePass_stdDH_sha512kdf_scheme = AnsiString('dhSinglePass-stdDH-sha512kdf-scheme'); + NID_dhSinglePass_stdDH_sha512kdf_scheme = 940; + + SN_dhSinglePass_cofactorDH_sha1kdf_scheme = AnsiString('dhSinglePass-cofactorDH-sha1kdf-scheme'); + NID_dhSinglePass_cofactorDH_sha1kdf_scheme = 941; + + SN_dhSinglePass_cofactorDH_sha224kdf_scheme = AnsiString('dhSinglePass-cofactorDH-sha224kdf-scheme'); + NID_dhSinglePass_cofactorDH_sha224kdf_scheme = 942; + + SN_dhSinglePass_cofactorDH_sha256kdf_scheme = AnsiString('dhSinglePass-cofactorDH-sha256kdf-scheme'); + NID_dhSinglePass_cofactorDH_sha256kdf_scheme = 943; + + SN_dhSinglePass_cofactorDH_sha384kdf_scheme = AnsiString('dhSinglePass-cofactorDH-sha384kdf-scheme'); + NID_dhSinglePass_cofactorDH_sha384kdf_scheme = 944; + + SN_dhSinglePass_cofactorDH_sha512kdf_scheme = AnsiString('dhSinglePass-cofactorDH-sha512kdf-scheme'); + NID_dhSinglePass_cofactorDH_sha512kdf_scheme = 945; + + SN_dh_std_kdf = AnsiString('dh-std-kdf'); + NID_dh_std_kdf = 946; + + SN_dh_cofactor_kdf = AnsiString('dh-cofactor-kdf'); + NID_dh_cofactor_kdf = 947; + + SN_ct_precert_scts = AnsiString('ct_precert_scts'); + LN_ct_precert_scts = AnsiString('CT Precertificate SCTs'); + NID_ct_precert_scts = 951; + + SN_ct_precert_poison = AnsiString('ct_precert_poison'); + LN_ct_precert_poison = AnsiString('CT Precertificate Poison'); + NID_ct_precert_poison = 952; + + SN_ct_precert_signer = AnsiString('ct_precert_signer'); + LN_ct_precert_signer = AnsiString('CT Precertificate Signer'); + NID_ct_precert_signer = 953; + + SN_ct_cert_scts = AnsiString('ct_cert_scts'); + LN_ct_cert_scts = AnsiString('CT Certificate SCTs'); + NID_ct_cert_scts = 954; + + SN_jurisdictionLocalityName = AnsiString('jurisdictionL'); + LN_jurisdictionLocalityName = AnsiString('jurisdictionLocalityName'); + NID_jurisdictionLocalityName = 955; + + SN_jurisdictionStateOrProvinceName = AnsiString('jurisdictionST'); + LN_jurisdictionStateOrProvinceName = AnsiString('jurisdictionStateOrProvinceName'); + NID_jurisdictionStateOrProvinceName = 956; + + SN_jurisdictionCountryName = AnsiString('jurisdictionC'); + LN_jurisdictionCountryName = AnsiString('jurisdictionCountryName'); + NID_jurisdictionCountryName = 957; + + SN_id_scrypt = AnsiString('id-scrypt'); + LN_id_scrypt = AnsiString('scrypt'); + NID_id_scrypt = 973; + + SN_tls1_prf = AnsiString('TLS1-PRF'); + LN_tls1_prf = AnsiString('tls1-prf'); + NID_tls1_prf = 1021; + + SN_hkdf = AnsiString('HKDF'); + LN_hkdf = AnsiString('hkdf'); + NID_hkdf = 1036; + + SN_id_pkinit = AnsiString('id-pkinit'); + NID_id_pkinit = 1031; + + SN_pkInitClientAuth = AnsiString('pkInitClientAuth'); + LN_pkInitClientAuth = AnsiString('PKINIT Client Auth'); + NID_pkInitClientAuth = 1032; + + SN_pkInitKDC = AnsiString('pkInitKDC'); + LN_pkInitKDC = AnsiString('Signing KDC Response'); + NID_pkInitKDC = 1033; + + SN_X25519 = AnsiString('X25519'); + NID_X25519 = 1034; + + SN_X448 = AnsiString('X448'); + NID_X448 = 1035; + + SN_ED25519 = AnsiString('ED25519'); + NID_ED25519 = 1087; + + SN_ED448 = AnsiString('ED448'); + NID_ED448 = 1088; + + SN_kx_rsa = AnsiString('KxRSA'); + LN_kx_rsa = AnsiString('kx-rsa'); + NID_kx_rsa = 1037; + + SN_kx_ecdhe = AnsiString('KxECDHE'); + LN_kx_ecdhe = AnsiString('kx-ecdhe'); + NID_kx_ecdhe = 1038; + + SN_kx_dhe = AnsiString('KxDHE'); + LN_kx_dhe = AnsiString('kx-dhe'); + NID_kx_dhe = 1039; + + SN_kx_ecdhe_psk = AnsiString('KxECDHE-PSK'); + LN_kx_ecdhe_psk = AnsiString('kx-ecdhe-psk'); + NID_kx_ecdhe_psk = 1040; + + SN_kx_dhe_psk = AnsiString('KxDHE-PSK'); + LN_kx_dhe_psk = AnsiString('kx-dhe-psk'); + NID_kx_dhe_psk = 1041; + + SN_kx_rsa_psk = AnsiString('KxRSA_PSK'); + LN_kx_rsa_psk = AnsiString('kx-rsa-psk'); + NID_kx_rsa_psk = 1042; + + SN_kx_psk = AnsiString('KxPSK'); + LN_kx_psk = AnsiString('kx-psk'); + NID_kx_psk = 1043; + + SN_kx_srp = AnsiString('KxSRP'); + LN_kx_srp = AnsiString('kx-srp'); + NID_kx_srp = 1044; + + SN_kx_gost = AnsiString('KxGOST'); + LN_kx_gost = AnsiString('kx-gost'); + NID_kx_gost = 1045; + + SN_kx_any = AnsiString('KxANY'); + LN_kx_any = AnsiString('kx-any'); + NID_kx_any = 1063; + + SN_auth_rsa = AnsiString('AuthRSA'); + LN_auth_rsa = AnsiString('auth-rsa'); + NID_auth_rsa = 1046; + + SN_auth_ecdsa = AnsiString('AuthECDSA'); + LN_auth_ecdsa = AnsiString('auth-ecdsa'); + NID_auth_ecdsa = 1047; + + SN_auth_psk = AnsiString('AuthPSK'); + LN_auth_psk = AnsiString('auth-psk'); + NID_auth_psk = 1048; + + SN_auth_dss = AnsiString('AuthDSS'); + LN_auth_dss = AnsiString('auth-dss'); + NID_auth_dss = 1049; + + SN_auth_gost01 = AnsiString('AuthGOST01'); + LN_auth_gost01 = AnsiString('auth-gost01'); + NID_auth_gost01 = 1050; + + SN_auth_gost12 = AnsiString('AuthGOST12'); + LN_auth_gost12 = AnsiString('auth-gost12'); + NID_auth_gost12 = 1051; + + SN_auth_srp = AnsiString('AuthSRP'); + LN_auth_srp = AnsiString('auth-srp'); + NID_auth_srp = 1052; + + SN_auth_null = AnsiString('AuthNULL'); + LN_auth_null = AnsiString('auth-null'); + NID_auth_null = 1053; + + SN_auth_any = AnsiString('AuthANY'); + LN_auth_any = AnsiString('auth-any'); + NID_auth_any = 1064; + + SN_poly1305 = AnsiString('Poly1305'); + LN_poly1305 = AnsiString('poly1305'); + NID_poly1305 = 1061; + + SN_siphash = AnsiString('SipHash'); + LN_siphash = AnsiString('siphash'); + NID_siphash = 1062; + + SN_ffdhe2048 = AnsiString('ffdhe2048'); + NID_ffdhe2048 = 1126; + + SN_ffdhe3072 = AnsiString('ffdhe3072'); + NID_ffdhe3072 = 1127; + + SN_ffdhe4096 = AnsiString('ffdhe4096'); + NID_ffdhe4096 = 1128; + + SN_ffdhe6144 = AnsiString('ffdhe6144'); + NID_ffdhe6144 = 1129; + + SN_ffdhe8192 = AnsiString('ffdhe8192'); + NID_ffdhe8192 = 1130; + + SN_ISO_UA = AnsiString('ISO-UA'); + NID_ISO_UA = 1150; + + SN_ua_pki = AnsiString('ua-pki'); + NID_ua_pki = 1151; + + SN_dstu28147 = AnsiString('dstu28147'); + LN_dstu28147 = AnsiString('DSTU Gost 28147-2009'); + NID_dstu28147 = 1152; + + SN_dstu28147_ofb = AnsiString('dstu28147-ofb'); + LN_dstu28147_ofb = AnsiString('DSTU Gost 28147-2009 OFB mode'); + NID_dstu28147_ofb = 1153; + + SN_dstu28147_cfb = AnsiString('dstu28147-cfb'); + LN_dstu28147_cfb = AnsiString('DSTU Gost 28147-2009 CFB mode'); + NID_dstu28147_cfb = 1154; + + SN_dstu28147_wrap = AnsiString('dstu28147-wrap'); + LN_dstu28147_wrap = AnsiString('DSTU Gost 28147-2009 key wrap'); + NID_dstu28147_wrap = 1155; + + SN_hmacWithDstu34311 = AnsiString('hmacWithDstu34311'); + LN_hmacWithDstu34311 = AnsiString('HMAC DSTU Gost 34311-95'); + NID_hmacWithDstu34311 = 1156; + + SN_dstu34311 = AnsiString('dstu34311'); + LN_dstu34311 = AnsiString('DSTU Gost 34311-95'); + NID_dstu34311 = 1157; + + SN_dstu4145le = AnsiString('dstu4145le'); + LN_dstu4145le = AnsiString('DSTU 4145-2002 little endian'); + NID_dstu4145le = 1158; + + SN_dstu4145be = AnsiString('dstu4145be'); + LN_dstu4145be = AnsiString('DSTU 4145-2002 big endian'); + NID_dstu4145be = 1159; + + SN_uacurve0 = AnsiString('uacurve0'); + LN_uacurve0 = AnsiString('DSTU curve 0'); + NID_uacurve0 = 1160; + + SN_uacurve1 = AnsiString('uacurve1'); + LN_uacurve1 = AnsiString('DSTU curve 1'); + NID_uacurve1 = 1161; + + SN_uacurve2 = AnsiString('uacurve2'); + LN_uacurve2 = AnsiString('DSTU curve 2'); + NID_uacurve2 = 1162; + + SN_uacurve3 = AnsiString('uacurve3'); + LN_uacurve3 = AnsiString('DSTU curve 3'); + NID_uacurve3 = 1163; + + SN_uacurve4 = AnsiString('uacurve4'); + LN_uacurve4 = AnsiString('DSTU curve 4'); + NID_uacurve4 = 1164; + + SN_uacurve5 = AnsiString('uacurve5'); + LN_uacurve5 = AnsiString('DSTU curve 5'); + NID_uacurve5 = 1165; + + SN_uacurve6 = AnsiString('uacurve6'); + LN_uacurve6 = AnsiString('DSTU curve 6'); + NID_uacurve6 = 1166; + + SN_uacurve7 = AnsiString('uacurve7'); + LN_uacurve7 = AnsiString('DSTU curve 7'); + NID_uacurve7 = 1167; + + SN_uacurve8 = AnsiString('uacurve8'); + LN_uacurve8 = AnsiString('DSTU curve 8'); + NID_uacurve8 = 1168; + + SN_uacurve9 = AnsiString('uacurve9'); + LN_uacurve9 = AnsiString('DSTU curve 9'); + NID_uacurve9 = 1169; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} + +{$ELSE} + +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_objects.pas b/src/opensslHdrs/IdOpenSSLHeaders_objects.pas new file mode 100644 index 0000000..e45db09 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_objects.pas @@ -0,0 +1,438 @@ +(* This unit was generated from the source file objects.h2pas +It should not be modified directly. All changes should be made to objects.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_objects; + + +interface + +// Headers for OpenSSL 1.1.1 +// objects.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ; + +type + obj_name_st = record + type_: TOpenSSL_C_INT; + alias: TOpenSSL_C_INT; + name: PAnsiChar; + data: PAnsiChar; + end; + OBJ_NAME = obj_name_st; + POBJ_NAME = ^OBJ_NAME; + +//# define OBJ_create_and_add_object(a,b,c) OBJ_create(a,b,c) + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM OBJ_NAME_init} +{$EXTERNALSYM OBJ_NAME_get} +{$EXTERNALSYM OBJ_NAME_add} +{$EXTERNALSYM OBJ_NAME_remove} +{$EXTERNALSYM OBJ_NAME_cleanup} +{$EXTERNALSYM OBJ_dup} +{$EXTERNALSYM OBJ_nid2obj} +{$EXTERNALSYM OBJ_nid2ln} +{$EXTERNALSYM OBJ_nid2sn} +{$EXTERNALSYM OBJ_obj2nid} +{$EXTERNALSYM OBJ_txt2obj} +{$EXTERNALSYM OBJ_obj2txt} +{$EXTERNALSYM OBJ_txt2nid} +{$EXTERNALSYM OBJ_ln2nid} +{$EXTERNALSYM OBJ_sn2nid} +{$EXTERNALSYM OBJ_cmp} +{$EXTERNALSYM OBJ_new_nid} +{$EXTERNALSYM OBJ_add_object} +{$EXTERNALSYM OBJ_create} +{$EXTERNALSYM OBJ_create_objects} +{$EXTERNALSYM OBJ_length} +{$EXTERNALSYM OBJ_get0_data} +{$EXTERNALSYM OBJ_find_sigid_algs} +{$EXTERNALSYM OBJ_find_sigid_by_algs} +{$EXTERNALSYM OBJ_add_sigid} +{$EXTERNALSYM OBJ_sigid_free} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function OBJ_NAME_init: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OBJ_NAME_get(const name: PAnsiChar; type_: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibCrypto; +function OBJ_NAME_add(const name: PAnsiChar; type_: TOpenSSL_C_INT; const data: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OBJ_NAME_remove(const name: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure OBJ_NAME_cleanup(type_: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function OBJ_dup(const o: PASN1_OBJECT): PASN1_OBJECT; cdecl; external CLibCrypto; +function OBJ_nid2obj(n: TOpenSSL_C_INT): PASN1_OBJECT; cdecl; external CLibCrypto; +function OBJ_nid2ln(n: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibCrypto; +function OBJ_nid2sn(n: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibCrypto; +function OBJ_obj2nid(const o: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OBJ_txt2obj(const s: PAnsiChar; no_name: TOpenSSL_C_INT): PASN1_OBJECT; cdecl; external CLibCrypto; +function OBJ_obj2txt(buf: PAnsiChar; buf_len: TOpenSSL_C_INT; const a: PASN1_OBJECT; no_name: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OBJ_txt2nid(const s: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OBJ_ln2nid(const s: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OBJ_sn2nid(const s: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OBJ_cmp(const a: PASN1_OBJECT; const b: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OBJ_new_nid(num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OBJ_add_object(const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OBJ_create(const oid: PAnsiChar; const sn: PAnsiChar; const ln: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OBJ_create_objects(in_: PBIO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OBJ_length(const obj: PASN1_OBJECT): TOpenSSL_C_SIZET; cdecl; external CLibCrypto; +function OBJ_get0_data(const obj: PASN1_OBJECT): PByte; cdecl; external CLibCrypto; +function OBJ_find_sigid_algs(signid: TOpenSSL_C_INT; pdig_nid: POpenSSL_C_INT; ppkey_nid: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OBJ_find_sigid_by_algs(psignid: POpenSSL_C_INT; dig_nid: TOpenSSL_C_INT; pkey_nid: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OBJ_add_sigid(signid: TOpenSSL_C_INT; dig_id: TOpenSSL_C_INT; pkey_id: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure OBJ_sigid_free; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_OBJ_NAME_init: TOpenSSL_C_INT; cdecl; +function Load_OBJ_NAME_get(const name: PAnsiChar; type_: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_OBJ_NAME_add(const name: PAnsiChar; type_: TOpenSSL_C_INT; const data: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_OBJ_NAME_remove(const name: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_OBJ_NAME_cleanup(type_: TOpenSSL_C_INT); cdecl; +function Load_OBJ_dup(const o: PASN1_OBJECT): PASN1_OBJECT; cdecl; +function Load_OBJ_nid2obj(n: TOpenSSL_C_INT): PASN1_OBJECT; cdecl; +function Load_OBJ_nid2ln(n: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_OBJ_nid2sn(n: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_OBJ_obj2nid(const o: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_OBJ_txt2obj(const s: PAnsiChar; no_name: TOpenSSL_C_INT): PASN1_OBJECT; cdecl; +function Load_OBJ_obj2txt(buf: PAnsiChar; buf_len: TOpenSSL_C_INT; const a: PASN1_OBJECT; no_name: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_OBJ_txt2nid(const s: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_OBJ_ln2nid(const s: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_OBJ_sn2nid(const s: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_OBJ_cmp(const a: PASN1_OBJECT; const b: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_OBJ_new_nid(num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_OBJ_add_object(const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_OBJ_create(const oid: PAnsiChar; const sn: PAnsiChar; const ln: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_OBJ_create_objects(in_: PBIO): TOpenSSL_C_INT; cdecl; +function Load_OBJ_length(const obj: PASN1_OBJECT): TOpenSSL_C_SIZET; cdecl; +function Load_OBJ_get0_data(const obj: PASN1_OBJECT): PByte; cdecl; +function Load_OBJ_find_sigid_algs(signid: TOpenSSL_C_INT; pdig_nid: POpenSSL_C_INT; ppkey_nid: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_OBJ_find_sigid_by_algs(psignid: POpenSSL_C_INT; dig_nid: TOpenSSL_C_INT; pkey_nid: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_OBJ_add_sigid(signid: TOpenSSL_C_INT; dig_id: TOpenSSL_C_INT; pkey_id: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_OBJ_sigid_free; cdecl; + +var + OBJ_NAME_init: function : TOpenSSL_C_INT; cdecl = Load_OBJ_NAME_init; + OBJ_NAME_get: function (const name: PAnsiChar; type_: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_OBJ_NAME_get; + OBJ_NAME_add: function (const name: PAnsiChar; type_: TOpenSSL_C_INT; const data: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_OBJ_NAME_add; + OBJ_NAME_remove: function (const name: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_OBJ_NAME_remove; + OBJ_NAME_cleanup: procedure (type_: TOpenSSL_C_INT); cdecl = Load_OBJ_NAME_cleanup; + OBJ_dup: function (const o: PASN1_OBJECT): PASN1_OBJECT; cdecl = Load_OBJ_dup; + OBJ_nid2obj: function (n: TOpenSSL_C_INT): PASN1_OBJECT; cdecl = Load_OBJ_nid2obj; + OBJ_nid2ln: function (n: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_OBJ_nid2ln; + OBJ_nid2sn: function (n: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_OBJ_nid2sn; + OBJ_obj2nid: function (const o: PASN1_OBJECT): TOpenSSL_C_INT; cdecl = Load_OBJ_obj2nid; + OBJ_txt2obj: function (const s: PAnsiChar; no_name: TOpenSSL_C_INT): PASN1_OBJECT; cdecl = Load_OBJ_txt2obj; + OBJ_obj2txt: function (buf: PAnsiChar; buf_len: TOpenSSL_C_INT; const a: PASN1_OBJECT; no_name: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_OBJ_obj2txt; + OBJ_txt2nid: function (const s: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_OBJ_txt2nid; + OBJ_ln2nid: function (const s: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_OBJ_ln2nid; + OBJ_sn2nid: function (const s: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_OBJ_sn2nid; + OBJ_cmp: function (const a: PASN1_OBJECT; const b: PASN1_OBJECT): TOpenSSL_C_INT; cdecl = Load_OBJ_cmp; + OBJ_new_nid: function (num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_OBJ_new_nid; + OBJ_add_object: function (const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl = Load_OBJ_add_object; + OBJ_create: function (const oid: PAnsiChar; const sn: PAnsiChar; const ln: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_OBJ_create; + OBJ_create_objects: function (in_: PBIO): TOpenSSL_C_INT; cdecl = Load_OBJ_create_objects; + OBJ_length: function (const obj: PASN1_OBJECT): TOpenSSL_C_SIZET; cdecl = Load_OBJ_length; + OBJ_get0_data: function (const obj: PASN1_OBJECT): PByte; cdecl = Load_OBJ_get0_data; + OBJ_find_sigid_algs: function (signid: TOpenSSL_C_INT; pdig_nid: POpenSSL_C_INT; ppkey_nid: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_OBJ_find_sigid_algs; + OBJ_find_sigid_by_algs: function (psignid: POpenSSL_C_INT; dig_nid: TOpenSSL_C_INT; pkey_nid: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_OBJ_find_sigid_by_algs; + OBJ_add_sigid: function (signid: TOpenSSL_C_INT; dig_id: TOpenSSL_C_INT; pkey_id: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_OBJ_add_sigid; + OBJ_sigid_free: procedure ; cdecl = Load_OBJ_sigid_free; +{$ENDIF} +const + OBJ_length_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OBJ_get0_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_OBJ_NAME_init: TOpenSSL_C_INT; cdecl; +begin + OBJ_NAME_init := LoadLibCryptoFunction('OBJ_NAME_init'); + if not assigned(OBJ_NAME_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_NAME_init'); + Result := OBJ_NAME_init(); +end; + +function Load_OBJ_NAME_get(const name: PAnsiChar; type_: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + OBJ_NAME_get := LoadLibCryptoFunction('OBJ_NAME_get'); + if not assigned(OBJ_NAME_get) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_NAME_get'); + Result := OBJ_NAME_get(name,type_); +end; + +function Load_OBJ_NAME_add(const name: PAnsiChar; type_: TOpenSSL_C_INT; const data: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + OBJ_NAME_add := LoadLibCryptoFunction('OBJ_NAME_add'); + if not assigned(OBJ_NAME_add) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_NAME_add'); + Result := OBJ_NAME_add(name,type_,data); +end; + +function Load_OBJ_NAME_remove(const name: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + OBJ_NAME_remove := LoadLibCryptoFunction('OBJ_NAME_remove'); + if not assigned(OBJ_NAME_remove) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_NAME_remove'); + Result := OBJ_NAME_remove(name,type_); +end; + +procedure Load_OBJ_NAME_cleanup(type_: TOpenSSL_C_INT); cdecl; +begin + OBJ_NAME_cleanup := LoadLibCryptoFunction('OBJ_NAME_cleanup'); + if not assigned(OBJ_NAME_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_NAME_cleanup'); + OBJ_NAME_cleanup(type_); +end; + +function Load_OBJ_dup(const o: PASN1_OBJECT): PASN1_OBJECT; cdecl; +begin + OBJ_dup := LoadLibCryptoFunction('OBJ_dup'); + if not assigned(OBJ_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_dup'); + Result := OBJ_dup(o); +end; + +function Load_OBJ_nid2obj(n: TOpenSSL_C_INT): PASN1_OBJECT; cdecl; +begin + OBJ_nid2obj := LoadLibCryptoFunction('OBJ_nid2obj'); + if not assigned(OBJ_nid2obj) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_nid2obj'); + Result := OBJ_nid2obj(n); +end; + +function Load_OBJ_nid2ln(n: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + OBJ_nid2ln := LoadLibCryptoFunction('OBJ_nid2ln'); + if not assigned(OBJ_nid2ln) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_nid2ln'); + Result := OBJ_nid2ln(n); +end; + +function Load_OBJ_nid2sn(n: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + OBJ_nid2sn := LoadLibCryptoFunction('OBJ_nid2sn'); + if not assigned(OBJ_nid2sn) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_nid2sn'); + Result := OBJ_nid2sn(n); +end; + +function Load_OBJ_obj2nid(const o: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +begin + OBJ_obj2nid := LoadLibCryptoFunction('OBJ_obj2nid'); + if not assigned(OBJ_obj2nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_obj2nid'); + Result := OBJ_obj2nid(o); +end; + +function Load_OBJ_txt2obj(const s: PAnsiChar; no_name: TOpenSSL_C_INT): PASN1_OBJECT; cdecl; +begin + OBJ_txt2obj := LoadLibCryptoFunction('OBJ_txt2obj'); + if not assigned(OBJ_txt2obj) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_txt2obj'); + Result := OBJ_txt2obj(s,no_name); +end; + +function Load_OBJ_obj2txt(buf: PAnsiChar; buf_len: TOpenSSL_C_INT; const a: PASN1_OBJECT; no_name: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + OBJ_obj2txt := LoadLibCryptoFunction('OBJ_obj2txt'); + if not assigned(OBJ_obj2txt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_obj2txt'); + Result := OBJ_obj2txt(buf,buf_len,a,no_name); +end; + +function Load_OBJ_txt2nid(const s: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + OBJ_txt2nid := LoadLibCryptoFunction('OBJ_txt2nid'); + if not assigned(OBJ_txt2nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_txt2nid'); + Result := OBJ_txt2nid(s); +end; + +function Load_OBJ_ln2nid(const s: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + OBJ_ln2nid := LoadLibCryptoFunction('OBJ_ln2nid'); + if not assigned(OBJ_ln2nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_ln2nid'); + Result := OBJ_ln2nid(s); +end; + +function Load_OBJ_sn2nid(const s: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + OBJ_sn2nid := LoadLibCryptoFunction('OBJ_sn2nid'); + if not assigned(OBJ_sn2nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_sn2nid'); + Result := OBJ_sn2nid(s); +end; + +function Load_OBJ_cmp(const a: PASN1_OBJECT; const b: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +begin + OBJ_cmp := LoadLibCryptoFunction('OBJ_cmp'); + if not assigned(OBJ_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_cmp'); + Result := OBJ_cmp(a,b); +end; + +function Load_OBJ_new_nid(num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + OBJ_new_nid := LoadLibCryptoFunction('OBJ_new_nid'); + if not assigned(OBJ_new_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_new_nid'); + Result := OBJ_new_nid(num); +end; + +function Load_OBJ_add_object(const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +begin + OBJ_add_object := LoadLibCryptoFunction('OBJ_add_object'); + if not assigned(OBJ_add_object) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_add_object'); + Result := OBJ_add_object(obj); +end; + +function Load_OBJ_create(const oid: PAnsiChar; const sn: PAnsiChar; const ln: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + OBJ_create := LoadLibCryptoFunction('OBJ_create'); + if not assigned(OBJ_create) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_create'); + Result := OBJ_create(oid,sn,ln); +end; + +function Load_OBJ_create_objects(in_: PBIO): TOpenSSL_C_INT; cdecl; +begin + OBJ_create_objects := LoadLibCryptoFunction('OBJ_create_objects'); + if not assigned(OBJ_create_objects) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_create_objects'); + Result := OBJ_create_objects(in_); +end; + +function Load_OBJ_length(const obj: PASN1_OBJECT): TOpenSSL_C_SIZET; cdecl; +begin + OBJ_length := LoadLibCryptoFunction('OBJ_length'); + if not assigned(OBJ_length) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_length'); + Result := OBJ_length(obj); +end; + +function Load_OBJ_get0_data(const obj: PASN1_OBJECT): PByte; cdecl; +begin + OBJ_get0_data := LoadLibCryptoFunction('OBJ_get0_data'); + if not assigned(OBJ_get0_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_get0_data'); + Result := OBJ_get0_data(obj); +end; + +function Load_OBJ_find_sigid_algs(signid: TOpenSSL_C_INT; pdig_nid: POpenSSL_C_INT; ppkey_nid: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + OBJ_find_sigid_algs := LoadLibCryptoFunction('OBJ_find_sigid_algs'); + if not assigned(OBJ_find_sigid_algs) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_find_sigid_algs'); + Result := OBJ_find_sigid_algs(signid,pdig_nid,ppkey_nid); +end; + +function Load_OBJ_find_sigid_by_algs(psignid: POpenSSL_C_INT; dig_nid: TOpenSSL_C_INT; pkey_nid: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + OBJ_find_sigid_by_algs := LoadLibCryptoFunction('OBJ_find_sigid_by_algs'); + if not assigned(OBJ_find_sigid_by_algs) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_find_sigid_by_algs'); + Result := OBJ_find_sigid_by_algs(psignid,dig_nid,pkey_nid); +end; + +function Load_OBJ_add_sigid(signid: TOpenSSL_C_INT; dig_id: TOpenSSL_C_INT; pkey_id: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + OBJ_add_sigid := LoadLibCryptoFunction('OBJ_add_sigid'); + if not assigned(OBJ_add_sigid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_add_sigid'); + Result := OBJ_add_sigid(signid,dig_id,pkey_id); +end; + +procedure Load_OBJ_sigid_free; cdecl; +begin + OBJ_sigid_free := LoadLibCryptoFunction('OBJ_sigid_free'); + if not assigned(OBJ_sigid_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OBJ_sigid_free'); + OBJ_sigid_free(); +end; + + +procedure UnLoad; +begin + OBJ_NAME_init := Load_OBJ_NAME_init; + OBJ_NAME_get := Load_OBJ_NAME_get; + OBJ_NAME_add := Load_OBJ_NAME_add; + OBJ_NAME_remove := Load_OBJ_NAME_remove; + OBJ_NAME_cleanup := Load_OBJ_NAME_cleanup; + OBJ_dup := Load_OBJ_dup; + OBJ_nid2obj := Load_OBJ_nid2obj; + OBJ_nid2ln := Load_OBJ_nid2ln; + OBJ_nid2sn := Load_OBJ_nid2sn; + OBJ_obj2nid := Load_OBJ_obj2nid; + OBJ_txt2obj := Load_OBJ_txt2obj; + OBJ_obj2txt := Load_OBJ_obj2txt; + OBJ_txt2nid := Load_OBJ_txt2nid; + OBJ_ln2nid := Load_OBJ_ln2nid; + OBJ_sn2nid := Load_OBJ_sn2nid; + OBJ_cmp := Load_OBJ_cmp; + OBJ_new_nid := Load_OBJ_new_nid; + OBJ_add_object := Load_OBJ_add_object; + OBJ_create := Load_OBJ_create; + OBJ_create_objects := Load_OBJ_create_objects; + OBJ_length := Load_OBJ_length; + OBJ_get0_data := Load_OBJ_get0_data; + OBJ_find_sigid_algs := Load_OBJ_find_sigid_algs; + OBJ_find_sigid_by_algs := Load_OBJ_find_sigid_by_algs; + OBJ_add_sigid := Load_OBJ_add_sigid; + OBJ_sigid_free := Load_OBJ_sigid_free; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_objectserr.pas b/src/opensslHdrs/IdOpenSSLHeaders_objectserr.pas new file mode 100644 index 0000000..d5338b9 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_objectserr.pas @@ -0,0 +1,116 @@ +(* This unit was generated from the source file objectserr.h2pas +It should not be modified directly. All changes should be made to objectserr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_objectserr; + + +interface + +// Headers for OpenSSL 1.1.1 +// objectserr.h + + +uses + IdSSLOpenSSLAPI; + +const + (* + * OBJ function codes. + *) + OBJ_F_OBJ_ADD_OBJECT = 105; + OBJ_F_OBJ_ADD_SIGID = 107; + OBJ_F_OBJ_CREATE = 100; + OBJ_F_OBJ_DUP = 101; + OBJ_F_OBJ_NAME_NEW_INDEX = 106; + OBJ_F_OBJ_NID2LN = 102; + OBJ_F_OBJ_NID2OBJ = 103; + OBJ_F_OBJ_NID2SN = 104; + OBJ_F_OBJ_TXT2OBJ = 108; + + (* + * OBJ reason codes. + *) + OBJ_R_OID_EXISTS = 102; + OBJ_R_UNKNOWN_NID = 101; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_OBJ_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_OBJ_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_OBJ_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_OBJ_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_OBJ_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_OBJ_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_OBJ_strings := LoadLibCryptoFunction('ERR_load_OBJ_strings'); + if not assigned(ERR_load_OBJ_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_OBJ_strings'); + Result := ERR_load_OBJ_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_OBJ_strings := Load_ERR_load_OBJ_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_ocsperr.pas b/src/opensslHdrs/IdOpenSSLHeaders_ocsperr.pas new file mode 100644 index 0000000..09baa91 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_ocsperr.pas @@ -0,0 +1,147 @@ +(* This unit was generated from the source file ocsperr.h2pas +It should not be modified directly. All changes should be made to ocsperr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_ocsperr; + + +interface + +// Headers for OpenSSL 1.1.1 +// ocsperr.h + + +uses + IdSSLOpenSSLAPI; + +const + (* + * OCSP function codes. + *) + OCSP_F_D2I_OCSP_NONCE = 102; + OCSP_F_OCSP_BASIC_ADD1_STATUS = 103; + OCSP_F_OCSP_BASIC_SIGN = 104; + OCSP_F_OCSP_BASIC_SIGN_CTX = 119; + OCSP_F_OCSP_BASIC_VERIFY = 105; + OCSP_F_OCSP_CERT_ID_NEW = 101; + OCSP_F_OCSP_CHECK_DELEGATED = 106; + OCSP_F_OCSP_CHECK_IDS = 107; + OCSP_F_OCSP_CHECK_ISSUER = 108; + OCSP_F_OCSP_CHECK_VALIDITY = 115; + OCSP_F_OCSP_MATCH_ISSUERID = 109; + OCSP_F_OCSP_PARSE_URL = 114; + OCSP_F_OCSP_REQUEST_SIGN = 110; + OCSP_F_OCSP_REQUEST_VERIFY = 116; + OCSP_F_OCSP_RESPONSE_GET1_BASIC = 111; + OCSP_F_PARSE_HTTP_LINE1 = 118; + + (* + * OCSP reason codes. + *) + OCSP_R_CERTIFICATE_VERIFY_ERROR = 101; + OCSP_R_DIGEST_ERR = 102; + OCSP_R_ERROR_IN_NEXTUPDATE_FIELD = 122; + OCSP_R_ERROR_IN_THISUPDATE_FIELD = 123; + OCSP_R_ERROR_PARSING_URL = 121; + OCSP_R_MISSING_OCSPSIGNING_USAGE = 103; + OCSP_R_NEXTUPDATE_BEFORE_THISUPDATE = 124; + OCSP_R_NOT_BASIC_RESPONSE = 104; + OCSP_R_NO_CERTIFICATES_IN_CHAIN = 105; + OCSP_R_NO_RESPONSE_DATA = 108; + OCSP_R_NO_REVOKED_TIME = 109; + OCSP_R_NO_SIGNER_KEY = 130; + OCSP_R_PRIVATE_KEY_DOES_NOT_MATCH_CERTIFICATE = 110; + OCSP_R_REQUEST_NOT_SIGNED = 128; + OCSP_R_RESPONSE_CONTAINS_NO_REVOCATION_DATA = 111; + OCSP_R_ROOT_CA_NOT_TRUSTED = 112; + OCSP_R_SERVER_RESPONSE_ERROR = 114; + OCSP_R_SERVER_RESPONSE_PARSE_ERROR = 115; + OCSP_R_SIGNATURE_FAILURE = 117; + OCSP_R_SIGNER_CERTIFICATE_NOT_FOUND = 118; + OCSP_R_STATUS_EXPIRED = 125; + OCSP_R_STATUS_NOT_YET_VALID = 126; + OCSP_R_STATUS_TOO_OLD = 127; + OCSP_R_UNKNOWN_MESSAGE_DIGEST = 119; + OCSP_R_UNKNOWN_NID = 120; + OCSP_R_UNSUPPORTED_REQUESTORNAME_TYPE = 129; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_OCSP_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_OCSP_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_OCSP_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_OCSP_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_OCSP_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_OCSP_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_OCSP_strings := LoadLibCryptoFunction('ERR_load_OCSP_strings'); + if not assigned(ERR_load_OCSP_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_OCSP_strings'); + Result := ERR_load_OCSP_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_OCSP_strings := Load_ERR_load_OCSP_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_ossl_typ.pas b/src/opensslHdrs/IdOpenSSLHeaders_ossl_typ.pas new file mode 100644 index 0000000..fac80f9 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_ossl_typ.pas @@ -0,0 +1,583 @@ +(* This unit was generated from the source file ossl_typ.h2pas +It should not be modified directly. All changes should be made to ossl_typ.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_ossl_typ; + + +interface + +// Headers for OpenSSL 1.1.1 +// ossl_typ.h + + +uses + IdSSLOpenSSLAPI; + +// the following emits are a workaround to a +// name conflict with Win32 API header files +(*$HPPEMIT '#include <time.h>'*) +{$IFDEF WINDOWS} +(*$HPPEMIT '#undef X509_NAME'*) +(*$HPPEMIT '#undef OCSP_RESPONSE'*) +(*$HPPEMIT '#undef OCSP_REQUEST'*) +{$ENDIF} + +type +// moved from unit "asn1" to prevent circular references + asn1_string_st = record + length: TOpenSSL_C_INT; + type_: TOpenSSL_C_INT; + data: PByte; + (* + * The value of the following field depends on the type being held. Itocsp_response + * is mostly being used for BIT_STRING so if the input data has a + * non-zero 'unused bits' value, it will be handled correctly + *) + flags: TOpenSSL_C_LONG; + end; + + // moved from asn1 + ASN1_VALUE_st = type Pointer; + ASN1_VALUE = ASN1_VALUE_st; + PASN1_VALUE = ^ASN1_VALUE; + PPASN1_VALUE = ^PASN1_VALUE; + + // moved from e_os2 + ossl_ssize_t = type {$IFDEF WIN64}TOpenSSL_C_INT64{$ELSE}TOpenSSL_C_INT{$ENDIF}; + + asn1_object_st = type Pointer; + ASN1_OBJECT = asn1_object_st; + PASN1_OBJECT = ^ASN1_OBJECT; + PPASN1_OBJECT = ^PASN1_OBJECT; + + ASN1_INTEGER = type asn1_string_st; + PASN1_INTEGER = ^ASN1_INTEGER; + PPASN1_INTEGER = ^PASN1_INTEGER; + + ASN1_ENUMERATED = type asn1_string_st; + PASN1_ENUMERATED = ^ASN1_ENUMERATED; + + ASN1_BIT_STRING = type asn1_string_st; + PASN1_BIT_STRING = ^ASN1_BIT_STRING; + PPASN1_BIT_STRING = ^PASN1_BIT_STRING; + + ASN1_OCTET_STRING = type asn1_string_st; + PASN1_OCTET_STRING = ^ASN1_OCTET_STRING; + PPASN1_OCTET_STRING = ^PASN1_OCTET_STRING; + + ASN1_PRINTABLESTRING = type asn1_string_st; + PASN1_PRINTABLESTRING = ^ASN1_PRINTABLESTRING; + + ASN1_T61STRING = type asn1_string_st; + PASN1_T61STRING = ^ASN1_T61STRING; + + ASN1_IA5STRING = type asn1_string_st; + PASN1_IA5STRING = ^ASN1_IA5STRING; + + ASN1_GENERALSTRING = type asn1_string_st; + PASN1_GENERALSTRING = ^ASN1_GENERALSTRING; + + ASN1_UNIVERSALSTRING = type asn1_string_st; + PASN1_UNIVERSALSTRING = ^ASN1_UNIVERSALSTRING; + + ASN1_BMPSTRING = type asn1_string_st; + PASN1_BMPSTRING = ^ASN1_BMPSTRING; + + ASN1_UTCTIME = type asn1_string_st; + PASN1_UTCTIME = ^ASN1_UTCTIME; + PPASN1_UTCTIME = ^PASN1_UTCTIME; + + ASN1_TIME = type asn1_string_st; + PASN1_TIME = ^ASN1_TIME; + PPASN1_TIME = ^PASN1_TIME; + + ASN1_GENERALIZEDTIME = type asn1_string_st; + PASN1_GENERALIZEDTIME = ^ASN1_GENERALIZEDTIME; + PPASN1_GENERALIZEDTIME = ^PASN1_GENERALIZEDTIME; + + ASN1_VISIBLESTRING = type asn1_string_st; + PASN1_VISIBLESTRING = ^ASN1_VISIBLESTRING; + + ASN1_UTF8STRING = type asn1_string_st; + PASN1_UTF8STRING = ^ASN1_UTF8STRING; + + ASN1_STRING = type asn1_string_st; + PASN1_STRING = ^ASN1_STRING; + PPASN1_STRING = ^PASN1_STRING; + + ASN1_BOOLEAN = type TOpenSSL_C_INT; + PASN1_BOOLEAN = ^ASN1_BOOLEAN; + + ASN1_NULL = type TOpenSSL_C_INT; + PASN1_NULL = ^ASN1_NULL; + + + ASN1_ITEM_st = type Pointer; + ASN1_ITEM = ASN1_ITEM_st; + PASN1_ITEM = ^ASN1_ITEM; + + asn1_pctx_st = type Pointer; + ASN1_PCTX = asn1_pctx_st; + PASN1_PCTX = ^ASN1_PCTX; + + asn1_sctx_st = type Pointer; + ASN1_SCTX = asn1_sctx_st; + PASN1_SCTX = ^ASN1_SCTX; + + dane_st = type Pointer; + bio_st = type Pointer; + BIO = bio_st; + PBIO = ^BIO; + PPBIO = ^PBIO; + bignum_st = type Pointer; + BIGNUM = bignum_st; + PBIGNUM = ^BIGNUM; + PPBIGNUM = ^PBIGNUM; + bignum_ctx = type Pointer; + BN_CTX = bignum_ctx; + PBN_CTX = ^BN_CTX; + bn_blinding_st = type Pointer; + BN_BLINDING = bn_blinding_st; + PBN_BLINDING = ^BN_BLINDING; + bn_mont_ctx_st = type Pointer; + BN_MONT_CTX = bn_mont_ctx_st; + PBN_MONT_CTX = ^BN_MONT_CTX; + bn_recp_ctx_st = type Pointer; + BN_RECP_CTX = bn_recp_ctx_st; + PBN_RECP_CTX = ^BN_RECP_CTX; + bn_gencb_st = type Pointer; + BN_GENCB = bn_gencb_st; + PBN_GENCB = ^BN_GENCB; + + buf_mem_st = type Pointer; + BUF_MEM = buf_mem_st; + PBUF_MEM = ^BUF_MEM; + + evp_cipher_st = type Pointer; + EVP_CIPHER = evp_cipher_st; + PEVP_CIPHER = ^EVP_CIPHER; + PPEVP_CIPHER = ^PEVP_CIPHER; + evp_cipher_ctx_st = type Pointer; + EVP_CIPHER_CTX = evp_cipher_ctx_st; + PEVP_CIPHER_CTX = ^EVP_CIPHER_CTX; + evp_md_st = type Pointer; + EVP_MD = evp_md_st; + PEVP_MD = ^EVP_MD; + PPEVP_MD = ^PEVP_MD; + evp_md_ctx_st = type Pointer; + EVP_MD_CTX = evp_md_ctx_st; + PEVP_MD_CTX = ^EVP_MD_CTX; + evp_pkey_st = type Pointer; + EVP_PKEY = evp_pkey_st; + PEVP_PKEY = ^EVP_PKEY; + PPEVP_PKEY = ^PEVP_PKEY; + + evp_pkey_asn1_method_st = type Pointer; + EVP_PKEY_ASN1_METHOD = evp_pkey_asn1_method_st; + PEVP_PKEY_ASN1_METHOD = ^EVP_PKEY_ASN1_METHOD; + PPEVP_PKEY_ASN1_METHOD = ^PEVP_PKEY_ASN1_METHOD; + + evp_pkey_method_st = type Pointer; + EVP_PKEY_METHOD = evp_pkey_method_st; + PEVP_PKEY_METHOD = ^EVP_PKEY_METHOD; + PPEVP_PKEY_METHOD = ^PEVP_PKEY_METHOD; + evp_pkey_ctx_st = type Pointer; + EVP_PKEY_CTX = evp_pkey_ctx_st; + PEVP_PKEY_CTX = ^EVP_PKEY_CTX; + PPEVP_PKEY_CTX = ^PEVP_PKEY_CTX; + + evp_Encode_Ctx_st = type Pointer; + EVP_ENCODE_CTX = evp_Encode_Ctx_st; + PEVP_ENCODE_CTX = ^EVP_ENCODE_CTX; + + hmac_ctx_st = type Pointer; + HMAC_CTX = hmac_ctx_st; + PHMAC_CTX = ^HMAC_CTX; + + dh_st = type Pointer; + DH = dh_st; + PDH = ^DH; + PPDH = ^PDH; + dh_method_st = type Pointer; + DH_METHOD = dh_method_st; + PDH_METHOD = ^DH_METHOD; + + dsa_st = type Pointer; + DSA = dsa_st; + PDSA = ^DSA; + PPDSA = ^PDSA; + dsa_method_st = type Pointer; + DSA_METHOD = dsa_method_st; + PDSA_METHOD = ^DSA_METHOD; + + rsa_st = type Pointer; + RSA = rsa_st; + PRSA = ^RSA; + PPRSA = ^PRSA; + rsa_meth_st = type Pointer; + RSA_METHOD = rsa_meth_st; + PRSA_METHOD = ^RSA_METHOD; + + ec_key_st = type Pointer; + EC_KEY = ec_key_st; + PEC_KEY = ^EC_KEY; + PPEC_KEY = ^PEC_KEY; + ec_key_method_st = type Pointer; + EC_KEY_METHOD = ec_key_method_st; + PEC_KEY_METHOD = ^EC_KEY_METHOD; + + rand_meth_st = type Pointer; + RAND_METHOD = rand_meth_st; + PRAND_METHOD = ^RAND_METHOD; + rand_drbg_st = type Pointer; + RAND_DRBG = rand_drbg_st; + PRAND_DRBG = ^RAND_DRBG; + + ssl_dane_st = type Pointer; + SSL_DANE = ssl_dane_st; + PSSL_DANE = ^SSL_DANE; + x509_st = type Pointer; + X509 = x509_st; + PX509 = ^X509; + PPX509 = ^PX509; + Stack_Of_X509 = type Pointer; + PStack_Of_X509 = ^Stack_Of_X509; + PPStack_Of_X509 = ^PStack_Of_X509; + X509_crl_st = type Pointer; + X509_CRL = X509_crl_st; + PX509_CRL = ^X509_CRL; + PPX509_CRL = ^PX509_CRL; + x509_crl_method_st = type Pointer; + X509_CRL_METHOD = x509_crl_method_st; + PX509_CRL_METHOD = ^X509_CRL_METHOD; + x509_revoked_st = type Pointer; + X509_REVOKED = x509_revoked_st; + PX509_REVOKED = ^X509_REVOKED; + PPX509_REVOKED = ^PX509_REVOKED; + X509_name_st = type Pointer; + X509_NAME = X509_name_st; + PX509_NAME = ^X509_NAME; + PPX509_NAME = ^PX509_NAME; + X509_pubkey_st = type Pointer; + X509_PUBKEY = X509_pubkey_st; + PX509_PUBKEY = ^X509_PUBKEY; + PPX509_PUBKEY = ^PX509_PUBKEY; + x509_store_st = type Pointer; + X509_STORE = x509_store_st; + PX509_STORE = ^X509_STORE; + x509_store_ctx_st = type Pointer; + X509_STORE_CTX = x509_store_ctx_st; + PX509_STORE_CTX = ^X509_STORE_CTX; + + x509_object_st = type Pointer; + X509_OBJECT = x509_object_st; + PX509_OBJECT = ^X509_OBJECT; + x509_lookup_st = type Pointer; + X509_LOOKUP = x509_lookup_st; + PX509_LOOKUP = ^X509_LOOKUP; + x509_lookup_method_st = type Pointer; + X509_LOOKUP_METHOD = x509_lookup_method_st; + PX509_LOOKUP_METHOD = ^X509_LOOKUP_METHOD; + X509_VERIFY_PARAM_st = type Pointer; + X509_VERIFY_PARAM = X509_VERIFY_PARAM_st; + PX509_VERIFY_PARAM = ^X509_VERIFY_PARAM; + + x509_sig_info_st = type Pointer; + X509_SIG_INFO = x509_sig_info_st; + PX509_SIG_INFO = ^X509_SIG_INFO; + + pkcs8_priv_key_info_st = type Pointer; + PKCS8_PRIV_KEY_INFO = pkcs8_priv_key_info_st; + PPKCS8_PRIV_KEY_INFO = ^PKCS8_PRIV_KEY_INFO; + PPPKCS8_PRIV_KEY_INFO = ^PPKCS8_PRIV_KEY_INFO; + +// moved from x509 to prevent circular references + X509_REQ = type Pointer; // X509_req_st + PX509_REQ = ^X509_REQ; + PPX509_REQ = ^PX509_REQ; + +// moved from x509v3 to prevent circular references + (* Context specific info *) + v3_ext_ctx = record + flags: TOpenSSL_C_INT; + issuer_cert: PX509; + subject_cert: PX509; + subject_req: PX509_REQ; + crl: PX509_CRL; + db_meth: Pointer; //PX509V3_CONF_METHOD; + db: Pointer; + (* Maybe more here *) + end; +// v3_ext_ctx = type Pointer; + X509V3_CTX = v3_ext_ctx; + PX509V3_CTX = ^X509V3_CTX; + conf_st = type Pointer; + CONF = conf_st; + PCONF = ^CONF; + ossl_init_settings_st = type Pointer; + OPENSSL_INIT_SETTINGS = ossl_init_settings_st; + POPENSSL_INIT_SETTINGS = ^OPENSSL_INIT_SETTINGS; + + ui_st = type Pointer; + UI = ui_st; + PUI = ^UI; + ui_method_st = type Pointer; + UI_METHOD = ui_method_st; + PUI_METHOD = ^UI_METHOD; + + engine_st = type Pointer; + ENGINE = engine_st; + PENGINE = ^ENGINE; + PPENGINE = ^PENGINE; + ssl_st = type Pointer; + SSL = ssl_st; + PSSL = ^SSL; + ssl_ctx_st = type Pointer; + SSL_CTX = ssl_ctx_st; + PSSL_CTX = ^SSL_CTX; + PPSSL_CTX = ^PSSL_CTX; + + comp_ctx_st = type Pointer; + COMP_CTX = comp_ctx_st; + PCOMP_CTX = ^COMP_CTX; + comp_method_st = type Pointer; + COMP_METHOD = comp_method_st; + PCOMP_METHOD = ^COMP_METHOD; + + X509_POLICY_NODE_st = type Pointer; + X509_POLICY_NODE = X509_POLICY_NODE_st; + PX509_POLICY_NODE = ^X509_POLICY_NODE; + X509_POLICY_LEVEL_st = type Pointer; + X509_POLICY_LEVEL = X509_POLICY_LEVEL_st; + PX509_POLICY_LEVEL = ^X509_POLICY_LEVEL; + X509_POLICY_TREE_st = type Pointer; + X509_POLICY_TREE = X509_POLICY_TREE_st; + PX509_POLICY_TREE = ^X509_POLICY_TREE; + X509_POLICY_CACHE_st = type Pointer; + X509_POLICY_CACHE = X509_POLICY_CACHE_st; + PX509_POLICY_CACHE = ^X509_POLICY_CACHE; + + AUTHORITY_KEYID_st = type Pointer; + AUTHORITY_KEYID = AUTHORITY_KEYID_st; + PAUTHORITY_KEYID = ^AUTHORITY_KEYID; + DIST_POINT_st = type Pointer; + DIST_POINT = DIST_POINT_st; + PDIST_POINT = ^DIST_POINT; + ISSUING_DIST_POINT_st = type Pointer; + ISSUING_DIST_POINT = ISSUING_DIST_POINT_st; + PISSUING_DIST_POINT = ^ISSUING_DIST_POINT; + NAME_CONSTRAINTS_st = type Pointer; + NAME_CONSTRAINTS = NAME_CONSTRAINTS_st; + PNAME_CONSTRAINTS = ^NAME_CONSTRAINTS; + + crypto_ex_data_st = type Pointer; + CRYPTO_EX_DATA = crypto_ex_data_st; + PCRYPTO_EX_DATA = ^CRYPTO_EX_DATA; + + ocsp_req_ctx_st = type Pointer; + OCSP_REQ_CTX = ocsp_req_ctx_st; + POCSP_REQ_CTX = ^OCSP_REQ_CTX; + ocsp_response_st = type Pointer; + OCSP_RESPONSE = ocsp_response_st; + POCSP_RESPONSE = ^OCSP_RESPONSE; + ocsp_responder_id_st = type Pointer; + OCSP_RESPID = ocsp_responder_id_st; + POCSP_RESPID = ^OCSP_RESPID; + + sct_st = type Pointer; + SCT = sct_st; + PSCT = ^SCT; + sct_ctx_st = type Pointer; + SCT_CTX = sct_ctx_st; + PSCT_CTX = ^SCT_CTX; + ctlog_st = type Pointer; + CTLOG = ctlog_st; + PCTLOG = ^CTLOG; + ctlog_store_st = type Pointer; + CTLOG_STORE = ctlog_store_st; + PCTLOG_STORE = ^CTLOG_STORE; + ct_policy_eval_ctx_st = type Pointer; + CT_POLICY_EVAL_CTX = ct_policy_eval_ctx_st; + PCT_POLICY_EVAL_CTX = ^CT_POLICY_EVAL_CTX; + + ossl_store_info_st = type Pointer; + OSSL_STORE_INFO = ossl_store_info_st; + POSSL_STORE_INFO = ^OSSL_STORE_INFO; + ossl_store_search_st = type Pointer; + OSSL_STORE_SEARCH = ossl_store_search_st; + POSSL_STORE_SEARCH = ^OSSL_STORE_SEARCH; + +// moved from unit "asn1" to prevent circular references' + +const + V_ASN1_UNIVERSAL = $00; + V_ASN1_APPLICATION = $40; + V_ASN1_CONTEXT_SPECIFIC = $80; + V_ASN1_PRIVATE = $c0; + + V_ASN1_CONSTRUCTED = $20; + V_ASN1_PRIMITIVE_TAG = $1f; + V_ASN1_PRIMATIVE_TAG = V_ASN1_PRIMITIVE_TAG; + + V_ASN1_APP_CHOOSE = -2; (* let the recipient choose *) + V_ASN1_OTHER = -3; (* used in ASN1_TYPE *) + V_ASN1_ANY = -4; (* used in ASN1 template code *) + + V_ASN1_UNDEF = -1; + V_ASN1_EOC = 0; + V_ASN1_BOOLEAN = 1; + V_ASN1_INTEGER = 2; + V_ASN1_BIT_STRING = 3; + V_ASN1_OCTET_STRING = 4; + V_ASN1_NULL = 5; + V_ASN1_OBJECT = 6; + V_ASN1_OBJECT_DESCRIPTOR = 7; + V_ASN1_EXTERNAL = 8; + V_ASN1_REAL = 9; + V_ASN1_ENUMERATED = 10; + V_ASN1_UTF8STRING = 12; + V_ASN1_SEQUENCE = 16; + V_ASN1_SET = 17; + V_ASN1_NUMERICSTRING = 18; + V_ASN1_PRINTABLESTRING = 19; + V_ASN1_T61STRING = 20; + V_ASN1_TELETEXSTRING = 20; + V_ASN1_VIDEOTEXSTRING = 21; + V_ASN1_IA5STRING = 22; + V_ASN1_UTCTIME = 23; + V_ASN1_GENERALIZEDTIME = 24; + V_ASN1_GRAPHICSTRING = 25; + V_ASN1_ISO64STRING = 26; + V_ASN1_VISIBLESTRING = 26; + V_ASN1_GENERALSTRING = 27; + V_ASN1_UNIVERSALSTRING = 28; + V_ASN1_BMPSTRING = 30; + +type + asn1_type_st = record + case type_: TOpenSSL_C_INT of +// (ptr: PIdAnsichar); + V_ASN1_BOOLEAN: (boolean: ASN1_BOOLEAN); +// (asn1_string: PASN1_STRING); + V_ASN1_OBJECT: (object_: PASN1_OBJECT); + V_ASN1_INTEGER: (integer: PASN1_INTEGER); + V_ASN1_ENUMERATED: (enumerated: PASN1_ENUMERATED); + V_ASN1_BIT_STRING: (bit_string: PASN1_BIT_STRING); + V_ASN1_OCTET_STRING: (octet_string: PASN1_OCTET_STRING); + V_ASN1_PRINTABLESTRING: (printablestring: PASN1_PRINTABLESTRING); + V_ASN1_T61STRING: (t61string: PASN1_T61STRING); + V_ASN1_IA5STRING: (ia5string: PASN1_IA5STRING); + V_ASN1_GENERALSTRING: (generalstring: PASN1_GENERALSTRING); + V_ASN1_BMPSTRING: (bmpstring: PASN1_BMPSTRING); + V_ASN1_UNIVERSALSTRING: (universalstring: PASN1_UNIVERSALSTRING); + V_ASN1_UTCTIME: (utctime: PASN1_UTCTIME); + V_ASN1_GENERALIZEDTIME: (generalizedtime: PASN1_GENERALIZEDTIME); + V_ASN1_VISIBLESTRING: (visiblestring: PASN1_VISIBLESTRING); + V_ASN1_UTF8STRING: (utf8string: PASN1_UTF8STRING); + (* + * set and sequence are left complete and still contain the set or + * sequence bytes + *) + V_ASN1_SET: (set_: PASN1_STRING); + V_ASN1_SEQUENCE: (sequence: PASN1_STRING); +// (asn1_value: PASN1_VALUE); + +// V_ASN1_UNDEF: ; +// V_ASN1_EOC: ; +// V_ASN1_NULL: ; +// V_ASN1_OBJECT_DESCRIPTOR: ; +// V_ASN1_EXTERNAL: ; +// V_ASN1_REAL: ; +// V_ASN1_NUMERICSTRING: ; +// V_ASN1_TELETEXSTRING: ; +// V_ASN1_VIDEOTEXSTRING: ; +// V_ASN1_GRAPHICSTRING: ; +// V_ASN1_ISO64STRING: ; + end; + ASN1_TYPE = asn1_type_st; + PASN1_TYPE = ^ASN1_TYPE; + PPASN1_TYPE = ^PASN1_TYPE; + +// moved from unit "x509" to prevent circular references + X509_algor_st = record + algorithm: PASN1_OBJECT; + parameter: PASN1_TYPE; + end; (* X509_ALGOR *) + + X509_ALGOR = X509_algor_st; + PX509_ALGOR = ^X509_ALGOR; + PPX509_ALGOR = ^PX509_ALGOR; + + i2d_of_void = type Pointer; + Pi2d_of_void = ^i2d_of_void; + + d2i_of_void = type Pointer; + Pd2i_of_void = ^d2i_of_void; + + {OSSL_LIB_CTX is defined in types.h from 3.0.0 onwards} + // typedef struct ossl_lib_ctx_st OSSL_LIB_CTX; + ossl_lib_ctx_st = record + end; + POSSL_LIB_CTX = ^OSSL_LIB_CTX; + OSSL_LIB_CTX = ossl_lib_ctx_st; + + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} + +{$ELSE} + +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_pem.pas b/src/opensslHdrs/IdOpenSSLHeaders_pem.pas new file mode 100644 index 0000000..5fcdb1a --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_pem.pas @@ -0,0 +1,1117 @@ +(* This unit was generated from the source file pem.h2pas +It should not be modified directly. All changes should be made to pem.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_pem; + + +interface + +// Headers for OpenSSL 1.1.1 +// pem.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ec, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_pkcs7, + IdOpenSSLHeaders_x509; + +type + EVP_CIPHER_INFO = type Pointer; + PEVP_CIPHER_INFO = ^EVP_CIPHER_INFO; + +const + PEM_BUFSIZE = 1024; + + PEM_STRING_X509_OLD = AnsiString('X509 CERTIFICATE'); + PEM_STRING_X509 = AnsiString('CERTIFICATE'); + PEM_STRING_X509_TRUSTED = AnsiString('TRUSTED CERTIFICATE'); + PEM_STRING_X509_REQ_OLD = AnsiString('NEW CERTIFICATE REQUEST'); + PEM_STRING_X509_REQ = AnsiString('CERTIFICATE REQUEST'); + PEM_STRING_X509_CRL = AnsiString('X509 CRL'); + PEM_STRING_EVP_PKEY = AnsiString('ANY PRIVATE KEY'); + PEM_STRING_PUBLIC = AnsiString('PUBLIC KEY'); + PEM_STRING_RSA = AnsiString('RSA PRIVATE KEY'); + PEM_STRING_RSA_PUBLIC = AnsiString('RSA PUBLIC KEY'); + PEM_STRING_DSA = AnsiString('DSA PRIVATE KEY'); + PEM_STRING_DSA_PUBLIC = AnsiString('DSA PUBLIC KEY'); + PEM_STRING_PKCS7 = AnsiString('PKCS7'); + PEM_STRING_PKCS7_SIGNED = AnsiString('PKCS #7 SIGNED DATA'); + PEM_STRING_PKCS8 = AnsiString('ENCRYPTED PRIVATE KEY'); + PEM_STRING_PKCS8INF = AnsiString('PRIVATE KEY'); + PEM_STRING_DHPARAMS = AnsiString('DH PARAMETERS'); + PEM_STRING_DHXPARAMS = AnsiString('X9.42 DH PARAMETERS'); + PEM_STRING_SSL_SESSION = AnsiString('SSL SESSION PARAMETERS'); + PEM_STRING_DSAPARAMS = AnsiString('DSA PARAMETERS'); + PEM_STRING_ECDSA_PUBLIC = AnsiString('ECDSA PUBLIC KEY'); + PEM_STRING_ECPARAMETERS = AnsiString('EC PARAMETERS'); + PEM_STRING_ECPRIVATEKEY = AnsiString('EC PRIVATE KEY'); + PEM_STRING_PARAMETERS = AnsiString('PARAMETERS'); + PEM_STRING_CMS = AnsiString('CMS'); + + PEM_TYPE_ENCRYPTED = 10; + PEM_TYPE_MIC_ONLY = 20; + PEM_TYPE_MIC_CLEAR = 30; + PEM_TYPE_CLEAR = 40; + + PEM_FLAG_SECURE = $1; + PEM_FLAG_EAY_COMPATIBLE = $2; + PEM_FLAG_ONLY_B64 = $4; + + {Reason Codes} + PEM_R_BAD_BASE64_DECODE = 100; + PEM_R_BAD_DECRYPT = 101; + PEM_R_BAD_END_LINE = 102; + PEM_R_BAD_IV_CHARS = 103; + PEM_R_BAD_MAGIC_NUMBER = 116; + PEM_R_BAD_PASSWORD_READ = 104; + PEM_R_BAD_VERSION_NUMBER = 117; + PEM_R_BIO_WRITE_FAILURE = 118; + PEM_R_CIPHER_IS_NULL = 127; + PEM_R_ERROR_CONVERTING_PRIVATE_KEY = 115; + PEM_R_EXPECTING_PRIVATE_KEY_BLOB = 119; + PEM_R_EXPECTING_PUBLIC_KEY_BLOB = 120; + PEM_R_HEADER_TOO_LONG = 128; + PEM_R_INCONSISTENT_HEADER = 121; + PEM_R_KEYBLOB_HEADER_PARSE_ERROR = 122; + PEM_R_KEYBLOB_TOO_SHORT = 123; + PEM_R_NOT_DEK_INFO = 105; + PEM_R_NOT_ENCRYPTED = 106; + PEM_R_NOT_PROC_TYPE = 107; + PEM_R_NO_START_LINE = 108; + PEM_R_PROBLEMS_GETTING_PASSWORD = 109; + PEM_R_PUBLIC_KEY_NO_RSA = 110; + PEM_R_PVK_DATA_TOO_SHORT = 124; + PEM_R_PVK_TOO_SHORT = 125; + PEM_R_READ_KEY = 111; + PEM_R_SHORT_HEADER = 112; + PEM_R_UNSUPPORTED_CIPHER = 113; + PEM_R_UNSUPPORTED_ENCRYPTION = 114; + +type + PSTACK_OF_X509_INFO = pointer; + pem_password_cb = function(buf: PAnsiChar; size: TOpenSSL_C_INT; rwflag: TOpenSSL_C_INT; userdata: Pointer): TOpenSSL_C_INT; cdecl; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM PEM_get_EVP_CIPHER_INFO} +{$EXTERNALSYM PEM_do_header} +{$EXTERNALSYM PEM_read_bio} +{$EXTERNALSYM PEM_read_bio_ex} +{$EXTERNALSYM PEM_bytes_read_bio_secmem} +{$EXTERNALSYM PEM_write_bio} +{$EXTERNALSYM PEM_bytes_read_bio} +{$EXTERNALSYM PEM_ASN1_read_bio} +{$EXTERNALSYM PEM_ASN1_write_bio} +{$EXTERNALSYM PEM_X509_INFO_read_bio} +{$EXTERNALSYM PEM_X509_INFO_write_bio} +{$EXTERNALSYM PEM_SignInit} +{$EXTERNALSYM PEM_SignUpdate} +{$EXTERNALSYM PEM_SignFinal} +{$EXTERNALSYM PEM_def_callback} +{$EXTERNALSYM PEM_proc_type} +{$EXTERNALSYM PEM_dek_info} +{$EXTERNALSYM PEM_read_bio_X509} +{$EXTERNALSYM PEM_write_bio_X509} +{$EXTERNALSYM PEM_read_bio_X509_AUX} +{$EXTERNALSYM PEM_write_bio_X509_AUX} +{$EXTERNALSYM PEM_read_bio_X509_REQ} +{$EXTERNALSYM PEM_write_bio_X509_REQ} +{$EXTERNALSYM PEM_write_bio_X509_REQ_NEW} +{$EXTERNALSYM PEM_read_bio_X509_CRL} +{$EXTERNALSYM PEM_write_bio_X509_CRL} +{$EXTERNALSYM PEM_read_bio_PKCS7} +{$EXTERNALSYM PEM_write_bio_PKCS7} +{$EXTERNALSYM PEM_read_bio_PKCS8} +{$EXTERNALSYM PEM_write_bio_PKCS8} +{$EXTERNALSYM PEM_read_bio_PKCS8_PRIV_KEY_INFO} +{$EXTERNALSYM PEM_write_bio_PKCS8_PRIV_KEY_INFO} +{$EXTERNALSYM PEM_read_bio_RSAPrivateKey} +{$EXTERNALSYM PEM_write_bio_RSAPrivateKey} +{$EXTERNALSYM PEM_read_bio_RSAPublicKey} +{$EXTERNALSYM PEM_write_bio_RSAPublicKey} +{$EXTERNALSYM PEM_read_bio_RSA_PUBKEY} +{$EXTERNALSYM PEM_write_bio_RSA_PUBKEY} +{$EXTERNALSYM PEM_read_bio_DSAPrivateKey} +{$EXTERNALSYM PEM_write_bio_DSAPrivateKey} +{$EXTERNALSYM PEM_read_bio_DSA_PUBKEY} +{$EXTERNALSYM PEM_write_bio_DSA_PUBKEY} +{$EXTERNALSYM PEM_read_bio_DSAparams} +{$EXTERNALSYM PEM_write_bio_DSAparams} +{$EXTERNALSYM PEM_read_bio_ECPKParameters} +{$EXTERNALSYM PEM_write_bio_ECPKParameters} +{$EXTERNALSYM PEM_read_bio_ECPrivateKey} +{$EXTERNALSYM PEM_write_bio_ECPrivateKey} +{$EXTERNALSYM PEM_read_bio_EC_PUBKEY} +{$EXTERNALSYM PEM_write_bio_EC_PUBKEY} +{$EXTERNALSYM PEM_read_bio_DHparams} +{$EXTERNALSYM PEM_write_bio_DHparams} +{$EXTERNALSYM PEM_write_bio_DHxparams} +{$EXTERNALSYM PEM_read_bio_PrivateKey} +{$EXTERNALSYM PEM_write_bio_PrivateKey} +{$EXTERNALSYM PEM_read_bio_PUBKEY} +{$EXTERNALSYM PEM_write_bio_PUBKEY} +{$EXTERNALSYM PEM_write_bio_PrivateKey_traditional} +{$EXTERNALSYM PEM_write_bio_PKCS8PrivateKey_nid} +{$EXTERNALSYM PEM_write_bio_PKCS8PrivateKey} +{$EXTERNALSYM i2d_PKCS8PrivateKey_bio} +{$EXTERNALSYM i2d_PKCS8PrivateKey_nid_bio} +{$EXTERNALSYM d2i_PKCS8PrivateKey_bio} +{$EXTERNALSYM PEM_read_bio_Parameters} +{$EXTERNALSYM PEM_write_bio_Parameters} +{$EXTERNALSYM b2i_PrivateKey} +{$EXTERNALSYM b2i_PublicKey} +{$EXTERNALSYM b2i_PrivateKey_bio} +{$EXTERNALSYM b2i_PublicKey_bio} +{$EXTERNALSYM i2b_PrivateKey_bio} +{$EXTERNALSYM i2b_PublicKey_bio} +{$EXTERNALSYM b2i_PVK_bio} +{$EXTERNALSYM i2b_PVK_bio} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function PEM_get_EVP_CIPHER_INFO(header: PAnsiChar; cipher: PEVP_CIPHER_INFO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_do_header(cipher: PEVP_CIPHER_INFO; data: PByte; len: POpenSSL_C_LONG; callback: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio(bp: PBIO; name: PPAnsiChar; header: PPAnsiChar; data: PPByte; len: POpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_ex(bp: PBIO; name: PPAnsiChar; header: PPAnsiChar; data: PPByte; len: POpenSSL_C_LONG; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_bytes_read_bio_secmem(pdata: PPByte; plen: POpenSSL_C_LONG; pnm: PPAnsiChar; const name: PAnsiChar; bp: PBIO; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_write_bio(bp: PBIO; const name: PAnsiChar; const hdr: PAnsiChar; const data: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_bytes_read_bio(pdata: PPByte; plen: POpenSSL_C_LONG; pnm: PPAnsiChar; const name: PAnsiChar; bp: PBIO; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_ASN1_read_bio(d2i: d2i_of_void; const name: PAnsiChar; bp: PBIO; x: PPointer; cb: pem_password_cb; u: Pointer): Pointer; cdecl; external CLibCrypto; +function PEM_ASN1_write_bio(i2d: i2d_of_void; const name: PAnsiChar; bp: PBIO; x: Pointer; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_X509_INFO_read_bio(bp: PBIO; sk: PSTACK_OF_X509_INFO; cb: pem_password_cb; u: Pointer): PSTACK_OF_X509_INFO; cdecl; external CLibCrypto; +function PEM_X509_INFO_write_bio(bp: PBIO; xi: PX509_INFO; enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cd: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_SignInit(ctx: PEVP_MD_CTX; type_: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_SignUpdate(ctx: PEVP_MD_CTX; d: PByte; cnt: Byte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_SignFinal(ctx: PEVP_MD_CTX; sigret: PByte; siglen: POpenSSL_C_UINT; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_def_callback(buf: PAnsiChar; num: TOpenSSL_C_INT; rwflag: TOpenSSL_C_INT; userdata: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure PEM_proc_type(buf: PAnsiChar; type_: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure PEM_dek_info(buf: PAnsiChar; const type_: PAnsiChar; len: TOpenSSL_C_INT; str: PAnsiChar); cdecl; external CLibCrypto; +function PEM_read_bio_X509(bp: PBIO; x: PPX509; cb: pem_password_cb; u: Pointer): PX509; cdecl; external CLibCrypto; +function PEM_write_bio_X509(bp: PBIO; x: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_X509_AUX(bp: PBIO; x: PPX509; cb: pem_password_cb; u: Pointer): PX509; cdecl; external CLibCrypto; +function PEM_write_bio_X509_AUX(bp: PBIO; x: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_X509_REQ(bp: PBIO; x: PPX509_REQ; cb: pem_password_cb; u: Pointer): PX509_REQ; cdecl; external CLibCrypto; +function PEM_write_bio_X509_REQ(bp: PBIO; x: PX509_REQ): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_write_bio_X509_REQ_NEW(bp: PBIO; x: PX509_REQ): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_X509_CRL(bp: PBIO; x: PPX509_CRL; cb: pem_password_cb; u: Pointer): PX509_CRL; cdecl; external CLibCrypto; +function PEM_write_bio_X509_CRL(bp: PBIO; x: PX509_CRL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_PKCS7(bp: PBIO; x: PPPKCS7; cb: pem_password_cb; u: Pointer): PPKCS7; cdecl; external CLibCrypto; +function PEM_write_bio_PKCS7(bp: PBIO; x: PPKCS7): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_PKCS8(bp: PBIO; x: PPX509_SIG; cb: pem_password_cb; u: Pointer): PX509_SIG; cdecl; external CLibCrypto; +function PEM_write_bio_PKCS8(bp: PBIO; x: PX509_SIG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_PKCS8_PRIV_KEY_INFO(bp: PBIO; x: PPPKCS8_PRIV_KEY_INFO; cb: pem_password_cb; u: Pointer): PPKCS8_PRIV_KEY_INFO; cdecl; external CLibCrypto; +function PEM_write_bio_PKCS8_PRIV_KEY_INFO(bp: PBIO; x: PPKCS8_PRIV_KEY_INFO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_RSAPrivateKey(bp: PBIO; x: PPRSA; cb: pem_password_cb; u: Pointer): PRSA; cdecl; external CLibCrypto; +function PEM_write_bio_RSAPrivateKey(bp: PBIO; x: PRSA; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_RSAPublicKey(bp: PBIO; x: PPRSA; cb: pem_password_cb; u: Pointer): PRSA; cdecl; external CLibCrypto; +function PEM_write_bio_RSAPublicKey(bp: PBIO; const x: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_RSA_PUBKEY(bp: PBIO; x: PPRSA; cb: pem_password_cb; u: Pointer): PRSA; cdecl; external CLibCrypto; +function PEM_write_bio_RSA_PUBKEY(bp: PBIO; x: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_DSAPrivateKey(bp: PBIO; x: PPDSA; cb: pem_password_cb; u: Pointer): PDSA; cdecl; external CLibCrypto; +function PEM_write_bio_DSAPrivateKey(bp: PBIO; x: PDSA; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_DSA_PUBKEY(bp: PBIO; x: PPDSA; cb: pem_password_cb; u: Pointer): PDSA; cdecl; external CLibCrypto; +function PEM_write_bio_DSA_PUBKEY(bp: PBIO; x: PDSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_DSAparams(bp: PBIO; x: PPDSA; cb: pem_password_cb; u: Pointer): PDSA; cdecl; external CLibCrypto; +function PEM_write_bio_DSAparams(bp: PBIO; const x: PDSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_ECPKParameters(bp: PBIO; x: PPEC_GROUP; cb: pem_password_cb; u: Pointer): PEC_GROUP; cdecl; external CLibCrypto; +function PEM_write_bio_ECPKParameters(bp: PBIO; const x: PEC_GROUP): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_ECPrivateKey(bp: PBIO; x: PPEC_KEY; cb: pem_password_cb; u: Pointer): PEC_KEY; cdecl; external CLibCrypto; +function PEM_write_bio_ECPrivateKey(bp: PBIO; x: PEC_KEY; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_EC_PUBKEY(bp: PBIO; x: PPEC_KEY; cb: pem_password_cb; u: Pointer): PEC_KEY; cdecl; external CLibCrypto; +function PEM_write_bio_EC_PUBKEY(bp: PBIO; x: PEC_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_DHparams(bp: PBIO; x: PPDH; cb: pem_password_cb; u: Pointer): PDH; cdecl; external CLibCrypto; +function PEM_write_bio_DHparams(bp: PBIO; const x: PDH): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_write_bio_DHxparams(bp: PBIO; const x: PDH): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_PrivateKey(bp: PBIO; x: PPEVP_PKEY; cb: pem_password_cb; u: Pointer): PEVP_PKEY; cdecl; external CLibCrypto; +function PEM_write_bio_PrivateKey(bp: PBIO; x: PEVP_PKEY; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_read_bio_PUBKEY(bp: PBIO; x: PPEVP_PKEY; cb: pem_password_cb; u: Pointer): PEVP_PKEY; cdecl; external CLibCrypto; +function PEM_write_bio_PUBKEY(bp: PBIO; x: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_write_bio_PrivateKey_traditional(bp: PBIO; x: PEVP_PKEY; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_write_bio_PKCS8PrivateKey_nid(bp: PBIO; x: PEVP_PKEY; nid: TOpenSSL_C_INT; kstr: PAnsiChar; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_write_bio_PKCS8PrivateKey(bp: PBIO; x: PEVP_PKEY_METHOD; const enc: PEVP_CIPHER; kstr: PAnsiChar; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2d_PKCS8PrivateKey_bio(bp: PBIO; x: PEVP_PKEY; const enc: PEVP_CIPHER_CTX; kstr: PAnsiChar; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2d_PKCS8PrivateKey_nid_bio(bp: PBIO; x: PEVP_PKEY; nid: TOpenSSL_C_INT; kstr: PAnsiChar; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_PKCS8PrivateKey_bio(bp: PBIO; x: PPEVP_PKEY_CTX; cb: pem_password_cb; u: Pointer): PEVP_PKEY; cdecl; external CLibCrypto; +function PEM_read_bio_Parameters(bp: PBIO; x: PPEVP_PKEY): PEVP_PKEY; cdecl; external CLibCrypto; +function PEM_write_bio_Parameters(bp: PBIO; x: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function b2i_PrivateKey(const in_: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; external CLibCrypto; +function b2i_PublicKey(const in_: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; external CLibCrypto; +function b2i_PrivateKey_bio(in_: PBIO): PEVP_PKEY; cdecl; external CLibCrypto; +function b2i_PublicKey_bio(in_: PBIO): PEVP_PKEY; cdecl; external CLibCrypto; +function i2b_PrivateKey_bio(out_: PBIO; pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2b_PublicKey_bio(out_: PBIO; pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function b2i_PVK_bio(in_: PBIO; cb: pem_password_cb; u: Pointer): PEVP_PKEY; cdecl; external CLibCrypto; +function i2b_PVK_bio(out_: PBIO; pk: PEVP_PKEY; enclevel: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_PEM_get_EVP_CIPHER_INFO(header: PAnsiChar; cipher: PEVP_CIPHER_INFO): TOpenSSL_C_INT; cdecl; +function Load_PEM_do_header(cipher: PEVP_CIPHER_INFO; data: PByte; len: POpenSSL_C_LONG; callback: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio(bp: PBIO; name: PPAnsiChar; header: PPAnsiChar; data: PPByte; len: POpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_ex(bp: PBIO; name: PPAnsiChar; header: PPAnsiChar; data: PPByte; len: POpenSSL_C_LONG; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_PEM_bytes_read_bio_secmem(pdata: PPByte; plen: POpenSSL_C_LONG; pnm: PPAnsiChar; const name: PAnsiChar; bp: PBIO; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +function Load_PEM_write_bio(bp: PBIO; const name: PAnsiChar; const hdr: PAnsiChar; const data: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_PEM_bytes_read_bio(pdata: PPByte; plen: POpenSSL_C_LONG; pnm: PPAnsiChar; const name: PAnsiChar; bp: PBIO; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +function Load_PEM_ASN1_read_bio(d2i: d2i_of_void; const name: PAnsiChar; bp: PBIO; x: PPointer; cb: pem_password_cb; u: Pointer): Pointer; cdecl; +function Load_PEM_ASN1_write_bio(i2d: i2d_of_void; const name: PAnsiChar; bp: PBIO; x: Pointer; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +function Load_PEM_X509_INFO_read_bio(bp: PBIO; sk: PSTACK_OF_X509_INFO; cb: pem_password_cb; u: Pointer): PSTACK_OF_X509_INFO; cdecl; +function Load_PEM_X509_INFO_write_bio(bp: PBIO; xi: PX509_INFO; enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cd: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +function Load_PEM_SignInit(ctx: PEVP_MD_CTX; type_: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_PEM_SignUpdate(ctx: PEVP_MD_CTX; d: PByte; cnt: Byte): TOpenSSL_C_INT; cdecl; +function Load_PEM_SignFinal(ctx: PEVP_MD_CTX; sigret: PByte; siglen: POpenSSL_C_UINT; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_PEM_def_callback(buf: PAnsiChar; num: TOpenSSL_C_INT; rwflag: TOpenSSL_C_INT; userdata: Pointer): TOpenSSL_C_INT; cdecl; +procedure Load_PEM_proc_type(buf: PAnsiChar; type_: TOpenSSL_C_INT); cdecl; +procedure Load_PEM_dek_info(buf: PAnsiChar; const type_: PAnsiChar; len: TOpenSSL_C_INT; str: PAnsiChar); cdecl; +function Load_PEM_read_bio_X509(bp: PBIO; x: PPX509; cb: pem_password_cb; u: Pointer): PX509; cdecl; +function Load_PEM_write_bio_X509(bp: PBIO; x: PX509): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_X509_AUX(bp: PBIO; x: PPX509; cb: pem_password_cb; u: Pointer): PX509; cdecl; +function Load_PEM_write_bio_X509_AUX(bp: PBIO; x: PX509): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_X509_REQ(bp: PBIO; x: PPX509_REQ; cb: pem_password_cb; u: Pointer): PX509_REQ; cdecl; +function Load_PEM_write_bio_X509_REQ(bp: PBIO; x: PX509_REQ): TOpenSSL_C_INT; cdecl; +function Load_PEM_write_bio_X509_REQ_NEW(bp: PBIO; x: PX509_REQ): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_X509_CRL(bp: PBIO; x: PPX509_CRL; cb: pem_password_cb; u: Pointer): PX509_CRL; cdecl; +function Load_PEM_write_bio_X509_CRL(bp: PBIO; x: PX509_CRL): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_PKCS7(bp: PBIO; x: PPPKCS7; cb: pem_password_cb; u: Pointer): PPKCS7; cdecl; +function Load_PEM_write_bio_PKCS7(bp: PBIO; x: PPKCS7): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_PKCS8(bp: PBIO; x: PPX509_SIG; cb: pem_password_cb; u: Pointer): PX509_SIG; cdecl; +function Load_PEM_write_bio_PKCS8(bp: PBIO; x: PX509_SIG): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_PKCS8_PRIV_KEY_INFO(bp: PBIO; x: PPPKCS8_PRIV_KEY_INFO; cb: pem_password_cb; u: Pointer): PPKCS8_PRIV_KEY_INFO; cdecl; +function Load_PEM_write_bio_PKCS8_PRIV_KEY_INFO(bp: PBIO; x: PPKCS8_PRIV_KEY_INFO): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_RSAPrivateKey(bp: PBIO; x: PPRSA; cb: pem_password_cb; u: Pointer): PRSA; cdecl; +function Load_PEM_write_bio_RSAPrivateKey(bp: PBIO; x: PRSA; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_RSAPublicKey(bp: PBIO; x: PPRSA; cb: pem_password_cb; u: Pointer): PRSA; cdecl; +function Load_PEM_write_bio_RSAPublicKey(bp: PBIO; const x: PRSA): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_RSA_PUBKEY(bp: PBIO; x: PPRSA; cb: pem_password_cb; u: Pointer): PRSA; cdecl; +function Load_PEM_write_bio_RSA_PUBKEY(bp: PBIO; x: PRSA): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_DSAPrivateKey(bp: PBIO; x: PPDSA; cb: pem_password_cb; u: Pointer): PDSA; cdecl; +function Load_PEM_write_bio_DSAPrivateKey(bp: PBIO; x: PDSA; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_DSA_PUBKEY(bp: PBIO; x: PPDSA; cb: pem_password_cb; u: Pointer): PDSA; cdecl; +function Load_PEM_write_bio_DSA_PUBKEY(bp: PBIO; x: PDSA): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_DSAparams(bp: PBIO; x: PPDSA; cb: pem_password_cb; u: Pointer): PDSA; cdecl; +function Load_PEM_write_bio_DSAparams(bp: PBIO; const x: PDSA): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_ECPKParameters(bp: PBIO; x: PPEC_GROUP; cb: pem_password_cb; u: Pointer): PEC_GROUP; cdecl; +function Load_PEM_write_bio_ECPKParameters(bp: PBIO; const x: PEC_GROUP): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_ECPrivateKey(bp: PBIO; x: PPEC_KEY; cb: pem_password_cb; u: Pointer): PEC_KEY; cdecl; +function Load_PEM_write_bio_ECPrivateKey(bp: PBIO; x: PEC_KEY; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_EC_PUBKEY(bp: PBIO; x: PPEC_KEY; cb: pem_password_cb; u: Pointer): PEC_KEY; cdecl; +function Load_PEM_write_bio_EC_PUBKEY(bp: PBIO; x: PEC_KEY): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_DHparams(bp: PBIO; x: PPDH; cb: pem_password_cb; u: Pointer): PDH; cdecl; +function Load_PEM_write_bio_DHparams(bp: PBIO; const x: PDH): TOpenSSL_C_INT; cdecl; +function Load_PEM_write_bio_DHxparams(bp: PBIO; const x: PDH): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_PrivateKey(bp: PBIO; x: PPEVP_PKEY; cb: pem_password_cb; u: Pointer): PEVP_PKEY; cdecl; +function Load_PEM_write_bio_PrivateKey(bp: PBIO; x: PEVP_PKEY; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +function Load_PEM_read_bio_PUBKEY(bp: PBIO; x: PPEVP_PKEY; cb: pem_password_cb; u: Pointer): PEVP_PKEY; cdecl; +function Load_PEM_write_bio_PUBKEY(bp: PBIO; x: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_PEM_write_bio_PrivateKey_traditional(bp: PBIO; x: PEVP_PKEY; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +function Load_PEM_write_bio_PKCS8PrivateKey_nid(bp: PBIO; x: PEVP_PKEY; nid: TOpenSSL_C_INT; kstr: PAnsiChar; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +function Load_PEM_write_bio_PKCS8PrivateKey(bp: PBIO; x: PEVP_PKEY_METHOD; const enc: PEVP_CIPHER; kstr: PAnsiChar; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +function Load_i2d_PKCS8PrivateKey_bio(bp: PBIO; x: PEVP_PKEY; const enc: PEVP_CIPHER_CTX; kstr: PAnsiChar; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +function Load_i2d_PKCS8PrivateKey_nid_bio(bp: PBIO; x: PEVP_PKEY; nid: TOpenSSL_C_INT; kstr: PAnsiChar; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +function Load_d2i_PKCS8PrivateKey_bio(bp: PBIO; x: PPEVP_PKEY_CTX; cb: pem_password_cb; u: Pointer): PEVP_PKEY; cdecl; +function Load_PEM_read_bio_Parameters(bp: PBIO; x: PPEVP_PKEY): PEVP_PKEY; cdecl; +function Load_PEM_write_bio_Parameters(bp: PBIO; x: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_b2i_PrivateKey(const in_: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; +function Load_b2i_PublicKey(const in_: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; +function Load_b2i_PrivateKey_bio(in_: PBIO): PEVP_PKEY; cdecl; +function Load_b2i_PublicKey_bio(in_: PBIO): PEVP_PKEY; cdecl; +function Load_i2b_PrivateKey_bio(out_: PBIO; pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_i2b_PublicKey_bio(out_: PBIO; pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_b2i_PVK_bio(in_: PBIO; cb: pem_password_cb; u: Pointer): PEVP_PKEY; cdecl; +function Load_i2b_PVK_bio(out_: PBIO; pk: PEVP_PKEY; enclevel: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; + +var + PEM_get_EVP_CIPHER_INFO: function (header: PAnsiChar; cipher: PEVP_CIPHER_INFO): TOpenSSL_C_INT; cdecl = Load_PEM_get_EVP_CIPHER_INFO; + PEM_do_header: function (cipher: PEVP_CIPHER_INFO; data: PByte; len: POpenSSL_C_LONG; callback: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl = Load_PEM_do_header; + PEM_read_bio: function (bp: PBIO; name: PPAnsiChar; header: PPAnsiChar; data: PPByte; len: POpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_PEM_read_bio; + PEM_read_bio_ex: function (bp: PBIO; name: PPAnsiChar; header: PPAnsiChar; data: PPByte; len: POpenSSL_C_LONG; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_PEM_read_bio_ex; + PEM_bytes_read_bio_secmem: function (pdata: PPByte; plen: POpenSSL_C_LONG; pnm: PPAnsiChar; const name: PAnsiChar; bp: PBIO; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl = Load_PEM_bytes_read_bio_secmem; + PEM_write_bio: function (bp: PBIO; const name: PAnsiChar; const hdr: PAnsiChar; const data: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio; + PEM_bytes_read_bio: function (pdata: PPByte; plen: POpenSSL_C_LONG; pnm: PPAnsiChar; const name: PAnsiChar; bp: PBIO; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl = Load_PEM_bytes_read_bio; + PEM_ASN1_read_bio: function (d2i: d2i_of_void; const name: PAnsiChar; bp: PBIO; x: PPointer; cb: pem_password_cb; u: Pointer): Pointer; cdecl = Load_PEM_ASN1_read_bio; + PEM_ASN1_write_bio: function (i2d: i2d_of_void; const name: PAnsiChar; bp: PBIO; x: Pointer; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl = Load_PEM_ASN1_write_bio; + PEM_X509_INFO_read_bio: function (bp: PBIO; sk: PSTACK_OF_X509_INFO; cb: pem_password_cb; u: Pointer): PSTACK_OF_X509_INFO; cdecl = Load_PEM_X509_INFO_read_bio; + PEM_X509_INFO_write_bio: function (bp: PBIO; xi: PX509_INFO; enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cd: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl = Load_PEM_X509_INFO_write_bio; + PEM_SignInit: function (ctx: PEVP_MD_CTX; type_: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_PEM_SignInit; + PEM_SignUpdate: function (ctx: PEVP_MD_CTX; d: PByte; cnt: Byte): TOpenSSL_C_INT; cdecl = Load_PEM_SignUpdate; + PEM_SignFinal: function (ctx: PEVP_MD_CTX; sigret: PByte; siglen: POpenSSL_C_UINT; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_PEM_SignFinal; + PEM_def_callback: function (buf: PAnsiChar; num: TOpenSSL_C_INT; rwflag: TOpenSSL_C_INT; userdata: Pointer): TOpenSSL_C_INT; cdecl = Load_PEM_def_callback; + PEM_proc_type: procedure (buf: PAnsiChar; type_: TOpenSSL_C_INT); cdecl = Load_PEM_proc_type; + PEM_dek_info: procedure (buf: PAnsiChar; const type_: PAnsiChar; len: TOpenSSL_C_INT; str: PAnsiChar); cdecl = Load_PEM_dek_info; + PEM_read_bio_X509: function (bp: PBIO; x: PPX509; cb: pem_password_cb; u: Pointer): PX509; cdecl = Load_PEM_read_bio_X509; + PEM_write_bio_X509: function (bp: PBIO; x: PX509): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_X509; + PEM_read_bio_X509_AUX: function (bp: PBIO; x: PPX509; cb: pem_password_cb; u: Pointer): PX509; cdecl = Load_PEM_read_bio_X509_AUX; + PEM_write_bio_X509_AUX: function (bp: PBIO; x: PX509): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_X509_AUX; + PEM_read_bio_X509_REQ: function (bp: PBIO; x: PPX509_REQ; cb: pem_password_cb; u: Pointer): PX509_REQ; cdecl = Load_PEM_read_bio_X509_REQ; + PEM_write_bio_X509_REQ: function (bp: PBIO; x: PX509_REQ): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_X509_REQ; + PEM_write_bio_X509_REQ_NEW: function (bp: PBIO; x: PX509_REQ): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_X509_REQ_NEW; + PEM_read_bio_X509_CRL: function (bp: PBIO; x: PPX509_CRL; cb: pem_password_cb; u: Pointer): PX509_CRL; cdecl = Load_PEM_read_bio_X509_CRL; + PEM_write_bio_X509_CRL: function (bp: PBIO; x: PX509_CRL): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_X509_CRL; + PEM_read_bio_PKCS7: function (bp: PBIO; x: PPPKCS7; cb: pem_password_cb; u: Pointer): PPKCS7; cdecl = Load_PEM_read_bio_PKCS7; + PEM_write_bio_PKCS7: function (bp: PBIO; x: PPKCS7): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_PKCS7; + PEM_read_bio_PKCS8: function (bp: PBIO; x: PPX509_SIG; cb: pem_password_cb; u: Pointer): PX509_SIG; cdecl = Load_PEM_read_bio_PKCS8; + PEM_write_bio_PKCS8: function (bp: PBIO; x: PX509_SIG): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_PKCS8; + PEM_read_bio_PKCS8_PRIV_KEY_INFO: function (bp: PBIO; x: PPPKCS8_PRIV_KEY_INFO; cb: pem_password_cb; u: Pointer): PPKCS8_PRIV_KEY_INFO; cdecl = Load_PEM_read_bio_PKCS8_PRIV_KEY_INFO; + PEM_write_bio_PKCS8_PRIV_KEY_INFO: function (bp: PBIO; x: PPKCS8_PRIV_KEY_INFO): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_PKCS8_PRIV_KEY_INFO; + PEM_read_bio_RSAPrivateKey: function (bp: PBIO; x: PPRSA; cb: pem_password_cb; u: Pointer): PRSA; cdecl = Load_PEM_read_bio_RSAPrivateKey; + PEM_write_bio_RSAPrivateKey: function (bp: PBIO; x: PRSA; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_RSAPrivateKey; + PEM_read_bio_RSAPublicKey: function (bp: PBIO; x: PPRSA; cb: pem_password_cb; u: Pointer): PRSA; cdecl = Load_PEM_read_bio_RSAPublicKey; + PEM_write_bio_RSAPublicKey: function (bp: PBIO; const x: PRSA): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_RSAPublicKey; + PEM_read_bio_RSA_PUBKEY: function (bp: PBIO; x: PPRSA; cb: pem_password_cb; u: Pointer): PRSA; cdecl = Load_PEM_read_bio_RSA_PUBKEY; + PEM_write_bio_RSA_PUBKEY: function (bp: PBIO; x: PRSA): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_RSA_PUBKEY; + PEM_read_bio_DSAPrivateKey: function (bp: PBIO; x: PPDSA; cb: pem_password_cb; u: Pointer): PDSA; cdecl = Load_PEM_read_bio_DSAPrivateKey; + PEM_write_bio_DSAPrivateKey: function (bp: PBIO; x: PDSA; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_DSAPrivateKey; + PEM_read_bio_DSA_PUBKEY: function (bp: PBIO; x: PPDSA; cb: pem_password_cb; u: Pointer): PDSA; cdecl = Load_PEM_read_bio_DSA_PUBKEY; + PEM_write_bio_DSA_PUBKEY: function (bp: PBIO; x: PDSA): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_DSA_PUBKEY; + PEM_read_bio_DSAparams: function (bp: PBIO; x: PPDSA; cb: pem_password_cb; u: Pointer): PDSA; cdecl = Load_PEM_read_bio_DSAparams; + PEM_write_bio_DSAparams: function (bp: PBIO; const x: PDSA): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_DSAparams; + PEM_read_bio_ECPKParameters: function (bp: PBIO; x: PPEC_GROUP; cb: pem_password_cb; u: Pointer): PEC_GROUP; cdecl = Load_PEM_read_bio_ECPKParameters; + PEM_write_bio_ECPKParameters: function (bp: PBIO; const x: PEC_GROUP): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_ECPKParameters; + PEM_read_bio_ECPrivateKey: function (bp: PBIO; x: PPEC_KEY; cb: pem_password_cb; u: Pointer): PEC_KEY; cdecl = Load_PEM_read_bio_ECPrivateKey; + PEM_write_bio_ECPrivateKey: function (bp: PBIO; x: PEC_KEY; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_ECPrivateKey; + PEM_read_bio_EC_PUBKEY: function (bp: PBIO; x: PPEC_KEY; cb: pem_password_cb; u: Pointer): PEC_KEY; cdecl = Load_PEM_read_bio_EC_PUBKEY; + PEM_write_bio_EC_PUBKEY: function (bp: PBIO; x: PEC_KEY): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_EC_PUBKEY; + PEM_read_bio_DHparams: function (bp: PBIO; x: PPDH; cb: pem_password_cb; u: Pointer): PDH; cdecl = Load_PEM_read_bio_DHparams; + PEM_write_bio_DHparams: function (bp: PBIO; const x: PDH): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_DHparams; + PEM_write_bio_DHxparams: function (bp: PBIO; const x: PDH): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_DHxparams; + PEM_read_bio_PrivateKey: function (bp: PBIO; x: PPEVP_PKEY; cb: pem_password_cb; u: Pointer): PEVP_PKEY; cdecl = Load_PEM_read_bio_PrivateKey; + PEM_write_bio_PrivateKey: function (bp: PBIO; x: PEVP_PKEY; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_PrivateKey; + PEM_read_bio_PUBKEY: function (bp: PBIO; x: PPEVP_PKEY; cb: pem_password_cb; u: Pointer): PEVP_PKEY; cdecl = Load_PEM_read_bio_PUBKEY; + PEM_write_bio_PUBKEY: function (bp: PBIO; x: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_PUBKEY; + PEM_write_bio_PrivateKey_traditional: function (bp: PBIO; x: PEVP_PKEY; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_PrivateKey_traditional; + PEM_write_bio_PKCS8PrivateKey_nid: function (bp: PBIO; x: PEVP_PKEY; nid: TOpenSSL_C_INT; kstr: PAnsiChar; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_PKCS8PrivateKey_nid; + PEM_write_bio_PKCS8PrivateKey: function (bp: PBIO; x: PEVP_PKEY_METHOD; const enc: PEVP_CIPHER; kstr: PAnsiChar; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_PKCS8PrivateKey; + i2d_PKCS8PrivateKey_bio: function (bp: PBIO; x: PEVP_PKEY; const enc: PEVP_CIPHER_CTX; kstr: PAnsiChar; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl = Load_i2d_PKCS8PrivateKey_bio; + i2d_PKCS8PrivateKey_nid_bio: function (bp: PBIO; x: PEVP_PKEY; nid: TOpenSSL_C_INT; kstr: PAnsiChar; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl = Load_i2d_PKCS8PrivateKey_nid_bio; + d2i_PKCS8PrivateKey_bio: function (bp: PBIO; x: PPEVP_PKEY_CTX; cb: pem_password_cb; u: Pointer): PEVP_PKEY; cdecl = Load_d2i_PKCS8PrivateKey_bio; + PEM_read_bio_Parameters: function (bp: PBIO; x: PPEVP_PKEY): PEVP_PKEY; cdecl = Load_PEM_read_bio_Parameters; + PEM_write_bio_Parameters: function (bp: PBIO; x: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_Parameters; + b2i_PrivateKey: function (const in_: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl = Load_b2i_PrivateKey; + b2i_PublicKey: function (const in_: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl = Load_b2i_PublicKey; + b2i_PrivateKey_bio: function (in_: PBIO): PEVP_PKEY; cdecl = Load_b2i_PrivateKey_bio; + b2i_PublicKey_bio: function (in_: PBIO): PEVP_PKEY; cdecl = Load_b2i_PublicKey_bio; + i2b_PrivateKey_bio: function (out_: PBIO; pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_i2b_PrivateKey_bio; + i2b_PublicKey_bio: function (out_: PBIO; pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_i2b_PublicKey_bio; + b2i_PVK_bio: function (in_: PBIO; cb: pem_password_cb; u: Pointer): PEVP_PKEY; cdecl = Load_b2i_PVK_bio; + i2b_PVK_bio: function (out_: PBIO; pk: PEVP_PKEY; enclevel: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl = Load_i2b_PVK_bio; +{$ENDIF} +const + PEM_read_bio_ex_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PEM_bytes_read_bio_secmem_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PEM_write_bio_PrivateKey_traditional_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_PEM_get_EVP_CIPHER_INFO(header: PAnsiChar; cipher: PEVP_CIPHER_INFO): TOpenSSL_C_INT; cdecl; +begin + PEM_get_EVP_CIPHER_INFO := LoadLibCryptoFunction('PEM_get_EVP_CIPHER_INFO'); + if not assigned(PEM_get_EVP_CIPHER_INFO) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_get_EVP_CIPHER_INFO'); + Result := PEM_get_EVP_CIPHER_INFO(header,cipher); +end; + +function Load_PEM_do_header(cipher: PEVP_CIPHER_INFO; data: PByte; len: POpenSSL_C_LONG; callback: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +begin + PEM_do_header := LoadLibCryptoFunction('PEM_do_header'); + if not assigned(PEM_do_header) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_do_header'); + Result := PEM_do_header(cipher,data,len,callback,u); +end; + +function Load_PEM_read_bio(bp: PBIO; name: PPAnsiChar; header: PPAnsiChar; data: PPByte; len: POpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + PEM_read_bio := LoadLibCryptoFunction('PEM_read_bio'); + if not assigned(PEM_read_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio'); + Result := PEM_read_bio(bp,name,header,data,len); +end; + +function Load_PEM_read_bio_ex(bp: PBIO; name: PPAnsiChar; header: PPAnsiChar; data: PPByte; len: POpenSSL_C_LONG; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + PEM_read_bio_ex := LoadLibCryptoFunction('PEM_read_bio_ex'); + if not assigned(PEM_read_bio_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_ex'); + Result := PEM_read_bio_ex(bp,name,header,data,len,flags); +end; + +function Load_PEM_bytes_read_bio_secmem(pdata: PPByte; plen: POpenSSL_C_LONG; pnm: PPAnsiChar; const name: PAnsiChar; bp: PBIO; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +begin + PEM_bytes_read_bio_secmem := LoadLibCryptoFunction('PEM_bytes_read_bio_secmem'); + if not assigned(PEM_bytes_read_bio_secmem) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_bytes_read_bio_secmem'); + Result := PEM_bytes_read_bio_secmem(pdata,plen,pnm,name,bp,cb,u); +end; + +function Load_PEM_write_bio(bp: PBIO; const name: PAnsiChar; const hdr: PAnsiChar; const data: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio := LoadLibCryptoFunction('PEM_write_bio'); + if not assigned(PEM_write_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio'); + Result := PEM_write_bio(bp,name,hdr,data,len); +end; + +function Load_PEM_bytes_read_bio(pdata: PPByte; plen: POpenSSL_C_LONG; pnm: PPAnsiChar; const name: PAnsiChar; bp: PBIO; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +begin + PEM_bytes_read_bio := LoadLibCryptoFunction('PEM_bytes_read_bio'); + if not assigned(PEM_bytes_read_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_bytes_read_bio'); + Result := PEM_bytes_read_bio(pdata,plen,pnm,name,bp,cb,u); +end; + +function Load_PEM_ASN1_read_bio(d2i: d2i_of_void; const name: PAnsiChar; bp: PBIO; x: PPointer; cb: pem_password_cb; u: Pointer): Pointer; cdecl; +begin + PEM_ASN1_read_bio := LoadLibCryptoFunction('PEM_ASN1_read_bio'); + if not assigned(PEM_ASN1_read_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_ASN1_read_bio'); + Result := PEM_ASN1_read_bio(d2i,name,bp,x,cb,u); +end; + +function Load_PEM_ASN1_write_bio(i2d: i2d_of_void; const name: PAnsiChar; bp: PBIO; x: Pointer; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +begin + PEM_ASN1_write_bio := LoadLibCryptoFunction('PEM_ASN1_write_bio'); + if not assigned(PEM_ASN1_write_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_ASN1_write_bio'); + Result := PEM_ASN1_write_bio(i2d,name,bp,x,enc,kstr,klen,cb,u); +end; + +function Load_PEM_X509_INFO_read_bio(bp: PBIO; sk: PSTACK_OF_X509_INFO; cb: pem_password_cb; u: Pointer): PSTACK_OF_X509_INFO; cdecl; +begin + PEM_X509_INFO_read_bio := LoadLibCryptoFunction('PEM_X509_INFO_read_bio'); + if not assigned(PEM_X509_INFO_read_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_X509_INFO_read_bio'); + Result := PEM_X509_INFO_read_bio(bp,sk,cb,u); +end; + +function Load_PEM_X509_INFO_write_bio(bp: PBIO; xi: PX509_INFO; enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cd: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +begin + PEM_X509_INFO_write_bio := LoadLibCryptoFunction('PEM_X509_INFO_write_bio'); + if not assigned(PEM_X509_INFO_write_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_X509_INFO_write_bio'); + Result := PEM_X509_INFO_write_bio(bp,xi,enc,kstr,klen,cd,u); +end; + +function Load_PEM_SignInit(ctx: PEVP_MD_CTX; type_: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + PEM_SignInit := LoadLibCryptoFunction('PEM_SignInit'); + if not assigned(PEM_SignInit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_SignInit'); + Result := PEM_SignInit(ctx,type_); +end; + +function Load_PEM_SignUpdate(ctx: PEVP_MD_CTX; d: PByte; cnt: Byte): TOpenSSL_C_INT; cdecl; +begin + PEM_SignUpdate := LoadLibCryptoFunction('PEM_SignUpdate'); + if not assigned(PEM_SignUpdate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_SignUpdate'); + Result := PEM_SignUpdate(ctx,d,cnt); +end; + +function Load_PEM_SignFinal(ctx: PEVP_MD_CTX; sigret: PByte; siglen: POpenSSL_C_UINT; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + PEM_SignFinal := LoadLibCryptoFunction('PEM_SignFinal'); + if not assigned(PEM_SignFinal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_SignFinal'); + Result := PEM_SignFinal(ctx,sigret,siglen,pkey); +end; + +function Load_PEM_def_callback(buf: PAnsiChar; num: TOpenSSL_C_INT; rwflag: TOpenSSL_C_INT; userdata: Pointer): TOpenSSL_C_INT; cdecl; +begin + PEM_def_callback := LoadLibCryptoFunction('PEM_def_callback'); + if not assigned(PEM_def_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_def_callback'); + Result := PEM_def_callback(buf,num,rwflag,userdata); +end; + +procedure Load_PEM_proc_type(buf: PAnsiChar; type_: TOpenSSL_C_INT); cdecl; +begin + PEM_proc_type := LoadLibCryptoFunction('PEM_proc_type'); + if not assigned(PEM_proc_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_proc_type'); + PEM_proc_type(buf,type_); +end; + +procedure Load_PEM_dek_info(buf: PAnsiChar; const type_: PAnsiChar; len: TOpenSSL_C_INT; str: PAnsiChar); cdecl; +begin + PEM_dek_info := LoadLibCryptoFunction('PEM_dek_info'); + if not assigned(PEM_dek_info) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_dek_info'); + PEM_dek_info(buf,type_,len,str); +end; + +function Load_PEM_read_bio_X509(bp: PBIO; x: PPX509; cb: pem_password_cb; u: Pointer): PX509; cdecl; +begin + PEM_read_bio_X509 := LoadLibCryptoFunction('PEM_read_bio_X509'); + if not assigned(PEM_read_bio_X509) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_X509'); + Result := PEM_read_bio_X509(bp,x,cb,u); +end; + +function Load_PEM_write_bio_X509(bp: PBIO; x: PX509): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_X509 := LoadLibCryptoFunction('PEM_write_bio_X509'); + if not assigned(PEM_write_bio_X509) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_X509'); + Result := PEM_write_bio_X509(bp,x); +end; + +function Load_PEM_read_bio_X509_AUX(bp: PBIO; x: PPX509; cb: pem_password_cb; u: Pointer): PX509; cdecl; +begin + PEM_read_bio_X509_AUX := LoadLibCryptoFunction('PEM_read_bio_X509_AUX'); + if not assigned(PEM_read_bio_X509_AUX) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_X509_AUX'); + Result := PEM_read_bio_X509_AUX(bp,x,cb,u); +end; + +function Load_PEM_write_bio_X509_AUX(bp: PBIO; x: PX509): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_X509_AUX := LoadLibCryptoFunction('PEM_write_bio_X509_AUX'); + if not assigned(PEM_write_bio_X509_AUX) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_X509_AUX'); + Result := PEM_write_bio_X509_AUX(bp,x); +end; + +function Load_PEM_read_bio_X509_REQ(bp: PBIO; x: PPX509_REQ; cb: pem_password_cb; u: Pointer): PX509_REQ; cdecl; +begin + PEM_read_bio_X509_REQ := LoadLibCryptoFunction('PEM_read_bio_X509_REQ'); + if not assigned(PEM_read_bio_X509_REQ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_X509_REQ'); + Result := PEM_read_bio_X509_REQ(bp,x,cb,u); +end; + +function Load_PEM_write_bio_X509_REQ(bp: PBIO; x: PX509_REQ): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_X509_REQ := LoadLibCryptoFunction('PEM_write_bio_X509_REQ'); + if not assigned(PEM_write_bio_X509_REQ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_X509_REQ'); + Result := PEM_write_bio_X509_REQ(bp,x); +end; + +function Load_PEM_write_bio_X509_REQ_NEW(bp: PBIO; x: PX509_REQ): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_X509_REQ_NEW := LoadLibCryptoFunction('PEM_write_bio_X509_REQ_NEW'); + if not assigned(PEM_write_bio_X509_REQ_NEW) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_X509_REQ_NEW'); + Result := PEM_write_bio_X509_REQ_NEW(bp,x); +end; + +function Load_PEM_read_bio_X509_CRL(bp: PBIO; x: PPX509_CRL; cb: pem_password_cb; u: Pointer): PX509_CRL; cdecl; +begin + PEM_read_bio_X509_CRL := LoadLibCryptoFunction('PEM_read_bio_X509_CRL'); + if not assigned(PEM_read_bio_X509_CRL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_X509_CRL'); + Result := PEM_read_bio_X509_CRL(bp,x,cb,u); +end; + +function Load_PEM_write_bio_X509_CRL(bp: PBIO; x: PX509_CRL): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_X509_CRL := LoadLibCryptoFunction('PEM_write_bio_X509_CRL'); + if not assigned(PEM_write_bio_X509_CRL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_X509_CRL'); + Result := PEM_write_bio_X509_CRL(bp,x); +end; + +function Load_PEM_read_bio_PKCS7(bp: PBIO; x: PPPKCS7; cb: pem_password_cb; u: Pointer): PPKCS7; cdecl; +begin + PEM_read_bio_PKCS7 := LoadLibCryptoFunction('PEM_read_bio_PKCS7'); + if not assigned(PEM_read_bio_PKCS7) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_PKCS7'); + Result := PEM_read_bio_PKCS7(bp,x,cb,u); +end; + +function Load_PEM_write_bio_PKCS7(bp: PBIO; x: PPKCS7): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_PKCS7 := LoadLibCryptoFunction('PEM_write_bio_PKCS7'); + if not assigned(PEM_write_bio_PKCS7) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_PKCS7'); + Result := PEM_write_bio_PKCS7(bp,x); +end; + +function Load_PEM_read_bio_PKCS8(bp: PBIO; x: PPX509_SIG; cb: pem_password_cb; u: Pointer): PX509_SIG; cdecl; +begin + PEM_read_bio_PKCS8 := LoadLibCryptoFunction('PEM_read_bio_PKCS8'); + if not assigned(PEM_read_bio_PKCS8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_PKCS8'); + Result := PEM_read_bio_PKCS8(bp,x,cb,u); +end; + +function Load_PEM_write_bio_PKCS8(bp: PBIO; x: PX509_SIG): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_PKCS8 := LoadLibCryptoFunction('PEM_write_bio_PKCS8'); + if not assigned(PEM_write_bio_PKCS8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_PKCS8'); + Result := PEM_write_bio_PKCS8(bp,x); +end; + +function Load_PEM_read_bio_PKCS8_PRIV_KEY_INFO(bp: PBIO; x: PPPKCS8_PRIV_KEY_INFO; cb: pem_password_cb; u: Pointer): PPKCS8_PRIV_KEY_INFO; cdecl; +begin + PEM_read_bio_PKCS8_PRIV_KEY_INFO := LoadLibCryptoFunction('PEM_read_bio_PKCS8_PRIV_KEY_INFO'); + if not assigned(PEM_read_bio_PKCS8_PRIV_KEY_INFO) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_PKCS8_PRIV_KEY_INFO'); + Result := PEM_read_bio_PKCS8_PRIV_KEY_INFO(bp,x,cb,u); +end; + +function Load_PEM_write_bio_PKCS8_PRIV_KEY_INFO(bp: PBIO; x: PPKCS8_PRIV_KEY_INFO): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_PKCS8_PRIV_KEY_INFO := LoadLibCryptoFunction('PEM_write_bio_PKCS8_PRIV_KEY_INFO'); + if not assigned(PEM_write_bio_PKCS8_PRIV_KEY_INFO) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_PKCS8_PRIV_KEY_INFO'); + Result := PEM_write_bio_PKCS8_PRIV_KEY_INFO(bp,x); +end; + +function Load_PEM_read_bio_RSAPrivateKey(bp: PBIO; x: PPRSA; cb: pem_password_cb; u: Pointer): PRSA; cdecl; +begin + PEM_read_bio_RSAPrivateKey := LoadLibCryptoFunction('PEM_read_bio_RSAPrivateKey'); + if not assigned(PEM_read_bio_RSAPrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_RSAPrivateKey'); + Result := PEM_read_bio_RSAPrivateKey(bp,x,cb,u); +end; + +function Load_PEM_write_bio_RSAPrivateKey(bp: PBIO; x: PRSA; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_RSAPrivateKey := LoadLibCryptoFunction('PEM_write_bio_RSAPrivateKey'); + if not assigned(PEM_write_bio_RSAPrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_RSAPrivateKey'); + Result := PEM_write_bio_RSAPrivateKey(bp,x,enc,kstr,klen,cb,u); +end; + +function Load_PEM_read_bio_RSAPublicKey(bp: PBIO; x: PPRSA; cb: pem_password_cb; u: Pointer): PRSA; cdecl; +begin + PEM_read_bio_RSAPublicKey := LoadLibCryptoFunction('PEM_read_bio_RSAPublicKey'); + if not assigned(PEM_read_bio_RSAPublicKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_RSAPublicKey'); + Result := PEM_read_bio_RSAPublicKey(bp,x,cb,u); +end; + +function Load_PEM_write_bio_RSAPublicKey(bp: PBIO; const x: PRSA): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_RSAPublicKey := LoadLibCryptoFunction('PEM_write_bio_RSAPublicKey'); + if not assigned(PEM_write_bio_RSAPublicKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_RSAPublicKey'); + Result := PEM_write_bio_RSAPublicKey(bp,x); +end; + +function Load_PEM_read_bio_RSA_PUBKEY(bp: PBIO; x: PPRSA; cb: pem_password_cb; u: Pointer): PRSA; cdecl; +begin + PEM_read_bio_RSA_PUBKEY := LoadLibCryptoFunction('PEM_read_bio_RSA_PUBKEY'); + if not assigned(PEM_read_bio_RSA_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_RSA_PUBKEY'); + Result := PEM_read_bio_RSA_PUBKEY(bp,x,cb,u); +end; + +function Load_PEM_write_bio_RSA_PUBKEY(bp: PBIO; x: PRSA): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_RSA_PUBKEY := LoadLibCryptoFunction('PEM_write_bio_RSA_PUBKEY'); + if not assigned(PEM_write_bio_RSA_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_RSA_PUBKEY'); + Result := PEM_write_bio_RSA_PUBKEY(bp,x); +end; + +function Load_PEM_read_bio_DSAPrivateKey(bp: PBIO; x: PPDSA; cb: pem_password_cb; u: Pointer): PDSA; cdecl; +begin + PEM_read_bio_DSAPrivateKey := LoadLibCryptoFunction('PEM_read_bio_DSAPrivateKey'); + if not assigned(PEM_read_bio_DSAPrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_DSAPrivateKey'); + Result := PEM_read_bio_DSAPrivateKey(bp,x,cb,u); +end; + +function Load_PEM_write_bio_DSAPrivateKey(bp: PBIO; x: PDSA; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_DSAPrivateKey := LoadLibCryptoFunction('PEM_write_bio_DSAPrivateKey'); + if not assigned(PEM_write_bio_DSAPrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_DSAPrivateKey'); + Result := PEM_write_bio_DSAPrivateKey(bp,x,enc,kstr,klen,cb,u); +end; + +function Load_PEM_read_bio_DSA_PUBKEY(bp: PBIO; x: PPDSA; cb: pem_password_cb; u: Pointer): PDSA; cdecl; +begin + PEM_read_bio_DSA_PUBKEY := LoadLibCryptoFunction('PEM_read_bio_DSA_PUBKEY'); + if not assigned(PEM_read_bio_DSA_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_DSA_PUBKEY'); + Result := PEM_read_bio_DSA_PUBKEY(bp,x,cb,u); +end; + +function Load_PEM_write_bio_DSA_PUBKEY(bp: PBIO; x: PDSA): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_DSA_PUBKEY := LoadLibCryptoFunction('PEM_write_bio_DSA_PUBKEY'); + if not assigned(PEM_write_bio_DSA_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_DSA_PUBKEY'); + Result := PEM_write_bio_DSA_PUBKEY(bp,x); +end; + +function Load_PEM_read_bio_DSAparams(bp: PBIO; x: PPDSA; cb: pem_password_cb; u: Pointer): PDSA; cdecl; +begin + PEM_read_bio_DSAparams := LoadLibCryptoFunction('PEM_read_bio_DSAparams'); + if not assigned(PEM_read_bio_DSAparams) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_DSAparams'); + Result := PEM_read_bio_DSAparams(bp,x,cb,u); +end; + +function Load_PEM_write_bio_DSAparams(bp: PBIO; const x: PDSA): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_DSAparams := LoadLibCryptoFunction('PEM_write_bio_DSAparams'); + if not assigned(PEM_write_bio_DSAparams) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_DSAparams'); + Result := PEM_write_bio_DSAparams(bp,x); +end; + +function Load_PEM_read_bio_ECPKParameters(bp: PBIO; x: PPEC_GROUP; cb: pem_password_cb; u: Pointer): PEC_GROUP; cdecl; +begin + PEM_read_bio_ECPKParameters := LoadLibCryptoFunction('PEM_read_bio_ECPKParameters'); + if not assigned(PEM_read_bio_ECPKParameters) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_ECPKParameters'); + Result := PEM_read_bio_ECPKParameters(bp,x,cb,u); +end; + +function Load_PEM_write_bio_ECPKParameters(bp: PBIO; const x: PEC_GROUP): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_ECPKParameters := LoadLibCryptoFunction('PEM_write_bio_ECPKParameters'); + if not assigned(PEM_write_bio_ECPKParameters) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_ECPKParameters'); + Result := PEM_write_bio_ECPKParameters(bp,x); +end; + +function Load_PEM_read_bio_ECPrivateKey(bp: PBIO; x: PPEC_KEY; cb: pem_password_cb; u: Pointer): PEC_KEY; cdecl; +begin + PEM_read_bio_ECPrivateKey := LoadLibCryptoFunction('PEM_read_bio_ECPrivateKey'); + if not assigned(PEM_read_bio_ECPrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_ECPrivateKey'); + Result := PEM_read_bio_ECPrivateKey(bp,x,cb,u); +end; + +function Load_PEM_write_bio_ECPrivateKey(bp: PBIO; x: PEC_KEY; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_ECPrivateKey := LoadLibCryptoFunction('PEM_write_bio_ECPrivateKey'); + if not assigned(PEM_write_bio_ECPrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_ECPrivateKey'); + Result := PEM_write_bio_ECPrivateKey(bp,x,enc,kstr,klen,cb,u); +end; + +function Load_PEM_read_bio_EC_PUBKEY(bp: PBIO; x: PPEC_KEY; cb: pem_password_cb; u: Pointer): PEC_KEY; cdecl; +begin + PEM_read_bio_EC_PUBKEY := LoadLibCryptoFunction('PEM_read_bio_EC_PUBKEY'); + if not assigned(PEM_read_bio_EC_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_EC_PUBKEY'); + Result := PEM_read_bio_EC_PUBKEY(bp,x,cb,u); +end; + +function Load_PEM_write_bio_EC_PUBKEY(bp: PBIO; x: PEC_KEY): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_EC_PUBKEY := LoadLibCryptoFunction('PEM_write_bio_EC_PUBKEY'); + if not assigned(PEM_write_bio_EC_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_EC_PUBKEY'); + Result := PEM_write_bio_EC_PUBKEY(bp,x); +end; + +function Load_PEM_read_bio_DHparams(bp: PBIO; x: PPDH; cb: pem_password_cb; u: Pointer): PDH; cdecl; +begin + PEM_read_bio_DHparams := LoadLibCryptoFunction('PEM_read_bio_DHparams'); + if not assigned(PEM_read_bio_DHparams) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_DHparams'); + Result := PEM_read_bio_DHparams(bp,x,cb,u); +end; + +function Load_PEM_write_bio_DHparams(bp: PBIO; const x: PDH): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_DHparams := LoadLibCryptoFunction('PEM_write_bio_DHparams'); + if not assigned(PEM_write_bio_DHparams) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_DHparams'); + Result := PEM_write_bio_DHparams(bp,x); +end; + +function Load_PEM_write_bio_DHxparams(bp: PBIO; const x: PDH): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_DHxparams := LoadLibCryptoFunction('PEM_write_bio_DHxparams'); + if not assigned(PEM_write_bio_DHxparams) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_DHxparams'); + Result := PEM_write_bio_DHxparams(bp,x); +end; + +function Load_PEM_read_bio_PrivateKey(bp: PBIO; x: PPEVP_PKEY; cb: pem_password_cb; u: Pointer): PEVP_PKEY; cdecl; +begin + PEM_read_bio_PrivateKey := LoadLibCryptoFunction('PEM_read_bio_PrivateKey'); + if not assigned(PEM_read_bio_PrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_PrivateKey'); + Result := PEM_read_bio_PrivateKey(bp,x,cb,u); +end; + +function Load_PEM_write_bio_PrivateKey(bp: PBIO; x: PEVP_PKEY; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_PrivateKey := LoadLibCryptoFunction('PEM_write_bio_PrivateKey'); + if not assigned(PEM_write_bio_PrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_PrivateKey'); + Result := PEM_write_bio_PrivateKey(bp,x,enc,kstr,klen,cb,u); +end; + +function Load_PEM_read_bio_PUBKEY(bp: PBIO; x: PPEVP_PKEY; cb: pem_password_cb; u: Pointer): PEVP_PKEY; cdecl; +begin + PEM_read_bio_PUBKEY := LoadLibCryptoFunction('PEM_read_bio_PUBKEY'); + if not assigned(PEM_read_bio_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_PUBKEY'); + Result := PEM_read_bio_PUBKEY(bp,x,cb,u); +end; + +function Load_PEM_write_bio_PUBKEY(bp: PBIO; x: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_PUBKEY := LoadLibCryptoFunction('PEM_write_bio_PUBKEY'); + if not assigned(PEM_write_bio_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_PUBKEY'); + Result := PEM_write_bio_PUBKEY(bp,x); +end; + +function Load_PEM_write_bio_PrivateKey_traditional(bp: PBIO; x: PEVP_PKEY; const enc: PEVP_CIPHER; kstr: PByte; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_PrivateKey_traditional := LoadLibCryptoFunction('PEM_write_bio_PrivateKey_traditional'); + if not assigned(PEM_write_bio_PrivateKey_traditional) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_PrivateKey_traditional'); + Result := PEM_write_bio_PrivateKey_traditional(bp,x,enc,kstr,klen,cb,u); +end; + +function Load_PEM_write_bio_PKCS8PrivateKey_nid(bp: PBIO; x: PEVP_PKEY; nid: TOpenSSL_C_INT; kstr: PAnsiChar; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_PKCS8PrivateKey_nid := LoadLibCryptoFunction('PEM_write_bio_PKCS8PrivateKey_nid'); + if not assigned(PEM_write_bio_PKCS8PrivateKey_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_PKCS8PrivateKey_nid'); + Result := PEM_write_bio_PKCS8PrivateKey_nid(bp,x,nid,kstr,klen,cb,u); +end; + +function Load_PEM_write_bio_PKCS8PrivateKey(bp: PBIO; x: PEVP_PKEY_METHOD; const enc: PEVP_CIPHER; kstr: PAnsiChar; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_PKCS8PrivateKey := LoadLibCryptoFunction('PEM_write_bio_PKCS8PrivateKey'); + if not assigned(PEM_write_bio_PKCS8PrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_PKCS8PrivateKey'); + Result := PEM_write_bio_PKCS8PrivateKey(bp,x,enc,kstr,klen,cb,u); +end; + +function Load_i2d_PKCS8PrivateKey_bio(bp: PBIO; x: PEVP_PKEY; const enc: PEVP_CIPHER_CTX; kstr: PAnsiChar; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +begin + i2d_PKCS8PrivateKey_bio := LoadLibCryptoFunction('i2d_PKCS8PrivateKey_bio'); + if not assigned(i2d_PKCS8PrivateKey_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PKCS8PrivateKey_bio'); + Result := i2d_PKCS8PrivateKey_bio(bp,x,enc,kstr,klen,cb,u); +end; + +function Load_i2d_PKCS8PrivateKey_nid_bio(bp: PBIO; x: PEVP_PKEY; nid: TOpenSSL_C_INT; kstr: PAnsiChar; klen: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +begin + i2d_PKCS8PrivateKey_nid_bio := LoadLibCryptoFunction('i2d_PKCS8PrivateKey_nid_bio'); + if not assigned(i2d_PKCS8PrivateKey_nid_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PKCS8PrivateKey_nid_bio'); + Result := i2d_PKCS8PrivateKey_nid_bio(bp,x,nid,kstr,klen,cb,u); +end; + +function Load_d2i_PKCS8PrivateKey_bio(bp: PBIO; x: PPEVP_PKEY_CTX; cb: pem_password_cb; u: Pointer): PEVP_PKEY; cdecl; +begin + d2i_PKCS8PrivateKey_bio := LoadLibCryptoFunction('d2i_PKCS8PrivateKey_bio'); + if not assigned(d2i_PKCS8PrivateKey_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_PKCS8PrivateKey_bio'); + Result := d2i_PKCS8PrivateKey_bio(bp,x,cb,u); +end; + +function Load_PEM_read_bio_Parameters(bp: PBIO; x: PPEVP_PKEY): PEVP_PKEY; cdecl; +begin + PEM_read_bio_Parameters := LoadLibCryptoFunction('PEM_read_bio_Parameters'); + if not assigned(PEM_read_bio_Parameters) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_read_bio_Parameters'); + Result := PEM_read_bio_Parameters(bp,x); +end; + +function Load_PEM_write_bio_Parameters(bp: PBIO; x: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_Parameters := LoadLibCryptoFunction('PEM_write_bio_Parameters'); + if not assigned(PEM_write_bio_Parameters) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_Parameters'); + Result := PEM_write_bio_Parameters(bp,x); +end; + +function Load_b2i_PrivateKey(const in_: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; +begin + b2i_PrivateKey := LoadLibCryptoFunction('b2i_PrivateKey'); + if not assigned(b2i_PrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('b2i_PrivateKey'); + Result := b2i_PrivateKey(in_,length); +end; + +function Load_b2i_PublicKey(const in_: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; +begin + b2i_PublicKey := LoadLibCryptoFunction('b2i_PublicKey'); + if not assigned(b2i_PublicKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('b2i_PublicKey'); + Result := b2i_PublicKey(in_,length); +end; + +function Load_b2i_PrivateKey_bio(in_: PBIO): PEVP_PKEY; cdecl; +begin + b2i_PrivateKey_bio := LoadLibCryptoFunction('b2i_PrivateKey_bio'); + if not assigned(b2i_PrivateKey_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('b2i_PrivateKey_bio'); + Result := b2i_PrivateKey_bio(in_); +end; + +function Load_b2i_PublicKey_bio(in_: PBIO): PEVP_PKEY; cdecl; +begin + b2i_PublicKey_bio := LoadLibCryptoFunction('b2i_PublicKey_bio'); + if not assigned(b2i_PublicKey_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('b2i_PublicKey_bio'); + Result := b2i_PublicKey_bio(in_); +end; + +function Load_i2b_PrivateKey_bio(out_: PBIO; pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + i2b_PrivateKey_bio := LoadLibCryptoFunction('i2b_PrivateKey_bio'); + if not assigned(i2b_PrivateKey_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2b_PrivateKey_bio'); + Result := i2b_PrivateKey_bio(out_,pk); +end; + +function Load_i2b_PublicKey_bio(out_: PBIO; pk: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + i2b_PublicKey_bio := LoadLibCryptoFunction('i2b_PublicKey_bio'); + if not assigned(i2b_PublicKey_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2b_PublicKey_bio'); + Result := i2b_PublicKey_bio(out_,pk); +end; + +function Load_b2i_PVK_bio(in_: PBIO; cb: pem_password_cb; u: Pointer): PEVP_PKEY; cdecl; +begin + b2i_PVK_bio := LoadLibCryptoFunction('b2i_PVK_bio'); + if not assigned(b2i_PVK_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('b2i_PVK_bio'); + Result := b2i_PVK_bio(in_,cb,u); +end; + +function Load_i2b_PVK_bio(out_: PBIO; pk: PEVP_PKEY; enclevel: TOpenSSL_C_INT; cb: pem_password_cb; u: Pointer): TOpenSSL_C_INT; cdecl; +begin + i2b_PVK_bio := LoadLibCryptoFunction('i2b_PVK_bio'); + if not assigned(i2b_PVK_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2b_PVK_bio'); + Result := i2b_PVK_bio(out_,pk,enclevel,cb,u); +end; + + +procedure UnLoad; +begin + PEM_get_EVP_CIPHER_INFO := Load_PEM_get_EVP_CIPHER_INFO; + PEM_do_header := Load_PEM_do_header; + PEM_read_bio := Load_PEM_read_bio; + PEM_read_bio_ex := Load_PEM_read_bio_ex; + PEM_bytes_read_bio_secmem := Load_PEM_bytes_read_bio_secmem; + PEM_write_bio := Load_PEM_write_bio; + PEM_bytes_read_bio := Load_PEM_bytes_read_bio; + PEM_ASN1_read_bio := Load_PEM_ASN1_read_bio; + PEM_ASN1_write_bio := Load_PEM_ASN1_write_bio; + PEM_X509_INFO_read_bio := Load_PEM_X509_INFO_read_bio; + PEM_X509_INFO_write_bio := Load_PEM_X509_INFO_write_bio; + PEM_SignInit := Load_PEM_SignInit; + PEM_SignUpdate := Load_PEM_SignUpdate; + PEM_SignFinal := Load_PEM_SignFinal; + PEM_def_callback := Load_PEM_def_callback; + PEM_proc_type := Load_PEM_proc_type; + PEM_dek_info := Load_PEM_dek_info; + PEM_read_bio_X509 := Load_PEM_read_bio_X509; + PEM_write_bio_X509 := Load_PEM_write_bio_X509; + PEM_read_bio_X509_AUX := Load_PEM_read_bio_X509_AUX; + PEM_write_bio_X509_AUX := Load_PEM_write_bio_X509_AUX; + PEM_read_bio_X509_REQ := Load_PEM_read_bio_X509_REQ; + PEM_write_bio_X509_REQ := Load_PEM_write_bio_X509_REQ; + PEM_write_bio_X509_REQ_NEW := Load_PEM_write_bio_X509_REQ_NEW; + PEM_read_bio_X509_CRL := Load_PEM_read_bio_X509_CRL; + PEM_write_bio_X509_CRL := Load_PEM_write_bio_X509_CRL; + PEM_read_bio_PKCS7 := Load_PEM_read_bio_PKCS7; + PEM_write_bio_PKCS7 := Load_PEM_write_bio_PKCS7; + PEM_read_bio_PKCS8 := Load_PEM_read_bio_PKCS8; + PEM_write_bio_PKCS8 := Load_PEM_write_bio_PKCS8; + PEM_read_bio_PKCS8_PRIV_KEY_INFO := Load_PEM_read_bio_PKCS8_PRIV_KEY_INFO; + PEM_write_bio_PKCS8_PRIV_KEY_INFO := Load_PEM_write_bio_PKCS8_PRIV_KEY_INFO; + PEM_read_bio_RSAPrivateKey := Load_PEM_read_bio_RSAPrivateKey; + PEM_write_bio_RSAPrivateKey := Load_PEM_write_bio_RSAPrivateKey; + PEM_read_bio_RSAPublicKey := Load_PEM_read_bio_RSAPublicKey; + PEM_write_bio_RSAPublicKey := Load_PEM_write_bio_RSAPublicKey; + PEM_read_bio_RSA_PUBKEY := Load_PEM_read_bio_RSA_PUBKEY; + PEM_write_bio_RSA_PUBKEY := Load_PEM_write_bio_RSA_PUBKEY; + PEM_read_bio_DSAPrivateKey := Load_PEM_read_bio_DSAPrivateKey; + PEM_write_bio_DSAPrivateKey := Load_PEM_write_bio_DSAPrivateKey; + PEM_read_bio_DSA_PUBKEY := Load_PEM_read_bio_DSA_PUBKEY; + PEM_write_bio_DSA_PUBKEY := Load_PEM_write_bio_DSA_PUBKEY; + PEM_read_bio_DSAparams := Load_PEM_read_bio_DSAparams; + PEM_write_bio_DSAparams := Load_PEM_write_bio_DSAparams; + PEM_read_bio_ECPKParameters := Load_PEM_read_bio_ECPKParameters; + PEM_write_bio_ECPKParameters := Load_PEM_write_bio_ECPKParameters; + PEM_read_bio_ECPrivateKey := Load_PEM_read_bio_ECPrivateKey; + PEM_write_bio_ECPrivateKey := Load_PEM_write_bio_ECPrivateKey; + PEM_read_bio_EC_PUBKEY := Load_PEM_read_bio_EC_PUBKEY; + PEM_write_bio_EC_PUBKEY := Load_PEM_write_bio_EC_PUBKEY; + PEM_read_bio_DHparams := Load_PEM_read_bio_DHparams; + PEM_write_bio_DHparams := Load_PEM_write_bio_DHparams; + PEM_write_bio_DHxparams := Load_PEM_write_bio_DHxparams; + PEM_read_bio_PrivateKey := Load_PEM_read_bio_PrivateKey; + PEM_write_bio_PrivateKey := Load_PEM_write_bio_PrivateKey; + PEM_read_bio_PUBKEY := Load_PEM_read_bio_PUBKEY; + PEM_write_bio_PUBKEY := Load_PEM_write_bio_PUBKEY; + PEM_write_bio_PrivateKey_traditional := Load_PEM_write_bio_PrivateKey_traditional; + PEM_write_bio_PKCS8PrivateKey_nid := Load_PEM_write_bio_PKCS8PrivateKey_nid; + PEM_write_bio_PKCS8PrivateKey := Load_PEM_write_bio_PKCS8PrivateKey; + i2d_PKCS8PrivateKey_bio := Load_i2d_PKCS8PrivateKey_bio; + i2d_PKCS8PrivateKey_nid_bio := Load_i2d_PKCS8PrivateKey_nid_bio; + d2i_PKCS8PrivateKey_bio := Load_d2i_PKCS8PrivateKey_bio; + PEM_read_bio_Parameters := Load_PEM_read_bio_Parameters; + PEM_write_bio_Parameters := Load_PEM_write_bio_Parameters; + b2i_PrivateKey := Load_b2i_PrivateKey; + b2i_PublicKey := Load_b2i_PublicKey; + b2i_PrivateKey_bio := Load_b2i_PrivateKey_bio; + b2i_PublicKey_bio := Load_b2i_PublicKey_bio; + i2b_PrivateKey_bio := Load_i2b_PrivateKey_bio; + i2b_PublicKey_bio := Load_i2b_PublicKey_bio; + b2i_PVK_bio := Load_b2i_PVK_bio; + i2b_PVK_bio := Load_i2b_PVK_bio; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_pemerr.pas b/src/opensslHdrs/IdOpenSSLHeaders_pemerr.pas new file mode 100644 index 0000000..a802c06 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_pemerr.pas @@ -0,0 +1,172 @@ +(* This unit was generated from the source file pemerr.h2pas +It should not be modified directly. All changes should be made to pemerr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_pemerr; + + +interface + +// Headers for OpenSSL 1.1.1 +// pemerr.h + + +uses + IdSSLOpenSSLAPI; + +const + // PEM function codes + PEM_F_B2I_DSS = 127; + PEM_F_B2I_PVK_BIO = 128; + PEM_F_B2I_RSA = 129; + PEM_F_CHECK_BITLEN_DSA = 130; + PEM_F_CHECK_BITLEN_RSA = 131; + PEM_F_D2I_PKCS8PRIVATEKEY_BIO = 120; + PEM_F_D2I_PKCS8PRIVATEKEY_FP = 121; + PEM_F_DO_B2I = 132; + PEM_F_DO_B2I_BIO = 133; + PEM_F_DO_BLOB_HEADER = 134; + PEM_F_DO_I2B = 146; + PEM_F_DO_PK8PKEY = 126; + PEM_F_DO_PK8PKEY_FP = 125; + PEM_F_DO_PVK_BODY = 135; + PEM_F_DO_PVK_HEADER = 136; + PEM_F_GET_HEADER_AND_DATA = 143; + PEM_F_GET_NAME = 144; + PEM_F_I2B_PVK = 137; + PEM_F_I2B_PVK_BIO = 138; + PEM_F_LOAD_IV = 101; + PEM_F_PEM_ASN1_READ = 102; + PEM_F_PEM_ASN1_READ_BIO = 103; + PEM_F_PEM_ASN1_WRITE = 104; + PEM_F_PEM_ASN1_WRITE_BIO = 105; + PEM_F_PEM_DEF_CALLBACK = 100; + PEM_F_PEM_DO_HEADER = 106; + PEM_F_PEM_GET_EVP_CIPHER_INFO = 107; + PEM_F_PEM_READ = 108; + PEM_F_PEM_READ_BIO = 109; + PEM_F_PEM_READ_BIO_DHPARAMS = 141; + PEM_F_PEM_READ_BIO_EX = 145; + PEM_F_PEM_READ_BIO_PARAMETERS = 140; + PEM_F_PEM_READ_BIO_PRIVATEKEY = 123; + PEM_F_PEM_READ_DHPARAMS = 142; + PEM_F_PEM_READ_PRIVATEKEY = 124; + PEM_F_PEM_SIGNFINAL = 112; + PEM_F_PEM_WRITE = 113; + PEM_F_PEM_WRITE_BIO = 114; + PEM_F_PEM_WRITE_PRIVATEKEY = 139; + PEM_F_PEM_X509_INFO_READ = 115; + PEM_F_PEM_X509_INFO_READ_BIO = 116; + PEM_F_PEM_X509_INFO_WRITE_BIO = 117; + // PEM reason codes + PEM_R_BAD_BASE64_DECODE = 100; + PEM_R_BAD_DECRYPT = 101; + PEM_R_BAD_END_LINE = 102; + PEM_R_BAD_IV_CHARS = 103; + PEM_R_BAD_MAGIC_NUMBER = 116; + PEM_R_BAD_PASSWORD_READ = 104; + PEM_R_BAD_VERSION_NUMBER = 117; + PEM_R_BIO_WRITE_FAILURE = 118; + PEM_R_CIPHER_IS_NULL = 127; + PEM_R_ERROR_CONVERTING_PRIVATE_KEY = 115; + PEM_R_EXPECTING_PRIVATE_KEY_BLOB = 119; + PEM_R_EXPECTING_PUBLIC_KEY_BLOB = 120; + PEM_R_HEADER_TOO_LONG = 128; + PEM_R_INCONSISTENT_HEADER = 121; + PEM_R_KEYBLOB_HEADER_PARSE_ERROR = 122; + PEM_R_KEYBLOB_TOO_SHORT = 123; + PEM_R_MISSING_DEK_IV = 129; + PEM_R_NOT_DEK_INFO = 105; + PEM_R_NOT_ENCRYPTED = 106; + PEM_R_NOT_PROC_TYPE = 107; + PEM_R_NO_START_LINE = 108; + PEM_R_PROBLEMS_GETTING_PASSWORD = 109; + PEM_R_PVK_DATA_TOO_SHORT = 124; + PEM_R_PVK_TOO_SHORT = 125; + PEM_R_READ_KEY = 111; + PEM_R_SHORT_HEADER = 112; + PEM_R_UNEXPECTED_DEK_IV = 130; + PEM_R_UNSUPPORTED_CIPHER = 113; + PEM_R_UNSUPPORTED_ENCRYPTION = 114; + PEM_R_UNSUPPORTED_KEY_COMPONENTS = 126; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_PEM_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_PEM_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_PEM_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_PEM_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_PEM_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_PEM_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_PEM_strings := LoadLibCryptoFunction('ERR_load_PEM_strings'); + if not assigned(ERR_load_PEM_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_PEM_strings'); + Result := ERR_load_PEM_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_PEM_strings := Load_ERR_load_PEM_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_pkcs12.pas b/src/opensslHdrs/IdOpenSSLHeaders_pkcs12.pas new file mode 100644 index 0000000..9bd103f --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_pkcs12.pas @@ -0,0 +1,1054 @@ +(* This unit was generated from the source file pkcs12.h2pas +It should not be modified directly. All changes should be made to pkcs12.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_pkcs12; + + +interface + +// Headers for OpenSSL 1.1.1 +// pkcs12.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_pkcs7, + IdOpenSSLHeaders_x509; + +const + PKCS12_KEY_ID = 1; + PKCS12_IV_ID = 2; + PKCS12_MAC_ID = 3; + + ///* Default iteration count */ + //# ifndef PKCS12_DEFAULT_ITER + //# define PKCS12_DEFAULT_ITER PKCS5_DEFAULT_ITER + //# endif + + PKCS12_MAC_KEY_LENGTH = 20; + + PKCS12_SALT_LEN = 8; + + ///* It's not clear if these are actually needed... */ + //# define PKCS12_key_gen PKCS12_key_gen_utf8 + //# define PKCS12_add_friendlyname PKCS12_add_friendlyname_utf8 + + (* MS key usage constants *) + KEY_EX = $10; + KEY_SIG = $80; + + PKCS12_ERROR = 0; + PKCS12_OK = 1; + +type + PKCS12_MAC_DATA_st = type Pointer; + PKCS12_MAC_DATA = PKCS12_MAC_DATA_st; + PPKCS12_MAC_DATA = ^PKCS12_MAC_DATA; + PPPKCS12_MAC_DATA = ^PPKCS12_MAC_DATA; + + PKCS12_st = type Pointer; + PKCS12 = PKCS12_st; + PPKCS12 = ^PKCS12; + PPPKCS12 = ^PPKCS12; + + PKCS12_SAFEBAG_st = type Pointer; + PKCS12_SAFEBAG = PKCS12_SAFEBAG_st; + PPKCS12_SAFEBAG = ^PKCS12_SAFEBAG; + PPPKCS12_SAFEBAG = ^PPKCS12_SAFEBAG; + +// DEFINE_STACK_OF(PKCS12_SAFEBAG) + + pkcs12_bag_st = type Pointer; + PKCS12_BAGS = pkcs12_bag_st; + PPKCS12_BAGS = ^PKCS12_BAGS; + PPPKCS12_BAGS = ^PPKCS12_BAGS; + + //ASN1_TYPE *PKCS8_get_attr(PKCS8_PRIV_KEY_INFO *p8, TOpenSSL_C_INT attr_nid); + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM PKCS12_mac_present} +{$EXTERNALSYM PKCS12_get0_mac} +{$EXTERNALSYM PKCS12_SAFEBAG_get0_attr} +{$EXTERNALSYM PKCS12_SAFEBAG_get0_type} +{$EXTERNALSYM PKCS12_SAFEBAG_get_nid} +{$EXTERNALSYM PKCS12_SAFEBAG_get_bag_nid} +{$EXTERNALSYM PKCS12_SAFEBAG_get1_cert} +{$EXTERNALSYM PKCS12_SAFEBAG_get1_crl} +{$EXTERNALSYM PKCS12_SAFEBAG_get0_p8inf} +{$EXTERNALSYM PKCS12_SAFEBAG_get0_pkcs8} +{$EXTERNALSYM PKCS12_SAFEBAG_create_cert} +{$EXTERNALSYM PKCS12_SAFEBAG_create_crl} +{$EXTERNALSYM PKCS12_SAFEBAG_create0_p8inf} +{$EXTERNALSYM PKCS12_SAFEBAG_create0_pkcs8} +{$EXTERNALSYM PKCS12_SAFEBAG_create_pkcs8_encrypt} +{$EXTERNALSYM PKCS12_item_pack_safebag} +{$EXTERNALSYM PKCS8_decrypt} +{$EXTERNALSYM PKCS12_decrypt_skey} +{$EXTERNALSYM PKCS8_encrypt} +{$EXTERNALSYM PKCS8_set0_pbe} +{$EXTERNALSYM PKCS12_add_localkeyid} +{$EXTERNALSYM PKCS12_add_friendlyname_asc} +{$EXTERNALSYM PKCS12_add_friendlyname_utf8} +{$EXTERNALSYM PKCS12_add_CSPName_asc} +{$EXTERNALSYM PKCS12_add_friendlyname_uni} +{$EXTERNALSYM PKCS8_add_keyusage} +{$EXTERNALSYM PKCS12_get_friendlyname} +{$EXTERNALSYM PKCS12_pbe_crypt} +{$EXTERNALSYM PKCS12_item_decrypt_d2i} +{$EXTERNALSYM PKCS12_item_i2d_encrypt} +{$EXTERNALSYM PKCS12_init} +{$EXTERNALSYM PKCS12_key_gen_asc} +{$EXTERNALSYM PKCS12_key_gen_uni} +{$EXTERNALSYM PKCS12_key_gen_utf8} +{$EXTERNALSYM PKCS12_PBE_keyivgen} +{$EXTERNALSYM PKCS12_gen_mac} +{$EXTERNALSYM PKCS12_verify_mac} +{$EXTERNALSYM PKCS12_set_mac} +{$EXTERNALSYM PKCS12_setup_mac} +{$EXTERNALSYM OPENSSL_asc2uni} +{$EXTERNALSYM OPENSSL_uni2asc} +{$EXTERNALSYM OPENSSL_utf82uni} +{$EXTERNALSYM OPENSSL_uni2utf8} +{$EXTERNALSYM PKCS12_new} +{$EXTERNALSYM PKCS12_free} +{$EXTERNALSYM d2i_PKCS12} +{$EXTERNALSYM i2d_PKCS12} +{$EXTERNALSYM PKCS12_it} +{$EXTERNALSYM PKCS12_MAC_DATA_new} +{$EXTERNALSYM PKCS12_MAC_DATA_free} +{$EXTERNALSYM d2i_PKCS12_MAC_DATA} +{$EXTERNALSYM i2d_PKCS12_MAC_DATA} +{$EXTERNALSYM PKCS12_MAC_DATA_it} +{$EXTERNALSYM PKCS12_SAFEBAG_new} +{$EXTERNALSYM PKCS12_SAFEBAG_free} +{$EXTERNALSYM d2i_PKCS12_SAFEBAG} +{$EXTERNALSYM i2d_PKCS12_SAFEBAG} +{$EXTERNALSYM PKCS12_SAFEBAG_it} +{$EXTERNALSYM PKCS12_BAGS_new} +{$EXTERNALSYM PKCS12_BAGS_free} +{$EXTERNALSYM d2i_PKCS12_BAGS} +{$EXTERNALSYM i2d_PKCS12_BAGS} +{$EXTERNALSYM PKCS12_BAGS_it} +{$EXTERNALSYM PKCS12_PBE_add} +{$EXTERNALSYM PKCS12_parse} +{$EXTERNALSYM PKCS12_create} +{$EXTERNALSYM i2d_PKCS12_bio} +{$EXTERNALSYM d2i_PKCS12_bio} +{$EXTERNALSYM PKCS12_newpass} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function PKCS12_mac_present(const p12: PPKCS12): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure PKCS12_get0_mac(const pmac: PPASN1_OCTET_STRING; const pmacalg: PPX509_ALGOR; const psalt: PPASN1_OCTET_STRING; const piter: PPASN1_INTEGER; const p12: PPKCS12); cdecl; external CLibCrypto; +function PKCS12_SAFEBAG_get0_attr(const bag: PPKCS12_SAFEBAG; attr_nid: TOpenSSL_C_INT): PASN1_TYPE; cdecl; external CLibCrypto; +function PKCS12_SAFEBAG_get0_type(const bag: PPKCS12_SAFEBAG): PASN1_OBJECT; cdecl; external CLibCrypto; +function PKCS12_SAFEBAG_get_nid(const bag: PPKCS12_SAFEBAG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_SAFEBAG_get_bag_nid(const bag: PPKCS12_SAFEBAG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_SAFEBAG_get1_cert(const bag: PPKCS12_SAFEBAG): PX509; cdecl; external CLibCrypto; +function PKCS12_SAFEBAG_get1_crl(const bag: PPKCS12_SAFEBAG): PX509_CRL; cdecl; external CLibCrypto; +function PKCS12_SAFEBAG_get0_p8inf(const bag: PPKCS12_SAFEBAG): PPKCS8_PRIV_KEY_INFO; cdecl; external CLibCrypto; +function PKCS12_SAFEBAG_get0_pkcs8(const bag: PPKCS12_SAFEBAG): PX509_SIG; cdecl; external CLibCrypto; +function PKCS12_SAFEBAG_create_cert(x509: PX509): PPKCS12_SAFEBAG; cdecl; external CLibCrypto; +function PKCS12_SAFEBAG_create_crl(crl: PX509_CRL): PPKCS12_SAFEBAG; cdecl; external CLibCrypto; +function PKCS12_SAFEBAG_create0_p8inf(p8: PPKCS8_PRIV_KEY_INFO): PPKCS12_SAFEBAG; cdecl; external CLibCrypto; +function PKCS12_SAFEBAG_create0_pkcs8(p8: PX509_SIG): PPKCS12_SAFEBAG; cdecl; external CLibCrypto; +function PKCS12_SAFEBAG_create_pkcs8_encrypt(pbe_nid: TOpenSSL_C_INT; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; p8inf: PPKCS8_PRIV_KEY_INFO): PPKCS12_SAFEBAG; cdecl; external CLibCrypto; +function PKCS12_item_pack_safebag(obj: Pointer; const it: PASN1_ITEM; nid1: TOpenSSL_C_INT; nid2: TOpenSSL_C_INT): PPKCS12_SAFEBAG; cdecl; external CLibCrypto; +function PKCS8_decrypt(const p8: PX509_SIG; const pass: PAnsiChar; passlen: TOpenSSL_C_INT): PPKCS8_PRIV_KEY_INFO; cdecl; external CLibCrypto; +function PKCS12_decrypt_skey(const bag: PPKCS12_SAFEBAG; const pass: PAnsiChar; passlen: TOpenSSL_C_INT): PPKCS8_PRIV_KEY_INFO; cdecl; external CLibCrypto; +function PKCS8_encrypt(pbe_nid: TOpenSSL_C_INT; const cipher: PEVP_CIPHER; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; p8: PPKCS8_PRIV_KEY_INFO): PX509_SIG; cdecl; external CLibCrypto; +function PKCS8_set0_pbe(const pass: PAnsiChar; passlen: TOpenSSL_C_INT; p8inf: PPKCS8_PRIV_KEY_INFO; pbe: PX509_ALGOR): PX509_SIG; cdecl; external CLibCrypto; +function PKCS12_add_localkeyid(bag: PPKCS12_SAFEBAG; name: PByte; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_add_friendlyname_asc(bag: PPKCS12_SAFEBAG; const name: PAnsiChar; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_add_friendlyname_utf8(bag: PPKCS12_SAFEBAG; const name: PAnsiChar; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_add_CSPName_asc(bag: PPKCS12_SAFEBAG; const name: PAnsiChar; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_add_friendlyname_uni(bag: PPKCS12_SAFEBAG; const name: PByte; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS8_add_keyusage(p8: PPKCS8_PRIV_KEY_INFO; usage: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_get_friendlyname(bag: PPKCS12_SAFEBAG): PAnsiChar; cdecl; external CLibCrypto; +function PKCS12_pbe_crypt(const algor: PX509_ALGOR; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; const in_: PByte; inlen: TOpenSSL_C_INT; data: PPByte; datalen: POpenSSL_C_INT; en_de: TOpenSSL_C_INT): PByte; cdecl; external CLibCrypto; +function PKCS12_item_decrypt_d2i(const algor: PX509_ALGOR; const it: PASN1_ITEM; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; const oct: PASN1_OCTET_STRING; zbuf: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function PKCS12_item_i2d_encrypt(algor: PX509_ALGOR; const it: PASN1_ITEM; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; obj: Pointer; zbuf: TOpenSSL_C_INT): PASN1_OCTET_STRING; cdecl; external CLibCrypto; +function PKCS12_init(mode: TOpenSSL_C_INT): PPKCS12; cdecl; external CLibCrypto; +function PKCS12_key_gen_asc(const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; id: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; n: TOpenSSL_C_INT; out_: PByte; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_key_gen_uni(pass: PByte; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; id: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; n: TOpenSSL_C_INT; out_: PByte; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_key_gen_utf8(const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; id: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; n: TOpenSSL_C_INT; out_: PByte; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_PBE_keyivgen(ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const cipher: PEVP_CIPHER; const md_type: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_gen_mac(p12: PPKCS12; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; mac: PByte; maclen: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_verify_mac(p12: PPKCS12; const pass: PAnsiChar; passlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_set_mac(p12: PPKCS12; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_setup_mac(p12: PPKCS12; iter: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OPENSSL_asc2uni(const asc: PAnsiChar; asclen: TOpenSSL_C_INT; uni: PPByte; unilen: POpenSSL_C_INT): PByte; cdecl; external CLibCrypto; +function OPENSSL_uni2asc(const uni: PByte; unilen: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibCrypto; +function OPENSSL_utf82uni(const asc: PAnsiChar; asclen: TOpenSSL_C_INT; uni: PPByte; unilen: POpenSSL_C_INT): PByte; cdecl; external CLibCrypto; +function OPENSSL_uni2utf8(const uni: PByte; unilen: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibCrypto; +function PKCS12_new: PPKCS12; cdecl; external CLibCrypto; +procedure PKCS12_free(a: PPKCS12); cdecl; external CLibCrypto; +function d2i_PKCS12(a: PPPKCS12; const in_: PPByte; len: TOpenSSL_C_LONG): PPKCS12; cdecl; external CLibCrypto; +function i2d_PKCS12(a: PPKCS12; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_it: PASN1_ITEM; cdecl; external CLibCrypto; +function PKCS12_MAC_DATA_new: PPKCS12_MAC_DATA; cdecl; external CLibCrypto; +procedure PKCS12_MAC_DATA_free(a: PPKCS12_MAC_DATA); cdecl; external CLibCrypto; +function d2i_PKCS12_MAC_DATA(a: PPPKCS12_MAC_DATA; const in_: PPByte; len: TOpenSSL_C_LONG): PPKCS12_MAC_DATA; cdecl; external CLibCrypto; +function i2d_PKCS12_MAC_DATA(a: PPKCS12_MAC_DATA; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_MAC_DATA_it: PASN1_ITEM; cdecl; external CLibCrypto; +function PKCS12_SAFEBAG_new: PPKCS12_SAFEBAG; cdecl; external CLibCrypto; +procedure PKCS12_SAFEBAG_free(a: PPKCS12_SAFEBAG); cdecl; external CLibCrypto; +function d2i_PKCS12_SAFEBAG(a: PPPKCS12_SAFEBAG; const in_: PPByte; len: TOpenSSL_C_LONG): PPKCS12_SAFEBAG; cdecl; external CLibCrypto; +function i2d_PKCS12_SAFEBAG(a: PPKCS12_SAFEBAG; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_SAFEBAG_it: PASN1_ITEM; cdecl; external CLibCrypto; +function PKCS12_BAGS_new: PPKCS12_BAGS; cdecl; external CLibCrypto; +procedure PKCS12_BAGS_free(a: PPKCS12_BAGS); cdecl; external CLibCrypto; +function d2i_PKCS12_BAGS(a: PPPKCS12_BAGS; const in_: PPByte; len: TOpenSSL_C_LONG): PPKCS12_BAGS; cdecl; external CLibCrypto; +function i2d_PKCS12_BAGS(a: PPKCS12_BAGS; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_BAGS_it: PASN1_ITEM; cdecl; external CLibCrypto; +procedure PKCS12_PBE_add(v: Pointer); cdecl; external CLibCrypto; +function PKCS12_parse(p12: PPKCS12; const pass: PAnsiChar; out pkey: PEVP_PKEY; out cert: PX509; ca: PPStack_Of_X509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS12_create(const pass: PAnsiChar; const name: PAnsiChar; pkey: PEVP_PKEY; cert: PX509; ca: PStack_Of_X509; nid_key: TOpenSSL_C_INT; nid_cert: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; mac_iter: TOpenSSL_C_INT; keytype: TOpenSSL_C_INT): PPKCS12; cdecl; external CLibCrypto; +function i2d_PKCS12_bio(bp: PBIO; p12: PPKCS12): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_PKCS12_bio(bp: PBIO; p12: PPPKCS12): PPKCS12; cdecl; external CLibCrypto; +function PKCS12_newpass(p12: PPKCS12; const oldpass: PAnsiChar; const newpass: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_PKCS12_mac_present(const p12: PPKCS12): TOpenSSL_C_INT; cdecl; +procedure Load_PKCS12_get0_mac(const pmac: PPASN1_OCTET_STRING; const pmacalg: PPX509_ALGOR; const psalt: PPASN1_OCTET_STRING; const piter: PPASN1_INTEGER; const p12: PPKCS12); cdecl; +function Load_PKCS12_SAFEBAG_get0_attr(const bag: PPKCS12_SAFEBAG; attr_nid: TOpenSSL_C_INT): PASN1_TYPE; cdecl; +function Load_PKCS12_SAFEBAG_get0_type(const bag: PPKCS12_SAFEBAG): PASN1_OBJECT; cdecl; +function Load_PKCS12_SAFEBAG_get_nid(const bag: PPKCS12_SAFEBAG): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_SAFEBAG_get_bag_nid(const bag: PPKCS12_SAFEBAG): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_SAFEBAG_get1_cert(const bag: PPKCS12_SAFEBAG): PX509; cdecl; +function Load_PKCS12_SAFEBAG_get1_crl(const bag: PPKCS12_SAFEBAG): PX509_CRL; cdecl; +function Load_PKCS12_SAFEBAG_get0_p8inf(const bag: PPKCS12_SAFEBAG): PPKCS8_PRIV_KEY_INFO; cdecl; +function Load_PKCS12_SAFEBAG_get0_pkcs8(const bag: PPKCS12_SAFEBAG): PX509_SIG; cdecl; +function Load_PKCS12_SAFEBAG_create_cert(x509: PX509): PPKCS12_SAFEBAG; cdecl; +function Load_PKCS12_SAFEBAG_create_crl(crl: PX509_CRL): PPKCS12_SAFEBAG; cdecl; +function Load_PKCS12_SAFEBAG_create0_p8inf(p8: PPKCS8_PRIV_KEY_INFO): PPKCS12_SAFEBAG; cdecl; +function Load_PKCS12_SAFEBAG_create0_pkcs8(p8: PX509_SIG): PPKCS12_SAFEBAG; cdecl; +function Load_PKCS12_SAFEBAG_create_pkcs8_encrypt(pbe_nid: TOpenSSL_C_INT; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; p8inf: PPKCS8_PRIV_KEY_INFO): PPKCS12_SAFEBAG; cdecl; +function Load_PKCS12_item_pack_safebag(obj: Pointer; const it: PASN1_ITEM; nid1: TOpenSSL_C_INT; nid2: TOpenSSL_C_INT): PPKCS12_SAFEBAG; cdecl; +function Load_PKCS8_decrypt(const p8: PX509_SIG; const pass: PAnsiChar; passlen: TOpenSSL_C_INT): PPKCS8_PRIV_KEY_INFO; cdecl; +function Load_PKCS12_decrypt_skey(const bag: PPKCS12_SAFEBAG; const pass: PAnsiChar; passlen: TOpenSSL_C_INT): PPKCS8_PRIV_KEY_INFO; cdecl; +function Load_PKCS8_encrypt(pbe_nid: TOpenSSL_C_INT; const cipher: PEVP_CIPHER; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; p8: PPKCS8_PRIV_KEY_INFO): PX509_SIG; cdecl; +function Load_PKCS8_set0_pbe(const pass: PAnsiChar; passlen: TOpenSSL_C_INT; p8inf: PPKCS8_PRIV_KEY_INFO; pbe: PX509_ALGOR): PX509_SIG; cdecl; +function Load_PKCS12_add_localkeyid(bag: PPKCS12_SAFEBAG; name: PByte; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_add_friendlyname_asc(bag: PPKCS12_SAFEBAG; const name: PAnsiChar; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_add_friendlyname_utf8(bag: PPKCS12_SAFEBAG; const name: PAnsiChar; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_add_CSPName_asc(bag: PPKCS12_SAFEBAG; const name: PAnsiChar; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_add_friendlyname_uni(bag: PPKCS12_SAFEBAG; const name: PByte; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS8_add_keyusage(p8: PPKCS8_PRIV_KEY_INFO; usage: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_get_friendlyname(bag: PPKCS12_SAFEBAG): PAnsiChar; cdecl; +function Load_PKCS12_pbe_crypt(const algor: PX509_ALGOR; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; const in_: PByte; inlen: TOpenSSL_C_INT; data: PPByte; datalen: POpenSSL_C_INT; en_de: TOpenSSL_C_INT): PByte; cdecl; +function Load_PKCS12_item_decrypt_d2i(const algor: PX509_ALGOR; const it: PASN1_ITEM; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; const oct: PASN1_OCTET_STRING; zbuf: TOpenSSL_C_INT): Pointer; cdecl; +function Load_PKCS12_item_i2d_encrypt(algor: PX509_ALGOR; const it: PASN1_ITEM; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; obj: Pointer; zbuf: TOpenSSL_C_INT): PASN1_OCTET_STRING; cdecl; +function Load_PKCS12_init(mode: TOpenSSL_C_INT): PPKCS12; cdecl; +function Load_PKCS12_key_gen_asc(const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; id: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; n: TOpenSSL_C_INT; out_: PByte; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_key_gen_uni(pass: PByte; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; id: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; n: TOpenSSL_C_INT; out_: PByte; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_key_gen_utf8(const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; id: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; n: TOpenSSL_C_INT; out_: PByte; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_PBE_keyivgen(ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const cipher: PEVP_CIPHER; const md_type: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_gen_mac(p12: PPKCS12; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; mac: PByte; maclen: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_verify_mac(p12: PPKCS12; const pass: PAnsiChar; passlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_set_mac(p12: PPKCS12; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_setup_mac(p12: PPKCS12; iter: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_OPENSSL_asc2uni(const asc: PAnsiChar; asclen: TOpenSSL_C_INT; uni: PPByte; unilen: POpenSSL_C_INT): PByte; cdecl; +function Load_OPENSSL_uni2asc(const uni: PByte; unilen: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_OPENSSL_utf82uni(const asc: PAnsiChar; asclen: TOpenSSL_C_INT; uni: PPByte; unilen: POpenSSL_C_INT): PByte; cdecl; +function Load_OPENSSL_uni2utf8(const uni: PByte; unilen: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_PKCS12_new: PPKCS12; cdecl; +procedure Load_PKCS12_free(a: PPKCS12); cdecl; +function Load_d2i_PKCS12(a: PPPKCS12; const in_: PPByte; len: TOpenSSL_C_LONG): PPKCS12; cdecl; +function Load_i2d_PKCS12(a: PPKCS12; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_it: PASN1_ITEM; cdecl; +function Load_PKCS12_MAC_DATA_new: PPKCS12_MAC_DATA; cdecl; +procedure Load_PKCS12_MAC_DATA_free(a: PPKCS12_MAC_DATA); cdecl; +function Load_d2i_PKCS12_MAC_DATA(a: PPPKCS12_MAC_DATA; const in_: PPByte; len: TOpenSSL_C_LONG): PPKCS12_MAC_DATA; cdecl; +function Load_i2d_PKCS12_MAC_DATA(a: PPKCS12_MAC_DATA; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_MAC_DATA_it: PASN1_ITEM; cdecl; +function Load_PKCS12_SAFEBAG_new: PPKCS12_SAFEBAG; cdecl; +procedure Load_PKCS12_SAFEBAG_free(a: PPKCS12_SAFEBAG); cdecl; +function Load_d2i_PKCS12_SAFEBAG(a: PPPKCS12_SAFEBAG; const in_: PPByte; len: TOpenSSL_C_LONG): PPKCS12_SAFEBAG; cdecl; +function Load_i2d_PKCS12_SAFEBAG(a: PPKCS12_SAFEBAG; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_SAFEBAG_it: PASN1_ITEM; cdecl; +function Load_PKCS12_BAGS_new: PPKCS12_BAGS; cdecl; +procedure Load_PKCS12_BAGS_free(a: PPKCS12_BAGS); cdecl; +function Load_d2i_PKCS12_BAGS(a: PPPKCS12_BAGS; const in_: PPByte; len: TOpenSSL_C_LONG): PPKCS12_BAGS; cdecl; +function Load_i2d_PKCS12_BAGS(a: PPKCS12_BAGS; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_BAGS_it: PASN1_ITEM; cdecl; +procedure Load_PKCS12_PBE_add(v: Pointer); cdecl; +function Load_PKCS12_parse(p12: PPKCS12; const pass: PAnsiChar; out pkey: PEVP_PKEY; out cert: PX509; ca: PPStack_Of_X509): TOpenSSL_C_INT; cdecl; +function Load_PKCS12_create(const pass: PAnsiChar; const name: PAnsiChar; pkey: PEVP_PKEY; cert: PX509; ca: PStack_Of_X509; nid_key: TOpenSSL_C_INT; nid_cert: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; mac_iter: TOpenSSL_C_INT; keytype: TOpenSSL_C_INT): PPKCS12; cdecl; +function Load_i2d_PKCS12_bio(bp: PBIO; p12: PPKCS12): TOpenSSL_C_INT; cdecl; +function Load_d2i_PKCS12_bio(bp: PBIO; p12: PPPKCS12): PPKCS12; cdecl; +function Load_PKCS12_newpass(p12: PPKCS12; const oldpass: PAnsiChar; const newpass: PAnsiChar): TOpenSSL_C_INT; cdecl; + +var + PKCS12_mac_present: function (const p12: PPKCS12): TOpenSSL_C_INT; cdecl = Load_PKCS12_mac_present; + PKCS12_get0_mac: procedure (const pmac: PPASN1_OCTET_STRING; const pmacalg: PPX509_ALGOR; const psalt: PPASN1_OCTET_STRING; const piter: PPASN1_INTEGER; const p12: PPKCS12); cdecl = Load_PKCS12_get0_mac; + PKCS12_SAFEBAG_get0_attr: function (const bag: PPKCS12_SAFEBAG; attr_nid: TOpenSSL_C_INT): PASN1_TYPE; cdecl = Load_PKCS12_SAFEBAG_get0_attr; + PKCS12_SAFEBAG_get0_type: function (const bag: PPKCS12_SAFEBAG): PASN1_OBJECT; cdecl = Load_PKCS12_SAFEBAG_get0_type; + PKCS12_SAFEBAG_get_nid: function (const bag: PPKCS12_SAFEBAG): TOpenSSL_C_INT; cdecl = Load_PKCS12_SAFEBAG_get_nid; + PKCS12_SAFEBAG_get_bag_nid: function (const bag: PPKCS12_SAFEBAG): TOpenSSL_C_INT; cdecl = Load_PKCS12_SAFEBAG_get_bag_nid; + PKCS12_SAFEBAG_get1_cert: function (const bag: PPKCS12_SAFEBAG): PX509; cdecl = Load_PKCS12_SAFEBAG_get1_cert; + PKCS12_SAFEBAG_get1_crl: function (const bag: PPKCS12_SAFEBAG): PX509_CRL; cdecl = Load_PKCS12_SAFEBAG_get1_crl; + PKCS12_SAFEBAG_get0_p8inf: function (const bag: PPKCS12_SAFEBAG): PPKCS8_PRIV_KEY_INFO; cdecl = Load_PKCS12_SAFEBAG_get0_p8inf; + PKCS12_SAFEBAG_get0_pkcs8: function (const bag: PPKCS12_SAFEBAG): PX509_SIG; cdecl = Load_PKCS12_SAFEBAG_get0_pkcs8; + PKCS12_SAFEBAG_create_cert: function (x509: PX509): PPKCS12_SAFEBAG; cdecl = Load_PKCS12_SAFEBAG_create_cert; + PKCS12_SAFEBAG_create_crl: function (crl: PX509_CRL): PPKCS12_SAFEBAG; cdecl = Load_PKCS12_SAFEBAG_create_crl; + PKCS12_SAFEBAG_create0_p8inf: function (p8: PPKCS8_PRIV_KEY_INFO): PPKCS12_SAFEBAG; cdecl = Load_PKCS12_SAFEBAG_create0_p8inf; + PKCS12_SAFEBAG_create0_pkcs8: function (p8: PX509_SIG): PPKCS12_SAFEBAG; cdecl = Load_PKCS12_SAFEBAG_create0_pkcs8; + PKCS12_SAFEBAG_create_pkcs8_encrypt: function (pbe_nid: TOpenSSL_C_INT; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; p8inf: PPKCS8_PRIV_KEY_INFO): PPKCS12_SAFEBAG; cdecl = Load_PKCS12_SAFEBAG_create_pkcs8_encrypt; + PKCS12_item_pack_safebag: function (obj: Pointer; const it: PASN1_ITEM; nid1: TOpenSSL_C_INT; nid2: TOpenSSL_C_INT): PPKCS12_SAFEBAG; cdecl = Load_PKCS12_item_pack_safebag; + PKCS8_decrypt: function (const p8: PX509_SIG; const pass: PAnsiChar; passlen: TOpenSSL_C_INT): PPKCS8_PRIV_KEY_INFO; cdecl = Load_PKCS8_decrypt; + PKCS12_decrypt_skey: function (const bag: PPKCS12_SAFEBAG; const pass: PAnsiChar; passlen: TOpenSSL_C_INT): PPKCS8_PRIV_KEY_INFO; cdecl = Load_PKCS12_decrypt_skey; + PKCS8_encrypt: function (pbe_nid: TOpenSSL_C_INT; const cipher: PEVP_CIPHER; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; p8: PPKCS8_PRIV_KEY_INFO): PX509_SIG; cdecl = Load_PKCS8_encrypt; + PKCS8_set0_pbe: function (const pass: PAnsiChar; passlen: TOpenSSL_C_INT; p8inf: PPKCS8_PRIV_KEY_INFO; pbe: PX509_ALGOR): PX509_SIG; cdecl = Load_PKCS8_set0_pbe; + PKCS12_add_localkeyid: function (bag: PPKCS12_SAFEBAG; name: PByte; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS12_add_localkeyid; + PKCS12_add_friendlyname_asc: function (bag: PPKCS12_SAFEBAG; const name: PAnsiChar; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS12_add_friendlyname_asc; + PKCS12_add_friendlyname_utf8: function (bag: PPKCS12_SAFEBAG; const name: PAnsiChar; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS12_add_friendlyname_utf8; + PKCS12_add_CSPName_asc: function (bag: PPKCS12_SAFEBAG; const name: PAnsiChar; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS12_add_CSPName_asc; + PKCS12_add_friendlyname_uni: function (bag: PPKCS12_SAFEBAG; const name: PByte; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS12_add_friendlyname_uni; + PKCS8_add_keyusage: function (p8: PPKCS8_PRIV_KEY_INFO; usage: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS8_add_keyusage; + PKCS12_get_friendlyname: function (bag: PPKCS12_SAFEBAG): PAnsiChar; cdecl = Load_PKCS12_get_friendlyname; + PKCS12_pbe_crypt: function (const algor: PX509_ALGOR; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; const in_: PByte; inlen: TOpenSSL_C_INT; data: PPByte; datalen: POpenSSL_C_INT; en_de: TOpenSSL_C_INT): PByte; cdecl = Load_PKCS12_pbe_crypt; + PKCS12_item_decrypt_d2i: function (const algor: PX509_ALGOR; const it: PASN1_ITEM; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; const oct: PASN1_OCTET_STRING; zbuf: TOpenSSL_C_INT): Pointer; cdecl = Load_PKCS12_item_decrypt_d2i; + PKCS12_item_i2d_encrypt: function (algor: PX509_ALGOR; const it: PASN1_ITEM; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; obj: Pointer; zbuf: TOpenSSL_C_INT): PASN1_OCTET_STRING; cdecl = Load_PKCS12_item_i2d_encrypt; + PKCS12_init: function (mode: TOpenSSL_C_INT): PPKCS12; cdecl = Load_PKCS12_init; + PKCS12_key_gen_asc: function (const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; id: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; n: TOpenSSL_C_INT; out_: PByte; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_PKCS12_key_gen_asc; + PKCS12_key_gen_uni: function (pass: PByte; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; id: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; n: TOpenSSL_C_INT; out_: PByte; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_PKCS12_key_gen_uni; + PKCS12_key_gen_utf8: function (const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; id: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; n: TOpenSSL_C_INT; out_: PByte; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_PKCS12_key_gen_utf8; + PKCS12_PBE_keyivgen: function (ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const cipher: PEVP_CIPHER; const md_type: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS12_PBE_keyivgen; + PKCS12_gen_mac: function (p12: PPKCS12; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; mac: PByte; maclen: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_PKCS12_gen_mac; + PKCS12_verify_mac: function (p12: PPKCS12; const pass: PAnsiChar; passlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS12_verify_mac; + PKCS12_set_mac: function (p12: PPKCS12; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_PKCS12_set_mac; + PKCS12_setup_mac: function (p12: PPKCS12; iter: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_PKCS12_setup_mac; + OPENSSL_asc2uni: function (const asc: PAnsiChar; asclen: TOpenSSL_C_INT; uni: PPByte; unilen: POpenSSL_C_INT): PByte; cdecl = Load_OPENSSL_asc2uni; + OPENSSL_uni2asc: function (const uni: PByte; unilen: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_OPENSSL_uni2asc; + OPENSSL_utf82uni: function (const asc: PAnsiChar; asclen: TOpenSSL_C_INT; uni: PPByte; unilen: POpenSSL_C_INT): PByte; cdecl = Load_OPENSSL_utf82uni; + OPENSSL_uni2utf8: function (const uni: PByte; unilen: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_OPENSSL_uni2utf8; + PKCS12_new: function : PPKCS12; cdecl = Load_PKCS12_new; + PKCS12_free: procedure (a: PPKCS12); cdecl = Load_PKCS12_free; + d2i_PKCS12: function (a: PPPKCS12; const in_: PPByte; len: TOpenSSL_C_LONG): PPKCS12; cdecl = Load_d2i_PKCS12; + i2d_PKCS12: function (a: PPKCS12; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_PKCS12; + PKCS12_it: function : PASN1_ITEM; cdecl = Load_PKCS12_it; + PKCS12_MAC_DATA_new: function : PPKCS12_MAC_DATA; cdecl = Load_PKCS12_MAC_DATA_new; + PKCS12_MAC_DATA_free: procedure (a: PPKCS12_MAC_DATA); cdecl = Load_PKCS12_MAC_DATA_free; + d2i_PKCS12_MAC_DATA: function (a: PPPKCS12_MAC_DATA; const in_: PPByte; len: TOpenSSL_C_LONG): PPKCS12_MAC_DATA; cdecl = Load_d2i_PKCS12_MAC_DATA; + i2d_PKCS12_MAC_DATA: function (a: PPKCS12_MAC_DATA; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_PKCS12_MAC_DATA; + PKCS12_MAC_DATA_it: function : PASN1_ITEM; cdecl = Load_PKCS12_MAC_DATA_it; + PKCS12_SAFEBAG_new: function : PPKCS12_SAFEBAG; cdecl = Load_PKCS12_SAFEBAG_new; + PKCS12_SAFEBAG_free: procedure (a: PPKCS12_SAFEBAG); cdecl = Load_PKCS12_SAFEBAG_free; + d2i_PKCS12_SAFEBAG: function (a: PPPKCS12_SAFEBAG; const in_: PPByte; len: TOpenSSL_C_LONG): PPKCS12_SAFEBAG; cdecl = Load_d2i_PKCS12_SAFEBAG; + i2d_PKCS12_SAFEBAG: function (a: PPKCS12_SAFEBAG; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_PKCS12_SAFEBAG; + PKCS12_SAFEBAG_it: function : PASN1_ITEM; cdecl = Load_PKCS12_SAFEBAG_it; + PKCS12_BAGS_new: function : PPKCS12_BAGS; cdecl = Load_PKCS12_BAGS_new; + PKCS12_BAGS_free: procedure (a: PPKCS12_BAGS); cdecl = Load_PKCS12_BAGS_free; + d2i_PKCS12_BAGS: function (a: PPPKCS12_BAGS; const in_: PPByte; len: TOpenSSL_C_LONG): PPKCS12_BAGS; cdecl = Load_d2i_PKCS12_BAGS; + i2d_PKCS12_BAGS: function (a: PPKCS12_BAGS; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_PKCS12_BAGS; + PKCS12_BAGS_it: function : PASN1_ITEM; cdecl = Load_PKCS12_BAGS_it; + PKCS12_PBE_add: procedure (v: Pointer); cdecl = Load_PKCS12_PBE_add; + PKCS12_parse: function (p12: PPKCS12; const pass: PAnsiChar; out pkey: PEVP_PKEY; out cert: PX509; ca: PPStack_Of_X509): TOpenSSL_C_INT; cdecl = Load_PKCS12_parse; + PKCS12_create: function (const pass: PAnsiChar; const name: PAnsiChar; pkey: PEVP_PKEY; cert: PX509; ca: PStack_Of_X509; nid_key: TOpenSSL_C_INT; nid_cert: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; mac_iter: TOpenSSL_C_INT; keytype: TOpenSSL_C_INT): PPKCS12; cdecl = Load_PKCS12_create; + i2d_PKCS12_bio: function (bp: PBIO; p12: PPKCS12): TOpenSSL_C_INT; cdecl = Load_i2d_PKCS12_bio; + d2i_PKCS12_bio: function (bp: PBIO; p12: PPPKCS12): PPKCS12; cdecl = Load_d2i_PKCS12_bio; + PKCS12_newpass: function (p12: PPKCS12; const oldpass: PAnsiChar; const newpass: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_PKCS12_newpass; +{$ENDIF} +const + PKCS12_mac_present_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS12_get0_mac_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS12_SAFEBAG_get0_attr_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS12_SAFEBAG_get0_type_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS12_SAFEBAG_get_nid_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS12_SAFEBAG_get_bag_nid_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS12_SAFEBAG_get1_cert_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS12_SAFEBAG_get1_crl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS12_SAFEBAG_get0_p8inf_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS12_SAFEBAG_get0_pkcs8_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS12_SAFEBAG_create_cert_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS12_SAFEBAG_create_crl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS12_SAFEBAG_create0_p8inf_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS12_SAFEBAG_create0_pkcs8_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS12_SAFEBAG_create_pkcs8_encrypt_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS8_set0_pbe_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS12_add_friendlyname_utf8_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS12_key_gen_utf8_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_utf82uni_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_uni2utf8_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_PKCS12_mac_present(const p12: PPKCS12): TOpenSSL_C_INT; cdecl; +begin + PKCS12_mac_present := LoadLibCryptoFunction('PKCS12_mac_present'); + if not assigned(PKCS12_mac_present) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_mac_present'); + Result := PKCS12_mac_present(p12); +end; + +procedure Load_PKCS12_get0_mac(const pmac: PPASN1_OCTET_STRING; const pmacalg: PPX509_ALGOR; const psalt: PPASN1_OCTET_STRING; const piter: PPASN1_INTEGER; const p12: PPKCS12); cdecl; +begin + PKCS12_get0_mac := LoadLibCryptoFunction('PKCS12_get0_mac'); + if not assigned(PKCS12_get0_mac) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_get0_mac'); + PKCS12_get0_mac(pmac,pmacalg,psalt,piter,p12); +end; + +function Load_PKCS12_SAFEBAG_get0_attr(const bag: PPKCS12_SAFEBAG; attr_nid: TOpenSSL_C_INT): PASN1_TYPE; cdecl; +begin + PKCS12_SAFEBAG_get0_attr := LoadLibCryptoFunction('PKCS12_SAFEBAG_get0_attr'); + if not assigned(PKCS12_SAFEBAG_get0_attr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_SAFEBAG_get0_attr'); + Result := PKCS12_SAFEBAG_get0_attr(bag,attr_nid); +end; + +function Load_PKCS12_SAFEBAG_get0_type(const bag: PPKCS12_SAFEBAG): PASN1_OBJECT; cdecl; +begin + PKCS12_SAFEBAG_get0_type := LoadLibCryptoFunction('PKCS12_SAFEBAG_get0_type'); + if not assigned(PKCS12_SAFEBAG_get0_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_SAFEBAG_get0_type'); + Result := PKCS12_SAFEBAG_get0_type(bag); +end; + +function Load_PKCS12_SAFEBAG_get_nid(const bag: PPKCS12_SAFEBAG): TOpenSSL_C_INT; cdecl; +begin + PKCS12_SAFEBAG_get_nid := LoadLibCryptoFunction('PKCS12_SAFEBAG_get_nid'); + if not assigned(PKCS12_SAFEBAG_get_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_SAFEBAG_get_nid'); + Result := PKCS12_SAFEBAG_get_nid(bag); +end; + +function Load_PKCS12_SAFEBAG_get_bag_nid(const bag: PPKCS12_SAFEBAG): TOpenSSL_C_INT; cdecl; +begin + PKCS12_SAFEBAG_get_bag_nid := LoadLibCryptoFunction('PKCS12_SAFEBAG_get_bag_nid'); + if not assigned(PKCS12_SAFEBAG_get_bag_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_SAFEBAG_get_bag_nid'); + Result := PKCS12_SAFEBAG_get_bag_nid(bag); +end; + +function Load_PKCS12_SAFEBAG_get1_cert(const bag: PPKCS12_SAFEBAG): PX509; cdecl; +begin + PKCS12_SAFEBAG_get1_cert := LoadLibCryptoFunction('PKCS12_SAFEBAG_get1_cert'); + if not assigned(PKCS12_SAFEBAG_get1_cert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_SAFEBAG_get1_cert'); + Result := PKCS12_SAFEBAG_get1_cert(bag); +end; + +function Load_PKCS12_SAFEBAG_get1_crl(const bag: PPKCS12_SAFEBAG): PX509_CRL; cdecl; +begin + PKCS12_SAFEBAG_get1_crl := LoadLibCryptoFunction('PKCS12_SAFEBAG_get1_crl'); + if not assigned(PKCS12_SAFEBAG_get1_crl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_SAFEBAG_get1_crl'); + Result := PKCS12_SAFEBAG_get1_crl(bag); +end; + +function Load_PKCS12_SAFEBAG_get0_p8inf(const bag: PPKCS12_SAFEBAG): PPKCS8_PRIV_KEY_INFO; cdecl; +begin + PKCS12_SAFEBAG_get0_p8inf := LoadLibCryptoFunction('PKCS12_SAFEBAG_get0_p8inf'); + if not assigned(PKCS12_SAFEBAG_get0_p8inf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_SAFEBAG_get0_p8inf'); + Result := PKCS12_SAFEBAG_get0_p8inf(bag); +end; + +function Load_PKCS12_SAFEBAG_get0_pkcs8(const bag: PPKCS12_SAFEBAG): PX509_SIG; cdecl; +begin + PKCS12_SAFEBAG_get0_pkcs8 := LoadLibCryptoFunction('PKCS12_SAFEBAG_get0_pkcs8'); + if not assigned(PKCS12_SAFEBAG_get0_pkcs8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_SAFEBAG_get0_pkcs8'); + Result := PKCS12_SAFEBAG_get0_pkcs8(bag); +end; + +function Load_PKCS12_SAFEBAG_create_cert(x509: PX509): PPKCS12_SAFEBAG; cdecl; +begin + PKCS12_SAFEBAG_create_cert := LoadLibCryptoFunction('PKCS12_SAFEBAG_create_cert'); + if not assigned(PKCS12_SAFEBAG_create_cert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_SAFEBAG_create_cert'); + Result := PKCS12_SAFEBAG_create_cert(x509); +end; + +function Load_PKCS12_SAFEBAG_create_crl(crl: PX509_CRL): PPKCS12_SAFEBAG; cdecl; +begin + PKCS12_SAFEBAG_create_crl := LoadLibCryptoFunction('PKCS12_SAFEBAG_create_crl'); + if not assigned(PKCS12_SAFEBAG_create_crl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_SAFEBAG_create_crl'); + Result := PKCS12_SAFEBAG_create_crl(crl); +end; + +function Load_PKCS12_SAFEBAG_create0_p8inf(p8: PPKCS8_PRIV_KEY_INFO): PPKCS12_SAFEBAG; cdecl; +begin + PKCS12_SAFEBAG_create0_p8inf := LoadLibCryptoFunction('PKCS12_SAFEBAG_create0_p8inf'); + if not assigned(PKCS12_SAFEBAG_create0_p8inf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_SAFEBAG_create0_p8inf'); + Result := PKCS12_SAFEBAG_create0_p8inf(p8); +end; + +function Load_PKCS12_SAFEBAG_create0_pkcs8(p8: PX509_SIG): PPKCS12_SAFEBAG; cdecl; +begin + PKCS12_SAFEBAG_create0_pkcs8 := LoadLibCryptoFunction('PKCS12_SAFEBAG_create0_pkcs8'); + if not assigned(PKCS12_SAFEBAG_create0_pkcs8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_SAFEBAG_create0_pkcs8'); + Result := PKCS12_SAFEBAG_create0_pkcs8(p8); +end; + +function Load_PKCS12_SAFEBAG_create_pkcs8_encrypt(pbe_nid: TOpenSSL_C_INT; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; p8inf: PPKCS8_PRIV_KEY_INFO): PPKCS12_SAFEBAG; cdecl; +begin + PKCS12_SAFEBAG_create_pkcs8_encrypt := LoadLibCryptoFunction('PKCS12_SAFEBAG_create_pkcs8_encrypt'); + if not assigned(PKCS12_SAFEBAG_create_pkcs8_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_SAFEBAG_create_pkcs8_encrypt'); + Result := PKCS12_SAFEBAG_create_pkcs8_encrypt(pbe_nid,pass,passlen,salt,saltlen,iter,p8inf); +end; + +function Load_PKCS12_item_pack_safebag(obj: Pointer; const it: PASN1_ITEM; nid1: TOpenSSL_C_INT; nid2: TOpenSSL_C_INT): PPKCS12_SAFEBAG; cdecl; +begin + PKCS12_item_pack_safebag := LoadLibCryptoFunction('PKCS12_item_pack_safebag'); + if not assigned(PKCS12_item_pack_safebag) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_item_pack_safebag'); + Result := PKCS12_item_pack_safebag(obj,it,nid1,nid2); +end; + +function Load_PKCS8_decrypt(const p8: PX509_SIG; const pass: PAnsiChar; passlen: TOpenSSL_C_INT): PPKCS8_PRIV_KEY_INFO; cdecl; +begin + PKCS8_decrypt := LoadLibCryptoFunction('PKCS8_decrypt'); + if not assigned(PKCS8_decrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS8_decrypt'); + Result := PKCS8_decrypt(p8,pass,passlen); +end; + +function Load_PKCS12_decrypt_skey(const bag: PPKCS12_SAFEBAG; const pass: PAnsiChar; passlen: TOpenSSL_C_INT): PPKCS8_PRIV_KEY_INFO; cdecl; +begin + PKCS12_decrypt_skey := LoadLibCryptoFunction('PKCS12_decrypt_skey'); + if not assigned(PKCS12_decrypt_skey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_decrypt_skey'); + Result := PKCS12_decrypt_skey(bag,pass,passlen); +end; + +function Load_PKCS8_encrypt(pbe_nid: TOpenSSL_C_INT; const cipher: PEVP_CIPHER; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; p8: PPKCS8_PRIV_KEY_INFO): PX509_SIG; cdecl; +begin + PKCS8_encrypt := LoadLibCryptoFunction('PKCS8_encrypt'); + if not assigned(PKCS8_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS8_encrypt'); + Result := PKCS8_encrypt(pbe_nid,cipher,pass,passlen,salt,saltlen,iter,p8); +end; + +function Load_PKCS8_set0_pbe(const pass: PAnsiChar; passlen: TOpenSSL_C_INT; p8inf: PPKCS8_PRIV_KEY_INFO; pbe: PX509_ALGOR): PX509_SIG; cdecl; +begin + PKCS8_set0_pbe := LoadLibCryptoFunction('PKCS8_set0_pbe'); + if not assigned(PKCS8_set0_pbe) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS8_set0_pbe'); + Result := PKCS8_set0_pbe(pass,passlen,p8inf,pbe); +end; + +function Load_PKCS12_add_localkeyid(bag: PPKCS12_SAFEBAG; name: PByte; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS12_add_localkeyid := LoadLibCryptoFunction('PKCS12_add_localkeyid'); + if not assigned(PKCS12_add_localkeyid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_add_localkeyid'); + Result := PKCS12_add_localkeyid(bag,name,namelen); +end; + +function Load_PKCS12_add_friendlyname_asc(bag: PPKCS12_SAFEBAG; const name: PAnsiChar; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS12_add_friendlyname_asc := LoadLibCryptoFunction('PKCS12_add_friendlyname_asc'); + if not assigned(PKCS12_add_friendlyname_asc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_add_friendlyname_asc'); + Result := PKCS12_add_friendlyname_asc(bag,name,namelen); +end; + +function Load_PKCS12_add_friendlyname_utf8(bag: PPKCS12_SAFEBAG; const name: PAnsiChar; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS12_add_friendlyname_utf8 := LoadLibCryptoFunction('PKCS12_add_friendlyname_utf8'); + if not assigned(PKCS12_add_friendlyname_utf8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_add_friendlyname_utf8'); + Result := PKCS12_add_friendlyname_utf8(bag,name,namelen); +end; + +function Load_PKCS12_add_CSPName_asc(bag: PPKCS12_SAFEBAG; const name: PAnsiChar; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS12_add_CSPName_asc := LoadLibCryptoFunction('PKCS12_add_CSPName_asc'); + if not assigned(PKCS12_add_CSPName_asc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_add_CSPName_asc'); + Result := PKCS12_add_CSPName_asc(bag,name,namelen); +end; + +function Load_PKCS12_add_friendlyname_uni(bag: PPKCS12_SAFEBAG; const name: PByte; namelen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS12_add_friendlyname_uni := LoadLibCryptoFunction('PKCS12_add_friendlyname_uni'); + if not assigned(PKCS12_add_friendlyname_uni) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_add_friendlyname_uni'); + Result := PKCS12_add_friendlyname_uni(bag,name,namelen); +end; + +function Load_PKCS8_add_keyusage(p8: PPKCS8_PRIV_KEY_INFO; usage: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS8_add_keyusage := LoadLibCryptoFunction('PKCS8_add_keyusage'); + if not assigned(PKCS8_add_keyusage) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS8_add_keyusage'); + Result := PKCS8_add_keyusage(p8,usage); +end; + +function Load_PKCS12_get_friendlyname(bag: PPKCS12_SAFEBAG): PAnsiChar; cdecl; +begin + PKCS12_get_friendlyname := LoadLibCryptoFunction('PKCS12_get_friendlyname'); + if not assigned(PKCS12_get_friendlyname) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_get_friendlyname'); + Result := PKCS12_get_friendlyname(bag); +end; + +function Load_PKCS12_pbe_crypt(const algor: PX509_ALGOR; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; const in_: PByte; inlen: TOpenSSL_C_INT; data: PPByte; datalen: POpenSSL_C_INT; en_de: TOpenSSL_C_INT): PByte; cdecl; +begin + PKCS12_pbe_crypt := LoadLibCryptoFunction('PKCS12_pbe_crypt'); + if not assigned(PKCS12_pbe_crypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_pbe_crypt'); + Result := PKCS12_pbe_crypt(algor,pass,passlen,in_,inlen,data,datalen,en_de); +end; + +function Load_PKCS12_item_decrypt_d2i(const algor: PX509_ALGOR; const it: PASN1_ITEM; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; const oct: PASN1_OCTET_STRING; zbuf: TOpenSSL_C_INT): Pointer; cdecl; +begin + PKCS12_item_decrypt_d2i := LoadLibCryptoFunction('PKCS12_item_decrypt_d2i'); + if not assigned(PKCS12_item_decrypt_d2i) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_item_decrypt_d2i'); + Result := PKCS12_item_decrypt_d2i(algor,it,pass,passlen,oct,zbuf); +end; + +function Load_PKCS12_item_i2d_encrypt(algor: PX509_ALGOR; const it: PASN1_ITEM; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; obj: Pointer; zbuf: TOpenSSL_C_INT): PASN1_OCTET_STRING; cdecl; +begin + PKCS12_item_i2d_encrypt := LoadLibCryptoFunction('PKCS12_item_i2d_encrypt'); + if not assigned(PKCS12_item_i2d_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_item_i2d_encrypt'); + Result := PKCS12_item_i2d_encrypt(algor,it,pass,passlen,obj,zbuf); +end; + +function Load_PKCS12_init(mode: TOpenSSL_C_INT): PPKCS12; cdecl; +begin + PKCS12_init := LoadLibCryptoFunction('PKCS12_init'); + if not assigned(PKCS12_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_init'); + Result := PKCS12_init(mode); +end; + +function Load_PKCS12_key_gen_asc(const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; id: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; n: TOpenSSL_C_INT; out_: PByte; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + PKCS12_key_gen_asc := LoadLibCryptoFunction('PKCS12_key_gen_asc'); + if not assigned(PKCS12_key_gen_asc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_key_gen_asc'); + Result := PKCS12_key_gen_asc(pass,passlen,salt,saltlen,id,iter,n,out_,md_type); +end; + +function Load_PKCS12_key_gen_uni(pass: PByte; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; id: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; n: TOpenSSL_C_INT; out_: PByte; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + PKCS12_key_gen_uni := LoadLibCryptoFunction('PKCS12_key_gen_uni'); + if not assigned(PKCS12_key_gen_uni) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_key_gen_uni'); + Result := PKCS12_key_gen_uni(pass,passlen,salt,saltlen,id,iter,n,out_,md_type); +end; + +function Load_PKCS12_key_gen_utf8(const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; id: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; n: TOpenSSL_C_INT; out_: PByte; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + PKCS12_key_gen_utf8 := LoadLibCryptoFunction('PKCS12_key_gen_utf8'); + if not assigned(PKCS12_key_gen_utf8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_key_gen_utf8'); + Result := PKCS12_key_gen_utf8(pass,passlen,salt,saltlen,id,iter,n,out_,md_type); +end; + +function Load_PKCS12_PBE_keyivgen(ctx: PEVP_CIPHER_CTX; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; param: PASN1_TYPE; const cipher: PEVP_CIPHER; const md_type: PEVP_MD; en_de: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS12_PBE_keyivgen := LoadLibCryptoFunction('PKCS12_PBE_keyivgen'); + if not assigned(PKCS12_PBE_keyivgen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_PBE_keyivgen'); + Result := PKCS12_PBE_keyivgen(ctx,pass,passlen,param,cipher,md_type,en_de); +end; + +function Load_PKCS12_gen_mac(p12: PPKCS12; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; mac: PByte; maclen: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + PKCS12_gen_mac := LoadLibCryptoFunction('PKCS12_gen_mac'); + if not assigned(PKCS12_gen_mac) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_gen_mac'); + Result := PKCS12_gen_mac(p12,pass,passlen,mac,maclen); +end; + +function Load_PKCS12_verify_mac(p12: PPKCS12; const pass: PAnsiChar; passlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS12_verify_mac := LoadLibCryptoFunction('PKCS12_verify_mac'); + if not assigned(PKCS12_verify_mac) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_verify_mac'); + Result := PKCS12_verify_mac(p12,pass,passlen); +end; + +function Load_PKCS12_set_mac(p12: PPKCS12; const pass: PAnsiChar; passlen: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + PKCS12_set_mac := LoadLibCryptoFunction('PKCS12_set_mac'); + if not assigned(PKCS12_set_mac) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_set_mac'); + Result := PKCS12_set_mac(p12,pass,passlen,salt,saltlen,iter,md_type); +end; + +function Load_PKCS12_setup_mac(p12: PPKCS12; iter: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; const md_type: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + PKCS12_setup_mac := LoadLibCryptoFunction('PKCS12_setup_mac'); + if not assigned(PKCS12_setup_mac) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_setup_mac'); + Result := PKCS12_setup_mac(p12,iter,salt,saltlen,md_type); +end; + +function Load_OPENSSL_asc2uni(const asc: PAnsiChar; asclen: TOpenSSL_C_INT; uni: PPByte; unilen: POpenSSL_C_INT): PByte; cdecl; +begin + OPENSSL_asc2uni := LoadLibCryptoFunction('OPENSSL_asc2uni'); + if not assigned(OPENSSL_asc2uni) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_asc2uni'); + Result := OPENSSL_asc2uni(asc,asclen,uni,unilen); +end; + +function Load_OPENSSL_uni2asc(const uni: PByte; unilen: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + OPENSSL_uni2asc := LoadLibCryptoFunction('OPENSSL_uni2asc'); + if not assigned(OPENSSL_uni2asc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_uni2asc'); + Result := OPENSSL_uni2asc(uni,unilen); +end; + +function Load_OPENSSL_utf82uni(const asc: PAnsiChar; asclen: TOpenSSL_C_INT; uni: PPByte; unilen: POpenSSL_C_INT): PByte; cdecl; +begin + OPENSSL_utf82uni := LoadLibCryptoFunction('OPENSSL_utf82uni'); + if not assigned(OPENSSL_utf82uni) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_utf82uni'); + Result := OPENSSL_utf82uni(asc,asclen,uni,unilen); +end; + +function Load_OPENSSL_uni2utf8(const uni: PByte; unilen: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + OPENSSL_uni2utf8 := LoadLibCryptoFunction('OPENSSL_uni2utf8'); + if not assigned(OPENSSL_uni2utf8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_uni2utf8'); + Result := OPENSSL_uni2utf8(uni,unilen); +end; + +function Load_PKCS12_new: PPKCS12; cdecl; +begin + PKCS12_new := LoadLibCryptoFunction('PKCS12_new'); + if not assigned(PKCS12_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_new'); + Result := PKCS12_new(); +end; + +procedure Load_PKCS12_free(a: PPKCS12); cdecl; +begin + PKCS12_free := LoadLibCryptoFunction('PKCS12_free'); + if not assigned(PKCS12_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_free'); + PKCS12_free(a); +end; + +function Load_d2i_PKCS12(a: PPPKCS12; const in_: PPByte; len: TOpenSSL_C_LONG): PPKCS12; cdecl; +begin + d2i_PKCS12 := LoadLibCryptoFunction('d2i_PKCS12'); + if not assigned(d2i_PKCS12) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_PKCS12'); + Result := d2i_PKCS12(a,in_,len); +end; + +function Load_i2d_PKCS12(a: PPKCS12; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_PKCS12 := LoadLibCryptoFunction('i2d_PKCS12'); + if not assigned(i2d_PKCS12) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PKCS12'); + Result := i2d_PKCS12(a,out_); +end; + +function Load_PKCS12_it: PASN1_ITEM; cdecl; +begin + PKCS12_it := LoadLibCryptoFunction('PKCS12_it'); + if not assigned(PKCS12_it) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_it'); + Result := PKCS12_it(); +end; + +function Load_PKCS12_MAC_DATA_new: PPKCS12_MAC_DATA; cdecl; +begin + PKCS12_MAC_DATA_new := LoadLibCryptoFunction('PKCS12_MAC_DATA_new'); + if not assigned(PKCS12_MAC_DATA_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_MAC_DATA_new'); + Result := PKCS12_MAC_DATA_new(); +end; + +procedure Load_PKCS12_MAC_DATA_free(a: PPKCS12_MAC_DATA); cdecl; +begin + PKCS12_MAC_DATA_free := LoadLibCryptoFunction('PKCS12_MAC_DATA_free'); + if not assigned(PKCS12_MAC_DATA_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_MAC_DATA_free'); + PKCS12_MAC_DATA_free(a); +end; + +function Load_d2i_PKCS12_MAC_DATA(a: PPPKCS12_MAC_DATA; const in_: PPByte; len: TOpenSSL_C_LONG): PPKCS12_MAC_DATA; cdecl; +begin + d2i_PKCS12_MAC_DATA := LoadLibCryptoFunction('d2i_PKCS12_MAC_DATA'); + if not assigned(d2i_PKCS12_MAC_DATA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_PKCS12_MAC_DATA'); + Result := d2i_PKCS12_MAC_DATA(a,in_,len); +end; + +function Load_i2d_PKCS12_MAC_DATA(a: PPKCS12_MAC_DATA; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_PKCS12_MAC_DATA := LoadLibCryptoFunction('i2d_PKCS12_MAC_DATA'); + if not assigned(i2d_PKCS12_MAC_DATA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PKCS12_MAC_DATA'); + Result := i2d_PKCS12_MAC_DATA(a,out_); +end; + +function Load_PKCS12_MAC_DATA_it: PASN1_ITEM; cdecl; +begin + PKCS12_MAC_DATA_it := LoadLibCryptoFunction('PKCS12_MAC_DATA_it'); + if not assigned(PKCS12_MAC_DATA_it) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_MAC_DATA_it'); + Result := PKCS12_MAC_DATA_it(); +end; + +function Load_PKCS12_SAFEBAG_new: PPKCS12_SAFEBAG; cdecl; +begin + PKCS12_SAFEBAG_new := LoadLibCryptoFunction('PKCS12_SAFEBAG_new'); + if not assigned(PKCS12_SAFEBAG_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_SAFEBAG_new'); + Result := PKCS12_SAFEBAG_new(); +end; + +procedure Load_PKCS12_SAFEBAG_free(a: PPKCS12_SAFEBAG); cdecl; +begin + PKCS12_SAFEBAG_free := LoadLibCryptoFunction('PKCS12_SAFEBAG_free'); + if not assigned(PKCS12_SAFEBAG_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_SAFEBAG_free'); + PKCS12_SAFEBAG_free(a); +end; + +function Load_d2i_PKCS12_SAFEBAG(a: PPPKCS12_SAFEBAG; const in_: PPByte; len: TOpenSSL_C_LONG): PPKCS12_SAFEBAG; cdecl; +begin + d2i_PKCS12_SAFEBAG := LoadLibCryptoFunction('d2i_PKCS12_SAFEBAG'); + if not assigned(d2i_PKCS12_SAFEBAG) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_PKCS12_SAFEBAG'); + Result := d2i_PKCS12_SAFEBAG(a,in_,len); +end; + +function Load_i2d_PKCS12_SAFEBAG(a: PPKCS12_SAFEBAG; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_PKCS12_SAFEBAG := LoadLibCryptoFunction('i2d_PKCS12_SAFEBAG'); + if not assigned(i2d_PKCS12_SAFEBAG) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PKCS12_SAFEBAG'); + Result := i2d_PKCS12_SAFEBAG(a,out_); +end; + +function Load_PKCS12_SAFEBAG_it: PASN1_ITEM; cdecl; +begin + PKCS12_SAFEBAG_it := LoadLibCryptoFunction('PKCS12_SAFEBAG_it'); + if not assigned(PKCS12_SAFEBAG_it) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_SAFEBAG_it'); + Result := PKCS12_SAFEBAG_it(); +end; + +function Load_PKCS12_BAGS_new: PPKCS12_BAGS; cdecl; +begin + PKCS12_BAGS_new := LoadLibCryptoFunction('PKCS12_BAGS_new'); + if not assigned(PKCS12_BAGS_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_BAGS_new'); + Result := PKCS12_BAGS_new(); +end; + +procedure Load_PKCS12_BAGS_free(a: PPKCS12_BAGS); cdecl; +begin + PKCS12_BAGS_free := LoadLibCryptoFunction('PKCS12_BAGS_free'); + if not assigned(PKCS12_BAGS_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_BAGS_free'); + PKCS12_BAGS_free(a); +end; + +function Load_d2i_PKCS12_BAGS(a: PPPKCS12_BAGS; const in_: PPByte; len: TOpenSSL_C_LONG): PPKCS12_BAGS; cdecl; +begin + d2i_PKCS12_BAGS := LoadLibCryptoFunction('d2i_PKCS12_BAGS'); + if not assigned(d2i_PKCS12_BAGS) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_PKCS12_BAGS'); + Result := d2i_PKCS12_BAGS(a,in_,len); +end; + +function Load_i2d_PKCS12_BAGS(a: PPKCS12_BAGS; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_PKCS12_BAGS := LoadLibCryptoFunction('i2d_PKCS12_BAGS'); + if not assigned(i2d_PKCS12_BAGS) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PKCS12_BAGS'); + Result := i2d_PKCS12_BAGS(a,out_); +end; + +function Load_PKCS12_BAGS_it: PASN1_ITEM; cdecl; +begin + PKCS12_BAGS_it := LoadLibCryptoFunction('PKCS12_BAGS_it'); + if not assigned(PKCS12_BAGS_it) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_BAGS_it'); + Result := PKCS12_BAGS_it(); +end; + +procedure Load_PKCS12_PBE_add(v: Pointer); cdecl; +begin + PKCS12_PBE_add := LoadLibCryptoFunction('PKCS12_PBE_add'); + if not assigned(PKCS12_PBE_add) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_PBE_add'); + PKCS12_PBE_add(v); +end; + +function Load_PKCS12_parse(p12: PPKCS12; const pass: PAnsiChar; out pkey: PEVP_PKEY; out cert: PX509; ca: PPStack_Of_X509): TOpenSSL_C_INT; cdecl; +begin + PKCS12_parse := LoadLibCryptoFunction('PKCS12_parse'); + if not assigned(PKCS12_parse) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_parse'); + Result := PKCS12_parse(p12,pass,pkey,cert,ca); +end; + +function Load_PKCS12_create(const pass: PAnsiChar; const name: PAnsiChar; pkey: PEVP_PKEY; cert: PX509; ca: PStack_Of_X509; nid_key: TOpenSSL_C_INT; nid_cert: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; mac_iter: TOpenSSL_C_INT; keytype: TOpenSSL_C_INT): PPKCS12; cdecl; +begin + PKCS12_create := LoadLibCryptoFunction('PKCS12_create'); + if not assigned(PKCS12_create) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_create'); + Result := PKCS12_create(pass,name,pkey,cert,ca,nid_key,nid_cert,iter,mac_iter,keytype); +end; + +function Load_i2d_PKCS12_bio(bp: PBIO; p12: PPKCS12): TOpenSSL_C_INT; cdecl; +begin + i2d_PKCS12_bio := LoadLibCryptoFunction('i2d_PKCS12_bio'); + if not assigned(i2d_PKCS12_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PKCS12_bio'); + Result := i2d_PKCS12_bio(bp,p12); +end; + +function Load_d2i_PKCS12_bio(bp: PBIO; p12: PPPKCS12): PPKCS12; cdecl; +begin + d2i_PKCS12_bio := LoadLibCryptoFunction('d2i_PKCS12_bio'); + if not assigned(d2i_PKCS12_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_PKCS12_bio'); + Result := d2i_PKCS12_bio(bp,p12); +end; + +function Load_PKCS12_newpass(p12: PPKCS12; const oldpass: PAnsiChar; const newpass: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + PKCS12_newpass := LoadLibCryptoFunction('PKCS12_newpass'); + if not assigned(PKCS12_newpass) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS12_newpass'); + Result := PKCS12_newpass(p12,oldpass,newpass); +end; + + +procedure UnLoad; +begin + PKCS12_mac_present := Load_PKCS12_mac_present; + PKCS12_get0_mac := Load_PKCS12_get0_mac; + PKCS12_SAFEBAG_get0_attr := Load_PKCS12_SAFEBAG_get0_attr; + PKCS12_SAFEBAG_get0_type := Load_PKCS12_SAFEBAG_get0_type; + PKCS12_SAFEBAG_get_nid := Load_PKCS12_SAFEBAG_get_nid; + PKCS12_SAFEBAG_get_bag_nid := Load_PKCS12_SAFEBAG_get_bag_nid; + PKCS12_SAFEBAG_get1_cert := Load_PKCS12_SAFEBAG_get1_cert; + PKCS12_SAFEBAG_get1_crl := Load_PKCS12_SAFEBAG_get1_crl; + PKCS12_SAFEBAG_get0_p8inf := Load_PKCS12_SAFEBAG_get0_p8inf; + PKCS12_SAFEBAG_get0_pkcs8 := Load_PKCS12_SAFEBAG_get0_pkcs8; + PKCS12_SAFEBAG_create_cert := Load_PKCS12_SAFEBAG_create_cert; + PKCS12_SAFEBAG_create_crl := Load_PKCS12_SAFEBAG_create_crl; + PKCS12_SAFEBAG_create0_p8inf := Load_PKCS12_SAFEBAG_create0_p8inf; + PKCS12_SAFEBAG_create0_pkcs8 := Load_PKCS12_SAFEBAG_create0_pkcs8; + PKCS12_SAFEBAG_create_pkcs8_encrypt := Load_PKCS12_SAFEBAG_create_pkcs8_encrypt; + PKCS12_item_pack_safebag := Load_PKCS12_item_pack_safebag; + PKCS8_decrypt := Load_PKCS8_decrypt; + PKCS12_decrypt_skey := Load_PKCS12_decrypt_skey; + PKCS8_encrypt := Load_PKCS8_encrypt; + PKCS8_set0_pbe := Load_PKCS8_set0_pbe; + PKCS12_add_localkeyid := Load_PKCS12_add_localkeyid; + PKCS12_add_friendlyname_asc := Load_PKCS12_add_friendlyname_asc; + PKCS12_add_friendlyname_utf8 := Load_PKCS12_add_friendlyname_utf8; + PKCS12_add_CSPName_asc := Load_PKCS12_add_CSPName_asc; + PKCS12_add_friendlyname_uni := Load_PKCS12_add_friendlyname_uni; + PKCS8_add_keyusage := Load_PKCS8_add_keyusage; + PKCS12_get_friendlyname := Load_PKCS12_get_friendlyname; + PKCS12_pbe_crypt := Load_PKCS12_pbe_crypt; + PKCS12_item_decrypt_d2i := Load_PKCS12_item_decrypt_d2i; + PKCS12_item_i2d_encrypt := Load_PKCS12_item_i2d_encrypt; + PKCS12_init := Load_PKCS12_init; + PKCS12_key_gen_asc := Load_PKCS12_key_gen_asc; + PKCS12_key_gen_uni := Load_PKCS12_key_gen_uni; + PKCS12_key_gen_utf8 := Load_PKCS12_key_gen_utf8; + PKCS12_PBE_keyivgen := Load_PKCS12_PBE_keyivgen; + PKCS12_gen_mac := Load_PKCS12_gen_mac; + PKCS12_verify_mac := Load_PKCS12_verify_mac; + PKCS12_set_mac := Load_PKCS12_set_mac; + PKCS12_setup_mac := Load_PKCS12_setup_mac; + OPENSSL_asc2uni := Load_OPENSSL_asc2uni; + OPENSSL_uni2asc := Load_OPENSSL_uni2asc; + OPENSSL_utf82uni := Load_OPENSSL_utf82uni; + OPENSSL_uni2utf8 := Load_OPENSSL_uni2utf8; + PKCS12_new := Load_PKCS12_new; + PKCS12_free := Load_PKCS12_free; + d2i_PKCS12 := Load_d2i_PKCS12; + i2d_PKCS12 := Load_i2d_PKCS12; + PKCS12_it := Load_PKCS12_it; + PKCS12_MAC_DATA_new := Load_PKCS12_MAC_DATA_new; + PKCS12_MAC_DATA_free := Load_PKCS12_MAC_DATA_free; + d2i_PKCS12_MAC_DATA := Load_d2i_PKCS12_MAC_DATA; + i2d_PKCS12_MAC_DATA := Load_i2d_PKCS12_MAC_DATA; + PKCS12_MAC_DATA_it := Load_PKCS12_MAC_DATA_it; + PKCS12_SAFEBAG_new := Load_PKCS12_SAFEBAG_new; + PKCS12_SAFEBAG_free := Load_PKCS12_SAFEBAG_free; + d2i_PKCS12_SAFEBAG := Load_d2i_PKCS12_SAFEBAG; + i2d_PKCS12_SAFEBAG := Load_i2d_PKCS12_SAFEBAG; + PKCS12_SAFEBAG_it := Load_PKCS12_SAFEBAG_it; + PKCS12_BAGS_new := Load_PKCS12_BAGS_new; + PKCS12_BAGS_free := Load_PKCS12_BAGS_free; + d2i_PKCS12_BAGS := Load_d2i_PKCS12_BAGS; + i2d_PKCS12_BAGS := Load_i2d_PKCS12_BAGS; + PKCS12_BAGS_it := Load_PKCS12_BAGS_it; + PKCS12_PBE_add := Load_PKCS12_PBE_add; + PKCS12_parse := Load_PKCS12_parse; + PKCS12_create := Load_PKCS12_create; + i2d_PKCS12_bio := Load_i2d_PKCS12_bio; + d2i_PKCS12_bio := Load_d2i_PKCS12_bio; + PKCS12_newpass := Load_PKCS12_newpass; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_pkcs7.pas b/src/opensslHdrs/IdOpenSSLHeaders_pkcs7.pas new file mode 100644 index 0000000..8172137 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_pkcs7.pas @@ -0,0 +1,846 @@ +(* This unit was generated from the source file pkcs7.h2pas +It should not be modified directly. All changes should be made to pkcs7.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_pkcs7; + + +interface + +// Headers for OpenSSL 1.1.1 +// pkcs7.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ; + +// the following emits are a workaround to a +// name conflict with Win32 API header files +{$IFDEF WINDOWS} +(*$HPPEMIT '#undef PKCS7_ISSUER_AND_SERIAL'*) +(*$HPPEMIT '#undef PKCS7_SIGNER_INFO'*) +{$ENDIF} + +const + PKCS7_S_HEADER = 0; + PKCS7_S_BODY = 1; + PKCS7_S_TAIL = 2; + + PKCS7_OP_SET_DETACHED_SIGNATURE = 1; + PKCS7_OP_GET_DETACHED_SIGNATURE = 2; + + (* S/MIME related flags *) + PKCS7_TEXT = $1; + PKCS7_NOCERTS = $2; + PKCS7_NOSIGS = $4; + PKCS7_NOCHAIN = $8; + PKCS7_NOINTERN = $10; + PKCS7_NOVERIFY = $20; + PKCS7_DETACHED = $40; + PKCS7_BINARY = $80; + PKCS7_NOATTR = $100; + PKCS7_NOSMIMECAP = $200; + PKCS7_NOOLDMIMETYPE = $400; + PKCS7_CRLFEOL = $800; + // Added '_CONST' to avoid name clashes + PKCS7_STREAM_CONST = $1000; + PKCS7_NOCRL = $2000; + PKCS7_PARTIAL = $4000; + PKCS7_REUSE_DIGEST = $8000; + PKCS7_NO_DUAL_CONTENT = $10000; + + (* Flags: for compatibility with older code *) + SMIME_TEXT = PKCS7_TEXT; + SMIME_NOCERTS = PKCS7_NOCERTS; + SMIME_NOSIGS = PKCS7_NOSIGS; + SMIME_NOCHAIN = PKCS7_NOCHAIN; + SMIME_NOINTERN = PKCS7_NOINTERN; + SMIME_NOVERIFY = PKCS7_NOVERIFY; + SMIME_DETACHED = PKCS7_DETACHED; + SMIME_BINARY = PKCS7_BINARY; + SMIME_NOATTR = PKCS7_NOATTR; + + (* CRLF ASCII canonicalisation *) + SMIME_ASCIICRLF = $80000; + +type + PPKCS7 = ^PKCS7; + PPPKCS7 = ^PPKCS7; + + PPKCS7_DIGEST = ^PKCS7_DIGEST; + PPPKCS7_DIGEST = ^PPKCS7_DIGEST; + + pkcs7_issuer_and_serial_st = record + issue: PX509_NAME; + serial: PASN1_INTEGER; + end; + PKCS7_ISSUER_AND_SERIAL = pkcs7_issuer_and_serial_st; + PPKCS7_ISSUER_AND_SERIAL = ^PKCS7_ISSUER_AND_SERIAL; + PPPKCS7_ISSUER_AND_SERIAL = ^PPKCS7_ISSUER_AND_SERIAL; + + pkcs7_signer_info_st = record + version: PASN1_INTEGER; + issuer_and_serial: PPKCS7_ISSUER_AND_SERIAL; + digest_alg: PX509_ALGOR; + auth_attr: Pointer; //PSTACK_OF_X509_ATTRIBUTE; + digest_enc_alg: PX509_ALGOR; + enc_digest: PASN1_OCTET_STRING; + unauth_attr: Pointer; //PSTACK_OF_X509_ATTRIBUTE; + pkey: PEVP_PKEY; + end; + PKCS7_SIGNER_INFO = pkcs7_issuer_and_serial_st; + PPKCS7_SIGNER_INFO = ^PKCS7_SIGNER_INFO; + PPPKCS7_SIGNER_INFO = ^PPKCS7_SIGNER_INFO; + + pkcs7_recip_info_st = record + version: PASN1_INTEGER; + issuer_and_serial: PPKCS7_ISSUER_AND_SERIAL; + key_enc_algor: PX509_ALGOR; + enc_key: PASN1_OCTET_STRING; + cert: PX509; + end; + PKCS7_RECIP_INFO = pkcs7_recip_info_st; + PPKCS7_RECIP_INFO = ^PKCS7_RECIP_INFO; + PPPKCS7_RECIP_INFO = ^PPKCS7_RECIP_INFO; + + pkcs7_signed_st = record + version: PASN1_INTEGER; + md_algs: Pointer; //PSTACK_OF_X509_ALGOR; + cert: Pointer; //PSTACK_OF_X509; + crl: Pointer; //PSTACK_OF_X509_CRL; + signer_info: Pointer; //PSTACK_OF_PKCS7_SIGNER_INFO; + contents: PPKCS7; + end; + PKCS7_SIGNED = pkcs7_signed_st; + PPKCS7_SIGNED = ^PKCS7_SIGNED; + PPPKCS7_SIGNED = ^PPKCS7_SIGNED; + + pkcs7_enc_content_st = record + content_type: PASN1_OBJECT; + algorithm: PX509_ALGOR; + enc_data: PASN1_OCTET_STRING; + cipher: PEVP_CIPHER; + end; + PKCS7_ENC_CONTENT = pkcs7_enc_content_st; + PPKCS7_ENC_CONTENT = ^PKCS7_ENC_CONTENT; + PPPKCS7_ENC_CONTENT = ^PPKCS7_ENC_CONTENT; + + pkcs7_enveloped_st = record + version: PASN1_INTEGER; + recipientinfo: Pointer; //PSTACK_OF_PKCS7_RECIP_INFO; + enc_data: PPKCS7_ENC_CONTENT; + end; + PKCS7_ENVELOPE = pkcs7_enveloped_st; + PPKCS7_ENVELOPE = ^PKCS7_ENVELOPE; + PPPKCS7_ENVELOPE = ^PPKCS7_ENVELOPE; + + pkcs7_signedandenveloped_st = record + version: PASN1_INTEGER; + md_algs: Pointer; //PSTACK_OF_X509_ALGOR; + cert: Pointer; //PSTACK_OF_X509; + crl: Pointer; //PSTACK_OF_X509_CRL; + signer_info: Pointer; //PSTACK_OF_PKCS7_SIGNER_INFO; + enc_data: PPKCS7_ENC_CONTENT; + recipientinfo: Pointer; //PSTACK_OF_PKCS7_RECIP_INFO; + end; + PKCS7_SIGN_ENVELOPE = pkcs7_signedandenveloped_st; + PPKCS7_SIGN_ENVELOPE = ^PKCS7_SIGN_ENVELOPE; + PPPKCS7_SIGN_ENVELOPE = ^PPKCS7_SIGN_ENVELOPE; + + pkcs7_encrypted_st = record + version: PASN1_INTEGER; + enc_data: PPKCS7_ENC_CONTENT; + end; + // Added '_STRUCT' to avoid name clashes + PKCS7_ENCRYPT_STRUCT = pkcs7_encrypted_st; + PPKCS7_ENCRYPT_STRUCT = ^PKCS7_ENCRYPT_STRUCT; + PPPKCS7_ENCRYPT_STRUCT = ^PPKCS7_ENCRYPT_STRUCT; + + pkcs7_st_d = record + case Integer of + 0: (ptr: PAnsiChar); + 1: (data: PASN1_OCTET_STRING); + 2: (sign: PPKCS7_SIGNED); + 3: (enveloped: PPKCS7_ENVELOPE); + 4: (signed_and_enveloped: PPKCS7_SIGN_ENVELOPE); + 5: (digest: PPKCS7_DIGEST); + 6: (encrypted: PPKCS7_ENCRYPT_STRUCT); + 7: (other: PASN1_TYPE); + end; + pkcs7_st = record + asn1: PByte; + length: TOpenSSL_C_LONG; + state: TOpenSSL_C_INT; + detached: TOpenSSL_C_INT; + type_: PASN1_OBJECT; + d: pkcs7_st_d; + end; + PKCS7 = pkcs7_st; + + pkcs7_digest_st = record + version: PASN1_INTEGER; + md: PX509_ALGOR; + contents: PPKCS7; + digest: PASN1_OCTET_STRING; + end; + PKCS7_DIGEST = pkcs7_digest_st; + + //function PKCS7_ISSUER_AND_SERIAL_new: PPKCS7_ISSUER_AND_SERIAL; + //procedure PKCS7_ISSUER_AND_SERIAL_free(a: PPKCS7_ISSUER_AND_SERIAL); + //function d2i_PKCS7_ISSUER_AND_SERIAL(a: PPPKCS7_ISSUER_AND_SERIAL; const in_: PByte; len: TOpenSSL_C_LONG): PPKCS7_ISSUER_AND_SERIAL; + //function i2d_PKCS7_ISSUER_AND_SERIAL(const a: PPKCS7_ISSUER_AND_SERIAL; out_: PByte): TOpenSSL_C_INT; + //function PKCS7_ISSUER_AND_SERIAL_it: PASN1_ITEM; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM PKCS7_ISSUER_AND_SERIAL_digest} +{$EXTERNALSYM PKCS7_dup} +{$EXTERNALSYM d2i_PKCS7_bio} +{$EXTERNALSYM i2d_PKCS7_bio} +{$EXTERNALSYM i2d_PKCS7_bio_stream} +{$EXTERNALSYM PEM_write_bio_PKCS7_stream} +{$EXTERNALSYM PKCS7_ctrl} +{$EXTERNALSYM PKCS7_set_type} +{$EXTERNALSYM PKCS7_set0_type_other} +{$EXTERNALSYM PKCS7_set_content} +{$EXTERNALSYM PKCS7_SIGNER_INFO_set} +{$EXTERNALSYM PKCS7_SIGNER_INFO_sign} +{$EXTERNALSYM PKCS7_add_signer} +{$EXTERNALSYM PKCS7_add_certificate} +{$EXTERNALSYM PKCS7_add_crl} +{$EXTERNALSYM PKCS7_content_new} +{$EXTERNALSYM PKCS7_dataVerify} +{$EXTERNALSYM PKCS7_signatureVerify} +{$EXTERNALSYM PKCS7_dataInit} +{$EXTERNALSYM PKCS7_dataFinal} +{$EXTERNALSYM PKCS7_dataDecode} +{$EXTERNALSYM PKCS7_add_signature} +{$EXTERNALSYM PKCS7_cert_from_signer_info} +{$EXTERNALSYM PKCS7_set_digest} +{$EXTERNALSYM PKCS7_add_recipient} +{$EXTERNALSYM PKCS7_SIGNER_INFO_get0_algs} +{$EXTERNALSYM PKCS7_RECIP_INFO_get0_alg} +{$EXTERNALSYM PKCS7_add_recipient_info} +{$EXTERNALSYM PKCS7_RECIP_INFO_set} +{$EXTERNALSYM PKCS7_set_cipher} +{$EXTERNALSYM PKCS7_stream} +{$EXTERNALSYM PKCS7_get_issuer_and_serial} +{$EXTERNALSYM PKCS7_add_signed_attribute} +{$EXTERNALSYM PKCS7_add_attribute} +{$EXTERNALSYM PKCS7_get_attribute} +{$EXTERNALSYM PKCS7_get_signed_attribute} +{$EXTERNALSYM PKCS7_sign_add_signer} +{$EXTERNALSYM PKCS7_final} +{$EXTERNALSYM PKCS7_decrypt} +{$EXTERNALSYM PKCS7_add_attrib_content_type} +{$EXTERNALSYM PKCS7_add0_attrib_signing_time} +{$EXTERNALSYM PKCS7_add1_attrib_digest} +{$EXTERNALSYM SMIME_write_PKCS7} +{$EXTERNALSYM SMIME_read_PKCS7} +{$EXTERNALSYM BIO_new_PKCS7} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function PKCS7_ISSUER_AND_SERIAL_digest(data: PPKCS7_ISSUER_AND_SERIAL; const type_: PEVP_MD; md: PByte; len: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_dup(p7: PPKCS7): PPKCS7; cdecl; external CLibCrypto; +function d2i_PKCS7_bio(bp: PBIO; p7: PPPKCS7): PPKCS7; cdecl; external CLibCrypto; +function i2d_PKCS7_bio(bp: PBIO; p7: PPKCS7): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2d_PKCS7_bio_stream(out_: PBIO; p7: PPKCS7; in_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PEM_write_bio_PKCS7_stream(out_: PBIO; p7: PPKCS7; in_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_ctrl(p7: PPKCS7; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; parg: PAnsiChar): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function PKCS7_set_type(p7: PPKCS7; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_set0_type_other(p7: PPKCS7; typepkcs7_signer_info_: TOpenSSL_C_INT; other: PASN1_TYPE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_set_content(p7: PPKCS7; p7_data: PPKCS7): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_SIGNER_INFO_set(p7i: PPKCS7_SIGNER_INFO; x509: PX509; pkey: PEVP_PKEY; const dgst: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_SIGNER_INFO_sign(si: PPKCS7_SIGNER_INFO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_add_signer(p7: PPKCS7; p7i: PPKCS7_SIGNER_INFO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_add_certificate(p7: PPKCS7; x509: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_add_crl(p7: PPKCS7; x509: PX509_CRL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_content_new(p7: PPKCS7; nid: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_dataVerify(cert_store: PX509_STORE; ctx: PX509_STORE_CTX; bio: PBIO; p7: PPKCS7; si: PPKCS7_SIGNER_INFO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_signatureVerify(bio: PBIO; p7: PPKCS7; si: PPKCS7_SIGNER_INFO; x509: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_dataInit(p7: PPKCS7; bio: PBIO): PBIO; cdecl; external CLibCrypto; +function PKCS7_dataFinal(p7: PPKCS7; bio: PBIO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_dataDecode(p7: PPKCS7; pkey: PEVP_PKEY; in_bio: PBIO; pcert: PX509): PBIO; cdecl; external CLibCrypto; +function PKCS7_add_signature(p7: PPKCS7; x509: PX509; pkey: PEVP_PKEY; const dgst: PEVP_MD): PPKCS7_SIGNER_INFO; cdecl; external CLibCrypto; +function PKCS7_cert_from_signer_info(p7: PPKCS7; si: PPKCS7_SIGNER_INFO): PX509; cdecl; external CLibCrypto; +function PKCS7_set_digest(p7: PPKCS7; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_add_recipient(p7: PPKCS7; x509: PX509): PPKCS7_RECIP_INFO; cdecl; external CLibCrypto; +procedure PKCS7_SIGNER_INFO_get0_algs(si: PPKCS7_SIGNER_INFO; pk: PPEVP_PKEY; pdig: PPX509_ALGOR; psig: PPX509_ALGOR); cdecl; external CLibCrypto; +procedure PKCS7_RECIP_INFO_get0_alg(ri: PPKCS7_RECIP_INFO; penc: PPX509_ALGOR); cdecl; external CLibCrypto; +function PKCS7_add_recipient_info(p7: PPKCS7; ri: PPKCS7_RECIP_INFO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_RECIP_INFO_set(p7i: PPKCS7_RECIP_INFO; x509: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_set_cipher(p7: PPKCS7; const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_stream(boundary: PPPByte; p7: PPKCS7): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_get_issuer_and_serial(p7: PPKCS7; idx: TOpenSSL_C_INT): PPKCS7_ISSUER_AND_SERIAL; cdecl; external CLibCrypto; +function PKCS7_add_signed_attribute(p7si: PPKCS7_SIGNER_INFO; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_add_attribute(p7si: PPKCS7_SIGNER_INFO; nid: TOpenSSL_C_INT; atrtype: TOpenSSL_C_INT; value: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_get_attribute(si: PPKCS7_SIGNER_INFO; nid: TOpenSSL_C_INT): PASN1_TYPE; cdecl; external CLibCrypto; +function PKCS7_get_signed_attribute(si: PPKCS7_SIGNER_INFO; nid: TOpenSSL_C_INT): PASN1_TYPE; cdecl; external CLibCrypto; +function PKCS7_sign_add_signer(p7: PPKCS7; signcert: PX509; pkey: PEVP_PKEY; const md: PEVP_MD; flags: TOpenSSL_C_INT): PPKCS7_SIGNER_INFO; cdecl; external CLibCrypto; +function PKCS7_final(p7: PPKCS7; data: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_decrypt(p7: PPKCS7; pkey: PEVP_PKEY; cert: PX509; data: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_add_attrib_content_type(si: PPKCS7_SIGNER_INFO; coid: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_add0_attrib_signing_time(si: PPKCS7_SIGNER_INFO; t: PASN1_TIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS7_add1_attrib_digest(si: PPKCS7_SIGNER_INFO; const md: PByte; mdlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SMIME_write_PKCS7(bio: PBIO; p7: PPKCS7; data: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SMIME_read_PKCS7(bio: PBIO; bcont: PPBIO): PPKCS7; cdecl; external CLibCrypto; +function BIO_new_PKCS7(out_: PBIO; p7: PPKCS7): PBIO; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_PKCS7_ISSUER_AND_SERIAL_digest(data: PPKCS7_ISSUER_AND_SERIAL; const type_: PEVP_MD; md: PByte; len: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_dup(p7: PPKCS7): PPKCS7; cdecl; +function Load_d2i_PKCS7_bio(bp: PBIO; p7: PPPKCS7): PPKCS7; cdecl; +function Load_i2d_PKCS7_bio(bp: PBIO; p7: PPKCS7): TOpenSSL_C_INT; cdecl; +function Load_i2d_PKCS7_bio_stream(out_: PBIO; p7: PPKCS7; in_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PEM_write_bio_PKCS7_stream(out_: PBIO; p7: PPKCS7; in_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_ctrl(p7: PPKCS7; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; parg: PAnsiChar): TOpenSSL_C_LONG; cdecl; +function Load_PKCS7_set_type(p7: PPKCS7; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_set0_type_other(p7: PPKCS7; typepkcs7_signer_info_: TOpenSSL_C_INT; other: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_set_content(p7: PPKCS7; p7_data: PPKCS7): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_SIGNER_INFO_set(p7i: PPKCS7_SIGNER_INFO; x509: PX509; pkey: PEVP_PKEY; const dgst: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_SIGNER_INFO_sign(si: PPKCS7_SIGNER_INFO): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_add_signer(p7: PPKCS7; p7i: PPKCS7_SIGNER_INFO): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_add_certificate(p7: PPKCS7; x509: PX509): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_add_crl(p7: PPKCS7; x509: PX509_CRL): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_content_new(p7: PPKCS7; nid: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_dataVerify(cert_store: PX509_STORE; ctx: PX509_STORE_CTX; bio: PBIO; p7: PPKCS7; si: PPKCS7_SIGNER_INFO): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_signatureVerify(bio: PBIO; p7: PPKCS7; si: PPKCS7_SIGNER_INFO; x509: PX509): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_dataInit(p7: PPKCS7; bio: PBIO): PBIO; cdecl; +function Load_PKCS7_dataFinal(p7: PPKCS7; bio: PBIO): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_dataDecode(p7: PPKCS7; pkey: PEVP_PKEY; in_bio: PBIO; pcert: PX509): PBIO; cdecl; +function Load_PKCS7_add_signature(p7: PPKCS7; x509: PX509; pkey: PEVP_PKEY; const dgst: PEVP_MD): PPKCS7_SIGNER_INFO; cdecl; +function Load_PKCS7_cert_from_signer_info(p7: PPKCS7; si: PPKCS7_SIGNER_INFO): PX509; cdecl; +function Load_PKCS7_set_digest(p7: PPKCS7; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_add_recipient(p7: PPKCS7; x509: PX509): PPKCS7_RECIP_INFO; cdecl; +procedure Load_PKCS7_SIGNER_INFO_get0_algs(si: PPKCS7_SIGNER_INFO; pk: PPEVP_PKEY; pdig: PPX509_ALGOR; psig: PPX509_ALGOR); cdecl; +procedure Load_PKCS7_RECIP_INFO_get0_alg(ri: PPKCS7_RECIP_INFO; penc: PPX509_ALGOR); cdecl; +function Load_PKCS7_add_recipient_info(p7: PPKCS7; ri: PPKCS7_RECIP_INFO): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_RECIP_INFO_set(p7i: PPKCS7_RECIP_INFO; x509: PX509): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_set_cipher(p7: PPKCS7; const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_stream(boundary: PPPByte; p7: PPKCS7): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_get_issuer_and_serial(p7: PPKCS7; idx: TOpenSSL_C_INT): PPKCS7_ISSUER_AND_SERIAL; cdecl; +function Load_PKCS7_add_signed_attribute(p7si: PPKCS7_SIGNER_INFO; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_add_attribute(p7si: PPKCS7_SIGNER_INFO; nid: TOpenSSL_C_INT; atrtype: TOpenSSL_C_INT; value: Pointer): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_get_attribute(si: PPKCS7_SIGNER_INFO; nid: TOpenSSL_C_INT): PASN1_TYPE; cdecl; +function Load_PKCS7_get_signed_attribute(si: PPKCS7_SIGNER_INFO; nid: TOpenSSL_C_INT): PASN1_TYPE; cdecl; +function Load_PKCS7_sign_add_signer(p7: PPKCS7; signcert: PX509; pkey: PEVP_PKEY; const md: PEVP_MD; flags: TOpenSSL_C_INT): PPKCS7_SIGNER_INFO; cdecl; +function Load_PKCS7_final(p7: PPKCS7; data: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_decrypt(p7: PPKCS7; pkey: PEVP_PKEY; cert: PX509; data: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_add_attrib_content_type(si: PPKCS7_SIGNER_INFO; coid: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_add0_attrib_signing_time(si: PPKCS7_SIGNER_INFO; t: PASN1_TIME): TOpenSSL_C_INT; cdecl; +function Load_PKCS7_add1_attrib_digest(si: PPKCS7_SIGNER_INFO; const md: PByte; mdlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SMIME_write_PKCS7(bio: PBIO; p7: PPKCS7; data: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SMIME_read_PKCS7(bio: PBIO; bcont: PPBIO): PPKCS7; cdecl; +function Load_BIO_new_PKCS7(out_: PBIO; p7: PPKCS7): PBIO; cdecl; + +var + PKCS7_ISSUER_AND_SERIAL_digest: function (data: PPKCS7_ISSUER_AND_SERIAL; const type_: PEVP_MD; md: PByte; len: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_PKCS7_ISSUER_AND_SERIAL_digest; + PKCS7_dup: function (p7: PPKCS7): PPKCS7; cdecl = Load_PKCS7_dup; + d2i_PKCS7_bio: function (bp: PBIO; p7: PPPKCS7): PPKCS7; cdecl = Load_d2i_PKCS7_bio; + i2d_PKCS7_bio: function (bp: PBIO; p7: PPKCS7): TOpenSSL_C_INT; cdecl = Load_i2d_PKCS7_bio; + i2d_PKCS7_bio_stream: function (out_: PBIO; p7: PPKCS7; in_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_i2d_PKCS7_bio_stream; + PEM_write_bio_PKCS7_stream: function (out_: PBIO; p7: PPKCS7; in_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PEM_write_bio_PKCS7_stream; + PKCS7_ctrl: function (p7: PPKCS7; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; parg: PAnsiChar): TOpenSSL_C_LONG; cdecl = Load_PKCS7_ctrl; + PKCS7_set_type: function (p7: PPKCS7; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS7_set_type; + PKCS7_set0_type_other: function (p7: PPKCS7; typepkcs7_signer_info_: TOpenSSL_C_INT; other: PASN1_TYPE): TOpenSSL_C_INT; cdecl = Load_PKCS7_set0_type_other; + PKCS7_set_content: function (p7: PPKCS7; p7_data: PPKCS7): TOpenSSL_C_INT; cdecl = Load_PKCS7_set_content; + PKCS7_SIGNER_INFO_set: function (p7i: PPKCS7_SIGNER_INFO; x509: PX509; pkey: PEVP_PKEY; const dgst: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_PKCS7_SIGNER_INFO_set; + PKCS7_SIGNER_INFO_sign: function (si: PPKCS7_SIGNER_INFO): TOpenSSL_C_INT; cdecl = Load_PKCS7_SIGNER_INFO_sign; + PKCS7_add_signer: function (p7: PPKCS7; p7i: PPKCS7_SIGNER_INFO): TOpenSSL_C_INT; cdecl = Load_PKCS7_add_signer; + PKCS7_add_certificate: function (p7: PPKCS7; x509: PX509): TOpenSSL_C_INT; cdecl = Load_PKCS7_add_certificate; + PKCS7_add_crl: function (p7: PPKCS7; x509: PX509_CRL): TOpenSSL_C_INT; cdecl = Load_PKCS7_add_crl; + PKCS7_content_new: function (p7: PPKCS7; nid: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS7_content_new; + PKCS7_dataVerify: function (cert_store: PX509_STORE; ctx: PX509_STORE_CTX; bio: PBIO; p7: PPKCS7; si: PPKCS7_SIGNER_INFO): TOpenSSL_C_INT; cdecl = Load_PKCS7_dataVerify; + PKCS7_signatureVerify: function (bio: PBIO; p7: PPKCS7; si: PPKCS7_SIGNER_INFO; x509: PX509): TOpenSSL_C_INT; cdecl = Load_PKCS7_signatureVerify; + PKCS7_dataInit: function (p7: PPKCS7; bio: PBIO): PBIO; cdecl = Load_PKCS7_dataInit; + PKCS7_dataFinal: function (p7: PPKCS7; bio: PBIO): TOpenSSL_C_INT; cdecl = Load_PKCS7_dataFinal; + PKCS7_dataDecode: function (p7: PPKCS7; pkey: PEVP_PKEY; in_bio: PBIO; pcert: PX509): PBIO; cdecl = Load_PKCS7_dataDecode; + PKCS7_add_signature: function (p7: PPKCS7; x509: PX509; pkey: PEVP_PKEY; const dgst: PEVP_MD): PPKCS7_SIGNER_INFO; cdecl = Load_PKCS7_add_signature; + PKCS7_cert_from_signer_info: function (p7: PPKCS7; si: PPKCS7_SIGNER_INFO): PX509; cdecl = Load_PKCS7_cert_from_signer_info; + PKCS7_set_digest: function (p7: PPKCS7; const md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_PKCS7_set_digest; + PKCS7_add_recipient: function (p7: PPKCS7; x509: PX509): PPKCS7_RECIP_INFO; cdecl = Load_PKCS7_add_recipient; + PKCS7_SIGNER_INFO_get0_algs: procedure (si: PPKCS7_SIGNER_INFO; pk: PPEVP_PKEY; pdig: PPX509_ALGOR; psig: PPX509_ALGOR); cdecl = Load_PKCS7_SIGNER_INFO_get0_algs; + PKCS7_RECIP_INFO_get0_alg: procedure (ri: PPKCS7_RECIP_INFO; penc: PPX509_ALGOR); cdecl = Load_PKCS7_RECIP_INFO_get0_alg; + PKCS7_add_recipient_info: function (p7: PPKCS7; ri: PPKCS7_RECIP_INFO): TOpenSSL_C_INT; cdecl = Load_PKCS7_add_recipient_info; + PKCS7_RECIP_INFO_set: function (p7i: PPKCS7_RECIP_INFO; x509: PX509): TOpenSSL_C_INT; cdecl = Load_PKCS7_RECIP_INFO_set; + PKCS7_set_cipher: function (p7: PPKCS7; const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl = Load_PKCS7_set_cipher; + PKCS7_stream: function (boundary: PPPByte; p7: PPKCS7): TOpenSSL_C_INT; cdecl = Load_PKCS7_stream; + PKCS7_get_issuer_and_serial: function (p7: PPKCS7; idx: TOpenSSL_C_INT): PPKCS7_ISSUER_AND_SERIAL; cdecl = Load_PKCS7_get_issuer_and_serial; + PKCS7_add_signed_attribute: function (p7si: PPKCS7_SIGNER_INFO; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl = Load_PKCS7_add_signed_attribute; + PKCS7_add_attribute: function (p7si: PPKCS7_SIGNER_INFO; nid: TOpenSSL_C_INT; atrtype: TOpenSSL_C_INT; value: Pointer): TOpenSSL_C_INT; cdecl = Load_PKCS7_add_attribute; + PKCS7_get_attribute: function (si: PPKCS7_SIGNER_INFO; nid: TOpenSSL_C_INT): PASN1_TYPE; cdecl = Load_PKCS7_get_attribute; + PKCS7_get_signed_attribute: function (si: PPKCS7_SIGNER_INFO; nid: TOpenSSL_C_INT): PASN1_TYPE; cdecl = Load_PKCS7_get_signed_attribute; + PKCS7_sign_add_signer: function (p7: PPKCS7; signcert: PX509; pkey: PEVP_PKEY; const md: PEVP_MD; flags: TOpenSSL_C_INT): PPKCS7_SIGNER_INFO; cdecl = Load_PKCS7_sign_add_signer; + PKCS7_final: function (p7: PPKCS7; data: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS7_final; + PKCS7_decrypt: function (p7: PPKCS7; pkey: PEVP_PKEY; cert: PX509; data: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS7_decrypt; + PKCS7_add_attrib_content_type: function (si: PPKCS7_SIGNER_INFO; coid: PASN1_OBJECT): TOpenSSL_C_INT; cdecl = Load_PKCS7_add_attrib_content_type; + PKCS7_add0_attrib_signing_time: function (si: PPKCS7_SIGNER_INFO; t: PASN1_TIME): TOpenSSL_C_INT; cdecl = Load_PKCS7_add0_attrib_signing_time; + PKCS7_add1_attrib_digest: function (si: PPKCS7_SIGNER_INFO; const md: PByte; mdlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS7_add1_attrib_digest; + SMIME_write_PKCS7: function (bio: PBIO; p7: PPKCS7; data: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SMIME_write_PKCS7; + SMIME_read_PKCS7: function (bio: PBIO; bcont: PPBIO): PPKCS7; cdecl = Load_SMIME_read_PKCS7; + BIO_new_PKCS7: function (out_: PBIO; p7: PPKCS7): PBIO; cdecl = Load_BIO_new_PKCS7; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_PKCS7_ISSUER_AND_SERIAL_digest(data: PPKCS7_ISSUER_AND_SERIAL; const type_: PEVP_MD; md: PByte; len: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + PKCS7_ISSUER_AND_SERIAL_digest := LoadLibCryptoFunction('PKCS7_ISSUER_AND_SERIAL_digest'); + if not assigned(PKCS7_ISSUER_AND_SERIAL_digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_ISSUER_AND_SERIAL_digest'); + Result := PKCS7_ISSUER_AND_SERIAL_digest(data,type_,md,len); +end; + +function Load_PKCS7_dup(p7: PPKCS7): PPKCS7; cdecl; +begin + PKCS7_dup := LoadLibCryptoFunction('PKCS7_dup'); + if not assigned(PKCS7_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_dup'); + Result := PKCS7_dup(p7); +end; + +function Load_d2i_PKCS7_bio(bp: PBIO; p7: PPPKCS7): PPKCS7; cdecl; +begin + d2i_PKCS7_bio := LoadLibCryptoFunction('d2i_PKCS7_bio'); + if not assigned(d2i_PKCS7_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_PKCS7_bio'); + Result := d2i_PKCS7_bio(bp,p7); +end; + +function Load_i2d_PKCS7_bio(bp: PBIO; p7: PPKCS7): TOpenSSL_C_INT; cdecl; +begin + i2d_PKCS7_bio := LoadLibCryptoFunction('i2d_PKCS7_bio'); + if not assigned(i2d_PKCS7_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PKCS7_bio'); + Result := i2d_PKCS7_bio(bp,p7); +end; + +function Load_i2d_PKCS7_bio_stream(out_: PBIO; p7: PPKCS7; in_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + i2d_PKCS7_bio_stream := LoadLibCryptoFunction('i2d_PKCS7_bio_stream'); + if not assigned(i2d_PKCS7_bio_stream) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PKCS7_bio_stream'); + Result := i2d_PKCS7_bio_stream(out_,p7,in_,flags); +end; + +function Load_PEM_write_bio_PKCS7_stream(out_: PBIO; p7: PPKCS7; in_: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PEM_write_bio_PKCS7_stream := LoadLibCryptoFunction('PEM_write_bio_PKCS7_stream'); + if not assigned(PEM_write_bio_PKCS7_stream) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PEM_write_bio_PKCS7_stream'); + Result := PEM_write_bio_PKCS7_stream(out_,p7,in_,flags); +end; + +function Load_PKCS7_ctrl(p7: PPKCS7; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; parg: PAnsiChar): TOpenSSL_C_LONG; cdecl; +begin + PKCS7_ctrl := LoadLibCryptoFunction('PKCS7_ctrl'); + if not assigned(PKCS7_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_ctrl'); + Result := PKCS7_ctrl(p7,cmd,larg,parg); +end; + +function Load_PKCS7_set_type(p7: PPKCS7; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS7_set_type := LoadLibCryptoFunction('PKCS7_set_type'); + if not assigned(PKCS7_set_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_set_type'); + Result := PKCS7_set_type(p7,type_); +end; + +function Load_PKCS7_set0_type_other(p7: PPKCS7; typepkcs7_signer_info_: TOpenSSL_C_INT; other: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +begin + PKCS7_set0_type_other := LoadLibCryptoFunction('PKCS7_set0_type_other'); + if not assigned(PKCS7_set0_type_other) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_set0_type_other'); + Result := PKCS7_set0_type_other(p7,typepkcs7_signer_info_,other); +end; + +function Load_PKCS7_set_content(p7: PPKCS7; p7_data: PPKCS7): TOpenSSL_C_INT; cdecl; +begin + PKCS7_set_content := LoadLibCryptoFunction('PKCS7_set_content'); + if not assigned(PKCS7_set_content) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_set_content'); + Result := PKCS7_set_content(p7,p7_data); +end; + +function Load_PKCS7_SIGNER_INFO_set(p7i: PPKCS7_SIGNER_INFO; x509: PX509; pkey: PEVP_PKEY; const dgst: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + PKCS7_SIGNER_INFO_set := LoadLibCryptoFunction('PKCS7_SIGNER_INFO_set'); + if not assigned(PKCS7_SIGNER_INFO_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_SIGNER_INFO_set'); + Result := PKCS7_SIGNER_INFO_set(p7i,x509,pkey,dgst); +end; + +function Load_PKCS7_SIGNER_INFO_sign(si: PPKCS7_SIGNER_INFO): TOpenSSL_C_INT; cdecl; +begin + PKCS7_SIGNER_INFO_sign := LoadLibCryptoFunction('PKCS7_SIGNER_INFO_sign'); + if not assigned(PKCS7_SIGNER_INFO_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_SIGNER_INFO_sign'); + Result := PKCS7_SIGNER_INFO_sign(si); +end; + +function Load_PKCS7_add_signer(p7: PPKCS7; p7i: PPKCS7_SIGNER_INFO): TOpenSSL_C_INT; cdecl; +begin + PKCS7_add_signer := LoadLibCryptoFunction('PKCS7_add_signer'); + if not assigned(PKCS7_add_signer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_add_signer'); + Result := PKCS7_add_signer(p7,p7i); +end; + +function Load_PKCS7_add_certificate(p7: PPKCS7; x509: PX509): TOpenSSL_C_INT; cdecl; +begin + PKCS7_add_certificate := LoadLibCryptoFunction('PKCS7_add_certificate'); + if not assigned(PKCS7_add_certificate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_add_certificate'); + Result := PKCS7_add_certificate(p7,x509); +end; + +function Load_PKCS7_add_crl(p7: PPKCS7; x509: PX509_CRL): TOpenSSL_C_INT; cdecl; +begin + PKCS7_add_crl := LoadLibCryptoFunction('PKCS7_add_crl'); + if not assigned(PKCS7_add_crl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_add_crl'); + Result := PKCS7_add_crl(p7,x509); +end; + +function Load_PKCS7_content_new(p7: PPKCS7; nid: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS7_content_new := LoadLibCryptoFunction('PKCS7_content_new'); + if not assigned(PKCS7_content_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_content_new'); + Result := PKCS7_content_new(p7,nid); +end; + +function Load_PKCS7_dataVerify(cert_store: PX509_STORE; ctx: PX509_STORE_CTX; bio: PBIO; p7: PPKCS7; si: PPKCS7_SIGNER_INFO): TOpenSSL_C_INT; cdecl; +begin + PKCS7_dataVerify := LoadLibCryptoFunction('PKCS7_dataVerify'); + if not assigned(PKCS7_dataVerify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_dataVerify'); + Result := PKCS7_dataVerify(cert_store,ctx,bio,p7,si); +end; + +function Load_PKCS7_signatureVerify(bio: PBIO; p7: PPKCS7; si: PPKCS7_SIGNER_INFO; x509: PX509): TOpenSSL_C_INT; cdecl; +begin + PKCS7_signatureVerify := LoadLibCryptoFunction('PKCS7_signatureVerify'); + if not assigned(PKCS7_signatureVerify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_signatureVerify'); + Result := PKCS7_signatureVerify(bio,p7,si,x509); +end; + +function Load_PKCS7_dataInit(p7: PPKCS7; bio: PBIO): PBIO; cdecl; +begin + PKCS7_dataInit := LoadLibCryptoFunction('PKCS7_dataInit'); + if not assigned(PKCS7_dataInit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_dataInit'); + Result := PKCS7_dataInit(p7,bio); +end; + +function Load_PKCS7_dataFinal(p7: PPKCS7; bio: PBIO): TOpenSSL_C_INT; cdecl; +begin + PKCS7_dataFinal := LoadLibCryptoFunction('PKCS7_dataFinal'); + if not assigned(PKCS7_dataFinal) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_dataFinal'); + Result := PKCS7_dataFinal(p7,bio); +end; + +function Load_PKCS7_dataDecode(p7: PPKCS7; pkey: PEVP_PKEY; in_bio: PBIO; pcert: PX509): PBIO; cdecl; +begin + PKCS7_dataDecode := LoadLibCryptoFunction('PKCS7_dataDecode'); + if not assigned(PKCS7_dataDecode) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_dataDecode'); + Result := PKCS7_dataDecode(p7,pkey,in_bio,pcert); +end; + +function Load_PKCS7_add_signature(p7: PPKCS7; x509: PX509; pkey: PEVP_PKEY; const dgst: PEVP_MD): PPKCS7_SIGNER_INFO; cdecl; +begin + PKCS7_add_signature := LoadLibCryptoFunction('PKCS7_add_signature'); + if not assigned(PKCS7_add_signature) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_add_signature'); + Result := PKCS7_add_signature(p7,x509,pkey,dgst); +end; + +function Load_PKCS7_cert_from_signer_info(p7: PPKCS7; si: PPKCS7_SIGNER_INFO): PX509; cdecl; +begin + PKCS7_cert_from_signer_info := LoadLibCryptoFunction('PKCS7_cert_from_signer_info'); + if not assigned(PKCS7_cert_from_signer_info) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_cert_from_signer_info'); + Result := PKCS7_cert_from_signer_info(p7,si); +end; + +function Load_PKCS7_set_digest(p7: PPKCS7; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + PKCS7_set_digest := LoadLibCryptoFunction('PKCS7_set_digest'); + if not assigned(PKCS7_set_digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_set_digest'); + Result := PKCS7_set_digest(p7,md); +end; + +function Load_PKCS7_add_recipient(p7: PPKCS7; x509: PX509): PPKCS7_RECIP_INFO; cdecl; +begin + PKCS7_add_recipient := LoadLibCryptoFunction('PKCS7_add_recipient'); + if not assigned(PKCS7_add_recipient) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_add_recipient'); + Result := PKCS7_add_recipient(p7,x509); +end; + +procedure Load_PKCS7_SIGNER_INFO_get0_algs(si: PPKCS7_SIGNER_INFO; pk: PPEVP_PKEY; pdig: PPX509_ALGOR; psig: PPX509_ALGOR); cdecl; +begin + PKCS7_SIGNER_INFO_get0_algs := LoadLibCryptoFunction('PKCS7_SIGNER_INFO_get0_algs'); + if not assigned(PKCS7_SIGNER_INFO_get0_algs) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_SIGNER_INFO_get0_algs'); + PKCS7_SIGNER_INFO_get0_algs(si,pk,pdig,psig); +end; + +procedure Load_PKCS7_RECIP_INFO_get0_alg(ri: PPKCS7_RECIP_INFO; penc: PPX509_ALGOR); cdecl; +begin + PKCS7_RECIP_INFO_get0_alg := LoadLibCryptoFunction('PKCS7_RECIP_INFO_get0_alg'); + if not assigned(PKCS7_RECIP_INFO_get0_alg) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_RECIP_INFO_get0_alg'); + PKCS7_RECIP_INFO_get0_alg(ri,penc); +end; + +function Load_PKCS7_add_recipient_info(p7: PPKCS7; ri: PPKCS7_RECIP_INFO): TOpenSSL_C_INT; cdecl; +begin + PKCS7_add_recipient_info := LoadLibCryptoFunction('PKCS7_add_recipient_info'); + if not assigned(PKCS7_add_recipient_info) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_add_recipient_info'); + Result := PKCS7_add_recipient_info(p7,ri); +end; + +function Load_PKCS7_RECIP_INFO_set(p7i: PPKCS7_RECIP_INFO; x509: PX509): TOpenSSL_C_INT; cdecl; +begin + PKCS7_RECIP_INFO_set := LoadLibCryptoFunction('PKCS7_RECIP_INFO_set'); + if not assigned(PKCS7_RECIP_INFO_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_RECIP_INFO_set'); + Result := PKCS7_RECIP_INFO_set(p7i,x509); +end; + +function Load_PKCS7_set_cipher(p7: PPKCS7; const cipher: PEVP_CIPHER): TOpenSSL_C_INT; cdecl; +begin + PKCS7_set_cipher := LoadLibCryptoFunction('PKCS7_set_cipher'); + if not assigned(PKCS7_set_cipher) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_set_cipher'); + Result := PKCS7_set_cipher(p7,cipher); +end; + +function Load_PKCS7_stream(boundary: PPPByte; p7: PPKCS7): TOpenSSL_C_INT; cdecl; +begin + PKCS7_stream := LoadLibCryptoFunction('PKCS7_stream'); + if not assigned(PKCS7_stream) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_stream'); + Result := PKCS7_stream(boundary,p7); +end; + +function Load_PKCS7_get_issuer_and_serial(p7: PPKCS7; idx: TOpenSSL_C_INT): PPKCS7_ISSUER_AND_SERIAL; cdecl; +begin + PKCS7_get_issuer_and_serial := LoadLibCryptoFunction('PKCS7_get_issuer_and_serial'); + if not assigned(PKCS7_get_issuer_and_serial) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_get_issuer_and_serial'); + Result := PKCS7_get_issuer_and_serial(p7,idx); +end; + +function Load_PKCS7_add_signed_attribute(p7si: PPKCS7_SIGNER_INFO; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; +begin + PKCS7_add_signed_attribute := LoadLibCryptoFunction('PKCS7_add_signed_attribute'); + if not assigned(PKCS7_add_signed_attribute) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_add_signed_attribute'); + Result := PKCS7_add_signed_attribute(p7si,nid,type_,data); +end; + +function Load_PKCS7_add_attribute(p7si: PPKCS7_SIGNER_INFO; nid: TOpenSSL_C_INT; atrtype: TOpenSSL_C_INT; value: Pointer): TOpenSSL_C_INT; cdecl; +begin + PKCS7_add_attribute := LoadLibCryptoFunction('PKCS7_add_attribute'); + if not assigned(PKCS7_add_attribute) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_add_attribute'); + Result := PKCS7_add_attribute(p7si,nid,atrtype,value); +end; + +function Load_PKCS7_get_attribute(si: PPKCS7_SIGNER_INFO; nid: TOpenSSL_C_INT): PASN1_TYPE; cdecl; +begin + PKCS7_get_attribute := LoadLibCryptoFunction('PKCS7_get_attribute'); + if not assigned(PKCS7_get_attribute) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_get_attribute'); + Result := PKCS7_get_attribute(si,nid); +end; + +function Load_PKCS7_get_signed_attribute(si: PPKCS7_SIGNER_INFO; nid: TOpenSSL_C_INT): PASN1_TYPE; cdecl; +begin + PKCS7_get_signed_attribute := LoadLibCryptoFunction('PKCS7_get_signed_attribute'); + if not assigned(PKCS7_get_signed_attribute) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_get_signed_attribute'); + Result := PKCS7_get_signed_attribute(si,nid); +end; + +function Load_PKCS7_sign_add_signer(p7: PPKCS7; signcert: PX509; pkey: PEVP_PKEY; const md: PEVP_MD; flags: TOpenSSL_C_INT): PPKCS7_SIGNER_INFO; cdecl; +begin + PKCS7_sign_add_signer := LoadLibCryptoFunction('PKCS7_sign_add_signer'); + if not assigned(PKCS7_sign_add_signer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_sign_add_signer'); + Result := PKCS7_sign_add_signer(p7,signcert,pkey,md,flags); +end; + +function Load_PKCS7_final(p7: PPKCS7; data: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS7_final := LoadLibCryptoFunction('PKCS7_final'); + if not assigned(PKCS7_final) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_final'); + Result := PKCS7_final(p7,data,flags); +end; + +function Load_PKCS7_decrypt(p7: PPKCS7; pkey: PEVP_PKEY; cert: PX509; data: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS7_decrypt := LoadLibCryptoFunction('PKCS7_decrypt'); + if not assigned(PKCS7_decrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_decrypt'); + Result := PKCS7_decrypt(p7,pkey,cert,data,flags); +end; + +function Load_PKCS7_add_attrib_content_type(si: PPKCS7_SIGNER_INFO; coid: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +begin + PKCS7_add_attrib_content_type := LoadLibCryptoFunction('PKCS7_add_attrib_content_type'); + if not assigned(PKCS7_add_attrib_content_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_add_attrib_content_type'); + Result := PKCS7_add_attrib_content_type(si,coid); +end; + +function Load_PKCS7_add0_attrib_signing_time(si: PPKCS7_SIGNER_INFO; t: PASN1_TIME): TOpenSSL_C_INT; cdecl; +begin + PKCS7_add0_attrib_signing_time := LoadLibCryptoFunction('PKCS7_add0_attrib_signing_time'); + if not assigned(PKCS7_add0_attrib_signing_time) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_add0_attrib_signing_time'); + Result := PKCS7_add0_attrib_signing_time(si,t); +end; + +function Load_PKCS7_add1_attrib_digest(si: PPKCS7_SIGNER_INFO; const md: PByte; mdlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS7_add1_attrib_digest := LoadLibCryptoFunction('PKCS7_add1_attrib_digest'); + if not assigned(PKCS7_add1_attrib_digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_add1_attrib_digest'); + Result := PKCS7_add1_attrib_digest(si,md,mdlen); +end; + +function Load_SMIME_write_PKCS7(bio: PBIO; p7: PPKCS7; data: PBIO; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SMIME_write_PKCS7 := LoadLibCryptoFunction('SMIME_write_PKCS7'); + if not assigned(SMIME_write_PKCS7) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SMIME_write_PKCS7'); + Result := SMIME_write_PKCS7(bio,p7,data,flags); +end; + +function Load_SMIME_read_PKCS7(bio: PBIO; bcont: PPBIO): PPKCS7; cdecl; +begin + SMIME_read_PKCS7 := LoadLibCryptoFunction('SMIME_read_PKCS7'); + if not assigned(SMIME_read_PKCS7) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SMIME_read_PKCS7'); + Result := SMIME_read_PKCS7(bio,bcont); +end; + +function Load_BIO_new_PKCS7(out_: PBIO; p7: PPKCS7): PBIO; cdecl; +begin + BIO_new_PKCS7 := LoadLibCryptoFunction('BIO_new_PKCS7'); + if not assigned(BIO_new_PKCS7) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_new_PKCS7'); + Result := BIO_new_PKCS7(out_,p7); +end; + + +procedure UnLoad; +begin + PKCS7_ISSUER_AND_SERIAL_digest := Load_PKCS7_ISSUER_AND_SERIAL_digest; + PKCS7_dup := Load_PKCS7_dup; + d2i_PKCS7_bio := Load_d2i_PKCS7_bio; + i2d_PKCS7_bio := Load_i2d_PKCS7_bio; + i2d_PKCS7_bio_stream := Load_i2d_PKCS7_bio_stream; + PEM_write_bio_PKCS7_stream := Load_PEM_write_bio_PKCS7_stream; + PKCS7_ctrl := Load_PKCS7_ctrl; + PKCS7_set_type := Load_PKCS7_set_type; + PKCS7_set0_type_other := Load_PKCS7_set0_type_other; + PKCS7_set_content := Load_PKCS7_set_content; + PKCS7_SIGNER_INFO_set := Load_PKCS7_SIGNER_INFO_set; + PKCS7_SIGNER_INFO_sign := Load_PKCS7_SIGNER_INFO_sign; + PKCS7_add_signer := Load_PKCS7_add_signer; + PKCS7_add_certificate := Load_PKCS7_add_certificate; + PKCS7_add_crl := Load_PKCS7_add_crl; + PKCS7_content_new := Load_PKCS7_content_new; + PKCS7_dataVerify := Load_PKCS7_dataVerify; + PKCS7_signatureVerify := Load_PKCS7_signatureVerify; + PKCS7_dataInit := Load_PKCS7_dataInit; + PKCS7_dataFinal := Load_PKCS7_dataFinal; + PKCS7_dataDecode := Load_PKCS7_dataDecode; + PKCS7_add_signature := Load_PKCS7_add_signature; + PKCS7_cert_from_signer_info := Load_PKCS7_cert_from_signer_info; + PKCS7_set_digest := Load_PKCS7_set_digest; + PKCS7_add_recipient := Load_PKCS7_add_recipient; + PKCS7_SIGNER_INFO_get0_algs := Load_PKCS7_SIGNER_INFO_get0_algs; + PKCS7_RECIP_INFO_get0_alg := Load_PKCS7_RECIP_INFO_get0_alg; + PKCS7_add_recipient_info := Load_PKCS7_add_recipient_info; + PKCS7_RECIP_INFO_set := Load_PKCS7_RECIP_INFO_set; + PKCS7_set_cipher := Load_PKCS7_set_cipher; + PKCS7_stream := Load_PKCS7_stream; + PKCS7_get_issuer_and_serial := Load_PKCS7_get_issuer_and_serial; + PKCS7_add_signed_attribute := Load_PKCS7_add_signed_attribute; + PKCS7_add_attribute := Load_PKCS7_add_attribute; + PKCS7_get_attribute := Load_PKCS7_get_attribute; + PKCS7_get_signed_attribute := Load_PKCS7_get_signed_attribute; + PKCS7_sign_add_signer := Load_PKCS7_sign_add_signer; + PKCS7_final := Load_PKCS7_final; + PKCS7_decrypt := Load_PKCS7_decrypt; + PKCS7_add_attrib_content_type := Load_PKCS7_add_attrib_content_type; + PKCS7_add0_attrib_signing_time := Load_PKCS7_add0_attrib_signing_time; + PKCS7_add1_attrib_digest := Load_PKCS7_add1_attrib_digest; + SMIME_write_PKCS7 := Load_SMIME_write_PKCS7; + SMIME_read_PKCS7 := Load_SMIME_read_PKCS7; + BIO_new_PKCS7 := Load_BIO_new_PKCS7; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_pkcs7err.pas b/src/opensslHdrs/IdOpenSSLHeaders_pkcs7err.pas new file mode 100644 index 0000000..1cf6384 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_pkcs7err.pas @@ -0,0 +1,177 @@ +(* This unit was generated from the source file pkcs7err.h2pas +It should not be modified directly. All changes should be made to pkcs7err.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_pkcs7err; + + +interface + +// Headers for OpenSSL 1.1.1 +// pkcs7err.h + + +uses + IdSSLOpenSSLAPI; + +const + (* + * PKCS7 function codes. + *) + PKCS7_F_DO_PKCS7_SIGNED_ATTRIB = 136; + PKCS7_F_PKCS7_ADD0_ATTRIB_SIGNING_TIME = 135; + PKCS7_F_PKCS7_ADD_ATTRIB_SMIMECAP = 118; + PKCS7_F_PKCS7_ADD_CERTIFICATE = 100; + PKCS7_F_PKCS7_ADD_CRL = 101; + PKCS7_F_PKCS7_ADD_RECIPIENT_INFO = 102; + PKCS7_F_PKCS7_ADD_SIGNATURE = 131; + PKCS7_F_PKCS7_ADD_SIGNER = 103; + PKCS7_F_PKCS7_BIO_ADD_DIGEST = 125; + PKCS7_F_PKCS7_COPY_EXISTING_DIGEST = 138; + PKCS7_F_PKCS7_CTRL = 104; + PKCS7_F_PKCS7_DATADECODE = 112; + PKCS7_F_PKCS7_DATAFINAL = 128; + PKCS7_F_PKCS7_DATAINIT = 105; + PKCS7_F_PKCS7_DATAVERIFY = 107; + PKCS7_F_PKCS7_DECRYPT = 114; + PKCS7_F_PKCS7_DECRYPT_RINFO = 133; + PKCS7_F_PKCS7_ENCODE_RINFO = 132; + PKCS7_F_PKCS7_ENCRYPT = 115; + PKCS7_F_PKCS7_FINAL = 134; + PKCS7_F_PKCS7_FIND_DIGEST = 127; + PKCS7_F_PKCS7_GET0_SIGNERS = 124; + PKCS7_F_PKCS7_RECIP_INFO_SET = 130; + PKCS7_F_PKCS7_SET_CIPHER = 108; + PKCS7_F_PKCS7_SET_CONTENT = 109; + PKCS7_F_PKCS7_SET_DIGEST = 126; + PKCS7_F_PKCS7_SET_TYPE = 110; + PKCS7_F_PKCS7_SIGN = 116; + PKCS7_F_PKCS7_SIGNATUREVERIFY = 113; + PKCS7_F_PKCS7_SIGNER_INFO_SET = 129; + PKCS7_F_PKCS7_SIGNER_INFO_SIGN = 139; + PKCS7_F_PKCS7_SIGN_ADD_SIGNER = 137; + PKCS7_F_PKCS7_SIMPLE_SMIMECAP = 119; + PKCS7_F_PKCS7_VERIFY = 117; + + (* + * PKCS7 reason codes. + *) + PKCS7_R_CERTIFICATE_VERIFY_ERROR = 117; + PKCS7_R_CIPHER_HAS_NO_OBJECT_IDENTIFIER = 144; + PKCS7_R_CIPHER_NOT_INITIALIZED = 116; + PKCS7_R_CONTENT_AND_DATA_PRESENT = 118; + PKCS7_R_CTRL_ERROR = 152; + PKCS7_R_DECRYPT_ERROR = 119; + PKCS7_R_DIGEST_FAILURE = 101; + PKCS7_R_ENCRYPTION_CTRL_FAILURE = 149; + PKCS7_R_ENCRYPTION_NOT_SUPPORTED_FOR_THIS_KEY_TYPE = 150; + PKCS7_R_ERROR_ADDING_RECIPIENT = 120; + PKCS7_R_ERROR_SETTING_CIPHER = 121; + PKCS7_R_INVALID_NULL_POINTER = 143; + PKCS7_R_INVALID_SIGNED_DATA_TYPE = 155; + PKCS7_R_NO_CONTENT = 122; + PKCS7_R_NO_DEFAULT_DIGEST = 151; + PKCS7_R_NO_MATCHING_DIGEST_TYPE_FOUND = 154; + PKCS7_R_NO_RECIPIENT_MATCHES_CERTIFICATE = 115; + PKCS7_R_NO_SIGNATURES_ON_DATA = 123; + PKCS7_R_NO_SIGNERS = 142; + PKCS7_R_OPERATION_NOT_SUPPORTED_ON_THIS_TYPE = 104; + PKCS7_R_PKCS7_ADD_SIGNATURE_ERROR = 124; + PKCS7_R_PKCS7_ADD_SIGNER_ERROR = 153; + PKCS7_R_PKCS7_DATASIGN = 145; + PKCS7_R_PRIVATE_KEY_DOES_NOT_MATCH_CERTIFICATE = 127; + PKCS7_R_SIGNATURE_FAILURE = 105; + PKCS7_R_SIGNER_CERTIFICATE_NOT_FOUND = 128; + PKCS7_R_SIGNING_CTRL_FAILURE = 147; + PKCS7_R_SIGNING_NOT_SUPPORTED_FOR_THIS_KEY_TYPE = 148; + PKCS7_R_SMIME_TEXT_ERROR = 129; + PKCS7_R_UNABLE_TO_FIND_CERTIFICATE = 106; + PKCS7_R_UNABLE_TO_FIND_MEM_BIO = 107; + PKCS7_R_UNABLE_TO_FIND_MESSAGE_DIGEST = 108; + PKCS7_R_UNKNOWN_DIGEST_TYPE = 109; + PKCS7_R_UNKNOWN_OPERATION = 110; + PKCS7_R_UNSUPPORTED_CIPHER_TYPE = 111; + PKCS7_R_UNSUPPORTED_CONTENT_TYPE = 112; + PKCS7_R_WRONG_CONTENT_TYPE = 113; + PKCS7_R_WRONG_PKCS7_TYPE = 114; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_PKCS7_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_PKCS7_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_PKCS7_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_PKCS7_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_PKCS7_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_PKCS7_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_PKCS7_strings := LoadLibCryptoFunction('ERR_load_PKCS7_strings'); + if not assigned(ERR_load_PKCS7_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_PKCS7_strings'); + Result := ERR_load_PKCS7_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_PKCS7_strings := Load_ERR_load_PKCS7_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_provider.pas b/src/opensslHdrs/IdOpenSSLHeaders_provider.pas new file mode 100644 index 0000000..9e9d0d3 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_provider.pas @@ -0,0 +1,406 @@ +(* This unit was generated from the source file provider.h2pas +It should not be modified directly. All changes should be made to provider.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_provider; + + +interface + +{ + Automatically converted by H2Pas 1.0.0 from provider.h + The following command line parameters were used: + provider.h +} + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_core; + +{$IFDEF FPC} +{$PACKRECORDS C} +{$ENDIF} + +type + POSSL_ALGORITHM = ^OSSL_ALGORITHM; + POSSL_CALLBACK = ^OSSL_CALLBACK; + POSSL_DISPATCH = ^OSSL_DISPATCH; + POSSL_PARAM = ^OSSL_PARAM; + POSSL_PROVIDER = pointer; + POSSL_provider_init_fn = ^OSSL_provider_init_fn; + + TDo_AllCallback = function (provider:POSSL_PROVIDER; cbdata:pointer):TOpenSSL_C_LONG; cdecl; + + { + * Copyright 2019-2023 The OpenSSL Project Authors. All Rights Reserved. + * + * Licensed under the Apache License 2.0 (the "License"). You may not use + * this file except in compliance with the License. You can obtain a copy + * in the file LICENSE in the source distribution or at + * https://www.openssl.org/source/license.html + } + { Set and Get a library context search path } + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM OSSL_PROVIDER_set_default_search_path} +{$EXTERNALSYM OSSL_PROVIDER_load} +{$EXTERNALSYM OSSL_PROVIDER_try_load} +{$EXTERNALSYM OSSL_PROVIDER_unload} +{$EXTERNALSYM OSSL_PROVIDER_available} +{$EXTERNALSYM OSSL_PROVIDER_do_all} +{$EXTERNALSYM OSSL_PROVIDER_gettable_params} +{$EXTERNALSYM OSSL_PROVIDER_get_params} +{$EXTERNALSYM OSSL_PROVIDER_self_test} +{$EXTERNALSYM OSSL_PROVIDER_get_capabilities} +{$EXTERNALSYM OSSL_PROVIDER_query_operation} +{$EXTERNALSYM OSSL_PROVIDER_unquery_operation} +{$EXTERNALSYM OSSL_PROVIDER_get0_provider_ctx} +{$EXTERNALSYM OSSL_PROVIDER_get0_dispatch} +{$EXTERNALSYM OSSL_PROVIDER_add_builtin} +{$EXTERNALSYM OSSL_PROVIDER_get0_name} +{$IFDEF OPENSSL_3_2_ORLATER} +{$EXTERNALSYM OSSL_PROVIDER_get0_default_search_path} +{$EXTERNALSYM OSSL_PROVIDER_try_load_ex} +{$EXTERNALSYM OSSL_PROVIDER_load_ex} +{$ENDIF} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function OSSL_PROVIDER_set_default_search_path(ctx: POSSL_LIB_CTX; path: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function OSSL_PROVIDER_load(_para1:POSSL_LIB_CTX; name: PAnsiChar): POSSL_PROVIDER; cdecl; external CLibCrypto; +function OSSL_PROVIDER_try_load(_para1:POSSL_LIB_CTX; name: PAnsiChar; retain_fallbacks: TOpenSSL_C_LONG): POSSL_PROVIDER; cdecl; external CLibCrypto; +function OSSL_PROVIDER_unload(prov:POSSL_PROVIDER): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function OSSL_PROVIDER_available(_para1:POSSL_LIB_CTX; name:PAnsiChar): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function OSSL_PROVIDER_do_all(ctx:POSSL_LIB_CTX; cb:TDo_AllCallback; cbdata:pointer): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function OSSL_PROVIDER_gettable_params(prov:POSSL_PROVIDER): POSSL_PARAM; cdecl; external CLibCrypto; +function OSSL_PROVIDER_get_params(prov:POSSL_PROVIDER; params:POSSL_PARAM): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function OSSL_PROVIDER_self_test(prov:POSSL_PROVIDER): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function OSSL_PROVIDER_get_capabilities(prov:POSSL_PROVIDER; capability:PAnsiChar; cb:POSSL_CALLBACK; arg:pointer): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function OSSL_PROVIDER_query_operation(prov:POSSL_PROVIDER; operation_id:TOpenSSL_C_LONG; no_cache:POpenSSL_C_LONG): POSSL_ALGORITHM; cdecl; external CLibCrypto; +procedure OSSL_PROVIDER_unquery_operation(prov:POSSL_PROVIDER; operation_id:TOpenSSL_C_LONG; algs:POSSL_ALGORITHM); cdecl; external CLibCrypto; +function OSSL_PROVIDER_get0_provider_ctx(prov:POSSL_PROVIDER): pointer; cdecl; external CLibCrypto; +function OSSL_PROVIDER_get0_dispatch(prov:POSSL_PROVIDER): POSSL_DISPATCH; cdecl; external CLibCrypto; +function OSSL_PROVIDER_add_builtin(_para1:POSSL_LIB_CTX; name:PAnsiChar; init_fn:POSSL_provider_init_fn): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function OSSL_PROVIDER_get0_name(prov:POSSL_PROVIDER): PAnsiChar; cdecl; external CLibCrypto; +{$IFDEF OPENSSL_3_2_ORLATER} +{$IFDEF OPENSSL_3_2_ORLATER} + +function OSSL_PROVIDER_get0_default_search_path(libctx: POSSL_LIB_CTX): PAnsiChar; cdecl; {introduced 3.2.0 } external CLibCrypto; +function OSSL_PROVIDER_try_load_ex(_para1:POSSL_LIB_CTX; name: PAnsiChar; params:POSSL_PARAM; retain_fallbacks:TOpenSSL_C_LONG): POSSL_PROVIDER; cdecl; {introduced 3.2.0 } external CLibCrypto; +function OSSL_PROVIDER_load_ex(_para1:POSSL_LIB_CTX; name: PAnsiChar; params: POSSL_PARAM): POSSL_PROVIDER; cdecl; {introduced 3.2.0 } external CLibCrypto; +{$ENDIF} +{$ENDIF} + + + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_OSSL_PROVIDER_set_default_search_path(ctx: POSSL_LIB_CTX; path: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_OSSL_PROVIDER_load(_para1:POSSL_LIB_CTX; name: PAnsiChar): POSSL_PROVIDER; cdecl; +function Load_OSSL_PROVIDER_try_load(_para1:POSSL_LIB_CTX; name: PAnsiChar; retain_fallbacks: TOpenSSL_C_LONG): POSSL_PROVIDER; cdecl; +function Load_OSSL_PROVIDER_unload(prov:POSSL_PROVIDER): TOpenSSL_C_LONG; cdecl; +function Load_OSSL_PROVIDER_available(_para1:POSSL_LIB_CTX; name:PAnsiChar): TOpenSSL_C_LONG; cdecl; +function Load_OSSL_PROVIDER_do_all(ctx:POSSL_LIB_CTX; cb:TDo_AllCallback; cbdata:pointer): TOpenSSL_C_LONG; cdecl; +function Load_OSSL_PROVIDER_gettable_params(prov:POSSL_PROVIDER): POSSL_PARAM; cdecl; +function Load_OSSL_PROVIDER_get_params(prov:POSSL_PROVIDER; params:POSSL_PARAM): TOpenSSL_C_LONG; cdecl; +function Load_OSSL_PROVIDER_self_test(prov:POSSL_PROVIDER): TOpenSSL_C_LONG; cdecl; +function Load_OSSL_PROVIDER_get_capabilities(prov:POSSL_PROVIDER; capability:PAnsiChar; cb:POSSL_CALLBACK; arg:pointer): TOpenSSL_C_LONG; cdecl; +function Load_OSSL_PROVIDER_query_operation(prov:POSSL_PROVIDER; operation_id:TOpenSSL_C_LONG; no_cache:POpenSSL_C_LONG): POSSL_ALGORITHM; cdecl; +procedure Load_OSSL_PROVIDER_unquery_operation(prov:POSSL_PROVIDER; operation_id:TOpenSSL_C_LONG; algs:POSSL_ALGORITHM); cdecl; +function Load_OSSL_PROVIDER_get0_provider_ctx(prov:POSSL_PROVIDER): pointer; cdecl; +function Load_OSSL_PROVIDER_get0_dispatch(prov:POSSL_PROVIDER): POSSL_DISPATCH; cdecl; +function Load_OSSL_PROVIDER_add_builtin(_para1:POSSL_LIB_CTX; name:PAnsiChar; init_fn:POSSL_provider_init_fn): TOpenSSL_C_LONG; cdecl; +function Load_OSSL_PROVIDER_get0_name(prov:POSSL_PROVIDER): PAnsiChar; cdecl; +{$IFDEF OPENSSL_3_2_ORLATER} +function Load_OSSL_PROVIDER_get0_default_search_path(libctx: POSSL_LIB_CTX): PAnsiChar; cdecl; +function Load_OSSL_PROVIDER_try_load_ex(_para1:POSSL_LIB_CTX; name: PAnsiChar; params:POSSL_PARAM; retain_fallbacks:TOpenSSL_C_LONG): POSSL_PROVIDER; cdecl; +function Load_OSSL_PROVIDER_load_ex(_para1:POSSL_LIB_CTX; name: PAnsiChar; params: POSSL_PARAM): POSSL_PROVIDER; cdecl; +{$ENDIF} + +var + OSSL_PROVIDER_set_default_search_path: function (ctx: POSSL_LIB_CTX; path: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_OSSL_PROVIDER_set_default_search_path; + OSSL_PROVIDER_load: function (_para1:POSSL_LIB_CTX; name: PAnsiChar): POSSL_PROVIDER; cdecl = Load_OSSL_PROVIDER_load; + OSSL_PROVIDER_try_load: function (_para1:POSSL_LIB_CTX; name: PAnsiChar; retain_fallbacks: TOpenSSL_C_LONG): POSSL_PROVIDER; cdecl = Load_OSSL_PROVIDER_try_load; + OSSL_PROVIDER_unload: function (prov:POSSL_PROVIDER): TOpenSSL_C_LONG; cdecl = Load_OSSL_PROVIDER_unload; + OSSL_PROVIDER_available: function (_para1:POSSL_LIB_CTX; name:PAnsiChar): TOpenSSL_C_LONG; cdecl = Load_OSSL_PROVIDER_available; + OSSL_PROVIDER_do_all: function (ctx:POSSL_LIB_CTX; cb:TDo_AllCallback; cbdata:pointer): TOpenSSL_C_LONG; cdecl = Load_OSSL_PROVIDER_do_all; + OSSL_PROVIDER_gettable_params: function (prov:POSSL_PROVIDER): POSSL_PARAM; cdecl = Load_OSSL_PROVIDER_gettable_params; + OSSL_PROVIDER_get_params: function (prov:POSSL_PROVIDER; params:POSSL_PARAM): TOpenSSL_C_LONG; cdecl = Load_OSSL_PROVIDER_get_params; + OSSL_PROVIDER_self_test: function (prov:POSSL_PROVIDER): TOpenSSL_C_LONG; cdecl = Load_OSSL_PROVIDER_self_test; + OSSL_PROVIDER_get_capabilities: function (prov:POSSL_PROVIDER; capability:PAnsiChar; cb:POSSL_CALLBACK; arg:pointer): TOpenSSL_C_LONG; cdecl = Load_OSSL_PROVIDER_get_capabilities; + OSSL_PROVIDER_query_operation: function (prov:POSSL_PROVIDER; operation_id:TOpenSSL_C_LONG; no_cache:POpenSSL_C_LONG): POSSL_ALGORITHM; cdecl = Load_OSSL_PROVIDER_query_operation; + OSSL_PROVIDER_unquery_operation: procedure (prov:POSSL_PROVIDER; operation_id:TOpenSSL_C_LONG; algs:POSSL_ALGORITHM); cdecl = Load_OSSL_PROVIDER_unquery_operation; + OSSL_PROVIDER_get0_provider_ctx: function (prov:POSSL_PROVIDER): pointer; cdecl = Load_OSSL_PROVIDER_get0_provider_ctx; + OSSL_PROVIDER_get0_dispatch: function (prov:POSSL_PROVIDER): POSSL_DISPATCH; cdecl = Load_OSSL_PROVIDER_get0_dispatch; + OSSL_PROVIDER_add_builtin: function (_para1:POSSL_LIB_CTX; name:PAnsiChar; init_fn:POSSL_provider_init_fn): TOpenSSL_C_LONG; cdecl = Load_OSSL_PROVIDER_add_builtin; + OSSL_PROVIDER_get0_name: function (prov:POSSL_PROVIDER): PAnsiChar; cdecl = Load_OSSL_PROVIDER_get0_name; +{$IFDEF OPENSSL_3_2_ORLATER} +{$IFDEF OPENSSL_3_2_ORLATER} + + OSSL_PROVIDER_get0_default_search_path: function (libctx: POSSL_LIB_CTX): PAnsiChar; cdecl = Load_OSSL_PROVIDER_get0_default_search_path; {introduced 3.2.0 } + OSSL_PROVIDER_try_load_ex: function (_para1:POSSL_LIB_CTX; name: PAnsiChar; params:POSSL_PARAM; retain_fallbacks:TOpenSSL_C_LONG): POSSL_PROVIDER; cdecl = Load_OSSL_PROVIDER_try_load_ex; {introduced 3.2.0 } + OSSL_PROVIDER_load_ex: function (_para1:POSSL_LIB_CTX; name: PAnsiChar; params: POSSL_PARAM): POSSL_PROVIDER; cdecl = Load_OSSL_PROVIDER_load_ex; {introduced 3.2.0 } +{$ENDIF} +{$ENDIF} + + +{$ENDIF} +const + OSSL_PROVIDER_set_default_search_path_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + OSSL_PROVIDER_load_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + OSSL_PROVIDER_try_load_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + OSSL_PROVIDER_unload_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + OSSL_PROVIDER_available_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + OSSL_PROVIDER_do_all_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + OSSL_PROVIDER_gettable_params_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + OSSL_PROVIDER_get_params_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + OSSL_PROVIDER_self_test_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + OSSL_PROVIDER_get_capabilities_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + OSSL_PROVIDER_query_operation_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + OSSL_PROVIDER_unquery_operation_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + OSSL_PROVIDER_get0_provider_ctx_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + OSSL_PROVIDER_get0_dispatch_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + OSSL_PROVIDER_add_builtin_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + OSSL_PROVIDER_get0_name_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + OSSL_PROVIDER_get0_default_search_path_introduced = ((((((byte(3) shl 8) or byte(2)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.2.0} + OSSL_PROVIDER_try_load_ex_introduced = ((((((byte(3) shl 8) or byte(2)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.2.0} + OSSL_PROVIDER_load_ex_introduced = ((((((byte(3) shl 8) or byte(2)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.2.0} + + +implementation + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$IFDEF OPENSSL_3_2_ORLATER} +{$ENDIF} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_OSSL_PROVIDER_set_default_search_path(ctx: POSSL_LIB_CTX; path: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + OSSL_PROVIDER_set_default_search_path := LoadLibCryptoFunction('OSSL_PROVIDER_set_default_search_path'); + if not assigned(OSSL_PROVIDER_set_default_search_path) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_set_default_search_path'); + Result := OSSL_PROVIDER_set_default_search_path(ctx,path); +end; + +function Load_OSSL_PROVIDER_load(_para1:POSSL_LIB_CTX; name: PAnsiChar): POSSL_PROVIDER; cdecl; +begin + OSSL_PROVIDER_load := LoadLibCryptoFunction('OSSL_PROVIDER_load'); + if not assigned(OSSL_PROVIDER_load) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_load'); + Result := OSSL_PROVIDER_load(_para1,name); +end; + +function Load_OSSL_PROVIDER_try_load(_para1:POSSL_LIB_CTX; name: PAnsiChar; retain_fallbacks: TOpenSSL_C_LONG): POSSL_PROVIDER; cdecl; +begin + OSSL_PROVIDER_try_load := LoadLibCryptoFunction('OSSL_PROVIDER_try_load'); + if not assigned(OSSL_PROVIDER_try_load) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_try_load'); + Result := OSSL_PROVIDER_try_load(_para1,name,retain_fallbacks); +end; + +function Load_OSSL_PROVIDER_unload(prov:POSSL_PROVIDER): TOpenSSL_C_LONG; cdecl; +begin + OSSL_PROVIDER_unload := LoadLibCryptoFunction('OSSL_PROVIDER_unload'); + if not assigned(OSSL_PROVIDER_unload) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_unload'); + Result := OSSL_PROVIDER_unload(prov); +end; + +function Load_OSSL_PROVIDER_available(_para1:POSSL_LIB_CTX; name:PAnsiChar): TOpenSSL_C_LONG; cdecl; +begin + OSSL_PROVIDER_available := LoadLibCryptoFunction('OSSL_PROVIDER_available'); + if not assigned(OSSL_PROVIDER_available) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_available'); + Result := OSSL_PROVIDER_available(_para1,name); +end; + +function Load_OSSL_PROVIDER_do_all(ctx:POSSL_LIB_CTX; cb:TDo_AllCallback; cbdata:pointer): TOpenSSL_C_LONG; cdecl; +begin + OSSL_PROVIDER_do_all := LoadLibCryptoFunction('OSSL_PROVIDER_do_all'); + if not assigned(OSSL_PROVIDER_do_all) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_do_all'); + Result := OSSL_PROVIDER_do_all(ctx,cb,cbdata); +end; + +function Load_OSSL_PROVIDER_gettable_params(prov:POSSL_PROVIDER): POSSL_PARAM; cdecl; +begin + OSSL_PROVIDER_gettable_params := LoadLibCryptoFunction('OSSL_PROVIDER_gettable_params'); + if not assigned(OSSL_PROVIDER_gettable_params) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_gettable_params'); + Result := OSSL_PROVIDER_gettable_params(prov); +end; + +function Load_OSSL_PROVIDER_get_params(prov:POSSL_PROVIDER; params:POSSL_PARAM): TOpenSSL_C_LONG; cdecl; +begin + OSSL_PROVIDER_get_params := LoadLibCryptoFunction('OSSL_PROVIDER_get_params'); + if not assigned(OSSL_PROVIDER_get_params) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_get_params'); + Result := OSSL_PROVIDER_get_params(prov,params); +end; + +function Load_OSSL_PROVIDER_self_test(prov:POSSL_PROVIDER): TOpenSSL_C_LONG; cdecl; +begin + OSSL_PROVIDER_self_test := LoadLibCryptoFunction('OSSL_PROVIDER_self_test'); + if not assigned(OSSL_PROVIDER_self_test) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_self_test'); + Result := OSSL_PROVIDER_self_test(prov); +end; + +function Load_OSSL_PROVIDER_get_capabilities(prov:POSSL_PROVIDER; capability:PAnsiChar; cb:POSSL_CALLBACK; arg:pointer): TOpenSSL_C_LONG; cdecl; +begin + OSSL_PROVIDER_get_capabilities := LoadLibCryptoFunction('OSSL_PROVIDER_get_capabilities'); + if not assigned(OSSL_PROVIDER_get_capabilities) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_get_capabilities'); + Result := OSSL_PROVIDER_get_capabilities(prov,capability,cb,arg); +end; + +function Load_OSSL_PROVIDER_query_operation(prov:POSSL_PROVIDER; operation_id:TOpenSSL_C_LONG; no_cache:POpenSSL_C_LONG): POSSL_ALGORITHM; cdecl; +begin + OSSL_PROVIDER_query_operation := LoadLibCryptoFunction('OSSL_PROVIDER_query_operation'); + if not assigned(OSSL_PROVIDER_query_operation) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_query_operation'); + Result := OSSL_PROVIDER_query_operation(prov,operation_id,no_cache); +end; + +procedure Load_OSSL_PROVIDER_unquery_operation(prov:POSSL_PROVIDER; operation_id:TOpenSSL_C_LONG; algs:POSSL_ALGORITHM); cdecl; +begin + OSSL_PROVIDER_unquery_operation := LoadLibCryptoFunction('OSSL_PROVIDER_unquery_operation'); + if not assigned(OSSL_PROVIDER_unquery_operation) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_unquery_operation'); + OSSL_PROVIDER_unquery_operation(prov,operation_id,algs); +end; + +function Load_OSSL_PROVIDER_get0_provider_ctx(prov:POSSL_PROVIDER): pointer; cdecl; +begin + OSSL_PROVIDER_get0_provider_ctx := LoadLibCryptoFunction('OSSL_PROVIDER_get0_provider_ctx'); + if not assigned(OSSL_PROVIDER_get0_provider_ctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_get0_provider_ctx'); + Result := OSSL_PROVIDER_get0_provider_ctx(prov); +end; + +function Load_OSSL_PROVIDER_get0_dispatch(prov:POSSL_PROVIDER): POSSL_DISPATCH; cdecl; +begin + OSSL_PROVIDER_get0_dispatch := LoadLibCryptoFunction('OSSL_PROVIDER_get0_dispatch'); + if not assigned(OSSL_PROVIDER_get0_dispatch) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_get0_dispatch'); + Result := OSSL_PROVIDER_get0_dispatch(prov); +end; + +function Load_OSSL_PROVIDER_add_builtin(_para1:POSSL_LIB_CTX; name:PAnsiChar; init_fn:POSSL_provider_init_fn): TOpenSSL_C_LONG; cdecl; +begin + OSSL_PROVIDER_add_builtin := LoadLibCryptoFunction('OSSL_PROVIDER_add_builtin'); + if not assigned(OSSL_PROVIDER_add_builtin) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_add_builtin'); + Result := OSSL_PROVIDER_add_builtin(_para1,name,init_fn); +end; + +function Load_OSSL_PROVIDER_get0_name(prov:POSSL_PROVIDER): PAnsiChar; cdecl; +begin + OSSL_PROVIDER_get0_name := LoadLibCryptoFunction('OSSL_PROVIDER_get0_name'); + if not assigned(OSSL_PROVIDER_get0_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_get0_name'); + Result := OSSL_PROVIDER_get0_name(prov); +end; + +{$IFDEF OPENSSL_3_2_ORLATER} +function Load_OSSL_PROVIDER_get0_default_search_path(libctx: POSSL_LIB_CTX): PAnsiChar; cdecl; +begin + OSSL_PROVIDER_get0_default_search_path := LoadLibCryptoFunction('OSSL_PROVIDER_get0_default_search_path'); + if not assigned(OSSL_PROVIDER_get0_default_search_path) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_get0_default_search_path'); + Result := OSSL_PROVIDER_get0_default_search_path(libctx); +end; + +function Load_OSSL_PROVIDER_try_load_ex(_para1:POSSL_LIB_CTX; name: PAnsiChar; params:POSSL_PARAM; retain_fallbacks:TOpenSSL_C_LONG): POSSL_PROVIDER; cdecl; +begin + OSSL_PROVIDER_try_load_ex := LoadLibCryptoFunction('OSSL_PROVIDER_try_load_ex'); + if not assigned(OSSL_PROVIDER_try_load_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_try_load_ex'); + Result := OSSL_PROVIDER_try_load_ex(_para1,name,params,retain_fallbacks); +end; + +function Load_OSSL_PROVIDER_load_ex(_para1:POSSL_LIB_CTX; name: PAnsiChar; params: POSSL_PARAM): POSSL_PROVIDER; cdecl; +begin + OSSL_PROVIDER_load_ex := LoadLibCryptoFunction('OSSL_PROVIDER_load_ex'); + if not assigned(OSSL_PROVIDER_load_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OSSL_PROVIDER_load_ex'); + Result := OSSL_PROVIDER_load_ex(_para1,name,params); +end; + +{$ENDIF} + +{$WARN NO_RETVAL OFF} +{$IFDEF OPENSSL_3_2_ORLATER} +{$ENDIF} +{$WARN NO_RETVAL ON} + +procedure UnLoad; +begin + OSSL_PROVIDER_set_default_search_path := Load_OSSL_PROVIDER_set_default_search_path; + OSSL_PROVIDER_load := Load_OSSL_PROVIDER_load; + OSSL_PROVIDER_try_load := Load_OSSL_PROVIDER_try_load; + OSSL_PROVIDER_unload := Load_OSSL_PROVIDER_unload; + OSSL_PROVIDER_available := Load_OSSL_PROVIDER_available; + OSSL_PROVIDER_do_all := Load_OSSL_PROVIDER_do_all; + OSSL_PROVIDER_gettable_params := Load_OSSL_PROVIDER_gettable_params; + OSSL_PROVIDER_get_params := Load_OSSL_PROVIDER_get_params; + OSSL_PROVIDER_self_test := Load_OSSL_PROVIDER_self_test; + OSSL_PROVIDER_get_capabilities := Load_OSSL_PROVIDER_get_capabilities; + OSSL_PROVIDER_query_operation := Load_OSSL_PROVIDER_query_operation; + OSSL_PROVIDER_unquery_operation := Load_OSSL_PROVIDER_unquery_operation; + OSSL_PROVIDER_get0_provider_ctx := Load_OSSL_PROVIDER_get0_provider_ctx; + OSSL_PROVIDER_get0_dispatch := Load_OSSL_PROVIDER_get0_dispatch; + OSSL_PROVIDER_add_builtin := Load_OSSL_PROVIDER_add_builtin; + OSSL_PROVIDER_get0_name := Load_OSSL_PROVIDER_get0_name; +{$IFDEF OPENSSL_3_2_ORLATER} + OSSL_PROVIDER_get0_default_search_path := Load_OSSL_PROVIDER_get0_default_search_path; + OSSL_PROVIDER_try_load_ex := Load_OSSL_PROVIDER_try_load_ex; + OSSL_PROVIDER_load_ex := Load_OSSL_PROVIDER_load_ex; +{$ENDIF} +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_rand.pas b/src/opensslHdrs/IdOpenSSLHeaders_rand.pas new file mode 100644 index 0000000..c1c1a43 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_rand.pas @@ -0,0 +1,309 @@ +(* This unit was generated from the source file rand.h2pas +It should not be modified directly. All changes should be made to rand.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_rand; + + +interface + +// Headers for OpenSSL 1.1.1 +// rand.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ; + +type + rand_meth_st_seed = function (const buf: Pointer; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + rand_meth_st_bytes = function (buf: PByte; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + rand_meth_st_cleanup = procedure; cdecl; + rand_meth_st_add = function (const buf: Pointer; num: TOpenSSL_C_INT; randomness: TOpenSSL_C_DOUBLE): TOpenSSL_C_INT; cdecl; + rand_meth_st_pseudorand = function (buf: PByte; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + rand_meth_st_status = function: TOpenSSL_C_INT; cdecl; + + rand_meth_st = record + seed: rand_meth_st_seed; + bytes: rand_meth_st_bytes; + cleanup: rand_meth_st_cleanup; + add: rand_meth_st_add; + pseudorand: rand_meth_st_pseudorand; + status: rand_meth_st_status; + end; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM RAND_set_rand_method} +{$EXTERNALSYM RAND_get_rand_method} +{$EXTERNALSYM RAND_set_rand_engine} +{$EXTERNALSYM RAND_OpenSSL} +{$EXTERNALSYM RAND_bytes} +{$EXTERNALSYM RAND_priv_bytes} +{$EXTERNALSYM RAND_seed} +{$EXTERNALSYM RAND_keep_random_devices_open} +{$EXTERNALSYM RAND_add} +{$EXTERNALSYM RAND_load_file} +{$EXTERNALSYM RAND_write_file} +{$EXTERNALSYM RAND_status} +{$EXTERNALSYM RAND_query_egd_bytes} +{$EXTERNALSYM RAND_egd} +{$EXTERNALSYM RAND_egd_bytes} +{$EXTERNALSYM RAND_poll} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function RAND_set_rand_method(const meth: PRAND_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RAND_get_rand_method: PRAND_METHOD; cdecl; external CLibCrypto; +function RAND_set_rand_engine(engine: PENGINE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RAND_OpenSSL: PRAND_METHOD; cdecl; external CLibCrypto; +function RAND_bytes(buf: PByte; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RAND_priv_bytes(buf: PByte; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure RAND_seed(const buf: Pointer; num: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure RAND_keep_random_devices_open(keep: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure RAND_add(const buf: Pointer; num: TOpenSSL_C_INT; randomness: TOpenSSL_C_DOUBLE); cdecl; external CLibCrypto; +function RAND_load_file(const file_: PAnsiChar; max_bytes: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RAND_write_file(const file_: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RAND_status: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RAND_query_egd_bytes(const path: PAnsiChar; buf: PByte; bytes: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RAND_egd(const path: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RAND_egd_bytes(const path: PAnsiChar; bytes: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RAND_poll: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_RAND_set_rand_method(const meth: PRAND_METHOD): TOpenSSL_C_INT; cdecl; +function Load_RAND_get_rand_method: PRAND_METHOD; cdecl; +function Load_RAND_set_rand_engine(engine: PENGINE): TOpenSSL_C_INT; cdecl; +function Load_RAND_OpenSSL: PRAND_METHOD; cdecl; +function Load_RAND_bytes(buf: PByte; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RAND_priv_bytes(buf: PByte; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_RAND_seed(const buf: Pointer; num: TOpenSSL_C_INT); cdecl; +procedure Load_RAND_keep_random_devices_open(keep: TOpenSSL_C_INT); cdecl; +procedure Load_RAND_add(const buf: Pointer; num: TOpenSSL_C_INT; randomness: TOpenSSL_C_DOUBLE); cdecl; +function Load_RAND_load_file(const file_: PAnsiChar; max_bytes: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_RAND_write_file(const file_: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_RAND_status: TOpenSSL_C_INT; cdecl; +function Load_RAND_query_egd_bytes(const path: PAnsiChar; buf: PByte; bytes: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RAND_egd(const path: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_RAND_egd_bytes(const path: PAnsiChar; bytes: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RAND_poll: TOpenSSL_C_INT; cdecl; + +var + RAND_set_rand_method: function (const meth: PRAND_METHOD): TOpenSSL_C_INT; cdecl = Load_RAND_set_rand_method; + RAND_get_rand_method: function : PRAND_METHOD; cdecl = Load_RAND_get_rand_method; + RAND_set_rand_engine: function (engine: PENGINE): TOpenSSL_C_INT; cdecl = Load_RAND_set_rand_engine; + RAND_OpenSSL: function : PRAND_METHOD; cdecl = Load_RAND_OpenSSL; + RAND_bytes: function (buf: PByte; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RAND_bytes; + RAND_priv_bytes: function (buf: PByte; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RAND_priv_bytes; + RAND_seed: procedure (const buf: Pointer; num: TOpenSSL_C_INT); cdecl = Load_RAND_seed; + RAND_keep_random_devices_open: procedure (keep: TOpenSSL_C_INT); cdecl = Load_RAND_keep_random_devices_open; + RAND_add: procedure (const buf: Pointer; num: TOpenSSL_C_INT; randomness: TOpenSSL_C_DOUBLE); cdecl = Load_RAND_add; + RAND_load_file: function (const file_: PAnsiChar; max_bytes: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_RAND_load_file; + RAND_write_file: function (const file_: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_RAND_write_file; + RAND_status: function : TOpenSSL_C_INT; cdecl = Load_RAND_status; + RAND_query_egd_bytes: function (const path: PAnsiChar; buf: PByte; bytes: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RAND_query_egd_bytes; + RAND_egd: function (const path: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_RAND_egd; + RAND_egd_bytes: function (const path: PAnsiChar; bytes: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RAND_egd_bytes; + RAND_poll: function : TOpenSSL_C_INT; cdecl = Load_RAND_poll; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_RAND_set_rand_method(const meth: PRAND_METHOD): TOpenSSL_C_INT; cdecl; +begin + RAND_set_rand_method := LoadLibCryptoFunction('RAND_set_rand_method'); + if not assigned(RAND_set_rand_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RAND_set_rand_method'); + Result := RAND_set_rand_method(meth); +end; + +function Load_RAND_get_rand_method: PRAND_METHOD; cdecl; +begin + RAND_get_rand_method := LoadLibCryptoFunction('RAND_get_rand_method'); + if not assigned(RAND_get_rand_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RAND_get_rand_method'); + Result := RAND_get_rand_method(); +end; + +function Load_RAND_set_rand_engine(engine: PENGINE): TOpenSSL_C_INT; cdecl; +begin + RAND_set_rand_engine := LoadLibCryptoFunction('RAND_set_rand_engine'); + if not assigned(RAND_set_rand_engine) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RAND_set_rand_engine'); + Result := RAND_set_rand_engine(engine); +end; + +function Load_RAND_OpenSSL: PRAND_METHOD; cdecl; +begin + RAND_OpenSSL := LoadLibCryptoFunction('RAND_OpenSSL'); + if not assigned(RAND_OpenSSL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RAND_OpenSSL'); + Result := RAND_OpenSSL(); +end; + +function Load_RAND_bytes(buf: PByte; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RAND_bytes := LoadLibCryptoFunction('RAND_bytes'); + if not assigned(RAND_bytes) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RAND_bytes'); + Result := RAND_bytes(buf,num); +end; + +function Load_RAND_priv_bytes(buf: PByte; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RAND_priv_bytes := LoadLibCryptoFunction('RAND_priv_bytes'); + if not assigned(RAND_priv_bytes) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RAND_priv_bytes'); + Result := RAND_priv_bytes(buf,num); +end; + +procedure Load_RAND_seed(const buf: Pointer; num: TOpenSSL_C_INT); cdecl; +begin + RAND_seed := LoadLibCryptoFunction('RAND_seed'); + if not assigned(RAND_seed) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RAND_seed'); + RAND_seed(buf,num); +end; + +procedure Load_RAND_keep_random_devices_open(keep: TOpenSSL_C_INT); cdecl; +begin + RAND_keep_random_devices_open := LoadLibCryptoFunction('RAND_keep_random_devices_open'); + if not assigned(RAND_keep_random_devices_open) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RAND_keep_random_devices_open'); + RAND_keep_random_devices_open(keep); +end; + +procedure Load_RAND_add(const buf: Pointer; num: TOpenSSL_C_INT; randomness: TOpenSSL_C_DOUBLE); cdecl; +begin + RAND_add := LoadLibCryptoFunction('RAND_add'); + if not assigned(RAND_add) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RAND_add'); + RAND_add(buf,num,randomness); +end; + +function Load_RAND_load_file(const file_: PAnsiChar; max_bytes: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + RAND_load_file := LoadLibCryptoFunction('RAND_load_file'); + if not assigned(RAND_load_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RAND_load_file'); + Result := RAND_load_file(file_,max_bytes); +end; + +function Load_RAND_write_file(const file_: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + RAND_write_file := LoadLibCryptoFunction('RAND_write_file'); + if not assigned(RAND_write_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RAND_write_file'); + Result := RAND_write_file(file_); +end; + +function Load_RAND_status: TOpenSSL_C_INT; cdecl; +begin + RAND_status := LoadLibCryptoFunction('RAND_status'); + if not assigned(RAND_status) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RAND_status'); + Result := RAND_status(); +end; + +function Load_RAND_query_egd_bytes(const path: PAnsiChar; buf: PByte; bytes: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RAND_query_egd_bytes := LoadLibCryptoFunction('RAND_query_egd_bytes'); + if not assigned(RAND_query_egd_bytes) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RAND_query_egd_bytes'); + Result := RAND_query_egd_bytes(path,buf,bytes); +end; + +function Load_RAND_egd(const path: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + RAND_egd := LoadLibCryptoFunction('RAND_egd'); + if not assigned(RAND_egd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RAND_egd'); + Result := RAND_egd(path); +end; + +function Load_RAND_egd_bytes(const path: PAnsiChar; bytes: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RAND_egd_bytes := LoadLibCryptoFunction('RAND_egd_bytes'); + if not assigned(RAND_egd_bytes) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RAND_egd_bytes'); + Result := RAND_egd_bytes(path,bytes); +end; + +function Load_RAND_poll: TOpenSSL_C_INT; cdecl; +begin + RAND_poll := LoadLibCryptoFunction('RAND_poll'); + if not assigned(RAND_poll) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RAND_poll'); + Result := RAND_poll(); +end; + + +procedure UnLoad; +begin + RAND_set_rand_method := Load_RAND_set_rand_method; + RAND_get_rand_method := Load_RAND_get_rand_method; + RAND_set_rand_engine := Load_RAND_set_rand_engine; + RAND_OpenSSL := Load_RAND_OpenSSL; + RAND_bytes := Load_RAND_bytes; + RAND_priv_bytes := Load_RAND_priv_bytes; + RAND_seed := Load_RAND_seed; + RAND_keep_random_devices_open := Load_RAND_keep_random_devices_open; + RAND_add := Load_RAND_add; + RAND_load_file := Load_RAND_load_file; + RAND_write_file := Load_RAND_write_file; + RAND_status := Load_RAND_status; + RAND_query_egd_bytes := Load_RAND_query_egd_bytes; + RAND_egd := Load_RAND_egd; + RAND_egd_bytes := Load_RAND_egd_bytes; + RAND_poll := Load_RAND_poll; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_randerr.pas b/src/opensslHdrs/IdOpenSSLHeaders_randerr.pas new file mode 100644 index 0000000..e81b858 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_randerr.pas @@ -0,0 +1,168 @@ +(* This unit was generated from the source file randerr.h2pas +It should not be modified directly. All changes should be made to randerr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_randerr; + + +interface + +// Headers for OpenSSL 1.1.1 +// randerr.h + + +uses + IdSSLOpenSSLAPI; + +const + (* + * RAND function codes. + *) + RAND_F_DRBG_BYTES = 101; + RAND_F_DRBG_GET_ENTROPY = 105; + RAND_F_DRBG_SETUP = 117; + RAND_F_GET_ENTROPY = 106; + RAND_F_RAND_BYTES = 100; + RAND_F_RAND_DRBG_ENABLE_LOCKING = 119; + RAND_F_RAND_DRBG_GENERATE = 107; + RAND_F_RAND_DRBG_GET_ENTROPY = 120; + RAND_F_RAND_DRBG_GET_NONCE = 123; + RAND_F_RAND_DRBG_INSTANTIATE = 108; + RAND_F_RAND_DRBG_NEW = 109; + RAND_F_RAND_DRBG_RESEED = 110; + RAND_F_RAND_DRBG_RESTART = 102; + RAND_F_RAND_DRBG_SET = 104; + RAND_F_RAND_DRBG_SET_DEFAULTS = 121; + RAND_F_RAND_DRBG_UNINSTANTIATE = 118; + RAND_F_RAND_LOAD_FILE = 111; + RAND_F_RAND_POOL_ACQUIRE_ENTROPY = 122; + RAND_F_RAND_POOL_ADD = 103; + RAND_F_RAND_POOL_ADD_BEGIN = 113; + RAND_F_RAND_POOL_ADD_END = 114; + RAND_F_RAND_POOL_ATTACH = 124; + RAND_F_RAND_POOL_BYTES_NEEDED = 115; + RAND_F_RAND_POOL_GROW = 125; + RAND_F_RAND_POOL_NEW = 116; + RAND_F_RAND_WRITE_FILE = 112; + + (* + * RAND reason codes. + *) + RAND_R_ADDITIONAL_INPUT_TOO_LONG = 102; + RAND_R_ALREADY_INSTANTIATED = 103; + RAND_R_ARGUMENT_OUT_OF_RANGE = 105; + RAND_R_CANNOT_OPEN_FILE = 121; + RAND_R_DRBG_ALREADY_INITIALIZED = 129; + RAND_R_DRBG_NOT_INITIALISED = 104; + RAND_R_ENTROPY_INPUT_TOO_LONG = 106; + RAND_R_ENTROPY_OUT_OF_RANGE = 124; + RAND_R_ERROR_ENTROPY_POOL_WAS_IGNORED = 127; + RAND_R_ERROR_INITIALISING_DRBG = 107; + RAND_R_ERROR_INSTANTIATING_DRBG = 108; + RAND_R_ERROR_RETRIEVING_ADDITIONAL_INPUT = 109; + RAND_R_ERROR_RETRIEVING_ENTROPY = 110; + RAND_R_ERROR_RETRIEVING_NONCE = 111; + RAND_R_FAILED_TO_CREATE_LOCK = 126; + RAND_R_FUNC_NOT_IMPLEMENTED = 101; + RAND_R_FWRITE_ERROR = 123; + RAND_R_GENERATE_ERROR = 112; + RAND_R_INTERNAL_ERROR = 113; + RAND_R_IN_ERROR_STATE = 114; + RAND_R_NOT_A_REGULAR_FILE = 122; + RAND_R_NOT_INSTANTIATED = 115; + RAND_R_NO_DRBG_IMPLEMENTATION_SELECTED = 128; + RAND_R_PARENT_LOCKING_NOT_ENABLED = 130; + RAND_R_PARENT_STRENGTH_TOO_WEAK = 131; + RAND_R_PERSONALISATION_STRING_TOO_LONG = 116; + RAND_R_PREDICTION_RESISTANCE_NOT_SUPPORTED = 133; + RAND_R_PRNG_NOT_SEEDED = 100; + RAND_R_RANDOM_POOL_OVERFLOW = 125; + RAND_R_RANDOM_POOL_UNDERFLOW = 134; + RAND_R_REQUEST_TOO_LARGE_FOR_DRBG = 117; + RAND_R_RESEED_ERROR = 118; + RAND_R_SELFTEST_FAILURE = 119; + RAND_R_TOO_LITTLE_NONCE_REQUESTED = 135; + RAND_R_TOO_MUCH_NONCE_REQUESTED = 136; + RAND_R_UNSUPPORTED_DRBG_FLAGS = 132; + RAND_R_UNSUPPORTED_DRBG_TYPE = 120; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_RAND_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_RAND_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_RAND_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_RAND_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_RAND_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_RAND_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_RAND_strings := LoadLibCryptoFunction('ERR_load_RAND_strings'); + if not assigned(ERR_load_RAND_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_RAND_strings'); + Result := ERR_load_RAND_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_RAND_strings := Load_ERR_load_RAND_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_rc4.pas b/src/opensslHdrs/IdOpenSSLHeaders_rc4.pas new file mode 100644 index 0000000..98ab319 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_rc4.pas @@ -0,0 +1,235 @@ +(* This unit was generated from the source file rc4.h2pas +It should not be modified directly. All changes should be made to rc4.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + +unit IdOpenSSLHeaders_rc4; + + +interface + +{ + Automatically converted by H2Pas 1.0.0 from rc4.h + The following command line parameters were used: + rc4.h +} + +uses + IdSSLOpenSSLAPI; + +{$IFDEF FPC} +{$PACKRECORDS C} +{$ENDIF} + + + { crypto/rc4/rc4.h } + { Copyright (C) 1995-1997 Eric Young (eay@cryptsoft.com) + * All rights reserved. + * + * This package is an SSL implementation written + * by Eric Young (eay@cryptsoft.com). + * The implementation was written so as to conform with Netscapes SSL. + * + * This library is free for commercial and non-commercial use as long as + * the following conditions are aheared to. The following conditions + * apply to all code found in this distribution, be it the RC4, RSA, + * lhash, DES, etc., code; not just the SSL code. The SSL documentation + * included with this distribution is covered by the same copyright terms + * except that the holder is Tim Hudson (tjh@cryptsoft.com). + * + * Copyright remains Eric Young's, and as such any Copyright notices in + * the code are not to be removed. + * If this package is used in a product, Eric Young should be given attribution + * as the author of the parts of the library used. + * This can be in the form of a textual message at program startup or + * in documentation (online or textual) provided with the package. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. All advertising materials mentioning features or use of this software + * must display the following acknowledgement: + * "This product includes cryptographic software written by + * Eric Young (eay@cryptsoft.com)" + * The word 'cryptographic' can be left out if the rouines from the library + * being used are not cryptographic related :-). + * 4. If you include any Windows specific code (or a derivative thereof) from + * the apps directory (application code) you must include an acknowledgement: + * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" + * + * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + * + * The licence and distribution terms for any publically available version or + * derivative of this code cannot be changed. i.e. this code cannot simply be + * copied and put under another distribution licence + * [including the GNU Public Licence.] + } + + +type + PRC4_KEY = ^RC4_KEY; + RC4_INT = TOpenSSL_C_UINT; + rc4_key_st = record + x : RC4_INT; + y : RC4_INT; + data : array[0..255] of RC4_INT; + end; + RC4_KEY = rc4_key_st; + +{interface_body} +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$IFNDEF OPENSSL_NO_RC4} +{$EXTERNALSYM RC4_options} +{$EXTERNALSYM RC4_set_key} +{$EXTERNALSYM private_RC4_set_key} +{$EXTERNALSYM RC4} +{$ENDIF} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_RC4} +{$IFNDEF OPENSSL_NO_RC4} + +function RC4_options: PAnsiChar; cdecl; external CLibCrypto; +procedure RC4_set_key(key:PRC4_KEY; len: TOpenSSL_C_LONG; const data:Pbyte); cdecl; external CLibCrypto; +procedure private_RC4_set_key(key:PRC4_KEY; len: TOpenSSL_C_LONG; const data:Pbyte); cdecl; external CLibCrypto; +procedure RC4(key:PRC4_KEY; len: TOpenSSL_C_SIZET; const indata: Pbyte; outdata: Pbyte); cdecl; external CLibCrypto; +{$ENDIF} +{$ENDIF} + + + +{$ELSE} +{$IFNDEF OPENSSL_NO_RC4} +{$ENDIF} + +{$IFNDEF OPENSSL_NO_RC4} +{$IFNDEF OPENSSL_NO_RC4} + +var + RC4_options: function : PAnsiChar; cdecl = nil; + RC4_set_key: procedure (key:PRC4_KEY; len: TOpenSSL_C_LONG; const data:Pbyte); cdecl = nil; + private_RC4_set_key: procedure (key:PRC4_KEY; len: TOpenSSL_C_LONG; const data:Pbyte); cdecl = nil; + RC4: procedure (key:PRC4_KEY; len: TOpenSSL_C_SIZET; const indata: Pbyte; outdata: Pbyte); cdecl = nil; +{$ENDIF} +{$ENDIF} + + +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$IFNDEF OPENSSL_NO_RC4} +{$ENDIF} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$IFNDEF OPENSSL_NO_RC4} +{$ENDIF} + +{$WARN NO_RETVAL OFF} +{$IFNDEF OPENSSL_NO_RC4} +{$ENDIF} +{$WARN NO_RETVAL ON} +procedure Load(LibVersion: TOpenSSL_C_UINT; const AFailed: TStringList); +var FuncLoadError: boolean; +begin +{$IFNDEF OPENSSL_NO_RC4} + RC4_options := LoadLibCryptoFunction('RC4_options'); + FuncLoadError := not assigned(RC4_options); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + RC4_set_key := LoadLibCryptoFunction('RC4_set_key'); + FuncLoadError := not assigned(RC4_set_key); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + private_RC4_set_key := LoadLibCryptoFunction('private_RC4_set_key'); + FuncLoadError := not assigned(private_RC4_set_key); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + RC4 := LoadLibCryptoFunction('RC4'); + FuncLoadError := not assigned(RC4); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + +{$ENDIF} +end; + +procedure UnLoad; +begin +{$IFNDEF OPENSSL_NO_RC4} + RC4_options := nil; + RC4_set_key := nil; + private_RC4_set_key := nil; + RC4 := nil; +{$ENDIF} +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLLoader(@Load); +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_rsa.pas b/src/opensslHdrs/IdOpenSSLHeaders_rsa.pas new file mode 100644 index 0000000..de5d425 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_rsa.pas @@ -0,0 +1,1538 @@ +(* This unit was generated from the source file rsa.h2pas +It should not be modified directly. All changes should be made to rsa.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_rsa; + + +interface + +// Headers for OpenSSL 1.1.1 +// rsa.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_evp; + +(* The types RSA and RSA_METHOD are defined in ossl_typ.h *) + +const + OPENSSL_RSA_MAX_MODULUS_BITS = 16384; + OPENSSL_RSA_FIPS_MIN_MODULUS_BITS = 1024; + OPENSSL_RSA_SMALL_MODULUS_BITS = 3072; + (* exponent limit enforced for "large" modulus only *) + OPENSSL_RSA_MAX_PUBEXP_BITS = 64; + + RSA_3 = TOpenSSL_C_Long($3); + RSA_F4 = TOpenSSL_C_Long($10001); + + (* based on RFC 8017 appendix A.1.2 *) + RSA_ASN1_VERSION_DEFAULT = 0; + RSA_ASN1_VERSION_MULTI = 1; + RSA_DEFAULT_PRIME_NUM = 2; + + RSA_METHOD_FLAG_NO_CHECK = $0001; (* don't check pub/private match *) + RSA_FLAG_CACHE_PUBLIC = $0002; + RSA_FLAG_CACHE_PRIVATE = $0004; + RSA_FLAG_BLINDING = $0008; + RSA_FLAG_THREAD_SAFE = $0010; + (* + * This flag means the private key operations will be handled by rsa_mod_exp + * and that they do not depend on the private key components being present: + * for example a key stored in external hardware. Without this flag + * bn_mod_exp gets called when private key components are absent. + *) + RSA_FLAG_EXT_PKEY = $0020; + (* + * new with 0.9.6j and 0.9.7b; the built-in + * RSA implementation now uses blinding by + * default (ignoring RSA_FLAG_BLINDING), + * but other engines might not need it + *) + RSA_FLAG_NO_BLINDING = $0080; + (* + * Does nothing. Previously this switched off constant time behaviour. + *) + RSA_FLAG_NO_CONSTTIME = $0000; + + (* Salt length matches digest *) + RSA_PSS_SALTLEN_DIGEST = -1; + (* Verify only: auto detect salt length *) + RSA_PSS_SALTLEN_AUTO = -2; + (* Set salt length to maximum possible *) + RSA_PSS_SALTLEN_MAX = -3; + (* Old compatible max salt length for sign only *) + RSA_PSS_SALTLEN_MAX_SIGN = -2; + + EVP_PKEY_CTRL_RSA_PADDING = EVP_PKEY_ALG_CTRL + 1; + EVP_PKEY_CTRL_RSA_PSS_SALTLEN = EVP_PKEY_ALG_CTRL + 2; + + EVP_PKEY_CTRL_RSA_KEYGEN_BITS = EVP_PKEY_ALG_CTRL + 3; + EVP_PKEY_CTRL_RSA_KEYGEN_PUBEXP = EVP_PKEY_ALG_CTRL + 4; + EVP_PKEY_CTRL_RSA_MGF1_MD = EVP_PKEY_ALG_CTRL + 5; + + EVP_PKEY_CTRL_GET_RSA_PADDING = EVP_PKEY_ALG_CTRL + 6; + EVP_PKEY_CTRL_GET_RSA_PSS_SALTLEN = EVP_PKEY_ALG_CTRL + 7; + EVP_PKEY_CTRL_GET_RSA_MGF1_MD = EVP_PKEY_ALG_CTRL + 8; + + EVP_PKEY_CTRL_RSA_OAEP_MD = EVP_PKEY_ALG_CTRL + 9; + EVP_PKEY_CTRL_RSA_OAEP_LABEL = EVP_PKEY_ALG_CTRL + 10; + + EVP_PKEY_CTRL_GET_RSA_OAEP_MD = EVP_PKEY_ALG_CTRL + 11; + EVP_PKEY_CTRL_GET_RSA_OAEP_LABEL = EVP_PKEY_ALG_CTRL + 12; + + EVP_PKEY_CTRL_RSA_KEYGEN_PRIMES = EVP_PKEY_ALG_CTRL + 13; + + RSA_PKCS1_PADDING = 1; + RSA_SSLV23_PADDING = 2; + RSA_NO_PADDING = 3; + RSA_PKCS1_OAEP_PADDING = 4; + RSA_X931_PADDING = 5; + RSA_PKCS1_PSS_PADDING = 6; (* EVP_PKEY_ only *) + RSA_PKCS1_PADDING_SIZE = 11; + + (* + * If this flag is set the RSA method is FIPS compliant and can be used in + * FIPS mode. This is set in the validated module method. If an application + * sets this flag in its own methods it is its responsibility to ensure the + * result is compliant. + *) + RSA_FLAG_FIPS_METHOD = $0400; + (* + * If this flag is set the operations normally disabled in FIPS mode are + * permitted it is then the applications responsibility to ensure that the + * usage is compliant. + *) + RSA_FLAG_NON_FIPS_ALLOW = $0400; + (* + * Application has decided PRNG is good enough to generate a key: don't + * check. + *) + RSA_FLAG_CHECKED = $0800; + +type + rsa_pss_params_st = record + hashAlgorithm: PX509_ALGOR; + maskGenAlgorithm: PX509_ALGOR; + saltLength: PASN1_INTEGER; + trailerField: PASN1_INTEGER; + (* Decoded hash algorithm from maskGenAlgorithm *) + maskHash: PX509_ALGOR; + end; + RSA_PSS_PARAMS = rsa_pss_params_st; + // DECLARE_ASN1_FUNCTIONS(RSA_PSS_PARAMS) + + rsa_oaep_params_st = record + hashFunc: PX509_ALGOR; + maskGenFunc: PX509_ALGOR; + pSourceFunc: PX509_ALGOR; + (* Decoded hash algorithm from maskGenFunc *) + maskHash: PX509_ALGOR; + end; + RSA_OAEP_PARAMS = rsa_oaep_params_st; + //DECLARE_ASN1_FUNCTIONS(RSA_OAEP_PARAMS) + + //DECLARE_ASN1_ENCODE_FUNCTIONS_const(RSA, RSAPublicKey) + //DECLARE_ASN1_ENCODE_FUNCTIONS_const(RSA, RSAPrivateKey) + + RSA_meth_set_priv_dec_priv_dec = function(flen: TOpenSSL_C_INT; const from: PByte; + to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + + RSA_meth_set_mod_exp_mod_exp = function(r0: PBIGNUM; const i: PBIGNUM; + rsa: PRSA; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; + + RSA_meth_set_bn_mod_exp_bn_mod_exp = function(r: PBIGNUM; const a: PBIGNUM; + const p: PBIGNUM; const m: PBIGNUM; ctx: PBN_CTx; m_ctx: PBN_MONT_CTx): TOpenSSL_C_INT; cdecl; + + RSA_meth_set_init_init = function(rsa: PRSA): TOpenSSL_C_INT; cdecl; + + RSA_meth_set_finish_finish = function(rsa: PRSA): TOpenSSL_C_INT; cdecl; + + RSA_meth_set_sign_sign = function(type_: TOpenSSL_C_INT; const m: PByte; + m_length: TOpenSSL_C_UINT; sigret: PByte; siglen: POpenSSL_C_UINT; const rsa: PRSA): TOpenSSL_C_INT; cdecl; + + RSA_meth_set_verify_verify = function(dtype: TOpenSSL_C_INT; const m: PByte; + m_length: TOpenSSL_C_UINT; const sigbuf: PByte; siglen: TOpenSSL_C_UINT; const rsa: PRSA): TOpenSSL_C_INT; cdecl; + + RSA_meth_set_keygen_keygen = function(rsa: PRSA; bits: TOpenSSL_C_INT; e: PBIGNUM; cb: PBN_GENCb): TOpenSSL_C_INT; cdecl; + + RSA_meth_set_multi_prime_keygen_keygen = function(rsa: PRSA; bits: TOpenSSL_C_INT; + primes: TOpenSSL_C_INT; e: PBIGNUM; cb: PBN_GENCb): TOpenSSL_C_INT; cdecl; + +//# define EVP_PKEY_CTX_set_rsa_padding(ctx, pad) \ +// RSA_pkey_ctx_ctrl(ctx, -1, EVP_PKEY_CTRL_RSA_PADDING, pad, NULL) +// +//# define EVP_PKEY_CTX_get_rsa_padding(ctx, ppad) \ +// RSA_pkey_ctx_ctrl(ctx, -1, EVP_PKEY_CTRL_GET_RSA_PADDING, 0, ppad) +// +//# define EVP_PKEY_CTX_set_rsa_pss_saltlen(ctx, len) \ +// RSA_pkey_ctx_ctrl(ctx, (EVP_PKEY_OP_SIGN|EVP_PKEY_OP_VERIFY), \ +// EVP_PKEY_CTRL_RSA_PSS_SALTLEN, len, NULL) + +//# define EVP_PKEY_CTX_set_rsa_pss_keygen_saltlen(ctx, len) \ +// EVP_PKEY_CTX_ctrl(ctx, EVP_PKEY_RSA_PSS, EVP_PKEY_OP_KEYGEN, \ +// EVP_PKEY_CTRL_RSA_PSS_SALTLEN, len, NULL) +// +//# define EVP_PKEY_CTX_get_rsa_pss_saltlen(ctx, plen) \ +// RSA_pkey_ctx_ctrl(ctx, (EVP_PKEY_OP_SIGN|EVP_PKEY_OP_VERIFY), \ +// EVP_PKEY_CTRL_GET_RSA_PSS_SALTLEN, 0, plen) +// +//# define EVP_PKEY_CTX_set_rsa_keygen_bits(ctx, bits) \ +// RSA_pkey_ctx_ctrl(ctx, EVP_PKEY_OP_KEYGEN, \ +// EVP_PKEY_CTRL_RSA_KEYGEN_BITS, bits, NULL) +// +//# define EVP_PKEY_CTX_set_rsa_keygen_pubexp(ctx, pubexp) \ +// RSA_pkey_ctx_ctrl(ctx, EVP_PKEY_OP_KEYGEN, \ +// EVP_PKEY_CTRL_RSA_KEYGEN_PUBEXP, 0, pubexp) +// +//# define EVP_PKEY_CTX_set_rsa_keygen_primes(ctx, primes) \ +// RSA_pkey_ctx_ctrl(ctx, EVP_PKEY_OP_KEYGEN, \ +// EVP_PKEY_CTRL_RSA_KEYGEN_PRIMES, primes, NULL) +// +//# define EVP_PKEY_CTX_set_rsa_mgf1_md(ctx, md) \ +// RSA_pkey_ctx_ctrl(ctx, EVP_PKEY_OP_TYPE_SIG | EVP_PKEY_OP_TYPE_CRYPT, \ +// EVP_PKEY_CTRL_RSA_MGF1_MD, 0, (void *)(md)) +// +//# define EVP_PKEY_CTX_set_rsa_pss_keygen_mgf1_md(ctx, md) \ +// EVP_PKEY_CTX_ctrl(ctx, EVP_PKEY_RSA_PSS, EVP_PKEY_OP_KEYGEN, \ +// EVP_PKEY_CTRL_RSA_MGF1_MD, 0, (void *)(md)) +// +//# define EVP_PKEY_CTX_set_rsa_oaep_md(ctx, md) \ +// EVP_PKEY_CTX_ctrl(ctx, EVP_PKEY_RSA, EVP_PKEY_OP_TYPE_CRYPT, \ +// EVP_PKEY_CTRL_RSA_OAEP_MD, 0, (void *)(md)) +// +//# define EVP_PKEY_CTX_get_rsa_mgf1_md(ctx, pmd) \ +// RSA_pkey_ctx_ctrl(ctx, EVP_PKEY_OP_TYPE_SIG | EVP_PKEY_OP_TYPE_CRYPT, \ +// EVP_PKEY_CTRL_GET_RSA_MGF1_MD, 0, (void *)(pmd)) +// +//# define EVP_PKEY_CTX_get_rsa_oaep_md(ctx, pmd) \ +// EVP_PKEY_CTX_ctrl(ctx, EVP_PKEY_RSA, EVP_PKEY_OP_TYPE_CRYPT, \ +// EVP_PKEY_CTRL_GET_RSA_OAEP_MD, 0, (void *)(pmd)) +// +//# define EVP_PKEY_CTX_set0_rsa_oaep_label(ctx, l, llen) \ +// EVP_PKEY_CTX_ctrl(ctx, EVP_PKEY_RSA, EVP_PKEY_OP_TYPE_CRYPT, \ +// EVP_PKEY_CTRL_RSA_OAEP_LABEL, llen, (void *)(l)) +// +//# define EVP_PKEY_CTX_get0_rsa_oaep_label(ctx, l) \ +// EVP_PKEY_CTX_ctrl(ctx, EVP_PKEY_RSA, EVP_PKEY_OP_TYPE_CRYPT, \ +// EVP_PKEY_CTRL_GET_RSA_OAEP_LABEL, 0, (void *)(l)) +// +//# define EVP_PKEY_CTX_set_rsa_pss_keygen_md(ctx, md) \ +// EVP_PKEY_CTX_ctrl(ctx, EVP_PKEY_RSA_PSS, \ +// EVP_PKEY_OP_KEYGEN, EVP_PKEY_CTRL_MD, \ +// 0, (void *)(md)) + +//# define RSA_set_app_data(s,arg) RSA_set_ex_data(s,0,arg) +//# define RSA_get_app_data(s) RSA_get_ex_data(s,0) + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM RSA_new} +{$EXTERNALSYM RSA_new_method} +{$EXTERNALSYM RSA_bits} +{$EXTERNALSYM RSA_size} +{$EXTERNALSYM RSA_security_bits} +{$EXTERNALSYM RSA_set0_key} +{$EXTERNALSYM RSA_set0_factors} +{$EXTERNALSYM RSA_set0_crt_params} +{$EXTERNALSYM RSA_get0_key} +{$EXTERNALSYM RSA_get0_factors} +{$EXTERNALSYM RSA_get_multi_prime_extra_count} +{$EXTERNALSYM RSA_get0_crt_params} +{$EXTERNALSYM RSA_get0_n} +{$EXTERNALSYM RSA_get0_e} +{$EXTERNALSYM RSA_get0_d} +{$EXTERNALSYM RSA_get0_p} +{$EXTERNALSYM RSA_get0_q} +{$EXTERNALSYM RSA_get0_dmp1} +{$EXTERNALSYM RSA_get0_dmq1} +{$EXTERNALSYM RSA_get0_iqmp} +{$EXTERNALSYM RSA_clear_flags} +{$EXTERNALSYM RSA_test_flags} +{$EXTERNALSYM RSA_set_flags} +{$EXTERNALSYM RSA_get_version} +{$EXTERNALSYM RSA_get0_engine} +{$EXTERNALSYM RSA_generate_key_ex} +{$EXTERNALSYM RSA_generate_multi_prime_key} +{$EXTERNALSYM RSA_X931_derive_ex} +{$EXTERNALSYM RSA_X931_generate_key_ex} +{$EXTERNALSYM RSA_check_key} +{$EXTERNALSYM RSA_check_key_ex} +{$EXTERNALSYM RSA_public_encrypt} +{$EXTERNALSYM RSA_private_encrypt} +{$EXTERNALSYM RSA_public_decrypt} +{$EXTERNALSYM RSA_private_decrypt} +{$EXTERNALSYM RSA_free} +{$EXTERNALSYM RSA_up_ref} +{$EXTERNALSYM RSA_flags} +{$EXTERNALSYM RSA_set_default_method} +{$EXTERNALSYM RSA_get_default_method} +{$EXTERNALSYM RSA_null_method} +{$EXTERNALSYM RSA_get_method} +{$EXTERNALSYM RSA_set_method} +{$EXTERNALSYM RSA_PKCS1_OpenSSL} +{$EXTERNALSYM RSA_pkey_ctx_ctrl} +{$EXTERNALSYM RSA_print} +{$EXTERNALSYM RSA_sign} +{$EXTERNALSYM RSA_verify} +{$EXTERNALSYM RSA_sign_ASN1_OCTET_STRING} +{$EXTERNALSYM RSA_verify_ASN1_OCTET_STRING} +{$EXTERNALSYM RSA_blinding_on} +{$EXTERNALSYM RSA_blinding_off} +{$EXTERNALSYM RSA_setup_blinding} +{$EXTERNALSYM RSA_padding_add_PKCS1_type_1} +{$EXTERNALSYM RSA_padding_check_PKCS1_type_1} +{$EXTERNALSYM RSA_padding_add_PKCS1_type_2} +{$EXTERNALSYM RSA_padding_check_PKCS1_type_2} +{$EXTERNALSYM PKCS1_MGF1} +{$EXTERNALSYM RSA_padding_add_PKCS1_OAEP} +{$EXTERNALSYM RSA_padding_check_PKCS1_OAEP} +{$EXTERNALSYM RSA_padding_add_PKCS1_OAEP_mgf1} +{$EXTERNALSYM RSA_padding_check_PKCS1_OAEP_mgf1} +{$EXTERNALSYM RSA_padding_add_none} +{$EXTERNALSYM RSA_padding_check_none} +{$EXTERNALSYM RSA_padding_add_X931} +{$EXTERNALSYM RSA_padding_check_X931} +{$EXTERNALSYM RSA_X931_hash_id} +{$EXTERNALSYM RSA_verify_PKCS1_PSS} +{$EXTERNALSYM RSA_padding_add_PKCS1_PSS} +{$EXTERNALSYM RSA_verify_PKCS1_PSS_mgf1} +{$EXTERNALSYM RSA_padding_add_PKCS1_PSS_mgf1} +{$EXTERNALSYM RSA_set_ex_data} +{$EXTERNALSYM RSA_get_ex_data} +{$EXTERNALSYM RSAPublicKey_dup} +{$EXTERNALSYM RSAPrivateKey_dup} +{$EXTERNALSYM RSA_meth_new} +{$EXTERNALSYM RSA_meth_free} +{$EXTERNALSYM RSA_meth_dup} +{$EXTERNALSYM RSA_meth_get0_name} +{$EXTERNALSYM RSA_meth_set1_name} +{$EXTERNALSYM RSA_meth_get_flags} +{$EXTERNALSYM RSA_meth_set_flags} +{$EXTERNALSYM RSA_meth_get0_app_data} +{$EXTERNALSYM RSA_meth_set0_app_data} +{$EXTERNALSYM RSA_meth_set_priv_dec} +{$EXTERNALSYM RSA_meth_set_mod_exp} +{$EXTERNALSYM RSA_meth_set_bn_mod_exp} +{$EXTERNALSYM RSA_meth_set_init} +{$EXTERNALSYM RSA_meth_set_finish} +{$EXTERNALSYM RSA_meth_set_sign} +{$EXTERNALSYM RSA_meth_set_verify} +{$EXTERNALSYM RSA_meth_set_keygen} +{$EXTERNALSYM RSA_meth_set_multi_prime_keygen} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function RSA_new: PRSA; cdecl; external CLibCrypto; +function RSA_new_method(engine: PENGINE): PRSA; cdecl; external CLibCrypto; +function RSA_bits(const rsa: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_size(const rsa: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_security_bits(const rsa: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_set0_key(r: PRSA; n: PBIGNUM; e: PBIGNUM; d: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_set0_factors(r: PRSA; p: PBIGNUM; q: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_set0_crt_params(r: PRSA; dmp1: PBIGNUM; dmq1: PBIGNUM; iqmp: PBIGNUM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure RSA_get0_key(const r: PRSA; const n: PPBIGNUM; const e: PPBIGNUM; const d: PPBIGNUM); cdecl; external CLibCrypto; +procedure RSA_get0_factors(const r: PRSA; const p: PPBIGNUM; const q: PPBIGNUM); cdecl; external CLibCrypto; +function RSA_get_multi_prime_extra_count(const r: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure RSA_get0_crt_params(const r: PRSA; const dmp1: PPBIGNUM; const dmq1: PPBIGNUM; const iqmp: PPBIGNUM); cdecl; external CLibCrypto; +function RSA_get0_n(const d: PRSA): PBIGNUM; cdecl; external CLibCrypto; +function RSA_get0_e(const d: PRSA): PBIGNUM; cdecl; external CLibCrypto; +function RSA_get0_d(const d: PRSA): PBIGNUM; cdecl; external CLibCrypto; +function RSA_get0_p(const d: PRSA): PBIGNUM; cdecl; external CLibCrypto; +function RSA_get0_q(const d: PRSA): PBIGNUM; cdecl; external CLibCrypto; +function RSA_get0_dmp1(const r: PRSA): PBIGNUM; cdecl; external CLibCrypto; +function RSA_get0_dmq1(const r: PRSA): PBIGNUM; cdecl; external CLibCrypto; +function RSA_get0_iqmp(const r: PRSA): PBIGNUM; cdecl; external CLibCrypto; +procedure RSA_clear_flags(r: PRSA; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function RSA_test_flags(const r: PRSA; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure RSA_set_flags(r: PRSA; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function RSA_get_version(r: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_get0_engine(const r: PRSA): PENGINE; cdecl; external CLibCrypto; +function RSA_generate_key_ex(rsa: PRSA; bits: TOpenSSL_C_INT; e: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_generate_multi_prime_key(rsa: PRSA; bits: TOpenSSL_C_INT; primes: TOpenSSL_C_INT; e: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_X931_derive_ex(rsa: PRSA; p1: PBIGNUM; p2: PBIGNUM; q1: PBIGNUM; q2: PBIGNUM; const Xp1: PBIGNUM; const Xp2: PBIGNUM; const Xp: PBIGNUM; const Xq1: PBIGNUM; const Xq2: PBIGNUM; const Xq: PBIGNUM; const e: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_X931_generate_key_ex(rsa: PRSA; bits: TOpenSSL_C_INT; const e: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_check_key(const v1: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_check_key_ex(const v1: PRSA; cb: BN_GENCB): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_public_encrypt(flen: TOpenSSL_C_INT; const from: PByte; to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_private_encrypt(flen: TOpenSSL_C_INT; const from: PByte; to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_public_decrypt(flen: TOpenSSL_C_INT; const from: PByte; to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_private_decrypt(flen: TOpenSSL_C_INT; const from: PByte; to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure RSA_free(r: PRSA); cdecl; external CLibCrypto; +function RSA_up_ref(r: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_flags(const r: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure RSA_set_default_method(const meth: PRSA_METHOD); cdecl; external CLibCrypto; +function RSA_get_default_method: PRSA_METHOD; cdecl; external CLibCrypto; +function RSA_null_method: PRSA_METHOD; cdecl; external CLibCrypto; +function RSA_get_method(const rsa: PRSA): PRSA_METHOD; cdecl; external CLibCrypto; +function RSA_set_method(rsa: PRSA; const meth: PRSA_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_PKCS1_OpenSSL: PRSA_METHOD; cdecl; external CLibCrypto; +function RSA_pkey_ctx_ctrl(ctx: PEVP_PKEY_CTX; optype: TOpenSSL_C_INT; cmd: TOpenSSL_C_INT; p1: TOpenSSL_C_INT; p2: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_print(bp: PBIO; const r: PRSA; offset: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_sign(type_: TOpenSSL_C_INT; const m: PByte; m_length: TOpenSSL_C_UINT; sigret: PByte; siglen: POpenSSL_C_UINT; rsa: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_verify(type_: TOpenSSL_C_INT; const m: PByte; m_length: TOpenSSL_C_UINT; const sigbuf: PByte; siglen: TOpenSSL_C_UINT; rsa: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_sign_ASN1_OCTET_STRING(type_: TOpenSSL_C_INT; const m: PByte; m_length: TOpenSSL_C_UINT; sigret: PByte; siglen: POpenSSL_C_UINT; rsa: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_verify_ASN1_OCTET_STRING(type_: TOpenSSL_C_INT; const m: PByte; m_length: TOpenSSL_C_UINT; sigbuf: PByte; siglen: TOpenSSL_C_UINT; rsa: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_blinding_on(rsa: PRSA; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure RSA_blinding_off(rsa: PRSA); cdecl; external CLibCrypto; +function RSA_setup_blinding(rsa: PRSA; ctx: PBN_CTX): PBN_BLINDING; cdecl; external CLibCrypto; +function RSA_padding_add_PKCS1_type_1(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_padding_check_PKCS1_type_1(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_padding_add_PKCS1_type_2(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_padding_check_PKCS1_type_2(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS1_MGF1(mask: PByte; len: TOpenSSL_C_LONG; const seed: PByte; seedlen: TOpenSSL_C_LONG; const dgst: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_padding_add_PKCS1_OAEP(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; const p: PByte; pl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_padding_check_PKCS1_OAEP(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT; const p: PByte; pl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_padding_add_PKCS1_OAEP_mgf1(to_: PByte; tlen: TOpenSSL_C_INT; const from: PByte; flen: TOpenSSL_C_INT; const param: PByte; plen: TOpenSSL_C_INT; const md: PEVP_MD; const mgf1md: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_padding_check_PKCS1_OAEP_mgf1(to_: PByte; tlen: TOpenSSL_C_INT; const from: PByte; flen: TOpenSSL_C_INT; num: TOpenSSL_C_INT; const param: PByte; plen: TOpenSSL_C_INT; const md: PEVP_MD; const mgf1md: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_padding_add_none(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_padding_check_none(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_padding_add_X931(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_padding_check_X931(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_X931_hash_id(nid: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_verify_PKCS1_PSS(rsa: PRSA; const mHash: PByte; const Hash: PEVP_MD; const EM: PByte; sLen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_padding_add_PKCS1_PSS(rsa: PRSA; EM: PByte; const mHash: PByte; const Hash: PEVP_MD; sLen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_verify_PKCS1_PSS_mgf1(rsa: PRSA; const mHash: PByte; const Hash: PEVP_MD; const mgf1Hash: PEVP_MD; const EM: PByte; sLen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_padding_add_PKCS1_PSS_mgf1(rsa: PRSA; EM: PByte; const mHash: PByte; const Hash: PEVP_MD; const mgf1Hash: PEVP_MD; sLen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_set_ex_data(r: PRSA; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_get_ex_data(const r: PRSA; idx: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function RSAPublicKey_dup(rsa: PRSA): PRSA; cdecl; external CLibCrypto; +function RSAPrivateKey_dup(rsa: PRSA): PRSA; cdecl; external CLibCrypto; +function RSA_meth_new(const name: PAnsiChar; flags: TOpenSSL_C_INT): PRSA_METHOD; cdecl; external CLibCrypto; +procedure RSA_meth_free(meth: PRSA_METHOD); cdecl; external CLibCrypto; +function RSA_meth_dup(const meth: PRSA_METHOD): PRSA_METHOD; cdecl; external CLibCrypto; +function RSA_meth_get0_name(const meth: PRSA_METHOD): PAnsiChar; cdecl; external CLibCrypto; +function RSA_meth_set1_name(meth: PRSA_METHOD; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_meth_get_flags(const meth: PRSA_METHOD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_meth_set_flags(meth: PRSA_METHOD; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_meth_get0_app_data(const meth: PRSA_METHOD): Pointer; cdecl; external CLibCrypto; +function RSA_meth_set0_app_data(meth: PRSA_METHOD; app_data: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_meth_set_priv_dec(rsa: PRSA_METHOD; priv_dec: RSA_meth_set_priv_dec_priv_dec): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_meth_set_mod_exp(rsa: PRSA_METHOD; mod_exp: RSA_meth_set_mod_exp_mod_exp): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_meth_set_bn_mod_exp(rsa: PRSA_METHOD; bn_mod_exp: RSA_meth_set_bn_mod_exp_bn_mod_exp): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_meth_set_init(rsa: PRSA_METHOD; init: RSA_meth_set_init_init): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_meth_set_finish(rsa: PRSA_METHOD; finish: RSA_meth_set_finish_finish): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_meth_set_sign(rsa: PRSA_METHOD; sign: RSA_meth_set_sign_sign): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_meth_set_verify(rsa: PRSA_METHOD; verify: RSA_meth_set_verify_verify): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_meth_set_keygen(rsa: PRSA_METHOD; keygen: RSA_meth_set_keygen_keygen): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function RSA_meth_set_multi_prime_keygen(meth: PRSA_METHOD; keygen: RSA_meth_set_multi_prime_keygen_keygen): TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_RSA_new: PRSA; cdecl; +function Load_RSA_new_method(engine: PENGINE): PRSA; cdecl; +function Load_RSA_bits(const rsa: PRSA): TOpenSSL_C_INT; cdecl; +function Load_RSA_size(const rsa: PRSA): TOpenSSL_C_INT; cdecl; +function Load_RSA_security_bits(const rsa: PRSA): TOpenSSL_C_INT; cdecl; +function Load_RSA_set0_key(r: PRSA; n: PBIGNUM; e: PBIGNUM; d: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_RSA_set0_factors(r: PRSA; p: PBIGNUM; q: PBIGNUM): TOpenSSL_C_INT; cdecl; +function Load_RSA_set0_crt_params(r: PRSA; dmp1: PBIGNUM; dmq1: PBIGNUM; iqmp: PBIGNUM): TOpenSSL_C_INT; cdecl; +procedure Load_RSA_get0_key(const r: PRSA; const n: PPBIGNUM; const e: PPBIGNUM; const d: PPBIGNUM); cdecl; +procedure Load_RSA_get0_factors(const r: PRSA; const p: PPBIGNUM; const q: PPBIGNUM); cdecl; +function Load_RSA_get_multi_prime_extra_count(const r: PRSA): TOpenSSL_C_INT; cdecl; +procedure Load_RSA_get0_crt_params(const r: PRSA; const dmp1: PPBIGNUM; const dmq1: PPBIGNUM; const iqmp: PPBIGNUM); cdecl; +function Load_RSA_get0_n(const d: PRSA): PBIGNUM; cdecl; +function Load_RSA_get0_e(const d: PRSA): PBIGNUM; cdecl; +function Load_RSA_get0_d(const d: PRSA): PBIGNUM; cdecl; +function Load_RSA_get0_p(const d: PRSA): PBIGNUM; cdecl; +function Load_RSA_get0_q(const d: PRSA): PBIGNUM; cdecl; +function Load_RSA_get0_dmp1(const r: PRSA): PBIGNUM; cdecl; +function Load_RSA_get0_dmq1(const r: PRSA): PBIGNUM; cdecl; +function Load_RSA_get0_iqmp(const r: PRSA): PBIGNUM; cdecl; +procedure Load_RSA_clear_flags(r: PRSA; flags: TOpenSSL_C_INT); cdecl; +function Load_RSA_test_flags(const r: PRSA; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_RSA_set_flags(r: PRSA; flags: TOpenSSL_C_INT); cdecl; +function Load_RSA_get_version(r: PRSA): TOpenSSL_C_INT; cdecl; +function Load_RSA_get0_engine(const r: PRSA): PENGINE; cdecl; +function Load_RSA_generate_key_ex(rsa: PRSA; bits: TOpenSSL_C_INT; e: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +function Load_RSA_generate_multi_prime_key(rsa: PRSA; bits: TOpenSSL_C_INT; primes: TOpenSSL_C_INT; e: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +function Load_RSA_X931_derive_ex(rsa: PRSA; p1: PBIGNUM; p2: PBIGNUM; q1: PBIGNUM; q2: PBIGNUM; const Xp1: PBIGNUM; const Xp2: PBIGNUM; const Xp: PBIGNUM; const Xq1: PBIGNUM; const Xq2: PBIGNUM; const Xq: PBIGNUM; const e: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +function Load_RSA_X931_generate_key_ex(rsa: PRSA; bits: TOpenSSL_C_INT; const e: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +function Load_RSA_check_key(const v1: PRSA): TOpenSSL_C_INT; cdecl; +function Load_RSA_check_key_ex(const v1: PRSA; cb: BN_GENCB): TOpenSSL_C_INT; cdecl; +function Load_RSA_public_encrypt(flen: TOpenSSL_C_INT; const from: PByte; to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_private_encrypt(flen: TOpenSSL_C_INT; const from: PByte; to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_public_decrypt(flen: TOpenSSL_C_INT; const from: PByte; to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_private_decrypt(flen: TOpenSSL_C_INT; const from: PByte; to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_RSA_free(r: PRSA); cdecl; +function Load_RSA_up_ref(r: PRSA): TOpenSSL_C_INT; cdecl; +function Load_RSA_flags(const r: PRSA): TOpenSSL_C_INT; cdecl; +procedure Load_RSA_set_default_method(const meth: PRSA_METHOD); cdecl; +function Load_RSA_get_default_method: PRSA_METHOD; cdecl; +function Load_RSA_null_method: PRSA_METHOD; cdecl; +function Load_RSA_get_method(const rsa: PRSA): PRSA_METHOD; cdecl; +function Load_RSA_set_method(rsa: PRSA; const meth: PRSA_METHOD): TOpenSSL_C_INT; cdecl; +function Load_RSA_PKCS1_OpenSSL: PRSA_METHOD; cdecl; +function Load_RSA_pkey_ctx_ctrl(ctx: PEVP_PKEY_CTX; optype: TOpenSSL_C_INT; cmd: TOpenSSL_C_INT; p1: TOpenSSL_C_INT; p2: Pointer): TOpenSSL_C_INT; cdecl; +function Load_RSA_print(bp: PBIO; const r: PRSA; offset: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_sign(type_: TOpenSSL_C_INT; const m: PByte; m_length: TOpenSSL_C_UINT; sigret: PByte; siglen: POpenSSL_C_UINT; rsa: PRSA): TOpenSSL_C_INT; cdecl; +function Load_RSA_verify(type_: TOpenSSL_C_INT; const m: PByte; m_length: TOpenSSL_C_UINT; const sigbuf: PByte; siglen: TOpenSSL_C_UINT; rsa: PRSA): TOpenSSL_C_INT; cdecl; +function Load_RSA_sign_ASN1_OCTET_STRING(type_: TOpenSSL_C_INT; const m: PByte; m_length: TOpenSSL_C_UINT; sigret: PByte; siglen: POpenSSL_C_UINT; rsa: PRSA): TOpenSSL_C_INT; cdecl; +function Load_RSA_verify_ASN1_OCTET_STRING(type_: TOpenSSL_C_INT; const m: PByte; m_length: TOpenSSL_C_UINT; sigbuf: PByte; siglen: TOpenSSL_C_UINT; rsa: PRSA): TOpenSSL_C_INT; cdecl; +function Load_RSA_blinding_on(rsa: PRSA; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +procedure Load_RSA_blinding_off(rsa: PRSA); cdecl; +function Load_RSA_setup_blinding(rsa: PRSA; ctx: PBN_CTX): PBN_BLINDING; cdecl; +function Load_RSA_padding_add_PKCS1_type_1(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_padding_check_PKCS1_type_1(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_padding_add_PKCS1_type_2(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_padding_check_PKCS1_type_2(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS1_MGF1(mask: PByte; len: TOpenSSL_C_LONG; const seed: PByte; seedlen: TOpenSSL_C_LONG; const dgst: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_RSA_padding_add_PKCS1_OAEP(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; const p: PByte; pl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_padding_check_PKCS1_OAEP(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT; const p: PByte; pl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_padding_add_PKCS1_OAEP_mgf1(to_: PByte; tlen: TOpenSSL_C_INT; const from: PByte; flen: TOpenSSL_C_INT; const param: PByte; plen: TOpenSSL_C_INT; const md: PEVP_MD; const mgf1md: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_RSA_padding_check_PKCS1_OAEP_mgf1(to_: PByte; tlen: TOpenSSL_C_INT; const from: PByte; flen: TOpenSSL_C_INT; num: TOpenSSL_C_INT; const param: PByte; plen: TOpenSSL_C_INT; const md: PEVP_MD; const mgf1md: PEVP_MD): TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_RSA_padding_add_SSLv23(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_padding_check_SSLv23(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_RSA_padding_add_none(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_padding_check_none(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_padding_add_X931(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_padding_check_X931(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_X931_hash_id(nid: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_verify_PKCS1_PSS(rsa: PRSA; const mHash: PByte; const Hash: PEVP_MD; const EM: PByte; sLen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_padding_add_PKCS1_PSS(rsa: PRSA; EM: PByte; const mHash: PByte; const Hash: PEVP_MD; sLen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_verify_PKCS1_PSS_mgf1(rsa: PRSA; const mHash: PByte; const Hash: PEVP_MD; const mgf1Hash: PEVP_MD; const EM: PByte; sLen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_padding_add_PKCS1_PSS_mgf1(rsa: PRSA; EM: PByte; const mHash: PByte; const Hash: PEVP_MD; const mgf1Hash: PEVP_MD; sLen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_set_ex_data(r: PRSA; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; +function Load_RSA_get_ex_data(const r: PRSA; idx: TOpenSSL_C_INT): Pointer; cdecl; +function Load_RSAPublicKey_dup(rsa: PRSA): PRSA; cdecl; +function Load_RSAPrivateKey_dup(rsa: PRSA): PRSA; cdecl; +function Load_RSA_meth_new(const name: PAnsiChar; flags: TOpenSSL_C_INT): PRSA_METHOD; cdecl; +procedure Load_RSA_meth_free(meth: PRSA_METHOD); cdecl; +function Load_RSA_meth_dup(const meth: PRSA_METHOD): PRSA_METHOD; cdecl; +function Load_RSA_meth_get0_name(const meth: PRSA_METHOD): PAnsiChar; cdecl; +function Load_RSA_meth_set1_name(meth: PRSA_METHOD; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_RSA_meth_get_flags(const meth: PRSA_METHOD): TOpenSSL_C_INT; cdecl; +function Load_RSA_meth_set_flags(meth: PRSA_METHOD; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_RSA_meth_get0_app_data(const meth: PRSA_METHOD): Pointer; cdecl; +function Load_RSA_meth_set0_app_data(meth: PRSA_METHOD; app_data: Pointer): TOpenSSL_C_INT; cdecl; +function Load_RSA_meth_set_priv_dec(rsa: PRSA_METHOD; priv_dec: RSA_meth_set_priv_dec_priv_dec): TOpenSSL_C_INT; cdecl; +function Load_RSA_meth_set_mod_exp(rsa: PRSA_METHOD; mod_exp: RSA_meth_set_mod_exp_mod_exp): TOpenSSL_C_INT; cdecl; +function Load_RSA_meth_set_bn_mod_exp(rsa: PRSA_METHOD; bn_mod_exp: RSA_meth_set_bn_mod_exp_bn_mod_exp): TOpenSSL_C_INT; cdecl; +function Load_RSA_meth_set_init(rsa: PRSA_METHOD; init: RSA_meth_set_init_init): TOpenSSL_C_INT; cdecl; +function Load_RSA_meth_set_finish(rsa: PRSA_METHOD; finish: RSA_meth_set_finish_finish): TOpenSSL_C_INT; cdecl; +function Load_RSA_meth_set_sign(rsa: PRSA_METHOD; sign: RSA_meth_set_sign_sign): TOpenSSL_C_INT; cdecl; +function Load_RSA_meth_set_verify(rsa: PRSA_METHOD; verify: RSA_meth_set_verify_verify): TOpenSSL_C_INT; cdecl; +function Load_RSA_meth_set_keygen(rsa: PRSA_METHOD; keygen: RSA_meth_set_keygen_keygen): TOpenSSL_C_INT; cdecl; +function Load_RSA_meth_set_multi_prime_keygen(meth: PRSA_METHOD; keygen: RSA_meth_set_multi_prime_keygen_keygen): TOpenSSL_C_INT; cdecl; + +var + RSA_new: function : PRSA; cdecl = Load_RSA_new; + RSA_new_method: function (engine: PENGINE): PRSA; cdecl = Load_RSA_new_method; + RSA_bits: function (const rsa: PRSA): TOpenSSL_C_INT; cdecl = Load_RSA_bits; + RSA_size: function (const rsa: PRSA): TOpenSSL_C_INT; cdecl = Load_RSA_size; + RSA_security_bits: function (const rsa: PRSA): TOpenSSL_C_INT; cdecl = Load_RSA_security_bits; + RSA_set0_key: function (r: PRSA; n: PBIGNUM; e: PBIGNUM; d: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_RSA_set0_key; + RSA_set0_factors: function (r: PRSA; p: PBIGNUM; q: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_RSA_set0_factors; + RSA_set0_crt_params: function (r: PRSA; dmp1: PBIGNUM; dmq1: PBIGNUM; iqmp: PBIGNUM): TOpenSSL_C_INT; cdecl = Load_RSA_set0_crt_params; + RSA_get0_key: procedure (const r: PRSA; const n: PPBIGNUM; const e: PPBIGNUM; const d: PPBIGNUM); cdecl = Load_RSA_get0_key; + RSA_get0_factors: procedure (const r: PRSA; const p: PPBIGNUM; const q: PPBIGNUM); cdecl = Load_RSA_get0_factors; + RSA_get_multi_prime_extra_count: function (const r: PRSA): TOpenSSL_C_INT; cdecl = Load_RSA_get_multi_prime_extra_count; + RSA_get0_crt_params: procedure (const r: PRSA; const dmp1: PPBIGNUM; const dmq1: PPBIGNUM; const iqmp: PPBIGNUM); cdecl = Load_RSA_get0_crt_params; + RSA_get0_n: function (const d: PRSA): PBIGNUM; cdecl = Load_RSA_get0_n; + RSA_get0_e: function (const d: PRSA): PBIGNUM; cdecl = Load_RSA_get0_e; + RSA_get0_d: function (const d: PRSA): PBIGNUM; cdecl = Load_RSA_get0_d; + RSA_get0_p: function (const d: PRSA): PBIGNUM; cdecl = Load_RSA_get0_p; + RSA_get0_q: function (const d: PRSA): PBIGNUM; cdecl = Load_RSA_get0_q; + RSA_get0_dmp1: function (const r: PRSA): PBIGNUM; cdecl = Load_RSA_get0_dmp1; + RSA_get0_dmq1: function (const r: PRSA): PBIGNUM; cdecl = Load_RSA_get0_dmq1; + RSA_get0_iqmp: function (const r: PRSA): PBIGNUM; cdecl = Load_RSA_get0_iqmp; + RSA_clear_flags: procedure (r: PRSA; flags: TOpenSSL_C_INT); cdecl = Load_RSA_clear_flags; + RSA_test_flags: function (const r: PRSA; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_test_flags; + RSA_set_flags: procedure (r: PRSA; flags: TOpenSSL_C_INT); cdecl = Load_RSA_set_flags; + RSA_get_version: function (r: PRSA): TOpenSSL_C_INT; cdecl = Load_RSA_get_version; + RSA_get0_engine: function (const r: PRSA): PENGINE; cdecl = Load_RSA_get0_engine; + RSA_generate_key_ex: function (rsa: PRSA; bits: TOpenSSL_C_INT; e: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl = Load_RSA_generate_key_ex; + RSA_generate_multi_prime_key: function (rsa: PRSA; bits: TOpenSSL_C_INT; primes: TOpenSSL_C_INT; e: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl = Load_RSA_generate_multi_prime_key; + RSA_X931_derive_ex: function (rsa: PRSA; p1: PBIGNUM; p2: PBIGNUM; q1: PBIGNUM; q2: PBIGNUM; const Xp1: PBIGNUM; const Xp2: PBIGNUM; const Xp: PBIGNUM; const Xq1: PBIGNUM; const Xq2: PBIGNUM; const Xq: PBIGNUM; const e: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl = Load_RSA_X931_derive_ex; + RSA_X931_generate_key_ex: function (rsa: PRSA; bits: TOpenSSL_C_INT; const e: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl = Load_RSA_X931_generate_key_ex; + RSA_check_key: function (const v1: PRSA): TOpenSSL_C_INT; cdecl = Load_RSA_check_key; + RSA_check_key_ex: function (const v1: PRSA; cb: BN_GENCB): TOpenSSL_C_INT; cdecl = Load_RSA_check_key_ex; + RSA_public_encrypt: function (flen: TOpenSSL_C_INT; const from: PByte; to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_public_encrypt; + RSA_private_encrypt: function (flen: TOpenSSL_C_INT; const from: PByte; to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_private_encrypt; + RSA_public_decrypt: function (flen: TOpenSSL_C_INT; const from: PByte; to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_public_decrypt; + RSA_private_decrypt: function (flen: TOpenSSL_C_INT; const from: PByte; to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_private_decrypt; + RSA_free: procedure (r: PRSA); cdecl = Load_RSA_free; + RSA_up_ref: function (r: PRSA): TOpenSSL_C_INT; cdecl = Load_RSA_up_ref; + RSA_flags: function (const r: PRSA): TOpenSSL_C_INT; cdecl = Load_RSA_flags; + RSA_set_default_method: procedure (const meth: PRSA_METHOD); cdecl = Load_RSA_set_default_method; + RSA_get_default_method: function : PRSA_METHOD; cdecl = Load_RSA_get_default_method; + RSA_null_method: function : PRSA_METHOD; cdecl = Load_RSA_null_method; + RSA_get_method: function (const rsa: PRSA): PRSA_METHOD; cdecl = Load_RSA_get_method; + RSA_set_method: function (rsa: PRSA; const meth: PRSA_METHOD): TOpenSSL_C_INT; cdecl = Load_RSA_set_method; + RSA_PKCS1_OpenSSL: function : PRSA_METHOD; cdecl = Load_RSA_PKCS1_OpenSSL; + RSA_pkey_ctx_ctrl: function (ctx: PEVP_PKEY_CTX; optype: TOpenSSL_C_INT; cmd: TOpenSSL_C_INT; p1: TOpenSSL_C_INT; p2: Pointer): TOpenSSL_C_INT; cdecl = Load_RSA_pkey_ctx_ctrl; + RSA_print: function (bp: PBIO; const r: PRSA; offset: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_print; + RSA_sign: function (type_: TOpenSSL_C_INT; const m: PByte; m_length: TOpenSSL_C_UINT; sigret: PByte; siglen: POpenSSL_C_UINT; rsa: PRSA): TOpenSSL_C_INT; cdecl = Load_RSA_sign; + RSA_verify: function (type_: TOpenSSL_C_INT; const m: PByte; m_length: TOpenSSL_C_UINT; const sigbuf: PByte; siglen: TOpenSSL_C_UINT; rsa: PRSA): TOpenSSL_C_INT; cdecl = Load_RSA_verify; + RSA_sign_ASN1_OCTET_STRING: function (type_: TOpenSSL_C_INT; const m: PByte; m_length: TOpenSSL_C_UINT; sigret: PByte; siglen: POpenSSL_C_UINT; rsa: PRSA): TOpenSSL_C_INT; cdecl = Load_RSA_sign_ASN1_OCTET_STRING; + RSA_verify_ASN1_OCTET_STRING: function (type_: TOpenSSL_C_INT; const m: PByte; m_length: TOpenSSL_C_UINT; sigbuf: PByte; siglen: TOpenSSL_C_UINT; rsa: PRSA): TOpenSSL_C_INT; cdecl = Load_RSA_verify_ASN1_OCTET_STRING; + RSA_blinding_on: function (rsa: PRSA; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl = Load_RSA_blinding_on; + RSA_blinding_off: procedure (rsa: PRSA); cdecl = Load_RSA_blinding_off; + RSA_setup_blinding: function (rsa: PRSA; ctx: PBN_CTX): PBN_BLINDING; cdecl = Load_RSA_setup_blinding; + RSA_padding_add_PKCS1_type_1: function (to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_padding_add_PKCS1_type_1; + RSA_padding_check_PKCS1_type_1: function (to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_padding_check_PKCS1_type_1; + RSA_padding_add_PKCS1_type_2: function (to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_padding_add_PKCS1_type_2; + RSA_padding_check_PKCS1_type_2: function (to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_padding_check_PKCS1_type_2; + PKCS1_MGF1: function (mask: PByte; len: TOpenSSL_C_LONG; const seed: PByte; seedlen: TOpenSSL_C_LONG; const dgst: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_PKCS1_MGF1; + RSA_padding_add_PKCS1_OAEP: function (to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; const p: PByte; pl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_padding_add_PKCS1_OAEP; + RSA_padding_check_PKCS1_OAEP: function (to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT; const p: PByte; pl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_padding_check_PKCS1_OAEP; + RSA_padding_add_PKCS1_OAEP_mgf1: function (to_: PByte; tlen: TOpenSSL_C_INT; const from: PByte; flen: TOpenSSL_C_INT; const param: PByte; plen: TOpenSSL_C_INT; const md: PEVP_MD; const mgf1md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_RSA_padding_add_PKCS1_OAEP_mgf1; + RSA_padding_check_PKCS1_OAEP_mgf1: function (to_: PByte; tlen: TOpenSSL_C_INT; const from: PByte; flen: TOpenSSL_C_INT; num: TOpenSSL_C_INT; const param: PByte; plen: TOpenSSL_C_INT; const md: PEVP_MD; const mgf1md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_RSA_padding_check_PKCS1_OAEP_mgf1; + RSA_padding_add_none: function (to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_padding_add_none; + RSA_padding_check_none: function (to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_padding_check_none; + RSA_padding_add_X931: function (to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_padding_add_X931; + RSA_padding_check_X931: function (to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_padding_check_X931; + RSA_X931_hash_id: function (nid: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_X931_hash_id; + RSA_verify_PKCS1_PSS: function (rsa: PRSA; const mHash: PByte; const Hash: PEVP_MD; const EM: PByte; sLen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_verify_PKCS1_PSS; + RSA_padding_add_PKCS1_PSS: function (rsa: PRSA; EM: PByte; const mHash: PByte; const Hash: PEVP_MD; sLen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_padding_add_PKCS1_PSS; + RSA_verify_PKCS1_PSS_mgf1: function (rsa: PRSA; const mHash: PByte; const Hash: PEVP_MD; const mgf1Hash: PEVP_MD; const EM: PByte; sLen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_verify_PKCS1_PSS_mgf1; + RSA_padding_add_PKCS1_PSS_mgf1: function (rsa: PRSA; EM: PByte; const mHash: PByte; const Hash: PEVP_MD; const mgf1Hash: PEVP_MD; sLen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_padding_add_PKCS1_PSS_mgf1; + RSA_set_ex_data: function (r: PRSA; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl = Load_RSA_set_ex_data; + RSA_get_ex_data: function (const r: PRSA; idx: TOpenSSL_C_INT): Pointer; cdecl = Load_RSA_get_ex_data; + RSAPublicKey_dup: function (rsa: PRSA): PRSA; cdecl = Load_RSAPublicKey_dup; + RSAPrivateKey_dup: function (rsa: PRSA): PRSA; cdecl = Load_RSAPrivateKey_dup; + RSA_meth_new: function (const name: PAnsiChar; flags: TOpenSSL_C_INT): PRSA_METHOD; cdecl = Load_RSA_meth_new; + RSA_meth_free: procedure (meth: PRSA_METHOD); cdecl = Load_RSA_meth_free; + RSA_meth_dup: function (const meth: PRSA_METHOD): PRSA_METHOD; cdecl = Load_RSA_meth_dup; + RSA_meth_get0_name: function (const meth: PRSA_METHOD): PAnsiChar; cdecl = Load_RSA_meth_get0_name; + RSA_meth_set1_name: function (meth: PRSA_METHOD; const name: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_RSA_meth_set1_name; + RSA_meth_get_flags: function (const meth: PRSA_METHOD): TOpenSSL_C_INT; cdecl = Load_RSA_meth_get_flags; + RSA_meth_set_flags: function (meth: PRSA_METHOD; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_meth_set_flags; + RSA_meth_get0_app_data: function (const meth: PRSA_METHOD): Pointer; cdecl = Load_RSA_meth_get0_app_data; + RSA_meth_set0_app_data: function (meth: PRSA_METHOD; app_data: Pointer): TOpenSSL_C_INT; cdecl = Load_RSA_meth_set0_app_data; + RSA_meth_set_priv_dec: function (rsa: PRSA_METHOD; priv_dec: RSA_meth_set_priv_dec_priv_dec): TOpenSSL_C_INT; cdecl = Load_RSA_meth_set_priv_dec; + RSA_meth_set_mod_exp: function (rsa: PRSA_METHOD; mod_exp: RSA_meth_set_mod_exp_mod_exp): TOpenSSL_C_INT; cdecl = Load_RSA_meth_set_mod_exp; + RSA_meth_set_bn_mod_exp: function (rsa: PRSA_METHOD; bn_mod_exp: RSA_meth_set_bn_mod_exp_bn_mod_exp): TOpenSSL_C_INT; cdecl = Load_RSA_meth_set_bn_mod_exp; + RSA_meth_set_init: function (rsa: PRSA_METHOD; init: RSA_meth_set_init_init): TOpenSSL_C_INT; cdecl = Load_RSA_meth_set_init; + RSA_meth_set_finish: function (rsa: PRSA_METHOD; finish: RSA_meth_set_finish_finish): TOpenSSL_C_INT; cdecl = Load_RSA_meth_set_finish; + RSA_meth_set_sign: function (rsa: PRSA_METHOD; sign: RSA_meth_set_sign_sign): TOpenSSL_C_INT; cdecl = Load_RSA_meth_set_sign; + RSA_meth_set_verify: function (rsa: PRSA_METHOD; verify: RSA_meth_set_verify_verify): TOpenSSL_C_INT; cdecl = Load_RSA_meth_set_verify; + RSA_meth_set_keygen: function (rsa: PRSA_METHOD; keygen: RSA_meth_set_keygen_keygen): TOpenSSL_C_INT; cdecl = Load_RSA_meth_set_keygen; + RSA_meth_set_multi_prime_keygen: function (meth: PRSA_METHOD; keygen: RSA_meth_set_multi_prime_keygen_keygen): TOpenSSL_C_INT; cdecl = Load_RSA_meth_set_multi_prime_keygen; +{$ENDIF} +const + RSA_padding_add_SSLv23_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + RSA_padding_check_SSLv23_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +var + RSA_padding_add_SSLv23: function (to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_padding_add_SSLv23; {removed 3.0.0} + RSA_padding_check_SSLv23: function (to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_RSA_padding_check_SSLv23; {removed 3.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_RSA_new: PRSA; cdecl; +begin + RSA_new := LoadLibCryptoFunction('RSA_new'); + if not assigned(RSA_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_new'); + Result := RSA_new(); +end; + +function Load_RSA_new_method(engine: PENGINE): PRSA; cdecl; +begin + RSA_new_method := LoadLibCryptoFunction('RSA_new_method'); + if not assigned(RSA_new_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_new_method'); + Result := RSA_new_method(engine); +end; + +function Load_RSA_bits(const rsa: PRSA): TOpenSSL_C_INT; cdecl; +begin + RSA_bits := LoadLibCryptoFunction('RSA_bits'); + if not assigned(RSA_bits) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_bits'); + Result := RSA_bits(rsa); +end; + +function Load_RSA_size(const rsa: PRSA): TOpenSSL_C_INT; cdecl; +begin + RSA_size := LoadLibCryptoFunction('RSA_size'); + if not assigned(RSA_size) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_size'); + Result := RSA_size(rsa); +end; + +function Load_RSA_security_bits(const rsa: PRSA): TOpenSSL_C_INT; cdecl; +begin + RSA_security_bits := LoadLibCryptoFunction('RSA_security_bits'); + if not assigned(RSA_security_bits) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_security_bits'); + Result := RSA_security_bits(rsa); +end; + +function Load_RSA_set0_key(r: PRSA; n: PBIGNUM; e: PBIGNUM; d: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + RSA_set0_key := LoadLibCryptoFunction('RSA_set0_key'); + if not assigned(RSA_set0_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_set0_key'); + Result := RSA_set0_key(r,n,e,d); +end; + +function Load_RSA_set0_factors(r: PRSA; p: PBIGNUM; q: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + RSA_set0_factors := LoadLibCryptoFunction('RSA_set0_factors'); + if not assigned(RSA_set0_factors) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_set0_factors'); + Result := RSA_set0_factors(r,p,q); +end; + +function Load_RSA_set0_crt_params(r: PRSA; dmp1: PBIGNUM; dmq1: PBIGNUM; iqmp: PBIGNUM): TOpenSSL_C_INT; cdecl; +begin + RSA_set0_crt_params := LoadLibCryptoFunction('RSA_set0_crt_params'); + if not assigned(RSA_set0_crt_params) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_set0_crt_params'); + Result := RSA_set0_crt_params(r,dmp1,dmq1,iqmp); +end; + +procedure Load_RSA_get0_key(const r: PRSA; const n: PPBIGNUM; const e: PPBIGNUM; const d: PPBIGNUM); cdecl; +begin + RSA_get0_key := LoadLibCryptoFunction('RSA_get0_key'); + if not assigned(RSA_get0_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get0_key'); + RSA_get0_key(r,n,e,d); +end; + +procedure Load_RSA_get0_factors(const r: PRSA; const p: PPBIGNUM; const q: PPBIGNUM); cdecl; +begin + RSA_get0_factors := LoadLibCryptoFunction('RSA_get0_factors'); + if not assigned(RSA_get0_factors) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get0_factors'); + RSA_get0_factors(r,p,q); +end; + +function Load_RSA_get_multi_prime_extra_count(const r: PRSA): TOpenSSL_C_INT; cdecl; +begin + RSA_get_multi_prime_extra_count := LoadLibCryptoFunction('RSA_get_multi_prime_extra_count'); + if not assigned(RSA_get_multi_prime_extra_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get_multi_prime_extra_count'); + Result := RSA_get_multi_prime_extra_count(r); +end; + +procedure Load_RSA_get0_crt_params(const r: PRSA; const dmp1: PPBIGNUM; const dmq1: PPBIGNUM; const iqmp: PPBIGNUM); cdecl; +begin + RSA_get0_crt_params := LoadLibCryptoFunction('RSA_get0_crt_params'); + if not assigned(RSA_get0_crt_params) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get0_crt_params'); + RSA_get0_crt_params(r,dmp1,dmq1,iqmp); +end; + +function Load_RSA_get0_n(const d: PRSA): PBIGNUM; cdecl; +begin + RSA_get0_n := LoadLibCryptoFunction('RSA_get0_n'); + if not assigned(RSA_get0_n) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get0_n'); + Result := RSA_get0_n(d); +end; + +function Load_RSA_get0_e(const d: PRSA): PBIGNUM; cdecl; +begin + RSA_get0_e := LoadLibCryptoFunction('RSA_get0_e'); + if not assigned(RSA_get0_e) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get0_e'); + Result := RSA_get0_e(d); +end; + +function Load_RSA_get0_d(const d: PRSA): PBIGNUM; cdecl; +begin + RSA_get0_d := LoadLibCryptoFunction('RSA_get0_d'); + if not assigned(RSA_get0_d) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get0_d'); + Result := RSA_get0_d(d); +end; + +function Load_RSA_get0_p(const d: PRSA): PBIGNUM; cdecl; +begin + RSA_get0_p := LoadLibCryptoFunction('RSA_get0_p'); + if not assigned(RSA_get0_p) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get0_p'); + Result := RSA_get0_p(d); +end; + +function Load_RSA_get0_q(const d: PRSA): PBIGNUM; cdecl; +begin + RSA_get0_q := LoadLibCryptoFunction('RSA_get0_q'); + if not assigned(RSA_get0_q) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get0_q'); + Result := RSA_get0_q(d); +end; + +function Load_RSA_get0_dmp1(const r: PRSA): PBIGNUM; cdecl; +begin + RSA_get0_dmp1 := LoadLibCryptoFunction('RSA_get0_dmp1'); + if not assigned(RSA_get0_dmp1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get0_dmp1'); + Result := RSA_get0_dmp1(r); +end; + +function Load_RSA_get0_dmq1(const r: PRSA): PBIGNUM; cdecl; +begin + RSA_get0_dmq1 := LoadLibCryptoFunction('RSA_get0_dmq1'); + if not assigned(RSA_get0_dmq1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get0_dmq1'); + Result := RSA_get0_dmq1(r); +end; + +function Load_RSA_get0_iqmp(const r: PRSA): PBIGNUM; cdecl; +begin + RSA_get0_iqmp := LoadLibCryptoFunction('RSA_get0_iqmp'); + if not assigned(RSA_get0_iqmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get0_iqmp'); + Result := RSA_get0_iqmp(r); +end; + +procedure Load_RSA_clear_flags(r: PRSA; flags: TOpenSSL_C_INT); cdecl; +begin + RSA_clear_flags := LoadLibCryptoFunction('RSA_clear_flags'); + if not assigned(RSA_clear_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_clear_flags'); + RSA_clear_flags(r,flags); +end; + +function Load_RSA_test_flags(const r: PRSA; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_test_flags := LoadLibCryptoFunction('RSA_test_flags'); + if not assigned(RSA_test_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_test_flags'); + Result := RSA_test_flags(r,flags); +end; + +procedure Load_RSA_set_flags(r: PRSA; flags: TOpenSSL_C_INT); cdecl; +begin + RSA_set_flags := LoadLibCryptoFunction('RSA_set_flags'); + if not assigned(RSA_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_set_flags'); + RSA_set_flags(r,flags); +end; + +function Load_RSA_get_version(r: PRSA): TOpenSSL_C_INT; cdecl; +begin + RSA_get_version := LoadLibCryptoFunction('RSA_get_version'); + if not assigned(RSA_get_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get_version'); + Result := RSA_get_version(r); +end; + +function Load_RSA_get0_engine(const r: PRSA): PENGINE; cdecl; +begin + RSA_get0_engine := LoadLibCryptoFunction('RSA_get0_engine'); + if not assigned(RSA_get0_engine) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get0_engine'); + Result := RSA_get0_engine(r); +end; + +function Load_RSA_generate_key_ex(rsa: PRSA; bits: TOpenSSL_C_INT; e: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +begin + RSA_generate_key_ex := LoadLibCryptoFunction('RSA_generate_key_ex'); + if not assigned(RSA_generate_key_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_generate_key_ex'); + Result := RSA_generate_key_ex(rsa,bits,e,cb); +end; + +function Load_RSA_generate_multi_prime_key(rsa: PRSA; bits: TOpenSSL_C_INT; primes: TOpenSSL_C_INT; e: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +begin + RSA_generate_multi_prime_key := LoadLibCryptoFunction('RSA_generate_multi_prime_key'); + if not assigned(RSA_generate_multi_prime_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_generate_multi_prime_key'); + Result := RSA_generate_multi_prime_key(rsa,bits,primes,e,cb); +end; + +function Load_RSA_X931_derive_ex(rsa: PRSA; p1: PBIGNUM; p2: PBIGNUM; q1: PBIGNUM; q2: PBIGNUM; const Xp1: PBIGNUM; const Xp2: PBIGNUM; const Xp: PBIGNUM; const Xq1: PBIGNUM; const Xq2: PBIGNUM; const Xq: PBIGNUM; const e: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +begin + RSA_X931_derive_ex := LoadLibCryptoFunction('RSA_X931_derive_ex'); + if not assigned(RSA_X931_derive_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_X931_derive_ex'); + Result := RSA_X931_derive_ex(rsa,p1,p2,q1,q2,Xp1,Xp2,Xp,Xq1,Xq2,Xq,e,cb); +end; + +function Load_RSA_X931_generate_key_ex(rsa: PRSA; bits: TOpenSSL_C_INT; const e: PBIGNUM; cb: PBN_GENCB): TOpenSSL_C_INT; cdecl; +begin + RSA_X931_generate_key_ex := LoadLibCryptoFunction('RSA_X931_generate_key_ex'); + if not assigned(RSA_X931_generate_key_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_X931_generate_key_ex'); + Result := RSA_X931_generate_key_ex(rsa,bits,e,cb); +end; + +function Load_RSA_check_key(const v1: PRSA): TOpenSSL_C_INT; cdecl; +begin + RSA_check_key := LoadLibCryptoFunction('RSA_check_key'); + if not assigned(RSA_check_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_check_key'); + Result := RSA_check_key(v1); +end; + +function Load_RSA_check_key_ex(const v1: PRSA; cb: BN_GENCB): TOpenSSL_C_INT; cdecl; +begin + RSA_check_key_ex := LoadLibCryptoFunction('RSA_check_key_ex'); + if not assigned(RSA_check_key_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_check_key_ex'); + Result := RSA_check_key_ex(v1,cb); +end; + +function Load_RSA_public_encrypt(flen: TOpenSSL_C_INT; const from: PByte; to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_public_encrypt := LoadLibCryptoFunction('RSA_public_encrypt'); + if not assigned(RSA_public_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_public_encrypt'); + Result := RSA_public_encrypt(flen,from,to_,rsa,padding); +end; + +function Load_RSA_private_encrypt(flen: TOpenSSL_C_INT; const from: PByte; to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_private_encrypt := LoadLibCryptoFunction('RSA_private_encrypt'); + if not assigned(RSA_private_encrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_private_encrypt'); + Result := RSA_private_encrypt(flen,from,to_,rsa,padding); +end; + +function Load_RSA_public_decrypt(flen: TOpenSSL_C_INT; const from: PByte; to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_public_decrypt := LoadLibCryptoFunction('RSA_public_decrypt'); + if not assigned(RSA_public_decrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_public_decrypt'); + Result := RSA_public_decrypt(flen,from,to_,rsa,padding); +end; + +function Load_RSA_private_decrypt(flen: TOpenSSL_C_INT; const from: PByte; to_: PByte; rsa: PRSA; padding: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_private_decrypt := LoadLibCryptoFunction('RSA_private_decrypt'); + if not assigned(RSA_private_decrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_private_decrypt'); + Result := RSA_private_decrypt(flen,from,to_,rsa,padding); +end; + +procedure Load_RSA_free(r: PRSA); cdecl; +begin + RSA_free := LoadLibCryptoFunction('RSA_free'); + if not assigned(RSA_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_free'); + RSA_free(r); +end; + +function Load_RSA_up_ref(r: PRSA): TOpenSSL_C_INT; cdecl; +begin + RSA_up_ref := LoadLibCryptoFunction('RSA_up_ref'); + if not assigned(RSA_up_ref) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_up_ref'); + Result := RSA_up_ref(r); +end; + +function Load_RSA_flags(const r: PRSA): TOpenSSL_C_INT; cdecl; +begin + RSA_flags := LoadLibCryptoFunction('RSA_flags'); + if not assigned(RSA_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_flags'); + Result := RSA_flags(r); +end; + +procedure Load_RSA_set_default_method(const meth: PRSA_METHOD); cdecl; +begin + RSA_set_default_method := LoadLibCryptoFunction('RSA_set_default_method'); + if not assigned(RSA_set_default_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_set_default_method'); + RSA_set_default_method(meth); +end; + +function Load_RSA_get_default_method: PRSA_METHOD; cdecl; +begin + RSA_get_default_method := LoadLibCryptoFunction('RSA_get_default_method'); + if not assigned(RSA_get_default_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get_default_method'); + Result := RSA_get_default_method(); +end; + +function Load_RSA_null_method: PRSA_METHOD; cdecl; +begin + RSA_null_method := LoadLibCryptoFunction('RSA_null_method'); + if not assigned(RSA_null_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_null_method'); + Result := RSA_null_method(); +end; + +function Load_RSA_get_method(const rsa: PRSA): PRSA_METHOD; cdecl; +begin + RSA_get_method := LoadLibCryptoFunction('RSA_get_method'); + if not assigned(RSA_get_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get_method'); + Result := RSA_get_method(rsa); +end; + +function Load_RSA_set_method(rsa: PRSA; const meth: PRSA_METHOD): TOpenSSL_C_INT; cdecl; +begin + RSA_set_method := LoadLibCryptoFunction('RSA_set_method'); + if not assigned(RSA_set_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_set_method'); + Result := RSA_set_method(rsa,meth); +end; + +function Load_RSA_PKCS1_OpenSSL: PRSA_METHOD; cdecl; +begin + RSA_PKCS1_OpenSSL := LoadLibCryptoFunction('RSA_PKCS1_OpenSSL'); + if not assigned(RSA_PKCS1_OpenSSL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_PKCS1_OpenSSL'); + Result := RSA_PKCS1_OpenSSL(); +end; + +function Load_RSA_pkey_ctx_ctrl(ctx: PEVP_PKEY_CTX; optype: TOpenSSL_C_INT; cmd: TOpenSSL_C_INT; p1: TOpenSSL_C_INT; p2: Pointer): TOpenSSL_C_INT; cdecl; +begin + RSA_pkey_ctx_ctrl := LoadLibCryptoFunction('RSA_pkey_ctx_ctrl'); + if not assigned(RSA_pkey_ctx_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_pkey_ctx_ctrl'); + Result := RSA_pkey_ctx_ctrl(ctx,optype,cmd,p1,p2); +end; + +function Load_RSA_print(bp: PBIO; const r: PRSA; offset: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_print := LoadLibCryptoFunction('RSA_print'); + if not assigned(RSA_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_print'); + Result := RSA_print(bp,r,offset); +end; + +function Load_RSA_sign(type_: TOpenSSL_C_INT; const m: PByte; m_length: TOpenSSL_C_UINT; sigret: PByte; siglen: POpenSSL_C_UINT; rsa: PRSA): TOpenSSL_C_INT; cdecl; +begin + RSA_sign := LoadLibCryptoFunction('RSA_sign'); + if not assigned(RSA_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_sign'); + Result := RSA_sign(type_,m,m_length,sigret,siglen,rsa); +end; + +function Load_RSA_verify(type_: TOpenSSL_C_INT; const m: PByte; m_length: TOpenSSL_C_UINT; const sigbuf: PByte; siglen: TOpenSSL_C_UINT; rsa: PRSA): TOpenSSL_C_INT; cdecl; +begin + RSA_verify := LoadLibCryptoFunction('RSA_verify'); + if not assigned(RSA_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_verify'); + Result := RSA_verify(type_,m,m_length,sigbuf,siglen,rsa); +end; + +function Load_RSA_sign_ASN1_OCTET_STRING(type_: TOpenSSL_C_INT; const m: PByte; m_length: TOpenSSL_C_UINT; sigret: PByte; siglen: POpenSSL_C_UINT; rsa: PRSA): TOpenSSL_C_INT; cdecl; +begin + RSA_sign_ASN1_OCTET_STRING := LoadLibCryptoFunction('RSA_sign_ASN1_OCTET_STRING'); + if not assigned(RSA_sign_ASN1_OCTET_STRING) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_sign_ASN1_OCTET_STRING'); + Result := RSA_sign_ASN1_OCTET_STRING(type_,m,m_length,sigret,siglen,rsa); +end; + +function Load_RSA_verify_ASN1_OCTET_STRING(type_: TOpenSSL_C_INT; const m: PByte; m_length: TOpenSSL_C_UINT; sigbuf: PByte; siglen: TOpenSSL_C_UINT; rsa: PRSA): TOpenSSL_C_INT; cdecl; +begin + RSA_verify_ASN1_OCTET_STRING := LoadLibCryptoFunction('RSA_verify_ASN1_OCTET_STRING'); + if not assigned(RSA_verify_ASN1_OCTET_STRING) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_verify_ASN1_OCTET_STRING'); + Result := RSA_verify_ASN1_OCTET_STRING(type_,m,m_length,sigbuf,siglen,rsa); +end; + +function Load_RSA_blinding_on(rsa: PRSA; ctx: PBN_CTX): TOpenSSL_C_INT; cdecl; +begin + RSA_blinding_on := LoadLibCryptoFunction('RSA_blinding_on'); + if not assigned(RSA_blinding_on) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_blinding_on'); + Result := RSA_blinding_on(rsa,ctx); +end; + +procedure Load_RSA_blinding_off(rsa: PRSA); cdecl; +begin + RSA_blinding_off := LoadLibCryptoFunction('RSA_blinding_off'); + if not assigned(RSA_blinding_off) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_blinding_off'); + RSA_blinding_off(rsa); +end; + +function Load_RSA_setup_blinding(rsa: PRSA; ctx: PBN_CTX): PBN_BLINDING; cdecl; +begin + RSA_setup_blinding := LoadLibCryptoFunction('RSA_setup_blinding'); + if not assigned(RSA_setup_blinding) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_setup_blinding'); + Result := RSA_setup_blinding(rsa,ctx); +end; + +function Load_RSA_padding_add_PKCS1_type_1(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_padding_add_PKCS1_type_1 := LoadLibCryptoFunction('RSA_padding_add_PKCS1_type_1'); + if not assigned(RSA_padding_add_PKCS1_type_1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_padding_add_PKCS1_type_1'); + Result := RSA_padding_add_PKCS1_type_1(to_,tlen,f,fl); +end; + +function Load_RSA_padding_check_PKCS1_type_1(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_padding_check_PKCS1_type_1 := LoadLibCryptoFunction('RSA_padding_check_PKCS1_type_1'); + if not assigned(RSA_padding_check_PKCS1_type_1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_padding_check_PKCS1_type_1'); + Result := RSA_padding_check_PKCS1_type_1(to_,tlen,f,fl,rsa_len); +end; + +function Load_RSA_padding_add_PKCS1_type_2(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_padding_add_PKCS1_type_2 := LoadLibCryptoFunction('RSA_padding_add_PKCS1_type_2'); + if not assigned(RSA_padding_add_PKCS1_type_2) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_padding_add_PKCS1_type_2'); + Result := RSA_padding_add_PKCS1_type_2(to_,tlen,f,fl); +end; + +function Load_RSA_padding_check_PKCS1_type_2(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_padding_check_PKCS1_type_2 := LoadLibCryptoFunction('RSA_padding_check_PKCS1_type_2'); + if not assigned(RSA_padding_check_PKCS1_type_2) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_padding_check_PKCS1_type_2'); + Result := RSA_padding_check_PKCS1_type_2(to_,tlen,f,fl,rsa_len); +end; + +function Load_PKCS1_MGF1(mask: PByte; len: TOpenSSL_C_LONG; const seed: PByte; seedlen: TOpenSSL_C_LONG; const dgst: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + PKCS1_MGF1 := LoadLibCryptoFunction('PKCS1_MGF1'); + if not assigned(PKCS1_MGF1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS1_MGF1'); + Result := PKCS1_MGF1(mask,len,seed,seedlen,dgst); +end; + +function Load_RSA_padding_add_PKCS1_OAEP(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; const p: PByte; pl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_padding_add_PKCS1_OAEP := LoadLibCryptoFunction('RSA_padding_add_PKCS1_OAEP'); + if not assigned(RSA_padding_add_PKCS1_OAEP) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_padding_add_PKCS1_OAEP'); + Result := RSA_padding_add_PKCS1_OAEP(to_,tlen,f,fl,p,pl); +end; + +function Load_RSA_padding_check_PKCS1_OAEP(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT; const p: PByte; pl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_padding_check_PKCS1_OAEP := LoadLibCryptoFunction('RSA_padding_check_PKCS1_OAEP'); + if not assigned(RSA_padding_check_PKCS1_OAEP) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_padding_check_PKCS1_OAEP'); + Result := RSA_padding_check_PKCS1_OAEP(to_,tlen,f,fl,rsa_len,p,pl); +end; + +function Load_RSA_padding_add_PKCS1_OAEP_mgf1(to_: PByte; tlen: TOpenSSL_C_INT; const from: PByte; flen: TOpenSSL_C_INT; const param: PByte; plen: TOpenSSL_C_INT; const md: PEVP_MD; const mgf1md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + RSA_padding_add_PKCS1_OAEP_mgf1 := LoadLibCryptoFunction('RSA_padding_add_PKCS1_OAEP_mgf1'); + if not assigned(RSA_padding_add_PKCS1_OAEP_mgf1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_padding_add_PKCS1_OAEP_mgf1'); + Result := RSA_padding_add_PKCS1_OAEP_mgf1(to_,tlen,from,flen,param,plen,md,mgf1md); +end; + +function Load_RSA_padding_check_PKCS1_OAEP_mgf1(to_: PByte; tlen: TOpenSSL_C_INT; const from: PByte; flen: TOpenSSL_C_INT; num: TOpenSSL_C_INT; const param: PByte; plen: TOpenSSL_C_INT; const md: PEVP_MD; const mgf1md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + RSA_padding_check_PKCS1_OAEP_mgf1 := LoadLibCryptoFunction('RSA_padding_check_PKCS1_OAEP_mgf1'); + if not assigned(RSA_padding_check_PKCS1_OAEP_mgf1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_padding_check_PKCS1_OAEP_mgf1'); + Result := RSA_padding_check_PKCS1_OAEP_mgf1(to_,tlen,from,flen,num,param,plen,md,mgf1md); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_RSA_padding_add_SSLv23(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_padding_add_SSLv23 := LoadLibCryptoFunction('RSA_padding_add_SSLv23'); + if not assigned(RSA_padding_add_SSLv23) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_padding_add_SSLv23'); + Result := RSA_padding_add_SSLv23(to_,tlen,f,fl); +end; + +function Load_RSA_padding_check_SSLv23(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_padding_check_SSLv23 := LoadLibCryptoFunction('RSA_padding_check_SSLv23'); + if not assigned(RSA_padding_check_SSLv23) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_padding_check_SSLv23'); + Result := RSA_padding_check_SSLv23(to_,tlen,f,fl,rsa_len); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_RSA_padding_add_none(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_padding_add_none := LoadLibCryptoFunction('RSA_padding_add_none'); + if not assigned(RSA_padding_add_none) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_padding_add_none'); + Result := RSA_padding_add_none(to_,tlen,f,fl); +end; + +function Load_RSA_padding_check_none(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_padding_check_none := LoadLibCryptoFunction('RSA_padding_check_none'); + if not assigned(RSA_padding_check_none) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_padding_check_none'); + Result := RSA_padding_check_none(to_,tlen,f,fl,rsa_len); +end; + +function Load_RSA_padding_add_X931(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_padding_add_X931 := LoadLibCryptoFunction('RSA_padding_add_X931'); + if not assigned(RSA_padding_add_X931) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_padding_add_X931'); + Result := RSA_padding_add_X931(to_,tlen,f,fl); +end; + +function Load_RSA_padding_check_X931(to_: PByte; tlen: TOpenSSL_C_INT; const f: PByte; fl: TOpenSSL_C_INT; rsa_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_padding_check_X931 := LoadLibCryptoFunction('RSA_padding_check_X931'); + if not assigned(RSA_padding_check_X931) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_padding_check_X931'); + Result := RSA_padding_check_X931(to_,tlen,f,fl,rsa_len); +end; + +function Load_RSA_X931_hash_id(nid: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_X931_hash_id := LoadLibCryptoFunction('RSA_X931_hash_id'); + if not assigned(RSA_X931_hash_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_X931_hash_id'); + Result := RSA_X931_hash_id(nid); +end; + +function Load_RSA_verify_PKCS1_PSS(rsa: PRSA; const mHash: PByte; const Hash: PEVP_MD; const EM: PByte; sLen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_verify_PKCS1_PSS := LoadLibCryptoFunction('RSA_verify_PKCS1_PSS'); + if not assigned(RSA_verify_PKCS1_PSS) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_verify_PKCS1_PSS'); + Result := RSA_verify_PKCS1_PSS(rsa,mHash,Hash,EM,sLen); +end; + +function Load_RSA_padding_add_PKCS1_PSS(rsa: PRSA; EM: PByte; const mHash: PByte; const Hash: PEVP_MD; sLen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_padding_add_PKCS1_PSS := LoadLibCryptoFunction('RSA_padding_add_PKCS1_PSS'); + if not assigned(RSA_padding_add_PKCS1_PSS) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_padding_add_PKCS1_PSS'); + Result := RSA_padding_add_PKCS1_PSS(rsa,EM,mHash,Hash,sLen); +end; + +function Load_RSA_verify_PKCS1_PSS_mgf1(rsa: PRSA; const mHash: PByte; const Hash: PEVP_MD; const mgf1Hash: PEVP_MD; const EM: PByte; sLen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_verify_PKCS1_PSS_mgf1 := LoadLibCryptoFunction('RSA_verify_PKCS1_PSS_mgf1'); + if not assigned(RSA_verify_PKCS1_PSS_mgf1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_verify_PKCS1_PSS_mgf1'); + Result := RSA_verify_PKCS1_PSS_mgf1(rsa,mHash,Hash,mgf1Hash,EM,sLen); +end; + +function Load_RSA_padding_add_PKCS1_PSS_mgf1(rsa: PRSA; EM: PByte; const mHash: PByte; const Hash: PEVP_MD; const mgf1Hash: PEVP_MD; sLen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_padding_add_PKCS1_PSS_mgf1 := LoadLibCryptoFunction('RSA_padding_add_PKCS1_PSS_mgf1'); + if not assigned(RSA_padding_add_PKCS1_PSS_mgf1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_padding_add_PKCS1_PSS_mgf1'); + Result := RSA_padding_add_PKCS1_PSS_mgf1(rsa,EM,mHash,Hash,mgf1Hash,sLen); +end; + +function Load_RSA_set_ex_data(r: PRSA; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; +begin + RSA_set_ex_data := LoadLibCryptoFunction('RSA_set_ex_data'); + if not assigned(RSA_set_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_set_ex_data'); + Result := RSA_set_ex_data(r,idx,arg); +end; + +function Load_RSA_get_ex_data(const r: PRSA; idx: TOpenSSL_C_INT): Pointer; cdecl; +begin + RSA_get_ex_data := LoadLibCryptoFunction('RSA_get_ex_data'); + if not assigned(RSA_get_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_get_ex_data'); + Result := RSA_get_ex_data(r,idx); +end; + +function Load_RSAPublicKey_dup(rsa: PRSA): PRSA; cdecl; +begin + RSAPublicKey_dup := LoadLibCryptoFunction('RSAPublicKey_dup'); + if not assigned(RSAPublicKey_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSAPublicKey_dup'); + Result := RSAPublicKey_dup(rsa); +end; + +function Load_RSAPrivateKey_dup(rsa: PRSA): PRSA; cdecl; +begin + RSAPrivateKey_dup := LoadLibCryptoFunction('RSAPrivateKey_dup'); + if not assigned(RSAPrivateKey_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSAPrivateKey_dup'); + Result := RSAPrivateKey_dup(rsa); +end; + +function Load_RSA_meth_new(const name: PAnsiChar; flags: TOpenSSL_C_INT): PRSA_METHOD; cdecl; +begin + RSA_meth_new := LoadLibCryptoFunction('RSA_meth_new'); + if not assigned(RSA_meth_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_new'); + Result := RSA_meth_new(name,flags); +end; + +procedure Load_RSA_meth_free(meth: PRSA_METHOD); cdecl; +begin + RSA_meth_free := LoadLibCryptoFunction('RSA_meth_free'); + if not assigned(RSA_meth_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_free'); + RSA_meth_free(meth); +end; + +function Load_RSA_meth_dup(const meth: PRSA_METHOD): PRSA_METHOD; cdecl; +begin + RSA_meth_dup := LoadLibCryptoFunction('RSA_meth_dup'); + if not assigned(RSA_meth_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_dup'); + Result := RSA_meth_dup(meth); +end; + +function Load_RSA_meth_get0_name(const meth: PRSA_METHOD): PAnsiChar; cdecl; +begin + RSA_meth_get0_name := LoadLibCryptoFunction('RSA_meth_get0_name'); + if not assigned(RSA_meth_get0_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_get0_name'); + Result := RSA_meth_get0_name(meth); +end; + +function Load_RSA_meth_set1_name(meth: PRSA_METHOD; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + RSA_meth_set1_name := LoadLibCryptoFunction('RSA_meth_set1_name'); + if not assigned(RSA_meth_set1_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_set1_name'); + Result := RSA_meth_set1_name(meth,name); +end; + +function Load_RSA_meth_get_flags(const meth: PRSA_METHOD): TOpenSSL_C_INT; cdecl; +begin + RSA_meth_get_flags := LoadLibCryptoFunction('RSA_meth_get_flags'); + if not assigned(RSA_meth_get_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_get_flags'); + Result := RSA_meth_get_flags(meth); +end; + +function Load_RSA_meth_set_flags(meth: PRSA_METHOD; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + RSA_meth_set_flags := LoadLibCryptoFunction('RSA_meth_set_flags'); + if not assigned(RSA_meth_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_set_flags'); + Result := RSA_meth_set_flags(meth,flags); +end; + +function Load_RSA_meth_get0_app_data(const meth: PRSA_METHOD): Pointer; cdecl; +begin + RSA_meth_get0_app_data := LoadLibCryptoFunction('RSA_meth_get0_app_data'); + if not assigned(RSA_meth_get0_app_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_get0_app_data'); + Result := RSA_meth_get0_app_data(meth); +end; + +function Load_RSA_meth_set0_app_data(meth: PRSA_METHOD; app_data: Pointer): TOpenSSL_C_INT; cdecl; +begin + RSA_meth_set0_app_data := LoadLibCryptoFunction('RSA_meth_set0_app_data'); + if not assigned(RSA_meth_set0_app_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_set0_app_data'); + Result := RSA_meth_set0_app_data(meth,app_data); +end; + +function Load_RSA_meth_set_priv_dec(rsa: PRSA_METHOD; priv_dec: RSA_meth_set_priv_dec_priv_dec): TOpenSSL_C_INT; cdecl; +begin + RSA_meth_set_priv_dec := LoadLibCryptoFunction('RSA_meth_set_priv_dec'); + if not assigned(RSA_meth_set_priv_dec) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_set_priv_dec'); + Result := RSA_meth_set_priv_dec(rsa,priv_dec); +end; + +function Load_RSA_meth_set_mod_exp(rsa: PRSA_METHOD; mod_exp: RSA_meth_set_mod_exp_mod_exp): TOpenSSL_C_INT; cdecl; +begin + RSA_meth_set_mod_exp := LoadLibCryptoFunction('RSA_meth_set_mod_exp'); + if not assigned(RSA_meth_set_mod_exp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_set_mod_exp'); + Result := RSA_meth_set_mod_exp(rsa,mod_exp); +end; + +function Load_RSA_meth_set_bn_mod_exp(rsa: PRSA_METHOD; bn_mod_exp: RSA_meth_set_bn_mod_exp_bn_mod_exp): TOpenSSL_C_INT; cdecl; +begin + RSA_meth_set_bn_mod_exp := LoadLibCryptoFunction('RSA_meth_set_bn_mod_exp'); + if not assigned(RSA_meth_set_bn_mod_exp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_set_bn_mod_exp'); + Result := RSA_meth_set_bn_mod_exp(rsa,bn_mod_exp); +end; + +function Load_RSA_meth_set_init(rsa: PRSA_METHOD; init: RSA_meth_set_init_init): TOpenSSL_C_INT; cdecl; +begin + RSA_meth_set_init := LoadLibCryptoFunction('RSA_meth_set_init'); + if not assigned(RSA_meth_set_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_set_init'); + Result := RSA_meth_set_init(rsa,init); +end; + +function Load_RSA_meth_set_finish(rsa: PRSA_METHOD; finish: RSA_meth_set_finish_finish): TOpenSSL_C_INT; cdecl; +begin + RSA_meth_set_finish := LoadLibCryptoFunction('RSA_meth_set_finish'); + if not assigned(RSA_meth_set_finish) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_set_finish'); + Result := RSA_meth_set_finish(rsa,finish); +end; + +function Load_RSA_meth_set_sign(rsa: PRSA_METHOD; sign: RSA_meth_set_sign_sign): TOpenSSL_C_INT; cdecl; +begin + RSA_meth_set_sign := LoadLibCryptoFunction('RSA_meth_set_sign'); + if not assigned(RSA_meth_set_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_set_sign'); + Result := RSA_meth_set_sign(rsa,sign); +end; + +function Load_RSA_meth_set_verify(rsa: PRSA_METHOD; verify: RSA_meth_set_verify_verify): TOpenSSL_C_INT; cdecl; +begin + RSA_meth_set_verify := LoadLibCryptoFunction('RSA_meth_set_verify'); + if not assigned(RSA_meth_set_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_set_verify'); + Result := RSA_meth_set_verify(rsa,verify); +end; + +function Load_RSA_meth_set_keygen(rsa: PRSA_METHOD; keygen: RSA_meth_set_keygen_keygen): TOpenSSL_C_INT; cdecl; +begin + RSA_meth_set_keygen := LoadLibCryptoFunction('RSA_meth_set_keygen'); + if not assigned(RSA_meth_set_keygen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_set_keygen'); + Result := RSA_meth_set_keygen(rsa,keygen); +end; + +function Load_RSA_meth_set_multi_prime_keygen(meth: PRSA_METHOD; keygen: RSA_meth_set_multi_prime_keygen_keygen): TOpenSSL_C_INT; cdecl; +begin + RSA_meth_set_multi_prime_keygen := LoadLibCryptoFunction('RSA_meth_set_multi_prime_keygen'); + if not assigned(RSA_meth_set_multi_prime_keygen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('RSA_meth_set_multi_prime_keygen'); + Result := RSA_meth_set_multi_prime_keygen(meth,keygen); +end; + + +procedure UnLoad; +begin + RSA_new := Load_RSA_new; + RSA_new_method := Load_RSA_new_method; + RSA_bits := Load_RSA_bits; + RSA_size := Load_RSA_size; + RSA_security_bits := Load_RSA_security_bits; + RSA_set0_key := Load_RSA_set0_key; + RSA_set0_factors := Load_RSA_set0_factors; + RSA_set0_crt_params := Load_RSA_set0_crt_params; + RSA_get0_key := Load_RSA_get0_key; + RSA_get0_factors := Load_RSA_get0_factors; + RSA_get_multi_prime_extra_count := Load_RSA_get_multi_prime_extra_count; + RSA_get0_crt_params := Load_RSA_get0_crt_params; + RSA_get0_n := Load_RSA_get0_n; + RSA_get0_e := Load_RSA_get0_e; + RSA_get0_d := Load_RSA_get0_d; + RSA_get0_p := Load_RSA_get0_p; + RSA_get0_q := Load_RSA_get0_q; + RSA_get0_dmp1 := Load_RSA_get0_dmp1; + RSA_get0_dmq1 := Load_RSA_get0_dmq1; + RSA_get0_iqmp := Load_RSA_get0_iqmp; + RSA_clear_flags := Load_RSA_clear_flags; + RSA_test_flags := Load_RSA_test_flags; + RSA_set_flags := Load_RSA_set_flags; + RSA_get_version := Load_RSA_get_version; + RSA_get0_engine := Load_RSA_get0_engine; + RSA_generate_key_ex := Load_RSA_generate_key_ex; + RSA_generate_multi_prime_key := Load_RSA_generate_multi_prime_key; + RSA_X931_derive_ex := Load_RSA_X931_derive_ex; + RSA_X931_generate_key_ex := Load_RSA_X931_generate_key_ex; + RSA_check_key := Load_RSA_check_key; + RSA_check_key_ex := Load_RSA_check_key_ex; + RSA_public_encrypt := Load_RSA_public_encrypt; + RSA_private_encrypt := Load_RSA_private_encrypt; + RSA_public_decrypt := Load_RSA_public_decrypt; + RSA_private_decrypt := Load_RSA_private_decrypt; + RSA_free := Load_RSA_free; + RSA_up_ref := Load_RSA_up_ref; + RSA_flags := Load_RSA_flags; + RSA_set_default_method := Load_RSA_set_default_method; + RSA_get_default_method := Load_RSA_get_default_method; + RSA_null_method := Load_RSA_null_method; + RSA_get_method := Load_RSA_get_method; + RSA_set_method := Load_RSA_set_method; + RSA_PKCS1_OpenSSL := Load_RSA_PKCS1_OpenSSL; + RSA_pkey_ctx_ctrl := Load_RSA_pkey_ctx_ctrl; + RSA_print := Load_RSA_print; + RSA_sign := Load_RSA_sign; + RSA_verify := Load_RSA_verify; + RSA_sign_ASN1_OCTET_STRING := Load_RSA_sign_ASN1_OCTET_STRING; + RSA_verify_ASN1_OCTET_STRING := Load_RSA_verify_ASN1_OCTET_STRING; + RSA_blinding_on := Load_RSA_blinding_on; + RSA_blinding_off := Load_RSA_blinding_off; + RSA_setup_blinding := Load_RSA_setup_blinding; + RSA_padding_add_PKCS1_type_1 := Load_RSA_padding_add_PKCS1_type_1; + RSA_padding_check_PKCS1_type_1 := Load_RSA_padding_check_PKCS1_type_1; + RSA_padding_add_PKCS1_type_2 := Load_RSA_padding_add_PKCS1_type_2; + RSA_padding_check_PKCS1_type_2 := Load_RSA_padding_check_PKCS1_type_2; + PKCS1_MGF1 := Load_PKCS1_MGF1; + RSA_padding_add_PKCS1_OAEP := Load_RSA_padding_add_PKCS1_OAEP; + RSA_padding_check_PKCS1_OAEP := Load_RSA_padding_check_PKCS1_OAEP; + RSA_padding_add_PKCS1_OAEP_mgf1 := Load_RSA_padding_add_PKCS1_OAEP_mgf1; + RSA_padding_check_PKCS1_OAEP_mgf1 := Load_RSA_padding_check_PKCS1_OAEP_mgf1; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + RSA_padding_add_SSLv23 := Load_RSA_padding_add_SSLv23; + RSA_padding_check_SSLv23 := Load_RSA_padding_check_SSLv23; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + RSA_padding_add_none := Load_RSA_padding_add_none; + RSA_padding_check_none := Load_RSA_padding_check_none; + RSA_padding_add_X931 := Load_RSA_padding_add_X931; + RSA_padding_check_X931 := Load_RSA_padding_check_X931; + RSA_X931_hash_id := Load_RSA_X931_hash_id; + RSA_verify_PKCS1_PSS := Load_RSA_verify_PKCS1_PSS; + RSA_padding_add_PKCS1_PSS := Load_RSA_padding_add_PKCS1_PSS; + RSA_verify_PKCS1_PSS_mgf1 := Load_RSA_verify_PKCS1_PSS_mgf1; + RSA_padding_add_PKCS1_PSS_mgf1 := Load_RSA_padding_add_PKCS1_PSS_mgf1; + RSA_set_ex_data := Load_RSA_set_ex_data; + RSA_get_ex_data := Load_RSA_get_ex_data; + RSAPublicKey_dup := Load_RSAPublicKey_dup; + RSAPrivateKey_dup := Load_RSAPrivateKey_dup; + RSA_meth_new := Load_RSA_meth_new; + RSA_meth_free := Load_RSA_meth_free; + RSA_meth_dup := Load_RSA_meth_dup; + RSA_meth_get0_name := Load_RSA_meth_get0_name; + RSA_meth_set1_name := Load_RSA_meth_set1_name; + RSA_meth_get_flags := Load_RSA_meth_get_flags; + RSA_meth_set_flags := Load_RSA_meth_set_flags; + RSA_meth_get0_app_data := Load_RSA_meth_get0_app_data; + RSA_meth_set0_app_data := Load_RSA_meth_set0_app_data; + RSA_meth_set_priv_dec := Load_RSA_meth_set_priv_dec; + RSA_meth_set_mod_exp := Load_RSA_meth_set_mod_exp; + RSA_meth_set_bn_mod_exp := Load_RSA_meth_set_bn_mod_exp; + RSA_meth_set_init := Load_RSA_meth_set_init; + RSA_meth_set_finish := Load_RSA_meth_set_finish; + RSA_meth_set_sign := Load_RSA_meth_set_sign; + RSA_meth_set_verify := Load_RSA_meth_set_verify; + RSA_meth_set_keygen := Load_RSA_meth_set_keygen; + RSA_meth_set_multi_prime_keygen := Load_RSA_meth_set_multi_prime_keygen; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_rsaerr.pas b/src/opensslHdrs/IdOpenSSLHeaders_rsaerr.pas new file mode 100644 index 0000000..a753068 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_rsaerr.pas @@ -0,0 +1,241 @@ +(* This unit was generated from the source file rsaerr.h2pas +It should not be modified directly. All changes should be made to rsaerr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_rsaerr; + + +interface + +// Headers for OpenSSL 1.1.1 +// rsaerr.h + + +uses + IdSSLOpenSSLAPI; + +const + (* + * RSA function codes. + *) + RSA_F_CHECK_PADDING_MD = 140; + RSA_F_ENCODE_PKCS1 = 146; + RSA_F_INT_RSA_VERIFY = 145; + RSA_F_OLD_RSA_PRIV_DECODE = 147; + RSA_F_PKEY_PSS_INIT = 165; + RSA_F_PKEY_RSA_CTRL = 143; + RSA_F_PKEY_RSA_CTRL_STR = 144; + RSA_F_PKEY_RSA_SIGN = 142; + RSA_F_PKEY_RSA_VERIFY = 149; + RSA_F_PKEY_RSA_VERIFYRECOVER = 141; + RSA_F_RSA_ALGOR_TO_MD = 156; + RSA_F_RSA_BUILTIN_KEYGEN = 129; + RSA_F_RSA_CHECK_KEY = 123; + RSA_F_RSA_CHECK_KEY_EX = 160; + RSA_F_RSA_CMS_DECRYPT = 159; + RSA_F_RSA_CMS_VERIFY = 158; + RSA_F_RSA_ITEM_VERIFY = 148; + RSA_F_RSA_METH_DUP = 161; + RSA_F_RSA_METH_NEW = 162; + RSA_F_RSA_METH_SET1_NAME = 163; + RSA_F_RSA_MGF1_TO_MD = 157; + RSA_F_RSA_MULTIP_INFO_NEW = 166; + RSA_F_RSA_NEW_METHOD = 106; + RSA_F_RSA_NULL = 124; + RSA_F_RSA_NULL_PRIVATE_DECRYPT = 132; + RSA_F_RSA_NULL_PRIVATE_ENCRYPT = 133; + RSA_F_RSA_NULL_PUBLIC_DECRYPT = 134; + RSA_F_RSA_NULL_PUBLIC_ENCRYPT = 135; + RSA_F_RSA_OSSL_PRIVATE_DECRYPT = 101; + RSA_F_RSA_OSSL_PRIVATE_ENCRYPT = 102; + RSA_F_RSA_OSSL_PUBLIC_DECRYPT = 103; + RSA_F_RSA_OSSL_PUBLIC_ENCRYPT = 104; + RSA_F_RSA_PADDING_ADD_NONE = 107; + RSA_F_RSA_PADDING_ADD_PKCS1_OAEP = 121; + RSA_F_RSA_PADDING_ADD_PKCS1_OAEP_MGF1 = 154; + RSA_F_RSA_PADDING_ADD_PKCS1_PSS = 125; + RSA_F_RSA_PADDING_ADD_PKCS1_PSS_MGF1 = 152; + RSA_F_RSA_PADDING_ADD_PKCS1_TYPE_1 = 108; + RSA_F_RSA_PADDING_ADD_PKCS1_TYPE_2 = 109; + RSA_F_RSA_PADDING_ADD_SSLV23 = 110; + RSA_F_RSA_PADDING_ADD_X931 = 127; + RSA_F_RSA_PADDING_CHECK_NONE = 111; + RSA_F_RSA_PADDING_CHECK_PKCS1_OAEP = 122; + RSA_F_RSA_PADDING_CHECK_PKCS1_OAEP_MGF1 = 153; + RSA_F_RSA_PADDING_CHECK_PKCS1_TYPE_1 = 112; + RSA_F_RSA_PADDING_CHECK_PKCS1_TYPE_2 = 113; + RSA_F_RSA_PADDING_CHECK_SSLV23 = 114; + RSA_F_RSA_PADDING_CHECK_X931 = 128; + RSA_F_RSA_PARAM_DECODE = 164; + RSA_F_RSA_PRINT = 115; + RSA_F_RSA_PRINT_FP = 116; + RSA_F_RSA_PRIV_DECODE = 150; + RSA_F_RSA_PRIV_ENCODE = 138; + RSA_F_RSA_PSS_GET_PARAM = 151; + RSA_F_RSA_PSS_TO_CTX = 155; + RSA_F_RSA_PUB_DECODE = 139; + RSA_F_RSA_SETUP_BLINDING = 136; + RSA_F_RSA_SIGN = 117; + RSA_F_RSA_SIGN_ASN1_OCTET_STRING = 118; + RSA_F_RSA_VERIFY = 119; + RSA_F_RSA_VERIFY_ASN1_OCTET_STRING = 120; + RSA_F_RSA_VERIFY_PKCS1_PSS_MGF1 = 126; + RSA_F_SETUP_TBUF = 167; + + (* + * RSA reason codes. + *) + RSA_R_ALGORITHM_MISMATCH = 100; + RSA_R_BAD_E_VALUE = 101; + RSA_R_BAD_FIXED_HEADER_DECRYPT = 102; + RSA_R_BAD_PAD_BYTE_COUNT = 103; + RSA_R_BAD_SIGNATURE = 104; + RSA_R_BLOCK_TYPE_IS_NOT_01 = 106; + RSA_R_BLOCK_TYPE_IS_NOT_02 = 107; + RSA_R_DATA_GREATER_THAN_MOD_LEN = 108; + RSA_R_DATA_TOO_LARGE = 109; + RSA_R_DATA_TOO_LARGE_FOR_KEY_SIZE = 110; + RSA_R_DATA_TOO_LARGE_FOR_MODULUS = 132; + RSA_R_DATA_TOO_SMALL = 111; + RSA_R_DATA_TOO_SMALL_FOR_KEY_SIZE = 122; + RSA_R_DIGEST_DOES_NOT_MATCH = 158; + RSA_R_DIGEST_NOT_ALLOWED = 145; + RSA_R_DIGEST_TOO_BIG_FOR_RSA_KEY = 112; + RSA_R_DMP1_NOT_CONGRUENT_TO_D = 124; + RSA_R_DMQ1_NOT_CONGRUENT_TO_D = 125; + RSA_R_D_E_NOT_CONGRUENT_TO_1 = 123; + RSA_R_FIRST_OCTET_INVALID = 133; + RSA_R_ILLEGAL_OR_UNSUPPORTED_PADDING_MODE = 144; + RSA_R_INVALID_DIGEST = 157; + RSA_R_INVALID_DIGEST_LENGTH = 143; + RSA_R_INVALID_HEADER = 137; + RSA_R_INVALID_LABEL = 160; + RSA_R_INVALID_MESSAGE_LENGTH = 131; + RSA_R_INVALID_MGF1_MD = 156; + RSA_R_INVALID_MULTI_PRIME_KEY = 167; + RSA_R_INVALID_OAEP_PARAMETERS = 161; + RSA_R_INVALID_PADDING = 138; + RSA_R_INVALID_PADDING_MODE = 141; + RSA_R_INVALID_PSS_PARAMETERS = 149; + RSA_R_INVALID_PSS_SALTLEN = 146; + RSA_R_INVALID_SALT_LENGTH = 150; + RSA_R_INVALID_TRAILER = 139; + RSA_R_INVALID_X931_DIGEST = 142; + RSA_R_IQMP_NOT_INVERSE_OF_Q = 126; + RSA_R_KEY_PRIME_NUM_INVALID = 165; + RSA_R_KEY_SIZE_TOO_SMALL = 120; + RSA_R_LAST_OCTET_INVALID = 134; + RSA_R_MISSING_PRIVATE_KEY = 179; + RSA_R_MGF1_DIGEST_NOT_ALLOWED = 152; + RSA_R_MODULUS_TOO_LARGE = 105; + RSA_R_MP_COEFFICIENT_NOT_INVERSE_OF_R = 168; + RSA_R_MP_EXPONENT_NOT_CONGRUENT_TO_D = 169; + RSA_R_MP_R_NOT_PRIME = 170; + RSA_R_NO_PUBLIC_EXPONENT = 140; + RSA_R_NULL_BEFORE_BLOCK_MISSING = 113; + RSA_R_N_DOES_NOT_EQUAL_PRODUCT_OF_PRIMES = 172; + RSA_R_N_DOES_NOT_EQUAL_P_Q = 127; + RSA_R_OAEP_DECODING_ERROR = 121; + RSA_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE = 148; + RSA_R_PADDING_CHECK_FAILED = 114; + RSA_R_PKCS_DECODING_ERROR = 159; + RSA_R_PSS_SALTLEN_TOO_SMALL = 164; + RSA_R_P_NOT_PRIME = 128; + RSA_R_Q_NOT_PRIME = 129; + RSA_R_RSA_OPERATIONS_NOT_SUPPORTED = 130; + RSA_R_SLEN_CHECK_FAILED = 136; + RSA_R_SLEN_RECOVERY_FAILED = 135; + RSA_R_SSLV3_ROLLBACK_ATTACK = 115; + RSA_R_THE_ASN1_OBJECT_IDENTIFIER_IS_NOT_KNOWN_FOR_THIS_MD = 116; + RSA_R_UNKNOWN_ALGORITHM_TYPE = 117; + RSA_R_UNKNOWN_DIGEST = 166; + RSA_R_UNKNOWN_MASK_DIGEST = 151; + RSA_R_UNKNOWN_PADDING_TYPE = 118; + RSA_R_UNSUPPORTED_ENCRYPTION_TYPE = 162; + RSA_R_UNSUPPORTED_LABEL_SOURCE = 163; + RSA_R_UNSUPPORTED_MASK_ALGORITHM = 153; + RSA_R_UNSUPPORTED_MASK_PARAMETER = 154; + RSA_R_UNSUPPORTED_SIGNATURE_TYPE = 155; + RSA_R_VALUE_MISSING = 147; + RSA_R_WRONG_SIGNATURE_LENGTH = 119; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_RSA_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_RSA_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_RSA_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_RSA_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_RSA_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_RSA_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_RSA_strings := LoadLibCryptoFunction('ERR_load_RSA_strings'); + if not assigned(ERR_load_RSA_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_RSA_strings'); + Result := ERR_load_RSA_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_RSA_strings := Load_ERR_load_RSA_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_safestack.pas b/src/opensslHdrs/IdOpenSSLHeaders_safestack.pas new file mode 100644 index 0000000..e8e9092 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_safestack.pas @@ -0,0 +1,248 @@ +(* This unit was generated from the source file safestack.h2pas +It should not be modified directly. All changes should be made to safestack.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + +unit IdOpenSSLHeaders_safestack; + + +interface + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_stack; + +type + POPENSSL_STRING = PAnsiChar; + + PSTACK_OF_OPENSSL_STRING = pointer; + sk_OPENSSL_STRING_compfunc = function(a: PPAnsiChar; b: PPAnsiChar): TOpenSSL_C_INT; + sk_OPENSSL_STRING_freefunc = procedure(a: PAnsiChar); + sk_OPENSSL_STRING_copyfunc = function(a: PAnsiChar): PAnsiChar; + + +function sk_OPENSSL_STRING_num(sk: PSTACK_OF_OPENSSL_STRING): TOpenSSL_C_INT; + +function sk_OPENSSL_STRING_value(sk: PSTACK_OF_OPENSSL_STRING; idx: TOpenSSL_C_INT): PAnsiChar; +function sk_OPENSSL_STRING_new(compare: sk_OPENSSL_STRING_compfunc): PSTACK_OF_OPENSSL_STRING; +function sk_OPENSSL_STRING_new_null: PSTACK_OF_OPENSSL_STRING; +procedure sk_OPENSSL_STRING_free(sk: PSTACK_OF_OPENSSL_STRING); +procedure sk_OPENSSL_STRING_zero(sk: PSTACK_OF_OPENSSL_STRING); +function sk_OPENSSL_STRING_delete(sk: PSTACK_OF_OPENSSL_STRING; i: TOpenSSL_C_INT) + : PAnsiChar; +function sk_OPENSSL_STRING_delete_ptr(sk: PSTACK_OF_OPENSSL_STRING; + ptr: PAnsiChar): PAnsiChar; +function sk_OPENSSL_STRING_push(sk: PSTACK_OF_OPENSSL_STRING; ptr: PAnsiChar) + : TOpenSSL_C_INT; +function sk_OPENSSL_STRING_unshift(sk: PSTACK_OF_OPENSSL_STRING; ptr: PAnsiChar) + : TOpenSSL_C_INT; +function sk_OPENSSL_STRING_pop(sk: PSTACK_OF_OPENSSL_STRING): PAnsiChar; +function sk_OPENSSL_STRING_shift(sk: PSTACK_OF_OPENSSL_STRING): PAnsiChar; +procedure sk_OPENSSL_STRING_pop_free(sk: PSTACK_OF_OPENSSL_STRING; + freefunc: sk_OPENSSL_STRING_freefunc); +function sk_OPENSSL_STRING_insert(sk: PSTACK_OF_OPENSSL_STRING; ptr: PAnsiChar; + idx: TOpenSSL_C_INT): TOpenSSL_C_INT; +function sk_OPENSSL_STRING_set(sk: PSTACK_OF_OPENSSL_STRING; idx: TOpenSSL_C_INT; + ptr: PAnsiChar): PAnsiChar; +function sk_OPENSSL_STRING_find(sk: PSTACK_OF_OPENSSL_STRING; ptr: PAnsiChar) + : TOpenSSL_C_INT; +function sk_OPENSSL_STRING_find_ex(sk: PSTACK_OF_OPENSSL_STRING; ptr: PAnsiChar) + : TOpenSSL_C_INT; +procedure sk_OPENSSL_STRING_sort(sk: PSTACK_OF_OPENSSL_STRING); +function sk_OPENSSL_STRING_is_sorted(sk: PSTACK_OF_OPENSSL_STRING): TOpenSSL_C_INT; +function sk_OPENSSL_STRING_dup(sk: PSTACK_OF_OPENSSL_STRING): PSTACK_OF_OPENSSL_STRING; +function sk_OPENSSL_STRING_deep_copy(sk: PSTACK_OF_OPENSSL_STRING; + copyfunc: sk_OPENSSL_STRING_copyfunc; freefunc: sk_OPENSSL_STRING_freefunc) + : PSTACK_OF_OPENSSL_STRING; +function sk_OPENSSL_STRING_set_cmp_func(sk: PSTACK_OF_OPENSSL_STRING; + compare: sk_OPENSSL_STRING_compfunc): sk_OPENSSL_STRING_compfunc; + + + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} + +{$ELSE} + +{$ENDIF} + +implementation + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + + +function sk_OPENSSL_STRING_num(sk: PSTACK_OF_OPENSSL_STRING): TOpenSSL_C_INT; +begin + Result := OPENSSL_sk_num(POPENSSL_STACK(sk)); +end; + +function sk_OPENSSL_STRING_value(sk: PSTACK_OF_OPENSSL_STRING; idx: TOpenSSL_C_INT) + : PAnsiChar; +begin + Result := PAnsiChar(OPENSSL_sk_value(POPENSSL_STACK(sk), idx)); +end; + +function sk_OPENSSL_STRING_new(compare: sk_OPENSSL_STRING_compfunc) + : PSTACK_OF_OPENSSL_STRING; +begin + Result := PSTACK_OF_OPENSSL_STRING + (OPENSSL_sk_new(TOPENSSL_sk_compfunc(compare))); +end; + +function sk_OPENSSL_STRING_new_null: PSTACK_OF_OPENSSL_STRING; +begin + Result := PSTACK_OF_OPENSSL_STRING(OPENSSL_sk_new_null); +end; + +procedure sk_OPENSSL_STRING_free(sk: PSTACK_OF_OPENSSL_STRING); +begin + OPENSSL_sk_free(POPENSSL_STACK(sk)); +end; + +procedure sk_OPENSSL_STRING_zero(sk: PSTACK_OF_OPENSSL_STRING); +begin + OPENSSL_sk_zero(POPENSSL_STACK(sk)); +end; +function sk_OPENSSL_STRING_delete(sk: PSTACK_OF_OPENSSL_STRING; i: TOpenSSL_C_INT) + : PAnsiChar; +begin + Result := PAnsiChar(OPENSSL_sk_delete(POPENSSL_STACK(sk), i)); +end; + +function sk_OPENSSL_STRING_delete_ptr(sk: PSTACK_OF_OPENSSL_STRING; + ptr: PAnsiChar): PAnsiChar; +begin + Result := PAnsiChar(OPENSSL_sk_delete_ptr(POPENSSL_STACK(sk), pointer(ptr))); +end; + +function sk_OPENSSL_STRING_push(sk: PSTACK_OF_OPENSSL_STRING; ptr: PAnsiChar) + : TOpenSSL_C_INT; +begin + Result := OPENSSL_sk_push(POPENSSL_STACK(sk), pointer(ptr)); +end; + +function sk_OPENSSL_STRING_unshift(sk: PSTACK_OF_OPENSSL_STRING; ptr: PAnsiChar) + : TOpenSSL_C_INT; +begin + Result := OPENSSL_sk_unshift(POPENSSL_STACK(sk), pointer(ptr)); +end; + +function sk_OPENSSL_STRING_pop(sk: PSTACK_OF_OPENSSL_STRING): PAnsiChar; +begin + Result := PAnsiChar(OPENSSL_sk_pop(POPENSSL_STACK(sk))); +end; + +function sk_OPENSSL_STRING_shift(sk: PSTACK_OF_OPENSSL_STRING): PAnsiChar; +begin + Result := PAnsiChar(OPENSSL_sk_shift(POPENSSL_STACK(sk))); +end; + +procedure sk_OPENSSL_STRING_pop_free(sk: PSTACK_OF_OPENSSL_STRING; + freefunc: sk_OPENSSL_STRING_freefunc); +begin + OPENSSL_sk_pop_free(POPENSSL_STACK(sk), TOPENSSL_sk_freefunc(freefunc)); +end; + +function sk_OPENSSL_STRING_insert(sk: PSTACK_OF_OPENSSL_STRING; ptr: PAnsiChar; + idx: TOpenSSL_C_INT): TOpenSSL_C_INT; +begin + Result := OPENSSL_sk_insert(POPENSSL_STACK(sk), pointer(ptr), idx); +end; + +function sk_OPENSSL_STRING_set(sk: PSTACK_OF_OPENSSL_STRING; idx: TOpenSSL_C_INT; + ptr: PAnsiChar): PAnsiChar; +begin + Result := PAnsiChar(OPENSSL_sk_set(POPENSSL_STACK(sk), idx, pointer(ptr))); +end; + +function sk_OPENSSL_STRING_find(sk: PSTACK_OF_OPENSSL_STRING; ptr: PAnsiChar) + : TOpenSSL_C_INT; +begin + Result := OPENSSL_sk_find(POPENSSL_STACK(sk), pointer(ptr)); +end; + +function sk_OPENSSL_STRING_find_ex(sk: PSTACK_OF_OPENSSL_STRING; ptr: PAnsiChar) + : TOpenSSL_C_INT; +begin + Result := OPENSSL_sk_find_ex(POPENSSL_STACK(sk), pointer(ptr)); +end; + +procedure sk_OPENSSL_STRING_sort(sk: PSTACK_OF_OPENSSL_STRING); +begin + OPENSSL_sk_sort(POPENSSL_STACK(sk)); +end; + +function sk_OPENSSL_STRING_is_sorted(sk: PSTACK_OF_OPENSSL_STRING): TOpenSSL_C_INT; +begin + Result := OPENSSL_sk_is_sorted(POPENSSL_STACK(sk)); +end; + +function sk_OPENSSL_STRING_dup(sk: PSTACK_OF_OPENSSL_STRING) + : PSTACK_OF_OPENSSL_STRING; +begin + Result := PSTACK_OF_OPENSSL_STRING(OPENSSL_sk_dup(POPENSSL_STACK(sk))); +end; + +function sk_OPENSSL_STRING_deep_copy(sk: PSTACK_OF_OPENSSL_STRING; + copyfunc: sk_OPENSSL_STRING_copyfunc; freefunc: sk_OPENSSL_STRING_freefunc) + : PSTACK_OF_OPENSSL_STRING; +begin + Result := PSTACK_OF_OPENSSL_STRING(OPENSSL_sk_deep_copy(POPENSSL_STACK(sk), + TOPENSSL_sk_copyfunc(copyfunc), TOPENSSL_sk_freefunc(freefunc))); +end; + +function sk_OPENSSL_STRING_set_cmp_func(sk: PSTACK_OF_OPENSSL_STRING; + compare: sk_OPENSSL_STRING_compfunc): sk_OPENSSL_STRING_compfunc; +begin + Result := sk_OPENSSL_STRING_compfunc + (OPENSSL_sk_set_cmp_func(POPENSSL_STACK(sk), + TOPENSSL_sk_compfunc(compare))); +end; + + + + + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_sha.pas b/src/opensslHdrs/IdOpenSSLHeaders_sha.pas new file mode 100644 index 0000000..3d096b4 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_sha.pas @@ -0,0 +1,436 @@ +(* This unit was generated from the source file sha.h2pas +It should not be modified directly. All changes should be made to sha.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_sha; + + +interface + +// Headers for OpenSSL 1.1.1 +// sha.h + + +uses + IdSSLOpenSSLAPI; + +const + SHA_LBLOCK = 16; + SHA_CBLOCK = SHA_LBLOCK * 4; + + SHA_LAST_BLOCK = SHA_CBLOCK - 8; + SHA_DIGEST_LENGTH = 20; + + SHA256_CBLOCK = SHA_LBLOCK * 4; + + SHA224_DIGEST_LENGTH = 28; + SHA256_DIGEST_LENGTH = 32; + SHA384_DIGEST_LENGTH = 48; + SHA512_DIGEST_LENGTH = 64; + + SHA512_CBLOCK = SHA_LBLOCK * 8; + +type + SHA_LONG = TOpenSSL_C_UINT; + + SHAstate_sf = record + h0, h1, h2, h3, h4: SHA_LONG; + Nl, Nh: SHA_LONG; + data: array[0 .. SHA_LAST_BLOCK - 1] of SHA_LONG; + num: TOpenSSL_C_UINT; + end; + SHA_CTX = SHAstate_sf; + PSHA_CTX = ^SHA_CTX; + + SHAstate256_sf = record + h: array[0..7] of SHA_LONG; + Nl, Nh: SHA_LONG; + data: array[0 .. SHA_LAST_BLOCK - 1] of SHA_LONG; + num, md_len: TOpenSSL_C_UINT; + end; + SHA256_CTX = SHAstate256_sf; + PSHA256_CTX = ^SHA256_CTX; + + SHA_LONG64 = TOpenSSL_C_UINT64; + + SHA512state_st_u = record + case Integer of + 0: (d: array[0 .. SHA_LBLOCK - 1] of SHA_LONG64); + 1: (p: array[0 .. SHA512_CBLOCK - 1] of Byte); + end; + + SHA512state_st = record + h: array[0..7] of SHA_LONG64; + Nl, Nh: SHA_LONG64; + u: SHA512state_st_u; + num, md_len: TOpenSSL_C_UINT; + end; + SHA512_CTX = SHA512state_st; + PSHA512_CTX = ^SHA512_CTX; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM SHA1_Init} +{$EXTERNALSYM SHA1_Update} +{$EXTERNALSYM SHA1_Final} +{$EXTERNALSYM SHA1} +{$EXTERNALSYM SHA1_Transform} +{$EXTERNALSYM SHA224_Init} +{$EXTERNALSYM SHA224_Update} +{$EXTERNALSYM SHA224_Final} +{$EXTERNALSYM SHA224} +{$EXTERNALSYM SHA256_Init} +{$EXTERNALSYM SHA256_Update} +{$EXTERNALSYM SHA256_Final} +{$EXTERNALSYM SHA256} +{$EXTERNALSYM SHA256_Transform} +{$EXTERNALSYM SHA384_Init} +{$EXTERNALSYM SHA384_Update} +{$EXTERNALSYM SHA384_Final} +{$EXTERNALSYM SHA384} +{$EXTERNALSYM SHA512_Init} +{$EXTERNALSYM SHA512_Update} +{$EXTERNALSYM SHA512_Final} +{$EXTERNALSYM SHA512} +{$EXTERNALSYM SHA512_Transform} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function SHA1_Init(c: PSHA_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SHA1_Update(c: PSHA_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SHA1_Final(md: PByte; c: PSHA_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SHA1(const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; external CLibCrypto; +procedure SHA1_Transform(c: PSHA_CTX; const data: PByte); cdecl; external CLibCrypto; +function SHA224_Init(c: PSHA256_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SHA224_Update(c: PSHA256_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SHA224_Final(md: PByte; c: PSHA256_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SHA224(const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; external CLibCrypto; +function SHA256_Init(c: PSHA256_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SHA256_Update(c: PSHA256_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SHA256_Final(md: PByte; c: PSHA256_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SHA256(const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; external CLibCrypto; +procedure SHA256_Transform(c: PSHA256_CTX; const data: PByte); cdecl; external CLibCrypto; +function SHA384_Init(c: PSHA512_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SHA384_Update(c: PSHA512_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SHA384_Final(md: PByte; c: PSHA512_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SHA384(const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; external CLibCrypto; +function SHA512_Init(c: PSHA512_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SHA512_Update(c: PSHA512_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SHA512_Final(md: PByte; c: PSHA512_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SHA512(const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; external CLibCrypto; +procedure SHA512_Transform(c: PSHA512_CTX; const data: PByte); cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_SHA1_Init(c: PSHA_CTX): TOpenSSL_C_INT; cdecl; +function Load_SHA1_Update(c: PSHA_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SHA1_Final(md: PByte; c: PSHA_CTX): TOpenSSL_C_INT; cdecl; +function Load_SHA1(const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; +procedure Load_SHA1_Transform(c: PSHA_CTX; const data: PByte); cdecl; +function Load_SHA224_Init(c: PSHA256_CTX): TOpenSSL_C_INT; cdecl; +function Load_SHA224_Update(c: PSHA256_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SHA224_Final(md: PByte; c: PSHA256_CTX): TOpenSSL_C_INT; cdecl; +function Load_SHA224(const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; +function Load_SHA256_Init(c: PSHA256_CTX): TOpenSSL_C_INT; cdecl; +function Load_SHA256_Update(c: PSHA256_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SHA256_Final(md: PByte; c: PSHA256_CTX): TOpenSSL_C_INT; cdecl; +function Load_SHA256(const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; +procedure Load_SHA256_Transform(c: PSHA256_CTX; const data: PByte); cdecl; +function Load_SHA384_Init(c: PSHA512_CTX): TOpenSSL_C_INT; cdecl; +function Load_SHA384_Update(c: PSHA512_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SHA384_Final(md: PByte; c: PSHA512_CTX): TOpenSSL_C_INT; cdecl; +function Load_SHA384(const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; +function Load_SHA512_Init(c: PSHA512_CTX): TOpenSSL_C_INT; cdecl; +function Load_SHA512_Update(c: PSHA512_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SHA512_Final(md: PByte; c: PSHA512_CTX): TOpenSSL_C_INT; cdecl; +function Load_SHA512(const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; +procedure Load_SHA512_Transform(c: PSHA512_CTX; const data: PByte); cdecl; + +var + SHA1_Init: function (c: PSHA_CTX): TOpenSSL_C_INT; cdecl = Load_SHA1_Init; + SHA1_Update: function (c: PSHA_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SHA1_Update; + SHA1_Final: function (md: PByte; c: PSHA_CTX): TOpenSSL_C_INT; cdecl = Load_SHA1_Final; + SHA1: function (const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl = Load_SHA1; + SHA1_Transform: procedure (c: PSHA_CTX; const data: PByte); cdecl = Load_SHA1_Transform; + SHA224_Init: function (c: PSHA256_CTX): TOpenSSL_C_INT; cdecl = Load_SHA224_Init; + SHA224_Update: function (c: PSHA256_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SHA224_Update; + SHA224_Final: function (md: PByte; c: PSHA256_CTX): TOpenSSL_C_INT; cdecl = Load_SHA224_Final; + SHA224: function (const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl = Load_SHA224; + SHA256_Init: function (c: PSHA256_CTX): TOpenSSL_C_INT; cdecl = Load_SHA256_Init; + SHA256_Update: function (c: PSHA256_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SHA256_Update; + SHA256_Final: function (md: PByte; c: PSHA256_CTX): TOpenSSL_C_INT; cdecl = Load_SHA256_Final; + SHA256: function (const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl = Load_SHA256; + SHA256_Transform: procedure (c: PSHA256_CTX; const data: PByte); cdecl = Load_SHA256_Transform; + SHA384_Init: function (c: PSHA512_CTX): TOpenSSL_C_INT; cdecl = Load_SHA384_Init; + SHA384_Update: function (c: PSHA512_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SHA384_Update; + SHA384_Final: function (md: PByte; c: PSHA512_CTX): TOpenSSL_C_INT; cdecl = Load_SHA384_Final; + SHA384: function (const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl = Load_SHA384; + SHA512_Init: function (c: PSHA512_CTX): TOpenSSL_C_INT; cdecl = Load_SHA512_Init; + SHA512_Update: function (c: PSHA512_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SHA512_Update; + SHA512_Final: function (md: PByte; c: PSHA512_CTX): TOpenSSL_C_INT; cdecl = Load_SHA512_Final; + SHA512: function (const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl = Load_SHA512; + SHA512_Transform: procedure (c: PSHA512_CTX; const data: PByte); cdecl = Load_SHA512_Transform; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_SHA1_Init(c: PSHA_CTX): TOpenSSL_C_INT; cdecl; +begin + SHA1_Init := LoadLibCryptoFunction('SHA1_Init'); + if not assigned(SHA1_Init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA1_Init'); + Result := SHA1_Init(c); +end; + +function Load_SHA1_Update(c: PSHA_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SHA1_Update := LoadLibCryptoFunction('SHA1_Update'); + if not assigned(SHA1_Update) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA1_Update'); + Result := SHA1_Update(c,data,len); +end; + +function Load_SHA1_Final(md: PByte; c: PSHA_CTX): TOpenSSL_C_INT; cdecl; +begin + SHA1_Final := LoadLibCryptoFunction('SHA1_Final'); + if not assigned(SHA1_Final) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA1_Final'); + Result := SHA1_Final(md,c); +end; + +function Load_SHA1(const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; +begin + SHA1 := LoadLibCryptoFunction('SHA1'); + if not assigned(SHA1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA1'); + Result := SHA1(d,n,md); +end; + +procedure Load_SHA1_Transform(c: PSHA_CTX; const data: PByte); cdecl; +begin + SHA1_Transform := LoadLibCryptoFunction('SHA1_Transform'); + if not assigned(SHA1_Transform) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA1_Transform'); + SHA1_Transform(c,data); +end; + +function Load_SHA224_Init(c: PSHA256_CTX): TOpenSSL_C_INT; cdecl; +begin + SHA224_Init := LoadLibCryptoFunction('SHA224_Init'); + if not assigned(SHA224_Init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA224_Init'); + Result := SHA224_Init(c); +end; + +function Load_SHA224_Update(c: PSHA256_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SHA224_Update := LoadLibCryptoFunction('SHA224_Update'); + if not assigned(SHA224_Update) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA224_Update'); + Result := SHA224_Update(c,data,len); +end; + +function Load_SHA224_Final(md: PByte; c: PSHA256_CTX): TOpenSSL_C_INT; cdecl; +begin + SHA224_Final := LoadLibCryptoFunction('SHA224_Final'); + if not assigned(SHA224_Final) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA224_Final'); + Result := SHA224_Final(md,c); +end; + +function Load_SHA224(const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; +begin + SHA224 := LoadLibCryptoFunction('SHA224'); + if not assigned(SHA224) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA224'); + Result := SHA224(d,n,md); +end; + +function Load_SHA256_Init(c: PSHA256_CTX): TOpenSSL_C_INT; cdecl; +begin + SHA256_Init := LoadLibCryptoFunction('SHA256_Init'); + if not assigned(SHA256_Init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA256_Init'); + Result := SHA256_Init(c); +end; + +function Load_SHA256_Update(c: PSHA256_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SHA256_Update := LoadLibCryptoFunction('SHA256_Update'); + if not assigned(SHA256_Update) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA256_Update'); + Result := SHA256_Update(c,data,len); +end; + +function Load_SHA256_Final(md: PByte; c: PSHA256_CTX): TOpenSSL_C_INT; cdecl; +begin + SHA256_Final := LoadLibCryptoFunction('SHA256_Final'); + if not assigned(SHA256_Final) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA256_Final'); + Result := SHA256_Final(md,c); +end; + +function Load_SHA256(const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; +begin + SHA256 := LoadLibCryptoFunction('SHA256'); + if not assigned(SHA256) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA256'); + Result := SHA256(d,n,md); +end; + +procedure Load_SHA256_Transform(c: PSHA256_CTX; const data: PByte); cdecl; +begin + SHA256_Transform := LoadLibCryptoFunction('SHA256_Transform'); + if not assigned(SHA256_Transform) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA256_Transform'); + SHA256_Transform(c,data); +end; + +function Load_SHA384_Init(c: PSHA512_CTX): TOpenSSL_C_INT; cdecl; +begin + SHA384_Init := LoadLibCryptoFunction('SHA384_Init'); + if not assigned(SHA384_Init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA384_Init'); + Result := SHA384_Init(c); +end; + +function Load_SHA384_Update(c: PSHA512_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SHA384_Update := LoadLibCryptoFunction('SHA384_Update'); + if not assigned(SHA384_Update) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA384_Update'); + Result := SHA384_Update(c,data,len); +end; + +function Load_SHA384_Final(md: PByte; c: PSHA512_CTX): TOpenSSL_C_INT; cdecl; +begin + SHA384_Final := LoadLibCryptoFunction('SHA384_Final'); + if not assigned(SHA384_Final) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA384_Final'); + Result := SHA384_Final(md,c); +end; + +function Load_SHA384(const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; +begin + SHA384 := LoadLibCryptoFunction('SHA384'); + if not assigned(SHA384) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA384'); + Result := SHA384(d,n,md); +end; + +function Load_SHA512_Init(c: PSHA512_CTX): TOpenSSL_C_INT; cdecl; +begin + SHA512_Init := LoadLibCryptoFunction('SHA512_Init'); + if not assigned(SHA512_Init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA512_Init'); + Result := SHA512_Init(c); +end; + +function Load_SHA512_Update(c: PSHA512_CTX; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SHA512_Update := LoadLibCryptoFunction('SHA512_Update'); + if not assigned(SHA512_Update) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA512_Update'); + Result := SHA512_Update(c,data,len); +end; + +function Load_SHA512_Final(md: PByte; c: PSHA512_CTX): TOpenSSL_C_INT; cdecl; +begin + SHA512_Final := LoadLibCryptoFunction('SHA512_Final'); + if not assigned(SHA512_Final) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA512_Final'); + Result := SHA512_Final(md,c); +end; + +function Load_SHA512(const d: PByte; n: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; +begin + SHA512 := LoadLibCryptoFunction('SHA512'); + if not assigned(SHA512) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA512'); + Result := SHA512(d,n,md); +end; + +procedure Load_SHA512_Transform(c: PSHA512_CTX; const data: PByte); cdecl; +begin + SHA512_Transform := LoadLibCryptoFunction('SHA512_Transform'); + if not assigned(SHA512_Transform) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SHA512_Transform'); + SHA512_Transform(c,data); +end; + + +procedure UnLoad; +begin + SHA1_Init := Load_SHA1_Init; + SHA1_Update := Load_SHA1_Update; + SHA1_Final := Load_SHA1_Final; + SHA1 := Load_SHA1; + SHA1_Transform := Load_SHA1_Transform; + SHA224_Init := Load_SHA224_Init; + SHA224_Update := Load_SHA224_Update; + SHA224_Final := Load_SHA224_Final; + SHA224 := Load_SHA224; + SHA256_Init := Load_SHA256_Init; + SHA256_Update := Load_SHA256_Update; + SHA256_Final := Load_SHA256_Final; + SHA256 := Load_SHA256; + SHA256_Transform := Load_SHA256_Transform; + SHA384_Init := Load_SHA384_Init; + SHA384_Update := Load_SHA384_Update; + SHA384_Final := Load_SHA384_Final; + SHA384 := Load_SHA384; + SHA512_Init := Load_SHA512_Init; + SHA512_Update := Load_SHA512_Update; + SHA512_Final := Load_SHA512_Final; + SHA512 := Load_SHA512; + SHA512_Transform := Load_SHA512_Transform; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_srtp.pas b/src/opensslHdrs/IdOpenSSLHeaders_srtp.pas new file mode 100644 index 0000000..4f156e8 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_srtp.pas @@ -0,0 +1,136 @@ +(* This unit was generated from the source file srtp.h2pas +It should not be modified directly. All changes should be made to srtp.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_srtp; + + +interface + +// Headers for OpenSSL 1.1.1 +// srtp.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_ssl; + +const + SRTP_AES128_CM_SHA1_80 = $0001; + SRTP_AES128_CM_SHA1_32 = $0002; + SRTP_AES128_F8_SHA1_80 = $0003; + SRTP_AES128_F8_SHA1_32 = $0004; + SRTP_NULL_SHA1_80 = $0005; + SRTP_NULL_SHA1_32 = $0006; + + (* AEAD SRTP protection profiles from RFC 7714 *) + SRTP_AEAD_AES_128_GCM = $0007; + SRTP_AEAD_AES_256_GCM = $0008; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM SSL_CTX_set_tlsext_use_srtp} +{$EXTERNALSYM SSL_set_tlsext_use_srtp} +{$EXTERNALSYM SSL_get_selected_srtp_profile} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function SSL_CTX_set_tlsext_use_srtp(ctx: PSSL_CTX; const profiles: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SSL_set_tlsext_use_srtp(ctx: PSSL_CTX; const profiles: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function SSL_get_selected_srtp_profile(s: PSSL): PSRTP_PROTECTION_PROFILE; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_SSL_CTX_set_tlsext_use_srtp(ctx: PSSL_CTX; const profiles: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_set_tlsext_use_srtp(ctx: PSSL_CTX; const profiles: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_selected_srtp_profile(s: PSSL): PSRTP_PROTECTION_PROFILE; cdecl; + +var + SSL_CTX_set_tlsext_use_srtp: function (ctx: PSSL_CTX; const profiles: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_tlsext_use_srtp; + SSL_set_tlsext_use_srtp: function (ctx: PSSL_CTX; const profiles: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_set_tlsext_use_srtp; + SSL_get_selected_srtp_profile: function (s: PSSL): PSRTP_PROTECTION_PROFILE; cdecl = Load_SSL_get_selected_srtp_profile; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_SSL_CTX_set_tlsext_use_srtp(ctx: PSSL_CTX; const profiles: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_tlsext_use_srtp := LoadLibCryptoFunction('SSL_CTX_set_tlsext_use_srtp'); + if not assigned(SSL_CTX_set_tlsext_use_srtp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_tlsext_use_srtp'); + Result := SSL_CTX_set_tlsext_use_srtp(ctx,profiles); +end; + +function Load_SSL_set_tlsext_use_srtp(ctx: PSSL_CTX; const profiles: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_set_tlsext_use_srtp := LoadLibCryptoFunction('SSL_set_tlsext_use_srtp'); + if not assigned(SSL_set_tlsext_use_srtp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_tlsext_use_srtp'); + Result := SSL_set_tlsext_use_srtp(ctx,profiles); +end; + +function Load_SSL_get_selected_srtp_profile(s: PSSL): PSRTP_PROTECTION_PROFILE; cdecl; +begin + SSL_get_selected_srtp_profile := LoadLibCryptoFunction('SSL_get_selected_srtp_profile'); + if not assigned(SSL_get_selected_srtp_profile) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_selected_srtp_profile'); + Result := SSL_get_selected_srtp_profile(s); +end; + + +procedure UnLoad; +begin + SSL_CTX_set_tlsext_use_srtp := Load_SSL_CTX_set_tlsext_use_srtp; + SSL_set_tlsext_use_srtp := Load_SSL_set_tlsext_use_srtp; + SSL_get_selected_srtp_profile := Load_SSL_get_selected_srtp_profile; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_ssl.pas b/src/opensslHdrs/IdOpenSSLHeaders_ssl.pas new file mode 100644 index 0000000..4f62529 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_ssl.pas @@ -0,0 +1,9590 @@ +(* This unit was generated from the source file ssl.h2pas +It should not be modified directly. All changes should be made to ssl.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_ssl; + + + + +interface + +// Headers for OpenSSL 1.1.1 +// ssl.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_async, + IdOpenSSLHeaders_bio, + IdOpenSSLHeaders_crypto, + IdOpenSSLHeaders_pem, + IdOpenSSLHeaders_tls1, + IdOpenSSLHeaders_ssl3, + IdOpenSSLHeaders_x509; + +{$MINENUMSIZE 4} + +const + (* OpenSSL version number for ASN.1 encoding of the session information *) + (*- + * Version 0 - initial version + * Version 1 - added the optional peer certificate + *) + SSL_SESSION_ASN1_VERSION = $0001; + + SSL_MAX_SSL_SESSION_ID_LENGTH = 32; + SSL_MAX_SID_CTX_LENGTH = 32; + + SSL_MIN_RSA_MODULUS_LENGTH_IN_BYTES = 512/8; + SSL_MAX_KEY_ARG_LENGTH = 8; + SSL_MAX_MASTER_KEY_LENGTH = 48; + + (* The maximum number of encrypt/decrypt pipelines we can support *) + SSL_MAX_PIPELINES = 32; + + (* text strings for the ciphers *) + + (* These are used to specify which ciphers to use and not to use *) + + SSL_TXT_LOW = AnsiString('LOW'); + SSL_TXT_MEDIUM = AnsiString('MEDIUM'); + SSL_TXT_HIGH = AnsiString('HIGH'); + SSL_TXT_FIPS = AnsiString('FIPS'); + + SSL_TXT_aNULL = AnsiString('aNULL'); + SSL_TXT_eNULL = AnsiString('eNULL'); + SSL_TXT_NULL = AnsiString('NULL'); + + SSL_TXT_kRSA = AnsiString('kRSA'); + SSL_TXT_kDHr = AnsiString('kDHr'); + SSL_TXT_kDHd = AnsiString('kDHd'); + SSL_TXT_kDH = AnsiString('kDH'); + SSL_TXT_kEDH = AnsiString('kEDH'); + SSL_TXT_kDHE = AnsiString('kDHE'); + SSL_TXT_kECDHr = AnsiString('kECDHr'); +//const SSL_TXT_kECDHe = AnsiString('kECDHe'); + SSL_TXT_kECDH = AnsiString('kECDH'); + SSL_TXT_kEECDH = AnsiString('kEECDH'); + SSL_TXT_kECDHE = AnsiString('kECDHE'); + SSL_TXT_kPSK = AnsiString('kPSK'); + SSL_TXT_kRSAPSK = AnsiString('kRSAPSK'); + SSL_TXT_kECDHEPSK = AnsiString('kECDHEPSK'); + SSL_TXT_kDHEPSK = AnsiString('kDHEPSK'); + SSL_TXT_kGOST = AnsiString('kGOST'); + SSL_TXT_kSRP = AnsiString('kSRP'); + + SSL_TXT_aRSA = AnsiString('aRSA'); + SSL_TXT_aDSS = AnsiString('aDSS'); + SSL_TXT_aDH = AnsiString('aDH'); + SSL_TXT_aECDH = AnsiString('aECDH'); + SSL_TXT_aECDSA = AnsiString('aECDSA'); + SSL_TXT_aPSK = AnsiString('aPSK'); + SSL_TXT_aGOST94 = AnsiString('aGOST94'); + SSL_TXT_aGOST01 = AnsiString('aGOST01'); + SSL_TXT_aGOST12 = AnsiString('aGOST12'); + SSL_TXT_aGOST = AnsiString('aGOST'); + SSL_TXT_aSRP = AnsiString('aSRP'); + + SSL_TXT_DSS = AnsiString('DSS'); + SSL_TXT_DH = AnsiString('DH'); + SSL_TXT_DHE = AnsiString('DHE'); + SSL_TXT_EDH = AnsiString('EDH'); + //SSL_TXT_ADH = AnsiString('ADH'); + SSL_TXT_RSA = AnsiString('RSA'); + SSL_TXT_ECDH = AnsiString('ECDH'); + SSL_TXT_EECDH = AnsiString('EECDH'); + SSL_TXT_ECDHE = AnsiString('ECDHE'); + //SSL_TXT_AECDH = AnsiString('AECDH'); + SSL_TXT_ECDSA = AnsiString('ECDSA'); + SSL_TXT_PSK = AnsiString('PSK'); + SSL_TXT_SRP = AnsiString('SRP'); + + SSL_TXT_DES = AnsiString('DES'); + SSL_TXT_3DES = AnsiString('3DES'); + SSL_TXT_RC4 = AnsiString('RC4'); + SSL_TXT_RC2 = AnsiString('RC2'); + SSL_TXT_IDEA = AnsiString('IDEA'); + SSL_TXT_SEED = AnsiString('SEED'); + SSL_TXT_AES128 = AnsiString('AES128'); + SSL_TXT_AES256 = AnsiString('AES256'); + SSL_TXT_AES = AnsiString('AES'); + SSL_TXT_AES_GCM = AnsiString('AESGCM'); + SSL_TXT_AES_CCM = AnsiString('AESCCM'); + SSL_TXT_AES_CCM_8 = AnsiString('AESCCM8'); + SSL_TXT_CAMELLIA128 = AnsiString('CAMELLIA128'); + SSL_TXT_CAMELLIA256 = AnsiString('CAMELLIA256'); + SSL_TXT_CAMELLIA = AnsiString('CAMELLIA'); + SSL_TXT_CHACHA20 = AnsiString('CHACHA20'); + SSL_TXT_GOST = AnsiString('GOST89'); + SSL_TXT_ARIA = AnsiString('ARIA'); + SSL_TXT_ARIA_GCM = AnsiString('ARIAGCM'); + SSL_TXT_ARIA128 = AnsiString('ARIA128'); + SSL_TXT_ARIA256 = AnsiString('ARIA256'); + + SSL_TXT_MD5 = AnsiString('MD5'); + SSL_TXT_SHA1 = AnsiString('SHA1'); + SSL_TXT_SHA = AnsiString('SHA'); + SSL_TXT_GOST94 = AnsiString('GOST94'); + SSL_TXT_GOST89MAC = AnsiString('GOST89MAC'); + SSL_TXT_GOST12 = AnsiString('GOST12'); + SSL_TXT_GOST89MAC12 = AnsiString('GOST89MAC12'); + SSL_TXT_SHA256 = AnsiString('SHA256'); + SSL_TXT_SHA384 = AnsiString('SHA384'); + + SSL_TXT_SSLV3 = AnsiString('SSLv3'); + SSL_TXT_TLSV1 = AnsiString('TLSv1'); + SSL_TXT_TLSV1_1 = AnsiString('TLSv1.1'); + SSL_TXT_TLSV1_2 = AnsiString('TLSv1.2'); + + SSL_TXT_ALL = AnsiString('ALL'); + + (*- + * COMPLEMENTOF* definitions. These identifiers are used to (de-select) + * ciphers normally not being used. + * Example: "RC4" will activate all ciphers using RC4 including ciphers + * without authentication, which would normally disabled by DEFAULT (due + * the "!ADH" being part of default). Therefore "RC4:!COMPLEMENTOFDEFAULT" + * will make sure that it is also disabled in the specific selection. + * COMPLEMENTOF* identifiers are portable between version, as adjustments + * to the default cipher setup will also be included here. + * + * COMPLEMENTOFDEFAULT does not experience the same special treatment that + * DEFAULT gets, as only selection is being done and no sorting as needed + * for DEFAULT. + *) + SSL_TXT_CMPALL = AnsiString('COMPLEMENTOFALL'); + SSL_TXT_CMPDEF = AnsiString('COMPLEMENTOFDEFAULT'); + + (* + * The following cipher list is used by default. It also is substituted when + * an application-defined cipher list string starts with 'DEFAULT'. + * This applies to ciphersuites for TLSv1.2 and below. + *) + SSL_DEFAULT_CIPHER_LIST = AnsiString('ALL:!COMPLEMENTOFDEFAULT:!eNULL'); + (* This is the default set of TLSv1.3 ciphersuites *) + TLS_DEFAULT_CIPHERSUITES = AnsiString('TLS_AES_256_GCM_SHA384:TLS_CHACHA20_POLY1305_SHA256:TLS_AES_128_GCM_SHA256'); + + (* + * As of OpenSSL 1.0.0, ssl_create_cipher_list() in ssl/ssl_ciph.c always + * starts with a reasonable order, and all we have to do for DEFAULT is + * throwing out anonymous and unencrypted ciphersuites! (The latter are not + * actually enabled by ALL, but "ALL:RSA" would enable some of them.) + *) + + (* Used in SSL_set_shutdown()/SSL_get_shutdown(); *) + SSL_SENT_SHUTDOWN = 1; + SSL_RECEIVED_SHUTDOWN = 2; + + SSL_FILETYPE_ASN1 = X509_FILETYPE_ASN1; + SSL_FILETYPE_PEM = X509_FILETYPE_PEM; + + {Error codes for the SSL functions.} + SSL_F_SSL_CTX_USE_CERTIFICATE_CHAIN_FILE = 220; + + (* Extension context codes *) + (* This extension is only allowed in TLS *) + SSL_EXT_TLS_ONLY = $0001; + (* This extension is only allowed in DTLS *) + SSL_EXT_DTLS_ONLY = $0002; + (* Some extensions may be allowed in DTLS but we don't implement them for it *) + SSL_EXT_TLS_IMPLEMENTATION_ONLY = $0004; + (* Most extensions are not defined for SSLv3 but EXT_TYPE_renegotiate is *) + SSL_EXT_SSL3_ALLOWED = $0008; + (* Extension is only defined for TLS1.2 and below *) + SSL_EXT_TLS1_2_AND_BELOW_ONLY = $0010; + (* Extension is only defined for TLS1.3 and above *) + SSL_EXT_TLS1_3_ONLY = $0020; + (* Ignore this extension during parsing if we are resuming *) + SSL_EXT_IGNORE_ON_RESUMPTION = $0040; + SSL_EXT_CLIENT_HELLO = $0080; + (* Really means TLS1.2 or below *) + SSL_EXT_TLS1_2_SERVER_HELLO = $0100; + SSL_EXT_TLS1_3_SERVER_HELLO = $0200; + SSL_EXT_TLS1_3_ENCRYPTED_EXTENSIONS = $0400; + SSL_EXT_TLS1_3_HELLO_RETRY_REQUEST = $0800; + SSL_EXT_TLS1_3_CERTIFICATE = $1000; + SSL_EXT_TLS1_3_NEW_SESSION_TICKET = $2000; + SSL_EXT_TLS1_3_CERTIFICATE_REQUEST = $4000; + + (* + * Some values are reserved until OpenSSL 1.2.0 because they were previously + * included in SSL_OP_ALL in a 1.1.x release. + * + * Reserved value (until OpenSSL 1.2.0) $00000001U + * Reserved value (until OpenSSL 1.2.0) $00000002U + *) + (* Allow initial connection to servers that don't support RI *) + SSL_OP_LEGACY_SERVER_CONNECT = TOpenSSL_C_UINT($00000004); + + (* Reserved value (until OpenSSL 1.2.0) $00000008U *) + SSL_OP_TLSEXT_PADDING = TOpenSSL_C_UINT($00000010); + (* Reserved value (until OpenSSL 1.2.0) $00000020U *) + SSL_OP_SAFARI_ECDHE_ECDSA_BUG = TOpenSSL_C_UINT($00000040); + (* + * Reserved value (until OpenSSL 1.2.0) $00000080U + * Reserved value (until OpenSSL 1.2.0) $00000100U + * Reserved value (until OpenSSL 1.2.0) $00000200U + *) + + (* In TLSv1.3 allow a non-(ec)dhe based kex_mode *) + SSL_OP_ALLOW_NO_DHE_KEX = TOpenSSL_C_UINT($00000400); + + (* + * Disable SSL 3.0/TLS 1.0 CBC vulnerability workaround that was added in + * OpenSSL 0.9.6d. Usually (depending on the application protocol) the + * workaround is not needed. Unfortunately some broken SSL/TLS + * implementations cannot handle it at all, which is why we include it in + * SSL_OP_ALL. Added in 0.9.6e + *) + SSL_OP_DONT_INSERT_EMPTY_FRAGMENTS = TOpenSSL_C_UINT($00000800); + + (* DTLS options *) + SSL_OP_NO_QUERY_MTU = TOpenSSL_C_UINT($00001000); + (* Turn on Cookie Exchange (on relevant for servers) *) + SSL_OP_COOKIE_EXCHANGE = TOpenSSL_C_UINT($00002000); + (* Don't use RFC4507 ticket extension *) + SSL_OP_NO_TICKET = TOpenSSL_C_UINT($00004000); + (* Use Cisco's "speshul" version of DTLS_BAD_VER + * (only with deprecated DTLSv1_client_method()) *) + SSL_OP_CISCO_ANYCONNECT = TOpenSSL_C_UINT($00008000); + + (* As server, disallow session resumption on renegotiation *) + SSL_OP_NO_SESSION_RESUMPTION_ON_RENEGOTIATION = TOpenSSL_C_UINT($00010000); + (* Don't use compression even if supported *) + SSL_OP_NO_COMPRESSION = TOpenSSL_C_UINT($00020000); + (* Permit unsafe legacy renegotiation *) + SSL_OP_ALLOW_UNSAFE_LEGACY_RENEGOTIATION = TOpenSSL_C_UINT($00040000); + (* Disable encrypt-then-mac *) + SSL_OP_NO_ENCRYPT_THEN_MAC = TOpenSSL_C_UINT($00080000); + + (* + * Enable TLSv1.3 Compatibility mode. This is on by default. A future version + * of OpenSSL may have this disabled by default. + *) + SSL_OP_ENABLE_MIDDLEBOX_COMPAT = TOpenSSL_C_UINT($00100000); + + (* Prioritize Chacha20Poly1305 when client does. + * Modifies SSL_OP_CIPHER_SERVER_PREFERENCE *) + SSL_OP_PRIORITIZE_CHACHA = TOpenSSL_C_UINT($00200000); + + (* + * Set on servers to choose the cipher according to the server's preferences + *) + SSL_OP_CIPHER_SERVER_PREFERENCE = TOpenSSL_C_UINT($00400000); + (* + * If set, a server will allow a client to issue a SSLv3.0 version number as + * latest version supported in the premaster secret, even when TLSv1.0 + * (version 3.1) was announced in the client hello. Normally this is + * forbidden to prevent version rollback attacks. + *) + SSL_OP_TLS_ROLLBACK_BUG = TOpenSSL_C_UINT($00800000); + + (* + * Switches off automatic TLSv1.3 anti-replay protection for early data. This + * is a server-side option only (no effect on the client). + *) + SSL_OP_NO_ANTI_REPLAY = TOpenSSL_C_UINT($01000000); + + SSL_OP_NO_SSLv3 = TOpenSSL_C_UINT($02000000); + SSL_OP_NO_TLSv1 = TOpenSSL_C_UINT($04000000); + SSL_OP_NO_TLSv1_2 = TOpenSSL_C_UINT($08000000); + SSL_OP_NO_TLSv1_1 = TOpenSSL_C_UINT($10000000); + SSL_OP_NO_TLSv1_3 = TOpenSSL_C_UINT($20000000); + + SSL_OP_NO_DTLSv1 = TOpenSSL_C_UINT($04000000); + SSL_OP_NO_DTLSv1_2 = TOpenSSL_C_UINT($08000000); + + SSL_OP_NO_SSL_MASK = SSL_OP_NO_SSLv3 or SSL_OP_NO_TLSv1 or SSL_OP_NO_TLSv1_1 + or SSL_OP_NO_TLSv1_2 or SSL_OP_NO_TLSv1_3; + SSL_OP_NO_DTLS_MASK = SSL_OP_NO_DTLSv1 or SSL_OP_NO_DTLSv1_2; + + (* Disallow all renegotiation *) + SSL_OP_NO_RENEGOTIATION = TOpenSSL_C_UINT($40000000); + + (* + * Make server add server-hello extension from early version of cryptopro + * draft, when GOST ciphersuite is negotiated. Required for interoperability + * with CryptoPro CSP 3.x + *) + SSL_OP_CRYPTOPRO_TLSEXT_BUG = TOpenSSL_C_UINT($80000000); + + (* + * SSL_OP_ALL: various bug workarounds that should be rather harmless. + * This used to be $000FFFFFL before 0.9.7. + * This used to be $80000BFFU before 1.1.1. + *) + SSL_OP_ALL = SSL_OP_CRYPTOPRO_TLSEXT_BUG or SSL_OP_DONT_INSERT_EMPTY_FRAGMENTS + or SSL_OP_LEGACY_SERVER_CONNECT or SSL_OP_TLSEXT_PADDING or SSL_OP_SAFARI_ECDHE_ECDSA_BUG; + + (* OBSOLETE OPTIONS: retained for compatibility *) + + (* Removed from OpenSSL 1.1.0. Was $00000001L *) + (* Related to removed SSLv2. *) + SSL_OP_MICROSOFT_SESS_ID_BUG = $0; + (* Removed from OpenSSL 1.1.0. Was $00000002L *) + (* Related to removed SSLv2. *) + SSL_OP_NETSCAPE_CHALLENGE_BUG = $0; + (* Removed from OpenSSL 0.9.8q and 1.0.0c. Was $00000008L *) + (* Dead forever, see CVE-2010-4180 *) + SSL_OP_NETSCAPE_REUSE_CIPHER_CHANGE_BUG = $0; + (* Removed from OpenSSL 1.0.1h and 1.0.2. Was $00000010L *) + (* Refers to ancient SSLREF and SSLv2. *) + SSL_OP_SSLREF2_REUSE_CERT_TYPE_BUG = $0; + (* Removed from OpenSSL 1.1.0. Was $00000020 *) + SSL_OP_MICROSOFT_BIG_SSLV3_BUFFER = $0; + (* Removed from OpenSSL 0.9.7h and 0.9.8b. Was $00000040L *) + SSL_OP_MSIE_SSLV2_RSA_PADDING = $0; + (* Removed from OpenSSL 1.1.0. Was $00000080 *) + (* Ancient SSLeay version. *) + SSL_OP_SSLEAY_080_CLIENT_DH_BUG = $0; + (* Removed from OpenSSL 1.1.0. Was $00000100L *) + SSL_OP_TLS_D5_BUG = $0; + (* Removed from OpenSSL 1.1.0. Was $00000200L *) + SSL_OP_TLS_BLOCK_PADDING_BUG = $0; + (* Removed from OpenSSL 1.1.0. Was $00080000L *) + SSL_OP_SINGLE_ECDH_USE = $0; + (* Removed from OpenSSL 1.1.0. Was $00100000L *) + SSL_OP_SINGLE_DH_USE = $0; + (* Removed from OpenSSL 1.0.1k and 1.0.2. Was $00200000L *) + SSL_OP_EPHEMERAL_RSA = $0; + (* Removed from OpenSSL 1.1.0. Was $01000000L *) + SSL_OP_NO_SSLv2 = $0; + (* Removed from OpenSSL 1.0.1. Was $08000000L *) + SSL_OP_PKCS1_CHECK_1 = $0; + (* Removed from OpenSSL 1.0.1. Was $10000000L *) + SSL_OP_PKCS1_CHECK_2 = $0; + (* Removed from OpenSSL 1.1.0. Was $20000000L *) + SSL_OP_NETSCAPE_CA_DN_BUG = $0; + (* Removed from OpenSSL 1.1.0. Was $40000000L *) + SSL_OP_NETSCAPE_DEMO_CIPHER_CHANGE_BUG = $0; + + (* + * Allow SSL_write(..., n) to return r with 0 < r < n (i.e. report success + * when just a single record has been written): + *) + SSL_MODE_ENABLE_PARTIAL_WRITE = TOpenSSL_C_UINT($00000001); + (* + * Make it possible to retry SSL_write() with changed buffer location (buffer + * contents must stay the same!); this is not the default to avoid the + * misconception that non-blocking SSL_write() behaves like non-blocking + * write(): + *) + SSL_MODE_ACCEPT_MOVING_WRITE_BUFFER = TOpenSSL_C_UINT($00000002); + (* + * Never bother the application with retries if the transport is blocking: + *) + SSL_MODE_AUTO_RETRY = TOpenSSL_C_UINT($00000004); + (* Don't attempt to automatically build certificate chain *) + SSL_MODE_NO_AUTO_CHAIN = TOpenSSL_C_UINT($00000008); + (* + * Save RAM by releasing read and write buffers when they're empty. (SSL3 and + * TLS only.) Released buffers are freed. + *) + SSL_MODE_RELEASE_BUFFERS = TOpenSSL_C_UINT($00000010); + (* + * Send the current time in the Random fields of the ClientHello and + * ServerHello records for compatibility with hypothetical implementations + * that require it. + *) + SSL_MODE_SEND_CLIENTHELLO_TIME = TOpenSSL_C_UINT($00000020); + SSL_MODE_SEND_SERVERHELLO_TIME = TOpenSSL_C_UINT($00000040); + (* + * Send TLS_FALLBACK_SCSV in the ClientHello. To be set only by applications + * that reconnect with a downgraded protocol version; see + * draft-ietf-tls-downgrade-scsv-00 for details. DO NOT ENABLE THIS if your + * application attempts a normal handshake. Only use this in explicit + * fallback retries, following the guidance in + * draft-ietf-tls-downgrade-scsv-00. + *) + SSL_MODE_SEND_FALLBACK_SCSV = TOpenSSL_C_UINT($00000080); + (* + * Support Asynchronous operation + *) + SSL_MODE_ASYNC = TOpenSSL_C_UINT($00000100); + + (* + * When using DTLS/SCTP, include the terminating zero in the label + * used for computing the endpoint-pair shared secret. Required for + * interoperability with implementations having this bug like these + * older version of OpenSSL: + * - OpenSSL 1.0.0 series + * - OpenSSL 1.0.1 series + * - OpenSSL 1.0.2 series + * - OpenSSL 1.1.0 series + * - OpenSSL 1.1.1 and 1.1.1a + *) + SSL_MODE_DTLS_SCTP_LABEL_LENGTH_BUG = TOpenSSL_C_UINT($00000400); + + (* Cert related flags *) + (* + * Many implementations ignore some aspects of the TLS standards such as + * enforcing certificate chain algorithms. When this is set we enforce them. + *) + SSL_CERT_FLAG_TLS_STRICT = TOpenSSL_C_UINT($00000001); + (* Suite B modes, takes same values as certificate verify flags *) + SSL_CERT_FLAG_SUITEB_128_LOS_ONLY = $10000; + (* Suite B 192 bit only mode *) + SSL_CERT_FLAG_SUITEB_192_LOS = $20000; + (* Suite B 128 bit mode allowing 192 bit algorithms *) + SSL_CERT_FLAG_SUITEB_128_LOS = $30000; + + (* Perform all sorts of protocol violations for testing purposes *) + SSL_CERT_FLAG_BROKEN_PROTOCOL = $10000000; + + (* Flags for building certificate chains *) + (* Treat any existing certificates as untrusted CAs *) + SSL_BUILD_CHAIN_FLAG_UNTRUSTED = $1; + (* Don't include root CA in chain *) + SSL_BUILD_CHAIN_FLAG_NO_ROOT = $2; + (* Just check certificates already there *) + SSL_BUILD_CHAIN_FLAG_CHECK = $4; + (* Ignore verification errors *) + SSL_BUILD_CHAIN_FLAG_IGNORE_ERROR = $8; + (* Clear verification errors from queue *) + SSL_BUILD_CHAIN_FLAG_CLEAR_ERROR = $10; + + (* Flags returned by SSL_check_chain *) + (* Certificate can be used with this session *) + CERT_PKEY_VALID = $1; + (* Certificate can also be used for signing *) + CERT_PKEY_SIGN = $2; + (* EE certificate signing algorithm OK *) + CERT_PKEY_EE_SIGNATURE = $10; + (* CA signature algorithms OK *) + CERT_PKEY_CA_SIGNATURE = $20; + (* EE certificate parameters OK *) + CERT_PKEY_EE_PARAM = $40; + (* CA certificate parameters OK *) + CERT_PKEY_CA_PARAM = $80; + (* Signing explicitly allowed as opposed to SHA1 fallback *) + CERT_PKEY_EXPLICIT_SIGN = $100; + (* Client CA issuer names match (always set for server cert) *) + CERT_PKEY_ISSUER_NAME = $200; + (* Cert type matches client types (always set for server cert) *) + CERT_PKEY_CERT_TYPE = $400; + (* Cert chain suitable to Suite B *) + CERT_PKEY_SUITEB = $800; + + SSL_CONF_FLAG_CMDLINE = $1; + SSL_CONF_FLAG_FILE = $2; + SSL_CONF_FLAG_CLIENT = $4; + SSL_CONF_FLAG_SERVER = $8; + SSL_CONF_FLAG_SHOW_ERRORS = $10; + SSL_CONF_FLAG_CERTIFICATE = $20; + SSL_CONF_FLAG_REQUIRE_PRIVATE = $40; + (* Configuration value types *) + SSL_CONF_TYPE_UNKNOWN = $0; + SSL_CONF_TYPE_STRING = $1; + SSL_CONF_TYPE_FILE = $2; + SSL_CONF_TYPE_DIR = $3; + SSL_CONF_TYPE_NONE = $4; + + (* Maximum length of the application-controlled segment of a a TLSv1.3 cookie *) + SSL_COOKIE_LENGTH = 4096; + + (* 100k max cert list *) + SSL_MAX_CERT_LIST_DEFAULT = 1024 * 100; + SSL_SESSION_CACHE_MAX_SIZE_DEFAULT = 1024 * 20; + + SSL_SESS_CACHE_OFF = $0000; + SSL_SESS_CACHE_CLIENT = $0001; + SSL_SESS_CACHE_SERVER = $0002; + SSL_SESS_CACHE_BOTH = (SSL_SESS_CACHE_CLIENT or SSL_SESS_CACHE_SERVER); + SSL_SESS_CACHE_NO_AUTO_CLEAR = $0080; + (* enough comments already ... see SSL_CTX_set_session_cache_mode(3) *) + SSL_SESS_CACHE_NO_INTERNAL_LOOKUP = $0100; + SSL_SESS_CACHE_NO_INTERNAL_STORE = $0200; + SSL_SESS_CACHE_NO_INTERNAL = (SSL_SESS_CACHE_NO_INTERNAL_LOOKUP or SSL_SESS_CACHE_NO_INTERNAL_STORE); + + OPENSSL_NPN_UNSUPPORTED = 0; + OPENSSL_NPN_NEGOTIATED = 1; + OPENSSL_NPN_NO_OVERLAP = 2; + + (* + * the maximum length of the buffer given to callbacks containing the + * resulting identity/psk + *) + PSK_MAX_IDENTITY_LEN = 128; + PSK_MAX_PSK_LEN = 256; + + SSL_NOTHING = 1; + SSL_WRITING = 2; + SSL_READING = 3; + SSL_X509_LOOKUP = 4; + SSL_ASYNC_PAUSED = 5; + SSL_ASYNC_NO_JOBS = 6; + SSL_CLIENT_HELLO_CB = 7; + + SSL_MAC_FLAG_READ_MAC_STREAM = 1; + SSL_MAC_FLAG_WRITE_MAC_STREAM = 2; + + (* TLSv1.3 KeyUpdate message types *) + (* -1 used so that this is an invalid value for the on-the-wire protocol *) + SSL_KEY_UPDATE_NONE = -1; + (* Values as defined for the on-the-wire protocol *) + SSL_KEY_UPDATE_NOT_REQUESTED = 0; + SSL_KEY_UPDATE_REQUESTED = 1; + + (* + * Most of the following state values are no longer used and are defined to be + * the closest equivalent value in_ the current state machine code. Not all + * defines have an equivalent and are set to a dummy value (-1). SSL_ST_CONNECT + * and SSL_ST_ACCEPT are still in_ use in_ the definition of SSL_CB_ACCEPT_LOOP, + * SSL_CB_ACCEPT_EXIT, SSL_CB_CONNECT_LOOP and SSL_CB_CONNECT_EXIT. + *) + SSL_ST_CONNECT = $1000; + SSL_ST_ACCEPT = $2000; + + SSL_ST_MASK = $0FFF; + + SSL_CB_LOOP = $01; + SSL_CB_EXIT = $02; + SSL_CB_READ = $04; + SSL_CB_WRITE = $08; + SSL_CB_ALERT = $4000; + SSL_CB_READ_ALERT = SSL_CB_ALERT or SSL_CB_READ; + SSL_CB_WRITE_ALERT = SSL_CB_ALERT or SSL_CB_WRITE; + SSL_CB_ACCEPT_LOOP = SSL_ST_ACCEPT or SSL_CB_LOOP; + SSL_CB_ACCEPT_EXIT = SSL_ST_ACCEPT or SSL_CB_EXIT; + SSL_CB_CONNECT_LOOP = SSL_ST_CONNECT or SSL_CB_LOOP; + SSL_CB_CONNECT_EXIT = SSL_ST_CONNECT or SSL_CB_EXIT; + SSL_CB_HANDSHAKE_START = $10; + SSL_CB_HANDSHAKE_DONE = $20; + + (* + * The following 3 states are kept in ssl->rlayer.rstate when reads fail, you + * should not need these + *) + SSL_ST_READ_HEADER = $F0; + SSL_ST_READ_BODY = $F1; + SSL_ST_READ_DONE = $F2; + + (* + * use either SSL_VERIFY_NONE or SSL_VERIFY_PEER, the last 3 options are + * 'ored' with SSL_VERIFY_PEER if they are desired + *) + SSL_VERIFY_NONE = $00; + SSL_VERIFY_PEER = $01; + SSL_VERIFY_FAIL_IF_NO_PEER_CERT = $02; + SSL_VERIFY_CLIENT_ONCE = $04; + SSL_VERIFY_POST_HANDSHAKE = $08; + + SSL_AD_REASON_OFFSET = 1000; (* offset to get SSL_R_... value + * from SSL_AD_... *) + (* These alert types are for SSLv3 and TLSv1 *) + SSL_AD_CLOSE_NOTIFY = SSL3_AD_CLOSE_NOTIFY; + (* fatal *) + SSL_AD_UNEXPECTED_MESSAGE = SSL3_AD_UNEXPECTED_MESSAGE; + (* fatal *) + SSL_AD_BAD_RECORD_MAC = SSL3_AD_BAD_RECORD_MAC; + SSL_AD_DECRYPTION_FAILED = TLS1_AD_DECRYPTION_FAILED; + SSL_AD_RECORD_OVERFLOW = TLS1_AD_RECORD_OVERFLOW; + (* fatal *) + SSL_AD_DECOMPRESSION_FAILURE = SSL3_AD_DECOMPRESSION_FAILURE; + (* fatal *) + SSL_AD_HANDSHAKE_FAILURE = SSL3_AD_HANDSHAKE_FAILURE; + (* Not for TLS *) + SSL_AD_NO_CERTIFICATE = SSL3_AD_NO_CERTIFICATE; + SSL_AD_BAD_CERTIFICATE = SSL3_AD_BAD_CERTIFICATE; + SSL_AD_UNSUPPORTED_CERTIFICATE = SSL3_AD_UNSUPPORTED_CERTIFICATE; + SSL_AD_CERTIFICATE_REVOKED = SSL3_AD_CERTIFICATE_REVOKED; + SSL_AD_CERTIFICATE_EXPIRED = SSL3_AD_CERTIFICATE_EXPIRED; + SSL_AD_CERTIFICATE_UNKNOWN = SSL3_AD_CERTIFICATE_UNKNOWN; + (* fatal *) + SSL_AD_ILLEGAL_PARAMETER = SSL3_AD_ILLEGAL_PARAMETER; + (* fatal *) + SSL_AD_UNKNOWN_CA = TLS1_AD_UNKNOWN_CA; + (* fatal *) + SSL_AD_ACCESS_DENIED = TLS1_AD_ACCESS_DENIED; + (* fatal *) + SSL_AD_DECODE_ERROR = TLS1_AD_DECODE_ERROR; + SSL_AD_DECRYPT_ERROR = TLS1_AD_DECRYPT_ERROR; + (* fatal *) + SSL_AD_EXPORT_RESTRICTION = TLS1_AD_EXPORT_RESTRICTION; + (* fatal *) + SSL_AD_PROTOCOL_VERSION = TLS1_AD_PROTOCOL_VERSION; + (* fatal *) + SSL_AD_INSUFFICIENT_SECURITY = TLS1_AD_INSUFFICIENT_SECURITY; + (* fatal *) + SSL_AD_INTERNAL_ERROR = TLS1_AD_INTERNAL_ERROR; + SSL_AD_USER_CANCELLED = TLS1_AD_USER_CANCELLED; + SSL_AD_NO_RENEGOTIATION = TLS1_AD_NO_RENEGOTIATION; + SSL_AD_MISSING_EXTENSION = TLS13_AD_MISSING_EXTENSION; + SSL_AD_CERTIFICATE_REQUIRED = TLS13_AD_CERTIFICATE_REQUIRED; + SSL_AD_UNSUPPORTED_EXTENSION = TLS1_AD_UNSUPPORTED_EXTENSION; + SSL_AD_CERTIFICATE_UNOBTAINABLE = TLS1_AD_CERTIFICATE_UNOBTAINABLE; + SSL_AD_UNRECOGNIZED_NAME = TLS1_AD_UNRECOGNIZED_NAME; + SSL_AD_BAD_CERTIFICATE_STATUS_RESPONSE = TLS1_AD_BAD_CERTIFICATE_STATUS_RESPONSE; + SSL_AD_BAD_CERTIFICATE_HASH_VALUE = TLS1_AD_BAD_CERTIFICATE_HASH_VALUE; + (* fatal *) + SSL_AD_UNKNOWN_PSK_IDENTITY = TLS1_AD_UNKNOWN_PSK_IDENTITY; + (* fatal *) + SSL_AD_INAPPROPRIATE_FALLBACK = TLS1_AD_INAPPROPRIATE_FALLBACK; + SSL_AD_NO_APPLICATION_PROTOCOL = TLS1_AD_NO_APPLICATION_PROTOCOL; + SSL_ERROR_NONE = 0; + SSL_ERROR_SSL = 1; + SSL_ERROR_WANT_READ = 2; + SSL_ERROR_WANT_WRITE = 3; + SSL_ERROR_WANT_X509_LOOKUP = 4; + SSL_ERROR_SYSCALL = 5; (* look at error stack/return + * value/errno *) + SSL_ERROR_ZERO_RETURN = 6; + SSL_ERROR_WANT_CONNECT = 7; + SSL_ERROR_WANT_ACCEPT = 8; + SSL_ERROR_WANT_ASYNC = 9; + SSL_ERROR_WANT_ASYNC_JOB = 10; + SSL_ERROR_WANT_CLIENT_HELLO_CB = 11; + SSL_CTRL_SET_TMP_DH = 3; + SSL_CTRL_SET_TMP_ECDH = 4; + SSL_CTRL_SET_TMP_DH_CB = 6; + SSL_CTRL_GET_CLIENT_CERT_REQUEST = 9; + SSL_CTRL_GET_NUM_RENEGOTIATIONS = 10; + SSL_CTRL_CLEAR_NUM_RENEGOTIATIONS = 11; + SSL_CTRL_GET_TOTAL_RENEGOTIATIONS = 12; + SSL_CTRL_GET_FLAGS = 13; + SSL_CTRL_EXTRA_CHAIN_CERT = 14; + SSL_CTRL_SET_MSG_CALLBACK = 15; + SSL_CTRL_SET_MSG_CALLBACK_ARG = 16; + (* only applies to datagram connections *) + SSL_CTRL_SET_MTU = 17; + (* Stats *) + SSL_CTRL_SESS_NUMBER = 20; + SSL_CTRL_SESS_CONNECT = 21; + SSL_CTRL_SESS_CONNECT_GOOD = 22; + SSL_CTRL_SESS_CONNECT_RENEGOTIATE = 23; + SSL_CTRL_SESS_ACCEPT = 24; + SSL_CTRL_SESS_ACCEPT_GOOD = 25; + SSL_CTRL_SESS_ACCEPT_RENEGOTIATE = 26; + SSL_CTRL_SESS_HIT = 27; + SSL_CTRL_SESS_CB_HIT = 28; + SSL_CTRL_SESS_MISSES = 29; + SSL_CTRL_SESS_TIMEOUTS = 30; + SSL_CTRL_SESS_CACHE_FULL = 31; + SSL_CTRL_MODE = 33; + SSL_CTRL_GET_READ_AHEAD = 40; + SSL_CTRL_SET_READ_AHEAD = 41; + SSL_CTRL_SET_SESS_CACHE_SIZE = 42; + SSL_CTRL_GET_SESS_CACHE_SIZE = 43; + SSL_CTRL_SET_SESS_CACHE_MODE = 44; + SSL_CTRL_GET_SESS_CACHE_MODE = 45; + SSL_CTRL_GET_MAX_CERT_LIST = 50; + SSL_CTRL_SET_MAX_CERT_LIST = 51; + SSL_CTRL_SET_MAX_SEND_FRAGMENT = 52; + (* see tls1.h for macros based on these *) + SSL_CTRL_SET_TLSEXT_SERVERNAME_CB = 53; + SSL_CTRL_SET_TLSEXT_SERVERNAME_ARG = 54; + SSL_CTRL_SET_TLSEXT_HOSTNAME = 55; + SSL_CTRL_SET_TLSEXT_DEBUG_CB = 56; + SSL_CTRL_SET_TLSEXT_DEBUG_ARG = 57; + SSL_CTRL_GET_TLSEXT_TICKET_KEYS = 58; + SSL_CTRL_SET_TLSEXT_TICKET_KEYS = 59; + SSL_CTRL_SET_TLSEXT_STATUS_REQ_CB = 63; + SSL_CTRL_SET_TLSEXT_STATUS_REQ_CB_ARG = 64; + SSL_CTRL_SET_TLSEXT_STATUS_REQ_TYPE = 65; + SSL_CTRL_GET_TLSEXT_STATUS_REQ_EXTS = 66; + SSL_CTRL_SET_TLSEXT_STATUS_REQ_EXTS = 67; + SSL_CTRL_GET_TLSEXT_STATUS_REQ_IDS = 68; + SSL_CTRL_SET_TLSEXT_STATUS_REQ_IDS = 69; + SSL_CTRL_GET_TLSEXT_STATUS_REQ_OCSP_RESP = 70; + SSL_CTRL_SET_TLSEXT_STATUS_REQ_OCSP_RESP = 71; + SSL_CTRL_SET_TLSEXT_TICKET_KEY_CB = 72; + SSL_CTRL_SET_TLS_EXT_SRP_USERNAME_CB = 75; + SSL_CTRL_SET_SRP_VERIFY_PARAM_CB = 76; + SSL_CTRL_SET_SRP_GIVE_CLIENT_PWD_CB = 77; + SSL_CTRL_SET_SRP_ARG = 78; + SSL_CTRL_SET_TLS_EXT_SRP_USERNAME = 79; + SSL_CTRL_SET_TLS_EXT_SRP_STRENGTH = 80; + SSL_CTRL_SET_TLS_EXT_SRP_PASSWORD = 81; + SSL_CTRL_DTLS_EXT_SEND_HEARTBEAT = 85; + SSL_CTRL_GET_DTLS_EXT_HEARTBEAT_PENDING = 86; + SSL_CTRL_SET_DTLS_EXT_HEARTBEAT_NO_REQUESTS = 87; + DTLS_CTRL_GET_TIMEOUT = 73; + DTLS_CTRL_HANDLE_TIMEOUT = 74; + SSL_CTRL_GET_RI_SUPPORT = 76; + SSL_CTRL_CLEAR_MODE = 78; + SSL_CTRL_SET_NOT_RESUMABLE_SESS_CB = 79; + SSL_CTRL_GET_EXTRA_CHAIN_CERTS = 82; + SSL_CTRL_CLEAR_EXTRA_CHAIN_CERTS = 83; + SSL_CTRL_CHAIN = 88; + SSL_CTRL_CHAIN_CERT = 89; + SSL_CTRL_GET_GROUPS = 90; + SSL_CTRL_SET_GROUPS = 91; + SSL_CTRL_SET_GROUPS_LIST = 92; + SSL_CTRL_GET_SHARED_GROUP = 93; + SSL_CTRL_SET_SIGALGS = 97; + SSL_CTRL_SET_SIGALGS_LIST = 98; + SSL_CTRL_CERT_FLAGS = 99; + SSL_CTRL_CLEAR_CERT_FLAGS = 100; + SSL_CTRL_SET_CLIENT_SIGALGS = 101; + SSL_CTRL_SET_CLIENT_SIGALGS_LIST = 102; + SSL_CTRL_GET_CLIENT_CERT_TYPES = 103; + SSL_CTRL_SET_CLIENT_CERT_TYPES = 104; + SSL_CTRL_BUILD_CERT_CHAIN = 105; + SSL_CTRL_SET_VERIFY_CERT_STORE = 106; + SSL_CTRL_SET_CHAIN_CERT_STORE = 107; + SSL_CTRL_GET_PEER_SIGNATURE_NID = 108; + SSL_CTRL_GET_PEER_TMP_KEY = 109; + SSL_CTRL_GET_RAW_CIPHERLIST = 110; + SSL_CTRL_GET_EC_POINT_FORMATS = 111; + SSL_CTRL_GET_CHAIN_CERTS = 115; + SSL_CTRL_SELECT_CURRENT_CERT = 116; + SSL_CTRL_SET_CURRENT_CERT = 117; + SSL_CTRL_SET_DH_AUTO = 118; + DTLS_CTRL_SET_LINK_MTU = 120; + DTLS_CTRL_GET_LINK_MIN_MTU = 121; + SSL_CTRL_GET_EXTMS_SUPPORT = 122; + SSL_CTRL_SET_MIN_PROTO_VERSION = 123; + SSL_CTRL_SET_MAX_PROTO_VERSION = 124; + SSL_CTRL_SET_SPLIT_SEND_FRAGMENT = 125; + SSL_CTRL_SET_MAX_PIPELINES = 126; + SSL_CTRL_GET_TLSEXT_STATUS_REQ_TYPE = 127; + SSL_CTRL_GET_TLSEXT_STATUS_REQ_CB = 128; + SSL_CTRL_GET_TLSEXT_STATUS_REQ_CB_ARG = 129; + SSL_CTRL_GET_MIN_PROTO_VERSION = 130; + SSL_CTRL_GET_MAX_PROTO_VERSION = 131; + SSL_CTRL_GET_SIGNATURE_NID = 132; + SSL_CTRL_GET_TMP_KEY = 133; + SSL_CERT_SET_FIRST = 1; + SSL_CERT_SET_NEXT = 2; + SSL_CERT_SET_SERVER = 3; + + (* + * The following symbol names are old and obsolete. They are kept + * for compatibility reasons only and should not be used anymore. + *) + SSL_CTRL_GET_CURVES = SSL_CTRL_GET_GROUPS; + SSL_CTRL_SET_CURVES = SSL_CTRL_SET_GROUPS; + SSL_CTRL_SET_CURVES_LIST = SSL_CTRL_SET_GROUPS_LIST; + SSL_CTRL_GET_SHARED_CURVE = SSL_CTRL_GET_SHARED_GROUP; + +// SSL_get1_curves = SSL_get1_groups; +// SSL_CTX_set1_curves = SSL_CTX_set1_groups; +// SSL_CTX_set1_curves_list = SSL_CTX_set1_groups_list; +// SSL_set1_curves = SSL_set1_groups; +// SSL_set1_curves_list = SSL_set1_groups_list; +// SSL_get_shared_curve = SSL_get_shared_group; + + (* serverinfo file format versions *) + SSL_SERVERINFOV1 = 1; + SSL_SERVERINFOV2 = 2; + + SSL_CLIENT_HELLO_SUCCESS = 1; + SSL_CLIENT_HELLO_ERROR = 0; + SSL_CLIENT_HELLO_RETRY = -1; + + SSL_READ_EARLY_DATA_ERROR = 0; + SSL_READ_EARLY_DATA_SUCCESS = 1; + SSL_READ_EARLY_DATA_FINISH = 2; + + SSL_EARLY_DATA_NOT_SENT = 0; + SSL_EARLY_DATA_REJECTED = 1; + SSL_EARLY_DATA_ACCEPTED = 2; + + //SSLv23_method = TLS_method; + //SSLv23_server_method = TLS_server_method; + //SSLv23_client_method = TLS_client_method; + + (* What the 'other' parameter contains in_ security callback *) + (* Mask for type *) + SSL_SECOP_OTHER_TYPE = $ffff0000; + SSL_SECOP_OTHER_NONE = 0; + SSL_SECOP_OTHER_CIPHER = (1 shl 16); + SSL_SECOP_OTHER_CURVE = (2 shl 16); + SSL_SECOP_OTHER_DH = (3 shl 16); + SSL_SECOP_OTHER_PKEY = (4 shl 16); + SSL_SECOP_OTHER_SIGALG = (5 shl 16); + SSL_SECOP_OTHER_CERT = (6 shl 16); + + (* Indicated operation refers to peer key or certificate *) + SSL_SECOP_PEER = $1000; + + (* Values for "op" parameter in security callback *) + + (* Called to filter ciphers *) + (* Ciphers client supports *) + SSL_SECOP_CIPHER_SUPPORTED = 1 or SSL_SECOP_OTHER_CIPHER; + (* Cipher shared by client/server *) + SSL_SECOP_CIPHER_SHARED = 2 or SSL_SECOP_OTHER_CIPHER; + (* Sanity check of cipher server selects *) + SSL_SECOP_CIPHER_CHECK = 3 or SSL_SECOP_OTHER_CIPHER; + (* Curves supported by client *) + SSL_SECOP_CURVE_SUPPORTED = 4 or SSL_SECOP_OTHER_CURVE; + (* Curves shared by client/server *) + SSL_SECOP_CURVE_SHARED = 5 or SSL_SECOP_OTHER_CURVE; + (* Sanity check of curve server selects *) + SSL_SECOP_CURVE_CHECK = 6 or SSL_SECOP_OTHER_CURVE; + (* Temporary DH key *) + SSL_SECOP_TMP_DH = 7 or SSL_SECOP_OTHER_PKEY; + (* SSL/TLS version *) + SSL_SECOP_VERSION = 9 or SSL_SECOP_OTHER_NONE; + (* Session tickets *) + SSL_SECOP_TICKET = 10 or SSL_SECOP_OTHER_NONE; + (* Supported signature algorithms sent to peer *) + SSL_SECOP_SIGALG_SUPPORTED = 11 or SSL_SECOP_OTHER_SIGALG; + (* Shared signature algorithm *) + SSL_SECOP_SIGALG_SHARED = 12 or SSL_SECOP_OTHER_SIGALG; + (* Sanity check signature algorithm allowed *) + SSL_SECOP_SIGALG_CHECK = 13 or SSL_SECOP_OTHER_SIGALG; + (* Used to get mask of supported public key signature algorithms *) + SSL_SECOP_SIGALG_MASK = 14 or SSL_SECOP_OTHER_SIGALG; + (* Use to see if compression is allowed *) + SSL_SECOP_COMPRESSION = 15 or SSL_SECOP_OTHER_NONE; + (* EE key in certificate *) + SSL_SECOP_EE_KEY = 16 or SSL_SECOP_OTHER_CERT; + (* CA key in certificate *) + SSL_SECOP_CA_KEY = 17 or SSL_SECOP_OTHER_CERT; + (* CA digest algorithm in certificate *) + SSL_SECOP_CA_MD = 18 or SSL_SECOP_OTHER_CERT; + (* Peer EE key in certificate *) + SSL_SECOP_PEER_EE_KEY = SSL_SECOP_EE_KEY or SSL_SECOP_PEER; + (* Peer CA key in certificate *) + SSL_SECOP_PEER_CA_KEY = SSL_SECOP_CA_KEY or SSL_SECOP_PEER; + (* Peer CA digest algorithm in certificate *) + SSL_SECOP_PEER_CA_MD = SSL_SECOP_CA_MD or SSL_SECOP_PEER; + + (* OPENSSL_INIT flag 0x010000 reserved for internal use *) + OPENSSL_INIT_NO_LOAD_SSL_STRINGS = TOpenSSL_C_LONG($00100000); + OPENSSL_INIT_LOAD_SSL_STRINGS = TOpenSSL_C_LONG($00200000); + OPENSSL_INIT_SSL_DEFAULT = OPENSSL_INIT_LOAD_SSL_STRINGS or OPENSSL_INIT_LOAD_CRYPTO_STRINGS; + + (* Support for ticket appdata *) + (* fatal error, malloc failure *) + SSL_TICKET_FATAL_ERR_MALLOC = 0; + (* fatal error, either from parsing or decrypting the ticket *) + SSL_TICKET_FATAL_ERR_OTHER = 1; + (* No ticket present *) + SSL_TICKET_NONE = 2; + (* Empty ticket present *) + SSL_TICKET_EMPTY = 3; + (* the ticket couldn't be decrypted *) + SSL_TICKET_NO_DECRYPT = 4; + (* a ticket was successfully decrypted *) + SSL_TICKET_SUCCESS = 5; + (* same as above but the ticket needs to be renewed *) + SSL_TICKET_SUCCESS_RENEW = 6; + + (* An error occurred *) + SSL_TICKET_RETURN_ABORT = 0; + (* Do not use the ticket, do not send a renewed ticket to the client *) + SSL_TICKET_RETURN_IGNORE = 1; + (* Do not use the ticket, send a renewed ticket to the client *) + SSL_TICKET_RETURN_IGNORE_RENEW = 2; + (* Use the ticket, do not send a renewed ticket to the client *) + SSL_TICKET_RETURN_USE = 3; + (* Use the ticket, send a renewed ticket to the client *) + SSL_TICKET_RETURN_USE_RENEW = 4; + +type + (* + * This is needed to stop compilers complaining about the 'struct ssl_st *' + * function parameters used to prototype callbacks in SSL_CTX. + *) + ssl_crock_st = ^ssl_st; + TLS_SESSION_TICKET_EXT = tls_session_ticket_ext_st; + ssl_method_st = type Pointer; + SSL_METHOD = ssl_method_st; + PSSL_METHOD = ^SSL_METHOD; + ssl_session_st = type Pointer; + SSL_CIPHER = ssl_session_st; + PSSL_CIPHER = ^SSL_CIPHER; + SSL_SESSION = ssl_session_st; + PSSL_SESSION = ^SSL_SESSION; + PPSSL_SESSION = ^PSSL_SESSION; + tls_sigalgs_st = type Pointer; + TLS_SIGALGS = tls_sigalgs_st; + ssl_conf_ctx_st = type Pointer; + SSL_CONF_CTX = ssl_conf_ctx_st; + PSSL_CONF_CTX = ^SSL_CONF_CTX; + ssl_comp_st = type Pointer; + SSL_COMP = ssl_comp_st; + + + //STACK_OF(SSL_CIPHER); + //STACK_OF(SSL_COMP); + + (* SRTP protection profiles for use with the use_srtp extension (RFC 5764)*) + srtp_protection_profile_st = record + name: PAnsiChar; + id: TOpenSSL_C_ULONG; + end; + SRTP_PROTECTION_PROFILE = srtp_protection_profile_st; + PSRTP_PROTECTION_PROFILE = ^SRTP_PROTECTION_PROFILE; + + //DEFINE_STACK_OF(SRTP_PROTECTION_PROFILE) + + (* Typedefs for handling custom extensions *) + custom_ext_add_cb = function (s: PSSL; ext_type: TOpenSSL_C_UINT; const out_: PByte; outlen: POpenSSL_C_SIZET; al: POpenSSL_C_INT; add_arg: Pointer): TOpenSSL_C_INT; cdecl; + custom_ext_free_cb = procedure (s: PSSL; ext_type: TOpenSSL_C_UINT; const out_: PByte; add_arg: Pointer); cdecl; + custom_ext_parse_cb = function (s: PSSL; ext_type: TOpenSSL_C_UINT; const in_: PByte; inlen: TOpenSSL_C_SIZET; al: POpenSSL_C_INT; parse_arg: Pointer): TOpenSSL_C_INT; cdecl; + + SSL_custom_ext_add_cb_ex = function (s: PSSL; ext_type: TOpenSSL_C_UINT; context: TOpenSSL_C_UINT; const out_: PByte; outlen: POpenSSL_C_SIZET; x: Px509; chainidx: TOpenSSL_C_SIZET; al: POpenSSL_C_INT; add_arg: Pointer): TOpenSSL_C_INT; cdecl; + SSL_custom_ext_free_cb_ex = procedure (s: PSSL; ext_type: TOpenSSL_C_UINT; context: TOpenSSL_C_UINT; const out_: PByte; add_arg: Pointer); cdecl; + SSL_custom_ext_parse_cb_ex = function (s: PSSL; ext_type: TOpenSSL_C_UINT; context: TOpenSSL_C_UINT; const in_: PByte; inlen: TOpenSSL_C_SIZET; x: Px509; chainidx: TOpenSSL_C_SIZET; al: POpenSSL_C_INT; parse_arg: Pointer): TOpenSSL_C_INT; cdecl; + + (* Typedef for verification callback *) + SSL_verify_cb = function (preverify_ok: TOpenSSL_C_INT; x509_ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; + + tls_session_ticket_ext_cb_fn = function (s: PSSL; const data: PByte; len: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; + + (* + * This callback type is used inside SSL_CTX, SSL, and in_ the functions that + * set them. It is used to override the generation of SSL/TLS session IDs in_ + * a server. Return value should be zero on an error, non-zero to proceed. + * Also, callbacks should themselves check if the id they generate is unique + * otherwise the SSL handshake will fail with an error - callbacks can do + * this using the 'ssl' value they're passed by; + * SSL_has_matching_session_id(ssl, id, *id_len) The length value passed in_ + * is set at the maximum size the session ID can be. in_ SSLv3/TLSv1 it is 32 + * bytes. The callback can alter this length to be less if desired. It is + * also an error for the callback to set the size to zero. + *) + GEN_SESSION_CB = function (ssl: PSSL; id: PByte; id_len: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; + + SSL_CTX_info_callback = procedure (const ssl: PSSL; type_: TOpenSSL_C_INT; val: TOpenSSL_C_INT); cdecl; + SSL_CTX_client_cert_cb = function (ssl: PSSL; x509: PPx509; pkey: PPEVP_PKEY): TOpenSSL_C_INT; cdecl; + + SSL_CTX_cookie_verify_cb = function (ssl: PSSL; cookie: PByte; cookie_len: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; + SSL_CTX_set_cookie_verify_cb_app_verify_cookie_cb = function (ssl: PSSL; const cookie: PByte; cookie_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; + SSL_CTX_set_stateless_cookie_generate_cb_gen_stateless_cookie_cb = function (ssl: PSSL; cookie: PByte; cookie_len: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + SSL_CTX_set_stateless_cookie_verify_cb_verify_stateless_cookie_cb = function (ssl: PSSL; const cookie: PByte; cookie_len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; + + SSL_CTX_alpn_select_cb_func = function (ssl: PSSL; const out_: PPByte; outlen: PByte; const in_: PByte; inlen: TOpenSSL_C_UINT; arg: Pointer): TOpenSSL_C_INT; cdecl; + SSL_psk_client_cb_func = function (ssl: PSSL; const hint: PAnsiChar; identity: PAnsiChar; max_identity_len: TOpenSSL_C_UINT; psk: PByte; max_psk_len: TOpenSSL_C_UINT): TOpenSSL_C_UINT; cdecl; + SSL_psk_server_cb_func = function (ssl: PSSL; const identity: PAnsiChar; psk: PByte; max_psk_len: TOpenSSL_C_UINT): TOpenSSL_C_UINT; cdecl; + SSL_psk_find_session_cb_func = function (ssl: PSSL; const identity: PByte; identity_len: TOpenSSL_C_SIZET; sess: PPSSL_SESSION): TOpenSSL_C_INT; cdecl; + SSL_psk_use_session_cb_func = function (ssl: PSSL; const md: PEVP_MD; const id: PPByte; idlen: POpenSSL_C_SIZET; sess: PPSSL_SESSION): TOpenSSL_C_INT; cdecl; + + (* + * A callback for logging out TLS key material. This callback should log out + * |line| followed by a newline. + *) + SSL_CTX_keylog_cb_func = procedure(const ssl: PSSL; const line: PAnsiChar); cdecl; + + (* + * The valid handshake states (one for each type message sent and one for each + * type of message received). There are also two "special" states: + * TLS = TLS or DTLS state + * DTLS = DTLS specific state + * CR/SR = Client Read/Server Read + * CW/SW = Client Write/Server Write + * + * The "special" states are: + * TLS_ST_BEFORE = No handshake has been initiated yet + * TLS_ST_OK = A handshake has been successfully completed + *) + TLS_ST_OK = ( + DTLS_ST_CR_HELLO_VERIFY_REQUEST, + TLS_ST_CR_SRVR_HELLO, + TLS_ST_CR_CERT, + TLS_ST_CR_CERT_STATUS, + TLS_ST_CR_KEY_EXCH, + TLS_ST_CR_CERT_REQ, + TLS_ST_CR_SRVR_DONE, + TLS_ST_CR_SESSION_TICKET, + TLS_ST_CR_CHANGE, + TLS_ST_CR_FINISHED, + TLS_ST_CW_CLNT_HELLO, + TLS_ST_CW_CERT, + TLS_ST_CW_KEY_EXCH, + TLS_ST_CW_CERT_VRFY, + TLS_ST_CW_CHANGE, + TLS_ST_CW_NEXT_PROTO, + TLS_ST_CW_FINISHED, + TLS_ST_SW_HELLO_REQ, + TLS_ST_SR_CLNT_HELLO, + DTLS_ST_SW_HELLO_VERIFY_REQUEST, + TLS_ST_SW_SRVR_HELLO, + TLS_ST_SW_CERT, + TLS_ST_SW_KEY_EXCH, + TLS_ST_SW_CERT_REQ, + TLS_ST_SW_SRVR_DONE, + TLS_ST_SR_CERT, + TLS_ST_SR_KEY_EXCH, + TLS_ST_SR_CERT_VRFY, + TLS_ST_SR_NEXT_PROTO, + TLS_ST_SR_CHANGE, + TLS_ST_SR_FINISHED, + TLS_ST_SW_SESSION_TICKET, + TLS_ST_SW_CERT_STATUS, + TLS_ST_SW_CHANGE, + TLS_ST_SW_FINISHED, + TLS_ST_SW_ENCRYPTED_EXTENSIONS, + TLS_ST_CR_ENCRYPTED_EXTENSIONS, + TLS_ST_CR_CERT_VRFY, + TLS_ST_SW_CERT_VRFY, + TLS_ST_CR_HELLO_REQ, + TLS_ST_SW_KEY_UPDATE, + TLS_ST_CW_KEY_UPDATE, + TLS_ST_SR_KEY_UPDATE, + TLS_ST_CR_KEY_UPDATE, + TLS_ST_EARLY_DATA, + TLS_ST_PENDING_EARLY_DATA_END, + TLS_ST_CW_END_OF_EARLY_DATA + ); + OSSL_HANDSHAKE_STATE = TLS_ST_OK; + + SSL_CTX_set_cert_verify_callback_cb = function (v1: PX509_STORE_CTX; v2: Pointer): TOpenSSL_C_INT; cdecl; + SSL_CTX_set_cert_cb_cb = function (ssl: PSSL; arg: Pointer): TOpenSSL_C_INT; cdecl; + + SSL_CTX_set_srp_client_pwd_callback_cb = function (v1: PSSL; v2: Pointer): PAnsiChar; cdecl; + SSL_CTX_set_srp_verify_param_callback_cb = function (v1: PSSL; v2: Pointer): TOpenSSL_C_INT; cdecl; + SSL_CTX_set_srp_username_callback_cb = function (v1: PSSL; v2: POpenSSL_C_INT; v3: Pointer): TOpenSSL_C_INT; cdecl; + SSL_client_hello_cb_fn = function (s: PSSL; al: POpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; + SSL_callback_ctrl_v3 = procedure; cdecl; + SSL_CTX_callback_ctrl_v3 = procedure; cdecl; + SSL_info_callback = procedure (const ssl: PSSL; type_: TOpenSSL_C_INT; val: TOpenSSL_C_INT); cdecl; + + (* NB: the |keylength| is only applicable when is_export is true *) + SSL_CTX_set_tmp_dh_callback_dh = function (ssl: PSSL; is_export: TOpenSSL_C_INT; keylength: TOpenSSL_C_INT): PDH; cdecl; + SSL_set_tmp_dh_callback_dh = function (ssl: PSSL; is_export: TOpenSSL_C_INT; keylength: TOpenSSL_C_INT): PDH; cdecl; + SSL_CTX_set_not_resumable_session_callback_cb = function (ssl: PSSL; is_forward_secure: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + SSL_set_not_resumable_session_callback_cb = function (ssl: PSSL; is_forward_secure: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + SSL_CTX_set_record_padding_callback_cb = function (ssl: PSSL; type_: TOpenSSL_C_INT; len: TOpenSSL_C_SIZET; arg: Pointer): TOpenSSL_C_SIZET; cdecl; + SSL_set_record_padding_callback_cb = function (ssl: PSSL; type_: TOpenSSL_C_INT; len: TOpenSSL_C_SIZET; arg: Pointer): TOpenSSL_C_SIZET; cdecl; + + (* + * The validation type enumerates the available behaviours of the built-in SSL + * CT validation callback selected via SSL_enable_ct() and SSL_CTX_enable_ct(). + * The underlying callback is a static function in libssl. + *) + SSL_CT_VALIDATION = ( + SSL_CT_VALIDATION_PERMISSIVE = 0, + SSL_CT_VALIDATION_STRICT + ); + SSL_security_callback = function (const s: PSSL; const ctx: PSSL_CTX; op: TOpenSSL_C_INT; bits: TOpenSSL_C_INT; nid: TOpenSSL_C_INT; other: Pointer; ex: Pointer): TOpenSSL_C_INT; cdecl; + + (* Status codes passed to the decrypt session ticket callback. Some of these + * are for internal use only and are never passed to the callback. *) + SSL_TICKET_STATUS = TOpenSSL_C_INT; + SSL_TICKET_RETURN = TOpenSSL_C_INT; + + SSL_CTX_generate_session_ticket_fn = function(s: PSSL; arg: Pointer): TOpenSSL_C_INT; cdecl; + + SSL_CTX_decrypt_session_ticket_fn = function (s: PSSL; ss: PSSL_SESSION; const keyname: PByte; keyname_length: TOpenSSL_C_SIZET; status: SSL_TICKET_STATUS; arg: Pointer): SSL_TICKET_RETURN; cdecl; + + DTLS_timer_cb = function(s: PSSL; timer_us: TOpenSSL_C_UINT): TOpenSSL_C_UINT; cdecl; + SSL_allow_early_data_cb_fn = function(s: PSSL; arg: Pointer): TOpenSSL_C_INT; cdecl; + + SSL_CTX_sess_new_cb = function (ssl: PSSL; sess: PSSL_SESSION): TOpenSSL_C_INT; cdecl; + + SSL_CTX_sess_remove_cb = procedure(ctx: PSSL_CTX; sess: PSSL_SESSION); cdecl; + + TSSL_CTX_set_verify_callback = function (ok : TOpenSSL_C_INT; ctx : PX509_STORE_CTX) : TOpenSSL_C_INT; cdecl; + + + +type + TOpenSSL_Version = (sslUnknown,sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1,sslvTLSv1_1, + sslvTLSv1_2, sslvTLSv1_3); + + procedure OpenSSL_SetMethod(aMethod: TOpenSSL_Version); {used for pre 1.1.0 OpenSSL} + + function IsOpenSSL_SSLv2_Available : Boolean; + function IsOpenSSL_SSLv3_Available : Boolean; + function IsOpenSSL_SSLv23_Available : Boolean; + function IsOpenSSL_TLSv1_0_Available : Boolean; + function IsOpenSSL_TLSv1_1_Available : Boolean; + function IsOpenSSL_TLSv1_2_Available : Boolean; + function HasTLS_method: boolean; + function SSL_CTX_set_min_proto_version(ctx: PSSL_CTX; version: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + function SSL_CTX_set_max_proto_version(ctx: PSSL_CTX; version: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + function SSL_CTX_get_min_proto_version(ctx: PSSL_CTX): TOpenSSL_C_LONG; + function SSL_CTX_get_max_proto_version(ctx: PSSL_CTX): TOpenSSL_C_LONG; + function SSL_set_min_proto_version(s: PSSL; version: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + function SSL_set_max_proto_version(s: PSSL; version: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + function SSL_get_min_proto_version(s: PSSL): TOpenSSL_C_LONG; + function SSL_get_max_proto_version(s: PSSL): TOpenSSL_C_LONG; + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM SSL_CTX_get_options} +{$EXTERNALSYM SSL_get_options} +{$EXTERNALSYM SSL_CTX_clear_options} +{$EXTERNALSYM SSL_clear_options} +{$EXTERNALSYM SSL_CTX_set_options} +{$EXTERNALSYM SSL_set_options} +{$EXTERNALSYM SSL_CTX_sess_set_new_cb} +{$EXTERNALSYM SSL_CTX_sess_get_new_cb} +{$EXTERNALSYM SSL_CTX_sess_set_remove_cb} +{$EXTERNALSYM SSL_CTX_sess_get_remove_cb} +{$EXTERNALSYM SSL_CTX_set_info_callback} +{$EXTERNALSYM SSL_CTX_get_info_callback} +{$EXTERNALSYM SSL_CTX_set_client_cert_cb} +{$EXTERNALSYM SSL_CTX_get_client_cert_cb} +{$EXTERNALSYM SSL_CTX_set_client_cert_engine} +{$EXTERNALSYM SSL_CTX_set_cookie_generate_cb} +{$EXTERNALSYM SSL_CTX_set_cookie_verify_cb} +{$EXTERNALSYM SSL_CTX_set_stateless_cookie_generate_cb} +{$EXTERNALSYM SSL_CTX_set_stateless_cookie_verify_cb} +{$EXTERNALSYM SSL_CTX_set_alpn_select_cb} +{$EXTERNALSYM SSL_get0_alpn_selected} +{$EXTERNALSYM SSL_CTX_set_psk_client_callback} +{$EXTERNALSYM SSL_set_psk_client_callback} +{$EXTERNALSYM SSL_CTX_set_psk_server_callback} +{$EXTERNALSYM SSL_set_psk_server_callback} +{$EXTERNALSYM SSL_set_psk_find_session_callback} +{$EXTERNALSYM SSL_CTX_set_psk_find_session_callback} +{$EXTERNALSYM SSL_set_psk_use_session_callback} +{$EXTERNALSYM SSL_CTX_set_psk_use_session_callback} +{$EXTERNALSYM SSL_CTX_set_keylog_callback} +{$EXTERNALSYM SSL_CTX_get_keylog_callback} +{$EXTERNALSYM SSL_CTX_set_max_early_data} +{$EXTERNALSYM SSL_CTX_get_max_early_data} +{$EXTERNALSYM SSL_set_max_early_data} +{$EXTERNALSYM SSL_get_max_early_data} +{$EXTERNALSYM SSL_CTX_set_recv_max_early_data} +{$EXTERNALSYM SSL_CTX_get_recv_max_early_data} +{$EXTERNALSYM SSL_set_recv_max_early_data} +{$EXTERNALSYM SSL_get_recv_max_early_data} +{$EXTERNALSYM SSL_in_init} +{$EXTERNALSYM SSL_in_before} +{$EXTERNALSYM SSL_is_init_finished} +{$EXTERNALSYM SSL_get_finished} +{$EXTERNALSYM SSL_get_peer_finished} +{$EXTERNALSYM BIO_f_ssl} +{$EXTERNALSYM BIO_new_ssl} +{$EXTERNALSYM BIO_new_ssl_connect} +{$EXTERNALSYM BIO_new_buffer_ssl_connect} +{$EXTERNALSYM BIO_ssl_copy_session_id} +{$EXTERNALSYM SSL_CTX_set_cipher_list} +{$EXTERNALSYM SSL_CTX_new} +{$EXTERNALSYM SSL_CTX_set_timeout} +{$EXTERNALSYM SSL_CTX_get_timeout} +{$EXTERNALSYM SSL_CTX_get_cert_store} +{$EXTERNALSYM SSL_want} +{$EXTERNALSYM SSL_clear} +{$EXTERNALSYM BIO_ssl_shutdown} +{$EXTERNALSYM SSL_CTX_up_ref} +{$EXTERNALSYM SSL_CTX_free} +{$EXTERNALSYM SSL_CTX_set_cert_store} +{$EXTERNALSYM SSL_CTX_set1_cert_store} +{$EXTERNALSYM SSL_CTX_flush_sessions} +{$EXTERNALSYM SSL_get_current_cipher} +{$EXTERNALSYM SSL_get_pending_cipher} +{$EXTERNALSYM SSL_CIPHER_get_bits} +{$EXTERNALSYM SSL_CIPHER_get_version} +{$EXTERNALSYM SSL_CIPHER_get_name} +{$EXTERNALSYM SSL_CIPHER_standard_name} +{$EXTERNALSYM OPENSSL_cipher_name} +{$EXTERNALSYM SSL_CIPHER_get_id} +{$EXTERNALSYM SSL_CIPHER_get_protocol_id} +{$EXTERNALSYM SSL_CIPHER_get_kx_nid} +{$EXTERNALSYM SSL_CIPHER_get_auth_nid} +{$EXTERNALSYM SSL_CIPHER_get_handshake_digest} +{$EXTERNALSYM SSL_CIPHER_is_aead} +{$EXTERNALSYM SSL_get_fd} +{$EXTERNALSYM SSL_get_rfd} +{$EXTERNALSYM SSL_get_wfd} +{$EXTERNALSYM SSL_get_cipher_list} +{$EXTERNALSYM SSL_get_shared_ciphers} +{$EXTERNALSYM SSL_get_read_ahead} +{$EXTERNALSYM SSL_pending} +{$EXTERNALSYM SSL_has_pending} +{$EXTERNALSYM SSL_set_fd} +{$EXTERNALSYM SSL_set_rfd} +{$EXTERNALSYM SSL_set_wfd} +{$EXTERNALSYM SSL_set0_rbio} +{$EXTERNALSYM SSL_set0_wbio} +{$EXTERNALSYM SSL_set_bio} +{$EXTERNALSYM SSL_get_rbio} +{$EXTERNALSYM SSL_get_wbio} +{$EXTERNALSYM SSL_set_cipher_list} +{$EXTERNALSYM SSL_CTX_set_ciphersuites} +{$EXTERNALSYM SSL_set_ciphersuites} +{$EXTERNALSYM SSL_get_verify_mode} +{$EXTERNALSYM SSL_get_verify_depth} +{$EXTERNALSYM SSL_get_verify_callback} +{$EXTERNALSYM SSL_set_read_ahead} +{$EXTERNALSYM SSL_set_verify} +{$EXTERNALSYM SSL_set_verify_depth} +{$EXTERNALSYM SSL_use_RSAPrivateKey} +{$EXTERNALSYM SSL_use_RSAPrivateKey_ASN1} +{$EXTERNALSYM SSL_use_PrivateKey} +{$EXTERNALSYM SSL_use_PrivateKey_ASN1} +{$EXTERNALSYM SSL_use_certificate} +{$EXTERNALSYM SSL_use_certificate_ASN1} +{$EXTERNALSYM SSL_CTX_use_serverinfo} +{$EXTERNALSYM SSL_CTX_use_serverinfo_ex} +{$EXTERNALSYM SSL_CTX_use_serverinfo_file} +{$EXTERNALSYM SSL_use_RSAPrivateKey_file} +{$EXTERNALSYM SSL_use_PrivateKey_file} +{$EXTERNALSYM SSL_use_certificate_file} +{$EXTERNALSYM SSL_CTX_use_RSAPrivateKey_file} +{$EXTERNALSYM SSL_CTX_use_PrivateKey_file} +{$EXTERNALSYM SSL_CTX_use_certificate_file} +{$EXTERNALSYM SSL_CTX_use_certificate_chain_file} +{$EXTERNALSYM SSL_use_certificate_chain_file} +{$EXTERNALSYM SSL_load_client_CA_file} +{$EXTERNALSYM SSL_add_file_cert_subjects_to_stack} +{$EXTERNALSYM SSL_add_dir_cert_subjects_to_stack} +{$EXTERNALSYM SSL_state_string} +{$EXTERNALSYM SSL_rstate_string} +{$EXTERNALSYM SSL_state_string_long} +{$EXTERNALSYM SSL_rstate_string_long} +{$EXTERNALSYM SSL_SESSION_get_time} +{$EXTERNALSYM SSL_SESSION_set_time} +{$EXTERNALSYM SSL_SESSION_get_timeout} +{$EXTERNALSYM SSL_SESSION_set_timeout} +{$EXTERNALSYM SSL_SESSION_get_protocol_version} +{$EXTERNALSYM SSL_SESSION_set_protocol_version} +{$EXTERNALSYM SSL_SESSION_get0_hostname} +{$EXTERNALSYM SSL_SESSION_set1_hostname} +{$EXTERNALSYM SSL_SESSION_get0_alpn_selected} +{$EXTERNALSYM SSL_SESSION_set1_alpn_selected} +{$EXTERNALSYM SSL_SESSION_get0_cipher} +{$EXTERNALSYM SSL_SESSION_set_cipher} +{$EXTERNALSYM SSL_SESSION_has_ticket} +{$EXTERNALSYM SSL_SESSION_get_ticket_lifetime_hint} +{$EXTERNALSYM SSL_SESSION_get0_ticket} +{$EXTERNALSYM SSL_SESSION_get_max_early_data} +{$EXTERNALSYM SSL_SESSION_set_max_early_data} +{$EXTERNALSYM SSL_copy_session_id} +{$EXTERNALSYM SSL_SESSION_get0_peer} +{$EXTERNALSYM SSL_SESSION_set1_id_context} +{$EXTERNALSYM SSL_SESSION_set1_id} +{$EXTERNALSYM SSL_SESSION_is_resumable} +{$EXTERNALSYM SSL_SESSION_new} +{$EXTERNALSYM SSL_SESSION_dup} +{$EXTERNALSYM SSL_SESSION_get_id} +{$EXTERNALSYM SSL_SESSION_get0_id_context} +{$EXTERNALSYM SSL_SESSION_get_compress_id} +{$EXTERNALSYM SSL_SESSION_print} +{$EXTERNALSYM SSL_SESSION_print_keylog} +{$EXTERNALSYM SSL_SESSION_up_ref} +{$EXTERNALSYM SSL_SESSION_free} +{$EXTERNALSYM SSL_set_session} +{$EXTERNALSYM SSL_CTX_add_session} +{$EXTERNALSYM SSL_CTX_remove_session} +{$EXTERNALSYM SSL_CTX_set_generate_session_id} +{$EXTERNALSYM SSL_set_generate_session_id} +{$EXTERNALSYM SSL_has_matching_session_id} +{$EXTERNALSYM d2i_SSL_SESSION} +{$EXTERNALSYM SSL_CTX_get_verify_mode} +{$EXTERNALSYM SSL_CTX_get_verify_depth} +{$EXTERNALSYM SSL_CTX_get_verify_callback} +{$EXTERNALSYM SSL_CTX_set_verify} +{$EXTERNALSYM SSL_CTX_set_verify_depth} +{$EXTERNALSYM SSL_CTX_set_cert_verify_callback} +{$EXTERNALSYM SSL_CTX_set_cert_cb} +{$EXTERNALSYM SSL_CTX_use_RSAPrivateKey} +{$EXTERNALSYM SSL_CTX_use_RSAPrivateKey_ASN1} +{$EXTERNALSYM SSL_CTX_use_PrivateKey} +{$EXTERNALSYM SSL_CTX_use_PrivateKey_ASN1} +{$EXTERNALSYM SSL_CTX_use_certificate} +{$EXTERNALSYM SSL_CTX_use_certificate_ASN1} +{$EXTERNALSYM SSL_CTX_set_default_passwd_cb} +{$EXTERNALSYM SSL_CTX_set_default_passwd_cb_userdata} +{$EXTERNALSYM SSL_CTX_get_default_passwd_cb} +{$EXTERNALSYM SSL_CTX_get_default_passwd_cb_userdata} +{$EXTERNALSYM SSL_set_default_passwd_cb} +{$EXTERNALSYM SSL_set_default_passwd_cb_userdata} +{$EXTERNALSYM SSL_get_default_passwd_cb} +{$EXTERNALSYM SSL_get_default_passwd_cb_userdata} +{$EXTERNALSYM SSL_CTX_check_private_key} +{$EXTERNALSYM SSL_check_private_key} +{$EXTERNALSYM SSL_CTX_set_session_id_context} +{$EXTERNALSYM SSL_new} +{$EXTERNALSYM SSL_up_ref} +{$EXTERNALSYM SSL_is_dtls} +{$EXTERNALSYM SSL_set_session_id_context} +{$EXTERNALSYM SSL_CTX_set_purpose} +{$EXTERNALSYM SSL_set_purpose} +{$EXTERNALSYM SSL_CTX_set_trust} +{$EXTERNALSYM SSL_set_trust} +{$EXTERNALSYM SSL_set1_host} +{$EXTERNALSYM SSL_add1_host} +{$EXTERNALSYM SSL_get0_peername} +{$EXTERNALSYM SSL_set_hostflags} +{$EXTERNALSYM SSL_CTX_dane_enable} +{$EXTERNALSYM SSL_CTX_dane_mtype_set} +{$EXTERNALSYM SSL_dane_enable} +{$EXTERNALSYM SSL_dane_tlsa_add} +{$EXTERNALSYM SSL_get0_dane_authority} +{$EXTERNALSYM SSL_get0_dane_tlsa} +{$EXTERNALSYM SSL_get0_dane} +{$EXTERNALSYM SSL_CTX_dane_set_flags} +{$EXTERNALSYM SSL_CTX_dane_clear_flags} +{$EXTERNALSYM SSL_dane_set_flags} +{$EXTERNALSYM SSL_dane_clear_flags} +{$EXTERNALSYM SSL_CTX_set1_param} +{$EXTERNALSYM SSL_set1_param} +{$EXTERNALSYM SSL_CTX_get0_param} +{$EXTERNALSYM SSL_get0_param} +{$EXTERNALSYM SSL_CTX_set_srp_username} +{$EXTERNALSYM SSL_CTX_set_srp_password} +{$EXTERNALSYM SSL_CTX_set_srp_strength} +{$EXTERNALSYM SSL_CTX_set_srp_client_pwd_callback} +{$EXTERNALSYM SSL_CTX_set_srp_verify_param_callback} +{$EXTERNALSYM SSL_CTX_set_srp_username_callback} +{$EXTERNALSYM SSL_CTX_set_srp_cb_arg} +{$EXTERNALSYM SSL_set_srp_server_param} +{$EXTERNALSYM SSL_set_srp_server_param_pw} +{$EXTERNALSYM SSL_CTX_set_client_hello_cb} +{$EXTERNALSYM SSL_client_hello_isv2} +{$EXTERNALSYM SSL_client_hello_get0_legacy_version} +{$EXTERNALSYM SSL_client_hello_get0_random} +{$EXTERNALSYM SSL_client_hello_get0_session_id} +{$EXTERNALSYM SSL_client_hello_get0_ciphers} +{$EXTERNALSYM SSL_client_hello_get0_compression_methods} +{$EXTERNALSYM SSL_client_hello_get1_extensions_present} +{$EXTERNALSYM SSL_client_hello_get0_ext} +{$EXTERNALSYM SSL_certs_clear} +{$EXTERNALSYM SSL_free} +{$EXTERNALSYM SSL_waiting_for_async} +{$EXTERNALSYM SSL_get_all_async_fds} +{$EXTERNALSYM SSL_get_changed_async_fds} +{$EXTERNALSYM SSL_accept} +{$EXTERNALSYM SSL_stateless} +{$EXTERNALSYM SSL_connect} +{$EXTERNALSYM SSL_read} +{$EXTERNALSYM SSL_read_ex} +{$EXTERNALSYM SSL_read_early_data} +{$EXTERNALSYM SSL_peek} +{$EXTERNALSYM SSL_peek_ex} +{$EXTERNALSYM SSL_write} +{$EXTERNALSYM SSL_write_ex} +{$EXTERNALSYM SSL_write_early_data} +{$EXTERNALSYM SSL_callback_ctrl} +{$EXTERNALSYM SSL_ctrl} +{$EXTERNALSYM SSL_CTX_ctrl} +{$EXTERNALSYM SSL_CTX_callback_ctrl} +{$EXTERNALSYM SSL_get_early_data_status} +{$EXTERNALSYM SSL_get_error} +{$EXTERNALSYM SSL_get_version} +{$EXTERNALSYM SSL_CTX_set_ssl_version} +{$EXTERNALSYM TLS_method} +{$EXTERNALSYM TLS_server_method} +{$EXTERNALSYM TLS_client_method} +{$EXTERNALSYM SSL_do_handshake} +{$EXTERNALSYM SSL_key_update} +{$EXTERNALSYM SSL_get_key_update_type} +{$EXTERNALSYM SSL_renegotiate} +{$EXTERNALSYM SSL_renegotiate_abbreviated} +{$EXTERNALSYM SSL_new_session_ticket} +{$EXTERNALSYM SSL_shutdown} +{$EXTERNALSYM SSL_CTX_set_post_handshake_auth} +{$EXTERNALSYM SSL_set_post_handshake_auth} +{$EXTERNALSYM SSL_renegotiate_pending} +{$EXTERNALSYM SSL_verify_client_post_handshake} +{$EXTERNALSYM SSL_CTX_get_ssl_method} +{$EXTERNALSYM SSL_get_ssl_method} +{$EXTERNALSYM SSL_set_ssl_method} +{$EXTERNALSYM SSL_alert_type_string_long} +{$EXTERNALSYM SSL_alert_type_string} +{$EXTERNALSYM SSL_alert_desc_string_long} +{$EXTERNALSYM SSL_alert_desc_string} +{$EXTERNALSYM SSL_CTX_set_client_CA_list} +{$EXTERNALSYM SSL_add_client_CA} +{$EXTERNALSYM SSL_CTX_add_client_CA} +{$EXTERNALSYM SSL_set_connect_state} +{$EXTERNALSYM SSL_set_accept_state} +{$EXTERNALSYM SSL_CIPHER_description} +{$EXTERNALSYM SSL_dup} +{$EXTERNALSYM SSL_get_certificate} +{$EXTERNALSYM SSL_get_privatekey} +{$EXTERNALSYM SSL_CTX_get0_certificate} +{$EXTERNALSYM SSL_CTX_get0_privatekey} +{$EXTERNALSYM SSL_CTX_set_quiet_shutdown} +{$EXTERNALSYM SSL_CTX_get_quiet_shutdown} +{$EXTERNALSYM SSL_set_quiet_shutdown} +{$EXTERNALSYM SSL_get_quiet_shutdown} +{$EXTERNALSYM SSL_set_shutdown} +{$EXTERNALSYM SSL_get_shutdown} +{$EXTERNALSYM SSL_version} +{$EXTERNALSYM SSL_client_version} +{$EXTERNALSYM SSL_CTX_set_default_verify_paths} +{$EXTERNALSYM SSL_CTX_set_default_verify_dir} +{$EXTERNALSYM SSL_CTX_set_default_verify_file} +{$EXTERNALSYM SSL_CTX_load_verify_locations} +{$EXTERNALSYM SSL_get_session} +{$EXTERNALSYM SSL_get1_session} +{$EXTERNALSYM SSL_get_SSL_CTX} +{$EXTERNALSYM SSL_set_SSL_CTX} +{$EXTERNALSYM SSL_set_info_callback} +{$EXTERNALSYM SSL_get_info_callback} +{$EXTERNALSYM SSL_get_state} +{$EXTERNALSYM SSL_set_verify_result} +{$EXTERNALSYM SSL_get_verify_result} +{$EXTERNALSYM SSL_get_client_random} +{$EXTERNALSYM SSL_get_server_random} +{$EXTERNALSYM SSL_SESSION_get_master_key} +{$EXTERNALSYM SSL_SESSION_set1_master_key} +{$EXTERNALSYM SSL_SESSION_get_max_fragment_length} +{$EXTERNALSYM SSL_set_ex_data} +{$EXTERNALSYM SSL_get_ex_data} +{$EXTERNALSYM SSL_SESSION_set_ex_data} +{$EXTERNALSYM SSL_SESSION_get_ex_data} +{$EXTERNALSYM SSL_CTX_set_ex_data} +{$EXTERNALSYM SSL_CTX_get_ex_data} +{$EXTERNALSYM SSL_get_ex_data_X509_STORE_CTX_idx} +{$EXTERNALSYM SSL_CTX_set_default_read_buffer_len} +{$EXTERNALSYM SSL_set_default_read_buffer_len} +{$EXTERNALSYM SSL_CTX_set_tmp_dh_callback} +{$EXTERNALSYM SSL_set_tmp_dh_callback} +{$EXTERNALSYM SSL_CIPHER_find} +{$EXTERNALSYM SSL_CIPHER_get_cipher_nid} +{$EXTERNALSYM SSL_CIPHER_get_digest_nid} +{$EXTERNALSYM SSL_set_session_ticket_ext} +{$EXTERNALSYM SSL_set_session_ticket_ext_cb} +{$EXTERNALSYM SSL_CTX_set_not_resumable_session_callback} +{$EXTERNALSYM SSL_set_not_resumable_session_callback} +{$EXTERNALSYM SSL_CTX_set_record_padding_callback} +{$EXTERNALSYM SSL_CTX_set_record_padding_callback_arg} +{$EXTERNALSYM SSL_CTX_get_record_padding_callback_arg} +{$EXTERNALSYM SSL_CTX_set_block_padding} +{$EXTERNALSYM SSL_set_record_padding_callback} +{$EXTERNALSYM SSL_set_record_padding_callback_arg} +{$EXTERNALSYM SSL_get_record_padding_callback_arg} +{$EXTERNALSYM SSL_set_block_padding} +{$EXTERNALSYM SSL_set_num_tickets} +{$EXTERNALSYM SSL_get_num_tickets} +{$EXTERNALSYM SSL_CTX_set_num_tickets} +{$EXTERNALSYM SSL_CTX_get_num_tickets} +{$EXTERNALSYM SSL_session_reused} +{$EXTERNALSYM SSL_is_server} +{$EXTERNALSYM SSL_CONF_CTX_new} +{$EXTERNALSYM SSL_CONF_CTX_finish} +{$EXTERNALSYM SSL_CONF_CTX_free} +{$EXTERNALSYM SSL_CONF_CTX_set_flags} +{$EXTERNALSYM SSL_CONF_CTX_clear_flags} +{$EXTERNALSYM SSL_CONF_CTX_set1_prefix} +{$EXTERNALSYM SSL_CONF_cmd} +{$EXTERNALSYM SSL_CONF_cmd_argv} +{$EXTERNALSYM SSL_CONF_cmd_value_type} +{$EXTERNALSYM SSL_CONF_CTX_set_ssl} +{$EXTERNALSYM SSL_CONF_CTX_set_ssl_ctx} +{$EXTERNALSYM SSL_add_ssl_module} +{$EXTERNALSYM SSL_config} +{$EXTERNALSYM SSL_CTX_config} +{$EXTERNALSYM DTLSv1_listen} +{$EXTERNALSYM SSL_enable_ct} +{$EXTERNALSYM SSL_CTX_enable_ct} +{$EXTERNALSYM SSL_ct_is_enabled} +{$EXTERNALSYM SSL_CTX_ct_is_enabled} +{$EXTERNALSYM SSL_CTX_set_default_ctlog_list_file} +{$EXTERNALSYM SSL_CTX_set_ctlog_list_file} +{$EXTERNALSYM SSL_CTX_set0_ctlog_store} +{$EXTERNALSYM SSL_set_security_level} +{$EXTERNALSYM SSL_set_security_callback} +{$EXTERNALSYM SSL_get_security_callback} +{$EXTERNALSYM SSL_set0_security_ex_data} +{$EXTERNALSYM SSL_get0_security_ex_data} +{$EXTERNALSYM SSL_CTX_set_security_level} +{$EXTERNALSYM SSL_CTX_get_security_level} +{$EXTERNALSYM SSL_CTX_get0_security_ex_data} +{$EXTERNALSYM SSL_CTX_set0_security_ex_data} +{$EXTERNALSYM OPENSSL_init_ssl} +{$EXTERNALSYM SSL_free_buffers} +{$EXTERNALSYM SSL_alloc_buffers} +{$EXTERNALSYM SSL_CTX_set_session_ticket_cb} +{$EXTERNALSYM SSL_SESSION_set1_ticket_appdata} +{$EXTERNALSYM SSL_SESSION_get0_ticket_appdata} +{$EXTERNALSYM DTLS_set_timer_cb} +{$EXTERNALSYM SSL_CTX_set_allow_early_data_cb} +{$EXTERNALSYM SSL_set_allow_early_data_cb} +{$EXTERNALSYM SSL_get0_peer_certificate} +{$EXTERNALSYM SSL_get1_peer_certificate} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function SSL_CTX_get_options(const ctx: PSSL_CTX): TOpenSSL_C_ULONG; cdecl; external CLibSSL; +function SSL_get_options(const s: PSSL): TOpenSSL_C_ULONG; cdecl; external CLibSSL; +function SSL_CTX_clear_options(ctx: PSSL_CTX; op: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; external CLibSSL; +function SSL_clear_options(s: PSSL; op: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; external CLibSSL; +function SSL_CTX_set_options(ctx: PSSL_CTX; op: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; external CLibSSL; +function SSL_set_options(s: PSSL; op: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; external CLibSSL; +procedure SSL_CTX_sess_set_new_cb(ctx: PSSL_CTX; new_session_cb: SSL_CTX_sess_new_cb); cdecl; external CLibSSL; +function SSL_CTX_sess_get_new_cb(ctx: PSSL_CTX): SSL_CTX_sess_new_cb; cdecl; external CLibSSL; +procedure SSL_CTX_sess_set_remove_cb(ctx: PSSL_CTX; remove_session_cb: SSL_CTX_sess_remove_cb); cdecl; external CLibSSL; +function SSL_CTX_sess_get_remove_cb(ctx: PSSL_CTX): SSL_CTX_sess_remove_cb; cdecl; external CLibSSL; +procedure SSL_CTX_set_info_callback(ctx: PSSL_CTX; cb: SSL_CTX_info_callback); cdecl; external CLibSSL; +function SSL_CTX_get_info_callback(ctx: PSSL_CTX): SSL_CTX_info_callback; cdecl; external CLibSSL; +procedure SSL_CTX_set_client_cert_cb(ctx: PSSL_CTX; client_cert_cb: SSL_CTX_client_cert_cb); cdecl; external CLibSSL; +function SSL_CTX_get_client_cert_cb(ctx: PSSL_CTX): SSL_CTX_client_cert_cb; cdecl; external CLibSSL; +function SSL_CTX_set_client_cert_engine(ctx: PSSL_CTX; e: PENGINE): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_CTX_set_cookie_generate_cb(ctx: PSSL_CTX; app_gen_cookie_cb: SSL_CTX_cookie_verify_cb); cdecl; external CLibSSL; +procedure SSL_CTX_set_cookie_verify_cb(ctx: PSSL_CTX; app_verify_cookie_cb: SSL_CTX_set_cookie_verify_cb_app_verify_cookie_cb); cdecl; external CLibSSL; +procedure SSL_CTX_set_stateless_cookie_generate_cb(ctx: PSSL_CTX; gen_stateless_cookie_cb: SSL_CTX_set_stateless_cookie_generate_cb_gen_stateless_cookie_cb); cdecl; external CLibSSL; +procedure SSL_CTX_set_stateless_cookie_verify_cb(ctx: PSSL_CTX; verify_stateless_cookie_cb: SSL_CTX_set_stateless_cookie_verify_cb_verify_stateless_cookie_cb); cdecl; external CLibSSL; +procedure SSL_CTX_set_alpn_select_cb(ctx: PSSL_CTX; cb: SSL_CTX_alpn_select_cb_func; arg: Pointer); cdecl; external CLibSSL; +procedure SSL_get0_alpn_selected(const ssl: PSSL; const data: PPByte; len: POpenSSL_C_UINT); cdecl; external CLibSSL; +procedure SSL_CTX_set_psk_client_callback(ctx: PSSL_CTX; cb: SSL_psk_client_cb_func); cdecl; external CLibSSL; +procedure SSL_set_psk_client_callback(ssl: PSSL; cb: SSL_psk_client_cb_func); cdecl; external CLibSSL; +procedure SSL_CTX_set_psk_server_callback(ctx: PSSL_CTX; cb: SSL_psk_server_cb_func); cdecl; external CLibSSL; +procedure SSL_set_psk_server_callback(ssl: PSSL; cb: SSL_psk_server_cb_func); cdecl; external CLibSSL; +procedure SSL_set_psk_find_session_callback(s: PSSL; cb: SSL_psk_find_session_cb_func); cdecl; external CLibSSL; +procedure SSL_CTX_set_psk_find_session_callback(ctx: PSSL_CTX; cb: SSL_psk_find_session_cb_func); cdecl; external CLibSSL; +procedure SSL_set_psk_use_session_callback(s: PSSL; cb: SSL_psk_use_session_cb_func); cdecl; external CLibSSL; +procedure SSL_CTX_set_psk_use_session_callback(ctx: PSSL_CTX; cb: SSL_psk_use_session_cb_func); cdecl; external CLibSSL; +procedure SSL_CTX_set_keylog_callback(ctx: PSSL_CTX; cb: SSL_CTX_keylog_cb_func); cdecl; external CLibSSL; +function SSL_CTX_get_keylog_callback(const ctx: PSSL_CTX): SSL_CTX_keylog_cb_func; cdecl; external CLibSSL; +function SSL_CTX_set_max_early_data(ctx: PSSL_CTX; max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_get_max_early_data(const ctx: PSSL_CTX): TOpenSSL_C_UINT32; cdecl; external CLibSSL; +function SSL_set_max_early_data(s: PSSL; max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_max_early_data(const s: PSSL): TOpenSSL_C_UINT32; cdecl; external CLibSSL; +function SSL_CTX_set_recv_max_early_data(ctx: PSSL_CTX; recv_max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_get_recv_max_early_data(const ctx: PSSL_CTX): TOpenSSL_C_UINT32; cdecl; external CLibSSL; +function SSL_set_recv_max_early_data(s: PSSL; recv_max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_recv_max_early_data(const s: PSSL): TOpenSSL_C_UINT32; cdecl; external CLibSSL; +function SSL_in_init(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_in_before(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_is_init_finished(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_finished(const s: PSSL; buf: Pointer; count: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; external CLibSSL; +function SSL_get_peer_finished(const s: PSSL; buf: Pointer; count: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; external CLibSSL; +function BIO_f_ssl: PBIO_METHOD; cdecl; external CLibSSL; +function BIO_new_ssl(ctx: PSSL_CTX; client: TOpenSSL_C_INT): PBIO; cdecl; external CLibSSL; +function BIO_new_ssl_connect(ctx: PSSL_CTX): PBIO; cdecl; external CLibSSL; +function BIO_new_buffer_ssl_connect(ctx: PSSL_CTX): PBIO; cdecl; external CLibSSL; +function BIO_ssl_copy_session_id(to_: PBIO; from: PBIO): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_cipher_list(v1: PSSL_CTX; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_new(const meth: PSSL_METHOD): PSSL_CTX; cdecl; external CLibSSL; +function SSL_CTX_set_timeout(ctx: PSSL_CTX; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; external CLibSSL; +function SSL_CTX_get_timeout(const ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl; external CLibSSL; +function SSL_CTX_get_cert_store(const v1: PSSL_CTX): PX509_STORE; cdecl; external CLibSSL; +function SSL_want(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_clear(s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure BIO_ssl_shutdown(ssl_bio: PBIO); cdecl; external CLibSSL; +function SSL_CTX_up_ref(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_CTX_free(v1: PSSL_CTX); cdecl; external CLibSSL; +procedure SSL_CTX_set_cert_store(v1: PSSL_CTX; v2: PX509_STORE); cdecl; external CLibSSL; +procedure SSL_CTX_set1_cert_store(v1: PSSL_CTX; v2: PX509_STORE); cdecl; external CLibSSL; +procedure SSL_CTX_flush_sessions(ctx: PSSL_CTX; tm: TOpenSSL_C_LONG); cdecl; external CLibSSL; +function SSL_get_current_cipher(const s: PSSL): PSSL_CIPHER; cdecl; external CLibSSL; +function SSL_get_pending_cipher(const s: PSSL): PSSL_CIPHER; cdecl; external CLibSSL; +function SSL_CIPHER_get_bits(const c: PSSL_CIPHER; var alg_bits: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CIPHER_get_version(const c: PSSL_CIPHER): PAnsiChar; cdecl; external CLibSSL; +function SSL_CIPHER_get_name(const c: PSSL_CIPHER): PAnsiChar; cdecl; external CLibSSL; +function SSL_CIPHER_standard_name(const c: PSSL_CIPHER): PAnsiChar; cdecl; external CLibSSL; +function OPENSSL_cipher_name(const rfc_name: PAnsiChar): PAnsiChar; cdecl; external CLibSSL; +function SSL_CIPHER_get_id(const c: PSSL_CIPHER): TOpenSSL_C_UINT32; cdecl; external CLibSSL; +function SSL_CIPHER_get_protocol_id(const c: PSSL_CIPHER): TOpenSSL_C_UINT16; cdecl; external CLibSSL; +function SSL_CIPHER_get_kx_nid(const c: PSSL_CIPHER): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CIPHER_get_auth_nid(const c: PSSL_CIPHER): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CIPHER_get_handshake_digest(const c: PSSL_CIPHER): PEVP_MD; cdecl; external CLibSSL; +function SSL_CIPHER_is_aead(const c: PSSL_CIPHER): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_fd(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_rfd(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_wfd(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_cipher_list(const s: PSSL; n: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibSSL; +function SSL_get_shared_ciphers(const s: PSSL; buf: PAnsiChar; size: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibSSL; +function SSL_get_read_ahead(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_pending(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_has_pending(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_set_fd(s: PSSL; fd: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_set_rfd(s: PSSL; fd: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_set_wfd(s: PSSL; fd: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_set0_rbio(s: PSSL; rbio: PBIO); cdecl; external CLibSSL; +procedure SSL_set0_wbio(s: PSSL; wbio: PBIO); cdecl; external CLibSSL; +procedure SSL_set_bio(s: PSSL; rbio: PBIO; wbio: PBIO); cdecl; external CLibSSL; +function SSL_get_rbio(const s: PSSL): PBIO; cdecl; external CLibSSL; +function SSL_get_wbio(const s: PSSL): PBIO; cdecl; external CLibSSL; +function SSL_set_cipher_list(s: PSSL; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_ciphersuites(ctx: PSSL_CTX; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_set_ciphersuites(s: PSSL; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_verify_mode(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_verify_depth(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_verify_callback(const s: PSSL): SSL_verify_cb; cdecl; external CLibSSL; +procedure SSL_set_read_ahead(s: PSSL; yes: TOpenSSL_C_INT); cdecl; external CLibSSL; +procedure SSL_set_verify(s: PSSL; mode: TOpenSSL_C_INT; callback: SSL_verify_cb); cdecl; external CLibSSL; +procedure SSL_set_verify_depth(s: PSSL; depth: TOpenSSL_C_INT); cdecl; external CLibSSL; +function SSL_use_RSAPrivateKey(ssl: PSSL; rsa: PRSA): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_use_RSAPrivateKey_ASN1(ssl: PSSL; const d: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_use_PrivateKey(ssl: PSSL; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_use_PrivateKey_ASN1(pk: TOpenSSL_C_INT; ssl: PSSL; const d: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_use_certificate(ssl: PSSL; x: PX509): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_use_certificate_ASN1(ssl: PSSL; const d: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_use_serverinfo(ctx: PSSL_CTX; const serverinfo: PByte; serverinfo_length: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_use_serverinfo_ex(ctx: PSSL_CTX; version: TOpenSSL_C_UINT; const serverinfo: PByte; serverinfo_length: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_use_serverinfo_file(ctx: PSSL_CTX; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_use_RSAPrivateKey_file(ssl: PSSL; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_use_PrivateKey_file(ssl: PSSL; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_use_certificate_file(ssl: PSSL; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_use_RSAPrivateKey_file(ctx: PSSL_CTX; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_use_PrivateKey_file(ctx: PSSL_CTX; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_use_certificate_file(ctx: PSSL_CTX; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_use_certificate_chain_file(ctx: PSSL_CTX; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_use_certificate_chain_file(ssl: PSSL; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_load_client_CA_file(const file_: PAnsiChar): PSTACK_OF_X509_NAME; cdecl; external CLibSSL; +function SSL_add_file_cert_subjects_to_stack(stackCAs: PSTACK_OF_X509_NAME; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_add_dir_cert_subjects_to_stack(stackCAs: PSTACK_OF_X509_NAME; const dir_: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_state_string(const s: PSSL): PAnsiChar; cdecl; external CLibSSL; +function SSL_rstate_string(const s: PSSL): PAnsiChar; cdecl; external CLibSSL; +function SSL_state_string_long(const s: PSSL): PAnsiChar; cdecl; external CLibSSL; +function SSL_rstate_string_long(const s: PSSL): PAnsiChar; cdecl; external CLibSSL; +function SSL_SESSION_get_time(const s: PSSL_SESSION): TOpenSSL_C_LONG; cdecl; external CLibSSL; +function SSL_SESSION_set_time(s: PSSL_SESSION; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; external CLibSSL; +function SSL_SESSION_get_timeout(const s: PSSL_SESSION): TOpenSSL_C_LONG; cdecl; external CLibSSL; +function SSL_SESSION_set_timeout(s: PSSL_SESSION; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; external CLibSSL; +function SSL_SESSION_get_protocol_version(const s: PSSL_SESSION): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_SESSION_set_protocol_version(s: PSSL_SESSION; version: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_SESSION_get0_hostname(const s: PSSL_SESSION): PAnsiChar; cdecl; external CLibSSL; +function SSL_SESSION_set1_hostname(s: PSSL_SESSION; const hostname: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_SESSION_get0_alpn_selected(const s: PSSL_SESSION; const alpn: PPByte; len: POpenSSL_C_SIZET); cdecl; external CLibSSL; +function SSL_SESSION_set1_alpn_selected(s: PSSL_SESSION; const alpn: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_SESSION_get0_cipher(const s: PSSL_SESSION): PSSL_CIPHER; cdecl; external CLibSSL; +function SSL_SESSION_set_cipher(s: PSSL_SESSION; const cipher: PSSL_CIPHER): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_SESSION_has_ticket(const s: PSSL_SESSION): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_SESSION_get_ticket_lifetime_hint(const s: PSSL_SESSION): TOpenSSL_C_ULONG; cdecl; external CLibSSL; +procedure SSL_SESSION_get0_ticket(const s: PSSL_SESSION; const tick: PPByte; len: POpenSSL_C_SIZET); cdecl; external CLibSSL; +function SSL_SESSION_get_max_early_data(const s: PSSL_SESSION): TOpenSSL_C_UINT32; cdecl; external CLibSSL; +function SSL_SESSION_set_max_early_data(s: PSSL_SESSION; max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_copy_session_id(to_: PSSL; const from: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_SESSION_get0_peer(s: PSSL_SESSION): PX509; cdecl; external CLibSSL; +function SSL_SESSION_set1_id_context(s: PSSL_SESSION; const sid_ctx: PByte; sid_ctx_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_SESSION_set1_id(s: PSSL_SESSION; const sid: PByte; sid_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_SESSION_is_resumable(const s: PSSL_SESSION): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_SESSION_new: PSSL_SESSION; cdecl; external CLibSSL; +function SSL_SESSION_dup(src: PSSL_SESSION): PSSL_SESSION; cdecl; external CLibSSL; +function SSL_SESSION_get_id(const s: PSSL_SESSION; len: POpenSSL_C_UINT): PByte; cdecl; external CLibSSL; +function SSL_SESSION_get0_id_context(const s: PSSL_SESSION; len: POpenSSL_C_UINT): PByte; cdecl; external CLibSSL; +function SSL_SESSION_get_compress_id(const s: PSSL_SESSION): TOpenSSL_C_UINT; cdecl; external CLibSSL; +function SSL_SESSION_print(fp: PBIO; const ses: PSSL_SESSION): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_SESSION_print_keylog(bp: PBIO; const x: PSSL_SESSION): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_SESSION_up_ref(ses: PSSL_SESSION): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_SESSION_free(ses: PSSL_SESSION); cdecl; external CLibSSL; +function SSL_set_session(to_: PSSL; session: PSSL_SESSION): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_add_session(ctx: PSSL_CTX; session: PSSL_SESSION): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_remove_session(ctx: PSSL_CTX; session: PSSL_SESSION): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_generate_session_id(ctx: PSSL_CTX; cb: GEN_SESSION_CB): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_set_generate_session_id(s: PSSL; cb: GEN_SESSION_CB): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_has_matching_session_id(const s: PSSL; const id: PByte; id_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function d2i_SSL_SESSION(a: PPSSL_SESSION; const pp: PPByte; length: TOpenSSL_C_LONG): PSSL_SESSION; cdecl; external CLibSSL; +function SSL_CTX_get_verify_mode(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_get_verify_depth(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_get_verify_callback(const ctx: PSSL_CTX): SSL_verify_cb; cdecl; external CLibSSL; +procedure SSL_CTX_set_verify(ctx: PSSL_CTX; mode: TOpenSSL_C_INT; callback: SSL_verify_cb); cdecl; external CLibSSL; +procedure SSL_CTX_set_verify_depth(ctx: PSSL_CTX; depth: TOpenSSL_C_INT); cdecl; external CLibSSL; +procedure SSL_CTX_set_cert_verify_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_cert_verify_callback_cb; arg: Pointer); cdecl; external CLibSSL; +procedure SSL_CTX_set_cert_cb(c: PSSL_CTX; cb: SSL_CTX_set_cert_cb_cb; arg: Pointer); cdecl; external CLibSSL; +function SSL_CTX_use_RSAPrivateKey(ctx: PSSL_CTX; rsa: PRSA): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_use_RSAPrivateKey_ASN1(ctx: PSSL_CTX; const d: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_use_PrivateKey(ctx: PSSL_CTX; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_use_PrivateKey_ASN1(pk: TOpenSSL_C_INT; ctx: PSSL_CTX; const d: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_use_certificate(ctx: PSSL_CTX; x: X509): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_use_certificate_ASN1(ctx: PSSL_CTX; len: TOpenSSL_C_INT; const d: PByte): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_CTX_set_default_passwd_cb(ctx: PSSL_CTX; cb: pem_password_cb); cdecl; external CLibSSL; +procedure SSL_CTX_set_default_passwd_cb_userdata(ctx: PSSL_CTX; u: Pointer); cdecl; external CLibSSL; +function SSL_CTX_get_default_passwd_cb(ctx: PSSL_CTX): pem_password_cb; cdecl; external CLibSSL; +function SSL_CTX_get_default_passwd_cb_userdata(ctx: PSSL_CTX): Pointer; cdecl; external CLibSSL; +procedure SSL_set_default_passwd_cb(s: PSSL; cb: pem_password_cb); cdecl; external CLibSSL; +procedure SSL_set_default_passwd_cb_userdata(s: PSSL; u: Pointer); cdecl; external CLibSSL; +function SSL_get_default_passwd_cb(s: PSSL): pem_password_cb; cdecl; external CLibSSL; +function SSL_get_default_passwd_cb_userdata(s: PSSL): Pointer; cdecl; external CLibSSL; +function SSL_CTX_check_private_key(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_check_private_key(const ctx: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_session_id_context(ctx: PSSL_CTX; const sid_ctx: PByte; sid_ctx_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_new(ctx: PSSL_CTX): PSSL; cdecl; external CLibSSL; +function SSL_up_ref(s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_is_dtls(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_set_session_id_context(ssl: PSSL; const sid_ctx: PByte; sid_ctx_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_purpose(ctx: PSSL_CTX; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_set_purpose(ssl: PSSL; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_trust(ctx: PSSL_CTX; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_set_trust(ssl: PSSL; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_set1_host(s: PSSL; const hostname: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_add1_host(s: PSSL; const hostname: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get0_peername(s: PSSL): PAnsiChar; cdecl; external CLibSSL; +procedure SSL_set_hostflags(s: PSSL; flags: TOpenSSL_C_UINT); cdecl; external CLibSSL; +function SSL_CTX_dane_enable(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_dane_mtype_set(ctx: PSSL_CTX; const md: PEVP_MD; mtype: TOpenSSL_C_UINT8; ord: TOpenSSL_C_UINT8): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_dane_enable(s: PSSL; const basedomain: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_dane_tlsa_add(s: PSSL; usage: TOpenSSL_C_UINT8; selector: TOpenSSL_C_UINT8; mtype: TOpenSSL_C_UINT8; const data: PByte; dlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get0_dane_authority(s: PSSL; mcert: PPX509; mspki: PPEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get0_dane_tlsa(s: PSSL; usage: POpenSSL_C_UINT8; selector: POpenSSL_C_UINT8; mtype: POpenSSL_C_UINT8; const data: PPByte; dlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get0_dane(ssl: PSSL): PSSL_DANE; cdecl; external CLibSSL; +function SSL_CTX_dane_set_flags(ctx: PSSL_CTX; flags: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; external CLibSSL; +function SSL_CTX_dane_clear_flags(ctx: PSSL_CTX; flags: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; external CLibSSL; +function SSL_dane_set_flags(ssl: PSSL; flags: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; external CLibSSL; +function SSL_dane_clear_flags(ssl: PSSL; flags: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; external CLibSSL; +function SSL_CTX_set1_param(ctx: PSSL_CTX; vpm: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_set1_param(ssl: PSSL; vpm: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_get0_param(ctx: PSSL_CTX): PX509_VERIFY_PARAM; cdecl; external CLibSSL; +function SSL_get0_param(ssl: PSSL): PX509_VERIFY_PARAM; cdecl; external CLibSSL; +function SSL_CTX_set_srp_username(ctx: PSSL_CTX; name: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_srp_password(ctx: PSSL_CTX; password: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_srp_strength(ctx: PSSL_CTX; strength: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_srp_client_pwd_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_srp_client_pwd_callback_cb): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_srp_verify_param_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_srp_verify_param_callback_cb): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_srp_username_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_srp_username_callback_cb): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_srp_cb_arg(ctx: PSSL_CTX; arg: Pointer): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_set_srp_server_param(s: PSSL; const N: PBIGNUm; const g: PBIGNUm; sa: PBIGNUm; v: PBIGNUm; info: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_set_srp_server_param_pw(s: PSSL; const user: PAnsiChar; const pass: PAnsiChar; const grp: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_CTX_set_client_hello_cb(c: PSSL_CTX; cb: SSL_client_hello_cb_fn; arg: Pointer); cdecl; external CLibSSL; +function SSL_client_hello_isv2(s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_client_hello_get0_legacy_version(s: PSSL): TOpenSSL_C_UINT; cdecl; external CLibSSL; +function SSL_client_hello_get0_random(s: PSSL; const out_: PPByte): TOpenSSL_C_SIZET; cdecl; external CLibSSL; +function SSL_client_hello_get0_session_id(s: PSSL; const out_: PPByte): TOpenSSL_C_SIZET; cdecl; external CLibSSL; +function SSL_client_hello_get0_ciphers(s: PSSL; const out_: PPByte): TOpenSSL_C_SIZET; cdecl; external CLibSSL; +function SSL_client_hello_get0_compression_methods(s: PSSL; const out_: PPByte): TOpenSSL_C_SIZET; cdecl; external CLibSSL; +function SSL_client_hello_get1_extensions_present(s: PSSL; out_: PPOpenSSL_C_INT; outlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_client_hello_get0_ext(s: PSSL; type_: TOpenSSL_C_UINT; const out_: PPByte; outlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_certs_clear(s: PSSL); cdecl; external CLibSSL; +procedure SSL_free(ssl: PSSL); cdecl; external CLibSSL; +function SSL_waiting_for_async(s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_all_async_fds(s: PSSL; fds: POSSL_ASYNC_FD; numfds: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_changed_async_fds(s: PSSL; addfd: POSSL_ASYNC_FD; numaddfds: POpenSSL_C_SIZET; delfd: POSSL_ASYNC_FD; numdelfds: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_accept(ssl: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_stateless(s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_connect(ssl: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_read(ssl: PSSL; buf: Pointer; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_read_ex(ssl: PSSL; buf: Pointer; num: TOpenSSL_C_SIZET; readbytes: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_read_early_data(s: PSSL; buf: Pointer; num: TOpenSSL_C_SIZET; readbytes: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_peek(ssl: PSSL; buf: Pointer; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_peek_ex(ssl: PSSL; buf: Pointer; num: TOpenSSL_C_SIZET; readbytes: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_write(ssl: PSSL; const buf: Pointer; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_write_ex(s: PSSL; const buf: Pointer; num: TOpenSSL_C_SIZET; written: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_write_early_data(s: PSSL; const buf: Pointer; num: TOpenSSL_C_SIZET; written: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_callback_ctrl(v1: PSSL; v2: TOpenSSL_C_INT; v3: SSL_callback_ctrl_v3): TOpenSSL_C_LONG; cdecl; external CLibSSL; +function SSL_ctrl(ssl: PSSL; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; parg: Pointer): TOpenSSL_C_LONG; cdecl; external CLibSSL; +function SSL_CTX_ctrl(ctx: PSSL_CTX; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; parg: Pointer): TOpenSSL_C_LONG; cdecl; external CLibSSL; +function SSL_CTX_callback_ctrl(v1: PSSL_CTX; v2: TOpenSSL_C_INT; v3: SSL_CTX_callback_ctrl_v3): TOpenSSL_C_LONG; cdecl; external CLibSSL; +function SSL_get_early_data_status(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_error(const s: PSSL; ret_code: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_version(const s: PSSL): PAnsiChar; cdecl; external CLibSSL; +function SSL_CTX_set_ssl_version(ctx: PSSL_CTX; const meth: PSSL_METHOD): TOpenSSL_C_INT; cdecl; external CLibSSL; +function TLS_method: PSSL_METHOD; cdecl; external CLibSSL; +function TLS_server_method: PSSL_METHOD; cdecl; external CLibSSL; +function TLS_client_method: PSSL_METHOD; cdecl; external CLibSSL; +function SSL_do_handshake(s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_key_update(s: PSSL; updatetype: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_key_update_type(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_renegotiate(s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_renegotiate_abbreviated(s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_new_session_ticket(s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_shutdown(s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_CTX_set_post_handshake_auth(ctx: PSSL_CTX; val: TOpenSSL_C_INT); cdecl; external CLibSSL; +procedure SSL_set_post_handshake_auth(s: PSSL; val: TOpenSSL_C_INT); cdecl; external CLibSSL; +function SSL_renegotiate_pending(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_verify_client_post_handshake(s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_get_ssl_method(const ctx: PSSL_CTX): PSSL_METHOD; cdecl; external CLibSSL; +function SSL_get_ssl_method(const s: PSSL): PSSL_METHOD; cdecl; external CLibSSL; +function SSL_set_ssl_method(s: PSSL; const method: PSSL_METHOD): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_alert_type_string_long(value: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibSSL; +function SSL_alert_type_string(value: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibSSL; +function SSL_alert_desc_string_long(value: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibSSL; +function SSL_alert_desc_string(value: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibSSL; +procedure SSL_CTX_set_client_CA_list(ctx: PSSL_CTX; name_list: PSTACK_OF_X509_NAME); cdecl; external CLibSSL; +function SSL_add_client_CA(ssl: PSSL; x: PX509): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_add_client_CA(ctx: PSSL_CTX; x: PX509): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_set_connect_state(s: PSSL); cdecl; external CLibSSL; +procedure SSL_set_accept_state(s: PSSL); cdecl; external CLibSSL; +function SSL_CIPHER_description(cipher: PSSL_CIPHER; buf: PAnsiChar; size_ :TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibSSL; +function SSL_dup(ssl: PSSL): PSSL; cdecl; external CLibSSL; +function SSL_get_certificate(const ssl: PSSL): PX509; cdecl; external CLibSSL; +function SSL_get_privatekey(const ssl: PSSL): PEVP_PKEY; cdecl; external CLibSSL; +function SSL_CTX_get0_certificate(const ctx: PSSL_CTX): PX509; cdecl; external CLibSSL; +function SSL_CTX_get0_privatekey(const ctx: PSSL_CTX): PEVP_PKEY; cdecl; external CLibSSL; +procedure SSL_CTX_set_quiet_shutdown(ctx: PSSL_CTX; mode: TOpenSSL_C_INT); cdecl; external CLibSSL; +function SSL_CTX_get_quiet_shutdown(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_set_quiet_shutdown(ssl: PSSL; mode: TOpenSSL_C_INT); cdecl; external CLibSSL; +function SSL_get_quiet_shutdown(const ssl: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_set_shutdown(ssl: PSSL; mode: TOpenSSL_C_INT); cdecl; external CLibSSL; +function SSL_get_shutdown(const ssl: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_version(const ssl: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_client_version(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_default_verify_paths(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_default_verify_dir(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_default_verify_file(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_load_verify_locations(ctx: PSSL_CTX; const CAfile: PAnsiChar; const CApath: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_session(const ssl: PSSL): PSSL_SESSION; cdecl; external CLibSSL; +function SSL_get1_session(ssl: PSSL): PSSL_SESSION; cdecl; external CLibSSL; +function SSL_get_SSL_CTX(const ssl: PSSL): PSSL_CTX; cdecl; external CLibSSL; +function SSL_set_SSL_CTX(ssl: PSSL; ctx: PSSL_CTX): PSSL_CTX; cdecl; external CLibSSL; +procedure SSL_set_info_callback(ssl: PSSL; cb: SSL_info_callback); cdecl; external CLibSSL; +function SSL_get_info_callback(const ssl: PSSL): SSL_info_callback; cdecl; external CLibSSL; +function SSL_get_state(const ssl: PSSL): OSSL_HANDSHAKE_STATE; cdecl; external CLibSSL; +procedure SSL_set_verify_result(ssl: PSSL; v: TOpenSSL_C_LONG); cdecl; external CLibSSL; +function SSL_get_verify_result(const ssl: PSSL): TOpenSSL_C_LONG; cdecl; external CLibSSL; +function SSL_get_client_random(const ssl: PSSL; out_: PByte; outlen: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; external CLibSSL; +function SSL_get_server_random(const ssl: PSSL; out_: PByte; outlen: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; external CLibSSL; +function SSL_SESSION_get_master_key(const sess: PSSL_SESSION; out_: PByte; outlen: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; external CLibSSL; +function SSL_SESSION_set1_master_key(sess: PSSL_SESSION; const in_: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_SESSION_get_max_fragment_length(const sess: PSSL_SESSION): TOpenSSL_C_UINT8; cdecl; external CLibSSL; +function SSL_set_ex_data(ssl: PSSL; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_ex_data(const ssl: PSSL; idx: TOpenSSL_C_INT): Pointer; cdecl; external CLibSSL; +function SSL_SESSION_set_ex_data(ss: PSSL_SESSION; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_SESSION_get_ex_data(const ss: PSSL_SESSION; idx: TOpenSSL_C_INT): Pointer; cdecl; external CLibSSL; +function SSL_CTX_set_ex_data(ssl: PSSL_CTX; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_get_ex_data(const ssl: PSSL_CTX; idx: TOpenSSL_C_INT): Pointer; cdecl; external CLibSSL; +function SSL_get_ex_data_X509_STORE_CTX_idx: TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_CTX_set_default_read_buffer_len(ctx: PSSL_CTX; len: TOpenSSL_C_SIZET); cdecl; external CLibSSL; +procedure SSL_set_default_read_buffer_len(s: PSSL; len: TOpenSSL_C_SIZET); cdecl; external CLibSSL; +procedure SSL_CTX_set_tmp_dh_callback(ctx: PSSL_CTX; dh: SSL_CTX_set_tmp_dh_callback_dh); cdecl; external CLibSSL; +procedure SSL_set_tmp_dh_callback(ssl: PSSL; dh: SSL_set_tmp_dh_callback_dh); cdecl; external CLibSSL; +function SSL_CIPHER_find(ssl: PSSL; const ptr: PByte): PSSL_CIPHER; cdecl; external CLibSSL; +function SSL_CIPHER_get_cipher_nid(const c: PSSL_CIPHEr): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CIPHER_get_digest_nid(const c: PSSL_CIPHEr): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_set_session_ticket_ext(s: PSSL; ext_data: Pointer; ext_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_set_session_ticket_ext_cb(s: PSSL; cb: tls_session_ticket_ext_cb_fn; arg: Pointer): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_CTX_set_not_resumable_session_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_not_resumable_session_callback_cb); cdecl; external CLibSSL; +procedure SSL_set_not_resumable_session_callback(ssl: PSSL; cb: SSL_set_not_resumable_session_callback_cb); cdecl; external CLibSSL; +procedure SSL_CTX_set_record_padding_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_record_padding_callback_cb); cdecl; external CLibSSL; +procedure SSL_CTX_set_record_padding_callback_arg(ctx: PSSL_CTX; arg: Pointer); cdecl; external CLibSSL; +function SSL_CTX_get_record_padding_callback_arg(const ctx: PSSL_CTX): Pointer; cdecl; external CLibSSL; +function SSL_CTX_set_block_padding(ctx: PSSL_CTX; block_size: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_set_record_padding_callback(ssl: PSSL; cb: SSL_set_record_padding_callback_cb); cdecl; external CLibSSL; +procedure SSL_set_record_padding_callback_arg(ssl: PSSL; arg: Pointer); cdecl; external CLibSSL; +function SSL_get_record_padding_callback_arg(const ssl: PSSL): Pointer; cdecl; external CLibSSL; +function SSL_set_block_padding(ssl: PSSL; block_size: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_set_num_tickets(s: PSSL; num_tickets: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_num_tickets(const s: PSSL): TOpenSSL_C_SIZET; cdecl; external CLibSSL; +function SSL_CTX_set_num_tickets(ctx: PSSL_CTX; num_tickets: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_get_num_tickets(const ctx: PSSL_CTX): TOpenSSL_C_SIZET; cdecl; external CLibSSL; +function SSL_session_reused(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_is_server(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CONF_CTX_new: PSSL_CONF_CTX; cdecl; external CLibSSL; +function SSL_CONF_CTX_finish(cctx: PSSL_CONF_CTX): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_CONF_CTX_free(cctx: PSSL_CONF_CTX); cdecl; external CLibSSL; +function SSL_CONF_CTX_set_flags(cctx: PSSL_CONF_CTX; flags: TOpenSSL_C_UINT): TOpenSSL_C_UINT; cdecl; external CLibSSL; +function SSL_CONF_CTX_clear_flags(cctx: PSSL_CONF_CTX; flags: TOpenSSL_C_UINT): TOpenSSL_C_UINT; cdecl; external CLibSSL; +function SSL_CONF_CTX_set1_prefix(cctx: PSSL_CONF_CTX; const pre: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CONF_cmd(cctx: PSSL_CONF_CTX; const cmd: PAnsiChar; const value: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CONF_cmd_argv(cctx: PSSL_CONF_CTX; pargc: POpenSSL_C_INT; pargv: PPPAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CONF_cmd_value_type(cctx: PSSL_CONF_CTX; const cmd: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_CONF_CTX_set_ssl(cctx: PSSL_CONF_CTX; ssl: PSSL); cdecl; external CLibSSL; +procedure SSL_CONF_CTX_set_ssl_ctx(cctx: PSSL_CONF_CTX; ctx: PSSL_CTX); cdecl; external CLibSSL; +procedure SSL_add_ssl_module; cdecl; external CLibSSL; +function SSL_config(s: PSSL; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_config(ctx: PSSL_CTX; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +function DTLSv1_listen(s: PSSL; client: PBIO_ADDr): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_enable_ct(s: PSSL; validation_mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_enable_ct(ctx: PSSL_CTX; validation_mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_ct_is_enabled(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_ct_is_enabled(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_default_ctlog_list_file(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_ctlog_list_file(ctx: PSSL_CTX; const path: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure SSL_CTX_set0_ctlog_store(ctx: PSSL_CTX; logs: PCTLOG_STORE); cdecl; external CLibSSL; +procedure SSL_set_security_level(s: PSSL; level: TOpenSSL_C_INT); cdecl; external CLibSSL; +procedure SSL_set_security_callback(s: PSSL; cb: SSL_security_callback); cdecl; external CLibSSL; +function SSL_get_security_callback(const s: PSSL): SSL_security_callback; cdecl; external CLibSSL; +procedure SSL_set0_security_ex_data(s: PSSL; ex: Pointer); cdecl; external CLibSSL; +function SSL_get0_security_ex_data(const s: PSSL): Pointer; cdecl; external CLibSSL; +procedure SSL_CTX_set_security_level(ctx: PSSL_CTX; level: TOpenSSL_C_INT); cdecl; external CLibSSL; +function SSL_CTX_get_security_level(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_get0_security_ex_data(const ctx: PSSL_CTX): Pointer; cdecl; external CLibSSL; +procedure SSL_CTX_set0_security_ex_data(ctx: PSSL_CTX; ex: Pointer); cdecl; external CLibSSL; +function OPENSSL_init_ssl(opts: TOpenSSL_C_UINT64; const settings: POPENSSL_INIT_SETTINGS): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_free_buffers(ssl: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_alloc_buffers(ssl: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_CTX_set_session_ticket_cb(ctx: PSSL_CTX; gen_cb: SSL_CTX_generate_session_ticket_fn; dec_cb: SSL_CTX_decrypt_session_ticket_fn; arg: Pointer): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_SESSION_set1_ticket_appdata(ss: PSSL_SESSION; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_SESSION_get0_ticket_appdata(ss: PSSL_SESSION; data: PPointer; len: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +procedure DTLS_set_timer_cb(s: PSSL; cb: DTLS_timer_cb); cdecl; external CLibSSL; +procedure SSL_CTX_set_allow_early_data_cb(ctx: PSSL_CTX; cb: SSL_allow_early_data_cb_fN; arg: Pointer); cdecl; external CLibSSL; +procedure SSL_set_allow_early_data_cb(s: PSSL; cb: SSL_allow_early_data_cb_fN; arg: Pointer); cdecl; external CLibSSL; +function SSL_get0_peer_certificate(const s: PSSL): PX509; cdecl; {introduced 3.3.0 } external CLibSSL; +function SSL_get1_peer_certificate(const s: PSSL): PX509; cdecl; {introduced 3.3.0 } external CLibSSL; + + + + + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function SSL_CTX_set_mode(ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_clear_mode(ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_sess_set_cache_size(ctx: PSSL_CTX; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_sess_get_cache_size(ctx: PSSL_CTX): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set_session_cache_mode(ctx: PSSL_CTX; m: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_get_session_cache_mode(ctx: PSSL_CTX): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_clear_num_renegotiations(ssl: PSSL): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_total_renegotiations(ssl: PSSL): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set_tmp_dh(ctx: PSSL_CTX; dh: PDH): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set_tmp_ecdh(ctx: PSSL_CTX; ecdh: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set_dh_auto(ctx: PSSL_CTX; onoff: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set_dh_auto(s: PSSL; onoff: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set_tmp_dh(ssl: PSSL; dh: PDH): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set_tmp_ecdh(ssl: PSSL; ecdh: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_add_extra_chain_cert(ctx: PSSL_CTX; x509: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_get_extra_chain_certs(ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_get_extra_chain_certs_only(ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_clear_extra_chain_certs(ctx: PSSL_CTX): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set0_chain(ctx: PSSL_CTX; sk: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set1_chain(ctx: PSSL_CTX; sk: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_add0_chain_cert(ctx: PSSL_CTX; x509: PX509): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_add1_chain_cert(ctx: PSSL_CTX; x509: PX509): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_get0_chain_certs(ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_clear_chain_certs(ctx: PSSL_CTX): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_build_cert_chain(ctx: PSSL_CTX; flags: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_select_current_cert(ctx: PSSL_CTX; x509: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set_current_cert(ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set0_verify_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set1_verify_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set0_chain_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set1_chain_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set0_chain(s: PSSL; sk: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set1_chain(s: PSSL; sk: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_add0_chain_cert(s: PSSL; x509: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_add1_chain_cert(s: PSSL; x509: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_get0_chain_certs(s: PSSL; px509: Pointer): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_clear_chain_certs(s: PSSL): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_build_cert_chain(s: PSSL; flags: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_select_current_cert(s: PSSL; x509: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set_current_cert(s: PSSL; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set0_verify_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set1_verify_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set0_chain_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set1_chain_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_get1_groups(s: PSSL; glist: POpenSSL_C_INT): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set1_groups(ctx: PSSL_CTX; glist: PByte; glistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set1_groups_list(ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set1_groups(s: PSSL; glist: PByte; glistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set1_groups_list(s: PSSL; str: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_get_shared_group(s: PSSL; n: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set1_sigalgs(ctx: PSSL_CTX; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set1_sigalgs_list(ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set1_sigalgs(s: PSSL; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set1_sigalgs_list(s: PSSL; str: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set1_client_sigalgs(ctx: PSSL_CTX; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set1_client_sigalgs_list(ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set1_client_sigalgs(s: PSSL; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set1_client_sigalgs_list(s: PSSL; str: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_get0_certificate_types(s: PSSL; clist: PByte): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_CTX_set1_client_certificate_types(ctx: PSSL_CTX; clist: PByte; clistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_set1_client_certificate_types(s: PSSL; clist: PByte; clistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_get_signature_nid(s: PSSL; pn: Pointer): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_get_peer_signature_nid(s: PSSL; pn: Pointer): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_get_peer_tmp_key(s: PSSL; pk: Pointer): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_get_tmp_key(s: PSSL; pk: Pointer): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_get0_raw_cipherlist(s: PSSL; plst: Pointer): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_get0_ec_point_formats(s: PSSL; plst: Pointer): TOpenSSL_C_LONG; {removed 1.0.0} +function SSL_get_app_data(const ssl: PSSL): Pointer; {removed 1.0.0} +function SSL_set_app_data(ssl: PSSL; data: Pointer): TOpenSSL_C_INT; {removed 1.0.0} +function SSLeay_add_ssl_algorithms: TOpenSSL_C_INT; {removed 1.0.0} +procedure SSL_load_error_strings; {removed 1.1.0} +function SSL_get_peer_certificate(const s: PSSL): PX509; {removed 3.0.0} +function SSL_library_init: TOpenSSL_C_INT; {removed 1.1.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_SSL_CTX_set_mode(ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_clear_mode(ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_sess_set_cache_size(ctx: PSSL_CTX; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_sess_get_cache_size(ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set_session_cache_mode(ctx: PSSL_CTX; m: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_get_session_cache_mode(ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl; +function Load_SSL_clear_num_renegotiations(ssl: PSSL): TOpenSSL_C_LONG; cdecl; +function Load_SSL_total_renegotiations(ssl: PSSL): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set_tmp_dh(ctx: PSSL_CTX; dh: PDH): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set_tmp_ecdh(ctx: PSSL_CTX; ecdh: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set_dh_auto(ctx: PSSL_CTX; onoff: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set_dh_auto(s: PSSL; onoff: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set_tmp_dh(ssl: PSSL; dh: PDH): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set_tmp_ecdh(ssl: PSSL; ecdh: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_add_extra_chain_cert(ctx: PSSL_CTX; x509: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_get_extra_chain_certs(ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_get_extra_chain_certs_only(ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_clear_extra_chain_certs(ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set0_chain(ctx: PSSL_CTX; sk: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set1_chain(ctx: PSSL_CTX; sk: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_add0_chain_cert(ctx: PSSL_CTX; x509: PX509): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_add1_chain_cert(ctx: PSSL_CTX; x509: PX509): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_get0_chain_certs(ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_clear_chain_certs(ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_build_cert_chain(ctx: PSSL_CTX; flags: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_select_current_cert(ctx: PSSL_CTX; x509: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set_current_cert(ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set0_verify_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set1_verify_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set0_chain_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set1_chain_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set0_chain(s: PSSL; sk: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set1_chain(s: PSSL; sk: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_add0_chain_cert(s: PSSL; x509: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_add1_chain_cert(s: PSSL; x509: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_get0_chain_certs(s: PSSL; px509: Pointer): TOpenSSL_C_LONG; cdecl; +function Load_SSL_clear_chain_certs(s: PSSL): TOpenSSL_C_LONG; cdecl; +function Load_SSL_build_cert_chain(s: PSSL; flags: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_select_current_cert(s: PSSL; x509: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set_current_cert(s: PSSL; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set0_verify_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set1_verify_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set0_chain_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set1_chain_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_get1_groups(s: PSSL; glist: POpenSSL_C_INT): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set1_groups(ctx: PSSL_CTX; glist: PByte; glistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set1_groups_list(ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set1_groups(s: PSSL; glist: PByte; glistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set1_groups_list(s: PSSL; str: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_get_shared_group(s: PSSL; n: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set1_sigalgs(ctx: PSSL_CTX; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set1_sigalgs_list(ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set1_sigalgs(s: PSSL; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set1_sigalgs_list(s: PSSL; str: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set1_client_sigalgs(ctx: PSSL_CTX; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set1_client_sigalgs_list(ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set1_client_sigalgs(s: PSSL; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set1_client_sigalgs_list(s: PSSL; str: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_get0_certificate_types(s: PSSL; clist: PByte): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_set1_client_certificate_types(ctx: PSSL_CTX; clist: PByte; clistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_set1_client_certificate_types(s: PSSL; clist: PByte; clistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_get_signature_nid(s: PSSL; pn: Pointer): TOpenSSL_C_LONG; cdecl; +function Load_SSL_get_peer_signature_nid(s: PSSL; pn: Pointer): TOpenSSL_C_LONG; cdecl; +function Load_SSL_get_peer_tmp_key(s: PSSL; pk: Pointer): TOpenSSL_C_LONG; cdecl; +function Load_SSL_get_tmp_key(s: PSSL; pk: Pointer): TOpenSSL_C_LONG; cdecl; +function Load_SSL_get0_raw_cipherlist(s: PSSL; plst: Pointer): TOpenSSL_C_LONG; cdecl; +function Load_SSL_get0_ec_point_formats(s: PSSL; plst: Pointer): TOpenSSL_C_LONG; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_SSL_CTX_get_options(const ctx: PSSL_CTX): TOpenSSL_C_ULONG; cdecl; +function Load_SSL_get_options(const s: PSSL): TOpenSSL_C_ULONG; cdecl; +function Load_SSL_CTX_clear_options(ctx: PSSL_CTX; op: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; +function Load_SSL_clear_options(s: PSSL; op: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; +function Load_SSL_CTX_set_options(ctx: PSSL_CTX; op: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; +function Load_SSL_set_options(s: PSSL; op: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; +procedure Load_SSL_CTX_sess_set_new_cb(ctx: PSSL_CTX; new_session_cb: SSL_CTX_sess_new_cb); cdecl; +function Load_SSL_CTX_sess_get_new_cb(ctx: PSSL_CTX): SSL_CTX_sess_new_cb; cdecl; +procedure Load_SSL_CTX_sess_set_remove_cb(ctx: PSSL_CTX; remove_session_cb: SSL_CTX_sess_remove_cb); cdecl; +function Load_SSL_CTX_sess_get_remove_cb(ctx: PSSL_CTX): SSL_CTX_sess_remove_cb; cdecl; +procedure Load_SSL_CTX_set_info_callback(ctx: PSSL_CTX; cb: SSL_CTX_info_callback); cdecl; +function Load_SSL_CTX_get_info_callback(ctx: PSSL_CTX): SSL_CTX_info_callback; cdecl; +procedure Load_SSL_CTX_set_client_cert_cb(ctx: PSSL_CTX; client_cert_cb: SSL_CTX_client_cert_cb); cdecl; +function Load_SSL_CTX_get_client_cert_cb(ctx: PSSL_CTX): SSL_CTX_client_cert_cb; cdecl; +function Load_SSL_CTX_set_client_cert_engine(ctx: PSSL_CTX; e: PENGINE): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_CTX_set_cookie_generate_cb(ctx: PSSL_CTX; app_gen_cookie_cb: SSL_CTX_cookie_verify_cb); cdecl; +procedure Load_SSL_CTX_set_cookie_verify_cb(ctx: PSSL_CTX; app_verify_cookie_cb: SSL_CTX_set_cookie_verify_cb_app_verify_cookie_cb); cdecl; +procedure Load_SSL_CTX_set_stateless_cookie_generate_cb(ctx: PSSL_CTX; gen_stateless_cookie_cb: SSL_CTX_set_stateless_cookie_generate_cb_gen_stateless_cookie_cb); cdecl; +procedure Load_SSL_CTX_set_stateless_cookie_verify_cb(ctx: PSSL_CTX; verify_stateless_cookie_cb: SSL_CTX_set_stateless_cookie_verify_cb_verify_stateless_cookie_cb); cdecl; +procedure Load_SSL_CTX_set_alpn_select_cb(ctx: PSSL_CTX; cb: SSL_CTX_alpn_select_cb_func; arg: Pointer); cdecl; +procedure Load_SSL_get0_alpn_selected(const ssl: PSSL; const data: PPByte; len: POpenSSL_C_UINT); cdecl; +procedure Load_SSL_CTX_set_psk_client_callback(ctx: PSSL_CTX; cb: SSL_psk_client_cb_func); cdecl; +procedure Load_SSL_set_psk_client_callback(ssl: PSSL; cb: SSL_psk_client_cb_func); cdecl; +procedure Load_SSL_CTX_set_psk_server_callback(ctx: PSSL_CTX; cb: SSL_psk_server_cb_func); cdecl; +procedure Load_SSL_set_psk_server_callback(ssl: PSSL; cb: SSL_psk_server_cb_func); cdecl; +procedure Load_SSL_set_psk_find_session_callback(s: PSSL; cb: SSL_psk_find_session_cb_func); cdecl; +procedure Load_SSL_CTX_set_psk_find_session_callback(ctx: PSSL_CTX; cb: SSL_psk_find_session_cb_func); cdecl; +procedure Load_SSL_set_psk_use_session_callback(s: PSSL; cb: SSL_psk_use_session_cb_func); cdecl; +procedure Load_SSL_CTX_set_psk_use_session_callback(ctx: PSSL_CTX; cb: SSL_psk_use_session_cb_func); cdecl; +procedure Load_SSL_CTX_set_keylog_callback(ctx: PSSL_CTX; cb: SSL_CTX_keylog_cb_func); cdecl; +function Load_SSL_CTX_get_keylog_callback(const ctx: PSSL_CTX): SSL_CTX_keylog_cb_func; cdecl; +function Load_SSL_CTX_set_max_early_data(ctx: PSSL_CTX; max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_get_max_early_data(const ctx: PSSL_CTX): TOpenSSL_C_UINT32; cdecl; +function Load_SSL_set_max_early_data(s: PSSL; max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_max_early_data(const s: PSSL): TOpenSSL_C_UINT32; cdecl; +function Load_SSL_CTX_set_recv_max_early_data(ctx: PSSL_CTX; recv_max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_get_recv_max_early_data(const ctx: PSSL_CTX): TOpenSSL_C_UINT32; cdecl; +function Load_SSL_set_recv_max_early_data(s: PSSL; recv_max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_recv_max_early_data(const s: PSSL): TOpenSSL_C_UINT32; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_SSL_get_app_data(const ssl: PSSL): Pointer; cdecl; +function Load_SSL_set_app_data(ssl: PSSL; data: Pointer): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_SSL_in_init(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_in_before(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_is_init_finished(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_finished(const s: PSSL; buf: Pointer; count: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +function Load_SSL_get_peer_finished(const s: PSSL; buf: Pointer; count: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_SSLeay_add_ssl_algorithms: TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_BIO_f_ssl: PBIO_METHOD; cdecl; +function Load_BIO_new_ssl(ctx: PSSL_CTX; client: TOpenSSL_C_INT): PBIO; cdecl; +function Load_BIO_new_ssl_connect(ctx: PSSL_CTX): PBIO; cdecl; +function Load_BIO_new_buffer_ssl_connect(ctx: PSSL_CTX): PBIO; cdecl; +function Load_BIO_ssl_copy_session_id(to_: PBIO; from: PBIO): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_cipher_list(v1: PSSL_CTX; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_new(const meth: PSSL_METHOD): PSSL_CTX; cdecl; +function Load_SSL_CTX_set_timeout(ctx: PSSL_CTX; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_get_timeout(const ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_get_cert_store(const v1: PSSL_CTX): PX509_STORE; cdecl; +function Load_SSL_want(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_clear(s: PSSL): TOpenSSL_C_INT; cdecl; +procedure Load_BIO_ssl_shutdown(ssl_bio: PBIO); cdecl; +function Load_SSL_CTX_up_ref(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_CTX_free(v1: PSSL_CTX); cdecl; +procedure Load_SSL_CTX_set_cert_store(v1: PSSL_CTX; v2: PX509_STORE); cdecl; +procedure Load_SSL_CTX_set1_cert_store(v1: PSSL_CTX; v2: PX509_STORE); cdecl; +procedure Load_SSL_CTX_flush_sessions(ctx: PSSL_CTX; tm: TOpenSSL_C_LONG); cdecl; +function Load_SSL_get_current_cipher(const s: PSSL): PSSL_CIPHER; cdecl; +function Load_SSL_get_pending_cipher(const s: PSSL): PSSL_CIPHER; cdecl; +function Load_SSL_CIPHER_get_bits(const c: PSSL_CIPHER; var alg_bits: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_CIPHER_get_version(const c: PSSL_CIPHER): PAnsiChar; cdecl; +function Load_SSL_CIPHER_get_name(const c: PSSL_CIPHER): PAnsiChar; cdecl; +function Load_SSL_CIPHER_standard_name(const c: PSSL_CIPHER): PAnsiChar; cdecl; +function Load_OPENSSL_cipher_name(const rfc_name: PAnsiChar): PAnsiChar; cdecl; +function Load_SSL_CIPHER_get_id(const c: PSSL_CIPHER): TOpenSSL_C_UINT32; cdecl; +function Load_SSL_CIPHER_get_protocol_id(const c: PSSL_CIPHER): TOpenSSL_C_UINT16; cdecl; +function Load_SSL_CIPHER_get_kx_nid(const c: PSSL_CIPHER): TOpenSSL_C_INT; cdecl; +function Load_SSL_CIPHER_get_auth_nid(const c: PSSL_CIPHER): TOpenSSL_C_INT; cdecl; +function Load_SSL_CIPHER_get_handshake_digest(const c: PSSL_CIPHER): PEVP_MD; cdecl; +function Load_SSL_CIPHER_is_aead(const c: PSSL_CIPHER): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_fd(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_rfd(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_wfd(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_cipher_list(const s: PSSL; n: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_SSL_get_shared_ciphers(const s: PSSL; buf: PAnsiChar; size: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_SSL_get_read_ahead(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_pending(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_has_pending(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_set_fd(s: PSSL; fd: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_set_rfd(s: PSSL; fd: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_set_wfd(s: PSSL; fd: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_set0_rbio(s: PSSL; rbio: PBIO); cdecl; +procedure Load_SSL_set0_wbio(s: PSSL; wbio: PBIO); cdecl; +procedure Load_SSL_set_bio(s: PSSL; rbio: PBIO; wbio: PBIO); cdecl; +function Load_SSL_get_rbio(const s: PSSL): PBIO; cdecl; +function Load_SSL_get_wbio(const s: PSSL): PBIO; cdecl; +function Load_SSL_set_cipher_list(s: PSSL; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_ciphersuites(ctx: PSSL_CTX; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_set_ciphersuites(s: PSSL; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_verify_mode(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_verify_depth(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_verify_callback(const s: PSSL): SSL_verify_cb; cdecl; +procedure Load_SSL_set_read_ahead(s: PSSL; yes: TOpenSSL_C_INT); cdecl; +procedure Load_SSL_set_verify(s: PSSL; mode: TOpenSSL_C_INT; callback: SSL_verify_cb); cdecl; +procedure Load_SSL_set_verify_depth(s: PSSL; depth: TOpenSSL_C_INT); cdecl; +function Load_SSL_use_RSAPrivateKey(ssl: PSSL; rsa: PRSA): TOpenSSL_C_INT; cdecl; +function Load_SSL_use_RSAPrivateKey_ASN1(ssl: PSSL; const d: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_SSL_use_PrivateKey(ssl: PSSL; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_SSL_use_PrivateKey_ASN1(pk: TOpenSSL_C_INT; ssl: PSSL; const d: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_SSL_use_certificate(ssl: PSSL; x: PX509): TOpenSSL_C_INT; cdecl; +function Load_SSL_use_certificate_ASN1(ssl: PSSL; const d: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_use_serverinfo(ctx: PSSL_CTX; const serverinfo: PByte; serverinfo_length: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_use_serverinfo_ex(ctx: PSSL_CTX; version: TOpenSSL_C_UINT; const serverinfo: PByte; serverinfo_length: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_use_serverinfo_file(ctx: PSSL_CTX; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_use_RSAPrivateKey_file(ssl: PSSL; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_use_PrivateKey_file(ssl: PSSL; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_use_certificate_file(ssl: PSSL; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_use_RSAPrivateKey_file(ctx: PSSL_CTX; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_use_PrivateKey_file(ctx: PSSL_CTX; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_use_certificate_file(ctx: PSSL_CTX; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_use_certificate_chain_file(ctx: PSSL_CTX; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_use_certificate_chain_file(ssl: PSSL; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_load_client_CA_file(const file_: PAnsiChar): PSTACK_OF_X509_NAME; cdecl; +function Load_SSL_add_file_cert_subjects_to_stack(stackCAs: PSTACK_OF_X509_NAME; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_add_dir_cert_subjects_to_stack(stackCAs: PSTACK_OF_X509_NAME; const dir_: PAnsiChar): TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_SSL_load_error_strings; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_SSL_state_string(const s: PSSL): PAnsiChar; cdecl; +function Load_SSL_rstate_string(const s: PSSL): PAnsiChar; cdecl; +function Load_SSL_state_string_long(const s: PSSL): PAnsiChar; cdecl; +function Load_SSL_rstate_string_long(const s: PSSL): PAnsiChar; cdecl; +function Load_SSL_SESSION_get_time(const s: PSSL_SESSION): TOpenSSL_C_LONG; cdecl; +function Load_SSL_SESSION_set_time(s: PSSL_SESSION; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_SESSION_get_timeout(const s: PSSL_SESSION): TOpenSSL_C_LONG; cdecl; +function Load_SSL_SESSION_set_timeout(s: PSSL_SESSION; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +function Load_SSL_SESSION_get_protocol_version(const s: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +function Load_SSL_SESSION_set_protocol_version(s: PSSL_SESSION; version: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_SESSION_get0_hostname(const s: PSSL_SESSION): PAnsiChar; cdecl; +function Load_SSL_SESSION_set1_hostname(s: PSSL_SESSION; const hostname: PAnsiChar): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_SESSION_get0_alpn_selected(const s: PSSL_SESSION; const alpn: PPByte; len: POpenSSL_C_SIZET); cdecl; +function Load_SSL_SESSION_set1_alpn_selected(s: PSSL_SESSION; const alpn: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_SESSION_get0_cipher(const s: PSSL_SESSION): PSSL_CIPHER; cdecl; +function Load_SSL_SESSION_set_cipher(s: PSSL_SESSION; const cipher: PSSL_CIPHER): TOpenSSL_C_INT; cdecl; +function Load_SSL_SESSION_has_ticket(const s: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +function Load_SSL_SESSION_get_ticket_lifetime_hint(const s: PSSL_SESSION): TOpenSSL_C_ULONG; cdecl; +procedure Load_SSL_SESSION_get0_ticket(const s: PSSL_SESSION; const tick: PPByte; len: POpenSSL_C_SIZET); cdecl; +function Load_SSL_SESSION_get_max_early_data(const s: PSSL_SESSION): TOpenSSL_C_UINT32; cdecl; +function Load_SSL_SESSION_set_max_early_data(s: PSSL_SESSION; max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; +function Load_SSL_copy_session_id(to_: PSSL; const from: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_SESSION_get0_peer(s: PSSL_SESSION): PX509; cdecl; +function Load_SSL_SESSION_set1_id_context(s: PSSL_SESSION; const sid_ctx: PByte; sid_ctx_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_SSL_SESSION_set1_id(s: PSSL_SESSION; const sid: PByte; sid_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_SSL_SESSION_is_resumable(const s: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +function Load_SSL_SESSION_new: PSSL_SESSION; cdecl; +function Load_SSL_SESSION_dup(src: PSSL_SESSION): PSSL_SESSION; cdecl; +function Load_SSL_SESSION_get_id(const s: PSSL_SESSION; len: POpenSSL_C_UINT): PByte; cdecl; +function Load_SSL_SESSION_get0_id_context(const s: PSSL_SESSION; len: POpenSSL_C_UINT): PByte; cdecl; +function Load_SSL_SESSION_get_compress_id(const s: PSSL_SESSION): TOpenSSL_C_UINT; cdecl; +function Load_SSL_SESSION_print(fp: PBIO; const ses: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +function Load_SSL_SESSION_print_keylog(bp: PBIO; const x: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +function Load_SSL_SESSION_up_ref(ses: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_SESSION_free(ses: PSSL_SESSION); cdecl; +function Load_SSL_set_session(to_: PSSL; session: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_add_session(ctx: PSSL_CTX; session: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_remove_session(ctx: PSSL_CTX; session: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_generate_session_id(ctx: PSSL_CTX; cb: GEN_SESSION_CB): TOpenSSL_C_INT; cdecl; +function Load_SSL_set_generate_session_id(s: PSSL; cb: GEN_SESSION_CB): TOpenSSL_C_INT; cdecl; +function Load_SSL_has_matching_session_id(const s: PSSL; const id: PByte; id_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_d2i_SSL_SESSION(a: PPSSL_SESSION; const pp: PPByte; length: TOpenSSL_C_LONG): PSSL_SESSION; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_SSL_get_peer_certificate(const s: PSSL): PX509; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_SSL_CTX_get_verify_mode(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_get_verify_depth(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_get_verify_callback(const ctx: PSSL_CTX): SSL_verify_cb; cdecl; +procedure Load_SSL_CTX_set_verify(ctx: PSSL_CTX; mode: TOpenSSL_C_INT; callback: SSL_verify_cb); cdecl; +procedure Load_SSL_CTX_set_verify_depth(ctx: PSSL_CTX; depth: TOpenSSL_C_INT); cdecl; +procedure Load_SSL_CTX_set_cert_verify_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_cert_verify_callback_cb; arg: Pointer); cdecl; +procedure Load_SSL_CTX_set_cert_cb(c: PSSL_CTX; cb: SSL_CTX_set_cert_cb_cb; arg: Pointer); cdecl; +function Load_SSL_CTX_use_RSAPrivateKey(ctx: PSSL_CTX; rsa: PRSA): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_use_RSAPrivateKey_ASN1(ctx: PSSL_CTX; const d: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_use_PrivateKey(ctx: PSSL_CTX; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_use_PrivateKey_ASN1(pk: TOpenSSL_C_INT; ctx: PSSL_CTX; const d: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_use_certificate(ctx: PSSL_CTX; x: X509): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_use_certificate_ASN1(ctx: PSSL_CTX; len: TOpenSSL_C_INT; const d: PByte): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_CTX_set_default_passwd_cb(ctx: PSSL_CTX; cb: pem_password_cb); cdecl; +procedure Load_SSL_CTX_set_default_passwd_cb_userdata(ctx: PSSL_CTX; u: Pointer); cdecl; +function Load_SSL_CTX_get_default_passwd_cb(ctx: PSSL_CTX): pem_password_cb; cdecl; +function Load_SSL_CTX_get_default_passwd_cb_userdata(ctx: PSSL_CTX): Pointer; cdecl; +procedure Load_SSL_set_default_passwd_cb(s: PSSL; cb: pem_password_cb); cdecl; +procedure Load_SSL_set_default_passwd_cb_userdata(s: PSSL; u: Pointer); cdecl; +function Load_SSL_get_default_passwd_cb(s: PSSL): pem_password_cb; cdecl; +function Load_SSL_get_default_passwd_cb_userdata(s: PSSL): Pointer; cdecl; +function Load_SSL_CTX_check_private_key(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +function Load_SSL_check_private_key(const ctx: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_session_id_context(ctx: PSSL_CTX; const sid_ctx: PByte; sid_ctx_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_SSL_new(ctx: PSSL_CTX): PSSL; cdecl; +function Load_SSL_up_ref(s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_is_dtls(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_set_session_id_context(ssl: PSSL; const sid_ctx: PByte; sid_ctx_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_purpose(ctx: PSSL_CTX; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_set_purpose(ssl: PSSL; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_trust(ctx: PSSL_CTX; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_set_trust(ssl: PSSL; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_set1_host(s: PSSL; const hostname: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_add1_host(s: PSSL; const hostname: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_get0_peername(s: PSSL): PAnsiChar; cdecl; +procedure Load_SSL_set_hostflags(s: PSSL; flags: TOpenSSL_C_UINT); cdecl; +function Load_SSL_CTX_dane_enable(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_dane_mtype_set(ctx: PSSL_CTX; const md: PEVP_MD; mtype: TOpenSSL_C_UINT8; ord: TOpenSSL_C_UINT8): TOpenSSL_C_INT; cdecl; +function Load_SSL_dane_enable(s: PSSL; const basedomain: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_dane_tlsa_add(s: PSSL; usage: TOpenSSL_C_UINT8; selector: TOpenSSL_C_UINT8; mtype: TOpenSSL_C_UINT8; const data: PByte; dlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_get0_dane_authority(s: PSSL; mcert: PPX509; mspki: PPEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_SSL_get0_dane_tlsa(s: PSSL; usage: POpenSSL_C_UINT8; selector: POpenSSL_C_UINT8; mtype: POpenSSL_C_UINT8; const data: PPByte; dlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_get0_dane(ssl: PSSL): PSSL_DANE; cdecl; +function Load_SSL_CTX_dane_set_flags(ctx: PSSL_CTX; flags: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; +function Load_SSL_CTX_dane_clear_flags(ctx: PSSL_CTX; flags: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; +function Load_SSL_dane_set_flags(ssl: PSSL; flags: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; +function Load_SSL_dane_clear_flags(ssl: PSSL; flags: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; +function Load_SSL_CTX_set1_param(ctx: PSSL_CTX; vpm: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; +function Load_SSL_set1_param(ssl: PSSL; vpm: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_get0_param(ctx: PSSL_CTX): PX509_VERIFY_PARAM; cdecl; +function Load_SSL_get0_param(ssl: PSSL): PX509_VERIFY_PARAM; cdecl; +function Load_SSL_CTX_set_srp_username(ctx: PSSL_CTX; name: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_srp_password(ctx: PSSL_CTX; password: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_srp_strength(ctx: PSSL_CTX; strength: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_srp_client_pwd_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_srp_client_pwd_callback_cb): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_srp_verify_param_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_srp_verify_param_callback_cb): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_srp_username_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_srp_username_callback_cb): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_srp_cb_arg(ctx: PSSL_CTX; arg: Pointer): TOpenSSL_C_INT; cdecl; +function Load_SSL_set_srp_server_param(s: PSSL; const N: PBIGNUm; const g: PBIGNUm; sa: PBIGNUm; v: PBIGNUm; info: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_set_srp_server_param_pw(s: PSSL; const user: PAnsiChar; const pass: PAnsiChar; const grp: PAnsiChar): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_CTX_set_client_hello_cb(c: PSSL_CTX; cb: SSL_client_hello_cb_fn; arg: Pointer); cdecl; +function Load_SSL_client_hello_isv2(s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_client_hello_get0_legacy_version(s: PSSL): TOpenSSL_C_UINT; cdecl; +function Load_SSL_client_hello_get0_random(s: PSSL; const out_: PPByte): TOpenSSL_C_SIZET; cdecl; +function Load_SSL_client_hello_get0_session_id(s: PSSL; const out_: PPByte): TOpenSSL_C_SIZET; cdecl; +function Load_SSL_client_hello_get0_ciphers(s: PSSL; const out_: PPByte): TOpenSSL_C_SIZET; cdecl; +function Load_SSL_client_hello_get0_compression_methods(s: PSSL; const out_: PPByte): TOpenSSL_C_SIZET; cdecl; +function Load_SSL_client_hello_get1_extensions_present(s: PSSL; out_: PPOpenSSL_C_INT; outlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_client_hello_get0_ext(s: PSSL; type_: TOpenSSL_C_UINT; const out_: PPByte; outlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_certs_clear(s: PSSL); cdecl; +procedure Load_SSL_free(ssl: PSSL); cdecl; +function Load_SSL_waiting_for_async(s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_all_async_fds(s: PSSL; fds: POSSL_ASYNC_FD; numfds: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_changed_async_fds(s: PSSL; addfd: POSSL_ASYNC_FD; numaddfds: POpenSSL_C_SIZET; delfd: POSSL_ASYNC_FD; numdelfds: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_accept(ssl: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_stateless(s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_connect(ssl: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_read(ssl: PSSL; buf: Pointer; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_read_ex(ssl: PSSL; buf: Pointer; num: TOpenSSL_C_SIZET; readbytes: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_read_early_data(s: PSSL; buf: Pointer; num: TOpenSSL_C_SIZET; readbytes: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_peek(ssl: PSSL; buf: Pointer; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_peek_ex(ssl: PSSL; buf: Pointer; num: TOpenSSL_C_SIZET; readbytes: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_write(ssl: PSSL; const buf: Pointer; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_write_ex(s: PSSL; const buf: Pointer; num: TOpenSSL_C_SIZET; written: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_write_early_data(s: PSSL; const buf: Pointer; num: TOpenSSL_C_SIZET; written: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_callback_ctrl(v1: PSSL; v2: TOpenSSL_C_INT; v3: SSL_callback_ctrl_v3): TOpenSSL_C_LONG; cdecl; +function Load_SSL_ctrl(ssl: PSSL; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; parg: Pointer): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_ctrl(ctx: PSSL_CTX; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; parg: Pointer): TOpenSSL_C_LONG; cdecl; +function Load_SSL_CTX_callback_ctrl(v1: PSSL_CTX; v2: TOpenSSL_C_INT; v3: SSL_CTX_callback_ctrl_v3): TOpenSSL_C_LONG; cdecl; +function Load_SSL_get_early_data_status(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_error(const s: PSSL; ret_code: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_version(const s: PSSL): PAnsiChar; cdecl; +function Load_SSL_CTX_set_ssl_version(ctx: PSSL_CTX; const meth: PSSL_METHOD): TOpenSSL_C_INT; cdecl; +function Load_TLS_method: PSSL_METHOD; cdecl; +function Load_TLS_server_method: PSSL_METHOD; cdecl; +function Load_TLS_client_method: PSSL_METHOD; cdecl; +function Load_SSL_do_handshake(s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_key_update(s: PSSL; updatetype: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_key_update_type(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_renegotiate(s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_renegotiate_abbreviated(s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_new_session_ticket(s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_shutdown(s: PSSL): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_CTX_set_post_handshake_auth(ctx: PSSL_CTX; val: TOpenSSL_C_INT); cdecl; +procedure Load_SSL_set_post_handshake_auth(s: PSSL; val: TOpenSSL_C_INT); cdecl; +function Load_SSL_renegotiate_pending(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_verify_client_post_handshake(s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_get_ssl_method(const ctx: PSSL_CTX): PSSL_METHOD; cdecl; +function Load_SSL_get_ssl_method(const s: PSSL): PSSL_METHOD; cdecl; +function Load_SSL_set_ssl_method(s: PSSL; const method: PSSL_METHOD): TOpenSSL_C_INT; cdecl; +function Load_SSL_alert_type_string_long(value: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_SSL_alert_type_string(value: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_SSL_alert_desc_string_long(value: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_SSL_alert_desc_string(value: TOpenSSL_C_INT): PAnsiChar; cdecl; +procedure Load_SSL_CTX_set_client_CA_list(ctx: PSSL_CTX; name_list: PSTACK_OF_X509_NAME); cdecl; +function Load_SSL_add_client_CA(ssl: PSSL; x: PX509): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_add_client_CA(ctx: PSSL_CTX; x: PX509): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_set_connect_state(s: PSSL); cdecl; +procedure Load_SSL_set_accept_state(s: PSSL); cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_SSL_library_init: TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_SSL_CIPHER_description(cipher: PSSL_CIPHER; buf: PAnsiChar; size_ :TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_SSL_dup(ssl: PSSL): PSSL; cdecl; +function Load_SSL_get_certificate(const ssl: PSSL): PX509; cdecl; +function Load_SSL_get_privatekey(const ssl: PSSL): PEVP_PKEY; cdecl; +function Load_SSL_CTX_get0_certificate(const ctx: PSSL_CTX): PX509; cdecl; +function Load_SSL_CTX_get0_privatekey(const ctx: PSSL_CTX): PEVP_PKEY; cdecl; +procedure Load_SSL_CTX_set_quiet_shutdown(ctx: PSSL_CTX; mode: TOpenSSL_C_INT); cdecl; +function Load_SSL_CTX_get_quiet_shutdown(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_set_quiet_shutdown(ssl: PSSL; mode: TOpenSSL_C_INT); cdecl; +function Load_SSL_get_quiet_shutdown(const ssl: PSSL): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_set_shutdown(ssl: PSSL; mode: TOpenSSL_C_INT); cdecl; +function Load_SSL_get_shutdown(const ssl: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_version(const ssl: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_client_version(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_default_verify_paths(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_default_verify_dir(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_default_verify_file(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_load_verify_locations(ctx: PSSL_CTX; const CAfile: PAnsiChar; const CApath: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_session(const ssl: PSSL): PSSL_SESSION; cdecl; +function Load_SSL_get1_session(ssl: PSSL): PSSL_SESSION; cdecl; +function Load_SSL_get_SSL_CTX(const ssl: PSSL): PSSL_CTX; cdecl; +function Load_SSL_set_SSL_CTX(ssl: PSSL; ctx: PSSL_CTX): PSSL_CTX; cdecl; +procedure Load_SSL_set_info_callback(ssl: PSSL; cb: SSL_info_callback); cdecl; +function Load_SSL_get_info_callback(const ssl: PSSL): SSL_info_callback; cdecl; +function Load_SSL_get_state(const ssl: PSSL): OSSL_HANDSHAKE_STATE; cdecl; +procedure Load_SSL_set_verify_result(ssl: PSSL; v: TOpenSSL_C_LONG); cdecl; +function Load_SSL_get_verify_result(const ssl: PSSL): TOpenSSL_C_LONG; cdecl; +function Load_SSL_get_client_random(const ssl: PSSL; out_: PByte; outlen: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +function Load_SSL_get_server_random(const ssl: PSSL; out_: PByte; outlen: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +function Load_SSL_SESSION_get_master_key(const sess: PSSL_SESSION; out_: PByte; outlen: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +function Load_SSL_SESSION_set1_master_key(sess: PSSL_SESSION; const in_: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_SESSION_get_max_fragment_length(const sess: PSSL_SESSION): TOpenSSL_C_UINT8; cdecl; +function Load_SSL_set_ex_data(ssl: PSSL; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_ex_data(const ssl: PSSL; idx: TOpenSSL_C_INT): Pointer; cdecl; +function Load_SSL_SESSION_set_ex_data(ss: PSSL_SESSION; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; +function Load_SSL_SESSION_get_ex_data(const ss: PSSL_SESSION; idx: TOpenSSL_C_INT): Pointer; cdecl; +function Load_SSL_CTX_set_ex_data(ssl: PSSL_CTX; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_get_ex_data(const ssl: PSSL_CTX; idx: TOpenSSL_C_INT): Pointer; cdecl; +function Load_SSL_get_ex_data_X509_STORE_CTX_idx: TOpenSSL_C_INT; cdecl; +procedure Load_SSL_CTX_set_default_read_buffer_len(ctx: PSSL_CTX; len: TOpenSSL_C_SIZET); cdecl; +procedure Load_SSL_set_default_read_buffer_len(s: PSSL; len: TOpenSSL_C_SIZET); cdecl; +procedure Load_SSL_CTX_set_tmp_dh_callback(ctx: PSSL_CTX; dh: SSL_CTX_set_tmp_dh_callback_dh); cdecl; +procedure Load_SSL_set_tmp_dh_callback(ssl: PSSL; dh: SSL_set_tmp_dh_callback_dh); cdecl; +function Load_SSL_CIPHER_find(ssl: PSSL; const ptr: PByte): PSSL_CIPHER; cdecl; +function Load_SSL_CIPHER_get_cipher_nid(const c: PSSL_CIPHEr): TOpenSSL_C_INT; cdecl; +function Load_SSL_CIPHER_get_digest_nid(const c: PSSL_CIPHEr): TOpenSSL_C_INT; cdecl; +function Load_SSL_set_session_ticket_ext(s: PSSL; ext_data: Pointer; ext_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_set_session_ticket_ext_cb(s: PSSL; cb: tls_session_ticket_ext_cb_fn; arg: Pointer): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_CTX_set_not_resumable_session_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_not_resumable_session_callback_cb); cdecl; +procedure Load_SSL_set_not_resumable_session_callback(ssl: PSSL; cb: SSL_set_not_resumable_session_callback_cb); cdecl; +procedure Load_SSL_CTX_set_record_padding_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_record_padding_callback_cb); cdecl; +procedure Load_SSL_CTX_set_record_padding_callback_arg(ctx: PSSL_CTX; arg: Pointer); cdecl; +function Load_SSL_CTX_get_record_padding_callback_arg(const ctx: PSSL_CTX): Pointer; cdecl; +function Load_SSL_CTX_set_block_padding(ctx: PSSL_CTX; block_size: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_set_record_padding_callback(ssl: PSSL; cb: SSL_set_record_padding_callback_cb); cdecl; +procedure Load_SSL_set_record_padding_callback_arg(ssl: PSSL; arg: Pointer); cdecl; +function Load_SSL_get_record_padding_callback_arg(const ssl: PSSL): Pointer; cdecl; +function Load_SSL_set_block_padding(ssl: PSSL; block_size: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_set_num_tickets(s: PSSL; num_tickets: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_num_tickets(const s: PSSL): TOpenSSL_C_SIZET; cdecl; +function Load_SSL_CTX_set_num_tickets(ctx: PSSL_CTX; num_tickets: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_get_num_tickets(const ctx: PSSL_CTX): TOpenSSL_C_SIZET; cdecl; +function Load_SSL_session_reused(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_is_server(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_CONF_CTX_new: PSSL_CONF_CTX; cdecl; +function Load_SSL_CONF_CTX_finish(cctx: PSSL_CONF_CTX): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_CONF_CTX_free(cctx: PSSL_CONF_CTX); cdecl; +function Load_SSL_CONF_CTX_set_flags(cctx: PSSL_CONF_CTX; flags: TOpenSSL_C_UINT): TOpenSSL_C_UINT; cdecl; +function Load_SSL_CONF_CTX_clear_flags(cctx: PSSL_CONF_CTX; flags: TOpenSSL_C_UINT): TOpenSSL_C_UINT; cdecl; +function Load_SSL_CONF_CTX_set1_prefix(cctx: PSSL_CONF_CTX; const pre: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_CONF_cmd(cctx: PSSL_CONF_CTX; const cmd: PAnsiChar; const value: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_CONF_cmd_argv(cctx: PSSL_CONF_CTX; pargc: POpenSSL_C_INT; pargv: PPPAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_CONF_cmd_value_type(cctx: PSSL_CONF_CTX; const cmd: PAnsiChar): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_CONF_CTX_set_ssl(cctx: PSSL_CONF_CTX; ssl: PSSL); cdecl; +procedure Load_SSL_CONF_CTX_set_ssl_ctx(cctx: PSSL_CONF_CTX; ctx: PSSL_CTX); cdecl; +procedure Load_SSL_add_ssl_module; cdecl; +function Load_SSL_config(s: PSSL; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_config(ctx: PSSL_CTX; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_DTLSv1_listen(s: PSSL; client: PBIO_ADDr): TOpenSSL_C_INT; cdecl; +function Load_SSL_enable_ct(s: PSSL; validation_mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_enable_ct(ctx: PSSL_CTX; validation_mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_ct_is_enabled(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_ct_is_enabled(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_default_ctlog_list_file(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_ctlog_list_file(ctx: PSSL_CTX; const path: PAnsiChar): TOpenSSL_C_INT; cdecl; +procedure Load_SSL_CTX_set0_ctlog_store(ctx: PSSL_CTX; logs: PCTLOG_STORE); cdecl; +procedure Load_SSL_set_security_level(s: PSSL; level: TOpenSSL_C_INT); cdecl; +procedure Load_SSL_set_security_callback(s: PSSL; cb: SSL_security_callback); cdecl; +function Load_SSL_get_security_callback(const s: PSSL): SSL_security_callback; cdecl; +procedure Load_SSL_set0_security_ex_data(s: PSSL; ex: Pointer); cdecl; +function Load_SSL_get0_security_ex_data(const s: PSSL): Pointer; cdecl; +procedure Load_SSL_CTX_set_security_level(ctx: PSSL_CTX; level: TOpenSSL_C_INT); cdecl; +function Load_SSL_CTX_get_security_level(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_get0_security_ex_data(const ctx: PSSL_CTX): Pointer; cdecl; +procedure Load_SSL_CTX_set0_security_ex_data(ctx: PSSL_CTX; ex: Pointer); cdecl; +function Load_OPENSSL_init_ssl(opts: TOpenSSL_C_UINT64; const settings: POPENSSL_INIT_SETTINGS): TOpenSSL_C_INT; cdecl; +function Load_SSL_free_buffers(ssl: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_alloc_buffers(ssl: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_CTX_set_session_ticket_cb(ctx: PSSL_CTX; gen_cb: SSL_CTX_generate_session_ticket_fn; dec_cb: SSL_CTX_decrypt_session_ticket_fn; arg: Pointer): TOpenSSL_C_INT; cdecl; +function Load_SSL_SESSION_set1_ticket_appdata(ss: PSSL_SESSION; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_SESSION_get0_ticket_appdata(ss: PSSL_SESSION; data: PPointer; len: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +procedure Load_DTLS_set_timer_cb(s: PSSL; cb: DTLS_timer_cb); cdecl; +procedure Load_SSL_CTX_set_allow_early_data_cb(ctx: PSSL_CTX; cb: SSL_allow_early_data_cb_fN; arg: Pointer); cdecl; +procedure Load_SSL_set_allow_early_data_cb(s: PSSL; cb: SSL_allow_early_data_cb_fN; arg: Pointer); cdecl; +function Load_SSL_get0_peer_certificate(const s: PSSL): PX509; cdecl; +function Load_SSL_get1_peer_certificate(const s: PSSL): PX509; cdecl; + +var + SSL_CTX_get_options: function (const ctx: PSSL_CTX): TOpenSSL_C_ULONG; cdecl = Load_SSL_CTX_get_options; + SSL_get_options: function (const s: PSSL): TOpenSSL_C_ULONG; cdecl = Load_SSL_get_options; + SSL_CTX_clear_options: function (ctx: PSSL_CTX; op: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl = Load_SSL_CTX_clear_options; + SSL_clear_options: function (s: PSSL; op: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl = Load_SSL_clear_options; + SSL_CTX_set_options: function (ctx: PSSL_CTX; op: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl = Load_SSL_CTX_set_options; + SSL_set_options: function (s: PSSL; op: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl = Load_SSL_set_options; + SSL_CTX_sess_set_new_cb: procedure (ctx: PSSL_CTX; new_session_cb: SSL_CTX_sess_new_cb); cdecl = Load_SSL_CTX_sess_set_new_cb; + SSL_CTX_sess_get_new_cb: function (ctx: PSSL_CTX): SSL_CTX_sess_new_cb; cdecl = Load_SSL_CTX_sess_get_new_cb; + SSL_CTX_sess_set_remove_cb: procedure (ctx: PSSL_CTX; remove_session_cb: SSL_CTX_sess_remove_cb); cdecl = Load_SSL_CTX_sess_set_remove_cb; + SSL_CTX_sess_get_remove_cb: function (ctx: PSSL_CTX): SSL_CTX_sess_remove_cb; cdecl = Load_SSL_CTX_sess_get_remove_cb; + SSL_CTX_set_info_callback: procedure (ctx: PSSL_CTX; cb: SSL_CTX_info_callback); cdecl = Load_SSL_CTX_set_info_callback; + SSL_CTX_get_info_callback: function (ctx: PSSL_CTX): SSL_CTX_info_callback; cdecl = Load_SSL_CTX_get_info_callback; + SSL_CTX_set_client_cert_cb: procedure (ctx: PSSL_CTX; client_cert_cb: SSL_CTX_client_cert_cb); cdecl = Load_SSL_CTX_set_client_cert_cb; + SSL_CTX_get_client_cert_cb: function (ctx: PSSL_CTX): SSL_CTX_client_cert_cb; cdecl = Load_SSL_CTX_get_client_cert_cb; + SSL_CTX_set_client_cert_engine: function (ctx: PSSL_CTX; e: PENGINE): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_client_cert_engine; + SSL_CTX_set_cookie_generate_cb: procedure (ctx: PSSL_CTX; app_gen_cookie_cb: SSL_CTX_cookie_verify_cb); cdecl = Load_SSL_CTX_set_cookie_generate_cb; + SSL_CTX_set_cookie_verify_cb: procedure (ctx: PSSL_CTX; app_verify_cookie_cb: SSL_CTX_set_cookie_verify_cb_app_verify_cookie_cb); cdecl = Load_SSL_CTX_set_cookie_verify_cb; + SSL_CTX_set_stateless_cookie_generate_cb: procedure (ctx: PSSL_CTX; gen_stateless_cookie_cb: SSL_CTX_set_stateless_cookie_generate_cb_gen_stateless_cookie_cb); cdecl = Load_SSL_CTX_set_stateless_cookie_generate_cb; + SSL_CTX_set_stateless_cookie_verify_cb: procedure (ctx: PSSL_CTX; verify_stateless_cookie_cb: SSL_CTX_set_stateless_cookie_verify_cb_verify_stateless_cookie_cb); cdecl = Load_SSL_CTX_set_stateless_cookie_verify_cb; + SSL_CTX_set_alpn_select_cb: procedure (ctx: PSSL_CTX; cb: SSL_CTX_alpn_select_cb_func; arg: Pointer); cdecl = Load_SSL_CTX_set_alpn_select_cb; + SSL_get0_alpn_selected: procedure (const ssl: PSSL; const data: PPByte; len: POpenSSL_C_UINT); cdecl = Load_SSL_get0_alpn_selected; + SSL_CTX_set_psk_client_callback: procedure (ctx: PSSL_CTX; cb: SSL_psk_client_cb_func); cdecl = Load_SSL_CTX_set_psk_client_callback; + SSL_set_psk_client_callback: procedure (ssl: PSSL; cb: SSL_psk_client_cb_func); cdecl = Load_SSL_set_psk_client_callback; + SSL_CTX_set_psk_server_callback: procedure (ctx: PSSL_CTX; cb: SSL_psk_server_cb_func); cdecl = Load_SSL_CTX_set_psk_server_callback; + SSL_set_psk_server_callback: procedure (ssl: PSSL; cb: SSL_psk_server_cb_func); cdecl = Load_SSL_set_psk_server_callback; + SSL_set_psk_find_session_callback: procedure (s: PSSL; cb: SSL_psk_find_session_cb_func); cdecl = Load_SSL_set_psk_find_session_callback; + SSL_CTX_set_psk_find_session_callback: procedure (ctx: PSSL_CTX; cb: SSL_psk_find_session_cb_func); cdecl = Load_SSL_CTX_set_psk_find_session_callback; + SSL_set_psk_use_session_callback: procedure (s: PSSL; cb: SSL_psk_use_session_cb_func); cdecl = Load_SSL_set_psk_use_session_callback; + SSL_CTX_set_psk_use_session_callback: procedure (ctx: PSSL_CTX; cb: SSL_psk_use_session_cb_func); cdecl = Load_SSL_CTX_set_psk_use_session_callback; + SSL_CTX_set_keylog_callback: procedure (ctx: PSSL_CTX; cb: SSL_CTX_keylog_cb_func); cdecl = Load_SSL_CTX_set_keylog_callback; + SSL_CTX_get_keylog_callback: function (const ctx: PSSL_CTX): SSL_CTX_keylog_cb_func; cdecl = Load_SSL_CTX_get_keylog_callback; + SSL_CTX_set_max_early_data: function (ctx: PSSL_CTX; max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_max_early_data; + SSL_CTX_get_max_early_data: function (const ctx: PSSL_CTX): TOpenSSL_C_UINT32; cdecl = Load_SSL_CTX_get_max_early_data; + SSL_set_max_early_data: function (s: PSSL; max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl = Load_SSL_set_max_early_data; + SSL_get_max_early_data: function (const s: PSSL): TOpenSSL_C_UINT32; cdecl = Load_SSL_get_max_early_data; + SSL_CTX_set_recv_max_early_data: function (ctx: PSSL_CTX; recv_max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_recv_max_early_data; + SSL_CTX_get_recv_max_early_data: function (const ctx: PSSL_CTX): TOpenSSL_C_UINT32; cdecl = Load_SSL_CTX_get_recv_max_early_data; + SSL_set_recv_max_early_data: function (s: PSSL; recv_max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl = Load_SSL_set_recv_max_early_data; + SSL_get_recv_max_early_data: function (const s: PSSL): TOpenSSL_C_UINT32; cdecl = Load_SSL_get_recv_max_early_data; + SSL_in_init: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_in_init; + SSL_in_before: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_in_before; + SSL_is_init_finished: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_is_init_finished; + SSL_get_finished: function (const s: PSSL; buf: Pointer; count: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl = Load_SSL_get_finished; + SSL_get_peer_finished: function (const s: PSSL; buf: Pointer; count: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl = Load_SSL_get_peer_finished; + BIO_f_ssl: function : PBIO_METHOD; cdecl = Load_BIO_f_ssl; + BIO_new_ssl: function (ctx: PSSL_CTX; client: TOpenSSL_C_INT): PBIO; cdecl = Load_BIO_new_ssl; + BIO_new_ssl_connect: function (ctx: PSSL_CTX): PBIO; cdecl = Load_BIO_new_ssl_connect; + BIO_new_buffer_ssl_connect: function (ctx: PSSL_CTX): PBIO; cdecl = Load_BIO_new_buffer_ssl_connect; + BIO_ssl_copy_session_id: function (to_: PBIO; from: PBIO): TOpenSSL_C_INT; cdecl = Load_BIO_ssl_copy_session_id; + SSL_CTX_set_cipher_list: function (v1: PSSL_CTX; const str: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_cipher_list; + SSL_CTX_new: function (const meth: PSSL_METHOD): PSSL_CTX; cdecl = Load_SSL_CTX_new; + SSL_CTX_set_timeout: function (ctx: PSSL_CTX; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set_timeout; + SSL_CTX_get_timeout: function (const ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_get_timeout; + SSL_CTX_get_cert_store: function (const v1: PSSL_CTX): PX509_STORE; cdecl = Load_SSL_CTX_get_cert_store; + SSL_want: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_want; + SSL_clear: function (s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_clear; + BIO_ssl_shutdown: procedure (ssl_bio: PBIO); cdecl = Load_BIO_ssl_shutdown; + SSL_CTX_up_ref: function (ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_up_ref; + SSL_CTX_free: procedure (v1: PSSL_CTX); cdecl = Load_SSL_CTX_free; + SSL_CTX_set_cert_store: procedure (v1: PSSL_CTX; v2: PX509_STORE); cdecl = Load_SSL_CTX_set_cert_store; + SSL_CTX_set1_cert_store: procedure (v1: PSSL_CTX; v2: PX509_STORE); cdecl = Load_SSL_CTX_set1_cert_store; + SSL_CTX_flush_sessions: procedure (ctx: PSSL_CTX; tm: TOpenSSL_C_LONG); cdecl = Load_SSL_CTX_flush_sessions; + SSL_get_current_cipher: function (const s: PSSL): PSSL_CIPHER; cdecl = Load_SSL_get_current_cipher; + SSL_get_pending_cipher: function (const s: PSSL): PSSL_CIPHER; cdecl = Load_SSL_get_pending_cipher; + SSL_CIPHER_get_bits: function (const c: PSSL_CIPHER; var alg_bits: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_CIPHER_get_bits; + SSL_CIPHER_get_version: function (const c: PSSL_CIPHER): PAnsiChar; cdecl = Load_SSL_CIPHER_get_version; + SSL_CIPHER_get_name: function (const c: PSSL_CIPHER): PAnsiChar; cdecl = Load_SSL_CIPHER_get_name; + SSL_CIPHER_standard_name: function (const c: PSSL_CIPHER): PAnsiChar; cdecl = Load_SSL_CIPHER_standard_name; + OPENSSL_cipher_name: function (const rfc_name: PAnsiChar): PAnsiChar; cdecl = Load_OPENSSL_cipher_name; + SSL_CIPHER_get_id: function (const c: PSSL_CIPHER): TOpenSSL_C_UINT32; cdecl = Load_SSL_CIPHER_get_id; + SSL_CIPHER_get_protocol_id: function (const c: PSSL_CIPHER): TOpenSSL_C_UINT16; cdecl = Load_SSL_CIPHER_get_protocol_id; + SSL_CIPHER_get_kx_nid: function (const c: PSSL_CIPHER): TOpenSSL_C_INT; cdecl = Load_SSL_CIPHER_get_kx_nid; + SSL_CIPHER_get_auth_nid: function (const c: PSSL_CIPHER): TOpenSSL_C_INT; cdecl = Load_SSL_CIPHER_get_auth_nid; + SSL_CIPHER_get_handshake_digest: function (const c: PSSL_CIPHER): PEVP_MD; cdecl = Load_SSL_CIPHER_get_handshake_digest; + SSL_CIPHER_is_aead: function (const c: PSSL_CIPHER): TOpenSSL_C_INT; cdecl = Load_SSL_CIPHER_is_aead; + SSL_get_fd: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_get_fd; + SSL_get_rfd: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_get_rfd; + SSL_get_wfd: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_get_wfd; + SSL_get_cipher_list: function (const s: PSSL; n: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_SSL_get_cipher_list; + SSL_get_shared_ciphers: function (const s: PSSL; buf: PAnsiChar; size: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_SSL_get_shared_ciphers; + SSL_get_read_ahead: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_get_read_ahead; + SSL_pending: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_pending; + SSL_has_pending: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_has_pending; + SSL_set_fd: function (s: PSSL; fd: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_set_fd; + SSL_set_rfd: function (s: PSSL; fd: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_set_rfd; + SSL_set_wfd: function (s: PSSL; fd: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_set_wfd; + SSL_set0_rbio: procedure (s: PSSL; rbio: PBIO); cdecl = Load_SSL_set0_rbio; + SSL_set0_wbio: procedure (s: PSSL; wbio: PBIO); cdecl = Load_SSL_set0_wbio; + SSL_set_bio: procedure (s: PSSL; rbio: PBIO; wbio: PBIO); cdecl = Load_SSL_set_bio; + SSL_get_rbio: function (const s: PSSL): PBIO; cdecl = Load_SSL_get_rbio; + SSL_get_wbio: function (const s: PSSL): PBIO; cdecl = Load_SSL_get_wbio; + SSL_set_cipher_list: function (s: PSSL; const str: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_set_cipher_list; + SSL_CTX_set_ciphersuites: function (ctx: PSSL_CTX; const str: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_ciphersuites; + SSL_set_ciphersuites: function (s: PSSL; const str: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_set_ciphersuites; + SSL_get_verify_mode: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_get_verify_mode; + SSL_get_verify_depth: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_get_verify_depth; + SSL_get_verify_callback: function (const s: PSSL): SSL_verify_cb; cdecl = Load_SSL_get_verify_callback; + SSL_set_read_ahead: procedure (s: PSSL; yes: TOpenSSL_C_INT); cdecl = Load_SSL_set_read_ahead; + SSL_set_verify: procedure (s: PSSL; mode: TOpenSSL_C_INT; callback: SSL_verify_cb); cdecl = Load_SSL_set_verify; + SSL_set_verify_depth: procedure (s: PSSL; depth: TOpenSSL_C_INT); cdecl = Load_SSL_set_verify_depth; + SSL_use_RSAPrivateKey: function (ssl: PSSL; rsa: PRSA): TOpenSSL_C_INT; cdecl = Load_SSL_use_RSAPrivateKey; + SSL_use_RSAPrivateKey_ASN1: function (ssl: PSSL; const d: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_SSL_use_RSAPrivateKey_ASN1; + SSL_use_PrivateKey: function (ssl: PSSL; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_SSL_use_PrivateKey; + SSL_use_PrivateKey_ASN1: function (pk: TOpenSSL_C_INT; ssl: PSSL; const d: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_SSL_use_PrivateKey_ASN1; + SSL_use_certificate: function (ssl: PSSL; x: PX509): TOpenSSL_C_INT; cdecl = Load_SSL_use_certificate; + SSL_use_certificate_ASN1: function (ssl: PSSL; const d: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_use_certificate_ASN1; + SSL_CTX_use_serverinfo: function (ctx: PSSL_CTX; const serverinfo: PByte; serverinfo_length: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_use_serverinfo; + SSL_CTX_use_serverinfo_ex: function (ctx: PSSL_CTX; version: TOpenSSL_C_UINT; const serverinfo: PByte; serverinfo_length: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_use_serverinfo_ex; + SSL_CTX_use_serverinfo_file: function (ctx: PSSL_CTX; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_use_serverinfo_file; + SSL_use_RSAPrivateKey_file: function (ssl: PSSL; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_use_RSAPrivateKey_file; + SSL_use_PrivateKey_file: function (ssl: PSSL; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_use_PrivateKey_file; + SSL_use_certificate_file: function (ssl: PSSL; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_use_certificate_file; + SSL_CTX_use_RSAPrivateKey_file: function (ctx: PSSL_CTX; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_use_RSAPrivateKey_file; + SSL_CTX_use_PrivateKey_file: function (ctx: PSSL_CTX; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_use_PrivateKey_file; + SSL_CTX_use_certificate_file: function (ctx: PSSL_CTX; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_use_certificate_file; + SSL_CTX_use_certificate_chain_file: function (ctx: PSSL_CTX; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_use_certificate_chain_file; + SSL_use_certificate_chain_file: function (ssl: PSSL; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_use_certificate_chain_file; + SSL_load_client_CA_file: function (const file_: PAnsiChar): PSTACK_OF_X509_NAME; cdecl = Load_SSL_load_client_CA_file; + SSL_add_file_cert_subjects_to_stack: function (stackCAs: PSTACK_OF_X509_NAME; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_add_file_cert_subjects_to_stack; + SSL_add_dir_cert_subjects_to_stack: function (stackCAs: PSTACK_OF_X509_NAME; const dir_: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_add_dir_cert_subjects_to_stack; + SSL_state_string: function (const s: PSSL): PAnsiChar; cdecl = Load_SSL_state_string; + SSL_rstate_string: function (const s: PSSL): PAnsiChar; cdecl = Load_SSL_rstate_string; + SSL_state_string_long: function (const s: PSSL): PAnsiChar; cdecl = Load_SSL_state_string_long; + SSL_rstate_string_long: function (const s: PSSL): PAnsiChar; cdecl = Load_SSL_rstate_string_long; + SSL_SESSION_get_time: function (const s: PSSL_SESSION): TOpenSSL_C_LONG; cdecl = Load_SSL_SESSION_get_time; + SSL_SESSION_set_time: function (s: PSSL_SESSION; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_SESSION_set_time; + SSL_SESSION_get_timeout: function (const s: PSSL_SESSION): TOpenSSL_C_LONG; cdecl = Load_SSL_SESSION_get_timeout; + SSL_SESSION_set_timeout: function (s: PSSL_SESSION; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_SESSION_set_timeout; + SSL_SESSION_get_protocol_version: function (const s: PSSL_SESSION): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_get_protocol_version; + SSL_SESSION_set_protocol_version: function (s: PSSL_SESSION; version: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_set_protocol_version; + SSL_SESSION_get0_hostname: function (const s: PSSL_SESSION): PAnsiChar; cdecl = Load_SSL_SESSION_get0_hostname; + SSL_SESSION_set1_hostname: function (s: PSSL_SESSION; const hostname: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_set1_hostname; + SSL_SESSION_get0_alpn_selected: procedure (const s: PSSL_SESSION; const alpn: PPByte; len: POpenSSL_C_SIZET); cdecl = Load_SSL_SESSION_get0_alpn_selected; + SSL_SESSION_set1_alpn_selected: function (s: PSSL_SESSION; const alpn: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_set1_alpn_selected; + SSL_SESSION_get0_cipher: function (const s: PSSL_SESSION): PSSL_CIPHER; cdecl = Load_SSL_SESSION_get0_cipher; + SSL_SESSION_set_cipher: function (s: PSSL_SESSION; const cipher: PSSL_CIPHER): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_set_cipher; + SSL_SESSION_has_ticket: function (const s: PSSL_SESSION): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_has_ticket; + SSL_SESSION_get_ticket_lifetime_hint: function (const s: PSSL_SESSION): TOpenSSL_C_ULONG; cdecl = Load_SSL_SESSION_get_ticket_lifetime_hint; + SSL_SESSION_get0_ticket: procedure (const s: PSSL_SESSION; const tick: PPByte; len: POpenSSL_C_SIZET); cdecl = Load_SSL_SESSION_get0_ticket; + SSL_SESSION_get_max_early_data: function (const s: PSSL_SESSION): TOpenSSL_C_UINT32; cdecl = Load_SSL_SESSION_get_max_early_data; + SSL_SESSION_set_max_early_data: function (s: PSSL_SESSION; max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_set_max_early_data; + SSL_copy_session_id: function (to_: PSSL; const from: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_copy_session_id; + SSL_SESSION_get0_peer: function (s: PSSL_SESSION): PX509; cdecl = Load_SSL_SESSION_get0_peer; + SSL_SESSION_set1_id_context: function (s: PSSL_SESSION; const sid_ctx: PByte; sid_ctx_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_set1_id_context; + SSL_SESSION_set1_id: function (s: PSSL_SESSION; const sid: PByte; sid_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_set1_id; + SSL_SESSION_is_resumable: function (const s: PSSL_SESSION): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_is_resumable; + SSL_SESSION_new: function : PSSL_SESSION; cdecl = Load_SSL_SESSION_new; + SSL_SESSION_dup: function (src: PSSL_SESSION): PSSL_SESSION; cdecl = Load_SSL_SESSION_dup; + SSL_SESSION_get_id: function (const s: PSSL_SESSION; len: POpenSSL_C_UINT): PByte; cdecl = Load_SSL_SESSION_get_id; + SSL_SESSION_get0_id_context: function (const s: PSSL_SESSION; len: POpenSSL_C_UINT): PByte; cdecl = Load_SSL_SESSION_get0_id_context; + SSL_SESSION_get_compress_id: function (const s: PSSL_SESSION): TOpenSSL_C_UINT; cdecl = Load_SSL_SESSION_get_compress_id; + SSL_SESSION_print: function (fp: PBIO; const ses: PSSL_SESSION): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_print; + SSL_SESSION_print_keylog: function (bp: PBIO; const x: PSSL_SESSION): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_print_keylog; + SSL_SESSION_up_ref: function (ses: PSSL_SESSION): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_up_ref; + SSL_SESSION_free: procedure (ses: PSSL_SESSION); cdecl = Load_SSL_SESSION_free; + SSL_set_session: function (to_: PSSL; session: PSSL_SESSION): TOpenSSL_C_INT; cdecl = Load_SSL_set_session; + SSL_CTX_add_session: function (ctx: PSSL_CTX; session: PSSL_SESSION): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_add_session; + SSL_CTX_remove_session: function (ctx: PSSL_CTX; session: PSSL_SESSION): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_remove_session; + SSL_CTX_set_generate_session_id: function (ctx: PSSL_CTX; cb: GEN_SESSION_CB): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_generate_session_id; + SSL_set_generate_session_id: function (s: PSSL; cb: GEN_SESSION_CB): TOpenSSL_C_INT; cdecl = Load_SSL_set_generate_session_id; + SSL_has_matching_session_id: function (const s: PSSL; const id: PByte; id_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_SSL_has_matching_session_id; + d2i_SSL_SESSION: function (a: PPSSL_SESSION; const pp: PPByte; length: TOpenSSL_C_LONG): PSSL_SESSION; cdecl = Load_d2i_SSL_SESSION; + SSL_CTX_get_verify_mode: function (const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_get_verify_mode; + SSL_CTX_get_verify_depth: function (const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_get_verify_depth; + SSL_CTX_get_verify_callback: function (const ctx: PSSL_CTX): SSL_verify_cb; cdecl = Load_SSL_CTX_get_verify_callback; + SSL_CTX_set_verify: procedure (ctx: PSSL_CTX; mode: TOpenSSL_C_INT; callback: SSL_verify_cb); cdecl = Load_SSL_CTX_set_verify; + SSL_CTX_set_verify_depth: procedure (ctx: PSSL_CTX; depth: TOpenSSL_C_INT); cdecl = Load_SSL_CTX_set_verify_depth; + SSL_CTX_set_cert_verify_callback: procedure (ctx: PSSL_CTX; cb: SSL_CTX_set_cert_verify_callback_cb; arg: Pointer); cdecl = Load_SSL_CTX_set_cert_verify_callback; + SSL_CTX_set_cert_cb: procedure (c: PSSL_CTX; cb: SSL_CTX_set_cert_cb_cb; arg: Pointer); cdecl = Load_SSL_CTX_set_cert_cb; + SSL_CTX_use_RSAPrivateKey: function (ctx: PSSL_CTX; rsa: PRSA): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_use_RSAPrivateKey; + SSL_CTX_use_RSAPrivateKey_ASN1: function (ctx: PSSL_CTX; const d: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_use_RSAPrivateKey_ASN1; + SSL_CTX_use_PrivateKey: function (ctx: PSSL_CTX; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_use_PrivateKey; + SSL_CTX_use_PrivateKey_ASN1: function (pk: TOpenSSL_C_INT; ctx: PSSL_CTX; const d: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_use_PrivateKey_ASN1; + SSL_CTX_use_certificate: function (ctx: PSSL_CTX; x: X509): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_use_certificate; + SSL_CTX_use_certificate_ASN1: function (ctx: PSSL_CTX; len: TOpenSSL_C_INT; const d: PByte): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_use_certificate_ASN1; + SSL_CTX_set_default_passwd_cb: procedure (ctx: PSSL_CTX; cb: pem_password_cb); cdecl = Load_SSL_CTX_set_default_passwd_cb; + SSL_CTX_set_default_passwd_cb_userdata: procedure (ctx: PSSL_CTX; u: Pointer); cdecl = Load_SSL_CTX_set_default_passwd_cb_userdata; + SSL_CTX_get_default_passwd_cb: function (ctx: PSSL_CTX): pem_password_cb; cdecl = Load_SSL_CTX_get_default_passwd_cb; + SSL_CTX_get_default_passwd_cb_userdata: function (ctx: PSSL_CTX): Pointer; cdecl = Load_SSL_CTX_get_default_passwd_cb_userdata; + SSL_set_default_passwd_cb: procedure (s: PSSL; cb: pem_password_cb); cdecl = Load_SSL_set_default_passwd_cb; + SSL_set_default_passwd_cb_userdata: procedure (s: PSSL; u: Pointer); cdecl = Load_SSL_set_default_passwd_cb_userdata; + SSL_get_default_passwd_cb: function (s: PSSL): pem_password_cb; cdecl = Load_SSL_get_default_passwd_cb; + SSL_get_default_passwd_cb_userdata: function (s: PSSL): Pointer; cdecl = Load_SSL_get_default_passwd_cb_userdata; + SSL_CTX_check_private_key: function (const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_check_private_key; + SSL_check_private_key: function (const ctx: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_check_private_key; + SSL_CTX_set_session_id_context: function (ctx: PSSL_CTX; const sid_ctx: PByte; sid_ctx_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_session_id_context; + SSL_new: function (ctx: PSSL_CTX): PSSL; cdecl = Load_SSL_new; + SSL_up_ref: function (s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_up_ref; + SSL_is_dtls: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_is_dtls; + SSL_set_session_id_context: function (ssl: PSSL; const sid_ctx: PByte; sid_ctx_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_SSL_set_session_id_context; + SSL_CTX_set_purpose: function (ctx: PSSL_CTX; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_purpose; + SSL_set_purpose: function (ssl: PSSL; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_set_purpose; + SSL_CTX_set_trust: function (ctx: PSSL_CTX; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_trust; + SSL_set_trust: function (ssl: PSSL; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_set_trust; + SSL_set1_host: function (s: PSSL; const hostname: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_set1_host; + SSL_add1_host: function (s: PSSL; const hostname: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_add1_host; + SSL_get0_peername: function (s: PSSL): PAnsiChar; cdecl = Load_SSL_get0_peername; + SSL_set_hostflags: procedure (s: PSSL; flags: TOpenSSL_C_UINT); cdecl = Load_SSL_set_hostflags; + SSL_CTX_dane_enable: function (ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_dane_enable; + SSL_CTX_dane_mtype_set: function (ctx: PSSL_CTX; const md: PEVP_MD; mtype: TOpenSSL_C_UINT8; ord: TOpenSSL_C_UINT8): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_dane_mtype_set; + SSL_dane_enable: function (s: PSSL; const basedomain: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_dane_enable; + SSL_dane_tlsa_add: function (s: PSSL; usage: TOpenSSL_C_UINT8; selector: TOpenSSL_C_UINT8; mtype: TOpenSSL_C_UINT8; const data: PByte; dlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_dane_tlsa_add; + SSL_get0_dane_authority: function (s: PSSL; mcert: PPX509; mspki: PPEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_SSL_get0_dane_authority; + SSL_get0_dane_tlsa: function (s: PSSL; usage: POpenSSL_C_UINT8; selector: POpenSSL_C_UINT8; mtype: POpenSSL_C_UINT8; const data: PPByte; dlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_get0_dane_tlsa; + SSL_get0_dane: function (ssl: PSSL): PSSL_DANE; cdecl = Load_SSL_get0_dane; + SSL_CTX_dane_set_flags: function (ctx: PSSL_CTX; flags: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl = Load_SSL_CTX_dane_set_flags; + SSL_CTX_dane_clear_flags: function (ctx: PSSL_CTX; flags: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl = Load_SSL_CTX_dane_clear_flags; + SSL_dane_set_flags: function (ssl: PSSL; flags: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl = Load_SSL_dane_set_flags; + SSL_dane_clear_flags: function (ssl: PSSL; flags: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl = Load_SSL_dane_clear_flags; + SSL_CTX_set1_param: function (ctx: PSSL_CTX; vpm: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set1_param; + SSL_set1_param: function (ssl: PSSL; vpm: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl = Load_SSL_set1_param; + SSL_CTX_get0_param: function (ctx: PSSL_CTX): PX509_VERIFY_PARAM; cdecl = Load_SSL_CTX_get0_param; + SSL_get0_param: function (ssl: PSSL): PX509_VERIFY_PARAM; cdecl = Load_SSL_get0_param; + SSL_CTX_set_srp_username: function (ctx: PSSL_CTX; name: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_srp_username; + SSL_CTX_set_srp_password: function (ctx: PSSL_CTX; password: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_srp_password; + SSL_CTX_set_srp_strength: function (ctx: PSSL_CTX; strength: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_srp_strength; + SSL_CTX_set_srp_client_pwd_callback: function (ctx: PSSL_CTX; cb: SSL_CTX_set_srp_client_pwd_callback_cb): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_srp_client_pwd_callback; + SSL_CTX_set_srp_verify_param_callback: function (ctx: PSSL_CTX; cb: SSL_CTX_set_srp_verify_param_callback_cb): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_srp_verify_param_callback; + SSL_CTX_set_srp_username_callback: function (ctx: PSSL_CTX; cb: SSL_CTX_set_srp_username_callback_cb): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_srp_username_callback; + SSL_CTX_set_srp_cb_arg: function (ctx: PSSL_CTX; arg: Pointer): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_srp_cb_arg; + SSL_set_srp_server_param: function (s: PSSL; const N: PBIGNUm; const g: PBIGNUm; sa: PBIGNUm; v: PBIGNUm; info: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_set_srp_server_param; + SSL_set_srp_server_param_pw: function (s: PSSL; const user: PAnsiChar; const pass: PAnsiChar; const grp: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_set_srp_server_param_pw; + SSL_CTX_set_client_hello_cb: procedure (c: PSSL_CTX; cb: SSL_client_hello_cb_fn; arg: Pointer); cdecl = Load_SSL_CTX_set_client_hello_cb; + SSL_client_hello_isv2: function (s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_client_hello_isv2; + SSL_client_hello_get0_legacy_version: function (s: PSSL): TOpenSSL_C_UINT; cdecl = Load_SSL_client_hello_get0_legacy_version; + SSL_client_hello_get0_random: function (s: PSSL; const out_: PPByte): TOpenSSL_C_SIZET; cdecl = Load_SSL_client_hello_get0_random; + SSL_client_hello_get0_session_id: function (s: PSSL; const out_: PPByte): TOpenSSL_C_SIZET; cdecl = Load_SSL_client_hello_get0_session_id; + SSL_client_hello_get0_ciphers: function (s: PSSL; const out_: PPByte): TOpenSSL_C_SIZET; cdecl = Load_SSL_client_hello_get0_ciphers; + SSL_client_hello_get0_compression_methods: function (s: PSSL; const out_: PPByte): TOpenSSL_C_SIZET; cdecl = Load_SSL_client_hello_get0_compression_methods; + SSL_client_hello_get1_extensions_present: function (s: PSSL; out_: PPOpenSSL_C_INT; outlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_client_hello_get1_extensions_present; + SSL_client_hello_get0_ext: function (s: PSSL; type_: TOpenSSL_C_UINT; const out_: PPByte; outlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_client_hello_get0_ext; + SSL_certs_clear: procedure (s: PSSL); cdecl = Load_SSL_certs_clear; + SSL_free: procedure (ssl: PSSL); cdecl = Load_SSL_free; + SSL_waiting_for_async: function (s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_waiting_for_async; + SSL_get_all_async_fds: function (s: PSSL; fds: POSSL_ASYNC_FD; numfds: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_get_all_async_fds; + SSL_get_changed_async_fds: function (s: PSSL; addfd: POSSL_ASYNC_FD; numaddfds: POpenSSL_C_SIZET; delfd: POSSL_ASYNC_FD; numdelfds: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_get_changed_async_fds; + SSL_accept: function (ssl: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_accept; + SSL_stateless: function (s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_stateless; + SSL_connect: function (ssl: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_connect; + SSL_read: function (ssl: PSSL; buf: Pointer; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_read; + SSL_read_ex: function (ssl: PSSL; buf: Pointer; num: TOpenSSL_C_SIZET; readbytes: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_read_ex; + SSL_read_early_data: function (s: PSSL; buf: Pointer; num: TOpenSSL_C_SIZET; readbytes: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_read_early_data; + SSL_peek: function (ssl: PSSL; buf: Pointer; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_peek; + SSL_peek_ex: function (ssl: PSSL; buf: Pointer; num: TOpenSSL_C_SIZET; readbytes: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_peek_ex; + SSL_write: function (ssl: PSSL; const buf: Pointer; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_write; + SSL_write_ex: function (s: PSSL; const buf: Pointer; num: TOpenSSL_C_SIZET; written: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_write_ex; + SSL_write_early_data: function (s: PSSL; const buf: Pointer; num: TOpenSSL_C_SIZET; written: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_write_early_data; + SSL_callback_ctrl: function (v1: PSSL; v2: TOpenSSL_C_INT; v3: SSL_callback_ctrl_v3): TOpenSSL_C_LONG; cdecl = Load_SSL_callback_ctrl; + SSL_ctrl: function (ssl: PSSL; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; parg: Pointer): TOpenSSL_C_LONG; cdecl = Load_SSL_ctrl; + SSL_CTX_ctrl: function (ctx: PSSL_CTX; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; parg: Pointer): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_ctrl; + SSL_CTX_callback_ctrl: function (v1: PSSL_CTX; v2: TOpenSSL_C_INT; v3: SSL_CTX_callback_ctrl_v3): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_callback_ctrl; + SSL_get_early_data_status: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_get_early_data_status; + SSL_get_error: function (const s: PSSL; ret_code: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_get_error; + SSL_get_version: function (const s: PSSL): PAnsiChar; cdecl = Load_SSL_get_version; + SSL_CTX_set_ssl_version: function (ctx: PSSL_CTX; const meth: PSSL_METHOD): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_ssl_version; + TLS_method: function : PSSL_METHOD; cdecl = Load_TLS_method; + TLS_server_method: function : PSSL_METHOD; cdecl = Load_TLS_server_method; + TLS_client_method: function : PSSL_METHOD; cdecl = Load_TLS_client_method; + SSL_do_handshake: function (s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_do_handshake; + SSL_key_update: function (s: PSSL; updatetype: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_key_update; + SSL_get_key_update_type: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_get_key_update_type; + SSL_renegotiate: function (s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_renegotiate; + SSL_renegotiate_abbreviated: function (s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_renegotiate_abbreviated; + SSL_new_session_ticket: function (s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_new_session_ticket; + SSL_shutdown: function (s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_shutdown; + SSL_CTX_set_post_handshake_auth: procedure (ctx: PSSL_CTX; val: TOpenSSL_C_INT); cdecl = Load_SSL_CTX_set_post_handshake_auth; + SSL_set_post_handshake_auth: procedure (s: PSSL; val: TOpenSSL_C_INT); cdecl = Load_SSL_set_post_handshake_auth; + SSL_renegotiate_pending: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_renegotiate_pending; + SSL_verify_client_post_handshake: function (s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_verify_client_post_handshake; + SSL_CTX_get_ssl_method: function (const ctx: PSSL_CTX): PSSL_METHOD; cdecl = Load_SSL_CTX_get_ssl_method; + SSL_get_ssl_method: function (const s: PSSL): PSSL_METHOD; cdecl = Load_SSL_get_ssl_method; + SSL_set_ssl_method: function (s: PSSL; const method: PSSL_METHOD): TOpenSSL_C_INT; cdecl = Load_SSL_set_ssl_method; + SSL_alert_type_string_long: function (value: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_SSL_alert_type_string_long; + SSL_alert_type_string: function (value: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_SSL_alert_type_string; + SSL_alert_desc_string_long: function (value: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_SSL_alert_desc_string_long; + SSL_alert_desc_string: function (value: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_SSL_alert_desc_string; + SSL_CTX_set_client_CA_list: procedure (ctx: PSSL_CTX; name_list: PSTACK_OF_X509_NAME); cdecl = Load_SSL_CTX_set_client_CA_list; + SSL_add_client_CA: function (ssl: PSSL; x: PX509): TOpenSSL_C_INT; cdecl = Load_SSL_add_client_CA; + SSL_CTX_add_client_CA: function (ctx: PSSL_CTX; x: PX509): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_add_client_CA; + SSL_set_connect_state: procedure (s: PSSL); cdecl = Load_SSL_set_connect_state; + SSL_set_accept_state: procedure (s: PSSL); cdecl = Load_SSL_set_accept_state; + SSL_CIPHER_description: function (cipher: PSSL_CIPHER; buf: PAnsiChar; size_ :TOpenSSL_C_INT): PAnsiChar; cdecl = Load_SSL_CIPHER_description; + SSL_dup: function (ssl: PSSL): PSSL; cdecl = Load_SSL_dup; + SSL_get_certificate: function (const ssl: PSSL): PX509; cdecl = Load_SSL_get_certificate; + SSL_get_privatekey: function (const ssl: PSSL): PEVP_PKEY; cdecl = Load_SSL_get_privatekey; + SSL_CTX_get0_certificate: function (const ctx: PSSL_CTX): PX509; cdecl = Load_SSL_CTX_get0_certificate; + SSL_CTX_get0_privatekey: function (const ctx: PSSL_CTX): PEVP_PKEY; cdecl = Load_SSL_CTX_get0_privatekey; + SSL_CTX_set_quiet_shutdown: procedure (ctx: PSSL_CTX; mode: TOpenSSL_C_INT); cdecl = Load_SSL_CTX_set_quiet_shutdown; + SSL_CTX_get_quiet_shutdown: function (const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_get_quiet_shutdown; + SSL_set_quiet_shutdown: procedure (ssl: PSSL; mode: TOpenSSL_C_INT); cdecl = Load_SSL_set_quiet_shutdown; + SSL_get_quiet_shutdown: function (const ssl: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_get_quiet_shutdown; + SSL_set_shutdown: procedure (ssl: PSSL; mode: TOpenSSL_C_INT); cdecl = Load_SSL_set_shutdown; + SSL_get_shutdown: function (const ssl: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_get_shutdown; + SSL_version: function (const ssl: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_version; + SSL_client_version: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_client_version; + SSL_CTX_set_default_verify_paths: function (ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_default_verify_paths; + SSL_CTX_set_default_verify_dir: function (ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_default_verify_dir; + SSL_CTX_set_default_verify_file: function (ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_default_verify_file; + SSL_CTX_load_verify_locations: function (ctx: PSSL_CTX; const CAfile: PAnsiChar; const CApath: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_load_verify_locations; + SSL_get_session: function (const ssl: PSSL): PSSL_SESSION; cdecl = Load_SSL_get_session; + SSL_get1_session: function (ssl: PSSL): PSSL_SESSION; cdecl = Load_SSL_get1_session; + SSL_get_SSL_CTX: function (const ssl: PSSL): PSSL_CTX; cdecl = Load_SSL_get_SSL_CTX; + SSL_set_SSL_CTX: function (ssl: PSSL; ctx: PSSL_CTX): PSSL_CTX; cdecl = Load_SSL_set_SSL_CTX; + SSL_set_info_callback: procedure (ssl: PSSL; cb: SSL_info_callback); cdecl = Load_SSL_set_info_callback; + SSL_get_info_callback: function (const ssl: PSSL): SSL_info_callback; cdecl = Load_SSL_get_info_callback; + SSL_get_state: function (const ssl: PSSL): OSSL_HANDSHAKE_STATE; cdecl = Load_SSL_get_state; + SSL_set_verify_result: procedure (ssl: PSSL; v: TOpenSSL_C_LONG); cdecl = Load_SSL_set_verify_result; + SSL_get_verify_result: function (const ssl: PSSL): TOpenSSL_C_LONG; cdecl = Load_SSL_get_verify_result; + SSL_get_client_random: function (const ssl: PSSL; out_: PByte; outlen: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl = Load_SSL_get_client_random; + SSL_get_server_random: function (const ssl: PSSL; out_: PByte; outlen: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl = Load_SSL_get_server_random; + SSL_SESSION_get_master_key: function (const sess: PSSL_SESSION; out_: PByte; outlen: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl = Load_SSL_SESSION_get_master_key; + SSL_SESSION_set1_master_key: function (sess: PSSL_SESSION; const in_: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_set1_master_key; + SSL_SESSION_get_max_fragment_length: function (const sess: PSSL_SESSION): TOpenSSL_C_UINT8; cdecl = Load_SSL_SESSION_get_max_fragment_length; + SSL_set_ex_data: function (ssl: PSSL; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl = Load_SSL_set_ex_data; + SSL_get_ex_data: function (const ssl: PSSL; idx: TOpenSSL_C_INT): Pointer; cdecl = Load_SSL_get_ex_data; + SSL_SESSION_set_ex_data: function (ss: PSSL_SESSION; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_set_ex_data; + SSL_SESSION_get_ex_data: function (const ss: PSSL_SESSION; idx: TOpenSSL_C_INT): Pointer; cdecl = Load_SSL_SESSION_get_ex_data; + SSL_CTX_set_ex_data: function (ssl: PSSL_CTX; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_ex_data; + SSL_CTX_get_ex_data: function (const ssl: PSSL_CTX; idx: TOpenSSL_C_INT): Pointer; cdecl = Load_SSL_CTX_get_ex_data; + SSL_get_ex_data_X509_STORE_CTX_idx: function : TOpenSSL_C_INT; cdecl = Load_SSL_get_ex_data_X509_STORE_CTX_idx; + SSL_CTX_set_default_read_buffer_len: procedure (ctx: PSSL_CTX; len: TOpenSSL_C_SIZET); cdecl = Load_SSL_CTX_set_default_read_buffer_len; + SSL_set_default_read_buffer_len: procedure (s: PSSL; len: TOpenSSL_C_SIZET); cdecl = Load_SSL_set_default_read_buffer_len; + SSL_CTX_set_tmp_dh_callback: procedure (ctx: PSSL_CTX; dh: SSL_CTX_set_tmp_dh_callback_dh); cdecl = Load_SSL_CTX_set_tmp_dh_callback; + SSL_set_tmp_dh_callback: procedure (ssl: PSSL; dh: SSL_set_tmp_dh_callback_dh); cdecl = Load_SSL_set_tmp_dh_callback; + SSL_CIPHER_find: function (ssl: PSSL; const ptr: PByte): PSSL_CIPHER; cdecl = Load_SSL_CIPHER_find; + SSL_CIPHER_get_cipher_nid: function (const c: PSSL_CIPHEr): TOpenSSL_C_INT; cdecl = Load_SSL_CIPHER_get_cipher_nid; + SSL_CIPHER_get_digest_nid: function (const c: PSSL_CIPHEr): TOpenSSL_C_INT; cdecl = Load_SSL_CIPHER_get_digest_nid; + SSL_set_session_ticket_ext: function (s: PSSL; ext_data: Pointer; ext_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_set_session_ticket_ext; + SSL_set_session_ticket_ext_cb: function (s: PSSL; cb: tls_session_ticket_ext_cb_fn; arg: Pointer): TOpenSSL_C_INT; cdecl = Load_SSL_set_session_ticket_ext_cb; + SSL_CTX_set_not_resumable_session_callback: procedure (ctx: PSSL_CTX; cb: SSL_CTX_set_not_resumable_session_callback_cb); cdecl = Load_SSL_CTX_set_not_resumable_session_callback; + SSL_set_not_resumable_session_callback: procedure (ssl: PSSL; cb: SSL_set_not_resumable_session_callback_cb); cdecl = Load_SSL_set_not_resumable_session_callback; + SSL_CTX_set_record_padding_callback: procedure (ctx: PSSL_CTX; cb: SSL_CTX_set_record_padding_callback_cb); cdecl = Load_SSL_CTX_set_record_padding_callback; + SSL_CTX_set_record_padding_callback_arg: procedure (ctx: PSSL_CTX; arg: Pointer); cdecl = Load_SSL_CTX_set_record_padding_callback_arg; + SSL_CTX_get_record_padding_callback_arg: function (const ctx: PSSL_CTX): Pointer; cdecl = Load_SSL_CTX_get_record_padding_callback_arg; + SSL_CTX_set_block_padding: function (ctx: PSSL_CTX; block_size: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_block_padding; + SSL_set_record_padding_callback: procedure (ssl: PSSL; cb: SSL_set_record_padding_callback_cb); cdecl = Load_SSL_set_record_padding_callback; + SSL_set_record_padding_callback_arg: procedure (ssl: PSSL; arg: Pointer); cdecl = Load_SSL_set_record_padding_callback_arg; + SSL_get_record_padding_callback_arg: function (const ssl: PSSL): Pointer; cdecl = Load_SSL_get_record_padding_callback_arg; + SSL_set_block_padding: function (ssl: PSSL; block_size: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_set_block_padding; + SSL_set_num_tickets: function (s: PSSL; num_tickets: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_set_num_tickets; + SSL_get_num_tickets: function (const s: PSSL): TOpenSSL_C_SIZET; cdecl = Load_SSL_get_num_tickets; + SSL_CTX_set_num_tickets: function (ctx: PSSL_CTX; num_tickets: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_num_tickets; + SSL_CTX_get_num_tickets: function (const ctx: PSSL_CTX): TOpenSSL_C_SIZET; cdecl = Load_SSL_CTX_get_num_tickets; + SSL_session_reused: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_session_reused; + SSL_is_server: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_is_server; + SSL_CONF_CTX_new: function : PSSL_CONF_CTX; cdecl = Load_SSL_CONF_CTX_new; + SSL_CONF_CTX_finish: function (cctx: PSSL_CONF_CTX): TOpenSSL_C_INT; cdecl = Load_SSL_CONF_CTX_finish; + SSL_CONF_CTX_free: procedure (cctx: PSSL_CONF_CTX); cdecl = Load_SSL_CONF_CTX_free; + SSL_CONF_CTX_set_flags: function (cctx: PSSL_CONF_CTX; flags: TOpenSSL_C_UINT): TOpenSSL_C_UINT; cdecl = Load_SSL_CONF_CTX_set_flags; + SSL_CONF_CTX_clear_flags: function (cctx: PSSL_CONF_CTX; flags: TOpenSSL_C_UINT): TOpenSSL_C_UINT; cdecl = Load_SSL_CONF_CTX_clear_flags; + SSL_CONF_CTX_set1_prefix: function (cctx: PSSL_CONF_CTX; const pre: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_CONF_CTX_set1_prefix; + SSL_CONF_cmd: function (cctx: PSSL_CONF_CTX; const cmd: PAnsiChar; const value: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_CONF_cmd; + SSL_CONF_cmd_argv: function (cctx: PSSL_CONF_CTX; pargc: POpenSSL_C_INT; pargv: PPPAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_CONF_cmd_argv; + SSL_CONF_cmd_value_type: function (cctx: PSSL_CONF_CTX; const cmd: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_CONF_cmd_value_type; + SSL_CONF_CTX_set_ssl: procedure (cctx: PSSL_CONF_CTX; ssl: PSSL); cdecl = Load_SSL_CONF_CTX_set_ssl; + SSL_CONF_CTX_set_ssl_ctx: procedure (cctx: PSSL_CONF_CTX; ctx: PSSL_CTX); cdecl = Load_SSL_CONF_CTX_set_ssl_ctx; + SSL_add_ssl_module: procedure ; cdecl = Load_SSL_add_ssl_module; + SSL_config: function (s: PSSL; const name: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_config; + SSL_CTX_config: function (ctx: PSSL_CTX; const name: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_config; + DTLSv1_listen: function (s: PSSL; client: PBIO_ADDr): TOpenSSL_C_INT; cdecl = Load_DTLSv1_listen; + SSL_enable_ct: function (s: PSSL; validation_mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_enable_ct; + SSL_CTX_enable_ct: function (ctx: PSSL_CTX; validation_mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_enable_ct; + SSL_ct_is_enabled: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_ct_is_enabled; + SSL_CTX_ct_is_enabled: function (const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_ct_is_enabled; + SSL_CTX_set_default_ctlog_list_file: function (ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_default_ctlog_list_file; + SSL_CTX_set_ctlog_list_file: function (ctx: PSSL_CTX; const path: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_ctlog_list_file; + SSL_CTX_set0_ctlog_store: procedure (ctx: PSSL_CTX; logs: PCTLOG_STORE); cdecl = Load_SSL_CTX_set0_ctlog_store; + SSL_set_security_level: procedure (s: PSSL; level: TOpenSSL_C_INT); cdecl = Load_SSL_set_security_level; + SSL_set_security_callback: procedure (s: PSSL; cb: SSL_security_callback); cdecl = Load_SSL_set_security_callback; + SSL_get_security_callback: function (const s: PSSL): SSL_security_callback; cdecl = Load_SSL_get_security_callback; + SSL_set0_security_ex_data: procedure (s: PSSL; ex: Pointer); cdecl = Load_SSL_set0_security_ex_data; + SSL_get0_security_ex_data: function (const s: PSSL): Pointer; cdecl = Load_SSL_get0_security_ex_data; + SSL_CTX_set_security_level: procedure (ctx: PSSL_CTX; level: TOpenSSL_C_INT); cdecl = Load_SSL_CTX_set_security_level; + SSL_CTX_get_security_level: function (const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_get_security_level; + SSL_CTX_get0_security_ex_data: function (const ctx: PSSL_CTX): Pointer; cdecl = Load_SSL_CTX_get0_security_ex_data; + SSL_CTX_set0_security_ex_data: procedure (ctx: PSSL_CTX; ex: Pointer); cdecl = Load_SSL_CTX_set0_security_ex_data; + OPENSSL_init_ssl: function (opts: TOpenSSL_C_UINT64; const settings: POPENSSL_INIT_SETTINGS): TOpenSSL_C_INT; cdecl = Load_OPENSSL_init_ssl; + SSL_free_buffers: function (ssl: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_free_buffers; + SSL_alloc_buffers: function (ssl: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_alloc_buffers; + SSL_CTX_set_session_ticket_cb: function (ctx: PSSL_CTX; gen_cb: SSL_CTX_generate_session_ticket_fn; dec_cb: SSL_CTX_decrypt_session_ticket_fn; arg: Pointer): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_session_ticket_cb; + SSL_SESSION_set1_ticket_appdata: function (ss: PSSL_SESSION; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_set1_ticket_appdata; + SSL_SESSION_get0_ticket_appdata: function (ss: PSSL_SESSION; data: PPointer; len: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_SESSION_get0_ticket_appdata; + DTLS_set_timer_cb: procedure (s: PSSL; cb: DTLS_timer_cb); cdecl = Load_DTLS_set_timer_cb; + SSL_CTX_set_allow_early_data_cb: procedure (ctx: PSSL_CTX; cb: SSL_allow_early_data_cb_fN; arg: Pointer); cdecl = Load_SSL_CTX_set_allow_early_data_cb; + SSL_set_allow_early_data_cb: procedure (s: PSSL; cb: SSL_allow_early_data_cb_fN; arg: Pointer); cdecl = Load_SSL_set_allow_early_data_cb; + SSL_get0_peer_certificate: function (const s: PSSL): PX509; cdecl = Load_SSL_get0_peer_certificate; {introduced 3.3.0 } + SSL_get1_peer_certificate: function (const s: PSSL): PX509; cdecl = Load_SSL_get1_peer_certificate; {introduced 3.3.0 } + + + + + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +var + SSL_CTX_set_mode: function (ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set_mode; {removed 1.0.0} + SSL_CTX_clear_mode: function (ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_clear_mode; {removed 1.0.0} + SSL_CTX_sess_set_cache_size: function (ctx: PSSL_CTX; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_sess_set_cache_size; {removed 1.0.0} + SSL_CTX_sess_get_cache_size: function (ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_sess_get_cache_size; {removed 1.0.0} + SSL_CTX_set_session_cache_mode: function (ctx: PSSL_CTX; m: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set_session_cache_mode; {removed 1.0.0} + SSL_CTX_get_session_cache_mode: function (ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_get_session_cache_mode; {removed 1.0.0} + SSL_clear_num_renegotiations: function (ssl: PSSL): TOpenSSL_C_LONG; cdecl = Load_SSL_clear_num_renegotiations; {removed 1.0.0} + SSL_total_renegotiations: function (ssl: PSSL): TOpenSSL_C_LONG; cdecl = Load_SSL_total_renegotiations; {removed 1.0.0} + SSL_CTX_set_tmp_dh: function (ctx: PSSL_CTX; dh: PDH): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set_tmp_dh; {removed 1.0.0} + SSL_CTX_set_tmp_ecdh: function (ctx: PSSL_CTX; ecdh: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set_tmp_ecdh; {removed 1.0.0} + SSL_CTX_set_dh_auto: function (ctx: PSSL_CTX; onoff: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set_dh_auto; {removed 1.0.0} + SSL_set_dh_auto: function (s: PSSL; onoff: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_set_dh_auto; {removed 1.0.0} + SSL_set_tmp_dh: function (ssl: PSSL; dh: PDH): TOpenSSL_C_LONG; cdecl = Load_SSL_set_tmp_dh; {removed 1.0.0} + SSL_set_tmp_ecdh: function (ssl: PSSL; ecdh: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_set_tmp_ecdh; {removed 1.0.0} + SSL_CTX_add_extra_chain_cert: function (ctx: PSSL_CTX; x509: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_add_extra_chain_cert; {removed 1.0.0} + SSL_CTX_get_extra_chain_certs: function (ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_get_extra_chain_certs; {removed 1.0.0} + SSL_CTX_get_extra_chain_certs_only: function (ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_get_extra_chain_certs_only; {removed 1.0.0} + SSL_CTX_clear_extra_chain_certs: function (ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_clear_extra_chain_certs; {removed 1.0.0} + SSL_CTX_set0_chain: function (ctx: PSSL_CTX; sk: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set0_chain; {removed 1.0.0} + SSL_CTX_set1_chain: function (ctx: PSSL_CTX; sk: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set1_chain; {removed 1.0.0} + SSL_CTX_add0_chain_cert: function (ctx: PSSL_CTX; x509: PX509): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_add0_chain_cert; {removed 1.0.0} + SSL_CTX_add1_chain_cert: function (ctx: PSSL_CTX; x509: PX509): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_add1_chain_cert; {removed 1.0.0} + SSL_CTX_get0_chain_certs: function (ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_get0_chain_certs; {removed 1.0.0} + SSL_CTX_clear_chain_certs: function (ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_clear_chain_certs; {removed 1.0.0} + SSL_CTX_build_cert_chain: function (ctx: PSSL_CTX; flags: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_build_cert_chain; {removed 1.0.0} + SSL_CTX_select_current_cert: function (ctx: PSSL_CTX; x509: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_select_current_cert; {removed 1.0.0} + SSL_CTX_set_current_cert: function (ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set_current_cert; {removed 1.0.0} + SSL_CTX_set0_verify_cert_store: function (ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set0_verify_cert_store; {removed 1.0.0} + SSL_CTX_set1_verify_cert_store: function (ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set1_verify_cert_store; {removed 1.0.0} + SSL_CTX_set0_chain_cert_store: function (ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set0_chain_cert_store; {removed 1.0.0} + SSL_CTX_set1_chain_cert_store: function (ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set1_chain_cert_store; {removed 1.0.0} + SSL_set0_chain: function (s: PSSL; sk: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_set0_chain; {removed 1.0.0} + SSL_set1_chain: function (s: PSSL; sk: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_set1_chain; {removed 1.0.0} + SSL_add0_chain_cert: function (s: PSSL; x509: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_add0_chain_cert; {removed 1.0.0} + SSL_add1_chain_cert: function (s: PSSL; x509: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_add1_chain_cert; {removed 1.0.0} + SSL_get0_chain_certs: function (s: PSSL; px509: Pointer): TOpenSSL_C_LONG; cdecl = Load_SSL_get0_chain_certs; {removed 1.0.0} + SSL_clear_chain_certs: function (s: PSSL): TOpenSSL_C_LONG; cdecl = Load_SSL_clear_chain_certs; {removed 1.0.0} + SSL_build_cert_chain: function (s: PSSL; flags: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_build_cert_chain; {removed 1.0.0} + SSL_select_current_cert: function (s: PSSL; x509: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_select_current_cert; {removed 1.0.0} + SSL_set_current_cert: function (s: PSSL; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_set_current_cert; {removed 1.0.0} + SSL_set0_verify_cert_store: function (s: PSSL; st: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_set0_verify_cert_store; {removed 1.0.0} + SSL_set1_verify_cert_store: function (s: PSSL; st: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_set1_verify_cert_store; {removed 1.0.0} + SSL_set0_chain_cert_store: function (s: PSSL; st: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_set0_chain_cert_store; {removed 1.0.0} + SSL_set1_chain_cert_store: function (s: PSSL; st: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_set1_chain_cert_store; {removed 1.0.0} + SSL_get1_groups: function (s: PSSL; glist: POpenSSL_C_INT): TOpenSSL_C_LONG; cdecl = Load_SSL_get1_groups; {removed 1.0.0} + SSL_CTX_set1_groups: function (ctx: PSSL_CTX; glist: PByte; glistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set1_groups; {removed 1.0.0} + SSL_CTX_set1_groups_list: function (ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set1_groups_list; {removed 1.0.0} + SSL_set1_groups: function (s: PSSL; glist: PByte; glistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_set1_groups; {removed 1.0.0} + SSL_set1_groups_list: function (s: PSSL; str: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_set1_groups_list; {removed 1.0.0} + SSL_get_shared_group: function (s: PSSL; n: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_get_shared_group; {removed 1.0.0} + SSL_CTX_set1_sigalgs: function (ctx: PSSL_CTX; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set1_sigalgs; {removed 1.0.0} + SSL_CTX_set1_sigalgs_list: function (ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set1_sigalgs_list; {removed 1.0.0} + SSL_set1_sigalgs: function (s: PSSL; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_set1_sigalgs; {removed 1.0.0} + SSL_set1_sigalgs_list: function (s: PSSL; str: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_set1_sigalgs_list; {removed 1.0.0} + SSL_CTX_set1_client_sigalgs: function (ctx: PSSL_CTX; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set1_client_sigalgs; {removed 1.0.0} + SSL_CTX_set1_client_sigalgs_list: function (ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set1_client_sigalgs_list; {removed 1.0.0} + SSL_set1_client_sigalgs: function (s: PSSL; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_set1_client_sigalgs; {removed 1.0.0} + SSL_set1_client_sigalgs_list: function (s: PSSL; str: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_set1_client_sigalgs_list; {removed 1.0.0} + SSL_get0_certificate_types: function (s: PSSL; clist: PByte): TOpenSSL_C_LONG; cdecl = Load_SSL_get0_certificate_types; {removed 1.0.0} + SSL_CTX_set1_client_certificate_types: function (ctx: PSSL_CTX; clist: PByte; clistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_CTX_set1_client_certificate_types; {removed 1.0.0} + SSL_set1_client_certificate_types: function (s: PSSL; clist: PByte; clistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl = Load_SSL_set1_client_certificate_types; {removed 1.0.0} + SSL_get_signature_nid: function (s: PSSL; pn: Pointer): TOpenSSL_C_LONG; cdecl = Load_SSL_get_signature_nid; {removed 1.0.0} + SSL_get_peer_signature_nid: function (s: PSSL; pn: Pointer): TOpenSSL_C_LONG; cdecl = Load_SSL_get_peer_signature_nid; {removed 1.0.0} + SSL_get_peer_tmp_key: function (s: PSSL; pk: Pointer): TOpenSSL_C_LONG; cdecl = Load_SSL_get_peer_tmp_key; {removed 1.0.0} + SSL_get_tmp_key: function (s: PSSL; pk: Pointer): TOpenSSL_C_LONG; cdecl = Load_SSL_get_tmp_key; {removed 1.0.0} + SSL_get0_raw_cipherlist: function (s: PSSL; plst: Pointer): TOpenSSL_C_LONG; cdecl = Load_SSL_get0_raw_cipherlist; {removed 1.0.0} + SSL_get0_ec_point_formats: function (s: PSSL; plst: Pointer): TOpenSSL_C_LONG; cdecl = Load_SSL_get0_ec_point_formats; {removed 1.0.0} + SSL_get_app_data: function (const ssl: PSSL): Pointer; cdecl = Load_SSL_get_app_data; {removed 1.0.0} + SSL_set_app_data: function (ssl: PSSL; data: Pointer): TOpenSSL_C_INT; cdecl = Load_SSL_set_app_data; {removed 1.0.0} + SSLeay_add_ssl_algorithms: function : TOpenSSL_C_INT; cdecl = Load_SSLeay_add_ssl_algorithms; {removed 1.0.0} + SSL_load_error_strings: procedure ; cdecl = Load_SSL_load_error_strings; {removed 1.1.0} + SSL_get_peer_certificate: function (const s: PSSL): PX509; cdecl = Load_SSL_get_peer_certificate; {removed 3.0.0} + SSL_library_init: function : TOpenSSL_C_INT; cdecl = Load_SSL_library_init; {removed 1.1.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +const + SSL_CTX_set_mode_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_clear_mode_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_sess_set_cache_size_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_sess_get_cache_size_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set_session_cache_mode_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_get_session_cache_mode_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_clear_num_renegotiations_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_total_renegotiations_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set_tmp_dh_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set_tmp_ecdh_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set_dh_auto_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set_dh_auto_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set_tmp_dh_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set_tmp_ecdh_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_add_extra_chain_cert_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_get_extra_chain_certs_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_get_extra_chain_certs_only_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_clear_extra_chain_certs_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set0_chain_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set1_chain_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_add0_chain_cert_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_add1_chain_cert_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_get0_chain_certs_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_clear_chain_certs_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_build_cert_chain_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_select_current_cert_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set_current_cert_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set0_verify_cert_store_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set1_verify_cert_store_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set0_chain_cert_store_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set1_chain_cert_store_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set0_chain_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set1_chain_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_add0_chain_cert_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_add1_chain_cert_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_get0_chain_certs_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_clear_chain_certs_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_build_cert_chain_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_select_current_cert_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set_current_cert_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set0_verify_cert_store_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set1_verify_cert_store_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set0_chain_cert_store_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set1_chain_cert_store_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_get1_groups_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set1_groups_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set1_groups_list_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set1_groups_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set1_groups_list_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_get_shared_group_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set1_sigalgs_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set1_sigalgs_list_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set1_sigalgs_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set1_sigalgs_list_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set1_client_sigalgs_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set1_client_sigalgs_list_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set1_client_sigalgs_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set1_client_sigalgs_list_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_get0_certificate_types_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set1_client_certificate_types_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set1_client_certificate_types_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_get_signature_nid_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_get_peer_signature_nid_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_get_peer_tmp_key_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_get_tmp_key_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_get0_raw_cipherlist_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_get0_ec_point_formats_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_get_options_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_options_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_clear_options_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_clear_options_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_options_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_options_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_stateless_cookie_generate_cb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_stateless_cookie_verify_cb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_psk_find_session_callback_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_psk_find_session_callback_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_psk_use_session_callback_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_psk_use_session_callback_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_keylog_callback_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_get_keylog_callback_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_max_early_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_get_max_early_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_max_early_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_max_early_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_recv_max_early_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_get_recv_max_early_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_recv_max_early_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_recv_max_early_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_app_data_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_set_app_data_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_in_init_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_in_before_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_is_init_finished_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSLeay_add_ssl_algorithms_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_up_ref_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set1_cert_store_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_pending_cipher_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CIPHER_standard_name_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_cipher_name_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CIPHER_get_protocol_id_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CIPHER_get_kx_nid_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CIPHER_get_auth_nid_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CIPHER_get_handshake_digest_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CIPHER_is_aead_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_has_pending_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set0_rbio_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set0_wbio_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_ciphersuites_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_ciphersuites_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_use_serverinfo_ex_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_load_error_strings_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + SSL_SESSION_get_protocol_version_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_set_protocol_version_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_get0_hostname_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_set1_hostname_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_get0_alpn_selected_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_set1_alpn_selected_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_get0_cipher_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_set_cipher_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_has_ticket_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_get_ticket_lifetime_hint_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_get0_ticket_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_get_max_early_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_set_max_early_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_set1_id_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_is_resumable_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_dup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_get0_id_context_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_print_keylog_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_up_ref_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_peer_certificate_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + SSL_CTX_set_default_passwd_cb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_default_passwd_cb_userdata_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_get_default_passwd_cb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_get_default_passwd_cb_userdata_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_default_passwd_cb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_default_passwd_cb_userdata_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_default_passwd_cb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_default_passwd_cb_userdata_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_up_ref_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_is_dtls_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set1_host_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_add1_host_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get0_peername_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_hostflags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_dane_enable_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_dane_mtype_set_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_dane_enable_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_dane_tlsa_add_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get0_dane_authority_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get0_dane_tlsa_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get0_dane_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_dane_set_flags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_dane_clear_flags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_dane_set_flags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_dane_clear_flags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_client_hello_cb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_client_hello_isv2_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_client_hello_get0_legacy_version_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_client_hello_get0_random_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_client_hello_get0_session_id_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_client_hello_get0_ciphers_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_client_hello_get0_compression_methods_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_client_hello_get1_extensions_present_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_client_hello_get0_ext_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_waiting_for_async_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_all_async_fds_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_changed_async_fds_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_stateless_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_read_ex_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_read_early_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_peek_ex_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_write_ex_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_write_early_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_early_data_status_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + TLS_method_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + TLS_server_method_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + TLS_client_method_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_key_update_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_key_update_type_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_new_session_ticket_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + SSL_CTX_set_post_handshake_auth_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_post_handshake_auth_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_verify_client_post_handshake_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_library_init_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + SSL_client_version_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_default_verify_dir_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_default_verify_file_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_state_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_client_random_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_server_random_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_get_master_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_set1_master_key_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_get_max_fragment_length_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_default_read_buffer_len_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_default_read_buffer_len_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CIPHER_get_cipher_nid_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CIPHER_get_digest_nid_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_not_resumable_session_callback_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_not_resumable_session_callback_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_record_padding_callback_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_record_padding_callback_arg_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_get_record_padding_callback_arg_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_block_padding_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_record_padding_callback_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_record_padding_callback_arg_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_record_padding_callback_arg_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_block_padding_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_num_tickets_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_num_tickets_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_num_tickets_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_get_num_tickets_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_session_reused_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_add_ssl_module_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_config_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_config_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DTLSv1_listen_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_enable_ct_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_enable_ct_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_ct_is_enabled_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_ct_is_enabled_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_default_ctlog_list_file_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_ctlog_list_file_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set0_ctlog_store_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_security_level_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_security_callback_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_security_callback_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set0_security_ex_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get0_security_ex_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_security_level_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_get_security_level_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_get0_security_ex_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set0_security_ex_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_init_ssl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_free_buffers_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_alloc_buffers_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_session_ticket_cb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_set1_ticket_appdata_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_SESSION_get0_ticket_appdata_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + DTLS_set_timer_cb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_CTX_set_allow_early_data_cb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_allow_early_data_cb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSLv2_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + SSLv2_server_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + SSLv2_client_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + SSLv3_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + SSLv3_server_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + SSLv3_client_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + SSLv23_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + SSLv23_server_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + SSLv23_client_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + TLSv1_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + TLSv1_server_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + TLSv1_client_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + TLSv1_1_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + TLSv1_1_server_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + TLSv1_1_client_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + TLSv1_2_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + TLSv1_2_server_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + TLSv1_2_client_method_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + SSL_get0_peer_certificate_introduced = ((((((byte(3) shl 8) or byte(3)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.3.0} + SSL_get1_peer_certificate_introduced = ((((((byte(3) shl 8) or byte(3)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.3.0} + + +implementation + +//# define SSL_get_peer_certificate SSL_get1_peer_certificate + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +var + SSLv2_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + SSLv2_server_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + SSLv2_client_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + SSLv3_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + SSLv3_server_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + SSLv3_client_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + SSLv23_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + SSLv23_server_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + SSLv23_client_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + TLSv1_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + TLSv1_server_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + TLSv1_client_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + TLSv1_1_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + TLSv1_1_server_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + TLSv1_1_client_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + TLSv1_2_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + TLSv1_2_server_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} + TLSv1_2_client_method: function : PSSL_METHOD; cdecl = nil; {removed 1.1.0 allow_nil} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} + + +function IsOpenSSL_SSLv2_Available : Boolean; + begin + {$if declared(SSLv2_method)} + Result := Assigned(SSLv2_method) and + Assigned(SSLv2_server_method) and + Assigned(SSLv2_client_method); + {$ELSE} + Result := false; + {$ifend} + end; + + function IsOpenSSL_SSLv3_Available : Boolean; + begin + {$if declared(SSLv3_method)} + Result := Assigned(SSLv3_method) and + Assigned(SSLv3_server_method) and + Assigned(SSLv3_client_method); + {$ELSE} + Result := true; + {$ifend} + end; + + function IsOpenSSL_SSLv23_Available : Boolean; + begin + {$if declared(SSLv23_method)} + Result := Assigned(SSLv23_method) and + Assigned(SSLv23_server_method) and + Assigned(SSLv23_client_method); + {$ELSE} + Result := false; + {$ifend} + end; + + function IsOpenSSL_TLSv1_0_Available : Boolean; + begin + {$if declared(TLSv1_method)} + Result := Assigned(TLSv1_method) and + Assigned(TLSv1_server_method) and + Assigned(TLSv1_client_method); + {$ELSE} + Result := true; + {$ifend} + end; + + function IsOpenSSL_TLSv1_1_Available : Boolean; + begin + {$if declared(TLSv1_1_method)} + Result := Assigned(TLSv1_1_method) and + Assigned(TLSv1_1_server_method) and + Assigned(TLSv1_1_client_method); + {$ELSE} + Result := true; + {$ifend} + end; + + function IsOpenSSL_TLSv1_2_Available : Boolean; + begin + {$if declared(TLSv1_2_method)} + Result := Assigned(TLSv1_2_method) and + Assigned(TLSv1_2_server_method) and + Assigned(TLSv1_2_client_method); + {$ELSE} + Result := true; + {$ifend} + end; + + + +function HasTLS_method: boolean; +begin + Result := (GetIOpenSSL = nil) or (TLS_method_introduced <= GetIOpenSSL.GetOpenSSLVersion); +end; + + +//# define SSL_CTX_set_min_proto_version(ctx, version) SSL_CTX_ctrl(ctx, SSL_CTRL_SET_MIN_PROTO_VERSION, version, NULL) +function SSL_CTX_set_min_proto_version(ctx: PSSL_CTX; version: TOpenSSL_C_LONG): TOpenSSL_C_LONG; +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_MIN_PROTO_VERSION, version, nil); +end; + +//# define SSL_CTX_set_max_proto_version(ctx, version) SSL_CTX_ctrl(ctx, SSL_CTRL_SET_MAX_PROTO_VERSION, version, NULL) +function SSL_CTX_set_max_proto_version(ctx: PSSL_CTX; version: TOpenSSL_C_LONG): TOpenSSL_C_LONG; +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_MAX_PROTO_VERSION, version, nil); +end; + +//# define SSL_CTX_get_min_proto_version(ctx) SSL_CTX_ctrl(ctx, SSL_CTRL_GET_MIN_PROTO_VERSION, 0, NULL) +function SSL_CTX_get_min_proto_version(ctx: PSSL_CTX): TOpenSSL_C_LONG; +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_MIN_PROTO_VERSION, 0, nil); +end; + +//# define SSL_CTX_get_max_proto_version(ctx) SSL_CTX_ctrl(ctx, SSL_CTRL_GET_MAX_PROTO_VERSION, 0, NULL) +function SSL_CTX_get_max_proto_version(ctx: PSSL_CTX): TOpenSSL_C_LONG; +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_MAX_PROTO_VERSION, 0, nil); +end; + +//# define SSL_set_min_proto_version(s, version) SSL_ctrl(s, SSL_CTRL_SET_MIN_PROTO_VERSION, version, NULL) +function SSL_set_min_proto_version(s: PSSL; version: TOpenSSL_C_LONG): TOpenSSL_C_LONG; +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_MIN_PROTO_VERSION, version, nil); +end; + +//# define SSL_set_max_proto_version(s, version) SSL_ctrl(s, SSL_CTRL_SET_MAX_PROTO_VERSION, version, NULL) +function SSL_set_max_proto_version(s: PSSL; version: TOpenSSL_C_LONG): TOpenSSL_C_LONG; +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_MAX_PROTO_VERSION, version, nil); +end; + +//# define SSL_get_min_proto_version(s) SSL_ctrl(s, SSL_CTRL_GET_MIN_PROTO_VERSION, 0, NULL) +function SSL_get_min_proto_version(s: PSSL): TOpenSSL_C_LONG; +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_MIN_PROTO_VERSION, 0, nil); +end; + +//# define SSL_get_max_proto_version(s) SSL_ctrl(s, SSL_CTRL_GET_MAX_PROTO_VERSION, 0, NULL) +function SSL_get_max_proto_version(s: PSSL): TOpenSSL_C_LONG; +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_MAX_PROTO_VERSION, 0, nil); +end; + +type + PSTACK_OF_SSL_CIPHER = pointer; + Plash_of_SSL_SESSION = pointer; + SSL_CTX_stats = record + sess_connect: TOpenSSL_C_INT; // SSL new conn - started + sess_connect_renegotiate: TOpenSSL_C_INT; // SSL reneg - requested + sess_connect_good: TOpenSSL_C_INT; // SSL new conne/reneg - finished + sess_accept: TOpenSSL_C_INT; // SSL new accept - started + sess_accept_renegotiate: TOpenSSL_C_INT; // SSL reneg - requested + sess_accept_good: TOpenSSL_C_INT; // SSL accept/reneg - finished + sess_miss: TOpenSSL_C_INT; // session lookup misses + sess_timeout: TOpenSSL_C_INT; // reuse attempt on timeouted session + sess_cache_full: TOpenSSL_C_INT; // session removed due to full cache + sess_hit: TOpenSSL_C_INT; // session reuse actually done + sess_cb_hit: TOpenSSL_C_INT; // session-id that was not + // in the cache was + // passed back via the callback. This + // indicates that the application is + // supplying session-id's from other + // processes - spooky :-) + end; + PSTACK_OF_COMP = pointer; + PSSL_CTX_info_callback = pointer; + PCERT = pointer; + size_t = type integer; + PGEN_SESSION_CB = pointer; + PSSL_CTEX_tlsext_servername_callback = pointer; + Ptlsext_status_cb = pointer; + Ptlsext_ticket_key_cb = pointer; + Pssl3_buf_freelist_st = pointer; + PSRP_CTX = ^SRP_CTX; + SRP_CTX = record + //* param for all the callbacks */ + SRP_cb_arg : Pointer; + //* set client Hello login callback */ + TLS_ext_srp_username_callback : function(para1 : PSSL; para2 : TOpenSSL_C_INT; para3 : Pointer) : TOpenSSL_C_INT cdecl; + //int (*TLS_ext_srp_username_callback)(SSL *, int *, void *); + //* set SRP N/g param callback for verification */ + SRP_verify_param_callback : function(para1 : PSSL; para2 : Pointer) : TOpenSSL_C_INT cdecl; +// int (*SRP_verify_param_callback)(SSL *, void *); + //* set SRP client passwd callback */ + SRP_give_srp_client_pwd_callback : function(para1 : PSSL; para2 : Pointer) : PAnsiChar cdecl; + // char *(*SRP_give_srp_client_pwd_callback)(SSL *, void *); + login : PAnsiChar; + N, g, s, B, A : PBIGNUM; + _a, _b, v : PBIGNUM; + info : PAnsiChar; + strength : TOpenSSL_C_INT; + srp_Mask : TOpenSSL_C_ULONG; + end; + PSTACK_OF_SRTP_PROTECTION_PROFILE = pointer; + + _PSSL_CTX = ^SSL_CTX; + SSL_CTX = record + method: PSSL_METHOD; + cipher_list: PSTACK_OF_SSL_CIPHER; + // same as above but sorted for lookup + cipher_list_by_id: PSTACK_OF_SSL_CIPHER; + cert_store: PX509_STORE; + sessions: Plash_of_SSL_SESSION; + // a set of SSL_SESSIONs + // Most session-ids that will be cached, default is + // SSL_SESSION_CACHE_MAX_SIZE_DEFAULT. 0 is unlimited. + session_cache_size: TOpenSSL_C_ULONG; + session_cache_head: PSSL_SESSION; + session_cache_tail: PSSL_SESSION; + // This can have one of 2 values, ored together, + // SSL_SESS_CACHE_CLIENT, + // SSL_SESS_CACHE_SERVER, + // Default is SSL_SESSION_CACHE_SERVER, which means only + // SSL_accept which cache SSL_SESSIONS. + session_cache_mode: TOpenSSL_C_INT; + session_timeout: TOpenSSL_C_LONG; + // If this callback is not null, it will be called each + // time a session id is added to the cache. If this function + // returns 1, it means that the callback will do a + // SSL_SESSION_free() when it has finished using it. Otherwise, + // on 0, it means the callback has finished with it. + // If remove_session_cb is not null, it will be called when + // a session-id is removed from the cache. After the call, + // OpenSSL will SSL_SESSION_free() it. + new_session_cb: function (ssl : PSSL; sess: PSSL_SESSION): TOpenSSL_C_INT; cdecl; + remove_session_cb: procedure (ctx : PSSL_CTX; sess : PSSL_SESSION); cdecl; + get_session_cb: function (ssl : PSSL; data : PByte; len: TOpenSSL_C_INT; copy : POpenSSL_C_INT) : PSSL_SESSION; cdecl; + stats : SSL_CTX_stats; + + references: TOpenSSL_C_INT; + // if defined, these override the X509_verify_cert() calls + app_verify_callback: function (_para1 : PX509_STORE_CTX; _para2 : Pointer) : TOpenSSL_C_INT; cdecl; + app_verify_arg: Pointer; + // before OpenSSL 0.9.7, 'app_verify_arg' was ignored + // ('app_verify_callback' was called with just one argument) + // Default password callback. + default_passwd_callback: pem_password_cb; + // Default password callback user data. + default_passwd_callback_userdata: Pointer; + // get client cert callback + client_cert_cb: function (SSL : PSSL; x509 : PPX509; pkey : PPEVP_PKEY) : TOpenSSL_C_INT; cdecl; + // verify cookie callback + app_gen_cookie_cb: function (ssl : PSSL; cookie : PByte; cookie_len : TOpenSSL_C_UINT) : TOpenSSL_C_INT; cdecl; + app_verify_cookie_cb: Pointer; + ex_data : CRYPTO_EX_DATA; + rsa_md5 : PEVP_MD; // For SSLv2 - name is 'ssl2-md5' + md5: PEVP_MD; // For SSLv3/TLSv1 'ssl3-md5' + sha1: PEVP_MD; // For SSLv3/TLSv1 'ssl3->sha1' + extra_certs: PSTACK_OF_X509; + comp_methods: PSTACK_OF_COMP; // stack of SSL_COMP, SSLv3/TLSv1 + // Default values used when no per-SSL value is defined follow + info_callback: PSSL_CTX_info_callback; // used if SSL's info_callback is NULL + // what we put in client cert requests + client_CA : PSTACK_OF_X509_NAME; + // Default values to use in SSL structures follow (these are copied by SSL_new) + options : TOpenSSL_C_ULONG; + mode : TOpenSSL_C_ULONG; + max_cert_list : TOpenSSL_C_LONG; + cert : PCERT; + read_ahead : TOpenSSL_C_INT; + // callback that allows applications to peek at protocol messages + msg_callback : procedure (write_p, version, content_type : TOpenSSL_C_INT; const buf : Pointer; len : size_t; ssl : PSSL; arg : Pointer); cdecl; + msg_callback_arg : Pointer; + verify_mode : TOpenSSL_C_INT; + sid_ctx_length : TOpenSSL_C_UINT; + sid_ctx : array[0..SSL_MAX_SID_CTX_LENGTH - 1] of AnsiChar; + default_verify_callback : function(ok : TOpenSSL_C_INT; ctx : PX509_STORE_CTX) : TOpenSSL_C_INT; cdecl; // called 'verify_callback' in the SSL + // Default generate session ID callback. + generate_session_id : PGEN_SESSION_CB; + param : PX509_VERIFY_PARAM; + {$IFDEF OMIT_THIS} + purpose : TOpenSSL_C_INT; // Purpose setting + trust : TOpenSSL_C_INT; // Trust setting + {$ENDIF} + + quiet_shutdown : TOpenSSL_C_INT; + //* Maximum amount of data to send in one fragment. + // * actual record size can be more than this due to + // * padding and MAC overheads. + // */ + max_send_fragment : TOpenSSL_C_UINT; + {$IFNDEF OPENSSL_ENGINE} + ///* Engine to pass requests for client certs to + // */ + client_cert_engine : PENGINE; + {$ENDIF} + {$IFNDEF OPENSSL_NO_TLSEXT} +//* TLS extensions servername callback */ + tlsext_servername_callback : PSSL_CTEX_tlsext_servername_callback; + tlsext_servername_arg : Pointer; + //* RFC 4507 session ticket keys */ + tlsext_tick_key_name : array [0..(16-1)] of AnsiChar; + tlsext_tick_hmac_key : array [0..(16-1)] of AnsiChar; + tlsext_tick_aes_key : array [0..(16-1)] of AnsiChar; + //* Callback to support customisation of ticket key setting */ + // int (*tlsext_ticket_key_cb)(SSL *ssl, + // unsigned char *name, unsigned char *iv, + // EVP_CIPHER_CTX *ectx, + // HMAC_CTX *hctx, int enc); + tlsext_ticket_key_cb : Ptlsext_ticket_key_cb; + //* certificate status request info */ + //* Callback for status request */ + //int (*tlsext_status_cb)(SSL *ssl, void *arg); + tlsext_status_cb : Ptlsext_status_cb; + tlsext_status_arg : Pointer; + {$ENDIF} + //* draft-rescorla-tls-opaque-prf-input-00.txt information */ + tlsext_opaque_prf_input_callback : function(para1 : PSSL; peerinput : Pointer; len : size_t; arg : Pointer ) : TOpenSSL_C_INT cdecl; + //int (*tlsext_opaque_prf_input_callback)(SSL *, void *peerinput, size_t len, void *arg); + tlsext_opaque_prf_input_callback_arg : Pointer; + +{$ifndef OPENSSL_NO_PSK} + psk_identity_hint : PAnsiChar; + psk_client_callback : function (ssl : PSSL; hint : PAnsiChar; + identity : PAnsiChar; max_identity_len : TOpenSSL_C_UINT; + psk : PAnsiChar; max_psk_len : TOpenSSL_C_UINT ) : TOpenSSL_C_UINT cdecl; + // unsigned int (*psk_client_callback)(SSL *ssl, const char *hint, char *identity, +// unsigned int max_identity_len, unsigned char *psk, +// unsigned int max_psk_len); + psk_server_callback : function (ssl : PSSL; identity, psk : PAnsiChar; max_psk_len : TOpenSSL_C_UINT) : TOpenSSL_C_UINT cdecl; +// unsigned int (*psk_server_callback)(SSL *ssl, const char *identity, +// unsigned char *psk, unsigned int max_psk_len); +{$endif} + +{$ifndef OPENSSL_NO_BUF_FREELISTS} + freelist_max_len : TOpenSSL_C_UINT; + wbuf_freelist : Pssl3_buf_freelist_st; + rbuf_freelist : Pssl3_buf_freelist_st; +{$endif} +{$ifndef OPENSSL_NO_SRP} + srp_ctx : SRP_CTX; //* ctx for SRP authentication */ +{$endif} + +{$ifndef OPENSSL_NO_TLSEXT} +//# ifndef OPENSSL_NO_NEXTPROTONEG + //* Next protocol negotiation information */ + //* (for experimental NPN extension). */ + + //* For a server, this contains a callback function by which the set of + // * advertised protocols can be provided. */ + next_protos_advertised_cb : function(s : PSSL; out but : PAnsiChar; + out len : TOpenSSL_C_UINT; arg : Pointer) : TOpenSSL_C_INT cdecl; +// int (*next_protos_advertised_cb)(SSL *s, const unsigned char **buf, +// unsigned int *len, void *arg); + next_protos_advertised_cb_arg : Pointer; + //* For a client, this contains a callback function that selects the + // * next protocol from the list provided by the server. */ + next_proto_select_cb : function(s : PSSL; out _out : PAnsiChar; + outlen : PAnsiChar; + _in : PAnsiChar; + inlen : TOpenSSL_C_UINT; + arg : Pointer) : TOpenSSL_C_INT cdecl; +// int (*next_proto_select_cb)(SSL *s, unsigned char **out, +// unsigned char *outlen, +// const unsigned char *in, +// unsigned int inlen, +// void *arg); + next_proto_select_cb_arg : Pointer; +//# endif + //* SRTP profiles we are willing to do from RFC 5764 */ + srtp_profiles : PSTACK_OF_SRTP_PROTECTION_PROFILE; +{$endif} + end; + +const + SSL_CTRL_OPTIONS = 32; + SSL_CTRL_CLEAR_OPTIONS = 77; + + +const + SSL_MAX_KRB5_PRINCIPAL_LENGTH = 256; + +type + PSESS_CERT = pointer; + _PSSL_SESSION = ^_SSL_SESSION; + _SSL_SESSION = record + ssl_version : TOpenSSL_C_INT; // what ssl version session info is being kept in here? + // only really used in SSLv2 + key_arg_length: TOpenSSL_C_UINT; + key_arg: Array[0..SSL_MAX_KEY_ARG_LENGTH-1] of Byte; + master_key_length: TOpenSSL_C_INT; + master_key: Array[0..SSL_MAX_MASTER_KEY_LENGTH-1] of Byte; + // session_id - valid? + session_id_length: TOpenSSL_C_UINT; + session_id: Array[0..SSL_MAX_SSL_SESSION_ID_LENGTH-1] of Byte; + // this is used to determine whether the session is being reused in + // the appropriate context. It is up to the application to set this, + // via SSL_new + sid_ctx_length: TOpenSSL_C_UINT; + sid_ctx: array[0..SSL_MAX_SID_CTX_LENGTH-1] of Byte; + {$IFNDEF OPENSSL_NO_KRB5} + krb5_client_princ_len: TOpenSSL_C_UINT; + krb5_client_princ: array[0..SSL_MAX_KRB5_PRINCIPAL_LENGTH-1] of Byte; + {$ENDIF} +{$ifndef OPENSSL_NO_PSK} + psk_identity_hint : PAnsiChar; + psk_identity : PAnsiChar; +{$endif} + not_resumable: TOpenSSL_C_INT; + // The cert is the certificate used to establish this connection + sess_cert : PSESS_CERT; + + //* This is the cert for the other end. + // * On clients, it will be the same as sess_cert->peer_key->x509 + // * (the latter is not enough as sess_cert is not retained + // * in the external representation of sessions, see ssl_asn1.c). */ + peer : PX509; + //* when app_verify_callback accepts a session where the peer's certificate + // * is not ok, we must remember the error for session reuse: */ + verify_result : TOpenSSL_C_LONG; //* only for servers */ + references : TOpenSSL_C_INT; + timeout : TOpenSSL_C_LONG; + time : TOpenSSL_C_LONG; + compress_meth : TOpenSSL_C_UINT; //* Need to lookup the method */ + + cipher : PSSL_CIPHER; + cipher_id : TOpenSSL_C_ULONG; //* when ASN.1 loaded, this + // * needs to be used to load + // * the 'cipher' structure */ + ciphers : PSTACK_OF_SSL_CIPHER; //* shared ciphers? */ + ex_data : CRYPTO_EX_DATA; // application specific data */ + //* These are used to make removal of session-ids more + // * efficient and to implement a maximum cache size. */ + prev, next : PSSL_SESSION; + + {$IFNDEF OPENSSL_NO_TLSEXT} + tlsext_hostname : PAnsiChar; + {$IFDEF OPENSSL_NO_EC} + tlsext_ecpointformatlist_length : size_t; + tlsext_ecpointformatlist : PAnsiChar; //* peer's list */ + tlsext_ellipticcurvelist_length : size_t; + tlsext_ellipticcurvelist : PAnsiChar; //* peer's list */ + {$ENDIF} //* OPENSSL_NO_EC */ + + //* RFC4507 info */ + tlsext_tick : PAnsiChar;//* Session ticket */ + tlsext_ticklen : size_t;//* Session ticket length */ + tlsext_tick_lifetime_hint : TOpenSSL_C_LONG;//* Session lifetime hint in seconds */ + {$ENDIF} +{$ifndef OPENSSL_NO_SRP} + srp_username : PAnsiChar; +{$endif} + end; + + + +threadvar SelectedMethod: TOpenSSL_Version; + +procedure OpenSSL_SetMethod(aMethod: TOpenSSL_Version); +begin + SelectedMethod := aMethod; +end; + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} + +{Legacy Support Functions} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function SSL_get_peer_certificate(const s: PSSL): PX509; + +begin + Result := SSL_get1_peer_certificate(s); +end; + + +//# define SSL_CTX_set_mode(ctx,op) SSL_CTX_ctrl((ctx),SSL_CTRL_MODE,(op),NULL) + + +function SSL_CTX_set_mode(ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_MODE, op, nil); +end; + +//# define SSL_CTX_clear_mode(ctx,op) SSL_CTX_ctrl((ctx),SSL_CTRL_CLEAR_MODE,(op),NULL) + + +function SSL_CTX_clear_mode(ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_CLEAR_MODE, op, nil); +end; + +//# define SSL_CTX_sess_set_cache_size(ctx,t) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_SESS_CACHE_SIZE,t,NULL) + + +function SSL_CTX_sess_set_cache_size(ctx: PSSL_CTX; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_SESS_CACHE_SIZE, t, nil); +end; + +//# define SSL_CTX_sess_get_cache_size(ctx) SSL_CTX_ctrl(ctx,SSL_CTRL_GET_SESS_CACHE_SIZE,0,NULL) + + +function SSL_CTX_sess_get_cache_size(ctx: PSSL_CTX): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_SESS_CACHE_SIZE, 0, nil); +end; + +//# define SSL_CTX_set_session_cache_mode(ctx,m) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_SESS_CACHE_MODE,m,NULL) + + +function SSL_CTX_set_session_cache_mode(ctx: PSSL_CTX; m: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_SESS_CACHE_MODE, m, nil); +end; + +//# define SSL_CTX_get_session_cache_mode(ctx) SSL_CTX_ctrl(ctx,SSL_CTRL_GET_SESS_CACHE_MODE,0,NULL) + + +function SSL_CTX_get_session_cache_mode(ctx: PSSL_CTX): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_SESS_CACHE_MODE, 0, nil); +end; + +//# define SSL_num_renegotiations(ssl) SSL_ctrl((ssl),SSL_CTRL_GET_NUM_RENEGOTIATIONS,0,NULL) + + +function SSL_clear_num_renegotiations(ssl: PSSL): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(ssl, SSL_CTRL_CLEAR_NUM_RENEGOTIATIONS, 0, nil); +end; + +//# define SSL_total_renegotiations(ssl) SSL_ctrl((ssl),SSL_CTRL_GET_TOTAL_RENEGOTIATIONS,0,NULL) + + +function SSL_total_renegotiations(ssl: PSSL): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(ssl, SSL_CTRL_GET_TOTAL_RENEGOTIATIONS, 0, nil); +end; + +//# define SSL_CTX_set_tmp_dh(ctx,dh) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_TMP_DH,0,(char *)(dh)) + + +function SSL_CTX_set_tmp_dh(ctx: PSSL_CTX; dh: PDH): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_TMP_DH, 0, dh); +end; + +//# define SSL_CTX_set_tmp_ecdh(ctx,ecdh) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_TMP_ECDH,0,(char *)(ecdh)) + + +function SSL_CTX_set_tmp_ecdh(ctx: PSSL_CTX; ecdh: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_TMP_ECDH, 0, ecdh); +end; + +//# define SSL_CTX_set_dh_auto(ctx, onoff) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_DH_AUTO,onoff,NULL) + + +function SSL_CTX_set_dh_auto(ctx: PSSL_CTX; onoff: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_DH_AUTO, onoff, nil); +end; + +//# define SSL_set_dh_auto(s, onoff) SSL_ctrl(s,SSL_CTRL_SET_DH_AUTO,onoff,NULL) + + +function SSL_set_dh_auto(s: PSSL; onoff: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_DH_AUTO, onoff, nil); +end; + +//# define SSL_set_tmp_dh(ssl,dh) SSL_ctrl(ssl,SSL_CTRL_SET_TMP_DH,0,(char *)(dh)) + + +function SSL_set_tmp_dh(ssl: PSSL; dh: PDH): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(ssl, SSL_CTRL_SET_TMP_DH, 0, dh); +end; + +//# define SSL_set_tmp_ecdh(ssl,ecdh) SSL_ctrl(ssl,SSL_CTRL_SET_TMP_ECDH,0,(char *)(ecdh)) + + +function SSL_set_tmp_ecdh(ssl: PSSL; ecdh: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(ssl, SSL_CTRL_SET_TMP_ECDH, 0, ecdh); +end; + +//# define SSL_CTX_add_extra_chain_cert(ctx,x509) SSL_CTX_ctrl(ctx,SSL_CTRL_EXTRA_CHAIN_CERT,0,(char *)(x509)) + + +function SSL_CTX_add_extra_chain_cert(ctx: PSSL_CTX; x509: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_EXTRA_CHAIN_CERT, 0, x509); +end; + +//# define SSL_CTX_get_extra_chain_certs(ctx,px509) SSL_CTX_ctrl(ctx,SSL_CTRL_GET_EXTRA_CHAIN_CERTS,0,px509) + + +function SSL_CTX_get_extra_chain_certs(ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_EXTRA_CHAIN_CERTS, 0, px509); +end; + +//# define SSL_CTX_get_extra_chain_certs_only(ctx,px509) SSL_CTX_ctrl(ctx,SSL_CTRL_GET_EXTRA_CHAIN_CERTS,1,px509) + + +function SSL_CTX_get_extra_chain_certs_only(ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_EXTRA_CHAIN_CERTS, 1, px509); +end; + +//# define SSL_CTX_clear_extra_chain_certs(ctx) SSL_CTX_ctrl(ctx,SSL_CTRL_CLEAR_EXTRA_CHAIN_CERTS,0,NULL) + + +function SSL_CTX_clear_extra_chain_certs(ctx: PSSL_CTX): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_CLEAR_EXTRA_CHAIN_CERTS, 0, nil); +end; + +//# define SSL_CTX_set0_chain(ctx,sk) SSL_CTX_ctrl(ctx,SSL_CTRL_CHAIN,0,(char *)(sk)) + + +function SSL_CTX_set0_chain(ctx: PSSL_CTX; sk: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_CHAIN, 0, sk); +end; + +//# define SSL_CTX_set1_chain(ctx,sk) SSL_CTX_ctrl(ctx,SSL_CTRL_CHAIN,1,(char *)(sk)) + + +function SSL_CTX_set1_chain(ctx: PSSL_CTX; sk: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_CHAIN, 1, sk); +end; + +//# define SSL_CTX_add0_chain_cert(ctx,x509) SSL_CTX_ctrl(ctx,SSL_CTRL_CHAIN_CERT,0,(char *)(x509)) + + +function SSL_CTX_add0_chain_cert(ctx: PSSL_CTX; x509: PX509): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_CHAIN_CERT, 0, x509); +end; + +//# define SSL_CTX_add1_chain_cert(ctx,x509) SSL_CTX_ctrl(ctx,SSL_CTRL_CHAIN_CERT,1,(char *)(x509)) + + +function SSL_CTX_add1_chain_cert(ctx: PSSL_CTX; x509: PX509): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_CHAIN_CERT, 1, x509); +end; + +//# define SSL_CTX_get0_chain_certs(ctx,px509) SSL_CTX_ctrl(ctx,SSL_CTRL_GET_CHAIN_CERTS,0,px509) + + +function SSL_CTX_get0_chain_certs(ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_CHAIN_CERTS, 0, px509); +end; + +//# define SSL_CTX_clear_chain_certs(ctx) SSL_CTX_set0_chain(ctx,NULL) + + +function SSL_CTX_clear_chain_certs(ctx: PSSL_CTX): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_set0_chain(ctx, nil); +end; + +//# define SSL_CTX_build_cert_chain(ctx, flags) SSL_CTX_ctrl(ctx,SSL_CTRL_BUILD_CERT_CHAIN, flags, NULL) + + +function SSL_CTX_build_cert_chain(ctx: PSSL_CTX; flags: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_BUILD_CERT_CHAIN, flags, nil); +end; + +//# define SSL_CTX_select_current_cert(ctx,x509) SSL_CTX_ctrl(ctx,SSL_CTRL_SELECT_CURRENT_CERT,0,(char *)(x509)) + + +function SSL_CTX_select_current_cert(ctx: PSSL_CTX; x509: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SELECT_CURRENT_CERT, 0, x509); +end; + +//# define SSL_CTX_set_current_cert(ctx, op) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_CURRENT_CERT, op, NULL) + + +function SSL_CTX_set_current_cert(ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_CURRENT_CERT, op, nil); +end; + +//# define SSL_CTX_set0_verify_cert_store(ctx,st) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_VERIFY_CERT_STORE,0,(char *)(st)) + + +function SSL_CTX_set0_verify_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_VERIFY_CERT_STORE, 0, st); +end; + +//# define SSL_CTX_set1_verify_cert_store(ctx,st) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_VERIFY_CERT_STORE,1,(char *)(st)) + + +function SSL_CTX_set1_verify_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_VERIFY_CERT_STORE, 1, st); +end; + +//# define SSL_CTX_set0_chain_cert_store(ctx,st) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_CHAIN_CERT_STORE,0,(char *)(st)) + + +function SSL_CTX_set0_chain_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_CHAIN_CERT_STORE, 0, st); +end; + +//# define SSL_CTX_set1_chain_cert_store(ctx,st) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_CHAIN_CERT_STORE,1,(char *)(st)) + + +function SSL_CTX_set1_chain_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_CHAIN_CERT_STORE, 1, st); +end; + +//# define SSL_set0_chain(s,sk) SSL_ctrl(s,SSL_CTRL_CHAIN,0,(char *)(sk)) + + +function SSL_set0_chain(s: PSSL; sk: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_CHAIN, 0, sk); +end; + +//# define SSL_set1_chain(s,sk) SSL_ctrl(s,SSL_CTRL_CHAIN,1,(char *)(sk)) + + +function SSL_set1_chain(s: PSSL; sk: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_CHAIN, 1, sk); +end; + +//# define SSL_add0_chain_cert(s,x509) SSL_ctrl(s,SSL_CTRL_CHAIN_CERT,0,(char *)(x509)) + + +function SSL_add0_chain_cert(s: PSSL; x509: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_CHAIN_CERT, 0, x509); +end; + +//# define SSL_add1_chain_cert(s,x509) SSL_ctrl(s,SSL_CTRL_CHAIN_CERT,1,(char *)(x509)) + + +function SSL_add1_chain_cert(s: PSSL; x509: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_CHAIN_CERT, 1, x509); +end; + +//# define SSL_get0_chain_certs(s,px509) SSL_ctrl(s,SSL_CTRL_GET_CHAIN_CERTS,0,px509) + + +function SSL_get0_chain_certs(s: PSSL; px509: Pointer): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_CHAIN_CERTS, 0, px509); +end; + +//# define SSL_clear_chain_certs(s) SSL_set0_chain(s,NULL) + + +function SSL_clear_chain_certs(s: PSSL): TOpenSSL_C_LONG; + +begin + Result := SSL_set0_chain(s, nil); +end; + +//# define SSL_build_cert_chain(s, flags) SSL_ctrl(s,SSL_CTRL_BUILD_CERT_CHAIN, flags, NULL) + + +function SSL_build_cert_chain(s: PSSL; flags: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_BUILD_CERT_CHAIN, flags, nil); +end; + +//# define SSL_select_current_cert(s,x509) SSL_ctrl(s,SSL_CTRL_SELECT_CURRENT_CERT,0,(char *)(x509)) + + +function SSL_select_current_cert(s: PSSL; x509: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SELECT_CURRENT_CERT, 0, x509); +end; + +//# define SSL_set_current_cert(s,op) SSL_ctrl(s,SSL_CTRL_SET_CURRENT_CERT, op, NULL) + + +function SSL_set_current_cert(s: PSSL; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_CURRENT_CERT, op, nil); +end; + +//# define SSL_set0_verify_cert_store(s,st) SSL_ctrl(s,SSL_CTRL_SET_VERIFY_CERT_STORE,0,(char *)(st)) + + +function SSL_set0_verify_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_VERIFY_CERT_STORE, 0, st); +end; + +//# define SSL_set1_verify_cert_store(s,st) SSL_ctrl(s,SSL_CTRL_SET_VERIFY_CERT_STORE,1,(char *)(st)) + + +function SSL_set1_verify_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_VERIFY_CERT_STORE, 1, st); +end; + +//# define SSL_set0_chain_cert_store(s,st) SSL_ctrl(s,SSL_CTRL_SET_CHAIN_CERT_STORE,0,(char *)(st)) + + +function SSL_set0_chain_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_CHAIN_CERT_STORE, 0, st); +end; + +//# define SSL_set1_chain_cert_store(s,st) SSL_ctrl(s,SSL_CTRL_SET_CHAIN_CERT_STORE,1,(char *)(st)) + + +function SSL_set1_chain_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_CHAIN_CERT_STORE, 1, st); +end; + +//# define SSL_get1_groups(s, glist) SSL_ctrl(s,SSL_CTRL_GET_GROUPS,0,(TOpenSSL_C_INT*)(glist)) + + +function SSL_get1_groups(s: PSSL; glist: POpenSSL_C_INT): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_GROUPS, 0, glist); +end; + +//# define SSL_CTX_set1_groups(ctx, glist, glistlen) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_GROUPS,glistlen,(char *)(glist)) + + +function SSL_CTX_set1_groups(ctx: PSSL_CTX; glist: PByte; glistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_GROUPS, glistlen, glist); +end; + +//# define SSL_CTX_set1_groups_list(ctx, s) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_GROUPS_LIST,0,(char *)(s)) + + +function SSL_CTX_set1_groups_list(ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_GROUPS_LIST, 0, s); +end; + +//# define SSL_set1_groups(s, glist, glistlen) SSL_ctrl(s,SSL_CTRL_SET_GROUPS,glistlen,(char *)(glist)) + + +function SSL_set1_groups(s: PSSL; glist: PByte; glistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_GROUPS, glistlen, glist); +end; + +//# define SSL_set1_groups_list(s, str) SSL_ctrl(s,SSL_CTRL_SET_GROUPS_LIST,0,(char *)(str)) + + +function SSL_set1_groups_list(s: PSSL; str: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_GROUPS_LIST, 0, str); +end; + +//# define SSL_get_shared_group(s, n) SSL_ctrl(s,SSL_CTRL_GET_SHARED_GROUP,n,NULL) + + +function SSL_get_shared_group(s: PSSL; n: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_SHARED_GROUP, n, nil); +end; + +//# define SSL_CTX_set1_sigalgs(ctx, slist, slistlen) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_SIGALGS,slistlen,(TOpenSSL_C_INT *)(slist)) + + +function SSL_CTX_set1_sigalgs(ctx: PSSL_CTX; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_SIGALGS, slistlen, slist); +end; + +//# define SSL_CTX_set1_sigalgs_list(ctx, s) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_SIGALGS_LIST,0,(char *)(s)) + + +function SSL_CTX_set1_sigalgs_list(ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_SIGALGS_LIST, 0, s); +end; + +//# define SSL_set1_sigalgs(s, slist, slistlen) SSL_ctrl(s,SSL_CTRL_SET_SIGALGS,slistlen,(TOpenSSL_C_INT *)(slist)) + + +function SSL_set1_sigalgs(s: PSSL; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_SIGALGS, slistlen, slist); +end; + +//# define SSL_set1_sigalgs_list(s, str) SSL_ctrl(s,SSL_CTRL_SET_SIGALGS_LIST,0,(char *)(str)) + + +function SSL_set1_sigalgs_list(s: PSSL; str: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_SIGALGS_LIST, 0, str); +end; + +//# define SSL_CTX_set1_client_sigalgs(ctx, slist, slistlen) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_CLIENT_SIGALGS,slistlen,(TOpenSSL_C_INT *)(slist)) + + +function SSL_CTX_set1_client_sigalgs(ctx: PSSL_CTX; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_CLIENT_SIGALGS, slistlen, slist); +end; + +//# define SSL_CTX_set1_client_sigalgs_list(ctx, s) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_CLIENT_SIGALGS_LIST,0,(char *)(s)) + + +function SSL_CTX_set1_client_sigalgs_list(ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_CLIENT_SIGALGS_LIST, 0, s); +end; + +//# define SSL_set1_client_sigalgs(s, slist, slistlen) SSL_ctrl(s,SSL_CTRL_SET_CLIENT_SIGALGS,slistlen,(TOpenSSL_C_INT *)(slist)) + + +function SSL_set1_client_sigalgs(s: PSSL; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_CLIENT_SIGALGS, slistlen, slist); +end; + +//# define SSL_set1_client_sigalgs_list(s, str) SSL_ctrl(s,SSL_CTRL_SET_CLIENT_SIGALGS_LIST,0,(char *)(str)) + + +function SSL_set1_client_sigalgs_list(s: PSSL; str: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_CLIENT_SIGALGS_LIST, 0, str); +end; + +//# define SSL_get0_certificate_types(s, clist) SSL_ctrl(s, SSL_CTRL_GET_CLIENT_CERT_TYPES, 0, (char *)(clist)) + + +function SSL_get0_certificate_types(s: PSSL; clist: PByte): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_CLIENT_CERT_TYPES, 0, clist); +end; + +//# define SSL_CTX_set1_client_certificate_types(ctx, clist, clistlen) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_CLIENT_CERT_TYPES,clistlen, (char *)(clist)) + + +function SSL_CTX_set1_client_certificate_types(ctx: PSSL_CTX; clist: PByte; clistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_CLIENT_CERT_TYPES, clistlen, clist); +end; + +//# define SSL_set1_client_certificate_types(s, clist, clistlen) SSL_ctrl(s,SSL_CTRL_SET_CLIENT_CERT_TYPES,clistlen,(char *)(clist)) + + +function SSL_set1_client_certificate_types(s: PSSL; clist: PByte; clistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_CLIENT_CERT_TYPES, clistlen, clist); +end; + +//# define SSL_get_signature_nid(s, pn) SSL_ctrl(s,SSL_CTRL_GET_SIGNATURE_NID,0,pn) + + +function SSL_get_signature_nid(s: PSSL; pn: Pointer): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_SIGNATURE_NID, 0, pn); +end; + +//# define SSL_get_peer_signature_nid(s, pn) SSL_ctrl(s,SSL_CTRL_GET_PEER_SIGNATURE_NID,0,pn) + + +function SSL_get_peer_signature_nid(s: PSSL; pn: Pointer): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_PEER_SIGNATURE_NID, 0, pn); +end; + +//# define SSL_get_peer_tmp_key(s, pk) SSL_ctrl(s,SSL_CTRL_GET_PEER_TMP_KEY,0,pk) + + +function SSL_get_peer_tmp_key(s: PSSL; pk: Pointer): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_PEER_TMP_KEY, 0, pk); +end; + +//# define SSL_get_tmp_key(s, pk) SSL_ctrl(s,SSL_CTRL_GET_TMP_KEY,0,pk) + + +function SSL_get_tmp_key(s: PSSL; pk: Pointer): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_TMP_KEY, 0, pk); +end; + +//# define SSL_get0_raw_cipherlist(s, plst) SSL_ctrl(s,SSL_CTRL_GET_RAW_CIPHERLIST,0,plst) + + +function SSL_get0_raw_cipherlist(s: PSSL; plst: Pointer): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_RAW_CIPHERLIST, 0, plst); +end; + +//# define SSL_get0_ec_point_formats(s, plst) SSL_ctrl(s,SSL_CTRL_GET_EC_POINT_FORMATS,0,plst) + + +function SSL_get0_ec_point_formats(s: PSSL; plst: Pointer): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_EC_POINT_FORMATS, 0, plst); +end; + + +function SSL_get_app_data(const ssl: PSSL): Pointer; + +begin + Result := SSL_get_ex_data(ssl,0); +end; + + + +procedure SSL_load_error_strings; + +begin + OPENSSL_init_ssl(OPENSSL_INIT_LOAD_SSL_STRINGS or OPENSSL_INIT_LOAD_CRYPTO_STRINGS,nil); +end; + + + +function SSL_library_init: TOpenSSL_C_INT; + +begin + Result := OPENSSL_init_ssl(0, nil); +end; + + + +function SSLeay_add_ssl_algorithms: TOpenSSL_C_INT; + +begin + Result := SSL_library_init; +end; + + + +function SSL_set_app_data(ssl: PSSL; data: Pointer): TOpenSSL_C_INT; + +begin + Result := SSL_set_ex_data(ssl,0,data); +end; + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function COMPAT_SSL_get_peer_certificate(const s: PSSL): PX509; cdecl; + +begin + Result := SSL_get1_peer_certificate(s); +end; + + +//# define SSL_CTX_set_mode(ctx,op) SSL_CTX_ctrl((ctx),SSL_CTRL_MODE,(op),NULL) + + +function COMPAT_SSL_CTX_set_mode(ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_MODE, op, nil); +end; + +//# define SSL_CTX_clear_mode(ctx,op) SSL_CTX_ctrl((ctx),SSL_CTRL_CLEAR_MODE,(op),NULL) + + +function COMPAT_SSL_CTX_clear_mode(ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_CLEAR_MODE, op, nil); +end; + +//# define SSL_CTX_sess_set_cache_size(ctx,t) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_SESS_CACHE_SIZE,t,NULL) + + +function COMPAT_SSL_CTX_sess_set_cache_size(ctx: PSSL_CTX; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_SESS_CACHE_SIZE, t, nil); +end; + +//# define SSL_CTX_sess_get_cache_size(ctx) SSL_CTX_ctrl(ctx,SSL_CTRL_GET_SESS_CACHE_SIZE,0,NULL) + + +function COMPAT_SSL_CTX_sess_get_cache_size(ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_SESS_CACHE_SIZE, 0, nil); +end; + +//# define SSL_CTX_set_session_cache_mode(ctx,m) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_SESS_CACHE_MODE,m,NULL) + + +function COMPAT_SSL_CTX_set_session_cache_mode(ctx: PSSL_CTX; m: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_SESS_CACHE_MODE, m, nil); +end; + +//# define SSL_CTX_get_session_cache_mode(ctx) SSL_CTX_ctrl(ctx,SSL_CTRL_GET_SESS_CACHE_MODE,0,NULL) + + +function COMPAT_SSL_CTX_get_session_cache_mode(ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_SESS_CACHE_MODE, 0, nil); +end; + +//# define SSL_num_renegotiations(ssl) SSL_ctrl((ssl),SSL_CTRL_GET_NUM_RENEGOTIATIONS,0,NULL) + + +function COMPAT_SSL_num_renegotiations(ssl: PSSL): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(ssl, SSL_CTRL_GET_NUM_RENEGOTIATIONS, 0, nil); +end; + +//# define SSL_clear_num_renegotiations(ssl) SSL_ctrl((ssl),SSL_CTRL_CLEAR_NUM_RENEGOTIATIONS,0,NULL) + + +function COMPAT_SSL_clear_num_renegotiations(ssl: PSSL): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(ssl, SSL_CTRL_CLEAR_NUM_RENEGOTIATIONS, 0, nil); +end; + +//# define SSL_total_renegotiations(ssl) SSL_ctrl((ssl),SSL_CTRL_GET_TOTAL_RENEGOTIATIONS,0,NULL) + + +function COMPAT_SSL_total_renegotiations(ssl: PSSL): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(ssl, SSL_CTRL_GET_TOTAL_RENEGOTIATIONS, 0, nil); +end; + +//# define SSL_CTX_set_tmp_dh(ctx,dh) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_TMP_DH,0,(char *)(dh)) + + +function COMPAT_SSL_CTX_set_tmp_dh(ctx: PSSL_CTX; dh: PDH): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_TMP_DH, 0, dh); +end; + +//# define SSL_CTX_set_tmp_ecdh(ctx,ecdh) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_TMP_ECDH,0,(char *)(ecdh)) + + +function COMPAT_SSL_CTX_set_tmp_ecdh(ctx: PSSL_CTX; ecdh: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_TMP_ECDH, 0, ecdh); +end; + +//# define SSL_CTX_set_dh_auto(ctx, onoff) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_DH_AUTO,onoff,NULL) + + +function COMPAT_SSL_CTX_set_dh_auto(ctx: PSSL_CTX; onoff: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_DH_AUTO, onoff, nil); +end; + +//# define SSL_set_dh_auto(s, onoff) SSL_ctrl(s,SSL_CTRL_SET_DH_AUTO,onoff,NULL) + + +function COMPAT_SSL_set_dh_auto(s: PSSL; onoff: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_DH_AUTO, onoff, nil); +end; + +//# define SSL_set_tmp_dh(ssl,dh) SSL_ctrl(ssl,SSL_CTRL_SET_TMP_DH,0,(char *)(dh)) + + +function COMPAT_SSL_set_tmp_dh(ssl: PSSL; dh: PDH): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(ssl, SSL_CTRL_SET_TMP_DH, 0, dh); +end; + +//# define SSL_set_tmp_ecdh(ssl,ecdh) SSL_ctrl(ssl,SSL_CTRL_SET_TMP_ECDH,0,(char *)(ecdh)) + + +function COMPAT_SSL_set_tmp_ecdh(ssl: PSSL; ecdh: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(ssl, SSL_CTRL_SET_TMP_ECDH, 0, ecdh); +end; + +//# define SSL_CTX_add_extra_chain_cert(ctx,x509) SSL_CTX_ctrl(ctx,SSL_CTRL_EXTRA_CHAIN_CERT,0,(char *)(x509)) + + +function COMPAT_SSL_CTX_add_extra_chain_cert(ctx: PSSL_CTX; x509: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_EXTRA_CHAIN_CERT, 0, x509); +end; + +//# define SSL_CTX_get_extra_chain_certs(ctx,px509) SSL_CTX_ctrl(ctx,SSL_CTRL_GET_EXTRA_CHAIN_CERTS,0,px509) + + +function COMPAT_SSL_CTX_get_extra_chain_certs(ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_EXTRA_CHAIN_CERTS, 0, px509); +end; + +//# define SSL_CTX_get_extra_chain_certs_only(ctx,px509) SSL_CTX_ctrl(ctx,SSL_CTRL_GET_EXTRA_CHAIN_CERTS,1,px509) + + +function COMPAT_SSL_CTX_get_extra_chain_certs_only(ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_EXTRA_CHAIN_CERTS, 1, px509); +end; + +//# define SSL_CTX_clear_extra_chain_certs(ctx) SSL_CTX_ctrl(ctx,SSL_CTRL_CLEAR_EXTRA_CHAIN_CERTS,0,NULL) + + +function COMPAT_SSL_CTX_clear_extra_chain_certs(ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_CLEAR_EXTRA_CHAIN_CERTS, 0, nil); +end; + +//# define SSL_CTX_set0_chain(ctx,sk) SSL_CTX_ctrl(ctx,SSL_CTRL_CHAIN,0,(char *)(sk)) + + +function COMPAT_SSL_CTX_set0_chain(ctx: PSSL_CTX; sk: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_CHAIN, 0, sk); +end; + +//# define SSL_CTX_set1_chain(ctx,sk) SSL_CTX_ctrl(ctx,SSL_CTRL_CHAIN,1,(char *)(sk)) + + +function COMPAT_SSL_CTX_set1_chain(ctx: PSSL_CTX; sk: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_CHAIN, 1, sk); +end; + +//# define SSL_CTX_add0_chain_cert(ctx,x509) SSL_CTX_ctrl(ctx,SSL_CTRL_CHAIN_CERT,0,(char *)(x509)) + + +function COMPAT_SSL_CTX_add0_chain_cert(ctx: PSSL_CTX; x509: PX509): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_CHAIN_CERT, 0, x509); +end; + +//# define SSL_CTX_add1_chain_cert(ctx,x509) SSL_CTX_ctrl(ctx,SSL_CTRL_CHAIN_CERT,1,(char *)(x509)) + + +function COMPAT_SSL_CTX_add1_chain_cert(ctx: PSSL_CTX; x509: PX509): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_CHAIN_CERT, 1, x509); +end; + +//# define SSL_CTX_get0_chain_certs(ctx,px509) SSL_CTX_ctrl(ctx,SSL_CTRL_GET_CHAIN_CERTS,0,px509) + + +function COMPAT_SSL_CTX_get0_chain_certs(ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_GET_CHAIN_CERTS, 0, px509); +end; + +//# define SSL_CTX_clear_chain_certs(ctx) SSL_CTX_set0_chain(ctx,NULL) + + +function COMPAT_SSL_CTX_clear_chain_certs(ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_set0_chain(ctx, nil); +end; + +//# define SSL_CTX_build_cert_chain(ctx, flags) SSL_CTX_ctrl(ctx,SSL_CTRL_BUILD_CERT_CHAIN, flags, NULL) + + +function COMPAT_SSL_CTX_build_cert_chain(ctx: PSSL_CTX; flags: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_BUILD_CERT_CHAIN, flags, nil); +end; + +//# define SSL_CTX_select_current_cert(ctx,x509) SSL_CTX_ctrl(ctx,SSL_CTRL_SELECT_CURRENT_CERT,0,(char *)(x509)) + + +function COMPAT_SSL_CTX_select_current_cert(ctx: PSSL_CTX; x509: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SELECT_CURRENT_CERT, 0, x509); +end; + +//# define SSL_CTX_set_current_cert(ctx, op) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_CURRENT_CERT, op, NULL) + + +function COMPAT_SSL_CTX_set_current_cert(ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_CURRENT_CERT, op, nil); +end; + +//# define SSL_CTX_set0_verify_cert_store(ctx,st) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_VERIFY_CERT_STORE,0,(char *)(st)) + + +function COMPAT_SSL_CTX_set0_verify_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_VERIFY_CERT_STORE, 0, st); +end; + +//# define SSL_CTX_set1_verify_cert_store(ctx,st) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_VERIFY_CERT_STORE,1,(char *)(st)) + + +function COMPAT_SSL_CTX_set1_verify_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_VERIFY_CERT_STORE, 1, st); +end; + +//# define SSL_CTX_set0_chain_cert_store(ctx,st) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_CHAIN_CERT_STORE,0,(char *)(st)) + + +function COMPAT_SSL_CTX_set0_chain_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_CHAIN_CERT_STORE, 0, st); +end; + +//# define SSL_CTX_set1_chain_cert_store(ctx,st) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_CHAIN_CERT_STORE,1,(char *)(st)) + + +function COMPAT_SSL_CTX_set1_chain_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_CHAIN_CERT_STORE, 1, st); +end; + +//# define SSL_set0_chain(s,sk) SSL_ctrl(s,SSL_CTRL_CHAIN,0,(char *)(sk)) + + +function COMPAT_SSL_set0_chain(s: PSSL; sk: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_CHAIN, 0, sk); +end; + +//# define SSL_set1_chain(s,sk) SSL_ctrl(s,SSL_CTRL_CHAIN,1,(char *)(sk)) + + +function COMPAT_SSL_set1_chain(s: PSSL; sk: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_CHAIN, 1, sk); +end; + +//# define SSL_add0_chain_cert(s,x509) SSL_ctrl(s,SSL_CTRL_CHAIN_CERT,0,(char *)(x509)) + + +function COMPAT_SSL_add0_chain_cert(s: PSSL; x509: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_CHAIN_CERT, 0, x509); +end; + +//# define SSL_add1_chain_cert(s,x509) SSL_ctrl(s,SSL_CTRL_CHAIN_CERT,1,(char *)(x509)) + + +function COMPAT_SSL_add1_chain_cert(s: PSSL; x509: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_CHAIN_CERT, 1, x509); +end; + +//# define SSL_get0_chain_certs(s,px509) SSL_ctrl(s,SSL_CTRL_GET_CHAIN_CERTS,0,px509) + + +function COMPAT_SSL_get0_chain_certs(s: PSSL; px509: Pointer): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_CHAIN_CERTS, 0, px509); +end; + +//# define SSL_clear_chain_certs(s) SSL_set0_chain(s,NULL) + + +function COMPAT_SSL_clear_chain_certs(s: PSSL): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_set0_chain(s, nil); +end; + +//# define SSL_build_cert_chain(s, flags) SSL_ctrl(s,SSL_CTRL_BUILD_CERT_CHAIN, flags, NULL) + + +function COMPAT_SSL_build_cert_chain(s: PSSL; flags: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_BUILD_CERT_CHAIN, flags, nil); +end; + +//# define SSL_select_current_cert(s,x509) SSL_ctrl(s,SSL_CTRL_SELECT_CURRENT_CERT,0,(char *)(x509)) + + +function COMPAT_SSL_select_current_cert(s: PSSL; x509: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SELECT_CURRENT_CERT, 0, x509); +end; + +//# define SSL_set_current_cert(s,op) SSL_ctrl(s,SSL_CTRL_SET_CURRENT_CERT, op, NULL) + + +function COMPAT_SSL_set_current_cert(s: PSSL; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_CURRENT_CERT, op, nil); +end; + +//# define SSL_set0_verify_cert_store(s,st) SSL_ctrl(s,SSL_CTRL_SET_VERIFY_CERT_STORE,0,(char *)(st)) + + +function COMPAT_SSL_set0_verify_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_VERIFY_CERT_STORE, 0, st); +end; + +//# define SSL_set1_verify_cert_store(s,st) SSL_ctrl(s,SSL_CTRL_SET_VERIFY_CERT_STORE,1,(char *)(st)) + + +function COMPAT_SSL_set1_verify_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_VERIFY_CERT_STORE, 1, st); +end; + +//# define SSL_set0_chain_cert_store(s,st) SSL_ctrl(s,SSL_CTRL_SET_CHAIN_CERT_STORE,0,(char *)(st)) + + +function COMPAT_SSL_set0_chain_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_CHAIN_CERT_STORE, 0, st); +end; + +//# define SSL_set1_chain_cert_store(s,st) SSL_ctrl(s,SSL_CTRL_SET_CHAIN_CERT_STORE,1,(char *)(st)) + + +function COMPAT_SSL_set1_chain_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_CHAIN_CERT_STORE, 1, st); +end; + +//# define SSL_get1_groups(s, glist) SSL_ctrl(s,SSL_CTRL_GET_GROUPS,0,(TOpenSSL_C_INT*)(glist)) + + +function COMPAT_SSL_get1_groups(s: PSSL; glist: POpenSSL_C_INT): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_GROUPS, 0, glist); +end; + +//# define SSL_CTX_set1_groups(ctx, glist, glistlen) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_GROUPS,glistlen,(char *)(glist)) + + +function COMPAT_SSL_CTX_set1_groups(ctx: PSSL_CTX; glist: PByte; glistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_GROUPS, glistlen, glist); +end; + +//# define SSL_CTX_set1_groups_list(ctx, s) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_GROUPS_LIST,0,(char *)(s)) + + +function COMPAT_SSL_CTX_set1_groups_list(ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_GROUPS_LIST, 0, s); +end; + +//# define SSL_set1_groups(s, glist, glistlen) SSL_ctrl(s,SSL_CTRL_SET_GROUPS,glistlen,(char *)(glist)) + + +function COMPAT_SSL_set1_groups(s: PSSL; glist: PByte; glistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_GROUPS, glistlen, glist); +end; + +//# define SSL_set1_groups_list(s, str) SSL_ctrl(s,SSL_CTRL_SET_GROUPS_LIST,0,(char *)(str)) + + +function COMPAT_SSL_set1_groups_list(s: PSSL; str: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_GROUPS_LIST, 0, str); +end; + +//# define SSL_get_shared_group(s, n) SSL_ctrl(s,SSL_CTRL_GET_SHARED_GROUP,n,NULL) + + +function COMPAT_SSL_get_shared_group(s: PSSL; n: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_SHARED_GROUP, n, nil); +end; + +//# define SSL_CTX_set1_sigalgs(ctx, slist, slistlen) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_SIGALGS,slistlen,(TOpenSSL_C_INT *)(slist)) + + +function COMPAT_SSL_CTX_set1_sigalgs(ctx: PSSL_CTX; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_SIGALGS, slistlen, slist); +end; + +//# define SSL_CTX_set1_sigalgs_list(ctx, s) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_SIGALGS_LIST,0,(char *)(s)) + + +function COMPAT_SSL_CTX_set1_sigalgs_list(ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_SIGALGS_LIST, 0, s); +end; + +//# define SSL_set1_sigalgs(s, slist, slistlen) SSL_ctrl(s,SSL_CTRL_SET_SIGALGS,slistlen,(TOpenSSL_C_INT *)(slist)) + + +function COMPAT_SSL_set1_sigalgs(s: PSSL; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_SIGALGS, slistlen, slist); +end; + +//# define SSL_set1_sigalgs_list(s, str) SSL_ctrl(s,SSL_CTRL_SET_SIGALGS_LIST,0,(char *)(str)) + + +function COMPAT_SSL_set1_sigalgs_list(s: PSSL; str: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_SIGALGS_LIST, 0, str); +end; + +//# define SSL_CTX_set1_client_sigalgs(ctx, slist, slistlen) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_CLIENT_SIGALGS,slistlen,(TOpenSSL_C_INT *)(slist)) + + +function COMPAT_SSL_CTX_set1_client_sigalgs(ctx: PSSL_CTX; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_CLIENT_SIGALGS, slistlen, slist); +end; + +//# define SSL_CTX_set1_client_sigalgs_list(ctx, s) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_CLIENT_SIGALGS_LIST,0,(char *)(s)) + + +function COMPAT_SSL_CTX_set1_client_sigalgs_list(ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_CLIENT_SIGALGS_LIST, 0, s); +end; + +//# define SSL_set1_client_sigalgs(s, slist, slistlen) SSL_ctrl(s,SSL_CTRL_SET_CLIENT_SIGALGS,slistlen,(TOpenSSL_C_INT *)(slist)) + + +function COMPAT_SSL_set1_client_sigalgs(s: PSSL; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_CLIENT_SIGALGS, slistlen, slist); +end; + +//# define SSL_set1_client_sigalgs_list(s, str) SSL_ctrl(s,SSL_CTRL_SET_CLIENT_SIGALGS_LIST,0,(char *)(str)) + + +function COMPAT_SSL_set1_client_sigalgs_list(s: PSSL; str: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_CLIENT_SIGALGS_LIST, 0, str); +end; + +//# define SSL_get0_certificate_types(s, clist) SSL_ctrl(s, SSL_CTRL_GET_CLIENT_CERT_TYPES, 0, (char *)(clist)) + + +function COMPAT_SSL_get0_certificate_types(s: PSSL; clist: PByte): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_CLIENT_CERT_TYPES, 0, clist); +end; + +//# define SSL_CTX_set1_client_certificate_types(ctx, clist, clistlen) SSL_CTX_ctrl(ctx,SSL_CTRL_SET_CLIENT_CERT_TYPES,clistlen, (char *)(clist)) + + +function COMPAT_SSL_CTX_set1_client_certificate_types(ctx: PSSL_CTX; clist: PByte; clistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_SET_CLIENT_CERT_TYPES, clistlen, clist); +end; + +//# define SSL_set1_client_certificate_types(s, clist, clistlen) SSL_ctrl(s,SSL_CTRL_SET_CLIENT_CERT_TYPES,clistlen,(char *)(clist)) + + +function COMPAT_SSL_set1_client_certificate_types(s: PSSL; clist: PByte; clistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_CLIENT_CERT_TYPES, clistlen, clist); +end; + +//# define SSL_get_signature_nid(s, pn) SSL_ctrl(s,SSL_CTRL_GET_SIGNATURE_NID,0,pn) + + +function COMPAT_SSL_get_signature_nid(s: PSSL; pn: Pointer): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_SIGNATURE_NID, 0, pn); +end; + +//# define SSL_get_peer_signature_nid(s, pn) SSL_ctrl(s,SSL_CTRL_GET_PEER_SIGNATURE_NID,0,pn) + + +function COMPAT_SSL_get_peer_signature_nid(s: PSSL; pn: Pointer): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_PEER_SIGNATURE_NID, 0, pn); +end; + +//# define SSL_get_peer_tmp_key(s, pk) SSL_ctrl(s,SSL_CTRL_GET_PEER_TMP_KEY,0,pk) + + +function COMPAT_SSL_get_peer_tmp_key(s: PSSL; pk: Pointer): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_PEER_TMP_KEY, 0, pk); +end; + +//# define SSL_get_tmp_key(s, pk) SSL_ctrl(s,SSL_CTRL_GET_TMP_KEY,0,pk) + + +function COMPAT_SSL_get_tmp_key(s: PSSL; pk: Pointer): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_TMP_KEY, 0, pk); +end; + +//# define SSL_get0_raw_cipherlist(s, plst) SSL_ctrl(s,SSL_CTRL_GET_RAW_CIPHERLIST,0,plst) + + +function COMPAT_SSL_get0_raw_cipherlist(s: PSSL; plst: Pointer): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_RAW_CIPHERLIST, 0, plst); +end; + +//# define SSL_get0_ec_point_formats(s, plst) SSL_ctrl(s,SSL_CTRL_GET_EC_POINT_FORMATS,0,plst) + + +function COMPAT_SSL_get0_ec_point_formats(s: PSSL; plst: Pointer): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_GET_EC_POINT_FORMATS, 0, plst); +end; + + +function COMPAT_SSL_get_app_data(const ssl: PSSL): Pointer; cdecl; + +begin + Result := SSL_get_ex_data(ssl,0); +end; + + + +procedure COMPAT_SSL_load_error_strings; cdecl; + +begin + OPENSSL_init_ssl(OPENSSL_INIT_LOAD_SSL_STRINGS or OPENSSL_INIT_LOAD_CRYPTO_STRINGS,nil); +end; + + + +function COMPAT_SSL_library_init: TOpenSSL_C_INT; cdecl; + +begin + Result := OPENSSL_init_ssl(0, nil); +end; + + + +function COMPAT_SSLeay_add_ssl_algorithms: TOpenSSL_C_INT; cdecl; + +begin + Result := SSL_library_init; +end; + + + +function COMPAT_SSL_set_app_data(ssl: PSSL; data: Pointer): TOpenSSL_C_INT; cdecl; + +begin + Result := SSL_set_ex_data(ssl,0,data); +end; + + +function COMPAT_SSL_CTX_get_default_passwd_cb(ctx: PSSL_CTX): pem_password_cb; cdecl; + +begin + Result := _PSSL_CTX(ctx)^.default_passwd_callback; +end; + + + +function COMPAT_SSL_CTX_get_default_passwd_cb_userdata(ctx: PSSL_CTX): Pointer; cdecl; + +begin + Result := _PSSL_CTX(ctx)^.default_passwd_callback_userdata; +end; + + + +procedure COMPAT_SSL_CTX_set_default_passwd_cb(ctx: PSSL_CTX; cb: pem_password_cb); cdecl; + +begin + _PSSL_CTX(ctx)^.default_passwd_callback := cb; +end; + + + +procedure COMPAT_SSL_CTX_set_default_passwd_cb_userdata(ctx: PSSL_CTX; u: Pointer); cdecl; + +begin + _PSSL_CTX(ctx)^.default_passwd_callback_userdata := u; +end; + +//* Note: SSL[_CTX]_set_{options,mode} use |= op on the previous value, +// * they cannot be used to clear bits. */ + + + +function COMPAT_SSL_CTX_set_options(ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_OPTIONS, op, nil); +end; + + + +function COMPAT_SSL_CTX_clear_options(ctx : PSSL_CTX; op : TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx,SSL_CTRL_CLEAR_OPTIONS,op,nil); +end; + + + +function COMPAT_SSL_CTX_get_options(ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_CTX_ctrl(ctx, SSL_CTRL_OPTIONS,0,nil); +end; + + + +function COMPAT_SSL_CTX_get_cert_store(const ctx: PSSL_CTX): PX509_STORE; cdecl; + +begin + Result := _PSSL_CTX(ctx)^.cert_store; +end; + + +function COMPAT_SSL_SESSION_get_protocol_version(const s: PSSL_SESSION): TOpenSSL_C_INT; cdecl; + +begin + Result := _PSSL_SESSION(s).ssl_version; +end; + + + +function COMPAT_OPENSSL_init_ssl(opts: TOpenSSL_C_UINT64; const settings: POPENSSL_INIT_SETTINGS): TOpenSSL_C_INT; cdecl; + +begin + if opts and OPENSSL_INIT_LOAD_SSL_STRINGS <> 0 then + SSL_load_error_strings; + SSL_library_init; + Result := OPENSSL_init_crypto(opts,settings); +end; + + +function COMPAT_TLS_method: PSSL_METHOD; cdecl; + +begin + Result := nil; + case SelectedMethod of + sslvSSLv2: + if Assigned(SSLv2_method) then + Result := SSLv2_method(); + + sslvSSLv23: + if Assigned(SSLv23_client_method) then + Result := SSLv23_client_method(); + + sslvSSLv3: + if Assigned(SSLv3_method) then + Result := SSLv3_method(); + + sslvTLSv1: + if Assigned(TLSv1_method) then + Result := TLSv1_method(); + + sslvTLSv1_1: + if Assigned(TLSv1_1_method) then + Result := TLSv1_1_method() + else + if Assigned(TLSv1_method) then + Result := TLSv1_method(); + + sslvTLSv1_2: + if Assigned(TLSv1_2_method) then + Result := TLSv1_2_method() + else + if Assigned(TLSv1_method) then + Result := TLSv1_method(); + end; +end; + + + +function COMPAT_TLS_server_method: PSSL_METHOD; cdecl; + +begin + Result := nil; + case SelectedMethod of + sslvSSLv2: + if Assigned(SSLv2_server_method) then + Result := SSLv2_server_method(); + + sslvSSLv23: + if Assigned(SSLv23_server_method) then + Result := SSLv23_server_method(); + + sslvSSLv3: + if Assigned(SSLv3_server_method) then + Result := SSLv3_server_method(); + + sslvTLSv1: + if Assigned(TLSv1_server_method) then + Result := TLSv1_server_method(); + + sslvTLSv1_1: + if Assigned(TLSv1_1_server_method) then + Result := TLSv1_1_server_method() + else + if Assigned(TLSv1_server_method) then + Result := TLSv1_server_method(); + + sslvTLSv1_2: + if Assigned(TLSv1_2_server_method) then + Result := TLSv1_2_server_method() + else + if Assigned(TLSv1_server_method) then + Result := TLSv1_server_method(); + end; +end; + + + +function COMPAT_TLS_client_method: PSSL_METHOD; cdecl; + +begin + Result := nil; + case SelectedMethod of + sslvSSLv2: + if Assigned(SSLv2_client_method) then + Result := SSLv2_client_method(); + + sslvSSLv23: + if Assigned(SSLv23_client_method) then + Result := SSLv23_client_method(); + + sslvSSLv3: + if Assigned(SSLv3_client_method) then + Result := SSLv3_client_method(); + + sslvTLSv1: + if Assigned(TLSv1_client_method) then + Result := TLSv1_client_method(); + + sslvTLSv1_1: + if Assigned(TLSv1_1_client_method) then + Result := TLSv1_1_client_method() + else + if Assigned(TLSv1_client_method) then + Result := TLSv1_client_method(); + + sslvTLSv1_2: + if Assigned(TLSv1_2_client_method) then + Result := TLSv1_2_client_method() + else + if Assigned(TLSv1_client_method) then + Result := TLSv1_client_method(); + end; +end; + + + +function COMPAT_SSL_CTX_use_certificate_chain_file(ctx: PSSL_CTX; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl; + +begin + Result := SSL_CTX_use_certificate_file(ctx, file_, SSL_FILETYPE_PEM); +end; + + + +function COMPAT_SSL_new_session_ticket(s: PSSL): TOpenSSL_C_INT; cdecl; + +begin +// no op +end; + + + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_SSL_CTX_set_mode(ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set_mode := LoadLibSSLFunction('SSL_CTX_set_mode'); + if not assigned(SSL_CTX_set_mode) then + SSL_CTX_set_mode := @COMPAT_SSL_CTX_set_mode; + Result := SSL_CTX_set_mode(ctx,op); +end; + +function Load_SSL_CTX_clear_mode(ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_clear_mode := LoadLibSSLFunction('SSL_CTX_clear_mode'); + if not assigned(SSL_CTX_clear_mode) then + SSL_CTX_clear_mode := @COMPAT_SSL_CTX_clear_mode; + Result := SSL_CTX_clear_mode(ctx,op); +end; + +function Load_SSL_CTX_sess_set_cache_size(ctx: PSSL_CTX; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_sess_set_cache_size := LoadLibSSLFunction('SSL_CTX_sess_set_cache_size'); + if not assigned(SSL_CTX_sess_set_cache_size) then + SSL_CTX_sess_set_cache_size := @COMPAT_SSL_CTX_sess_set_cache_size; + Result := SSL_CTX_sess_set_cache_size(ctx,t); +end; + +function Load_SSL_CTX_sess_get_cache_size(ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_sess_get_cache_size := LoadLibSSLFunction('SSL_CTX_sess_get_cache_size'); + if not assigned(SSL_CTX_sess_get_cache_size) then + SSL_CTX_sess_get_cache_size := @COMPAT_SSL_CTX_sess_get_cache_size; + Result := SSL_CTX_sess_get_cache_size(ctx); +end; + +function Load_SSL_CTX_set_session_cache_mode(ctx: PSSL_CTX; m: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set_session_cache_mode := LoadLibSSLFunction('SSL_CTX_set_session_cache_mode'); + if not assigned(SSL_CTX_set_session_cache_mode) then + SSL_CTX_set_session_cache_mode := @COMPAT_SSL_CTX_set_session_cache_mode; + Result := SSL_CTX_set_session_cache_mode(ctx,m); +end; + +function Load_SSL_CTX_get_session_cache_mode(ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_get_session_cache_mode := LoadLibSSLFunction('SSL_CTX_get_session_cache_mode'); + if not assigned(SSL_CTX_get_session_cache_mode) then + SSL_CTX_get_session_cache_mode := @COMPAT_SSL_CTX_get_session_cache_mode; + Result := SSL_CTX_get_session_cache_mode(ctx); +end; + +function Load_SSL_clear_num_renegotiations(ssl: PSSL): TOpenSSL_C_LONG; cdecl; +begin + SSL_clear_num_renegotiations := LoadLibSSLFunction('SSL_clear_num_renegotiations'); + if not assigned(SSL_clear_num_renegotiations) then + SSL_clear_num_renegotiations := @COMPAT_SSL_clear_num_renegotiations; + Result := SSL_clear_num_renegotiations(ssl); +end; + +function Load_SSL_total_renegotiations(ssl: PSSL): TOpenSSL_C_LONG; cdecl; +begin + SSL_total_renegotiations := LoadLibSSLFunction('SSL_total_renegotiations'); + if not assigned(SSL_total_renegotiations) then + SSL_total_renegotiations := @COMPAT_SSL_total_renegotiations; + Result := SSL_total_renegotiations(ssl); +end; + +function Load_SSL_CTX_set_tmp_dh(ctx: PSSL_CTX; dh: PDH): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set_tmp_dh := LoadLibSSLFunction('SSL_CTX_set_tmp_dh'); + if not assigned(SSL_CTX_set_tmp_dh) then + SSL_CTX_set_tmp_dh := @COMPAT_SSL_CTX_set_tmp_dh; + Result := SSL_CTX_set_tmp_dh(ctx,dh); +end; + +function Load_SSL_CTX_set_tmp_ecdh(ctx: PSSL_CTX; ecdh: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set_tmp_ecdh := LoadLibSSLFunction('SSL_CTX_set_tmp_ecdh'); + if not assigned(SSL_CTX_set_tmp_ecdh) then + SSL_CTX_set_tmp_ecdh := @COMPAT_SSL_CTX_set_tmp_ecdh; + Result := SSL_CTX_set_tmp_ecdh(ctx,ecdh); +end; + +function Load_SSL_CTX_set_dh_auto(ctx: PSSL_CTX; onoff: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set_dh_auto := LoadLibSSLFunction('SSL_CTX_set_dh_auto'); + if not assigned(SSL_CTX_set_dh_auto) then + SSL_CTX_set_dh_auto := @COMPAT_SSL_CTX_set_dh_auto; + Result := SSL_CTX_set_dh_auto(ctx,onoff); +end; + +function Load_SSL_set_dh_auto(s: PSSL; onoff: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_set_dh_auto := LoadLibSSLFunction('SSL_set_dh_auto'); + if not assigned(SSL_set_dh_auto) then + SSL_set_dh_auto := @COMPAT_SSL_set_dh_auto; + Result := SSL_set_dh_auto(s,onoff); +end; + +function Load_SSL_set_tmp_dh(ssl: PSSL; dh: PDH): TOpenSSL_C_LONG; cdecl; +begin + SSL_set_tmp_dh := LoadLibSSLFunction('SSL_set_tmp_dh'); + if not assigned(SSL_set_tmp_dh) then + SSL_set_tmp_dh := @COMPAT_SSL_set_tmp_dh; + Result := SSL_set_tmp_dh(ssl,dh); +end; + +function Load_SSL_set_tmp_ecdh(ssl: PSSL; ecdh: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_set_tmp_ecdh := LoadLibSSLFunction('SSL_set_tmp_ecdh'); + if not assigned(SSL_set_tmp_ecdh) then + SSL_set_tmp_ecdh := @COMPAT_SSL_set_tmp_ecdh; + Result := SSL_set_tmp_ecdh(ssl,ecdh); +end; + +function Load_SSL_CTX_add_extra_chain_cert(ctx: PSSL_CTX; x509: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_add_extra_chain_cert := LoadLibSSLFunction('SSL_CTX_add_extra_chain_cert'); + if not assigned(SSL_CTX_add_extra_chain_cert) then + SSL_CTX_add_extra_chain_cert := @COMPAT_SSL_CTX_add_extra_chain_cert; + Result := SSL_CTX_add_extra_chain_cert(ctx,x509); +end; + +function Load_SSL_CTX_get_extra_chain_certs(ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_get_extra_chain_certs := LoadLibSSLFunction('SSL_CTX_get_extra_chain_certs'); + if not assigned(SSL_CTX_get_extra_chain_certs) then + SSL_CTX_get_extra_chain_certs := @COMPAT_SSL_CTX_get_extra_chain_certs; + Result := SSL_CTX_get_extra_chain_certs(ctx,px509); +end; + +function Load_SSL_CTX_get_extra_chain_certs_only(ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_get_extra_chain_certs_only := LoadLibSSLFunction('SSL_CTX_get_extra_chain_certs_only'); + if not assigned(SSL_CTX_get_extra_chain_certs_only) then + SSL_CTX_get_extra_chain_certs_only := @COMPAT_SSL_CTX_get_extra_chain_certs_only; + Result := SSL_CTX_get_extra_chain_certs_only(ctx,px509); +end; + +function Load_SSL_CTX_clear_extra_chain_certs(ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_clear_extra_chain_certs := LoadLibSSLFunction('SSL_CTX_clear_extra_chain_certs'); + if not assigned(SSL_CTX_clear_extra_chain_certs) then + SSL_CTX_clear_extra_chain_certs := @COMPAT_SSL_CTX_clear_extra_chain_certs; + Result := SSL_CTX_clear_extra_chain_certs(ctx); +end; + +function Load_SSL_CTX_set0_chain(ctx: PSSL_CTX; sk: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set0_chain := LoadLibSSLFunction('SSL_CTX_set0_chain'); + if not assigned(SSL_CTX_set0_chain) then + SSL_CTX_set0_chain := @COMPAT_SSL_CTX_set0_chain; + Result := SSL_CTX_set0_chain(ctx,sk); +end; + +function Load_SSL_CTX_set1_chain(ctx: PSSL_CTX; sk: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set1_chain := LoadLibSSLFunction('SSL_CTX_set1_chain'); + if not assigned(SSL_CTX_set1_chain) then + SSL_CTX_set1_chain := @COMPAT_SSL_CTX_set1_chain; + Result := SSL_CTX_set1_chain(ctx,sk); +end; + +function Load_SSL_CTX_add0_chain_cert(ctx: PSSL_CTX; x509: PX509): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_add0_chain_cert := LoadLibSSLFunction('SSL_CTX_add0_chain_cert'); + if not assigned(SSL_CTX_add0_chain_cert) then + SSL_CTX_add0_chain_cert := @COMPAT_SSL_CTX_add0_chain_cert; + Result := SSL_CTX_add0_chain_cert(ctx,x509); +end; + +function Load_SSL_CTX_add1_chain_cert(ctx: PSSL_CTX; x509: PX509): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_add1_chain_cert := LoadLibSSLFunction('SSL_CTX_add1_chain_cert'); + if not assigned(SSL_CTX_add1_chain_cert) then + SSL_CTX_add1_chain_cert := @COMPAT_SSL_CTX_add1_chain_cert; + Result := SSL_CTX_add1_chain_cert(ctx,x509); +end; + +function Load_SSL_CTX_get0_chain_certs(ctx: PSSL_CTX; px509: Pointer): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_get0_chain_certs := LoadLibSSLFunction('SSL_CTX_get0_chain_certs'); + if not assigned(SSL_CTX_get0_chain_certs) then + SSL_CTX_get0_chain_certs := @COMPAT_SSL_CTX_get0_chain_certs; + Result := SSL_CTX_get0_chain_certs(ctx,px509); +end; + +function Load_SSL_CTX_clear_chain_certs(ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_clear_chain_certs := LoadLibSSLFunction('SSL_CTX_clear_chain_certs'); + if not assigned(SSL_CTX_clear_chain_certs) then + SSL_CTX_clear_chain_certs := @COMPAT_SSL_CTX_clear_chain_certs; + Result := SSL_CTX_clear_chain_certs(ctx); +end; + +function Load_SSL_CTX_build_cert_chain(ctx: PSSL_CTX; flags: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_build_cert_chain := LoadLibSSLFunction('SSL_CTX_build_cert_chain'); + if not assigned(SSL_CTX_build_cert_chain) then + SSL_CTX_build_cert_chain := @COMPAT_SSL_CTX_build_cert_chain; + Result := SSL_CTX_build_cert_chain(ctx,flags); +end; + +function Load_SSL_CTX_select_current_cert(ctx: PSSL_CTX; x509: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_select_current_cert := LoadLibSSLFunction('SSL_CTX_select_current_cert'); + if not assigned(SSL_CTX_select_current_cert) then + SSL_CTX_select_current_cert := @COMPAT_SSL_CTX_select_current_cert; + Result := SSL_CTX_select_current_cert(ctx,x509); +end; + +function Load_SSL_CTX_set_current_cert(ctx: PSSL_CTX; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set_current_cert := LoadLibSSLFunction('SSL_CTX_set_current_cert'); + if not assigned(SSL_CTX_set_current_cert) then + SSL_CTX_set_current_cert := @COMPAT_SSL_CTX_set_current_cert; + Result := SSL_CTX_set_current_cert(ctx,op); +end; + +function Load_SSL_CTX_set0_verify_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set0_verify_cert_store := LoadLibSSLFunction('SSL_CTX_set0_verify_cert_store'); + if not assigned(SSL_CTX_set0_verify_cert_store) then + SSL_CTX_set0_verify_cert_store := @COMPAT_SSL_CTX_set0_verify_cert_store; + Result := SSL_CTX_set0_verify_cert_store(ctx,st); +end; + +function Load_SSL_CTX_set1_verify_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set1_verify_cert_store := LoadLibSSLFunction('SSL_CTX_set1_verify_cert_store'); + if not assigned(SSL_CTX_set1_verify_cert_store) then + SSL_CTX_set1_verify_cert_store := @COMPAT_SSL_CTX_set1_verify_cert_store; + Result := SSL_CTX_set1_verify_cert_store(ctx,st); +end; + +function Load_SSL_CTX_set0_chain_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set0_chain_cert_store := LoadLibSSLFunction('SSL_CTX_set0_chain_cert_store'); + if not assigned(SSL_CTX_set0_chain_cert_store) then + SSL_CTX_set0_chain_cert_store := @COMPAT_SSL_CTX_set0_chain_cert_store; + Result := SSL_CTX_set0_chain_cert_store(ctx,st); +end; + +function Load_SSL_CTX_set1_chain_cert_store(ctx: PSSL_CTX; st: Pointer): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set1_chain_cert_store := LoadLibSSLFunction('SSL_CTX_set1_chain_cert_store'); + if not assigned(SSL_CTX_set1_chain_cert_store) then + SSL_CTX_set1_chain_cert_store := @COMPAT_SSL_CTX_set1_chain_cert_store; + Result := SSL_CTX_set1_chain_cert_store(ctx,st); +end; + +function Load_SSL_set0_chain(s: PSSL; sk: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_set0_chain := LoadLibSSLFunction('SSL_set0_chain'); + if not assigned(SSL_set0_chain) then + SSL_set0_chain := @COMPAT_SSL_set0_chain; + Result := SSL_set0_chain(s,sk); +end; + +function Load_SSL_set1_chain(s: PSSL; sk: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_set1_chain := LoadLibSSLFunction('SSL_set1_chain'); + if not assigned(SSL_set1_chain) then + SSL_set1_chain := @COMPAT_SSL_set1_chain; + Result := SSL_set1_chain(s,sk); +end; + +function Load_SSL_add0_chain_cert(s: PSSL; x509: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_add0_chain_cert := LoadLibSSLFunction('SSL_add0_chain_cert'); + if not assigned(SSL_add0_chain_cert) then + SSL_add0_chain_cert := @COMPAT_SSL_add0_chain_cert; + Result := SSL_add0_chain_cert(s,x509); +end; + +function Load_SSL_add1_chain_cert(s: PSSL; x509: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_add1_chain_cert := LoadLibSSLFunction('SSL_add1_chain_cert'); + if not assigned(SSL_add1_chain_cert) then + SSL_add1_chain_cert := @COMPAT_SSL_add1_chain_cert; + Result := SSL_add1_chain_cert(s,x509); +end; + +function Load_SSL_get0_chain_certs(s: PSSL; px509: Pointer): TOpenSSL_C_LONG; cdecl; +begin + SSL_get0_chain_certs := LoadLibSSLFunction('SSL_get0_chain_certs'); + if not assigned(SSL_get0_chain_certs) then + SSL_get0_chain_certs := @COMPAT_SSL_get0_chain_certs; + Result := SSL_get0_chain_certs(s,px509); +end; + +function Load_SSL_clear_chain_certs(s: PSSL): TOpenSSL_C_LONG; cdecl; +begin + SSL_clear_chain_certs := LoadLibSSLFunction('SSL_clear_chain_certs'); + if not assigned(SSL_clear_chain_certs) then + SSL_clear_chain_certs := @COMPAT_SSL_clear_chain_certs; + Result := SSL_clear_chain_certs(s); +end; + +function Load_SSL_build_cert_chain(s: PSSL; flags: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_build_cert_chain := LoadLibSSLFunction('SSL_build_cert_chain'); + if not assigned(SSL_build_cert_chain) then + SSL_build_cert_chain := @COMPAT_SSL_build_cert_chain; + Result := SSL_build_cert_chain(s,flags); +end; + +function Load_SSL_select_current_cert(s: PSSL; x509: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_select_current_cert := LoadLibSSLFunction('SSL_select_current_cert'); + if not assigned(SSL_select_current_cert) then + SSL_select_current_cert := @COMPAT_SSL_select_current_cert; + Result := SSL_select_current_cert(s,x509); +end; + +function Load_SSL_set_current_cert(s: PSSL; op: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_set_current_cert := LoadLibSSLFunction('SSL_set_current_cert'); + if not assigned(SSL_set_current_cert) then + SSL_set_current_cert := @COMPAT_SSL_set_current_cert; + Result := SSL_set_current_cert(s,op); +end; + +function Load_SSL_set0_verify_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_set0_verify_cert_store := LoadLibSSLFunction('SSL_set0_verify_cert_store'); + if not assigned(SSL_set0_verify_cert_store) then + SSL_set0_verify_cert_store := @COMPAT_SSL_set0_verify_cert_store; + Result := SSL_set0_verify_cert_store(s,st); +end; + +function Load_SSL_set1_verify_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_set1_verify_cert_store := LoadLibSSLFunction('SSL_set1_verify_cert_store'); + if not assigned(SSL_set1_verify_cert_store) then + SSL_set1_verify_cert_store := @COMPAT_SSL_set1_verify_cert_store; + Result := SSL_set1_verify_cert_store(s,st); +end; + +function Load_SSL_set0_chain_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_set0_chain_cert_store := LoadLibSSLFunction('SSL_set0_chain_cert_store'); + if not assigned(SSL_set0_chain_cert_store) then + SSL_set0_chain_cert_store := @COMPAT_SSL_set0_chain_cert_store; + Result := SSL_set0_chain_cert_store(s,st); +end; + +function Load_SSL_set1_chain_cert_store(s: PSSL; st: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_set1_chain_cert_store := LoadLibSSLFunction('SSL_set1_chain_cert_store'); + if not assigned(SSL_set1_chain_cert_store) then + SSL_set1_chain_cert_store := @COMPAT_SSL_set1_chain_cert_store; + Result := SSL_set1_chain_cert_store(s,st); +end; + +function Load_SSL_get1_groups(s: PSSL; glist: POpenSSL_C_INT): TOpenSSL_C_LONG; cdecl; +begin + SSL_get1_groups := LoadLibSSLFunction('SSL_get1_groups'); + if not assigned(SSL_get1_groups) then + SSL_get1_groups := @COMPAT_SSL_get1_groups; + Result := SSL_get1_groups(s,glist); +end; + +function Load_SSL_CTX_set1_groups(ctx: PSSL_CTX; glist: PByte; glistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set1_groups := LoadLibSSLFunction('SSL_CTX_set1_groups'); + if not assigned(SSL_CTX_set1_groups) then + SSL_CTX_set1_groups := @COMPAT_SSL_CTX_set1_groups; + Result := SSL_CTX_set1_groups(ctx,glist,glistlen); +end; + +function Load_SSL_CTX_set1_groups_list(ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set1_groups_list := LoadLibSSLFunction('SSL_CTX_set1_groups_list'); + if not assigned(SSL_CTX_set1_groups_list) then + SSL_CTX_set1_groups_list := @COMPAT_SSL_CTX_set1_groups_list; + Result := SSL_CTX_set1_groups_list(ctx,s); +end; + +function Load_SSL_set1_groups(s: PSSL; glist: PByte; glistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_set1_groups := LoadLibSSLFunction('SSL_set1_groups'); + if not assigned(SSL_set1_groups) then + SSL_set1_groups := @COMPAT_SSL_set1_groups; + Result := SSL_set1_groups(s,glist,glistlen); +end; + +function Load_SSL_set1_groups_list(s: PSSL; str: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_set1_groups_list := LoadLibSSLFunction('SSL_set1_groups_list'); + if not assigned(SSL_set1_groups_list) then + SSL_set1_groups_list := @COMPAT_SSL_set1_groups_list; + Result := SSL_set1_groups_list(s,str); +end; + +function Load_SSL_get_shared_group(s: PSSL; n: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_get_shared_group := LoadLibSSLFunction('SSL_get_shared_group'); + if not assigned(SSL_get_shared_group) then + SSL_get_shared_group := @COMPAT_SSL_get_shared_group; + Result := SSL_get_shared_group(s,n); +end; + +function Load_SSL_CTX_set1_sigalgs(ctx: PSSL_CTX; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set1_sigalgs := LoadLibSSLFunction('SSL_CTX_set1_sigalgs'); + if not assigned(SSL_CTX_set1_sigalgs) then + SSL_CTX_set1_sigalgs := @COMPAT_SSL_CTX_set1_sigalgs; + Result := SSL_CTX_set1_sigalgs(ctx,slist,slistlen); +end; + +function Load_SSL_CTX_set1_sigalgs_list(ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set1_sigalgs_list := LoadLibSSLFunction('SSL_CTX_set1_sigalgs_list'); + if not assigned(SSL_CTX_set1_sigalgs_list) then + SSL_CTX_set1_sigalgs_list := @COMPAT_SSL_CTX_set1_sigalgs_list; + Result := SSL_CTX_set1_sigalgs_list(ctx,s); +end; + +function Load_SSL_set1_sigalgs(s: PSSL; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_set1_sigalgs := LoadLibSSLFunction('SSL_set1_sigalgs'); + if not assigned(SSL_set1_sigalgs) then + SSL_set1_sigalgs := @COMPAT_SSL_set1_sigalgs; + Result := SSL_set1_sigalgs(s,slist,slistlen); +end; + +function Load_SSL_set1_sigalgs_list(s: PSSL; str: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_set1_sigalgs_list := LoadLibSSLFunction('SSL_set1_sigalgs_list'); + if not assigned(SSL_set1_sigalgs_list) then + SSL_set1_sigalgs_list := @COMPAT_SSL_set1_sigalgs_list; + Result := SSL_set1_sigalgs_list(s,str); +end; + +function Load_SSL_CTX_set1_client_sigalgs(ctx: PSSL_CTX; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set1_client_sigalgs := LoadLibSSLFunction('SSL_CTX_set1_client_sigalgs'); + if not assigned(SSL_CTX_set1_client_sigalgs) then + SSL_CTX_set1_client_sigalgs := @COMPAT_SSL_CTX_set1_client_sigalgs; + Result := SSL_CTX_set1_client_sigalgs(ctx,slist,slistlen); +end; + +function Load_SSL_CTX_set1_client_sigalgs_list(ctx: PSSL_CTX; s: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set1_client_sigalgs_list := LoadLibSSLFunction('SSL_CTX_set1_client_sigalgs_list'); + if not assigned(SSL_CTX_set1_client_sigalgs_list) then + SSL_CTX_set1_client_sigalgs_list := @COMPAT_SSL_CTX_set1_client_sigalgs_list; + Result := SSL_CTX_set1_client_sigalgs_list(ctx,s); +end; + +function Load_SSL_set1_client_sigalgs(s: PSSL; slist: POpenSSL_C_INT; slistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_set1_client_sigalgs := LoadLibSSLFunction('SSL_set1_client_sigalgs'); + if not assigned(SSL_set1_client_sigalgs) then + SSL_set1_client_sigalgs := @COMPAT_SSL_set1_client_sigalgs; + Result := SSL_set1_client_sigalgs(s,slist,slistlen); +end; + +function Load_SSL_set1_client_sigalgs_list(s: PSSL; str: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_set1_client_sigalgs_list := LoadLibSSLFunction('SSL_set1_client_sigalgs_list'); + if not assigned(SSL_set1_client_sigalgs_list) then + SSL_set1_client_sigalgs_list := @COMPAT_SSL_set1_client_sigalgs_list; + Result := SSL_set1_client_sigalgs_list(s,str); +end; + +function Load_SSL_get0_certificate_types(s: PSSL; clist: PByte): TOpenSSL_C_LONG; cdecl; +begin + SSL_get0_certificate_types := LoadLibSSLFunction('SSL_get0_certificate_types'); + if not assigned(SSL_get0_certificate_types) then + SSL_get0_certificate_types := @COMPAT_SSL_get0_certificate_types; + Result := SSL_get0_certificate_types(s,clist); +end; + +function Load_SSL_CTX_set1_client_certificate_types(ctx: PSSL_CTX; clist: PByte; clistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set1_client_certificate_types := LoadLibSSLFunction('SSL_CTX_set1_client_certificate_types'); + if not assigned(SSL_CTX_set1_client_certificate_types) then + SSL_CTX_set1_client_certificate_types := @COMPAT_SSL_CTX_set1_client_certificate_types; + Result := SSL_CTX_set1_client_certificate_types(ctx,clist,clistlen); +end; + +function Load_SSL_set1_client_certificate_types(s: PSSL; clist: PByte; clistlen: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_set1_client_certificate_types := LoadLibSSLFunction('SSL_set1_client_certificate_types'); + if not assigned(SSL_set1_client_certificate_types) then + SSL_set1_client_certificate_types := @COMPAT_SSL_set1_client_certificate_types; + Result := SSL_set1_client_certificate_types(s,clist,clistlen); +end; + +function Load_SSL_get_signature_nid(s: PSSL; pn: Pointer): TOpenSSL_C_LONG; cdecl; +begin + SSL_get_signature_nid := LoadLibSSLFunction('SSL_get_signature_nid'); + if not assigned(SSL_get_signature_nid) then + SSL_get_signature_nid := @COMPAT_SSL_get_signature_nid; + Result := SSL_get_signature_nid(s,pn); +end; + +function Load_SSL_get_peer_signature_nid(s: PSSL; pn: Pointer): TOpenSSL_C_LONG; cdecl; +begin + SSL_get_peer_signature_nid := LoadLibSSLFunction('SSL_get_peer_signature_nid'); + if not assigned(SSL_get_peer_signature_nid) then + SSL_get_peer_signature_nid := @COMPAT_SSL_get_peer_signature_nid; + Result := SSL_get_peer_signature_nid(s,pn); +end; + +function Load_SSL_get_peer_tmp_key(s: PSSL; pk: Pointer): TOpenSSL_C_LONG; cdecl; +begin + SSL_get_peer_tmp_key := LoadLibSSLFunction('SSL_get_peer_tmp_key'); + if not assigned(SSL_get_peer_tmp_key) then + SSL_get_peer_tmp_key := @COMPAT_SSL_get_peer_tmp_key; + Result := SSL_get_peer_tmp_key(s,pk); +end; + +function Load_SSL_get_tmp_key(s: PSSL; pk: Pointer): TOpenSSL_C_LONG; cdecl; +begin + SSL_get_tmp_key := LoadLibSSLFunction('SSL_get_tmp_key'); + if not assigned(SSL_get_tmp_key) then + SSL_get_tmp_key := @COMPAT_SSL_get_tmp_key; + Result := SSL_get_tmp_key(s,pk); +end; + +function Load_SSL_get0_raw_cipherlist(s: PSSL; plst: Pointer): TOpenSSL_C_LONG; cdecl; +begin + SSL_get0_raw_cipherlist := LoadLibSSLFunction('SSL_get0_raw_cipherlist'); + if not assigned(SSL_get0_raw_cipherlist) then + SSL_get0_raw_cipherlist := @COMPAT_SSL_get0_raw_cipherlist; + Result := SSL_get0_raw_cipherlist(s,plst); +end; + +function Load_SSL_get0_ec_point_formats(s: PSSL; plst: Pointer): TOpenSSL_C_LONG; cdecl; +begin + SSL_get0_ec_point_formats := LoadLibSSLFunction('SSL_get0_ec_point_formats'); + if not assigned(SSL_get0_ec_point_formats) then + SSL_get0_ec_point_formats := @COMPAT_SSL_get0_ec_point_formats; + Result := SSL_get0_ec_point_formats(s,plst); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_SSL_CTX_get_options(const ctx: PSSL_CTX): TOpenSSL_C_ULONG; cdecl; +begin + SSL_CTX_get_options := LoadLibSSLFunction('SSL_CTX_get_options'); + if not assigned(SSL_CTX_get_options) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_CTX_get_options := @COMPAT_SSL_CTX_get_options; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_options'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := SSL_CTX_get_options(ctx); +end; + +function Load_SSL_get_options(const s: PSSL): TOpenSSL_C_ULONG; cdecl; +begin + SSL_get_options := LoadLibSSLFunction('SSL_get_options'); + if not assigned(SSL_get_options) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_options'); + Result := SSL_get_options(s); +end; + +function Load_SSL_CTX_clear_options(ctx: PSSL_CTX; op: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; +begin + SSL_CTX_clear_options := LoadLibSSLFunction('SSL_CTX_clear_options'); + if not assigned(SSL_CTX_clear_options) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_CTX_clear_options := @COMPAT_SSL_CTX_clear_options; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_clear_options'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := SSL_CTX_clear_options(ctx,op); +end; + +function Load_SSL_clear_options(s: PSSL; op: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; +begin + SSL_clear_options := LoadLibSSLFunction('SSL_clear_options'); + if not assigned(SSL_clear_options) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_clear_options'); + Result := SSL_clear_options(s,op); +end; + +function Load_SSL_CTX_set_options(ctx: PSSL_CTX; op: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; +begin + SSL_CTX_set_options := LoadLibSSLFunction('SSL_CTX_set_options'); + if not assigned(SSL_CTX_set_options) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_CTX_set_options := @COMPAT_SSL_CTX_set_options; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_options'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := SSL_CTX_set_options(ctx,op); +end; + +function Load_SSL_set_options(s: PSSL; op: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; +begin + SSL_set_options := LoadLibSSLFunction('SSL_set_options'); + if not assigned(SSL_set_options) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_options'); + Result := SSL_set_options(s,op); +end; + +procedure Load_SSL_CTX_sess_set_new_cb(ctx: PSSL_CTX; new_session_cb: SSL_CTX_sess_new_cb); cdecl; +begin + SSL_CTX_sess_set_new_cb := LoadLibSSLFunction('SSL_CTX_sess_set_new_cb'); + if not assigned(SSL_CTX_sess_set_new_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_sess_set_new_cb'); + SSL_CTX_sess_set_new_cb(ctx,new_session_cb); +end; + +function Load_SSL_CTX_sess_get_new_cb(ctx: PSSL_CTX): SSL_CTX_sess_new_cb; cdecl; +begin + SSL_CTX_sess_get_new_cb := LoadLibSSLFunction('SSL_CTX_sess_get_new_cb'); + if not assigned(SSL_CTX_sess_get_new_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_sess_get_new_cb'); + Result := SSL_CTX_sess_get_new_cb(ctx); +end; + +procedure Load_SSL_CTX_sess_set_remove_cb(ctx: PSSL_CTX; remove_session_cb: SSL_CTX_sess_remove_cb); cdecl; +begin + SSL_CTX_sess_set_remove_cb := LoadLibSSLFunction('SSL_CTX_sess_set_remove_cb'); + if not assigned(SSL_CTX_sess_set_remove_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_sess_set_remove_cb'); + SSL_CTX_sess_set_remove_cb(ctx,remove_session_cb); +end; + +function Load_SSL_CTX_sess_get_remove_cb(ctx: PSSL_CTX): SSL_CTX_sess_remove_cb; cdecl; +begin + SSL_CTX_sess_get_remove_cb := LoadLibSSLFunction('SSL_CTX_sess_get_remove_cb'); + if not assigned(SSL_CTX_sess_get_remove_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_sess_get_remove_cb'); + Result := SSL_CTX_sess_get_remove_cb(ctx); +end; + +procedure Load_SSL_CTX_set_info_callback(ctx: PSSL_CTX; cb: SSL_CTX_info_callback); cdecl; +begin + SSL_CTX_set_info_callback := LoadLibSSLFunction('SSL_CTX_set_info_callback'); + if not assigned(SSL_CTX_set_info_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_info_callback'); + SSL_CTX_set_info_callback(ctx,cb); +end; + +function Load_SSL_CTX_get_info_callback(ctx: PSSL_CTX): SSL_CTX_info_callback; cdecl; +begin + SSL_CTX_get_info_callback := LoadLibSSLFunction('SSL_CTX_get_info_callback'); + if not assigned(SSL_CTX_get_info_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_info_callback'); + Result := SSL_CTX_get_info_callback(ctx); +end; + +procedure Load_SSL_CTX_set_client_cert_cb(ctx: PSSL_CTX; client_cert_cb: SSL_CTX_client_cert_cb); cdecl; +begin + SSL_CTX_set_client_cert_cb := LoadLibSSLFunction('SSL_CTX_set_client_cert_cb'); + if not assigned(SSL_CTX_set_client_cert_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_client_cert_cb'); + SSL_CTX_set_client_cert_cb(ctx,client_cert_cb); +end; + +function Load_SSL_CTX_get_client_cert_cb(ctx: PSSL_CTX): SSL_CTX_client_cert_cb; cdecl; +begin + SSL_CTX_get_client_cert_cb := LoadLibSSLFunction('SSL_CTX_get_client_cert_cb'); + if not assigned(SSL_CTX_get_client_cert_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_client_cert_cb'); + Result := SSL_CTX_get_client_cert_cb(ctx); +end; + +function Load_SSL_CTX_set_client_cert_engine(ctx: PSSL_CTX; e: PENGINE): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_client_cert_engine := LoadLibSSLFunction('SSL_CTX_set_client_cert_engine'); + if not assigned(SSL_CTX_set_client_cert_engine) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_client_cert_engine'); + Result := SSL_CTX_set_client_cert_engine(ctx,e); +end; + +procedure Load_SSL_CTX_set_cookie_generate_cb(ctx: PSSL_CTX; app_gen_cookie_cb: SSL_CTX_cookie_verify_cb); cdecl; +begin + SSL_CTX_set_cookie_generate_cb := LoadLibSSLFunction('SSL_CTX_set_cookie_generate_cb'); + if not assigned(SSL_CTX_set_cookie_generate_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_cookie_generate_cb'); + SSL_CTX_set_cookie_generate_cb(ctx,app_gen_cookie_cb); +end; + +procedure Load_SSL_CTX_set_cookie_verify_cb(ctx: PSSL_CTX; app_verify_cookie_cb: SSL_CTX_set_cookie_verify_cb_app_verify_cookie_cb); cdecl; +begin + SSL_CTX_set_cookie_verify_cb := LoadLibSSLFunction('SSL_CTX_set_cookie_verify_cb'); + if not assigned(SSL_CTX_set_cookie_verify_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_cookie_verify_cb'); + SSL_CTX_set_cookie_verify_cb(ctx,app_verify_cookie_cb); +end; + +procedure Load_SSL_CTX_set_stateless_cookie_generate_cb(ctx: PSSL_CTX; gen_stateless_cookie_cb: SSL_CTX_set_stateless_cookie_generate_cb_gen_stateless_cookie_cb); cdecl; +begin + SSL_CTX_set_stateless_cookie_generate_cb := LoadLibSSLFunction('SSL_CTX_set_stateless_cookie_generate_cb'); + if not assigned(SSL_CTX_set_stateless_cookie_generate_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_stateless_cookie_generate_cb'); + SSL_CTX_set_stateless_cookie_generate_cb(ctx,gen_stateless_cookie_cb); +end; + +procedure Load_SSL_CTX_set_stateless_cookie_verify_cb(ctx: PSSL_CTX; verify_stateless_cookie_cb: SSL_CTX_set_stateless_cookie_verify_cb_verify_stateless_cookie_cb); cdecl; +begin + SSL_CTX_set_stateless_cookie_verify_cb := LoadLibSSLFunction('SSL_CTX_set_stateless_cookie_verify_cb'); + if not assigned(SSL_CTX_set_stateless_cookie_verify_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_stateless_cookie_verify_cb'); + SSL_CTX_set_stateless_cookie_verify_cb(ctx,verify_stateless_cookie_cb); +end; + +procedure Load_SSL_CTX_set_alpn_select_cb(ctx: PSSL_CTX; cb: SSL_CTX_alpn_select_cb_func; arg: Pointer); cdecl; +begin + SSL_CTX_set_alpn_select_cb := LoadLibSSLFunction('SSL_CTX_set_alpn_select_cb'); + if not assigned(SSL_CTX_set_alpn_select_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_alpn_select_cb'); + SSL_CTX_set_alpn_select_cb(ctx,cb,arg); +end; + +procedure Load_SSL_get0_alpn_selected(const ssl: PSSL; const data: PPByte; len: POpenSSL_C_UINT); cdecl; +begin + SSL_get0_alpn_selected := LoadLibSSLFunction('SSL_get0_alpn_selected'); + if not assigned(SSL_get0_alpn_selected) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get0_alpn_selected'); + SSL_get0_alpn_selected(ssl,data,len); +end; + +procedure Load_SSL_CTX_set_psk_client_callback(ctx: PSSL_CTX; cb: SSL_psk_client_cb_func); cdecl; +begin + SSL_CTX_set_psk_client_callback := LoadLibSSLFunction('SSL_CTX_set_psk_client_callback'); + if not assigned(SSL_CTX_set_psk_client_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_psk_client_callback'); + SSL_CTX_set_psk_client_callback(ctx,cb); +end; + +procedure Load_SSL_set_psk_client_callback(ssl: PSSL; cb: SSL_psk_client_cb_func); cdecl; +begin + SSL_set_psk_client_callback := LoadLibSSLFunction('SSL_set_psk_client_callback'); + if not assigned(SSL_set_psk_client_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_psk_client_callback'); + SSL_set_psk_client_callback(ssl,cb); +end; + +procedure Load_SSL_CTX_set_psk_server_callback(ctx: PSSL_CTX; cb: SSL_psk_server_cb_func); cdecl; +begin + SSL_CTX_set_psk_server_callback := LoadLibSSLFunction('SSL_CTX_set_psk_server_callback'); + if not assigned(SSL_CTX_set_psk_server_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_psk_server_callback'); + SSL_CTX_set_psk_server_callback(ctx,cb); +end; + +procedure Load_SSL_set_psk_server_callback(ssl: PSSL; cb: SSL_psk_server_cb_func); cdecl; +begin + SSL_set_psk_server_callback := LoadLibSSLFunction('SSL_set_psk_server_callback'); + if not assigned(SSL_set_psk_server_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_psk_server_callback'); + SSL_set_psk_server_callback(ssl,cb); +end; + +procedure Load_SSL_set_psk_find_session_callback(s: PSSL; cb: SSL_psk_find_session_cb_func); cdecl; +begin + SSL_set_psk_find_session_callback := LoadLibSSLFunction('SSL_set_psk_find_session_callback'); + if not assigned(SSL_set_psk_find_session_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_psk_find_session_callback'); + SSL_set_psk_find_session_callback(s,cb); +end; + +procedure Load_SSL_CTX_set_psk_find_session_callback(ctx: PSSL_CTX; cb: SSL_psk_find_session_cb_func); cdecl; +begin + SSL_CTX_set_psk_find_session_callback := LoadLibSSLFunction('SSL_CTX_set_psk_find_session_callback'); + if not assigned(SSL_CTX_set_psk_find_session_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_psk_find_session_callback'); + SSL_CTX_set_psk_find_session_callback(ctx,cb); +end; + +procedure Load_SSL_set_psk_use_session_callback(s: PSSL; cb: SSL_psk_use_session_cb_func); cdecl; +begin + SSL_set_psk_use_session_callback := LoadLibSSLFunction('SSL_set_psk_use_session_callback'); + if not assigned(SSL_set_psk_use_session_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_psk_use_session_callback'); + SSL_set_psk_use_session_callback(s,cb); +end; + +procedure Load_SSL_CTX_set_psk_use_session_callback(ctx: PSSL_CTX; cb: SSL_psk_use_session_cb_func); cdecl; +begin + SSL_CTX_set_psk_use_session_callback := LoadLibSSLFunction('SSL_CTX_set_psk_use_session_callback'); + if not assigned(SSL_CTX_set_psk_use_session_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_psk_use_session_callback'); + SSL_CTX_set_psk_use_session_callback(ctx,cb); +end; + +procedure Load_SSL_CTX_set_keylog_callback(ctx: PSSL_CTX; cb: SSL_CTX_keylog_cb_func); cdecl; +begin + SSL_CTX_set_keylog_callback := LoadLibSSLFunction('SSL_CTX_set_keylog_callback'); + if not assigned(SSL_CTX_set_keylog_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_keylog_callback'); + SSL_CTX_set_keylog_callback(ctx,cb); +end; + +function Load_SSL_CTX_get_keylog_callback(const ctx: PSSL_CTX): SSL_CTX_keylog_cb_func; cdecl; +begin + SSL_CTX_get_keylog_callback := LoadLibSSLFunction('SSL_CTX_get_keylog_callback'); + if not assigned(SSL_CTX_get_keylog_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_keylog_callback'); + Result := SSL_CTX_get_keylog_callback(ctx); +end; + +function Load_SSL_CTX_set_max_early_data(ctx: PSSL_CTX; max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_max_early_data := LoadLibSSLFunction('SSL_CTX_set_max_early_data'); + if not assigned(SSL_CTX_set_max_early_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_max_early_data'); + Result := SSL_CTX_set_max_early_data(ctx,max_early_data); +end; + +function Load_SSL_CTX_get_max_early_data(const ctx: PSSL_CTX): TOpenSSL_C_UINT32; cdecl; +begin + SSL_CTX_get_max_early_data := LoadLibSSLFunction('SSL_CTX_get_max_early_data'); + if not assigned(SSL_CTX_get_max_early_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_max_early_data'); + Result := SSL_CTX_get_max_early_data(ctx); +end; + +function Load_SSL_set_max_early_data(s: PSSL; max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; +begin + SSL_set_max_early_data := LoadLibSSLFunction('SSL_set_max_early_data'); + if not assigned(SSL_set_max_early_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_max_early_data'); + Result := SSL_set_max_early_data(s,max_early_data); +end; + +function Load_SSL_get_max_early_data(const s: PSSL): TOpenSSL_C_UINT32; cdecl; +begin + SSL_get_max_early_data := LoadLibSSLFunction('SSL_get_max_early_data'); + if not assigned(SSL_get_max_early_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_max_early_data'); + Result := SSL_get_max_early_data(s); +end; + +function Load_SSL_CTX_set_recv_max_early_data(ctx: PSSL_CTX; recv_max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_recv_max_early_data := LoadLibSSLFunction('SSL_CTX_set_recv_max_early_data'); + if not assigned(SSL_CTX_set_recv_max_early_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_recv_max_early_data'); + Result := SSL_CTX_set_recv_max_early_data(ctx,recv_max_early_data); +end; + +function Load_SSL_CTX_get_recv_max_early_data(const ctx: PSSL_CTX): TOpenSSL_C_UINT32; cdecl; +begin + SSL_CTX_get_recv_max_early_data := LoadLibSSLFunction('SSL_CTX_get_recv_max_early_data'); + if not assigned(SSL_CTX_get_recv_max_early_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_recv_max_early_data'); + Result := SSL_CTX_get_recv_max_early_data(ctx); +end; + +function Load_SSL_set_recv_max_early_data(s: PSSL; recv_max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; +begin + SSL_set_recv_max_early_data := LoadLibSSLFunction('SSL_set_recv_max_early_data'); + if not assigned(SSL_set_recv_max_early_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_recv_max_early_data'); + Result := SSL_set_recv_max_early_data(s,recv_max_early_data); +end; + +function Load_SSL_get_recv_max_early_data(const s: PSSL): TOpenSSL_C_UINT32; cdecl; +begin + SSL_get_recv_max_early_data := LoadLibSSLFunction('SSL_get_recv_max_early_data'); + if not assigned(SSL_get_recv_max_early_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_recv_max_early_data'); + Result := SSL_get_recv_max_early_data(s); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_SSL_get_app_data(const ssl: PSSL): Pointer; cdecl; +begin + SSL_get_app_data := LoadLibSSLFunction('SSL_get_app_data'); + if not assigned(SSL_get_app_data) then + SSL_get_app_data := @COMPAT_SSL_get_app_data; + Result := SSL_get_app_data(ssl); +end; + +function Load_SSL_set_app_data(ssl: PSSL; data: Pointer): TOpenSSL_C_INT; cdecl; +begin + SSL_set_app_data := LoadLibSSLFunction('SSL_set_app_data'); + if not assigned(SSL_set_app_data) then + SSL_set_app_data := @COMPAT_SSL_set_app_data; + Result := SSL_set_app_data(ssl,data); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_SSL_in_init(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_in_init := LoadLibSSLFunction('SSL_in_init'); + if not assigned(SSL_in_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_in_init'); + Result := SSL_in_init(s); +end; + +function Load_SSL_in_before(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_in_before := LoadLibSSLFunction('SSL_in_before'); + if not assigned(SSL_in_before) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_in_before'); + Result := SSL_in_before(s); +end; + +function Load_SSL_is_init_finished(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_is_init_finished := LoadLibSSLFunction('SSL_is_init_finished'); + if not assigned(SSL_is_init_finished) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_is_init_finished'); + Result := SSL_is_init_finished(s); +end; + +function Load_SSL_get_finished(const s: PSSL; buf: Pointer; count: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +begin + SSL_get_finished := LoadLibSSLFunction('SSL_get_finished'); + if not assigned(SSL_get_finished) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_finished'); + Result := SSL_get_finished(s,buf,count); +end; + +function Load_SSL_get_peer_finished(const s: PSSL; buf: Pointer; count: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +begin + SSL_get_peer_finished := LoadLibSSLFunction('SSL_get_peer_finished'); + if not assigned(SSL_get_peer_finished) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_peer_finished'); + Result := SSL_get_peer_finished(s,buf,count); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_SSLeay_add_ssl_algorithms: TOpenSSL_C_INT; cdecl; +begin + SSLeay_add_ssl_algorithms := LoadLibSSLFunction('SSLeay_add_ssl_algorithms'); + if not assigned(SSLeay_add_ssl_algorithms) then + SSLeay_add_ssl_algorithms := @COMPAT_SSLeay_add_ssl_algorithms; + Result := SSLeay_add_ssl_algorithms(); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_BIO_f_ssl: PBIO_METHOD; cdecl; +begin + BIO_f_ssl := LoadLibSSLFunction('BIO_f_ssl'); + if not assigned(BIO_f_ssl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_f_ssl'); + Result := BIO_f_ssl(); +end; + +function Load_BIO_new_ssl(ctx: PSSL_CTX; client: TOpenSSL_C_INT): PBIO; cdecl; +begin + BIO_new_ssl := LoadLibSSLFunction('BIO_new_ssl'); + if not assigned(BIO_new_ssl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_new_ssl'); + Result := BIO_new_ssl(ctx,client); +end; + +function Load_BIO_new_ssl_connect(ctx: PSSL_CTX): PBIO; cdecl; +begin + BIO_new_ssl_connect := LoadLibSSLFunction('BIO_new_ssl_connect'); + if not assigned(BIO_new_ssl_connect) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_new_ssl_connect'); + Result := BIO_new_ssl_connect(ctx); +end; + +function Load_BIO_new_buffer_ssl_connect(ctx: PSSL_CTX): PBIO; cdecl; +begin + BIO_new_buffer_ssl_connect := LoadLibSSLFunction('BIO_new_buffer_ssl_connect'); + if not assigned(BIO_new_buffer_ssl_connect) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_new_buffer_ssl_connect'); + Result := BIO_new_buffer_ssl_connect(ctx); +end; + +function Load_BIO_ssl_copy_session_id(to_: PBIO; from: PBIO): TOpenSSL_C_INT; cdecl; +begin + BIO_ssl_copy_session_id := LoadLibSSLFunction('BIO_ssl_copy_session_id'); + if not assigned(BIO_ssl_copy_session_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ssl_copy_session_id'); + Result := BIO_ssl_copy_session_id(to_,from); +end; + +function Load_SSL_CTX_set_cipher_list(v1: PSSL_CTX; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_cipher_list := LoadLibSSLFunction('SSL_CTX_set_cipher_list'); + if not assigned(SSL_CTX_set_cipher_list) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_cipher_list'); + Result := SSL_CTX_set_cipher_list(v1,str); +end; + +function Load_SSL_CTX_new(const meth: PSSL_METHOD): PSSL_CTX; cdecl; +begin + SSL_CTX_new := LoadLibSSLFunction('SSL_CTX_new'); + if not assigned(SSL_CTX_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_new'); + Result := SSL_CTX_new(meth); +end; + +function Load_SSL_CTX_set_timeout(ctx: PSSL_CTX; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_set_timeout := LoadLibSSLFunction('SSL_CTX_set_timeout'); + if not assigned(SSL_CTX_set_timeout) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_timeout'); + Result := SSL_CTX_set_timeout(ctx,t); +end; + +function Load_SSL_CTX_get_timeout(const ctx: PSSL_CTX): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_get_timeout := LoadLibSSLFunction('SSL_CTX_get_timeout'); + if not assigned(SSL_CTX_get_timeout) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_timeout'); + Result := SSL_CTX_get_timeout(ctx); +end; + +function Load_SSL_CTX_get_cert_store(const v1: PSSL_CTX): PX509_STORE; cdecl; +begin + SSL_CTX_get_cert_store := LoadLibSSLFunction('SSL_CTX_get_cert_store'); + if not assigned(SSL_CTX_get_cert_store) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_CTX_get_cert_store := @COMPAT_SSL_CTX_get_cert_store; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_cert_store'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := SSL_CTX_get_cert_store(v1); +end; + +function Load_SSL_want(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_want := LoadLibSSLFunction('SSL_want'); + if not assigned(SSL_want) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_want'); + Result := SSL_want(s); +end; + +function Load_SSL_clear(s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_clear := LoadLibSSLFunction('SSL_clear'); + if not assigned(SSL_clear) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_clear'); + Result := SSL_clear(s); +end; + +procedure Load_BIO_ssl_shutdown(ssl_bio: PBIO); cdecl; +begin + BIO_ssl_shutdown := LoadLibSSLFunction('BIO_ssl_shutdown'); + if not assigned(BIO_ssl_shutdown) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BIO_ssl_shutdown'); + BIO_ssl_shutdown(ssl_bio); +end; + +function Load_SSL_CTX_up_ref(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_up_ref := LoadLibSSLFunction('SSL_CTX_up_ref'); + if not assigned(SSL_CTX_up_ref) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_up_ref'); + Result := SSL_CTX_up_ref(ctx); +end; + +procedure Load_SSL_CTX_free(v1: PSSL_CTX); cdecl; +begin + SSL_CTX_free := LoadLibSSLFunction('SSL_CTX_free'); + if not assigned(SSL_CTX_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_free'); + SSL_CTX_free(v1); +end; + +procedure Load_SSL_CTX_set_cert_store(v1: PSSL_CTX; v2: PX509_STORE); cdecl; +begin + SSL_CTX_set_cert_store := LoadLibSSLFunction('SSL_CTX_set_cert_store'); + if not assigned(SSL_CTX_set_cert_store) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_cert_store'); + SSL_CTX_set_cert_store(v1,v2); +end; + +procedure Load_SSL_CTX_set1_cert_store(v1: PSSL_CTX; v2: PX509_STORE); cdecl; +begin + SSL_CTX_set1_cert_store := LoadLibSSLFunction('SSL_CTX_set1_cert_store'); + if not assigned(SSL_CTX_set1_cert_store) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set1_cert_store'); + SSL_CTX_set1_cert_store(v1,v2); +end; + +procedure Load_SSL_CTX_flush_sessions(ctx: PSSL_CTX; tm: TOpenSSL_C_LONG); cdecl; +begin + SSL_CTX_flush_sessions := LoadLibSSLFunction('SSL_CTX_flush_sessions'); + if not assigned(SSL_CTX_flush_sessions) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_flush_sessions'); + SSL_CTX_flush_sessions(ctx,tm); +end; + +function Load_SSL_get_current_cipher(const s: PSSL): PSSL_CIPHER; cdecl; +begin + SSL_get_current_cipher := LoadLibSSLFunction('SSL_get_current_cipher'); + if not assigned(SSL_get_current_cipher) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_current_cipher'); + Result := SSL_get_current_cipher(s); +end; + +function Load_SSL_get_pending_cipher(const s: PSSL): PSSL_CIPHER; cdecl; +begin + SSL_get_pending_cipher := LoadLibSSLFunction('SSL_get_pending_cipher'); + if not assigned(SSL_get_pending_cipher) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_pending_cipher'); + Result := SSL_get_pending_cipher(s); +end; + +function Load_SSL_CIPHER_get_bits(const c: PSSL_CIPHER; var alg_bits: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_CIPHER_get_bits := LoadLibSSLFunction('SSL_CIPHER_get_bits'); + if not assigned(SSL_CIPHER_get_bits) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CIPHER_get_bits'); + Result := SSL_CIPHER_get_bits(c,alg_bits); +end; + +function Load_SSL_CIPHER_get_version(const c: PSSL_CIPHER): PAnsiChar; cdecl; +begin + SSL_CIPHER_get_version := LoadLibSSLFunction('SSL_CIPHER_get_version'); + if not assigned(SSL_CIPHER_get_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CIPHER_get_version'); + Result := SSL_CIPHER_get_version(c); +end; + +function Load_SSL_CIPHER_get_name(const c: PSSL_CIPHER): PAnsiChar; cdecl; +begin + SSL_CIPHER_get_name := LoadLibSSLFunction('SSL_CIPHER_get_name'); + if not assigned(SSL_CIPHER_get_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CIPHER_get_name'); + Result := SSL_CIPHER_get_name(c); +end; + +function Load_SSL_CIPHER_standard_name(const c: PSSL_CIPHER): PAnsiChar; cdecl; +begin + SSL_CIPHER_standard_name := LoadLibSSLFunction('SSL_CIPHER_standard_name'); + if not assigned(SSL_CIPHER_standard_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CIPHER_standard_name'); + Result := SSL_CIPHER_standard_name(c); +end; + +function Load_OPENSSL_cipher_name(const rfc_name: PAnsiChar): PAnsiChar; cdecl; +begin + OPENSSL_cipher_name := LoadLibSSLFunction('OPENSSL_cipher_name'); + if not assigned(OPENSSL_cipher_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_cipher_name'); + Result := OPENSSL_cipher_name(rfc_name); +end; + +function Load_SSL_CIPHER_get_id(const c: PSSL_CIPHER): TOpenSSL_C_UINT32; cdecl; +begin + SSL_CIPHER_get_id := LoadLibSSLFunction('SSL_CIPHER_get_id'); + if not assigned(SSL_CIPHER_get_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CIPHER_get_id'); + Result := SSL_CIPHER_get_id(c); +end; + +function Load_SSL_CIPHER_get_protocol_id(const c: PSSL_CIPHER): TOpenSSL_C_UINT16; cdecl; +begin + SSL_CIPHER_get_protocol_id := LoadLibSSLFunction('SSL_CIPHER_get_protocol_id'); + if not assigned(SSL_CIPHER_get_protocol_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CIPHER_get_protocol_id'); + Result := SSL_CIPHER_get_protocol_id(c); +end; + +function Load_SSL_CIPHER_get_kx_nid(const c: PSSL_CIPHER): TOpenSSL_C_INT; cdecl; +begin + SSL_CIPHER_get_kx_nid := LoadLibSSLFunction('SSL_CIPHER_get_kx_nid'); + if not assigned(SSL_CIPHER_get_kx_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CIPHER_get_kx_nid'); + Result := SSL_CIPHER_get_kx_nid(c); +end; + +function Load_SSL_CIPHER_get_auth_nid(const c: PSSL_CIPHER): TOpenSSL_C_INT; cdecl; +begin + SSL_CIPHER_get_auth_nid := LoadLibSSLFunction('SSL_CIPHER_get_auth_nid'); + if not assigned(SSL_CIPHER_get_auth_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CIPHER_get_auth_nid'); + Result := SSL_CIPHER_get_auth_nid(c); +end; + +function Load_SSL_CIPHER_get_handshake_digest(const c: PSSL_CIPHER): PEVP_MD; cdecl; +begin + SSL_CIPHER_get_handshake_digest := LoadLibSSLFunction('SSL_CIPHER_get_handshake_digest'); + if not assigned(SSL_CIPHER_get_handshake_digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CIPHER_get_handshake_digest'); + Result := SSL_CIPHER_get_handshake_digest(c); +end; + +function Load_SSL_CIPHER_is_aead(const c: PSSL_CIPHER): TOpenSSL_C_INT; cdecl; +begin + SSL_CIPHER_is_aead := LoadLibSSLFunction('SSL_CIPHER_is_aead'); + if not assigned(SSL_CIPHER_is_aead) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CIPHER_is_aead'); + Result := SSL_CIPHER_is_aead(c); +end; + +function Load_SSL_get_fd(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_get_fd := LoadLibSSLFunction('SSL_get_fd'); + if not assigned(SSL_get_fd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_fd'); + Result := SSL_get_fd(s); +end; + +function Load_SSL_get_rfd(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_get_rfd := LoadLibSSLFunction('SSL_get_rfd'); + if not assigned(SSL_get_rfd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_rfd'); + Result := SSL_get_rfd(s); +end; + +function Load_SSL_get_wfd(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_get_wfd := LoadLibSSLFunction('SSL_get_wfd'); + if not assigned(SSL_get_wfd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_wfd'); + Result := SSL_get_wfd(s); +end; + +function Load_SSL_get_cipher_list(const s: PSSL; n: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + SSL_get_cipher_list := LoadLibSSLFunction('SSL_get_cipher_list'); + if not assigned(SSL_get_cipher_list) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_cipher_list'); + Result := SSL_get_cipher_list(s,n); +end; + +function Load_SSL_get_shared_ciphers(const s: PSSL; buf: PAnsiChar; size: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + SSL_get_shared_ciphers := LoadLibSSLFunction('SSL_get_shared_ciphers'); + if not assigned(SSL_get_shared_ciphers) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_shared_ciphers'); + Result := SSL_get_shared_ciphers(s,buf,size); +end; + +function Load_SSL_get_read_ahead(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_get_read_ahead := LoadLibSSLFunction('SSL_get_read_ahead'); + if not assigned(SSL_get_read_ahead) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_read_ahead'); + Result := SSL_get_read_ahead(s); +end; + +function Load_SSL_pending(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_pending := LoadLibSSLFunction('SSL_pending'); + if not assigned(SSL_pending) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_pending'); + Result := SSL_pending(s); +end; + +function Load_SSL_has_pending(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_has_pending := LoadLibSSLFunction('SSL_has_pending'); + if not assigned(SSL_has_pending) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_has_pending'); + Result := SSL_has_pending(s); +end; + +function Load_SSL_set_fd(s: PSSL; fd: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_set_fd := LoadLibSSLFunction('SSL_set_fd'); + if not assigned(SSL_set_fd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_fd'); + Result := SSL_set_fd(s,fd); +end; + +function Load_SSL_set_rfd(s: PSSL; fd: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_set_rfd := LoadLibSSLFunction('SSL_set_rfd'); + if not assigned(SSL_set_rfd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_rfd'); + Result := SSL_set_rfd(s,fd); +end; + +function Load_SSL_set_wfd(s: PSSL; fd: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_set_wfd := LoadLibSSLFunction('SSL_set_wfd'); + if not assigned(SSL_set_wfd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_wfd'); + Result := SSL_set_wfd(s,fd); +end; + +procedure Load_SSL_set0_rbio(s: PSSL; rbio: PBIO); cdecl; +begin + SSL_set0_rbio := LoadLibSSLFunction('SSL_set0_rbio'); + if not assigned(SSL_set0_rbio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set0_rbio'); + SSL_set0_rbio(s,rbio); +end; + +procedure Load_SSL_set0_wbio(s: PSSL; wbio: PBIO); cdecl; +begin + SSL_set0_wbio := LoadLibSSLFunction('SSL_set0_wbio'); + if not assigned(SSL_set0_wbio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set0_wbio'); + SSL_set0_wbio(s,wbio); +end; + +procedure Load_SSL_set_bio(s: PSSL; rbio: PBIO; wbio: PBIO); cdecl; +begin + SSL_set_bio := LoadLibSSLFunction('SSL_set_bio'); + if not assigned(SSL_set_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_bio'); + SSL_set_bio(s,rbio,wbio); +end; + +function Load_SSL_get_rbio(const s: PSSL): PBIO; cdecl; +begin + SSL_get_rbio := LoadLibSSLFunction('SSL_get_rbio'); + if not assigned(SSL_get_rbio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_rbio'); + Result := SSL_get_rbio(s); +end; + +function Load_SSL_get_wbio(const s: PSSL): PBIO; cdecl; +begin + SSL_get_wbio := LoadLibSSLFunction('SSL_get_wbio'); + if not assigned(SSL_get_wbio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_wbio'); + Result := SSL_get_wbio(s); +end; + +function Load_SSL_set_cipher_list(s: PSSL; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_set_cipher_list := LoadLibSSLFunction('SSL_set_cipher_list'); + if not assigned(SSL_set_cipher_list) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_cipher_list'); + Result := SSL_set_cipher_list(s,str); +end; + +function Load_SSL_CTX_set_ciphersuites(ctx: PSSL_CTX; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_ciphersuites := LoadLibSSLFunction('SSL_CTX_set_ciphersuites'); + if not assigned(SSL_CTX_set_ciphersuites) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_ciphersuites'); + Result := SSL_CTX_set_ciphersuites(ctx,str); +end; + +function Load_SSL_set_ciphersuites(s: PSSL; const str: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_set_ciphersuites := LoadLibSSLFunction('SSL_set_ciphersuites'); + if not assigned(SSL_set_ciphersuites) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_ciphersuites'); + Result := SSL_set_ciphersuites(s,str); +end; + +function Load_SSL_get_verify_mode(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_get_verify_mode := LoadLibSSLFunction('SSL_get_verify_mode'); + if not assigned(SSL_get_verify_mode) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_verify_mode'); + Result := SSL_get_verify_mode(s); +end; + +function Load_SSL_get_verify_depth(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_get_verify_depth := LoadLibSSLFunction('SSL_get_verify_depth'); + if not assigned(SSL_get_verify_depth) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_verify_depth'); + Result := SSL_get_verify_depth(s); +end; + +function Load_SSL_get_verify_callback(const s: PSSL): SSL_verify_cb; cdecl; +begin + SSL_get_verify_callback := LoadLibSSLFunction('SSL_get_verify_callback'); + if not assigned(SSL_get_verify_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_verify_callback'); + Result := SSL_get_verify_callback(s); +end; + +procedure Load_SSL_set_read_ahead(s: PSSL; yes: TOpenSSL_C_INT); cdecl; +begin + SSL_set_read_ahead := LoadLibSSLFunction('SSL_set_read_ahead'); + if not assigned(SSL_set_read_ahead) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_read_ahead'); + SSL_set_read_ahead(s,yes); +end; + +procedure Load_SSL_set_verify(s: PSSL; mode: TOpenSSL_C_INT; callback: SSL_verify_cb); cdecl; +begin + SSL_set_verify := LoadLibSSLFunction('SSL_set_verify'); + if not assigned(SSL_set_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_verify'); + SSL_set_verify(s,mode,callback); +end; + +procedure Load_SSL_set_verify_depth(s: PSSL; depth: TOpenSSL_C_INT); cdecl; +begin + SSL_set_verify_depth := LoadLibSSLFunction('SSL_set_verify_depth'); + if not assigned(SSL_set_verify_depth) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_verify_depth'); + SSL_set_verify_depth(s,depth); +end; + +function Load_SSL_use_RSAPrivateKey(ssl: PSSL; rsa: PRSA): TOpenSSL_C_INT; cdecl; +begin + SSL_use_RSAPrivateKey := LoadLibSSLFunction('SSL_use_RSAPrivateKey'); + if not assigned(SSL_use_RSAPrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_use_RSAPrivateKey'); + Result := SSL_use_RSAPrivateKey(ssl,rsa); +end; + +function Load_SSL_use_RSAPrivateKey_ASN1(ssl: PSSL; const d: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + SSL_use_RSAPrivateKey_ASN1 := LoadLibSSLFunction('SSL_use_RSAPrivateKey_ASN1'); + if not assigned(SSL_use_RSAPrivateKey_ASN1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_use_RSAPrivateKey_ASN1'); + Result := SSL_use_RSAPrivateKey_ASN1(ssl,d,len); +end; + +function Load_SSL_use_PrivateKey(ssl: PSSL; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + SSL_use_PrivateKey := LoadLibSSLFunction('SSL_use_PrivateKey'); + if not assigned(SSL_use_PrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_use_PrivateKey'); + Result := SSL_use_PrivateKey(ssl,pkey); +end; + +function Load_SSL_use_PrivateKey_ASN1(pk: TOpenSSL_C_INT; ssl: PSSL; const d: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + SSL_use_PrivateKey_ASN1 := LoadLibSSLFunction('SSL_use_PrivateKey_ASN1'); + if not assigned(SSL_use_PrivateKey_ASN1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_use_PrivateKey_ASN1'); + Result := SSL_use_PrivateKey_ASN1(pk,ssl,d,len); +end; + +function Load_SSL_use_certificate(ssl: PSSL; x: PX509): TOpenSSL_C_INT; cdecl; +begin + SSL_use_certificate := LoadLibSSLFunction('SSL_use_certificate'); + if not assigned(SSL_use_certificate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_use_certificate'); + Result := SSL_use_certificate(ssl,x); +end; + +function Load_SSL_use_certificate_ASN1(ssl: PSSL; const d: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_use_certificate_ASN1 := LoadLibSSLFunction('SSL_use_certificate_ASN1'); + if not assigned(SSL_use_certificate_ASN1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_use_certificate_ASN1'); + Result := SSL_use_certificate_ASN1(ssl,d,len); +end; + +function Load_SSL_CTX_use_serverinfo(ctx: PSSL_CTX; const serverinfo: PByte; serverinfo_length: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_use_serverinfo := LoadLibSSLFunction('SSL_CTX_use_serverinfo'); + if not assigned(SSL_CTX_use_serverinfo) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_use_serverinfo'); + Result := SSL_CTX_use_serverinfo(ctx,serverinfo,serverinfo_length); +end; + +function Load_SSL_CTX_use_serverinfo_ex(ctx: PSSL_CTX; version: TOpenSSL_C_UINT; const serverinfo: PByte; serverinfo_length: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_use_serverinfo_ex := LoadLibSSLFunction('SSL_CTX_use_serverinfo_ex'); + if not assigned(SSL_CTX_use_serverinfo_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_use_serverinfo_ex'); + Result := SSL_CTX_use_serverinfo_ex(ctx,version,serverinfo,serverinfo_length); +end; + +function Load_SSL_CTX_use_serverinfo_file(ctx: PSSL_CTX; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_use_serverinfo_file := LoadLibSSLFunction('SSL_CTX_use_serverinfo_file'); + if not assigned(SSL_CTX_use_serverinfo_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_use_serverinfo_file'); + Result := SSL_CTX_use_serverinfo_file(ctx,file_); +end; + +function Load_SSL_use_RSAPrivateKey_file(ssl: PSSL; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_use_RSAPrivateKey_file := LoadLibSSLFunction('SSL_use_RSAPrivateKey_file'); + if not assigned(SSL_use_RSAPrivateKey_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_use_RSAPrivateKey_file'); + Result := SSL_use_RSAPrivateKey_file(ssl,file_,type_); +end; + +function Load_SSL_use_PrivateKey_file(ssl: PSSL; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_use_PrivateKey_file := LoadLibSSLFunction('SSL_use_PrivateKey_file'); + if not assigned(SSL_use_PrivateKey_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_use_PrivateKey_file'); + Result := SSL_use_PrivateKey_file(ssl,file_,type_); +end; + +function Load_SSL_use_certificate_file(ssl: PSSL; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_use_certificate_file := LoadLibSSLFunction('SSL_use_certificate_file'); + if not assigned(SSL_use_certificate_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_use_certificate_file'); + Result := SSL_use_certificate_file(ssl,file_,type_); +end; + +function Load_SSL_CTX_use_RSAPrivateKey_file(ctx: PSSL_CTX; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_use_RSAPrivateKey_file := LoadLibSSLFunction('SSL_CTX_use_RSAPrivateKey_file'); + if not assigned(SSL_CTX_use_RSAPrivateKey_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_use_RSAPrivateKey_file'); + Result := SSL_CTX_use_RSAPrivateKey_file(ctx,file_,type_); +end; + +function Load_SSL_CTX_use_PrivateKey_file(ctx: PSSL_CTX; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_use_PrivateKey_file := LoadLibSSLFunction('SSL_CTX_use_PrivateKey_file'); + if not assigned(SSL_CTX_use_PrivateKey_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_use_PrivateKey_file'); + Result := SSL_CTX_use_PrivateKey_file(ctx,file_,type_); +end; + +function Load_SSL_CTX_use_certificate_file(ctx: PSSL_CTX; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_use_certificate_file := LoadLibSSLFunction('SSL_CTX_use_certificate_file'); + if not assigned(SSL_CTX_use_certificate_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_use_certificate_file'); + Result := SSL_CTX_use_certificate_file(ctx,file_,type_); +end; + +function Load_SSL_CTX_use_certificate_chain_file(ctx: PSSL_CTX; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_use_certificate_chain_file := LoadLibSSLFunction('SSL_CTX_use_certificate_chain_file'); + if not assigned(SSL_CTX_use_certificate_chain_file) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_CTX_use_certificate_chain_file := @COMPAT_SSL_CTX_use_certificate_chain_file; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_use_certificate_chain_file'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := SSL_CTX_use_certificate_chain_file(ctx,file_); +end; + +function Load_SSL_use_certificate_chain_file(ssl: PSSL; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_use_certificate_chain_file := LoadLibSSLFunction('SSL_use_certificate_chain_file'); + if not assigned(SSL_use_certificate_chain_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_use_certificate_chain_file'); + Result := SSL_use_certificate_chain_file(ssl,file_); +end; + +function Load_SSL_load_client_CA_file(const file_: PAnsiChar): PSTACK_OF_X509_NAME; cdecl; +begin + SSL_load_client_CA_file := LoadLibSSLFunction('SSL_load_client_CA_file'); + if not assigned(SSL_load_client_CA_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_load_client_CA_file'); + Result := SSL_load_client_CA_file(file_); +end; + +function Load_SSL_add_file_cert_subjects_to_stack(stackCAs: PSTACK_OF_X509_NAME; const file_: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_add_file_cert_subjects_to_stack := LoadLibSSLFunction('SSL_add_file_cert_subjects_to_stack'); + if not assigned(SSL_add_file_cert_subjects_to_stack) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_add_file_cert_subjects_to_stack'); + Result := SSL_add_file_cert_subjects_to_stack(stackCAs,file_); +end; + +function Load_SSL_add_dir_cert_subjects_to_stack(stackCAs: PSTACK_OF_X509_NAME; const dir_: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_add_dir_cert_subjects_to_stack := LoadLibSSLFunction('SSL_add_dir_cert_subjects_to_stack'); + if not assigned(SSL_add_dir_cert_subjects_to_stack) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_add_dir_cert_subjects_to_stack'); + Result := SSL_add_dir_cert_subjects_to_stack(stackCAs,dir_); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_SSL_load_error_strings; cdecl; +begin + SSL_load_error_strings := LoadLibSSLFunction('SSL_load_error_strings'); + if not assigned(SSL_load_error_strings) then + SSL_load_error_strings := @COMPAT_SSL_load_error_strings; + SSL_load_error_strings(); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_SSL_state_string(const s: PSSL): PAnsiChar; cdecl; +begin + SSL_state_string := LoadLibSSLFunction('SSL_state_string'); + if not assigned(SSL_state_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_state_string'); + Result := SSL_state_string(s); +end; + +function Load_SSL_rstate_string(const s: PSSL): PAnsiChar; cdecl; +begin + SSL_rstate_string := LoadLibSSLFunction('SSL_rstate_string'); + if not assigned(SSL_rstate_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_rstate_string'); + Result := SSL_rstate_string(s); +end; + +function Load_SSL_state_string_long(const s: PSSL): PAnsiChar; cdecl; +begin + SSL_state_string_long := LoadLibSSLFunction('SSL_state_string_long'); + if not assigned(SSL_state_string_long) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_state_string_long'); + Result := SSL_state_string_long(s); +end; + +function Load_SSL_rstate_string_long(const s: PSSL): PAnsiChar; cdecl; +begin + SSL_rstate_string_long := LoadLibSSLFunction('SSL_rstate_string_long'); + if not assigned(SSL_rstate_string_long) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_rstate_string_long'); + Result := SSL_rstate_string_long(s); +end; + +function Load_SSL_SESSION_get_time(const s: PSSL_SESSION): TOpenSSL_C_LONG; cdecl; +begin + SSL_SESSION_get_time := LoadLibSSLFunction('SSL_SESSION_get_time'); + if not assigned(SSL_SESSION_get_time) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get_time'); + Result := SSL_SESSION_get_time(s); +end; + +function Load_SSL_SESSION_set_time(s: PSSL_SESSION; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_SESSION_set_time := LoadLibSSLFunction('SSL_SESSION_set_time'); + if not assigned(SSL_SESSION_set_time) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_set_time'); + Result := SSL_SESSION_set_time(s,t); +end; + +function Load_SSL_SESSION_get_timeout(const s: PSSL_SESSION): TOpenSSL_C_LONG; cdecl; +begin + SSL_SESSION_get_timeout := LoadLibSSLFunction('SSL_SESSION_get_timeout'); + if not assigned(SSL_SESSION_get_timeout) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get_timeout'); + Result := SSL_SESSION_get_timeout(s); +end; + +function Load_SSL_SESSION_set_timeout(s: PSSL_SESSION; t: TOpenSSL_C_LONG): TOpenSSL_C_LONG; cdecl; +begin + SSL_SESSION_set_timeout := LoadLibSSLFunction('SSL_SESSION_set_timeout'); + if not assigned(SSL_SESSION_set_timeout) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_set_timeout'); + Result := SSL_SESSION_set_timeout(s,t); +end; + +function Load_SSL_SESSION_get_protocol_version(const s: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_get_protocol_version := LoadLibSSLFunction('SSL_SESSION_get_protocol_version'); + if not assigned(SSL_SESSION_get_protocol_version) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_SESSION_get_protocol_version := @COMPAT_SSL_SESSION_get_protocol_version; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get_protocol_version'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := SSL_SESSION_get_protocol_version(s); +end; + +function Load_SSL_SESSION_set_protocol_version(s: PSSL_SESSION; version: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_set_protocol_version := LoadLibSSLFunction('SSL_SESSION_set_protocol_version'); + if not assigned(SSL_SESSION_set_protocol_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_set_protocol_version'); + Result := SSL_SESSION_set_protocol_version(s,version); +end; + +function Load_SSL_SESSION_get0_hostname(const s: PSSL_SESSION): PAnsiChar; cdecl; +begin + SSL_SESSION_get0_hostname := LoadLibSSLFunction('SSL_SESSION_get0_hostname'); + if not assigned(SSL_SESSION_get0_hostname) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get0_hostname'); + Result := SSL_SESSION_get0_hostname(s); +end; + +function Load_SSL_SESSION_set1_hostname(s: PSSL_SESSION; const hostname: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_set1_hostname := LoadLibSSLFunction('SSL_SESSION_set1_hostname'); + if not assigned(SSL_SESSION_set1_hostname) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_set1_hostname'); + Result := SSL_SESSION_set1_hostname(s,hostname); +end; + +procedure Load_SSL_SESSION_get0_alpn_selected(const s: PSSL_SESSION; const alpn: PPByte; len: POpenSSL_C_SIZET); cdecl; +begin + SSL_SESSION_get0_alpn_selected := LoadLibSSLFunction('SSL_SESSION_get0_alpn_selected'); + if not assigned(SSL_SESSION_get0_alpn_selected) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get0_alpn_selected'); + SSL_SESSION_get0_alpn_selected(s,alpn,len); +end; + +function Load_SSL_SESSION_set1_alpn_selected(s: PSSL_SESSION; const alpn: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_set1_alpn_selected := LoadLibSSLFunction('SSL_SESSION_set1_alpn_selected'); + if not assigned(SSL_SESSION_set1_alpn_selected) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_set1_alpn_selected'); + Result := SSL_SESSION_set1_alpn_selected(s,alpn,len); +end; + +function Load_SSL_SESSION_get0_cipher(const s: PSSL_SESSION): PSSL_CIPHER; cdecl; +begin + SSL_SESSION_get0_cipher := LoadLibSSLFunction('SSL_SESSION_get0_cipher'); + if not assigned(SSL_SESSION_get0_cipher) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get0_cipher'); + Result := SSL_SESSION_get0_cipher(s); +end; + +function Load_SSL_SESSION_set_cipher(s: PSSL_SESSION; const cipher: PSSL_CIPHER): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_set_cipher := LoadLibSSLFunction('SSL_SESSION_set_cipher'); + if not assigned(SSL_SESSION_set_cipher) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_set_cipher'); + Result := SSL_SESSION_set_cipher(s,cipher); +end; + +function Load_SSL_SESSION_has_ticket(const s: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_has_ticket := LoadLibSSLFunction('SSL_SESSION_has_ticket'); + if not assigned(SSL_SESSION_has_ticket) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_has_ticket'); + Result := SSL_SESSION_has_ticket(s); +end; + +function Load_SSL_SESSION_get_ticket_lifetime_hint(const s: PSSL_SESSION): TOpenSSL_C_ULONG; cdecl; +begin + SSL_SESSION_get_ticket_lifetime_hint := LoadLibSSLFunction('SSL_SESSION_get_ticket_lifetime_hint'); + if not assigned(SSL_SESSION_get_ticket_lifetime_hint) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get_ticket_lifetime_hint'); + Result := SSL_SESSION_get_ticket_lifetime_hint(s); +end; + +procedure Load_SSL_SESSION_get0_ticket(const s: PSSL_SESSION; const tick: PPByte; len: POpenSSL_C_SIZET); cdecl; +begin + SSL_SESSION_get0_ticket := LoadLibSSLFunction('SSL_SESSION_get0_ticket'); + if not assigned(SSL_SESSION_get0_ticket) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get0_ticket'); + SSL_SESSION_get0_ticket(s,tick,len); +end; + +function Load_SSL_SESSION_get_max_early_data(const s: PSSL_SESSION): TOpenSSL_C_UINT32; cdecl; +begin + SSL_SESSION_get_max_early_data := LoadLibSSLFunction('SSL_SESSION_get_max_early_data'); + if not assigned(SSL_SESSION_get_max_early_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get_max_early_data'); + Result := SSL_SESSION_get_max_early_data(s); +end; + +function Load_SSL_SESSION_set_max_early_data(s: PSSL_SESSION; max_early_data: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_set_max_early_data := LoadLibSSLFunction('SSL_SESSION_set_max_early_data'); + if not assigned(SSL_SESSION_set_max_early_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_set_max_early_data'); + Result := SSL_SESSION_set_max_early_data(s,max_early_data); +end; + +function Load_SSL_copy_session_id(to_: PSSL; const from: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_copy_session_id := LoadLibSSLFunction('SSL_copy_session_id'); + if not assigned(SSL_copy_session_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_copy_session_id'); + Result := SSL_copy_session_id(to_,from); +end; + +function Load_SSL_SESSION_get0_peer(s: PSSL_SESSION): PX509; cdecl; +begin + SSL_SESSION_get0_peer := LoadLibSSLFunction('SSL_SESSION_get0_peer'); + if not assigned(SSL_SESSION_get0_peer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get0_peer'); + Result := SSL_SESSION_get0_peer(s); +end; + +function Load_SSL_SESSION_set1_id_context(s: PSSL_SESSION; const sid_ctx: PByte; sid_ctx_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_set1_id_context := LoadLibSSLFunction('SSL_SESSION_set1_id_context'); + if not assigned(SSL_SESSION_set1_id_context) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_set1_id_context'); + Result := SSL_SESSION_set1_id_context(s,sid_ctx,sid_ctx_len); +end; + +function Load_SSL_SESSION_set1_id(s: PSSL_SESSION; const sid: PByte; sid_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_set1_id := LoadLibSSLFunction('SSL_SESSION_set1_id'); + if not assigned(SSL_SESSION_set1_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_set1_id'); + Result := SSL_SESSION_set1_id(s,sid,sid_len); +end; + +function Load_SSL_SESSION_is_resumable(const s: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_is_resumable := LoadLibSSLFunction('SSL_SESSION_is_resumable'); + if not assigned(SSL_SESSION_is_resumable) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_is_resumable'); + Result := SSL_SESSION_is_resumable(s); +end; + +function Load_SSL_SESSION_new: PSSL_SESSION; cdecl; +begin + SSL_SESSION_new := LoadLibSSLFunction('SSL_SESSION_new'); + if not assigned(SSL_SESSION_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_new'); + Result := SSL_SESSION_new(); +end; + +function Load_SSL_SESSION_dup(src: PSSL_SESSION): PSSL_SESSION; cdecl; +begin + SSL_SESSION_dup := LoadLibSSLFunction('SSL_SESSION_dup'); + if not assigned(SSL_SESSION_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_dup'); + Result := SSL_SESSION_dup(src); +end; + +function Load_SSL_SESSION_get_id(const s: PSSL_SESSION; len: POpenSSL_C_UINT): PByte; cdecl; +begin + SSL_SESSION_get_id := LoadLibSSLFunction('SSL_SESSION_get_id'); + if not assigned(SSL_SESSION_get_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get_id'); + Result := SSL_SESSION_get_id(s,len); +end; + +function Load_SSL_SESSION_get0_id_context(const s: PSSL_SESSION; len: POpenSSL_C_UINT): PByte; cdecl; +begin + SSL_SESSION_get0_id_context := LoadLibSSLFunction('SSL_SESSION_get0_id_context'); + if not assigned(SSL_SESSION_get0_id_context) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get0_id_context'); + Result := SSL_SESSION_get0_id_context(s,len); +end; + +function Load_SSL_SESSION_get_compress_id(const s: PSSL_SESSION): TOpenSSL_C_UINT; cdecl; +begin + SSL_SESSION_get_compress_id := LoadLibSSLFunction('SSL_SESSION_get_compress_id'); + if not assigned(SSL_SESSION_get_compress_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get_compress_id'); + Result := SSL_SESSION_get_compress_id(s); +end; + +function Load_SSL_SESSION_print(fp: PBIO; const ses: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_print := LoadLibSSLFunction('SSL_SESSION_print'); + if not assigned(SSL_SESSION_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_print'); + Result := SSL_SESSION_print(fp,ses); +end; + +function Load_SSL_SESSION_print_keylog(bp: PBIO; const x: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_print_keylog := LoadLibSSLFunction('SSL_SESSION_print_keylog'); + if not assigned(SSL_SESSION_print_keylog) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_print_keylog'); + Result := SSL_SESSION_print_keylog(bp,x); +end; + +function Load_SSL_SESSION_up_ref(ses: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_up_ref := LoadLibSSLFunction('SSL_SESSION_up_ref'); + if not assigned(SSL_SESSION_up_ref) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_up_ref'); + Result := SSL_SESSION_up_ref(ses); +end; + +procedure Load_SSL_SESSION_free(ses: PSSL_SESSION); cdecl; +begin + SSL_SESSION_free := LoadLibSSLFunction('SSL_SESSION_free'); + if not assigned(SSL_SESSION_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_free'); + SSL_SESSION_free(ses); +end; + +function Load_SSL_set_session(to_: PSSL; session: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +begin + SSL_set_session := LoadLibSSLFunction('SSL_set_session'); + if not assigned(SSL_set_session) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_session'); + Result := SSL_set_session(to_,session); +end; + +function Load_SSL_CTX_add_session(ctx: PSSL_CTX; session: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_add_session := LoadLibSSLFunction('SSL_CTX_add_session'); + if not assigned(SSL_CTX_add_session) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_add_session'); + Result := SSL_CTX_add_session(ctx,session); +end; + +function Load_SSL_CTX_remove_session(ctx: PSSL_CTX; session: PSSL_SESSION): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_remove_session := LoadLibSSLFunction('SSL_CTX_remove_session'); + if not assigned(SSL_CTX_remove_session) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_remove_session'); + Result := SSL_CTX_remove_session(ctx,session); +end; + +function Load_SSL_CTX_set_generate_session_id(ctx: PSSL_CTX; cb: GEN_SESSION_CB): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_generate_session_id := LoadLibSSLFunction('SSL_CTX_set_generate_session_id'); + if not assigned(SSL_CTX_set_generate_session_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_generate_session_id'); + Result := SSL_CTX_set_generate_session_id(ctx,cb); +end; + +function Load_SSL_set_generate_session_id(s: PSSL; cb: GEN_SESSION_CB): TOpenSSL_C_INT; cdecl; +begin + SSL_set_generate_session_id := LoadLibSSLFunction('SSL_set_generate_session_id'); + if not assigned(SSL_set_generate_session_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_generate_session_id'); + Result := SSL_set_generate_session_id(s,cb); +end; + +function Load_SSL_has_matching_session_id(const s: PSSL; const id: PByte; id_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + SSL_has_matching_session_id := LoadLibSSLFunction('SSL_has_matching_session_id'); + if not assigned(SSL_has_matching_session_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_has_matching_session_id'); + Result := SSL_has_matching_session_id(s,id,id_len); +end; + +function Load_d2i_SSL_SESSION(a: PPSSL_SESSION; const pp: PPByte; length: TOpenSSL_C_LONG): PSSL_SESSION; cdecl; +begin + d2i_SSL_SESSION := LoadLibSSLFunction('d2i_SSL_SESSION'); + if not assigned(d2i_SSL_SESSION) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_SSL_SESSION'); + Result := d2i_SSL_SESSION(a,pp,length); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_SSL_get_peer_certificate(const s: PSSL): PX509; cdecl; +begin + SSL_get_peer_certificate := LoadLibSSLFunction('SSL_get_peer_certificate'); + if not assigned(SSL_get_peer_certificate) then + SSL_get_peer_certificate := @COMPAT_SSL_get_peer_certificate; + Result := SSL_get_peer_certificate(s); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_SSL_CTX_get_verify_mode(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_get_verify_mode := LoadLibSSLFunction('SSL_CTX_get_verify_mode'); + if not assigned(SSL_CTX_get_verify_mode) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_verify_mode'); + Result := SSL_CTX_get_verify_mode(ctx); +end; + +function Load_SSL_CTX_get_verify_depth(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_get_verify_depth := LoadLibSSLFunction('SSL_CTX_get_verify_depth'); + if not assigned(SSL_CTX_get_verify_depth) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_verify_depth'); + Result := SSL_CTX_get_verify_depth(ctx); +end; + +function Load_SSL_CTX_get_verify_callback(const ctx: PSSL_CTX): SSL_verify_cb; cdecl; +begin + SSL_CTX_get_verify_callback := LoadLibSSLFunction('SSL_CTX_get_verify_callback'); + if not assigned(SSL_CTX_get_verify_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_verify_callback'); + Result := SSL_CTX_get_verify_callback(ctx); +end; + +procedure Load_SSL_CTX_set_verify(ctx: PSSL_CTX; mode: TOpenSSL_C_INT; callback: SSL_verify_cb); cdecl; +begin + SSL_CTX_set_verify := LoadLibSSLFunction('SSL_CTX_set_verify'); + if not assigned(SSL_CTX_set_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_verify'); + SSL_CTX_set_verify(ctx,mode,callback); +end; + +procedure Load_SSL_CTX_set_verify_depth(ctx: PSSL_CTX; depth: TOpenSSL_C_INT); cdecl; +begin + SSL_CTX_set_verify_depth := LoadLibSSLFunction('SSL_CTX_set_verify_depth'); + if not assigned(SSL_CTX_set_verify_depth) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_verify_depth'); + SSL_CTX_set_verify_depth(ctx,depth); +end; + +procedure Load_SSL_CTX_set_cert_verify_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_cert_verify_callback_cb; arg: Pointer); cdecl; +begin + SSL_CTX_set_cert_verify_callback := LoadLibSSLFunction('SSL_CTX_set_cert_verify_callback'); + if not assigned(SSL_CTX_set_cert_verify_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_cert_verify_callback'); + SSL_CTX_set_cert_verify_callback(ctx,cb,arg); +end; + +procedure Load_SSL_CTX_set_cert_cb(c: PSSL_CTX; cb: SSL_CTX_set_cert_cb_cb; arg: Pointer); cdecl; +begin + SSL_CTX_set_cert_cb := LoadLibSSLFunction('SSL_CTX_set_cert_cb'); + if not assigned(SSL_CTX_set_cert_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_cert_cb'); + SSL_CTX_set_cert_cb(c,cb,arg); +end; + +function Load_SSL_CTX_use_RSAPrivateKey(ctx: PSSL_CTX; rsa: PRSA): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_use_RSAPrivateKey := LoadLibSSLFunction('SSL_CTX_use_RSAPrivateKey'); + if not assigned(SSL_CTX_use_RSAPrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_use_RSAPrivateKey'); + Result := SSL_CTX_use_RSAPrivateKey(ctx,rsa); +end; + +function Load_SSL_CTX_use_RSAPrivateKey_ASN1(ctx: PSSL_CTX; const d: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_use_RSAPrivateKey_ASN1 := LoadLibSSLFunction('SSL_CTX_use_RSAPrivateKey_ASN1'); + if not assigned(SSL_CTX_use_RSAPrivateKey_ASN1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_use_RSAPrivateKey_ASN1'); + Result := SSL_CTX_use_RSAPrivateKey_ASN1(ctx,d,len); +end; + +function Load_SSL_CTX_use_PrivateKey(ctx: PSSL_CTX; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_use_PrivateKey := LoadLibSSLFunction('SSL_CTX_use_PrivateKey'); + if not assigned(SSL_CTX_use_PrivateKey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_use_PrivateKey'); + Result := SSL_CTX_use_PrivateKey(ctx,pkey); +end; + +function Load_SSL_CTX_use_PrivateKey_ASN1(pk: TOpenSSL_C_INT; ctx: PSSL_CTX; const d: PByte; len: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_use_PrivateKey_ASN1 := LoadLibSSLFunction('SSL_CTX_use_PrivateKey_ASN1'); + if not assigned(SSL_CTX_use_PrivateKey_ASN1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_use_PrivateKey_ASN1'); + Result := SSL_CTX_use_PrivateKey_ASN1(pk,ctx,d,len); +end; + +function Load_SSL_CTX_use_certificate(ctx: PSSL_CTX; x: X509): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_use_certificate := LoadLibSSLFunction('SSL_CTX_use_certificate'); + if not assigned(SSL_CTX_use_certificate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_use_certificate'); + Result := SSL_CTX_use_certificate(ctx,x); +end; + +function Load_SSL_CTX_use_certificate_ASN1(ctx: PSSL_CTX; len: TOpenSSL_C_INT; const d: PByte): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_use_certificate_ASN1 := LoadLibSSLFunction('SSL_CTX_use_certificate_ASN1'); + if not assigned(SSL_CTX_use_certificate_ASN1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_use_certificate_ASN1'); + Result := SSL_CTX_use_certificate_ASN1(ctx,len,d); +end; + +procedure Load_SSL_CTX_set_default_passwd_cb(ctx: PSSL_CTX; cb: pem_password_cb); cdecl; +begin + SSL_CTX_set_default_passwd_cb := LoadLibSSLFunction('SSL_CTX_set_default_passwd_cb'); + if not assigned(SSL_CTX_set_default_passwd_cb) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_CTX_set_default_passwd_cb := @COMPAT_SSL_CTX_set_default_passwd_cb; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_default_passwd_cb'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + SSL_CTX_set_default_passwd_cb(ctx,cb); +end; + +procedure Load_SSL_CTX_set_default_passwd_cb_userdata(ctx: PSSL_CTX; u: Pointer); cdecl; +begin + SSL_CTX_set_default_passwd_cb_userdata := LoadLibSSLFunction('SSL_CTX_set_default_passwd_cb_userdata'); + if not assigned(SSL_CTX_set_default_passwd_cb_userdata) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_CTX_set_default_passwd_cb_userdata := @COMPAT_SSL_CTX_set_default_passwd_cb_userdata; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_default_passwd_cb_userdata'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + SSL_CTX_set_default_passwd_cb_userdata(ctx,u); +end; + +function Load_SSL_CTX_get_default_passwd_cb(ctx: PSSL_CTX): pem_password_cb; cdecl; +begin + SSL_CTX_get_default_passwd_cb := LoadLibSSLFunction('SSL_CTX_get_default_passwd_cb'); + if not assigned(SSL_CTX_get_default_passwd_cb) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_CTX_get_default_passwd_cb := @COMPAT_SSL_CTX_get_default_passwd_cb; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_default_passwd_cb'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := SSL_CTX_get_default_passwd_cb(ctx); +end; + +function Load_SSL_CTX_get_default_passwd_cb_userdata(ctx: PSSL_CTX): Pointer; cdecl; +begin + SSL_CTX_get_default_passwd_cb_userdata := LoadLibSSLFunction('SSL_CTX_get_default_passwd_cb_userdata'); + if not assigned(SSL_CTX_get_default_passwd_cb_userdata) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_CTX_get_default_passwd_cb_userdata := @COMPAT_SSL_CTX_get_default_passwd_cb_userdata; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_default_passwd_cb_userdata'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := SSL_CTX_get_default_passwd_cb_userdata(ctx); +end; + +procedure Load_SSL_set_default_passwd_cb(s: PSSL; cb: pem_password_cb); cdecl; +begin + SSL_set_default_passwd_cb := LoadLibSSLFunction('SSL_set_default_passwd_cb'); + if not assigned(SSL_set_default_passwd_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_default_passwd_cb'); + SSL_set_default_passwd_cb(s,cb); +end; + +procedure Load_SSL_set_default_passwd_cb_userdata(s: PSSL; u: Pointer); cdecl; +begin + SSL_set_default_passwd_cb_userdata := LoadLibSSLFunction('SSL_set_default_passwd_cb_userdata'); + if not assigned(SSL_set_default_passwd_cb_userdata) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_default_passwd_cb_userdata'); + SSL_set_default_passwd_cb_userdata(s,u); +end; + +function Load_SSL_get_default_passwd_cb(s: PSSL): pem_password_cb; cdecl; +begin + SSL_get_default_passwd_cb := LoadLibSSLFunction('SSL_get_default_passwd_cb'); + if not assigned(SSL_get_default_passwd_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_default_passwd_cb'); + Result := SSL_get_default_passwd_cb(s); +end; + +function Load_SSL_get_default_passwd_cb_userdata(s: PSSL): Pointer; cdecl; +begin + SSL_get_default_passwd_cb_userdata := LoadLibSSLFunction('SSL_get_default_passwd_cb_userdata'); + if not assigned(SSL_get_default_passwd_cb_userdata) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_default_passwd_cb_userdata'); + Result := SSL_get_default_passwd_cb_userdata(s); +end; + +function Load_SSL_CTX_check_private_key(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_check_private_key := LoadLibSSLFunction('SSL_CTX_check_private_key'); + if not assigned(SSL_CTX_check_private_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_check_private_key'); + Result := SSL_CTX_check_private_key(ctx); +end; + +function Load_SSL_check_private_key(const ctx: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_check_private_key := LoadLibSSLFunction('SSL_check_private_key'); + if not assigned(SSL_check_private_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_check_private_key'); + Result := SSL_check_private_key(ctx); +end; + +function Load_SSL_CTX_set_session_id_context(ctx: PSSL_CTX; const sid_ctx: PByte; sid_ctx_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_session_id_context := LoadLibSSLFunction('SSL_CTX_set_session_id_context'); + if not assigned(SSL_CTX_set_session_id_context) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_session_id_context'); + Result := SSL_CTX_set_session_id_context(ctx,sid_ctx,sid_ctx_len); +end; + +function Load_SSL_new(ctx: PSSL_CTX): PSSL; cdecl; +begin + SSL_new := LoadLibSSLFunction('SSL_new'); + if not assigned(SSL_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_new'); + Result := SSL_new(ctx); +end; + +function Load_SSL_up_ref(s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_up_ref := LoadLibSSLFunction('SSL_up_ref'); + if not assigned(SSL_up_ref) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_up_ref'); + Result := SSL_up_ref(s); +end; + +function Load_SSL_is_dtls(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_is_dtls := LoadLibSSLFunction('SSL_is_dtls'); + if not assigned(SSL_is_dtls) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_is_dtls'); + Result := SSL_is_dtls(s); +end; + +function Load_SSL_set_session_id_context(ssl: PSSL; const sid_ctx: PByte; sid_ctx_len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + SSL_set_session_id_context := LoadLibSSLFunction('SSL_set_session_id_context'); + if not assigned(SSL_set_session_id_context) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_session_id_context'); + Result := SSL_set_session_id_context(ssl,sid_ctx,sid_ctx_len); +end; + +function Load_SSL_CTX_set_purpose(ctx: PSSL_CTX; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_purpose := LoadLibSSLFunction('SSL_CTX_set_purpose'); + if not assigned(SSL_CTX_set_purpose) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_purpose'); + Result := SSL_CTX_set_purpose(ctx,purpose); +end; + +function Load_SSL_set_purpose(ssl: PSSL; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_set_purpose := LoadLibSSLFunction('SSL_set_purpose'); + if not assigned(SSL_set_purpose) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_purpose'); + Result := SSL_set_purpose(ssl,purpose); +end; + +function Load_SSL_CTX_set_trust(ctx: PSSL_CTX; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_trust := LoadLibSSLFunction('SSL_CTX_set_trust'); + if not assigned(SSL_CTX_set_trust) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_trust'); + Result := SSL_CTX_set_trust(ctx,trust); +end; + +function Load_SSL_set_trust(ssl: PSSL; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_set_trust := LoadLibSSLFunction('SSL_set_trust'); + if not assigned(SSL_set_trust) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_trust'); + Result := SSL_set_trust(ssl,trust); +end; + +function Load_SSL_set1_host(s: PSSL; const hostname: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_set1_host := LoadLibSSLFunction('SSL_set1_host'); + if not assigned(SSL_set1_host) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set1_host'); + Result := SSL_set1_host(s,hostname); +end; + +function Load_SSL_add1_host(s: PSSL; const hostname: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_add1_host := LoadLibSSLFunction('SSL_add1_host'); + if not assigned(SSL_add1_host) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_add1_host'); + Result := SSL_add1_host(s,hostname); +end; + +function Load_SSL_get0_peername(s: PSSL): PAnsiChar; cdecl; +begin + SSL_get0_peername := LoadLibSSLFunction('SSL_get0_peername'); + if not assigned(SSL_get0_peername) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get0_peername'); + Result := SSL_get0_peername(s); +end; + +procedure Load_SSL_set_hostflags(s: PSSL; flags: TOpenSSL_C_UINT); cdecl; +begin + SSL_set_hostflags := LoadLibSSLFunction('SSL_set_hostflags'); + if not assigned(SSL_set_hostflags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_hostflags'); + SSL_set_hostflags(s,flags); +end; + +function Load_SSL_CTX_dane_enable(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_dane_enable := LoadLibSSLFunction('SSL_CTX_dane_enable'); + if not assigned(SSL_CTX_dane_enable) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_dane_enable'); + Result := SSL_CTX_dane_enable(ctx); +end; + +function Load_SSL_CTX_dane_mtype_set(ctx: PSSL_CTX; const md: PEVP_MD; mtype: TOpenSSL_C_UINT8; ord: TOpenSSL_C_UINT8): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_dane_mtype_set := LoadLibSSLFunction('SSL_CTX_dane_mtype_set'); + if not assigned(SSL_CTX_dane_mtype_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_dane_mtype_set'); + Result := SSL_CTX_dane_mtype_set(ctx,md,mtype,ord); +end; + +function Load_SSL_dane_enable(s: PSSL; const basedomain: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_dane_enable := LoadLibSSLFunction('SSL_dane_enable'); + if not assigned(SSL_dane_enable) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_dane_enable'); + Result := SSL_dane_enable(s,basedomain); +end; + +function Load_SSL_dane_tlsa_add(s: PSSL; usage: TOpenSSL_C_UINT8; selector: TOpenSSL_C_UINT8; mtype: TOpenSSL_C_UINT8; const data: PByte; dlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_dane_tlsa_add := LoadLibSSLFunction('SSL_dane_tlsa_add'); + if not assigned(SSL_dane_tlsa_add) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_dane_tlsa_add'); + Result := SSL_dane_tlsa_add(s,usage,selector,mtype,data,dlen); +end; + +function Load_SSL_get0_dane_authority(s: PSSL; mcert: PPX509; mspki: PPEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + SSL_get0_dane_authority := LoadLibSSLFunction('SSL_get0_dane_authority'); + if not assigned(SSL_get0_dane_authority) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get0_dane_authority'); + Result := SSL_get0_dane_authority(s,mcert,mspki); +end; + +function Load_SSL_get0_dane_tlsa(s: PSSL; usage: POpenSSL_C_UINT8; selector: POpenSSL_C_UINT8; mtype: POpenSSL_C_UINT8; const data: PPByte; dlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_get0_dane_tlsa := LoadLibSSLFunction('SSL_get0_dane_tlsa'); + if not assigned(SSL_get0_dane_tlsa) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get0_dane_tlsa'); + Result := SSL_get0_dane_tlsa(s,usage,selector,mtype,data,dlen); +end; + +function Load_SSL_get0_dane(ssl: PSSL): PSSL_DANE; cdecl; +begin + SSL_get0_dane := LoadLibSSLFunction('SSL_get0_dane'); + if not assigned(SSL_get0_dane) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get0_dane'); + Result := SSL_get0_dane(ssl); +end; + +function Load_SSL_CTX_dane_set_flags(ctx: PSSL_CTX; flags: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; +begin + SSL_CTX_dane_set_flags := LoadLibSSLFunction('SSL_CTX_dane_set_flags'); + if not assigned(SSL_CTX_dane_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_dane_set_flags'); + Result := SSL_CTX_dane_set_flags(ctx,flags); +end; + +function Load_SSL_CTX_dane_clear_flags(ctx: PSSL_CTX; flags: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; +begin + SSL_CTX_dane_clear_flags := LoadLibSSLFunction('SSL_CTX_dane_clear_flags'); + if not assigned(SSL_CTX_dane_clear_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_dane_clear_flags'); + Result := SSL_CTX_dane_clear_flags(ctx,flags); +end; + +function Load_SSL_dane_set_flags(ssl: PSSL; flags: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; +begin + SSL_dane_set_flags := LoadLibSSLFunction('SSL_dane_set_flags'); + if not assigned(SSL_dane_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_dane_set_flags'); + Result := SSL_dane_set_flags(ssl,flags); +end; + +function Load_SSL_dane_clear_flags(ssl: PSSL; flags: TOpenSSL_C_ULONG): TOpenSSL_C_ULONG; cdecl; +begin + SSL_dane_clear_flags := LoadLibSSLFunction('SSL_dane_clear_flags'); + if not assigned(SSL_dane_clear_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_dane_clear_flags'); + Result := SSL_dane_clear_flags(ssl,flags); +end; + +function Load_SSL_CTX_set1_param(ctx: PSSL_CTX; vpm: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set1_param := LoadLibSSLFunction('SSL_CTX_set1_param'); + if not assigned(SSL_CTX_set1_param) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set1_param'); + Result := SSL_CTX_set1_param(ctx,vpm); +end; + +function Load_SSL_set1_param(ssl: PSSL; vpm: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; +begin + SSL_set1_param := LoadLibSSLFunction('SSL_set1_param'); + if not assigned(SSL_set1_param) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set1_param'); + Result := SSL_set1_param(ssl,vpm); +end; + +function Load_SSL_CTX_get0_param(ctx: PSSL_CTX): PX509_VERIFY_PARAM; cdecl; +begin + SSL_CTX_get0_param := LoadLibSSLFunction('SSL_CTX_get0_param'); + if not assigned(SSL_CTX_get0_param) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get0_param'); + Result := SSL_CTX_get0_param(ctx); +end; + +function Load_SSL_get0_param(ssl: PSSL): PX509_VERIFY_PARAM; cdecl; +begin + SSL_get0_param := LoadLibSSLFunction('SSL_get0_param'); + if not assigned(SSL_get0_param) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get0_param'); + Result := SSL_get0_param(ssl); +end; + +function Load_SSL_CTX_set_srp_username(ctx: PSSL_CTX; name: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_srp_username := LoadLibSSLFunction('SSL_CTX_set_srp_username'); + if not assigned(SSL_CTX_set_srp_username) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_srp_username'); + Result := SSL_CTX_set_srp_username(ctx,name); +end; + +function Load_SSL_CTX_set_srp_password(ctx: PSSL_CTX; password: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_srp_password := LoadLibSSLFunction('SSL_CTX_set_srp_password'); + if not assigned(SSL_CTX_set_srp_password) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_srp_password'); + Result := SSL_CTX_set_srp_password(ctx,password); +end; + +function Load_SSL_CTX_set_srp_strength(ctx: PSSL_CTX; strength: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_srp_strength := LoadLibSSLFunction('SSL_CTX_set_srp_strength'); + if not assigned(SSL_CTX_set_srp_strength) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_srp_strength'); + Result := SSL_CTX_set_srp_strength(ctx,strength); +end; + +function Load_SSL_CTX_set_srp_client_pwd_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_srp_client_pwd_callback_cb): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_srp_client_pwd_callback := LoadLibSSLFunction('SSL_CTX_set_srp_client_pwd_callback'); + if not assigned(SSL_CTX_set_srp_client_pwd_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_srp_client_pwd_callback'); + Result := SSL_CTX_set_srp_client_pwd_callback(ctx,cb); +end; + +function Load_SSL_CTX_set_srp_verify_param_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_srp_verify_param_callback_cb): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_srp_verify_param_callback := LoadLibSSLFunction('SSL_CTX_set_srp_verify_param_callback'); + if not assigned(SSL_CTX_set_srp_verify_param_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_srp_verify_param_callback'); + Result := SSL_CTX_set_srp_verify_param_callback(ctx,cb); +end; + +function Load_SSL_CTX_set_srp_username_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_srp_username_callback_cb): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_srp_username_callback := LoadLibSSLFunction('SSL_CTX_set_srp_username_callback'); + if not assigned(SSL_CTX_set_srp_username_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_srp_username_callback'); + Result := SSL_CTX_set_srp_username_callback(ctx,cb); +end; + +function Load_SSL_CTX_set_srp_cb_arg(ctx: PSSL_CTX; arg: Pointer): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_srp_cb_arg := LoadLibSSLFunction('SSL_CTX_set_srp_cb_arg'); + if not assigned(SSL_CTX_set_srp_cb_arg) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_srp_cb_arg'); + Result := SSL_CTX_set_srp_cb_arg(ctx,arg); +end; + +function Load_SSL_set_srp_server_param(s: PSSL; const N: PBIGNUm; const g: PBIGNUm; sa: PBIGNUm; v: PBIGNUm; info: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_set_srp_server_param := LoadLibSSLFunction('SSL_set_srp_server_param'); + if not assigned(SSL_set_srp_server_param) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_srp_server_param'); + Result := SSL_set_srp_server_param(s,N,g,sa,v,info); +end; + +function Load_SSL_set_srp_server_param_pw(s: PSSL; const user: PAnsiChar; const pass: PAnsiChar; const grp: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_set_srp_server_param_pw := LoadLibSSLFunction('SSL_set_srp_server_param_pw'); + if not assigned(SSL_set_srp_server_param_pw) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_srp_server_param_pw'); + Result := SSL_set_srp_server_param_pw(s,user,pass,grp); +end; + +procedure Load_SSL_CTX_set_client_hello_cb(c: PSSL_CTX; cb: SSL_client_hello_cb_fn; arg: Pointer); cdecl; +begin + SSL_CTX_set_client_hello_cb := LoadLibSSLFunction('SSL_CTX_set_client_hello_cb'); + if not assigned(SSL_CTX_set_client_hello_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_client_hello_cb'); + SSL_CTX_set_client_hello_cb(c,cb,arg); +end; + +function Load_SSL_client_hello_isv2(s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_client_hello_isv2 := LoadLibSSLFunction('SSL_client_hello_isv2'); + if not assigned(SSL_client_hello_isv2) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_client_hello_isv2'); + Result := SSL_client_hello_isv2(s); +end; + +function Load_SSL_client_hello_get0_legacy_version(s: PSSL): TOpenSSL_C_UINT; cdecl; +begin + SSL_client_hello_get0_legacy_version := LoadLibSSLFunction('SSL_client_hello_get0_legacy_version'); + if not assigned(SSL_client_hello_get0_legacy_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_client_hello_get0_legacy_version'); + Result := SSL_client_hello_get0_legacy_version(s); +end; + +function Load_SSL_client_hello_get0_random(s: PSSL; const out_: PPByte): TOpenSSL_C_SIZET; cdecl; +begin + SSL_client_hello_get0_random := LoadLibSSLFunction('SSL_client_hello_get0_random'); + if not assigned(SSL_client_hello_get0_random) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_client_hello_get0_random'); + Result := SSL_client_hello_get0_random(s,out_); +end; + +function Load_SSL_client_hello_get0_session_id(s: PSSL; const out_: PPByte): TOpenSSL_C_SIZET; cdecl; +begin + SSL_client_hello_get0_session_id := LoadLibSSLFunction('SSL_client_hello_get0_session_id'); + if not assigned(SSL_client_hello_get0_session_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_client_hello_get0_session_id'); + Result := SSL_client_hello_get0_session_id(s,out_); +end; + +function Load_SSL_client_hello_get0_ciphers(s: PSSL; const out_: PPByte): TOpenSSL_C_SIZET; cdecl; +begin + SSL_client_hello_get0_ciphers := LoadLibSSLFunction('SSL_client_hello_get0_ciphers'); + if not assigned(SSL_client_hello_get0_ciphers) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_client_hello_get0_ciphers'); + Result := SSL_client_hello_get0_ciphers(s,out_); +end; + +function Load_SSL_client_hello_get0_compression_methods(s: PSSL; const out_: PPByte): TOpenSSL_C_SIZET; cdecl; +begin + SSL_client_hello_get0_compression_methods := LoadLibSSLFunction('SSL_client_hello_get0_compression_methods'); + if not assigned(SSL_client_hello_get0_compression_methods) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_client_hello_get0_compression_methods'); + Result := SSL_client_hello_get0_compression_methods(s,out_); +end; + +function Load_SSL_client_hello_get1_extensions_present(s: PSSL; out_: PPOpenSSL_C_INT; outlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_client_hello_get1_extensions_present := LoadLibSSLFunction('SSL_client_hello_get1_extensions_present'); + if not assigned(SSL_client_hello_get1_extensions_present) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_client_hello_get1_extensions_present'); + Result := SSL_client_hello_get1_extensions_present(s,out_,outlen); +end; + +function Load_SSL_client_hello_get0_ext(s: PSSL; type_: TOpenSSL_C_UINT; const out_: PPByte; outlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_client_hello_get0_ext := LoadLibSSLFunction('SSL_client_hello_get0_ext'); + if not assigned(SSL_client_hello_get0_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_client_hello_get0_ext'); + Result := SSL_client_hello_get0_ext(s,type_,out_,outlen); +end; + +procedure Load_SSL_certs_clear(s: PSSL); cdecl; +begin + SSL_certs_clear := LoadLibSSLFunction('SSL_certs_clear'); + if not assigned(SSL_certs_clear) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_certs_clear'); + SSL_certs_clear(s); +end; + +procedure Load_SSL_free(ssl: PSSL); cdecl; +begin + SSL_free := LoadLibSSLFunction('SSL_free'); + if not assigned(SSL_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_free'); + SSL_free(ssl); +end; + +function Load_SSL_waiting_for_async(s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_waiting_for_async := LoadLibSSLFunction('SSL_waiting_for_async'); + if not assigned(SSL_waiting_for_async) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_waiting_for_async'); + Result := SSL_waiting_for_async(s); +end; + +function Load_SSL_get_all_async_fds(s: PSSL; fds: POSSL_ASYNC_FD; numfds: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_get_all_async_fds := LoadLibSSLFunction('SSL_get_all_async_fds'); + if not assigned(SSL_get_all_async_fds) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_all_async_fds'); + Result := SSL_get_all_async_fds(s,fds,numfds); +end; + +function Load_SSL_get_changed_async_fds(s: PSSL; addfd: POSSL_ASYNC_FD; numaddfds: POpenSSL_C_SIZET; delfd: POSSL_ASYNC_FD; numdelfds: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_get_changed_async_fds := LoadLibSSLFunction('SSL_get_changed_async_fds'); + if not assigned(SSL_get_changed_async_fds) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_changed_async_fds'); + Result := SSL_get_changed_async_fds(s,addfd,numaddfds,delfd,numdelfds); +end; + +function Load_SSL_accept(ssl: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_accept := LoadLibSSLFunction('SSL_accept'); + if not assigned(SSL_accept) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_accept'); + Result := SSL_accept(ssl); +end; + +function Load_SSL_stateless(s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_stateless := LoadLibSSLFunction('SSL_stateless'); + if not assigned(SSL_stateless) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_stateless'); + Result := SSL_stateless(s); +end; + +function Load_SSL_connect(ssl: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_connect := LoadLibSSLFunction('SSL_connect'); + if not assigned(SSL_connect) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_connect'); + Result := SSL_connect(ssl); +end; + +function Load_SSL_read(ssl: PSSL; buf: Pointer; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_read := LoadLibSSLFunction('SSL_read'); + if not assigned(SSL_read) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_read'); + Result := SSL_read(ssl,buf,num); +end; + +function Load_SSL_read_ex(ssl: PSSL; buf: Pointer; num: TOpenSSL_C_SIZET; readbytes: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_read_ex := LoadLibSSLFunction('SSL_read_ex'); + if not assigned(SSL_read_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_read_ex'); + Result := SSL_read_ex(ssl,buf,num,readbytes); +end; + +function Load_SSL_read_early_data(s: PSSL; buf: Pointer; num: TOpenSSL_C_SIZET; readbytes: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_read_early_data := LoadLibSSLFunction('SSL_read_early_data'); + if not assigned(SSL_read_early_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_read_early_data'); + Result := SSL_read_early_data(s,buf,num,readbytes); +end; + +function Load_SSL_peek(ssl: PSSL; buf: Pointer; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_peek := LoadLibSSLFunction('SSL_peek'); + if not assigned(SSL_peek) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_peek'); + Result := SSL_peek(ssl,buf,num); +end; + +function Load_SSL_peek_ex(ssl: PSSL; buf: Pointer; num: TOpenSSL_C_SIZET; readbytes: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_peek_ex := LoadLibSSLFunction('SSL_peek_ex'); + if not assigned(SSL_peek_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_peek_ex'); + Result := SSL_peek_ex(ssl,buf,num,readbytes); +end; + +function Load_SSL_write(ssl: PSSL; const buf: Pointer; num: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_write := LoadLibSSLFunction('SSL_write'); + if not assigned(SSL_write) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_write'); + Result := SSL_write(ssl,buf,num); +end; + +function Load_SSL_write_ex(s: PSSL; const buf: Pointer; num: TOpenSSL_C_SIZET; written: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_write_ex := LoadLibSSLFunction('SSL_write_ex'); + if not assigned(SSL_write_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_write_ex'); + Result := SSL_write_ex(s,buf,num,written); +end; + +function Load_SSL_write_early_data(s: PSSL; const buf: Pointer; num: TOpenSSL_C_SIZET; written: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_write_early_data := LoadLibSSLFunction('SSL_write_early_data'); + if not assigned(SSL_write_early_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_write_early_data'); + Result := SSL_write_early_data(s,buf,num,written); +end; + +function Load_SSL_callback_ctrl(v1: PSSL; v2: TOpenSSL_C_INT; v3: SSL_callback_ctrl_v3): TOpenSSL_C_LONG; cdecl; +begin + SSL_callback_ctrl := LoadLibSSLFunction('SSL_callback_ctrl'); + if not assigned(SSL_callback_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_callback_ctrl'); + Result := SSL_callback_ctrl(v1,v2,v3); +end; + +function Load_SSL_ctrl(ssl: PSSL; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; parg: Pointer): TOpenSSL_C_LONG; cdecl; +begin + SSL_ctrl := LoadLibSSLFunction('SSL_ctrl'); + if not assigned(SSL_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_ctrl'); + Result := SSL_ctrl(ssl,cmd,larg,parg); +end; + +function Load_SSL_CTX_ctrl(ctx: PSSL_CTX; cmd: TOpenSSL_C_INT; larg: TOpenSSL_C_LONG; parg: Pointer): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_ctrl := LoadLibSSLFunction('SSL_CTX_ctrl'); + if not assigned(SSL_CTX_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_ctrl'); + Result := SSL_CTX_ctrl(ctx,cmd,larg,parg); +end; + +function Load_SSL_CTX_callback_ctrl(v1: PSSL_CTX; v2: TOpenSSL_C_INT; v3: SSL_CTX_callback_ctrl_v3): TOpenSSL_C_LONG; cdecl; +begin + SSL_CTX_callback_ctrl := LoadLibSSLFunction('SSL_CTX_callback_ctrl'); + if not assigned(SSL_CTX_callback_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_callback_ctrl'); + Result := SSL_CTX_callback_ctrl(v1,v2,v3); +end; + +function Load_SSL_get_early_data_status(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_get_early_data_status := LoadLibSSLFunction('SSL_get_early_data_status'); + if not assigned(SSL_get_early_data_status) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_early_data_status'); + Result := SSL_get_early_data_status(s); +end; + +function Load_SSL_get_error(const s: PSSL; ret_code: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_get_error := LoadLibSSLFunction('SSL_get_error'); + if not assigned(SSL_get_error) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_error'); + Result := SSL_get_error(s,ret_code); +end; + +function Load_SSL_get_version(const s: PSSL): PAnsiChar; cdecl; +begin + SSL_get_version := LoadLibSSLFunction('SSL_get_version'); + if not assigned(SSL_get_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_version'); + Result := SSL_get_version(s); +end; + +function Load_SSL_CTX_set_ssl_version(ctx: PSSL_CTX; const meth: PSSL_METHOD): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_ssl_version := LoadLibSSLFunction('SSL_CTX_set_ssl_version'); + if not assigned(SSL_CTX_set_ssl_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_ssl_version'); + Result := SSL_CTX_set_ssl_version(ctx,meth); +end; + +function Load_TLS_method: PSSL_METHOD; cdecl; +begin + TLS_method := LoadLibSSLFunction('TLS_method'); + if not assigned(TLS_method) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + TLS_method := @COMPAT_TLS_method; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('TLS_method'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := TLS_method(); +end; + +function Load_TLS_server_method: PSSL_METHOD; cdecl; +begin + TLS_server_method := LoadLibSSLFunction('TLS_server_method'); + if not assigned(TLS_server_method) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + TLS_server_method := @COMPAT_TLS_server_method; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('TLS_server_method'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := TLS_server_method(); +end; + +function Load_TLS_client_method: PSSL_METHOD; cdecl; +begin + TLS_client_method := LoadLibSSLFunction('TLS_client_method'); + if not assigned(TLS_client_method) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + TLS_client_method := @COMPAT_TLS_client_method; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('TLS_client_method'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := TLS_client_method(); +end; + +function Load_SSL_do_handshake(s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_do_handshake := LoadLibSSLFunction('SSL_do_handshake'); + if not assigned(SSL_do_handshake) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_do_handshake'); + Result := SSL_do_handshake(s); +end; + +function Load_SSL_key_update(s: PSSL; updatetype: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_key_update := LoadLibSSLFunction('SSL_key_update'); + if not assigned(SSL_key_update) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_key_update'); + Result := SSL_key_update(s,updatetype); +end; + +function Load_SSL_get_key_update_type(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_get_key_update_type := LoadLibSSLFunction('SSL_get_key_update_type'); + if not assigned(SSL_get_key_update_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_key_update_type'); + Result := SSL_get_key_update_type(s); +end; + +function Load_SSL_renegotiate(s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_renegotiate := LoadLibSSLFunction('SSL_renegotiate'); + if not assigned(SSL_renegotiate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_renegotiate'); + Result := SSL_renegotiate(s); +end; + +function Load_SSL_renegotiate_abbreviated(s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_renegotiate_abbreviated := LoadLibSSLFunction('SSL_renegotiate_abbreviated'); + if not assigned(SSL_renegotiate_abbreviated) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_renegotiate_abbreviated'); + Result := SSL_renegotiate_abbreviated(s); +end; + +function Load_SSL_new_session_ticket(s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_new_session_ticket := LoadLibSSLFunction('SSL_new_session_ticket'); + if not assigned(SSL_new_session_ticket) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_new_session_ticket := @COMPAT_SSL_new_session_ticket; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_new_session_ticket'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := SSL_new_session_ticket(s); +end; + +function Load_SSL_shutdown(s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_shutdown := LoadLibSSLFunction('SSL_shutdown'); + if not assigned(SSL_shutdown) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_shutdown'); + Result := SSL_shutdown(s); +end; + +procedure Load_SSL_CTX_set_post_handshake_auth(ctx: PSSL_CTX; val: TOpenSSL_C_INT); cdecl; +begin + SSL_CTX_set_post_handshake_auth := LoadLibSSLFunction('SSL_CTX_set_post_handshake_auth'); + if not assigned(SSL_CTX_set_post_handshake_auth) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_post_handshake_auth'); + SSL_CTX_set_post_handshake_auth(ctx,val); +end; + +procedure Load_SSL_set_post_handshake_auth(s: PSSL; val: TOpenSSL_C_INT); cdecl; +begin + SSL_set_post_handshake_auth := LoadLibSSLFunction('SSL_set_post_handshake_auth'); + if not assigned(SSL_set_post_handshake_auth) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_post_handshake_auth'); + SSL_set_post_handshake_auth(s,val); +end; + +function Load_SSL_renegotiate_pending(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_renegotiate_pending := LoadLibSSLFunction('SSL_renegotiate_pending'); + if not assigned(SSL_renegotiate_pending) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_renegotiate_pending'); + Result := SSL_renegotiate_pending(s); +end; + +function Load_SSL_verify_client_post_handshake(s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_verify_client_post_handshake := LoadLibSSLFunction('SSL_verify_client_post_handshake'); + if not assigned(SSL_verify_client_post_handshake) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_verify_client_post_handshake'); + Result := SSL_verify_client_post_handshake(s); +end; + +function Load_SSL_CTX_get_ssl_method(const ctx: PSSL_CTX): PSSL_METHOD; cdecl; +begin + SSL_CTX_get_ssl_method := LoadLibSSLFunction('SSL_CTX_get_ssl_method'); + if not assigned(SSL_CTX_get_ssl_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_ssl_method'); + Result := SSL_CTX_get_ssl_method(ctx); +end; + +function Load_SSL_get_ssl_method(const s: PSSL): PSSL_METHOD; cdecl; +begin + SSL_get_ssl_method := LoadLibSSLFunction('SSL_get_ssl_method'); + if not assigned(SSL_get_ssl_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_ssl_method'); + Result := SSL_get_ssl_method(s); +end; + +function Load_SSL_set_ssl_method(s: PSSL; const method: PSSL_METHOD): TOpenSSL_C_INT; cdecl; +begin + SSL_set_ssl_method := LoadLibSSLFunction('SSL_set_ssl_method'); + if not assigned(SSL_set_ssl_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_ssl_method'); + Result := SSL_set_ssl_method(s,method); +end; + +function Load_SSL_alert_type_string_long(value: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + SSL_alert_type_string_long := LoadLibSSLFunction('SSL_alert_type_string_long'); + if not assigned(SSL_alert_type_string_long) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_alert_type_string_long'); + Result := SSL_alert_type_string_long(value); +end; + +function Load_SSL_alert_type_string(value: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + SSL_alert_type_string := LoadLibSSLFunction('SSL_alert_type_string'); + if not assigned(SSL_alert_type_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_alert_type_string'); + Result := SSL_alert_type_string(value); +end; + +function Load_SSL_alert_desc_string_long(value: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + SSL_alert_desc_string_long := LoadLibSSLFunction('SSL_alert_desc_string_long'); + if not assigned(SSL_alert_desc_string_long) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_alert_desc_string_long'); + Result := SSL_alert_desc_string_long(value); +end; + +function Load_SSL_alert_desc_string(value: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + SSL_alert_desc_string := LoadLibSSLFunction('SSL_alert_desc_string'); + if not assigned(SSL_alert_desc_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_alert_desc_string'); + Result := SSL_alert_desc_string(value); +end; + +procedure Load_SSL_CTX_set_client_CA_list(ctx: PSSL_CTX; name_list: PSTACK_OF_X509_NAME); cdecl; +begin + SSL_CTX_set_client_CA_list := LoadLibSSLFunction('SSL_CTX_set_client_CA_list'); + if not assigned(SSL_CTX_set_client_CA_list) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_client_CA_list'); + SSL_CTX_set_client_CA_list(ctx,name_list); +end; + +function Load_SSL_add_client_CA(ssl: PSSL; x: PX509): TOpenSSL_C_INT; cdecl; +begin + SSL_add_client_CA := LoadLibSSLFunction('SSL_add_client_CA'); + if not assigned(SSL_add_client_CA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_add_client_CA'); + Result := SSL_add_client_CA(ssl,x); +end; + +function Load_SSL_CTX_add_client_CA(ctx: PSSL_CTX; x: PX509): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_add_client_CA := LoadLibSSLFunction('SSL_CTX_add_client_CA'); + if not assigned(SSL_CTX_add_client_CA) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_add_client_CA'); + Result := SSL_CTX_add_client_CA(ctx,x); +end; + +procedure Load_SSL_set_connect_state(s: PSSL); cdecl; +begin + SSL_set_connect_state := LoadLibSSLFunction('SSL_set_connect_state'); + if not assigned(SSL_set_connect_state) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_connect_state'); + SSL_set_connect_state(s); +end; + +procedure Load_SSL_set_accept_state(s: PSSL); cdecl; +begin + SSL_set_accept_state := LoadLibSSLFunction('SSL_set_accept_state'); + if not assigned(SSL_set_accept_state) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_accept_state'); + SSL_set_accept_state(s); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_SSL_library_init: TOpenSSL_C_INT; cdecl; +begin + SSL_library_init := LoadLibSSLFunction('SSL_library_init'); + if not assigned(SSL_library_init) then + SSL_library_init := @COMPAT_SSL_library_init; + Result := SSL_library_init(); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_SSL_CIPHER_description(cipher: PSSL_CIPHER; buf: PAnsiChar; size_ :TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + SSL_CIPHER_description := LoadLibSSLFunction('SSL_CIPHER_description'); + if not assigned(SSL_CIPHER_description) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CIPHER_description'); + Result := SSL_CIPHER_description(cipher,buf,size_); +end; + +function Load_SSL_dup(ssl: PSSL): PSSL; cdecl; +begin + SSL_dup := LoadLibSSLFunction('SSL_dup'); + if not assigned(SSL_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_dup'); + Result := SSL_dup(ssl); +end; + +function Load_SSL_get_certificate(const ssl: PSSL): PX509; cdecl; +begin + SSL_get_certificate := LoadLibSSLFunction('SSL_get_certificate'); + if not assigned(SSL_get_certificate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_certificate'); + Result := SSL_get_certificate(ssl); +end; + +function Load_SSL_get_privatekey(const ssl: PSSL): PEVP_PKEY; cdecl; +begin + SSL_get_privatekey := LoadLibSSLFunction('SSL_get_privatekey'); + if not assigned(SSL_get_privatekey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_privatekey'); + Result := SSL_get_privatekey(ssl); +end; + +function Load_SSL_CTX_get0_certificate(const ctx: PSSL_CTX): PX509; cdecl; +begin + SSL_CTX_get0_certificate := LoadLibSSLFunction('SSL_CTX_get0_certificate'); + if not assigned(SSL_CTX_get0_certificate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get0_certificate'); + Result := SSL_CTX_get0_certificate(ctx); +end; + +function Load_SSL_CTX_get0_privatekey(const ctx: PSSL_CTX): PEVP_PKEY; cdecl; +begin + SSL_CTX_get0_privatekey := LoadLibSSLFunction('SSL_CTX_get0_privatekey'); + if not assigned(SSL_CTX_get0_privatekey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get0_privatekey'); + Result := SSL_CTX_get0_privatekey(ctx); +end; + +procedure Load_SSL_CTX_set_quiet_shutdown(ctx: PSSL_CTX; mode: TOpenSSL_C_INT); cdecl; +begin + SSL_CTX_set_quiet_shutdown := LoadLibSSLFunction('SSL_CTX_set_quiet_shutdown'); + if not assigned(SSL_CTX_set_quiet_shutdown) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_quiet_shutdown'); + SSL_CTX_set_quiet_shutdown(ctx,mode); +end; + +function Load_SSL_CTX_get_quiet_shutdown(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_get_quiet_shutdown := LoadLibSSLFunction('SSL_CTX_get_quiet_shutdown'); + if not assigned(SSL_CTX_get_quiet_shutdown) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_quiet_shutdown'); + Result := SSL_CTX_get_quiet_shutdown(ctx); +end; + +procedure Load_SSL_set_quiet_shutdown(ssl: PSSL; mode: TOpenSSL_C_INT); cdecl; +begin + SSL_set_quiet_shutdown := LoadLibSSLFunction('SSL_set_quiet_shutdown'); + if not assigned(SSL_set_quiet_shutdown) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_quiet_shutdown'); + SSL_set_quiet_shutdown(ssl,mode); +end; + +function Load_SSL_get_quiet_shutdown(const ssl: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_get_quiet_shutdown := LoadLibSSLFunction('SSL_get_quiet_shutdown'); + if not assigned(SSL_get_quiet_shutdown) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_quiet_shutdown'); + Result := SSL_get_quiet_shutdown(ssl); +end; + +procedure Load_SSL_set_shutdown(ssl: PSSL; mode: TOpenSSL_C_INT); cdecl; +begin + SSL_set_shutdown := LoadLibSSLFunction('SSL_set_shutdown'); + if not assigned(SSL_set_shutdown) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_shutdown'); + SSL_set_shutdown(ssl,mode); +end; + +function Load_SSL_get_shutdown(const ssl: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_get_shutdown := LoadLibSSLFunction('SSL_get_shutdown'); + if not assigned(SSL_get_shutdown) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_shutdown'); + Result := SSL_get_shutdown(ssl); +end; + +function Load_SSL_version(const ssl: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_version := LoadLibSSLFunction('SSL_version'); + if not assigned(SSL_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_version'); + Result := SSL_version(ssl); +end; + +function Load_SSL_client_version(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_client_version := LoadLibSSLFunction('SSL_client_version'); + if not assigned(SSL_client_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_client_version'); + Result := SSL_client_version(s); +end; + +function Load_SSL_CTX_set_default_verify_paths(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_default_verify_paths := LoadLibSSLFunction('SSL_CTX_set_default_verify_paths'); + if not assigned(SSL_CTX_set_default_verify_paths) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_default_verify_paths'); + Result := SSL_CTX_set_default_verify_paths(ctx); +end; + +function Load_SSL_CTX_set_default_verify_dir(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_default_verify_dir := LoadLibSSLFunction('SSL_CTX_set_default_verify_dir'); + if not assigned(SSL_CTX_set_default_verify_dir) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_default_verify_dir'); + Result := SSL_CTX_set_default_verify_dir(ctx); +end; + +function Load_SSL_CTX_set_default_verify_file(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_default_verify_file := LoadLibSSLFunction('SSL_CTX_set_default_verify_file'); + if not assigned(SSL_CTX_set_default_verify_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_default_verify_file'); + Result := SSL_CTX_set_default_verify_file(ctx); +end; + +function Load_SSL_CTX_load_verify_locations(ctx: PSSL_CTX; const CAfile: PAnsiChar; const CApath: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_load_verify_locations := LoadLibSSLFunction('SSL_CTX_load_verify_locations'); + if not assigned(SSL_CTX_load_verify_locations) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_load_verify_locations'); + Result := SSL_CTX_load_verify_locations(ctx,CAfile,CApath); +end; + +function Load_SSL_get_session(const ssl: PSSL): PSSL_SESSION; cdecl; +begin + SSL_get_session := LoadLibSSLFunction('SSL_get_session'); + if not assigned(SSL_get_session) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_session'); + Result := SSL_get_session(ssl); +end; + +function Load_SSL_get1_session(ssl: PSSL): PSSL_SESSION; cdecl; +begin + SSL_get1_session := LoadLibSSLFunction('SSL_get1_session'); + if not assigned(SSL_get1_session) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get1_session'); + Result := SSL_get1_session(ssl); +end; + +function Load_SSL_get_SSL_CTX(const ssl: PSSL): PSSL_CTX; cdecl; +begin + SSL_get_SSL_CTX := LoadLibSSLFunction('SSL_get_SSL_CTX'); + if not assigned(SSL_get_SSL_CTX) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_SSL_CTX'); + Result := SSL_get_SSL_CTX(ssl); +end; + +function Load_SSL_set_SSL_CTX(ssl: PSSL; ctx: PSSL_CTX): PSSL_CTX; cdecl; +begin + SSL_set_SSL_CTX := LoadLibSSLFunction('SSL_set_SSL_CTX'); + if not assigned(SSL_set_SSL_CTX) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_SSL_CTX'); + Result := SSL_set_SSL_CTX(ssl,ctx); +end; + +procedure Load_SSL_set_info_callback(ssl: PSSL; cb: SSL_info_callback); cdecl; +begin + SSL_set_info_callback := LoadLibSSLFunction('SSL_set_info_callback'); + if not assigned(SSL_set_info_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_info_callback'); + SSL_set_info_callback(ssl,cb); +end; + +function Load_SSL_get_info_callback(const ssl: PSSL): SSL_info_callback; cdecl; +begin + SSL_get_info_callback := LoadLibSSLFunction('SSL_get_info_callback'); + if not assigned(SSL_get_info_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_info_callback'); + Result := SSL_get_info_callback(ssl); +end; + +function Load_SSL_get_state(const ssl: PSSL): OSSL_HANDSHAKE_STATE; cdecl; +begin + SSL_get_state := LoadLibSSLFunction('SSL_get_state'); + if not assigned(SSL_get_state) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_state'); + Result := SSL_get_state(ssl); +end; + +procedure Load_SSL_set_verify_result(ssl: PSSL; v: TOpenSSL_C_LONG); cdecl; +begin + SSL_set_verify_result := LoadLibSSLFunction('SSL_set_verify_result'); + if not assigned(SSL_set_verify_result) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_verify_result'); + SSL_set_verify_result(ssl,v); +end; + +function Load_SSL_get_verify_result(const ssl: PSSL): TOpenSSL_C_LONG; cdecl; +begin + SSL_get_verify_result := LoadLibSSLFunction('SSL_get_verify_result'); + if not assigned(SSL_get_verify_result) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_verify_result'); + Result := SSL_get_verify_result(ssl); +end; + +function Load_SSL_get_client_random(const ssl: PSSL; out_: PByte; outlen: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +begin + SSL_get_client_random := LoadLibSSLFunction('SSL_get_client_random'); + if not assigned(SSL_get_client_random) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_client_random'); + Result := SSL_get_client_random(ssl,out_,outlen); +end; + +function Load_SSL_get_server_random(const ssl: PSSL; out_: PByte; outlen: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +begin + SSL_get_server_random := LoadLibSSLFunction('SSL_get_server_random'); + if not assigned(SSL_get_server_random) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_server_random'); + Result := SSL_get_server_random(ssl,out_,outlen); +end; + +function Load_SSL_SESSION_get_master_key(const sess: PSSL_SESSION; out_: PByte; outlen: TOpenSSL_C_SIZET): TOpenSSL_C_SIZET; cdecl; +begin + SSL_SESSION_get_master_key := LoadLibSSLFunction('SSL_SESSION_get_master_key'); + if not assigned(SSL_SESSION_get_master_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get_master_key'); + Result := SSL_SESSION_get_master_key(sess,out_,outlen); +end; + +function Load_SSL_SESSION_set1_master_key(sess: PSSL_SESSION; const in_: PByte; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_set1_master_key := LoadLibSSLFunction('SSL_SESSION_set1_master_key'); + if not assigned(SSL_SESSION_set1_master_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_set1_master_key'); + Result := SSL_SESSION_set1_master_key(sess,in_,len); +end; + +function Load_SSL_SESSION_get_max_fragment_length(const sess: PSSL_SESSION): TOpenSSL_C_UINT8; cdecl; +begin + SSL_SESSION_get_max_fragment_length := LoadLibSSLFunction('SSL_SESSION_get_max_fragment_length'); + if not assigned(SSL_SESSION_get_max_fragment_length) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get_max_fragment_length'); + Result := SSL_SESSION_get_max_fragment_length(sess); +end; + +function Load_SSL_set_ex_data(ssl: PSSL; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; +begin + SSL_set_ex_data := LoadLibSSLFunction('SSL_set_ex_data'); + if not assigned(SSL_set_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_ex_data'); + Result := SSL_set_ex_data(ssl,idx,data); +end; + +function Load_SSL_get_ex_data(const ssl: PSSL; idx: TOpenSSL_C_INT): Pointer; cdecl; +begin + SSL_get_ex_data := LoadLibSSLFunction('SSL_get_ex_data'); + if not assigned(SSL_get_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_ex_data'); + Result := SSL_get_ex_data(ssl,idx); +end; + +function Load_SSL_SESSION_set_ex_data(ss: PSSL_SESSION; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_set_ex_data := LoadLibSSLFunction('SSL_SESSION_set_ex_data'); + if not assigned(SSL_SESSION_set_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_set_ex_data'); + Result := SSL_SESSION_set_ex_data(ss,idx,data); +end; + +function Load_SSL_SESSION_get_ex_data(const ss: PSSL_SESSION; idx: TOpenSSL_C_INT): Pointer; cdecl; +begin + SSL_SESSION_get_ex_data := LoadLibSSLFunction('SSL_SESSION_get_ex_data'); + if not assigned(SSL_SESSION_get_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get_ex_data'); + Result := SSL_SESSION_get_ex_data(ss,idx); +end; + +function Load_SSL_CTX_set_ex_data(ssl: PSSL_CTX; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_ex_data := LoadLibSSLFunction('SSL_CTX_set_ex_data'); + if not assigned(SSL_CTX_set_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_ex_data'); + Result := SSL_CTX_set_ex_data(ssl,idx,data); +end; + +function Load_SSL_CTX_get_ex_data(const ssl: PSSL_CTX; idx: TOpenSSL_C_INT): Pointer; cdecl; +begin + SSL_CTX_get_ex_data := LoadLibSSLFunction('SSL_CTX_get_ex_data'); + if not assigned(SSL_CTX_get_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_ex_data'); + Result := SSL_CTX_get_ex_data(ssl,idx); +end; + +function Load_SSL_get_ex_data_X509_STORE_CTX_idx: TOpenSSL_C_INT; cdecl; +begin + SSL_get_ex_data_X509_STORE_CTX_idx := LoadLibSSLFunction('SSL_get_ex_data_X509_STORE_CTX_idx'); + if not assigned(SSL_get_ex_data_X509_STORE_CTX_idx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_ex_data_X509_STORE_CTX_idx'); + Result := SSL_get_ex_data_X509_STORE_CTX_idx(); +end; + +procedure Load_SSL_CTX_set_default_read_buffer_len(ctx: PSSL_CTX; len: TOpenSSL_C_SIZET); cdecl; +begin + SSL_CTX_set_default_read_buffer_len := LoadLibSSLFunction('SSL_CTX_set_default_read_buffer_len'); + if not assigned(SSL_CTX_set_default_read_buffer_len) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_default_read_buffer_len'); + SSL_CTX_set_default_read_buffer_len(ctx,len); +end; + +procedure Load_SSL_set_default_read_buffer_len(s: PSSL; len: TOpenSSL_C_SIZET); cdecl; +begin + SSL_set_default_read_buffer_len := LoadLibSSLFunction('SSL_set_default_read_buffer_len'); + if not assigned(SSL_set_default_read_buffer_len) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_default_read_buffer_len'); + SSL_set_default_read_buffer_len(s,len); +end; + +procedure Load_SSL_CTX_set_tmp_dh_callback(ctx: PSSL_CTX; dh: SSL_CTX_set_tmp_dh_callback_dh); cdecl; +begin + SSL_CTX_set_tmp_dh_callback := LoadLibSSLFunction('SSL_CTX_set_tmp_dh_callback'); + if not assigned(SSL_CTX_set_tmp_dh_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_tmp_dh_callback'); + SSL_CTX_set_tmp_dh_callback(ctx,dh); +end; + +procedure Load_SSL_set_tmp_dh_callback(ssl: PSSL; dh: SSL_set_tmp_dh_callback_dh); cdecl; +begin + SSL_set_tmp_dh_callback := LoadLibSSLFunction('SSL_set_tmp_dh_callback'); + if not assigned(SSL_set_tmp_dh_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_tmp_dh_callback'); + SSL_set_tmp_dh_callback(ssl,dh); +end; + +function Load_SSL_CIPHER_find(ssl: PSSL; const ptr: PByte): PSSL_CIPHER; cdecl; +begin + SSL_CIPHER_find := LoadLibSSLFunction('SSL_CIPHER_find'); + if not assigned(SSL_CIPHER_find) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CIPHER_find'); + Result := SSL_CIPHER_find(ssl,ptr); +end; + +function Load_SSL_CIPHER_get_cipher_nid(const c: PSSL_CIPHEr): TOpenSSL_C_INT; cdecl; +begin + SSL_CIPHER_get_cipher_nid := LoadLibSSLFunction('SSL_CIPHER_get_cipher_nid'); + if not assigned(SSL_CIPHER_get_cipher_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CIPHER_get_cipher_nid'); + Result := SSL_CIPHER_get_cipher_nid(c); +end; + +function Load_SSL_CIPHER_get_digest_nid(const c: PSSL_CIPHEr): TOpenSSL_C_INT; cdecl; +begin + SSL_CIPHER_get_digest_nid := LoadLibSSLFunction('SSL_CIPHER_get_digest_nid'); + if not assigned(SSL_CIPHER_get_digest_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CIPHER_get_digest_nid'); + Result := SSL_CIPHER_get_digest_nid(c); +end; + +function Load_SSL_set_session_ticket_ext(s: PSSL; ext_data: Pointer; ext_len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_set_session_ticket_ext := LoadLibSSLFunction('SSL_set_session_ticket_ext'); + if not assigned(SSL_set_session_ticket_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_session_ticket_ext'); + Result := SSL_set_session_ticket_ext(s,ext_data,ext_len); +end; + +function Load_SSL_set_session_ticket_ext_cb(s: PSSL; cb: tls_session_ticket_ext_cb_fn; arg: Pointer): TOpenSSL_C_INT; cdecl; +begin + SSL_set_session_ticket_ext_cb := LoadLibSSLFunction('SSL_set_session_ticket_ext_cb'); + if not assigned(SSL_set_session_ticket_ext_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_session_ticket_ext_cb'); + Result := SSL_set_session_ticket_ext_cb(s,cb,arg); +end; + +procedure Load_SSL_CTX_set_not_resumable_session_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_not_resumable_session_callback_cb); cdecl; +begin + SSL_CTX_set_not_resumable_session_callback := LoadLibSSLFunction('SSL_CTX_set_not_resumable_session_callback'); + if not assigned(SSL_CTX_set_not_resumable_session_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_not_resumable_session_callback'); + SSL_CTX_set_not_resumable_session_callback(ctx,cb); +end; + +procedure Load_SSL_set_not_resumable_session_callback(ssl: PSSL; cb: SSL_set_not_resumable_session_callback_cb); cdecl; +begin + SSL_set_not_resumable_session_callback := LoadLibSSLFunction('SSL_set_not_resumable_session_callback'); + if not assigned(SSL_set_not_resumable_session_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_not_resumable_session_callback'); + SSL_set_not_resumable_session_callback(ssl,cb); +end; + +procedure Load_SSL_CTX_set_record_padding_callback(ctx: PSSL_CTX; cb: SSL_CTX_set_record_padding_callback_cb); cdecl; +begin + SSL_CTX_set_record_padding_callback := LoadLibSSLFunction('SSL_CTX_set_record_padding_callback'); + if not assigned(SSL_CTX_set_record_padding_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_record_padding_callback'); + SSL_CTX_set_record_padding_callback(ctx,cb); +end; + +procedure Load_SSL_CTX_set_record_padding_callback_arg(ctx: PSSL_CTX; arg: Pointer); cdecl; +begin + SSL_CTX_set_record_padding_callback_arg := LoadLibSSLFunction('SSL_CTX_set_record_padding_callback_arg'); + if not assigned(SSL_CTX_set_record_padding_callback_arg) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_record_padding_callback_arg'); + SSL_CTX_set_record_padding_callback_arg(ctx,arg); +end; + +function Load_SSL_CTX_get_record_padding_callback_arg(const ctx: PSSL_CTX): Pointer; cdecl; +begin + SSL_CTX_get_record_padding_callback_arg := LoadLibSSLFunction('SSL_CTX_get_record_padding_callback_arg'); + if not assigned(SSL_CTX_get_record_padding_callback_arg) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_record_padding_callback_arg'); + Result := SSL_CTX_get_record_padding_callback_arg(ctx); +end; + +function Load_SSL_CTX_set_block_padding(ctx: PSSL_CTX; block_size: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_block_padding := LoadLibSSLFunction('SSL_CTX_set_block_padding'); + if not assigned(SSL_CTX_set_block_padding) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_block_padding'); + Result := SSL_CTX_set_block_padding(ctx,block_size); +end; + +procedure Load_SSL_set_record_padding_callback(ssl: PSSL; cb: SSL_set_record_padding_callback_cb); cdecl; +begin + SSL_set_record_padding_callback := LoadLibSSLFunction('SSL_set_record_padding_callback'); + if not assigned(SSL_set_record_padding_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_record_padding_callback'); + SSL_set_record_padding_callback(ssl,cb); +end; + +procedure Load_SSL_set_record_padding_callback_arg(ssl: PSSL; arg: Pointer); cdecl; +begin + SSL_set_record_padding_callback_arg := LoadLibSSLFunction('SSL_set_record_padding_callback_arg'); + if not assigned(SSL_set_record_padding_callback_arg) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_record_padding_callback_arg'); + SSL_set_record_padding_callback_arg(ssl,arg); +end; + +function Load_SSL_get_record_padding_callback_arg(const ssl: PSSL): Pointer; cdecl; +begin + SSL_get_record_padding_callback_arg := LoadLibSSLFunction('SSL_get_record_padding_callback_arg'); + if not assigned(SSL_get_record_padding_callback_arg) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_record_padding_callback_arg'); + Result := SSL_get_record_padding_callback_arg(ssl); +end; + +function Load_SSL_set_block_padding(ssl: PSSL; block_size: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_set_block_padding := LoadLibSSLFunction('SSL_set_block_padding'); + if not assigned(SSL_set_block_padding) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_block_padding'); + Result := SSL_set_block_padding(ssl,block_size); +end; + +function Load_SSL_set_num_tickets(s: PSSL; num_tickets: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_set_num_tickets := LoadLibSSLFunction('SSL_set_num_tickets'); + if not assigned(SSL_set_num_tickets) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_num_tickets'); + Result := SSL_set_num_tickets(s,num_tickets); +end; + +function Load_SSL_get_num_tickets(const s: PSSL): TOpenSSL_C_SIZET; cdecl; +begin + SSL_get_num_tickets := LoadLibSSLFunction('SSL_get_num_tickets'); + if not assigned(SSL_get_num_tickets) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_num_tickets'); + Result := SSL_get_num_tickets(s); +end; + +function Load_SSL_CTX_set_num_tickets(ctx: PSSL_CTX; num_tickets: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_num_tickets := LoadLibSSLFunction('SSL_CTX_set_num_tickets'); + if not assigned(SSL_CTX_set_num_tickets) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_num_tickets'); + Result := SSL_CTX_set_num_tickets(ctx,num_tickets); +end; + +function Load_SSL_CTX_get_num_tickets(const ctx: PSSL_CTX): TOpenSSL_C_SIZET; cdecl; +begin + SSL_CTX_get_num_tickets := LoadLibSSLFunction('SSL_CTX_get_num_tickets'); + if not assigned(SSL_CTX_get_num_tickets) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_num_tickets'); + Result := SSL_CTX_get_num_tickets(ctx); +end; + +function Load_SSL_session_reused(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_session_reused := LoadLibSSLFunction('SSL_session_reused'); + if not assigned(SSL_session_reused) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_session_reused'); + Result := SSL_session_reused(s); +end; + +function Load_SSL_is_server(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_is_server := LoadLibSSLFunction('SSL_is_server'); + if not assigned(SSL_is_server) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_is_server'); + Result := SSL_is_server(s); +end; + +function Load_SSL_CONF_CTX_new: PSSL_CONF_CTX; cdecl; +begin + SSL_CONF_CTX_new := LoadLibSSLFunction('SSL_CONF_CTX_new'); + if not assigned(SSL_CONF_CTX_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CONF_CTX_new'); + Result := SSL_CONF_CTX_new(); +end; + +function Load_SSL_CONF_CTX_finish(cctx: PSSL_CONF_CTX): TOpenSSL_C_INT; cdecl; +begin + SSL_CONF_CTX_finish := LoadLibSSLFunction('SSL_CONF_CTX_finish'); + if not assigned(SSL_CONF_CTX_finish) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CONF_CTX_finish'); + Result := SSL_CONF_CTX_finish(cctx); +end; + +procedure Load_SSL_CONF_CTX_free(cctx: PSSL_CONF_CTX); cdecl; +begin + SSL_CONF_CTX_free := LoadLibSSLFunction('SSL_CONF_CTX_free'); + if not assigned(SSL_CONF_CTX_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CONF_CTX_free'); + SSL_CONF_CTX_free(cctx); +end; + +function Load_SSL_CONF_CTX_set_flags(cctx: PSSL_CONF_CTX; flags: TOpenSSL_C_UINT): TOpenSSL_C_UINT; cdecl; +begin + SSL_CONF_CTX_set_flags := LoadLibSSLFunction('SSL_CONF_CTX_set_flags'); + if not assigned(SSL_CONF_CTX_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CONF_CTX_set_flags'); + Result := SSL_CONF_CTX_set_flags(cctx,flags); +end; + +function Load_SSL_CONF_CTX_clear_flags(cctx: PSSL_CONF_CTX; flags: TOpenSSL_C_UINT): TOpenSSL_C_UINT; cdecl; +begin + SSL_CONF_CTX_clear_flags := LoadLibSSLFunction('SSL_CONF_CTX_clear_flags'); + if not assigned(SSL_CONF_CTX_clear_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CONF_CTX_clear_flags'); + Result := SSL_CONF_CTX_clear_flags(cctx,flags); +end; + +function Load_SSL_CONF_CTX_set1_prefix(cctx: PSSL_CONF_CTX; const pre: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_CONF_CTX_set1_prefix := LoadLibSSLFunction('SSL_CONF_CTX_set1_prefix'); + if not assigned(SSL_CONF_CTX_set1_prefix) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CONF_CTX_set1_prefix'); + Result := SSL_CONF_CTX_set1_prefix(cctx,pre); +end; + +function Load_SSL_CONF_cmd(cctx: PSSL_CONF_CTX; const cmd: PAnsiChar; const value: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_CONF_cmd := LoadLibSSLFunction('SSL_CONF_cmd'); + if not assigned(SSL_CONF_cmd) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CONF_cmd'); + Result := SSL_CONF_cmd(cctx,cmd,value); +end; + +function Load_SSL_CONF_cmd_argv(cctx: PSSL_CONF_CTX; pargc: POpenSSL_C_INT; pargv: PPPAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_CONF_cmd_argv := LoadLibSSLFunction('SSL_CONF_cmd_argv'); + if not assigned(SSL_CONF_cmd_argv) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CONF_cmd_argv'); + Result := SSL_CONF_cmd_argv(cctx,pargc,pargv); +end; + +function Load_SSL_CONF_cmd_value_type(cctx: PSSL_CONF_CTX; const cmd: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_CONF_cmd_value_type := LoadLibSSLFunction('SSL_CONF_cmd_value_type'); + if not assigned(SSL_CONF_cmd_value_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CONF_cmd_value_type'); + Result := SSL_CONF_cmd_value_type(cctx,cmd); +end; + +procedure Load_SSL_CONF_CTX_set_ssl(cctx: PSSL_CONF_CTX; ssl: PSSL); cdecl; +begin + SSL_CONF_CTX_set_ssl := LoadLibSSLFunction('SSL_CONF_CTX_set_ssl'); + if not assigned(SSL_CONF_CTX_set_ssl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CONF_CTX_set_ssl'); + SSL_CONF_CTX_set_ssl(cctx,ssl); +end; + +procedure Load_SSL_CONF_CTX_set_ssl_ctx(cctx: PSSL_CONF_CTX; ctx: PSSL_CTX); cdecl; +begin + SSL_CONF_CTX_set_ssl_ctx := LoadLibSSLFunction('SSL_CONF_CTX_set_ssl_ctx'); + if not assigned(SSL_CONF_CTX_set_ssl_ctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CONF_CTX_set_ssl_ctx'); + SSL_CONF_CTX_set_ssl_ctx(cctx,ctx); +end; + +procedure Load_SSL_add_ssl_module; cdecl; +begin + SSL_add_ssl_module := LoadLibSSLFunction('SSL_add_ssl_module'); + if not assigned(SSL_add_ssl_module) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_add_ssl_module'); + SSL_add_ssl_module(); +end; + +function Load_SSL_config(s: PSSL; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_config := LoadLibSSLFunction('SSL_config'); + if not assigned(SSL_config) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_config'); + Result := SSL_config(s,name); +end; + +function Load_SSL_CTX_config(ctx: PSSL_CTX; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_config := LoadLibSSLFunction('SSL_CTX_config'); + if not assigned(SSL_CTX_config) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_config'); + Result := SSL_CTX_config(ctx,name); +end; + +function Load_DTLSv1_listen(s: PSSL; client: PBIO_ADDr): TOpenSSL_C_INT; cdecl; +begin + DTLSv1_listen := LoadLibSSLFunction('DTLSv1_listen'); + if not assigned(DTLSv1_listen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DTLSv1_listen'); + Result := DTLSv1_listen(s,client); +end; + +function Load_SSL_enable_ct(s: PSSL; validation_mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_enable_ct := LoadLibSSLFunction('SSL_enable_ct'); + if not assigned(SSL_enable_ct) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_enable_ct'); + Result := SSL_enable_ct(s,validation_mode); +end; + +function Load_SSL_CTX_enable_ct(ctx: PSSL_CTX; validation_mode: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_enable_ct := LoadLibSSLFunction('SSL_CTX_enable_ct'); + if not assigned(SSL_CTX_enable_ct) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_enable_ct'); + Result := SSL_CTX_enable_ct(ctx,validation_mode); +end; + +function Load_SSL_ct_is_enabled(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_ct_is_enabled := LoadLibSSLFunction('SSL_ct_is_enabled'); + if not assigned(SSL_ct_is_enabled) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_ct_is_enabled'); + Result := SSL_ct_is_enabled(s); +end; + +function Load_SSL_CTX_ct_is_enabled(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_ct_is_enabled := LoadLibSSLFunction('SSL_CTX_ct_is_enabled'); + if not assigned(SSL_CTX_ct_is_enabled) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_ct_is_enabled'); + Result := SSL_CTX_ct_is_enabled(ctx); +end; + +function Load_SSL_CTX_set_default_ctlog_list_file(ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_default_ctlog_list_file := LoadLibSSLFunction('SSL_CTX_set_default_ctlog_list_file'); + if not assigned(SSL_CTX_set_default_ctlog_list_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_default_ctlog_list_file'); + Result := SSL_CTX_set_default_ctlog_list_file(ctx); +end; + +function Load_SSL_CTX_set_ctlog_list_file(ctx: PSSL_CTX; const path: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_ctlog_list_file := LoadLibSSLFunction('SSL_CTX_set_ctlog_list_file'); + if not assigned(SSL_CTX_set_ctlog_list_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_ctlog_list_file'); + Result := SSL_CTX_set_ctlog_list_file(ctx,path); +end; + +procedure Load_SSL_CTX_set0_ctlog_store(ctx: PSSL_CTX; logs: PCTLOG_STORE); cdecl; +begin + SSL_CTX_set0_ctlog_store := LoadLibSSLFunction('SSL_CTX_set0_ctlog_store'); + if not assigned(SSL_CTX_set0_ctlog_store) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set0_ctlog_store'); + SSL_CTX_set0_ctlog_store(ctx,logs); +end; + +procedure Load_SSL_set_security_level(s: PSSL; level: TOpenSSL_C_INT); cdecl; +begin + SSL_set_security_level := LoadLibSSLFunction('SSL_set_security_level'); + if not assigned(SSL_set_security_level) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_security_level'); + SSL_set_security_level(s,level); +end; + +procedure Load_SSL_set_security_callback(s: PSSL; cb: SSL_security_callback); cdecl; +begin + SSL_set_security_callback := LoadLibSSLFunction('SSL_set_security_callback'); + if not assigned(SSL_set_security_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_security_callback'); + SSL_set_security_callback(s,cb); +end; + +function Load_SSL_get_security_callback(const s: PSSL): SSL_security_callback; cdecl; +begin + SSL_get_security_callback := LoadLibSSLFunction('SSL_get_security_callback'); + if not assigned(SSL_get_security_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_security_callback'); + Result := SSL_get_security_callback(s); +end; + +procedure Load_SSL_set0_security_ex_data(s: PSSL; ex: Pointer); cdecl; +begin + SSL_set0_security_ex_data := LoadLibSSLFunction('SSL_set0_security_ex_data'); + if not assigned(SSL_set0_security_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set0_security_ex_data'); + SSL_set0_security_ex_data(s,ex); +end; + +function Load_SSL_get0_security_ex_data(const s: PSSL): Pointer; cdecl; +begin + SSL_get0_security_ex_data := LoadLibSSLFunction('SSL_get0_security_ex_data'); + if not assigned(SSL_get0_security_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get0_security_ex_data'); + Result := SSL_get0_security_ex_data(s); +end; + +procedure Load_SSL_CTX_set_security_level(ctx: PSSL_CTX; level: TOpenSSL_C_INT); cdecl; +begin + SSL_CTX_set_security_level := LoadLibSSLFunction('SSL_CTX_set_security_level'); + if not assigned(SSL_CTX_set_security_level) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_security_level'); + SSL_CTX_set_security_level(ctx,level); +end; + +function Load_SSL_CTX_get_security_level(const ctx: PSSL_CTX): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_get_security_level := LoadLibSSLFunction('SSL_CTX_get_security_level'); + if not assigned(SSL_CTX_get_security_level) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get_security_level'); + Result := SSL_CTX_get_security_level(ctx); +end; + +function Load_SSL_CTX_get0_security_ex_data(const ctx: PSSL_CTX): Pointer; cdecl; +begin + SSL_CTX_get0_security_ex_data := LoadLibSSLFunction('SSL_CTX_get0_security_ex_data'); + if not assigned(SSL_CTX_get0_security_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_get0_security_ex_data'); + Result := SSL_CTX_get0_security_ex_data(ctx); +end; + +procedure Load_SSL_CTX_set0_security_ex_data(ctx: PSSL_CTX; ex: Pointer); cdecl; +begin + SSL_CTX_set0_security_ex_data := LoadLibSSLFunction('SSL_CTX_set0_security_ex_data'); + if not assigned(SSL_CTX_set0_security_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set0_security_ex_data'); + SSL_CTX_set0_security_ex_data(ctx,ex); +end; + +function Load_OPENSSL_init_ssl(opts: TOpenSSL_C_UINT64; const settings: POPENSSL_INIT_SETTINGS): TOpenSSL_C_INT; cdecl; +begin + OPENSSL_init_ssl := LoadLibSSLFunction('OPENSSL_init_ssl'); + if not assigned(OPENSSL_init_ssl) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_init_ssl := @COMPAT_OPENSSL_init_ssl; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_init_ssl'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_init_ssl(opts,settings); +end; + +function Load_SSL_free_buffers(ssl: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_free_buffers := LoadLibSSLFunction('SSL_free_buffers'); + if not assigned(SSL_free_buffers) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_free_buffers'); + Result := SSL_free_buffers(ssl); +end; + +function Load_SSL_alloc_buffers(ssl: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_alloc_buffers := LoadLibSSLFunction('SSL_alloc_buffers'); + if not assigned(SSL_alloc_buffers) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_alloc_buffers'); + Result := SSL_alloc_buffers(ssl); +end; + +function Load_SSL_CTX_set_session_ticket_cb(ctx: PSSL_CTX; gen_cb: SSL_CTX_generate_session_ticket_fn; dec_cb: SSL_CTX_decrypt_session_ticket_fn; arg: Pointer): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_session_ticket_cb := LoadLibSSLFunction('SSL_CTX_set_session_ticket_cb'); + if not assigned(SSL_CTX_set_session_ticket_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_session_ticket_cb'); + Result := SSL_CTX_set_session_ticket_cb(ctx,gen_cb,dec_cb,arg); +end; + +function Load_SSL_SESSION_set1_ticket_appdata(ss: PSSL_SESSION; const data: Pointer; len: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_set1_ticket_appdata := LoadLibSSLFunction('SSL_SESSION_set1_ticket_appdata'); + if not assigned(SSL_SESSION_set1_ticket_appdata) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_set1_ticket_appdata'); + Result := SSL_SESSION_set1_ticket_appdata(ss,data,len); +end; + +function Load_SSL_SESSION_get0_ticket_appdata(ss: PSSL_SESSION; data: PPointer; len: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_SESSION_get0_ticket_appdata := LoadLibSSLFunction('SSL_SESSION_get0_ticket_appdata'); + if not assigned(SSL_SESSION_get0_ticket_appdata) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_SESSION_get0_ticket_appdata'); + Result := SSL_SESSION_get0_ticket_appdata(ss,data,len); +end; + +procedure Load_DTLS_set_timer_cb(s: PSSL; cb: DTLS_timer_cb); cdecl; +begin + DTLS_set_timer_cb := LoadLibSSLFunction('DTLS_set_timer_cb'); + if not assigned(DTLS_set_timer_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DTLS_set_timer_cb'); + DTLS_set_timer_cb(s,cb); +end; + +procedure Load_SSL_CTX_set_allow_early_data_cb(ctx: PSSL_CTX; cb: SSL_allow_early_data_cb_fN; arg: Pointer); cdecl; +begin + SSL_CTX_set_allow_early_data_cb := LoadLibSSLFunction('SSL_CTX_set_allow_early_data_cb'); + if not assigned(SSL_CTX_set_allow_early_data_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_allow_early_data_cb'); + SSL_CTX_set_allow_early_data_cb(ctx,cb,arg); +end; + +procedure Load_SSL_set_allow_early_data_cb(s: PSSL; cb: SSL_allow_early_data_cb_fN; arg: Pointer); cdecl; +begin + SSL_set_allow_early_data_cb := LoadLibSSLFunction('SSL_set_allow_early_data_cb'); + if not assigned(SSL_set_allow_early_data_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_allow_early_data_cb'); + SSL_set_allow_early_data_cb(s,cb,arg); +end; + +function Load_SSL_get0_peer_certificate(const s: PSSL): PX509; cdecl; +begin + SSL_get0_peer_certificate := LoadLibSSLFunction('SSL_get0_peer_certificate'); + if not assigned(SSL_get0_peer_certificate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get0_peer_certificate'); + Result := SSL_get0_peer_certificate(s); +end; + +function Load_SSL_get1_peer_certificate(const s: PSSL): PX509; cdecl; +begin + SSL_get1_peer_certificate := LoadLibSSLFunction('SSL_get1_peer_certificate'); + if not assigned(SSL_get1_peer_certificate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get1_peer_certificate'); + Result := SSL_get1_peer_certificate(s); +end; + +procedure Load(LibVersion: TOpenSSL_C_UINT; const AFailed: TStringList); +var FuncLoadError: boolean; +begin +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSLv2_method := LoadLibSSLFunction('SSLv2_method'); + FuncLoadError := not assigned(SSLv2_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + SSLv2_server_method := LoadLibSSLFunction('SSLv2_server_method'); + FuncLoadError := not assigned(SSLv2_server_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + SSLv2_client_method := LoadLibSSLFunction('SSLv2_client_method'); + FuncLoadError := not assigned(SSLv2_client_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + SSLv3_method := LoadLibSSLFunction('SSLv3_method'); + FuncLoadError := not assigned(SSLv3_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + SSLv3_server_method := LoadLibSSLFunction('SSLv3_server_method'); + FuncLoadError := not assigned(SSLv3_server_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + SSLv3_client_method := LoadLibSSLFunction('SSLv3_client_method'); + FuncLoadError := not assigned(SSLv3_client_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + SSLv23_method := LoadLibSSLFunction('SSLv23_method'); + FuncLoadError := not assigned(SSLv23_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + SSLv23_server_method := LoadLibSSLFunction('SSLv23_server_method'); + FuncLoadError := not assigned(SSLv23_server_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + SSLv23_client_method := LoadLibSSLFunction('SSLv23_client_method'); + FuncLoadError := not assigned(SSLv23_client_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + TLSv1_method := LoadLibSSLFunction('TLSv1_method'); + FuncLoadError := not assigned(TLSv1_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + TLSv1_server_method := LoadLibSSLFunction('TLSv1_server_method'); + FuncLoadError := not assigned(TLSv1_server_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + TLSv1_client_method := LoadLibSSLFunction('TLSv1_client_method'); + FuncLoadError := not assigned(TLSv1_client_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + TLSv1_1_method := LoadLibSSLFunction('TLSv1_1_method'); + FuncLoadError := not assigned(TLSv1_1_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + TLSv1_1_server_method := LoadLibSSLFunction('TLSv1_1_server_method'); + FuncLoadError := not assigned(TLSv1_1_server_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + TLSv1_1_client_method := LoadLibSSLFunction('TLSv1_1_client_method'); + FuncLoadError := not assigned(TLSv1_1_client_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + TLSv1_2_method := LoadLibSSLFunction('TLSv1_2_method'); + FuncLoadError := not assigned(TLSv1_2_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + TLSv1_2_server_method := LoadLibSSLFunction('TLSv1_2_server_method'); + FuncLoadError := not assigned(TLSv1_2_server_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + + TLSv1_2_client_method := LoadLibSSLFunction('TLSv1_2_client_method'); + FuncLoadError := not assigned(TLSv1_2_client_method); + if FuncLoadError then + begin + {Don't report allow nil failure} + end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +end; + +procedure UnLoad; +begin +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_CTX_set_mode := Load_SSL_CTX_set_mode; + SSL_CTX_clear_mode := Load_SSL_CTX_clear_mode; + SSL_CTX_sess_set_cache_size := Load_SSL_CTX_sess_set_cache_size; + SSL_CTX_sess_get_cache_size := Load_SSL_CTX_sess_get_cache_size; + SSL_CTX_set_session_cache_mode := Load_SSL_CTX_set_session_cache_mode; + SSL_CTX_get_session_cache_mode := Load_SSL_CTX_get_session_cache_mode; + SSL_clear_num_renegotiations := Load_SSL_clear_num_renegotiations; + SSL_total_renegotiations := Load_SSL_total_renegotiations; + SSL_CTX_set_tmp_dh := Load_SSL_CTX_set_tmp_dh; + SSL_CTX_set_tmp_ecdh := Load_SSL_CTX_set_tmp_ecdh; + SSL_CTX_set_dh_auto := Load_SSL_CTX_set_dh_auto; + SSL_set_dh_auto := Load_SSL_set_dh_auto; + SSL_set_tmp_dh := Load_SSL_set_tmp_dh; + SSL_set_tmp_ecdh := Load_SSL_set_tmp_ecdh; + SSL_CTX_add_extra_chain_cert := Load_SSL_CTX_add_extra_chain_cert; + SSL_CTX_get_extra_chain_certs := Load_SSL_CTX_get_extra_chain_certs; + SSL_CTX_get_extra_chain_certs_only := Load_SSL_CTX_get_extra_chain_certs_only; + SSL_CTX_clear_extra_chain_certs := Load_SSL_CTX_clear_extra_chain_certs; + SSL_CTX_set0_chain := Load_SSL_CTX_set0_chain; + SSL_CTX_set1_chain := Load_SSL_CTX_set1_chain; + SSL_CTX_add0_chain_cert := Load_SSL_CTX_add0_chain_cert; + SSL_CTX_add1_chain_cert := Load_SSL_CTX_add1_chain_cert; + SSL_CTX_get0_chain_certs := Load_SSL_CTX_get0_chain_certs; + SSL_CTX_clear_chain_certs := Load_SSL_CTX_clear_chain_certs; + SSL_CTX_build_cert_chain := Load_SSL_CTX_build_cert_chain; + SSL_CTX_select_current_cert := Load_SSL_CTX_select_current_cert; + SSL_CTX_set_current_cert := Load_SSL_CTX_set_current_cert; + SSL_CTX_set0_verify_cert_store := Load_SSL_CTX_set0_verify_cert_store; + SSL_CTX_set1_verify_cert_store := Load_SSL_CTX_set1_verify_cert_store; + SSL_CTX_set0_chain_cert_store := Load_SSL_CTX_set0_chain_cert_store; + SSL_CTX_set1_chain_cert_store := Load_SSL_CTX_set1_chain_cert_store; + SSL_set0_chain := Load_SSL_set0_chain; + SSL_set1_chain := Load_SSL_set1_chain; + SSL_add0_chain_cert := Load_SSL_add0_chain_cert; + SSL_add1_chain_cert := Load_SSL_add1_chain_cert; + SSL_get0_chain_certs := Load_SSL_get0_chain_certs; + SSL_clear_chain_certs := Load_SSL_clear_chain_certs; + SSL_build_cert_chain := Load_SSL_build_cert_chain; + SSL_select_current_cert := Load_SSL_select_current_cert; + SSL_set_current_cert := Load_SSL_set_current_cert; + SSL_set0_verify_cert_store := Load_SSL_set0_verify_cert_store; + SSL_set1_verify_cert_store := Load_SSL_set1_verify_cert_store; + SSL_set0_chain_cert_store := Load_SSL_set0_chain_cert_store; + SSL_set1_chain_cert_store := Load_SSL_set1_chain_cert_store; + SSL_get1_groups := Load_SSL_get1_groups; + SSL_CTX_set1_groups := Load_SSL_CTX_set1_groups; + SSL_CTX_set1_groups_list := Load_SSL_CTX_set1_groups_list; + SSL_set1_groups := Load_SSL_set1_groups; + SSL_set1_groups_list := Load_SSL_set1_groups_list; + SSL_get_shared_group := Load_SSL_get_shared_group; + SSL_CTX_set1_sigalgs := Load_SSL_CTX_set1_sigalgs; + SSL_CTX_set1_sigalgs_list := Load_SSL_CTX_set1_sigalgs_list; + SSL_set1_sigalgs := Load_SSL_set1_sigalgs; + SSL_set1_sigalgs_list := Load_SSL_set1_sigalgs_list; + SSL_CTX_set1_client_sigalgs := Load_SSL_CTX_set1_client_sigalgs; + SSL_CTX_set1_client_sigalgs_list := Load_SSL_CTX_set1_client_sigalgs_list; + SSL_set1_client_sigalgs := Load_SSL_set1_client_sigalgs; + SSL_set1_client_sigalgs_list := Load_SSL_set1_client_sigalgs_list; + SSL_get0_certificate_types := Load_SSL_get0_certificate_types; + SSL_CTX_set1_client_certificate_types := Load_SSL_CTX_set1_client_certificate_types; + SSL_set1_client_certificate_types := Load_SSL_set1_client_certificate_types; + SSL_get_signature_nid := Load_SSL_get_signature_nid; + SSL_get_peer_signature_nid := Load_SSL_get_peer_signature_nid; + SSL_get_peer_tmp_key := Load_SSL_get_peer_tmp_key; + SSL_get_tmp_key := Load_SSL_get_tmp_key; + SSL_get0_raw_cipherlist := Load_SSL_get0_raw_cipherlist; + SSL_get0_ec_point_formats := Load_SSL_get0_ec_point_formats; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + SSL_CTX_get_options := Load_SSL_CTX_get_options; + SSL_get_options := Load_SSL_get_options; + SSL_CTX_clear_options := Load_SSL_CTX_clear_options; + SSL_clear_options := Load_SSL_clear_options; + SSL_CTX_set_options := Load_SSL_CTX_set_options; + SSL_set_options := Load_SSL_set_options; + SSL_CTX_sess_set_new_cb := Load_SSL_CTX_sess_set_new_cb; + SSL_CTX_sess_get_new_cb := Load_SSL_CTX_sess_get_new_cb; + SSL_CTX_sess_set_remove_cb := Load_SSL_CTX_sess_set_remove_cb; + SSL_CTX_sess_get_remove_cb := Load_SSL_CTX_sess_get_remove_cb; + SSL_CTX_set_info_callback := Load_SSL_CTX_set_info_callback; + SSL_CTX_get_info_callback := Load_SSL_CTX_get_info_callback; + SSL_CTX_set_client_cert_cb := Load_SSL_CTX_set_client_cert_cb; + SSL_CTX_get_client_cert_cb := Load_SSL_CTX_get_client_cert_cb; + SSL_CTX_set_client_cert_engine := Load_SSL_CTX_set_client_cert_engine; + SSL_CTX_set_cookie_generate_cb := Load_SSL_CTX_set_cookie_generate_cb; + SSL_CTX_set_cookie_verify_cb := Load_SSL_CTX_set_cookie_verify_cb; + SSL_CTX_set_stateless_cookie_generate_cb := Load_SSL_CTX_set_stateless_cookie_generate_cb; + SSL_CTX_set_stateless_cookie_verify_cb := Load_SSL_CTX_set_stateless_cookie_verify_cb; + SSL_CTX_set_alpn_select_cb := Load_SSL_CTX_set_alpn_select_cb; + SSL_get0_alpn_selected := Load_SSL_get0_alpn_selected; + SSL_CTX_set_psk_client_callback := Load_SSL_CTX_set_psk_client_callback; + SSL_set_psk_client_callback := Load_SSL_set_psk_client_callback; + SSL_CTX_set_psk_server_callback := Load_SSL_CTX_set_psk_server_callback; + SSL_set_psk_server_callback := Load_SSL_set_psk_server_callback; + SSL_set_psk_find_session_callback := Load_SSL_set_psk_find_session_callback; + SSL_CTX_set_psk_find_session_callback := Load_SSL_CTX_set_psk_find_session_callback; + SSL_set_psk_use_session_callback := Load_SSL_set_psk_use_session_callback; + SSL_CTX_set_psk_use_session_callback := Load_SSL_CTX_set_psk_use_session_callback; + SSL_CTX_set_keylog_callback := Load_SSL_CTX_set_keylog_callback; + SSL_CTX_get_keylog_callback := Load_SSL_CTX_get_keylog_callback; + SSL_CTX_set_max_early_data := Load_SSL_CTX_set_max_early_data; + SSL_CTX_get_max_early_data := Load_SSL_CTX_get_max_early_data; + SSL_set_max_early_data := Load_SSL_set_max_early_data; + SSL_get_max_early_data := Load_SSL_get_max_early_data; + SSL_CTX_set_recv_max_early_data := Load_SSL_CTX_set_recv_max_early_data; + SSL_CTX_get_recv_max_early_data := Load_SSL_CTX_get_recv_max_early_data; + SSL_set_recv_max_early_data := Load_SSL_set_recv_max_early_data; + SSL_get_recv_max_early_data := Load_SSL_get_recv_max_early_data; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_get_app_data := Load_SSL_get_app_data; + SSL_set_app_data := Load_SSL_set_app_data; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + SSL_in_init := Load_SSL_in_init; + SSL_in_before := Load_SSL_in_before; + SSL_is_init_finished := Load_SSL_is_init_finished; + SSL_get_finished := Load_SSL_get_finished; + SSL_get_peer_finished := Load_SSL_get_peer_finished; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSLeay_add_ssl_algorithms := Load_SSLeay_add_ssl_algorithms; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + BIO_f_ssl := Load_BIO_f_ssl; + BIO_new_ssl := Load_BIO_new_ssl; + BIO_new_ssl_connect := Load_BIO_new_ssl_connect; + BIO_new_buffer_ssl_connect := Load_BIO_new_buffer_ssl_connect; + BIO_ssl_copy_session_id := Load_BIO_ssl_copy_session_id; + SSL_CTX_set_cipher_list := Load_SSL_CTX_set_cipher_list; + SSL_CTX_new := Load_SSL_CTX_new; + SSL_CTX_set_timeout := Load_SSL_CTX_set_timeout; + SSL_CTX_get_timeout := Load_SSL_CTX_get_timeout; + SSL_CTX_get_cert_store := Load_SSL_CTX_get_cert_store; + SSL_want := Load_SSL_want; + SSL_clear := Load_SSL_clear; + BIO_ssl_shutdown := Load_BIO_ssl_shutdown; + SSL_CTX_up_ref := Load_SSL_CTX_up_ref; + SSL_CTX_free := Load_SSL_CTX_free; + SSL_CTX_set_cert_store := Load_SSL_CTX_set_cert_store; + SSL_CTX_set1_cert_store := Load_SSL_CTX_set1_cert_store; + SSL_CTX_flush_sessions := Load_SSL_CTX_flush_sessions; + SSL_get_current_cipher := Load_SSL_get_current_cipher; + SSL_get_pending_cipher := Load_SSL_get_pending_cipher; + SSL_CIPHER_get_bits := Load_SSL_CIPHER_get_bits; + SSL_CIPHER_get_version := Load_SSL_CIPHER_get_version; + SSL_CIPHER_get_name := Load_SSL_CIPHER_get_name; + SSL_CIPHER_standard_name := Load_SSL_CIPHER_standard_name; + OPENSSL_cipher_name := Load_OPENSSL_cipher_name; + SSL_CIPHER_get_id := Load_SSL_CIPHER_get_id; + SSL_CIPHER_get_protocol_id := Load_SSL_CIPHER_get_protocol_id; + SSL_CIPHER_get_kx_nid := Load_SSL_CIPHER_get_kx_nid; + SSL_CIPHER_get_auth_nid := Load_SSL_CIPHER_get_auth_nid; + SSL_CIPHER_get_handshake_digest := Load_SSL_CIPHER_get_handshake_digest; + SSL_CIPHER_is_aead := Load_SSL_CIPHER_is_aead; + SSL_get_fd := Load_SSL_get_fd; + SSL_get_rfd := Load_SSL_get_rfd; + SSL_get_wfd := Load_SSL_get_wfd; + SSL_get_cipher_list := Load_SSL_get_cipher_list; + SSL_get_shared_ciphers := Load_SSL_get_shared_ciphers; + SSL_get_read_ahead := Load_SSL_get_read_ahead; + SSL_pending := Load_SSL_pending; + SSL_has_pending := Load_SSL_has_pending; + SSL_set_fd := Load_SSL_set_fd; + SSL_set_rfd := Load_SSL_set_rfd; + SSL_set_wfd := Load_SSL_set_wfd; + SSL_set0_rbio := Load_SSL_set0_rbio; + SSL_set0_wbio := Load_SSL_set0_wbio; + SSL_set_bio := Load_SSL_set_bio; + SSL_get_rbio := Load_SSL_get_rbio; + SSL_get_wbio := Load_SSL_get_wbio; + SSL_set_cipher_list := Load_SSL_set_cipher_list; + SSL_CTX_set_ciphersuites := Load_SSL_CTX_set_ciphersuites; + SSL_set_ciphersuites := Load_SSL_set_ciphersuites; + SSL_get_verify_mode := Load_SSL_get_verify_mode; + SSL_get_verify_depth := Load_SSL_get_verify_depth; + SSL_get_verify_callback := Load_SSL_get_verify_callback; + SSL_set_read_ahead := Load_SSL_set_read_ahead; + SSL_set_verify := Load_SSL_set_verify; + SSL_set_verify_depth := Load_SSL_set_verify_depth; + SSL_use_RSAPrivateKey := Load_SSL_use_RSAPrivateKey; + SSL_use_RSAPrivateKey_ASN1 := Load_SSL_use_RSAPrivateKey_ASN1; + SSL_use_PrivateKey := Load_SSL_use_PrivateKey; + SSL_use_PrivateKey_ASN1 := Load_SSL_use_PrivateKey_ASN1; + SSL_use_certificate := Load_SSL_use_certificate; + SSL_use_certificate_ASN1 := Load_SSL_use_certificate_ASN1; + SSL_CTX_use_serverinfo := Load_SSL_CTX_use_serverinfo; + SSL_CTX_use_serverinfo_ex := Load_SSL_CTX_use_serverinfo_ex; + SSL_CTX_use_serverinfo_file := Load_SSL_CTX_use_serverinfo_file; + SSL_use_RSAPrivateKey_file := Load_SSL_use_RSAPrivateKey_file; + SSL_use_PrivateKey_file := Load_SSL_use_PrivateKey_file; + SSL_use_certificate_file := Load_SSL_use_certificate_file; + SSL_CTX_use_RSAPrivateKey_file := Load_SSL_CTX_use_RSAPrivateKey_file; + SSL_CTX_use_PrivateKey_file := Load_SSL_CTX_use_PrivateKey_file; + SSL_CTX_use_certificate_file := Load_SSL_CTX_use_certificate_file; + SSL_CTX_use_certificate_chain_file := Load_SSL_CTX_use_certificate_chain_file; + SSL_use_certificate_chain_file := Load_SSL_use_certificate_chain_file; + SSL_load_client_CA_file := Load_SSL_load_client_CA_file; + SSL_add_file_cert_subjects_to_stack := Load_SSL_add_file_cert_subjects_to_stack; + SSL_add_dir_cert_subjects_to_stack := Load_SSL_add_dir_cert_subjects_to_stack; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_load_error_strings := Load_SSL_load_error_strings; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + SSL_state_string := Load_SSL_state_string; + SSL_rstate_string := Load_SSL_rstate_string; + SSL_state_string_long := Load_SSL_state_string_long; + SSL_rstate_string_long := Load_SSL_rstate_string_long; + SSL_SESSION_get_time := Load_SSL_SESSION_get_time; + SSL_SESSION_set_time := Load_SSL_SESSION_set_time; + SSL_SESSION_get_timeout := Load_SSL_SESSION_get_timeout; + SSL_SESSION_set_timeout := Load_SSL_SESSION_set_timeout; + SSL_SESSION_get_protocol_version := Load_SSL_SESSION_get_protocol_version; + SSL_SESSION_set_protocol_version := Load_SSL_SESSION_set_protocol_version; + SSL_SESSION_get0_hostname := Load_SSL_SESSION_get0_hostname; + SSL_SESSION_set1_hostname := Load_SSL_SESSION_set1_hostname; + SSL_SESSION_get0_alpn_selected := Load_SSL_SESSION_get0_alpn_selected; + SSL_SESSION_set1_alpn_selected := Load_SSL_SESSION_set1_alpn_selected; + SSL_SESSION_get0_cipher := Load_SSL_SESSION_get0_cipher; + SSL_SESSION_set_cipher := Load_SSL_SESSION_set_cipher; + SSL_SESSION_has_ticket := Load_SSL_SESSION_has_ticket; + SSL_SESSION_get_ticket_lifetime_hint := Load_SSL_SESSION_get_ticket_lifetime_hint; + SSL_SESSION_get0_ticket := Load_SSL_SESSION_get0_ticket; + SSL_SESSION_get_max_early_data := Load_SSL_SESSION_get_max_early_data; + SSL_SESSION_set_max_early_data := Load_SSL_SESSION_set_max_early_data; + SSL_copy_session_id := Load_SSL_copy_session_id; + SSL_SESSION_get0_peer := Load_SSL_SESSION_get0_peer; + SSL_SESSION_set1_id_context := Load_SSL_SESSION_set1_id_context; + SSL_SESSION_set1_id := Load_SSL_SESSION_set1_id; + SSL_SESSION_is_resumable := Load_SSL_SESSION_is_resumable; + SSL_SESSION_new := Load_SSL_SESSION_new; + SSL_SESSION_dup := Load_SSL_SESSION_dup; + SSL_SESSION_get_id := Load_SSL_SESSION_get_id; + SSL_SESSION_get0_id_context := Load_SSL_SESSION_get0_id_context; + SSL_SESSION_get_compress_id := Load_SSL_SESSION_get_compress_id; + SSL_SESSION_print := Load_SSL_SESSION_print; + SSL_SESSION_print_keylog := Load_SSL_SESSION_print_keylog; + SSL_SESSION_up_ref := Load_SSL_SESSION_up_ref; + SSL_SESSION_free := Load_SSL_SESSION_free; + SSL_set_session := Load_SSL_set_session; + SSL_CTX_add_session := Load_SSL_CTX_add_session; + SSL_CTX_remove_session := Load_SSL_CTX_remove_session; + SSL_CTX_set_generate_session_id := Load_SSL_CTX_set_generate_session_id; + SSL_set_generate_session_id := Load_SSL_set_generate_session_id; + SSL_has_matching_session_id := Load_SSL_has_matching_session_id; + d2i_SSL_SESSION := Load_d2i_SSL_SESSION; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_get_peer_certificate := Load_SSL_get_peer_certificate; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + SSL_CTX_get_verify_mode := Load_SSL_CTX_get_verify_mode; + SSL_CTX_get_verify_depth := Load_SSL_CTX_get_verify_depth; + SSL_CTX_get_verify_callback := Load_SSL_CTX_get_verify_callback; + SSL_CTX_set_verify := Load_SSL_CTX_set_verify; + SSL_CTX_set_verify_depth := Load_SSL_CTX_set_verify_depth; + SSL_CTX_set_cert_verify_callback := Load_SSL_CTX_set_cert_verify_callback; + SSL_CTX_set_cert_cb := Load_SSL_CTX_set_cert_cb; + SSL_CTX_use_RSAPrivateKey := Load_SSL_CTX_use_RSAPrivateKey; + SSL_CTX_use_RSAPrivateKey_ASN1 := Load_SSL_CTX_use_RSAPrivateKey_ASN1; + SSL_CTX_use_PrivateKey := Load_SSL_CTX_use_PrivateKey; + SSL_CTX_use_PrivateKey_ASN1 := Load_SSL_CTX_use_PrivateKey_ASN1; + SSL_CTX_use_certificate := Load_SSL_CTX_use_certificate; + SSL_CTX_use_certificate_ASN1 := Load_SSL_CTX_use_certificate_ASN1; + SSL_CTX_set_default_passwd_cb := Load_SSL_CTX_set_default_passwd_cb; + SSL_CTX_set_default_passwd_cb_userdata := Load_SSL_CTX_set_default_passwd_cb_userdata; + SSL_CTX_get_default_passwd_cb := Load_SSL_CTX_get_default_passwd_cb; + SSL_CTX_get_default_passwd_cb_userdata := Load_SSL_CTX_get_default_passwd_cb_userdata; + SSL_set_default_passwd_cb := Load_SSL_set_default_passwd_cb; + SSL_set_default_passwd_cb_userdata := Load_SSL_set_default_passwd_cb_userdata; + SSL_get_default_passwd_cb := Load_SSL_get_default_passwd_cb; + SSL_get_default_passwd_cb_userdata := Load_SSL_get_default_passwd_cb_userdata; + SSL_CTX_check_private_key := Load_SSL_CTX_check_private_key; + SSL_check_private_key := Load_SSL_check_private_key; + SSL_CTX_set_session_id_context := Load_SSL_CTX_set_session_id_context; + SSL_new := Load_SSL_new; + SSL_up_ref := Load_SSL_up_ref; + SSL_is_dtls := Load_SSL_is_dtls; + SSL_set_session_id_context := Load_SSL_set_session_id_context; + SSL_CTX_set_purpose := Load_SSL_CTX_set_purpose; + SSL_set_purpose := Load_SSL_set_purpose; + SSL_CTX_set_trust := Load_SSL_CTX_set_trust; + SSL_set_trust := Load_SSL_set_trust; + SSL_set1_host := Load_SSL_set1_host; + SSL_add1_host := Load_SSL_add1_host; + SSL_get0_peername := Load_SSL_get0_peername; + SSL_set_hostflags := Load_SSL_set_hostflags; + SSL_CTX_dane_enable := Load_SSL_CTX_dane_enable; + SSL_CTX_dane_mtype_set := Load_SSL_CTX_dane_mtype_set; + SSL_dane_enable := Load_SSL_dane_enable; + SSL_dane_tlsa_add := Load_SSL_dane_tlsa_add; + SSL_get0_dane_authority := Load_SSL_get0_dane_authority; + SSL_get0_dane_tlsa := Load_SSL_get0_dane_tlsa; + SSL_get0_dane := Load_SSL_get0_dane; + SSL_CTX_dane_set_flags := Load_SSL_CTX_dane_set_flags; + SSL_CTX_dane_clear_flags := Load_SSL_CTX_dane_clear_flags; + SSL_dane_set_flags := Load_SSL_dane_set_flags; + SSL_dane_clear_flags := Load_SSL_dane_clear_flags; + SSL_CTX_set1_param := Load_SSL_CTX_set1_param; + SSL_set1_param := Load_SSL_set1_param; + SSL_CTX_get0_param := Load_SSL_CTX_get0_param; + SSL_get0_param := Load_SSL_get0_param; + SSL_CTX_set_srp_username := Load_SSL_CTX_set_srp_username; + SSL_CTX_set_srp_password := Load_SSL_CTX_set_srp_password; + SSL_CTX_set_srp_strength := Load_SSL_CTX_set_srp_strength; + SSL_CTX_set_srp_client_pwd_callback := Load_SSL_CTX_set_srp_client_pwd_callback; + SSL_CTX_set_srp_verify_param_callback := Load_SSL_CTX_set_srp_verify_param_callback; + SSL_CTX_set_srp_username_callback := Load_SSL_CTX_set_srp_username_callback; + SSL_CTX_set_srp_cb_arg := Load_SSL_CTX_set_srp_cb_arg; + SSL_set_srp_server_param := Load_SSL_set_srp_server_param; + SSL_set_srp_server_param_pw := Load_SSL_set_srp_server_param_pw; + SSL_CTX_set_client_hello_cb := Load_SSL_CTX_set_client_hello_cb; + SSL_client_hello_isv2 := Load_SSL_client_hello_isv2; + SSL_client_hello_get0_legacy_version := Load_SSL_client_hello_get0_legacy_version; + SSL_client_hello_get0_random := Load_SSL_client_hello_get0_random; + SSL_client_hello_get0_session_id := Load_SSL_client_hello_get0_session_id; + SSL_client_hello_get0_ciphers := Load_SSL_client_hello_get0_ciphers; + SSL_client_hello_get0_compression_methods := Load_SSL_client_hello_get0_compression_methods; + SSL_client_hello_get1_extensions_present := Load_SSL_client_hello_get1_extensions_present; + SSL_client_hello_get0_ext := Load_SSL_client_hello_get0_ext; + SSL_certs_clear := Load_SSL_certs_clear; + SSL_free := Load_SSL_free; + SSL_waiting_for_async := Load_SSL_waiting_for_async; + SSL_get_all_async_fds := Load_SSL_get_all_async_fds; + SSL_get_changed_async_fds := Load_SSL_get_changed_async_fds; + SSL_accept := Load_SSL_accept; + SSL_stateless := Load_SSL_stateless; + SSL_connect := Load_SSL_connect; + SSL_read := Load_SSL_read; + SSL_read_ex := Load_SSL_read_ex; + SSL_read_early_data := Load_SSL_read_early_data; + SSL_peek := Load_SSL_peek; + SSL_peek_ex := Load_SSL_peek_ex; + SSL_write := Load_SSL_write; + SSL_write_ex := Load_SSL_write_ex; + SSL_write_early_data := Load_SSL_write_early_data; + SSL_callback_ctrl := Load_SSL_callback_ctrl; + SSL_ctrl := Load_SSL_ctrl; + SSL_CTX_ctrl := Load_SSL_CTX_ctrl; + SSL_CTX_callback_ctrl := Load_SSL_CTX_callback_ctrl; + SSL_get_early_data_status := Load_SSL_get_early_data_status; + SSL_get_error := Load_SSL_get_error; + SSL_get_version := Load_SSL_get_version; + SSL_CTX_set_ssl_version := Load_SSL_CTX_set_ssl_version; + TLS_method := Load_TLS_method; + TLS_server_method := Load_TLS_server_method; + TLS_client_method := Load_TLS_client_method; + SSL_do_handshake := Load_SSL_do_handshake; + SSL_key_update := Load_SSL_key_update; + SSL_get_key_update_type := Load_SSL_get_key_update_type; + SSL_renegotiate := Load_SSL_renegotiate; + SSL_renegotiate_abbreviated := Load_SSL_renegotiate_abbreviated; + SSL_new_session_ticket := Load_SSL_new_session_ticket; + SSL_shutdown := Load_SSL_shutdown; + SSL_CTX_set_post_handshake_auth := Load_SSL_CTX_set_post_handshake_auth; + SSL_set_post_handshake_auth := Load_SSL_set_post_handshake_auth; + SSL_renegotiate_pending := Load_SSL_renegotiate_pending; + SSL_verify_client_post_handshake := Load_SSL_verify_client_post_handshake; + SSL_CTX_get_ssl_method := Load_SSL_CTX_get_ssl_method; + SSL_get_ssl_method := Load_SSL_get_ssl_method; + SSL_set_ssl_method := Load_SSL_set_ssl_method; + SSL_alert_type_string_long := Load_SSL_alert_type_string_long; + SSL_alert_type_string := Load_SSL_alert_type_string; + SSL_alert_desc_string_long := Load_SSL_alert_desc_string_long; + SSL_alert_desc_string := Load_SSL_alert_desc_string; + SSL_CTX_set_client_CA_list := Load_SSL_CTX_set_client_CA_list; + SSL_add_client_CA := Load_SSL_add_client_CA; + SSL_CTX_add_client_CA := Load_SSL_CTX_add_client_CA; + SSL_set_connect_state := Load_SSL_set_connect_state; + SSL_set_accept_state := Load_SSL_set_accept_state; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_library_init := Load_SSL_library_init; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + SSL_CIPHER_description := Load_SSL_CIPHER_description; + SSL_dup := Load_SSL_dup; + SSL_get_certificate := Load_SSL_get_certificate; + SSL_get_privatekey := Load_SSL_get_privatekey; + SSL_CTX_get0_certificate := Load_SSL_CTX_get0_certificate; + SSL_CTX_get0_privatekey := Load_SSL_CTX_get0_privatekey; + SSL_CTX_set_quiet_shutdown := Load_SSL_CTX_set_quiet_shutdown; + SSL_CTX_get_quiet_shutdown := Load_SSL_CTX_get_quiet_shutdown; + SSL_set_quiet_shutdown := Load_SSL_set_quiet_shutdown; + SSL_get_quiet_shutdown := Load_SSL_get_quiet_shutdown; + SSL_set_shutdown := Load_SSL_set_shutdown; + SSL_get_shutdown := Load_SSL_get_shutdown; + SSL_version := Load_SSL_version; + SSL_client_version := Load_SSL_client_version; + SSL_CTX_set_default_verify_paths := Load_SSL_CTX_set_default_verify_paths; + SSL_CTX_set_default_verify_dir := Load_SSL_CTX_set_default_verify_dir; + SSL_CTX_set_default_verify_file := Load_SSL_CTX_set_default_verify_file; + SSL_CTX_load_verify_locations := Load_SSL_CTX_load_verify_locations; + SSL_get_session := Load_SSL_get_session; + SSL_get1_session := Load_SSL_get1_session; + SSL_get_SSL_CTX := Load_SSL_get_SSL_CTX; + SSL_set_SSL_CTX := Load_SSL_set_SSL_CTX; + SSL_set_info_callback := Load_SSL_set_info_callback; + SSL_get_info_callback := Load_SSL_get_info_callback; + SSL_get_state := Load_SSL_get_state; + SSL_set_verify_result := Load_SSL_set_verify_result; + SSL_get_verify_result := Load_SSL_get_verify_result; + SSL_get_client_random := Load_SSL_get_client_random; + SSL_get_server_random := Load_SSL_get_server_random; + SSL_SESSION_get_master_key := Load_SSL_SESSION_get_master_key; + SSL_SESSION_set1_master_key := Load_SSL_SESSION_set1_master_key; + SSL_SESSION_get_max_fragment_length := Load_SSL_SESSION_get_max_fragment_length; + SSL_set_ex_data := Load_SSL_set_ex_data; + SSL_get_ex_data := Load_SSL_get_ex_data; + SSL_SESSION_set_ex_data := Load_SSL_SESSION_set_ex_data; + SSL_SESSION_get_ex_data := Load_SSL_SESSION_get_ex_data; + SSL_CTX_set_ex_data := Load_SSL_CTX_set_ex_data; + SSL_CTX_get_ex_data := Load_SSL_CTX_get_ex_data; + SSL_get_ex_data_X509_STORE_CTX_idx := Load_SSL_get_ex_data_X509_STORE_CTX_idx; + SSL_CTX_set_default_read_buffer_len := Load_SSL_CTX_set_default_read_buffer_len; + SSL_set_default_read_buffer_len := Load_SSL_set_default_read_buffer_len; + SSL_CTX_set_tmp_dh_callback := Load_SSL_CTX_set_tmp_dh_callback; + SSL_set_tmp_dh_callback := Load_SSL_set_tmp_dh_callback; + SSL_CIPHER_find := Load_SSL_CIPHER_find; + SSL_CIPHER_get_cipher_nid := Load_SSL_CIPHER_get_cipher_nid; + SSL_CIPHER_get_digest_nid := Load_SSL_CIPHER_get_digest_nid; + SSL_set_session_ticket_ext := Load_SSL_set_session_ticket_ext; + SSL_set_session_ticket_ext_cb := Load_SSL_set_session_ticket_ext_cb; + SSL_CTX_set_not_resumable_session_callback := Load_SSL_CTX_set_not_resumable_session_callback; + SSL_set_not_resumable_session_callback := Load_SSL_set_not_resumable_session_callback; + SSL_CTX_set_record_padding_callback := Load_SSL_CTX_set_record_padding_callback; + SSL_CTX_set_record_padding_callback_arg := Load_SSL_CTX_set_record_padding_callback_arg; + SSL_CTX_get_record_padding_callback_arg := Load_SSL_CTX_get_record_padding_callback_arg; + SSL_CTX_set_block_padding := Load_SSL_CTX_set_block_padding; + SSL_set_record_padding_callback := Load_SSL_set_record_padding_callback; + SSL_set_record_padding_callback_arg := Load_SSL_set_record_padding_callback_arg; + SSL_get_record_padding_callback_arg := Load_SSL_get_record_padding_callback_arg; + SSL_set_block_padding := Load_SSL_set_block_padding; + SSL_set_num_tickets := Load_SSL_set_num_tickets; + SSL_get_num_tickets := Load_SSL_get_num_tickets; + SSL_CTX_set_num_tickets := Load_SSL_CTX_set_num_tickets; + SSL_CTX_get_num_tickets := Load_SSL_CTX_get_num_tickets; + SSL_session_reused := Load_SSL_session_reused; + SSL_is_server := Load_SSL_is_server; + SSL_CONF_CTX_new := Load_SSL_CONF_CTX_new; + SSL_CONF_CTX_finish := Load_SSL_CONF_CTX_finish; + SSL_CONF_CTX_free := Load_SSL_CONF_CTX_free; + SSL_CONF_CTX_set_flags := Load_SSL_CONF_CTX_set_flags; + SSL_CONF_CTX_clear_flags := Load_SSL_CONF_CTX_clear_flags; + SSL_CONF_CTX_set1_prefix := Load_SSL_CONF_CTX_set1_prefix; + SSL_CONF_cmd := Load_SSL_CONF_cmd; + SSL_CONF_cmd_argv := Load_SSL_CONF_cmd_argv; + SSL_CONF_cmd_value_type := Load_SSL_CONF_cmd_value_type; + SSL_CONF_CTX_set_ssl := Load_SSL_CONF_CTX_set_ssl; + SSL_CONF_CTX_set_ssl_ctx := Load_SSL_CONF_CTX_set_ssl_ctx; + SSL_add_ssl_module := Load_SSL_add_ssl_module; + SSL_config := Load_SSL_config; + SSL_CTX_config := Load_SSL_CTX_config; + DTLSv1_listen := Load_DTLSv1_listen; + SSL_enable_ct := Load_SSL_enable_ct; + SSL_CTX_enable_ct := Load_SSL_CTX_enable_ct; + SSL_ct_is_enabled := Load_SSL_ct_is_enabled; + SSL_CTX_ct_is_enabled := Load_SSL_CTX_ct_is_enabled; + SSL_CTX_set_default_ctlog_list_file := Load_SSL_CTX_set_default_ctlog_list_file; + SSL_CTX_set_ctlog_list_file := Load_SSL_CTX_set_ctlog_list_file; + SSL_CTX_set0_ctlog_store := Load_SSL_CTX_set0_ctlog_store; + SSL_set_security_level := Load_SSL_set_security_level; + SSL_set_security_callback := Load_SSL_set_security_callback; + SSL_get_security_callback := Load_SSL_get_security_callback; + SSL_set0_security_ex_data := Load_SSL_set0_security_ex_data; + SSL_get0_security_ex_data := Load_SSL_get0_security_ex_data; + SSL_CTX_set_security_level := Load_SSL_CTX_set_security_level; + SSL_CTX_get_security_level := Load_SSL_CTX_get_security_level; + SSL_CTX_get0_security_ex_data := Load_SSL_CTX_get0_security_ex_data; + SSL_CTX_set0_security_ex_data := Load_SSL_CTX_set0_security_ex_data; + OPENSSL_init_ssl := Load_OPENSSL_init_ssl; + SSL_free_buffers := Load_SSL_free_buffers; + SSL_alloc_buffers := Load_SSL_alloc_buffers; + SSL_CTX_set_session_ticket_cb := Load_SSL_CTX_set_session_ticket_cb; + SSL_SESSION_set1_ticket_appdata := Load_SSL_SESSION_set1_ticket_appdata; + SSL_SESSION_get0_ticket_appdata := Load_SSL_SESSION_get0_ticket_appdata; + DTLS_set_timer_cb := Load_DTLS_set_timer_cb; + SSL_CTX_set_allow_early_data_cb := Load_SSL_CTX_set_allow_early_data_cb; + SSL_set_allow_early_data_cb := Load_SSL_set_allow_early_data_cb; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSLv2_method := nil; + SSLv2_server_method := nil; + SSLv2_client_method := nil; + SSLv3_method := nil; + SSLv3_server_method := nil; + SSLv3_client_method := nil; + SSLv23_method := nil; + SSLv23_server_method := nil; + SSLv23_client_method := nil; + TLSv1_method := nil; + TLSv1_server_method := nil; + TLSv1_client_method := nil; + TLSv1_1_method := nil; + TLSv1_1_server_method := nil; + TLSv1_1_client_method := nil; + TLSv1_2_method := nil; + TLSv1_2_server_method := nil; + TLSv1_2_client_method := nil; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + SSL_get0_peer_certificate := Load_SSL_get0_peer_certificate; + SSL_get1_peer_certificate := Load_SSL_get1_peer_certificate; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLLoader(@Load); +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_ssl3.pas b/src/opensslHdrs/IdOpenSSLHeaders_ssl3.pas new file mode 100644 index 0000000..2993fbf --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_ssl3.pas @@ -0,0 +1,361 @@ +(* This unit was generated from the source file ssl3.h2pas +It should not be modified directly. All changes should be made to ssl3.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_ssl3; + + +interface + +// Headers for OpenSSL 1.1.1 +// ssl3.h + + +uses IdSSLOpenSSLAPI; + +const + (* + * Signalling cipher suite value from RFC 5746 + * (TLS_EMPTY_RENEGOTIATION_INFO_SCSV) + *) + SSL3_CK_SCSV = $030000FF; + + (* + * Signalling cipher suite value from draft-ietf-tls-downgrade-scsv-00 + * (TLS_FALLBACK_SCSV) + *) + SSL3_CK_FALLBACK_SCSV = $03005600; + + SSL3_CK_RSA_NULL_MD5 = $03000001; + SSL3_CK_RSA_NULL_SHA = $03000002; + SSL3_CK_RSA_RC4_40_MD5 = $03000003; + SSL3_CK_RSA_RC4_128_MD5 = $03000004; + SSL3_CK_RSA_RC4_128_SHA = $03000005; + SSL3_CK_RSA_RC2_40_MD5 = $03000006; + SSL3_CK_RSA_IDEA_128_SHA = $03000007; + SSL3_CK_RSA_DES_40_CBC_SHA = $03000008; + SSL3_CK_RSA_DES_64_CBC_SHA = $03000009; + SSL3_CK_RSA_DES_192_CBC3_SHA = $0300000A; + + SSL3_CK_DH_DSS_DES_40_CBC_SHA = $0300000B; + SSL3_CK_DH_DSS_DES_64_CBC_SHA = $0300000C; + SSL3_CK_DH_DSS_DES_192_CBC3_SHA = $0300000D; + SSL3_CK_DH_RSA_DES_40_CBC_SHA = $0300000E; + SSL3_CK_DH_RSA_DES_64_CBC_SHA = $0300000F; + SSL3_CK_DH_RSA_DES_192_CBC3_SHA = $03000010; + + SSL3_CK_DHE_DSS_DES_40_CBC_SHA = $03000011; + SSL3_CK_EDH_DSS_DES_40_CBC_SHA = SSL3_CK_DHE_DSS_DES_40_CBC_SHA; + SSL3_CK_DHE_DSS_DES_64_CBC_SHA = $03000012; + SSL3_CK_EDH_DSS_DES_64_CBC_SHA = SSL3_CK_DHE_DSS_DES_64_CBC_SHA; + SSL3_CK_DHE_DSS_DES_192_CBC3_SHA = $03000013; + SSL3_CK_EDH_DSS_DES_192_CBC3_SHA = SSL3_CK_DHE_DSS_DES_192_CBC3_SHA; + SSL3_CK_DHE_RSA_DES_40_CBC_SHA = $03000014; + SSL3_CK_EDH_RSA_DES_40_CBC_SHA = SSL3_CK_DHE_RSA_DES_40_CBC_SHA; + SSL3_CK_DHE_RSA_DES_64_CBC_SHA = $03000015; + SSL3_CK_EDH_RSA_DES_64_CBC_SHA = SSL3_CK_DHE_RSA_DES_64_CBC_SHA; + SSL3_CK_DHE_RSA_DES_192_CBC3_SHA = $03000016; + SSL3_CK_EDH_RSA_DES_192_CBC3_SHA = SSL3_CK_DHE_RSA_DES_192_CBC3_SHA; + + SSL3_CK_ADH_RC4_40_MD5 = $03000017; + SSL3_CK_ADH_RC4_128_MD5 = $03000018; + SSL3_CK_ADH_DES_40_CBC_SHA = $03000019; + SSL3_CK_ADH_DES_64_CBC_SHA = $0300001A; + SSL3_CK_ADH_DES_192_CBC_SHA = $0300001B; + + (* a bundle of RFC standard cipher names, generated from ssl3_ciphers[] *) + SSL3_RFC_RSA_NULL_MD5 = AnsiString('TLS_RSA_WITH_NULL_MD5'); + SSL3_RFC_RSA_NULL_SHA = AnsiString('TLS_RSA_WITH_NULL_SHA'); + SSL3_RFC_RSA_DES_192_CBC3_SHA = AnsiString('TLS_RSA_WITH_3DES_EDE_CBC_SHA'); + SSL3_RFC_DHE_DSS_DES_192_CBC3_SHA = AnsiString('TLS_DHE_DSS_WITH_3DES_EDE_CBC_SHA'); + SSL3_RFC_DHE_RSA_DES_192_CBC3_SHA = AnsiString('TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA'); + SSL3_RFC_ADH_DES_192_CBC_SHA = AnsiString('TLS_DH_anon_WITH_3DES_EDE_CBC_SHA'); + SSL3_RFC_RSA_IDEA_128_SHA = AnsiString('TLS_RSA_WITH_IDEA_CBC_SHA'); + SSL3_RFC_RSA_RC4_128_MD5 = AnsiString('TLS_RSA_WITH_RC4_128_MD5'); + SSL3_RFC_RSA_RC4_128_SHA = AnsiString('TLS_RSA_WITH_RC4_128_SHA'); + SSL3_RFC_ADH_RC4_128_MD5 = AnsiString('TLS_DH_anon_WITH_RC4_128_MD5'); + + SSL3_TXT_RSA_NULL_MD5 = AnsiString('NULL-MD5'); + SSL3_TXT_RSA_NULL_SHA = AnsiString('NULL-SHA'); + SSL3_TXT_RSA_RC4_40_MD5 = AnsiString('EXP-RC4-MD5'); + SSL3_TXT_RSA_RC4_128_MD5 = AnsiString('RC4-MD5'); + SSL3_TXT_RSA_RC4_128_SHA = AnsiString('RC4-SHA'); + SSL3_TXT_RSA_RC2_40_MD5 = AnsiString('EXP-RC2-CBC-MD5'); + SSL3_TXT_RSA_IDEA_128_SHA = AnsiString('IDEA-CBC-SHA'); + SSL3_TXT_RSA_DES_40_CBC_SHA = AnsiString('EXP-DES-CBC-SHA'); + SSL3_TXT_RSA_DES_64_CBC_SHA = AnsiString('DES-CBC-SHA'); + SSL3_TXT_RSA_DES_192_CBC3_SHA = AnsiString('DES-CBC3-SHA'); + + SSL3_TXT_DH_DSS_DES_40_CBC_SHA = AnsiString('EXP-DH-DSS-DES-CBC-SHA'); + SSL3_TXT_DH_DSS_DES_64_CBC_SHA = AnsiString('DH-DSS-DES-CBC-SHA'); + SSL3_TXT_DH_DSS_DES_192_CBC3_SHA = AnsiString('DH-DSS-DES-CBC3-SHA'); + SSL3_TXT_DH_RSA_DES_40_CBC_SHA = AnsiString('EXP-DH-RSA-DES-CBC-SHA'); + SSL3_TXT_DH_RSA_DES_64_CBC_SHA = AnsiString('DH-RSA-DES-CBC-SHA'); + SSL3_TXT_DH_RSA_DES_192_CBC3_SHA = AnsiString('DH-RSA-DES-CBC3-SHA'); + + SSL3_TXT_DHE_DSS_DES_40_CBC_SHA = AnsiString('EXP-DHE-DSS-DES-CBC-SHA'); + SSL3_TXT_DHE_DSS_DES_64_CBC_SHA = AnsiString('DHE-DSS-DES-CBC-SHA'); + SSL3_TXT_DHE_DSS_DES_192_CBC3_SHA = AnsiString('DHE-DSS-DES-CBC3-SHA'); + SSL3_TXT_DHE_RSA_DES_40_CBC_SHA = AnsiString('EXP-DHE-RSA-DES-CBC-SHA'); + SSL3_TXT_DHE_RSA_DES_64_CBC_SHA = AnsiString('DHE-RSA-DES-CBC-SHA'); + SSL3_TXT_DHE_RSA_DES_192_CBC3_SHA = AnsiString('DHE-RSA-DES-CBC3-SHA'); + + (* + * This next block of six 'EDH' labels is for backward compatibility with + * older versions of OpenSSL. New code should use the six 'DHE' labels above + * instead: + *) + SSL3_TXT_EDH_DSS_DES_40_CBC_SHA = AnsiString('EXP-EDH-DSS-DES-CBC-SHA'); + SSL3_TXT_EDH_DSS_DES_64_CBC_SHA = AnsiString('EDH-DSS-DES-CBC-SHA'); + SSL3_TXT_EDH_DSS_DES_192_CBC3_SHA = AnsiString('EDH-DSS-DES-CBC3-SHA'); + SSL3_TXT_EDH_RSA_DES_40_CBC_SHA = AnsiString('EXP-EDH-RSA-DES-CBC-SHA'); + SSL3_TXT_EDH_RSA_DES_64_CBC_SHA = AnsiString('EDH-RSA-DES-CBC-SHA'); + SSL3_TXT_EDH_RSA_DES_192_CBC3_SHA = AnsiString('EDH-RSA-DES-CBC3-SHA'); + + SSL3_TXT_ADH_RC4_40_MD5 = AnsiString('EXP-ADH-RC4-MD5'); + SSL3_TXT_ADH_RC4_128_MD5 = AnsiString('ADH-RC4-MD5'); + SSL3_TXT_ADH_DES_40_CBC_SHA = AnsiString('EXP-ADH-DES-CBC-SHA'); + SSL3_TXT_ADH_DES_64_CBC_SHA = AnsiString('ADH-DES-CBC-SHA'); + SSL3_TXT_ADH_DES_192_CBC_SHA = AnsiString('ADH-DES-CBC3-SHA'); + + SSL3_SSL_SESSION_ID_LENGTH = 32; + SSL3_MAX_SSL_SESSION_ID_LENGTH = 32; + + SSL3_MASTER_SECRET_SIZE = 48; + SSL3_RANDOM_SIZE = 32; + SSL3_SESSION_ID_SIZE = 32; + SSL3_RT_HEADER_LENGTH = 5; + + SSL3_HM_HEADER_LENGTH = 4; + + (* + * Some will argue that this increases memory footprint, but it's not + * actually true. Point is that malloc has to return at least 64-bit aligned + * pointers, meaning that allocating 5 bytes wastes 3 bytes in either case. + * Suggested pre-gaping simply moves these wasted bytes from the end of + * allocated region to its front, but makes data payload aligned, which + * improves performance:-) + *) + SSL3_ALIGN_PAYLOAD = 8; + + + (* + * This is the maximum MAC (digest) size used by the SSL library. Currently + * maximum of 20 is used by SHA1, but we reserve for future extension for + * 512-bit hashes. + *) + SSL3_RT_MAX_MD_SIZE = 64; + + (* + * Maximum block size used in all ciphersuites. Currently 16 for AES. + *) + SSL_RT_MAX_CIPHER_BLOCK_SIZE = 16; + SSL3_RT_MAX_EXTRA = 16384; + + (* Maximum plaintext length: defined by SSL/TLS standards *) + SSL3_RT_MAX_PLAIN_LENGTH = 16384; + (* Maximum compression overhead: defined by SSL/TLS standards *) + SSL3_RT_MAX_COMPRESSED_OVERHEAD = 1024; + + (* + * The standards give a maximum encryption overhead of 1024 bytes. In + * practice the value is lower than this. The overhead is the maximum number + * of padding bytes (256) plus the mac size. + *) + SSL3_RT_MAX_ENCRYPTED_OVERHEAD = 256 + SSL3_RT_MAX_MD_SIZE; + SSL3_RT_MAX_TLS13_ENCRYPTED_OVERHEAD = 256; + + (* + * OpenSSL currently only uses a padding length of at most one block so the + * send overhead is smaller. + *) + SSL3_RT_SEND_MAX_ENCRYPTED_OVERHEAD = SSL_RT_MAX_CIPHER_BLOCK_SIZE + SSL3_RT_MAX_MD_SIZE; + + (* If compression isn't used don't include the compression overhead *) + SSL3_RT_MAX_COMPRESSED_LENGTH = SSL3_RT_MAX_PLAIN_LENGTH; +// SSL3_RT_MAX_COMPRESSED_LENGTH = (SSL3_RT_MAX_PLAIN_LENGTH + SSL3_RT_MAX_COMPRESSED_OVERHEAD); + + SSL3_RT_MAX_ENCRYPTED_LENGTH = SSL3_RT_MAX_ENCRYPTED_OVERHEAD + SSL3_RT_MAX_COMPRESSED_LENGTH; + SSL3_RT_MAX_TLS13_ENCRYPTED_LENGTH = SSL3_RT_MAX_PLAIN_LENGTH + SSL3_RT_MAX_TLS13_ENCRYPTED_OVERHEAD; + SSL3_RT_MAX_PACKET_SIZE = SSL3_RT_MAX_ENCRYPTED_LENGTH + SSL3_RT_HEADER_LENGTH; + + SSL3_MD_CLIENT_FINISHED_= AnsiChar($43) + AnsiChar($4C) + AnsiChar($4E) + AnsiChar($54); + SSL3_MD_SERVER_FINISHED_= AnsiChar($53) + AnsiChar($52) + AnsiChar($56) + AnsiChar($52); + + SSL3_VERSION = $0300; + SSL3_VERSION_MAJOR = $03; + SSL3_VERSION_MINOR = $00; + + SSL3_RT_CHANGE_CIPHER_SPEC = 20; + SSL3_RT_ALERT = 21; + SSL3_RT_HANDSHAKE = 22; + SSL3_RT_APPLICATION_DATA = 23; + DTLS1_RT_HEARTBEAT = 24; + + (* Pseudo content types to indicate additional parameters *) + TLS1_RT_CRYPTO = $1000; + TLS1_RT_CRYPTO_PREMASTER = TLS1_RT_CRYPTO or $1; + TLS1_RT_CRYPTO_CLIENT_RANDOM = TLS1_RT_CRYPTO or $2; + TLS1_RT_CRYPTO_SERVER_RANDOM = TLS1_RT_CRYPTO or $3; + TLS1_RT_CRYPTO_MASTER = TLS1_RT_CRYPTO or $4; + + TLS1_RT_CRYPTO_READ = $0000; + TLS1_RT_CRYPTO_WRITE = $0100; + TLS1_RT_CRYPTO_MAC = TLS1_RT_CRYPTO or $5; + TLS1_RT_CRYPTO_KEY = TLS1_RT_CRYPTO or $6; + TLS1_RT_CRYPTO_IV = TLS1_RT_CRYPTO or $7; + TLS1_RT_CRYPTO_FIXED_IV = TLS1_RT_CRYPTO or $8; + + (* Pseudo content types for SSL/TLS header info *) + SSL3_RT_HEADER = $100; + SSL3_RT_INNER_CONTENT_TYPE = $101; + + SSL3_AL_WARNING = 1; + SSL3_AL_FATAL = 2; + + SSL3_AD_CLOSE_NOTIFY = 0; + SSL3_AD_UNEXPECTED_MESSAGE = 10; (* fatal *) + SSL3_AD_BAD_RECORD_MAC = 20; (* fatal *) + SSL3_AD_DECOMPRESSION_FAILURE = 30; (* fatal *) + SSL3_AD_HANDSHAKE_FAILURE = 40; (* fatal *) + SSL3_AD_NO_CERTIFICATE = 41; + SSL3_AD_BAD_CERTIFICATE = 42; + SSL3_AD_UNSUPPORTED_CERTIFICATE = 43; + SSL3_AD_CERTIFICATE_REVOKED = 44; + SSL3_AD_CERTIFICATE_EXPIRED = 45; + SSL3_AD_CERTIFICATE_UNKNOWN = 46; + SSL3_AD_ILLEGAL_PARAMETER = 47; (* fatal *) + + TLS1_HB_REQUEST = 1; + TLS1_HB_RESPONSE = 2; + + SSL3_CT_RSA_SIGN = 1; + SSL3_CT_DSS_SIGN = 2; + SSL3_CT_RSA_FIXED_DH = 3; + SSL3_CT_DSS_FIXED_DH = 4; + SSL3_CT_RSA_EPHEMERAL_DH = 5; + SSL3_CT_DSS_EPHEMERAL_DH = 6; + SSL3_CT_FORTEZZA_DMS = 20; + + (* + * SSL3_CT_NUMBER is used to size arrays and it must be large enough to + * contain all of the cert types defined for *either* SSLv3 and TLSv1. + *) + SSL3_CT_NUMBER = 10; + + (* No longer used as of OpenSSL 1.1.1 *) + SSL3_FLAGS_NO_RENEGOTIATE_CIPHERS = $0001; + + (* Removed from OpenSSL 1.1.0 *) + TLS1_FLAGS_TLS_PADDING_BUG = $0; + TLS1_FLAGS_SKIP_CERT_VERIFY = $0010; + + (* Set if we encrypt then mac instead of usual mac then encrypt *) + TLS1_FLAGS_ENCRYPT_THEN_MAC_READ = $0100; + TLS1_FLAGS_ENCRYPT_THEN_MAC = TLS1_FLAGS_ENCRYPT_THEN_MAC_READ; + + + (* Set if extended master secret extension received from peer *) + TLS1_FLAGS_RECEIVED_EXTMS = $0200; + + TLS1_FLAGS_ENCRYPT_THEN_MAC_WRITE = $0400; + + TLS1_FLAGS_STATELESS = $0800; + + SSL3_MT_HELLO_REQUEST = 0; + SSL3_MT_CLIENT_HELLO = 1; + SSL3_MT_SERVER_HELLO = 2; + SSL3_MT_NEWSESSION_TICKET = 4; + SSL3_MT_END_OF_EARLY_DATA = 5; + SSL3_MT_ENCRYPTED_EXTENSIONS = 8; + SSL3_MT_CERTIFICATE = 11; + SSL3_MT_SERVER_KEY_EXCHANGE = 12; + SSL3_MT_CERTIFICATE_REQUEST = 13; + SSL3_MT_SERVER_DONE = 14; + SSL3_MT_CERTIFICATE_VERIFY = 15; + SSL3_MT_CLIENT_KEY_EXCHANGE = 16; + SSL3_MT_FINISHED = 20; + SSL3_MT_CERTIFICATE_URL = 21; + SSL3_MT_CERTIFICATE_STATUS = 22; + SSL3_MT_SUPPLEMENTAL_DATA = 23; + SSL3_MT_KEY_UPDATE = 24; + SSL3_MT_NEXT_PROTO = 67; + SSL3_MT_MESSAGE_HASH = 254; + DTLS1_MT_HELLO_VERIFY_REQUEST = 3; + + (* Dummy message type for handling CCS like a normal handshake message *) + SSL3_MT_CHANGE_CIPHER_SPEC = $0101; + + SSL3_MT_CCS = 1; + + (* These are used when changing over to a new cipher *) + SSL3_CC_READ = $001; + SSL3_CC_WRITE = $002; + SSL3_CC_CLIENT = $010; + SSL3_CC_SERVER = $020; + SSL3_CC_EARLY = $040; + SSL3_CC_HANDSHAKE = $080; + SSL3_CC_APPLICATION = $100; + SSL3_CHANGE_CIPHER_CLIENT_WRITE = SSL3_CC_CLIENT or SSL3_CC_WRITE; + SSL3_CHANGE_CIPHER_SERVER_READ = SSL3_CC_SERVER or SSL3_CC_READ; + SSL3_CHANGE_CIPHER_CLIENT_READ = SSL3_CC_CLIENT or SSL3_CC_READ; + SSL3_CHANGE_CIPHER_SERVER_WRITE = SSL3_CC_SERVER or SSL3_CC_WRITE; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} + +{$ELSE} + +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_sslerr.pas b/src/opensslHdrs/IdOpenSSLHeaders_sslerr.pas new file mode 100644 index 0000000..811c139 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_sslerr.pas @@ -0,0 +1,843 @@ +(* This unit was generated from the source file sslerr.h2pas +It should not be modified directly. All changes should be made to sslerr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_sslerr; + + + +interface + +// Headers for OpenSSL 1.1.1 +// sslerr.h + + +uses + IdSSLOpenSSLAPI; + +(* + * SSL function codes. + *) +const + SSL_F_ADD_CLIENT_KEY_SHARE_EXT = 438; + SSL_F_ADD_KEY_SHARE = 512; + SSL_F_BYTES_TO_CIPHER_LIST = 519; + SSL_F_CHECK_SUITEB_CIPHER_LIST = 331; + SSL_F_CIPHERSUITE_CB = 622; + SSL_F_CONSTRUCT_CA_NAMES = 552; + SSL_F_CONSTRUCT_KEY_EXCHANGE_TBS = 553; + SSL_F_CONSTRUCT_STATEFUL_TICKET = 636; + SSL_F_CONSTRUCT_STATELESS_TICKET = 637; + SSL_F_CREATE_SYNTHETIC_MESSAGE_HASH = 539; + SSL_F_CREATE_TICKET_PREQUEL = 638; + SSL_F_CT_MOVE_SCTS = 345; + SSL_F_CT_STRICT = 349; + SSL_F_CUSTOM_EXT_ADD = 554; + SSL_F_CUSTOM_EXT_PARSE = 555; + SSL_F_D2I_SSL_SESSION = 103; + SSL_F_DANE_CTX_ENABLE = 347; + SSL_F_DANE_MTYPE_SET = 393; + SSL_F_DANE_TLSA_ADD = 394; + SSL_F_DERIVE_SECRET_KEY_AND_IV = 514; + SSL_F_DO_DTLS1_WRITE = 245; + SSL_F_DO_SSL3_WRITE = 104; + SSL_F_DTLS1_BUFFER_RECORD = 247; + SSL_F_DTLS1_CHECK_TIMEOUT_NUM = 318; + SSL_F_DTLS1_HEARTBEAT = 305; + SSL_F_DTLS1_HM_FRAGMENT_NEW = 623; + SSL_F_DTLS1_PREPROCESS_FRAGMENT = 288; + SSL_F_DTLS1_PROCESS_BUFFERED_RECORDS = 424; + SSL_F_DTLS1_PROCESS_RECORD = 257; + SSL_F_DTLS1_READ_BYTES = 258; + SSL_F_DTLS1_READ_FAILED = 339; + SSL_F_DTLS1_RETRANSMIT_MESSAGE = 390; + SSL_F_DTLS1_WRITE_APP_DATA_BYTES = 268; + SSL_F_DTLS1_WRITE_BYTES = 545; + SSL_F_DTLSV1_LISTEN = 350; + SSL_F_DTLS_CONSTRUCT_CHANGE_CIPHER_SPEC = 371; + SSL_F_DTLS_CONSTRUCT_HELLO_VERIFY_REQUEST = 385; + SSL_F_DTLS_GET_REASSEMBLED_MESSAGE = 370; + SSL_F_DTLS_PROCESS_HELLO_VERIFY = 386; + SSL_F_DTLS_RECORD_LAYER_NEW = 635; + SSL_F_DTLS_WAIT_FOR_DRY = 592; + SSL_F_EARLY_DATA_COUNT_OK = 532; + SSL_F_FINAL_EARLY_DATA = 556; + SSL_F_FINAL_EC_PT_FORMATS = 485; + SSL_F_FINAL_EMS = 486; + SSL_F_FINAL_KEY_SHARE = 503; + SSL_F_FINAL_MAXFRAGMENTLEN = 557; + SSL_F_FINAL_RENEGOTIATE = 483; + SSL_F_FINAL_SERVER_NAME = 558; + SSL_F_FINAL_SIG_ALGS = 497; + SSL_F_GET_CERT_VERIFY_TBS_DATA = 588; + SSL_F_NSS_KEYLOG_INT = 500; + SSL_F_OPENSSL_INIT_SSL = 342; + SSL_F_OSSL_STATEM_CLIENT13_READ_TRANSITION = 436; + SSL_F_OSSL_STATEM_CLIENT13_WRITE_TRANSITION = 598; + SSL_F_OSSL_STATEM_CLIENT_CONSTRUCT_MESSAGE = 430; + SSL_F_OSSL_STATEM_CLIENT_POST_PROCESS_MESSAGE = 593; + SSL_F_OSSL_STATEM_CLIENT_PROCESS_MESSAGE = 594; + SSL_F_OSSL_STATEM_CLIENT_READ_TRANSITION = 417; + SSL_F_OSSL_STATEM_CLIENT_WRITE_TRANSITION = 599; + SSL_F_OSSL_STATEM_SERVER13_READ_TRANSITION = 437; + SSL_F_OSSL_STATEM_SERVER13_WRITE_TRANSITION = 600; + SSL_F_OSSL_STATEM_SERVER_CONSTRUCT_MESSAGE = 431; + SSL_F_OSSL_STATEM_SERVER_POST_PROCESS_MESSAGE = 601; + SSL_F_OSSL_STATEM_SERVER_POST_WORK = 602; + SSL_F_OSSL_STATEM_SERVER_PROCESS_MESSAGE = 603; + SSL_F_OSSL_STATEM_SERVER_READ_TRANSITION = 418; + SSL_F_OSSL_STATEM_SERVER_WRITE_TRANSITION = 604; + SSL_F_PARSE_CA_NAMES = 541; + SSL_F_PITEM_NEW = 624; + SSL_F_PQUEUE_NEW = 625; + SSL_F_PROCESS_KEY_SHARE_EXT = 439; + SSL_F_READ_STATE_MACHINE = 352; + SSL_F_SET_CLIENT_CIPHERSUITE = 540; + SSL_F_SRP_GENERATE_CLIENT_MASTER_SECRET = 595; + SSL_F_SRP_GENERATE_SERVER_MASTER_SECRET = 589; + SSL_F_SRP_VERIFY_SERVER_PARAM = 596; + SSL_F_SSL3_CHANGE_CIPHER_STATE = 129; + SSL_F_SSL3_CHECK_CERT_AND_ALGORITHM = 130; + SSL_F_SSL3_CTRL = 213; + SSL_F_SSL3_CTX_CTRL = 133; + SSL_F_SSL3_DIGEST_CACHED_RECORDS = 293; + SSL_F_SSL3_DO_CHANGE_CIPHER_SPEC = 292; + SSL_F_SSL3_ENC = 608; + SSL_F_SSL3_FINAL_FINISH_MAC = 285; + SSL_F_SSL3_FINISH_MAC = 587; + SSL_F_SSL3_GENERATE_KEY_BLOCK = 238; + SSL_F_SSL3_GENERATE_MASTER_SECRET = 388; + SSL_F_SSL3_GET_RECORD = 143; + SSL_F_SSL3_INIT_FINISHED_MAC = 397; + SSL_F_SSL3_OUTPUT_CERT_CHAIN = 147; + SSL_F_SSL3_READ_BYTES = 148; + SSL_F_SSL3_READ_N = 149; + SSL_F_SSL3_SETUP_KEY_BLOCK = 157; + SSL_F_SSL3_SETUP_READ_BUFFER = 156; + SSL_F_SSL3_SETUP_WRITE_BUFFER = 291; + SSL_F_SSL3_WRITE_BYTES = 158; + SSL_F_SSL3_WRITE_PENDING = 159; + SSL_F_SSL_ADD_CERT_CHAIN = 316; + SSL_F_SSL_ADD_CERT_TO_BUF = 319; + SSL_F_SSL_ADD_CERT_TO_WPACKET = 493; + SSL_F_SSL_ADD_CLIENTHELLO_RENEGOTIATE_EXT = 298; + SSL_F_SSL_ADD_CLIENTHELLO_TLSEXT = 277; + SSL_F_SSL_ADD_CLIENTHELLO_USE_SRTP_EXT = 307; + SSL_F_SSL_ADD_DIR_CERT_SUBJECTS_TO_STACK = 215; + SSL_F_SSL_ADD_FILE_CERT_SUBJECTS_TO_STACK = 216; + SSL_F_SSL_ADD_SERVERHELLO_RENEGOTIATE_EXT = 299; + SSL_F_SSL_ADD_SERVERHELLO_TLSEXT = 278; + SSL_F_SSL_ADD_SERVERHELLO_USE_SRTP_EXT = 308; + SSL_F_SSL_BAD_METHOD = 160; + SSL_F_SSL_BUILD_CERT_CHAIN = 332; + SSL_F_SSL_BYTES_TO_CIPHER_LIST = 161; + SSL_F_SSL_CACHE_CIPHERLIST = 520; + SSL_F_SSL_CERT_ADD0_CHAIN_CERT = 346; + SSL_F_SSL_CERT_DUP = 221; + SSL_F_SSL_CERT_NEW = 162; + SSL_F_SSL_CERT_SET0_CHAIN = 340; + SSL_F_SSL_CHECK_PRIVATE_KEY = 163; + SSL_F_SSL_CHECK_SERVERHELLO_TLSEXT = 280; + SSL_F_SSL_CHECK_SRP_EXT_CLIENTHELLO = 606; + SSL_F_SSL_CHECK_SRVR_ECC_CERT_AND_ALG = 279; + SSL_F_SSL_CHOOSE_CLIENT_VERSION = 607; + SSL_F_SSL_CIPHER_DESCRIPTION = 626; + SSL_F_SSL_CIPHER_LIST_TO_BYTES = 425; + SSL_F_SSL_CIPHER_PROCESS_RULESTR = 230; + SSL_F_SSL_CIPHER_STRENGTH_SORT = 231; + SSL_F_SSL_CLEAR = 164; + SSL_F_SSL_CLIENT_HELLO_GET1_EXTENSIONS_PRESENT = 627; + SSL_F_SSL_COMP_ADD_COMPRESSION_METHOD = 165; + SSL_F_SSL_CONF_CMD = 334; + SSL_F_SSL_CREATE_CIPHER_LIST = 166; + SSL_F_SSL_CTRL = 232; + SSL_F_SSL_CTX_CHECK_PRIVATE_KEY = 168; + SSL_F_SSL_CTX_ENABLE_CT = 398; + SSL_F_SSL_CTX_MAKE_PROFILES = 309; + SSL_F_SSL_CTX_NEW = 169; + SSL_F_SSL_CTX_SET_ALPN_PROTOS = 343; + SSL_F_SSL_CTX_SET_CIPHER_LIST = 269; + SSL_F_SSL_CTX_SET_CLIENT_CERT_ENGINE = 290; + SSL_F_SSL_CTX_SET_CT_VALIDATION_CALLBACK = 396; + SSL_F_SSL_CTX_SET_SESSION_ID_CONTEXT = 219; + SSL_F_SSL_CTX_SET_SSL_VERSION = 170; + SSL_F_SSL_CTX_SET_TLSEXT_MAX_FRAGMENT_LENGTH = 551; + SSL_F_SSL_CTX_USE_CERTIFICATE = 171; + SSL_F_SSL_CTX_USE_CERTIFICATE_ASN1 = 172; + SSL_F_SSL_CTX_USE_CERTIFICATE_FILE = 173; + SSL_F_SSL_CTX_USE_PRIVATEKEY = 174; + SSL_F_SSL_CTX_USE_PRIVATEKEY_ASN1 = 175; + SSL_F_SSL_CTX_USE_PRIVATEKEY_FILE = 176; + SSL_F_SSL_CTX_USE_PSK_IDENTITY_HINT = 272; + SSL_F_SSL_CTX_USE_RSAPRIVATEKEY = 177; + SSL_F_SSL_CTX_USE_RSAPRIVATEKEY_ASN1 = 178; + SSL_F_SSL_CTX_USE_RSAPRIVATEKEY_FILE = 179; + SSL_F_SSL_CTX_USE_SERVERINFO = 336; + SSL_F_SSL_CTX_USE_SERVERINFO_EX = 543; + SSL_F_SSL_CTX_USE_SERVERINFO_FILE = 337; + SSL_F_SSL_DANE_DUP = 403; + SSL_F_SSL_DANE_ENABLE = 395; + SSL_F_SSL_DERIVE = 590; + SSL_F_SSL_DO_CONFIG = 391; + SSL_F_SSL_DO_HANDSHAKE = 180; + SSL_F_SSL_DUP_CA_LIST = 408; + SSL_F_SSL_ENABLE_CT = 402; + SSL_F_SSL_GENERATE_PKEY_GROUP = 559; + SSL_F_SSL_GENERATE_SESSION_ID = 547; + SSL_F_SSL_GET_NEW_SESSION = 181; + SSL_F_SSL_GET_PREV_SESSION = 217; + SSL_F_SSL_GET_SERVER_CERT_INDEX = 322; + SSL_F_SSL_GET_SIGN_PKEY = 183; + SSL_F_SSL_HANDSHAKE_HASH = 560; + SSL_F_SSL_INIT_WBIO_BUFFER = 184; + SSL_F_SSL_KEY_UPDATE = 515; + SSL_F_SSL_LOAD_CLIENT_CA_FILE = 185; + SSL_F_SSL_LOG_MASTER_SECRET = 498; + SSL_F_SSL_LOG_RSA_CLIENT_KEY_EXCHANGE = 499; + SSL_F_SSL_MODULE_INIT = 392; + SSL_F_SSL_NEW = 186; + SSL_F_SSL_NEXT_PROTO_VALIDATE = 565; + SSL_F_SSL_PARSE_CLIENTHELLO_RENEGOTIATE_EXT = 300; + SSL_F_SSL_PARSE_CLIENTHELLO_TLSEXT = 302; + SSL_F_SSL_PARSE_CLIENTHELLO_USE_SRTP_EXT = 310; + SSL_F_SSL_PARSE_SERVERHELLO_RENEGOTIATE_EXT = 301; + SSL_F_SSL_PARSE_SERVERHELLO_TLSEXT = 303; + SSL_F_SSL_PARSE_SERVERHELLO_USE_SRTP_EXT = 311; + SSL_F_SSL_PEEK = 270; + SSL_F_SSL_PEEK_EX = 432; + SSL_F_SSL_PEEK_INTERNAL = 522; + SSL_F_SSL_READ = 223; + SSL_F_SSL_READ_EARLY_DATA = 529; + SSL_F_SSL_READ_EX = 434; + SSL_F_SSL_READ_INTERNAL = 523; + SSL_F_SSL_RENEGOTIATE = 516; + SSL_F_SSL_RENEGOTIATE_ABBREVIATED = 546; + SSL_F_SSL_SCAN_CLIENTHELLO_TLSEXT = 320; + SSL_F_SSL_SCAN_SERVERHELLO_TLSEXT = 321; + SSL_F_SSL_SESSION_DUP = 348; + SSL_F_SSL_SESSION_NEW = 189; + SSL_F_SSL_SESSION_PRINT_FP = 190; + SSL_F_SSL_SESSION_SET1_ID = 423; + SSL_F_SSL_SESSION_SET1_ID_CONTEXT = 312; + SSL_F_SSL_SET_ALPN_PROTOS = 344; + SSL_F_SSL_SET_CERT = 191; + SSL_F_SSL_SET_CERT_AND_KEY = 621; + SSL_F_SSL_SET_CIPHER_LIST = 271; + SSL_F_SSL_SET_CT_VALIDATION_CALLBACK = 399; + SSL_F_SSL_SET_FD = 192; + SSL_F_SSL_SET_PKEY = 193; + SSL_F_SSL_SET_RFD = 194; + SSL_F_SSL_SET_SESSION = 195; + SSL_F_SSL_SET_SESSION_ID_CONTEXT = 218; + SSL_F_SSL_SET_SESSION_TICKET_EXT = 294; + SSL_F_SSL_SET_TLSEXT_MAX_FRAGMENT_LENGTH = 550; + SSL_F_SSL_SET_WFD = 196; + SSL_F_SSL_SHUTDOWN = 224; + SSL_F_SSL_SRP_CTX_INIT = 313; + SSL_F_SSL_START_ASYNC_JOB = 389; + SSL_F_SSL_UNDEFINED_FUNCTION = 197; + SSL_F_SSL_UNDEFINED_VOID_FUNCTION = 244; + SSL_F_SSL_USE_CERTIFICATE = 198; + SSL_F_SSL_USE_CERTIFICATE_ASN1 = 199; + SSL_F_SSL_USE_CERTIFICATE_FILE = 200; + SSL_F_SSL_USE_PRIVATEKEY = 201; + SSL_F_SSL_USE_PRIVATEKEY_ASN1 = 202; + SSL_F_SSL_USE_PRIVATEKEY_FILE = 203; + SSL_F_SSL_USE_PSK_IDENTITY_HINT = 273; + SSL_F_SSL_USE_RSAPRIVATEKEY = 204; + SSL_F_SSL_USE_RSAPRIVATEKEY_ASN1 = 205; + SSL_F_SSL_USE_RSAPRIVATEKEY_FILE = 206; + SSL_F_SSL_VALIDATE_CT = 400; + SSL_F_SSL_VERIFY_CERT_CHAIN = 207; + SSL_F_SSL_VERIFY_CLIENT_POST_HANDSHAKE = 616; + SSL_F_SSL_WRITE = 208; + SSL_F_SSL_WRITE_EARLY_DATA = 526; + SSL_F_SSL_WRITE_EARLY_FINISH = 527; + SSL_F_SSL_WRITE_EX = 433; + SSL_F_SSL_WRITE_INTERNAL = 524; + SSL_F_STATE_MACHINE = 353; + SSL_F_TLS12_CHECK_PEER_SIGALG = 333; + SSL_F_TLS12_COPY_SIGALGS = 533; + SSL_F_TLS13_CHANGE_CIPHER_STATE = 440; + SSL_F_TLS13_ENC = 609; + SSL_F_TLS13_FINAL_FINISH_MAC = 605; + SSL_F_TLS13_GENERATE_SECRET = 591; + SSL_F_TLS13_HKDF_EXPAND = 561; + SSL_F_TLS13_RESTORE_HANDSHAKE_DIGEST_FOR_PHA = 617; + SSL_F_TLS13_SAVE_HANDSHAKE_DIGEST_FOR_PHA = 618; + SSL_F_TLS13_SETUP_KEY_BLOCK = 441; + SSL_F_TLS1_CHANGE_CIPHER_STATE = 209; + SSL_F_TLS1_CHECK_DUPLICATE_EXTENSIONS = 341; + SSL_F_TLS1_ENC = 401; + SSL_F_TLS1_EXPORT_KEYING_MATERIAL = 314; + SSL_F_TLS1_GET_CURVELIST = 338; + SSL_F_TLS1_PRF = 284; + SSL_F_TLS1_SAVE_U16 = 628; + SSL_F_TLS1_SETUP_KEY_BLOCK = 211; + SSL_F_TLS1_SET_GROUPS = 629; + SSL_F_TLS1_SET_RAW_SIGALGS = 630; + SSL_F_TLS1_SET_SERVER_SIGALGS = 335; + SSL_F_TLS1_SET_SHARED_SIGALGS = 631; + SSL_F_TLS1_SET_SIGALGS = 632; + SSL_F_TLS_CHOOSE_SIGALG = 513; + SSL_F_TLS_CLIENT_KEY_EXCHANGE_POST_WORK = 354; + SSL_F_TLS_COLLECT_EXTENSIONS = 435; + SSL_F_TLS_CONSTRUCT_CERTIFICATE_AUTHORITIES = 542; + SSL_F_TLS_CONSTRUCT_CERTIFICATE_REQUEST = 372; + SSL_F_TLS_CONSTRUCT_CERT_STATUS = 429; + SSL_F_TLS_CONSTRUCT_CERT_STATUS_BODY = 494; + SSL_F_TLS_CONSTRUCT_CERT_VERIFY = 496; + SSL_F_TLS_CONSTRUCT_CHANGE_CIPHER_SPEC = 427; + SSL_F_TLS_CONSTRUCT_CKE_DHE = 404; + SSL_F_TLS_CONSTRUCT_CKE_ECDHE = 405; + SSL_F_TLS_CONSTRUCT_CKE_GOST = 406; + SSL_F_TLS_CONSTRUCT_CKE_PSK_PREAMBLE = 407; + SSL_F_TLS_CONSTRUCT_CKE_RSA = 409; + SSL_F_TLS_CONSTRUCT_CKE_SRP = 410; + SSL_F_TLS_CONSTRUCT_CLIENT_CERTIFICATE = 484; + SSL_F_TLS_CONSTRUCT_CLIENT_HELLO = 487; + SSL_F_TLS_CONSTRUCT_CLIENT_KEY_EXCHANGE = 488; + SSL_F_TLS_CONSTRUCT_CLIENT_VERIFY = 489; + SSL_F_TLS_CONSTRUCT_CTOS_ALPN = 466; + SSL_F_TLS_CONSTRUCT_CTOS_CERTIFICATE = 355; + SSL_F_TLS_CONSTRUCT_CTOS_COOKIE = 535; + SSL_F_TLS_CONSTRUCT_CTOS_EARLY_DATA = 530; + SSL_F_TLS_CONSTRUCT_CTOS_EC_PT_FORMATS = 467; + SSL_F_TLS_CONSTRUCT_CTOS_EMS = 468; + SSL_F_TLS_CONSTRUCT_CTOS_ETM = 469; + SSL_F_TLS_CONSTRUCT_CTOS_HELLO = 356; + SSL_F_TLS_CONSTRUCT_CTOS_KEY_EXCHANGE = 357; + SSL_F_TLS_CONSTRUCT_CTOS_KEY_SHARE = 470; + SSL_F_TLS_CONSTRUCT_CTOS_MAXFRAGMENTLEN = 549; + SSL_F_TLS_CONSTRUCT_CTOS_NPN = 471; + SSL_F_TLS_CONSTRUCT_CTOS_PADDING = 472; + SSL_F_TLS_CONSTRUCT_CTOS_POST_HANDSHAKE_AUTH = 619; + SSL_F_TLS_CONSTRUCT_CTOS_PSK = 501; + SSL_F_TLS_CONSTRUCT_CTOS_PSK_KEX_MODES = 509; + SSL_F_TLS_CONSTRUCT_CTOS_RENEGOTIATE = 473; + SSL_F_TLS_CONSTRUCT_CTOS_SCT = 474; + SSL_F_TLS_CONSTRUCT_CTOS_SERVER_NAME = 475; + SSL_F_TLS_CONSTRUCT_CTOS_SESSION_TICKET = 476; + SSL_F_TLS_CONSTRUCT_CTOS_SIG_ALGS = 477; + SSL_F_TLS_CONSTRUCT_CTOS_SRP = 478; + SSL_F_TLS_CONSTRUCT_CTOS_STATUS_REQUEST = 479; + SSL_F_TLS_CONSTRUCT_CTOS_SUPPORTED_GROUPS = 480; + SSL_F_TLS_CONSTRUCT_CTOS_SUPPORTED_VERSIONS = 481; + SSL_F_TLS_CONSTRUCT_CTOS_USE_SRTP = 482; + SSL_F_TLS_CONSTRUCT_CTOS_VERIFY = 358; + SSL_F_TLS_CONSTRUCT_ENCRYPTED_EXTENSIONS = 443; + SSL_F_TLS_CONSTRUCT_END_OF_EARLY_DATA = 536; + SSL_F_TLS_CONSTRUCT_EXTENSIONS = 447; + SSL_F_TLS_CONSTRUCT_FINISHED = 359; + SSL_F_TLS_CONSTRUCT_HELLO_REQUEST = 373; + SSL_F_TLS_CONSTRUCT_HELLO_RETRY_REQUEST = 510; + SSL_F_TLS_CONSTRUCT_KEY_UPDATE = 517; + SSL_F_TLS_CONSTRUCT_NEW_SESSION_TICKET = 428; + SSL_F_TLS_CONSTRUCT_NEXT_PROTO = 426; + SSL_F_TLS_CONSTRUCT_SERVER_CERTIFICATE = 490; + SSL_F_TLS_CONSTRUCT_SERVER_HELLO = 491; + SSL_F_TLS_CONSTRUCT_SERVER_KEY_EXCHANGE = 492; + SSL_F_TLS_CONSTRUCT_STOC_ALPN = 451; + SSL_F_TLS_CONSTRUCT_STOC_CERTIFICATE = 374; + SSL_F_TLS_CONSTRUCT_STOC_COOKIE = 613; + SSL_F_TLS_CONSTRUCT_STOC_CRYPTOPRO_BUG = 452; + SSL_F_TLS_CONSTRUCT_STOC_DONE = 375; + SSL_F_TLS_CONSTRUCT_STOC_EARLY_DATA = 531; + SSL_F_TLS_CONSTRUCT_STOC_EARLY_DATA_INFO = 525; + SSL_F_TLS_CONSTRUCT_STOC_EC_PT_FORMATS = 453; + SSL_F_TLS_CONSTRUCT_STOC_EMS = 454; + SSL_F_TLS_CONSTRUCT_STOC_ETM = 455; + SSL_F_TLS_CONSTRUCT_STOC_HELLO = 376; + SSL_F_TLS_CONSTRUCT_STOC_KEY_EXCHANGE = 377; + SSL_F_TLS_CONSTRUCT_STOC_KEY_SHARE = 456; + SSL_F_TLS_CONSTRUCT_STOC_MAXFRAGMENTLEN = 548; + SSL_F_TLS_CONSTRUCT_STOC_NEXT_PROTO_NEG = 457; + SSL_F_TLS_CONSTRUCT_STOC_PSK = 504; + SSL_F_TLS_CONSTRUCT_STOC_RENEGOTIATE = 458; + SSL_F_TLS_CONSTRUCT_STOC_SERVER_NAME = 459; + SSL_F_TLS_CONSTRUCT_STOC_SESSION_TICKET = 460; + SSL_F_TLS_CONSTRUCT_STOC_STATUS_REQUEST = 461; + SSL_F_TLS_CONSTRUCT_STOC_SUPPORTED_GROUPS = 544; + SSL_F_TLS_CONSTRUCT_STOC_SUPPORTED_VERSIONS = 611; + SSL_F_TLS_CONSTRUCT_STOC_USE_SRTP = 462; + SSL_F_TLS_EARLY_POST_PROCESS_CLIENT_HELLO = 521; + SSL_F_TLS_FINISH_HANDSHAKE = 597; + SSL_F_TLS_GET_MESSAGE_BODY = 351; + SSL_F_TLS_GET_MESSAGE_HEADER = 387; + SSL_F_TLS_HANDLE_ALPN = 562; + SSL_F_TLS_HANDLE_STATUS_REQUEST = 563; + SSL_F_TLS_PARSE_CERTIFICATE_AUTHORITIES = 566; + SSL_F_TLS_PARSE_CLIENTHELLO_TLSEXT = 449; + SSL_F_TLS_PARSE_CTOS_ALPN = 567; + SSL_F_TLS_PARSE_CTOS_COOKIE = 614; + SSL_F_TLS_PARSE_CTOS_EARLY_DATA = 568; + SSL_F_TLS_PARSE_CTOS_EC_PT_FORMATS = 569; + SSL_F_TLS_PARSE_CTOS_EMS = 570; + SSL_F_TLS_PARSE_CTOS_KEY_SHARE = 463; + SSL_F_TLS_PARSE_CTOS_MAXFRAGMENTLEN = 571; + SSL_F_TLS_PARSE_CTOS_POST_HANDSHAKE_AUTH = 620; + SSL_F_TLS_PARSE_CTOS_PSK = 505; + SSL_F_TLS_PARSE_CTOS_PSK_KEX_MODES = 572; + SSL_F_TLS_PARSE_CTOS_RENEGOTIATE = 464; + SSL_F_TLS_PARSE_CTOS_SERVER_NAME = 573; + SSL_F_TLS_PARSE_CTOS_SESSION_TICKET = 574; + SSL_F_TLS_PARSE_CTOS_SIG_ALGS = 575; + SSL_F_TLS_PARSE_CTOS_SIG_ALGS_CERT = 615; + SSL_F_TLS_PARSE_CTOS_SRP = 576; + SSL_F_TLS_PARSE_CTOS_STATUS_REQUEST = 577; + SSL_F_TLS_PARSE_CTOS_SUPPORTED_GROUPS = 578; + SSL_F_TLS_PARSE_CTOS_USE_SRTP = 465; + SSL_F_TLS_PARSE_STOC_ALPN = 579; + SSL_F_TLS_PARSE_STOC_COOKIE = 534; + SSL_F_TLS_PARSE_STOC_EARLY_DATA = 538; + SSL_F_TLS_PARSE_STOC_EARLY_DATA_INFO = 528; + SSL_F_TLS_PARSE_STOC_EC_PT_FORMATS = 580; + SSL_F_TLS_PARSE_STOC_KEY_SHARE = 445; + SSL_F_TLS_PARSE_STOC_MAXFRAGMENTLEN = 581; + SSL_F_TLS_PARSE_STOC_NPN = 582; + SSL_F_TLS_PARSE_STOC_PSK = 502; + SSL_F_TLS_PARSE_STOC_RENEGOTIATE = 448; + SSL_F_TLS_PARSE_STOC_SCT = 564; + SSL_F_TLS_PARSE_STOC_SERVER_NAME = 583; + SSL_F_TLS_PARSE_STOC_SESSION_TICKET = 584; + SSL_F_TLS_PARSE_STOC_STATUS_REQUEST = 585; + SSL_F_TLS_PARSE_STOC_SUPPORTED_VERSIONS = 612; + SSL_F_TLS_PARSE_STOC_USE_SRTP = 446; + SSL_F_TLS_POST_PROCESS_CLIENT_HELLO = 378; + SSL_F_TLS_POST_PROCESS_CLIENT_KEY_EXCHANGE = 384; + SSL_F_TLS_PREPARE_CLIENT_CERTIFICATE = 360; + SSL_F_TLS_PROCESS_AS_HELLO_RETRY_REQUEST = 610; + SSL_F_TLS_PROCESS_CERTIFICATE_REQUEST = 361; + SSL_F_TLS_PROCESS_CERT_STATUS = 362; + SSL_F_TLS_PROCESS_CERT_STATUS_BODY = 495; + SSL_F_TLS_PROCESS_CERT_VERIFY = 379; + SSL_F_TLS_PROCESS_CHANGE_CIPHER_SPEC = 363; + SSL_F_TLS_PROCESS_CKE_DHE = 411; + SSL_F_TLS_PROCESS_CKE_ECDHE = 412; + SSL_F_TLS_PROCESS_CKE_GOST = 413; + SSL_F_TLS_PROCESS_CKE_PSK_PREAMBLE = 414; + SSL_F_TLS_PROCESS_CKE_RSA = 415; + SSL_F_TLS_PROCESS_CKE_SRP = 416; + SSL_F_TLS_PROCESS_CLIENT_CERTIFICATE = 380; + SSL_F_TLS_PROCESS_CLIENT_HELLO = 381; + SSL_F_TLS_PROCESS_CLIENT_KEY_EXCHANGE = 382; + SSL_F_TLS_PROCESS_ENCRYPTED_EXTENSIONS = 444; + SSL_F_TLS_PROCESS_END_OF_EARLY_DATA = 537; + SSL_F_TLS_PROCESS_FINISHED = 364; + SSL_F_TLS_PROCESS_HELLO_REQ = 507; + SSL_F_TLS_PROCESS_HELLO_RETRY_REQUEST = 511; + SSL_F_TLS_PROCESS_INITIAL_SERVER_FLIGHT = 442; + SSL_F_TLS_PROCESS_KEY_EXCHANGE = 365; + SSL_F_TLS_PROCESS_KEY_UPDATE = 518; + SSL_F_TLS_PROCESS_NEW_SESSION_TICKET = 366; + SSL_F_TLS_PROCESS_NEXT_PROTO = 383; + SSL_F_TLS_PROCESS_SERVER_CERTIFICATE = 367; + SSL_F_TLS_PROCESS_SERVER_DONE = 368; + SSL_F_TLS_PROCESS_SERVER_HELLO = 369; + SSL_F_TLS_PROCESS_SKE_DHE = 419; + SSL_F_TLS_PROCESS_SKE_ECDHE = 420; + SSL_F_TLS_PROCESS_SKE_PSK_PREAMBLE = 421; + SSL_F_TLS_PROCESS_SKE_SRP = 422; + SSL_F_TLS_PSK_DO_BINDER = 506; + SSL_F_TLS_SCAN_CLIENTHELLO_TLSEXT = 450; + SSL_F_TLS_SETUP_HANDSHAKE = 508; + SSL_F_USE_CERTIFICATE_CHAIN_FILE = 220; + SSL_F_WPACKET_INTERN_INIT_LEN = 633; + SSL_F_WPACKET_START_SUB_PACKET_LEN__ = 634; + SSL_F_WRITE_STATE_MACHINE = 586; + SSL_R_APPLICATION_DATA_AFTER_CLOSE_NOTIFY = 291; + SSL_R_APP_DATA_IN_HANDSHAKE = 100; + SSL_R_ATTEMPT_TO_REUSE_SESSION_IN_DIFFERENT_CONTEXT = 272; + SSL_R_AT_LEAST_TLS_1_0_NEEDED_IN_FIPS_MODE = 143; + SSL_R_AT_LEAST_TLS_1_2_NEEDED_IN_SUITEB_MODE = 158; + SSL_R_BAD_CHANGE_CIPHER_SPEC = 103; + SSL_R_BAD_CIPHER = 186; + SSL_R_BAD_DATA = 390; + SSL_R_BAD_DATA_RETURNED_BY_CALLBACK = 106; + SSL_R_BAD_DECOMPRESSION = 107; + SSL_R_BAD_DH_VALUE = 102; + SSL_R_BAD_DIGEST_LENGTH = 111; + SSL_R_BAD_EARLY_DATA = 233; + SSL_R_BAD_ECC_CERT = 304; + SSL_R_BAD_ECPOINT = 306; + SSL_R_BAD_EXTENSION = 110; + SSL_R_BAD_HANDSHAKE_LENGTH = 332; + SSL_R_BAD_HANDSHAKE_STATE = 236; + SSL_R_BAD_HELLO_REQUEST = 105; + SSL_R_BAD_HRR_VERSION = 263; + SSL_R_BAD_KEY_SHARE = 108; + SSL_R_BAD_KEY_UPDATE = 122; + SSL_R_BAD_LEGACY_VERSION = 292; + SSL_R_BAD_LENGTH = 271; + SSL_R_BAD_PACKET = 240; + SSL_R_BAD_PACKET_LENGTH = 115; + SSL_R_BAD_PROTOCOL_VERSION_NUMBER = 116; + SSL_R_BAD_PSK = 219; + SSL_R_BAD_PSK_IDENTITY = 114; + SSL_R_BAD_RECORD_TYPE = 443; + SSL_R_BAD_RSA_ENCRYPT = 119; + SSL_R_BAD_SIGNATURE = 123; + SSL_R_BAD_SRP_A_LENGTH = 347; + SSL_R_BAD_SRP_PARAMETERS = 371; + SSL_R_BAD_SRTP_MKI_VALUE = 352; + SSL_R_BAD_SRTP_PROTECTION_PROFILE_LIST = 353; + SSL_R_BAD_SSL_FILETYPE = 124; + SSL_R_BAD_VALUE = 384; + SSL_R_BAD_WRITE_RETRY = 127; + SSL_R_BINDER_DOES_NOT_VERIFY = 253; + SSL_R_BIO_NOT_SET = 128; + SSL_R_BLOCK_CIPHER_PAD_IS_WRONG = 129; + SSL_R_BN_LIB = 130; + SSL_R_CALLBACK_FAILED = 234; + SSL_R_CANNOT_CHANGE_CIPHER = 109; + SSL_R_CA_DN_LENGTH_MISMATCH = 131; + SSL_R_CA_KEY_TOO_SMALL = 397; + SSL_R_CA_MD_TOO_WEAK = 398; + SSL_R_CCS_RECEIVED_EARLY = 133; + SSL_R_CERTIFICATE_VERIFY_FAILED = 134; + SSL_R_CERT_CB_ERROR = 377; + SSL_R_CERT_LENGTH_MISMATCH = 135; + SSL_R_CIPHERSUITE_DIGEST_HAS_CHANGED = 218; + SSL_R_CIPHER_CODE_WRONG_LENGTH = 137; + SSL_R_CIPHER_OR_HASH_UNAVAILABLE = 138; + SSL_R_CLIENTHELLO_TLSEXT = 226; + SSL_R_COMPRESSED_LENGTH_TOO_LONG = 140; + SSL_R_COMPRESSION_DISABLED = 343; + SSL_R_COMPRESSION_FAILURE = 141; + SSL_R_COMPRESSION_ID_NOT_WITHIN_PRIVATE_RANGE = 307; + SSL_R_COMPRESSION_LIBRARY_ERROR = 142; + SSL_R_CONNECTION_TYPE_NOT_SET = 144; + SSL_R_CONTEXT_NOT_DANE_ENABLED = 167; + SSL_R_COOKIE_GEN_CALLBACK_FAILURE = 400; + SSL_R_COOKIE_MISMATCH = 308; + SSL_R_CUSTOM_EXT_HANDLER_ALREADY_INSTALLED = 206; + SSL_R_DANE_ALREADY_ENABLED = 172; + SSL_R_DANE_CANNOT_OVERRIDE_MTYPE_FULL = 173; + SSL_R_DANE_NOT_ENABLED = 175; + SSL_R_DANE_TLSA_BAD_CERTIFICATE = 180; + SSL_R_DANE_TLSA_BAD_CERTIFICATE_USAGE = 184; + SSL_R_DANE_TLSA_BAD_DATA_LENGTH = 189; + SSL_R_DANE_TLSA_BAD_DIGEST_LENGTH = 192; + SSL_R_DANE_TLSA_BAD_MATCHING_TYPE = 200; + SSL_R_DANE_TLSA_BAD_PUBLIC_KEY = 201; + SSL_R_DANE_TLSA_BAD_SELECTOR = 202; + SSL_R_DANE_TLSA_NULL_DATA = 203; + SSL_R_DATA_BETWEEN_CCS_AND_FINISHED = 145; + SSL_R_DATA_LENGTH_TOO_LONG = 146; + SSL_R_DECRYPTION_FAILED = 147; + SSL_R_DECRYPTION_FAILED_OR_BAD_RECORD_MAC = 281; + SSL_R_DH_KEY_TOO_SMALL = 394; + SSL_R_DH_PUBLIC_VALUE_LENGTH_IS_WRONG = 148; + SSL_R_DIGEST_CHECK_FAILED = 149; + SSL_R_DTLS_MESSAGE_TOO_BIG = 334; + SSL_R_DUPLICATE_COMPRESSION_ID = 309; + SSL_R_ECC_CERT_NOT_FOR_SIGNING = 318; + SSL_R_ECDH_REQUIRED_FOR_SUITEB_MODE = 374; + SSL_R_EE_KEY_TOO_SMALL = 399; + SSL_R_EMPTY_SRTP_PROTECTION_PROFILE_LIST = 354; + SSL_R_ENCRYPTED_LENGTH_TOO_LONG = 150; + SSL_R_ERROR_IN_RECEIVED_CIPHER_LIST = 151; + SSL_R_ERROR_SETTING_TLSA_BASE_DOMAIN = 204; + SSL_R_EXCEEDS_MAX_FRAGMENT_SIZE = 194; + SSL_R_EXCESSIVE_MESSAGE_SIZE = 152; + SSL_R_EXTENSION_NOT_RECEIVED = 279; + SSL_R_EXTRA_DATA_IN_MESSAGE = 153; + SSL_R_EXT_LENGTH_MISMATCH = 163; + SSL_R_FAILED_TO_INIT_ASYNC = 405; + SSL_R_FRAGMENTED_CLIENT_HELLO = 401; + SSL_R_GOT_A_FIN_BEFORE_A_CCS = 154; + SSL_R_HTTPS_PROXY_REQUEST = 155; + SSL_R_HTTP_REQUEST = 156; + SSL_R_ILLEGAL_POINT_COMPRESSION = 162; + SSL_R_ILLEGAL_SUITEB_DIGEST = 380; + SSL_R_INAPPROPRIATE_FALLBACK = 373; + SSL_R_INCONSISTENT_COMPRESSION = 340; + SSL_R_INCONSISTENT_EARLY_DATA_ALPN = 222; + SSL_R_INCONSISTENT_EARLY_DATA_SNI = 231; + SSL_R_INCONSISTENT_EXTMS = 104; + SSL_R_INSUFFICIENT_SECURITY = 241; + SSL_R_INVALID_ALERT = 205; + SSL_R_INVALID_CCS_MESSAGE = 260; + SSL_R_INVALID_CERTIFICATE_OR_ALG = 238; + SSL_R_INVALID_COMMAND = 280; + SSL_R_INVALID_COMPRESSION_ALGORITHM = 341; + SSL_R_INVALID_CONFIG = 283; + SSL_R_INVALID_CONFIGURATION_NAME = 113; + SSL_R_INVALID_CONTEXT = 282; + SSL_R_INVALID_CT_VALIDATION_TYPE = 212; + SSL_R_INVALID_KEY_UPDATE_TYPE = 120; + SSL_R_INVALID_MAX_EARLY_DATA = 174; + SSL_R_INVALID_NULL_CMD_NAME = 385; + SSL_R_INVALID_SEQUENCE_NUMBER = 402; + SSL_R_INVALID_SERVERINFO_DATA = 388; + SSL_R_INVALID_SESSION_ID = 999; + SSL_R_INVALID_SRP_USERNAME = 357; + SSL_R_INVALID_STATUS_RESPONSE = 328; + SSL_R_INVALID_TICKET_KEYS_LENGTH = 325; + SSL_R_LENGTH_MISMATCH = 159; + SSL_R_LENGTH_TOO_LONG = 404; + SSL_R_LENGTH_TOO_SHORT = 160; + SSL_R_LIBRARY_BUG = 274; + SSL_R_LIBRARY_HAS_NO_CIPHERS = 161; + SSL_R_MISSING_DSA_SIGNING_CERT = 165; + SSL_R_MISSING_ECDSA_SIGNING_CERT = 381; + SSL_R_MISSING_FATAL = 256; + SSL_R_MISSING_PARAMETERS = 290; + SSL_R_MISSING_RSA_CERTIFICATE = 168; + SSL_R_MISSING_RSA_ENCRYPTING_CERT = 169; + SSL_R_MISSING_RSA_SIGNING_CERT = 170; + SSL_R_MISSING_SIGALGS_EXTENSION = 112; + SSL_R_MISSING_SIGNING_CERT = 221; + SSL_R_MISSING_SRP_PARAM = 358; + SSL_R_MISSING_SUPPORTED_GROUPS_EXTENSION = 209; + SSL_R_MISSING_TMP_DH_KEY = 171; + SSL_R_MISSING_TMP_ECDH_KEY = 311; + SSL_R_MIXED_HANDSHAKE_AND_NON_HANDSHAKE_DATA = 293; + SSL_R_NOT_ON_RECORD_BOUNDARY = 182; + SSL_R_NOT_REPLACING_CERTIFICATE = 289; + SSL_R_NOT_SERVER = 284; + SSL_R_NO_APPLICATION_PROTOCOL = 235; + SSL_R_NO_CERTIFICATES_RETURNED = 176; + SSL_R_NO_CERTIFICATE_ASSIGNED = 177; + SSL_R_NO_CERTIFICATE_SET = 179; + SSL_R_NO_CHANGE_FOLLOWING_HRR = 214; + SSL_R_NO_CIPHERS_AVAILABLE = 181; + SSL_R_NO_CIPHERS_SPECIFIED = 183; + SSL_R_NO_CIPHER_MATCH = 185; + SSL_R_NO_CLIENT_CERT_METHOD = 331; + SSL_R_NO_COMPRESSION_SPECIFIED = 187; + SSL_R_NO_COOKIE_CALLBACK_SET = 287; + SSL_R_NO_GOST_CERTIFICATE_SENT_BY_PEER = 330; + SSL_R_NO_METHOD_SPECIFIED = 188; + SSL_R_NO_PEM_EXTENSIONS = 389; + SSL_R_NO_PRIVATE_KEY_ASSIGNED = 190; + SSL_R_NO_PROTOCOLS_AVAILABLE = 191; + SSL_R_NO_RENEGOTIATION = 339; + SSL_R_NO_REQUIRED_DIGEST = 324; + SSL_R_NO_SHARED_CIPHER = 193; + SSL_R_NO_SHARED_GROUPS = 410; + SSL_R_NO_SHARED_SIGNATURE_ALGORITHMS = 376; + SSL_R_NO_SRTP_PROFILES = 359; + SSL_R_NO_SUITABLE_KEY_SHARE = 101; + SSL_R_NO_SUITABLE_SIGNATURE_ALGORITHM = 118; + SSL_R_NO_VALID_SCTS = 216; + SSL_R_NO_VERIFY_COOKIE_CALLBACK = 403; + SSL_R_NULL_SSL_CTX = 195; + SSL_R_NULL_SSL_METHOD_PASSED = 196; + SSL_R_OLD_SESSION_CIPHER_NOT_RETURNED = 197; + SSL_R_OLD_SESSION_COMPRESSION_ALGORITHM_NOT_RETURNED = 344; + SSL_R_OVERFLOW_ERROR = 237; + SSL_R_PACKET_LENGTH_TOO_LONG = 198; + SSL_R_PARSE_TLSEXT = 227; + SSL_R_PATH_TOO_LONG = 270; + SSL_R_PEER_DID_NOT_RETURN_A_CERTIFICATE = 199; + SSL_R_PEM_NAME_BAD_PREFIX = 391; + SSL_R_PEM_NAME_TOO_SHORT = 392; + SSL_R_PIPELINE_FAILURE = 406; + SSL_R_POST_HANDSHAKE_AUTH_ENCODING_ERR = 278; + SSL_R_PRIVATE_KEY_MISMATCH = 288; + SSL_R_PROTOCOL_IS_SHUTDOWN = 207; + SSL_R_PSK_IDENTITY_NOT_FOUND = 223; + SSL_R_PSK_NO_CLIENT_CB = 224; + SSL_R_PSK_NO_SERVER_CB = 225; + SSL_R_READ_BIO_NOT_SET = 211; + SSL_R_READ_TIMEOUT_EXPIRED = 312; + SSL_R_RECORD_LENGTH_MISMATCH = 213; + SSL_R_RECORD_TOO_SMALL = 298; + SSL_R_RENEGOTIATE_EXT_TOO_LONG = 335; + SSL_R_RENEGOTIATION_ENCODING_ERR = 336; + SSL_R_RENEGOTIATION_MISMATCH = 337; + SSL_R_REQUEST_PENDING = 285; + SSL_R_REQUEST_SENT = 286; + SSL_R_REQUIRED_CIPHER_MISSING = 215; + SSL_R_REQUIRED_COMPRESSION_ALGORITHM_MISSING = 342; + SSL_R_SCSV_RECEIVED_WHEN_RENEGOTIATING = 345; + SSL_R_SCT_VERIFICATION_FAILED = 208; + SSL_R_SERVERHELLO_TLSEXT = 275; + SSL_R_SESSION_ID_CONTEXT_UNINITIALIZED = 277; + SSL_R_SHUTDOWN_WHILE_IN_INIT = 407; + SSL_R_SIGNATURE_ALGORITHMS_ERROR = 360; + SSL_R_SIGNATURE_FOR_NON_SIGNING_CERTIFICATE = 220; + SSL_R_SRP_A_CALC = 361; + SSL_R_SRTP_COULD_NOT_ALLOCATE_PROFILES = 362; + SSL_R_SRTP_PROTECTION_PROFILE_LIST_TOO_LONG = 363; + SSL_R_SRTP_UNKNOWN_PROTECTION_PROFILE = 364; + SSL_R_SSL3_EXT_INVALID_MAX_FRAGMENT_LENGTH = 232; + SSL_R_SSL3_EXT_INVALID_SERVERNAME = 319; + SSL_R_SSL3_EXT_INVALID_SERVERNAME_TYPE = 320; + SSL_R_SSL3_SESSION_ID_TOO_LONG = 300; + SSL_R_SSLV3_ALERT_BAD_CERTIFICATE = 1042; + SSL_R_SSLV3_ALERT_BAD_RECORD_MAC = 1020; + SSL_R_SSLV3_ALERT_CERTIFICATE_EXPIRED = 1045; + SSL_R_SSLV3_ALERT_CERTIFICATE_REVOKED = 1044; + SSL_R_SSLV3_ALERT_CERTIFICATE_UNKNOWN = 1046; + SSL_R_SSLV3_ALERT_DECOMPRESSION_FAILURE = 1030; + SSL_R_SSLV3_ALERT_HANDSHAKE_FAILURE = 1040; + SSL_R_SSLV3_ALERT_ILLEGAL_PARAMETER = 1047; + SSL_R_SSLV3_ALERT_NO_CERTIFICATE = 1041; + SSL_R_SSLV3_ALERT_UNEXPECTED_MESSAGE = 1010; + SSL_R_SSLV3_ALERT_UNSUPPORTED_CERTIFICATE = 1043; + SSL_R_SSL_COMMAND_SECTION_EMPTY = 117; + SSL_R_SSL_COMMAND_SECTION_NOT_FOUND = 125; + SSL_R_SSL_CTX_HAS_NO_DEFAULT_SSL_VERSION = 228; + SSL_R_SSL_HANDSHAKE_FAILURE = 229; + SSL_R_SSL_LIBRARY_HAS_NO_CIPHERS = 230; + SSL_R_SSL_NEGATIVE_LENGTH = 372; + SSL_R_SSL_SECTION_EMPTY = 126; + SSL_R_SSL_SECTION_NOT_FOUND = 136; + SSL_R_SSL_SESSION_ID_CALLBACK_FAILED = 301; + SSL_R_SSL_SESSION_ID_CONFLICT = 302; + SSL_R_SSL_SESSION_ID_CONTEXT_TOO_LONG = 273; + SSL_R_SSL_SESSION_ID_HAS_BAD_LENGTH = 303; + SSL_R_SSL_SESSION_ID_TOO_LONG = 408; + SSL_R_SSL_SESSION_VERSION_MISMATCH = 210; + SSL_R_STILL_IN_INIT = 121; + SSL_R_TLSV13_ALERT_CERTIFICATE_REQUIRED = 1116; + SSL_R_TLSV13_ALERT_MISSING_EXTENSION = 1109; + SSL_R_TLSV1_ALERT_ACCESS_DENIED = 1049; + SSL_R_TLSV1_ALERT_DECODE_ERROR = 1050; + SSL_R_TLSV1_ALERT_DECRYPTION_FAILED = 1021; + SSL_R_TLSV1_ALERT_DECRYPT_ERROR = 1051; + SSL_R_TLSV1_ALERT_EXPORT_RESTRICTION = 1060; + SSL_R_TLSV1_ALERT_INAPPROPRIATE_FALLBACK = 1086; + SSL_R_TLSV1_ALERT_INSUFFICIENT_SECURITY = 1071; + SSL_R_TLSV1_ALERT_INTERNAL_ERROR = 1080; + SSL_R_TLSV1_ALERT_NO_RENEGOTIATION = 1100; + SSL_R_TLSV1_ALERT_PROTOCOL_VERSION = 1070; + SSL_R_TLSV1_ALERT_RECORD_OVERFLOW = 1022; + SSL_R_TLSV1_ALERT_UNKNOWN_CA = 1048; + SSL_R_TLSV1_ALERT_USER_CANCELLED = 1090; + SSL_R_TLSV1_BAD_CERTIFICATE_HASH_VALUE = 1114; + SSL_R_TLSV1_BAD_CERTIFICATE_STATUS_RESPONSE = 1113; + SSL_R_TLSV1_CERTIFICATE_UNOBTAINABLE = 1111; + SSL_R_TLSV1_UNRECOGNIZED_NAME = 1112; + SSL_R_TLSV1_UNSUPPORTED_EXTENSION = 1110; + SSL_R_TLS_HEARTBEAT_PEER_DOESNT_ACCEPT = 365; + SSL_R_TLS_HEARTBEAT_PENDING = 366; + SSL_R_TLS_ILLEGAL_EXPORTER_LABEL = 367; + SSL_R_TLS_INVALID_ECPOINTFORMAT_LIST = 157; + SSL_R_TOO_MANY_KEY_UPDATES = 132; + SSL_R_TOO_MANY_WARN_ALERTS = 409; + SSL_R_TOO_MUCH_EARLY_DATA = 164; + SSL_R_UNABLE_TO_FIND_ECDH_PARAMETERS = 314; + SSL_R_UNABLE_TO_FIND_PUBLIC_KEY_PARAMETERS = 239; + SSL_R_UNABLE_TO_LOAD_SSL3_MD5_ROUTINES = 242; + SSL_R_UNABLE_TO_LOAD_SSL3_SHA1_ROUTINES = 243; + SSL_R_UNEXPECTED_CCS_MESSAGE = 262; + SSL_R_UNEXPECTED_END_OF_EARLY_DATA = 178; + SSL_R_UNEXPECTED_MESSAGE = 244; + SSL_R_UNEXPECTED_RECORD = 245; + SSL_R_UNINITIALIZED = 276; + SSL_R_UNKNOWN_ALERT_TYPE = 246; + SSL_R_UNKNOWN_CERTIFICATE_TYPE = 247; + SSL_R_UNKNOWN_CIPHER_RETURNED = 248; + SSL_R_UNKNOWN_CIPHER_TYPE = 249; + SSL_R_UNKNOWN_CMD_NAME = 386; + SSL_R_UNKNOWN_COMMAND = 139; + SSL_R_UNKNOWN_DIGEST = 368; + SSL_R_UNKNOWN_KEY_EXCHANGE_TYPE = 250; + SSL_R_UNKNOWN_PKEY_TYPE = 251; + SSL_R_UNKNOWN_PROTOCOL = 252; + SSL_R_UNKNOWN_SSL_VERSION = 254; + SSL_R_UNKNOWN_STATE = 255; + SSL_R_UNSAFE_LEGACY_RENEGOTIATION_DISABLED = 338; + SSL_R_UNSOLICITED_EXTENSION = 217; + SSL_R_UNSUPPORTED_COMPRESSION_ALGORITHM = 257; + SSL_R_UNSUPPORTED_ELLIPTIC_CURVE = 315; + SSL_R_UNSUPPORTED_PROTOCOL = 258; + SSL_R_UNSUPPORTED_SSL_VERSION = 259; + SSL_R_UNSUPPORTED_STATUS_TYPE = 329; + SSL_R_USE_SRTP_NOT_NEGOTIATED = 369; + SSL_R_VERSION_TOO_HIGH = 166; + SSL_R_VERSION_TOO_LOW = 396; + SSL_R_WRONG_CERTIFICATE_TYPE = 383; + SSL_R_WRONG_CIPHER_RETURNED = 261; + SSL_R_WRONG_CURVE = 378; + SSL_R_WRONG_SIGNATURE_LENGTH = 264; + SSL_R_WRONG_SIGNATURE_SIZE = 265; + SSL_R_WRONG_SIGNATURE_TYPE = 370; + SSL_R_WRONG_SSL_VERSION = 266; + SSL_R_WRONG_VERSION_NUMBER = 267; + SSL_R_X509_LIB = 268; + SSL_R_X509_VERIFICATION_SETUP_PROBLEMS = 269; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_SSL_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_SSL_strings: TOpenSSL_C_INT; cdecl; external CLibSSL; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_SSL_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_SSL_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_SSL_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_SSL_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_SSL_strings := LoadLibSSLFunction('ERR_load_SSL_strings'); + if not assigned(ERR_load_SSL_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_SSL_strings'); + Result := ERR_load_SSL_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_SSL_strings := Load_ERR_load_SSL_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_stack.pas b/src/opensslHdrs/IdOpenSSLHeaders_stack.pas new file mode 100644 index 0000000..c56ddd9 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_stack.pas @@ -0,0 +1,1027 @@ +(* This unit was generated from the source file stack.h2pas +It should not be modified directly. All changes should be made to stack.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + +unit IdOpenSSLHeaders_stack; + + +interface + +uses + IdSSLOpenSSLAPI; + + +{ + Automatically converted by H2Pas 1.0.0 from stack.h + The following command line parameters were used: + -p + -t + stack.h +} + + { + * Copyright 1995-2017 The OpenSSL Project Authors. All Rights Reserved. + * + * Licensed under the OpenSSL license (the "License"). You may not use + * this file except in compliance with the License. You can obtain a copy + * in the file LICENSE in the source distribution or at + * https://www.openssl.org/source/license.html + } + + +type + POPENSSL_STACK = pointer; + + TOPENSSL_sk_compfunc = function (_para1:pointer; _para2:pointer):longint;cdecl; + TOPENSSL_sk_freefunc = procedure (_para1:pointer);cdecl; + TOPENSSL_sk_copyfunc = function (_para1:pointer):pointer;cdecl; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM OPENSSL_sk_num} +{$EXTERNALSYM OPENSSL_sk_value} +{$EXTERNALSYM OPENSSL_sk_set} +{$EXTERNALSYM OPENSSL_sk_new} +{$EXTERNALSYM OPENSSL_sk_new_null} +{$EXTERNALSYM OPENSSL_sk_new_reserve} +{$EXTERNALSYM OPENSSL_sk_reserve} +{$EXTERNALSYM OPENSSL_sk_free} +{$EXTERNALSYM OPENSSL_sk_pop_free} +{$EXTERNALSYM OPENSSL_sk_deep_copy} +{$EXTERNALSYM OPENSSL_sk_insert} +{$EXTERNALSYM OPENSSL_sk_delete} +{$EXTERNALSYM OPENSSL_sk_delete_ptr} +{$EXTERNALSYM OPENSSL_sk_find} +{$EXTERNALSYM OPENSSL_sk_find_ex} +{$EXTERNALSYM OPENSSL_sk_push} +{$EXTERNALSYM OPENSSL_sk_unshift} +{$EXTERNALSYM OPENSSL_sk_shift} +{$EXTERNALSYM OPENSSL_sk_pop} +{$EXTERNALSYM OPENSSL_sk_zero} +{$EXTERNALSYM OPENSSL_sk_set_cmp_func} +{$EXTERNALSYM OPENSSL_sk_dup} +{$EXTERNALSYM OPENSSL_sk_sort} +{$EXTERNALSYM OPENSSL_sk_is_sorted} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function OPENSSL_sk_num(_para1:POPENSSL_STACK): longint; cdecl; external CLibCrypto; +function OPENSSL_sk_value(_para1:POPENSSL_STACK; _para2:longint): pointer; cdecl; external CLibCrypto; +function OPENSSL_sk_set(st:POPENSSL_STACK; i:longint; data:pointer): pointer; cdecl; external CLibCrypto; +function OPENSSL_sk_new(cmp:TOPENSSL_sk_compfunc): POPENSSL_STACK; cdecl; external CLibCrypto; +function OPENSSL_sk_new_null: POPENSSL_STACK; cdecl; external CLibCrypto; +function OPENSSL_sk_new_reserve(c:TOPENSSL_sk_compfunc; n:longint): POPENSSL_STACK; cdecl; external CLibCrypto; +function OPENSSL_sk_reserve(st:POPENSSL_STACK; n:longint): longint; cdecl; external CLibCrypto; +procedure OPENSSL_sk_free(_para1:POPENSSL_STACK); cdecl; external CLibCrypto; +procedure OPENSSL_sk_pop_free(st:POPENSSL_STACK; func:TOPENSSL_sk_freefunc); cdecl; external CLibCrypto; +function OPENSSL_sk_deep_copy(_para1:POPENSSL_STACK; c:TOPENSSL_sk_copyfunc; f:TOPENSSL_sk_freefunc): POPENSSL_STACK; cdecl; external CLibCrypto; +function OPENSSL_sk_insert(sk:POPENSSL_STACK; data:pointer; where:longint): longint; cdecl; external CLibCrypto; +function OPENSSL_sk_delete(st:POPENSSL_STACK; loc:longint): pointer; cdecl; external CLibCrypto; +function OPENSSL_sk_delete_ptr(st:POPENSSL_STACK; p:pointer): pointer; cdecl; external CLibCrypto; +function OPENSSL_sk_find(st:POPENSSL_STACK; data:pointer): longint; cdecl; external CLibCrypto; +function OPENSSL_sk_find_ex(st:POPENSSL_STACK; data:pointer): longint; cdecl; external CLibCrypto; +function OPENSSL_sk_push(st:POPENSSL_STACK; data:pointer): longint; cdecl; external CLibCrypto; +function OPENSSL_sk_unshift(st:POPENSSL_STACK; data:pointer): longint; cdecl; external CLibCrypto; +function OPENSSL_sk_shift(st:POPENSSL_STACK): pointer; cdecl; external CLibCrypto; +function OPENSSL_sk_pop(st:POPENSSL_STACK): pointer; cdecl; external CLibCrypto; +procedure OPENSSL_sk_zero(st:POPENSSL_STACK); cdecl; external CLibCrypto; +function OPENSSL_sk_set_cmp_func(sk:POPENSSL_STACK; cmp:TOPENSSL_sk_compfunc): TOPENSSL_sk_compfunc; cdecl; external CLibCrypto; +function OPENSSL_sk_dup(st:POPENSSL_STACK): POPENSSL_STACK; cdecl; external CLibCrypto; +procedure OPENSSL_sk_sort(st:POPENSSL_STACK); cdecl; external CLibCrypto; +function OPENSSL_sk_is_sorted(st:POPENSSL_STACK): longint; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_OPENSSL_sk_num(_para1:POPENSSL_STACK): longint; cdecl; +function Load_OPENSSL_sk_value(_para1:POPENSSL_STACK; _para2:longint): pointer; cdecl; +function Load_OPENSSL_sk_set(st:POPENSSL_STACK; i:longint; data:pointer): pointer; cdecl; +function Load_OPENSSL_sk_new(cmp:TOPENSSL_sk_compfunc): POPENSSL_STACK; cdecl; +function Load_OPENSSL_sk_new_null: POPENSSL_STACK; cdecl; +function Load_OPENSSL_sk_new_reserve(c:TOPENSSL_sk_compfunc; n:longint): POPENSSL_STACK; cdecl; +function Load_OPENSSL_sk_reserve(st:POPENSSL_STACK; n:longint): longint; cdecl; +procedure Load_OPENSSL_sk_free(_para1:POPENSSL_STACK); cdecl; +procedure Load_OPENSSL_sk_pop_free(st:POPENSSL_STACK; func:TOPENSSL_sk_freefunc); cdecl; +function Load_OPENSSL_sk_deep_copy(_para1:POPENSSL_STACK; c:TOPENSSL_sk_copyfunc; f:TOPENSSL_sk_freefunc): POPENSSL_STACK; cdecl; +function Load_OPENSSL_sk_insert(sk:POPENSSL_STACK; data:pointer; where:longint): longint; cdecl; +function Load_OPENSSL_sk_delete(st:POPENSSL_STACK; loc:longint): pointer; cdecl; +function Load_OPENSSL_sk_delete_ptr(st:POPENSSL_STACK; p:pointer): pointer; cdecl; +function Load_OPENSSL_sk_find(st:POPENSSL_STACK; data:pointer): longint; cdecl; +function Load_OPENSSL_sk_find_ex(st:POPENSSL_STACK; data:pointer): longint; cdecl; +function Load_OPENSSL_sk_push(st:POPENSSL_STACK; data:pointer): longint; cdecl; +function Load_OPENSSL_sk_unshift(st:POPENSSL_STACK; data:pointer): longint; cdecl; +function Load_OPENSSL_sk_shift(st:POPENSSL_STACK): pointer; cdecl; +function Load_OPENSSL_sk_pop(st:POPENSSL_STACK): pointer; cdecl; +procedure Load_OPENSSL_sk_zero(st:POPENSSL_STACK); cdecl; +function Load_OPENSSL_sk_set_cmp_func(sk:POPENSSL_STACK; cmp:TOPENSSL_sk_compfunc): TOPENSSL_sk_compfunc; cdecl; +function Load_OPENSSL_sk_dup(st:POPENSSL_STACK): POPENSSL_STACK; cdecl; +procedure Load_OPENSSL_sk_sort(st:POPENSSL_STACK); cdecl; +function Load_OPENSSL_sk_is_sorted(st:POPENSSL_STACK): longint; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_sk_num(_para1:POPENSSL_STACK): longint; cdecl; +function Load_sk_value(_para1:POPENSSL_STACK; _para2:longint): pointer; cdecl; +function Load_sk_set(st:POPENSSL_STACK; i:longint; data:pointer): pointer; cdecl; +function Load_sk_new(cmp:TOPENSSL_sk_compfunc): POPENSSL_STACK; cdecl; +function Load_sk_new_null: POPENSSL_STACK; cdecl; +function Load_sk_new_reserve(c:TOPENSSL_sk_compfunc; n:longint): POPENSSL_STACK; cdecl; +function Load_sk_reserve(st:POPENSSL_STACK; n:longint): longint; cdecl; +procedure Load_sk_free(_para1:POPENSSL_STACK); cdecl; +procedure Load_sk_pop_free(st:POPENSSL_STACK; func:TOPENSSL_sk_freefunc); cdecl; +function Load_sk_deep_copy(_para1:POPENSSL_STACK; c:TOPENSSL_sk_copyfunc; f:TOPENSSL_sk_freefunc): POPENSSL_STACK; cdecl; +function Load_sk_insert(sk:POPENSSL_STACK; data:pointer; where:longint): longint; cdecl; +function Load_sk_delete(st:POPENSSL_STACK; loc:longint): pointer; cdecl; +function Load_sk_delete_ptr(st:POPENSSL_STACK; p:pointer): pointer; cdecl; +function Load_sk_find(st:POPENSSL_STACK; data:pointer): longint; cdecl; +function Load_sk_find_ex(st:POPENSSL_STACK; data:pointer): longint; cdecl; +function Load_sk_push(st:POPENSSL_STACK; data:pointer): longint; cdecl; +function Load_sk_unshift(st:POPENSSL_STACK; data:pointer): longint; cdecl; +function Load_sk_shift(st:POPENSSL_STACK): pointer; cdecl; +function Load_sk_pop(st:POPENSSL_STACK): pointer; cdecl; +procedure Load_sk_zero(st:POPENSSL_STACK); cdecl; +function Load_sk_set_cmp_func(sk:POPENSSL_STACK; cmp:TOPENSSL_sk_compfunc): TOPENSSL_sk_compfunc; cdecl; +function Load_sk_dup(st:POPENSSL_STACK): POPENSSL_STACK; cdecl; +procedure Load_sk_sort(st:POPENSSL_STACK); cdecl; +function Load_sk_is_sorted(st:POPENSSL_STACK): longint; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + +var + OPENSSL_sk_num: function (_para1:POPENSSL_STACK): longint; cdecl = Load_OPENSSL_sk_num; + OPENSSL_sk_value: function (_para1:POPENSSL_STACK; _para2:longint): pointer; cdecl = Load_OPENSSL_sk_value; + OPENSSL_sk_set: function (st:POPENSSL_STACK; i:longint; data:pointer): pointer; cdecl = Load_OPENSSL_sk_set; + OPENSSL_sk_new: function (cmp:TOPENSSL_sk_compfunc): POPENSSL_STACK; cdecl = Load_OPENSSL_sk_new; + OPENSSL_sk_new_null: function : POPENSSL_STACK; cdecl = Load_OPENSSL_sk_new_null; + OPENSSL_sk_new_reserve: function (c:TOPENSSL_sk_compfunc; n:longint): POPENSSL_STACK; cdecl = Load_OPENSSL_sk_new_reserve; + OPENSSL_sk_reserve: function (st:POPENSSL_STACK; n:longint): longint; cdecl = Load_OPENSSL_sk_reserve; + OPENSSL_sk_free: procedure (_para1:POPENSSL_STACK); cdecl = Load_OPENSSL_sk_free; + OPENSSL_sk_pop_free: procedure (st:POPENSSL_STACK; func:TOPENSSL_sk_freefunc); cdecl = Load_OPENSSL_sk_pop_free; + OPENSSL_sk_deep_copy: function (_para1:POPENSSL_STACK; c:TOPENSSL_sk_copyfunc; f:TOPENSSL_sk_freefunc): POPENSSL_STACK; cdecl = Load_OPENSSL_sk_deep_copy; + OPENSSL_sk_insert: function (sk:POPENSSL_STACK; data:pointer; where:longint): longint; cdecl = Load_OPENSSL_sk_insert; + OPENSSL_sk_delete: function (st:POPENSSL_STACK; loc:longint): pointer; cdecl = Load_OPENSSL_sk_delete; + OPENSSL_sk_delete_ptr: function (st:POPENSSL_STACK; p:pointer): pointer; cdecl = Load_OPENSSL_sk_delete_ptr; + OPENSSL_sk_find: function (st:POPENSSL_STACK; data:pointer): longint; cdecl = Load_OPENSSL_sk_find; + OPENSSL_sk_find_ex: function (st:POPENSSL_STACK; data:pointer): longint; cdecl = Load_OPENSSL_sk_find_ex; + OPENSSL_sk_push: function (st:POPENSSL_STACK; data:pointer): longint; cdecl = Load_OPENSSL_sk_push; + OPENSSL_sk_unshift: function (st:POPENSSL_STACK; data:pointer): longint; cdecl = Load_OPENSSL_sk_unshift; + OPENSSL_sk_shift: function (st:POPENSSL_STACK): pointer; cdecl = Load_OPENSSL_sk_shift; + OPENSSL_sk_pop: function (st:POPENSSL_STACK): pointer; cdecl = Load_OPENSSL_sk_pop; + OPENSSL_sk_zero: procedure (st:POPENSSL_STACK); cdecl = Load_OPENSSL_sk_zero; + OPENSSL_sk_set_cmp_func: function (sk:POPENSSL_STACK; cmp:TOPENSSL_sk_compfunc): TOPENSSL_sk_compfunc; cdecl = Load_OPENSSL_sk_set_cmp_func; + OPENSSL_sk_dup: function (st:POPENSSL_STACK): POPENSSL_STACK; cdecl = Load_OPENSSL_sk_dup; + OPENSSL_sk_sort: procedure (st:POPENSSL_STACK); cdecl = Load_OPENSSL_sk_sort; + OPENSSL_sk_is_sorted: function (st:POPENSSL_STACK): longint; cdecl = Load_OPENSSL_sk_is_sorted; +{$ENDIF} +const + OPENSSL_sk_num_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_value_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_set_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_new_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_new_null_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_new_reserve_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_reserve_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_pop_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_deep_copy_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_insert_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_delete_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_delete_ptr_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_find_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_find_ex_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_push_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_unshift_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_shift_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_pop_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_zero_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_set_cmp_func_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_dup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_sort_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + OPENSSL_sk_is_sorted_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + sk_num_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_value_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_set_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_new_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_new_null_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_new_reserve_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + sk_reserve_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + sk_free_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_pop_free_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_deep_copy_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_insert_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_delete_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_delete_ptr_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_find_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_find_ex_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_push_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_unshift_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_shift_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_pop_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_zero_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_set_cmp_func_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_dup_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_sort_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + sk_is_sorted_removed = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.1.0} + + +implementation + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +var + sk_num: function (_para1:POPENSSL_STACK): longint; cdecl = Load_sk_num; {removed 1.1.0} + sk_value: function (_para1:POPENSSL_STACK; _para2:longint): pointer; cdecl = Load_sk_value; {removed 1.1.0} + sk_set: function (st:POPENSSL_STACK; i:longint; data:pointer): pointer; cdecl = Load_sk_set; {removed 1.1.0} + sk_new: function (cmp:TOPENSSL_sk_compfunc): POPENSSL_STACK; cdecl = Load_sk_new; {removed 1.1.0} + sk_new_null: function : POPENSSL_STACK; cdecl = Load_sk_new_null; {removed 1.1.0} + sk_new_reserve: function (c:TOPENSSL_sk_compfunc; n:longint): POPENSSL_STACK; cdecl = Load_sk_new_reserve; {removed 1.0.0} + sk_reserve: function (st:POPENSSL_STACK; n:longint): longint; cdecl = Load_sk_reserve; {removed 1.0.0} + sk_free: procedure (_para1:POPENSSL_STACK); cdecl = Load_sk_free; {removed 1.1.0} + sk_pop_free: procedure (st:POPENSSL_STACK; func:TOPENSSL_sk_freefunc); cdecl = Load_sk_pop_free; {removed 1.1.0} + sk_deep_copy: function (_para1:POPENSSL_STACK; c:TOPENSSL_sk_copyfunc; f:TOPENSSL_sk_freefunc): POPENSSL_STACK; cdecl = Load_sk_deep_copy; {removed 1.1.0} + sk_insert: function (sk:POPENSSL_STACK; data:pointer; where:longint): longint; cdecl = Load_sk_insert; {removed 1.1.0} + sk_delete: function (st:POPENSSL_STACK; loc:longint): pointer; cdecl = Load_sk_delete; {removed 1.1.0} + sk_delete_ptr: function (st:POPENSSL_STACK; p:pointer): pointer; cdecl = Load_sk_delete_ptr; {removed 1.1.0} + sk_find: function (st:POPENSSL_STACK; data:pointer): longint; cdecl = Load_sk_find; {removed 1.1.0} + sk_find_ex: function (st:POPENSSL_STACK; data:pointer): longint; cdecl = Load_sk_find_ex; {removed 1.1.0} + sk_push: function (st:POPENSSL_STACK; data:pointer): longint; cdecl = Load_sk_push; {removed 1.1.0} + sk_unshift: function (st:POPENSSL_STACK; data:pointer): longint; cdecl = Load_sk_unshift; {removed 1.1.0} + sk_shift: function (st:POPENSSL_STACK): pointer; cdecl = Load_sk_shift; {removed 1.1.0} + sk_pop: function (st:POPENSSL_STACK): pointer; cdecl = Load_sk_pop; {removed 1.1.0} + sk_zero: procedure (st:POPENSSL_STACK); cdecl = Load_sk_zero; {removed 1.1.0} + sk_set_cmp_func: function (sk:POPENSSL_STACK; cmp:TOPENSSL_sk_compfunc): TOPENSSL_sk_compfunc; cdecl = Load_sk_set_cmp_func; {removed 1.1.0} + sk_dup: function (st:POPENSSL_STACK): POPENSSL_STACK; cdecl = Load_sk_dup; {removed 1.1.0} + sk_sort: procedure (st:POPENSSL_STACK); cdecl = Load_sk_sort; {removed 1.1.0} + sk_is_sorted: function (st:POPENSSL_STACK): longint; cdecl = Load_sk_is_sorted; {removed 1.1.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function COMPAT_OPENSSL_sk_num(_para1:POPENSSL_STACK): longint; cdecl; + +begin + Result := sk_num(_para1); +end; + + + +function COMPAT_OPENSSL_sk_value(_para1:POPENSSL_STACK; _para2:longint): pointer; cdecl; + +begin + Result := sk_value(_para1,_para2); +end; + + + +function COMPAT_OPENSSL_sk_set(st:POPENSSL_STACK; i:longint; data:pointer): pointer; cdecl; + +begin + Result := sk_set(st,i,data); +end; + + + +function COMPAT_OPENSSL_sk_new(cmp:TOPENSSL_sk_compfunc): POPENSSL_STACK; cdecl; + +begin + Result := sk_new(cmp); +end; + + + +function COMPAT_OPENSSL_sk_new_null: POPENSSL_STACK; cdecl; + +begin + Result := sk_new_null; +end; + + + +function COMPAT_OPENSSL_sk_new_reserve(c:TOPENSSL_sk_compfunc; n:longint): POPENSSL_STACK; cdecl; + +begin + Result := sk_new_reserve(c,n); +end; + + + +function COMPAT_OPENSSL_sk_reserve(st:POPENSSL_STACK; n:longint): longint; cdecl; + +begin + Result := sk_reserve(st,n); +end; + + + +procedure COMPAT_OPENSSL_sk_free(_para1:POPENSSL_STACK); cdecl; + +begin + sk_free(_para1); +end; + + + +procedure COMPAT_OPENSSL_sk_pop_free(st:POPENSSL_STACK; func:TOPENSSL_sk_freefunc); cdecl; + +begin + sk_pop_free(st, func); +end; + + + +function COMPAT_OPENSSL_sk_deep_copy(_para1:POPENSSL_STACK; c:TOPENSSL_sk_copyfunc; f:TOPENSSL_sk_freefunc): POPENSSL_STACK; cdecl; + +begin + Result := sk_deep_copy(_para1,c,f); +end; + + + +function COMPAT_OPENSSL_sk_insert(sk:POPENSSL_STACK; data:pointer; where:longint): longint; cdecl; + +begin + Result := sk_insert(sk,data,where); +end; + + + +function COMPAT_OPENSSL_sk_delete(st:POPENSSL_STACK; loc:longint): pointer; cdecl; + +begin + Result := sk_delete(st,loc); +end; + + + +function COMPAT_OPENSSL_sk_delete_ptr(st:POPENSSL_STACK; p:pointer): pointer; cdecl; + +begin + Result := sk_delete_ptr(st,p); +end; + + + +function COMPAT_OPENSSL_sk_find(st:POPENSSL_STACK; data:pointer): longint; cdecl; + +begin + Result := sk_find(st,data); +end; + + + +function COMPAT_OPENSSL_sk_find_ex(st:POPENSSL_STACK; data:pointer): longint; cdecl; + +begin + Result := sk_find_ex(st,data); +end; + + + +function COMPAT_OPENSSL_sk_push(st:POPENSSL_STACK; data:pointer): longint; cdecl; + +begin + Result := sk_push(st,data); +end; + + + +function COMPAT_OPENSSL_sk_unshift(st:POPENSSL_STACK; data:pointer): longint; cdecl; + +begin + Result := sk_unshift(st,data); +end; + + + +function COMPAT_OPENSSL_sk_shift(st:POPENSSL_STACK): pointer; cdecl; + +begin + Result := sk_shift(st); +end; + + + +function COMPAT_OPENSSL_sk_pop(st:POPENSSL_STACK): pointer; cdecl; + +begin + Result := sk_pop(st); +end; + + + +procedure COMPAT_OPENSSL_sk_zero(st:POPENSSL_STACK); cdecl; + +begin + OPENSSL_sk_zero(st); +end; + + + +function COMPAT_OPENSSL_sk_set_cmp_func(sk:POPENSSL_STACK; cmp:TOPENSSL_sk_compfunc): TOPENSSL_sk_compfunc; cdecl; + +begin + Result := sk_set_cmp_func(sk,cmp); +end; + + + +function COMPAT_OPENSSL_sk_dup(st:POPENSSL_STACK): POPENSSL_STACK; cdecl; + +begin + Result := sk_dup(st); +end; + + + +procedure COMPAT_OPENSSL_sk_sort(st:POPENSSL_STACK); cdecl; + +begin + OPENSSL_sk_sort(st); +end; + + + +function COMPAT_OPENSSL_sk_is_sorted(st:POPENSSL_STACK): longint; cdecl; + +begin + Result := sk_is_sorted(st); +end; + + + + + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_OPENSSL_sk_num(_para1:POPENSSL_STACK): longint; cdecl; +begin + OPENSSL_sk_num := LoadLibCryptoFunction('OPENSSL_sk_num'); + if not assigned(OPENSSL_sk_num) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_num := @COMPAT_OPENSSL_sk_num; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_num'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_num(_para1); +end; + +function Load_OPENSSL_sk_value(_para1:POPENSSL_STACK; _para2:longint): pointer; cdecl; +begin + OPENSSL_sk_value := LoadLibCryptoFunction('OPENSSL_sk_value'); + if not assigned(OPENSSL_sk_value) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_value := @COMPAT_OPENSSL_sk_value; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_value'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_value(_para1,_para2); +end; + +function Load_OPENSSL_sk_set(st:POPENSSL_STACK; i:longint; data:pointer): pointer; cdecl; +begin + OPENSSL_sk_set := LoadLibCryptoFunction('OPENSSL_sk_set'); + if not assigned(OPENSSL_sk_set) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_set := @COMPAT_OPENSSL_sk_set; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_set'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_set(st,i,data); +end; + +function Load_OPENSSL_sk_new(cmp:TOPENSSL_sk_compfunc): POPENSSL_STACK; cdecl; +begin + OPENSSL_sk_new := LoadLibCryptoFunction('OPENSSL_sk_new'); + if not assigned(OPENSSL_sk_new) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_new := @COMPAT_OPENSSL_sk_new; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_new'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_new(cmp); +end; + +function Load_OPENSSL_sk_new_null: POPENSSL_STACK; cdecl; +begin + OPENSSL_sk_new_null := LoadLibCryptoFunction('OPENSSL_sk_new_null'); + if not assigned(OPENSSL_sk_new_null) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_new_null := @COMPAT_OPENSSL_sk_new_null; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_new_null'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_new_null(); +end; + +function Load_OPENSSL_sk_new_reserve(c:TOPENSSL_sk_compfunc; n:longint): POPENSSL_STACK; cdecl; +begin + OPENSSL_sk_new_reserve := LoadLibCryptoFunction('OPENSSL_sk_new_reserve'); + if not assigned(OPENSSL_sk_new_reserve) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_new_reserve := @COMPAT_OPENSSL_sk_new_reserve; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_new_reserve'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_new_reserve(c,n); +end; + +function Load_OPENSSL_sk_reserve(st:POPENSSL_STACK; n:longint): longint; cdecl; +begin + OPENSSL_sk_reserve := LoadLibCryptoFunction('OPENSSL_sk_reserve'); + if not assigned(OPENSSL_sk_reserve) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_reserve := @COMPAT_OPENSSL_sk_reserve; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_reserve'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_reserve(st,n); +end; + +procedure Load_OPENSSL_sk_free(_para1:POPENSSL_STACK); cdecl; +begin + OPENSSL_sk_free := LoadLibCryptoFunction('OPENSSL_sk_free'); + if not assigned(OPENSSL_sk_free) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_free := @COMPAT_OPENSSL_sk_free; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_free'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_free(_para1); +end; + +procedure Load_OPENSSL_sk_pop_free(st:POPENSSL_STACK; func:TOPENSSL_sk_freefunc); cdecl; +begin + OPENSSL_sk_pop_free := LoadLibCryptoFunction('OPENSSL_sk_pop_free'); + if not assigned(OPENSSL_sk_pop_free) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_pop_free := @COMPAT_OPENSSL_sk_pop_free; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_pop_free'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_pop_free(st,func); +end; + +function Load_OPENSSL_sk_deep_copy(_para1:POPENSSL_STACK; c:TOPENSSL_sk_copyfunc; f:TOPENSSL_sk_freefunc): POPENSSL_STACK; cdecl; +begin + OPENSSL_sk_deep_copy := LoadLibCryptoFunction('OPENSSL_sk_deep_copy'); + if not assigned(OPENSSL_sk_deep_copy) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_deep_copy := @COMPAT_OPENSSL_sk_deep_copy; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_deep_copy'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_deep_copy(_para1,c,f); +end; + +function Load_OPENSSL_sk_insert(sk:POPENSSL_STACK; data:pointer; where:longint): longint; cdecl; +begin + OPENSSL_sk_insert := LoadLibCryptoFunction('OPENSSL_sk_insert'); + if not assigned(OPENSSL_sk_insert) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_insert := @COMPAT_OPENSSL_sk_insert; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_insert'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_insert(sk,data,where); +end; + +function Load_OPENSSL_sk_delete(st:POPENSSL_STACK; loc:longint): pointer; cdecl; +begin + OPENSSL_sk_delete := LoadLibCryptoFunction('OPENSSL_sk_delete'); + if not assigned(OPENSSL_sk_delete) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_delete := @COMPAT_OPENSSL_sk_delete; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_delete'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_delete(st,loc); +end; + +function Load_OPENSSL_sk_delete_ptr(st:POPENSSL_STACK; p:pointer): pointer; cdecl; +begin + OPENSSL_sk_delete_ptr := LoadLibCryptoFunction('OPENSSL_sk_delete_ptr'); + if not assigned(OPENSSL_sk_delete_ptr) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_delete_ptr := @COMPAT_OPENSSL_sk_delete_ptr; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_delete_ptr'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_delete_ptr(st,p); +end; + +function Load_OPENSSL_sk_find(st:POPENSSL_STACK; data:pointer): longint; cdecl; +begin + OPENSSL_sk_find := LoadLibCryptoFunction('OPENSSL_sk_find'); + if not assigned(OPENSSL_sk_find) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_find := @COMPAT_OPENSSL_sk_find; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_find'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_find(st,data); +end; + +function Load_OPENSSL_sk_find_ex(st:POPENSSL_STACK; data:pointer): longint; cdecl; +begin + OPENSSL_sk_find_ex := LoadLibCryptoFunction('OPENSSL_sk_find_ex'); + if not assigned(OPENSSL_sk_find_ex) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_find_ex := @COMPAT_OPENSSL_sk_find_ex; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_find_ex'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_find_ex(st,data); +end; + +function Load_OPENSSL_sk_push(st:POPENSSL_STACK; data:pointer): longint; cdecl; +begin + OPENSSL_sk_push := LoadLibCryptoFunction('OPENSSL_sk_push'); + if not assigned(OPENSSL_sk_push) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_push := @COMPAT_OPENSSL_sk_push; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_push'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_push(st,data); +end; + +function Load_OPENSSL_sk_unshift(st:POPENSSL_STACK; data:pointer): longint; cdecl; +begin + OPENSSL_sk_unshift := LoadLibCryptoFunction('OPENSSL_sk_unshift'); + if not assigned(OPENSSL_sk_unshift) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_unshift := @COMPAT_OPENSSL_sk_unshift; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_unshift'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_unshift(st,data); +end; + +function Load_OPENSSL_sk_shift(st:POPENSSL_STACK): pointer; cdecl; +begin + OPENSSL_sk_shift := LoadLibCryptoFunction('OPENSSL_sk_shift'); + if not assigned(OPENSSL_sk_shift) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_shift := @COMPAT_OPENSSL_sk_shift; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_shift'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_shift(st); +end; + +function Load_OPENSSL_sk_pop(st:POPENSSL_STACK): pointer; cdecl; +begin + OPENSSL_sk_pop := LoadLibCryptoFunction('OPENSSL_sk_pop'); + if not assigned(OPENSSL_sk_pop) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_pop := @COMPAT_OPENSSL_sk_pop; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_pop'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_pop(st); +end; + +procedure Load_OPENSSL_sk_zero(st:POPENSSL_STACK); cdecl; +begin + OPENSSL_sk_zero := LoadLibCryptoFunction('OPENSSL_sk_zero'); + if not assigned(OPENSSL_sk_zero) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_zero := @COMPAT_OPENSSL_sk_zero; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_zero'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_zero(st); +end; + +function Load_OPENSSL_sk_set_cmp_func(sk:POPENSSL_STACK; cmp:TOPENSSL_sk_compfunc): TOPENSSL_sk_compfunc; cdecl; +begin + OPENSSL_sk_set_cmp_func := LoadLibCryptoFunction('OPENSSL_sk_set_cmp_func'); + if not assigned(OPENSSL_sk_set_cmp_func) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_set_cmp_func := @COMPAT_OPENSSL_sk_set_cmp_func; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_set_cmp_func'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_set_cmp_func(sk,cmp); +end; + +function Load_OPENSSL_sk_dup(st:POPENSSL_STACK): POPENSSL_STACK; cdecl; +begin + OPENSSL_sk_dup := LoadLibCryptoFunction('OPENSSL_sk_dup'); + if not assigned(OPENSSL_sk_dup) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_dup := @COMPAT_OPENSSL_sk_dup; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_dup'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_dup(st); +end; + +procedure Load_OPENSSL_sk_sort(st:POPENSSL_STACK); cdecl; +begin + OPENSSL_sk_sort := LoadLibCryptoFunction('OPENSSL_sk_sort'); + if not assigned(OPENSSL_sk_sort) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_sort := @COMPAT_OPENSSL_sk_sort; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_sort'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_sort(st); +end; + +function Load_OPENSSL_sk_is_sorted(st:POPENSSL_STACK): longint; cdecl; +begin + OPENSSL_sk_is_sorted := LoadLibCryptoFunction('OPENSSL_sk_is_sorted'); + if not assigned(OPENSSL_sk_is_sorted) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + OPENSSL_sk_is_sorted := @COMPAT_OPENSSL_sk_is_sorted; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('OPENSSL_sk_is_sorted'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := OPENSSL_sk_is_sorted(st); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_sk_num(_para1:POPENSSL_STACK): longint; cdecl; +begin + sk_num := LoadLibCryptoFunction('sk_num'); + if not assigned(sk_num) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_num'); + Result := sk_num(_para1); +end; + +function Load_sk_value(_para1:POPENSSL_STACK; _para2:longint): pointer; cdecl; +begin + sk_value := LoadLibCryptoFunction('sk_value'); + if not assigned(sk_value) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_value'); + Result := sk_value(_para1,_para2); +end; + +function Load_sk_set(st:POPENSSL_STACK; i:longint; data:pointer): pointer; cdecl; +begin + sk_set := LoadLibCryptoFunction('sk_set'); + if not assigned(sk_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_set'); + Result := sk_set(st,i,data); +end; + +function Load_sk_new(cmp:TOPENSSL_sk_compfunc): POPENSSL_STACK; cdecl; +begin + sk_new := LoadLibCryptoFunction('sk_new'); + if not assigned(sk_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_new'); + Result := sk_new(cmp); +end; + +function Load_sk_new_null: POPENSSL_STACK; cdecl; +begin + sk_new_null := LoadLibCryptoFunction('sk_new_null'); + if not assigned(sk_new_null) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_new_null'); + Result := sk_new_null(); +end; + +function Load_sk_new_reserve(c:TOPENSSL_sk_compfunc; n:longint): POPENSSL_STACK; cdecl; +begin + sk_new_reserve := LoadLibCryptoFunction('sk_new_reserve'); + if not assigned(sk_new_reserve) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_new_reserve'); + Result := sk_new_reserve(c,n); +end; + +function Load_sk_reserve(st:POPENSSL_STACK; n:longint): longint; cdecl; +begin + sk_reserve := LoadLibCryptoFunction('sk_reserve'); + if not assigned(sk_reserve) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_reserve'); + Result := sk_reserve(st,n); +end; + +procedure Load_sk_free(_para1:POPENSSL_STACK); cdecl; +begin + sk_free := LoadLibCryptoFunction('sk_free'); + if not assigned(sk_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_free'); + sk_free(_para1); +end; + +procedure Load_sk_pop_free(st:POPENSSL_STACK; func:TOPENSSL_sk_freefunc); cdecl; +begin + sk_pop_free := LoadLibCryptoFunction('sk_pop_free'); + if not assigned(sk_pop_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_pop_free'); + sk_pop_free(st,func); +end; + +function Load_sk_deep_copy(_para1:POPENSSL_STACK; c:TOPENSSL_sk_copyfunc; f:TOPENSSL_sk_freefunc): POPENSSL_STACK; cdecl; +begin + sk_deep_copy := LoadLibCryptoFunction('sk_deep_copy'); + if not assigned(sk_deep_copy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_deep_copy'); + Result := sk_deep_copy(_para1,c,f); +end; + +function Load_sk_insert(sk:POPENSSL_STACK; data:pointer; where:longint): longint; cdecl; +begin + sk_insert := LoadLibCryptoFunction('sk_insert'); + if not assigned(sk_insert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_insert'); + Result := sk_insert(sk,data,where); +end; + +function Load_sk_delete(st:POPENSSL_STACK; loc:longint): pointer; cdecl; +begin + sk_delete := LoadLibCryptoFunction('sk_delete'); + if not assigned(sk_delete) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_delete'); + Result := sk_delete(st,loc); +end; + +function Load_sk_delete_ptr(st:POPENSSL_STACK; p:pointer): pointer; cdecl; +begin + sk_delete_ptr := LoadLibCryptoFunction('sk_delete_ptr'); + if not assigned(sk_delete_ptr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_delete_ptr'); + Result := sk_delete_ptr(st,p); +end; + +function Load_sk_find(st:POPENSSL_STACK; data:pointer): longint; cdecl; +begin + sk_find := LoadLibCryptoFunction('sk_find'); + if not assigned(sk_find) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_find'); + Result := sk_find(st,data); +end; + +function Load_sk_find_ex(st:POPENSSL_STACK; data:pointer): longint; cdecl; +begin + sk_find_ex := LoadLibCryptoFunction('sk_find_ex'); + if not assigned(sk_find_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_find_ex'); + Result := sk_find_ex(st,data); +end; + +function Load_sk_push(st:POPENSSL_STACK; data:pointer): longint; cdecl; +begin + sk_push := LoadLibCryptoFunction('sk_push'); + if not assigned(sk_push) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_push'); + Result := sk_push(st,data); +end; + +function Load_sk_unshift(st:POPENSSL_STACK; data:pointer): longint; cdecl; +begin + sk_unshift := LoadLibCryptoFunction('sk_unshift'); + if not assigned(sk_unshift) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_unshift'); + Result := sk_unshift(st,data); +end; + +function Load_sk_shift(st:POPENSSL_STACK): pointer; cdecl; +begin + sk_shift := LoadLibCryptoFunction('sk_shift'); + if not assigned(sk_shift) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_shift'); + Result := sk_shift(st); +end; + +function Load_sk_pop(st:POPENSSL_STACK): pointer; cdecl; +begin + sk_pop := LoadLibCryptoFunction('sk_pop'); + if not assigned(sk_pop) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_pop'); + Result := sk_pop(st); +end; + +procedure Load_sk_zero(st:POPENSSL_STACK); cdecl; +begin + sk_zero := LoadLibCryptoFunction('sk_zero'); + if not assigned(sk_zero) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_zero'); + sk_zero(st); +end; + +function Load_sk_set_cmp_func(sk:POPENSSL_STACK; cmp:TOPENSSL_sk_compfunc): TOPENSSL_sk_compfunc; cdecl; +begin + sk_set_cmp_func := LoadLibCryptoFunction('sk_set_cmp_func'); + if not assigned(sk_set_cmp_func) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_set_cmp_func'); + Result := sk_set_cmp_func(sk,cmp); +end; + +function Load_sk_dup(st:POPENSSL_STACK): POPENSSL_STACK; cdecl; +begin + sk_dup := LoadLibCryptoFunction('sk_dup'); + if not assigned(sk_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_dup'); + Result := sk_dup(st); +end; + +procedure Load_sk_sort(st:POPENSSL_STACK); cdecl; +begin + sk_sort := LoadLibCryptoFunction('sk_sort'); + if not assigned(sk_sort) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_sort'); + sk_sort(st); +end; + +function Load_sk_is_sorted(st:POPENSSL_STACK): longint; cdecl; +begin + sk_is_sorted := LoadLibCryptoFunction('sk_is_sorted'); + if not assigned(sk_is_sorted) then + EOpenSSLAPIFunctionNotPresent.RaiseException('sk_is_sorted'); + Result := sk_is_sorted(st); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + +procedure UnLoad; +begin + OPENSSL_sk_num := Load_OPENSSL_sk_num; + OPENSSL_sk_value := Load_OPENSSL_sk_value; + OPENSSL_sk_set := Load_OPENSSL_sk_set; + OPENSSL_sk_new := Load_OPENSSL_sk_new; + OPENSSL_sk_new_null := Load_OPENSSL_sk_new_null; + OPENSSL_sk_new_reserve := Load_OPENSSL_sk_new_reserve; + OPENSSL_sk_reserve := Load_OPENSSL_sk_reserve; + OPENSSL_sk_free := Load_OPENSSL_sk_free; + OPENSSL_sk_pop_free := Load_OPENSSL_sk_pop_free; + OPENSSL_sk_deep_copy := Load_OPENSSL_sk_deep_copy; + OPENSSL_sk_insert := Load_OPENSSL_sk_insert; + OPENSSL_sk_delete := Load_OPENSSL_sk_delete; + OPENSSL_sk_delete_ptr := Load_OPENSSL_sk_delete_ptr; + OPENSSL_sk_find := Load_OPENSSL_sk_find; + OPENSSL_sk_find_ex := Load_OPENSSL_sk_find_ex; + OPENSSL_sk_push := Load_OPENSSL_sk_push; + OPENSSL_sk_unshift := Load_OPENSSL_sk_unshift; + OPENSSL_sk_shift := Load_OPENSSL_sk_shift; + OPENSSL_sk_pop := Load_OPENSSL_sk_pop; + OPENSSL_sk_zero := Load_OPENSSL_sk_zero; + OPENSSL_sk_set_cmp_func := Load_OPENSSL_sk_set_cmp_func; + OPENSSL_sk_dup := Load_OPENSSL_sk_dup; + OPENSSL_sk_sort := Load_OPENSSL_sk_sort; + OPENSSL_sk_is_sorted := Load_OPENSSL_sk_is_sorted; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + sk_num := Load_sk_num; + sk_value := Load_sk_value; + sk_set := Load_sk_set; + sk_new := Load_sk_new; + sk_new_null := Load_sk_new_null; + sk_new_reserve := Load_sk_new_reserve; + sk_reserve := Load_sk_reserve; + sk_free := Load_sk_free; + sk_pop_free := Load_sk_pop_free; + sk_deep_copy := Load_sk_deep_copy; + sk_insert := Load_sk_insert; + sk_delete := Load_sk_delete; + sk_delete_ptr := Load_sk_delete_ptr; + sk_find := Load_sk_find; + sk_find_ex := Load_sk_find_ex; + sk_push := Load_sk_push; + sk_unshift := Load_sk_unshift; + sk_shift := Load_sk_shift; + sk_pop := Load_sk_pop; + sk_zero := Load_sk_zero; + sk_set_cmp_func := Load_sk_set_cmp_func; + sk_dup := Load_sk_dup; + sk_sort := Load_sk_sort; + sk_is_sorted := Load_sk_is_sorted; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_storeerr.pas b/src/opensslHdrs/IdOpenSSLHeaders_storeerr.pas new file mode 100644 index 0000000..d0d3dfd --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_storeerr.pas @@ -0,0 +1,166 @@ +(* This unit was generated from the source file storeerr.h2pas +It should not be modified directly. All changes should be made to storeerr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_storeerr; + + +interface + +// Headers for OpenSSL 1.1.1 +// storeerr.h + + +uses + IdSSLOpenSSLAPI; + +const + (* + * OSSL_STORE function codes. + *) + OSSL_STORE_F_FILE_CTRL = 129; + OSSL_STORE_F_FILE_FIND = 138; + OSSL_STORE_F_FILE_GET_PASS = 118; + OSSL_STORE_F_FILE_LOAD = 119; + OSSL_STORE_F_FILE_LOAD_TRY_DECODE = 124; + OSSL_STORE_F_FILE_NAME_TO_URI = 126; + OSSL_STORE_F_FILE_OPEN = 120; + OSSL_STORE_F_OSSL_STORE_ATTACH_PEM_BIO = 127; + OSSL_STORE_F_OSSL_STORE_EXPECT = 130; + OSSL_STORE_F_OSSL_STORE_FILE_ATTACH_PEM_BIO_INT = 128; + OSSL_STORE_F_OSSL_STORE_FIND = 131; + OSSL_STORE_F_OSSL_STORE_GET0_LOADER_INT = 100; + OSSL_STORE_F_OSSL_STORE_INFO_GET1_CERT = 101; + OSSL_STORE_F_OSSL_STORE_INFO_GET1_CRL = 102; + OSSL_STORE_F_OSSL_STORE_INFO_GET1_NAME = 103; + OSSL_STORE_F_OSSL_STORE_INFO_GET1_NAME_DESCRIPTION = 135; + OSSL_STORE_F_OSSL_STORE_INFO_GET1_PARAMS = 104; + OSSL_STORE_F_OSSL_STORE_INFO_GET1_PKEY = 105; + OSSL_STORE_F_OSSL_STORE_INFO_NEW_CERT = 106; + OSSL_STORE_F_OSSL_STORE_INFO_NEW_CRL = 107; + OSSL_STORE_F_OSSL_STORE_INFO_NEW_EMBEDDED = 123; + OSSL_STORE_F_OSSL_STORE_INFO_NEW_NAME = 109; + OSSL_STORE_F_OSSL_STORE_INFO_NEW_PARAMS = 110; + OSSL_STORE_F_OSSL_STORE_INFO_NEW_PKEY = 111; + OSSL_STORE_F_OSSL_STORE_INFO_SET0_NAME_DESCRIPTION = 134; + OSSL_STORE_F_OSSL_STORE_INIT_ONCE = 112; + OSSL_STORE_F_OSSL_STORE_LOADER_NEW = 113; + OSSL_STORE_F_OSSL_STORE_OPEN = 114; + OSSL_STORE_F_OSSL_STORE_OPEN_INT = 115; + OSSL_STORE_F_OSSL_STORE_REGISTER_LOADER_INT = 117; + OSSL_STORE_F_OSSL_STORE_SEARCH_BY_ALIAS = 132; + OSSL_STORE_F_OSSL_STORE_SEARCH_BY_ISSUER_SERIAL = 133; + OSSL_STORE_F_OSSL_STORE_SEARCH_BY_KEY_FINGERPRINT = 136; + OSSL_STORE_F_OSSL_STORE_SEARCH_BY_NAME = 137; + OSSL_STORE_F_OSSL_STORE_UNREGISTER_LOADER_INT = 116; + OSSL_STORE_F_TRY_DECODE_PARAMS = 121; + OSSL_STORE_F_TRY_DECODE_PKCS12 = 122; + OSSL_STORE_F_TRY_DECODE_PKCS8ENCRYPTED = 125; + + + (* + * OSSL_STORE reason codes. + *) + OSSL_STORE_R_AMBIGUOUS_CONTENT_TYPE = 107; + OSSL_STORE_R_BAD_PASSWORD_READ = 115; + OSSL_STORE_R_ERROR_VERIFYING_PKCS12_MAC = 113; + OSSL_STORE_R_FINGERPRINT_SIZE_DOES_NOT_MATCH_DIGEST = 121; + OSSL_STORE_R_INVALID_SCHEME = 106; + OSSL_STORE_R_IS_NOT_A = 112; + OSSL_STORE_R_LOADER_INCOMPLETE = 116; + OSSL_STORE_R_LOADING_STARTED = 117; + OSSL_STORE_R_NOT_A_CERTIFICATE = 100; + OSSL_STORE_R_NOT_A_CRL = 101; + OSSL_STORE_R_NOT_A_KEY = 102; + OSSL_STORE_R_NOT_A_NAME = 103; + OSSL_STORE_R_NOT_PARAMETERS = 104; + OSSL_STORE_R_PASSPHRASE_CALLBACK_ERROR = 114; + OSSL_STORE_R_PATH_MUST_BE_ABSOLUTE = 108; + OSSL_STORE_R_SEARCH_ONLY_SUPPORTED_FOR_DIRECTORIES = 119; + OSSL_STORE_R_UI_PROCESS_INTERRUPTED_OR_CANCELLED = 109; + OSSL_STORE_R_UNREGISTERED_SCHEME = 105; + OSSL_STORE_R_UNSUPPORTED_CONTENT_TYPE = 110; + OSSL_STORE_R_UNSUPPORTED_OPERATION = 118; + OSSL_STORE_R_UNSUPPORTED_SEARCH_TYPE = 120; + OSSL_STORE_R_URI_AUTHORITY_UNSUPPORTED = 111; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_OSSL_STORE_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_OSSL_STORE_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_OSSL_STORE_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_OSSL_STORE_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_OSSL_STORE_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_OSSL_STORE_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_OSSL_STORE_strings := LoadLibCryptoFunction('ERR_load_OSSL_STORE_strings'); + if not assigned(ERR_load_OSSL_STORE_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_OSSL_STORE_strings'); + Result := ERR_load_OSSL_STORE_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_OSSL_STORE_strings := Load_ERR_load_OSSL_STORE_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_tls1.pas b/src/opensslHdrs/IdOpenSSLHeaders_tls1.pas new file mode 100644 index 0000000..bd0d509 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_tls1.pas @@ -0,0 +1,1330 @@ +(* This unit was generated from the source file tls1.h2pas +It should not be modified directly. All changes should be made to tls1.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_tls1; + + + + +interface + +// Headers for OpenSSL 1.1.1 +// tls1.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ; + +const + (* Default security level if not overridden at config time *) + OPENSSL_TLS_SECURITY_LEVEL = 1; + + TLS1_VERSION = $0301; + TLS1_1_VERSION = $0302; + TLS1_2_VERSION = $0303; + TLS1_3_VERSION = $0304; + TLS_MAX_VERSION = TLS1_3_VERSION; + + (* Special value for method supporting multiple versions *) + TLS_ANY_VERSION = $10000; + + TLS1_VERSION_MAJOR = $03; + TLS1_VERSION_MINOR = $01; + + TLS1_1_VERSION_MAJOR = $03; + TLS1_1_VERSION_MINOR = $02; + + TLS1_2_VERSION_MAJOR = $03; + TLS1_2_VERSION_MINOR = $03; + + +//# define TLS1_get_version(s) \ +// ((SSL_version(s) >> 8) == TLS1_VERSION_MAJOR ? SSL_version(s) : 0) +// +//# define TLS1_get_client_version(s) \ +// ((SSL_client_version(s) >> 8) == TLS1_VERSION_MAJOR ? SSL_client_version(s) : 0) + + TLS1_AD_DECRYPTION_FAILED = 21; + TLS1_AD_RECORD_OVERFLOW = 22; + TLS1_AD_UNKNOWN_CA = 48; (* fatal *) + TLS1_AD_ACCESS_DENIED = 49; (* fatal *) + TLS1_AD_DECODE_ERROR = 50; (* fatal *) + TLS1_AD_DECRYPT_ERROR = 51; + TLS1_AD_EXPORT_RESTRICTION = 60; (* fatal *) + TLS1_AD_PROTOCOL_VERSION = 70; (* fatal *) + TLS1_AD_INSUFFICIENT_SECURITY = 71; (* fatal *) + TLS1_AD_INTERNAL_ERROR = 80; (* fatal *) + TLS1_AD_INAPPROPRIATE_FALLBACK = 86; (* fatal *) + TLS1_AD_USER_CANCELLED = 90; + TLS1_AD_NO_RENEGOTIATION = 100; + (* TLSv1.3 alerts *) + TLS13_AD_MISSING_EXTENSION = 109; (* fatal *) + TLS13_AD_CERTIFICATE_REQUIRED = 116; (* fatal *) + (* codes 110-114 are from RFC3546 *) + TLS1_AD_UNSUPPORTED_EXTENSION = 110; + TLS1_AD_CERTIFICATE_UNOBTAINABLE = 111; + TLS1_AD_UNRECOGNIZED_NAME = 112; + TLS1_AD_BAD_CERTIFICATE_STATUS_RESPONSE = 113; + TLS1_AD_BAD_CERTIFICATE_HASH_VALUE = 114; + TLS1_AD_UNKNOWN_PSK_IDENTITY = 115; (* fatal *) + TLS1_AD_NO_APPLICATION_PROTOCOL = 120; (* fatal *) + + (* ExtensionType values from RFC3546 / RFC4366 / RFC6066 *) + TLSEXT_TYPE_server_name = 0; + TLSEXT_TYPE_max_fragment_length = 1; + TLSEXT_TYPE_client_certificate_url = 2; + TLSEXT_TYPE_trusted_ca_keys = 3; + TLSEXT_TYPE_truncated_hmac = 4; + TLSEXT_TYPE_status_request = 5; + (* ExtensionType values from RFC4681 *) + TLSEXT_TYPE_user_mapping = 6; + (* ExtensionType values from RFC5878 *) + TLSEXT_TYPE_client_authz = 7; + TLSEXT_TYPE_server_authz = 8; + (* ExtensionType values from RFC6091 *) + TLSEXT_TYPE_cert_type = 9; + + (* ExtensionType values from RFC4492 *) + (* + * Prior to TLSv1.3 the supported_groups extension was known as + * elliptic_curves + *) + TLSEXT_TYPE_supported_groups = 10; + TLSEXT_TYPE_elliptic_curves = TLSEXT_TYPE_supported_groups; + TLSEXT_TYPE_ec_poTOpenSSL_C_INT_formats = 11; + + (* ExtensionType value from RFC5054 *) + TLSEXT_TYPE_srp = 12; + (* ExtensionType values from RFC5246 *) + TLSEXT_TYPE_signature_algorithms = 13; + + (* ExtensionType value from RFC5764 *) + TLSEXT_TYPE_use_srtp = 14; + + (* ExtensionType value from RFC5620 *) + TLSEXT_TYPE_heartbeat = 15; + + (* ExtensionType value from RFC7301 *) + TLSEXT_TYPE_application_layer_protocol_negotiation = 16; + + (* + * Extension type for Certificate Transparency + * https://tools.ietf.org/html/rfc6962#section-3.3.1 + *) + TLSEXT_TYPE_signed_certificate_timestamp = 18; + + (* + * ExtensionType value for TLS padding extension. + * http://tools.ietf.org/html/draft-agl-tls-padding + *) + TLSEXT_TYPE_padding = 21; + + (* ExtensionType value from RFC7366 *) + TLSEXT_TYPE_encrypt_then_mac = 22; + + (* ExtensionType value from RFC7627 *) + TLSEXT_TYPE_extended_master_secret = 23; + + (* ExtensionType value from RFC4507 *) + TLSEXT_TYPE_session_ticket = 35; + + (* As defined for TLS1.3 *) + TLSEXT_TYPE_psk = 41; + TLSEXT_TYPE_early_data = 42; + TLSEXT_TYPE_supported_versions = 43; + TLSEXT_TYPE_cookie = 44; + TLSEXT_TYPE_psk_kex_modes = 45; + TLSEXT_TYPE_certificate_authorities = 47; + TLSEXT_TYPE_post_handshake_auth = 49; + TLSEXT_TYPE_signature_algorithms_cert = 50; + TLSEXT_TYPE_key_share = 51; + + (* Temporary extension type *) + TLSEXT_TYPE_renegotiate = $ff01; + + (* This is not an IANA defined extension number *) + TLSEXT_TYPE_next_proto_neg = 13172; + + (* NameType value from RFC3546 *) + TLSEXT_NAMETYPE_host_name = 0; + (* status request value from RFC3546 *) + TLSEXT_STATUSTYPE_ocsp = 1; + + (* ECPoTOpenSSL_C_INTFormat values from RFC4492 *) + TLSEXT_ECPOTOpenSSL_C_INTFORMAT_first = 0; + TLSEXT_ECPOTOpenSSL_C_INTFORMAT_uncompressed = 0; + TLSEXT_ECPOTOpenSSL_C_INTFORMAT_ansiX962_compressed_prime = 1; + TLSEXT_ECPOTOpenSSL_C_INTFORMAT_ansiX962_compressed_PAnsiChar2 = 2; + TLSEXT_ECPOTOpenSSL_C_INTFORMAT_last = 2; + + (* Signature and hash algorithms from RFC5246 *) + TLSEXT_signature_anonymous = 0; + TLSEXT_signature_rsa = 1; + TLSEXT_signature_dsa = 2; + TLSEXT_signature_ecdsa = 3; + TLSEXT_signature_gostr34102001 = 237; + TLSEXT_signature_gostr34102012_256 = 238; + TLSEXT_signature_gostr34102012_512 = 239; + + (* Total number of different signature algorithms *) + TLSEXT_signature_num = 7; + + TLSEXT_hash_none = 0; + TLSEXT_hash_md5 = 1; + TLSEXT_hash_sha1 = 2; + TLSEXT_hash_sha224 = 3; + TLSEXT_hash_sha256 = 4; + TLSEXT_hash_sha384 = 5; + TLSEXT_hash_sha512 = 6; + TLSEXT_hash_gostr3411 = 237; + TLSEXT_hash_gostr34112012_256 = 238; + TLSEXT_hash_gostr34112012_512 = 239; + + (* Total number of different digest algorithms *) + TLSEXT_hash_num = 10; + + (* Flag set for unrecognised algorithms *) + TLSEXT_nid_unknown = $1000000; + + (* ECC curves *) + TLSEXT_curve_P_256 = 23; + TLSEXT_curve_P_384 = 24; + + (* OpenSSL value to disable maximum fragment length extension *) + TLSEXT_max_fragment_length_DISABLED = 0; + (* Allowed values for max fragment length extension *) + TLSEXT_max_fragment_length_512 = 1; + TLSEXT_max_fragment_length_1024 = 2; + TLSEXT_max_fragment_length_2048 = 3; + TLSEXT_max_fragment_length_4096 = 4; + + TLSEXT_MAXLEN_host_name = 255; + + SSL_TLSEXT_ERR_OK = 0; + SSL_TLSEXT_ERR_ALERT_WARNING = 1; + SSL_TLSEXT_ERR_ALERT_FATAL = 2; + SSL_TLSEXT_ERR_NOACK = 3; + + SSL_DTLSEXT_HB_ENABLED = $01; + SSL_DTLSEXT_HB_DONT_SEND_REQUESTS = $02; + SSL_DTLSEXT_HB_DONT_RECV_REQUESTS = $04; + + (* PSK ciphersuites from 4279 *) + TLS1_CK_PSK_WITH_RC4_128_SHA = $0300008A; + TLS1_CK_PSK_WITH_3DES_EDE_CBC_SHA = $0300008B; + TLS1_CK_PSK_WITH_AES_128_CBC_SHA = $0300008C; + TLS1_CK_PSK_WITH_AES_256_CBC_SHA = $0300008D; + TLS1_CK_DHE_PSK_WITH_RC4_128_SHA = $0300008E; + TLS1_CK_DHE_PSK_WITH_3DES_EDE_CBC_SHA = $0300008F; + TLS1_CK_DHE_PSK_WITH_AES_128_CBC_SHA = $03000090; + TLS1_CK_DHE_PSK_WITH_AES_256_CBC_SHA = $03000091; + TLS1_CK_RSA_PSK_WITH_RC4_128_SHA = $03000092; + TLS1_CK_RSA_PSK_WITH_3DES_EDE_CBC_SHA = $03000093; + TLS1_CK_RSA_PSK_WITH_AES_128_CBC_SHA = $03000094; + TLS1_CK_RSA_PSK_WITH_AES_256_CBC_SHA = $03000095; + + (* PSK ciphersuites from 5487 *) + TLS1_CK_PSK_WITH_AES_128_GCM_SHA256 = $030000A8; + TLS1_CK_PSK_WITH_AES_256_GCM_SHA384 = $030000A9; + TLS1_CK_DHE_PSK_WITH_AES_128_GCM_SHA256 = $030000AA; + TLS1_CK_DHE_PSK_WITH_AES_256_GCM_SHA384 = $030000AB; + TLS1_CK_RSA_PSK_WITH_AES_128_GCM_SHA256 = $030000AC; + TLS1_CK_RSA_PSK_WITH_AES_256_GCM_SHA384 = $030000AD; + TLS1_CK_PSK_WITH_AES_128_CBC_SHA256 = $030000AE; + TLS1_CK_PSK_WITH_AES_256_CBC_SHA384 = $030000AF; + TLS1_CK_PSK_WITH_NULL_SHA256 = $030000B0; + TLS1_CK_PSK_WITH_NULL_SHA384 = $030000B1; + TLS1_CK_DHE_PSK_WITH_AES_128_CBC_SHA256 = $030000B2; + TLS1_CK_DHE_PSK_WITH_AES_256_CBC_SHA384 = $030000B3; + TLS1_CK_DHE_PSK_WITH_NULL_SHA256 = $030000B4; + TLS1_CK_DHE_PSK_WITH_NULL_SHA384 = $030000B5; + TLS1_CK_RSA_PSK_WITH_AES_128_CBC_SHA256 = $030000B6; + TLS1_CK_RSA_PSK_WITH_AES_256_CBC_SHA384 = $030000B7; + TLS1_CK_RSA_PSK_WITH_NULL_SHA256 = $030000B8; + TLS1_CK_RSA_PSK_WITH_NULL_SHA384 = $030000B9; + + (* NULL PSK ciphersuites from RFC4785 *) + TLS1_CK_PSK_WITH_NULL_SHA = $0300002C; + TLS1_CK_DHE_PSK_WITH_NULL_SHA = $0300002D; + TLS1_CK_RSA_PSK_WITH_NULL_SHA = $0300002E; + + (* AES ciphersuites from RFC3268 *) + TLS1_CK_RSA_WITH_AES_128_SHA = $0300002F; + TLS1_CK_DH_DSS_WITH_AES_128_SHA = $03000030; + TLS1_CK_DH_RSA_WITH_AES_128_SHA = $03000031; + TLS1_CK_DHE_DSS_WITH_AES_128_SHA = $03000032; + TLS1_CK_DHE_RSA_WITH_AES_128_SHA = $03000033; + TLS1_CK_ADH_WITH_AES_128_SHA = $03000034; + TLS1_CK_RSA_WITH_AES_256_SHA = $03000035; + TLS1_CK_DH_DSS_WITH_AES_256_SHA = $03000036; + TLS1_CK_DH_RSA_WITH_AES_256_SHA = $03000037; + TLS1_CK_DHE_DSS_WITH_AES_256_SHA = $03000038; + TLS1_CK_DHE_RSA_WITH_AES_256_SHA = $03000039; + TLS1_CK_ADH_WITH_AES_256_SHA = $0300003A; + + (* TLS v1.2 ciphersuites *) + TLS1_CK_RSA_WITH_NULL_SHA256 = $0300003B; + TLS1_CK_RSA_WITH_AES_128_SHA256 = $0300003C; + TLS1_CK_RSA_WITH_AES_256_SHA256 = $0300003D; + TLS1_CK_DH_DSS_WITH_AES_128_SHA256 = $0300003E; + TLS1_CK_DH_RSA_WITH_AES_128_SHA256 = $0300003F; + TLS1_CK_DHE_DSS_WITH_AES_128_SHA256 = $03000040; + + (* Camellia ciphersuites from RFC4132 *) + TLS1_CK_RSA_WITH_CAMELLIA_128_CBC_SHA = $03000041; + TLS1_CK_DH_DSS_WITH_CAMELLIA_128_CBC_SHA = $03000042; + TLS1_CK_DH_RSA_WITH_CAMELLIA_128_CBC_SHA = $03000043; + TLS1_CK_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA = $03000044; + TLS1_CK_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA = $03000045; + TLS1_CK_ADH_WITH_CAMELLIA_128_CBC_SHA = $03000046; + + (* TLS v1.2 ciphersuites *) + TLS1_CK_DHE_RSA_WITH_AES_128_SHA256 = $03000067; + TLS1_CK_DH_DSS_WITH_AES_256_SHA256 = $03000068; + TLS1_CK_DH_RSA_WITH_AES_256_SHA256 = $03000069; + TLS1_CK_DHE_DSS_WITH_AES_256_SHA256 = $0300006A; + TLS1_CK_DHE_RSA_WITH_AES_256_SHA256 = $0300006B; + TLS1_CK_ADH_WITH_AES_128_SHA256 = $0300006C; + TLS1_CK_ADH_WITH_AES_256_SHA256 = $0300006D; + + (* Camellia ciphersuites from RFC4132 *) + TLS1_CK_RSA_WITH_CAMELLIA_256_CBC_SHA = $03000084; + TLS1_CK_DH_DSS_WITH_CAMELLIA_256_CBC_SHA = $03000085; + TLS1_CK_DH_RSA_WITH_CAMELLIA_256_CBC_SHA = $03000086; + TLS1_CK_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA = $03000087; + TLS1_CK_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA = $03000088; + TLS1_CK_ADH_WITH_CAMELLIA_256_CBC_SHA = $03000089; + + (* SEED ciphersuites from RFC4162 *) + TLS1_CK_RSA_WITH_SEED_SHA = $03000096; + TLS1_CK_DH_DSS_WITH_SEED_SHA = $03000097; + TLS1_CK_DH_RSA_WITH_SEED_SHA = $03000098; + TLS1_CK_DHE_DSS_WITH_SEED_SHA = $03000099; + TLS1_CK_DHE_RSA_WITH_SEED_SHA = $0300009A; + TLS1_CK_ADH_WITH_SEED_SHA = $0300009B; + + (* TLS v1.2 GCM ciphersuites from RFC5288 *) + TLS1_CK_RSA_WITH_AES_128_GCM_SHA256 = $0300009C; + TLS1_CK_RSA_WITH_AES_256_GCM_SHA384 = $0300009D; + TLS1_CK_DHE_RSA_WITH_AES_128_GCM_SHA256 = $0300009E; + TLS1_CK_DHE_RSA_WITH_AES_256_GCM_SHA384 = $0300009F; + TLS1_CK_DH_RSA_WITH_AES_128_GCM_SHA256 = $030000A0; + TLS1_CK_DH_RSA_WITH_AES_256_GCM_SHA384 = $030000A1; + TLS1_CK_DHE_DSS_WITH_AES_128_GCM_SHA256 = $030000A2; + TLS1_CK_DHE_DSS_WITH_AES_256_GCM_SHA384 = $030000A3; + TLS1_CK_DH_DSS_WITH_AES_128_GCM_SHA256 = $030000A4; + TLS1_CK_DH_DSS_WITH_AES_256_GCM_SHA384 = $030000A5; + TLS1_CK_ADH_WITH_AES_128_GCM_SHA256 = $030000A6; + TLS1_CK_ADH_WITH_AES_256_GCM_SHA384 = $030000A7; + + (* CCM ciphersuites from RFC6655 *) + TLS1_CK_RSA_WITH_AES_128_CCM = $0300C09C; + TLS1_CK_RSA_WITH_AES_256_CCM = $0300C09D; + TLS1_CK_DHE_RSA_WITH_AES_128_CCM = $0300C09E; + TLS1_CK_DHE_RSA_WITH_AES_256_CCM = $0300C09F; + TLS1_CK_RSA_WITH_AES_128_CCM_8 = $0300C0A0; + TLS1_CK_RSA_WITH_AES_256_CCM_8 = $0300C0A1; + TLS1_CK_DHE_RSA_WITH_AES_128_CCM_8 = $0300C0A2; + TLS1_CK_DHE_RSA_WITH_AES_256_CCM_8 = $0300C0A3; + TLS1_CK_PSK_WITH_AES_128_CCM = $0300C0A4; + TLS1_CK_PSK_WITH_AES_256_CCM = $0300C0A5; + TLS1_CK_DHE_PSK_WITH_AES_128_CCM = $0300C0A6; + TLS1_CK_DHE_PSK_WITH_AES_256_CCM = $0300C0A7; + TLS1_CK_PSK_WITH_AES_128_CCM_8 = $0300C0A8; + TLS1_CK_PSK_WITH_AES_256_CCM_8 = $0300C0A9; + TLS1_CK_DHE_PSK_WITH_AES_128_CCM_8 = $0300C0AA; + TLS1_CK_DHE_PSK_WITH_AES_256_CCM_8 = $0300C0AB; + + (* CCM ciphersuites from RFC7251 *) + TLS1_CK_ECDHE_ECDSA_WITH_AES_128_CCM = $0300C0AC; + TLS1_CK_ECDHE_ECDSA_WITH_AES_256_CCM = $0300C0AD; + TLS1_CK_ECDHE_ECDSA_WITH_AES_128_CCM_8 = $0300C0AE; + TLS1_CK_ECDHE_ECDSA_WITH_AES_256_CCM_8 = $0300C0AF; + + (* TLS 1.2 Camellia SHA-256 ciphersuites from RFC5932 *) + TLS1_CK_RSA_WITH_CAMELLIA_128_CBC_SHA256 = $030000BA; + TLS1_CK_DH_DSS_WITH_CAMELLIA_128_CBC_SHA256 = $030000BB; + TLS1_CK_DH_RSA_WITH_CAMELLIA_128_CBC_SHA256 = $030000BC; + TLS1_CK_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA256 = $030000BD; + TLS1_CK_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA256 = $030000BE; + TLS1_CK_ADH_WITH_CAMELLIA_128_CBC_SHA256 = $030000BF; + + TLS1_CK_RSA_WITH_CAMELLIA_256_CBC_SHA256 = $030000C0; + TLS1_CK_DH_DSS_WITH_CAMELLIA_256_CBC_SHA256 = $030000C1; + TLS1_CK_DH_RSA_WITH_CAMELLIA_256_CBC_SHA256 = $030000C2; + TLS1_CK_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA256 = $030000C3; + TLS1_CK_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA256 = $030000C4; + TLS1_CK_ADH_WITH_CAMELLIA_256_CBC_SHA256 = $030000C5; + + (* ECC ciphersuites from RFC4492 *) + TLS1_CK_ECDH_ECDSA_WITH_NULL_SHA = $0300C001; + TLS1_CK_ECDH_ECDSA_WITH_RC4_128_SHA = $0300C002; + TLS1_CK_ECDH_ECDSA_WITH_DES_192_CBC3_SHA = $0300C003; + TLS1_CK_ECDH_ECDSA_WITH_AES_128_CBC_SHA = $0300C004; + TLS1_CK_ECDH_ECDSA_WITH_AES_256_CBC_SHA = $0300C005; + + TLS1_CK_ECDHE_ECDSA_WITH_NULL_SHA = $0300C006; + TLS1_CK_ECDHE_ECDSA_WITH_RC4_128_SHA = $0300C007; + TLS1_CK_ECDHE_ECDSA_WITH_DES_192_CBC3_SHA = $0300C008; + TLS1_CK_ECDHE_ECDSA_WITH_AES_128_CBC_SHA = $0300C009; + TLS1_CK_ECDHE_ECDSA_WITH_AES_256_CBC_SHA = $0300C00A; + + TLS1_CK_ECDH_RSA_WITH_NULL_SHA = $0300C00B; + TLS1_CK_ECDH_RSA_WITH_RC4_128_SHA = $0300C00C; + TLS1_CK_ECDH_RSA_WITH_DES_192_CBC3_SHA = $0300C00D; + TLS1_CK_ECDH_RSA_WITH_AES_128_CBC_SHA = $0300C00E; + TLS1_CK_ECDH_RSA_WITH_AES_256_CBC_SHA = $0300C00F; + + TLS1_CK_ECDHE_RSA_WITH_NULL_SHA = $0300C010; + TLS1_CK_ECDHE_RSA_WITH_RC4_128_SHA = $0300C011; + TLS1_CK_ECDHE_RSA_WITH_DES_192_CBC3_SHA = $0300C012; + TLS1_CK_ECDHE_RSA_WITH_AES_128_CBC_SHA = $0300C013; + TLS1_CK_ECDHE_RSA_WITH_AES_256_CBC_SHA = $0300C014; + + TLS1_CK_ECDH_anon_WITH_NULL_SHA = $0300C015; + TLS1_CK_ECDH_anon_WITH_RC4_128_SHA = $0300C016; + TLS1_CK_ECDH_anon_WITH_DES_192_CBC3_SHA = $0300C017; + TLS1_CK_ECDH_anon_WITH_AES_128_CBC_SHA = $0300C018; + TLS1_CK_ECDH_anon_WITH_AES_256_CBC_SHA = $0300C019; + + (* SRP ciphersuites from RFC 5054 *) + TLS1_CK_SRP_SHA_WITH_3DES_EDE_CBC_SHA = $0300C01A; + TLS1_CK_SRP_SHA_RSA_WITH_3DES_EDE_CBC_SHA = $0300C01B; + TLS1_CK_SRP_SHA_DSS_WITH_3DES_EDE_CBC_SHA = $0300C01C; + TLS1_CK_SRP_SHA_WITH_AES_128_CBC_SHA = $0300C01D; + TLS1_CK_SRP_SHA_RSA_WITH_AES_128_CBC_SHA = $0300C01E; + TLS1_CK_SRP_SHA_DSS_WITH_AES_128_CBC_SHA = $0300C01F; + TLS1_CK_SRP_SHA_WITH_AES_256_CBC_SHA = $0300C020; + TLS1_CK_SRP_SHA_RSA_WITH_AES_256_CBC_SHA = $0300C021; + TLS1_CK_SRP_SHA_DSS_WITH_AES_256_CBC_SHA = $0300C022; + + (* ECDH HMAC based ciphersuites from RFC5289 *) + TLS1_CK_ECDHE_ECDSA_WITH_AES_128_SHA256 = $0300C023; + TLS1_CK_ECDHE_ECDSA_WITH_AES_256_SHA384 = $0300C024; + TLS1_CK_ECDH_ECDSA_WITH_AES_128_SHA256 = $0300C025; + TLS1_CK_ECDH_ECDSA_WITH_AES_256_SHA384 = $0300C026; + TLS1_CK_ECDHE_RSA_WITH_AES_128_SHA256 = $0300C027; + TLS1_CK_ECDHE_RSA_WITH_AES_256_SHA384 = $0300C028; + TLS1_CK_ECDH_RSA_WITH_AES_128_SHA256 = $0300C029; + TLS1_CK_ECDH_RSA_WITH_AES_256_SHA384 = $0300C02A; + + (* ECDH GCM based ciphersuites from RFC5289 *) + TLS1_CK_ECDHE_ECDSA_WITH_AES_128_GCM_SHA256 = $0300C02B; + TLS1_CK_ECDHE_ECDSA_WITH_AES_256_GCM_SHA384 = $0300C02C; + TLS1_CK_ECDH_ECDSA_WITH_AES_128_GCM_SHA256 = $0300C02D; + TLS1_CK_ECDH_ECDSA_WITH_AES_256_GCM_SHA384 = $0300C02E; + TLS1_CK_ECDHE_RSA_WITH_AES_128_GCM_SHA256 = $0300C02F; + TLS1_CK_ECDHE_RSA_WITH_AES_256_GCM_SHA384 = $0300C030; + TLS1_CK_ECDH_RSA_WITH_AES_128_GCM_SHA256 = $0300C031; + TLS1_CK_ECDH_RSA_WITH_AES_256_GCM_SHA384 = $0300C032; + + (* ECDHE PSK ciphersuites from RFC5489 *) + TLS1_CK_ECDHE_PSK_WITH_RC4_128_SHA = $0300C033; + TLS1_CK_ECDHE_PSK_WITH_3DES_EDE_CBC_SHA = $0300C034; + TLS1_CK_ECDHE_PSK_WITH_AES_128_CBC_SHA = $0300C035; + TLS1_CK_ECDHE_PSK_WITH_AES_256_CBC_SHA = $0300C036; + TLS1_CK_ECDHE_PSK_WITH_AES_128_CBC_SHA256 = $0300C037; + TLS1_CK_ECDHE_PSK_WITH_AES_256_CBC_SHA384 = $0300C038; + TLS1_CK_ECDHE_PSK_WITH_NULL_SHA = $0300C039; + + TLS1_CK_ECDHE_PSK_WITH_NULL_SHA256 = $0300C03A; + TLS1_CK_ECDHE_PSK_WITH_NULL_SHA384 = $0300C03B; + + (* Camellia-CBC ciphersuites from RFC6367 *) + TLS1_CK_ECDHE_ECDSA_WITH_CAMELLIA_128_CBC_SHA256 = $0300C072; + TLS1_CK_ECDHE_ECDSA_WITH_CAMELLIA_256_CBC_SHA384 = $0300C073; + TLS1_CK_ECDH_ECDSA_WITH_CAMELLIA_128_CBC_SHA256 = $0300C074; + TLS1_CK_ECDH_ECDSA_WITH_CAMELLIA_256_CBC_SHA384 = $0300C075; + TLS1_CK_ECDHE_RSA_WITH_CAMELLIA_128_CBC_SHA256 = $0300C076; + TLS1_CK_ECDHE_RSA_WITH_CAMELLIA_256_CBC_SHA384 = $0300C077; + TLS1_CK_ECDH_RSA_WITH_CAMELLIA_128_CBC_SHA256 = $0300C078; + TLS1_CK_ECDH_RSA_WITH_CAMELLIA_256_CBC_SHA384 = $0300C079; + + TLS1_CK_PSK_WITH_CAMELLIA_128_CBC_SHA256 = $0300C094; + TLS1_CK_PSK_WITH_CAMELLIA_256_CBC_SHA384 = $0300C095; + TLS1_CK_DHE_PSK_WITH_CAMELLIA_128_CBC_SHA256 = $0300C096; + TLS1_CK_DHE_PSK_WITH_CAMELLIA_256_CBC_SHA384 = $0300C097; + TLS1_CK_RSA_PSK_WITH_CAMELLIA_128_CBC_SHA256 = $0300C098; + TLS1_CK_RSA_PSK_WITH_CAMELLIA_256_CBC_SHA384 = $0300C099; + TLS1_CK_ECDHE_PSK_WITH_CAMELLIA_128_CBC_SHA256 = $0300C09A; + TLS1_CK_ECDHE_PSK_WITH_CAMELLIA_256_CBC_SHA384 = $0300C09B; + + (* draft-ietf-tls-chacha20-poly1305-03 *) + TLS1_CK_ECDHE_RSA_WITH_CHACHA20_POLY1305 = $0300CCA8; + TLS1_CK_ECDHE_ECDSA_WITH_CHACHA20_POLY1305 = $0300CCA9; + TLS1_CK_DHE_RSA_WITH_CHACHA20_POLY1305 = $0300CCAA; + TLS1_CK_PSK_WITH_CHACHA20_POLY1305 = $0300CCAB; + TLS1_CK_ECDHE_PSK_WITH_CHACHA20_POLY1305 = $0300CCAC; + TLS1_CK_DHE_PSK_WITH_CHACHA20_POLY1305 = $0300CCAD; + TLS1_CK_RSA_PSK_WITH_CHACHA20_POLY1305 = $0300CCAE; + + (* TLS v1.3 ciphersuites *) + TLS1_3_CK_AES_128_GCM_SHA256 = $03001301; + TLS1_3_CK_AES_256_GCM_SHA384 = $03001302; + TLS1_3_CK_CHACHA20_POLY1305_SHA256 = $03001303; + TLS1_3_CK_AES_128_CCM_SHA256 = $03001304; + TLS1_3_CK_AES_128_CCM_8_SHA256 = $03001305; + + (* Aria ciphersuites from RFC6209 *) + TLS1_CK_RSA_WITH_ARIA_128_GCM_SHA256 = $0300C050; + TLS1_CK_RSA_WITH_ARIA_256_GCM_SHA384 = $0300C051; + TLS1_CK_DHE_RSA_WITH_ARIA_128_GCM_SHA256 = $0300C052; + TLS1_CK_DHE_RSA_WITH_ARIA_256_GCM_SHA384 = $0300C053; + TLS1_CK_DH_RSA_WITH_ARIA_128_GCM_SHA256 = $0300C054; + TLS1_CK_DH_RSA_WITH_ARIA_256_GCM_SHA384 = $0300C055; + TLS1_CK_DHE_DSS_WITH_ARIA_128_GCM_SHA256 = $0300C056; + TLS1_CK_DHE_DSS_WITH_ARIA_256_GCM_SHA384 = $0300C057; + TLS1_CK_DH_DSS_WITH_ARIA_128_GCM_SHA256 = $0300C058; + TLS1_CK_DH_DSS_WITH_ARIA_256_GCM_SHA384 = $0300C059; + TLS1_CK_DH_anon_WITH_ARIA_128_GCM_SHA256 = $0300C05A; + TLS1_CK_DH_anon_WITH_ARIA_256_GCM_SHA384 = $0300C05B; + TLS1_CK_ECDHE_ECDSA_WITH_ARIA_128_GCM_SHA256 = $0300C05C; + TLS1_CK_ECDHE_ECDSA_WITH_ARIA_256_GCM_SHA384 = $0300C05D; + TLS1_CK_ECDH_ECDSA_WITH_ARIA_128_GCM_SHA256 = $0300C05E; + TLS1_CK_ECDH_ECDSA_WITH_ARIA_256_GCM_SHA384 = $0300C05F; + TLS1_CK_ECDHE_RSA_WITH_ARIA_128_GCM_SHA256 = $0300C060; + TLS1_CK_ECDHE_RSA_WITH_ARIA_256_GCM_SHA384 = $0300C061; + TLS1_CK_ECDH_RSA_WITH_ARIA_128_GCM_SHA256 = $0300C062; + TLS1_CK_ECDH_RSA_WITH_ARIA_256_GCM_SHA384 = $0300C063; + TLS1_CK_PSK_WITH_ARIA_128_GCM_SHA256 = $0300C06A; + TLS1_CK_PSK_WITH_ARIA_256_GCM_SHA384 = $0300C06B; + TLS1_CK_DHE_PSK_WITH_ARIA_128_GCM_SHA256 = $0300C06C; + TLS1_CK_DHE_PSK_WITH_ARIA_256_GCM_SHA384 = $0300C06D; + TLS1_CK_RSA_PSK_WITH_ARIA_128_GCM_SHA256 = $0300C06E; + TLS1_CK_RSA_PSK_WITH_ARIA_256_GCM_SHA384 = $0300C06F; + + (* a bundle of RFC standard cipher names, generated from ssl3_ciphers[] *) + TLS1_RFC_RSA_WITH_AES_128_SHA = AnsiString('TLS_RSA_WITH_AES_128_CBC_SHA'); + TLS1_RFC_DHE_DSS_WITH_AES_128_SHA = AnsiString('TLS_DHE_DSS_WITH_AES_128_CBC_SHA'); + TLS1_RFC_DHE_RSA_WITH_AES_128_SHA = AnsiString('TLS_DHE_RSA_WITH_AES_128_CBC_SHA'); + TLS1_RFC_ADH_WITH_AES_128_SHA = AnsiString('TLS_DH_anon_WITH_AES_128_CBC_SHA'); + TLS1_RFC_RSA_WITH_AES_256_SHA = AnsiString('TLS_RSA_WITH_AES_256_CBC_SHA'); + TLS1_RFC_DHE_DSS_WITH_AES_256_SHA = AnsiString('TLS_DHE_DSS_WITH_AES_256_CBC_SHA'); + TLS1_RFC_DHE_RSA_WITH_AES_256_SHA = AnsiString('TLS_DHE_RSA_WITH_AES_256_CBC_SHA'); + TLS1_RFC_ADH_WITH_AES_256_SHA = AnsiString('TLS_DH_anon_WITH_AES_256_CBC_SHA'); + TLS1_RFC_RSA_WITH_NULL_SHA256 = AnsiString('TLS_RSA_WITH_NULL_SHA256'); + TLS1_RFC_RSA_WITH_AES_128_SHA256 = AnsiString('TLS_RSA_WITH_AES_128_CBC_SHA256'); + TLS1_RFC_RSA_WITH_AES_256_SHA256 = AnsiString('TLS_RSA_WITH_AES_256_CBC_SHA256'); + TLS1_RFC_DHE_DSS_WITH_AES_128_SHA256 = AnsiString('TLS_DHE_DSS_WITH_AES_128_CBC_SHA256'); + TLS1_RFC_DHE_RSA_WITH_AES_128_SHA256 = AnsiString('TLS_DHE_RSA_WITH_AES_128_CBC_SHA256'); + TLS1_RFC_DHE_DSS_WITH_AES_256_SHA256 = AnsiString('TLS_DHE_DSS_WITH_AES_256_CBC_SHA256'); + TLS1_RFC_DHE_RSA_WITH_AES_256_SHA256 = AnsiString('TLS_DHE_RSA_WITH_AES_256_CBC_SHA256'); + TLS1_RFC_ADH_WITH_AES_128_SHA256 = AnsiString('TLS_DH_anon_WITH_AES_128_CBC_SHA256'); + TLS1_RFC_ADH_WITH_AES_256_SHA256 = AnsiString('TLS_DH_anon_WITH_AES_256_CBC_SHA256'); + TLS1_RFC_RSA_WITH_AES_128_GCM_SHA256 = AnsiString('TLS_RSA_WITH_AES_128_GCM_SHA256'); + TLS1_RFC_RSA_WITH_AES_256_GCM_SHA384 = AnsiString('TLS_RSA_WITH_AES_256_GCM_SHA384'); + TLS1_RFC_DHE_RSA_WITH_AES_128_GCM_SHA256 = AnsiString('TLS_DHE_RSA_WITH_AES_128_GCM_SHA256'); + TLS1_RFC_DHE_RSA_WITH_AES_256_GCM_SHA384 = AnsiString('TLS_DHE_RSA_WITH_AES_256_GCM_SHA384'); + TLS1_RFC_DHE_DSS_WITH_AES_128_GCM_SHA256 = AnsiString('TLS_DHE_DSS_WITH_AES_128_GCM_SHA256'); + TLS1_RFC_DHE_DSS_WITH_AES_256_GCM_SHA384 = AnsiString('TLS_DHE_DSS_WITH_AES_256_GCM_SHA384'); + TLS1_RFC_ADH_WITH_AES_128_GCM_SHA256 = AnsiString('TLS_DH_anon_WITH_AES_128_GCM_SHA256'); + TLS1_RFC_ADH_WITH_AES_256_GCM_SHA384 = AnsiString('TLS_DH_anon_WITH_AES_256_GCM_SHA384'); + TLS1_RFC_RSA_WITH_AES_128_CCM = AnsiString('TLS_RSA_WITH_AES_128_CCM'); + TLS1_RFC_RSA_WITH_AES_256_CCM = AnsiString('TLS_RSA_WITH_AES_256_CCM'); + TLS1_RFC_DHE_RSA_WITH_AES_128_CCM = AnsiString('TLS_DHE_RSA_WITH_AES_128_CCM'); + TLS1_RFC_DHE_RSA_WITH_AES_256_CCM = AnsiString('TLS_DHE_RSA_WITH_AES_256_CCM'); + TLS1_RFC_RSA_WITH_AES_128_CCM_8 = AnsiString('TLS_RSA_WITH_AES_128_CCM_8'); + TLS1_RFC_RSA_WITH_AES_256_CCM_8 = AnsiString('TLS_RSA_WITH_AES_256_CCM_8'); + TLS1_RFC_DHE_RSA_WITH_AES_128_CCM_8 = AnsiString('TLS_DHE_RSA_WITH_AES_128_CCM_8'); + TLS1_RFC_DHE_RSA_WITH_AES_256_CCM_8 = AnsiString('TLS_DHE_RSA_WITH_AES_256_CCM_8'); + TLS1_RFC_PSK_WITH_AES_128_CCM = AnsiString('TLS_PSK_WITH_AES_128_CCM'); + TLS1_RFC_PSK_WITH_AES_256_CCM = AnsiString('TLS_PSK_WITH_AES_256_CCM'); + TLS1_RFC_DHE_PSK_WITH_AES_128_CCM = AnsiString('TLS_DHE_PSK_WITH_AES_128_CCM'); + TLS1_RFC_DHE_PSK_WITH_AES_256_CCM = AnsiString('TLS_DHE_PSK_WITH_AES_256_CCM'); + TLS1_RFC_PSK_WITH_AES_128_CCM_8 = AnsiString('TLS_PSK_WITH_AES_128_CCM_8'); + TLS1_RFC_PSK_WITH_AES_256_CCM_8 = AnsiString('TLS_PSK_WITH_AES_256_CCM_8'); + TLS1_RFC_DHE_PSK_WITH_AES_128_CCM_8 = AnsiString('TLS_PSK_DHE_WITH_AES_128_CCM_8'); + TLS1_RFC_DHE_PSK_WITH_AES_256_CCM_8 = AnsiString('TLS_PSK_DHE_WITH_AES_256_CCM_8'); + TLS1_RFC_ECDHE_ECDSA_WITH_AES_128_CCM = AnsiString('TLS_ECDHE_ECDSA_WITH_AES_128_CCM'); + TLS1_RFC_ECDHE_ECDSA_WITH_AES_256_CCM = AnsiString('TLS_ECDHE_ECDSA_WITH_AES_256_CCM'); + TLS1_RFC_ECDHE_ECDSA_WITH_AES_128_CCM_8 = AnsiString('TLS_ECDHE_ECDSA_WITH_AES_128_CCM_8'); + TLS1_RFC_ECDHE_ECDSA_WITH_AES_256_CCM_8 = AnsiString('TLS_ECDHE_ECDSA_WITH_AES_256_CCM_8'); + TLS1_3_RFC_AES_128_GCM_SHA256 = AnsiString('TLS_AES_128_GCM_SHA256'); + TLS1_3_RFC_AES_256_GCM_SHA384 = AnsiString('TLS_AES_256_GCM_SHA384'); + TLS1_3_RFC_CHACHA20_POLY1305_SHA256 = AnsiString('TLS_CHACHA20_POLY1305_SHA256'); + TLS1_3_RFC_AES_128_CCM_SHA256 = AnsiString('TLS_AES_128_CCM_SHA256'); + TLS1_3_RFC_AES_128_CCM_8_SHA256 = AnsiString('TLS_AES_128_CCM_8_SHA256'); + TLS1_RFC_ECDHE_ECDSA_WITH_NULL_SHA = AnsiString('TLS_ECDHE_ECDSA_WITH_NULL_SHA'); + TLS1_RFC_ECDHE_ECDSA_WITH_DES_192_CBC3_SHA = AnsiString('TLS_ECDHE_ECDSA_WITH_3DES_EDE_CBC_SHA'); + TLS1_RFC_ECDHE_ECDSA_WITH_AES_128_CBC_SHA = AnsiString('TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA'); + TLS1_RFC_ECDHE_ECDSA_WITH_AES_256_CBC_SHA = AnsiString('TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA'); + TLS1_RFC_ECDHE_RSA_WITH_NULL_SHA = AnsiString('TLS_ECDHE_RSA_WITH_NULL_SHA'); + TLS1_RFC_ECDHE_RSA_WITH_DES_192_CBC3_SHA = AnsiString('TLS_ECDHE_RSA_WITH_3DES_EDE_CBC_SHA'); + TLS1_RFC_ECDHE_RSA_WITH_AES_128_CBC_SHA = AnsiString('TLS_ECDHE_RSA_WITH_AES_128_CBC_SHA'); + TLS1_RFC_ECDHE_RSA_WITH_AES_256_CBC_SHA = AnsiString('TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA'); + TLS1_RFC_ECDH_anon_WITH_NULL_SHA = AnsiString('TLS_ECDH_anon_WITH_NULL_SHA'); + TLS1_RFC_ECDH_anon_WITH_DES_192_CBC3_SHA = AnsiString('TLS_ECDH_anon_WITH_3DES_EDE_CBC_SHA'); + TLS1_RFC_ECDH_anon_WITH_AES_128_CBC_SHA = AnsiString('TLS_ECDH_anon_WITH_AES_128_CBC_SHA'); + TLS1_RFC_ECDH_anon_WITH_AES_256_CBC_SHA = AnsiString('TLS_ECDH_anon_WITH_AES_256_CBC_SHA'); + TLS1_RFC_ECDHE_ECDSA_WITH_AES_128_SHA256 = AnsiString('TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA256'); + TLS1_RFC_ECDHE_ECDSA_WITH_AES_256_SHA384 = AnsiString('TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA384'); + TLS1_RFC_ECDHE_RSA_WITH_AES_128_SHA256 = AnsiString('TLS_ECDHE_RSA_WITH_AES_128_CBC_SHA256'); + TLS1_RFC_ECDHE_RSA_WITH_AES_256_SHA384 = AnsiString('TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA384'); + TLS1_RFC_ECDHE_ECDSA_WITH_AES_128_GCM_SHA256 = AnsiString('TLS_ECDHE_ECDSA_WITH_AES_128_GCM_SHA256'); + TLS1_RFC_ECDHE_ECDSA_WITH_AES_256_GCM_SHA384 = AnsiString('TLS_ECDHE_ECDSA_WITH_AES_256_GCM_SHA384'); + TLS1_RFC_ECDHE_RSA_WITH_AES_128_GCM_SHA256 = AnsiString('TLS_ECDHE_RSA_WITH_AES_128_GCM_SHA256'); + TLS1_RFC_ECDHE_RSA_WITH_AES_256_GCM_SHA384 = AnsiString('TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384'); + TLS1_RFC_PSK_WITH_NULL_SHA = AnsiString('TLS_PSK_WITH_NULL_SHA'); + TLS1_RFC_DHE_PSK_WITH_NULL_SHA = AnsiString('TLS_DHE_PSK_WITH_NULL_SHA'); + TLS1_RFC_RSA_PSK_WITH_NULL_SHA = AnsiString('TLS_RSA_PSK_WITH_NULL_SHA'); + TLS1_RFC_PSK_WITH_3DES_EDE_CBC_SHA = AnsiString('TLS_PSK_WITH_3DES_EDE_CBC_SHA'); + TLS1_RFC_PSK_WITH_AES_128_CBC_SHA = AnsiString('TLS_PSK_WITH_AES_128_CBC_SHA'); + TLS1_RFC_PSK_WITH_AES_256_CBC_SHA = AnsiString('TLS_PSK_WITH_AES_256_CBC_SHA'); + TLS1_RFC_DHE_PSK_WITH_3DES_EDE_CBC_SHA = AnsiString('TLS_DHE_PSK_WITH_3DES_EDE_CBC_SHA'); + TLS1_RFC_DHE_PSK_WITH_AES_128_CBC_SHA = AnsiString('TLS_DHE_PSK_WITH_AES_128_CBC_SHA'); + TLS1_RFC_DHE_PSK_WITH_AES_256_CBC_SHA = AnsiString('TLS_DHE_PSK_WITH_AES_256_CBC_SHA'); + TLS1_RFC_RSA_PSK_WITH_3DES_EDE_CBC_SHA = AnsiString('TLS_RSA_PSK_WITH_3DES_EDE_CBC_SHA'); + TLS1_RFC_RSA_PSK_WITH_AES_128_CBC_SHA = AnsiString('TLS_RSA_PSK_WITH_AES_128_CBC_SHA'); + TLS1_RFC_RSA_PSK_WITH_AES_256_CBC_SHA = AnsiString('TLS_RSA_PSK_WITH_AES_256_CBC_SHA'); + TLS1_RFC_PSK_WITH_AES_128_GCM_SHA256 = AnsiString('TLS_PSK_WITH_AES_128_GCM_SHA256'); + TLS1_RFC_PSK_WITH_AES_256_GCM_SHA384 = AnsiString('TLS_PSK_WITH_AES_256_GCM_SHA384'); + TLS1_RFC_DHE_PSK_WITH_AES_128_GCM_SHA256 = AnsiString('TLS_DHE_PSK_WITH_AES_128_GCM_SHA256'); + TLS1_RFC_DHE_PSK_WITH_AES_256_GCM_SHA384 = AnsiString('TLS_DHE_PSK_WITH_AES_256_GCM_SHA384'); + TLS1_RFC_RSA_PSK_WITH_AES_128_GCM_SHA256 = AnsiString('TLS_RSA_PSK_WITH_AES_128_GCM_SHA256'); + TLS1_RFC_RSA_PSK_WITH_AES_256_GCM_SHA384 = AnsiString('TLS_RSA_PSK_WITH_AES_256_GCM_SHA384'); + TLS1_RFC_PSK_WITH_AES_128_CBC_SHA256 = AnsiString('TLS_PSK_WITH_AES_128_CBC_SHA256'); + TLS1_RFC_PSK_WITH_AES_256_CBC_SHA384 = AnsiString('TLS_PSK_WITH_AES_256_CBC_SHA384'); + TLS1_RFC_PSK_WITH_NULL_SHA256 = AnsiString('TLS_PSK_WITH_NULL_SHA256'); + TLS1_RFC_PSK_WITH_NULL_SHA384 = AnsiString('TLS_PSK_WITH_NULL_SHA384'); + TLS1_RFC_DHE_PSK_WITH_AES_128_CBC_SHA256 = AnsiString('TLS_DHE_PSK_WITH_AES_128_CBC_SHA256'); + TLS1_RFC_DHE_PSK_WITH_AES_256_CBC_SHA384 = AnsiString('TLS_DHE_PSK_WITH_AES_256_CBC_SHA384'); + TLS1_RFC_DHE_PSK_WITH_NULL_SHA256 = AnsiString('TLS_DHE_PSK_WITH_NULL_SHA256'); + TLS1_RFC_DHE_PSK_WITH_NULL_SHA384 = AnsiString('TLS_DHE_PSK_WITH_NULL_SHA384'); + TLS1_RFC_RSA_PSK_WITH_AES_128_CBC_SHA256 = AnsiString('TLS_RSA_PSK_WITH_AES_128_CBC_SHA256'); + TLS1_RFC_RSA_PSK_WITH_AES_256_CBC_SHA384 = AnsiString('TLS_RSA_PSK_WITH_AES_256_CBC_SHA384'); + TLS1_RFC_RSA_PSK_WITH_NULL_SHA256 = AnsiString('TLS_RSA_PSK_WITH_NULL_SHA256'); + TLS1_RFC_RSA_PSK_WITH_NULL_SHA384 = AnsiString('TLS_RSA_PSK_WITH_NULL_SHA384'); + TLS1_RFC_ECDHE_PSK_WITH_3DES_EDE_CBC_SHA = AnsiString('TLS_ECDHE_PSK_WITH_3DES_EDE_CBC_SHA'); + TLS1_RFC_ECDHE_PSK_WITH_AES_128_CBC_SHA = AnsiString('TLS_ECDHE_PSK_WITH_AES_128_CBC_SHA'); + TLS1_RFC_ECDHE_PSK_WITH_AES_256_CBC_SHA = AnsiString('TLS_ECDHE_PSK_WITH_AES_256_CBC_SHA'); + TLS1_RFC_ECDHE_PSK_WITH_AES_128_CBC_SHA256 = AnsiString('TLS_ECDHE_PSK_WITH_AES_128_CBC_SHA256'); + TLS1_RFC_ECDHE_PSK_WITH_AES_256_CBC_SHA384 = AnsiString('TLS_ECDHE_PSK_WITH_AES_256_CBC_SHA384'); + TLS1_RFC_ECDHE_PSK_WITH_NULL_SHA = AnsiString('TLS_ECDHE_PSK_WITH_NULL_SHA'); + TLS1_RFC_ECDHE_PSK_WITH_NULL_SHA256 = AnsiString('TLS_ECDHE_PSK_WITH_NULL_SHA256'); + TLS1_RFC_ECDHE_PSK_WITH_NULL_SHA384 = AnsiString('TLS_ECDHE_PSK_WITH_NULL_SHA384'); + TLS1_RFC_SRP_SHA_WITH_3DES_EDE_CBC_SHA = AnsiString('TLS_SRP_SHA_WITH_3DES_EDE_CBC_SHA'); + TLS1_RFC_SRP_SHA_RSA_WITH_3DES_EDE_CBC_SHA = AnsiString('TLS_SRP_SHA_RSA_WITH_3DES_EDE_CBC_SHA'); + TLS1_RFC_SRP_SHA_DSS_WITH_3DES_EDE_CBC_SHA = AnsiString('TLS_SRP_SHA_DSS_WITH_3DES_EDE_CBC_SHA'); + TLS1_RFC_SRP_SHA_WITH_AES_128_CBC_SHA = AnsiString('TLS_SRP_SHA_WITH_AES_128_CBC_SHA'); + TLS1_RFC_SRP_SHA_RSA_WITH_AES_128_CBC_SHA = AnsiString('TLS_SRP_SHA_RSA_WITH_AES_128_CBC_SHA'); + TLS1_RFC_SRP_SHA_DSS_WITH_AES_128_CBC_SHA = AnsiString('TLS_SRP_SHA_DSS_WITH_AES_128_CBC_SHA'); + TLS1_RFC_SRP_SHA_WITH_AES_256_CBC_SHA = AnsiString('TLS_SRP_SHA_WITH_AES_256_CBC_SHA'); + TLS1_RFC_SRP_SHA_RSA_WITH_AES_256_CBC_SHA = AnsiString('TLS_SRP_SHA_RSA_WITH_AES_256_CBC_SHA'); + TLS1_RFC_SRP_SHA_DSS_WITH_AES_256_CBC_SHA = AnsiString('TLS_SRP_SHA_DSS_WITH_AES_256_CBC_SHA'); + TLS1_RFC_DHE_RSA_WITH_CHACHA20_POLY1305 = AnsiString('TLS_DHE_RSA_WITH_CHACHA20_POLY1305_SHA256'); + TLS1_RFC_ECDHE_RSA_WITH_CHACHA20_POLY1305 = AnsiString('TLS_ECDHE_RSA_WITH_CHACHA20_POLY1305_SHA256'); + TLS1_RFC_ECDHE_ECDSA_WITH_CHACHA20_POLY1305 = AnsiString('TLS_ECDHE_ECDSA_WITH_CHACHA20_POLY1305_SHA256'); + TLS1_RFC_PSK_WITH_CHACHA20_POLY1305 = AnsiString('TLS_PSK_WITH_CHACHA20_POLY1305_SHA256'); + TLS1_RFC_ECDHE_PSK_WITH_CHACHA20_POLY1305 = AnsiString('TLS_ECDHE_PSK_WITH_CHACHA20_POLY1305_SHA256'); + TLS1_RFC_DHE_PSK_WITH_CHACHA20_POLY1305 = AnsiString('TLS_DHE_PSK_WITH_CHACHA20_POLY1305_SHA256'); + TLS1_RFC_RSA_PSK_WITH_CHACHA20_POLY1305 = AnsiString('TLS_RSA_PSK_WITH_CHACHA20_POLY1305_SHA256'); + TLS1_RFC_RSA_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('TLS_RSA_WITH_CAMELLIA_128_CBC_SHA256'); + TLS1_RFC_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('TLS_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA256'); + TLS1_RFC_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('TLS_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA256'); + TLS1_RFC_ADH_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('TLS_DH_anon_WITH_CAMELLIA_128_CBC_SHA256'); + TLS1_RFC_RSA_WITH_CAMELLIA_256_CBC_SHA256 = AnsiString('TLS_RSA_WITH_CAMELLIA_256_CBC_SHA256'); + TLS1_RFC_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA256 = AnsiString('TLS_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA256'); + TLS1_RFC_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA256 = AnsiString('TLS_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA256'); + TLS1_RFC_ADH_WITH_CAMELLIA_256_CBC_SHA256 = AnsiString('TLS_DH_anon_WITH_CAMELLIA_256_CBC_SHA256'); + TLS1_RFC_RSA_WITH_CAMELLIA_256_CBC_SHA = AnsiString('TLS_RSA_WITH_CAMELLIA_256_CBC_SHA'); + TLS1_RFC_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA = AnsiString('TLS_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA'); + TLS1_RFC_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA = AnsiString('TLS_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA'); + TLS1_RFC_ADH_WITH_CAMELLIA_256_CBC_SHA = AnsiString('TLS_DH_anon_WITH_CAMELLIA_256_CBC_SHA'); + TLS1_RFC_RSA_WITH_CAMELLIA_128_CBC_SHA = AnsiString('TLS_RSA_WITH_CAMELLIA_128_CBC_SHA'); + TLS1_RFC_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA = AnsiString('TLS_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA'); + TLS1_RFC_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA = AnsiString('TLS_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA'); + TLS1_RFC_ADH_WITH_CAMELLIA_128_CBC_SHA = AnsiString('TLS_DH_anon_WITH_CAMELLIA_128_CBC_SHA'); + TLS1_RFC_ECDHE_ECDSA_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('TLS_ECDHE_ECDSA_WITH_CAMELLIA_128_CBC_SHA256'); + TLS1_RFC_ECDHE_ECDSA_WITH_CAMELLIA_256_CBC_SHA384 = AnsiString('TLS_ECDHE_ECDSA_WITH_CAMELLIA_256_CBC_SHA384'); + TLS1_RFC_ECDHE_RSA_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('TLS_ECDHE_RSA_WITH_CAMELLIA_128_CBC_SHA256'); + TLS1_RFC_ECDHE_RSA_WITH_CAMELLIA_256_CBC_SHA384 = AnsiString('TLS_ECDHE_RSA_WITH_CAMELLIA_256_CBC_SHA384'); + TLS1_RFC_PSK_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('TLS_PSK_WITH_CAMELLIA_128_CBC_SHA256'); + TLS1_RFC_PSK_WITH_CAMELLIA_256_CBC_SHA384 = AnsiString('TLS_PSK_WITH_CAMELLIA_256_CBC_SHA384'); + TLS1_RFC_DHE_PSK_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('TLS_DHE_PSK_WITH_CAMELLIA_128_CBC_SHA256'); + TLS1_RFC_DHE_PSK_WITH_CAMELLIA_256_CBC_SHA384 = AnsiString('TLS_DHE_PSK_WITH_CAMELLIA_256_CBC_SHA384'); + TLS1_RFC_RSA_PSK_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('TLS_RSA_PSK_WITH_CAMELLIA_128_CBC_SHA256'); + TLS1_RFC_RSA_PSK_WITH_CAMELLIA_256_CBC_SHA384 = AnsiString('TLS_RSA_PSK_WITH_CAMELLIA_256_CBC_SHA384'); + TLS1_RFC_ECDHE_PSK_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('TLS_ECDHE_PSK_WITH_CAMELLIA_128_CBC_SHA256'); + TLS1_RFC_ECDHE_PSK_WITH_CAMELLIA_256_CBC_SHA384 = AnsiString('TLS_ECDHE_PSK_WITH_CAMELLIA_256_CBC_SHA384'); + TLS1_RFC_RSA_WITH_SEED_SHA = AnsiString('TLS_RSA_WITH_SEED_CBC_SHA'); + TLS1_RFC_DHE_DSS_WITH_SEED_SHA = AnsiString('TLS_DHE_DSS_WITH_SEED_CBC_SHA'); + TLS1_RFC_DHE_RSA_WITH_SEED_SHA = AnsiString('TLS_DHE_RSA_WITH_SEED_CBC_SHA'); + TLS1_RFC_ADH_WITH_SEED_SHA = AnsiString('TLS_DH_anon_WITH_SEED_CBC_SHA'); + TLS1_RFC_ECDHE_PSK_WITH_RC4_128_SHA = AnsiString('TLS_ECDHE_PSK_WITH_RC4_128_SHA'); + TLS1_RFC_ECDH_anon_WITH_RC4_128_SHA = AnsiString('TLS_ECDH_anon_WITH_RC4_128_SHA'); + TLS1_RFC_ECDHE_ECDSA_WITH_RC4_128_SHA = AnsiString('TLS_ECDHE_ECDSA_WITH_RC4_128_SHA'); + TLS1_RFC_ECDHE_RSA_WITH_RC4_128_SHA = AnsiString('TLS_ECDHE_RSA_WITH_RC4_128_SHA'); + TLS1_RFC_PSK_WITH_RC4_128_SHA = AnsiString('TLS_PSK_WITH_RC4_128_SHA'); + TLS1_RFC_RSA_PSK_WITH_RC4_128_SHA = AnsiString('TLS_RSA_PSK_WITH_RC4_128_SHA'); + TLS1_RFC_DHE_PSK_WITH_RC4_128_SHA = AnsiString('TLS_DHE_PSK_WITH_RC4_128_SHA'); + TLS1_RFC_RSA_WITH_ARIA_128_GCM_SHA256 = AnsiString('TLS_RSA_WITH_ARIA_128_GCM_SHA256'); + TLS1_RFC_RSA_WITH_ARIA_256_GCM_SHA384 = AnsiString('TLS_RSA_WITH_ARIA_256_GCM_SHA384'); + TLS1_RFC_DHE_RSA_WITH_ARIA_128_GCM_SHA256 = AnsiString('TLS_DHE_RSA_WITH_ARIA_128_GCM_SHA256'); + TLS1_RFC_DHE_RSA_WITH_ARIA_256_GCM_SHA384 = AnsiString('TLS_DHE_RSA_WITH_ARIA_256_GCM_SHA384'); + TLS1_RFC_DH_RSA_WITH_ARIA_128_GCM_SHA256 = AnsiString('TLS_DH_RSA_WITH_ARIA_128_GCM_SHA256'); + TLS1_RFC_DH_RSA_WITH_ARIA_256_GCM_SHA384 = AnsiString('TLS_DH_RSA_WITH_ARIA_256_GCM_SHA384'); + TLS1_RFC_DHE_DSS_WITH_ARIA_128_GCM_SHA256 = AnsiString('TLS_DHE_DSS_WITH_ARIA_128_GCM_SHA256'); + TLS1_RFC_DHE_DSS_WITH_ARIA_256_GCM_SHA384 = AnsiString('TLS_DHE_DSS_WITH_ARIA_256_GCM_SHA384'); + TLS1_RFC_DH_DSS_WITH_ARIA_128_GCM_SHA256 = AnsiString('TLS_DH_DSS_WITH_ARIA_128_GCM_SHA256'); + TLS1_RFC_DH_DSS_WITH_ARIA_256_GCM_SHA384 = AnsiString('TLS_DH_DSS_WITH_ARIA_256_GCM_SHA384'); + TLS1_RFC_DH_anon_WITH_ARIA_128_GCM_SHA256 = AnsiString('TLS_DH_anon_WITH_ARIA_128_GCM_SHA256'); + TLS1_RFC_DH_anon_WITH_ARIA_256_GCM_SHA384 = AnsiString('TLS_DH_anon_WITH_ARIA_256_GCM_SHA384'); + TLS1_RFC_ECDHE_ECDSA_WITH_ARIA_128_GCM_SHA256 = AnsiString('TLS_ECDHE_ECDSA_WITH_ARIA_128_GCM_SHA256'); + TLS1_RFC_ECDHE_ECDSA_WITH_ARIA_256_GCM_SHA384 = AnsiString('TLS_ECDHE_ECDSA_WITH_ARIA_256_GCM_SHA384'); + TLS1_RFC_ECDH_ECDSA_WITH_ARIA_128_GCM_SHA256 = AnsiString('TLS_ECDH_ECDSA_WITH_ARIA_128_GCM_SHA256'); + TLS1_RFC_ECDH_ECDSA_WITH_ARIA_256_GCM_SHA384 = AnsiString('TLS_ECDH_ECDSA_WITH_ARIA_256_GCM_SHA384'); + TLS1_RFC_ECDHE_RSA_WITH_ARIA_128_GCM_SHA256 = AnsiString('TLS_ECDHE_RSA_WITH_ARIA_128_GCM_SHA256'); + TLS1_RFC_ECDHE_RSA_WITH_ARIA_256_GCM_SHA384 = AnsiString('TLS_ECDHE_RSA_WITH_ARIA_256_GCM_SHA384'); + TLS1_RFC_ECDH_RSA_WITH_ARIA_128_GCM_SHA256 = AnsiString('TLS_ECDH_RSA_WITH_ARIA_128_GCM_SHA256'); + TLS1_RFC_ECDH_RSA_WITH_ARIA_256_GCM_SHA384 = AnsiString('TLS_ECDH_RSA_WITH_ARIA_256_GCM_SHA384'); + TLS1_RFC_PSK_WITH_ARIA_128_GCM_SHA256 = AnsiString('TLS_PSK_WITH_ARIA_128_GCM_SHA256'); + TLS1_RFC_PSK_WITH_ARIA_256_GCM_SHA384 = AnsiString('TLS_PSK_WITH_ARIA_256_GCM_SHA384'); + TLS1_RFC_DHE_PSK_WITH_ARIA_128_GCM_SHA256 = AnsiString('TLS_DHE_PSK_WITH_ARIA_128_GCM_SHA256'); + TLS1_RFC_DHE_PSK_WITH_ARIA_256_GCM_SHA384 = AnsiString('TLS_DHE_PSK_WITH_ARIA_256_GCM_SHA384'); + TLS1_RFC_RSA_PSK_WITH_ARIA_128_GCM_SHA256 = AnsiString('TLS_RSA_PSK_WITH_ARIA_128_GCM_SHA256'); + TLS1_RFC_RSA_PSK_WITH_ARIA_256_GCM_SHA384 = AnsiString('TLS_RSA_PSK_WITH_ARIA_256_GCM_SHA384'); + + (* + * XXX Backward compatibility alert: Older versions of OpenSSL gave some DHE + * ciphers names with "EDH" instead of "DHE". Going forward, we should be + * using DHE everywhere, though we may indefinitely maTOpenSSL_C_INTain aliases for + * users or configurations that used "EDH" + *) + TLS1_TXT_DHE_DSS_WITH_RC4_128_SHA = AnsiString('DHE-DSS-RC4-SHA'); + + TLS1_TXT_PSK_WITH_NULL_SHA = AnsiString('PSK-NULL-SHA'); + TLS1_TXT_DHE_PSK_WITH_NULL_SHA = AnsiString('DHE-PSK-NULL-SHA'); + TLS1_TXT_RSA_PSK_WITH_NULL_SHA = AnsiString('RSA-PSK-NULL-SHA'); + + (* AES ciphersuites from RFC3268 *) + TLS1_TXT_RSA_WITH_AES_128_SHA = AnsiString('AES128-SHA'); + TLS1_TXT_DH_DSS_WITH_AES_128_SHA = AnsiString('DH-DSS-AES128-SHA'); + TLS1_TXT_DH_RSA_WITH_AES_128_SHA = AnsiString('DH-RSA-AES128-SHA'); + TLS1_TXT_DHE_DSS_WITH_AES_128_SHA = AnsiString('DHE-DSS-AES128-SHA'); + TLS1_TXT_DHE_RSA_WITH_AES_128_SHA = AnsiString('DHE-RSA-AES128-SHA'); + TLS1_TXT_ADH_WITH_AES_128_SHA = AnsiString('ADH-AES128-SHA'); + + TLS1_TXT_RSA_WITH_AES_256_SHA = AnsiString('AES256-SHA'); + TLS1_TXT_DH_DSS_WITH_AES_256_SHA = AnsiString('DH-DSS-AES256-SHA'); + TLS1_TXT_DH_RSA_WITH_AES_256_SHA = AnsiString('DH-RSA-AES256-SHA'); + TLS1_TXT_DHE_DSS_WITH_AES_256_SHA = AnsiString('DHE-DSS-AES256-SHA'); + TLS1_TXT_DHE_RSA_WITH_AES_256_SHA = AnsiString('DHE-RSA-AES256-SHA'); + TLS1_TXT_ADH_WITH_AES_256_SHA = AnsiString('ADH-AES256-SHA'); + + (* ECC ciphersuites from RFC4492 *) + TLS1_TXT_ECDH_ECDSA_WITH_NULL_SHA = AnsiString('ECDH-ECDSA-NULL-SHA'); + TLS1_TXT_ECDH_ECDSA_WITH_RC4_128_SHA = AnsiString('ECDH-ECDSA-RC4-SHA'); + TLS1_TXT_ECDH_ECDSA_WITH_DES_192_CBC3_SHA = AnsiString('ECDH-ECDSA-DES-CBC3-SHA'); + TLS1_TXT_ECDH_ECDSA_WITH_AES_128_CBC_SHA = AnsiString('ECDH-ECDSA-AES128-SHA'); + TLS1_TXT_ECDH_ECDSA_WITH_AES_256_CBC_SHA = AnsiString('ECDH-ECDSA-AES256-SHA'); + + TLS1_TXT_ECDHE_ECDSA_WITH_NULL_SHA = AnsiString('ECDHE-ECDSA-NULL-SHA'); + TLS1_TXT_ECDHE_ECDSA_WITH_RC4_128_SHA = AnsiString('ECDHE-ECDSA-RC4-SHA'); + TLS1_TXT_ECDHE_ECDSA_WITH_DES_192_CBC3_SHA = AnsiString('ECDHE-ECDSA-DES-CBC3-SHA'); + TLS1_TXT_ECDHE_ECDSA_WITH_AES_128_CBC_SHA = AnsiString('ECDHE-ECDSA-AES128-SHA'); + TLS1_TXT_ECDHE_ECDSA_WITH_AES_256_CBC_SHA = AnsiString('ECDHE-ECDSA-AES256-SHA'); + + TLS1_TXT_ECDH_RSA_WITH_NULL_SHA = AnsiString('ECDH-RSA-NULL-SHA'); + TLS1_TXT_ECDH_RSA_WITH_RC4_128_SHA = AnsiString('ECDH-RSA-RC4-SHA'); + TLS1_TXT_ECDH_RSA_WITH_DES_192_CBC3_SHA = AnsiString('ECDH-RSA-DES-CBC3-SHA'); + TLS1_TXT_ECDH_RSA_WITH_AES_128_CBC_SHA = AnsiString('ECDH-RSA-AES128-SHA'); + TLS1_TXT_ECDH_RSA_WITH_AES_256_CBC_SHA = AnsiString('ECDH-RSA-AES256-SHA'); + + TLS1_TXT_ECDHE_RSA_WITH_NULL_SHA = AnsiString('ECDHE-RSA-NULL-SHA'); + TLS1_TXT_ECDHE_RSA_WITH_RC4_128_SHA = AnsiString('ECDHE-RSA-RC4-SHA'); + TLS1_TXT_ECDHE_RSA_WITH_DES_192_CBC3_SHA = AnsiString('ECDHE-RSA-DES-CBC3-SHA'); + TLS1_TXT_ECDHE_RSA_WITH_AES_128_CBC_SHA = AnsiString('ECDHE-RSA-AES128-SHA'); + TLS1_TXT_ECDHE_RSA_WITH_AES_256_CBC_SHA = AnsiString('ECDHE-RSA-AES256-SHA'); + + TLS1_TXT_ECDH_anon_WITH_NULL_SHA = AnsiString('AECDH-NULL-SHA'); + TLS1_TXT_ECDH_anon_WITH_RC4_128_SHA = AnsiString('AECDH-RC4-SHA'); + TLS1_TXT_ECDH_anon_WITH_DES_192_CBC3_SHA = AnsiString('AECDH-DES-CBC3-SHA'); + TLS1_TXT_ECDH_anon_WITH_AES_128_CBC_SHA = AnsiString('AECDH-AES128-SHA'); + TLS1_TXT_ECDH_anon_WITH_AES_256_CBC_SHA = AnsiString('AECDH-AES256-SHA'); + + (* PSK ciphersuites from RFC 4279 *) + TLS1_TXT_PSK_WITH_RC4_128_SHA = AnsiString('PSK-RC4-SHA'); + TLS1_TXT_PSK_WITH_3DES_EDE_CBC_SHA = AnsiString('PSK-3DES-EDE-CBC-SHA'); + TLS1_TXT_PSK_WITH_AES_128_CBC_SHA = AnsiString('PSK-AES128-CBC-SHA'); + TLS1_TXT_PSK_WITH_AES_256_CBC_SHA = AnsiString('PSK-AES256-CBC-SHA'); + + TLS1_TXT_DHE_PSK_WITH_RC4_128_SHA = AnsiString('DHE-PSK-RC4-SHA'); + TLS1_TXT_DHE_PSK_WITH_3DES_EDE_CBC_SHA = AnsiString('DHE-PSK-3DES-EDE-CBC-SHA'); + TLS1_TXT_DHE_PSK_WITH_AES_128_CBC_SHA = AnsiString('DHE-PSK-AES128-CBC-SHA'); + TLS1_TXT_DHE_PSK_WITH_AES_256_CBC_SHA = AnsiString('DHE-PSK-AES256-CBC-SHA'); + TLS1_TXT_RSA_PSK_WITH_RC4_128_SHA = AnsiString('RSA-PSK-RC4-SHA'); + TLS1_TXT_RSA_PSK_WITH_3DES_EDE_CBC_SHA = AnsiString('RSA-PSK-3DES-EDE-CBC-SHA'); + TLS1_TXT_RSA_PSK_WITH_AES_128_CBC_SHA = AnsiString('RSA-PSK-AES128-CBC-SHA'); + TLS1_TXT_RSA_PSK_WITH_AES_256_CBC_SHA = AnsiString('RSA-PSK-AES256-CBC-SHA'); + + (* PSK ciphersuites from RFC 5487 *) + TLS1_TXT_PSK_WITH_AES_128_GCM_SHA256 = AnsiString('PSK-AES128-GCM-SHA256'); + TLS1_TXT_PSK_WITH_AES_256_GCM_SHA384 = AnsiString('PSK-AES256-GCM-SHA384'); + TLS1_TXT_DHE_PSK_WITH_AES_128_GCM_SHA256 = AnsiString('DHE-PSK-AES128-GCM-SHA256'); + TLS1_TXT_DHE_PSK_WITH_AES_256_GCM_SHA384 = AnsiString('DHE-PSK-AES256-GCM-SHA384'); + TLS1_TXT_RSA_PSK_WITH_AES_128_GCM_SHA256 = AnsiString('RSA-PSK-AES128-GCM-SHA256'); + TLS1_TXT_RSA_PSK_WITH_AES_256_GCM_SHA384 = AnsiString('RSA-PSK-AES256-GCM-SHA384'); + + TLS1_TXT_PSK_WITH_AES_128_CBC_SHA256 = AnsiString('PSK-AES128-CBC-SHA256'); + TLS1_TXT_PSK_WITH_AES_256_CBC_SHA384 = AnsiString('PSK-AES256-CBC-SHA384'); + TLS1_TXT_PSK_WITH_NULL_SHA256 = AnsiString('PSK-NULL-SHA256'); + TLS1_TXT_PSK_WITH_NULL_SHA384 = AnsiString('PSK-NULL-SHA384'); + + TLS1_TXT_DHE_PSK_WITH_AES_128_CBC_SHA256 = AnsiString('DHE-PSK-AES128-CBC-SHA256'); + TLS1_TXT_DHE_PSK_WITH_AES_256_CBC_SHA384 = AnsiString('DHE-PSK-AES256-CBC-SHA384'); + TLS1_TXT_DHE_PSK_WITH_NULL_SHA256 = AnsiString('DHE-PSK-NULL-SHA256'); + TLS1_TXT_DHE_PSK_WITH_NULL_SHA384 = AnsiString('DHE-PSK-NULL-SHA384'); + + TLS1_TXT_RSA_PSK_WITH_AES_128_CBC_SHA256 = AnsiString('RSA-PSK-AES128-CBC-SHA256'); + TLS1_TXT_RSA_PSK_WITH_AES_256_CBC_SHA384 = AnsiString('RSA-PSK-AES256-CBC-SHA384'); + TLS1_TXT_RSA_PSK_WITH_NULL_SHA256 = AnsiString('RSA-PSK-NULL-SHA256'); + TLS1_TXT_RSA_PSK_WITH_NULL_SHA384 = AnsiString('RSA-PSK-NULL-SHA384'); + + (* SRP ciphersuite from RFC 5054 *) + TLS1_TXT_SRP_SHA_WITH_3DES_EDE_CBC_SHA = AnsiString('SRP-3DES-EDE-CBC-SHA'); + TLS1_TXT_SRP_SHA_RSA_WITH_3DES_EDE_CBC_SHA = AnsiString('SRP-RSA-3DES-EDE-CBC-SHA'); + TLS1_TXT_SRP_SHA_DSS_WITH_3DES_EDE_CBC_SHA = AnsiString('SRP-DSS-3DES-EDE-CBC-SHA'); + TLS1_TXT_SRP_SHA_WITH_AES_128_CBC_SHA = AnsiString('SRP-AES-128-CBC-SHA'); + TLS1_TXT_SRP_SHA_RSA_WITH_AES_128_CBC_SHA = AnsiString('SRP-RSA-AES-128-CBC-SHA'); + TLS1_TXT_SRP_SHA_DSS_WITH_AES_128_CBC_SHA = AnsiString('SRP-DSS-AES-128-CBC-SHA'); + TLS1_TXT_SRP_SHA_WITH_AES_256_CBC_SHA = AnsiString('SRP-AES-256-CBC-SHA'); + TLS1_TXT_SRP_SHA_RSA_WITH_AES_256_CBC_SHA = AnsiString('SRP-RSA-AES-256-CBC-SHA'); + TLS1_TXT_SRP_SHA_DSS_WITH_AES_256_CBC_SHA = AnsiString('SRP-DSS-AES-256-CBC-SHA'); + + (* Camellia ciphersuites from RFC4132 *) + TLS1_TXT_RSA_WITH_CAMELLIA_128_CBC_SHA = AnsiString('CAMELLIA128-SHA'); + TLS1_TXT_DH_DSS_WITH_CAMELLIA_128_CBC_SHA = AnsiString('DH-DSS-CAMELLIA128-SHA'); + TLS1_TXT_DH_RSA_WITH_CAMELLIA_128_CBC_SHA = AnsiString('DH-RSA-CAMELLIA128-SHA'); + TLS1_TXT_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA = AnsiString('DHE-DSS-CAMELLIA128-SHA'); + TLS1_TXT_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA = AnsiString('DHE-RSA-CAMELLIA128-SHA'); + TLS1_TXT_ADH_WITH_CAMELLIA_128_CBC_SHA = AnsiString('ADH-CAMELLIA128-SHA'); + + TLS1_TXT_RSA_WITH_CAMELLIA_256_CBC_SHA = AnsiString('CAMELLIA256-SHA'); + TLS1_TXT_DH_DSS_WITH_CAMELLIA_256_CBC_SHA = AnsiString('DH-DSS-CAMELLIA256-SHA'); + TLS1_TXT_DH_RSA_WITH_CAMELLIA_256_CBC_SHA = AnsiString('DH-RSA-CAMELLIA256-SHA'); + TLS1_TXT_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA = AnsiString('DHE-DSS-CAMELLIA256-SHA'); + TLS1_TXT_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA = AnsiString('DHE-RSA-CAMELLIA256-SHA'); + TLS1_TXT_ADH_WITH_CAMELLIA_256_CBC_SHA = AnsiString('ADH-CAMELLIA256-SHA'); + + (* TLS 1.2 Camellia SHA-256 ciphersuites from RFC5932 *) + TLS1_TXT_RSA_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('CAMELLIA128-SHA256'); + TLS1_TXT_DH_DSS_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('DH-DSS-CAMELLIA128-SHA256'); + TLS1_TXT_DH_RSA_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('DH-RSA-CAMELLIA128-SHA256'); + TLS1_TXT_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('DHE-DSS-CAMELLIA128-SHA256'); + TLS1_TXT_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('DHE-RSA-CAMELLIA128-SHA256'); + TLS1_TXT_ADH_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('ADH-CAMELLIA128-SHA256'); + + TLS1_TXT_RSA_WITH_CAMELLIA_256_CBC_SHA256 = AnsiString('CAMELLIA256-SHA256'); + TLS1_TXT_DH_DSS_WITH_CAMELLIA_256_CBC_SHA256 = AnsiString('DH-DSS-CAMELLIA256-SHA256'); + TLS1_TXT_DH_RSA_WITH_CAMELLIA_256_CBC_SHA256 = AnsiString('DH-RSA-CAMELLIA256-SHA256'); + TLS1_TXT_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA256 = AnsiString('DHE-DSS-CAMELLIA256-SHA256'); + TLS1_TXT_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA256 = AnsiString('DHE-RSA-CAMELLIA256-SHA256'); + TLS1_TXT_ADH_WITH_CAMELLIA_256_CBC_SHA256 = AnsiString('ADH-CAMELLIA256-SHA256'); + + TLS1_TXT_PSK_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('PSK-CAMELLIA128-SHA256'); + TLS1_TXT_PSK_WITH_CAMELLIA_256_CBC_SHA384 = AnsiString('PSK-CAMELLIA256-SHA384'); + TLS1_TXT_DHE_PSK_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('DHE-PSK-CAMELLIA128-SHA256'); + TLS1_TXT_DHE_PSK_WITH_CAMELLIA_256_CBC_SHA384 = AnsiString('DHE-PSK-CAMELLIA256-SHA384'); + TLS1_TXT_RSA_PSK_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('RSA-PSK-CAMELLIA128-SHA256'); + TLS1_TXT_RSA_PSK_WITH_CAMELLIA_256_CBC_SHA384 = AnsiString('RSA-PSK-CAMELLIA256-SHA384'); + TLS1_TXT_ECDHE_PSK_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('ECDHE-PSK-CAMELLIA128-SHA256'); + TLS1_TXT_ECDHE_PSK_WITH_CAMELLIA_256_CBC_SHA384 = AnsiString('ECDHE-PSK-CAMELLIA256-SHA384'); + + (* SEED ciphersuites from RFC4162 *) + TLS1_TXT_RSA_WITH_SEED_SHA = AnsiString('SEED-SHA'); + TLS1_TXT_DH_DSS_WITH_SEED_SHA = AnsiString('DH-DSS-SEED-SHA'); + TLS1_TXT_DH_RSA_WITH_SEED_SHA = AnsiString('DH-RSA-SEED-SHA'); + TLS1_TXT_DHE_DSS_WITH_SEED_SHA = AnsiString('DHE-DSS-SEED-SHA'); + TLS1_TXT_DHE_RSA_WITH_SEED_SHA = AnsiString('DHE-RSA-SEED-SHA'); + TLS1_TXT_ADH_WITH_SEED_SHA = AnsiString('ADH-SEED-SHA'); + + (* TLS v1.2 ciphersuites *) + TLS1_TXT_RSA_WITH_NULL_SHA256 = AnsiString('NULL-SHA256'); + TLS1_TXT_RSA_WITH_AES_128_SHA256 = AnsiString('AES128-SHA256'); + TLS1_TXT_RSA_WITH_AES_256_SHA256 = AnsiString('AES256-SHA256'); + TLS1_TXT_DH_DSS_WITH_AES_128_SHA256 = AnsiString('DH-DSS-AES128-SHA256'); + TLS1_TXT_DH_RSA_WITH_AES_128_SHA256 = AnsiString('DH-RSA-AES128-SHA256'); + TLS1_TXT_DHE_DSS_WITH_AES_128_SHA256 = AnsiString('DHE-DSS-AES128-SHA256'); + TLS1_TXT_DHE_RSA_WITH_AES_128_SHA256 = AnsiString('DHE-RSA-AES128-SHA256'); + TLS1_TXT_DH_DSS_WITH_AES_256_SHA256 = AnsiString('DH-DSS-AES256-SHA256'); + TLS1_TXT_DH_RSA_WITH_AES_256_SHA256 = AnsiString('DH-RSA-AES256-SHA256'); + TLS1_TXT_DHE_DSS_WITH_AES_256_SHA256 = AnsiString('DHE-DSS-AES256-SHA256'); + TLS1_TXT_DHE_RSA_WITH_AES_256_SHA256 = AnsiString('DHE-RSA-AES256-SHA256'); + TLS1_TXT_ADH_WITH_AES_128_SHA256 = AnsiString('ADH-AES128-SHA256'); + TLS1_TXT_ADH_WITH_AES_256_SHA256 = AnsiString('ADH-AES256-SHA256'); + + (* TLS v1.2 GCM ciphersuites from RFC5288 *) + TLS1_TXT_RSA_WITH_AES_128_GCM_SHA256 = AnsiString('AES128-GCM-SHA256'); + TLS1_TXT_RSA_WITH_AES_256_GCM_SHA384 = AnsiString('AES256-GCM-SHA384'); + TLS1_TXT_DHE_RSA_WITH_AES_128_GCM_SHA256 = AnsiString('DHE-RSA-AES128-GCM-SHA256'); + TLS1_TXT_DHE_RSA_WITH_AES_256_GCM_SHA384 = AnsiString('DHE-RSA-AES256-GCM-SHA384'); + TLS1_TXT_DH_RSA_WITH_AES_128_GCM_SHA256 = AnsiString('DH-RSA-AES128-GCM-SHA256'); + TLS1_TXT_DH_RSA_WITH_AES_256_GCM_SHA384 = AnsiString('DH-RSA-AES256-GCM-SHA384'); + TLS1_TXT_DHE_DSS_WITH_AES_128_GCM_SHA256 = AnsiString('DHE-DSS-AES128-GCM-SHA256'); + TLS1_TXT_DHE_DSS_WITH_AES_256_GCM_SHA384 = AnsiString('DHE-DSS-AES256-GCM-SHA384'); + TLS1_TXT_DH_DSS_WITH_AES_128_GCM_SHA256 = AnsiString('DH-DSS-AES128-GCM-SHA256'); + TLS1_TXT_DH_DSS_WITH_AES_256_GCM_SHA384 = AnsiString('DH-DSS-AES256-GCM-SHA384'); + TLS1_TXT_ADH_WITH_AES_128_GCM_SHA256 = AnsiString('ADH-AES128-GCM-SHA256'); + TLS1_TXT_ADH_WITH_AES_256_GCM_SHA384 = AnsiString('ADH-AES256-GCM-SHA384'); + + (* CCM ciphersuites from RFC6655 *) + TLS1_TXT_RSA_WITH_AES_128_CCM = AnsiString('AES128-CCM'); + TLS1_TXT_RSA_WITH_AES_256_CCM = AnsiString('AES256-CCM'); + TLS1_TXT_DHE_RSA_WITH_AES_128_CCM = AnsiString('DHE-RSA-AES128-CCM'); + TLS1_TXT_DHE_RSA_WITH_AES_256_CCM = AnsiString('DHE-RSA-AES256-CCM'); + + TLS1_TXT_RSA_WITH_AES_128_CCM_8 = AnsiString('AES128-CCM8'); + TLS1_TXT_RSA_WITH_AES_256_CCM_8 = AnsiString('AES256-CCM8'); + TLS1_TXT_DHE_RSA_WITH_AES_128_CCM_8 = AnsiString('DHE-RSA-AES128-CCM8'); + TLS1_TXT_DHE_RSA_WITH_AES_256_CCM_8 = AnsiString('DHE-RSA-AES256-CCM8'); + + TLS1_TXT_PSK_WITH_AES_128_CCM = AnsiString('PSK-AES128-CCM'); + TLS1_TXT_PSK_WITH_AES_256_CCM = AnsiString('PSK-AES256-CCM'); + TLS1_TXT_DHE_PSK_WITH_AES_128_CCM = AnsiString('DHE-PSK-AES128-CCM'); + TLS1_TXT_DHE_PSK_WITH_AES_256_CCM = AnsiString('DHE-PSK-AES256-CCM'); + + TLS1_TXT_PSK_WITH_AES_128_CCM_8 = AnsiString('PSK-AES128-CCM8'); + TLS1_TXT_PSK_WITH_AES_256_CCM_8 = AnsiString('PSK-AES256-CCM8'); + TLS1_TXT_DHE_PSK_WITH_AES_128_CCM_8 = AnsiString('DHE-PSK-AES128-CCM8'); + TLS1_TXT_DHE_PSK_WITH_AES_256_CCM_8 = AnsiString('DHE-PSK-AES256-CCM8'); + + (* CCM ciphersuites from RFC7251 *) + TLS1_TXT_ECDHE_ECDSA_WITH_AES_128_CCM = AnsiString('ECDHE-ECDSA-AES128-CCM'); + TLS1_TXT_ECDHE_ECDSA_WITH_AES_256_CCM = AnsiString('ECDHE-ECDSA-AES256-CCM'); + TLS1_TXT_ECDHE_ECDSA_WITH_AES_128_CCM_8 = AnsiString('ECDHE-ECDSA-AES128-CCM8'); + TLS1_TXT_ECDHE_ECDSA_WITH_AES_256_CCM_8 = AnsiString('ECDHE-ECDSA-AES256-CCM8'); + + (* ECDH HMAC based ciphersuites from RFC5289 *) + TLS1_TXT_ECDHE_ECDSA_WITH_AES_128_SHA256 = AnsiString('ECDHE-ECDSA-AES128-SHA256'); + TLS1_TXT_ECDHE_ECDSA_WITH_AES_256_SHA384 = AnsiString('ECDHE-ECDSA-AES256-SHA384'); + TLS1_TXT_ECDH_ECDSA_WITH_AES_128_SHA256 = AnsiString('ECDH-ECDSA-AES128-SHA256'); + TLS1_TXT_ECDH_ECDSA_WITH_AES_256_SHA384 = AnsiString('ECDH-ECDSA-AES256-SHA384'); + TLS1_TXT_ECDHE_RSA_WITH_AES_128_SHA256 = AnsiString('ECDHE-RSA-AES128-SHA256'); + TLS1_TXT_ECDHE_RSA_WITH_AES_256_SHA384 = AnsiString('ECDHE-RSA-AES256-SHA384'); + TLS1_TXT_ECDH_RSA_WITH_AES_128_SHA256 = AnsiString('ECDH-RSA-AES128-SHA256'); + TLS1_TXT_ECDH_RSA_WITH_AES_256_SHA384 = AnsiString('ECDH-RSA-AES256-SHA384'); + + (* ECDH GCM based ciphersuites from RFC5289 *) + TLS1_TXT_ECDHE_ECDSA_WITH_AES_128_GCM_SHA256 = AnsiString('ECDHE-ECDSA-AES128-GCM-SHA256'); + TLS1_TXT_ECDHE_ECDSA_WITH_AES_256_GCM_SHA384 = AnsiString('ECDHE-ECDSA-AES256-GCM-SHA384'); + TLS1_TXT_ECDH_ECDSA_WITH_AES_128_GCM_SHA256 = AnsiString('ECDH-ECDSA-AES128-GCM-SHA256'); + TLS1_TXT_ECDH_ECDSA_WITH_AES_256_GCM_SHA384 = AnsiString('ECDH-ECDSA-AES256-GCM-SHA384'); + TLS1_TXT_ECDHE_RSA_WITH_AES_128_GCM_SHA256 = AnsiString('ECDHE-RSA-AES128-GCM-SHA256'); + TLS1_TXT_ECDHE_RSA_WITH_AES_256_GCM_SHA384 = AnsiString('ECDHE-RSA-AES256-GCM-SHA384'); + TLS1_TXT_ECDH_RSA_WITH_AES_128_GCM_SHA256 = AnsiString('ECDH-RSA-AES128-GCM-SHA256'); + TLS1_TXT_ECDH_RSA_WITH_AES_256_GCM_SHA384 = AnsiString('ECDH-RSA-AES256-GCM-SHA384'); + + (* TLS v1.2 PSK GCM ciphersuites from RFC5487 *) + //TLS1_TXT_PSK_WITH_AES_128_GCM_SHA256 = AnsiString('PSK-AES128-GCM-SHA256'); + //TLS1_TXT_PSK_WITH_AES_256_GCM_SHA384 = AnsiString('PSK-AES256-GCM-SHA384'); + + (* ECDHE PSK ciphersuites from RFC 5489 *) + TLS1_TXT_ECDHE_PSK_WITH_RC4_128_SHA = AnsiString('ECDHE-PSK-RC4-SHA'); + TLS1_TXT_ECDHE_PSK_WITH_3DES_EDE_CBC_SHA = AnsiString('ECDHE-PSK-3DES-EDE-CBC-SHA'); + TLS1_TXT_ECDHE_PSK_WITH_AES_128_CBC_SHA = AnsiString('ECDHE-PSK-AES128-CBC-SHA'); + TLS1_TXT_ECDHE_PSK_WITH_AES_256_CBC_SHA = AnsiString('ECDHE-PSK-AES256-CBC-SHA'); + + TLS1_TXT_ECDHE_PSK_WITH_AES_128_CBC_SHA256 = AnsiString('ECDHE-PSK-AES128-CBC-SHA256'); + TLS1_TXT_ECDHE_PSK_WITH_AES_256_CBC_SHA384 = AnsiString('ECDHE-PSK-AES256-CBC-SHA384'); + + TLS1_TXT_ECDHE_PSK_WITH_NULL_SHA = AnsiString('ECDHE-PSK-NULL-SHA'); + TLS1_TXT_ECDHE_PSK_WITH_NULL_SHA256 = AnsiString('ECDHE-PSK-NULL-SHA256'); + TLS1_TXT_ECDHE_PSK_WITH_NULL_SHA384 = AnsiString('ECDHE-PSK-NULL-SHA384'); + + (* Camellia-CBC ciphersuites from RFC6367 *) + TLS1_TXT_ECDHE_ECDSA_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('ECDHE-ECDSA-CAMELLIA128-SHA256'); + TLS1_TXT_ECDHE_ECDSA_WITH_CAMELLIA_256_CBC_SHA384 = AnsiString('ECDHE-ECDSA-CAMELLIA256-SHA384'); + TLS1_TXT_ECDH_ECDSA_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('ECDH-ECDSA-CAMELLIA128-SHA256'); + TLS1_TXT_ECDH_ECDSA_WITH_CAMELLIA_256_CBC_SHA384 = AnsiString('ECDH-ECDSA-CAMELLIA256-SHA384'); + TLS1_TXT_ECDHE_RSA_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('ECDHE-RSA-CAMELLIA128-SHA256'); + TLS1_TXT_ECDHE_RSA_WITH_CAMELLIA_256_CBC_SHA384 = AnsiString('ECDHE-RSA-CAMELLIA256-SHA384'); + TLS1_TXT_ECDH_RSA_WITH_CAMELLIA_128_CBC_SHA256 = AnsiString('ECDH-RSA-CAMELLIA128-SHA256'); + TLS1_TXT_ECDH_RSA_WITH_CAMELLIA_256_CBC_SHA384 = AnsiString('ECDH-RSA-CAMELLIA256-SHA384'); + + (* draft-ietf-tls-chacha20-poly1305-03 *) + TLS1_TXT_ECDHE_RSA_WITH_CHACHA20_POLY1305 = AnsiString('ECDHE-RSA-CHACHA20-POLY1305'); + TLS1_TXT_ECDHE_ECDSA_WITH_CHACHA20_POLY1305 = AnsiString('ECDHE-ECDSA-CHACHA20-POLY1305'); + TLS1_TXT_DHE_RSA_WITH_CHACHA20_POLY1305 = AnsiString('DHE-RSA-CHACHA20-POLY1305'); + TLS1_TXT_PSK_WITH_CHACHA20_POLY1305 = AnsiString('PSK-CHACHA20-POLY1305'); + TLS1_TXT_ECDHE_PSK_WITH_CHACHA20_POLY1305 = AnsiString('ECDHE-PSK-CHACHA20-POLY1305'); + TLS1_TXT_DHE_PSK_WITH_CHACHA20_POLY1305 = AnsiString('DHE-PSK-CHACHA20-POLY1305'); + TLS1_TXT_RSA_PSK_WITH_CHACHA20_POLY1305 = AnsiString('RSA-PSK-CHACHA20-POLY1305'); + + (* Aria ciphersuites from RFC6209 *) + TLS1_TXT_RSA_WITH_ARIA_128_GCM_SHA256 = AnsiString('ARIA128-GCM-SHA256'); + TLS1_TXT_RSA_WITH_ARIA_256_GCM_SHA384 = AnsiString('ARIA256-GCM-SHA384'); + TLS1_TXT_DHE_RSA_WITH_ARIA_128_GCM_SHA256 = AnsiString('DHE-RSA-ARIA128-GCM-SHA256'); + TLS1_TXT_DHE_RSA_WITH_ARIA_256_GCM_SHA384 = AnsiString('DHE-RSA-ARIA256-GCM-SHA384'); + TLS1_TXT_DH_RSA_WITH_ARIA_128_GCM_SHA256 = AnsiString('DH-RSA-ARIA128-GCM-SHA256'); + TLS1_TXT_DH_RSA_WITH_ARIA_256_GCM_SHA384 = AnsiString('DH-RSA-ARIA256-GCM-SHA384'); + TLS1_TXT_DHE_DSS_WITH_ARIA_128_GCM_SHA256 = AnsiString('DHE-DSS-ARIA128-GCM-SHA256'); + TLS1_TXT_DHE_DSS_WITH_ARIA_256_GCM_SHA384 = AnsiString('DHE-DSS-ARIA256-GCM-SHA384'); + TLS1_TXT_DH_DSS_WITH_ARIA_128_GCM_SHA256 = AnsiString('DH-DSS-ARIA128-GCM-SHA256'); + TLS1_TXT_DH_DSS_WITH_ARIA_256_GCM_SHA384 = AnsiString('DH-DSS-ARIA256-GCM-SHA384'); + TLS1_TXT_DH_anon_WITH_ARIA_128_GCM_SHA256 = AnsiString('ADH-ARIA128-GCM-SHA256'); + TLS1_TXT_DH_anon_WITH_ARIA_256_GCM_SHA384 = AnsiString('ADH-ARIA256-GCM-SHA384'); + TLS1_TXT_ECDHE_ECDSA_WITH_ARIA_128_GCM_SHA256 = AnsiString('ECDHE-ECDSA-ARIA128-GCM-SHA256'); + TLS1_TXT_ECDHE_ECDSA_WITH_ARIA_256_GCM_SHA384 = AnsiString('ECDHE-ECDSA-ARIA256-GCM-SHA384'); + TLS1_TXT_ECDH_ECDSA_WITH_ARIA_128_GCM_SHA256 = AnsiString('ECDH-ECDSA-ARIA128-GCM-SHA256'); + TLS1_TXT_ECDH_ECDSA_WITH_ARIA_256_GCM_SHA384 = AnsiString('ECDH-ECDSA-ARIA256-GCM-SHA384'); + TLS1_TXT_ECDHE_RSA_WITH_ARIA_128_GCM_SHA256 = AnsiString('ECDHE-ARIA128-GCM-SHA256'); + TLS1_TXT_ECDHE_RSA_WITH_ARIA_256_GCM_SHA384 = AnsiString('ECDHE-ARIA256-GCM-SHA384'); + TLS1_TXT_ECDH_RSA_WITH_ARIA_128_GCM_SHA256 = AnsiString('ECDH-ARIA128-GCM-SHA256'); + TLS1_TXT_ECDH_RSA_WITH_ARIA_256_GCM_SHA384 = AnsiString('ECDH-ARIA256-GCM-SHA384'); + TLS1_TXT_PSK_WITH_ARIA_128_GCM_SHA256 = AnsiString('PSK-ARIA128-GCM-SHA256'); + TLS1_TXT_PSK_WITH_ARIA_256_GCM_SHA384 = AnsiString('PSK-ARIA256-GCM-SHA384'); + TLS1_TXT_DHE_PSK_WITH_ARIA_128_GCM_SHA256 = AnsiString('DHE-PSK-ARIA128-GCM-SHA256'); + TLS1_TXT_DHE_PSK_WITH_ARIA_256_GCM_SHA384 = AnsiString('DHE-PSK-ARIA256-GCM-SHA384'); + TLS1_TXT_RSA_PSK_WITH_ARIA_128_GCM_SHA256 = AnsiString('RSA-PSK-ARIA128-GCM-SHA256'); + TLS1_TXT_RSA_PSK_WITH_ARIA_256_GCM_SHA384 = AnsiString('RSA-PSK-ARIA256-GCM-SHA384'); + + TLS_CT_RSA_SIGN = 1; + TLS_CT_DSS_SIGN = 2; + TLS_CT_RSA_FIXED_DH = 3; + TLS_CT_DSS_FIXED_DH = 4; + TLS_CT_ECDSA_SIGN = 64; + TLS_CT_RSA_FIXED_ECDH = 65; + TLS_CT_ECDSA_FIXED_ECDH = 66; + TLS_CT_GOST01_SIGN = 22; + TLS_CT_GOST12_SIGN = 238; + TLS_CT_GOST12_512_SIGN = 239; + + (* + * when correcting this number, correct also SSL3_CT_NUMBER in ssl3.h (see + * comment there) + *) + TLS_CT_NUMBER = 10; + + TLS1_FINISH_MAC_LENGTH = 12; + + TLS_MD_MAX_CONST_SIZE = 22; + TLS_MD_CLIENT_FINISH_CONST = AnsiString('client finished'); + TLS_MD_CLIENT_FINISH_CONST_SIZE = 15; + TLS_MD_SERVER_FINISH_CONST = AnsiString('server finished'); + TLS_MD_SERVER_FINISH_CONST_SIZE = 15; + TLS_MD_KEY_EXPANSION_CONST = AnsiString('key expansion'); + TLS_MD_KEY_EXPANSION_CONST_SIZE = 13; + TLS_MD_CLIENT_WRITE_KEY_CONST = AnsiString('client write key'); + TLS_MD_CLIENT_WRITE_KEY_CONST_SIZE = 16; + TLS_MD_SERVER_WRITE_KEY_CONST = AnsiString('server write key'); + TLS_MD_SERVER_WRITE_KEY_CONST_SIZE = 16; + TLS_MD_IV_BLOCK_CONST = AnsiString('IV block'); + TLS_MD_IV_BLOCK_CONST_SIZE = 8; + TLS_MD_MASTER_SECRET_CONST = AnsiString('master secret'); + TLS_MD_MASTER_SECRET_CONST_SIZE = 13; + TLS_MD_EXTENDED_MASTER_SECRET_CONST = AnsiString('extended master secret'); + TLS_MD_EXTENDED_MASTER_SECRET_CONST_SIZE = 22; + +// (* +// * client finished +// *) +// TLS_MD_CLIENT_FINISH_CONST = AnsiChar($63) + AnsiChar($6c) + AnsiChar($69) + AnsiChar($65) + AnsiChar($6e) + AnsiChar($74) + AnsiChar($20) + AnsiChar($66) + AnsiChar($69) + AnsiChar($6e) + AnsiChar($69) + AnsiChar($73) + AnsiChar($68) + AnsiChar($65) + AnsiChar($64); +// +// (* +// * server finished +// *) +// TLS_MD_SERVER_FINISH_CONST = AnsiChar($73) + AnsiChar($65) + AnsiChar($72) + AnsiChar($76) + AnsiChar($65) + AnsiChar($72) + AnsiChar($20) + AnsiChar($66) + AnsiChar($69) + AnsiChar($6e) + AnsiChar($69) + AnsiChar($73) + AnsiChar($68) + AnsiChar($65) + AnsiChar($64); +// +// (* +// * server write key +// *) +// TLS_MD_SERVER_WRITE_KEY_CONST = AnsiChar($73) + AnsiChar($65) + AnsiChar($72) + AnsiChar($76) + AnsiChar($65) + AnsiChar($72) + AnsiChar($20) + AnsiChar($77) + AnsiChar($72) + AnsiChar($69) + AnsiChar($74) + AnsiChar($65) + AnsiChar($20) + AnsiChar($6b) + AnsiChar($65) + AnsiChar($79); +// +// (* +// * key expansion +// *) +// TLS_MD_KEY_EXPANSION_CONST = AnsiChar($6b) + AnsiChar($65) + AnsiChar($79) + AnsiChar($20) + AnsiChar($65) + AnsiChar($78) + AnsiChar($70) + AnsiChar($61) + AnsiChar($6e) + AnsiChar($73) + AnsiChar($69) + AnsiChar($6f) + AnsiChar($6e); +// +// (* +// * client write key +// *) +// TLS_MD_CLIENT_WRITE_KEY_CONST = AnsiChar($63) + AnsiChar($6c) + AnsiChar($69) + AnsiChar($65) + AnsiChar($6e) + AnsiChar($74) + AnsiChar($20) + AnsiChar($77) + AnsiChar($72) + AnsiChar($69) + AnsiChar($74) + AnsiChar($65) + AnsiChar($20) + AnsiChar($6b) + AnsiChar($65) + AnsiChar($79); +// +// (* +// * server write key +// *) +// TLS_MD_SERVER_WRITE_KEY_CONST = AnsiChar($73) + AnsiChar($65) + AnsiChar($72) + AnsiChar($76) + AnsiChar($65) + AnsiChar($72) + AnsiChar($20) + AnsiChar($77) + AnsiChar($72) + AnsiChar($69) + AnsiChar($74) + AnsiChar($65) + AnsiChar($20) + AnsiChar($6b) + AnsiChar($65) + AnsiChar($79); +// +// (* +// * IV block +// *) +// TLS_MD_IV_BLOCK_CONST = AnsiChar($49) + AnsiChar($56) + AnsiChar($20) + AnsiChar($62) + AnsiChar($6c) + AnsiChar($6f) + AnsiChar($63) + AnsiChar($6b); +// +// (* +// * master secret +// *) +// TLS_MD_MASTER_SECRET_CONST = AnsiChar($6d) + AnsiChar($61) + AnsiChar($73) + AnsiChar($74) + AnsiChar($65) + AnsiChar($72) + AnsiChar($20) + AnsiChar($73) + AnsiChar($65) + AnsiChar($63) + AnsiChar($72) + AnsiChar($65) + AnsiChar($74); +// +// (* +// * extended master secret +// *) +// TLS_MD_EXTENDED_MASTER_SECRET_CONST = AnsiChar($65) + AnsiChar($78) + AnsiChar($74) + AnsiChar($65) + AnsiChar($6e) + AnsiChar($64) + AnsiChar($65) + AnsiChar($64) + AnsiChar($20) + AnsiChar($6d) + AnsiChar($61) + AnsiChar($73) + AnsiChar($74) + AnsiChar($65) + AnsiChar($72) + AnsiChar($20) + AnsiChar($73) + AnsiChar($65) + AnsiChar($63) + AnsiChar($72) + AnsiChar($65) + AnsiChar($74); + +type + (* TLS Session Ticket extension struct *) + tls_session_ticket_ext_st = record + length: TOpenSSL_C_USHORT; + data: Pointer; + end; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM SSL_CTX_set_tlsext_max_fragment_length} +{$EXTERNALSYM SSL_set_tlsext_max_fragment_length} +{$EXTERNALSYM SSL_get_servername} +{$EXTERNALSYM SSL_get_servername_type} +{$EXTERNALSYM SSL_export_keying_material} +{$EXTERNALSYM SSL_export_keying_material_early} +{$EXTERNALSYM SSL_get_peer_signature_type_nid} +{$EXTERNALSYM SSL_get_signature_type_nid} +{$EXTERNALSYM SSL_get_sigalgs} +{$EXTERNALSYM SSL_get_shared_sigalgs} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function SSL_CTX_set_tlsext_max_fragment_length(ctx: PSSL_CTx; mode: TOpenSSL_C_UINT8): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_set_tlsext_max_fragment_length(ssl: PSSL; mode: TOpenSSL_C_UINT8): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_servername(const s: PSSL; const type_: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibSSL; +function SSL_get_servername_type(const s: PSSL): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_export_keying_material(s: PSSL; out_: PByte; olen: TOpenSSL_C_SIZET; const label_: PAnsiChar; llen: TOpenSSL_C_SIZET; const context: PByte; contextlen: TOpenSSL_C_SIZET; use_context: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_export_keying_material_early(s: PSSL; out_: PByte; olen: TOpenSSL_C_SIZET; const label_: PAnsiChar; llen: TOpenSSL_C_SIZET; const context: PByte; contextlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_peer_signature_type_nid(const s: PSSl; pnid: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_signature_type_nid(const s: PSSl; pnid: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_sigalgs(s: PSSl; idx: TOpenSSL_C_INT; psign: POpenSSL_C_INT; phash: POpenSSL_C_INT; psignandhash: POpenSSL_C_INT; rsig: PByte; rhash: PByte): TOpenSSL_C_INT; cdecl; external CLibSSL; +function SSL_get_shared_sigalgs(s: PSSl; idx: TOpenSSL_C_INT; psign: POpenSSL_C_INT; phash: POpenSSL_C_INT; psignandhash: POpenSSL_C_INT; rsig: PByte; rhash: PByte): TOpenSSL_C_INT; cdecl; external CLibSSL; + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function SSL_set_tlsext_host_name(s: PSSL; const name: PAnsiChar): TOpenSSL_C_LONG; {removed 1.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_SSL_set_tlsext_host_name(s: PSSL; const name: PAnsiChar): TOpenSSL_C_LONG; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_SSL_CTX_set_tlsext_max_fragment_length(ctx: PSSL_CTx; mode: TOpenSSL_C_UINT8): TOpenSSL_C_INT; cdecl; +function Load_SSL_set_tlsext_max_fragment_length(ssl: PSSL; mode: TOpenSSL_C_UINT8): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_servername(const s: PSSL; const type_: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_SSL_get_servername_type(const s: PSSL): TOpenSSL_C_INT; cdecl; +function Load_SSL_export_keying_material(s: PSSL; out_: PByte; olen: TOpenSSL_C_SIZET; const label_: PAnsiChar; llen: TOpenSSL_C_SIZET; const context: PByte; contextlen: TOpenSSL_C_SIZET; use_context: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_export_keying_material_early(s: PSSL; out_: PByte; olen: TOpenSSL_C_SIZET; const label_: PAnsiChar; llen: TOpenSSL_C_SIZET; const context: PByte; contextlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_peer_signature_type_nid(const s: PSSl; pnid: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_signature_type_nid(const s: PSSl; pnid: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_sigalgs(s: PSSl; idx: TOpenSSL_C_INT; psign: POpenSSL_C_INT; phash: POpenSSL_C_INT; psignandhash: POpenSSL_C_INT; rsig: PByte; rhash: PByte): TOpenSSL_C_INT; cdecl; +function Load_SSL_get_shared_sigalgs(s: PSSl; idx: TOpenSSL_C_INT; psign: POpenSSL_C_INT; phash: POpenSSL_C_INT; psignandhash: POpenSSL_C_INT; rsig: PByte; rhash: PByte): TOpenSSL_C_INT; cdecl; + +var + SSL_CTX_set_tlsext_max_fragment_length: function (ctx: PSSL_CTx; mode: TOpenSSL_C_UINT8): TOpenSSL_C_INT; cdecl = Load_SSL_CTX_set_tlsext_max_fragment_length; + SSL_set_tlsext_max_fragment_length: function (ssl: PSSL; mode: TOpenSSL_C_UINT8): TOpenSSL_C_INT; cdecl = Load_SSL_set_tlsext_max_fragment_length; + SSL_get_servername: function (const s: PSSL; const type_: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_SSL_get_servername; + SSL_get_servername_type: function (const s: PSSL): TOpenSSL_C_INT; cdecl = Load_SSL_get_servername_type; + SSL_export_keying_material: function (s: PSSL; out_: PByte; olen: TOpenSSL_C_SIZET; const label_: PAnsiChar; llen: TOpenSSL_C_SIZET; const context: PByte; contextlen: TOpenSSL_C_SIZET; use_context: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_export_keying_material; + SSL_export_keying_material_early: function (s: PSSL; out_: PByte; olen: TOpenSSL_C_SIZET; const label_: PAnsiChar; llen: TOpenSSL_C_SIZET; const context: PByte; contextlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_SSL_export_keying_material_early; + SSL_get_peer_signature_type_nid: function (const s: PSSl; pnid: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_get_peer_signature_type_nid; + SSL_get_signature_type_nid: function (const s: PSSl; pnid: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_SSL_get_signature_type_nid; + SSL_get_sigalgs: function (s: PSSl; idx: TOpenSSL_C_INT; psign: POpenSSL_C_INT; phash: POpenSSL_C_INT; psignandhash: POpenSSL_C_INT; rsig: PByte; rhash: PByte): TOpenSSL_C_INT; cdecl = Load_SSL_get_sigalgs; + SSL_get_shared_sigalgs: function (s: PSSl; idx: TOpenSSL_C_INT; psign: POpenSSL_C_INT; phash: POpenSSL_C_INT; psignandhash: POpenSSL_C_INT; rsig: PByte; rhash: PByte): TOpenSSL_C_INT; cdecl = Load_SSL_get_shared_sigalgs; + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +var + SSL_set_tlsext_host_name: function (s: PSSL; const name: PAnsiChar): TOpenSSL_C_LONG; cdecl = Load_SSL_set_tlsext_host_name; {removed 1.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +const + SSL_set_tlsext_host_name_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + SSL_CTX_set_tlsext_max_fragment_length_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_set_tlsext_max_fragment_length_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_export_keying_material_early_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_peer_signature_type_nid_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + SSL_get_signature_type_nid_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + + +implementation + +uses + IdOpenSSLHeaders_ssl, +Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +//# define SSL_set_tlsext_host_name(s,name) SSL_ctrl(s,SSL_CTRL_SET_TLSEXT_HOSTNAME,TLSEXT_NAMETYPE_host_name, (void *)name) + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFDEF OPENSSL_STATIC_LINK_MODEL} + +{Legacy Support Functions} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function SSL_set_tlsext_host_name(s: PSSL; const name: PAnsiChar): TOpenSSL_C_LONG; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_TLSEXT_HOSTNAME, TLSEXT_NAMETYPE_host_name, Pointer(name)); +end; + + + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function COMPAT_SSL_set_tlsext_host_name(s: PSSL; const name: PAnsiChar): TOpenSSL_C_LONG; cdecl; + +begin + Result := SSL_ctrl(s, SSL_CTRL_SET_TLSEXT_HOSTNAME, TLSEXT_NAMETYPE_host_name, Pointer(name)); +end; + + + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_SSL_set_tlsext_host_name(s: PSSL; const name: PAnsiChar): TOpenSSL_C_LONG; cdecl; +begin + SSL_set_tlsext_host_name := LoadLibSSLFunction('SSL_set_tlsext_host_name'); + if not assigned(SSL_set_tlsext_host_name) then + SSL_set_tlsext_host_name := @COMPAT_SSL_set_tlsext_host_name; + Result := SSL_set_tlsext_host_name(s,name); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_SSL_CTX_set_tlsext_max_fragment_length(ctx: PSSL_CTx; mode: TOpenSSL_C_UINT8): TOpenSSL_C_INT; cdecl; +begin + SSL_CTX_set_tlsext_max_fragment_length := LoadLibSSLFunction('SSL_CTX_set_tlsext_max_fragment_length'); + if not assigned(SSL_CTX_set_tlsext_max_fragment_length) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_CTX_set_tlsext_max_fragment_length'); + Result := SSL_CTX_set_tlsext_max_fragment_length(ctx,mode); +end; + +function Load_SSL_set_tlsext_max_fragment_length(ssl: PSSL; mode: TOpenSSL_C_UINT8): TOpenSSL_C_INT; cdecl; +begin + SSL_set_tlsext_max_fragment_length := LoadLibSSLFunction('SSL_set_tlsext_max_fragment_length'); + if not assigned(SSL_set_tlsext_max_fragment_length) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_set_tlsext_max_fragment_length'); + Result := SSL_set_tlsext_max_fragment_length(ssl,mode); +end; + +function Load_SSL_get_servername(const s: PSSL; const type_: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + SSL_get_servername := LoadLibSSLFunction('SSL_get_servername'); + if not assigned(SSL_get_servername) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_servername'); + Result := SSL_get_servername(s,type_); +end; + +function Load_SSL_get_servername_type(const s: PSSL): TOpenSSL_C_INT; cdecl; +begin + SSL_get_servername_type := LoadLibSSLFunction('SSL_get_servername_type'); + if not assigned(SSL_get_servername_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_servername_type'); + Result := SSL_get_servername_type(s); +end; + +function Load_SSL_export_keying_material(s: PSSL; out_: PByte; olen: TOpenSSL_C_SIZET; const label_: PAnsiChar; llen: TOpenSSL_C_SIZET; const context: PByte; contextlen: TOpenSSL_C_SIZET; use_context: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_export_keying_material := LoadLibSSLFunction('SSL_export_keying_material'); + if not assigned(SSL_export_keying_material) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_export_keying_material'); + Result := SSL_export_keying_material(s,out_,olen,label_,llen,context,contextlen,use_context); +end; + +function Load_SSL_export_keying_material_early(s: PSSL; out_: PByte; olen: TOpenSSL_C_SIZET; const label_: PAnsiChar; llen: TOpenSSL_C_SIZET; const context: PByte; contextlen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + SSL_export_keying_material_early := LoadLibSSLFunction('SSL_export_keying_material_early'); + if not assigned(SSL_export_keying_material_early) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_export_keying_material_early'); + Result := SSL_export_keying_material_early(s,out_,olen,label_,llen,context,contextlen); +end; + +function Load_SSL_get_peer_signature_type_nid(const s: PSSl; pnid: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_get_peer_signature_type_nid := LoadLibSSLFunction('SSL_get_peer_signature_type_nid'); + if not assigned(SSL_get_peer_signature_type_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_peer_signature_type_nid'); + Result := SSL_get_peer_signature_type_nid(s,pnid); +end; + +function Load_SSL_get_signature_type_nid(const s: PSSl; pnid: POpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + SSL_get_signature_type_nid := LoadLibSSLFunction('SSL_get_signature_type_nid'); + if not assigned(SSL_get_signature_type_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_signature_type_nid'); + Result := SSL_get_signature_type_nid(s,pnid); +end; + +function Load_SSL_get_sigalgs(s: PSSl; idx: TOpenSSL_C_INT; psign: POpenSSL_C_INT; phash: POpenSSL_C_INT; psignandhash: POpenSSL_C_INT; rsig: PByte; rhash: PByte): TOpenSSL_C_INT; cdecl; +begin + SSL_get_sigalgs := LoadLibSSLFunction('SSL_get_sigalgs'); + if not assigned(SSL_get_sigalgs) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_sigalgs'); + Result := SSL_get_sigalgs(s,idx,psign,phash,psignandhash,rsig,rhash); +end; + +function Load_SSL_get_shared_sigalgs(s: PSSl; idx: TOpenSSL_C_INT; psign: POpenSSL_C_INT; phash: POpenSSL_C_INT; psignandhash: POpenSSL_C_INT; rsig: PByte; rhash: PByte): TOpenSSL_C_INT; cdecl; +begin + SSL_get_shared_sigalgs := LoadLibSSLFunction('SSL_get_shared_sigalgs'); + if not assigned(SSL_get_shared_sigalgs) then + EOpenSSLAPIFunctionNotPresent.RaiseException('SSL_get_shared_sigalgs'); + Result := SSL_get_shared_sigalgs(s,idx,psign,phash,psignandhash,rsig,rhash); +end; + + +procedure UnLoad; +begin +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + SSL_set_tlsext_host_name := Load_SSL_set_tlsext_host_name; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + SSL_CTX_set_tlsext_max_fragment_length := Load_SSL_CTX_set_tlsext_max_fragment_length; + SSL_set_tlsext_max_fragment_length := Load_SSL_set_tlsext_max_fragment_length; + SSL_get_servername := Load_SSL_get_servername; + SSL_get_servername_type := Load_SSL_get_servername_type; + SSL_export_keying_material := Load_SSL_export_keying_material; + SSL_export_keying_material_early := Load_SSL_export_keying_material_early; + SSL_get_peer_signature_type_nid := Load_SSL_get_peer_signature_type_nid; + SSL_get_signature_type_nid := Load_SSL_get_signature_type_nid; + SSL_get_sigalgs := Load_SSL_get_sigalgs; + SSL_get_shared_sigalgs := Load_SSL_get_shared_sigalgs; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_ts.pas b/src/opensslHdrs/IdOpenSSLHeaders_ts.pas new file mode 100644 index 0000000..0b3d545 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_ts.pas @@ -0,0 +1,2681 @@ +(* This unit was generated from the source file ts.h2pas +It should not be modified directly. All changes should be made to ts.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_ts; + + +interface + +// Headers for OpenSSL 1.1.1 +// ts.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_asn1, + IdOpenSSLHeaders_bio, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_pkcs7, + IdOpenSSLHeaders_rsa, + IdOpenSSLHeaders_tserr, + IdOpenSSLHeaders_x509, + IdOpenSSLHeaders_x509v3; + +const + (* Possible values for status. *) + TS_STATUS_GRANTED = 0; + TS_STATUS_GRANTED_WITH_MODS = 1; + TS_STATUS_REJECTION = 2; + TS_STATUS_WAITING = 3; + TS_STATUS_REVOCATION_WARNING = 4; + TS_STATUS_REVOCATION_NOTIFICATION = 5; + + + (* Possible values for failure_info. *) + TS_INFO_BAD_ALG = 0; + TS_INFO_BAD_REQUEST = 2; + TS_INFO_BAD_DATA_FORMAT = 5; + TS_INFO_TIME_NOT_AVAILABLE = 14; + TS_INFO_UNACCEPTED_POLICY = 15; + TS_INFO_UNACCEPTED_EXTENSION = 16; + TS_INFO_ADD_INFO_NOT_AVAILABLE = 17; + TS_INFO_SYSTEM_FAILURE = 25; + + (* Optional flags for response generation. *) + + (* Don't include the TSA name in response. *) + TS_TSA_NAME = $01; + + (* Set ordering to true in response. *) + TS_ORDERING = $02; + + (* + * Include the signer certificate and the other specified certificates in + * the ESS signing certificate attribute beside the PKCS7 signed data. + * Only the signer certificates is included by default. + *) + TS_ESS_CERT_ID_CHAIN = $04; + + (* At most we accept usec precision. *) + TS_MAX_CLOCK_PRECISION_DIGITS = 6; + + (* Maximum status message length *) + TS_MAX_STATUS_LENGTH = 1024 * 1024; + + (* Verify the signer's certificate and the signature of the response. *) + TS_VFY_SIGNATURE = TOpenSSL_C_UINT(1) shl 0; + (* Verify the version number of the response. *) + TS_VFY_VERSION = TOpenSSL_C_UINT(1) shl 1; + (* Verify if the policy supplied by the user matches the policy of the TSA. *) + TS_VFY_POLICY = TOpenSSL_C_UINT(1) shl 2; + (* + * Verify the message imprint provided by the user. This flag should not be + * specified with TS_VFY_DATA. + *) + TS_VFY_IMPRINT = TOpenSSL_C_UINT(1) shl 3; + (* + * Verify the message imprint computed by the verify method from the user + * provided data and the MD algorithm of the response. This flag should not + * be specified with TS_VFY_IMPRINT. + *) + TS_VFY_DATA = TOpenSSL_C_UINT(1) shl 4; + (* Verify the nonce value. *) + TS_VFY_NONCE = TOpenSSL_C_UINT(1) shl 5; + (* Verify if the TSA name field matches the signer certificate. *) + TS_VFY_SIGNER = TOpenSSL_C_UINT(1) shl 6; + (* Verify if the TSA name field equals to the user provided name. *) + TS_VFY_TSA_NAME = TOpenSSL_C_UINT(1) shl 7; + + (* You can use the following convenience constants. *) + TS_VFY_ALL_IMPRINT = TS_VFY_SIGNATURE or TS_VFY_VERSION or TS_VFY_POLICY + or TS_VFY_IMPRINT or TS_VFY_NONCE or TS_VFY_SIGNER or TS_VFY_TSA_NAME; + + TS_VFY_ALL_DATA = TS_VFY_SIGNATURE or TS_VFY_VERSION or TS_VFY_POLICY + or TS_VFY_DATA or TS_VFY_NONCE or TS_VFY_SIGNER or TS_VFY_TSA_NAME; + +type + TS_msg_imprint_st = type Pointer; + TS_req_st = type Pointer; + TS_accuracy_st = type Pointer; + TS_tst_info_st = type Pointer; + + TS_MSG_IMPRINT = TS_msg_imprint_st; + PTS_MSG_IMPRINT = ^TS_MSG_IMPRINT; + PPTS_MSG_IMPRINT = ^PTS_MSG_IMPRINT; + + TS_REQ = TS_req_st; + PTS_REQ = ^TS_REQ; + PPTS_REQ = ^PTS_REQ; + + TS_ACCURACY = TS_accuracy_st; + PTS_ACCURACY = ^TS_ACCURACY; + PPTS_ACCURACY = ^PTS_ACCURACY; + + TS_TST_INFO = TS_tst_info_st; + PTS_TST_INFO = ^TS_TST_INFO; + PPTS_TST_INFO = ^PTS_TST_INFO; + + TS_status_info_st = type Pointer; + ESS_issuer_serial_st = type Pointer; + ESS_cert_id_st = type Pointer; + ESS_signing_cert_st = type Pointer; + ESS_cert_id_v2_st = type Pointer; + ESS_signing_cert_v2_st = type Pointer; + + TS_STATUS_INFO = TS_status_info_st; + PTS_STATUS_INFO = ^TS_STATUS_INFO; + PPTS_STATUS_INFO = ^PTS_STATUS_INFO; + + ESS_ISSUER_SERIAL = ESS_issuer_serial_st; + PESS_ISSUER_SERIAL = ^ESS_ISSUER_SERIAL; + PPESS_ISSUER_SERIAL = ^PESS_ISSUER_SERIAL; + + ESS_CERT_ID = ESS_cert_id_st; + PESS_CERT_ID = ^ESS_CERT_ID; + PPESS_CERT_ID = ^PESS_CERT_ID; + + ESS_SIGNING_CERT = ESS_signing_cert_st; + PESS_SIGNING_CERT = ^ESS_SIGNING_CERT; + PPESS_SIGNING_CERT = ^PESS_SIGNING_CERT; + +// DEFINE_STACK_OF(ESS_CERT_ID) + + ESS_CERT_ID_V2 = ESS_cert_id_v2_st; + PESS_CERT_ID_V2 = ^ESS_CERT_ID_V2; + PPESS_CERT_ID_V2 = ^PESS_CERT_ID_V2; + + ESS_SIGNING_CERT_V2 = ESS_signing_cert_v2_st; + PESS_SIGNING_CERT_V2 = ^ESS_SIGNING_CERT_V2; + PPESS_SIGNING_CERT_V2 = ^PESS_SIGNING_CERT_V2; + +// DEFINE_STACK_OF(ESS_CERT_ID_V2) + TS_resp_st = type Pointer; + TS_RESP = TS_resp_st; + PTS_RESP = ^TS_RESP; + PPTS_RESP = ^PTS_RESP; + + (* Forward declaration. *) + TS_resp_ctx = type Pointer; + PTS_resp_ctx = ^TS_resp_ctx; + PPTS_resp_ctx = ^PTS_resp_ctx; + + (* This must return a unique number less than 160 bits long. *) + TS_serial_cb = function({struct} v1: PTS_resp_ctx; v2: Pointer): PASN1_INTEGER; + + (* + * This must return the seconds and microseconds since Jan 1, 1970 in the sec + * and usec variables allocated by the caller. Return non-zero for success + * and zero for failure. + *) + TS_time_cb = function({struct} v1: PTS_resp_ctx; v2: Pointer; sec: POpenSSL_C_LONG; usec: POpenSSL_C_LONG): TOpenSSL_C_INT; + + (* + * This must process the given extension. It can modify the TS_TST_INFO + * object of the context. Return values: !0 (processed), 0 (error, it must + * set the status info/failure info of the response). + *) + TS_extension_cb = function({struct} v1: PTS_resp_ctx; v2: PX509_Extension; v3: Pointer): TOpenSSL_C_INT; + +// TS_VERIFY_CTX = TS_verify_ctx; + TS_VERIFY_CTX = type Pointer; + PTS_VERIFY_CTX = ^TS_VERIFY_CTX; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM TS_REQ_new} +{$EXTERNALSYM TS_REQ_free} +{$EXTERNALSYM i2d_TS_REQ} +{$EXTERNALSYM d2i_TS_REQ} +{$EXTERNALSYM TS_REQ_dup} +{$EXTERNALSYM d2i_TS_REQ_bio} +{$EXTERNALSYM i2d_TS_REQ_bio} +{$EXTERNALSYM TS_MSG_IMPRINT_new} +{$EXTERNALSYM TS_MSG_IMPRINT_free} +{$EXTERNALSYM i2d_TS_MSG_IMPRINT} +{$EXTERNALSYM d2i_TS_MSG_IMPRINT} +{$EXTERNALSYM TS_MSG_IMPRINT_dup} +{$EXTERNALSYM d2i_TS_MSG_IMPRINT_bio} +{$EXTERNALSYM i2d_TS_MSG_IMPRINT_bio} +{$EXTERNALSYM TS_RESP_new} +{$EXTERNALSYM TS_RESP_free} +{$EXTERNALSYM i2d_TS_RESP} +{$EXTERNALSYM d2i_TS_RESP} +{$EXTERNALSYM PKCS7_to_TS_TST_INFO} +{$EXTERNALSYM TS_RESP_dup} +{$EXTERNALSYM d2i_TS_RESP_bio} +{$EXTERNALSYM i2d_TS_RESP_bio} +{$EXTERNALSYM TS_STATUS_INFO_new} +{$EXTERNALSYM TS_STATUS_INFO_free} +{$EXTERNALSYM i2d_TS_STATUS_INFO} +{$EXTERNALSYM d2i_TS_STATUS_INFO} +{$EXTERNALSYM TS_STATUS_INFO_dup} +{$EXTERNALSYM TS_TST_INFO_new} +{$EXTERNALSYM TS_TST_INFO_free} +{$EXTERNALSYM i2d_TS_TST_INFO} +{$EXTERNALSYM d2i_TS_TST_INFO} +{$EXTERNALSYM TS_TST_INFO_dup} +{$EXTERNALSYM d2i_TS_TST_INFO_bio} +{$EXTERNALSYM i2d_TS_TST_INFO_bio} +{$EXTERNALSYM TS_ACCURACY_new} +{$EXTERNALSYM TS_ACCURACY_free} +{$EXTERNALSYM i2d_TS_ACCURACY} +{$EXTERNALSYM d2i_TS_ACCURACY} +{$EXTERNALSYM TS_ACCURACY_dup} +{$EXTERNALSYM ESS_ISSUER_SERIAL_new} +{$EXTERNALSYM ESS_ISSUER_SERIAL_free} +{$EXTERNALSYM i2d_ESS_ISSUER_SERIAL} +{$EXTERNALSYM d2i_ESS_ISSUER_SERIAL} +{$EXTERNALSYM ESS_ISSUER_SERIAL_dup} +{$EXTERNALSYM ESS_CERT_ID_new} +{$EXTERNALSYM ESS_CERT_ID_free} +{$EXTERNALSYM i2d_ESS_CERT_ID} +{$EXTERNALSYM d2i_ESS_CERT_ID} +{$EXTERNALSYM ESS_CERT_ID_dup} +{$EXTERNALSYM ESS_SIGNING_CERT_new} +{$EXTERNALSYM ESS_SIGNING_CERT_free} +{$EXTERNALSYM i2d_ESS_SIGNING_CERT} +{$EXTERNALSYM d2i_ESS_SIGNING_CERT} +{$EXTERNALSYM ESS_SIGNING_CERT_dup} +{$EXTERNALSYM ESS_CERT_ID_V2_new} +{$EXTERNALSYM ESS_CERT_ID_V2_free} +{$EXTERNALSYM i2d_ESS_CERT_ID_V2} +{$EXTERNALSYM d2i_ESS_CERT_ID_V2} +{$EXTERNALSYM ESS_CERT_ID_V2_dup} +{$EXTERNALSYM ESS_SIGNING_CERT_V2_new} +{$EXTERNALSYM ESS_SIGNING_CERT_V2_free} +{$EXTERNALSYM i2d_ESS_SIGNING_CERT_V2} +{$EXTERNALSYM d2i_ESS_SIGNING_CERT_V2} +{$EXTERNALSYM ESS_SIGNING_CERT_V2_dup} +{$EXTERNALSYM TS_REQ_set_version} +{$EXTERNALSYM TS_REQ_get_version} +{$EXTERNALSYM TS_STATUS_INFO_set_status} +{$EXTERNALSYM TS_STATUS_INFO_get0_status} +{$EXTERNALSYM TS_REQ_set_msg_imprint} +{$EXTERNALSYM TS_REQ_get_msg_imprint} +{$EXTERNALSYM TS_MSG_IMPRINT_set_algo} +{$EXTERNALSYM TS_MSG_IMPRINT_get_algo} +{$EXTERNALSYM TS_MSG_IMPRINT_set_msg} +{$EXTERNALSYM TS_MSG_IMPRINT_get_msg} +{$EXTERNALSYM TS_REQ_set_policy_id} +{$EXTERNALSYM TS_REQ_get_policy_id} +{$EXTERNALSYM TS_REQ_set_nonce} +{$EXTERNALSYM TS_REQ_get_nonce} +{$EXTERNALSYM TS_REQ_set_cert_req} +{$EXTERNALSYM TS_REQ_get_cert_req} +{$EXTERNALSYM TS_REQ_ext_free} +{$EXTERNALSYM TS_REQ_get_ext_count} +{$EXTERNALSYM TS_REQ_get_ext_by_NID} +{$EXTERNALSYM TS_REQ_get_ext_by_OBJ} +{$EXTERNALSYM TS_REQ_get_ext_by_critical} +{$EXTERNALSYM TS_REQ_get_ext} +{$EXTERNALSYM TS_REQ_delete_ext} +{$EXTERNALSYM TS_REQ_add_ext} +{$EXTERNALSYM TS_REQ_get_ext_d2i} +{$EXTERNALSYM TS_REQ_print_bio} +{$EXTERNALSYM TS_RESP_set_status_info} +{$EXTERNALSYM TS_RESP_get_status_info} +{$EXTERNALSYM TS_RESP_set_tst_info} +{$EXTERNALSYM TS_RESP_get_token} +{$EXTERNALSYM TS_RESP_get_tst_info} +{$EXTERNALSYM TS_TST_INFO_set_version} +{$EXTERNALSYM TS_TST_INFO_get_version} +{$EXTERNALSYM TS_TST_INFO_set_policy_id} +{$EXTERNALSYM TS_TST_INFO_get_policy_id} +{$EXTERNALSYM TS_TST_INFO_set_msg_imprint} +{$EXTERNALSYM TS_TST_INFO_get_msg_imprint} +{$EXTERNALSYM TS_TST_INFO_set_serial} +{$EXTERNALSYM TS_TST_INFO_get_serial} +{$EXTERNALSYM TS_TST_INFO_set_time} +{$EXTERNALSYM TS_TST_INFO_get_time} +{$EXTERNALSYM TS_TST_INFO_set_accuracy} +{$EXTERNALSYM TS_TST_INFO_get_accuracy} +{$EXTERNALSYM TS_ACCURACY_set_seconds} +{$EXTERNALSYM TS_ACCURACY_get_seconds} +{$EXTERNALSYM TS_ACCURACY_set_millis} +{$EXTERNALSYM TS_ACCURACY_get_millis} +{$EXTERNALSYM TS_ACCURACY_set_micros} +{$EXTERNALSYM TS_ACCURACY_get_micros} +{$EXTERNALSYM TS_TST_INFO_set_ordering} +{$EXTERNALSYM TS_TST_INFO_get_ordering} +{$EXTERNALSYM TS_TST_INFO_set_nonce} +{$EXTERNALSYM TS_TST_INFO_get_nonce} +{$EXTERNALSYM TS_TST_INFO_set_tsa} +{$EXTERNALSYM TS_TST_INFO_get_tsa} +{$EXTERNALSYM TS_TST_INFO_ext_free} +{$EXTERNALSYM TS_TST_INFO_get_ext_count} +{$EXTERNALSYM TS_TST_INFO_get_ext_by_NID} +{$EXTERNALSYM TS_TST_INFO_get_ext_by_OBJ} +{$EXTERNALSYM TS_TST_INFO_get_ext_by_critical} +{$EXTERNALSYM TS_TST_INFO_get_ext} +{$EXTERNALSYM TS_TST_INFO_delete_ext} +{$EXTERNALSYM TS_TST_INFO_add_ext} +{$EXTERNALSYM TS_TST_INFO_get_ext_d2i} +{$EXTERNALSYM TS_RESP_CTX_new} +{$EXTERNALSYM TS_RESP_CTX_free} +{$EXTERNALSYM TS_RESP_CTX_set_signer_cert} +{$EXTERNALSYM TS_RESP_CTX_set_signer_key} +{$EXTERNALSYM TS_RESP_CTX_set_signer_digest} +{$EXTERNALSYM TS_RESP_CTX_set_ess_cert_id_digest} +{$EXTERNALSYM TS_RESP_CTX_set_def_policy} +{$EXTERNALSYM TS_RESP_CTX_add_policy} +{$EXTERNALSYM TS_RESP_CTX_add_md} +{$EXTERNALSYM TS_RESP_CTX_set_accuracy} +{$EXTERNALSYM TS_RESP_CTX_set_clock_precision_digits} +{$EXTERNALSYM TS_RESP_CTX_add_flags} +{$EXTERNALSYM TS_RESP_CTX_set_serial_cb} +{$EXTERNALSYM TS_RESP_CTX_set_time_cb} +{$EXTERNALSYM TS_RESP_CTX_set_extension_cb} +{$EXTERNALSYM TS_RESP_CTX_set_status_info} +{$EXTERNALSYM TS_RESP_CTX_set_status_info_cond} +{$EXTERNALSYM TS_RESP_CTX_add_failure_info} +{$EXTERNALSYM TS_RESP_CTX_get_request} +{$EXTERNALSYM TS_RESP_CTX_get_tst_info} +{$EXTERNALSYM TS_RESP_create_response} +{$EXTERNALSYM TS_RESP_verify_response} +{$EXTERNALSYM TS_RESP_verify_token} +{$EXTERNALSYM TS_VERIFY_CTX_new} +{$EXTERNALSYM TS_VERIFY_CTX_init} +{$EXTERNALSYM TS_VERIFY_CTX_free} +{$EXTERNALSYM TS_VERIFY_CTX_cleanup} +{$EXTERNALSYM TS_VERIFY_CTX_set_flags} +{$EXTERNALSYM TS_VERIFY_CTX_add_flags} +{$EXTERNALSYM TS_VERIFY_CTX_set_data} +{$EXTERNALSYM TS_VERIFY_CTX_set_imprint} +{$EXTERNALSYM TS_VERIFY_CTX_set_store} +{$EXTERNALSYM TS_REQ_to_TS_VERIFY_CTX} +{$EXTERNALSYM TS_RESP_print_bio} +{$EXTERNALSYM TS_STATUS_INFO_print_bio} +{$EXTERNALSYM TS_TST_INFO_print_bio} +{$EXTERNALSYM TS_ASN1_INTEGER_print_bio} +{$EXTERNALSYM TS_OBJ_print_bio} +{$EXTERNALSYM TS_X509_ALGOR_print_bio} +{$EXTERNALSYM TS_MSG_IMPRINT_print_bio} +{$EXTERNALSYM TS_CONF_load_cert} +{$EXTERNALSYM TS_CONF_load_key} +{$EXTERNALSYM TS_CONF_set_serial} +{$EXTERNALSYM TS_CONF_get_tsa_section} +{$EXTERNALSYM TS_CONF_set_crypto_device} +{$EXTERNALSYM TS_CONF_set_default_engine} +{$EXTERNALSYM TS_CONF_set_signer_cert} +{$EXTERNALSYM TS_CONF_set_certs} +{$EXTERNALSYM TS_CONF_set_signer_key} +{$EXTERNALSYM TS_CONF_set_signer_digest} +{$EXTERNALSYM TS_CONF_set_def_policy} +{$EXTERNALSYM TS_CONF_set_policies} +{$EXTERNALSYM TS_CONF_set_digests} +{$EXTERNALSYM TS_CONF_set_accuracy} +{$EXTERNALSYM TS_CONF_set_clock_precision_digits} +{$EXTERNALSYM TS_CONF_set_ordering} +{$EXTERNALSYM TS_CONF_set_tsa_name} +{$EXTERNALSYM TS_CONF_set_ess_cert_id_chain} +{$EXTERNALSYM TS_CONF_set_ess_cert_id_digest} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function TS_REQ_new: PTS_REQ; cdecl; external CLibCrypto; +procedure TS_REQ_free(a: PTS_REQ); cdecl; external CLibCrypto; +function i2d_TS_REQ(a: PTS_REQ; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_TS_REQ(a: PPTS_REQ; pp: PPByte; length: TOpenSSL_C_LONG): PTS_REQ; cdecl; external CLibCrypto; +function TS_REQ_dup(a: PTS_REQ): PTS_REQ; cdecl; external CLibCrypto; +function d2i_TS_REQ_bio(fp: PBIO; a: PPTS_REQ): PTS_REQ; cdecl; external CLibCrypto; +function i2d_TS_REQ_bio(fp: PBIO; a: PTS_REQ): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_MSG_IMPRINT_new: PTS_MSG_IMPRINT; cdecl; external CLibCrypto; +procedure TS_MSG_IMPRINT_free(a: PTS_MSG_IMPRINT); cdecl; external CLibCrypto; +function i2d_TS_MSG_IMPRINT(a: PTS_MSG_IMPRINT; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_TS_MSG_IMPRINT(a: PPTS_MSG_IMPRINT; pp: PPByte; length: TOpenSSL_C_LONG): PTS_MSG_IMPRINT; cdecl; external CLibCrypto; +function TS_MSG_IMPRINT_dup(a: PTS_MSG_IMPRINT): PTS_MSG_IMPRINT; cdecl; external CLibCrypto; +function d2i_TS_MSG_IMPRINT_bio(bio: PBIO; a: PPTS_MSG_IMPRINT): PTS_MSG_IMPRINT; cdecl; external CLibCrypto; +function i2d_TS_MSG_IMPRINT_bio(bio: PBIO; a: PTS_MSG_IMPRINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_RESP_new: PTS_RESP; cdecl; external CLibCrypto; +procedure TS_RESP_free(a: PTS_RESP); cdecl; external CLibCrypto; +function i2d_TS_RESP(a: PTS_RESP; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_TS_RESP(a: PPTS_RESP; pp: PPByte; length: TOpenSSL_C_LONG): PTS_RESP; cdecl; external CLibCrypto; +function PKCS7_to_TS_TST_INFO(token: PPKCS7): PTS_TST_Info; cdecl; external CLibCrypto; +function TS_RESP_dup(a: PTS_RESP): PTS_RESP; cdecl; external CLibCrypto; +function d2i_TS_RESP_bio(bio: PBIO; a: PPTS_RESP): PTS_RESP; cdecl; external CLibCrypto; +function i2d_TS_RESP_bio(bio: PBIO; a: PTS_RESP): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_STATUS_INFO_new: PTS_STATUS_INFO; cdecl; external CLibCrypto; +procedure TS_STATUS_INFO_free(a: PTS_STATUS_INFO); cdecl; external CLibCrypto; +function i2d_TS_STATUS_INFO(a: PTS_STATUS_INFO; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_TS_STATUS_INFO(a: PPTS_STATUS_INFO; pp: PPByte; length: TOpenSSL_C_LONG): PTS_STATUS_INFO; cdecl; external CLibCrypto; +function TS_STATUS_INFO_dup(a: PTS_STATUS_INFO): PTS_STATUS_INFO; cdecl; external CLibCrypto; +function TS_TST_INFO_new: PTS_TST_Info; cdecl; external CLibCrypto; +procedure TS_TST_INFO_free(a: PTS_TST_Info); cdecl; external CLibCrypto; +function i2d_TS_TST_INFO(a: PTS_TST_Info; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_TS_TST_INFO(a: PPTS_TST_Info; pp: PPByte; length: TOpenSSL_C_LONG): PTS_TST_Info; cdecl; external CLibCrypto; +function TS_TST_INFO_dup(a: PTS_TST_Info): PTS_TST_Info; cdecl; external CLibCrypto; +function d2i_TS_TST_INFO_bio(bio: PBIO; a: PPTS_TST_Info): PTS_TST_Info; cdecl; external CLibCrypto; +function i2d_TS_TST_INFO_bio(bio: PBIO; a: PTS_TST_Info): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_ACCURACY_new: PTS_ACCURACY; cdecl; external CLibCrypto; +procedure TS_ACCURACY_free(a: PTS_ACCURACY); cdecl; external CLibCrypto; +function i2d_TS_ACCURACY(a: PTS_ACCURACY; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_TS_ACCURACY(a: PPTS_ACCURACY; pp: PPByte; length: TOpenSSL_C_LONG): PTS_ACCURACY; cdecl; external CLibCrypto; +function TS_ACCURACY_dup(a: PTS_ACCURACY): PTS_ACCURACY; cdecl; external CLibCrypto; +function ESS_ISSUER_SERIAL_new: PESS_ISSUER_SERIAL; cdecl; external CLibCrypto; +procedure ESS_ISSUER_SERIAL_free(a: PESS_ISSUER_SERIAL); cdecl; external CLibCrypto; +function i2d_ESS_ISSUER_SERIAL( a: PESS_ISSUER_SERIAL; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_ESS_ISSUER_SERIAL(a: PPESS_ISSUER_SERIAL; pp: PPByte; length: TOpenSSL_C_LONG): PESS_ISSUER_SERIAL; cdecl; external CLibCrypto; +function ESS_ISSUER_SERIAL_dup(a: PESS_ISSUER_SERIAL): PESS_ISSUER_SERIAL; cdecl; external CLibCrypto; +function ESS_CERT_ID_new: PESS_CERT_ID; cdecl; external CLibCrypto; +procedure ESS_CERT_ID_free(a: PESS_CERT_ID); cdecl; external CLibCrypto; +function i2d_ESS_CERT_ID(a: PESS_CERT_ID; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_ESS_CERT_ID(a: PPESS_CERT_ID; pp: PPByte; length: TOpenSSL_C_LONG): PESS_CERT_ID; cdecl; external CLibCrypto; +function ESS_CERT_ID_dup(a: PESS_CERT_ID): PESS_CERT_ID; cdecl; external CLibCrypto; +function ESS_SIGNING_CERT_new: PESS_SIGNING_Cert; cdecl; external CLibCrypto; +procedure ESS_SIGNING_CERT_free(a: PESS_SIGNING_Cert); cdecl; external CLibCrypto; +function i2d_ESS_SIGNING_CERT( a: PESS_SIGNING_Cert; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_ESS_SIGNING_CERT(a: PPESS_SIGNING_Cert; pp: PPByte; length: TOpenSSL_C_LONG): PESS_SIGNING_Cert; cdecl; external CLibCrypto; +function ESS_SIGNING_CERT_dup(a: PESS_SIGNING_Cert): PESS_SIGNING_Cert; cdecl; external CLibCrypto; +function ESS_CERT_ID_V2_new: PESS_CERT_ID_V2; cdecl; external CLibCrypto; +procedure ESS_CERT_ID_V2_free(a: PESS_CERT_ID_V2); cdecl; external CLibCrypto; +function i2d_ESS_CERT_ID_V2( a: PESS_CERT_ID_V2; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_ESS_CERT_ID_V2(a: PPESS_CERT_ID_V2; pp: PPByte; length: TOpenSSL_C_LONG): PESS_CERT_ID_V2; cdecl; external CLibCrypto; +function ESS_CERT_ID_V2_dup(a: PESS_CERT_ID_V2): PESS_CERT_ID_V2; cdecl; external CLibCrypto; +function ESS_SIGNING_CERT_V2_new: PESS_SIGNING_CERT_V2; cdecl; external CLibCrypto; +procedure ESS_SIGNING_CERT_V2_free(a: PESS_SIGNING_CERT_V2); cdecl; external CLibCrypto; +function i2d_ESS_SIGNING_CERT_V2(a: PESS_SIGNING_CERT_V2; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_ESS_SIGNING_CERT_V2(a: PPESS_SIGNING_CERT_V2; pp: PPByte; length: TOpenSSL_C_LONG): PESS_SIGNING_CERT_V2; cdecl; external CLibCrypto; +function ESS_SIGNING_CERT_V2_dup(a: PESS_SIGNING_CERT_V2): PESS_SIGNING_CERT_V2; cdecl; external CLibCrypto; +function TS_REQ_set_version(a: PTS_REQ; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_REQ_get_version(a: PTS_REQ): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function TS_STATUS_INFO_set_status(a: PTS_STATUS_INFO; i: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_STATUS_INFO_get0_status(const a: PTS_STATUS_INFO): PASN1_INTEGER; cdecl; external CLibCrypto; +function TS_REQ_set_msg_imprint(a: PTS_REQ; msg_imprint: PTS_MSG_IMPRINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_REQ_get_msg_imprint(a: PTS_REQ): PTS_MSG_IMPRINT; cdecl; external CLibCrypto; +function TS_MSG_IMPRINT_set_algo(a: PTS_MSG_IMPRINT; alg: PX509_ALGOr): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_MSG_IMPRINT_get_algo(a: PTS_MSG_IMPRINT): PX509_ALGOr; cdecl; external CLibCrypto; +function TS_MSG_IMPRINT_set_msg(a: PTS_MSG_IMPRINT; d: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_MSG_IMPRINT_get_msg(a: PTS_MSG_IMPRINT): PASN1_OCTET_STRING; cdecl; external CLibCrypto; +function TS_REQ_set_policy_id(a: PTS_REQ; policy: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_REQ_get_policy_id(a: PTS_REQ): PASN1_OBJECT; cdecl; external CLibCrypto; +function TS_REQ_set_nonce(a: PTS_REQ; nonce: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_REQ_get_nonce(const a: PTS_REQ): PASN1_INTEGER; cdecl; external CLibCrypto; +function TS_REQ_set_cert_req(a: PTS_REQ; cert_req: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_REQ_get_cert_req(a: PTS_REQ): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure TS_REQ_ext_free(a: PTS_REQ); cdecl; external CLibCrypto; +function TS_REQ_get_ext_count(a: PTS_REQ): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_REQ_get_ext_by_NID(a: PTS_REQ; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_REQ_get_ext_by_OBJ(a: PTS_REQ; obj: PASN1_Object; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_REQ_get_ext_by_critical(a: PTS_REQ; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_REQ_get_ext(a: PTS_REQ; loc: TOpenSSL_C_INT): PX509_Extension; cdecl; external CLibCrypto; +function TS_REQ_delete_ext(a: PTS_REQ; loc: TOpenSSL_C_INT): PX509_Extension; cdecl; external CLibCrypto; +function TS_REQ_add_ext(a: PTS_REQ; ex: PX509_Extension; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_REQ_get_ext_d2i(a: PTS_REQ; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function TS_REQ_print_bio(bio: PBIO; a: PTS_REQ): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_RESP_set_status_info(a: PTS_RESP; info: PTS_STATUS_INFO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_RESP_get_status_info(a: PTS_RESP): PTS_STATUS_INFO; cdecl; external CLibCrypto; +procedure TS_RESP_set_tst_info(a: PTS_RESP; p7: PPKCS7; tst_info: PTS_TST_Info); cdecl; external CLibCrypto; +function TS_RESP_get_token(a: PTS_RESP): PPKCS7; cdecl; external CLibCrypto; +function TS_RESP_get_tst_info(a: PTS_RESP): PTS_TST_Info; cdecl; external CLibCrypto; +function TS_TST_INFO_set_version(a: PTS_TST_Info; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_TST_INFO_get_version(const a: PTS_TST_Info): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function TS_TST_INFO_set_policy_id(a: PTS_TST_Info; policy_id: PASN1_Object): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_TST_INFO_get_policy_id(a: PTS_TST_Info): PASN1_Object; cdecl; external CLibCrypto; +function TS_TST_INFO_set_msg_imprint(a: PTS_TST_Info; msg_imprint: PTS_MSG_IMPRINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_TST_INFO_get_msg_imprint(a: PTS_TST_Info): PTS_MSG_IMPRINT; cdecl; external CLibCrypto; +function TS_TST_INFO_set_serial(a: PTS_TST_Info; const serial: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_TST_INFO_get_serial(const a: PTS_TST_INFO): PASN1_INTEGER; cdecl; external CLibCrypto; +function TS_TST_INFO_set_time(a: PTS_TST_Info; gtime: PASN1_GENERALIZEDTIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_TST_INFO_get_time(const a: PTS_TST_INFO): PASN1_GENERALIZEDTIME; cdecl; external CLibCrypto; +function TS_TST_INFO_set_accuracy(a: PTS_TST_Info; accuracy: PTS_ACCURACY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_TST_INFO_get_accuracy(a: PTS_TST_Info): PTS_ACCURACY; cdecl; external CLibCrypto; +function TS_ACCURACY_set_seconds(a: PTS_ACCURACY; const seconds: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_ACCURACY_get_seconds(const a: PTS_ACCURACY): PASN1_INTEGER; cdecl; external CLibCrypto; +function TS_ACCURACY_set_millis(a: PTS_ACCURACY; const millis: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_ACCURACY_get_millis(const a: PTS_ACCURACY): PASN1_INTEGER; cdecl; external CLibCrypto; +function TS_ACCURACY_set_micros(a: PTS_ACCURACY; const micros: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_ACCURACY_get_micros(const a: PTS_ACCURACY): PASN1_INTEGER; cdecl; external CLibCrypto; +function TS_TST_INFO_set_ordering(a: PTS_TST_Info; ordering: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_TST_INFO_get_ordering(const a: PTS_TST_Info): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_TST_INFO_set_nonce(a: PTS_TST_Info; const nonce: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_TST_INFO_get_nonce(const a: PTS_TST_INFO): PASN1_INTEGER; cdecl; external CLibCrypto; +function TS_TST_INFO_set_tsa(a: PTS_TST_Info; tsa: PGENERAL_NAME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_TST_INFO_get_tsa(a: PTS_TST_Info): PGENERAL_NAME; cdecl; external CLibCrypto; +procedure TS_TST_INFO_ext_free(a: PTS_TST_Info); cdecl; external CLibCrypto; +function TS_TST_INFO_get_ext_count(a: PTS_TST_Info): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_TST_INFO_get_ext_by_NID(a: PTS_TST_Info; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_TST_INFO_get_ext_by_OBJ(a: PTS_TST_Info; const obj: PASN1_Object; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_TST_INFO_get_ext_by_critical(a: PTS_TST_Info; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_TST_INFO_get_ext(a: PTS_TST_Info; loc: TOpenSSL_C_INT): PX509_Extension; cdecl; external CLibCrypto; +function TS_TST_INFO_delete_ext(a: PTS_TST_Info; loc: TOpenSSL_C_INT): PX509_Extension; cdecl; external CLibCrypto; +function TS_TST_INFO_add_ext(a: PTS_TST_Info; ex: PX509_Extension; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_TST_INFO_get_ext_d2i(a: PTS_TST_Info; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function TS_RESP_CTX_new: PTS_RESP_CTX; cdecl; external CLibCrypto; +procedure TS_RESP_CTX_free(ctx: PTS_RESP_CTX); cdecl; external CLibCrypto; +function TS_RESP_CTX_set_signer_cert(ctx: PTS_RESP_CTX; signer: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_RESP_CTX_set_signer_key(ctx: PTS_RESP_CTX; key: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_RESP_CTX_set_signer_digest(ctx: PTS_RESP_CTX; signer_digest: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_RESP_CTX_set_ess_cert_id_digest(ctx: PTS_RESP_CTX; md: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_RESP_CTX_set_def_policy(ctx: PTS_RESP_CTX; def_policy: PASN1_Object): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_RESP_CTX_add_policy(ctx: PTS_RESP_CTX; const policy: PASN1_Object): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_RESP_CTX_add_md(ctx: PTS_RESP_CTX; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_RESP_CTX_set_accuracy(ctx: PTS_RESP_CTX; secs: TOpenSSL_C_INT; millis: TOpenSSL_C_INT; micros: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_RESP_CTX_set_clock_precision_digits(ctx: PTS_RESP_CTX; clock_precision_digits: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure TS_RESP_CTX_add_flags(ctx: PTS_RESP_CTX; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure TS_RESP_CTX_set_serial_cb(ctx: PTS_RESP_CTX; cb: TS_serial_cb; data: Pointer); cdecl; external CLibCrypto; +procedure TS_RESP_CTX_set_time_cb(ctx: PTS_RESP_CTX; cb: TS_time_cb; data: Pointer); cdecl; external CLibCrypto; +procedure TS_RESP_CTX_set_extension_cb(ctx: PTS_RESP_CTX; cb: TS_extension_cb; data: Pointer); cdecl; external CLibCrypto; +function TS_RESP_CTX_set_status_info(ctx: PTS_RESP_CTX; status: TOpenSSL_C_INT; text: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_RESP_CTX_set_status_info_cond(ctx: PTS_RESP_CTX; status: TOpenSSL_C_INT; text: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_RESP_CTX_add_failure_info(ctx: PTS_RESP_CTX; failure: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_RESP_CTX_get_request(ctx: PTS_RESP_CTX): PTS_REQ; cdecl; external CLibCrypto; +function TS_RESP_CTX_get_tst_info(ctx: PTS_RESP_CTX): PTS_TST_Info; cdecl; external CLibCrypto; +function TS_RESP_create_response(ctx: PTS_RESP_CTX; req_bio: PBIO): PTS_RESP; cdecl; external CLibCrypto; +function TS_RESP_verify_response(ctx: PTS_VERIFY_CTX; response: PTS_RESP): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_RESP_verify_token(ctx: PTS_VERIFY_CTX; token: PPKCS7): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_VERIFY_CTX_new: PTS_VERIFY_CTX; cdecl; external CLibCrypto; +procedure TS_VERIFY_CTX_init(ctx: PTS_VERIFY_CTX); cdecl; external CLibCrypto; +procedure TS_VERIFY_CTX_free(ctx: PTS_VERIFY_CTX); cdecl; external CLibCrypto; +procedure TS_VERIFY_CTX_cleanup(ctx: PTS_VERIFY_CTX); cdecl; external CLibCrypto; +function TS_VERIFY_CTX_set_flags(ctx: PTS_VERIFY_CTX; f: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_VERIFY_CTX_add_flags(ctx: PTS_VERIFY_CTX; f: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_VERIFY_CTX_set_data(ctx: PTS_VERIFY_CTX; b: PBIO): PBIO; cdecl; external CLibCrypto; +function TS_VERIFY_CTX_set_imprint(ctx: PTS_VERIFY_CTX; hexstr: PByte; len: TOpenSSL_C_LONG): PByte; cdecl; external CLibCrypto; +function TS_VERIFY_CTX_set_store(ctx: PTS_VERIFY_CTX; s: PX509_Store): PX509_Store; cdecl; external CLibCrypto; +function TS_REQ_to_TS_VERIFY_CTX(req: PTS_REQ; ctx: PTS_VERIFY_CTX): PTS_VERIFY_CTX; cdecl; external CLibCrypto; +function TS_RESP_print_bio(bio: PBIO; a: PTS_RESP): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_STATUS_INFO_print_bio(bio: PBIO; a: PTS_STATUS_INFO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_TST_INFO_print_bio(bio: PBIO; a: PTS_TST_Info): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_ASN1_INTEGER_print_bio(bio: PBIO; const num: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_OBJ_print_bio(bio: PBIO; const obj: PASN1_Object): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_X509_ALGOR_print_bio(bio: PBIO; const alg: PX509_ALGOr): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_MSG_IMPRINT_print_bio(bio: PBIO; msg: PTS_MSG_IMPRINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_CONF_load_cert(file_: PAnsiChar): PX509; cdecl; external CLibCrypto; +function TS_CONF_load_key( file_: PAnsiChar; pass: PAnsiChar): PEVP_PKey; cdecl; external CLibCrypto; +function TS_CONF_set_serial(conf: PCONF; section: PAnsiChar; cb: TS_serial_cb; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_CONF_get_tsa_section(conf: PCONF; const section: PAnsiChar): PAnsiChar; cdecl; external CLibCrypto; +function TS_CONF_set_crypto_device(conf: PCONF; section: PAnsiChar; device: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_CONF_set_default_engine(name: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_CONF_set_signer_cert(conf: PCONF; section: PAnsiChar; cert: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_CONF_set_certs(conf: PCONF; section: PAnsiChar; certs: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_CONF_set_signer_key(conf: PCONF; const section: PAnsiChar; key: PAnsiChar; pass: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_CONF_set_signer_digest(conf: PCONF; section: PAnsiChar; md: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_CONF_set_def_policy(conf: PCONF; section: PAnsiChar; policy: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_CONF_set_policies(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_CONF_set_digests(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_CONF_set_accuracy(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_CONF_set_clock_precision_digits(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_CONF_set_ordering(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_CONF_set_tsa_name(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_CONF_set_ess_cert_id_chain(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function TS_CONF_set_ess_cert_id_digest(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_TS_REQ_new: PTS_REQ; cdecl; +procedure Load_TS_REQ_free(a: PTS_REQ); cdecl; +function Load_i2d_TS_REQ(a: PTS_REQ; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_TS_REQ(a: PPTS_REQ; pp: PPByte; length: TOpenSSL_C_LONG): PTS_REQ; cdecl; +function Load_TS_REQ_dup(a: PTS_REQ): PTS_REQ; cdecl; +function Load_d2i_TS_REQ_bio(fp: PBIO; a: PPTS_REQ): PTS_REQ; cdecl; +function Load_i2d_TS_REQ_bio(fp: PBIO; a: PTS_REQ): TOpenSSL_C_INT; cdecl; +function Load_TS_MSG_IMPRINT_new: PTS_MSG_IMPRINT; cdecl; +procedure Load_TS_MSG_IMPRINT_free(a: PTS_MSG_IMPRINT); cdecl; +function Load_i2d_TS_MSG_IMPRINT(a: PTS_MSG_IMPRINT; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_TS_MSG_IMPRINT(a: PPTS_MSG_IMPRINT; pp: PPByte; length: TOpenSSL_C_LONG): PTS_MSG_IMPRINT; cdecl; +function Load_TS_MSG_IMPRINT_dup(a: PTS_MSG_IMPRINT): PTS_MSG_IMPRINT; cdecl; +function Load_d2i_TS_MSG_IMPRINT_bio(bio: PBIO; a: PPTS_MSG_IMPRINT): PTS_MSG_IMPRINT; cdecl; +function Load_i2d_TS_MSG_IMPRINT_bio(bio: PBIO; a: PTS_MSG_IMPRINT): TOpenSSL_C_INT; cdecl; +function Load_TS_RESP_new: PTS_RESP; cdecl; +procedure Load_TS_RESP_free(a: PTS_RESP); cdecl; +function Load_i2d_TS_RESP(a: PTS_RESP; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_TS_RESP(a: PPTS_RESP; pp: PPByte; length: TOpenSSL_C_LONG): PTS_RESP; cdecl; +function Load_PKCS7_to_TS_TST_INFO(token: PPKCS7): PTS_TST_Info; cdecl; +function Load_TS_RESP_dup(a: PTS_RESP): PTS_RESP; cdecl; +function Load_d2i_TS_RESP_bio(bio: PBIO; a: PPTS_RESP): PTS_RESP; cdecl; +function Load_i2d_TS_RESP_bio(bio: PBIO; a: PTS_RESP): TOpenSSL_C_INT; cdecl; +function Load_TS_STATUS_INFO_new: PTS_STATUS_INFO; cdecl; +procedure Load_TS_STATUS_INFO_free(a: PTS_STATUS_INFO); cdecl; +function Load_i2d_TS_STATUS_INFO(a: PTS_STATUS_INFO; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_TS_STATUS_INFO(a: PPTS_STATUS_INFO; pp: PPByte; length: TOpenSSL_C_LONG): PTS_STATUS_INFO; cdecl; +function Load_TS_STATUS_INFO_dup(a: PTS_STATUS_INFO): PTS_STATUS_INFO; cdecl; +function Load_TS_TST_INFO_new: PTS_TST_Info; cdecl; +procedure Load_TS_TST_INFO_free(a: PTS_TST_Info); cdecl; +function Load_i2d_TS_TST_INFO(a: PTS_TST_Info; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_TS_TST_INFO(a: PPTS_TST_Info; pp: PPByte; length: TOpenSSL_C_LONG): PTS_TST_Info; cdecl; +function Load_TS_TST_INFO_dup(a: PTS_TST_Info): PTS_TST_Info; cdecl; +function Load_d2i_TS_TST_INFO_bio(bio: PBIO; a: PPTS_TST_Info): PTS_TST_Info; cdecl; +function Load_i2d_TS_TST_INFO_bio(bio: PBIO; a: PTS_TST_Info): TOpenSSL_C_INT; cdecl; +function Load_TS_ACCURACY_new: PTS_ACCURACY; cdecl; +procedure Load_TS_ACCURACY_free(a: PTS_ACCURACY); cdecl; +function Load_i2d_TS_ACCURACY(a: PTS_ACCURACY; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_TS_ACCURACY(a: PPTS_ACCURACY; pp: PPByte; length: TOpenSSL_C_LONG): PTS_ACCURACY; cdecl; +function Load_TS_ACCURACY_dup(a: PTS_ACCURACY): PTS_ACCURACY; cdecl; +function Load_ESS_ISSUER_SERIAL_new: PESS_ISSUER_SERIAL; cdecl; +procedure Load_ESS_ISSUER_SERIAL_free(a: PESS_ISSUER_SERIAL); cdecl; +function Load_i2d_ESS_ISSUER_SERIAL( a: PESS_ISSUER_SERIAL; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_ESS_ISSUER_SERIAL(a: PPESS_ISSUER_SERIAL; pp: PPByte; length: TOpenSSL_C_LONG): PESS_ISSUER_SERIAL; cdecl; +function Load_ESS_ISSUER_SERIAL_dup(a: PESS_ISSUER_SERIAL): PESS_ISSUER_SERIAL; cdecl; +function Load_ESS_CERT_ID_new: PESS_CERT_ID; cdecl; +procedure Load_ESS_CERT_ID_free(a: PESS_CERT_ID); cdecl; +function Load_i2d_ESS_CERT_ID(a: PESS_CERT_ID; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_ESS_CERT_ID(a: PPESS_CERT_ID; pp: PPByte; length: TOpenSSL_C_LONG): PESS_CERT_ID; cdecl; +function Load_ESS_CERT_ID_dup(a: PESS_CERT_ID): PESS_CERT_ID; cdecl; +function Load_ESS_SIGNING_CERT_new: PESS_SIGNING_Cert; cdecl; +procedure Load_ESS_SIGNING_CERT_free(a: PESS_SIGNING_Cert); cdecl; +function Load_i2d_ESS_SIGNING_CERT( a: PESS_SIGNING_Cert; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_ESS_SIGNING_CERT(a: PPESS_SIGNING_Cert; pp: PPByte; length: TOpenSSL_C_LONG): PESS_SIGNING_Cert; cdecl; +function Load_ESS_SIGNING_CERT_dup(a: PESS_SIGNING_Cert): PESS_SIGNING_Cert; cdecl; +function Load_ESS_CERT_ID_V2_new: PESS_CERT_ID_V2; cdecl; +procedure Load_ESS_CERT_ID_V2_free(a: PESS_CERT_ID_V2); cdecl; +function Load_i2d_ESS_CERT_ID_V2( a: PESS_CERT_ID_V2; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_ESS_CERT_ID_V2(a: PPESS_CERT_ID_V2; pp: PPByte; length: TOpenSSL_C_LONG): PESS_CERT_ID_V2; cdecl; +function Load_ESS_CERT_ID_V2_dup(a: PESS_CERT_ID_V2): PESS_CERT_ID_V2; cdecl; +function Load_ESS_SIGNING_CERT_V2_new: PESS_SIGNING_CERT_V2; cdecl; +procedure Load_ESS_SIGNING_CERT_V2_free(a: PESS_SIGNING_CERT_V2); cdecl; +function Load_i2d_ESS_SIGNING_CERT_V2(a: PESS_SIGNING_CERT_V2; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_ESS_SIGNING_CERT_V2(a: PPESS_SIGNING_CERT_V2; pp: PPByte; length: TOpenSSL_C_LONG): PESS_SIGNING_CERT_V2; cdecl; +function Load_ESS_SIGNING_CERT_V2_dup(a: PESS_SIGNING_CERT_V2): PESS_SIGNING_CERT_V2; cdecl; +function Load_TS_REQ_set_version(a: PTS_REQ; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_TS_REQ_get_version(a: PTS_REQ): TOpenSSL_C_LONG; cdecl; +function Load_TS_STATUS_INFO_set_status(a: PTS_STATUS_INFO; i: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_TS_STATUS_INFO_get0_status(const a: PTS_STATUS_INFO): PASN1_INTEGER; cdecl; +function Load_TS_REQ_set_msg_imprint(a: PTS_REQ; msg_imprint: PTS_MSG_IMPRINT): TOpenSSL_C_INT; cdecl; +function Load_TS_REQ_get_msg_imprint(a: PTS_REQ): PTS_MSG_IMPRINT; cdecl; +function Load_TS_MSG_IMPRINT_set_algo(a: PTS_MSG_IMPRINT; alg: PX509_ALGOr): TOpenSSL_C_INT; cdecl; +function Load_TS_MSG_IMPRINT_get_algo(a: PTS_MSG_IMPRINT): PX509_ALGOr; cdecl; +function Load_TS_MSG_IMPRINT_set_msg(a: PTS_MSG_IMPRINT; d: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_TS_MSG_IMPRINT_get_msg(a: PTS_MSG_IMPRINT): PASN1_OCTET_STRING; cdecl; +function Load_TS_REQ_set_policy_id(a: PTS_REQ; policy: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_TS_REQ_get_policy_id(a: PTS_REQ): PASN1_OBJECT; cdecl; +function Load_TS_REQ_set_nonce(a: PTS_REQ; nonce: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_TS_REQ_get_nonce(const a: PTS_REQ): PASN1_INTEGER; cdecl; +function Load_TS_REQ_set_cert_req(a: PTS_REQ; cert_req: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_TS_REQ_get_cert_req(a: PTS_REQ): TOpenSSL_C_INT; cdecl; +procedure Load_TS_REQ_ext_free(a: PTS_REQ); cdecl; +function Load_TS_REQ_get_ext_count(a: PTS_REQ): TOpenSSL_C_INT; cdecl; +function Load_TS_REQ_get_ext_by_NID(a: PTS_REQ; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_TS_REQ_get_ext_by_OBJ(a: PTS_REQ; obj: PASN1_Object; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_TS_REQ_get_ext_by_critical(a: PTS_REQ; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_TS_REQ_get_ext(a: PTS_REQ; loc: TOpenSSL_C_INT): PX509_Extension; cdecl; +function Load_TS_REQ_delete_ext(a: PTS_REQ; loc: TOpenSSL_C_INT): PX509_Extension; cdecl; +function Load_TS_REQ_add_ext(a: PTS_REQ; ex: PX509_Extension; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_TS_REQ_get_ext_d2i(a: PTS_REQ; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl; +function Load_TS_REQ_print_bio(bio: PBIO; a: PTS_REQ): TOpenSSL_C_INT; cdecl; +function Load_TS_RESP_set_status_info(a: PTS_RESP; info: PTS_STATUS_INFO): TOpenSSL_C_INT; cdecl; +function Load_TS_RESP_get_status_info(a: PTS_RESP): PTS_STATUS_INFO; cdecl; +procedure Load_TS_RESP_set_tst_info(a: PTS_RESP; p7: PPKCS7; tst_info: PTS_TST_Info); cdecl; +function Load_TS_RESP_get_token(a: PTS_RESP): PPKCS7; cdecl; +function Load_TS_RESP_get_tst_info(a: PTS_RESP): PTS_TST_Info; cdecl; +function Load_TS_TST_INFO_set_version(a: PTS_TST_Info; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_TS_TST_INFO_get_version(const a: PTS_TST_Info): TOpenSSL_C_LONG; cdecl; +function Load_TS_TST_INFO_set_policy_id(a: PTS_TST_Info; policy_id: PASN1_Object): TOpenSSL_C_INT; cdecl; +function Load_TS_TST_INFO_get_policy_id(a: PTS_TST_Info): PASN1_Object; cdecl; +function Load_TS_TST_INFO_set_msg_imprint(a: PTS_TST_Info; msg_imprint: PTS_MSG_IMPRINT): TOpenSSL_C_INT; cdecl; +function Load_TS_TST_INFO_get_msg_imprint(a: PTS_TST_Info): PTS_MSG_IMPRINT; cdecl; +function Load_TS_TST_INFO_set_serial(a: PTS_TST_Info; const serial: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_TS_TST_INFO_get_serial(const a: PTS_TST_INFO): PASN1_INTEGER; cdecl; +function Load_TS_TST_INFO_set_time(a: PTS_TST_Info; gtime: PASN1_GENERALIZEDTIME): TOpenSSL_C_INT; cdecl; +function Load_TS_TST_INFO_get_time(const a: PTS_TST_INFO): PASN1_GENERALIZEDTIME; cdecl; +function Load_TS_TST_INFO_set_accuracy(a: PTS_TST_Info; accuracy: PTS_ACCURACY): TOpenSSL_C_INT; cdecl; +function Load_TS_TST_INFO_get_accuracy(a: PTS_TST_Info): PTS_ACCURACY; cdecl; +function Load_TS_ACCURACY_set_seconds(a: PTS_ACCURACY; const seconds: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_TS_ACCURACY_get_seconds(const a: PTS_ACCURACY): PASN1_INTEGER; cdecl; +function Load_TS_ACCURACY_set_millis(a: PTS_ACCURACY; const millis: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_TS_ACCURACY_get_millis(const a: PTS_ACCURACY): PASN1_INTEGER; cdecl; +function Load_TS_ACCURACY_set_micros(a: PTS_ACCURACY; const micros: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_TS_ACCURACY_get_micros(const a: PTS_ACCURACY): PASN1_INTEGER; cdecl; +function Load_TS_TST_INFO_set_ordering(a: PTS_TST_Info; ordering: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_TS_TST_INFO_get_ordering(const a: PTS_TST_Info): TOpenSSL_C_INT; cdecl; +function Load_TS_TST_INFO_set_nonce(a: PTS_TST_Info; const nonce: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_TS_TST_INFO_get_nonce(const a: PTS_TST_INFO): PASN1_INTEGER; cdecl; +function Load_TS_TST_INFO_set_tsa(a: PTS_TST_Info; tsa: PGENERAL_NAME): TOpenSSL_C_INT; cdecl; +function Load_TS_TST_INFO_get_tsa(a: PTS_TST_Info): PGENERAL_NAME; cdecl; +procedure Load_TS_TST_INFO_ext_free(a: PTS_TST_Info); cdecl; +function Load_TS_TST_INFO_get_ext_count(a: PTS_TST_Info): TOpenSSL_C_INT; cdecl; +function Load_TS_TST_INFO_get_ext_by_NID(a: PTS_TST_Info; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_TS_TST_INFO_get_ext_by_OBJ(a: PTS_TST_Info; const obj: PASN1_Object; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_TS_TST_INFO_get_ext_by_critical(a: PTS_TST_Info; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_TS_TST_INFO_get_ext(a: PTS_TST_Info; loc: TOpenSSL_C_INT): PX509_Extension; cdecl; +function Load_TS_TST_INFO_delete_ext(a: PTS_TST_Info; loc: TOpenSSL_C_INT): PX509_Extension; cdecl; +function Load_TS_TST_INFO_add_ext(a: PTS_TST_Info; ex: PX509_Extension; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_TS_TST_INFO_get_ext_d2i(a: PTS_TST_Info; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl; +function Load_TS_RESP_CTX_new: PTS_RESP_CTX; cdecl; +procedure Load_TS_RESP_CTX_free(ctx: PTS_RESP_CTX); cdecl; +function Load_TS_RESP_CTX_set_signer_cert(ctx: PTS_RESP_CTX; signer: PX509): TOpenSSL_C_INT; cdecl; +function Load_TS_RESP_CTX_set_signer_key(ctx: PTS_RESP_CTX; key: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_TS_RESP_CTX_set_signer_digest(ctx: PTS_RESP_CTX; signer_digest: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_TS_RESP_CTX_set_ess_cert_id_digest(ctx: PTS_RESP_CTX; md: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_TS_RESP_CTX_set_def_policy(ctx: PTS_RESP_CTX; def_policy: PASN1_Object): TOpenSSL_C_INT; cdecl; +function Load_TS_RESP_CTX_add_policy(ctx: PTS_RESP_CTX; const policy: PASN1_Object): TOpenSSL_C_INT; cdecl; +function Load_TS_RESP_CTX_add_md(ctx: PTS_RESP_CTX; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_TS_RESP_CTX_set_accuracy(ctx: PTS_RESP_CTX; secs: TOpenSSL_C_INT; millis: TOpenSSL_C_INT; micros: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_TS_RESP_CTX_set_clock_precision_digits(ctx: PTS_RESP_CTX; clock_precision_digits: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +procedure Load_TS_RESP_CTX_add_flags(ctx: PTS_RESP_CTX; flags: TOpenSSL_C_INT); cdecl; +procedure Load_TS_RESP_CTX_set_serial_cb(ctx: PTS_RESP_CTX; cb: TS_serial_cb; data: Pointer); cdecl; +procedure Load_TS_RESP_CTX_set_time_cb(ctx: PTS_RESP_CTX; cb: TS_time_cb; data: Pointer); cdecl; +procedure Load_TS_RESP_CTX_set_extension_cb(ctx: PTS_RESP_CTX; cb: TS_extension_cb; data: Pointer); cdecl; +function Load_TS_RESP_CTX_set_status_info(ctx: PTS_RESP_CTX; status: TOpenSSL_C_INT; text: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_TS_RESP_CTX_set_status_info_cond(ctx: PTS_RESP_CTX; status: TOpenSSL_C_INT; text: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_TS_RESP_CTX_add_failure_info(ctx: PTS_RESP_CTX; failure: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_TS_RESP_CTX_get_request(ctx: PTS_RESP_CTX): PTS_REQ; cdecl; +function Load_TS_RESP_CTX_get_tst_info(ctx: PTS_RESP_CTX): PTS_TST_Info; cdecl; +function Load_TS_RESP_create_response(ctx: PTS_RESP_CTX; req_bio: PBIO): PTS_RESP; cdecl; +function Load_TS_RESP_verify_response(ctx: PTS_VERIFY_CTX; response: PTS_RESP): TOpenSSL_C_INT; cdecl; +function Load_TS_RESP_verify_token(ctx: PTS_VERIFY_CTX; token: PPKCS7): TOpenSSL_C_INT; cdecl; +function Load_TS_VERIFY_CTX_new: PTS_VERIFY_CTX; cdecl; +procedure Load_TS_VERIFY_CTX_init(ctx: PTS_VERIFY_CTX); cdecl; +procedure Load_TS_VERIFY_CTX_free(ctx: PTS_VERIFY_CTX); cdecl; +procedure Load_TS_VERIFY_CTX_cleanup(ctx: PTS_VERIFY_CTX); cdecl; +function Load_TS_VERIFY_CTX_set_flags(ctx: PTS_VERIFY_CTX; f: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_TS_VERIFY_CTX_add_flags(ctx: PTS_VERIFY_CTX; f: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_TS_VERIFY_CTX_set_data(ctx: PTS_VERIFY_CTX; b: PBIO): PBIO; cdecl; +function Load_TS_VERIFY_CTX_set_imprint(ctx: PTS_VERIFY_CTX; hexstr: PByte; len: TOpenSSL_C_LONG): PByte; cdecl; +function Load_TS_VERIFY_CTX_set_store(ctx: PTS_VERIFY_CTX; s: PX509_Store): PX509_Store; cdecl; +function Load_TS_REQ_to_TS_VERIFY_CTX(req: PTS_REQ; ctx: PTS_VERIFY_CTX): PTS_VERIFY_CTX; cdecl; +function Load_TS_RESP_print_bio(bio: PBIO; a: PTS_RESP): TOpenSSL_C_INT; cdecl; +function Load_TS_STATUS_INFO_print_bio(bio: PBIO; a: PTS_STATUS_INFO): TOpenSSL_C_INT; cdecl; +function Load_TS_TST_INFO_print_bio(bio: PBIO; a: PTS_TST_Info): TOpenSSL_C_INT; cdecl; +function Load_TS_ASN1_INTEGER_print_bio(bio: PBIO; const num: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_TS_OBJ_print_bio(bio: PBIO; const obj: PASN1_Object): TOpenSSL_C_INT; cdecl; +function Load_TS_X509_ALGOR_print_bio(bio: PBIO; const alg: PX509_ALGOr): TOpenSSL_C_INT; cdecl; +function Load_TS_MSG_IMPRINT_print_bio(bio: PBIO; msg: PTS_MSG_IMPRINT): TOpenSSL_C_INT; cdecl; +function Load_TS_CONF_load_cert(file_: PAnsiChar): PX509; cdecl; +function Load_TS_CONF_load_key( file_: PAnsiChar; pass: PAnsiChar): PEVP_PKey; cdecl; +function Load_TS_CONF_set_serial(conf: PCONF; section: PAnsiChar; cb: TS_serial_cb; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +function Load_TS_CONF_get_tsa_section(conf: PCONF; const section: PAnsiChar): PAnsiChar; cdecl; +function Load_TS_CONF_set_crypto_device(conf: PCONF; section: PAnsiChar; device: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_TS_CONF_set_default_engine(name: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_TS_CONF_set_signer_cert(conf: PCONF; section: PAnsiChar; cert: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +function Load_TS_CONF_set_certs(conf: PCONF; section: PAnsiChar; certs: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +function Load_TS_CONF_set_signer_key(conf: PCONF; const section: PAnsiChar; key: PAnsiChar; pass: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +function Load_TS_CONF_set_signer_digest(conf: PCONF; section: PAnsiChar; md: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +function Load_TS_CONF_set_def_policy(conf: PCONF; section: PAnsiChar; policy: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +function Load_TS_CONF_set_policies(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +function Load_TS_CONF_set_digests(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +function Load_TS_CONF_set_accuracy(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +function Load_TS_CONF_set_clock_precision_digits(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +function Load_TS_CONF_set_ordering(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +function Load_TS_CONF_set_tsa_name(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +function Load_TS_CONF_set_ess_cert_id_chain(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +function Load_TS_CONF_set_ess_cert_id_digest(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; + +var + TS_REQ_new: function : PTS_REQ; cdecl = Load_TS_REQ_new; + TS_REQ_free: procedure (a: PTS_REQ); cdecl = Load_TS_REQ_free; + i2d_TS_REQ: function (a: PTS_REQ; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_TS_REQ; + d2i_TS_REQ: function (a: PPTS_REQ; pp: PPByte; length: TOpenSSL_C_LONG): PTS_REQ; cdecl = Load_d2i_TS_REQ; + TS_REQ_dup: function (a: PTS_REQ): PTS_REQ; cdecl = Load_TS_REQ_dup; + d2i_TS_REQ_bio: function (fp: PBIO; a: PPTS_REQ): PTS_REQ; cdecl = Load_d2i_TS_REQ_bio; + i2d_TS_REQ_bio: function (fp: PBIO; a: PTS_REQ): TOpenSSL_C_INT; cdecl = Load_i2d_TS_REQ_bio; + TS_MSG_IMPRINT_new: function : PTS_MSG_IMPRINT; cdecl = Load_TS_MSG_IMPRINT_new; + TS_MSG_IMPRINT_free: procedure (a: PTS_MSG_IMPRINT); cdecl = Load_TS_MSG_IMPRINT_free; + i2d_TS_MSG_IMPRINT: function (a: PTS_MSG_IMPRINT; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_TS_MSG_IMPRINT; + d2i_TS_MSG_IMPRINT: function (a: PPTS_MSG_IMPRINT; pp: PPByte; length: TOpenSSL_C_LONG): PTS_MSG_IMPRINT; cdecl = Load_d2i_TS_MSG_IMPRINT; + TS_MSG_IMPRINT_dup: function (a: PTS_MSG_IMPRINT): PTS_MSG_IMPRINT; cdecl = Load_TS_MSG_IMPRINT_dup; + d2i_TS_MSG_IMPRINT_bio: function (bio: PBIO; a: PPTS_MSG_IMPRINT): PTS_MSG_IMPRINT; cdecl = Load_d2i_TS_MSG_IMPRINT_bio; + i2d_TS_MSG_IMPRINT_bio: function (bio: PBIO; a: PTS_MSG_IMPRINT): TOpenSSL_C_INT; cdecl = Load_i2d_TS_MSG_IMPRINT_bio; + TS_RESP_new: function : PTS_RESP; cdecl = Load_TS_RESP_new; + TS_RESP_free: procedure (a: PTS_RESP); cdecl = Load_TS_RESP_free; + i2d_TS_RESP: function (a: PTS_RESP; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_TS_RESP; + d2i_TS_RESP: function (a: PPTS_RESP; pp: PPByte; length: TOpenSSL_C_LONG): PTS_RESP; cdecl = Load_d2i_TS_RESP; + PKCS7_to_TS_TST_INFO: function (token: PPKCS7): PTS_TST_Info; cdecl = Load_PKCS7_to_TS_TST_INFO; + TS_RESP_dup: function (a: PTS_RESP): PTS_RESP; cdecl = Load_TS_RESP_dup; + d2i_TS_RESP_bio: function (bio: PBIO; a: PPTS_RESP): PTS_RESP; cdecl = Load_d2i_TS_RESP_bio; + i2d_TS_RESP_bio: function (bio: PBIO; a: PTS_RESP): TOpenSSL_C_INT; cdecl = Load_i2d_TS_RESP_bio; + TS_STATUS_INFO_new: function : PTS_STATUS_INFO; cdecl = Load_TS_STATUS_INFO_new; + TS_STATUS_INFO_free: procedure (a: PTS_STATUS_INFO); cdecl = Load_TS_STATUS_INFO_free; + i2d_TS_STATUS_INFO: function (a: PTS_STATUS_INFO; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_TS_STATUS_INFO; + d2i_TS_STATUS_INFO: function (a: PPTS_STATUS_INFO; pp: PPByte; length: TOpenSSL_C_LONG): PTS_STATUS_INFO; cdecl = Load_d2i_TS_STATUS_INFO; + TS_STATUS_INFO_dup: function (a: PTS_STATUS_INFO): PTS_STATUS_INFO; cdecl = Load_TS_STATUS_INFO_dup; + TS_TST_INFO_new: function : PTS_TST_Info; cdecl = Load_TS_TST_INFO_new; + TS_TST_INFO_free: procedure (a: PTS_TST_Info); cdecl = Load_TS_TST_INFO_free; + i2d_TS_TST_INFO: function (a: PTS_TST_Info; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_TS_TST_INFO; + d2i_TS_TST_INFO: function (a: PPTS_TST_Info; pp: PPByte; length: TOpenSSL_C_LONG): PTS_TST_Info; cdecl = Load_d2i_TS_TST_INFO; + TS_TST_INFO_dup: function (a: PTS_TST_Info): PTS_TST_Info; cdecl = Load_TS_TST_INFO_dup; + d2i_TS_TST_INFO_bio: function (bio: PBIO; a: PPTS_TST_Info): PTS_TST_Info; cdecl = Load_d2i_TS_TST_INFO_bio; + i2d_TS_TST_INFO_bio: function (bio: PBIO; a: PTS_TST_Info): TOpenSSL_C_INT; cdecl = Load_i2d_TS_TST_INFO_bio; + TS_ACCURACY_new: function : PTS_ACCURACY; cdecl = Load_TS_ACCURACY_new; + TS_ACCURACY_free: procedure (a: PTS_ACCURACY); cdecl = Load_TS_ACCURACY_free; + i2d_TS_ACCURACY: function (a: PTS_ACCURACY; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_TS_ACCURACY; + d2i_TS_ACCURACY: function (a: PPTS_ACCURACY; pp: PPByte; length: TOpenSSL_C_LONG): PTS_ACCURACY; cdecl = Load_d2i_TS_ACCURACY; + TS_ACCURACY_dup: function (a: PTS_ACCURACY): PTS_ACCURACY; cdecl = Load_TS_ACCURACY_dup; + ESS_ISSUER_SERIAL_new: function : PESS_ISSUER_SERIAL; cdecl = Load_ESS_ISSUER_SERIAL_new; + ESS_ISSUER_SERIAL_free: procedure (a: PESS_ISSUER_SERIAL); cdecl = Load_ESS_ISSUER_SERIAL_free; + i2d_ESS_ISSUER_SERIAL: function ( a: PESS_ISSUER_SERIAL; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_ESS_ISSUER_SERIAL; + d2i_ESS_ISSUER_SERIAL: function (a: PPESS_ISSUER_SERIAL; pp: PPByte; length: TOpenSSL_C_LONG): PESS_ISSUER_SERIAL; cdecl = Load_d2i_ESS_ISSUER_SERIAL; + ESS_ISSUER_SERIAL_dup: function (a: PESS_ISSUER_SERIAL): PESS_ISSUER_SERIAL; cdecl = Load_ESS_ISSUER_SERIAL_dup; + ESS_CERT_ID_new: function : PESS_CERT_ID; cdecl = Load_ESS_CERT_ID_new; + ESS_CERT_ID_free: procedure (a: PESS_CERT_ID); cdecl = Load_ESS_CERT_ID_free; + i2d_ESS_CERT_ID: function (a: PESS_CERT_ID; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_ESS_CERT_ID; + d2i_ESS_CERT_ID: function (a: PPESS_CERT_ID; pp: PPByte; length: TOpenSSL_C_LONG): PESS_CERT_ID; cdecl = Load_d2i_ESS_CERT_ID; + ESS_CERT_ID_dup: function (a: PESS_CERT_ID): PESS_CERT_ID; cdecl = Load_ESS_CERT_ID_dup; + ESS_SIGNING_CERT_new: function : PESS_SIGNING_Cert; cdecl = Load_ESS_SIGNING_CERT_new; + ESS_SIGNING_CERT_free: procedure (a: PESS_SIGNING_Cert); cdecl = Load_ESS_SIGNING_CERT_free; + i2d_ESS_SIGNING_CERT: function ( a: PESS_SIGNING_Cert; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_ESS_SIGNING_CERT; + d2i_ESS_SIGNING_CERT: function (a: PPESS_SIGNING_Cert; pp: PPByte; length: TOpenSSL_C_LONG): PESS_SIGNING_Cert; cdecl = Load_d2i_ESS_SIGNING_CERT; + ESS_SIGNING_CERT_dup: function (a: PESS_SIGNING_Cert): PESS_SIGNING_Cert; cdecl = Load_ESS_SIGNING_CERT_dup; + ESS_CERT_ID_V2_new: function : PESS_CERT_ID_V2; cdecl = Load_ESS_CERT_ID_V2_new; + ESS_CERT_ID_V2_free: procedure (a: PESS_CERT_ID_V2); cdecl = Load_ESS_CERT_ID_V2_free; + i2d_ESS_CERT_ID_V2: function ( a: PESS_CERT_ID_V2; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_ESS_CERT_ID_V2; + d2i_ESS_CERT_ID_V2: function (a: PPESS_CERT_ID_V2; pp: PPByte; length: TOpenSSL_C_LONG): PESS_CERT_ID_V2; cdecl = Load_d2i_ESS_CERT_ID_V2; + ESS_CERT_ID_V2_dup: function (a: PESS_CERT_ID_V2): PESS_CERT_ID_V2; cdecl = Load_ESS_CERT_ID_V2_dup; + ESS_SIGNING_CERT_V2_new: function : PESS_SIGNING_CERT_V2; cdecl = Load_ESS_SIGNING_CERT_V2_new; + ESS_SIGNING_CERT_V2_free: procedure (a: PESS_SIGNING_CERT_V2); cdecl = Load_ESS_SIGNING_CERT_V2_free; + i2d_ESS_SIGNING_CERT_V2: function (a: PESS_SIGNING_CERT_V2; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_ESS_SIGNING_CERT_V2; + d2i_ESS_SIGNING_CERT_V2: function (a: PPESS_SIGNING_CERT_V2; pp: PPByte; length: TOpenSSL_C_LONG): PESS_SIGNING_CERT_V2; cdecl = Load_d2i_ESS_SIGNING_CERT_V2; + ESS_SIGNING_CERT_V2_dup: function (a: PESS_SIGNING_CERT_V2): PESS_SIGNING_CERT_V2; cdecl = Load_ESS_SIGNING_CERT_V2_dup; + TS_REQ_set_version: function (a: PTS_REQ; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_TS_REQ_set_version; + TS_REQ_get_version: function (a: PTS_REQ): TOpenSSL_C_LONG; cdecl = Load_TS_REQ_get_version; + TS_STATUS_INFO_set_status: function (a: PTS_STATUS_INFO; i: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_TS_STATUS_INFO_set_status; + TS_STATUS_INFO_get0_status: function (const a: PTS_STATUS_INFO): PASN1_INTEGER; cdecl = Load_TS_STATUS_INFO_get0_status; + TS_REQ_set_msg_imprint: function (a: PTS_REQ; msg_imprint: PTS_MSG_IMPRINT): TOpenSSL_C_INT; cdecl = Load_TS_REQ_set_msg_imprint; + TS_REQ_get_msg_imprint: function (a: PTS_REQ): PTS_MSG_IMPRINT; cdecl = Load_TS_REQ_get_msg_imprint; + TS_MSG_IMPRINT_set_algo: function (a: PTS_MSG_IMPRINT; alg: PX509_ALGOr): TOpenSSL_C_INT; cdecl = Load_TS_MSG_IMPRINT_set_algo; + TS_MSG_IMPRINT_get_algo: function (a: PTS_MSG_IMPRINT): PX509_ALGOr; cdecl = Load_TS_MSG_IMPRINT_get_algo; + TS_MSG_IMPRINT_set_msg: function (a: PTS_MSG_IMPRINT; d: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_TS_MSG_IMPRINT_set_msg; + TS_MSG_IMPRINT_get_msg: function (a: PTS_MSG_IMPRINT): PASN1_OCTET_STRING; cdecl = Load_TS_MSG_IMPRINT_get_msg; + TS_REQ_set_policy_id: function (a: PTS_REQ; policy: PASN1_OBJECT): TOpenSSL_C_INT; cdecl = Load_TS_REQ_set_policy_id; + TS_REQ_get_policy_id: function (a: PTS_REQ): PASN1_OBJECT; cdecl = Load_TS_REQ_get_policy_id; + TS_REQ_set_nonce: function (a: PTS_REQ; nonce: PASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_TS_REQ_set_nonce; + TS_REQ_get_nonce: function (const a: PTS_REQ): PASN1_INTEGER; cdecl = Load_TS_REQ_get_nonce; + TS_REQ_set_cert_req: function (a: PTS_REQ; cert_req: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_TS_REQ_set_cert_req; + TS_REQ_get_cert_req: function (a: PTS_REQ): TOpenSSL_C_INT; cdecl = Load_TS_REQ_get_cert_req; + TS_REQ_ext_free: procedure (a: PTS_REQ); cdecl = Load_TS_REQ_ext_free; + TS_REQ_get_ext_count: function (a: PTS_REQ): TOpenSSL_C_INT; cdecl = Load_TS_REQ_get_ext_count; + TS_REQ_get_ext_by_NID: function (a: PTS_REQ; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_TS_REQ_get_ext_by_NID; + TS_REQ_get_ext_by_OBJ: function (a: PTS_REQ; obj: PASN1_Object; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_TS_REQ_get_ext_by_OBJ; + TS_REQ_get_ext_by_critical: function (a: PTS_REQ; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_TS_REQ_get_ext_by_critical; + TS_REQ_get_ext: function (a: PTS_REQ; loc: TOpenSSL_C_INT): PX509_Extension; cdecl = Load_TS_REQ_get_ext; + TS_REQ_delete_ext: function (a: PTS_REQ; loc: TOpenSSL_C_INT): PX509_Extension; cdecl = Load_TS_REQ_delete_ext; + TS_REQ_add_ext: function (a: PTS_REQ; ex: PX509_Extension; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_TS_REQ_add_ext; + TS_REQ_get_ext_d2i: function (a: PTS_REQ; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl = Load_TS_REQ_get_ext_d2i; + TS_REQ_print_bio: function (bio: PBIO; a: PTS_REQ): TOpenSSL_C_INT; cdecl = Load_TS_REQ_print_bio; + TS_RESP_set_status_info: function (a: PTS_RESP; info: PTS_STATUS_INFO): TOpenSSL_C_INT; cdecl = Load_TS_RESP_set_status_info; + TS_RESP_get_status_info: function (a: PTS_RESP): PTS_STATUS_INFO; cdecl = Load_TS_RESP_get_status_info; + TS_RESP_set_tst_info: procedure (a: PTS_RESP; p7: PPKCS7; tst_info: PTS_TST_Info); cdecl = Load_TS_RESP_set_tst_info; + TS_RESP_get_token: function (a: PTS_RESP): PPKCS7; cdecl = Load_TS_RESP_get_token; + TS_RESP_get_tst_info: function (a: PTS_RESP): PTS_TST_Info; cdecl = Load_TS_RESP_get_tst_info; + TS_TST_INFO_set_version: function (a: PTS_TST_Info; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_TS_TST_INFO_set_version; + TS_TST_INFO_get_version: function (const a: PTS_TST_Info): TOpenSSL_C_LONG; cdecl = Load_TS_TST_INFO_get_version; + TS_TST_INFO_set_policy_id: function (a: PTS_TST_Info; policy_id: PASN1_Object): TOpenSSL_C_INT; cdecl = Load_TS_TST_INFO_set_policy_id; + TS_TST_INFO_get_policy_id: function (a: PTS_TST_Info): PASN1_Object; cdecl = Load_TS_TST_INFO_get_policy_id; + TS_TST_INFO_set_msg_imprint: function (a: PTS_TST_Info; msg_imprint: PTS_MSG_IMPRINT): TOpenSSL_C_INT; cdecl = Load_TS_TST_INFO_set_msg_imprint; + TS_TST_INFO_get_msg_imprint: function (a: PTS_TST_Info): PTS_MSG_IMPRINT; cdecl = Load_TS_TST_INFO_get_msg_imprint; + TS_TST_INFO_set_serial: function (a: PTS_TST_Info; const serial: PASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_TS_TST_INFO_set_serial; + TS_TST_INFO_get_serial: function (const a: PTS_TST_INFO): PASN1_INTEGER; cdecl = Load_TS_TST_INFO_get_serial; + TS_TST_INFO_set_time: function (a: PTS_TST_Info; gtime: PASN1_GENERALIZEDTIME): TOpenSSL_C_INT; cdecl = Load_TS_TST_INFO_set_time; + TS_TST_INFO_get_time: function (const a: PTS_TST_INFO): PASN1_GENERALIZEDTIME; cdecl = Load_TS_TST_INFO_get_time; + TS_TST_INFO_set_accuracy: function (a: PTS_TST_Info; accuracy: PTS_ACCURACY): TOpenSSL_C_INT; cdecl = Load_TS_TST_INFO_set_accuracy; + TS_TST_INFO_get_accuracy: function (a: PTS_TST_Info): PTS_ACCURACY; cdecl = Load_TS_TST_INFO_get_accuracy; + TS_ACCURACY_set_seconds: function (a: PTS_ACCURACY; const seconds: PASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_TS_ACCURACY_set_seconds; + TS_ACCURACY_get_seconds: function (const a: PTS_ACCURACY): PASN1_INTEGER; cdecl = Load_TS_ACCURACY_get_seconds; + TS_ACCURACY_set_millis: function (a: PTS_ACCURACY; const millis: PASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_TS_ACCURACY_set_millis; + TS_ACCURACY_get_millis: function (const a: PTS_ACCURACY): PASN1_INTEGER; cdecl = Load_TS_ACCURACY_get_millis; + TS_ACCURACY_set_micros: function (a: PTS_ACCURACY; const micros: PASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_TS_ACCURACY_set_micros; + TS_ACCURACY_get_micros: function (const a: PTS_ACCURACY): PASN1_INTEGER; cdecl = Load_TS_ACCURACY_get_micros; + TS_TST_INFO_set_ordering: function (a: PTS_TST_Info; ordering: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_TS_TST_INFO_set_ordering; + TS_TST_INFO_get_ordering: function (const a: PTS_TST_Info): TOpenSSL_C_INT; cdecl = Load_TS_TST_INFO_get_ordering; + TS_TST_INFO_set_nonce: function (a: PTS_TST_Info; const nonce: PASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_TS_TST_INFO_set_nonce; + TS_TST_INFO_get_nonce: function (const a: PTS_TST_INFO): PASN1_INTEGER; cdecl = Load_TS_TST_INFO_get_nonce; + TS_TST_INFO_set_tsa: function (a: PTS_TST_Info; tsa: PGENERAL_NAME): TOpenSSL_C_INT; cdecl = Load_TS_TST_INFO_set_tsa; + TS_TST_INFO_get_tsa: function (a: PTS_TST_Info): PGENERAL_NAME; cdecl = Load_TS_TST_INFO_get_tsa; + TS_TST_INFO_ext_free: procedure (a: PTS_TST_Info); cdecl = Load_TS_TST_INFO_ext_free; + TS_TST_INFO_get_ext_count: function (a: PTS_TST_Info): TOpenSSL_C_INT; cdecl = Load_TS_TST_INFO_get_ext_count; + TS_TST_INFO_get_ext_by_NID: function (a: PTS_TST_Info; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_TS_TST_INFO_get_ext_by_NID; + TS_TST_INFO_get_ext_by_OBJ: function (a: PTS_TST_Info; const obj: PASN1_Object; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_TS_TST_INFO_get_ext_by_OBJ; + TS_TST_INFO_get_ext_by_critical: function (a: PTS_TST_Info; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_TS_TST_INFO_get_ext_by_critical; + TS_TST_INFO_get_ext: function (a: PTS_TST_Info; loc: TOpenSSL_C_INT): PX509_Extension; cdecl = Load_TS_TST_INFO_get_ext; + TS_TST_INFO_delete_ext: function (a: PTS_TST_Info; loc: TOpenSSL_C_INT): PX509_Extension; cdecl = Load_TS_TST_INFO_delete_ext; + TS_TST_INFO_add_ext: function (a: PTS_TST_Info; ex: PX509_Extension; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_TS_TST_INFO_add_ext; + TS_TST_INFO_get_ext_d2i: function (a: PTS_TST_Info; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl = Load_TS_TST_INFO_get_ext_d2i; + TS_RESP_CTX_new: function : PTS_RESP_CTX; cdecl = Load_TS_RESP_CTX_new; + TS_RESP_CTX_free: procedure (ctx: PTS_RESP_CTX); cdecl = Load_TS_RESP_CTX_free; + TS_RESP_CTX_set_signer_cert: function (ctx: PTS_RESP_CTX; signer: PX509): TOpenSSL_C_INT; cdecl = Load_TS_RESP_CTX_set_signer_cert; + TS_RESP_CTX_set_signer_key: function (ctx: PTS_RESP_CTX; key: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_TS_RESP_CTX_set_signer_key; + TS_RESP_CTX_set_signer_digest: function (ctx: PTS_RESP_CTX; signer_digest: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_TS_RESP_CTX_set_signer_digest; + TS_RESP_CTX_set_ess_cert_id_digest: function (ctx: PTS_RESP_CTX; md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_TS_RESP_CTX_set_ess_cert_id_digest; + TS_RESP_CTX_set_def_policy: function (ctx: PTS_RESP_CTX; def_policy: PASN1_Object): TOpenSSL_C_INT; cdecl = Load_TS_RESP_CTX_set_def_policy; + TS_RESP_CTX_add_policy: function (ctx: PTS_RESP_CTX; const policy: PASN1_Object): TOpenSSL_C_INT; cdecl = Load_TS_RESP_CTX_add_policy; + TS_RESP_CTX_add_md: function (ctx: PTS_RESP_CTX; const md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_TS_RESP_CTX_add_md; + TS_RESP_CTX_set_accuracy: function (ctx: PTS_RESP_CTX; secs: TOpenSSL_C_INT; millis: TOpenSSL_C_INT; micros: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_TS_RESP_CTX_set_accuracy; + TS_RESP_CTX_set_clock_precision_digits: function (ctx: PTS_RESP_CTX; clock_precision_digits: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_TS_RESP_CTX_set_clock_precision_digits; + TS_RESP_CTX_add_flags: procedure (ctx: PTS_RESP_CTX; flags: TOpenSSL_C_INT); cdecl = Load_TS_RESP_CTX_add_flags; + TS_RESP_CTX_set_serial_cb: procedure (ctx: PTS_RESP_CTX; cb: TS_serial_cb; data: Pointer); cdecl = Load_TS_RESP_CTX_set_serial_cb; + TS_RESP_CTX_set_time_cb: procedure (ctx: PTS_RESP_CTX; cb: TS_time_cb; data: Pointer); cdecl = Load_TS_RESP_CTX_set_time_cb; + TS_RESP_CTX_set_extension_cb: procedure (ctx: PTS_RESP_CTX; cb: TS_extension_cb; data: Pointer); cdecl = Load_TS_RESP_CTX_set_extension_cb; + TS_RESP_CTX_set_status_info: function (ctx: PTS_RESP_CTX; status: TOpenSSL_C_INT; text: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_TS_RESP_CTX_set_status_info; + TS_RESP_CTX_set_status_info_cond: function (ctx: PTS_RESP_CTX; status: TOpenSSL_C_INT; text: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_TS_RESP_CTX_set_status_info_cond; + TS_RESP_CTX_add_failure_info: function (ctx: PTS_RESP_CTX; failure: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_TS_RESP_CTX_add_failure_info; + TS_RESP_CTX_get_request: function (ctx: PTS_RESP_CTX): PTS_REQ; cdecl = Load_TS_RESP_CTX_get_request; + TS_RESP_CTX_get_tst_info: function (ctx: PTS_RESP_CTX): PTS_TST_Info; cdecl = Load_TS_RESP_CTX_get_tst_info; + TS_RESP_create_response: function (ctx: PTS_RESP_CTX; req_bio: PBIO): PTS_RESP; cdecl = Load_TS_RESP_create_response; + TS_RESP_verify_response: function (ctx: PTS_VERIFY_CTX; response: PTS_RESP): TOpenSSL_C_INT; cdecl = Load_TS_RESP_verify_response; + TS_RESP_verify_token: function (ctx: PTS_VERIFY_CTX; token: PPKCS7): TOpenSSL_C_INT; cdecl = Load_TS_RESP_verify_token; + TS_VERIFY_CTX_new: function : PTS_VERIFY_CTX; cdecl = Load_TS_VERIFY_CTX_new; + TS_VERIFY_CTX_init: procedure (ctx: PTS_VERIFY_CTX); cdecl = Load_TS_VERIFY_CTX_init; + TS_VERIFY_CTX_free: procedure (ctx: PTS_VERIFY_CTX); cdecl = Load_TS_VERIFY_CTX_free; + TS_VERIFY_CTX_cleanup: procedure (ctx: PTS_VERIFY_CTX); cdecl = Load_TS_VERIFY_CTX_cleanup; + TS_VERIFY_CTX_set_flags: function (ctx: PTS_VERIFY_CTX; f: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_TS_VERIFY_CTX_set_flags; + TS_VERIFY_CTX_add_flags: function (ctx: PTS_VERIFY_CTX; f: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_TS_VERIFY_CTX_add_flags; + TS_VERIFY_CTX_set_data: function (ctx: PTS_VERIFY_CTX; b: PBIO): PBIO; cdecl = Load_TS_VERIFY_CTX_set_data; + TS_VERIFY_CTX_set_imprint: function (ctx: PTS_VERIFY_CTX; hexstr: PByte; len: TOpenSSL_C_LONG): PByte; cdecl = Load_TS_VERIFY_CTX_set_imprint; + TS_VERIFY_CTX_set_store: function (ctx: PTS_VERIFY_CTX; s: PX509_Store): PX509_Store; cdecl = Load_TS_VERIFY_CTX_set_store; + TS_REQ_to_TS_VERIFY_CTX: function (req: PTS_REQ; ctx: PTS_VERIFY_CTX): PTS_VERIFY_CTX; cdecl = Load_TS_REQ_to_TS_VERIFY_CTX; + TS_RESP_print_bio: function (bio: PBIO; a: PTS_RESP): TOpenSSL_C_INT; cdecl = Load_TS_RESP_print_bio; + TS_STATUS_INFO_print_bio: function (bio: PBIO; a: PTS_STATUS_INFO): TOpenSSL_C_INT; cdecl = Load_TS_STATUS_INFO_print_bio; + TS_TST_INFO_print_bio: function (bio: PBIO; a: PTS_TST_Info): TOpenSSL_C_INT; cdecl = Load_TS_TST_INFO_print_bio; + TS_ASN1_INTEGER_print_bio: function (bio: PBIO; const num: PASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_TS_ASN1_INTEGER_print_bio; + TS_OBJ_print_bio: function (bio: PBIO; const obj: PASN1_Object): TOpenSSL_C_INT; cdecl = Load_TS_OBJ_print_bio; + TS_X509_ALGOR_print_bio: function (bio: PBIO; const alg: PX509_ALGOr): TOpenSSL_C_INT; cdecl = Load_TS_X509_ALGOR_print_bio; + TS_MSG_IMPRINT_print_bio: function (bio: PBIO; msg: PTS_MSG_IMPRINT): TOpenSSL_C_INT; cdecl = Load_TS_MSG_IMPRINT_print_bio; + TS_CONF_load_cert: function (file_: PAnsiChar): PX509; cdecl = Load_TS_CONF_load_cert; + TS_CONF_load_key: function ( file_: PAnsiChar; pass: PAnsiChar): PEVP_PKey; cdecl = Load_TS_CONF_load_key; + TS_CONF_set_serial: function (conf: PCONF; section: PAnsiChar; cb: TS_serial_cb; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl = Load_TS_CONF_set_serial; + TS_CONF_get_tsa_section: function (conf: PCONF; const section: PAnsiChar): PAnsiChar; cdecl = Load_TS_CONF_get_tsa_section; + TS_CONF_set_crypto_device: function (conf: PCONF; section: PAnsiChar; device: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_TS_CONF_set_crypto_device; + TS_CONF_set_default_engine: function (name: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_TS_CONF_set_default_engine; + TS_CONF_set_signer_cert: function (conf: PCONF; section: PAnsiChar; cert: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl = Load_TS_CONF_set_signer_cert; + TS_CONF_set_certs: function (conf: PCONF; section: PAnsiChar; certs: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl = Load_TS_CONF_set_certs; + TS_CONF_set_signer_key: function (conf: PCONF; const section: PAnsiChar; key: PAnsiChar; pass: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl = Load_TS_CONF_set_signer_key; + TS_CONF_set_signer_digest: function (conf: PCONF; section: PAnsiChar; md: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl = Load_TS_CONF_set_signer_digest; + TS_CONF_set_def_policy: function (conf: PCONF; section: PAnsiChar; policy: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl = Load_TS_CONF_set_def_policy; + TS_CONF_set_policies: function (conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl = Load_TS_CONF_set_policies; + TS_CONF_set_digests: function (conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl = Load_TS_CONF_set_digests; + TS_CONF_set_accuracy: function (conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl = Load_TS_CONF_set_accuracy; + TS_CONF_set_clock_precision_digits: function (conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl = Load_TS_CONF_set_clock_precision_digits; + TS_CONF_set_ordering: function (conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl = Load_TS_CONF_set_ordering; + TS_CONF_set_tsa_name: function (conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl = Load_TS_CONF_set_tsa_name; + TS_CONF_set_ess_cert_id_chain: function (conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl = Load_TS_CONF_set_ess_cert_id_chain; + TS_CONF_set_ess_cert_id_digest: function (conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl = Load_TS_CONF_set_ess_cert_id_digest; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_TS_REQ_new: PTS_REQ; cdecl; +begin + TS_REQ_new := LoadLibCryptoFunction('TS_REQ_new'); + if not assigned(TS_REQ_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_new'); + Result := TS_REQ_new(); +end; + +procedure Load_TS_REQ_free(a: PTS_REQ); cdecl; +begin + TS_REQ_free := LoadLibCryptoFunction('TS_REQ_free'); + if not assigned(TS_REQ_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_free'); + TS_REQ_free(a); +end; + +function Load_i2d_TS_REQ(a: PTS_REQ; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_TS_REQ := LoadLibCryptoFunction('i2d_TS_REQ'); + if not assigned(i2d_TS_REQ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_TS_REQ'); + Result := i2d_TS_REQ(a,pp); +end; + +function Load_d2i_TS_REQ(a: PPTS_REQ; pp: PPByte; length: TOpenSSL_C_LONG): PTS_REQ; cdecl; +begin + d2i_TS_REQ := LoadLibCryptoFunction('d2i_TS_REQ'); + if not assigned(d2i_TS_REQ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_TS_REQ'); + Result := d2i_TS_REQ(a,pp,length); +end; + +function Load_TS_REQ_dup(a: PTS_REQ): PTS_REQ; cdecl; +begin + TS_REQ_dup := LoadLibCryptoFunction('TS_REQ_dup'); + if not assigned(TS_REQ_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_dup'); + Result := TS_REQ_dup(a); +end; + +function Load_d2i_TS_REQ_bio(fp: PBIO; a: PPTS_REQ): PTS_REQ; cdecl; +begin + d2i_TS_REQ_bio := LoadLibCryptoFunction('d2i_TS_REQ_bio'); + if not assigned(d2i_TS_REQ_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_TS_REQ_bio'); + Result := d2i_TS_REQ_bio(fp,a); +end; + +function Load_i2d_TS_REQ_bio(fp: PBIO; a: PTS_REQ): TOpenSSL_C_INT; cdecl; +begin + i2d_TS_REQ_bio := LoadLibCryptoFunction('i2d_TS_REQ_bio'); + if not assigned(i2d_TS_REQ_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_TS_REQ_bio'); + Result := i2d_TS_REQ_bio(fp,a); +end; + +function Load_TS_MSG_IMPRINT_new: PTS_MSG_IMPRINT; cdecl; +begin + TS_MSG_IMPRINT_new := LoadLibCryptoFunction('TS_MSG_IMPRINT_new'); + if not assigned(TS_MSG_IMPRINT_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_MSG_IMPRINT_new'); + Result := TS_MSG_IMPRINT_new(); +end; + +procedure Load_TS_MSG_IMPRINT_free(a: PTS_MSG_IMPRINT); cdecl; +begin + TS_MSG_IMPRINT_free := LoadLibCryptoFunction('TS_MSG_IMPRINT_free'); + if not assigned(TS_MSG_IMPRINT_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_MSG_IMPRINT_free'); + TS_MSG_IMPRINT_free(a); +end; + +function Load_i2d_TS_MSG_IMPRINT(a: PTS_MSG_IMPRINT; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_TS_MSG_IMPRINT := LoadLibCryptoFunction('i2d_TS_MSG_IMPRINT'); + if not assigned(i2d_TS_MSG_IMPRINT) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_TS_MSG_IMPRINT'); + Result := i2d_TS_MSG_IMPRINT(a,pp); +end; + +function Load_d2i_TS_MSG_IMPRINT(a: PPTS_MSG_IMPRINT; pp: PPByte; length: TOpenSSL_C_LONG): PTS_MSG_IMPRINT; cdecl; +begin + d2i_TS_MSG_IMPRINT := LoadLibCryptoFunction('d2i_TS_MSG_IMPRINT'); + if not assigned(d2i_TS_MSG_IMPRINT) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_TS_MSG_IMPRINT'); + Result := d2i_TS_MSG_IMPRINT(a,pp,length); +end; + +function Load_TS_MSG_IMPRINT_dup(a: PTS_MSG_IMPRINT): PTS_MSG_IMPRINT; cdecl; +begin + TS_MSG_IMPRINT_dup := LoadLibCryptoFunction('TS_MSG_IMPRINT_dup'); + if not assigned(TS_MSG_IMPRINT_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_MSG_IMPRINT_dup'); + Result := TS_MSG_IMPRINT_dup(a); +end; + +function Load_d2i_TS_MSG_IMPRINT_bio(bio: PBIO; a: PPTS_MSG_IMPRINT): PTS_MSG_IMPRINT; cdecl; +begin + d2i_TS_MSG_IMPRINT_bio := LoadLibCryptoFunction('d2i_TS_MSG_IMPRINT_bio'); + if not assigned(d2i_TS_MSG_IMPRINT_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_TS_MSG_IMPRINT_bio'); + Result := d2i_TS_MSG_IMPRINT_bio(bio,a); +end; + +function Load_i2d_TS_MSG_IMPRINT_bio(bio: PBIO; a: PTS_MSG_IMPRINT): TOpenSSL_C_INT; cdecl; +begin + i2d_TS_MSG_IMPRINT_bio := LoadLibCryptoFunction('i2d_TS_MSG_IMPRINT_bio'); + if not assigned(i2d_TS_MSG_IMPRINT_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_TS_MSG_IMPRINT_bio'); + Result := i2d_TS_MSG_IMPRINT_bio(bio,a); +end; + +function Load_TS_RESP_new: PTS_RESP; cdecl; +begin + TS_RESP_new := LoadLibCryptoFunction('TS_RESP_new'); + if not assigned(TS_RESP_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_new'); + Result := TS_RESP_new(); +end; + +procedure Load_TS_RESP_free(a: PTS_RESP); cdecl; +begin + TS_RESP_free := LoadLibCryptoFunction('TS_RESP_free'); + if not assigned(TS_RESP_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_free'); + TS_RESP_free(a); +end; + +function Load_i2d_TS_RESP(a: PTS_RESP; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_TS_RESP := LoadLibCryptoFunction('i2d_TS_RESP'); + if not assigned(i2d_TS_RESP) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_TS_RESP'); + Result := i2d_TS_RESP(a,pp); +end; + +function Load_d2i_TS_RESP(a: PPTS_RESP; pp: PPByte; length: TOpenSSL_C_LONG): PTS_RESP; cdecl; +begin + d2i_TS_RESP := LoadLibCryptoFunction('d2i_TS_RESP'); + if not assigned(d2i_TS_RESP) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_TS_RESP'); + Result := d2i_TS_RESP(a,pp,length); +end; + +function Load_PKCS7_to_TS_TST_INFO(token: PPKCS7): PTS_TST_Info; cdecl; +begin + PKCS7_to_TS_TST_INFO := LoadLibCryptoFunction('PKCS7_to_TS_TST_INFO'); + if not assigned(PKCS7_to_TS_TST_INFO) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS7_to_TS_TST_INFO'); + Result := PKCS7_to_TS_TST_INFO(token); +end; + +function Load_TS_RESP_dup(a: PTS_RESP): PTS_RESP; cdecl; +begin + TS_RESP_dup := LoadLibCryptoFunction('TS_RESP_dup'); + if not assigned(TS_RESP_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_dup'); + Result := TS_RESP_dup(a); +end; + +function Load_d2i_TS_RESP_bio(bio: PBIO; a: PPTS_RESP): PTS_RESP; cdecl; +begin + d2i_TS_RESP_bio := LoadLibCryptoFunction('d2i_TS_RESP_bio'); + if not assigned(d2i_TS_RESP_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_TS_RESP_bio'); + Result := d2i_TS_RESP_bio(bio,a); +end; + +function Load_i2d_TS_RESP_bio(bio: PBIO; a: PTS_RESP): TOpenSSL_C_INT; cdecl; +begin + i2d_TS_RESP_bio := LoadLibCryptoFunction('i2d_TS_RESP_bio'); + if not assigned(i2d_TS_RESP_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_TS_RESP_bio'); + Result := i2d_TS_RESP_bio(bio,a); +end; + +function Load_TS_STATUS_INFO_new: PTS_STATUS_INFO; cdecl; +begin + TS_STATUS_INFO_new := LoadLibCryptoFunction('TS_STATUS_INFO_new'); + if not assigned(TS_STATUS_INFO_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_STATUS_INFO_new'); + Result := TS_STATUS_INFO_new(); +end; + +procedure Load_TS_STATUS_INFO_free(a: PTS_STATUS_INFO); cdecl; +begin + TS_STATUS_INFO_free := LoadLibCryptoFunction('TS_STATUS_INFO_free'); + if not assigned(TS_STATUS_INFO_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_STATUS_INFO_free'); + TS_STATUS_INFO_free(a); +end; + +function Load_i2d_TS_STATUS_INFO(a: PTS_STATUS_INFO; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_TS_STATUS_INFO := LoadLibCryptoFunction('i2d_TS_STATUS_INFO'); + if not assigned(i2d_TS_STATUS_INFO) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_TS_STATUS_INFO'); + Result := i2d_TS_STATUS_INFO(a,pp); +end; + +function Load_d2i_TS_STATUS_INFO(a: PPTS_STATUS_INFO; pp: PPByte; length: TOpenSSL_C_LONG): PTS_STATUS_INFO; cdecl; +begin + d2i_TS_STATUS_INFO := LoadLibCryptoFunction('d2i_TS_STATUS_INFO'); + if not assigned(d2i_TS_STATUS_INFO) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_TS_STATUS_INFO'); + Result := d2i_TS_STATUS_INFO(a,pp,length); +end; + +function Load_TS_STATUS_INFO_dup(a: PTS_STATUS_INFO): PTS_STATUS_INFO; cdecl; +begin + TS_STATUS_INFO_dup := LoadLibCryptoFunction('TS_STATUS_INFO_dup'); + if not assigned(TS_STATUS_INFO_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_STATUS_INFO_dup'); + Result := TS_STATUS_INFO_dup(a); +end; + +function Load_TS_TST_INFO_new: PTS_TST_Info; cdecl; +begin + TS_TST_INFO_new := LoadLibCryptoFunction('TS_TST_INFO_new'); + if not assigned(TS_TST_INFO_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_new'); + Result := TS_TST_INFO_new(); +end; + +procedure Load_TS_TST_INFO_free(a: PTS_TST_Info); cdecl; +begin + TS_TST_INFO_free := LoadLibCryptoFunction('TS_TST_INFO_free'); + if not assigned(TS_TST_INFO_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_free'); + TS_TST_INFO_free(a); +end; + +function Load_i2d_TS_TST_INFO(a: PTS_TST_Info; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_TS_TST_INFO := LoadLibCryptoFunction('i2d_TS_TST_INFO'); + if not assigned(i2d_TS_TST_INFO) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_TS_TST_INFO'); + Result := i2d_TS_TST_INFO(a,pp); +end; + +function Load_d2i_TS_TST_INFO(a: PPTS_TST_Info; pp: PPByte; length: TOpenSSL_C_LONG): PTS_TST_Info; cdecl; +begin + d2i_TS_TST_INFO := LoadLibCryptoFunction('d2i_TS_TST_INFO'); + if not assigned(d2i_TS_TST_INFO) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_TS_TST_INFO'); + Result := d2i_TS_TST_INFO(a,pp,length); +end; + +function Load_TS_TST_INFO_dup(a: PTS_TST_Info): PTS_TST_Info; cdecl; +begin + TS_TST_INFO_dup := LoadLibCryptoFunction('TS_TST_INFO_dup'); + if not assigned(TS_TST_INFO_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_dup'); + Result := TS_TST_INFO_dup(a); +end; + +function Load_d2i_TS_TST_INFO_bio(bio: PBIO; a: PPTS_TST_Info): PTS_TST_Info; cdecl; +begin + d2i_TS_TST_INFO_bio := LoadLibCryptoFunction('d2i_TS_TST_INFO_bio'); + if not assigned(d2i_TS_TST_INFO_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_TS_TST_INFO_bio'); + Result := d2i_TS_TST_INFO_bio(bio,a); +end; + +function Load_i2d_TS_TST_INFO_bio(bio: PBIO; a: PTS_TST_Info): TOpenSSL_C_INT; cdecl; +begin + i2d_TS_TST_INFO_bio := LoadLibCryptoFunction('i2d_TS_TST_INFO_bio'); + if not assigned(i2d_TS_TST_INFO_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_TS_TST_INFO_bio'); + Result := i2d_TS_TST_INFO_bio(bio,a); +end; + +function Load_TS_ACCURACY_new: PTS_ACCURACY; cdecl; +begin + TS_ACCURACY_new := LoadLibCryptoFunction('TS_ACCURACY_new'); + if not assigned(TS_ACCURACY_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_ACCURACY_new'); + Result := TS_ACCURACY_new(); +end; + +procedure Load_TS_ACCURACY_free(a: PTS_ACCURACY); cdecl; +begin + TS_ACCURACY_free := LoadLibCryptoFunction('TS_ACCURACY_free'); + if not assigned(TS_ACCURACY_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_ACCURACY_free'); + TS_ACCURACY_free(a); +end; + +function Load_i2d_TS_ACCURACY(a: PTS_ACCURACY; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_TS_ACCURACY := LoadLibCryptoFunction('i2d_TS_ACCURACY'); + if not assigned(i2d_TS_ACCURACY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_TS_ACCURACY'); + Result := i2d_TS_ACCURACY(a,pp); +end; + +function Load_d2i_TS_ACCURACY(a: PPTS_ACCURACY; pp: PPByte; length: TOpenSSL_C_LONG): PTS_ACCURACY; cdecl; +begin + d2i_TS_ACCURACY := LoadLibCryptoFunction('d2i_TS_ACCURACY'); + if not assigned(d2i_TS_ACCURACY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_TS_ACCURACY'); + Result := d2i_TS_ACCURACY(a,pp,length); +end; + +function Load_TS_ACCURACY_dup(a: PTS_ACCURACY): PTS_ACCURACY; cdecl; +begin + TS_ACCURACY_dup := LoadLibCryptoFunction('TS_ACCURACY_dup'); + if not assigned(TS_ACCURACY_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_ACCURACY_dup'); + Result := TS_ACCURACY_dup(a); +end; + +function Load_ESS_ISSUER_SERIAL_new: PESS_ISSUER_SERIAL; cdecl; +begin + ESS_ISSUER_SERIAL_new := LoadLibCryptoFunction('ESS_ISSUER_SERIAL_new'); + if not assigned(ESS_ISSUER_SERIAL_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ESS_ISSUER_SERIAL_new'); + Result := ESS_ISSUER_SERIAL_new(); +end; + +procedure Load_ESS_ISSUER_SERIAL_free(a: PESS_ISSUER_SERIAL); cdecl; +begin + ESS_ISSUER_SERIAL_free := LoadLibCryptoFunction('ESS_ISSUER_SERIAL_free'); + if not assigned(ESS_ISSUER_SERIAL_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ESS_ISSUER_SERIAL_free'); + ESS_ISSUER_SERIAL_free(a); +end; + +function Load_i2d_ESS_ISSUER_SERIAL( a: PESS_ISSUER_SERIAL; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_ESS_ISSUER_SERIAL := LoadLibCryptoFunction('i2d_ESS_ISSUER_SERIAL'); + if not assigned(i2d_ESS_ISSUER_SERIAL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_ESS_ISSUER_SERIAL'); + Result := i2d_ESS_ISSUER_SERIAL(a,pp); +end; + +function Load_d2i_ESS_ISSUER_SERIAL(a: PPESS_ISSUER_SERIAL; pp: PPByte; length: TOpenSSL_C_LONG): PESS_ISSUER_SERIAL; cdecl; +begin + d2i_ESS_ISSUER_SERIAL := LoadLibCryptoFunction('d2i_ESS_ISSUER_SERIAL'); + if not assigned(d2i_ESS_ISSUER_SERIAL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_ESS_ISSUER_SERIAL'); + Result := d2i_ESS_ISSUER_SERIAL(a,pp,length); +end; + +function Load_ESS_ISSUER_SERIAL_dup(a: PESS_ISSUER_SERIAL): PESS_ISSUER_SERIAL; cdecl; +begin + ESS_ISSUER_SERIAL_dup := LoadLibCryptoFunction('ESS_ISSUER_SERIAL_dup'); + if not assigned(ESS_ISSUER_SERIAL_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ESS_ISSUER_SERIAL_dup'); + Result := ESS_ISSUER_SERIAL_dup(a); +end; + +function Load_ESS_CERT_ID_new: PESS_CERT_ID; cdecl; +begin + ESS_CERT_ID_new := LoadLibCryptoFunction('ESS_CERT_ID_new'); + if not assigned(ESS_CERT_ID_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ESS_CERT_ID_new'); + Result := ESS_CERT_ID_new(); +end; + +procedure Load_ESS_CERT_ID_free(a: PESS_CERT_ID); cdecl; +begin + ESS_CERT_ID_free := LoadLibCryptoFunction('ESS_CERT_ID_free'); + if not assigned(ESS_CERT_ID_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ESS_CERT_ID_free'); + ESS_CERT_ID_free(a); +end; + +function Load_i2d_ESS_CERT_ID(a: PESS_CERT_ID; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_ESS_CERT_ID := LoadLibCryptoFunction('i2d_ESS_CERT_ID'); + if not assigned(i2d_ESS_CERT_ID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_ESS_CERT_ID'); + Result := i2d_ESS_CERT_ID(a,pp); +end; + +function Load_d2i_ESS_CERT_ID(a: PPESS_CERT_ID; pp: PPByte; length: TOpenSSL_C_LONG): PESS_CERT_ID; cdecl; +begin + d2i_ESS_CERT_ID := LoadLibCryptoFunction('d2i_ESS_CERT_ID'); + if not assigned(d2i_ESS_CERT_ID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_ESS_CERT_ID'); + Result := d2i_ESS_CERT_ID(a,pp,length); +end; + +function Load_ESS_CERT_ID_dup(a: PESS_CERT_ID): PESS_CERT_ID; cdecl; +begin + ESS_CERT_ID_dup := LoadLibCryptoFunction('ESS_CERT_ID_dup'); + if not assigned(ESS_CERT_ID_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ESS_CERT_ID_dup'); + Result := ESS_CERT_ID_dup(a); +end; + +function Load_ESS_SIGNING_CERT_new: PESS_SIGNING_Cert; cdecl; +begin + ESS_SIGNING_CERT_new := LoadLibCryptoFunction('ESS_SIGNING_CERT_new'); + if not assigned(ESS_SIGNING_CERT_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ESS_SIGNING_CERT_new'); + Result := ESS_SIGNING_CERT_new(); +end; + +procedure Load_ESS_SIGNING_CERT_free(a: PESS_SIGNING_Cert); cdecl; +begin + ESS_SIGNING_CERT_free := LoadLibCryptoFunction('ESS_SIGNING_CERT_free'); + if not assigned(ESS_SIGNING_CERT_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ESS_SIGNING_CERT_free'); + ESS_SIGNING_CERT_free(a); +end; + +function Load_i2d_ESS_SIGNING_CERT( a: PESS_SIGNING_Cert; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_ESS_SIGNING_CERT := LoadLibCryptoFunction('i2d_ESS_SIGNING_CERT'); + if not assigned(i2d_ESS_SIGNING_CERT) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_ESS_SIGNING_CERT'); + Result := i2d_ESS_SIGNING_CERT(a,pp); +end; + +function Load_d2i_ESS_SIGNING_CERT(a: PPESS_SIGNING_Cert; pp: PPByte; length: TOpenSSL_C_LONG): PESS_SIGNING_Cert; cdecl; +begin + d2i_ESS_SIGNING_CERT := LoadLibCryptoFunction('d2i_ESS_SIGNING_CERT'); + if not assigned(d2i_ESS_SIGNING_CERT) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_ESS_SIGNING_CERT'); + Result := d2i_ESS_SIGNING_CERT(a,pp,length); +end; + +function Load_ESS_SIGNING_CERT_dup(a: PESS_SIGNING_Cert): PESS_SIGNING_Cert; cdecl; +begin + ESS_SIGNING_CERT_dup := LoadLibCryptoFunction('ESS_SIGNING_CERT_dup'); + if not assigned(ESS_SIGNING_CERT_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ESS_SIGNING_CERT_dup'); + Result := ESS_SIGNING_CERT_dup(a); +end; + +function Load_ESS_CERT_ID_V2_new: PESS_CERT_ID_V2; cdecl; +begin + ESS_CERT_ID_V2_new := LoadLibCryptoFunction('ESS_CERT_ID_V2_new'); + if not assigned(ESS_CERT_ID_V2_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ESS_CERT_ID_V2_new'); + Result := ESS_CERT_ID_V2_new(); +end; + +procedure Load_ESS_CERT_ID_V2_free(a: PESS_CERT_ID_V2); cdecl; +begin + ESS_CERT_ID_V2_free := LoadLibCryptoFunction('ESS_CERT_ID_V2_free'); + if not assigned(ESS_CERT_ID_V2_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ESS_CERT_ID_V2_free'); + ESS_CERT_ID_V2_free(a); +end; + +function Load_i2d_ESS_CERT_ID_V2( a: PESS_CERT_ID_V2; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_ESS_CERT_ID_V2 := LoadLibCryptoFunction('i2d_ESS_CERT_ID_V2'); + if not assigned(i2d_ESS_CERT_ID_V2) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_ESS_CERT_ID_V2'); + Result := i2d_ESS_CERT_ID_V2(a,pp); +end; + +function Load_d2i_ESS_CERT_ID_V2(a: PPESS_CERT_ID_V2; pp: PPByte; length: TOpenSSL_C_LONG): PESS_CERT_ID_V2; cdecl; +begin + d2i_ESS_CERT_ID_V2 := LoadLibCryptoFunction('d2i_ESS_CERT_ID_V2'); + if not assigned(d2i_ESS_CERT_ID_V2) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_ESS_CERT_ID_V2'); + Result := d2i_ESS_CERT_ID_V2(a,pp,length); +end; + +function Load_ESS_CERT_ID_V2_dup(a: PESS_CERT_ID_V2): PESS_CERT_ID_V2; cdecl; +begin + ESS_CERT_ID_V2_dup := LoadLibCryptoFunction('ESS_CERT_ID_V2_dup'); + if not assigned(ESS_CERT_ID_V2_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ESS_CERT_ID_V2_dup'); + Result := ESS_CERT_ID_V2_dup(a); +end; + +function Load_ESS_SIGNING_CERT_V2_new: PESS_SIGNING_CERT_V2; cdecl; +begin + ESS_SIGNING_CERT_V2_new := LoadLibCryptoFunction('ESS_SIGNING_CERT_V2_new'); + if not assigned(ESS_SIGNING_CERT_V2_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ESS_SIGNING_CERT_V2_new'); + Result := ESS_SIGNING_CERT_V2_new(); +end; + +procedure Load_ESS_SIGNING_CERT_V2_free(a: PESS_SIGNING_CERT_V2); cdecl; +begin + ESS_SIGNING_CERT_V2_free := LoadLibCryptoFunction('ESS_SIGNING_CERT_V2_free'); + if not assigned(ESS_SIGNING_CERT_V2_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ESS_SIGNING_CERT_V2_free'); + ESS_SIGNING_CERT_V2_free(a); +end; + +function Load_i2d_ESS_SIGNING_CERT_V2(a: PESS_SIGNING_CERT_V2; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_ESS_SIGNING_CERT_V2 := LoadLibCryptoFunction('i2d_ESS_SIGNING_CERT_V2'); + if not assigned(i2d_ESS_SIGNING_CERT_V2) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_ESS_SIGNING_CERT_V2'); + Result := i2d_ESS_SIGNING_CERT_V2(a,pp); +end; + +function Load_d2i_ESS_SIGNING_CERT_V2(a: PPESS_SIGNING_CERT_V2; pp: PPByte; length: TOpenSSL_C_LONG): PESS_SIGNING_CERT_V2; cdecl; +begin + d2i_ESS_SIGNING_CERT_V2 := LoadLibCryptoFunction('d2i_ESS_SIGNING_CERT_V2'); + if not assigned(d2i_ESS_SIGNING_CERT_V2) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_ESS_SIGNING_CERT_V2'); + Result := d2i_ESS_SIGNING_CERT_V2(a,pp,length); +end; + +function Load_ESS_SIGNING_CERT_V2_dup(a: PESS_SIGNING_CERT_V2): PESS_SIGNING_CERT_V2; cdecl; +begin + ESS_SIGNING_CERT_V2_dup := LoadLibCryptoFunction('ESS_SIGNING_CERT_V2_dup'); + if not assigned(ESS_SIGNING_CERT_V2_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ESS_SIGNING_CERT_V2_dup'); + Result := ESS_SIGNING_CERT_V2_dup(a); +end; + +function Load_TS_REQ_set_version(a: PTS_REQ; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + TS_REQ_set_version := LoadLibCryptoFunction('TS_REQ_set_version'); + if not assigned(TS_REQ_set_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_set_version'); + Result := TS_REQ_set_version(a,version); +end; + +function Load_TS_REQ_get_version(a: PTS_REQ): TOpenSSL_C_LONG; cdecl; +begin + TS_REQ_get_version := LoadLibCryptoFunction('TS_REQ_get_version'); + if not assigned(TS_REQ_get_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_get_version'); + Result := TS_REQ_get_version(a); +end; + +function Load_TS_STATUS_INFO_set_status(a: PTS_STATUS_INFO; i: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + TS_STATUS_INFO_set_status := LoadLibCryptoFunction('TS_STATUS_INFO_set_status'); + if not assigned(TS_STATUS_INFO_set_status) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_STATUS_INFO_set_status'); + Result := TS_STATUS_INFO_set_status(a,i); +end; + +function Load_TS_STATUS_INFO_get0_status(const a: PTS_STATUS_INFO): PASN1_INTEGER; cdecl; +begin + TS_STATUS_INFO_get0_status := LoadLibCryptoFunction('TS_STATUS_INFO_get0_status'); + if not assigned(TS_STATUS_INFO_get0_status) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_STATUS_INFO_get0_status'); + Result := TS_STATUS_INFO_get0_status(a); +end; + +function Load_TS_REQ_set_msg_imprint(a: PTS_REQ; msg_imprint: PTS_MSG_IMPRINT): TOpenSSL_C_INT; cdecl; +begin + TS_REQ_set_msg_imprint := LoadLibCryptoFunction('TS_REQ_set_msg_imprint'); + if not assigned(TS_REQ_set_msg_imprint) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_set_msg_imprint'); + Result := TS_REQ_set_msg_imprint(a,msg_imprint); +end; + +function Load_TS_REQ_get_msg_imprint(a: PTS_REQ): PTS_MSG_IMPRINT; cdecl; +begin + TS_REQ_get_msg_imprint := LoadLibCryptoFunction('TS_REQ_get_msg_imprint'); + if not assigned(TS_REQ_get_msg_imprint) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_get_msg_imprint'); + Result := TS_REQ_get_msg_imprint(a); +end; + +function Load_TS_MSG_IMPRINT_set_algo(a: PTS_MSG_IMPRINT; alg: PX509_ALGOr): TOpenSSL_C_INT; cdecl; +begin + TS_MSG_IMPRINT_set_algo := LoadLibCryptoFunction('TS_MSG_IMPRINT_set_algo'); + if not assigned(TS_MSG_IMPRINT_set_algo) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_MSG_IMPRINT_set_algo'); + Result := TS_MSG_IMPRINT_set_algo(a,alg); +end; + +function Load_TS_MSG_IMPRINT_get_algo(a: PTS_MSG_IMPRINT): PX509_ALGOr; cdecl; +begin + TS_MSG_IMPRINT_get_algo := LoadLibCryptoFunction('TS_MSG_IMPRINT_get_algo'); + if not assigned(TS_MSG_IMPRINT_get_algo) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_MSG_IMPRINT_get_algo'); + Result := TS_MSG_IMPRINT_get_algo(a); +end; + +function Load_TS_MSG_IMPRINT_set_msg(a: PTS_MSG_IMPRINT; d: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + TS_MSG_IMPRINT_set_msg := LoadLibCryptoFunction('TS_MSG_IMPRINT_set_msg'); + if not assigned(TS_MSG_IMPRINT_set_msg) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_MSG_IMPRINT_set_msg'); + Result := TS_MSG_IMPRINT_set_msg(a,d,len); +end; + +function Load_TS_MSG_IMPRINT_get_msg(a: PTS_MSG_IMPRINT): PASN1_OCTET_STRING; cdecl; +begin + TS_MSG_IMPRINT_get_msg := LoadLibCryptoFunction('TS_MSG_IMPRINT_get_msg'); + if not assigned(TS_MSG_IMPRINT_get_msg) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_MSG_IMPRINT_get_msg'); + Result := TS_MSG_IMPRINT_get_msg(a); +end; + +function Load_TS_REQ_set_policy_id(a: PTS_REQ; policy: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +begin + TS_REQ_set_policy_id := LoadLibCryptoFunction('TS_REQ_set_policy_id'); + if not assigned(TS_REQ_set_policy_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_set_policy_id'); + Result := TS_REQ_set_policy_id(a,policy); +end; + +function Load_TS_REQ_get_policy_id(a: PTS_REQ): PASN1_OBJECT; cdecl; +begin + TS_REQ_get_policy_id := LoadLibCryptoFunction('TS_REQ_get_policy_id'); + if not assigned(TS_REQ_get_policy_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_get_policy_id'); + Result := TS_REQ_get_policy_id(a); +end; + +function Load_TS_REQ_set_nonce(a: PTS_REQ; nonce: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + TS_REQ_set_nonce := LoadLibCryptoFunction('TS_REQ_set_nonce'); + if not assigned(TS_REQ_set_nonce) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_set_nonce'); + Result := TS_REQ_set_nonce(a,nonce); +end; + +function Load_TS_REQ_get_nonce(const a: PTS_REQ): PASN1_INTEGER; cdecl; +begin + TS_REQ_get_nonce := LoadLibCryptoFunction('TS_REQ_get_nonce'); + if not assigned(TS_REQ_get_nonce) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_get_nonce'); + Result := TS_REQ_get_nonce(a); +end; + +function Load_TS_REQ_set_cert_req(a: PTS_REQ; cert_req: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + TS_REQ_set_cert_req := LoadLibCryptoFunction('TS_REQ_set_cert_req'); + if not assigned(TS_REQ_set_cert_req) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_set_cert_req'); + Result := TS_REQ_set_cert_req(a,cert_req); +end; + +function Load_TS_REQ_get_cert_req(a: PTS_REQ): TOpenSSL_C_INT; cdecl; +begin + TS_REQ_get_cert_req := LoadLibCryptoFunction('TS_REQ_get_cert_req'); + if not assigned(TS_REQ_get_cert_req) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_get_cert_req'); + Result := TS_REQ_get_cert_req(a); +end; + +procedure Load_TS_REQ_ext_free(a: PTS_REQ); cdecl; +begin + TS_REQ_ext_free := LoadLibCryptoFunction('TS_REQ_ext_free'); + if not assigned(TS_REQ_ext_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_ext_free'); + TS_REQ_ext_free(a); +end; + +function Load_TS_REQ_get_ext_count(a: PTS_REQ): TOpenSSL_C_INT; cdecl; +begin + TS_REQ_get_ext_count := LoadLibCryptoFunction('TS_REQ_get_ext_count'); + if not assigned(TS_REQ_get_ext_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_get_ext_count'); + Result := TS_REQ_get_ext_count(a); +end; + +function Load_TS_REQ_get_ext_by_NID(a: PTS_REQ; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + TS_REQ_get_ext_by_NID := LoadLibCryptoFunction('TS_REQ_get_ext_by_NID'); + if not assigned(TS_REQ_get_ext_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_get_ext_by_NID'); + Result := TS_REQ_get_ext_by_NID(a,nid,lastpos); +end; + +function Load_TS_REQ_get_ext_by_OBJ(a: PTS_REQ; obj: PASN1_Object; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + TS_REQ_get_ext_by_OBJ := LoadLibCryptoFunction('TS_REQ_get_ext_by_OBJ'); + if not assigned(TS_REQ_get_ext_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_get_ext_by_OBJ'); + Result := TS_REQ_get_ext_by_OBJ(a,obj,lastpos); +end; + +function Load_TS_REQ_get_ext_by_critical(a: PTS_REQ; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + TS_REQ_get_ext_by_critical := LoadLibCryptoFunction('TS_REQ_get_ext_by_critical'); + if not assigned(TS_REQ_get_ext_by_critical) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_get_ext_by_critical'); + Result := TS_REQ_get_ext_by_critical(a,crit,lastpos); +end; + +function Load_TS_REQ_get_ext(a: PTS_REQ; loc: TOpenSSL_C_INT): PX509_Extension; cdecl; +begin + TS_REQ_get_ext := LoadLibCryptoFunction('TS_REQ_get_ext'); + if not assigned(TS_REQ_get_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_get_ext'); + Result := TS_REQ_get_ext(a,loc); +end; + +function Load_TS_REQ_delete_ext(a: PTS_REQ; loc: TOpenSSL_C_INT): PX509_Extension; cdecl; +begin + TS_REQ_delete_ext := LoadLibCryptoFunction('TS_REQ_delete_ext'); + if not assigned(TS_REQ_delete_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_delete_ext'); + Result := TS_REQ_delete_ext(a,loc); +end; + +function Load_TS_REQ_add_ext(a: PTS_REQ; ex: PX509_Extension; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + TS_REQ_add_ext := LoadLibCryptoFunction('TS_REQ_add_ext'); + if not assigned(TS_REQ_add_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_add_ext'); + Result := TS_REQ_add_ext(a,ex,loc); +end; + +function Load_TS_REQ_get_ext_d2i(a: PTS_REQ; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl; +begin + TS_REQ_get_ext_d2i := LoadLibCryptoFunction('TS_REQ_get_ext_d2i'); + if not assigned(TS_REQ_get_ext_d2i) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_get_ext_d2i'); + Result := TS_REQ_get_ext_d2i(a,nid,crit,idx); +end; + +function Load_TS_REQ_print_bio(bio: PBIO; a: PTS_REQ): TOpenSSL_C_INT; cdecl; +begin + TS_REQ_print_bio := LoadLibCryptoFunction('TS_REQ_print_bio'); + if not assigned(TS_REQ_print_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_print_bio'); + Result := TS_REQ_print_bio(bio,a); +end; + +function Load_TS_RESP_set_status_info(a: PTS_RESP; info: PTS_STATUS_INFO): TOpenSSL_C_INT; cdecl; +begin + TS_RESP_set_status_info := LoadLibCryptoFunction('TS_RESP_set_status_info'); + if not assigned(TS_RESP_set_status_info) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_set_status_info'); + Result := TS_RESP_set_status_info(a,info); +end; + +function Load_TS_RESP_get_status_info(a: PTS_RESP): PTS_STATUS_INFO; cdecl; +begin + TS_RESP_get_status_info := LoadLibCryptoFunction('TS_RESP_get_status_info'); + if not assigned(TS_RESP_get_status_info) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_get_status_info'); + Result := TS_RESP_get_status_info(a); +end; + +procedure Load_TS_RESP_set_tst_info(a: PTS_RESP; p7: PPKCS7; tst_info: PTS_TST_Info); cdecl; +begin + TS_RESP_set_tst_info := LoadLibCryptoFunction('TS_RESP_set_tst_info'); + if not assigned(TS_RESP_set_tst_info) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_set_tst_info'); + TS_RESP_set_tst_info(a,p7,tst_info); +end; + +function Load_TS_RESP_get_token(a: PTS_RESP): PPKCS7; cdecl; +begin + TS_RESP_get_token := LoadLibCryptoFunction('TS_RESP_get_token'); + if not assigned(TS_RESP_get_token) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_get_token'); + Result := TS_RESP_get_token(a); +end; + +function Load_TS_RESP_get_tst_info(a: PTS_RESP): PTS_TST_Info; cdecl; +begin + TS_RESP_get_tst_info := LoadLibCryptoFunction('TS_RESP_get_tst_info'); + if not assigned(TS_RESP_get_tst_info) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_get_tst_info'); + Result := TS_RESP_get_tst_info(a); +end; + +function Load_TS_TST_INFO_set_version(a: PTS_TST_Info; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + TS_TST_INFO_set_version := LoadLibCryptoFunction('TS_TST_INFO_set_version'); + if not assigned(TS_TST_INFO_set_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_set_version'); + Result := TS_TST_INFO_set_version(a,version); +end; + +function Load_TS_TST_INFO_get_version(const a: PTS_TST_Info): TOpenSSL_C_LONG; cdecl; +begin + TS_TST_INFO_get_version := LoadLibCryptoFunction('TS_TST_INFO_get_version'); + if not assigned(TS_TST_INFO_get_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_get_version'); + Result := TS_TST_INFO_get_version(a); +end; + +function Load_TS_TST_INFO_set_policy_id(a: PTS_TST_Info; policy_id: PASN1_Object): TOpenSSL_C_INT; cdecl; +begin + TS_TST_INFO_set_policy_id := LoadLibCryptoFunction('TS_TST_INFO_set_policy_id'); + if not assigned(TS_TST_INFO_set_policy_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_set_policy_id'); + Result := TS_TST_INFO_set_policy_id(a,policy_id); +end; + +function Load_TS_TST_INFO_get_policy_id(a: PTS_TST_Info): PASN1_Object; cdecl; +begin + TS_TST_INFO_get_policy_id := LoadLibCryptoFunction('TS_TST_INFO_get_policy_id'); + if not assigned(TS_TST_INFO_get_policy_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_get_policy_id'); + Result := TS_TST_INFO_get_policy_id(a); +end; + +function Load_TS_TST_INFO_set_msg_imprint(a: PTS_TST_Info; msg_imprint: PTS_MSG_IMPRINT): TOpenSSL_C_INT; cdecl; +begin + TS_TST_INFO_set_msg_imprint := LoadLibCryptoFunction('TS_TST_INFO_set_msg_imprint'); + if not assigned(TS_TST_INFO_set_msg_imprint) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_set_msg_imprint'); + Result := TS_TST_INFO_set_msg_imprint(a,msg_imprint); +end; + +function Load_TS_TST_INFO_get_msg_imprint(a: PTS_TST_Info): PTS_MSG_IMPRINT; cdecl; +begin + TS_TST_INFO_get_msg_imprint := LoadLibCryptoFunction('TS_TST_INFO_get_msg_imprint'); + if not assigned(TS_TST_INFO_get_msg_imprint) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_get_msg_imprint'); + Result := TS_TST_INFO_get_msg_imprint(a); +end; + +function Load_TS_TST_INFO_set_serial(a: PTS_TST_Info; const serial: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + TS_TST_INFO_set_serial := LoadLibCryptoFunction('TS_TST_INFO_set_serial'); + if not assigned(TS_TST_INFO_set_serial) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_set_serial'); + Result := TS_TST_INFO_set_serial(a,serial); +end; + +function Load_TS_TST_INFO_get_serial(const a: PTS_TST_INFO): PASN1_INTEGER; cdecl; +begin + TS_TST_INFO_get_serial := LoadLibCryptoFunction('TS_TST_INFO_get_serial'); + if not assigned(TS_TST_INFO_get_serial) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_get_serial'); + Result := TS_TST_INFO_get_serial(a); +end; + +function Load_TS_TST_INFO_set_time(a: PTS_TST_Info; gtime: PASN1_GENERALIZEDTIME): TOpenSSL_C_INT; cdecl; +begin + TS_TST_INFO_set_time := LoadLibCryptoFunction('TS_TST_INFO_set_time'); + if not assigned(TS_TST_INFO_set_time) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_set_time'); + Result := TS_TST_INFO_set_time(a,gtime); +end; + +function Load_TS_TST_INFO_get_time(const a: PTS_TST_INFO): PASN1_GENERALIZEDTIME; cdecl; +begin + TS_TST_INFO_get_time := LoadLibCryptoFunction('TS_TST_INFO_get_time'); + if not assigned(TS_TST_INFO_get_time) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_get_time'); + Result := TS_TST_INFO_get_time(a); +end; + +function Load_TS_TST_INFO_set_accuracy(a: PTS_TST_Info; accuracy: PTS_ACCURACY): TOpenSSL_C_INT; cdecl; +begin + TS_TST_INFO_set_accuracy := LoadLibCryptoFunction('TS_TST_INFO_set_accuracy'); + if not assigned(TS_TST_INFO_set_accuracy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_set_accuracy'); + Result := TS_TST_INFO_set_accuracy(a,accuracy); +end; + +function Load_TS_TST_INFO_get_accuracy(a: PTS_TST_Info): PTS_ACCURACY; cdecl; +begin + TS_TST_INFO_get_accuracy := LoadLibCryptoFunction('TS_TST_INFO_get_accuracy'); + if not assigned(TS_TST_INFO_get_accuracy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_get_accuracy'); + Result := TS_TST_INFO_get_accuracy(a); +end; + +function Load_TS_ACCURACY_set_seconds(a: PTS_ACCURACY; const seconds: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + TS_ACCURACY_set_seconds := LoadLibCryptoFunction('TS_ACCURACY_set_seconds'); + if not assigned(TS_ACCURACY_set_seconds) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_ACCURACY_set_seconds'); + Result := TS_ACCURACY_set_seconds(a,seconds); +end; + +function Load_TS_ACCURACY_get_seconds(const a: PTS_ACCURACY): PASN1_INTEGER; cdecl; +begin + TS_ACCURACY_get_seconds := LoadLibCryptoFunction('TS_ACCURACY_get_seconds'); + if not assigned(TS_ACCURACY_get_seconds) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_ACCURACY_get_seconds'); + Result := TS_ACCURACY_get_seconds(a); +end; + +function Load_TS_ACCURACY_set_millis(a: PTS_ACCURACY; const millis: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + TS_ACCURACY_set_millis := LoadLibCryptoFunction('TS_ACCURACY_set_millis'); + if not assigned(TS_ACCURACY_set_millis) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_ACCURACY_set_millis'); + Result := TS_ACCURACY_set_millis(a,millis); +end; + +function Load_TS_ACCURACY_get_millis(const a: PTS_ACCURACY): PASN1_INTEGER; cdecl; +begin + TS_ACCURACY_get_millis := LoadLibCryptoFunction('TS_ACCURACY_get_millis'); + if not assigned(TS_ACCURACY_get_millis) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_ACCURACY_get_millis'); + Result := TS_ACCURACY_get_millis(a); +end; + +function Load_TS_ACCURACY_set_micros(a: PTS_ACCURACY; const micros: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + TS_ACCURACY_set_micros := LoadLibCryptoFunction('TS_ACCURACY_set_micros'); + if not assigned(TS_ACCURACY_set_micros) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_ACCURACY_set_micros'); + Result := TS_ACCURACY_set_micros(a,micros); +end; + +function Load_TS_ACCURACY_get_micros(const a: PTS_ACCURACY): PASN1_INTEGER; cdecl; +begin + TS_ACCURACY_get_micros := LoadLibCryptoFunction('TS_ACCURACY_get_micros'); + if not assigned(TS_ACCURACY_get_micros) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_ACCURACY_get_micros'); + Result := TS_ACCURACY_get_micros(a); +end; + +function Load_TS_TST_INFO_set_ordering(a: PTS_TST_Info; ordering: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + TS_TST_INFO_set_ordering := LoadLibCryptoFunction('TS_TST_INFO_set_ordering'); + if not assigned(TS_TST_INFO_set_ordering) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_set_ordering'); + Result := TS_TST_INFO_set_ordering(a,ordering); +end; + +function Load_TS_TST_INFO_get_ordering(const a: PTS_TST_Info): TOpenSSL_C_INT; cdecl; +begin + TS_TST_INFO_get_ordering := LoadLibCryptoFunction('TS_TST_INFO_get_ordering'); + if not assigned(TS_TST_INFO_get_ordering) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_get_ordering'); + Result := TS_TST_INFO_get_ordering(a); +end; + +function Load_TS_TST_INFO_set_nonce(a: PTS_TST_Info; const nonce: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + TS_TST_INFO_set_nonce := LoadLibCryptoFunction('TS_TST_INFO_set_nonce'); + if not assigned(TS_TST_INFO_set_nonce) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_set_nonce'); + Result := TS_TST_INFO_set_nonce(a,nonce); +end; + +function Load_TS_TST_INFO_get_nonce(const a: PTS_TST_INFO): PASN1_INTEGER; cdecl; +begin + TS_TST_INFO_get_nonce := LoadLibCryptoFunction('TS_TST_INFO_get_nonce'); + if not assigned(TS_TST_INFO_get_nonce) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_get_nonce'); + Result := TS_TST_INFO_get_nonce(a); +end; + +function Load_TS_TST_INFO_set_tsa(a: PTS_TST_Info; tsa: PGENERAL_NAME): TOpenSSL_C_INT; cdecl; +begin + TS_TST_INFO_set_tsa := LoadLibCryptoFunction('TS_TST_INFO_set_tsa'); + if not assigned(TS_TST_INFO_set_tsa) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_set_tsa'); + Result := TS_TST_INFO_set_tsa(a,tsa); +end; + +function Load_TS_TST_INFO_get_tsa(a: PTS_TST_Info): PGENERAL_NAME; cdecl; +begin + TS_TST_INFO_get_tsa := LoadLibCryptoFunction('TS_TST_INFO_get_tsa'); + if not assigned(TS_TST_INFO_get_tsa) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_get_tsa'); + Result := TS_TST_INFO_get_tsa(a); +end; + +procedure Load_TS_TST_INFO_ext_free(a: PTS_TST_Info); cdecl; +begin + TS_TST_INFO_ext_free := LoadLibCryptoFunction('TS_TST_INFO_ext_free'); + if not assigned(TS_TST_INFO_ext_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_ext_free'); + TS_TST_INFO_ext_free(a); +end; + +function Load_TS_TST_INFO_get_ext_count(a: PTS_TST_Info): TOpenSSL_C_INT; cdecl; +begin + TS_TST_INFO_get_ext_count := LoadLibCryptoFunction('TS_TST_INFO_get_ext_count'); + if not assigned(TS_TST_INFO_get_ext_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_get_ext_count'); + Result := TS_TST_INFO_get_ext_count(a); +end; + +function Load_TS_TST_INFO_get_ext_by_NID(a: PTS_TST_Info; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + TS_TST_INFO_get_ext_by_NID := LoadLibCryptoFunction('TS_TST_INFO_get_ext_by_NID'); + if not assigned(TS_TST_INFO_get_ext_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_get_ext_by_NID'); + Result := TS_TST_INFO_get_ext_by_NID(a,nid,lastpos); +end; + +function Load_TS_TST_INFO_get_ext_by_OBJ(a: PTS_TST_Info; const obj: PASN1_Object; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + TS_TST_INFO_get_ext_by_OBJ := LoadLibCryptoFunction('TS_TST_INFO_get_ext_by_OBJ'); + if not assigned(TS_TST_INFO_get_ext_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_get_ext_by_OBJ'); + Result := TS_TST_INFO_get_ext_by_OBJ(a,obj,lastpos); +end; + +function Load_TS_TST_INFO_get_ext_by_critical(a: PTS_TST_Info; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + TS_TST_INFO_get_ext_by_critical := LoadLibCryptoFunction('TS_TST_INFO_get_ext_by_critical'); + if not assigned(TS_TST_INFO_get_ext_by_critical) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_get_ext_by_critical'); + Result := TS_TST_INFO_get_ext_by_critical(a,crit,lastpos); +end; + +function Load_TS_TST_INFO_get_ext(a: PTS_TST_Info; loc: TOpenSSL_C_INT): PX509_Extension; cdecl; +begin + TS_TST_INFO_get_ext := LoadLibCryptoFunction('TS_TST_INFO_get_ext'); + if not assigned(TS_TST_INFO_get_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_get_ext'); + Result := TS_TST_INFO_get_ext(a,loc); +end; + +function Load_TS_TST_INFO_delete_ext(a: PTS_TST_Info; loc: TOpenSSL_C_INT): PX509_Extension; cdecl; +begin + TS_TST_INFO_delete_ext := LoadLibCryptoFunction('TS_TST_INFO_delete_ext'); + if not assigned(TS_TST_INFO_delete_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_delete_ext'); + Result := TS_TST_INFO_delete_ext(a,loc); +end; + +function Load_TS_TST_INFO_add_ext(a: PTS_TST_Info; ex: PX509_Extension; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + TS_TST_INFO_add_ext := LoadLibCryptoFunction('TS_TST_INFO_add_ext'); + if not assigned(TS_TST_INFO_add_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_add_ext'); + Result := TS_TST_INFO_add_ext(a,ex,loc); +end; + +function Load_TS_TST_INFO_get_ext_d2i(a: PTS_TST_Info; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl; +begin + TS_TST_INFO_get_ext_d2i := LoadLibCryptoFunction('TS_TST_INFO_get_ext_d2i'); + if not assigned(TS_TST_INFO_get_ext_d2i) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_get_ext_d2i'); + Result := TS_TST_INFO_get_ext_d2i(a,nid,crit,idx); +end; + +function Load_TS_RESP_CTX_new: PTS_RESP_CTX; cdecl; +begin + TS_RESP_CTX_new := LoadLibCryptoFunction('TS_RESP_CTX_new'); + if not assigned(TS_RESP_CTX_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_new'); + Result := TS_RESP_CTX_new(); +end; + +procedure Load_TS_RESP_CTX_free(ctx: PTS_RESP_CTX); cdecl; +begin + TS_RESP_CTX_free := LoadLibCryptoFunction('TS_RESP_CTX_free'); + if not assigned(TS_RESP_CTX_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_free'); + TS_RESP_CTX_free(ctx); +end; + +function Load_TS_RESP_CTX_set_signer_cert(ctx: PTS_RESP_CTX; signer: PX509): TOpenSSL_C_INT; cdecl; +begin + TS_RESP_CTX_set_signer_cert := LoadLibCryptoFunction('TS_RESP_CTX_set_signer_cert'); + if not assigned(TS_RESP_CTX_set_signer_cert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_set_signer_cert'); + Result := TS_RESP_CTX_set_signer_cert(ctx,signer); +end; + +function Load_TS_RESP_CTX_set_signer_key(ctx: PTS_RESP_CTX; key: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + TS_RESP_CTX_set_signer_key := LoadLibCryptoFunction('TS_RESP_CTX_set_signer_key'); + if not assigned(TS_RESP_CTX_set_signer_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_set_signer_key'); + Result := TS_RESP_CTX_set_signer_key(ctx,key); +end; + +function Load_TS_RESP_CTX_set_signer_digest(ctx: PTS_RESP_CTX; signer_digest: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + TS_RESP_CTX_set_signer_digest := LoadLibCryptoFunction('TS_RESP_CTX_set_signer_digest'); + if not assigned(TS_RESP_CTX_set_signer_digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_set_signer_digest'); + Result := TS_RESP_CTX_set_signer_digest(ctx,signer_digest); +end; + +function Load_TS_RESP_CTX_set_ess_cert_id_digest(ctx: PTS_RESP_CTX; md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + TS_RESP_CTX_set_ess_cert_id_digest := LoadLibCryptoFunction('TS_RESP_CTX_set_ess_cert_id_digest'); + if not assigned(TS_RESP_CTX_set_ess_cert_id_digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_set_ess_cert_id_digest'); + Result := TS_RESP_CTX_set_ess_cert_id_digest(ctx,md); +end; + +function Load_TS_RESP_CTX_set_def_policy(ctx: PTS_RESP_CTX; def_policy: PASN1_Object): TOpenSSL_C_INT; cdecl; +begin + TS_RESP_CTX_set_def_policy := LoadLibCryptoFunction('TS_RESP_CTX_set_def_policy'); + if not assigned(TS_RESP_CTX_set_def_policy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_set_def_policy'); + Result := TS_RESP_CTX_set_def_policy(ctx,def_policy); +end; + +function Load_TS_RESP_CTX_add_policy(ctx: PTS_RESP_CTX; const policy: PASN1_Object): TOpenSSL_C_INT; cdecl; +begin + TS_RESP_CTX_add_policy := LoadLibCryptoFunction('TS_RESP_CTX_add_policy'); + if not assigned(TS_RESP_CTX_add_policy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_add_policy'); + Result := TS_RESP_CTX_add_policy(ctx,policy); +end; + +function Load_TS_RESP_CTX_add_md(ctx: PTS_RESP_CTX; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + TS_RESP_CTX_add_md := LoadLibCryptoFunction('TS_RESP_CTX_add_md'); + if not assigned(TS_RESP_CTX_add_md) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_add_md'); + Result := TS_RESP_CTX_add_md(ctx,md); +end; + +function Load_TS_RESP_CTX_set_accuracy(ctx: PTS_RESP_CTX; secs: TOpenSSL_C_INT; millis: TOpenSSL_C_INT; micros: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + TS_RESP_CTX_set_accuracy := LoadLibCryptoFunction('TS_RESP_CTX_set_accuracy'); + if not assigned(TS_RESP_CTX_set_accuracy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_set_accuracy'); + Result := TS_RESP_CTX_set_accuracy(ctx,secs,millis,micros); +end; + +function Load_TS_RESP_CTX_set_clock_precision_digits(ctx: PTS_RESP_CTX; clock_precision_digits: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + TS_RESP_CTX_set_clock_precision_digits := LoadLibCryptoFunction('TS_RESP_CTX_set_clock_precision_digits'); + if not assigned(TS_RESP_CTX_set_clock_precision_digits) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_set_clock_precision_digits'); + Result := TS_RESP_CTX_set_clock_precision_digits(ctx,clock_precision_digits); +end; + +procedure Load_TS_RESP_CTX_add_flags(ctx: PTS_RESP_CTX; flags: TOpenSSL_C_INT); cdecl; +begin + TS_RESP_CTX_add_flags := LoadLibCryptoFunction('TS_RESP_CTX_add_flags'); + if not assigned(TS_RESP_CTX_add_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_add_flags'); + TS_RESP_CTX_add_flags(ctx,flags); +end; + +procedure Load_TS_RESP_CTX_set_serial_cb(ctx: PTS_RESP_CTX; cb: TS_serial_cb; data: Pointer); cdecl; +begin + TS_RESP_CTX_set_serial_cb := LoadLibCryptoFunction('TS_RESP_CTX_set_serial_cb'); + if not assigned(TS_RESP_CTX_set_serial_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_set_serial_cb'); + TS_RESP_CTX_set_serial_cb(ctx,cb,data); +end; + +procedure Load_TS_RESP_CTX_set_time_cb(ctx: PTS_RESP_CTX; cb: TS_time_cb; data: Pointer); cdecl; +begin + TS_RESP_CTX_set_time_cb := LoadLibCryptoFunction('TS_RESP_CTX_set_time_cb'); + if not assigned(TS_RESP_CTX_set_time_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_set_time_cb'); + TS_RESP_CTX_set_time_cb(ctx,cb,data); +end; + +procedure Load_TS_RESP_CTX_set_extension_cb(ctx: PTS_RESP_CTX; cb: TS_extension_cb; data: Pointer); cdecl; +begin + TS_RESP_CTX_set_extension_cb := LoadLibCryptoFunction('TS_RESP_CTX_set_extension_cb'); + if not assigned(TS_RESP_CTX_set_extension_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_set_extension_cb'); + TS_RESP_CTX_set_extension_cb(ctx,cb,data); +end; + +function Load_TS_RESP_CTX_set_status_info(ctx: PTS_RESP_CTX; status: TOpenSSL_C_INT; text: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + TS_RESP_CTX_set_status_info := LoadLibCryptoFunction('TS_RESP_CTX_set_status_info'); + if not assigned(TS_RESP_CTX_set_status_info) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_set_status_info'); + Result := TS_RESP_CTX_set_status_info(ctx,status,text); +end; + +function Load_TS_RESP_CTX_set_status_info_cond(ctx: PTS_RESP_CTX; status: TOpenSSL_C_INT; text: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + TS_RESP_CTX_set_status_info_cond := LoadLibCryptoFunction('TS_RESP_CTX_set_status_info_cond'); + if not assigned(TS_RESP_CTX_set_status_info_cond) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_set_status_info_cond'); + Result := TS_RESP_CTX_set_status_info_cond(ctx,status,text); +end; + +function Load_TS_RESP_CTX_add_failure_info(ctx: PTS_RESP_CTX; failure: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + TS_RESP_CTX_add_failure_info := LoadLibCryptoFunction('TS_RESP_CTX_add_failure_info'); + if not assigned(TS_RESP_CTX_add_failure_info) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_add_failure_info'); + Result := TS_RESP_CTX_add_failure_info(ctx,failure); +end; + +function Load_TS_RESP_CTX_get_request(ctx: PTS_RESP_CTX): PTS_REQ; cdecl; +begin + TS_RESP_CTX_get_request := LoadLibCryptoFunction('TS_RESP_CTX_get_request'); + if not assigned(TS_RESP_CTX_get_request) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_get_request'); + Result := TS_RESP_CTX_get_request(ctx); +end; + +function Load_TS_RESP_CTX_get_tst_info(ctx: PTS_RESP_CTX): PTS_TST_Info; cdecl; +begin + TS_RESP_CTX_get_tst_info := LoadLibCryptoFunction('TS_RESP_CTX_get_tst_info'); + if not assigned(TS_RESP_CTX_get_tst_info) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_CTX_get_tst_info'); + Result := TS_RESP_CTX_get_tst_info(ctx); +end; + +function Load_TS_RESP_create_response(ctx: PTS_RESP_CTX; req_bio: PBIO): PTS_RESP; cdecl; +begin + TS_RESP_create_response := LoadLibCryptoFunction('TS_RESP_create_response'); + if not assigned(TS_RESP_create_response) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_create_response'); + Result := TS_RESP_create_response(ctx,req_bio); +end; + +function Load_TS_RESP_verify_response(ctx: PTS_VERIFY_CTX; response: PTS_RESP): TOpenSSL_C_INT; cdecl; +begin + TS_RESP_verify_response := LoadLibCryptoFunction('TS_RESP_verify_response'); + if not assigned(TS_RESP_verify_response) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_verify_response'); + Result := TS_RESP_verify_response(ctx,response); +end; + +function Load_TS_RESP_verify_token(ctx: PTS_VERIFY_CTX; token: PPKCS7): TOpenSSL_C_INT; cdecl; +begin + TS_RESP_verify_token := LoadLibCryptoFunction('TS_RESP_verify_token'); + if not assigned(TS_RESP_verify_token) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_verify_token'); + Result := TS_RESP_verify_token(ctx,token); +end; + +function Load_TS_VERIFY_CTX_new: PTS_VERIFY_CTX; cdecl; +begin + TS_VERIFY_CTX_new := LoadLibCryptoFunction('TS_VERIFY_CTX_new'); + if not assigned(TS_VERIFY_CTX_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_VERIFY_CTX_new'); + Result := TS_VERIFY_CTX_new(); +end; + +procedure Load_TS_VERIFY_CTX_init(ctx: PTS_VERIFY_CTX); cdecl; +begin + TS_VERIFY_CTX_init := LoadLibCryptoFunction('TS_VERIFY_CTX_init'); + if not assigned(TS_VERIFY_CTX_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_VERIFY_CTX_init'); + TS_VERIFY_CTX_init(ctx); +end; + +procedure Load_TS_VERIFY_CTX_free(ctx: PTS_VERIFY_CTX); cdecl; +begin + TS_VERIFY_CTX_free := LoadLibCryptoFunction('TS_VERIFY_CTX_free'); + if not assigned(TS_VERIFY_CTX_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_VERIFY_CTX_free'); + TS_VERIFY_CTX_free(ctx); +end; + +procedure Load_TS_VERIFY_CTX_cleanup(ctx: PTS_VERIFY_CTX); cdecl; +begin + TS_VERIFY_CTX_cleanup := LoadLibCryptoFunction('TS_VERIFY_CTX_cleanup'); + if not assigned(TS_VERIFY_CTX_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_VERIFY_CTX_cleanup'); + TS_VERIFY_CTX_cleanup(ctx); +end; + +function Load_TS_VERIFY_CTX_set_flags(ctx: PTS_VERIFY_CTX; f: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + TS_VERIFY_CTX_set_flags := LoadLibCryptoFunction('TS_VERIFY_CTX_set_flags'); + if not assigned(TS_VERIFY_CTX_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_VERIFY_CTX_set_flags'); + Result := TS_VERIFY_CTX_set_flags(ctx,f); +end; + +function Load_TS_VERIFY_CTX_add_flags(ctx: PTS_VERIFY_CTX; f: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + TS_VERIFY_CTX_add_flags := LoadLibCryptoFunction('TS_VERIFY_CTX_add_flags'); + if not assigned(TS_VERIFY_CTX_add_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_VERIFY_CTX_add_flags'); + Result := TS_VERIFY_CTX_add_flags(ctx,f); +end; + +function Load_TS_VERIFY_CTX_set_data(ctx: PTS_VERIFY_CTX; b: PBIO): PBIO; cdecl; +begin + TS_VERIFY_CTX_set_data := LoadLibCryptoFunction('TS_VERIFY_CTX_set_data'); + if not assigned(TS_VERIFY_CTX_set_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_VERIFY_CTX_set_data'); + Result := TS_VERIFY_CTX_set_data(ctx,b); +end; + +function Load_TS_VERIFY_CTX_set_imprint(ctx: PTS_VERIFY_CTX; hexstr: PByte; len: TOpenSSL_C_LONG): PByte; cdecl; +begin + TS_VERIFY_CTX_set_imprint := LoadLibCryptoFunction('TS_VERIFY_CTX_set_imprint'); + if not assigned(TS_VERIFY_CTX_set_imprint) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_VERIFY_CTX_set_imprint'); + Result := TS_VERIFY_CTX_set_imprint(ctx,hexstr,len); +end; + +function Load_TS_VERIFY_CTX_set_store(ctx: PTS_VERIFY_CTX; s: PX509_Store): PX509_Store; cdecl; +begin + TS_VERIFY_CTX_set_store := LoadLibCryptoFunction('TS_VERIFY_CTX_set_store'); + if not assigned(TS_VERIFY_CTX_set_store) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_VERIFY_CTX_set_store'); + Result := TS_VERIFY_CTX_set_store(ctx,s); +end; + +function Load_TS_REQ_to_TS_VERIFY_CTX(req: PTS_REQ; ctx: PTS_VERIFY_CTX): PTS_VERIFY_CTX; cdecl; +begin + TS_REQ_to_TS_VERIFY_CTX := LoadLibCryptoFunction('TS_REQ_to_TS_VERIFY_CTX'); + if not assigned(TS_REQ_to_TS_VERIFY_CTX) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_REQ_to_TS_VERIFY_CTX'); + Result := TS_REQ_to_TS_VERIFY_CTX(req,ctx); +end; + +function Load_TS_RESP_print_bio(bio: PBIO; a: PTS_RESP): TOpenSSL_C_INT; cdecl; +begin + TS_RESP_print_bio := LoadLibCryptoFunction('TS_RESP_print_bio'); + if not assigned(TS_RESP_print_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_RESP_print_bio'); + Result := TS_RESP_print_bio(bio,a); +end; + +function Load_TS_STATUS_INFO_print_bio(bio: PBIO; a: PTS_STATUS_INFO): TOpenSSL_C_INT; cdecl; +begin + TS_STATUS_INFO_print_bio := LoadLibCryptoFunction('TS_STATUS_INFO_print_bio'); + if not assigned(TS_STATUS_INFO_print_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_STATUS_INFO_print_bio'); + Result := TS_STATUS_INFO_print_bio(bio,a); +end; + +function Load_TS_TST_INFO_print_bio(bio: PBIO; a: PTS_TST_Info): TOpenSSL_C_INT; cdecl; +begin + TS_TST_INFO_print_bio := LoadLibCryptoFunction('TS_TST_INFO_print_bio'); + if not assigned(TS_TST_INFO_print_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_TST_INFO_print_bio'); + Result := TS_TST_INFO_print_bio(bio,a); +end; + +function Load_TS_ASN1_INTEGER_print_bio(bio: PBIO; const num: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + TS_ASN1_INTEGER_print_bio := LoadLibCryptoFunction('TS_ASN1_INTEGER_print_bio'); + if not assigned(TS_ASN1_INTEGER_print_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_ASN1_INTEGER_print_bio'); + Result := TS_ASN1_INTEGER_print_bio(bio,num); +end; + +function Load_TS_OBJ_print_bio(bio: PBIO; const obj: PASN1_Object): TOpenSSL_C_INT; cdecl; +begin + TS_OBJ_print_bio := LoadLibCryptoFunction('TS_OBJ_print_bio'); + if not assigned(TS_OBJ_print_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_OBJ_print_bio'); + Result := TS_OBJ_print_bio(bio,obj); +end; + +function Load_TS_X509_ALGOR_print_bio(bio: PBIO; const alg: PX509_ALGOr): TOpenSSL_C_INT; cdecl; +begin + TS_X509_ALGOR_print_bio := LoadLibCryptoFunction('TS_X509_ALGOR_print_bio'); + if not assigned(TS_X509_ALGOR_print_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_X509_ALGOR_print_bio'); + Result := TS_X509_ALGOR_print_bio(bio,alg); +end; + +function Load_TS_MSG_IMPRINT_print_bio(bio: PBIO; msg: PTS_MSG_IMPRINT): TOpenSSL_C_INT; cdecl; +begin + TS_MSG_IMPRINT_print_bio := LoadLibCryptoFunction('TS_MSG_IMPRINT_print_bio'); + if not assigned(TS_MSG_IMPRINT_print_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_MSG_IMPRINT_print_bio'); + Result := TS_MSG_IMPRINT_print_bio(bio,msg); +end; + +function Load_TS_CONF_load_cert(file_: PAnsiChar): PX509; cdecl; +begin + TS_CONF_load_cert := LoadLibCryptoFunction('TS_CONF_load_cert'); + if not assigned(TS_CONF_load_cert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_load_cert'); + Result := TS_CONF_load_cert(file_); +end; + +function Load_TS_CONF_load_key( file_: PAnsiChar; pass: PAnsiChar): PEVP_PKey; cdecl; +begin + TS_CONF_load_key := LoadLibCryptoFunction('TS_CONF_load_key'); + if not assigned(TS_CONF_load_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_load_key'); + Result := TS_CONF_load_key(file_,pass); +end; + +function Load_TS_CONF_set_serial(conf: PCONF; section: PAnsiChar; cb: TS_serial_cb; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +begin + TS_CONF_set_serial := LoadLibCryptoFunction('TS_CONF_set_serial'); + if not assigned(TS_CONF_set_serial) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_set_serial'); + Result := TS_CONF_set_serial(conf,section,cb,ctx); +end; + +function Load_TS_CONF_get_tsa_section(conf: PCONF; const section: PAnsiChar): PAnsiChar; cdecl; +begin + TS_CONF_get_tsa_section := LoadLibCryptoFunction('TS_CONF_get_tsa_section'); + if not assigned(TS_CONF_get_tsa_section) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_get_tsa_section'); + Result := TS_CONF_get_tsa_section(conf,section); +end; + +function Load_TS_CONF_set_crypto_device(conf: PCONF; section: PAnsiChar; device: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + TS_CONF_set_crypto_device := LoadLibCryptoFunction('TS_CONF_set_crypto_device'); + if not assigned(TS_CONF_set_crypto_device) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_set_crypto_device'); + Result := TS_CONF_set_crypto_device(conf,section,device); +end; + +function Load_TS_CONF_set_default_engine(name: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + TS_CONF_set_default_engine := LoadLibCryptoFunction('TS_CONF_set_default_engine'); + if not assigned(TS_CONF_set_default_engine) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_set_default_engine'); + Result := TS_CONF_set_default_engine(name); +end; + +function Load_TS_CONF_set_signer_cert(conf: PCONF; section: PAnsiChar; cert: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +begin + TS_CONF_set_signer_cert := LoadLibCryptoFunction('TS_CONF_set_signer_cert'); + if not assigned(TS_CONF_set_signer_cert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_set_signer_cert'); + Result := TS_CONF_set_signer_cert(conf,section,cert,ctx); +end; + +function Load_TS_CONF_set_certs(conf: PCONF; section: PAnsiChar; certs: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +begin + TS_CONF_set_certs := LoadLibCryptoFunction('TS_CONF_set_certs'); + if not assigned(TS_CONF_set_certs) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_set_certs'); + Result := TS_CONF_set_certs(conf,section,certs,ctx); +end; + +function Load_TS_CONF_set_signer_key(conf: PCONF; const section: PAnsiChar; key: PAnsiChar; pass: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +begin + TS_CONF_set_signer_key := LoadLibCryptoFunction('TS_CONF_set_signer_key'); + if not assigned(TS_CONF_set_signer_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_set_signer_key'); + Result := TS_CONF_set_signer_key(conf,section,key,pass,ctx); +end; + +function Load_TS_CONF_set_signer_digest(conf: PCONF; section: PAnsiChar; md: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +begin + TS_CONF_set_signer_digest := LoadLibCryptoFunction('TS_CONF_set_signer_digest'); + if not assigned(TS_CONF_set_signer_digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_set_signer_digest'); + Result := TS_CONF_set_signer_digest(conf,section,md,ctx); +end; + +function Load_TS_CONF_set_def_policy(conf: PCONF; section: PAnsiChar; policy: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +begin + TS_CONF_set_def_policy := LoadLibCryptoFunction('TS_CONF_set_def_policy'); + if not assigned(TS_CONF_set_def_policy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_set_def_policy'); + Result := TS_CONF_set_def_policy(conf,section,policy,ctx); +end; + +function Load_TS_CONF_set_policies(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +begin + TS_CONF_set_policies := LoadLibCryptoFunction('TS_CONF_set_policies'); + if not assigned(TS_CONF_set_policies) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_set_policies'); + Result := TS_CONF_set_policies(conf,section,ctx); +end; + +function Load_TS_CONF_set_digests(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +begin + TS_CONF_set_digests := LoadLibCryptoFunction('TS_CONF_set_digests'); + if not assigned(TS_CONF_set_digests) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_set_digests'); + Result := TS_CONF_set_digests(conf,section,ctx); +end; + +function Load_TS_CONF_set_accuracy(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +begin + TS_CONF_set_accuracy := LoadLibCryptoFunction('TS_CONF_set_accuracy'); + if not assigned(TS_CONF_set_accuracy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_set_accuracy'); + Result := TS_CONF_set_accuracy(conf,section,ctx); +end; + +function Load_TS_CONF_set_clock_precision_digits(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +begin + TS_CONF_set_clock_precision_digits := LoadLibCryptoFunction('TS_CONF_set_clock_precision_digits'); + if not assigned(TS_CONF_set_clock_precision_digits) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_set_clock_precision_digits'); + Result := TS_CONF_set_clock_precision_digits(conf,section,ctx); +end; + +function Load_TS_CONF_set_ordering(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +begin + TS_CONF_set_ordering := LoadLibCryptoFunction('TS_CONF_set_ordering'); + if not assigned(TS_CONF_set_ordering) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_set_ordering'); + Result := TS_CONF_set_ordering(conf,section,ctx); +end; + +function Load_TS_CONF_set_tsa_name(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +begin + TS_CONF_set_tsa_name := LoadLibCryptoFunction('TS_CONF_set_tsa_name'); + if not assigned(TS_CONF_set_tsa_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_set_tsa_name'); + Result := TS_CONF_set_tsa_name(conf,section,ctx); +end; + +function Load_TS_CONF_set_ess_cert_id_chain(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +begin + TS_CONF_set_ess_cert_id_chain := LoadLibCryptoFunction('TS_CONF_set_ess_cert_id_chain'); + if not assigned(TS_CONF_set_ess_cert_id_chain) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_set_ess_cert_id_chain'); + Result := TS_CONF_set_ess_cert_id_chain(conf,section,ctx); +end; + +function Load_TS_CONF_set_ess_cert_id_digest(conf: PCONF; section: PAnsiChar; ctx: PTS_RESP_CTX): TOpenSSL_C_INT; cdecl; +begin + TS_CONF_set_ess_cert_id_digest := LoadLibCryptoFunction('TS_CONF_set_ess_cert_id_digest'); + if not assigned(TS_CONF_set_ess_cert_id_digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TS_CONF_set_ess_cert_id_digest'); + Result := TS_CONF_set_ess_cert_id_digest(conf,section,ctx); +end; + + +procedure UnLoad; +begin + TS_REQ_new := Load_TS_REQ_new; + TS_REQ_free := Load_TS_REQ_free; + i2d_TS_REQ := Load_i2d_TS_REQ; + d2i_TS_REQ := Load_d2i_TS_REQ; + TS_REQ_dup := Load_TS_REQ_dup; + d2i_TS_REQ_bio := Load_d2i_TS_REQ_bio; + i2d_TS_REQ_bio := Load_i2d_TS_REQ_bio; + TS_MSG_IMPRINT_new := Load_TS_MSG_IMPRINT_new; + TS_MSG_IMPRINT_free := Load_TS_MSG_IMPRINT_free; + i2d_TS_MSG_IMPRINT := Load_i2d_TS_MSG_IMPRINT; + d2i_TS_MSG_IMPRINT := Load_d2i_TS_MSG_IMPRINT; + TS_MSG_IMPRINT_dup := Load_TS_MSG_IMPRINT_dup; + d2i_TS_MSG_IMPRINT_bio := Load_d2i_TS_MSG_IMPRINT_bio; + i2d_TS_MSG_IMPRINT_bio := Load_i2d_TS_MSG_IMPRINT_bio; + TS_RESP_new := Load_TS_RESP_new; + TS_RESP_free := Load_TS_RESP_free; + i2d_TS_RESP := Load_i2d_TS_RESP; + d2i_TS_RESP := Load_d2i_TS_RESP; + PKCS7_to_TS_TST_INFO := Load_PKCS7_to_TS_TST_INFO; + TS_RESP_dup := Load_TS_RESP_dup; + d2i_TS_RESP_bio := Load_d2i_TS_RESP_bio; + i2d_TS_RESP_bio := Load_i2d_TS_RESP_bio; + TS_STATUS_INFO_new := Load_TS_STATUS_INFO_new; + TS_STATUS_INFO_free := Load_TS_STATUS_INFO_free; + i2d_TS_STATUS_INFO := Load_i2d_TS_STATUS_INFO; + d2i_TS_STATUS_INFO := Load_d2i_TS_STATUS_INFO; + TS_STATUS_INFO_dup := Load_TS_STATUS_INFO_dup; + TS_TST_INFO_new := Load_TS_TST_INFO_new; + TS_TST_INFO_free := Load_TS_TST_INFO_free; + i2d_TS_TST_INFO := Load_i2d_TS_TST_INFO; + d2i_TS_TST_INFO := Load_d2i_TS_TST_INFO; + TS_TST_INFO_dup := Load_TS_TST_INFO_dup; + d2i_TS_TST_INFO_bio := Load_d2i_TS_TST_INFO_bio; + i2d_TS_TST_INFO_bio := Load_i2d_TS_TST_INFO_bio; + TS_ACCURACY_new := Load_TS_ACCURACY_new; + TS_ACCURACY_free := Load_TS_ACCURACY_free; + i2d_TS_ACCURACY := Load_i2d_TS_ACCURACY; + d2i_TS_ACCURACY := Load_d2i_TS_ACCURACY; + TS_ACCURACY_dup := Load_TS_ACCURACY_dup; + ESS_ISSUER_SERIAL_new := Load_ESS_ISSUER_SERIAL_new; + ESS_ISSUER_SERIAL_free := Load_ESS_ISSUER_SERIAL_free; + i2d_ESS_ISSUER_SERIAL := Load_i2d_ESS_ISSUER_SERIAL; + d2i_ESS_ISSUER_SERIAL := Load_d2i_ESS_ISSUER_SERIAL; + ESS_ISSUER_SERIAL_dup := Load_ESS_ISSUER_SERIAL_dup; + ESS_CERT_ID_new := Load_ESS_CERT_ID_new; + ESS_CERT_ID_free := Load_ESS_CERT_ID_free; + i2d_ESS_CERT_ID := Load_i2d_ESS_CERT_ID; + d2i_ESS_CERT_ID := Load_d2i_ESS_CERT_ID; + ESS_CERT_ID_dup := Load_ESS_CERT_ID_dup; + ESS_SIGNING_CERT_new := Load_ESS_SIGNING_CERT_new; + ESS_SIGNING_CERT_free := Load_ESS_SIGNING_CERT_free; + i2d_ESS_SIGNING_CERT := Load_i2d_ESS_SIGNING_CERT; + d2i_ESS_SIGNING_CERT := Load_d2i_ESS_SIGNING_CERT; + ESS_SIGNING_CERT_dup := Load_ESS_SIGNING_CERT_dup; + ESS_CERT_ID_V2_new := Load_ESS_CERT_ID_V2_new; + ESS_CERT_ID_V2_free := Load_ESS_CERT_ID_V2_free; + i2d_ESS_CERT_ID_V2 := Load_i2d_ESS_CERT_ID_V2; + d2i_ESS_CERT_ID_V2 := Load_d2i_ESS_CERT_ID_V2; + ESS_CERT_ID_V2_dup := Load_ESS_CERT_ID_V2_dup; + ESS_SIGNING_CERT_V2_new := Load_ESS_SIGNING_CERT_V2_new; + ESS_SIGNING_CERT_V2_free := Load_ESS_SIGNING_CERT_V2_free; + i2d_ESS_SIGNING_CERT_V2 := Load_i2d_ESS_SIGNING_CERT_V2; + d2i_ESS_SIGNING_CERT_V2 := Load_d2i_ESS_SIGNING_CERT_V2; + ESS_SIGNING_CERT_V2_dup := Load_ESS_SIGNING_CERT_V2_dup; + TS_REQ_set_version := Load_TS_REQ_set_version; + TS_REQ_get_version := Load_TS_REQ_get_version; + TS_STATUS_INFO_set_status := Load_TS_STATUS_INFO_set_status; + TS_STATUS_INFO_get0_status := Load_TS_STATUS_INFO_get0_status; + TS_REQ_set_msg_imprint := Load_TS_REQ_set_msg_imprint; + TS_REQ_get_msg_imprint := Load_TS_REQ_get_msg_imprint; + TS_MSG_IMPRINT_set_algo := Load_TS_MSG_IMPRINT_set_algo; + TS_MSG_IMPRINT_get_algo := Load_TS_MSG_IMPRINT_get_algo; + TS_MSG_IMPRINT_set_msg := Load_TS_MSG_IMPRINT_set_msg; + TS_MSG_IMPRINT_get_msg := Load_TS_MSG_IMPRINT_get_msg; + TS_REQ_set_policy_id := Load_TS_REQ_set_policy_id; + TS_REQ_get_policy_id := Load_TS_REQ_get_policy_id; + TS_REQ_set_nonce := Load_TS_REQ_set_nonce; + TS_REQ_get_nonce := Load_TS_REQ_get_nonce; + TS_REQ_set_cert_req := Load_TS_REQ_set_cert_req; + TS_REQ_get_cert_req := Load_TS_REQ_get_cert_req; + TS_REQ_ext_free := Load_TS_REQ_ext_free; + TS_REQ_get_ext_count := Load_TS_REQ_get_ext_count; + TS_REQ_get_ext_by_NID := Load_TS_REQ_get_ext_by_NID; + TS_REQ_get_ext_by_OBJ := Load_TS_REQ_get_ext_by_OBJ; + TS_REQ_get_ext_by_critical := Load_TS_REQ_get_ext_by_critical; + TS_REQ_get_ext := Load_TS_REQ_get_ext; + TS_REQ_delete_ext := Load_TS_REQ_delete_ext; + TS_REQ_add_ext := Load_TS_REQ_add_ext; + TS_REQ_get_ext_d2i := Load_TS_REQ_get_ext_d2i; + TS_REQ_print_bio := Load_TS_REQ_print_bio; + TS_RESP_set_status_info := Load_TS_RESP_set_status_info; + TS_RESP_get_status_info := Load_TS_RESP_get_status_info; + TS_RESP_set_tst_info := Load_TS_RESP_set_tst_info; + TS_RESP_get_token := Load_TS_RESP_get_token; + TS_RESP_get_tst_info := Load_TS_RESP_get_tst_info; + TS_TST_INFO_set_version := Load_TS_TST_INFO_set_version; + TS_TST_INFO_get_version := Load_TS_TST_INFO_get_version; + TS_TST_INFO_set_policy_id := Load_TS_TST_INFO_set_policy_id; + TS_TST_INFO_get_policy_id := Load_TS_TST_INFO_get_policy_id; + TS_TST_INFO_set_msg_imprint := Load_TS_TST_INFO_set_msg_imprint; + TS_TST_INFO_get_msg_imprint := Load_TS_TST_INFO_get_msg_imprint; + TS_TST_INFO_set_serial := Load_TS_TST_INFO_set_serial; + TS_TST_INFO_get_serial := Load_TS_TST_INFO_get_serial; + TS_TST_INFO_set_time := Load_TS_TST_INFO_set_time; + TS_TST_INFO_get_time := Load_TS_TST_INFO_get_time; + TS_TST_INFO_set_accuracy := Load_TS_TST_INFO_set_accuracy; + TS_TST_INFO_get_accuracy := Load_TS_TST_INFO_get_accuracy; + TS_ACCURACY_set_seconds := Load_TS_ACCURACY_set_seconds; + TS_ACCURACY_get_seconds := Load_TS_ACCURACY_get_seconds; + TS_ACCURACY_set_millis := Load_TS_ACCURACY_set_millis; + TS_ACCURACY_get_millis := Load_TS_ACCURACY_get_millis; + TS_ACCURACY_set_micros := Load_TS_ACCURACY_set_micros; + TS_ACCURACY_get_micros := Load_TS_ACCURACY_get_micros; + TS_TST_INFO_set_ordering := Load_TS_TST_INFO_set_ordering; + TS_TST_INFO_get_ordering := Load_TS_TST_INFO_get_ordering; + TS_TST_INFO_set_nonce := Load_TS_TST_INFO_set_nonce; + TS_TST_INFO_get_nonce := Load_TS_TST_INFO_get_nonce; + TS_TST_INFO_set_tsa := Load_TS_TST_INFO_set_tsa; + TS_TST_INFO_get_tsa := Load_TS_TST_INFO_get_tsa; + TS_TST_INFO_ext_free := Load_TS_TST_INFO_ext_free; + TS_TST_INFO_get_ext_count := Load_TS_TST_INFO_get_ext_count; + TS_TST_INFO_get_ext_by_NID := Load_TS_TST_INFO_get_ext_by_NID; + TS_TST_INFO_get_ext_by_OBJ := Load_TS_TST_INFO_get_ext_by_OBJ; + TS_TST_INFO_get_ext_by_critical := Load_TS_TST_INFO_get_ext_by_critical; + TS_TST_INFO_get_ext := Load_TS_TST_INFO_get_ext; + TS_TST_INFO_delete_ext := Load_TS_TST_INFO_delete_ext; + TS_TST_INFO_add_ext := Load_TS_TST_INFO_add_ext; + TS_TST_INFO_get_ext_d2i := Load_TS_TST_INFO_get_ext_d2i; + TS_RESP_CTX_new := Load_TS_RESP_CTX_new; + TS_RESP_CTX_free := Load_TS_RESP_CTX_free; + TS_RESP_CTX_set_signer_cert := Load_TS_RESP_CTX_set_signer_cert; + TS_RESP_CTX_set_signer_key := Load_TS_RESP_CTX_set_signer_key; + TS_RESP_CTX_set_signer_digest := Load_TS_RESP_CTX_set_signer_digest; + TS_RESP_CTX_set_ess_cert_id_digest := Load_TS_RESP_CTX_set_ess_cert_id_digest; + TS_RESP_CTX_set_def_policy := Load_TS_RESP_CTX_set_def_policy; + TS_RESP_CTX_add_policy := Load_TS_RESP_CTX_add_policy; + TS_RESP_CTX_add_md := Load_TS_RESP_CTX_add_md; + TS_RESP_CTX_set_accuracy := Load_TS_RESP_CTX_set_accuracy; + TS_RESP_CTX_set_clock_precision_digits := Load_TS_RESP_CTX_set_clock_precision_digits; + TS_RESP_CTX_add_flags := Load_TS_RESP_CTX_add_flags; + TS_RESP_CTX_set_serial_cb := Load_TS_RESP_CTX_set_serial_cb; + TS_RESP_CTX_set_time_cb := Load_TS_RESP_CTX_set_time_cb; + TS_RESP_CTX_set_extension_cb := Load_TS_RESP_CTX_set_extension_cb; + TS_RESP_CTX_set_status_info := Load_TS_RESP_CTX_set_status_info; + TS_RESP_CTX_set_status_info_cond := Load_TS_RESP_CTX_set_status_info_cond; + TS_RESP_CTX_add_failure_info := Load_TS_RESP_CTX_add_failure_info; + TS_RESP_CTX_get_request := Load_TS_RESP_CTX_get_request; + TS_RESP_CTX_get_tst_info := Load_TS_RESP_CTX_get_tst_info; + TS_RESP_create_response := Load_TS_RESP_create_response; + TS_RESP_verify_response := Load_TS_RESP_verify_response; + TS_RESP_verify_token := Load_TS_RESP_verify_token; + TS_VERIFY_CTX_new := Load_TS_VERIFY_CTX_new; + TS_VERIFY_CTX_init := Load_TS_VERIFY_CTX_init; + TS_VERIFY_CTX_free := Load_TS_VERIFY_CTX_free; + TS_VERIFY_CTX_cleanup := Load_TS_VERIFY_CTX_cleanup; + TS_VERIFY_CTX_set_flags := Load_TS_VERIFY_CTX_set_flags; + TS_VERIFY_CTX_add_flags := Load_TS_VERIFY_CTX_add_flags; + TS_VERIFY_CTX_set_data := Load_TS_VERIFY_CTX_set_data; + TS_VERIFY_CTX_set_imprint := Load_TS_VERIFY_CTX_set_imprint; + TS_VERIFY_CTX_set_store := Load_TS_VERIFY_CTX_set_store; + TS_REQ_to_TS_VERIFY_CTX := Load_TS_REQ_to_TS_VERIFY_CTX; + TS_RESP_print_bio := Load_TS_RESP_print_bio; + TS_STATUS_INFO_print_bio := Load_TS_STATUS_INFO_print_bio; + TS_TST_INFO_print_bio := Load_TS_TST_INFO_print_bio; + TS_ASN1_INTEGER_print_bio := Load_TS_ASN1_INTEGER_print_bio; + TS_OBJ_print_bio := Load_TS_OBJ_print_bio; + TS_X509_ALGOR_print_bio := Load_TS_X509_ALGOR_print_bio; + TS_MSG_IMPRINT_print_bio := Load_TS_MSG_IMPRINT_print_bio; + TS_CONF_load_cert := Load_TS_CONF_load_cert; + TS_CONF_load_key := Load_TS_CONF_load_key; + TS_CONF_set_serial := Load_TS_CONF_set_serial; + TS_CONF_get_tsa_section := Load_TS_CONF_get_tsa_section; + TS_CONF_set_crypto_device := Load_TS_CONF_set_crypto_device; + TS_CONF_set_default_engine := Load_TS_CONF_set_default_engine; + TS_CONF_set_signer_cert := Load_TS_CONF_set_signer_cert; + TS_CONF_set_certs := Load_TS_CONF_set_certs; + TS_CONF_set_signer_key := Load_TS_CONF_set_signer_key; + TS_CONF_set_signer_digest := Load_TS_CONF_set_signer_digest; + TS_CONF_set_def_policy := Load_TS_CONF_set_def_policy; + TS_CONF_set_policies := Load_TS_CONF_set_policies; + TS_CONF_set_digests := Load_TS_CONF_set_digests; + TS_CONF_set_accuracy := Load_TS_CONF_set_accuracy; + TS_CONF_set_clock_precision_digits := Load_TS_CONF_set_clock_precision_digits; + TS_CONF_set_ordering := Load_TS_CONF_set_ordering; + TS_CONF_set_tsa_name := Load_TS_CONF_set_tsa_name; + TS_CONF_set_ess_cert_id_chain := Load_TS_CONF_set_ess_cert_id_chain; + TS_CONF_set_ess_cert_id_digest := Load_TS_CONF_set_ess_cert_id_digest; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_tserr.pas b/src/opensslHdrs/IdOpenSSLHeaders_tserr.pas new file mode 100644 index 0000000..c59ba3d --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_tserr.pas @@ -0,0 +1,201 @@ +(* This unit was generated from the source file tserr.h2pas +It should not be modified directly. All changes should be made to tserr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_tserr; + + +interface + +// Headers for OpenSSL 1.1.1 +// tserr.h + + +uses + IdSSLOpenSSLAPI; + +const + (* + * TS function codes. + *) + TS_F_DEF_SERIAL_CB = 110; + TS_F_DEF_TIME_CB = 111; + TS_F_ESS_ADD_SIGNING_CERT = 112; + TS_F_ESS_ADD_SIGNING_CERT_V2 = 147; + TS_F_ESS_CERT_ID_NEW_INIT = 113; + TS_F_ESS_CERT_ID_V2_NEW_INIT = 156; + TS_F_ESS_SIGNING_CERT_NEW_INIT = 114; + TS_F_ESS_SIGNING_CERT_V2_NEW_INIT = 157; + TS_F_INT_TS_RESP_VERIFY_TOKEN = 149; + TS_F_PKCS7_TO_TS_TST_INFO = 148; + TS_F_TS_ACCURACY_SET_MICROS = 115; + TS_F_TS_ACCURACY_SET_MILLIS = 116; + TS_F_TS_ACCURACY_SET_SECONDS = 117; + TS_F_TS_CHECK_IMPRINTS = 100; + TS_F_TS_CHECK_NONCES = 101; + TS_F_TS_CHECK_POLICY = 102; + TS_F_TS_CHECK_SIGNING_CERTS = 103; + TS_F_TS_CHECK_STATUS_INFO = 104; + TS_F_TS_COMPUTE_IMPRINT = 145; + TS_F_TS_CONF_INVALID = 151; + TS_F_TS_CONF_LOAD_CERT = 153; + TS_F_TS_CONF_LOAD_CERTS = 154; + TS_F_TS_CONF_LOAD_KEY = 155; + TS_F_TS_CONF_LOOKUP_FAIL = 152; + TS_F_TS_CONF_SET_DEFAULT_ENGINE = 146; + TS_F_TS_GET_STATUS_TEXT = 105; + TS_F_TS_MSG_IMPRINT_SET_ALGO = 118; + TS_F_TS_REQ_SET_MSG_IMPRINT = 119; + TS_F_TS_REQ_SET_NONCE = 120; + TS_F_TS_REQ_SET_POLICY_ID = 121; + TS_F_TS_RESP_CREATE_RESPONSE = 122; + TS_F_TS_RESP_CREATE_TST_INFO = 123; + TS_F_TS_RESP_CTX_ADD_FAILURE_INFO = 124; + TS_F_TS_RESP_CTX_ADD_MD = 125; + TS_F_TS_RESP_CTX_ADD_POLICY = 126; + TS_F_TS_RESP_CTX_NEW = 127; + TS_F_TS_RESP_CTX_SET_ACCURACY = 128; + TS_F_TS_RESP_CTX_SET_CERTS = 129; + TS_F_TS_RESP_CTX_SET_DEF_POLICY = 130; + TS_F_TS_RESP_CTX_SET_SIGNER_CERT = 131; + TS_F_TS_RESP_CTX_SET_STATUS_INFO = 132; + TS_F_TS_RESP_GET_POLICY = 133; + TS_F_TS_RESP_SET_GENTIME_WITH_PRECISION = 134; + TS_F_TS_RESP_SET_STATUS_INFO = 135; + TS_F_TS_RESP_SET_TST_INFO = 150; + TS_F_TS_RESP_SIGN = 136; + TS_F_TS_RESP_VERIFY_SIGNATURE = 106; + TS_F_TS_TST_INFO_SET_ACCURACY = 137; + TS_F_TS_TST_INFO_SET_MSG_IMPRINT = 138; + TS_F_TS_TST_INFO_SET_NONCE = 139; + TS_F_TS_TST_INFO_SET_POLICY_ID = 140; + TS_F_TS_TST_INFO_SET_SERIAL = 141; + TS_F_TS_TST_INFO_SET_TIME = 142; + TS_F_TS_TST_INFO_SET_TSA = 143; + TS_F_TS_VERIFY = 108; + TS_F_TS_VERIFY_CERT = 109; + TS_F_TS_VERIFY_CTX_NEW = 144; + + (* + * TS reason codes. + *) + TS_R_BAD_PKCS7_TYPE = 132; + TS_R_BAD_TYPE = 133; + TS_R_CANNOT_LOAD_CERT = 137; + TS_R_CANNOT_LOAD_KEY = 138; + TS_R_CERTIFICATE_VERIFY_ERROR = 100; + TS_R_COULD_NOT_SET_ENGINE = 127; + TS_R_COULD_NOT_SET_TIME = 115; + TS_R_DETACHED_CONTENT = 134; + TS_R_ESS_ADD_SIGNING_CERT_ERROR = 116; + TS_R_ESS_ADD_SIGNING_CERT_V2_ERROR = 139; + TS_R_ESS_SIGNING_CERTIFICATE_ERROR = 101; + TS_R_INVALID_NULL_POINTER = 102; + TS_R_INVALID_SIGNER_CERTIFICATE_PURPOSE = 117; + TS_R_MESSAGE_IMPRINT_MISMATCH = 103; + TS_R_NONCE_MISMATCH = 104; + TS_R_NONCE_NOT_RETURNED = 105; + TS_R_NO_CONTENT = 106; + TS_R_NO_TIME_STAMP_TOKEN = 107; + TS_R_PKCS7_ADD_SIGNATURE_ERROR = 118; + TS_R_PKCS7_ADD_SIGNED_ATTR_ERROR = 119; + TS_R_PKCS7_TO_TS_TST_INFO_FAILED = 129; + TS_R_POLICY_MISMATCH = 108; + TS_R_PRIVATE_KEY_DOES_NOT_MATCH_CERTIFICATE = 120; + TS_R_RESPONSE_SETUP_ERROR = 121; + TS_R_SIGNATURE_FAILURE = 109; + TS_R_THERE_MUST_BE_ONE_SIGNER = 110; + TS_R_TIME_SYSCALL_ERROR = 122; + TS_R_TOKEN_NOT_PRESENT = 130; + TS_R_TOKEN_PRESENT = 131; + TS_R_TSA_NAME_MISMATCH = 111; + TS_R_TSA_UNTRUSTED = 112; + TS_R_TST_INFO_SETUP_ERROR = 123; + TS_R_TS_DATASIGN = 124; + TS_R_UNACCEPTABLE_POLICY = 125; + TS_R_UNSUPPORTED_MD_ALGORITHM = 126; + TS_R_UNSUPPORTED_VERSION = 113; + TS_R_VAR_BAD_VALUE = 135; + TS_R_VAR_LOOKUP_FAILURE = 136; + TS_R_WRONG_CONTENT_TYPE = 114; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_TS_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_TS_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_TS_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_TS_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_TS_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_TS_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_TS_strings := LoadLibCryptoFunction('ERR_load_TS_strings'); + if not assigned(ERR_load_TS_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_TS_strings'); + Result := ERR_load_TS_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_TS_strings := Load_ERR_load_TS_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_txt_db.pas b/src/opensslHdrs/IdOpenSSLHeaders_txt_db.pas new file mode 100644 index 0000000..9b94102 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_txt_db.pas @@ -0,0 +1,178 @@ +(* This unit was generated from the source file txt_db.h2pas +It should not be modified directly. All changes should be made to txt_db.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_txt_db; + + +interface + +// Headers for OpenSSL 1.1.1 +// txt_db.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_safestack, + IdOpenSSLHeaders_ossl_typ; + +const + DB_ERROR_OK = 0; + DB_ERROR_MALLOC = 1; + DB_ERROR_INDEX_CLASH = 2; + DB_ERROR_INDEX_OUT_OF_RANGE = 3; + DB_ERROR_NO_INDEX = 4; + DB_ERROR_INSERT_INDEX_CLASH = 5; + DB_ERROR_WRONG_NUM_FIELDS = 6; + +type +// DEFINE_SPECIAL_STACK_OF(OPENSSL_PSTRING, OPENSSL_STRING) + + qual_func = function (v1: POPENSSL_STRING): TOpenSSL_C_INT; + txt_db_st = record + num_fields: TOpenSSL_C_INT; + data: Pointer; // STACK_OF(OPENSSL_PSTRING) * + index: Pointer; // LHASH_OF(OPENSSL_STRING) ** + qual: qual_func; + error: TOpenSSL_C_LONG; + arg1: TOpenSSL_C_LONG; + arg2: TOpenSSL_C_LONG; + arg_row: POPENSSL_STRING; + end; + TXT_DB = txt_db_st; + PTXT_DB = ^TXT_DB; + + TXT_DB_create_index_qual = function(v1: POPENSSL_STRING): TOpenSSL_C_INT; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM TXT_DB_read} +{$EXTERNALSYM TXT_DB_write} +{$EXTERNALSYM TXT_DB_free} +{$EXTERNALSYM TXT_DB_get_by_index} +{$EXTERNALSYM TXT_DB_insert} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function TXT_DB_read(in_: PBIO; num: TOpenSSL_C_INT): PTXT_DB; cdecl; external CLibCrypto; +function TXT_DB_write(out_: PBIO; db: PTXT_DB): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +procedure TXT_DB_free(db: PTXT_DB); cdecl; external CLibCrypto; +function TXT_DB_get_by_index(db: PTXT_DB; idx: TOpenSSL_C_INT; value: POPENSSL_STRING): POPENSSL_STRING; cdecl; external CLibCrypto; +function TXT_DB_insert(db: PTXT_DB; value: POPENSSL_STRING): TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_TXT_DB_read(in_: PBIO; num: TOpenSSL_C_INT): PTXT_DB; cdecl; +function Load_TXT_DB_write(out_: PBIO; db: PTXT_DB): TOpenSSL_C_LONG; cdecl; +procedure Load_TXT_DB_free(db: PTXT_DB); cdecl; +function Load_TXT_DB_get_by_index(db: PTXT_DB; idx: TOpenSSL_C_INT; value: POPENSSL_STRING): POPENSSL_STRING; cdecl; +function Load_TXT_DB_insert(db: PTXT_DB; value: POPENSSL_STRING): TOpenSSL_C_INT; cdecl; + +var + TXT_DB_read: function (in_: PBIO; num: TOpenSSL_C_INT): PTXT_DB; cdecl = Load_TXT_DB_read; + TXT_DB_write: function (out_: PBIO; db: PTXT_DB): TOpenSSL_C_LONG; cdecl = Load_TXT_DB_write; + TXT_DB_free: procedure (db: PTXT_DB); cdecl = Load_TXT_DB_free; + TXT_DB_get_by_index: function (db: PTXT_DB; idx: TOpenSSL_C_INT; value: POPENSSL_STRING): POPENSSL_STRING; cdecl = Load_TXT_DB_get_by_index; + TXT_DB_insert: function (db: PTXT_DB; value: POPENSSL_STRING): TOpenSSL_C_INT; cdecl = Load_TXT_DB_insert; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_TXT_DB_read(in_: PBIO; num: TOpenSSL_C_INT): PTXT_DB; cdecl; +begin + TXT_DB_read := LoadLibCryptoFunction('TXT_DB_read'); + if not assigned(TXT_DB_read) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TXT_DB_read'); + Result := TXT_DB_read(in_,num); +end; + +function Load_TXT_DB_write(out_: PBIO; db: PTXT_DB): TOpenSSL_C_LONG; cdecl; +begin + TXT_DB_write := LoadLibCryptoFunction('TXT_DB_write'); + if not assigned(TXT_DB_write) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TXT_DB_write'); + Result := TXT_DB_write(out_,db); +end; + +procedure Load_TXT_DB_free(db: PTXT_DB); cdecl; +begin + TXT_DB_free := LoadLibCryptoFunction('TXT_DB_free'); + if not assigned(TXT_DB_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TXT_DB_free'); + TXT_DB_free(db); +end; + +function Load_TXT_DB_get_by_index(db: PTXT_DB; idx: TOpenSSL_C_INT; value: POPENSSL_STRING): POPENSSL_STRING; cdecl; +begin + TXT_DB_get_by_index := LoadLibCryptoFunction('TXT_DB_get_by_index'); + if not assigned(TXT_DB_get_by_index) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TXT_DB_get_by_index'); + Result := TXT_DB_get_by_index(db,idx,value); +end; + +function Load_TXT_DB_insert(db: PTXT_DB; value: POPENSSL_STRING): TOpenSSL_C_INT; cdecl; +begin + TXT_DB_insert := LoadLibCryptoFunction('TXT_DB_insert'); + if not assigned(TXT_DB_insert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('TXT_DB_insert'); + Result := TXT_DB_insert(db,value); +end; + + +procedure UnLoad; +begin + TXT_DB_read := Load_TXT_DB_read; + TXT_DB_write := Load_TXT_DB_write; + TXT_DB_free := Load_TXT_DB_free; + TXT_DB_get_by_index := Load_TXT_DB_get_by_index; + TXT_DB_insert := Load_TXT_DB_insert; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_ui.pas b/src/opensslHdrs/IdOpenSSLHeaders_ui.pas new file mode 100644 index 0000000..93af516 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_ui.pas @@ -0,0 +1,983 @@ +(* This unit was generated from the source file ui.h2pas +It should not be modified directly. All changes should be made to ui.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_ui; + + +interface + +// Headers for OpenSSL 1.1.1 +// ui.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_crypto, + IdOpenSSLHeaders_pem, + IdOpenSSLHeaders_uierr; + +{$MINENUMSIZE 4} + +const + (* These are the possible flags. They can be or'ed together. *) + (* Use to have echoing of input *) + UI_INPUT_FLAG_ECHO = $01; + (* + * Use a default password. Where that password is found is completely up to + * the application, it might for example be in the user data set with + * UI_add_user_data(). It is not recommended to have more than one input in + * each UI being marked with this flag, or the application might get + * confused. + *) + UI_INPUT_FLAG_DEFAULT_PWD = $02; + + + (* + * The user of these routines may want to define flags of their own. The core + * UI won't look at those, but will pass them on to the method routines. They + * must use higher bits so they don't get confused with the UI bits above. + * UI_INPUT_FLAG_USER_BASE tells which is the lowest bit to use. A good + * example of use is this: + * + * #define MY_UI_FLAG1 (0x01 << UI_INPUT_FLAG_USER_BASE) + * + *) + UI_INPUT_FLAG_USER_BASE = 16; + + (* The commands *) + (* + * Use UI_CONTROL_PRINT_ERRORS with the value 1 to have UI_process print the + * OpenSSL error stack before printing any info or added error messages and + * before any prompting. + *) + UI_CTRL_PRINT_ERRORS = 1; + (* + * Check if a UI_process() is possible to do again with the same instance of + * a user interface. This makes UI_ctrl() return 1 if it is redoable, and 0 + * if not. + *) + UI_CTRL_IS_REDOABLE = 2; + +type + (* + * Give a user interface parameterised control commands. This can be used to + * send down an integer, a data pointer or a function pointer, as well as be + * used to get information from a UI. + *) + UI_ctrl_f = procedure; + + (* + * The UI_STRING type is the data structure that contains all the needed info + * about a string or a prompt, including test data for a verification prompt. + *) + ui_string_st = type Pointer; + UI_STRING = ui_string_st; + PUI_STRING = ^UI_STRING; +// DEFINE_STACK_OF(UI_STRING) + + (* + * The different types of strings that are currently supported. This is only + * needed by method authors. + *) + UI_string_types = ( + UIT_NONE = 0, + UIT_PROMPT, (* Prompt for a string *) + UIT_VERIFY, (* Prompt for a string and verify *) + UIT_BOOLEAN, (* Prompt for a yes/no response *) + UIT_INFO, (* Send info to the user *) + UIT_ERROR (* Send an error message to the user *) + ); + + (* Create and manipulate methods *) + UI_method_opener_cb = function(ui: PUI): TOpenSSL_C_INT; + UI_method_writer_cb = function(ui: PUI; uis: PUI_String): TOpenSSL_C_INT; + UI_method_flusher_cb = function(ui: PUI): TOpenSSL_C_INT; + UI_method_reader_cb = function(ui: PUI; uis: PUI_String): TOpenSSL_C_INT; + UI_method_closer_cb = function(ui: PUI): TOpenSSL_C_INT; + UI_method_data_duplicator_cb = function(ui: PUI; ui_data: Pointer): Pointer; + UI_method_data_destructor_cb = procedure(ui: PUI; ui_data: Pointer); + UI_method_prompt_constructor_cb = function(ui: PUI; const object_desc: PAnsiChar; const object_name: PAnsiChar): PAnsiChar; + + (* + * All the following functions return -1 or NULL on error and in some cases + * (UI_process()) -2 if interrupted or in some other way cancelled. When + * everything is fine, they return 0, a positive value or a non-NULL pointer, + * all depending on their purpose. + *) + + (* Creators and destructor. *) + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM UI_new} +{$EXTERNALSYM UI_new_method} +{$EXTERNALSYM UI_free} +{$EXTERNALSYM UI_add_input_string} +{$EXTERNALSYM UI_dup_input_string} +{$EXTERNALSYM UI_add_verify_string} +{$EXTERNALSYM UI_dup_verify_string} +{$EXTERNALSYM UI_add_input_boolean} +{$EXTERNALSYM UI_dup_input_boolean} +{$EXTERNALSYM UI_add_info_string} +{$EXTERNALSYM UI_dup_info_string} +{$EXTERNALSYM UI_add_error_string} +{$EXTERNALSYM UI_dup_error_string} +{$EXTERNALSYM UI_construct_prompt} +{$EXTERNALSYM UI_add_user_data} +{$EXTERNALSYM UI_dup_user_data} +{$EXTERNALSYM UI_get0_user_data} +{$EXTERNALSYM UI_get0_result} +{$EXTERNALSYM UI_get_result_length} +{$EXTERNALSYM UI_process} +{$EXTERNALSYM UI_ctrl} +{$EXTERNALSYM UI_set_ex_data} +{$EXTERNALSYM UI_get_ex_data} +{$EXTERNALSYM UI_set_default_method} +{$EXTERNALSYM UI_get_default_method} +{$EXTERNALSYM UI_get_method} +{$EXTERNALSYM UI_set_method} +{$EXTERNALSYM UI_OpenSSL} +{$EXTERNALSYM UI_null} +{$EXTERNALSYM UI_create_method} +{$EXTERNALSYM UI_destroy_method} +{$EXTERNALSYM UI_method_set_opener} +{$EXTERNALSYM UI_method_set_writer} +{$EXTERNALSYM UI_method_set_flusher} +{$EXTERNALSYM UI_method_set_reader} +{$EXTERNALSYM UI_method_set_closer} +{$EXTERNALSYM UI_method_set_data_duplicator} +{$EXTERNALSYM UI_method_set_prompt_constructor} +{$EXTERNALSYM UI_method_set_ex_data} +{$EXTERNALSYM UI_method_get_opener} +{$EXTERNALSYM UI_method_get_writer} +{$EXTERNALSYM UI_method_get_flusher} +{$EXTERNALSYM UI_method_get_reader} +{$EXTERNALSYM UI_method_get_closer} +{$EXTERNALSYM UI_method_get_prompt_constructor} +{$EXTERNALSYM UI_method_get_data_duplicator} +{$EXTERNALSYM UI_method_get_data_destructor} +{$EXTERNALSYM UI_method_get_ex_data} +{$EXTERNALSYM UI_get_string_type} +{$EXTERNALSYM UI_get_input_flags} +{$EXTERNALSYM UI_get0_output_string} +{$EXTERNALSYM UI_get0_action_string} +{$EXTERNALSYM UI_get0_result_string} +{$EXTERNALSYM UI_get_result_string_length} +{$EXTERNALSYM UI_get0_test_string} +{$EXTERNALSYM UI_get_result_minsize} +{$EXTERNALSYM UI_get_result_maxsize} +{$EXTERNALSYM UI_set_result} +{$EXTERNALSYM UI_set_result_ex} +{$EXTERNALSYM UI_UTIL_read_pw_string} +{$EXTERNALSYM UI_UTIL_read_pw} +{$EXTERNALSYM UI_UTIL_wrap_read_pem_callback} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function UI_new: PUI; cdecl; external CLibCrypto; +function UI_new_method(const method: PUI_Method): PUI; cdecl; external CLibCrypto; +procedure UI_free(ui: PUI); cdecl; external CLibCrypto; +function UI_add_input_string(ui: PUI; const prompt: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar; minsize: TOpenSSL_C_INT; maxsize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_dup_input_string(ui: PUI; const prompt: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar; minsize: TOpenSSL_C_INT; maxsize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_add_verify_string(ui: PUI; const prompt: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar; minsize: TOpenSSL_C_INT; maxsize: TOpenSSL_C_INT; const test_buf: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_dup_verify_string(ui: PUI; const prompt: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar; minsize: TOpenSSL_C_INT; maxsize: TOpenSSL_C_INT; const test_buf: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_add_input_boolean(ui: PUI; const prompt: PAnsiChar; const action_desc: PAnsiChar; const ok_chars: PAnsiChar; const cancel_chars: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_dup_input_boolean(ui: PUI; const prompt: PAnsiChar; const action_desc: PAnsiChar; const ok_chars: PAnsiChar; const cancel_chars: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_add_info_string(ui: PUI; const text: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_dup_info_string(ui: PUI; const text: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_add_error_string(ui: PUI; const text: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_dup_error_string(ui: PUI; const text: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_construct_prompt(ui_method: PUI; const object_desc: PAnsiChar; const object_name: PAnsiChar): PAnsiChar; cdecl; external CLibCrypto; +function UI_add_user_data(ui: PUI; user_data: Pointer): Pointer; cdecl; external CLibCrypto; +function UI_dup_user_data(ui: PUI; user_data: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_get0_user_data(ui: PUI): Pointer; cdecl; external CLibCrypto; +function UI_get0_result(ui: PUI; i: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibCrypto; +function UI_get_result_length(ui: PUI; i: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_process(ui: PUI): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_ctrl(ui: PUI; cmd: TOpenSSL_C_INT; i: TOpenSSL_C_LONG; p: Pointer; f: UI_ctrl_f): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_set_ex_data(r: PUI; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_get_ex_data(r: PUI; idx: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +procedure UI_set_default_method(const meth: PUI_Method); cdecl; external CLibCrypto; +function UI_get_default_method: PUI_METHOD; cdecl; external CLibCrypto; +function UI_get_method(ui: PUI): PUI_METHOD; cdecl; external CLibCrypto; +function UI_set_method(ui: PUI; const meth: PUI_METHOD): PUI_METHOD; cdecl; external CLibCrypto; +function UI_OpenSSL: PUI_Method; cdecl; external CLibCrypto; +function UI_null: PUI_METHOD; cdecl; external CLibCrypto; +function UI_create_method(const name: PAnsiChar): PUI_Method; cdecl; external CLibCrypto; +procedure UI_destroy_method(ui_method: PUI_Method); cdecl; external CLibCrypto; +function UI_method_set_opener(method: PUI_Method; opener: UI_method_opener_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_method_set_writer(method: PUI_Method; writer: UI_method_writer_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_method_set_flusher(method: PUI_Method; flusher: UI_method_flusher_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_method_set_reader(method: PUI_Method; reader: UI_method_reader_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_method_set_closer(method: PUI_Method; closer: UI_method_closer_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_method_set_data_duplicator(method: PUI_Method; duplicator: UI_method_data_duplicator_cb; destructor_: UI_method_data_destructor_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_method_set_prompt_constructor(method: PUI_Method; prompt_constructor: UI_method_prompt_constructor_cb): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_method_set_ex_data(method: PUI_Method; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_method_get_opener(const method: PUI_METHOD): UI_method_opener_cb; cdecl; external CLibCrypto; +function UI_method_get_writer(const method: PUI_METHOD): UI_method_writer_cb; cdecl; external CLibCrypto; +function UI_method_get_flusher(const method: PUI_METHOD): UI_method_flusher_cb; cdecl; external CLibCrypto; +function UI_method_get_reader(const method: PUI_METHOD): UI_method_reader_cb; cdecl; external CLibCrypto; +function UI_method_get_closer(const method: PUI_METHOD): UI_method_closer_cb; cdecl; external CLibCrypto; +function UI_method_get_prompt_constructor(const method: PUI_METHOD): UI_method_prompt_constructor_cb; cdecl; external CLibCrypto; +function UI_method_get_data_duplicator(const method: PUI_METHOD): UI_method_data_duplicator_cb; cdecl; external CLibCrypto; +function UI_method_get_data_destructor(const method: PUI_METHOD): UI_method_data_destructor_cb; cdecl; external CLibCrypto; +function UI_method_get_ex_data(const method: PUI_METHOD; idx: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function UI_get_string_type(uis: PUI_String): UI_string_types; cdecl; external CLibCrypto; +function UI_get_input_flags(uis: PUI_String): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_get0_output_string(uis: PUI_String): PAnsiChar; cdecl; external CLibCrypto; +function UI_get0_action_string(uis: PUI_String): PAnsiChar; cdecl; external CLibCrypto; +function UI_get0_result_string(uis: PUI_String): PAnsiChar; cdecl; external CLibCrypto; +function UI_get_result_string_length(uis: PUI_String): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_get0_test_string(uis: PUI_String): PAnsiChar; cdecl; external CLibCrypto; +function UI_get_result_minsize(uis: PUI_String): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_get_result_maxsize(uis: PUI_String): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_set_result(ui: PUI; uis: PUI_String; const result_: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_set_result_ex(ui: PUI; uis: PUI_String; const result_: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_UTIL_read_pw_string(buf: PAnsiChar; length: TOpenSSL_C_INT; const prompt: PAnsiChar; verify: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_UTIL_read_pw(buf: PAnsiChar; buff: PAnsiChar; size: TOpenSSL_C_INT; const prompt: PAnsiChar; verify: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function UI_UTIL_wrap_read_pem_callback(cb: pem_password_cb; rwflag: TOpenSSL_C_INT): PUI_Method; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_UI_new: PUI; cdecl; +function Load_UI_new_method(const method: PUI_Method): PUI; cdecl; +procedure Load_UI_free(ui: PUI); cdecl; +function Load_UI_add_input_string(ui: PUI; const prompt: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar; minsize: TOpenSSL_C_INT; maxsize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_UI_dup_input_string(ui: PUI; const prompt: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar; minsize: TOpenSSL_C_INT; maxsize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_UI_add_verify_string(ui: PUI; const prompt: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar; minsize: TOpenSSL_C_INT; maxsize: TOpenSSL_C_INT; const test_buf: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_UI_dup_verify_string(ui: PUI; const prompt: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar; minsize: TOpenSSL_C_INT; maxsize: TOpenSSL_C_INT; const test_buf: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_UI_add_input_boolean(ui: PUI; const prompt: PAnsiChar; const action_desc: PAnsiChar; const ok_chars: PAnsiChar; const cancel_chars: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_UI_dup_input_boolean(ui: PUI; const prompt: PAnsiChar; const action_desc: PAnsiChar; const ok_chars: PAnsiChar; const cancel_chars: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_UI_add_info_string(ui: PUI; const text: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_UI_dup_info_string(ui: PUI; const text: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_UI_add_error_string(ui: PUI; const text: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_UI_dup_error_string(ui: PUI; const text: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_UI_construct_prompt(ui_method: PUI; const object_desc: PAnsiChar; const object_name: PAnsiChar): PAnsiChar; cdecl; +function Load_UI_add_user_data(ui: PUI; user_data: Pointer): Pointer; cdecl; +function Load_UI_dup_user_data(ui: PUI; user_data: Pointer): TOpenSSL_C_INT; cdecl; +function Load_UI_get0_user_data(ui: PUI): Pointer; cdecl; +function Load_UI_get0_result(ui: PUI; i: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_UI_get_result_length(ui: PUI; i: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_UI_process(ui: PUI): TOpenSSL_C_INT; cdecl; +function Load_UI_ctrl(ui: PUI; cmd: TOpenSSL_C_INT; i: TOpenSSL_C_LONG; p: Pointer; f: UI_ctrl_f): TOpenSSL_C_INT; cdecl; +function Load_UI_set_ex_data(r: PUI; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; +function Load_UI_get_ex_data(r: PUI; idx: TOpenSSL_C_INT): Pointer; cdecl; +procedure Load_UI_set_default_method(const meth: PUI_Method); cdecl; +function Load_UI_get_default_method: PUI_METHOD; cdecl; +function Load_UI_get_method(ui: PUI): PUI_METHOD; cdecl; +function Load_UI_set_method(ui: PUI; const meth: PUI_METHOD): PUI_METHOD; cdecl; +function Load_UI_OpenSSL: PUI_Method; cdecl; +function Load_UI_null: PUI_METHOD; cdecl; +function Load_UI_create_method(const name: PAnsiChar): PUI_Method; cdecl; +procedure Load_UI_destroy_method(ui_method: PUI_Method); cdecl; +function Load_UI_method_set_opener(method: PUI_Method; opener: UI_method_opener_cb): TOpenSSL_C_INT; cdecl; +function Load_UI_method_set_writer(method: PUI_Method; writer: UI_method_writer_cb): TOpenSSL_C_INT; cdecl; +function Load_UI_method_set_flusher(method: PUI_Method; flusher: UI_method_flusher_cb): TOpenSSL_C_INT; cdecl; +function Load_UI_method_set_reader(method: PUI_Method; reader: UI_method_reader_cb): TOpenSSL_C_INT; cdecl; +function Load_UI_method_set_closer(method: PUI_Method; closer: UI_method_closer_cb): TOpenSSL_C_INT; cdecl; +function Load_UI_method_set_data_duplicator(method: PUI_Method; duplicator: UI_method_data_duplicator_cb; destructor_: UI_method_data_destructor_cb): TOpenSSL_C_INT; cdecl; +function Load_UI_method_set_prompt_constructor(method: PUI_Method; prompt_constructor: UI_method_prompt_constructor_cb): TOpenSSL_C_INT; cdecl; +function Load_UI_method_set_ex_data(method: PUI_Method; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; +function Load_UI_method_get_opener(const method: PUI_METHOD): UI_method_opener_cb; cdecl; +function Load_UI_method_get_writer(const method: PUI_METHOD): UI_method_writer_cb; cdecl; +function Load_UI_method_get_flusher(const method: PUI_METHOD): UI_method_flusher_cb; cdecl; +function Load_UI_method_get_reader(const method: PUI_METHOD): UI_method_reader_cb; cdecl; +function Load_UI_method_get_closer(const method: PUI_METHOD): UI_method_closer_cb; cdecl; +function Load_UI_method_get_prompt_constructor(const method: PUI_METHOD): UI_method_prompt_constructor_cb; cdecl; +function Load_UI_method_get_data_duplicator(const method: PUI_METHOD): UI_method_data_duplicator_cb; cdecl; +function Load_UI_method_get_data_destructor(const method: PUI_METHOD): UI_method_data_destructor_cb; cdecl; +function Load_UI_method_get_ex_data(const method: PUI_METHOD; idx: TOpenSSL_C_INT): Pointer; cdecl; +function Load_UI_get_string_type(uis: PUI_String): UI_string_types; cdecl; +function Load_UI_get_input_flags(uis: PUI_String): TOpenSSL_C_INT; cdecl; +function Load_UI_get0_output_string(uis: PUI_String): PAnsiChar; cdecl; +function Load_UI_get0_action_string(uis: PUI_String): PAnsiChar; cdecl; +function Load_UI_get0_result_string(uis: PUI_String): PAnsiChar; cdecl; +function Load_UI_get_result_string_length(uis: PUI_String): TOpenSSL_C_INT; cdecl; +function Load_UI_get0_test_string(uis: PUI_String): PAnsiChar; cdecl; +function Load_UI_get_result_minsize(uis: PUI_String): TOpenSSL_C_INT; cdecl; +function Load_UI_get_result_maxsize(uis: PUI_String): TOpenSSL_C_INT; cdecl; +function Load_UI_set_result(ui: PUI; uis: PUI_String; const result_: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_UI_set_result_ex(ui: PUI; uis: PUI_String; const result_: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_UI_UTIL_read_pw_string(buf: PAnsiChar; length: TOpenSSL_C_INT; const prompt: PAnsiChar; verify: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_UI_UTIL_read_pw(buf: PAnsiChar; buff: PAnsiChar; size: TOpenSSL_C_INT; const prompt: PAnsiChar; verify: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_UI_UTIL_wrap_read_pem_callback(cb: pem_password_cb; rwflag: TOpenSSL_C_INT): PUI_Method; cdecl; + +var + UI_new: function : PUI; cdecl = Load_UI_new; + UI_new_method: function (const method: PUI_Method): PUI; cdecl = Load_UI_new_method; + UI_free: procedure (ui: PUI); cdecl = Load_UI_free; + UI_add_input_string: function (ui: PUI; const prompt: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar; minsize: TOpenSSL_C_INT; maxsize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_UI_add_input_string; + UI_dup_input_string: function (ui: PUI; const prompt: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar; minsize: TOpenSSL_C_INT; maxsize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_UI_dup_input_string; + UI_add_verify_string: function (ui: PUI; const prompt: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar; minsize: TOpenSSL_C_INT; maxsize: TOpenSSL_C_INT; const test_buf: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_UI_add_verify_string; + UI_dup_verify_string: function (ui: PUI; const prompt: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar; minsize: TOpenSSL_C_INT; maxsize: TOpenSSL_C_INT; const test_buf: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_UI_dup_verify_string; + UI_add_input_boolean: function (ui: PUI; const prompt: PAnsiChar; const action_desc: PAnsiChar; const ok_chars: PAnsiChar; const cancel_chars: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_UI_add_input_boolean; + UI_dup_input_boolean: function (ui: PUI; const prompt: PAnsiChar; const action_desc: PAnsiChar; const ok_chars: PAnsiChar; const cancel_chars: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_UI_dup_input_boolean; + UI_add_info_string: function (ui: PUI; const text: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_UI_add_info_string; + UI_dup_info_string: function (ui: PUI; const text: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_UI_dup_info_string; + UI_add_error_string: function (ui: PUI; const text: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_UI_add_error_string; + UI_dup_error_string: function (ui: PUI; const text: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_UI_dup_error_string; + UI_construct_prompt: function (ui_method: PUI; const object_desc: PAnsiChar; const object_name: PAnsiChar): PAnsiChar; cdecl = Load_UI_construct_prompt; + UI_add_user_data: function (ui: PUI; user_data: Pointer): Pointer; cdecl = Load_UI_add_user_data; + UI_dup_user_data: function (ui: PUI; user_data: Pointer): TOpenSSL_C_INT; cdecl = Load_UI_dup_user_data; + UI_get0_user_data: function (ui: PUI): Pointer; cdecl = Load_UI_get0_user_data; + UI_get0_result: function (ui: PUI; i: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_UI_get0_result; + UI_get_result_length: function (ui: PUI; i: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_UI_get_result_length; + UI_process: function (ui: PUI): TOpenSSL_C_INT; cdecl = Load_UI_process; + UI_ctrl: function (ui: PUI; cmd: TOpenSSL_C_INT; i: TOpenSSL_C_LONG; p: Pointer; f: UI_ctrl_f): TOpenSSL_C_INT; cdecl = Load_UI_ctrl; + UI_set_ex_data: function (r: PUI; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl = Load_UI_set_ex_data; + UI_get_ex_data: function (r: PUI; idx: TOpenSSL_C_INT): Pointer; cdecl = Load_UI_get_ex_data; + UI_set_default_method: procedure (const meth: PUI_Method); cdecl = Load_UI_set_default_method; + UI_get_default_method: function : PUI_METHOD; cdecl = Load_UI_get_default_method; + UI_get_method: function (ui: PUI): PUI_METHOD; cdecl = Load_UI_get_method; + UI_set_method: function (ui: PUI; const meth: PUI_METHOD): PUI_METHOD; cdecl = Load_UI_set_method; + UI_OpenSSL: function : PUI_Method; cdecl = Load_UI_OpenSSL; + UI_null: function : PUI_METHOD; cdecl = Load_UI_null; + UI_create_method: function (const name: PAnsiChar): PUI_Method; cdecl = Load_UI_create_method; + UI_destroy_method: procedure (ui_method: PUI_Method); cdecl = Load_UI_destroy_method; + UI_method_set_opener: function (method: PUI_Method; opener: UI_method_opener_cb): TOpenSSL_C_INT; cdecl = Load_UI_method_set_opener; + UI_method_set_writer: function (method: PUI_Method; writer: UI_method_writer_cb): TOpenSSL_C_INT; cdecl = Load_UI_method_set_writer; + UI_method_set_flusher: function (method: PUI_Method; flusher: UI_method_flusher_cb): TOpenSSL_C_INT; cdecl = Load_UI_method_set_flusher; + UI_method_set_reader: function (method: PUI_Method; reader: UI_method_reader_cb): TOpenSSL_C_INT; cdecl = Load_UI_method_set_reader; + UI_method_set_closer: function (method: PUI_Method; closer: UI_method_closer_cb): TOpenSSL_C_INT; cdecl = Load_UI_method_set_closer; + UI_method_set_data_duplicator: function (method: PUI_Method; duplicator: UI_method_data_duplicator_cb; destructor_: UI_method_data_destructor_cb): TOpenSSL_C_INT; cdecl = Load_UI_method_set_data_duplicator; + UI_method_set_prompt_constructor: function (method: PUI_Method; prompt_constructor: UI_method_prompt_constructor_cb): TOpenSSL_C_INT; cdecl = Load_UI_method_set_prompt_constructor; + UI_method_set_ex_data: function (method: PUI_Method; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl = Load_UI_method_set_ex_data; + UI_method_get_opener: function (const method: PUI_METHOD): UI_method_opener_cb; cdecl = Load_UI_method_get_opener; + UI_method_get_writer: function (const method: PUI_METHOD): UI_method_writer_cb; cdecl = Load_UI_method_get_writer; + UI_method_get_flusher: function (const method: PUI_METHOD): UI_method_flusher_cb; cdecl = Load_UI_method_get_flusher; + UI_method_get_reader: function (const method: PUI_METHOD): UI_method_reader_cb; cdecl = Load_UI_method_get_reader; + UI_method_get_closer: function (const method: PUI_METHOD): UI_method_closer_cb; cdecl = Load_UI_method_get_closer; + UI_method_get_prompt_constructor: function (const method: PUI_METHOD): UI_method_prompt_constructor_cb; cdecl = Load_UI_method_get_prompt_constructor; + UI_method_get_data_duplicator: function (const method: PUI_METHOD): UI_method_data_duplicator_cb; cdecl = Load_UI_method_get_data_duplicator; + UI_method_get_data_destructor: function (const method: PUI_METHOD): UI_method_data_destructor_cb; cdecl = Load_UI_method_get_data_destructor; + UI_method_get_ex_data: function (const method: PUI_METHOD; idx: TOpenSSL_C_INT): Pointer; cdecl = Load_UI_method_get_ex_data; + UI_get_string_type: function (uis: PUI_String): UI_string_types; cdecl = Load_UI_get_string_type; + UI_get_input_flags: function (uis: PUI_String): TOpenSSL_C_INT; cdecl = Load_UI_get_input_flags; + UI_get0_output_string: function (uis: PUI_String): PAnsiChar; cdecl = Load_UI_get0_output_string; + UI_get0_action_string: function (uis: PUI_String): PAnsiChar; cdecl = Load_UI_get0_action_string; + UI_get0_result_string: function (uis: PUI_String): PAnsiChar; cdecl = Load_UI_get0_result_string; + UI_get_result_string_length: function (uis: PUI_String): TOpenSSL_C_INT; cdecl = Load_UI_get_result_string_length; + UI_get0_test_string: function (uis: PUI_String): PAnsiChar; cdecl = Load_UI_get0_test_string; + UI_get_result_minsize: function (uis: PUI_String): TOpenSSL_C_INT; cdecl = Load_UI_get_result_minsize; + UI_get_result_maxsize: function (uis: PUI_String): TOpenSSL_C_INT; cdecl = Load_UI_get_result_maxsize; + UI_set_result: function (ui: PUI; uis: PUI_String; const result_: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_UI_set_result; + UI_set_result_ex: function (ui: PUI; uis: PUI_String; const result_: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_UI_set_result_ex; + UI_UTIL_read_pw_string: function (buf: PAnsiChar; length: TOpenSSL_C_INT; const prompt: PAnsiChar; verify: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_UI_UTIL_read_pw_string; + UI_UTIL_read_pw: function (buf: PAnsiChar; buff: PAnsiChar; size: TOpenSSL_C_INT; const prompt: PAnsiChar; verify: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_UI_UTIL_read_pw; + UI_UTIL_wrap_read_pem_callback: function (cb: pem_password_cb; rwflag: TOpenSSL_C_INT): PUI_Method; cdecl = Load_UI_UTIL_wrap_read_pem_callback; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_UI_new: PUI; cdecl; +begin + UI_new := LoadLibCryptoFunction('UI_new'); + if not assigned(UI_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_new'); + Result := UI_new(); +end; + +function Load_UI_new_method(const method: PUI_Method): PUI; cdecl; +begin + UI_new_method := LoadLibCryptoFunction('UI_new_method'); + if not assigned(UI_new_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_new_method'); + Result := UI_new_method(method); +end; + +procedure Load_UI_free(ui: PUI); cdecl; +begin + UI_free := LoadLibCryptoFunction('UI_free'); + if not assigned(UI_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_free'); + UI_free(ui); +end; + +function Load_UI_add_input_string(ui: PUI; const prompt: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar; minsize: TOpenSSL_C_INT; maxsize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + UI_add_input_string := LoadLibCryptoFunction('UI_add_input_string'); + if not assigned(UI_add_input_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_add_input_string'); + Result := UI_add_input_string(ui,prompt,flags,result_buf,minsize,maxsize); +end; + +function Load_UI_dup_input_string(ui: PUI; const prompt: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar; minsize: TOpenSSL_C_INT; maxsize: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + UI_dup_input_string := LoadLibCryptoFunction('UI_dup_input_string'); + if not assigned(UI_dup_input_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_dup_input_string'); + Result := UI_dup_input_string(ui,prompt,flags,result_buf,minsize,maxsize); +end; + +function Load_UI_add_verify_string(ui: PUI; const prompt: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar; minsize: TOpenSSL_C_INT; maxsize: TOpenSSL_C_INT; const test_buf: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + UI_add_verify_string := LoadLibCryptoFunction('UI_add_verify_string'); + if not assigned(UI_add_verify_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_add_verify_string'); + Result := UI_add_verify_string(ui,prompt,flags,result_buf,minsize,maxsize,test_buf); +end; + +function Load_UI_dup_verify_string(ui: PUI; const prompt: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar; minsize: TOpenSSL_C_INT; maxsize: TOpenSSL_C_INT; const test_buf: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + UI_dup_verify_string := LoadLibCryptoFunction('UI_dup_verify_string'); + if not assigned(UI_dup_verify_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_dup_verify_string'); + Result := UI_dup_verify_string(ui,prompt,flags,result_buf,minsize,maxsize,test_buf); +end; + +function Load_UI_add_input_boolean(ui: PUI; const prompt: PAnsiChar; const action_desc: PAnsiChar; const ok_chars: PAnsiChar; const cancel_chars: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + UI_add_input_boolean := LoadLibCryptoFunction('UI_add_input_boolean'); + if not assigned(UI_add_input_boolean) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_add_input_boolean'); + Result := UI_add_input_boolean(ui,prompt,action_desc,ok_chars,cancel_chars,flags,result_buf); +end; + +function Load_UI_dup_input_boolean(ui: PUI; const prompt: PAnsiChar; const action_desc: PAnsiChar; const ok_chars: PAnsiChar; const cancel_chars: PAnsiChar; flags: TOpenSSL_C_INT; result_buf: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + UI_dup_input_boolean := LoadLibCryptoFunction('UI_dup_input_boolean'); + if not assigned(UI_dup_input_boolean) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_dup_input_boolean'); + Result := UI_dup_input_boolean(ui,prompt,action_desc,ok_chars,cancel_chars,flags,result_buf); +end; + +function Load_UI_add_info_string(ui: PUI; const text: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + UI_add_info_string := LoadLibCryptoFunction('UI_add_info_string'); + if not assigned(UI_add_info_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_add_info_string'); + Result := UI_add_info_string(ui,text); +end; + +function Load_UI_dup_info_string(ui: PUI; const text: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + UI_dup_info_string := LoadLibCryptoFunction('UI_dup_info_string'); + if not assigned(UI_dup_info_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_dup_info_string'); + Result := UI_dup_info_string(ui,text); +end; + +function Load_UI_add_error_string(ui: PUI; const text: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + UI_add_error_string := LoadLibCryptoFunction('UI_add_error_string'); + if not assigned(UI_add_error_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_add_error_string'); + Result := UI_add_error_string(ui,text); +end; + +function Load_UI_dup_error_string(ui: PUI; const text: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + UI_dup_error_string := LoadLibCryptoFunction('UI_dup_error_string'); + if not assigned(UI_dup_error_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_dup_error_string'); + Result := UI_dup_error_string(ui,text); +end; + +function Load_UI_construct_prompt(ui_method: PUI; const object_desc: PAnsiChar; const object_name: PAnsiChar): PAnsiChar; cdecl; +begin + UI_construct_prompt := LoadLibCryptoFunction('UI_construct_prompt'); + if not assigned(UI_construct_prompt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_construct_prompt'); + Result := UI_construct_prompt(ui_method,object_desc,object_name); +end; + +function Load_UI_add_user_data(ui: PUI; user_data: Pointer): Pointer; cdecl; +begin + UI_add_user_data := LoadLibCryptoFunction('UI_add_user_data'); + if not assigned(UI_add_user_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_add_user_data'); + Result := UI_add_user_data(ui,user_data); +end; + +function Load_UI_dup_user_data(ui: PUI; user_data: Pointer): TOpenSSL_C_INT; cdecl; +begin + UI_dup_user_data := LoadLibCryptoFunction('UI_dup_user_data'); + if not assigned(UI_dup_user_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_dup_user_data'); + Result := UI_dup_user_data(ui,user_data); +end; + +function Load_UI_get0_user_data(ui: PUI): Pointer; cdecl; +begin + UI_get0_user_data := LoadLibCryptoFunction('UI_get0_user_data'); + if not assigned(UI_get0_user_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_get0_user_data'); + Result := UI_get0_user_data(ui); +end; + +function Load_UI_get0_result(ui: PUI; i: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + UI_get0_result := LoadLibCryptoFunction('UI_get0_result'); + if not assigned(UI_get0_result) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_get0_result'); + Result := UI_get0_result(ui,i); +end; + +function Load_UI_get_result_length(ui: PUI; i: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + UI_get_result_length := LoadLibCryptoFunction('UI_get_result_length'); + if not assigned(UI_get_result_length) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_get_result_length'); + Result := UI_get_result_length(ui,i); +end; + +function Load_UI_process(ui: PUI): TOpenSSL_C_INT; cdecl; +begin + UI_process := LoadLibCryptoFunction('UI_process'); + if not assigned(UI_process) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_process'); + Result := UI_process(ui); +end; + +function Load_UI_ctrl(ui: PUI; cmd: TOpenSSL_C_INT; i: TOpenSSL_C_LONG; p: Pointer; f: UI_ctrl_f): TOpenSSL_C_INT; cdecl; +begin + UI_ctrl := LoadLibCryptoFunction('UI_ctrl'); + if not assigned(UI_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_ctrl'); + Result := UI_ctrl(ui,cmd,i,p,f); +end; + +function Load_UI_set_ex_data(r: PUI; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; +begin + UI_set_ex_data := LoadLibCryptoFunction('UI_set_ex_data'); + if not assigned(UI_set_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_set_ex_data'); + Result := UI_set_ex_data(r,idx,arg); +end; + +function Load_UI_get_ex_data(r: PUI; idx: TOpenSSL_C_INT): Pointer; cdecl; +begin + UI_get_ex_data := LoadLibCryptoFunction('UI_get_ex_data'); + if not assigned(UI_get_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_get_ex_data'); + Result := UI_get_ex_data(r,idx); +end; + +procedure Load_UI_set_default_method(const meth: PUI_Method); cdecl; +begin + UI_set_default_method := LoadLibCryptoFunction('UI_set_default_method'); + if not assigned(UI_set_default_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_set_default_method'); + UI_set_default_method(meth); +end; + +function Load_UI_get_default_method: PUI_METHOD; cdecl; +begin + UI_get_default_method := LoadLibCryptoFunction('UI_get_default_method'); + if not assigned(UI_get_default_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_get_default_method'); + Result := UI_get_default_method(); +end; + +function Load_UI_get_method(ui: PUI): PUI_METHOD; cdecl; +begin + UI_get_method := LoadLibCryptoFunction('UI_get_method'); + if not assigned(UI_get_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_get_method'); + Result := UI_get_method(ui); +end; + +function Load_UI_set_method(ui: PUI; const meth: PUI_METHOD): PUI_METHOD; cdecl; +begin + UI_set_method := LoadLibCryptoFunction('UI_set_method'); + if not assigned(UI_set_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_set_method'); + Result := UI_set_method(ui,meth); +end; + +function Load_UI_OpenSSL: PUI_Method; cdecl; +begin + UI_OpenSSL := LoadLibCryptoFunction('UI_OpenSSL'); + if not assigned(UI_OpenSSL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_OpenSSL'); + Result := UI_OpenSSL(); +end; + +function Load_UI_null: PUI_METHOD; cdecl; +begin + UI_null := LoadLibCryptoFunction('UI_null'); + if not assigned(UI_null) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_null'); + Result := UI_null(); +end; + +function Load_UI_create_method(const name: PAnsiChar): PUI_Method; cdecl; +begin + UI_create_method := LoadLibCryptoFunction('UI_create_method'); + if not assigned(UI_create_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_create_method'); + Result := UI_create_method(name); +end; + +procedure Load_UI_destroy_method(ui_method: PUI_Method); cdecl; +begin + UI_destroy_method := LoadLibCryptoFunction('UI_destroy_method'); + if not assigned(UI_destroy_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_destroy_method'); + UI_destroy_method(ui_method); +end; + +function Load_UI_method_set_opener(method: PUI_Method; opener: UI_method_opener_cb): TOpenSSL_C_INT; cdecl; +begin + UI_method_set_opener := LoadLibCryptoFunction('UI_method_set_opener'); + if not assigned(UI_method_set_opener) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_set_opener'); + Result := UI_method_set_opener(method,opener); +end; + +function Load_UI_method_set_writer(method: PUI_Method; writer: UI_method_writer_cb): TOpenSSL_C_INT; cdecl; +begin + UI_method_set_writer := LoadLibCryptoFunction('UI_method_set_writer'); + if not assigned(UI_method_set_writer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_set_writer'); + Result := UI_method_set_writer(method,writer); +end; + +function Load_UI_method_set_flusher(method: PUI_Method; flusher: UI_method_flusher_cb): TOpenSSL_C_INT; cdecl; +begin + UI_method_set_flusher := LoadLibCryptoFunction('UI_method_set_flusher'); + if not assigned(UI_method_set_flusher) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_set_flusher'); + Result := UI_method_set_flusher(method,flusher); +end; + +function Load_UI_method_set_reader(method: PUI_Method; reader: UI_method_reader_cb): TOpenSSL_C_INT; cdecl; +begin + UI_method_set_reader := LoadLibCryptoFunction('UI_method_set_reader'); + if not assigned(UI_method_set_reader) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_set_reader'); + Result := UI_method_set_reader(method,reader); +end; + +function Load_UI_method_set_closer(method: PUI_Method; closer: UI_method_closer_cb): TOpenSSL_C_INT; cdecl; +begin + UI_method_set_closer := LoadLibCryptoFunction('UI_method_set_closer'); + if not assigned(UI_method_set_closer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_set_closer'); + Result := UI_method_set_closer(method,closer); +end; + +function Load_UI_method_set_data_duplicator(method: PUI_Method; duplicator: UI_method_data_duplicator_cb; destructor_: UI_method_data_destructor_cb): TOpenSSL_C_INT; cdecl; +begin + UI_method_set_data_duplicator := LoadLibCryptoFunction('UI_method_set_data_duplicator'); + if not assigned(UI_method_set_data_duplicator) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_set_data_duplicator'); + Result := UI_method_set_data_duplicator(method,duplicator,destructor_); +end; + +function Load_UI_method_set_prompt_constructor(method: PUI_Method; prompt_constructor: UI_method_prompt_constructor_cb): TOpenSSL_C_INT; cdecl; +begin + UI_method_set_prompt_constructor := LoadLibCryptoFunction('UI_method_set_prompt_constructor'); + if not assigned(UI_method_set_prompt_constructor) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_set_prompt_constructor'); + Result := UI_method_set_prompt_constructor(method,prompt_constructor); +end; + +function Load_UI_method_set_ex_data(method: PUI_Method; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; +begin + UI_method_set_ex_data := LoadLibCryptoFunction('UI_method_set_ex_data'); + if not assigned(UI_method_set_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_set_ex_data'); + Result := UI_method_set_ex_data(method,idx,data); +end; + +function Load_UI_method_get_opener(const method: PUI_METHOD): UI_method_opener_cb; cdecl; +begin + UI_method_get_opener := LoadLibCryptoFunction('UI_method_get_opener'); + if not assigned(UI_method_get_opener) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_get_opener'); + Result := UI_method_get_opener(method); +end; + +function Load_UI_method_get_writer(const method: PUI_METHOD): UI_method_writer_cb; cdecl; +begin + UI_method_get_writer := LoadLibCryptoFunction('UI_method_get_writer'); + if not assigned(UI_method_get_writer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_get_writer'); + Result := UI_method_get_writer(method); +end; + +function Load_UI_method_get_flusher(const method: PUI_METHOD): UI_method_flusher_cb; cdecl; +begin + UI_method_get_flusher := LoadLibCryptoFunction('UI_method_get_flusher'); + if not assigned(UI_method_get_flusher) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_get_flusher'); + Result := UI_method_get_flusher(method); +end; + +function Load_UI_method_get_reader(const method: PUI_METHOD): UI_method_reader_cb; cdecl; +begin + UI_method_get_reader := LoadLibCryptoFunction('UI_method_get_reader'); + if not assigned(UI_method_get_reader) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_get_reader'); + Result := UI_method_get_reader(method); +end; + +function Load_UI_method_get_closer(const method: PUI_METHOD): UI_method_closer_cb; cdecl; +begin + UI_method_get_closer := LoadLibCryptoFunction('UI_method_get_closer'); + if not assigned(UI_method_get_closer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_get_closer'); + Result := UI_method_get_closer(method); +end; + +function Load_UI_method_get_prompt_constructor(const method: PUI_METHOD): UI_method_prompt_constructor_cb; cdecl; +begin + UI_method_get_prompt_constructor := LoadLibCryptoFunction('UI_method_get_prompt_constructor'); + if not assigned(UI_method_get_prompt_constructor) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_get_prompt_constructor'); + Result := UI_method_get_prompt_constructor(method); +end; + +function Load_UI_method_get_data_duplicator(const method: PUI_METHOD): UI_method_data_duplicator_cb; cdecl; +begin + UI_method_get_data_duplicator := LoadLibCryptoFunction('UI_method_get_data_duplicator'); + if not assigned(UI_method_get_data_duplicator) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_get_data_duplicator'); + Result := UI_method_get_data_duplicator(method); +end; + +function Load_UI_method_get_data_destructor(const method: PUI_METHOD): UI_method_data_destructor_cb; cdecl; +begin + UI_method_get_data_destructor := LoadLibCryptoFunction('UI_method_get_data_destructor'); + if not assigned(UI_method_get_data_destructor) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_get_data_destructor'); + Result := UI_method_get_data_destructor(method); +end; + +function Load_UI_method_get_ex_data(const method: PUI_METHOD; idx: TOpenSSL_C_INT): Pointer; cdecl; +begin + UI_method_get_ex_data := LoadLibCryptoFunction('UI_method_get_ex_data'); + if not assigned(UI_method_get_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_method_get_ex_data'); + Result := UI_method_get_ex_data(method,idx); +end; + +function Load_UI_get_string_type(uis: PUI_String): UI_string_types; cdecl; +begin + UI_get_string_type := LoadLibCryptoFunction('UI_get_string_type'); + if not assigned(UI_get_string_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_get_string_type'); + Result := UI_get_string_type(uis); +end; + +function Load_UI_get_input_flags(uis: PUI_String): TOpenSSL_C_INT; cdecl; +begin + UI_get_input_flags := LoadLibCryptoFunction('UI_get_input_flags'); + if not assigned(UI_get_input_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_get_input_flags'); + Result := UI_get_input_flags(uis); +end; + +function Load_UI_get0_output_string(uis: PUI_String): PAnsiChar; cdecl; +begin + UI_get0_output_string := LoadLibCryptoFunction('UI_get0_output_string'); + if not assigned(UI_get0_output_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_get0_output_string'); + Result := UI_get0_output_string(uis); +end; + +function Load_UI_get0_action_string(uis: PUI_String): PAnsiChar; cdecl; +begin + UI_get0_action_string := LoadLibCryptoFunction('UI_get0_action_string'); + if not assigned(UI_get0_action_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_get0_action_string'); + Result := UI_get0_action_string(uis); +end; + +function Load_UI_get0_result_string(uis: PUI_String): PAnsiChar; cdecl; +begin + UI_get0_result_string := LoadLibCryptoFunction('UI_get0_result_string'); + if not assigned(UI_get0_result_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_get0_result_string'); + Result := UI_get0_result_string(uis); +end; + +function Load_UI_get_result_string_length(uis: PUI_String): TOpenSSL_C_INT; cdecl; +begin + UI_get_result_string_length := LoadLibCryptoFunction('UI_get_result_string_length'); + if not assigned(UI_get_result_string_length) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_get_result_string_length'); + Result := UI_get_result_string_length(uis); +end; + +function Load_UI_get0_test_string(uis: PUI_String): PAnsiChar; cdecl; +begin + UI_get0_test_string := LoadLibCryptoFunction('UI_get0_test_string'); + if not assigned(UI_get0_test_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_get0_test_string'); + Result := UI_get0_test_string(uis); +end; + +function Load_UI_get_result_minsize(uis: PUI_String): TOpenSSL_C_INT; cdecl; +begin + UI_get_result_minsize := LoadLibCryptoFunction('UI_get_result_minsize'); + if not assigned(UI_get_result_minsize) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_get_result_minsize'); + Result := UI_get_result_minsize(uis); +end; + +function Load_UI_get_result_maxsize(uis: PUI_String): TOpenSSL_C_INT; cdecl; +begin + UI_get_result_maxsize := LoadLibCryptoFunction('UI_get_result_maxsize'); + if not assigned(UI_get_result_maxsize) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_get_result_maxsize'); + Result := UI_get_result_maxsize(uis); +end; + +function Load_UI_set_result(ui: PUI; uis: PUI_String; const result_: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + UI_set_result := LoadLibCryptoFunction('UI_set_result'); + if not assigned(UI_set_result) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_set_result'); + Result := UI_set_result(ui,uis,result_); +end; + +function Load_UI_set_result_ex(ui: PUI; uis: PUI_String; const result_: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + UI_set_result_ex := LoadLibCryptoFunction('UI_set_result_ex'); + if not assigned(UI_set_result_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_set_result_ex'); + Result := UI_set_result_ex(ui,uis,result_,len); +end; + +function Load_UI_UTIL_read_pw_string(buf: PAnsiChar; length: TOpenSSL_C_INT; const prompt: PAnsiChar; verify: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + UI_UTIL_read_pw_string := LoadLibCryptoFunction('UI_UTIL_read_pw_string'); + if not assigned(UI_UTIL_read_pw_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_UTIL_read_pw_string'); + Result := UI_UTIL_read_pw_string(buf,length,prompt,verify); +end; + +function Load_UI_UTIL_read_pw(buf: PAnsiChar; buff: PAnsiChar; size: TOpenSSL_C_INT; const prompt: PAnsiChar; verify: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + UI_UTIL_read_pw := LoadLibCryptoFunction('UI_UTIL_read_pw'); + if not assigned(UI_UTIL_read_pw) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_UTIL_read_pw'); + Result := UI_UTIL_read_pw(buf,buff,size,prompt,verify); +end; + +function Load_UI_UTIL_wrap_read_pem_callback(cb: pem_password_cb; rwflag: TOpenSSL_C_INT): PUI_Method; cdecl; +begin + UI_UTIL_wrap_read_pem_callback := LoadLibCryptoFunction('UI_UTIL_wrap_read_pem_callback'); + if not assigned(UI_UTIL_wrap_read_pem_callback) then + EOpenSSLAPIFunctionNotPresent.RaiseException('UI_UTIL_wrap_read_pem_callback'); + Result := UI_UTIL_wrap_read_pem_callback(cb,rwflag); +end; + + +procedure UnLoad; +begin + UI_new := Load_UI_new; + UI_new_method := Load_UI_new_method; + UI_free := Load_UI_free; + UI_add_input_string := Load_UI_add_input_string; + UI_dup_input_string := Load_UI_dup_input_string; + UI_add_verify_string := Load_UI_add_verify_string; + UI_dup_verify_string := Load_UI_dup_verify_string; + UI_add_input_boolean := Load_UI_add_input_boolean; + UI_dup_input_boolean := Load_UI_dup_input_boolean; + UI_add_info_string := Load_UI_add_info_string; + UI_dup_info_string := Load_UI_dup_info_string; + UI_add_error_string := Load_UI_add_error_string; + UI_dup_error_string := Load_UI_dup_error_string; + UI_construct_prompt := Load_UI_construct_prompt; + UI_add_user_data := Load_UI_add_user_data; + UI_dup_user_data := Load_UI_dup_user_data; + UI_get0_user_data := Load_UI_get0_user_data; + UI_get0_result := Load_UI_get0_result; + UI_get_result_length := Load_UI_get_result_length; + UI_process := Load_UI_process; + UI_ctrl := Load_UI_ctrl; + UI_set_ex_data := Load_UI_set_ex_data; + UI_get_ex_data := Load_UI_get_ex_data; + UI_set_default_method := Load_UI_set_default_method; + UI_get_default_method := Load_UI_get_default_method; + UI_get_method := Load_UI_get_method; + UI_set_method := Load_UI_set_method; + UI_OpenSSL := Load_UI_OpenSSL; + UI_null := Load_UI_null; + UI_create_method := Load_UI_create_method; + UI_destroy_method := Load_UI_destroy_method; + UI_method_set_opener := Load_UI_method_set_opener; + UI_method_set_writer := Load_UI_method_set_writer; + UI_method_set_flusher := Load_UI_method_set_flusher; + UI_method_set_reader := Load_UI_method_set_reader; + UI_method_set_closer := Load_UI_method_set_closer; + UI_method_set_data_duplicator := Load_UI_method_set_data_duplicator; + UI_method_set_prompt_constructor := Load_UI_method_set_prompt_constructor; + UI_method_set_ex_data := Load_UI_method_set_ex_data; + UI_method_get_opener := Load_UI_method_get_opener; + UI_method_get_writer := Load_UI_method_get_writer; + UI_method_get_flusher := Load_UI_method_get_flusher; + UI_method_get_reader := Load_UI_method_get_reader; + UI_method_get_closer := Load_UI_method_get_closer; + UI_method_get_prompt_constructor := Load_UI_method_get_prompt_constructor; + UI_method_get_data_duplicator := Load_UI_method_get_data_duplicator; + UI_method_get_data_destructor := Load_UI_method_get_data_destructor; + UI_method_get_ex_data := Load_UI_method_get_ex_data; + UI_get_string_type := Load_UI_get_string_type; + UI_get_input_flags := Load_UI_get_input_flags; + UI_get0_output_string := Load_UI_get0_output_string; + UI_get0_action_string := Load_UI_get0_action_string; + UI_get0_result_string := Load_UI_get0_result_string; + UI_get_result_string_length := Load_UI_get_result_string_length; + UI_get0_test_string := Load_UI_get0_test_string; + UI_get_result_minsize := Load_UI_get_result_minsize; + UI_get_result_maxsize := Load_UI_get_result_maxsize; + UI_set_result := Load_UI_set_result; + UI_set_result_ex := Load_UI_set_result_ex; + UI_UTIL_read_pw_string := Load_UI_UTIL_read_pw_string; + UI_UTIL_read_pw := Load_UI_UTIL_read_pw; + UI_UTIL_wrap_read_pem_callback := Load_UI_UTIL_wrap_read_pem_callback; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_uierr.pas b/src/opensslHdrs/IdOpenSSLHeaders_uierr.pas new file mode 100644 index 0000000..9310723 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_uierr.pas @@ -0,0 +1,139 @@ +(* This unit was generated from the source file uierr.h2pas +It should not be modified directly. All changes should be made to uierr.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_uierr; + + +interface + +// Headers for OpenSSL 1.1.1 +// uierr.h + + +uses + IdSSLOpenSSLAPI; + +const + (* + * UI function codes. + *) + UI_F_CLOSE_CONSOLE = 115; + UI_F_ECHO_CONSOLE = 116; + UI_F_GENERAL_ALLOCATE_BOOLEAN = 108; + UI_F_GENERAL_ALLOCATE_PROMPT = 109; + UI_F_NOECHO_CONSOLE = 117; + UI_F_OPEN_CONSOLE = 114; + UI_F_UI_CONSTRUCT_PROMPT = 121; + UI_F_UI_CREATE_METHOD = 112; + UI_F_UI_CTRL = 111; + UI_F_UI_DUP_ERROR_STRING = 101; + UI_F_UI_DUP_INFO_STRING = 102; + UI_F_UI_DUP_INPUT_BOOLEAN = 110; + UI_F_UI_DUP_INPUT_STRING = 103; + UI_F_UI_DUP_USER_DATA = 118; + UI_F_UI_DUP_VERIFY_STRING = 106; + UI_F_UI_GET0_RESULT = 107; + UI_F_UI_GET_RESULT_LENGTH = 119; + UI_F_UI_NEW_METHOD = 104; + UI_F_UI_PROCESS = 113; + UI_F_UI_SET_RESULT = 105; + UI_F_UI_SET_RESULT_EX = 120; + + (* + * UI reason codes. + *) + UI_R_COMMON_OK_AND_CANCEL_CHARACTERS = 104; + UI_R_INDEX_TOO_LARGE = 102; + UI_R_INDEX_TOO_SMALL = 103; + UI_R_NO_RESULT_BUFFER = 105; + UI_R_PROCESSING_ERROR = 107; + UI_R_RESULT_TOO_LARGE = 100; + UI_R_RESULT_TOO_SMALL = 101; + UI_R_SYSASSIGN_ERROR = 109; + UI_R_SYSDASSGN_ERROR = 110; + UI_R_SYSQIOW_ERROR = 111; + UI_R_UNKNOWN_CONTROL_COMMAND = 106; + UI_R_UNKNOWN_TTYGET_ERRNO_VALUE = 108; + UI_R_USER_DATA_DUPLICATION_UNSUPPORTED = 112; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_UI_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_UI_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_UI_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_UI_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_UI_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_UI_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_UI_strings := LoadLibCryptoFunction('ERR_load_UI_strings'); + if not assigned(ERR_load_UI_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_UI_strings'); + Result := ERR_load_UI_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_UI_strings := Load_ERR_load_UI_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_whrlpool.pas b/src/opensslHdrs/IdOpenSSLHeaders_whrlpool.pas new file mode 100644 index 0000000..4aca28c --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_whrlpool.pas @@ -0,0 +1,168 @@ +(* This unit was generated from the source file whrlpool.h2pas +It should not be modified directly. All changes should be made to whrlpool.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_whrlpool; + + +interface + +// Headers for OpenSSL 1.1.1 +// whrlpool.h + + +uses + IdSSLOpenSSLAPI; + +const + WHIRLPOOL_DIGEST_LENGTH = 512 div 8; + WHIRLPOOL_BBLOCK = 512; + WHIRLPOOL_COUNTER = 256 div 8; + +type + WHIRLPOOL_CTX_union = record + case Byte of + 0: (c: array[0 .. WHIRLPOOL_DIGEST_LENGTH -1] of Byte); + (* double q is here to ensure 64-bit alignment *) + 1: (q: array[0 .. (WHIRLPOOL_DIGEST_LENGTH div SizeOf(TOpenSSL_C_DOUBLE)) -1] of TOpenSSL_C_DOUBLE); + end; + WHIRLPOOL_CTX = record + H: WHIRLPOOL_CTX_union; + data: array[0 .. (WHIRLPOOL_BBLOCK div 8) -1] of Byte; + bitoff: TOpenSSL_C_UINT; + bitlen: array[0 .. (WHIRLPOOL_COUNTER div SizeOf(TOpenSSL_C_SIZET)) -1] of TOpenSSL_C_SIZET; + end; + PWHIRLPOOL_CTX = ^WHIRLPOOL_CTX; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM WHIRLPOOL_Init} +{$EXTERNALSYM WHIRLPOOL_Update} +{$EXTERNALSYM WHIRLPOOL_BitUpdate} +{$EXTERNALSYM WHIRLPOOL_Final} +{$EXTERNALSYM WHIRLPOOL} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function WHIRLPOOL_Init(c: PWHIRLPOOL_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function WHIRLPOOL_Update(c: PWHIRLPOOL_CTX; inp: Pointer; bytes: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure WHIRLPOOL_BitUpdate(c: PWHIRLPOOL_CTX; inp: Pointer; bits: TOpenSSL_C_SIZET); cdecl; external CLibCrypto; +function WHIRLPOOL_Final(md: PByte; c: PWHIRLPOOL_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function WHIRLPOOL(inp: Pointer; bytes: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_WHIRLPOOL_Init(c: PWHIRLPOOL_CTX): TOpenSSL_C_INT; cdecl; +function Load_WHIRLPOOL_Update(c: PWHIRLPOOL_CTX; inp: Pointer; bytes: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +procedure Load_WHIRLPOOL_BitUpdate(c: PWHIRLPOOL_CTX; inp: Pointer; bits: TOpenSSL_C_SIZET); cdecl; +function Load_WHIRLPOOL_Final(md: PByte; c: PWHIRLPOOL_CTX): TOpenSSL_C_INT; cdecl; +function Load_WHIRLPOOL(inp: Pointer; bytes: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; + +var + WHIRLPOOL_Init: function (c: PWHIRLPOOL_CTX): TOpenSSL_C_INT; cdecl = Load_WHIRLPOOL_Init; + WHIRLPOOL_Update: function (c: PWHIRLPOOL_CTX; inp: Pointer; bytes: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_WHIRLPOOL_Update; + WHIRLPOOL_BitUpdate: procedure (c: PWHIRLPOOL_CTX; inp: Pointer; bits: TOpenSSL_C_SIZET); cdecl = Load_WHIRLPOOL_BitUpdate; + WHIRLPOOL_Final: function (md: PByte; c: PWHIRLPOOL_CTX): TOpenSSL_C_INT; cdecl = Load_WHIRLPOOL_Final; + WHIRLPOOL: function (inp: Pointer; bytes: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl = Load_WHIRLPOOL; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_WHIRLPOOL_Init(c: PWHIRLPOOL_CTX): TOpenSSL_C_INT; cdecl; +begin + WHIRLPOOL_Init := LoadLibCryptoFunction('WHIRLPOOL_Init'); + if not assigned(WHIRLPOOL_Init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('WHIRLPOOL_Init'); + Result := WHIRLPOOL_Init(c); +end; + +function Load_WHIRLPOOL_Update(c: PWHIRLPOOL_CTX; inp: Pointer; bytes: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + WHIRLPOOL_Update := LoadLibCryptoFunction('WHIRLPOOL_Update'); + if not assigned(WHIRLPOOL_Update) then + EOpenSSLAPIFunctionNotPresent.RaiseException('WHIRLPOOL_Update'); + Result := WHIRLPOOL_Update(c,inp,bytes); +end; + +procedure Load_WHIRLPOOL_BitUpdate(c: PWHIRLPOOL_CTX; inp: Pointer; bits: TOpenSSL_C_SIZET); cdecl; +begin + WHIRLPOOL_BitUpdate := LoadLibCryptoFunction('WHIRLPOOL_BitUpdate'); + if not assigned(WHIRLPOOL_BitUpdate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('WHIRLPOOL_BitUpdate'); + WHIRLPOOL_BitUpdate(c,inp,bits); +end; + +function Load_WHIRLPOOL_Final(md: PByte; c: PWHIRLPOOL_CTX): TOpenSSL_C_INT; cdecl; +begin + WHIRLPOOL_Final := LoadLibCryptoFunction('WHIRLPOOL_Final'); + if not assigned(WHIRLPOOL_Final) then + EOpenSSLAPIFunctionNotPresent.RaiseException('WHIRLPOOL_Final'); + Result := WHIRLPOOL_Final(md,c); +end; + +function Load_WHIRLPOOL(inp: Pointer; bytes: TOpenSSL_C_SIZET; md: PByte): PByte; cdecl; +begin + WHIRLPOOL := LoadLibCryptoFunction('WHIRLPOOL'); + if not assigned(WHIRLPOOL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('WHIRLPOOL'); + Result := WHIRLPOOL(inp,bytes,md); +end; + + +procedure UnLoad; +begin + WHIRLPOOL_Init := Load_WHIRLPOOL_Init; + WHIRLPOOL_Update := Load_WHIRLPOOL_Update; + WHIRLPOOL_BitUpdate := Load_WHIRLPOOL_BitUpdate; + WHIRLPOOL_Final := Load_WHIRLPOOL_Final; + WHIRLPOOL := Load_WHIRLPOOL; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_x509.pas b/src/opensslHdrs/IdOpenSSLHeaders_x509.pas new file mode 100644 index 0000000..3d5fb50 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_x509.pas @@ -0,0 +1,5610 @@ +(* This unit was generated from the source file x509.h2pas +It should not be modified directly. All changes should be made to x509.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_x509; + + +interface + +// Headers for OpenSSL 1.1.1 +// x509.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_asn1, + IdOpenSSLHeaders_bio, + IdOpenSSLHeaders_evp, + IdOpenSSLHeaders_stack, + IdOpenSSLHeaders_objects, + IdOpenSSLHeaders_ossl_typ; + +// the following emits are a workaround to a +// name conflict with Win32 API header files +{$IFDEF WINDOWS} +(*$HPPEMIT '#undef X509_EXTENSIONS'*) +(*$HPPEMIT '#undef X509_CERT_PAIR'*) +{$ENDIF} + +type + X509_ALGORS = type Pointer; + +const + (* Flags for X509_get_signature_info() *) + (* Signature info is valid *) + X509_SIG_INFO_VALID = $1; + (* Signature is suitable for TLS use *) + X509_SIG_INFO_TLS = $2; + + X509_FILETYPE_PEM = 1; + X509_FILETYPE_ASN1 = 2; + X509_FILETYPE_DEFAULT = 3; + + X509v3_KU_DIGITAL_SIGNATURE = $0080; + X509v3_KU_NON_REPUDIATION = $0040; + X509v3_KU_KEY_ENCIPHERMENT = $0020; + X509v3_KU_DATA_ENCIPHERMENT = $0010; + X509v3_KU_KEY_AGREEMENT = $0008; + X509v3_KU_KEY_CERT_SIGN = $0004; + X509v3_KU_CRL_SIGN = $0002; + X509v3_KU_ENCIPHER_ONLY = $0001; + X509v3_KU_DECIPHER_ONLY = $8000; + X509v3_KU_UNDEF = $ffff; + + X509_EX_V_NETSCAPE_HACK = $8000; + X509_EX_V_INIT = $0001; + + + (* standard trust ids *) + + X509_TRUST_DEFAULT = 0; (* Only valid in purpose settings *) + + X509_TRUST_COMPAT = 1; + X509_TRUST_SSL_CLIENT = 2; + X509_TRUST_SSL_SERVER = 3; + X509_TRUST_EMAIL = 4; + X509_TRUST_OBJECT_SIGN = 5; + X509_TRUST_OCSP_SIGN = 6; + X509_TRUST_OCSP_REQUEST = 7; + X509_TRUST_TSA = 8; + + (* Keep these up to date! *) + X509_TRUST_MIN = 1; + X509_TRUST_MAX = 8; + + (* trust_flags values *) + X509_TRUST_DYNAMIC = TOpenSSL_C_UINT(1) shl 0; + X509_TRUST_DYNAMIC_NAME = TOpenSSL_C_UINT(1) shl 1; + (* No compat trust if self-signed, preempts "DO_SS" *) + X509_TRUST_NO_SS_COMPAT = TOpenSSL_C_UINT(1) shl 2; + (* Compat trust if no explicit accepted trust EKUs *) + X509_TRUST_DO_SS_COMPAT = TOpenSSL_C_UINT(1) shl 3; + (* Accept "anyEKU" as a wildcard trust OID *) + X509_TRUST_OK_ANY_EKU = TOpenSSL_C_UINT(1) shl 4; + + (* check_trust return codes *) + + X509_TRUST_TRUSTED = 1; + X509_TRUST_REJECTED = 2; + X509_TRUST_UNTRUSTED = 3; + + (* Flags for X509_print_ex() *) + + X509_FLAG_COMPAT = 0; + X509_FLAG_NO_HEADER = TOpenSSL_C_LONG(1); + X509_FLAG_NO_VERSION = TOpenSSL_C_LONG(1) shl 1; + X509_FLAG_NO_SERIAL = TOpenSSL_C_LONG(1) shl 2; + X509_FLAG_NO_SIGNAME = TOpenSSL_C_LONG(1) shl 3; + X509_FLAG_NO_ISSUER = TOpenSSL_C_LONG(1) shl 4; + X509_FLAG_NO_VALIDITY = TOpenSSL_C_LONG(1) shl 5; + X509_FLAG_NO_SUBJECT = TOpenSSL_C_LONG(1) shl 6; + X509_FLAG_NO_PUBKEY = TOpenSSL_C_LONG(1) shl 7; + X509_FLAG_NO_EXTENSIONS = TOpenSSL_C_LONG(1) shl 8; + X509_FLAG_NO_SIGDUMP = TOpenSSL_C_LONG(1) shl 9; + X509_FLAG_NO_AUX = TOpenSSL_C_LONG(1) shl 10; + X509_FLAG_NO_ATTRIBUTES = TOpenSSL_C_LONG(1) shl 11; + X509_FLAG_NO_IDS = TOpenSSL_C_LONG(1) shl 12; + + (* Flags specific to X509_NAME_print_ex() *) + + (* The field separator information *) + + XN_FLAG_SEP_MASK = $f shl 16; + + XN_FLAG_COMPAT = 0;(* Traditional; use old X509_NAME_print *) + XN_FLAG_SEP_COMMA_PLUS = 1 shl 16;(* RFC2253 ,+ *) + XN_FLAG_SEP_CPLUS_SPC = 2 shl 16;(* ,+ spaced: more readable *) + XN_FLAG_SEP_SPLUS_SPC = 3 shl 16;(* ;+ spaced *) + XN_FLAG_SEP_MULTILINE = 4 shl 16;(* One line per field *) + + XN_FLAG_DN_REV = 1 shl 20;(* Reverse DN order *) + + (* How the field name is shown *) + + XN_FLAG_FN_MASK = $3 shl 21; + + XN_FLAG_FN_SN = 0;(* Object short name *) + XN_FLAG_FN_LN = 1 shl 21;(* Object long name *) + XN_FLAG_FN_OID = 2 shl 21;(* Always use OIDs *) + XN_FLAG_FN_NONE = 3 shl 21;(* No field names *) + + XN_FLAG_SPC_EQ = 1 shl 23;(* Put spaces round '=' *) + + {function codes} + X509_F_ADD_CERT_DIR = 100; + X509_F_BY_FILE_CTRL = 101; + X509_F_CHECK_NAME_CONSTRAINTS = 106; + X509_F_CHECK_POLICY = 145; + X509_F_DIR_CTRL = 102; + X509_F_GET_CERT_BY_SUBJECT = 103; + X509_F_NETSCAPE_SPKI_B64_DECODE = 129; + X509_F_NETSCAPE_SPKI_B64_ENCODE = 130; + X509_F_X509AT_ADD1_ATTR = 135; + X509_F_X509V3_ADD_EXT = 104; + X509_F_X509_ATTRIBUTE_CREATE_BY_NID = 136; + X509_F_X509_ATTRIBUTE_CREATE_BY_OBJ = 137; + X509_F_X509_ATTRIBUTE_CREATE_BY_TXT = 140; + X509_F_X509_ATTRIBUTE_GET0_DATA = 139; + X509_F_X509_ATTRIBUTE_SET1_DATA = 138; + X509_F_X509_CHECK_PRIVATE_KEY = 128; + X509_F_X509_CRL_DIFF = 105; + X509_F_X509_CRL_PRINT_FP = 147; + X509_F_X509_EXTENSION_CREATE_BY_NID = 108; + X509_F_X509_EXTENSION_CREATE_BY_OBJ = 109; + X509_F_X509_GET_PUBKEY_PARAMETERS = 110; + X509_F_X509_LOAD_CERT_CRL_FILE = 132; + X509_F_X509_LOAD_CERT_FILE = 111; + X509_F_X509_LOAD_CRL_FILE = 112; + X509_F_X509_NAME_ADD_ENTRY = 113; + X509_F_X509_NAME_ENTRY_CREATE_BY_NID = 114; + X509_F_X509_NAME_ENTRY_CREATE_BY_TXT = 131; + X509_F_X509_NAME_ENTRY_SET_OBJECT = 115; + X509_F_X509_NAME_ONELINE = 116; + X509_F_X509_NAME_PRINT = 117; + X509_F_X509_PRINT_EX_FP = 118; + X509_F_X509_PUBKEY_GET = 119; + X509_F_X509_PUBKEY_SET = 120; + X509_F_X509_REQ_CHECK_PRIVATE_KEY = 144; + X509_F_X509_REQ_PRINT_EX = 121; + X509_F_X509_REQ_PRINT_FP = 122; + X509_F_X509_REQ_TO_X509 = 123; + X509_F_X509_STORE_ADD_CERT = 124; + X509_F_X509_STORE_ADD_CRL = 125; + X509_F_X509_STORE_CTX_GET1_ISSUER = 146; + X509_F_X509_STORE_CTX_INIT = 143; + X509_F_X509_STORE_CTX_NEW = 142; + X509_F_X509_STORE_CTX_PURPOSE_INHERIT = 134; + X509_F_X509_TO_X509_REQ = 126; + X509_F_X509_TRUST_ADD = 133; + X509_F_X509_TRUST_SET = 141; + X509_F_X509_VERIFY_CERT = 127; + + {Reason Codes} + X509_R_AKID_MISMATCH = 110; + X509_R_BAD_X509_FILETYPE = 100; + X509_R_BASE64_DECODE_ERROR = 118; + X509_R_CANT_CHECK_DH_KEY = 114; + X509_R_CERT_ALREADY_IN_HASH_TABLE = 101; + X509_R_CRL_ALREADY_DELTA = 127; + X509_R_CRL_VERIFY_FAILURE = 131; + X509_R_ERR_ASN1_LIB = 102; + X509_R_IDP_MISMATCH = 128; + X509_R_INVALID_DIRECTORY = 113; + X509_R_INVALID_FIELD_NAME = 119; + X509_R_INVALID_TRUST = 123; + X509_R_ISSUER_MISMATCH = 129; + X509_R_KEY_TYPE_MISMATCH = 115; + X509_R_KEY_VALUES_MISMATCH = 116; + X509_R_LOADING_CERT_DIR = 103; + X509_R_LOADING_DEFAULTS = 104; + X509_R_METHOD_NOT_SUPPORTED = 124; + X509_R_NAME_TOO_LONG = 134; + X509_R_NEWER_CRL_NOT_NEWER = 132; + X509_R_NO_CERT_SET_FOR_US_TO_VERIFY = 105; + X509_R_NO_CRL_NUMBER = 130; + X509_R_PUBLIC_KEY_DECODE_ERROR = 125; + X509_R_PUBLIC_KEY_ENCODE_ERROR = 126; + X509_R_SHOULD_RETRY = 106; + X509_R_UNABLE_TO_FIND_PARAMETERS_IN_CHAIN = 107; + X509_R_UNABLE_TO_GET_CERTS_PUBLIC_KEY = 108; + X509_R_UNKNOWN_KEY_TYPE = 117; + X509_R_UNKNOWN_NID = 109; + X509_R_UNKNOWN_PURPOSE_ID = 121; + X509_R_UNKNOWN_TRUST_ID = 120; + X509_R_UNSUPPORTED_ALGORITHM = 111; + X509_R_WRONG_LOOKUP_TYPE = 112; + X509_R_WRONG_TYPE = 122; + + (* + * This determines if we dump fields we don't recognise: RFC2253 requires + * this. + *) + + XN_FLAG_DUMP_UNKNOWN_FIELDS = 1 shl 24; + + XN_FLAG_FN_ALIGN = 1 shl 25;(* Align field names to 20 + * characters *) + + (* Complete set of RFC2253 flags *) + + XN_FLAG_RFC2253 = ASN1_STRFLGS_RFC2253 or XN_FLAG_SEP_COMMA_PLUS + or XN_FLAG_DN_REV or XN_FLAG_FN_SN or XN_FLAG_DUMP_UNKNOWN_FIELDS; + + (* readable oneline form *) + + XN_FLAG_ONELINE = ASN1_STRFLGS_RFC2253 or ASN1_STRFLGS_ESC_QUOTE + or XN_FLAG_SEP_CPLUS_SPC or XN_FLAG_SPC_EQ or XN_FLAG_FN_SN; + + (* readable multiline form *) + + XN_FLAG_MULTILINE = ASN1_STRFLGS_ESC_CTRL or ASN1_STRFLGS_ESC_MSB + or XN_FLAG_SEP_MULTILINE or XN_FLAG_SPC_EQ or XN_FLAG_FN_LN or XN_FLAG_FN_ALIGN; + + X509_EXT_PACK_UNKNOWN = 1; + X509_EXT_PACK_STRING = 2; + +type + + X509_val_st = record + notBefore: PASN1_TIME; + notAfter: PASN1_TIME; + end; + X509_VAL = X509_val_st; + PX509_VAL = ^X509_VAL; + PPX509_VAL = ^PX509_VAL; + + X509_SIG = type Pointer; // X509_sig_st + PX509_SIG = ^X509_SIG; + PPX509_SIG = ^PX509_SIG; + + X509_NAME_ENTRY = type Pointer; // X509_name_entry_st + PX509_NAME_ENTRY = ^X509_NAME_ENTRY; + PPX509_NAME_ENTRY = ^PX509_NAME_ENTRY; + + //DEFINE_STACK_OF(X509_NAME_ENTRY) + PSTACK_OF_X509_NAME_ENTRY = type pointer; + // + //DEFINE_STACK_OF(X509_NAME) + PSTACK_OF_X509_NAME = type pointer; + + X509_EXTENSION = type Pointer; // X509_extension_st + PX509_EXTENSION = ^X509_EXTENSION; + PPX509_EXTENSION = ^PX509_EXTENSION; + + //typedef STACK_OF(X509_EXTENSION) X509_EXTENSIONS; + // + //DEFINE_STACK_OF(X509_EXTENSION) + + X509_ATTRIBUTE = type Pointer; // x509_attributes_st + PX509_ATTRIBUTE = ^X509_ATTRIBUTE; + PPX509_ATTRIBUTE = ^PX509_ATTRIBUTE; + + //DEFINE_STACK_OF(X509_ATTRIBUTE) + + X509_REQ_INFO = type Pointer; // X509_req_info_st + PX509_REQ_INFO = ^X509_REQ_INFO; + PPX509_REQ_INFO = ^PX509_REQ_INFO; + + X509_CERT_AUX = type Pointer; // x509_cert_aux_st + + X509_CINF = type Pointer; // x509_cinf_st + + //DEFINE_STACK_OF(X509) + + (* This is used for a table of trust checking functions *) + + Px509_trust_st = ^x509_trust_st; + x509_trust_st = record + trust: TOpenSSL_C_INT; + flags: TOpenSSL_C_INT; + check_trust: function(v1: Px509_trust_st; v2: PX509; v3: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + name: PAnsiChar; + arg1: TOpenSSL_C_INT; + arg2: Pointer; + end; + X509_TRUST = x509_trust_st; + PX509_TRUST = ^X509_TRUST; + + //DEFINE_STACK_OF(X509_TRUST) + + //DEFINE_STACK_OF(X509_REVOKED) + X509_CRL_INFO = type Pointer; // X509_crl_info_st + PX509_CRL_INFO = ^X509_CRL_INFO; + PPX509_CRL_INFO = ^PX509_CRL_INFO; + + //DEFINE_STACK_OF(X509_CRL) + + private_key_st = record + version: TOpenSSL_C_INT; + (* The PKCS#8 data types *) + enc_algor: PX509_ALGOR; + enc_pkey: PASN1_OCTET_STRING; (* encrypted pub key *) + (* When decrypted, the following will not be NULL *) + dec_pkey: PEVP_PKEY; + (* used to encrypt and decrypt *) + key_length: TOpenSSL_C_INT; + key_data: PAnsiChar; + key_free: TOpenSSL_C_INT; (* true if we should auto free key_data *) + (* expanded version of 'enc_algor' *) + cipher: EVP_CIPHER_INFO; + end; + X509_PKEY = private_key_st; + PX509_PKEY = ^X509_PKEY; + + X509_info_st = record + x509: PX509; + crl: PX509_CRL; + x_pkey: PX509_PKEY; + enc_cipher: EVP_CIPHER_INFO; + enc_len: TOpenSSL_C_INT; + enc_data: PAnsiChar; + end; + X509_INFO = X509_info_st; + PX509_INFO = ^X509_INFO; + + //DEFINE_STACK_OF(X509_INFO) + + (* + * The next 2 structures and their 8 routines are used to manipulate Netscape's + * spki structures - useful if you are writing a CA web page + *) + Netscape_spkac_st = record + pubkey: PX509_PUBKEY; + challenge: PASN1_IA5STRING; (* challenge sent in atlas >= PR2 *) + end; + NETSCAPE_SPKAC = Netscape_spkac_st; + PNETSCAPE_SPKAC = ^NETSCAPE_SPKAC; + + Netscape_spki_st = record + spkac: PNETSCAPE_SPKAC; (* signed public key and challenge *) + sig_algor: X509_ALGOR; + signature: PASN1_BIT_STRING; + end; + NETSCAPE_SPKI = Netscape_spki_st; + PNETSCAPE_SPKI = ^NETSCAPE_SPKI; + + (* Netscape certificate sequence structure *) +// Netscape_certificate_sequence: record +// type_: PASN1_OBJECT; +// certs: P --> STACK_OF(X509) <--; +// end; +// NETSCAPE_CERT_SEQUENCE = Netscape_certificate_sequence; + + (*- Unused (and iv length is wrong) + typedef struct CBCParameter_st + { + unsigned char iv[8]; + } CBC_PARAM; + *) + + (* Password based encryption structure *) + PBEPARAM_st = record + salt: PASN1_OCTET_STRING; + iter: PASN1_INTEGER; + end; + PBEPARAM = PBEPARAM_st; + + (* Password based encryption V2 structures *) + PBE2PARAM_st = record + keyfunc: PX509_ALGOR; + encryption: X509_ALGOR; + end; + PBE2PARAM = PBE2PARAM_st; + + PBKDF2PARAM_st = record + (* Usually OCTET STRING but could be anything *) + salt: PASN1_TYPE; + iter: PASN1_INTEGER; + keylength: PASN1_INTEGER; + prf: X509_ALGOR; + end; + PBKDF2PARAM = PBKDF2PARAM_st; + + SCRYPT_PARAMS_st = record + salt: PASN1_OCTET_STRING; + costParameter: PASN1_INTEGER; + blockSize: PASN1_INTEGER; + parallelizationParameter: PASN1_INTEGER; + keyLength: ASN1_INTEGER; + end; + SCRYPT_PARAMS = SCRYPT_PARAMS_st; + + //# define X509_extract_key(x) X509_get_pubkey(x)(*****) + //# define X509_REQ_extract_key(a) X509_REQ_get_pubkey(a) + //# define X509_name_cmp(a,b) X509_NAME_cmp((a),(b)) + // + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM X509_CRL_set_default_method} +{$EXTERNALSYM X509_CRL_METHOD_free} +{$EXTERNALSYM X509_CRL_set_meth_data} +{$EXTERNALSYM X509_CRL_get_meth_data} +{$EXTERNALSYM X509_verify_cert_error_string} +{$EXTERNALSYM X509_verify} +{$EXTERNALSYM X509_REQ_verify} +{$EXTERNALSYM X509_CRL_verify} +{$EXTERNALSYM NETSCAPE_SPKI_verify} +{$EXTERNALSYM NETSCAPE_SPKI_b64_decode} +{$EXTERNALSYM NETSCAPE_SPKI_b64_encode} +{$EXTERNALSYM NETSCAPE_SPKI_get_pubkey} +{$EXTERNALSYM NETSCAPE_SPKI_set_pubkey} +{$EXTERNALSYM NETSCAPE_SPKI_print} +{$EXTERNALSYM X509_signature_dump} +{$EXTERNALSYM X509_signature_print} +{$EXTERNALSYM X509_sign} +{$EXTERNALSYM X509_sign_ctx} +{$EXTERNALSYM X509_REQ_sign} +{$EXTERNALSYM X509_REQ_sign_ctx} +{$EXTERNALSYM X509_CRL_sign} +{$EXTERNALSYM X509_CRL_sign_ctx} +{$EXTERNALSYM NETSCAPE_SPKI_sign} +{$EXTERNALSYM X509_pubkey_digest} +{$EXTERNALSYM X509_digest} +{$EXTERNALSYM X509_CRL_digest} +{$EXTERNALSYM X509_REQ_digest} +{$EXTERNALSYM X509_NAME_digest} +{$EXTERNALSYM d2i_X509_bio} +{$EXTERNALSYM i2d_X509_bio} +{$EXTERNALSYM d2i_X509_CRL_bio} +{$EXTERNALSYM i2d_X509_CRL_bio} +{$EXTERNALSYM d2i_X509_REQ_bio} +{$EXTERNALSYM i2d_X509_REQ_bio} +{$EXTERNALSYM d2i_RSAPrivateKey_bio} +{$EXTERNALSYM i2d_RSAPrivateKey_bio} +{$EXTERNALSYM d2i_RSAPublicKey_bio} +{$EXTERNALSYM i2d_RSAPublicKey_bio} +{$EXTERNALSYM d2i_RSA_PUBKEY_bio} +{$EXTERNALSYM i2d_RSA_PUBKEY_bio} +{$EXTERNALSYM d2i_DSA_PUBKEY_bio} +{$EXTERNALSYM i2d_DSA_PUBKEY_bio} +{$EXTERNALSYM d2i_DSAPrivateKey_bio} +{$EXTERNALSYM i2d_DSAPrivateKey_bio} +{$EXTERNALSYM d2i_EC_PUBKEY_bio} +{$EXTERNALSYM i2d_EC_PUBKEY_bio} +{$EXTERNALSYM d2i_ECPrivateKey_bio} +{$EXTERNALSYM i2d_ECPrivateKey_bio} +{$EXTERNALSYM d2i_PKCS8_bio} +{$EXTERNALSYM i2d_PKCS8_bio} +{$EXTERNALSYM d2i_PKCS8_PRIV_KEY_INFO_bio} +{$EXTERNALSYM i2d_PKCS8_PRIV_KEY_INFO_bio} +{$EXTERNALSYM i2d_PKCS8PrivateKeyInfo_bio} +{$EXTERNALSYM i2d_PrivateKey_bio} +{$EXTERNALSYM d2i_PrivateKey_bio} +{$EXTERNALSYM i2d_PUBKEY_bio} +{$EXTERNALSYM d2i_PUBKEY_bio} +{$EXTERNALSYM X509_dup} +{$EXTERNALSYM X509_ATTRIBUTE_dup} +{$EXTERNALSYM X509_EXTENSION_dup} +{$EXTERNALSYM X509_CRL_dup} +{$EXTERNALSYM X509_REVOKED_dup} +{$EXTERNALSYM X509_REQ_dup} +{$EXTERNALSYM X509_ALGOR_dup} +{$EXTERNALSYM X509_ALGOR_set0} +{$EXTERNALSYM X509_ALGOR_get0} +{$EXTERNALSYM X509_ALGOR_set_md} +{$EXTERNALSYM X509_ALGOR_cmp} +{$EXTERNALSYM X509_NAME_dup} +{$EXTERNALSYM X509_NAME_ENTRY_dup} +{$EXTERNALSYM X509_cmp_time} +{$EXTERNALSYM X509_cmp_current_time} +{$EXTERNALSYM X509_time_adj} +{$EXTERNALSYM X509_time_adj_ex} +{$EXTERNALSYM X509_gmtime_adj} +{$EXTERNALSYM X509_get_default_cert_area} +{$EXTERNALSYM X509_get_default_cert_dir} +{$EXTERNALSYM X509_get_default_cert_file} +{$EXTERNALSYM X509_get_default_cert_dir_env} +{$EXTERNALSYM X509_get_default_cert_file_env} +{$EXTERNALSYM X509_get_default_private_dir} +{$EXTERNALSYM X509_to_X509_REQ} +{$EXTERNALSYM X509_REQ_to_X509} +{$EXTERNALSYM X509_ALGOR_new} +{$EXTERNALSYM X509_ALGOR_free} +{$EXTERNALSYM d2i_X509_ALGOR} +{$EXTERNALSYM i2d_X509_ALGOR} +{$EXTERNALSYM X509_VAL_new} +{$EXTERNALSYM X509_VAL_free} +{$EXTERNALSYM d2i_X509_VAL} +{$EXTERNALSYM i2d_X509_VAL} +{$EXTERNALSYM X509_PUBKEY_new} +{$EXTERNALSYM X509_PUBKEY_free} +{$EXTERNALSYM d2i_X509_PUBKEY} +{$EXTERNALSYM i2d_X509_PUBKEY} +{$EXTERNALSYM X509_PUBKEY_set} +{$EXTERNALSYM X509_PUBKEY_get0} +{$EXTERNALSYM X509_PUBKEY_get} +{$EXTERNALSYM X509_get_pathlen} +{$EXTERNALSYM i2d_PUBKEY} +{$EXTERNALSYM d2i_PUBKEY} +{$EXTERNALSYM i2d_RSA_PUBKEY} +{$EXTERNALSYM d2i_RSA_PUBKEY} +{$EXTERNALSYM i2d_DSA_PUBKEY} +{$EXTERNALSYM d2i_DSA_PUBKEY} +{$EXTERNALSYM i2d_EC_PUBKEY} +{$EXTERNALSYM d2i_EC_PUBKEY} +{$EXTERNALSYM X509_SIG_new} +{$EXTERNALSYM X509_SIG_free} +{$EXTERNALSYM d2i_X509_SIG} +{$EXTERNALSYM i2d_X509_SIG} +{$EXTERNALSYM X509_SIG_get0} +{$EXTERNALSYM X509_SIG_getm} +{$EXTERNALSYM X509_REQ_INFO_new} +{$EXTERNALSYM X509_REQ_INFO_free} +{$EXTERNALSYM d2i_X509_REQ_INFO} +{$EXTERNALSYM i2d_X509_REQ_INFO} +{$EXTERNALSYM X509_REQ_new} +{$EXTERNALSYM X509_REQ_free} +{$EXTERNALSYM d2i_X509_REQ} +{$EXTERNALSYM i2d_X509_REQ} +{$EXTERNALSYM X509_ATTRIBUTE_new} +{$EXTERNALSYM X509_ATTRIBUTE_free} +{$EXTERNALSYM d2i_X509_ATTRIBUTE} +{$EXTERNALSYM i2d_X509_ATTRIBUTE} +{$EXTERNALSYM X509_ATTRIBUTE_create} +{$EXTERNALSYM X509_EXTENSION_new} +{$EXTERNALSYM X509_EXTENSION_free} +{$EXTERNALSYM d2i_X509_EXTENSION} +{$EXTERNALSYM i2d_X509_EXTENSION} +{$EXTERNALSYM X509_NAME_ENTRY_new} +{$EXTERNALSYM X509_NAME_ENTRY_free} +{$EXTERNALSYM d2i_X509_NAME_ENTRY} +{$EXTERNALSYM i2d_X509_NAME_ENTRY} +{$EXTERNALSYM X509_NAME_new} +{$EXTERNALSYM X509_NAME_free} +{$EXTERNALSYM d2i_X509_NAME} +{$EXTERNALSYM i2d_X509_NAME} +{$EXTERNALSYM X509_NAME_set} +{$EXTERNALSYM X509_new} +{$EXTERNALSYM X509_free} +{$EXTERNALSYM d2i_X509} +{$EXTERNALSYM i2d_X509} +{$EXTERNALSYM X509_set_ex_data} +{$EXTERNALSYM X509_get_ex_data} +{$EXTERNALSYM i2d_X509_AUX} +{$EXTERNALSYM d2i_X509_AUX} +{$EXTERNALSYM i2d_re_X509_tbs} +{$EXTERNALSYM X509_SIG_INFO_get} +{$EXTERNALSYM X509_SIG_INFO_set} +{$EXTERNALSYM X509_get_signature_info} +{$EXTERNALSYM X509_get0_signature} +{$EXTERNALSYM X509_get_signature_nid} +{$EXTERNALSYM X509_trusted} +{$EXTERNALSYM X509_alias_set1} +{$EXTERNALSYM X509_keyid_set1} +{$EXTERNALSYM X509_alias_get0} +{$EXTERNALSYM X509_keyid_get0} +{$EXTERNALSYM X509_TRUST_set} +{$EXTERNALSYM X509_add1_trust_object} +{$EXTERNALSYM X509_add1_reject_object} +{$EXTERNALSYM X509_trust_clear} +{$EXTERNALSYM X509_reject_clear} +{$EXTERNALSYM X509_REVOKED_new} +{$EXTERNALSYM X509_REVOKED_free} +{$EXTERNALSYM d2i_X509_REVOKED} +{$EXTERNALSYM i2d_X509_REVOKED} +{$EXTERNALSYM X509_CRL_INFO_new} +{$EXTERNALSYM X509_CRL_INFO_free} +{$EXTERNALSYM d2i_X509_CRL_INFO} +{$EXTERNALSYM i2d_X509_CRL_INFO} +{$EXTERNALSYM X509_CRL_new} +{$EXTERNALSYM X509_CRL_free} +{$EXTERNALSYM d2i_X509_CRL} +{$EXTERNALSYM i2d_X509_CRL} +{$EXTERNALSYM X509_CRL_add0_revoked} +{$EXTERNALSYM X509_CRL_get0_by_serial} +{$EXTERNALSYM X509_CRL_get0_by_cert} +{$EXTERNALSYM X509_PKEY_new} +{$EXTERNALSYM X509_PKEY_free} +{$EXTERNALSYM X509_INFO_new} +{$EXTERNALSYM X509_INFO_free} +{$EXTERNALSYM X509_NAME_oneline} +{$EXTERNALSYM ASN1_item_digest} +{$EXTERNALSYM ASN1_item_verify} +{$EXTERNALSYM ASN1_item_sign} +{$EXTERNALSYM ASN1_item_sign_ctx} +{$EXTERNALSYM X509_get_version} +{$EXTERNALSYM X509_set_version} +{$EXTERNALSYM X509_set_serialNumber} +{$EXTERNALSYM X509_get_serialNumber} +{$EXTERNALSYM X509_get0_serialNumber} +{$EXTERNALSYM X509_set_issuer_name} +{$EXTERNALSYM X509_get_issuer_name} +{$EXTERNALSYM X509_set_subject_name} +{$EXTERNALSYM X509_get_subject_name} +{$EXTERNALSYM X509_get0_notBefore} +{$EXTERNALSYM X509_getm_notBefore} +{$EXTERNALSYM X509_set1_notBefore} +{$EXTERNALSYM X509_get0_notAfter} +{$EXTERNALSYM X509_getm_notAfter} +{$EXTERNALSYM X509_set1_notAfter} +{$EXTERNALSYM X509_set_pubkey} +{$EXTERNALSYM X509_up_ref} +{$EXTERNALSYM X509_get_signature_type} +{$EXTERNALSYM X509_get_X509_PUBKEY} +{$EXTERNALSYM X509_get0_uids} +{$EXTERNALSYM X509_get0_tbs_sigalg} +{$EXTERNALSYM X509_get0_pubkey} +{$EXTERNALSYM X509_get_pubkey} +{$EXTERNALSYM X509_get0_pubkey_bitstr} +{$EXTERNALSYM X509_certificate_type} +{$EXTERNALSYM X509_REQ_get_version} +{$EXTERNALSYM X509_REQ_set_version} +{$EXTERNALSYM X509_REQ_get_subject_name} +{$EXTERNALSYM X509_REQ_set_subject_name} +{$EXTERNALSYM X509_REQ_get0_signature} +{$EXTERNALSYM X509_REQ_get_signature_nid} +{$EXTERNALSYM i2d_re_X509_REQ_tbs} +{$EXTERNALSYM X509_REQ_set_pubkey} +{$EXTERNALSYM X509_REQ_get_pubkey} +{$EXTERNALSYM X509_REQ_get0_pubkey} +{$EXTERNALSYM X509_REQ_get_X509_PUBKEY} +{$EXTERNALSYM X509_REQ_extension_nid} +{$EXTERNALSYM X509_REQ_get_extension_nids} +{$EXTERNALSYM X509_REQ_set_extension_nids} +{$EXTERNALSYM X509_REQ_get_attr_count} +{$EXTERNALSYM X509_REQ_get_attr_by_NID} +{$EXTERNALSYM X509_REQ_get_attr_by_OBJ} +{$EXTERNALSYM X509_REQ_get_attr} +{$EXTERNALSYM X509_REQ_delete_attr} +{$EXTERNALSYM X509_REQ_add1_attr} +{$EXTERNALSYM X509_REQ_add1_attr_by_OBJ} +{$EXTERNALSYM X509_REQ_add1_attr_by_NID} +{$EXTERNALSYM X509_REQ_add1_attr_by_txt} +{$EXTERNALSYM X509_CRL_set_version} +{$EXTERNALSYM X509_CRL_set_issuer_name} +{$EXTERNALSYM X509_CRL_set1_lastUpdate} +{$EXTERNALSYM X509_CRL_set1_nextUpdate} +{$EXTERNALSYM X509_CRL_sort} +{$EXTERNALSYM X509_CRL_up_ref} +{$EXTERNALSYM X509_CRL_get_version} +{$EXTERNALSYM X509_CRL_get0_lastUpdate} +{$EXTERNALSYM X509_CRL_get0_nextUpdate} +{$EXTERNALSYM X509_CRL_get_issuer} +{$EXTERNALSYM X509_CRL_get0_signature} +{$EXTERNALSYM X509_CRL_get_signature_nid} +{$EXTERNALSYM i2d_re_X509_CRL_tbs} +{$EXTERNALSYM X509_REVOKED_get0_serialNumber} +{$EXTERNALSYM X509_REVOKED_set_serialNumber} +{$EXTERNALSYM X509_REVOKED_get0_revocationDate} +{$EXTERNALSYM X509_REVOKED_set_revocationDate} +{$EXTERNALSYM X509_CRL_diff} +{$EXTERNALSYM X509_REQ_check_private_key} +{$EXTERNALSYM X509_check_private_key} +{$EXTERNALSYM X509_CRL_check_suiteb} +{$EXTERNALSYM X509_issuer_and_serial_cmp} +{$EXTERNALSYM X509_issuer_and_serial_hash} +{$EXTERNALSYM X509_issuer_name_cmp} +{$EXTERNALSYM X509_issuer_name_hash} +{$EXTERNALSYM X509_subject_name_cmp} +{$EXTERNALSYM X509_subject_name_hash} +{$EXTERNALSYM X509_cmp} +{$EXTERNALSYM X509_NAME_cmp} +{$EXTERNALSYM X509_NAME_hash_old} +{$EXTERNALSYM X509_CRL_cmp} +{$EXTERNALSYM X509_CRL_match} +{$EXTERNALSYM X509_aux_print} +{$EXTERNALSYM X509_NAME_print} +{$EXTERNALSYM X509_NAME_print_ex} +{$EXTERNALSYM X509_print_ex} +{$EXTERNALSYM X509_print} +{$EXTERNALSYM X509_ocspid_print} +{$EXTERNALSYM X509_CRL_print_ex} +{$EXTERNALSYM X509_CRL_print} +{$EXTERNALSYM X509_REQ_print_ex} +{$EXTERNALSYM X509_REQ_print} +{$EXTERNALSYM X509_NAME_entry_count} +{$EXTERNALSYM X509_NAME_get_text_by_NID} +{$EXTERNALSYM X509_NAME_get_text_by_OBJ} +{$EXTERNALSYM X509_NAME_get_index_by_NID} +{$EXTERNALSYM X509_NAME_get_index_by_OBJ} +{$EXTERNALSYM X509_NAME_get_entry} +{$EXTERNALSYM X509_NAME_delete_entry} +{$EXTERNALSYM X509_NAME_add_entry} +{$EXTERNALSYM X509_NAME_add_entry_by_OBJ} +{$EXTERNALSYM X509_NAME_add_entry_by_NID} +{$EXTERNALSYM X509_NAME_ENTRY_create_by_txt} +{$EXTERNALSYM X509_NAME_ENTRY_create_by_NID} +{$EXTERNALSYM X509_NAME_add_entry_by_txt} +{$EXTERNALSYM X509_NAME_ENTRY_create_by_OBJ} +{$EXTERNALSYM X509_NAME_ENTRY_set_object} +{$EXTERNALSYM X509_NAME_ENTRY_set_data} +{$EXTERNALSYM X509_NAME_ENTRY_get_object} +{$EXTERNALSYM X509_NAME_ENTRY_get_data} +{$EXTERNALSYM X509_NAME_ENTRY_set} +{$EXTERNALSYM X509_NAME_get0_der} +{$EXTERNALSYM X509_get_ext_count} +{$EXTERNALSYM X509_get_ext_by_NID} +{$EXTERNALSYM X509_get_ext_by_OBJ} +{$EXTERNALSYM X509_get_ext_by_critical} +{$EXTERNALSYM X509_get_ext} +{$EXTERNALSYM X509_delete_ext} +{$EXTERNALSYM X509_add_ext} +{$EXTERNALSYM X509_get_ext_d2i} +{$EXTERNALSYM X509_add1_ext_i2d} +{$EXTERNALSYM X509_CRL_get_ext_count} +{$EXTERNALSYM X509_CRL_get_ext_by_NID} +{$EXTERNALSYM X509_CRL_get_ext_by_OBJ} +{$EXTERNALSYM X509_CRL_get_ext_by_critical} +{$EXTERNALSYM X509_CRL_get_ext} +{$EXTERNALSYM X509_CRL_delete_ext} +{$EXTERNALSYM X509_CRL_add_ext} +{$EXTERNALSYM X509_CRL_get_ext_d2i} +{$EXTERNALSYM X509_CRL_add1_ext_i2d} +{$EXTERNALSYM X509_REVOKED_get_ext_count} +{$EXTERNALSYM X509_REVOKED_get_ext_by_NID} +{$EXTERNALSYM X509_REVOKED_get_ext_by_OBJ} +{$EXTERNALSYM X509_REVOKED_get_ext_by_critical} +{$EXTERNALSYM X509_REVOKED_get_ext} +{$EXTERNALSYM X509_REVOKED_delete_ext} +{$EXTERNALSYM X509_REVOKED_add_ext} +{$EXTERNALSYM X509_REVOKED_get_ext_d2i} +{$EXTERNALSYM X509_REVOKED_add1_ext_i2d} +{$EXTERNALSYM X509_EXTENSION_create_by_NID} +{$EXTERNALSYM X509_EXTENSION_create_by_OBJ} +{$EXTERNALSYM X509_EXTENSION_set_object} +{$EXTERNALSYM X509_EXTENSION_set_critical} +{$EXTERNALSYM X509_EXTENSION_set_data} +{$EXTERNALSYM X509_EXTENSION_get_object} +{$EXTERNALSYM X509_EXTENSION_get_data} +{$EXTERNALSYM X509_EXTENSION_get_critical} +{$EXTERNALSYM X509_ATTRIBUTE_create_by_NID} +{$EXTERNALSYM X509_ATTRIBUTE_create_by_OBJ} +{$EXTERNALSYM X509_ATTRIBUTE_create_by_txt} +{$EXTERNALSYM X509_ATTRIBUTE_set1_object} +{$EXTERNALSYM X509_ATTRIBUTE_set1_data} +{$EXTERNALSYM X509_ATTRIBUTE_get0_data} +{$EXTERNALSYM X509_ATTRIBUTE_count} +{$EXTERNALSYM X509_ATTRIBUTE_get0_object} +{$EXTERNALSYM X509_ATTRIBUTE_get0_type} +{$EXTERNALSYM EVP_PKEY_get_attr_count} +{$EXTERNALSYM EVP_PKEY_get_attr_by_NID} +{$EXTERNALSYM EVP_PKEY_get_attr_by_OBJ} +{$EXTERNALSYM EVP_PKEY_get_attr} +{$EXTERNALSYM EVP_PKEY_delete_attr} +{$EXTERNALSYM EVP_PKEY_add1_attr} +{$EXTERNALSYM EVP_PKEY_add1_attr_by_OBJ} +{$EXTERNALSYM EVP_PKEY_add1_attr_by_NID} +{$EXTERNALSYM EVP_PKEY_add1_attr_by_txt} +{$EXTERNALSYM X509_verify_cert} +{$EXTERNALSYM PKCS5_pbe_set0_algor} +{$EXTERNALSYM PKCS5_pbe_set} +{$EXTERNALSYM PKCS5_pbe2_set} +{$EXTERNALSYM PKCS5_pbe2_set_iv} +{$EXTERNALSYM PKCS5_pbe2_set_scrypt} +{$EXTERNALSYM PKCS5_pbkdf2_set} +{$EXTERNALSYM EVP_PKCS82PKEY} +{$EXTERNALSYM EVP_PKEY2PKCS8} +{$EXTERNALSYM PKCS8_pkey_set0} +{$EXTERNALSYM PKCS8_pkey_get0} +{$EXTERNALSYM PKCS8_pkey_add1_attr_by_NID} +{$EXTERNALSYM X509_PUBKEY_set0_param} +{$EXTERNALSYM X509_PUBKEY_get0_param} +{$EXTERNALSYM X509_check_trust} +{$EXTERNALSYM X509_TRUST_get_count} +{$EXTERNALSYM X509_TRUST_get0} +{$EXTERNALSYM X509_TRUST_get_by_id} +{$EXTERNALSYM X509_TRUST_cleanup} +{$EXTERNALSYM X509_TRUST_get_flags} +{$EXTERNALSYM X509_TRUST_get0_name} +{$EXTERNALSYM X509_TRUST_get_trust} +{$EXTERNALSYM X509_NAME_hash_ex} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +procedure X509_CRL_set_default_method(const meth: PX509_CRL_METHOD); cdecl; external CLibCrypto; +procedure X509_CRL_METHOD_free(m: PX509_CRL_METHOD); cdecl; external CLibCrypto; +procedure X509_CRL_set_meth_data(crl: PX509_CRL; dat: Pointer); cdecl; external CLibCrypto; +function X509_CRL_get_meth_data(crl: PX509_CRL): Pointer; cdecl; external CLibCrypto; +function X509_verify_cert_error_string(n: TOpenSSL_C_LONG): PAnsiChar; cdecl; external CLibCrypto; +function X509_verify(a: PX509; r: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_verify(a: PX509_REQ; r: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_verify(a: PX509_CRL; r: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function NETSCAPE_SPKI_verify(a: PNETSCAPE_SPKI; r: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function NETSCAPE_SPKI_b64_decode(const str: PAnsiChar; len: TOpenSSL_C_INT): PNETSCAPE_SPKI; cdecl; external CLibCrypto; +function NETSCAPE_SPKI_b64_encode(x: PNETSCAPE_SPKI): PAnsiChar; cdecl; external CLibCrypto; +function NETSCAPE_SPKI_get_pubkey(x: PNETSCAPE_SPKI): PEVP_PKEY; cdecl; external CLibCrypto; +function NETSCAPE_SPKI_set_pubkey(x: PNETSCAPE_SPKI; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function NETSCAPE_SPKI_print(out_: PBIO; spki: PNETSCAPE_SPKI): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_signature_dump(bp: PBIO; const sig: PASN1_STRING; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_signature_print(bp: PBIO; const alg: PX509_ALGOR; const sig: PASN1_STRING): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_sign(x: PX509; pkey: PEVP_PKEY; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_sign_ctx(x: PX509; ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_sign(x: PX509_REQ; pkey: PEVP_PKEY; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_sign_ctx(x: PX509_REQ; ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_sign(x: PX509_CRL; pkey: PEVP_PKEY; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_sign_ctx(x: PX509_CRL; ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function NETSCAPE_SPKI_sign(x: PNETSCAPE_SPKI; pkey: PEVP_PKEY; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_pubkey_digest(const data: PX509; const type_: PEVP_MD; md: PByte; len: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_digest(const data: PX509; const type_: PEVP_MD; md: PByte; var len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_digest(const data: PX509_CRL; const type_: PEVP_MD; md: PByte; var len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_digest(const data: PX509_REQ; const type_: PEVP_MD; md: PByte; var len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_digest(const data: PX509_NAME; const type_: PEVP_MD; md: PByte; var len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_X509_bio(bp: PBIO; x509: PPX509): PX509; cdecl; external CLibCrypto; +function i2d_X509_bio(bp: PBIO; x509: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_X509_CRL_bio(bp: PBIO; crl: PPX509_CRL): PX509_CRL; cdecl; external CLibCrypto; +function i2d_X509_CRL_bio(bp: PBIO; crl: PX509_CRL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_X509_REQ_bio(bp: PBIO; req: PPX509_REQ): PX509_REQ; cdecl; external CLibCrypto; +function i2d_X509_REQ_bio(bp: PBIO; req: PX509_REQ): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_RSAPrivateKey_bio(bp: PBIO; rsa: PPRSA): PRSA; cdecl; external CLibCrypto; +function i2d_RSAPrivateKey_bio(bp: PBIO; rsa: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_RSAPublicKey_bio(bp: PBIO; rsa: PPRSA): PRSA; cdecl; external CLibCrypto; +function i2d_RSAPublicKey_bio(bp: PBIO; rsa: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_RSA_PUBKEY_bio(bp: PBIO; rsa: PPRSA): PRSA; cdecl; external CLibCrypto; +function i2d_RSA_PUBKEY_bio(bp: PBIO; rsa: PRSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_DSA_PUBKEY_bio(bp: PBIO; dsa: PPDSA): DSA; cdecl; external CLibCrypto; +function i2d_DSA_PUBKEY_bio(bp: PBIO; dsa: PDSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_DSAPrivateKey_bio(bp: PBIO; dsa: PPDSA): PDSA; cdecl; external CLibCrypto; +function i2d_DSAPrivateKey_bio(bp: PBIO; dsa: PDSA): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_EC_PUBKEY_bio(bp: PBIO; eckey: PPEC_KEY): PEC_KEY; cdecl; external CLibCrypto; +function i2d_EC_PUBKEY_bio(bp: PBIO; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_ECPrivateKey_bio(bp: PBIO; eckey: PPEC_KEY): EC_KEY; cdecl; external CLibCrypto; +function i2d_ECPrivateKey_bio(bp: PBIO; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_PKCS8_bio(bp: PBIO; p8: PPX509_SIG): PX509_SIG; cdecl; external CLibCrypto; +function i2d_PKCS8_bio(bp: PBIO; p8: PX509_SIG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_PKCS8_PRIV_KEY_INFO_bio(bp: PBIO; p8inf: PPPKCS8_PRIV_KEY_INFO): PPKCS8_PRIV_KEY_INFO; cdecl; external CLibCrypto; +function i2d_PKCS8_PRIV_KEY_INFO_bio(bp: PBIO; p8inf: PPKCS8_PRIV_KEY_INFO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2d_PKCS8PrivateKeyInfo_bio(bp: PBIO; key: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2d_PrivateKey_bio(bp: PBIO; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_PrivateKey_bio(bp: PBIO; a: PPEVP_PKEY): PEVP_PKEY; cdecl; external CLibCrypto; +function i2d_PUBKEY_bio(bp: PBIO; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_PUBKEY_bio(bp: PBIO; a: PPEVP_PKEY): PEVP_PKEY; cdecl; external CLibCrypto; +function X509_dup(x509: PX509): PX509; cdecl; external CLibCrypto; +function X509_ATTRIBUTE_dup(xa: PX509_ATTRIBUTE): PX509_ATTRIBUTE; cdecl; external CLibCrypto; +function X509_EXTENSION_dup(ex: PX509_EXTENSION): PX509_EXTENSION; cdecl; external CLibCrypto; +function X509_CRL_dup(crl: PX509_CRL): PX509_CRL; cdecl; external CLibCrypto; +function X509_REVOKED_dup(rev: PX509_REVOKED): PX509_REVOKED; cdecl; external CLibCrypto; +function X509_REQ_dup(req: PX509_REQ): PX509_REQ; cdecl; external CLibCrypto; +function X509_ALGOR_dup(xn: PX509_ALGOR): PX509_ALGOR; cdecl; external CLibCrypto; +function X509_ALGOR_set0(alg: PX509_ALGOR; aobj: PASN1_OBJECT; ptype: TOpenSSL_C_INT; pval: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_ALGOR_get0(const paobj: PPASN1_OBJECT; pptype: POpenSSL_C_INT; const ppval: PPointer; const algor: PX509_ALGOR); cdecl; external CLibCrypto; +procedure X509_ALGOR_set_md(alg: PX509_ALGOR; const md: PEVP_MD); cdecl; external CLibCrypto; +function X509_ALGOR_cmp(const a: PX509_ALGOR; const b: PX509_ALGOR): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_dup(xn: PX509_NAME): PX509_NAME; cdecl; external CLibCrypto; +function X509_NAME_ENTRY_dup(ne: PX509_NAME_ENTRY): PX509_NAME_ENTRY; cdecl; external CLibCrypto; +function X509_cmp_time(const s: PASN1_TIME; t: POpenSSL_C_TIMET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_cmp_current_time(const s: PASN1_TIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_time_adj(s: PASN1_TIME; adj: TOpenSSL_C_LONG; t: POpenSSL_C_TIMET): PASN1_TIME; cdecl; external CLibCrypto; +function X509_time_adj_ex(s: PASN1_TIME; offset_day: TOpenSSL_C_INT; offset_sec: TOpenSSL_C_LONG; t: POpenSSL_C_TIMET): PASN1_TIME; cdecl; external CLibCrypto; +function X509_gmtime_adj(s: PASN1_TIME; adj: TOpenSSL_C_LONG): PASN1_TIME; cdecl; external CLibCrypto; +function X509_get_default_cert_area: PAnsiChar; cdecl; external CLibCrypto; +function X509_get_default_cert_dir: PAnsiChar; cdecl; external CLibCrypto; +function X509_get_default_cert_file: PAnsiChar; cdecl; external CLibCrypto; +function X509_get_default_cert_dir_env: PAnsiChar; cdecl; external CLibCrypto; +function X509_get_default_cert_file_env: PAnsiChar; cdecl; external CLibCrypto; +function X509_get_default_private_dir: PAnsiChar; cdecl; external CLibCrypto; +function X509_to_X509_REQ(x: PX509; pkey: PEVP_PKEY; const md: PEVP_MD): PX509_REQ; cdecl; external CLibCrypto; +function X509_REQ_to_X509(r: PX509_REQ; days: TOpenSSL_C_INT; pkey: PEVP_PKEY): PX509; cdecl; external CLibCrypto; +function X509_ALGOR_new: PX509_ALGOR; cdecl; external CLibCrypto; +procedure X509_ALGOR_free(v1: PX509_ALGOR); cdecl; external CLibCrypto; +function d2i_X509_ALGOR(a: PPX509_ALGOR; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_ALGOR; cdecl; external CLibCrypto; +function i2d_X509_ALGOR(a: PX509_ALGOR; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VAL_new: PX509_VAL; cdecl; external CLibCrypto; +procedure X509_VAL_free(v1: PX509_VAL); cdecl; external CLibCrypto; +function d2i_X509_VAL(a: PPX509_VAL; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_VAL; cdecl; external CLibCrypto; +function i2d_X509_VAL(a: PX509_VAL; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_PUBKEY_new: PX509_PUBKEY; cdecl; external CLibCrypto; +procedure X509_PUBKEY_free(v1: PX509_PUBKEY); cdecl; external CLibCrypto; +function d2i_X509_PUBKEY(a: PPX509_PUBKEY; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_PUBKEY; cdecl; external CLibCrypto; +function i2d_X509_PUBKEY(a: PX509_PUBKEY; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_PUBKEY_set(x: PPX509_PUBKEY; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_PUBKEY_get0(key: PX509_PUBKEY): PEVP_PKEY; cdecl; external CLibCrypto; +function X509_PUBKEY_get(key: PX509_PUBKEY): PEVP_PKEY; cdecl; external CLibCrypto; +function X509_get_pathlen(x: PX509): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function i2d_PUBKEY(a: PEVP_PKEY; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_PUBKEY(a: PPEVP_PKEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; external CLibCrypto; +function i2d_RSA_PUBKEY(a: PRSA; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_RSA_PUBKEY(a: PPRSA; const pp: PPByte; length: TOpenSSL_C_LONG): PRSA; cdecl; external CLibCrypto; +function i2d_DSA_PUBKEY(a: PDSA; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_DSA_PUBKEY(a: PPDSA; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA; cdecl; external CLibCrypto; +function i2d_EC_PUBKEY(a: EC_KEY; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_EC_PUBKEY(a: PPEC_KEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEC_KEY; cdecl; external CLibCrypto; +function X509_SIG_new: PX509_SIG; cdecl; external CLibCrypto; +procedure X509_SIG_free(v1: PX509_SIG); cdecl; external CLibCrypto; +function d2i_X509_SIG(a: PPX509_SIG; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_SIG; cdecl; external CLibCrypto; +function i2d_X509_SIG(a: PX509_SIG; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_SIG_get0(const sig: PX509_SIG; const palg: PPX509_ALGOR; const pdigest: PPASN1_OCTET_STRING); cdecl; external CLibCrypto; +procedure X509_SIG_getm(sig: X509_SIG; palg: PPX509_ALGOR; pdigest: PPASN1_OCTET_STRING); cdecl; external CLibCrypto; +function X509_REQ_INFO_new: PX509_REQ_INFO; cdecl; external CLibCrypto; +procedure X509_REQ_INFO_free(v1: PX509_REQ_INFO); cdecl; external CLibCrypto; +function d2i_X509_REQ_INFO(a: PPX509_REQ_INFO; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_REQ_INFO; cdecl; external CLibCrypto; +function i2d_X509_REQ_INFO(a: PX509_REQ_INFO; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_new: PX509_REQ; cdecl; external CLibCrypto; +procedure X509_REQ_free(v1: PX509_REQ); cdecl; external CLibCrypto; +function d2i_X509_REQ(a: PPX509_REQ; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_REQ; cdecl; external CLibCrypto; +function i2d_X509_REQ(a: PX509_REQ; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_ATTRIBUTE_new: PX509_ATTRIBUTE; cdecl; external CLibCrypto; +procedure X509_ATTRIBUTE_free(v1: PX509_ATTRIBUTE); cdecl; external CLibCrypto; +function d2i_X509_ATTRIBUTE(a: PPX509_ATTRIBUTE; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_ATTRIBUTE; cdecl; external CLibCrypto; +function i2d_X509_ATTRIBUTE(a: PX509_ATTRIBUTE; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_ATTRIBUTE_create(nid: TOpenSSL_C_INT; trtype: TOpenSSL_C_INT; value: Pointer): PX509_ATTRIBUTE; cdecl; external CLibCrypto; +function X509_EXTENSION_new: PX509_EXTENSION; cdecl; external CLibCrypto; +procedure X509_EXTENSION_free(v1: PX509_EXTENSION); cdecl; external CLibCrypto; +function d2i_X509_EXTENSION(a: PPX509_EXTENSION; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_EXTENSION; cdecl; external CLibCrypto; +function i2d_X509_EXTENSION(a: PX509_EXTENSION; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_ENTRY_new: PX509_NAME_ENTRY; cdecl; external CLibCrypto; +procedure X509_NAME_ENTRY_free(v1: PX509_NAME_ENTRY); cdecl; external CLibCrypto; +function d2i_X509_NAME_ENTRY(a: PPX509_NAME_ENTRY; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_NAME_ENTRY; cdecl; external CLibCrypto; +function i2d_X509_NAME_ENTRY(a: PX509_NAME_ENTRY; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_new: PX509_NAME; cdecl; external CLibCrypto; +procedure X509_NAME_free(v1: PX509_NAME); cdecl; external CLibCrypto; +function d2i_X509_NAME(a: PPX509_NAME; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_NAME; cdecl; external CLibCrypto; +function i2d_X509_NAME(a: PX509_NAME; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_set(xn: PPX509_NAME; name: PX509_NAME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_new: PX509; cdecl; external CLibCrypto; +procedure X509_free(v1: PX509); cdecl; external CLibCrypto; +function d2i_X509(a: PPX509; const in_: PPByte; len: TOpenSSL_C_LONG): PX509; cdecl; external CLibCrypto; +function i2d_X509(a: PX509; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_set_ex_data(r: PX509; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_get_ex_data(r: PX509; idx: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function i2d_X509_AUX(a: PX509; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function d2i_X509_AUX(a: PPX509; const pp: PPByte; length: TOpenSSL_C_LONG): PX509; cdecl; external CLibCrypto; +function i2d_re_X509_tbs(x: PX509; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_SIG_INFO_get(const siginf: PX509_SIG_INFO; mdnid: POpenSSL_C_INT; pknid: POpenSSL_C_INT; secbits: POpenSSL_C_INT; flags: POpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_SIG_INFO_set(siginf: PX509_SIG_INFO; mdnid: TOpenSSL_C_INT; pknid: TOpenSSL_C_INT; secbits: TOpenSSL_C_INT; flags: TOpenSSL_C_UINT32); cdecl; external CLibCrypto; +function X509_get_signature_info(x: PX509; mdnid: POpenSSL_C_INT; pknid: POpenSSL_C_INT; secbits: POpenSSL_C_INT; flags: POpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_get0_signature(var sig: PASN1_BIT_STRING; var alg: PX509_ALGOR; const x: PX509); cdecl; external CLibCrypto; +function X509_get_signature_nid(const x: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_trusted(const x: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_alias_set1(x: PX509; const name: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_keyid_set1(x: PX509; const id: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_alias_get0(x: PX509; len: POpenSSL_C_INT): PByte; cdecl; external CLibCrypto; +function X509_keyid_get0(x: PX509; len: POpenSSL_C_INT): PByte; cdecl; external CLibCrypto; +function X509_TRUST_set(t: POpenSSL_C_INT; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_add1_trust_object(x: PX509; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_add1_reject_object(x: PX509; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_trust_clear(x: PX509); cdecl; external CLibCrypto; +procedure X509_reject_clear(x: PX509); cdecl; external CLibCrypto; +function X509_REVOKED_new: PX509_REVOKED; cdecl; external CLibCrypto; +procedure X509_REVOKED_free(v1: PX509_REVOKED); cdecl; external CLibCrypto; +function d2i_X509_REVOKED(a: PPX509_REVOKED; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_REVOKED; cdecl; external CLibCrypto; +function i2d_X509_REVOKED(a: PX509_REVOKED; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_INFO_new: PX509_CRL_INFO; cdecl; external CLibCrypto; +procedure X509_CRL_INFO_free(v1: PX509_CRL_INFO); cdecl; external CLibCrypto; +function d2i_X509_CRL_INFO(a: PPX509_CRL_INFO; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_CRL_INFO; cdecl; external CLibCrypto; +function i2d_X509_CRL_INFO(a: PX509_CRL_INFO; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_new: PX509_CRL; cdecl; external CLibCrypto; +procedure X509_CRL_free(v1: PX509_CRL); cdecl; external CLibCrypto; +function d2i_X509_CRL(a: PPX509_CRL; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_CRL; cdecl; external CLibCrypto; +function i2d_X509_CRL(a: PX509_CRL; out_: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_add0_revoked(crl: PX509_CRL; rev: PX509_REVOKED): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_get0_by_serial(crl: PX509_CRL; ret: PPX509_REVOKED; serial: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_get0_by_cert(crl: PX509_CRL; ret: PPX509_REVOKED; x: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_PKEY_new: PX509_PKEY; cdecl; external CLibCrypto; +procedure X509_PKEY_free(a: PX509_PKEY); cdecl; external CLibCrypto; +function X509_INFO_new: PX509_INFO; cdecl; external CLibCrypto; +procedure X509_INFO_free(a: PX509_INFO); cdecl; external CLibCrypto; +function X509_NAME_oneline(const a: PX509_NAME; buf: PAnsiChar; size: TOpenSSL_C_INT): PAnsiChar; cdecl; external CLibCrypto; +function ASN1_item_digest(const it: PASN1_ITEM; const type_: PEVP_MD; data: Pointer; md: PByte; len: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_item_verify(const it: PASN1_ITEM; algor1: PX509_ALGOR; signature: PASN1_BIT_STRING; data: Pointer; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_item_sign(const it: PASN1_ITEM; algor1: PX509_ALGOR; algor2: PX509_ALGOR; signature: PASN1_BIT_STRING; data: Pointer; pkey: PEVP_PKEY; const type_: PEVP_MD): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function ASN1_item_sign_ctx(const it: PASN1_ITEM; algor1: PX509_ALGOR; algor2: PX509_ALGOR; signature: PASN1_BIT_STRING; asn: Pointer; ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_get_version(const x: PX509): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function X509_set_version(x: PX509; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_set_serialNumber(x: PX509; serial: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_get_serialNumber(x: PX509): PASN1_INTEGER; cdecl; external CLibCrypto; +function X509_get0_serialNumber(const x: PX509): PASN1_INTEGER; cdecl; external CLibCrypto; +function X509_set_issuer_name(x: PX509; name: PX509_NAME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_get_issuer_name(const a: PX509): PX509_NAME; cdecl; external CLibCrypto; +function X509_set_subject_name(x: PX509; name: PX509_NAME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_get_subject_name(const a: PX509): PX509_NAME; cdecl; external CLibCrypto; +function X509_get0_notBefore(const x: PX509): PASN1_TIME; cdecl; external CLibCrypto; +function X509_getm_notBefore(const x: PX509): PASN1_TIME; cdecl; external CLibCrypto; +function X509_set1_notBefore(x: PX509; const tm: PASN1_TIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_get0_notAfter(const x: PX509): PASN1_TIME; cdecl; external CLibCrypto; +function X509_getm_notAfter(const x: PX509): PASN1_TIME; cdecl; external CLibCrypto; +function X509_set1_notAfter(x: PX509; const tm: PASN1_TIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_set_pubkey(x: PX509; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_up_ref(x: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_get_signature_type(const x: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_get_X509_PUBKEY(const x: PX509): PX509_PUBKEY; cdecl; external CLibCrypto; +procedure X509_get0_uids(const x: PX509; const piuid: PPASN1_BIT_STRING; const psuid: PPASN1_BIT_STRING); cdecl; external CLibCrypto; +function X509_get0_tbs_sigalg(const x: PX509): PX509_ALGOR; cdecl; external CLibCrypto; +function X509_get0_pubkey(const x: PX509): PEVP_PKEY; cdecl; external CLibCrypto; +function X509_get_pubkey(x: PX509): PEVP_PKEY; cdecl; external CLibCrypto; +function X509_get0_pubkey_bitstr(const x: PX509): PASN1_BIT_STRING; cdecl; external CLibCrypto; +function X509_certificate_type(const x: PX509; const pubkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_get_version(const req: PX509_REQ): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function X509_REQ_set_version(x: PX509_REQ; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_get_subject_name(const req: PX509_REQ): PX509_NAME; cdecl; external CLibCrypto; +function X509_REQ_set_subject_name(req: PX509_REQ; name: PX509_NAME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_REQ_get0_signature(const req: PX509_REQ; const psig: PPASN1_BIT_STRING; const palg: PPX509_ALGOR); cdecl; external CLibCrypto; +function X509_REQ_get_signature_nid(const req: PX509_REQ): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2d_re_X509_REQ_tbs(req: PX509_REQ; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_set_pubkey(x: PX509_REQ; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_get_pubkey(req: PX509_REQ): PEVP_PKEY; cdecl; external CLibCrypto; +function X509_REQ_get0_pubkey(req: PX509_REQ): PEVP_PKEY; cdecl; external CLibCrypto; +function X509_REQ_get_X509_PUBKEY(req: PX509_REQ): PX509_PUBKEY; cdecl; external CLibCrypto; +function X509_REQ_extension_nid(nid: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_get_extension_nids: POpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_REQ_set_extension_nids(nids: POpenSSL_C_INT); cdecl; external CLibCrypto; +function X509_REQ_get_attr_count(const req: PX509_REQ): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_get_attr_by_NID(const req: PX509_REQ; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_get_attr_by_OBJ(const req: PX509_REQ; const obj: ASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_get_attr(const req: PX509_REQ; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; external CLibCrypto; +function X509_REQ_delete_attr(req: PX509_REQ; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; external CLibCrypto; +function X509_REQ_add1_attr(req: PX509_REQ; attr: PX509_ATTRIBUTE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_add1_attr_by_OBJ(req: PX509_REQ; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_add1_attr_by_NID(req: PX509_REQ; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_add1_attr_by_txt(req: PX509_REQ; const attrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_set_version(x: PX509_CRL; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_set_issuer_name(x: PX509_CRL; name: PX509_NAME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_set1_lastUpdate(x: PX509_CRL; const tm: PASN1_TIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_set1_nextUpdate(x: PX509_CRL; const tm: PASN1_TIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_sort(crl: PX509_CRL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_up_ref(crl: PX509_CRL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_get_version(const crl: PX509_CRL): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function X509_CRL_get0_lastUpdate(const crl: PX509_CRL): PASN1_TIME; cdecl; external CLibCrypto; +function X509_CRL_get0_nextUpdate(const crl: PX509_CRL): PASN1_TIME; cdecl; external CLibCrypto; +function X509_CRL_get_issuer(const crl: PX509_CRL): PX509_NAME; cdecl; external CLibCrypto; +procedure X509_CRL_get0_signature(const crl: PX509_CRL; const psig: PPASN1_BIT_STRING; const palg: PPX509_ALGOR); cdecl; external CLibCrypto; +function X509_CRL_get_signature_nid(const crl: PX509_CRL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2d_re_X509_CRL_tbs(req: PX509_CRL; pp: PPByte): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REVOKED_get0_serialNumber(const x: PX509_REVOKED): PASN1_INTEGER; cdecl; external CLibCrypto; +function X509_REVOKED_set_serialNumber(x: PX509_REVOKED; serial: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REVOKED_get0_revocationDate(const x: PX509_REVOKED): PASN1_TIME; cdecl; external CLibCrypto; +function X509_REVOKED_set_revocationDate(r: PX509_REVOKED; tm: PASN1_TIME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_diff(base: PX509_CRL; newer: PX509_CRL; skey: PEVP_PKEY; const md: PEVP_MD; flags: TOpenSSL_C_UINT): PX509_CRL; cdecl; external CLibCrypto; +function X509_REQ_check_private_key(x509: PX509_REQ; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_check_private_key(const x509: PX509; const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_check_suiteb(crl: PX509_CRL; pk: PEVP_PKEY; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_issuer_and_serial_cmp(const a: PX509; const b: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_issuer_and_serial_hash(a: PX509): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +function X509_issuer_name_cmp(const a: PX509; const b: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_issuer_name_hash(a: PX509): TOpenSSL_C_uLONG; cdecl; external CLibCrypto; +function X509_subject_name_cmp(const a: PX509; const b: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_subject_name_hash(x: PX509): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +function X509_cmp(const a: PX509; const b: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_cmp(const a: PX509_NAME; const b: PX509_NAME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_hash_old(x: PX509_NAME): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +function X509_CRL_cmp(const a: PX509_CRL; const b: PX509_CRL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_match(const a: PX509_CRL; const b: PX509_CRL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_aux_print(out_: PBIO; x: PX509; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_print(bp: PBIO; const name: PX509_NAME; obase: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_print_ex(out_: PBIO; const nm: PX509_NAME; indent: TOpenSSL_C_INT; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_print_ex(bp: PBIO; x: PX509; nmflag: TOpenSSL_C_ULONG; cflag: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_print(bp: PBIO; x: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_ocspid_print(bp: PBIO; x: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_print_ex(out_: PBIO; x: PX509_CRL; nmflag: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_print(bp: PBIO; x: PX509_CRL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_print_ex(bp: PBIO; x: PX509_REQ; nmflag: TOpenSSL_C_ULONG; cflag: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REQ_print(bp: PBIO; req: PX509_REQ): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_entry_count(const name: PX509_NAME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_get_text_by_NID(name: PX509_NAME; nid: TOpenSSL_C_INT; buf: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_get_text_by_OBJ(name: PX509_NAME; const obj: PASN1_OBJECT; buf: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_get_index_by_NID(name: PX509_NAME; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_get_index_by_OBJ(name: PX509_NAME; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_get_entry(const name: PX509_NAME; loc: TOpenSSL_C_INT): PX509_NAME_ENTRY; cdecl; external CLibCrypto; +function X509_NAME_delete_entry(name: PX509_NAME; loc: TOpenSSL_C_INT): pX509_NAME_ENTRY; cdecl; external CLibCrypto; +function X509_NAME_add_entry(name: PX509_NAME; const ne: PX509_NAME_ENTRY; loc: TOpenSSL_C_INT; set_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_add_entry_by_OBJ(name: PX509_NAME; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT; loc: TOpenSSL_C_INT; set_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_add_entry_by_NID(name: PX509_NAME; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT; loc: TOpenSSL_C_INT; set_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_ENTRY_create_by_txt(ne: PPX509_NAME_ENTRY; const field: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): PX509_NAME_ENTRY; cdecl; external CLibCrypto; +function X509_NAME_ENTRY_create_by_NID(ne: PPX509_NAME_ENTRY; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): PX509_NAME_ENTRY; cdecl; external CLibCrypto; +function X509_NAME_add_entry_by_txt(name: PX509_NAME; const field: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT; loc: TOpenSSL_C_INT; set_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_ENTRY_create_by_OBJ(ne: PPX509_NAME_ENTRY; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): PX509_NAME_ENTRY; cdecl; external CLibCrypto; +function X509_NAME_ENTRY_set_object(ne: PX509_NAME_ENTRY; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_ENTRY_set_data(ne: PX509_NAME_ENTRY; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_ENTRY_get_object(const ne: PX509_NAME_ENTRY): PASN1_OBJECT; cdecl; external CLibCrypto; +function X509_NAME_ENTRY_get_data(const ne: PX509_NAME_ENTRY): PASN1_STRING; cdecl; external CLibCrypto; +function X509_NAME_ENTRY_set(const ne: PX509_NAME_ENTRY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_get0_der(nm: PX509_NAME; const pder: PPByte; pderlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_get_ext_count(const x: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_get_ext_by_NID(const x: PX509; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_get_ext_by_OBJ(const x: PX509; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_get_ext_by_critical(const x: PX509; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_get_ext(const x: PX509; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; external CLibCrypto; +function X509_delete_ext(x: PX509; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; external CLibCrypto; +function X509_add_ext(x: PX509; ex: PX509_EXTENSION; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_get_ext_d2i(const x: PX509; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function X509_add1_ext_i2d(x: PX509; nid: TOpenSSL_C_INT; value: Pointer; crit: TOpenSSL_C_INT; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_get_ext_count(const x: PX509_CRL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_get_ext_by_NID(const x: PX509_CRL; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_get_ext_by_OBJ(const x: X509_CRL; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_get_ext_by_critical(const x: PX509_CRL; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_get_ext(const x: PX509_CRL; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; external CLibCrypto; +function X509_CRL_delete_ext(x: PX509_CRL; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; external CLibCrypto; +function X509_CRL_add_ext(x: PX509_CRL; ex: PX509_EXTENSION; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_CRL_get_ext_d2i(const x: PX509_CRL; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function X509_CRL_add1_ext_i2d(x: PX509_CRL; nid: TOpenSSL_C_INT; value: Pointer; crit: TOpenSSL_C_INT; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REVOKED_get_ext_count(const x: PX509_REVOKED): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REVOKED_get_ext_by_NID(const x: PX509_REVOKED; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REVOKED_get_ext_by_OBJ(const x: PX509_REVOKED; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REVOKED_get_ext_by_critical(const x: PX509_REVOKED; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REVOKED_get_ext(const x: PX509_REVOKED; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; external CLibCrypto; +function X509_REVOKED_delete_ext(x: PX509_REVOKED; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; external CLibCrypto; +function X509_REVOKED_add_ext(x: PX509_REVOKED; ex: PX509_EXTENSION; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_REVOKED_get_ext_d2i(const x: PX509_REVOKED; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function X509_REVOKED_add1_ext_i2d(x: PX509_REVOKED; nid: TOpenSSL_C_INT; value: Pointer; crit: TOpenSSL_C_INT; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_EXTENSION_create_by_NID(ex: PPX509_EXTENSION; nid: TOpenSSL_C_INT; crit: TOpenSSL_C_INT; data: PASN1_OCTET_STRING): PX509_EXTENSION; cdecl; external CLibCrypto; +function X509_EXTENSION_create_by_OBJ(ex: PPX509_EXTENSION; const obj: PASN1_OBJECT; crit: TOpenSSL_C_INT; data: PASN1_OCTET_STRING): PX509_EXTENSION; cdecl; external CLibCrypto; +function X509_EXTENSION_set_object(ex: PX509_EXTENSION; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_EXTENSION_set_critical(ex: PX509_EXTENSION; crit: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_EXTENSION_set_data(ex: PX509_EXTENSION; data: PASN1_OCTET_STRING): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_EXTENSION_get_object(ex: PX509_EXTENSION): PASN1_OBJECT; cdecl; external CLibCrypto; +function X509_EXTENSION_get_data(ne: PX509_EXTENSION): PASN1_OCTET_STRING; cdecl; external CLibCrypto; +function X509_EXTENSION_get_critical(const ex: PX509_EXTENSION): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_ATTRIBUTE_create_by_NID(attr: PPX509_ATTRIBUTE; nid: TOpenSSL_C_INT; atrtype: TOpenSSL_C_INT; const data: Pointer; len: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; external CLibCrypto; +function X509_ATTRIBUTE_create_by_OBJ(attr: PPX509_ATTRIBUTE; const obj: PASN1_OBJECT; atrtype: TOpenSSL_C_INT; const data: Pointer; len: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; external CLibCrypto; +function X509_ATTRIBUTE_create_by_txt(attr: PPX509_ATTRIBUTE; const atrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; external CLibCrypto; +function X509_ATTRIBUTE_set1_object(attr: PX509_ATTRIBUTE; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_ATTRIBUTE_set1_data(attr: PX509_ATTRIBUTE; attrtype: TOpenSSL_C_INT; const data: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_ATTRIBUTE_get0_data(attr: PX509_ATTRIBUTE; idx: TOpenSSL_C_INT; atrtype: TOpenSSL_C_INT; data: Pointer): Pointer; cdecl; external CLibCrypto; +function X509_ATTRIBUTE_count(const attr: PX509_ATTRIBUTE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_ATTRIBUTE_get0_object(attr: PX509_ATTRIBUTE): PASN1_OBJECT; cdecl; external CLibCrypto; +function X509_ATTRIBUTE_get0_type(attr: PX509_ATTRIBUTE; idx: TOpenSSL_C_INT): PASN1_TYPE; cdecl; external CLibCrypto; +function EVP_PKEY_get_attr_count(const key: PEVP_PKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_get_attr_by_NID(const key: PEVP_PKEY; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_get_attr_by_OBJ(const key: PEVP_PKEY; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_get_attr(const key: PEVP_PKEY; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; external CLibCrypto; +function EVP_PKEY_delete_attr(key: PEVP_PKEY; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; external CLibCrypto; +function EVP_PKEY_add1_attr(key: PEVP_PKEY; attr: PX509_ATTRIBUTE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_add1_attr_by_OBJ(key: PEVP_PKEY; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_add1_attr_by_NID(key: PEVP_PKEY; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function EVP_PKEY_add1_attr_by_txt(key: PEVP_PKEY; const attrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_verify_cert(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS5_pbe_set0_algor(algor: PX509_ALGOR; alg: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; const salt: PByte; saltlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS5_pbe_set(alg: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; const salt: PByte; saltlen: TOpenSSL_C_INT): PX509_ALGOR; cdecl; external CLibCrypto; +function PKCS5_pbe2_set(const cipher: PEVP_CIPHER; iter: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT): PX509_ALGOR; cdecl; external CLibCrypto; +function PKCS5_pbe2_set_iv(const cipher: PEVP_CIPHER; iter: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; aiv: PByte; prf_nid: TOpenSSL_C_INT): PX509_ALGOR; cdecl; external CLibCrypto; +function PKCS5_pbe2_set_scrypt(const cipher: PEVP_CIPHER; const salt: PByte; saltlen: TOpenSSL_C_INT; aiv: PByte; N: TOpenSSL_C_UINT64; r: TOpenSSL_C_UINT64; p: TOpenSSL_C_UINT64): PX509_ALGOR; cdecl; external CLibCrypto; +function PKCS5_pbkdf2_set(iter: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; prf_nid: TOpenSSL_C_INT; keylen: TOpenSSL_C_INT): PX509_ALGOR; cdecl; external CLibCrypto; +function EVP_PKCS82PKEY(const p8: PPKCS8_PRIV_KEY_INFO): PEVP_PKEY; cdecl; external CLibCrypto; +function EVP_PKEY2PKCS8(pkey: PEVP_PKEY): PKCS8_PRIV_KEY_INFO; cdecl; external CLibCrypto; +function PKCS8_pkey_set0(priv: PPKCS8_PRIV_KEY_INFO; aobj: PASN1_OBJECT; version: TOpenSSL_C_INT; ptype: TOpenSSL_C_INT; pval: Pointer; penc: PByte; penclen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS8_pkey_get0(const ppkalg: PPASN1_OBJECT; const pk: PPByte; ppklen: POpenSSL_C_INT; const pa: PPX509_ALGOR; const p8: PPKCS8_PRIV_KEY_INFO): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function PKCS8_pkey_add1_attr_by_NID(p8: PPKCS8_PRIV_KEY_INFO; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_PUBKEY_set0_param(pub: PX509_PUBKEY; aobj: PASN1_OBJECT; ptype: TOpenSSL_C_INT; pval: Pointer; penc: PByte; penclen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_PUBKEY_get0_param(ppkalg: PPASN1_OBJECT; const pk: PPByte; ppklen: POpenSSL_C_INT; pa: PPX509_ALGOR; pub: PX509_PUBKEY): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_check_trust(x: PX509; id: TOpenSSL_C_INT; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_TRUST_get_count: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_TRUST_get0(idx: TOpenSSL_C_INT): PX509_TRUST; cdecl; external CLibCrypto; +function X509_TRUST_get_by_id(id: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_TRUST_cleanup; cdecl; external CLibCrypto; +function X509_TRUST_get_flags(const xp: PX509_TRUST): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_TRUST_get0_name(const xp: PX509_TRUST): PAnsiChar; cdecl; external CLibCrypto; +function X509_TRUST_get_trust(const xp: PX509_TRUST): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_NAME_hash_ex(const x: PX509_NAME; libctx: POSSL_LIB_CTX; const propq: PAnsiChar; ok: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function X509_NAME_hash(x: PX509_NAME): TOpenSSL_C_ULONG; {removed 3.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +procedure Load_X509_CRL_set_default_method(const meth: PX509_CRL_METHOD); cdecl; +procedure Load_X509_CRL_METHOD_free(m: PX509_CRL_METHOD); cdecl; +procedure Load_X509_CRL_set_meth_data(crl: PX509_CRL; dat: Pointer); cdecl; +function Load_X509_CRL_get_meth_data(crl: PX509_CRL): Pointer; cdecl; +function Load_X509_verify_cert_error_string(n: TOpenSSL_C_LONG): PAnsiChar; cdecl; +function Load_X509_verify(a: PX509; r: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_verify(a: PX509_REQ; r: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_verify(a: PX509_CRL; r: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_NETSCAPE_SPKI_verify(a: PNETSCAPE_SPKI; r: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_NETSCAPE_SPKI_b64_decode(const str: PAnsiChar; len: TOpenSSL_C_INT): PNETSCAPE_SPKI; cdecl; +function Load_NETSCAPE_SPKI_b64_encode(x: PNETSCAPE_SPKI): PAnsiChar; cdecl; +function Load_NETSCAPE_SPKI_get_pubkey(x: PNETSCAPE_SPKI): PEVP_PKEY; cdecl; +function Load_NETSCAPE_SPKI_set_pubkey(x: PNETSCAPE_SPKI; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_NETSCAPE_SPKI_print(out_: PBIO; spki: PNETSCAPE_SPKI): TOpenSSL_C_INT; cdecl; +function Load_X509_signature_dump(bp: PBIO; const sig: PASN1_STRING; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_signature_print(bp: PBIO; const alg: PX509_ALGOR; const sig: PASN1_STRING): TOpenSSL_C_INT; cdecl; +function Load_X509_sign(x: PX509; pkey: PEVP_PKEY; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_X509_sign_ctx(x: PX509; ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_X509_http_nbio(rctx: POCSP_REQ_CTX; pcert: PPX509): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_X509_REQ_sign(x: PX509_REQ; pkey: PEVP_PKEY; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_sign_ctx(x: PX509_REQ; ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_sign(x: PX509_CRL; pkey: PEVP_PKEY; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_sign_ctx(x: PX509_CRL; ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_X509_CRL_http_nbio(rctx: POCSP_REQ_CTX; pcrl: PPX509_CRL): TOpenSSL_C_INT; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_NETSCAPE_SPKI_sign(x: PNETSCAPE_SPKI; pkey: PEVP_PKEY; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_X509_pubkey_digest(const data: PX509; const type_: PEVP_MD; md: PByte; len: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_X509_digest(const data: PX509; const type_: PEVP_MD; md: PByte; var len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_digest(const data: PX509_CRL; const type_: PEVP_MD; md: PByte; var len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_digest(const data: PX509_REQ; const type_: PEVP_MD; md: PByte; var len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_digest(const data: PX509_NAME; const type_: PEVP_MD; md: PByte; var len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_d2i_X509_bio(bp: PBIO; x509: PPX509): PX509; cdecl; +function Load_i2d_X509_bio(bp: PBIO; x509: PX509): TOpenSSL_C_INT; cdecl; +function Load_d2i_X509_CRL_bio(bp: PBIO; crl: PPX509_CRL): PX509_CRL; cdecl; +function Load_i2d_X509_CRL_bio(bp: PBIO; crl: PX509_CRL): TOpenSSL_C_INT; cdecl; +function Load_d2i_X509_REQ_bio(bp: PBIO; req: PPX509_REQ): PX509_REQ; cdecl; +function Load_i2d_X509_REQ_bio(bp: PBIO; req: PX509_REQ): TOpenSSL_C_INT; cdecl; +function Load_d2i_RSAPrivateKey_bio(bp: PBIO; rsa: PPRSA): PRSA; cdecl; +function Load_i2d_RSAPrivateKey_bio(bp: PBIO; rsa: PRSA): TOpenSSL_C_INT; cdecl; +function Load_d2i_RSAPublicKey_bio(bp: PBIO; rsa: PPRSA): PRSA; cdecl; +function Load_i2d_RSAPublicKey_bio(bp: PBIO; rsa: PRSA): TOpenSSL_C_INT; cdecl; +function Load_d2i_RSA_PUBKEY_bio(bp: PBIO; rsa: PPRSA): PRSA; cdecl; +function Load_i2d_RSA_PUBKEY_bio(bp: PBIO; rsa: PRSA): TOpenSSL_C_INT; cdecl; +function Load_d2i_DSA_PUBKEY_bio(bp: PBIO; dsa: PPDSA): DSA; cdecl; +function Load_i2d_DSA_PUBKEY_bio(bp: PBIO; dsa: PDSA): TOpenSSL_C_INT; cdecl; +function Load_d2i_DSAPrivateKey_bio(bp: PBIO; dsa: PPDSA): PDSA; cdecl; +function Load_i2d_DSAPrivateKey_bio(bp: PBIO; dsa: PDSA): TOpenSSL_C_INT; cdecl; +function Load_d2i_EC_PUBKEY_bio(bp: PBIO; eckey: PPEC_KEY): PEC_KEY; cdecl; +function Load_i2d_EC_PUBKEY_bio(bp: PBIO; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; +function Load_d2i_ECPrivateKey_bio(bp: PBIO; eckey: PPEC_KEY): EC_KEY; cdecl; +function Load_i2d_ECPrivateKey_bio(bp: PBIO; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; +function Load_d2i_PKCS8_bio(bp: PBIO; p8: PPX509_SIG): PX509_SIG; cdecl; +function Load_i2d_PKCS8_bio(bp: PBIO; p8: PX509_SIG): TOpenSSL_C_INT; cdecl; +function Load_d2i_PKCS8_PRIV_KEY_INFO_bio(bp: PBIO; p8inf: PPPKCS8_PRIV_KEY_INFO): PPKCS8_PRIV_KEY_INFO; cdecl; +function Load_i2d_PKCS8_PRIV_KEY_INFO_bio(bp: PBIO; p8inf: PPKCS8_PRIV_KEY_INFO): TOpenSSL_C_INT; cdecl; +function Load_i2d_PKCS8PrivateKeyInfo_bio(bp: PBIO; key: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_i2d_PrivateKey_bio(bp: PBIO; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_d2i_PrivateKey_bio(bp: PBIO; a: PPEVP_PKEY): PEVP_PKEY; cdecl; +function Load_i2d_PUBKEY_bio(bp: PBIO; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_d2i_PUBKEY_bio(bp: PBIO; a: PPEVP_PKEY): PEVP_PKEY; cdecl; +function Load_X509_dup(x509: PX509): PX509; cdecl; +function Load_X509_ATTRIBUTE_dup(xa: PX509_ATTRIBUTE): PX509_ATTRIBUTE; cdecl; +function Load_X509_EXTENSION_dup(ex: PX509_EXTENSION): PX509_EXTENSION; cdecl; +function Load_X509_CRL_dup(crl: PX509_CRL): PX509_CRL; cdecl; +function Load_X509_REVOKED_dup(rev: PX509_REVOKED): PX509_REVOKED; cdecl; +function Load_X509_REQ_dup(req: PX509_REQ): PX509_REQ; cdecl; +function Load_X509_ALGOR_dup(xn: PX509_ALGOR): PX509_ALGOR; cdecl; +function Load_X509_ALGOR_set0(alg: PX509_ALGOR; aobj: PASN1_OBJECT; ptype: TOpenSSL_C_INT; pval: Pointer): TOpenSSL_C_INT; cdecl; +procedure Load_X509_ALGOR_get0(const paobj: PPASN1_OBJECT; pptype: POpenSSL_C_INT; const ppval: PPointer; const algor: PX509_ALGOR); cdecl; +procedure Load_X509_ALGOR_set_md(alg: PX509_ALGOR; const md: PEVP_MD); cdecl; +function Load_X509_ALGOR_cmp(const a: PX509_ALGOR; const b: PX509_ALGOR): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_dup(xn: PX509_NAME): PX509_NAME; cdecl; +function Load_X509_NAME_ENTRY_dup(ne: PX509_NAME_ENTRY): PX509_NAME_ENTRY; cdecl; +function Load_X509_cmp_time(const s: PASN1_TIME; t: POpenSSL_C_TIMET): TOpenSSL_C_INT; cdecl; +function Load_X509_cmp_current_time(const s: PASN1_TIME): TOpenSSL_C_INT; cdecl; +function Load_X509_time_adj(s: PASN1_TIME; adj: TOpenSSL_C_LONG; t: POpenSSL_C_TIMET): PASN1_TIME; cdecl; +function Load_X509_time_adj_ex(s: PASN1_TIME; offset_day: TOpenSSL_C_INT; offset_sec: TOpenSSL_C_LONG; t: POpenSSL_C_TIMET): PASN1_TIME; cdecl; +function Load_X509_gmtime_adj(s: PASN1_TIME; adj: TOpenSSL_C_LONG): PASN1_TIME; cdecl; +function Load_X509_get_default_cert_area: PAnsiChar; cdecl; +function Load_X509_get_default_cert_dir: PAnsiChar; cdecl; +function Load_X509_get_default_cert_file: PAnsiChar; cdecl; +function Load_X509_get_default_cert_dir_env: PAnsiChar; cdecl; +function Load_X509_get_default_cert_file_env: PAnsiChar; cdecl; +function Load_X509_get_default_private_dir: PAnsiChar; cdecl; +function Load_X509_to_X509_REQ(x: PX509; pkey: PEVP_PKEY; const md: PEVP_MD): PX509_REQ; cdecl; +function Load_X509_REQ_to_X509(r: PX509_REQ; days: TOpenSSL_C_INT; pkey: PEVP_PKEY): PX509; cdecl; +function Load_X509_ALGOR_new: PX509_ALGOR; cdecl; +procedure Load_X509_ALGOR_free(v1: PX509_ALGOR); cdecl; +function Load_d2i_X509_ALGOR(a: PPX509_ALGOR; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_ALGOR; cdecl; +function Load_i2d_X509_ALGOR(a: PX509_ALGOR; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_X509_VAL_new: PX509_VAL; cdecl; +procedure Load_X509_VAL_free(v1: PX509_VAL); cdecl; +function Load_d2i_X509_VAL(a: PPX509_VAL; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_VAL; cdecl; +function Load_i2d_X509_VAL(a: PX509_VAL; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_X509_PUBKEY_new: PX509_PUBKEY; cdecl; +procedure Load_X509_PUBKEY_free(v1: PX509_PUBKEY); cdecl; +function Load_d2i_X509_PUBKEY(a: PPX509_PUBKEY; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_PUBKEY; cdecl; +function Load_i2d_X509_PUBKEY(a: PX509_PUBKEY; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_X509_PUBKEY_set(x: PPX509_PUBKEY; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_X509_PUBKEY_get0(key: PX509_PUBKEY): PEVP_PKEY; cdecl; +function Load_X509_PUBKEY_get(key: PX509_PUBKEY): PEVP_PKEY; cdecl; +function Load_X509_get_pathlen(x: PX509): TOpenSSL_C_LONG; cdecl; +function Load_i2d_PUBKEY(a: PEVP_PKEY; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_PUBKEY(a: PPEVP_PKEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; +function Load_i2d_RSA_PUBKEY(a: PRSA; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_RSA_PUBKEY(a: PPRSA; const pp: PPByte; length: TOpenSSL_C_LONG): PRSA; cdecl; +function Load_i2d_DSA_PUBKEY(a: PDSA; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_DSA_PUBKEY(a: PPDSA; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA; cdecl; +function Load_i2d_EC_PUBKEY(a: EC_KEY; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_EC_PUBKEY(a: PPEC_KEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEC_KEY; cdecl; +function Load_X509_SIG_new: PX509_SIG; cdecl; +procedure Load_X509_SIG_free(v1: PX509_SIG); cdecl; +function Load_d2i_X509_SIG(a: PPX509_SIG; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_SIG; cdecl; +function Load_i2d_X509_SIG(a: PX509_SIG; out_: PPByte): TOpenSSL_C_INT; cdecl; +procedure Load_X509_SIG_get0(const sig: PX509_SIG; const palg: PPX509_ALGOR; const pdigest: PPASN1_OCTET_STRING); cdecl; +procedure Load_X509_SIG_getm(sig: X509_SIG; palg: PPX509_ALGOR; pdigest: PPASN1_OCTET_STRING); cdecl; +function Load_X509_REQ_INFO_new: PX509_REQ_INFO; cdecl; +procedure Load_X509_REQ_INFO_free(v1: PX509_REQ_INFO); cdecl; +function Load_d2i_X509_REQ_INFO(a: PPX509_REQ_INFO; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_REQ_INFO; cdecl; +function Load_i2d_X509_REQ_INFO(a: PX509_REQ_INFO; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_new: PX509_REQ; cdecl; +procedure Load_X509_REQ_free(v1: PX509_REQ); cdecl; +function Load_d2i_X509_REQ(a: PPX509_REQ; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_REQ; cdecl; +function Load_i2d_X509_REQ(a: PX509_REQ; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_X509_ATTRIBUTE_new: PX509_ATTRIBUTE; cdecl; +procedure Load_X509_ATTRIBUTE_free(v1: PX509_ATTRIBUTE); cdecl; +function Load_d2i_X509_ATTRIBUTE(a: PPX509_ATTRIBUTE; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_ATTRIBUTE; cdecl; +function Load_i2d_X509_ATTRIBUTE(a: PX509_ATTRIBUTE; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_X509_ATTRIBUTE_create(nid: TOpenSSL_C_INT; trtype: TOpenSSL_C_INT; value: Pointer): PX509_ATTRIBUTE; cdecl; +function Load_X509_EXTENSION_new: PX509_EXTENSION; cdecl; +procedure Load_X509_EXTENSION_free(v1: PX509_EXTENSION); cdecl; +function Load_d2i_X509_EXTENSION(a: PPX509_EXTENSION; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_EXTENSION; cdecl; +function Load_i2d_X509_EXTENSION(a: PX509_EXTENSION; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_ENTRY_new: PX509_NAME_ENTRY; cdecl; +procedure Load_X509_NAME_ENTRY_free(v1: PX509_NAME_ENTRY); cdecl; +function Load_d2i_X509_NAME_ENTRY(a: PPX509_NAME_ENTRY; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_NAME_ENTRY; cdecl; +function Load_i2d_X509_NAME_ENTRY(a: PX509_NAME_ENTRY; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_new: PX509_NAME; cdecl; +procedure Load_X509_NAME_free(v1: PX509_NAME); cdecl; +function Load_d2i_X509_NAME(a: PPX509_NAME; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_NAME; cdecl; +function Load_i2d_X509_NAME(a: PX509_NAME; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_set(xn: PPX509_NAME; name: PX509_NAME): TOpenSSL_C_INT; cdecl; +function Load_X509_new: PX509; cdecl; +procedure Load_X509_free(v1: PX509); cdecl; +function Load_d2i_X509(a: PPX509; const in_: PPByte; len: TOpenSSL_C_LONG): PX509; cdecl; +function Load_i2d_X509(a: PX509; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_X509_set_ex_data(r: PX509; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; +function Load_X509_get_ex_data(r: PX509; idx: TOpenSSL_C_INT): Pointer; cdecl; +function Load_i2d_X509_AUX(a: PX509; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_d2i_X509_AUX(a: PPX509; const pp: PPByte; length: TOpenSSL_C_LONG): PX509; cdecl; +function Load_i2d_re_X509_tbs(x: PX509; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_X509_SIG_INFO_get(const siginf: PX509_SIG_INFO; mdnid: POpenSSL_C_INT; pknid: POpenSSL_C_INT; secbits: POpenSSL_C_INT; flags: POpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; +procedure Load_X509_SIG_INFO_set(siginf: PX509_SIG_INFO; mdnid: TOpenSSL_C_INT; pknid: TOpenSSL_C_INT; secbits: TOpenSSL_C_INT; flags: TOpenSSL_C_UINT32); cdecl; +function Load_X509_get_signature_info(x: PX509; mdnid: POpenSSL_C_INT; pknid: POpenSSL_C_INT; secbits: POpenSSL_C_INT; flags: POpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; +procedure Load_X509_get0_signature(var sig: PASN1_BIT_STRING; var alg: PX509_ALGOR; const x: PX509); cdecl; +function Load_X509_get_signature_nid(const x: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509_trusted(const x: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509_alias_set1(x: PX509; const name: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_keyid_set1(x: PX509; const id: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_alias_get0(x: PX509; len: POpenSSL_C_INT): PByte; cdecl; +function Load_X509_keyid_get0(x: PX509; len: POpenSSL_C_INT): PByte; cdecl; +function Load_X509_TRUST_set(t: POpenSSL_C_INT; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_add1_trust_object(x: PX509; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_X509_add1_reject_object(x: PX509; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +procedure Load_X509_trust_clear(x: PX509); cdecl; +procedure Load_X509_reject_clear(x: PX509); cdecl; +function Load_X509_REVOKED_new: PX509_REVOKED; cdecl; +procedure Load_X509_REVOKED_free(v1: PX509_REVOKED); cdecl; +function Load_d2i_X509_REVOKED(a: PPX509_REVOKED; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_REVOKED; cdecl; +function Load_i2d_X509_REVOKED(a: PX509_REVOKED; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_INFO_new: PX509_CRL_INFO; cdecl; +procedure Load_X509_CRL_INFO_free(v1: PX509_CRL_INFO); cdecl; +function Load_d2i_X509_CRL_INFO(a: PPX509_CRL_INFO; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_CRL_INFO; cdecl; +function Load_i2d_X509_CRL_INFO(a: PX509_CRL_INFO; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_new: PX509_CRL; cdecl; +procedure Load_X509_CRL_free(v1: PX509_CRL); cdecl; +function Load_d2i_X509_CRL(a: PPX509_CRL; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_CRL; cdecl; +function Load_i2d_X509_CRL(a: PX509_CRL; out_: PPByte): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_add0_revoked(crl: PX509_CRL; rev: PX509_REVOKED): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_get0_by_serial(crl: PX509_CRL; ret: PPX509_REVOKED; serial: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_get0_by_cert(crl: PX509_CRL; ret: PPX509_REVOKED; x: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509_PKEY_new: PX509_PKEY; cdecl; +procedure Load_X509_PKEY_free(a: PX509_PKEY); cdecl; +function Load_X509_INFO_new: PX509_INFO; cdecl; +procedure Load_X509_INFO_free(a: PX509_INFO); cdecl; +function Load_X509_NAME_oneline(const a: PX509_NAME; buf: PAnsiChar; size: TOpenSSL_C_INT): PAnsiChar; cdecl; +function Load_ASN1_item_digest(const it: PASN1_ITEM; const type_: PEVP_MD; data: Pointer; md: PByte; len: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_ASN1_item_verify(const it: PASN1_ITEM; algor1: PX509_ALGOR; signature: PASN1_BIT_STRING; data: Pointer; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_ASN1_item_sign(const it: PASN1_ITEM; algor1: PX509_ALGOR; algor2: PX509_ALGOR; signature: PASN1_BIT_STRING; data: Pointer; pkey: PEVP_PKEY; const type_: PEVP_MD): TOpenSSL_C_INT; cdecl; +function Load_ASN1_item_sign_ctx(const it: PASN1_ITEM; algor1: PX509_ALGOR; algor2: PX509_ALGOR; signature: PASN1_BIT_STRING; asn: Pointer; ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +function Load_X509_get_version(const x: PX509): TOpenSSL_C_LONG; cdecl; +function Load_X509_set_version(x: PX509; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_X509_set_serialNumber(x: PX509; serial: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_X509_get_serialNumber(x: PX509): PASN1_INTEGER; cdecl; +function Load_X509_get0_serialNumber(const x: PX509): PASN1_INTEGER; cdecl; +function Load_X509_set_issuer_name(x: PX509; name: PX509_NAME): TOpenSSL_C_INT; cdecl; +function Load_X509_get_issuer_name(const a: PX509): PX509_NAME; cdecl; +function Load_X509_set_subject_name(x: PX509; name: PX509_NAME): TOpenSSL_C_INT; cdecl; +function Load_X509_get_subject_name(const a: PX509): PX509_NAME; cdecl; +function Load_X509_get0_notBefore(const x: PX509): PASN1_TIME; cdecl; +function Load_X509_getm_notBefore(const x: PX509): PASN1_TIME; cdecl; +function Load_X509_set1_notBefore(x: PX509; const tm: PASN1_TIME): TOpenSSL_C_INT; cdecl; +function Load_X509_get0_notAfter(const x: PX509): PASN1_TIME; cdecl; +function Load_X509_getm_notAfter(const x: PX509): PASN1_TIME; cdecl; +function Load_X509_set1_notAfter(x: PX509; const tm: PASN1_TIME): TOpenSSL_C_INT; cdecl; +function Load_X509_set_pubkey(x: PX509; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_X509_up_ref(x: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509_get_signature_type(const x: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509_get_X509_PUBKEY(const x: PX509): PX509_PUBKEY; cdecl; +procedure Load_X509_get0_uids(const x: PX509; const piuid: PPASN1_BIT_STRING; const psuid: PPASN1_BIT_STRING); cdecl; +function Load_X509_get0_tbs_sigalg(const x: PX509): PX509_ALGOR; cdecl; +function Load_X509_get0_pubkey(const x: PX509): PEVP_PKEY; cdecl; +function Load_X509_get_pubkey(x: PX509): PEVP_PKEY; cdecl; +function Load_X509_get0_pubkey_bitstr(const x: PX509): PASN1_BIT_STRING; cdecl; +function Load_X509_certificate_type(const x: PX509; const pubkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_get_version(const req: PX509_REQ): TOpenSSL_C_LONG; cdecl; +function Load_X509_REQ_set_version(x: PX509_REQ; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_get_subject_name(const req: PX509_REQ): PX509_NAME; cdecl; +function Load_X509_REQ_set_subject_name(req: PX509_REQ; name: PX509_NAME): TOpenSSL_C_INT; cdecl; +procedure Load_X509_REQ_get0_signature(const req: PX509_REQ; const psig: PPASN1_BIT_STRING; const palg: PPX509_ALGOR); cdecl; +function Load_X509_REQ_get_signature_nid(const req: PX509_REQ): TOpenSSL_C_INT; cdecl; +function Load_i2d_re_X509_REQ_tbs(req: PX509_REQ; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_set_pubkey(x: PX509_REQ; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_get_pubkey(req: PX509_REQ): PEVP_PKEY; cdecl; +function Load_X509_REQ_get0_pubkey(req: PX509_REQ): PEVP_PKEY; cdecl; +function Load_X509_REQ_get_X509_PUBKEY(req: PX509_REQ): PX509_PUBKEY; cdecl; +function Load_X509_REQ_extension_nid(nid: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_get_extension_nids: POpenSSL_C_INT; cdecl; +procedure Load_X509_REQ_set_extension_nids(nids: POpenSSL_C_INT); cdecl; +function Load_X509_REQ_get_attr_count(const req: PX509_REQ): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_get_attr_by_NID(const req: PX509_REQ; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_get_attr_by_OBJ(const req: PX509_REQ; const obj: ASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_get_attr(const req: PX509_REQ; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +function Load_X509_REQ_delete_attr(req: PX509_REQ; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +function Load_X509_REQ_add1_attr(req: PX509_REQ; attr: PX509_ATTRIBUTE): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_add1_attr_by_OBJ(req: PX509_REQ; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_add1_attr_by_NID(req: PX509_REQ; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_add1_attr_by_txt(req: PX509_REQ; const attrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_set_version(x: PX509_CRL; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_set_issuer_name(x: PX509_CRL; name: PX509_NAME): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_set1_lastUpdate(x: PX509_CRL; const tm: PASN1_TIME): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_set1_nextUpdate(x: PX509_CRL; const tm: PASN1_TIME): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_sort(crl: PX509_CRL): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_up_ref(crl: PX509_CRL): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_get_version(const crl: PX509_CRL): TOpenSSL_C_LONG; cdecl; +function Load_X509_CRL_get0_lastUpdate(const crl: PX509_CRL): PASN1_TIME; cdecl; +function Load_X509_CRL_get0_nextUpdate(const crl: PX509_CRL): PASN1_TIME; cdecl; +function Load_X509_CRL_get_issuer(const crl: PX509_CRL): PX509_NAME; cdecl; +procedure Load_X509_CRL_get0_signature(const crl: PX509_CRL; const psig: PPASN1_BIT_STRING; const palg: PPX509_ALGOR); cdecl; +function Load_X509_CRL_get_signature_nid(const crl: PX509_CRL): TOpenSSL_C_INT; cdecl; +function Load_i2d_re_X509_CRL_tbs(req: PX509_CRL; pp: PPByte): TOpenSSL_C_INT; cdecl; +function Load_X509_REVOKED_get0_serialNumber(const x: PX509_REVOKED): PASN1_INTEGER; cdecl; +function Load_X509_REVOKED_set_serialNumber(x: PX509_REVOKED; serial: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +function Load_X509_REVOKED_get0_revocationDate(const x: PX509_REVOKED): PASN1_TIME; cdecl; +function Load_X509_REVOKED_set_revocationDate(r: PX509_REVOKED; tm: PASN1_TIME): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_diff(base: PX509_CRL; newer: PX509_CRL; skey: PEVP_PKEY; const md: PEVP_MD; flags: TOpenSSL_C_UINT): PX509_CRL; cdecl; +function Load_X509_REQ_check_private_key(x509: PX509_REQ; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_X509_check_private_key(const x509: PX509; const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_check_suiteb(crl: PX509_CRL; pk: PEVP_PKEY; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_X509_issuer_and_serial_cmp(const a: PX509; const b: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509_issuer_and_serial_hash(a: PX509): TOpenSSL_C_ULONG; cdecl; +function Load_X509_issuer_name_cmp(const a: PX509; const b: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509_issuer_name_hash(a: PX509): TOpenSSL_C_uLONG; cdecl; +function Load_X509_subject_name_cmp(const a: PX509; const b: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509_subject_name_hash(x: PX509): TOpenSSL_C_ULONG; cdecl; +function Load_X509_cmp(const a: PX509; const b: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_cmp(const a: PX509_NAME; const b: PX509_NAME): TOpenSSL_C_INT; cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_X509_NAME_hash(x: PX509_NAME): TOpenSSL_C_ULONG; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_X509_NAME_hash_old(x: PX509_NAME): TOpenSSL_C_ULONG; cdecl; +function Load_X509_CRL_cmp(const a: PX509_CRL; const b: PX509_CRL): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_match(const a: PX509_CRL; const b: PX509_CRL): TOpenSSL_C_INT; cdecl; +function Load_X509_aux_print(out_: PBIO; x: PX509; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_print(bp: PBIO; const name: PX509_NAME; obase: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_print_ex(out_: PBIO; const nm: PX509_NAME; indent: TOpenSSL_C_INT; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_X509_print_ex(bp: PBIO; x: PX509; nmflag: TOpenSSL_C_ULONG; cflag: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_X509_print(bp: PBIO; x: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509_ocspid_print(bp: PBIO; x: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_print_ex(out_: PBIO; x: PX509_CRL; nmflag: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_print(bp: PBIO; x: PX509_CRL): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_print_ex(bp: PBIO; x: PX509_REQ; nmflag: TOpenSSL_C_ULONG; cflag: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_X509_REQ_print(bp: PBIO; req: PX509_REQ): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_entry_count(const name: PX509_NAME): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_get_text_by_NID(name: PX509_NAME; nid: TOpenSSL_C_INT; buf: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_get_text_by_OBJ(name: PX509_NAME; const obj: PASN1_OBJECT; buf: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_get_index_by_NID(name: PX509_NAME; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_get_index_by_OBJ(name: PX509_NAME; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_get_entry(const name: PX509_NAME; loc: TOpenSSL_C_INT): PX509_NAME_ENTRY; cdecl; +function Load_X509_NAME_delete_entry(name: PX509_NAME; loc: TOpenSSL_C_INT): pX509_NAME_ENTRY; cdecl; +function Load_X509_NAME_add_entry(name: PX509_NAME; const ne: PX509_NAME_ENTRY; loc: TOpenSSL_C_INT; set_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_add_entry_by_OBJ(name: PX509_NAME; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT; loc: TOpenSSL_C_INT; set_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_add_entry_by_NID(name: PX509_NAME; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT; loc: TOpenSSL_C_INT; set_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_ENTRY_create_by_txt(ne: PPX509_NAME_ENTRY; const field: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): PX509_NAME_ENTRY; cdecl; +function Load_X509_NAME_ENTRY_create_by_NID(ne: PPX509_NAME_ENTRY; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): PX509_NAME_ENTRY; cdecl; +function Load_X509_NAME_add_entry_by_txt(name: PX509_NAME; const field: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT; loc: TOpenSSL_C_INT; set_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_ENTRY_create_by_OBJ(ne: PPX509_NAME_ENTRY; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): PX509_NAME_ENTRY; cdecl; +function Load_X509_NAME_ENTRY_set_object(ne: PX509_NAME_ENTRY; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_ENTRY_set_data(ne: PX509_NAME_ENTRY; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_ENTRY_get_object(const ne: PX509_NAME_ENTRY): PASN1_OBJECT; cdecl; +function Load_X509_NAME_ENTRY_get_data(const ne: PX509_NAME_ENTRY): PASN1_STRING; cdecl; +function Load_X509_NAME_ENTRY_set(const ne: PX509_NAME_ENTRY): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_get0_der(nm: PX509_NAME; const pder: PPByte; pderlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_X509_get_ext_count(const x: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509_get_ext_by_NID(const x: PX509; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_get_ext_by_OBJ(const x: PX509; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_get_ext_by_critical(const x: PX509; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_get_ext(const x: PX509; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; +function Load_X509_delete_ext(x: PX509; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; +function Load_X509_add_ext(x: PX509; ex: PX509_EXTENSION; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_get_ext_d2i(const x: PX509; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl; +function Load_X509_add1_ext_i2d(x: PX509; nid: TOpenSSL_C_INT; value: Pointer; crit: TOpenSSL_C_INT; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_get_ext_count(const x: PX509_CRL): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_get_ext_by_NID(const x: PX509_CRL; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_get_ext_by_OBJ(const x: X509_CRL; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_get_ext_by_critical(const x: PX509_CRL; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_get_ext(const x: PX509_CRL; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; +function Load_X509_CRL_delete_ext(x: PX509_CRL; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; +function Load_X509_CRL_add_ext(x: PX509_CRL; ex: PX509_EXTENSION; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_CRL_get_ext_d2i(const x: PX509_CRL; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl; +function Load_X509_CRL_add1_ext_i2d(x: PX509_CRL; nid: TOpenSSL_C_INT; value: Pointer; crit: TOpenSSL_C_INT; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_X509_REVOKED_get_ext_count(const x: PX509_REVOKED): TOpenSSL_C_INT; cdecl; +function Load_X509_REVOKED_get_ext_by_NID(const x: PX509_REVOKED; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_REVOKED_get_ext_by_OBJ(const x: PX509_REVOKED; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_REVOKED_get_ext_by_critical(const x: PX509_REVOKED; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_REVOKED_get_ext(const x: PX509_REVOKED; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; +function Load_X509_REVOKED_delete_ext(x: PX509_REVOKED; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; +function Load_X509_REVOKED_add_ext(x: PX509_REVOKED; ex: PX509_EXTENSION; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_REVOKED_get_ext_d2i(const x: PX509_REVOKED; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl; +function Load_X509_REVOKED_add1_ext_i2d(x: PX509_REVOKED; nid: TOpenSSL_C_INT; value: Pointer; crit: TOpenSSL_C_INT; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_X509_EXTENSION_create_by_NID(ex: PPX509_EXTENSION; nid: TOpenSSL_C_INT; crit: TOpenSSL_C_INT; data: PASN1_OCTET_STRING): PX509_EXTENSION; cdecl; +function Load_X509_EXTENSION_create_by_OBJ(ex: PPX509_EXTENSION; const obj: PASN1_OBJECT; crit: TOpenSSL_C_INT; data: PASN1_OCTET_STRING): PX509_EXTENSION; cdecl; +function Load_X509_EXTENSION_set_object(ex: PX509_EXTENSION; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_X509_EXTENSION_set_critical(ex: PX509_EXTENSION; crit: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_EXTENSION_set_data(ex: PX509_EXTENSION; data: PASN1_OCTET_STRING): TOpenSSL_C_INT; cdecl; +function Load_X509_EXTENSION_get_object(ex: PX509_EXTENSION): PASN1_OBJECT; cdecl; +function Load_X509_EXTENSION_get_data(ne: PX509_EXTENSION): PASN1_OCTET_STRING; cdecl; +function Load_X509_EXTENSION_get_critical(const ex: PX509_EXTENSION): TOpenSSL_C_INT; cdecl; +function Load_X509_ATTRIBUTE_create_by_NID(attr: PPX509_ATTRIBUTE; nid: TOpenSSL_C_INT; atrtype: TOpenSSL_C_INT; const data: Pointer; len: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +function Load_X509_ATTRIBUTE_create_by_OBJ(attr: PPX509_ATTRIBUTE; const obj: PASN1_OBJECT; atrtype: TOpenSSL_C_INT; const data: Pointer; len: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +function Load_X509_ATTRIBUTE_create_by_txt(attr: PPX509_ATTRIBUTE; const atrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +function Load_X509_ATTRIBUTE_set1_object(attr: PX509_ATTRIBUTE; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_X509_ATTRIBUTE_set1_data(attr: PX509_ATTRIBUTE; attrtype: TOpenSSL_C_INT; const data: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_ATTRIBUTE_get0_data(attr: PX509_ATTRIBUTE; idx: TOpenSSL_C_INT; atrtype: TOpenSSL_C_INT; data: Pointer): Pointer; cdecl; +function Load_X509_ATTRIBUTE_count(const attr: PX509_ATTRIBUTE): TOpenSSL_C_INT; cdecl; +function Load_X509_ATTRIBUTE_get0_object(attr: PX509_ATTRIBUTE): PASN1_OBJECT; cdecl; +function Load_X509_ATTRIBUTE_get0_type(attr: PX509_ATTRIBUTE; idx: TOpenSSL_C_INT): PASN1_TYPE; cdecl; +function Load_EVP_PKEY_get_attr_count(const key: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_get_attr_by_NID(const key: PEVP_PKEY; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_get_attr_by_OBJ(const key: PEVP_PKEY; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_get_attr(const key: PEVP_PKEY; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +function Load_EVP_PKEY_delete_attr(key: PEVP_PKEY; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +function Load_EVP_PKEY_add1_attr(key: PEVP_PKEY; attr: PX509_ATTRIBUTE): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_add1_attr_by_OBJ(key: PEVP_PKEY; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_add1_attr_by_NID(key: PEVP_PKEY; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_EVP_PKEY_add1_attr_by_txt(key: PEVP_PKEY; const attrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_verify_cert(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; +function Load_PKCS5_pbe_set0_algor(algor: PX509_ALGOR; alg: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; const salt: PByte; saltlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS5_pbe_set(alg: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; const salt: PByte; saltlen: TOpenSSL_C_INT): PX509_ALGOR; cdecl; +function Load_PKCS5_pbe2_set(const cipher: PEVP_CIPHER; iter: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT): PX509_ALGOR; cdecl; +function Load_PKCS5_pbe2_set_iv(const cipher: PEVP_CIPHER; iter: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; aiv: PByte; prf_nid: TOpenSSL_C_INT): PX509_ALGOR; cdecl; +function Load_PKCS5_pbe2_set_scrypt(const cipher: PEVP_CIPHER; const salt: PByte; saltlen: TOpenSSL_C_INT; aiv: PByte; N: TOpenSSL_C_UINT64; r: TOpenSSL_C_UINT64; p: TOpenSSL_C_UINT64): PX509_ALGOR; cdecl; +function Load_PKCS5_pbkdf2_set(iter: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; prf_nid: TOpenSSL_C_INT; keylen: TOpenSSL_C_INT): PX509_ALGOR; cdecl; +function Load_EVP_PKCS82PKEY(const p8: PPKCS8_PRIV_KEY_INFO): PEVP_PKEY; cdecl; +function Load_EVP_PKEY2PKCS8(pkey: PEVP_PKEY): PKCS8_PRIV_KEY_INFO; cdecl; +function Load_PKCS8_pkey_set0(priv: PPKCS8_PRIV_KEY_INFO; aobj: PASN1_OBJECT; version: TOpenSSL_C_INT; ptype: TOpenSSL_C_INT; pval: Pointer; penc: PByte; penclen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_PKCS8_pkey_get0(const ppkalg: PPASN1_OBJECT; const pk: PPByte; ppklen: POpenSSL_C_INT; const pa: PPX509_ALGOR; const p8: PPKCS8_PRIV_KEY_INFO): TOpenSSL_C_INT; cdecl; +function Load_PKCS8_pkey_add1_attr_by_NID(p8: PPKCS8_PRIV_KEY_INFO; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_PUBKEY_set0_param(pub: PX509_PUBKEY; aobj: PASN1_OBJECT; ptype: TOpenSSL_C_INT; pval: Pointer; penc: PByte; penclen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_PUBKEY_get0_param(ppkalg: PPASN1_OBJECT; const pk: PPByte; ppklen: POpenSSL_C_INT; pa: PPX509_ALGOR; pub: PX509_PUBKEY): TOpenSSL_C_INT; cdecl; +function Load_X509_check_trust(x: PX509; id: TOpenSSL_C_INT; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_TRUST_get_count: TOpenSSL_C_INT; cdecl; +function Load_X509_TRUST_get0(idx: TOpenSSL_C_INT): PX509_TRUST; cdecl; +function Load_X509_TRUST_get_by_id(id: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_X509_TRUST_cleanup; cdecl; +function Load_X509_TRUST_get_flags(const xp: PX509_TRUST): TOpenSSL_C_INT; cdecl; +function Load_X509_TRUST_get0_name(const xp: PX509_TRUST): PAnsiChar; cdecl; +function Load_X509_TRUST_get_trust(const xp: PX509_TRUST): TOpenSSL_C_INT; cdecl; +function Load_X509_NAME_hash_ex(const x: PX509_NAME; libctx: POSSL_LIB_CTX; const propq: PAnsiChar; ok: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; + +var + X509_CRL_set_default_method: procedure (const meth: PX509_CRL_METHOD); cdecl = Load_X509_CRL_set_default_method; + X509_CRL_METHOD_free: procedure (m: PX509_CRL_METHOD); cdecl = Load_X509_CRL_METHOD_free; + X509_CRL_set_meth_data: procedure (crl: PX509_CRL; dat: Pointer); cdecl = Load_X509_CRL_set_meth_data; + X509_CRL_get_meth_data: function (crl: PX509_CRL): Pointer; cdecl = Load_X509_CRL_get_meth_data; + X509_verify_cert_error_string: function (n: TOpenSSL_C_LONG): PAnsiChar; cdecl = Load_X509_verify_cert_error_string; + X509_verify: function (a: PX509; r: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_X509_verify; + X509_REQ_verify: function (a: PX509_REQ; r: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_X509_REQ_verify; + X509_CRL_verify: function (a: PX509_CRL; r: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_X509_CRL_verify; + NETSCAPE_SPKI_verify: function (a: PNETSCAPE_SPKI; r: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_NETSCAPE_SPKI_verify; + NETSCAPE_SPKI_b64_decode: function (const str: PAnsiChar; len: TOpenSSL_C_INT): PNETSCAPE_SPKI; cdecl = Load_NETSCAPE_SPKI_b64_decode; + NETSCAPE_SPKI_b64_encode: function (x: PNETSCAPE_SPKI): PAnsiChar; cdecl = Load_NETSCAPE_SPKI_b64_encode; + NETSCAPE_SPKI_get_pubkey: function (x: PNETSCAPE_SPKI): PEVP_PKEY; cdecl = Load_NETSCAPE_SPKI_get_pubkey; + NETSCAPE_SPKI_set_pubkey: function (x: PNETSCAPE_SPKI; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_NETSCAPE_SPKI_set_pubkey; + NETSCAPE_SPKI_print: function (out_: PBIO; spki: PNETSCAPE_SPKI): TOpenSSL_C_INT; cdecl = Load_NETSCAPE_SPKI_print; + X509_signature_dump: function (bp: PBIO; const sig: PASN1_STRING; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_signature_dump; + X509_signature_print: function (bp: PBIO; const alg: PX509_ALGOR; const sig: PASN1_STRING): TOpenSSL_C_INT; cdecl = Load_X509_signature_print; + X509_sign: function (x: PX509; pkey: PEVP_PKEY; const md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_X509_sign; + X509_sign_ctx: function (x: PX509; ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl = Load_X509_sign_ctx; + X509_REQ_sign: function (x: PX509_REQ; pkey: PEVP_PKEY; const md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_X509_REQ_sign; + X509_REQ_sign_ctx: function (x: PX509_REQ; ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl = Load_X509_REQ_sign_ctx; + X509_CRL_sign: function (x: PX509_CRL; pkey: PEVP_PKEY; const md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_X509_CRL_sign; + X509_CRL_sign_ctx: function (x: PX509_CRL; ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl = Load_X509_CRL_sign_ctx; + NETSCAPE_SPKI_sign: function (x: PNETSCAPE_SPKI; pkey: PEVP_PKEY; const md: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_NETSCAPE_SPKI_sign; + X509_pubkey_digest: function (const data: PX509; const type_: PEVP_MD; md: PByte; len: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_X509_pubkey_digest; + X509_digest: function (const data: PX509; const type_: PEVP_MD; md: PByte; var len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_X509_digest; + X509_CRL_digest: function (const data: PX509_CRL; const type_: PEVP_MD; md: PByte; var len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_X509_CRL_digest; + X509_REQ_digest: function (const data: PX509_REQ; const type_: PEVP_MD; md: PByte; var len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_X509_REQ_digest; + X509_NAME_digest: function (const data: PX509_NAME; const type_: PEVP_MD; md: PByte; var len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_X509_NAME_digest; + d2i_X509_bio: function (bp: PBIO; x509: PPX509): PX509; cdecl = Load_d2i_X509_bio; + i2d_X509_bio: function (bp: PBIO; x509: PX509): TOpenSSL_C_INT; cdecl = Load_i2d_X509_bio; + d2i_X509_CRL_bio: function (bp: PBIO; crl: PPX509_CRL): PX509_CRL; cdecl = Load_d2i_X509_CRL_bio; + i2d_X509_CRL_bio: function (bp: PBIO; crl: PX509_CRL): TOpenSSL_C_INT; cdecl = Load_i2d_X509_CRL_bio; + d2i_X509_REQ_bio: function (bp: PBIO; req: PPX509_REQ): PX509_REQ; cdecl = Load_d2i_X509_REQ_bio; + i2d_X509_REQ_bio: function (bp: PBIO; req: PX509_REQ): TOpenSSL_C_INT; cdecl = Load_i2d_X509_REQ_bio; + d2i_RSAPrivateKey_bio: function (bp: PBIO; rsa: PPRSA): PRSA; cdecl = Load_d2i_RSAPrivateKey_bio; + i2d_RSAPrivateKey_bio: function (bp: PBIO; rsa: PRSA): TOpenSSL_C_INT; cdecl = Load_i2d_RSAPrivateKey_bio; + d2i_RSAPublicKey_bio: function (bp: PBIO; rsa: PPRSA): PRSA; cdecl = Load_d2i_RSAPublicKey_bio; + i2d_RSAPublicKey_bio: function (bp: PBIO; rsa: PRSA): TOpenSSL_C_INT; cdecl = Load_i2d_RSAPublicKey_bio; + d2i_RSA_PUBKEY_bio: function (bp: PBIO; rsa: PPRSA): PRSA; cdecl = Load_d2i_RSA_PUBKEY_bio; + i2d_RSA_PUBKEY_bio: function (bp: PBIO; rsa: PRSA): TOpenSSL_C_INT; cdecl = Load_i2d_RSA_PUBKEY_bio; + d2i_DSA_PUBKEY_bio: function (bp: PBIO; dsa: PPDSA): DSA; cdecl = Load_d2i_DSA_PUBKEY_bio; + i2d_DSA_PUBKEY_bio: function (bp: PBIO; dsa: PDSA): TOpenSSL_C_INT; cdecl = Load_i2d_DSA_PUBKEY_bio; + d2i_DSAPrivateKey_bio: function (bp: PBIO; dsa: PPDSA): PDSA; cdecl = Load_d2i_DSAPrivateKey_bio; + i2d_DSAPrivateKey_bio: function (bp: PBIO; dsa: PDSA): TOpenSSL_C_INT; cdecl = Load_i2d_DSAPrivateKey_bio; + d2i_EC_PUBKEY_bio: function (bp: PBIO; eckey: PPEC_KEY): PEC_KEY; cdecl = Load_d2i_EC_PUBKEY_bio; + i2d_EC_PUBKEY_bio: function (bp: PBIO; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl = Load_i2d_EC_PUBKEY_bio; + d2i_ECPrivateKey_bio: function (bp: PBIO; eckey: PPEC_KEY): EC_KEY; cdecl = Load_d2i_ECPrivateKey_bio; + i2d_ECPrivateKey_bio: function (bp: PBIO; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl = Load_i2d_ECPrivateKey_bio; + d2i_PKCS8_bio: function (bp: PBIO; p8: PPX509_SIG): PX509_SIG; cdecl = Load_d2i_PKCS8_bio; + i2d_PKCS8_bio: function (bp: PBIO; p8: PX509_SIG): TOpenSSL_C_INT; cdecl = Load_i2d_PKCS8_bio; + d2i_PKCS8_PRIV_KEY_INFO_bio: function (bp: PBIO; p8inf: PPPKCS8_PRIV_KEY_INFO): PPKCS8_PRIV_KEY_INFO; cdecl = Load_d2i_PKCS8_PRIV_KEY_INFO_bio; + i2d_PKCS8_PRIV_KEY_INFO_bio: function (bp: PBIO; p8inf: PPKCS8_PRIV_KEY_INFO): TOpenSSL_C_INT; cdecl = Load_i2d_PKCS8_PRIV_KEY_INFO_bio; + i2d_PKCS8PrivateKeyInfo_bio: function (bp: PBIO; key: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_i2d_PKCS8PrivateKeyInfo_bio; + i2d_PrivateKey_bio: function (bp: PBIO; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_i2d_PrivateKey_bio; + d2i_PrivateKey_bio: function (bp: PBIO; a: PPEVP_PKEY): PEVP_PKEY; cdecl = Load_d2i_PrivateKey_bio; + i2d_PUBKEY_bio: function (bp: PBIO; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_i2d_PUBKEY_bio; + d2i_PUBKEY_bio: function (bp: PBIO; a: PPEVP_PKEY): PEVP_PKEY; cdecl = Load_d2i_PUBKEY_bio; + X509_dup: function (x509: PX509): PX509; cdecl = Load_X509_dup; + X509_ATTRIBUTE_dup: function (xa: PX509_ATTRIBUTE): PX509_ATTRIBUTE; cdecl = Load_X509_ATTRIBUTE_dup; + X509_EXTENSION_dup: function (ex: PX509_EXTENSION): PX509_EXTENSION; cdecl = Load_X509_EXTENSION_dup; + X509_CRL_dup: function (crl: PX509_CRL): PX509_CRL; cdecl = Load_X509_CRL_dup; + X509_REVOKED_dup: function (rev: PX509_REVOKED): PX509_REVOKED; cdecl = Load_X509_REVOKED_dup; + X509_REQ_dup: function (req: PX509_REQ): PX509_REQ; cdecl = Load_X509_REQ_dup; + X509_ALGOR_dup: function (xn: PX509_ALGOR): PX509_ALGOR; cdecl = Load_X509_ALGOR_dup; + X509_ALGOR_set0: function (alg: PX509_ALGOR; aobj: PASN1_OBJECT; ptype: TOpenSSL_C_INT; pval: Pointer): TOpenSSL_C_INT; cdecl = Load_X509_ALGOR_set0; + X509_ALGOR_get0: procedure (const paobj: PPASN1_OBJECT; pptype: POpenSSL_C_INT; const ppval: PPointer; const algor: PX509_ALGOR); cdecl = Load_X509_ALGOR_get0; + X509_ALGOR_set_md: procedure (alg: PX509_ALGOR; const md: PEVP_MD); cdecl = Load_X509_ALGOR_set_md; + X509_ALGOR_cmp: function (const a: PX509_ALGOR; const b: PX509_ALGOR): TOpenSSL_C_INT; cdecl = Load_X509_ALGOR_cmp; + X509_NAME_dup: function (xn: PX509_NAME): PX509_NAME; cdecl = Load_X509_NAME_dup; + X509_NAME_ENTRY_dup: function (ne: PX509_NAME_ENTRY): PX509_NAME_ENTRY; cdecl = Load_X509_NAME_ENTRY_dup; + X509_cmp_time: function (const s: PASN1_TIME; t: POpenSSL_C_TIMET): TOpenSSL_C_INT; cdecl = Load_X509_cmp_time; + X509_cmp_current_time: function (const s: PASN1_TIME): TOpenSSL_C_INT; cdecl = Load_X509_cmp_current_time; + X509_time_adj: function (s: PASN1_TIME; adj: TOpenSSL_C_LONG; t: POpenSSL_C_TIMET): PASN1_TIME; cdecl = Load_X509_time_adj; + X509_time_adj_ex: function (s: PASN1_TIME; offset_day: TOpenSSL_C_INT; offset_sec: TOpenSSL_C_LONG; t: POpenSSL_C_TIMET): PASN1_TIME; cdecl = Load_X509_time_adj_ex; + X509_gmtime_adj: function (s: PASN1_TIME; adj: TOpenSSL_C_LONG): PASN1_TIME; cdecl = Load_X509_gmtime_adj; + X509_get_default_cert_area: function : PAnsiChar; cdecl = Load_X509_get_default_cert_area; + X509_get_default_cert_dir: function : PAnsiChar; cdecl = Load_X509_get_default_cert_dir; + X509_get_default_cert_file: function : PAnsiChar; cdecl = Load_X509_get_default_cert_file; + X509_get_default_cert_dir_env: function : PAnsiChar; cdecl = Load_X509_get_default_cert_dir_env; + X509_get_default_cert_file_env: function : PAnsiChar; cdecl = Load_X509_get_default_cert_file_env; + X509_get_default_private_dir: function : PAnsiChar; cdecl = Load_X509_get_default_private_dir; + X509_to_X509_REQ: function (x: PX509; pkey: PEVP_PKEY; const md: PEVP_MD): PX509_REQ; cdecl = Load_X509_to_X509_REQ; + X509_REQ_to_X509: function (r: PX509_REQ; days: TOpenSSL_C_INT; pkey: PEVP_PKEY): PX509; cdecl = Load_X509_REQ_to_X509; + X509_ALGOR_new: function : PX509_ALGOR; cdecl = Load_X509_ALGOR_new; + X509_ALGOR_free: procedure (v1: PX509_ALGOR); cdecl = Load_X509_ALGOR_free; + d2i_X509_ALGOR: function (a: PPX509_ALGOR; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_ALGOR; cdecl = Load_d2i_X509_ALGOR; + i2d_X509_ALGOR: function (a: PX509_ALGOR; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_X509_ALGOR; + X509_VAL_new: function : PX509_VAL; cdecl = Load_X509_VAL_new; + X509_VAL_free: procedure (v1: PX509_VAL); cdecl = Load_X509_VAL_free; + d2i_X509_VAL: function (a: PPX509_VAL; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_VAL; cdecl = Load_d2i_X509_VAL; + i2d_X509_VAL: function (a: PX509_VAL; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_X509_VAL; + X509_PUBKEY_new: function : PX509_PUBKEY; cdecl = Load_X509_PUBKEY_new; + X509_PUBKEY_free: procedure (v1: PX509_PUBKEY); cdecl = Load_X509_PUBKEY_free; + d2i_X509_PUBKEY: function (a: PPX509_PUBKEY; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_PUBKEY; cdecl = Load_d2i_X509_PUBKEY; + i2d_X509_PUBKEY: function (a: PX509_PUBKEY; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_X509_PUBKEY; + X509_PUBKEY_set: function (x: PPX509_PUBKEY; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_X509_PUBKEY_set; + X509_PUBKEY_get0: function (key: PX509_PUBKEY): PEVP_PKEY; cdecl = Load_X509_PUBKEY_get0; + X509_PUBKEY_get: function (key: PX509_PUBKEY): PEVP_PKEY; cdecl = Load_X509_PUBKEY_get; + X509_get_pathlen: function (x: PX509): TOpenSSL_C_LONG; cdecl = Load_X509_get_pathlen; + i2d_PUBKEY: function (a: PEVP_PKEY; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_PUBKEY; + d2i_PUBKEY: function (a: PPEVP_PKEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl = Load_d2i_PUBKEY; + i2d_RSA_PUBKEY: function (a: PRSA; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_RSA_PUBKEY; + d2i_RSA_PUBKEY: function (a: PPRSA; const pp: PPByte; length: TOpenSSL_C_LONG): PRSA; cdecl = Load_d2i_RSA_PUBKEY; + i2d_DSA_PUBKEY: function (a: PDSA; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_DSA_PUBKEY; + d2i_DSA_PUBKEY: function (a: PPDSA; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA; cdecl = Load_d2i_DSA_PUBKEY; + i2d_EC_PUBKEY: function (a: EC_KEY; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_EC_PUBKEY; + d2i_EC_PUBKEY: function (a: PPEC_KEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEC_KEY; cdecl = Load_d2i_EC_PUBKEY; + X509_SIG_new: function : PX509_SIG; cdecl = Load_X509_SIG_new; + X509_SIG_free: procedure (v1: PX509_SIG); cdecl = Load_X509_SIG_free; + d2i_X509_SIG: function (a: PPX509_SIG; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_SIG; cdecl = Load_d2i_X509_SIG; + i2d_X509_SIG: function (a: PX509_SIG; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_X509_SIG; + X509_SIG_get0: procedure (const sig: PX509_SIG; const palg: PPX509_ALGOR; const pdigest: PPASN1_OCTET_STRING); cdecl = Load_X509_SIG_get0; + X509_SIG_getm: procedure (sig: X509_SIG; palg: PPX509_ALGOR; pdigest: PPASN1_OCTET_STRING); cdecl = Load_X509_SIG_getm; + X509_REQ_INFO_new: function : PX509_REQ_INFO; cdecl = Load_X509_REQ_INFO_new; + X509_REQ_INFO_free: procedure (v1: PX509_REQ_INFO); cdecl = Load_X509_REQ_INFO_free; + d2i_X509_REQ_INFO: function (a: PPX509_REQ_INFO; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_REQ_INFO; cdecl = Load_d2i_X509_REQ_INFO; + i2d_X509_REQ_INFO: function (a: PX509_REQ_INFO; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_X509_REQ_INFO; + X509_REQ_new: function : PX509_REQ; cdecl = Load_X509_REQ_new; + X509_REQ_free: procedure (v1: PX509_REQ); cdecl = Load_X509_REQ_free; + d2i_X509_REQ: function (a: PPX509_REQ; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_REQ; cdecl = Load_d2i_X509_REQ; + i2d_X509_REQ: function (a: PX509_REQ; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_X509_REQ; + X509_ATTRIBUTE_new: function : PX509_ATTRIBUTE; cdecl = Load_X509_ATTRIBUTE_new; + X509_ATTRIBUTE_free: procedure (v1: PX509_ATTRIBUTE); cdecl = Load_X509_ATTRIBUTE_free; + d2i_X509_ATTRIBUTE: function (a: PPX509_ATTRIBUTE; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_ATTRIBUTE; cdecl = Load_d2i_X509_ATTRIBUTE; + i2d_X509_ATTRIBUTE: function (a: PX509_ATTRIBUTE; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_X509_ATTRIBUTE; + X509_ATTRIBUTE_create: function (nid: TOpenSSL_C_INT; trtype: TOpenSSL_C_INT; value: Pointer): PX509_ATTRIBUTE; cdecl = Load_X509_ATTRIBUTE_create; + X509_EXTENSION_new: function : PX509_EXTENSION; cdecl = Load_X509_EXTENSION_new; + X509_EXTENSION_free: procedure (v1: PX509_EXTENSION); cdecl = Load_X509_EXTENSION_free; + d2i_X509_EXTENSION: function (a: PPX509_EXTENSION; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_EXTENSION; cdecl = Load_d2i_X509_EXTENSION; + i2d_X509_EXTENSION: function (a: PX509_EXTENSION; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_X509_EXTENSION; + X509_NAME_ENTRY_new: function : PX509_NAME_ENTRY; cdecl = Load_X509_NAME_ENTRY_new; + X509_NAME_ENTRY_free: procedure (v1: PX509_NAME_ENTRY); cdecl = Load_X509_NAME_ENTRY_free; + d2i_X509_NAME_ENTRY: function (a: PPX509_NAME_ENTRY; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_NAME_ENTRY; cdecl = Load_d2i_X509_NAME_ENTRY; + i2d_X509_NAME_ENTRY: function (a: PX509_NAME_ENTRY; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_X509_NAME_ENTRY; + X509_NAME_new: function : PX509_NAME; cdecl = Load_X509_NAME_new; + X509_NAME_free: procedure (v1: PX509_NAME); cdecl = Load_X509_NAME_free; + d2i_X509_NAME: function (a: PPX509_NAME; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_NAME; cdecl = Load_d2i_X509_NAME; + i2d_X509_NAME: function (a: PX509_NAME; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_X509_NAME; + X509_NAME_set: function (xn: PPX509_NAME; name: PX509_NAME): TOpenSSL_C_INT; cdecl = Load_X509_NAME_set; + X509_new: function : PX509; cdecl = Load_X509_new; + X509_free: procedure (v1: PX509); cdecl = Load_X509_free; + d2i_X509: function (a: PPX509; const in_: PPByte; len: TOpenSSL_C_LONG): PX509; cdecl = Load_d2i_X509; + i2d_X509: function (a: PX509; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_X509; + X509_set_ex_data: function (r: PX509; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl = Load_X509_set_ex_data; + X509_get_ex_data: function (r: PX509; idx: TOpenSSL_C_INT): Pointer; cdecl = Load_X509_get_ex_data; + i2d_X509_AUX: function (a: PX509; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_X509_AUX; + d2i_X509_AUX: function (a: PPX509; const pp: PPByte; length: TOpenSSL_C_LONG): PX509; cdecl = Load_d2i_X509_AUX; + i2d_re_X509_tbs: function (x: PX509; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_re_X509_tbs; + X509_SIG_INFO_get: function (const siginf: PX509_SIG_INFO; mdnid: POpenSSL_C_INT; pknid: POpenSSL_C_INT; secbits: POpenSSL_C_INT; flags: POpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl = Load_X509_SIG_INFO_get; + X509_SIG_INFO_set: procedure (siginf: PX509_SIG_INFO; mdnid: TOpenSSL_C_INT; pknid: TOpenSSL_C_INT; secbits: TOpenSSL_C_INT; flags: TOpenSSL_C_UINT32); cdecl = Load_X509_SIG_INFO_set; + X509_get_signature_info: function (x: PX509; mdnid: POpenSSL_C_INT; pknid: POpenSSL_C_INT; secbits: POpenSSL_C_INT; flags: POpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl = Load_X509_get_signature_info; + X509_get0_signature: procedure (var sig: PASN1_BIT_STRING; var alg: PX509_ALGOR; const x: PX509); cdecl = Load_X509_get0_signature; + X509_get_signature_nid: function (const x: PX509): TOpenSSL_C_INT; cdecl = Load_X509_get_signature_nid; + X509_trusted: function (const x: PX509): TOpenSSL_C_INT; cdecl = Load_X509_trusted; + X509_alias_set1: function (x: PX509; const name: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_alias_set1; + X509_keyid_set1: function (x: PX509; const id: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_keyid_set1; + X509_alias_get0: function (x: PX509; len: POpenSSL_C_INT): PByte; cdecl = Load_X509_alias_get0; + X509_keyid_get0: function (x: PX509; len: POpenSSL_C_INT): PByte; cdecl = Load_X509_keyid_get0; + X509_TRUST_set: function (t: POpenSSL_C_INT; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_TRUST_set; + X509_add1_trust_object: function (x: PX509; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl = Load_X509_add1_trust_object; + X509_add1_reject_object: function (x: PX509; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl = Load_X509_add1_reject_object; + X509_trust_clear: procedure (x: PX509); cdecl = Load_X509_trust_clear; + X509_reject_clear: procedure (x: PX509); cdecl = Load_X509_reject_clear; + X509_REVOKED_new: function : PX509_REVOKED; cdecl = Load_X509_REVOKED_new; + X509_REVOKED_free: procedure (v1: PX509_REVOKED); cdecl = Load_X509_REVOKED_free; + d2i_X509_REVOKED: function (a: PPX509_REVOKED; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_REVOKED; cdecl = Load_d2i_X509_REVOKED; + i2d_X509_REVOKED: function (a: PX509_REVOKED; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_X509_REVOKED; + X509_CRL_INFO_new: function : PX509_CRL_INFO; cdecl = Load_X509_CRL_INFO_new; + X509_CRL_INFO_free: procedure (v1: PX509_CRL_INFO); cdecl = Load_X509_CRL_INFO_free; + d2i_X509_CRL_INFO: function (a: PPX509_CRL_INFO; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_CRL_INFO; cdecl = Load_d2i_X509_CRL_INFO; + i2d_X509_CRL_INFO: function (a: PX509_CRL_INFO; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_X509_CRL_INFO; + X509_CRL_new: function : PX509_CRL; cdecl = Load_X509_CRL_new; + X509_CRL_free: procedure (v1: PX509_CRL); cdecl = Load_X509_CRL_free; + d2i_X509_CRL: function (a: PPX509_CRL; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_CRL; cdecl = Load_d2i_X509_CRL; + i2d_X509_CRL: function (a: PX509_CRL; out_: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_X509_CRL; + X509_CRL_add0_revoked: function (crl: PX509_CRL; rev: PX509_REVOKED): TOpenSSL_C_INT; cdecl = Load_X509_CRL_add0_revoked; + X509_CRL_get0_by_serial: function (crl: PX509_CRL; ret: PPX509_REVOKED; serial: PASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_X509_CRL_get0_by_serial; + X509_CRL_get0_by_cert: function (crl: PX509_CRL; ret: PPX509_REVOKED; x: PX509): TOpenSSL_C_INT; cdecl = Load_X509_CRL_get0_by_cert; + X509_PKEY_new: function : PX509_PKEY; cdecl = Load_X509_PKEY_new; + X509_PKEY_free: procedure (a: PX509_PKEY); cdecl = Load_X509_PKEY_free; + X509_INFO_new: function : PX509_INFO; cdecl = Load_X509_INFO_new; + X509_INFO_free: procedure (a: PX509_INFO); cdecl = Load_X509_INFO_free; + X509_NAME_oneline: function (const a: PX509_NAME; buf: PAnsiChar; size: TOpenSSL_C_INT): PAnsiChar; cdecl = Load_X509_NAME_oneline; + ASN1_item_digest: function (const it: PASN1_ITEM; const type_: PEVP_MD; data: Pointer; md: PByte; len: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_ASN1_item_digest; + ASN1_item_verify: function (const it: PASN1_ITEM; algor1: PX509_ALGOR; signature: PASN1_BIT_STRING; data: Pointer; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_ASN1_item_verify; + ASN1_item_sign: function (const it: PASN1_ITEM; algor1: PX509_ALGOR; algor2: PX509_ALGOR; signature: PASN1_BIT_STRING; data: Pointer; pkey: PEVP_PKEY; const type_: PEVP_MD): TOpenSSL_C_INT; cdecl = Load_ASN1_item_sign; + ASN1_item_sign_ctx: function (const it: PASN1_ITEM; algor1: PX509_ALGOR; algor2: PX509_ALGOR; signature: PASN1_BIT_STRING; asn: Pointer; ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl = Load_ASN1_item_sign_ctx; + X509_get_version: function (const x: PX509): TOpenSSL_C_LONG; cdecl = Load_X509_get_version; + X509_set_version: function (x: PX509; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_X509_set_version; + X509_set_serialNumber: function (x: PX509; serial: PASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_X509_set_serialNumber; + X509_get_serialNumber: function (x: PX509): PASN1_INTEGER; cdecl = Load_X509_get_serialNumber; + X509_get0_serialNumber: function (const x: PX509): PASN1_INTEGER; cdecl = Load_X509_get0_serialNumber; + X509_set_issuer_name: function (x: PX509; name: PX509_NAME): TOpenSSL_C_INT; cdecl = Load_X509_set_issuer_name; + X509_get_issuer_name: function (const a: PX509): PX509_NAME; cdecl = Load_X509_get_issuer_name; + X509_set_subject_name: function (x: PX509; name: PX509_NAME): TOpenSSL_C_INT; cdecl = Load_X509_set_subject_name; + X509_get_subject_name: function (const a: PX509): PX509_NAME; cdecl = Load_X509_get_subject_name; + X509_get0_notBefore: function (const x: PX509): PASN1_TIME; cdecl = Load_X509_get0_notBefore; + X509_getm_notBefore: function (const x: PX509): PASN1_TIME; cdecl = Load_X509_getm_notBefore; + X509_set1_notBefore: function (x: PX509; const tm: PASN1_TIME): TOpenSSL_C_INT; cdecl = Load_X509_set1_notBefore; + X509_get0_notAfter: function (const x: PX509): PASN1_TIME; cdecl = Load_X509_get0_notAfter; + X509_getm_notAfter: function (const x: PX509): PASN1_TIME; cdecl = Load_X509_getm_notAfter; + X509_set1_notAfter: function (x: PX509; const tm: PASN1_TIME): TOpenSSL_C_INT; cdecl = Load_X509_set1_notAfter; + X509_set_pubkey: function (x: PX509; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_X509_set_pubkey; + X509_up_ref: function (x: PX509): TOpenSSL_C_INT; cdecl = Load_X509_up_ref; + X509_get_signature_type: function (const x: PX509): TOpenSSL_C_INT; cdecl = Load_X509_get_signature_type; + X509_get_X509_PUBKEY: function (const x: PX509): PX509_PUBKEY; cdecl = Load_X509_get_X509_PUBKEY; + X509_get0_uids: procedure (const x: PX509; const piuid: PPASN1_BIT_STRING; const psuid: PPASN1_BIT_STRING); cdecl = Load_X509_get0_uids; + X509_get0_tbs_sigalg: function (const x: PX509): PX509_ALGOR; cdecl = Load_X509_get0_tbs_sigalg; + X509_get0_pubkey: function (const x: PX509): PEVP_PKEY; cdecl = Load_X509_get0_pubkey; + X509_get_pubkey: function (x: PX509): PEVP_PKEY; cdecl = Load_X509_get_pubkey; + X509_get0_pubkey_bitstr: function (const x: PX509): PASN1_BIT_STRING; cdecl = Load_X509_get0_pubkey_bitstr; + X509_certificate_type: function (const x: PX509; const pubkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_X509_certificate_type; + X509_REQ_get_version: function (const req: PX509_REQ): TOpenSSL_C_LONG; cdecl = Load_X509_REQ_get_version; + X509_REQ_set_version: function (x: PX509_REQ; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_X509_REQ_set_version; + X509_REQ_get_subject_name: function (const req: PX509_REQ): PX509_NAME; cdecl = Load_X509_REQ_get_subject_name; + X509_REQ_set_subject_name: function (req: PX509_REQ; name: PX509_NAME): TOpenSSL_C_INT; cdecl = Load_X509_REQ_set_subject_name; + X509_REQ_get0_signature: procedure (const req: PX509_REQ; const psig: PPASN1_BIT_STRING; const palg: PPX509_ALGOR); cdecl = Load_X509_REQ_get0_signature; + X509_REQ_get_signature_nid: function (const req: PX509_REQ): TOpenSSL_C_INT; cdecl = Load_X509_REQ_get_signature_nid; + i2d_re_X509_REQ_tbs: function (req: PX509_REQ; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_re_X509_REQ_tbs; + X509_REQ_set_pubkey: function (x: PX509_REQ; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_X509_REQ_set_pubkey; + X509_REQ_get_pubkey: function (req: PX509_REQ): PEVP_PKEY; cdecl = Load_X509_REQ_get_pubkey; + X509_REQ_get0_pubkey: function (req: PX509_REQ): PEVP_PKEY; cdecl = Load_X509_REQ_get0_pubkey; + X509_REQ_get_X509_PUBKEY: function (req: PX509_REQ): PX509_PUBKEY; cdecl = Load_X509_REQ_get_X509_PUBKEY; + X509_REQ_extension_nid: function (nid: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_REQ_extension_nid; + X509_REQ_get_extension_nids: function : POpenSSL_C_INT; cdecl = Load_X509_REQ_get_extension_nids; + X509_REQ_set_extension_nids: procedure (nids: POpenSSL_C_INT); cdecl = Load_X509_REQ_set_extension_nids; + X509_REQ_get_attr_count: function (const req: PX509_REQ): TOpenSSL_C_INT; cdecl = Load_X509_REQ_get_attr_count; + X509_REQ_get_attr_by_NID: function (const req: PX509_REQ; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_REQ_get_attr_by_NID; + X509_REQ_get_attr_by_OBJ: function (const req: PX509_REQ; const obj: ASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_REQ_get_attr_by_OBJ; + X509_REQ_get_attr: function (const req: PX509_REQ; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl = Load_X509_REQ_get_attr; + X509_REQ_delete_attr: function (req: PX509_REQ; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl = Load_X509_REQ_delete_attr; + X509_REQ_add1_attr: function (req: PX509_REQ; attr: PX509_ATTRIBUTE): TOpenSSL_C_INT; cdecl = Load_X509_REQ_add1_attr; + X509_REQ_add1_attr_by_OBJ: function (req: PX509_REQ; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_REQ_add1_attr_by_OBJ; + X509_REQ_add1_attr_by_NID: function (req: PX509_REQ; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_REQ_add1_attr_by_NID; + X509_REQ_add1_attr_by_txt: function (req: PX509_REQ; const attrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_REQ_add1_attr_by_txt; + X509_CRL_set_version: function (x: PX509_CRL; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl = Load_X509_CRL_set_version; + X509_CRL_set_issuer_name: function (x: PX509_CRL; name: PX509_NAME): TOpenSSL_C_INT; cdecl = Load_X509_CRL_set_issuer_name; + X509_CRL_set1_lastUpdate: function (x: PX509_CRL; const tm: PASN1_TIME): TOpenSSL_C_INT; cdecl = Load_X509_CRL_set1_lastUpdate; + X509_CRL_set1_nextUpdate: function (x: PX509_CRL; const tm: PASN1_TIME): TOpenSSL_C_INT; cdecl = Load_X509_CRL_set1_nextUpdate; + X509_CRL_sort: function (crl: PX509_CRL): TOpenSSL_C_INT; cdecl = Load_X509_CRL_sort; + X509_CRL_up_ref: function (crl: PX509_CRL): TOpenSSL_C_INT; cdecl = Load_X509_CRL_up_ref; + X509_CRL_get_version: function (const crl: PX509_CRL): TOpenSSL_C_LONG; cdecl = Load_X509_CRL_get_version; + X509_CRL_get0_lastUpdate: function (const crl: PX509_CRL): PASN1_TIME; cdecl = Load_X509_CRL_get0_lastUpdate; + X509_CRL_get0_nextUpdate: function (const crl: PX509_CRL): PASN1_TIME; cdecl = Load_X509_CRL_get0_nextUpdate; + X509_CRL_get_issuer: function (const crl: PX509_CRL): PX509_NAME; cdecl = Load_X509_CRL_get_issuer; + X509_CRL_get0_signature: procedure (const crl: PX509_CRL; const psig: PPASN1_BIT_STRING; const palg: PPX509_ALGOR); cdecl = Load_X509_CRL_get0_signature; + X509_CRL_get_signature_nid: function (const crl: PX509_CRL): TOpenSSL_C_INT; cdecl = Load_X509_CRL_get_signature_nid; + i2d_re_X509_CRL_tbs: function (req: PX509_CRL; pp: PPByte): TOpenSSL_C_INT; cdecl = Load_i2d_re_X509_CRL_tbs; + X509_REVOKED_get0_serialNumber: function (const x: PX509_REVOKED): PASN1_INTEGER; cdecl = Load_X509_REVOKED_get0_serialNumber; + X509_REVOKED_set_serialNumber: function (x: PX509_REVOKED; serial: PASN1_INTEGER): TOpenSSL_C_INT; cdecl = Load_X509_REVOKED_set_serialNumber; + X509_REVOKED_get0_revocationDate: function (const x: PX509_REVOKED): PASN1_TIME; cdecl = Load_X509_REVOKED_get0_revocationDate; + X509_REVOKED_set_revocationDate: function (r: PX509_REVOKED; tm: PASN1_TIME): TOpenSSL_C_INT; cdecl = Load_X509_REVOKED_set_revocationDate; + X509_CRL_diff: function (base: PX509_CRL; newer: PX509_CRL; skey: PEVP_PKEY; const md: PEVP_MD; flags: TOpenSSL_C_UINT): PX509_CRL; cdecl = Load_X509_CRL_diff; + X509_REQ_check_private_key: function (x509: PX509_REQ; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_X509_REQ_check_private_key; + X509_check_private_key: function (const x509: PX509; const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_X509_check_private_key; + X509_CRL_check_suiteb: function (crl: PX509_CRL; pk: PEVP_PKEY; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_X509_CRL_check_suiteb; + X509_issuer_and_serial_cmp: function (const a: PX509; const b: PX509): TOpenSSL_C_INT; cdecl = Load_X509_issuer_and_serial_cmp; + X509_issuer_and_serial_hash: function (a: PX509): TOpenSSL_C_ULONG; cdecl = Load_X509_issuer_and_serial_hash; + X509_issuer_name_cmp: function (const a: PX509; const b: PX509): TOpenSSL_C_INT; cdecl = Load_X509_issuer_name_cmp; + X509_issuer_name_hash: function (a: PX509): TOpenSSL_C_uLONG; cdecl = Load_X509_issuer_name_hash; + X509_subject_name_cmp: function (const a: PX509; const b: PX509): TOpenSSL_C_INT; cdecl = Load_X509_subject_name_cmp; + X509_subject_name_hash: function (x: PX509): TOpenSSL_C_ULONG; cdecl = Load_X509_subject_name_hash; + X509_cmp: function (const a: PX509; const b: PX509): TOpenSSL_C_INT; cdecl = Load_X509_cmp; + X509_NAME_cmp: function (const a: PX509_NAME; const b: PX509_NAME): TOpenSSL_C_INT; cdecl = Load_X509_NAME_cmp; + X509_NAME_hash_old: function (x: PX509_NAME): TOpenSSL_C_ULONG; cdecl = Load_X509_NAME_hash_old; + X509_CRL_cmp: function (const a: PX509_CRL; const b: PX509_CRL): TOpenSSL_C_INT; cdecl = Load_X509_CRL_cmp; + X509_CRL_match: function (const a: PX509_CRL; const b: PX509_CRL): TOpenSSL_C_INT; cdecl = Load_X509_CRL_match; + X509_aux_print: function (out_: PBIO; x: PX509; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_aux_print; + X509_NAME_print: function (bp: PBIO; const name: PX509_NAME; obase: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_NAME_print; + X509_NAME_print_ex: function (out_: PBIO; const nm: PX509_NAME; indent: TOpenSSL_C_INT; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_X509_NAME_print_ex; + X509_print_ex: function (bp: PBIO; x: PX509; nmflag: TOpenSSL_C_ULONG; cflag: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_X509_print_ex; + X509_print: function (bp: PBIO; x: PX509): TOpenSSL_C_INT; cdecl = Load_X509_print; + X509_ocspid_print: function (bp: PBIO; x: PX509): TOpenSSL_C_INT; cdecl = Load_X509_ocspid_print; + X509_CRL_print_ex: function (out_: PBIO; x: PX509_CRL; nmflag: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_X509_CRL_print_ex; + X509_CRL_print: function (bp: PBIO; x: PX509_CRL): TOpenSSL_C_INT; cdecl = Load_X509_CRL_print; + X509_REQ_print_ex: function (bp: PBIO; x: PX509_REQ; nmflag: TOpenSSL_C_ULONG; cflag: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_X509_REQ_print_ex; + X509_REQ_print: function (bp: PBIO; req: PX509_REQ): TOpenSSL_C_INT; cdecl = Load_X509_REQ_print; + X509_NAME_entry_count: function (const name: PX509_NAME): TOpenSSL_C_INT; cdecl = Load_X509_NAME_entry_count; + X509_NAME_get_text_by_NID: function (name: PX509_NAME; nid: TOpenSSL_C_INT; buf: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_NAME_get_text_by_NID; + X509_NAME_get_text_by_OBJ: function (name: PX509_NAME; const obj: PASN1_OBJECT; buf: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_NAME_get_text_by_OBJ; + X509_NAME_get_index_by_NID: function (name: PX509_NAME; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_NAME_get_index_by_NID; + X509_NAME_get_index_by_OBJ: function (name: PX509_NAME; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_NAME_get_index_by_OBJ; + X509_NAME_get_entry: function (const name: PX509_NAME; loc: TOpenSSL_C_INT): PX509_NAME_ENTRY; cdecl = Load_X509_NAME_get_entry; + X509_NAME_delete_entry: function (name: PX509_NAME; loc: TOpenSSL_C_INT): pX509_NAME_ENTRY; cdecl = Load_X509_NAME_delete_entry; + X509_NAME_add_entry: function (name: PX509_NAME; const ne: PX509_NAME_ENTRY; loc: TOpenSSL_C_INT; set_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_NAME_add_entry; + X509_NAME_add_entry_by_OBJ: function (name: PX509_NAME; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT; loc: TOpenSSL_C_INT; set_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_NAME_add_entry_by_OBJ; + X509_NAME_add_entry_by_NID: function (name: PX509_NAME; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT; loc: TOpenSSL_C_INT; set_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_NAME_add_entry_by_NID; + X509_NAME_ENTRY_create_by_txt: function (ne: PPX509_NAME_ENTRY; const field: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): PX509_NAME_ENTRY; cdecl = Load_X509_NAME_ENTRY_create_by_txt; + X509_NAME_ENTRY_create_by_NID: function (ne: PPX509_NAME_ENTRY; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): PX509_NAME_ENTRY; cdecl = Load_X509_NAME_ENTRY_create_by_NID; + X509_NAME_add_entry_by_txt: function (name: PX509_NAME; const field: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT; loc: TOpenSSL_C_INT; set_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_NAME_add_entry_by_txt; + X509_NAME_ENTRY_create_by_OBJ: function (ne: PPX509_NAME_ENTRY; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): PX509_NAME_ENTRY; cdecl = Load_X509_NAME_ENTRY_create_by_OBJ; + X509_NAME_ENTRY_set_object: function (ne: PX509_NAME_ENTRY; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl = Load_X509_NAME_ENTRY_set_object; + X509_NAME_ENTRY_set_data: function (ne: PX509_NAME_ENTRY; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_NAME_ENTRY_set_data; + X509_NAME_ENTRY_get_object: function (const ne: PX509_NAME_ENTRY): PASN1_OBJECT; cdecl = Load_X509_NAME_ENTRY_get_object; + X509_NAME_ENTRY_get_data: function (const ne: PX509_NAME_ENTRY): PASN1_STRING; cdecl = Load_X509_NAME_ENTRY_get_data; + X509_NAME_ENTRY_set: function (const ne: PX509_NAME_ENTRY): TOpenSSL_C_INT; cdecl = Load_X509_NAME_ENTRY_set; + X509_NAME_get0_der: function (nm: PX509_NAME; const pder: PPByte; pderlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_X509_NAME_get0_der; + X509_get_ext_count: function (const x: PX509): TOpenSSL_C_INT; cdecl = Load_X509_get_ext_count; + X509_get_ext_by_NID: function (const x: PX509; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_get_ext_by_NID; + X509_get_ext_by_OBJ: function (const x: PX509; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_get_ext_by_OBJ; + X509_get_ext_by_critical: function (const x: PX509; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_get_ext_by_critical; + X509_get_ext: function (const x: PX509; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl = Load_X509_get_ext; + X509_delete_ext: function (x: PX509; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl = Load_X509_delete_ext; + X509_add_ext: function (x: PX509; ex: PX509_EXTENSION; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_add_ext; + X509_get_ext_d2i: function (const x: PX509; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl = Load_X509_get_ext_d2i; + X509_add1_ext_i2d: function (x: PX509; nid: TOpenSSL_C_INT; value: Pointer; crit: TOpenSSL_C_INT; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_X509_add1_ext_i2d; + X509_CRL_get_ext_count: function (const x: PX509_CRL): TOpenSSL_C_INT; cdecl = Load_X509_CRL_get_ext_count; + X509_CRL_get_ext_by_NID: function (const x: PX509_CRL; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_CRL_get_ext_by_NID; + X509_CRL_get_ext_by_OBJ: function (const x: X509_CRL; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_CRL_get_ext_by_OBJ; + X509_CRL_get_ext_by_critical: function (const x: PX509_CRL; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_CRL_get_ext_by_critical; + X509_CRL_get_ext: function (const x: PX509_CRL; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl = Load_X509_CRL_get_ext; + X509_CRL_delete_ext: function (x: PX509_CRL; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl = Load_X509_CRL_delete_ext; + X509_CRL_add_ext: function (x: PX509_CRL; ex: PX509_EXTENSION; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_CRL_add_ext; + X509_CRL_get_ext_d2i: function (const x: PX509_CRL; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl = Load_X509_CRL_get_ext_d2i; + X509_CRL_add1_ext_i2d: function (x: PX509_CRL; nid: TOpenSSL_C_INT; value: Pointer; crit: TOpenSSL_C_INT; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_X509_CRL_add1_ext_i2d; + X509_REVOKED_get_ext_count: function (const x: PX509_REVOKED): TOpenSSL_C_INT; cdecl = Load_X509_REVOKED_get_ext_count; + X509_REVOKED_get_ext_by_NID: function (const x: PX509_REVOKED; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_REVOKED_get_ext_by_NID; + X509_REVOKED_get_ext_by_OBJ: function (const x: PX509_REVOKED; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_REVOKED_get_ext_by_OBJ; + X509_REVOKED_get_ext_by_critical: function (const x: PX509_REVOKED; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_REVOKED_get_ext_by_critical; + X509_REVOKED_get_ext: function (const x: PX509_REVOKED; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl = Load_X509_REVOKED_get_ext; + X509_REVOKED_delete_ext: function (x: PX509_REVOKED; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl = Load_X509_REVOKED_delete_ext; + X509_REVOKED_add_ext: function (x: PX509_REVOKED; ex: PX509_EXTENSION; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_REVOKED_add_ext; + X509_REVOKED_get_ext_d2i: function (const x: PX509_REVOKED; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl = Load_X509_REVOKED_get_ext_d2i; + X509_REVOKED_add1_ext_i2d: function (x: PX509_REVOKED; nid: TOpenSSL_C_INT; value: Pointer; crit: TOpenSSL_C_INT; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_X509_REVOKED_add1_ext_i2d; + X509_EXTENSION_create_by_NID: function (ex: PPX509_EXTENSION; nid: TOpenSSL_C_INT; crit: TOpenSSL_C_INT; data: PASN1_OCTET_STRING): PX509_EXTENSION; cdecl = Load_X509_EXTENSION_create_by_NID; + X509_EXTENSION_create_by_OBJ: function (ex: PPX509_EXTENSION; const obj: PASN1_OBJECT; crit: TOpenSSL_C_INT; data: PASN1_OCTET_STRING): PX509_EXTENSION; cdecl = Load_X509_EXTENSION_create_by_OBJ; + X509_EXTENSION_set_object: function (ex: PX509_EXTENSION; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl = Load_X509_EXTENSION_set_object; + X509_EXTENSION_set_critical: function (ex: PX509_EXTENSION; crit: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_EXTENSION_set_critical; + X509_EXTENSION_set_data: function (ex: PX509_EXTENSION; data: PASN1_OCTET_STRING): TOpenSSL_C_INT; cdecl = Load_X509_EXTENSION_set_data; + X509_EXTENSION_get_object: function (ex: PX509_EXTENSION): PASN1_OBJECT; cdecl = Load_X509_EXTENSION_get_object; + X509_EXTENSION_get_data: function (ne: PX509_EXTENSION): PASN1_OCTET_STRING; cdecl = Load_X509_EXTENSION_get_data; + X509_EXTENSION_get_critical: function (const ex: PX509_EXTENSION): TOpenSSL_C_INT; cdecl = Load_X509_EXTENSION_get_critical; + X509_ATTRIBUTE_create_by_NID: function (attr: PPX509_ATTRIBUTE; nid: TOpenSSL_C_INT; atrtype: TOpenSSL_C_INT; const data: Pointer; len: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl = Load_X509_ATTRIBUTE_create_by_NID; + X509_ATTRIBUTE_create_by_OBJ: function (attr: PPX509_ATTRIBUTE; const obj: PASN1_OBJECT; atrtype: TOpenSSL_C_INT; const data: Pointer; len: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl = Load_X509_ATTRIBUTE_create_by_OBJ; + X509_ATTRIBUTE_create_by_txt: function (attr: PPX509_ATTRIBUTE; const atrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl = Load_X509_ATTRIBUTE_create_by_txt; + X509_ATTRIBUTE_set1_object: function (attr: PX509_ATTRIBUTE; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl = Load_X509_ATTRIBUTE_set1_object; + X509_ATTRIBUTE_set1_data: function (attr: PX509_ATTRIBUTE; attrtype: TOpenSSL_C_INT; const data: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_ATTRIBUTE_set1_data; + X509_ATTRIBUTE_get0_data: function (attr: PX509_ATTRIBUTE; idx: TOpenSSL_C_INT; atrtype: TOpenSSL_C_INT; data: Pointer): Pointer; cdecl = Load_X509_ATTRIBUTE_get0_data; + X509_ATTRIBUTE_count: function (const attr: PX509_ATTRIBUTE): TOpenSSL_C_INT; cdecl = Load_X509_ATTRIBUTE_count; + X509_ATTRIBUTE_get0_object: function (attr: PX509_ATTRIBUTE): PASN1_OBJECT; cdecl = Load_X509_ATTRIBUTE_get0_object; + X509_ATTRIBUTE_get0_type: function (attr: PX509_ATTRIBUTE; idx: TOpenSSL_C_INT): PASN1_TYPE; cdecl = Load_X509_ATTRIBUTE_get0_type; + EVP_PKEY_get_attr_count: function (const key: PEVP_PKEY): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_get_attr_count; + EVP_PKEY_get_attr_by_NID: function (const key: PEVP_PKEY; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_get_attr_by_NID; + EVP_PKEY_get_attr_by_OBJ: function (const key: PEVP_PKEY; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_get_attr_by_OBJ; + EVP_PKEY_get_attr: function (const key: PEVP_PKEY; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl = Load_EVP_PKEY_get_attr; + EVP_PKEY_delete_attr: function (key: PEVP_PKEY; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl = Load_EVP_PKEY_delete_attr; + EVP_PKEY_add1_attr: function (key: PEVP_PKEY; attr: PX509_ATTRIBUTE): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_add1_attr; + EVP_PKEY_add1_attr_by_OBJ: function (key: PEVP_PKEY; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_add1_attr_by_OBJ; + EVP_PKEY_add1_attr_by_NID: function (key: PEVP_PKEY; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_add1_attr_by_NID; + EVP_PKEY_add1_attr_by_txt: function (key: PEVP_PKEY; const attrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_EVP_PKEY_add1_attr_by_txt; + X509_verify_cert: function (ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl = Load_X509_verify_cert; + PKCS5_pbe_set0_algor: function (algor: PX509_ALGOR; alg: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; const salt: PByte; saltlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS5_pbe_set0_algor; + PKCS5_pbe_set: function (alg: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; const salt: PByte; saltlen: TOpenSSL_C_INT): PX509_ALGOR; cdecl = Load_PKCS5_pbe_set; + PKCS5_pbe2_set: function (const cipher: PEVP_CIPHER; iter: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT): PX509_ALGOR; cdecl = Load_PKCS5_pbe2_set; + PKCS5_pbe2_set_iv: function (const cipher: PEVP_CIPHER; iter: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; aiv: PByte; prf_nid: TOpenSSL_C_INT): PX509_ALGOR; cdecl = Load_PKCS5_pbe2_set_iv; + PKCS5_pbe2_set_scrypt: function (const cipher: PEVP_CIPHER; const salt: PByte; saltlen: TOpenSSL_C_INT; aiv: PByte; N: TOpenSSL_C_UINT64; r: TOpenSSL_C_UINT64; p: TOpenSSL_C_UINT64): PX509_ALGOR; cdecl = Load_PKCS5_pbe2_set_scrypt; + PKCS5_pbkdf2_set: function (iter: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; prf_nid: TOpenSSL_C_INT; keylen: TOpenSSL_C_INT): PX509_ALGOR; cdecl = Load_PKCS5_pbkdf2_set; + EVP_PKCS82PKEY: function (const p8: PPKCS8_PRIV_KEY_INFO): PEVP_PKEY; cdecl = Load_EVP_PKCS82PKEY; + EVP_PKEY2PKCS8: function (pkey: PEVP_PKEY): PKCS8_PRIV_KEY_INFO; cdecl = Load_EVP_PKEY2PKCS8; + PKCS8_pkey_set0: function (priv: PPKCS8_PRIV_KEY_INFO; aobj: PASN1_OBJECT; version: TOpenSSL_C_INT; ptype: TOpenSSL_C_INT; pval: Pointer; penc: PByte; penclen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS8_pkey_set0; + PKCS8_pkey_get0: function (const ppkalg: PPASN1_OBJECT; const pk: PPByte; ppklen: POpenSSL_C_INT; const pa: PPX509_ALGOR; const p8: PPKCS8_PRIV_KEY_INFO): TOpenSSL_C_INT; cdecl = Load_PKCS8_pkey_get0; + PKCS8_pkey_add1_attr_by_NID: function (p8: PPKCS8_PRIV_KEY_INFO; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_PKCS8_pkey_add1_attr_by_NID; + X509_PUBKEY_set0_param: function (pub: PX509_PUBKEY; aobj: PASN1_OBJECT; ptype: TOpenSSL_C_INT; pval: Pointer; penc: PByte; penclen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_PUBKEY_set0_param; + X509_PUBKEY_get0_param: function (ppkalg: PPASN1_OBJECT; const pk: PPByte; ppklen: POpenSSL_C_INT; pa: PPX509_ALGOR; pub: PX509_PUBKEY): TOpenSSL_C_INT; cdecl = Load_X509_PUBKEY_get0_param; + X509_check_trust: function (x: PX509; id: TOpenSSL_C_INT; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_check_trust; + X509_TRUST_get_count: function : TOpenSSL_C_INT; cdecl = Load_X509_TRUST_get_count; + X509_TRUST_get0: function (idx: TOpenSSL_C_INT): PX509_TRUST; cdecl = Load_X509_TRUST_get0; + X509_TRUST_get_by_id: function (id: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_TRUST_get_by_id; + X509_TRUST_cleanup: procedure ; cdecl = Load_X509_TRUST_cleanup; + X509_TRUST_get_flags: function (const xp: PX509_TRUST): TOpenSSL_C_INT; cdecl = Load_X509_TRUST_get_flags; + X509_TRUST_get0_name: function (const xp: PX509_TRUST): PAnsiChar; cdecl = Load_X509_TRUST_get0_name; + X509_TRUST_get_trust: function (const xp: PX509_TRUST): TOpenSSL_C_INT; cdecl = Load_X509_TRUST_get_trust; + X509_NAME_hash_ex: function (const x: PX509_NAME; libctx: POSSL_LIB_CTX; const propq: PAnsiChar; ok: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl = Load_X509_NAME_hash_ex; + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +var + X509_NAME_hash: function (x: PX509_NAME): TOpenSSL_C_ULONG; cdecl = Load_X509_NAME_hash; {removed 3.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +const + X509_http_nbio_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + X509_CRL_http_nbio_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + X509_PUBKEY_get0_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_get_pathlen_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_SIG_get0_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_SIG_getm_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_SIG_INFO_get_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_SIG_INFO_set_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_get_signature_info_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_get0_signature_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_trusted_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_get_version_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_get0_serialNumber_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_get0_notBefore_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_getm_notBefore_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_set1_notBefore_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_get0_notAfter_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_getm_notAfter_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_set1_notAfter_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_up_ref_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_get_signature_type_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_get_X509_PUBKEY_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_get0_uids_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_get0_tbs_sigalg_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_get0_pubkey_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_REQ_get_version_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_REQ_get_subject_name_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_REQ_get0_signature_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_REQ_get_signature_nid_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + i2d_re_X509_REQ_tbs_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_REQ_get0_pubkey_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_REQ_get_X509_PUBKEY_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_CRL_set1_lastUpdate_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_CRL_set1_nextUpdate_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_CRL_up_ref_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_CRL_get_version_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_CRL_get0_lastUpdate_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_CRL_get0_nextUpdate_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_CRL_get_issuer_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_CRL_get0_signature_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_CRL_get_signature_nid_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + i2d_re_X509_CRL_tbs_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_REVOKED_get0_serialNumber_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_REVOKED_get0_revocationDate_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_NAME_hash_removed = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 3.0.0} + X509_aux_print_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_CRL_print_ex_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_NAME_ENTRY_set_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_NAME_get0_der_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS5_pbe2_set_scrypt_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + PKCS8_pkey_add1_attr_by_NID_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_NAME_hash_ex_introduced = ((((((byte(3) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 3.0.0} + + +implementation + + +//# define X509_NAME_hash(x) X509_NAME_hash_ex(x, NULL, NULL, NULL) + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +var + X509_http_nbio: function (rctx: POCSP_REQ_CTX; pcert: PPX509): TOpenSSL_C_INT; cdecl = Load_X509_http_nbio; {removed 3.0.0} + X509_CRL_http_nbio: function (rctx: POCSP_REQ_CTX; pcrl: PPX509_CRL): TOpenSSL_C_INT; cdecl = Load_X509_CRL_http_nbio; {removed 3.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +const + ASIdentifierChoice_inherit = 0; + ASIdentifierChoice_asIdsOrRanges = 1; + SHA_DIGEST_LENGTH = 20; + +type + PSTACK= type pointer; + PSTACK_OF_X509_EXTENSION = PSTACK; + PX509_CINF = ^_X509_CINF; + _X509_CINF = record + version: PASN1_INTEGER; + serialNumber: PASN1_INTEGER; + signature: PX509_ALGOR; + issuer: PX509_NAME; + validity: PX509_VAL; + subject: PX509_NAME; + key: PX509_PUBKEY; + issuerUID: PASN1_BIT_STRING; // [ 1 ] optional in v2 + subjectUID: PASN1_BIT_STRING; // [ 2 ] optional in v2 + extensions: PSTACK_OF_X509_EXTENSION; + enc : ASN1_ENCODING; + end; + + PSTACK_OF_ASIdOrRange = PSTACK; + + PSTACK_OF_DIST_POINT = PSTACK; + PSTACK_OF_GENERAL_NAME = PSTACK; + PSTACK_OF_IPAddressFamily = PSTACK; + PASIdOrRanges = PSTACK_OF_ASIdOrRange; + + ASIdentifierChoice_union = record + case byte of + ASIdentifierChoice_inherit : (inherit : PASN1_NULL); + ASIdentifierChoice_asIdsOrRanges : (asIdsOrRanges : PASIdOrRanges); + end; + + PASIdentifierChoice = ^ASIdentifierChoice; + ASIdentifierChoice = record + _type : TOpenSSL_C_INT; + u : ASIdentifierChoice_union; + end; + + PASIdentifiers = ^ASIdentifiers; + ASIdentifiers = record + asnum : PASIdentifierChoice; + rdi : PASIdentifierChoice; + end; + + PX509_CERT_AUX = pointer; + + _PX509 = ^X509; + +X509 = record + cert_info: PX509_CINF; + sig_alg : PX509_ALGOR; + signature : PASN1_BIT_STRING; + valid : TOpenSSL_C_INT; + references : TOpenSSL_C_INT; + name : PAnsiChar; + ex_data : CRYPTO_EX_DATA; + // These contain copies of various extension values + ex_pathlen : TOpenSSL_C_LONG; + ex_pcpathlen : TOpenSSL_C_LONG; + ex_flags : TOpenSSL_C_ULONG; + ex_kusage : TOpenSSL_C_ULONG; + ex_xkusage : TOpenSSL_C_ULONG; + ex_nscert : TOpenSSL_C_ULONG; + skid : PASN1_OCTET_STRING; + akid : PAUTHORITY_KEYID; + policy_cache : PX509_POLICY_CACHE; + crldp : PSTACK_OF_DIST_POINT; + altname : PSTACK_OF_GENERAL_NAME; + nc : PNAME_CONSTRAINTS; + {$IFNDEF OPENSSL_NO_RFC3779} + rfc3779_addr : PSTACK_OF_IPAddressFamily; + rfc3779_asid : PASIdentifiers; + {$ENDIF} + {$IFNDEF OPENSSL_NO_SHA} + sha1_hash : array [0..SHA_DIGEST_LENGTH-1] of AnsiChar; + {$ENDIF} + aux : PX509_CERT_AUX; + end; + + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} + +{Legacy Support Functions} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function X509_NAME_hash(x: PX509_NAME): TOpenSSL_C_ULONG; + +begin + Result := X509_NAME_hash_ex(x,nil,nil,nil); +end; + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function COMPAT_X509_NAME_hash(x: PX509_NAME): TOpenSSL_C_ULONG; cdecl; + +begin + Result := X509_NAME_hash_ex(x,nil,nil,nil); +end; + + +procedure COMPAT_X509_get0_signature(var sig: PASN1_BIT_STRING; var alg: PX509_ALGOR; const x: PX509); cdecl; + +begin + sig := _PX509(x)^.signature; + alg := _PX509(x)^.sig_alg; +end; + + + +function COMPAT_X509_get0_notBefore(const x: PX509): PASN1_TIME; cdecl; + +begin + Result := _PX509(x)^.cert_info.validity.notBefore; +end; + + + +function COMPAT_X509_get0_notAfter(const x: PX509): PASN1_TIME; cdecl; + +begin + Result := _PX509(x)^.cert_info.validity.notAfter; +end; + + + +function COMPAT_X509_get_signature_type(const x: PX509): TOpenSSL_C_INT; cdecl; + +begin + Result := EVP_PKEY_type(OBJ_obj2nid(_PX509(x)^.sig_alg^.algorithm)); +end; + + + + + + + + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_X509_CRL_set_default_method(const meth: PX509_CRL_METHOD); cdecl; +begin + X509_CRL_set_default_method := LoadLibCryptoFunction('X509_CRL_set_default_method'); + if not assigned(X509_CRL_set_default_method) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_set_default_method'); + X509_CRL_set_default_method(meth); +end; + +procedure Load_X509_CRL_METHOD_free(m: PX509_CRL_METHOD); cdecl; +begin + X509_CRL_METHOD_free := LoadLibCryptoFunction('X509_CRL_METHOD_free'); + if not assigned(X509_CRL_METHOD_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_METHOD_free'); + X509_CRL_METHOD_free(m); +end; + +procedure Load_X509_CRL_set_meth_data(crl: PX509_CRL; dat: Pointer); cdecl; +begin + X509_CRL_set_meth_data := LoadLibCryptoFunction('X509_CRL_set_meth_data'); + if not assigned(X509_CRL_set_meth_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_set_meth_data'); + X509_CRL_set_meth_data(crl,dat); +end; + +function Load_X509_CRL_get_meth_data(crl: PX509_CRL): Pointer; cdecl; +begin + X509_CRL_get_meth_data := LoadLibCryptoFunction('X509_CRL_get_meth_data'); + if not assigned(X509_CRL_get_meth_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_get_meth_data'); + Result := X509_CRL_get_meth_data(crl); +end; + +function Load_X509_verify_cert_error_string(n: TOpenSSL_C_LONG): PAnsiChar; cdecl; +begin + X509_verify_cert_error_string := LoadLibCryptoFunction('X509_verify_cert_error_string'); + if not assigned(X509_verify_cert_error_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_verify_cert_error_string'); + Result := X509_verify_cert_error_string(n); +end; + +function Load_X509_verify(a: PX509; r: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + X509_verify := LoadLibCryptoFunction('X509_verify'); + if not assigned(X509_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_verify'); + Result := X509_verify(a,r); +end; + +function Load_X509_REQ_verify(a: PX509_REQ; r: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_verify := LoadLibCryptoFunction('X509_REQ_verify'); + if not assigned(X509_REQ_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_verify'); + Result := X509_REQ_verify(a,r); +end; + +function Load_X509_CRL_verify(a: PX509_CRL; r: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_verify := LoadLibCryptoFunction('X509_CRL_verify'); + if not assigned(X509_CRL_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_verify'); + Result := X509_CRL_verify(a,r); +end; + +function Load_NETSCAPE_SPKI_verify(a: PNETSCAPE_SPKI; r: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + NETSCAPE_SPKI_verify := LoadLibCryptoFunction('NETSCAPE_SPKI_verify'); + if not assigned(NETSCAPE_SPKI_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NETSCAPE_SPKI_verify'); + Result := NETSCAPE_SPKI_verify(a,r); +end; + +function Load_NETSCAPE_SPKI_b64_decode(const str: PAnsiChar; len: TOpenSSL_C_INT): PNETSCAPE_SPKI; cdecl; +begin + NETSCAPE_SPKI_b64_decode := LoadLibCryptoFunction('NETSCAPE_SPKI_b64_decode'); + if not assigned(NETSCAPE_SPKI_b64_decode) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NETSCAPE_SPKI_b64_decode'); + Result := NETSCAPE_SPKI_b64_decode(str,len); +end; + +function Load_NETSCAPE_SPKI_b64_encode(x: PNETSCAPE_SPKI): PAnsiChar; cdecl; +begin + NETSCAPE_SPKI_b64_encode := LoadLibCryptoFunction('NETSCAPE_SPKI_b64_encode'); + if not assigned(NETSCAPE_SPKI_b64_encode) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NETSCAPE_SPKI_b64_encode'); + Result := NETSCAPE_SPKI_b64_encode(x); +end; + +function Load_NETSCAPE_SPKI_get_pubkey(x: PNETSCAPE_SPKI): PEVP_PKEY; cdecl; +begin + NETSCAPE_SPKI_get_pubkey := LoadLibCryptoFunction('NETSCAPE_SPKI_get_pubkey'); + if not assigned(NETSCAPE_SPKI_get_pubkey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NETSCAPE_SPKI_get_pubkey'); + Result := NETSCAPE_SPKI_get_pubkey(x); +end; + +function Load_NETSCAPE_SPKI_set_pubkey(x: PNETSCAPE_SPKI; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + NETSCAPE_SPKI_set_pubkey := LoadLibCryptoFunction('NETSCAPE_SPKI_set_pubkey'); + if not assigned(NETSCAPE_SPKI_set_pubkey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NETSCAPE_SPKI_set_pubkey'); + Result := NETSCAPE_SPKI_set_pubkey(x,pkey); +end; + +function Load_NETSCAPE_SPKI_print(out_: PBIO; spki: PNETSCAPE_SPKI): TOpenSSL_C_INT; cdecl; +begin + NETSCAPE_SPKI_print := LoadLibCryptoFunction('NETSCAPE_SPKI_print'); + if not assigned(NETSCAPE_SPKI_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NETSCAPE_SPKI_print'); + Result := NETSCAPE_SPKI_print(out_,spki); +end; + +function Load_X509_signature_dump(bp: PBIO; const sig: PASN1_STRING; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_signature_dump := LoadLibCryptoFunction('X509_signature_dump'); + if not assigned(X509_signature_dump) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_signature_dump'); + Result := X509_signature_dump(bp,sig,indent); +end; + +function Load_X509_signature_print(bp: PBIO; const alg: PX509_ALGOR; const sig: PASN1_STRING): TOpenSSL_C_INT; cdecl; +begin + X509_signature_print := LoadLibCryptoFunction('X509_signature_print'); + if not assigned(X509_signature_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_signature_print'); + Result := X509_signature_print(bp,alg,sig); +end; + +function Load_X509_sign(x: PX509; pkey: PEVP_PKEY; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + X509_sign := LoadLibCryptoFunction('X509_sign'); + if not assigned(X509_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_sign'); + Result := X509_sign(x,pkey,md); +end; + +function Load_X509_sign_ctx(x: PX509; ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +begin + X509_sign_ctx := LoadLibCryptoFunction('X509_sign_ctx'); + if not assigned(X509_sign_ctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_sign_ctx'); + Result := X509_sign_ctx(x,ctx); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_X509_http_nbio(rctx: POCSP_REQ_CTX; pcert: PPX509): TOpenSSL_C_INT; cdecl; +begin + X509_http_nbio := LoadLibCryptoFunction('X509_http_nbio'); + if not assigned(X509_http_nbio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_http_nbio'); + Result := X509_http_nbio(rctx,pcert); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_X509_REQ_sign(x: PX509_REQ; pkey: PEVP_PKEY; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_sign := LoadLibCryptoFunction('X509_REQ_sign'); + if not assigned(X509_REQ_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_sign'); + Result := X509_REQ_sign(x,pkey,md); +end; + +function Load_X509_REQ_sign_ctx(x: PX509_REQ; ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_sign_ctx := LoadLibCryptoFunction('X509_REQ_sign_ctx'); + if not assigned(X509_REQ_sign_ctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_sign_ctx'); + Result := X509_REQ_sign_ctx(x,ctx); +end; + +function Load_X509_CRL_sign(x: PX509_CRL; pkey: PEVP_PKEY; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_sign := LoadLibCryptoFunction('X509_CRL_sign'); + if not assigned(X509_CRL_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_sign'); + Result := X509_CRL_sign(x,pkey,md); +end; + +function Load_X509_CRL_sign_ctx(x: PX509_CRL; ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_sign_ctx := LoadLibCryptoFunction('X509_CRL_sign_ctx'); + if not assigned(X509_CRL_sign_ctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_sign_ctx'); + Result := X509_CRL_sign_ctx(x,ctx); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_X509_CRL_http_nbio(rctx: POCSP_REQ_CTX; pcrl: PPX509_CRL): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_http_nbio := LoadLibCryptoFunction('X509_CRL_http_nbio'); + if not assigned(X509_CRL_http_nbio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_http_nbio'); + Result := X509_CRL_http_nbio(rctx,pcrl); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_NETSCAPE_SPKI_sign(x: PNETSCAPE_SPKI; pkey: PEVP_PKEY; const md: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + NETSCAPE_SPKI_sign := LoadLibCryptoFunction('NETSCAPE_SPKI_sign'); + if not assigned(NETSCAPE_SPKI_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NETSCAPE_SPKI_sign'); + Result := NETSCAPE_SPKI_sign(x,pkey,md); +end; + +function Load_X509_pubkey_digest(const data: PX509; const type_: PEVP_MD; md: PByte; len: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + X509_pubkey_digest := LoadLibCryptoFunction('X509_pubkey_digest'); + if not assigned(X509_pubkey_digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_pubkey_digest'); + Result := X509_pubkey_digest(data,type_,md,len); +end; + +function Load_X509_digest(const data: PX509; const type_: PEVP_MD; md: PByte; var len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + X509_digest := LoadLibCryptoFunction('X509_digest'); + if not assigned(X509_digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_digest'); + Result := X509_digest(data,type_,md,len); +end; + +function Load_X509_CRL_digest(const data: PX509_CRL; const type_: PEVP_MD; md: PByte; var len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_digest := LoadLibCryptoFunction('X509_CRL_digest'); + if not assigned(X509_CRL_digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_digest'); + Result := X509_CRL_digest(data,type_,md,len); +end; + +function Load_X509_REQ_digest(const data: PX509_REQ; const type_: PEVP_MD; md: PByte; var len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_digest := LoadLibCryptoFunction('X509_REQ_digest'); + if not assigned(X509_REQ_digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_digest'); + Result := X509_REQ_digest(data,type_,md,len); +end; + +function Load_X509_NAME_digest(const data: PX509_NAME; const type_: PEVP_MD; md: PByte; var len: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_digest := LoadLibCryptoFunction('X509_NAME_digest'); + if not assigned(X509_NAME_digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_digest'); + Result := X509_NAME_digest(data,type_,md,len); +end; + +function Load_d2i_X509_bio(bp: PBIO; x509: PPX509): PX509; cdecl; +begin + d2i_X509_bio := LoadLibCryptoFunction('d2i_X509_bio'); + if not assigned(d2i_X509_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_bio'); + Result := d2i_X509_bio(bp,x509); +end; + +function Load_i2d_X509_bio(bp: PBIO; x509: PX509): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_bio := LoadLibCryptoFunction('i2d_X509_bio'); + if not assigned(i2d_X509_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_bio'); + Result := i2d_X509_bio(bp,x509); +end; + +function Load_d2i_X509_CRL_bio(bp: PBIO; crl: PPX509_CRL): PX509_CRL; cdecl; +begin + d2i_X509_CRL_bio := LoadLibCryptoFunction('d2i_X509_CRL_bio'); + if not assigned(d2i_X509_CRL_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_CRL_bio'); + Result := d2i_X509_CRL_bio(bp,crl); +end; + +function Load_i2d_X509_CRL_bio(bp: PBIO; crl: PX509_CRL): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_CRL_bio := LoadLibCryptoFunction('i2d_X509_CRL_bio'); + if not assigned(i2d_X509_CRL_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_CRL_bio'); + Result := i2d_X509_CRL_bio(bp,crl); +end; + +function Load_d2i_X509_REQ_bio(bp: PBIO; req: PPX509_REQ): PX509_REQ; cdecl; +begin + d2i_X509_REQ_bio := LoadLibCryptoFunction('d2i_X509_REQ_bio'); + if not assigned(d2i_X509_REQ_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_REQ_bio'); + Result := d2i_X509_REQ_bio(bp,req); +end; + +function Load_i2d_X509_REQ_bio(bp: PBIO; req: PX509_REQ): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_REQ_bio := LoadLibCryptoFunction('i2d_X509_REQ_bio'); + if not assigned(i2d_X509_REQ_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_REQ_bio'); + Result := i2d_X509_REQ_bio(bp,req); +end; + +function Load_d2i_RSAPrivateKey_bio(bp: PBIO; rsa: PPRSA): PRSA; cdecl; +begin + d2i_RSAPrivateKey_bio := LoadLibCryptoFunction('d2i_RSAPrivateKey_bio'); + if not assigned(d2i_RSAPrivateKey_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_RSAPrivateKey_bio'); + Result := d2i_RSAPrivateKey_bio(bp,rsa); +end; + +function Load_i2d_RSAPrivateKey_bio(bp: PBIO; rsa: PRSA): TOpenSSL_C_INT; cdecl; +begin + i2d_RSAPrivateKey_bio := LoadLibCryptoFunction('i2d_RSAPrivateKey_bio'); + if not assigned(i2d_RSAPrivateKey_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_RSAPrivateKey_bio'); + Result := i2d_RSAPrivateKey_bio(bp,rsa); +end; + +function Load_d2i_RSAPublicKey_bio(bp: PBIO; rsa: PPRSA): PRSA; cdecl; +begin + d2i_RSAPublicKey_bio := LoadLibCryptoFunction('d2i_RSAPublicKey_bio'); + if not assigned(d2i_RSAPublicKey_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_RSAPublicKey_bio'); + Result := d2i_RSAPublicKey_bio(bp,rsa); +end; + +function Load_i2d_RSAPublicKey_bio(bp: PBIO; rsa: PRSA): TOpenSSL_C_INT; cdecl; +begin + i2d_RSAPublicKey_bio := LoadLibCryptoFunction('i2d_RSAPublicKey_bio'); + if not assigned(i2d_RSAPublicKey_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_RSAPublicKey_bio'); + Result := i2d_RSAPublicKey_bio(bp,rsa); +end; + +function Load_d2i_RSA_PUBKEY_bio(bp: PBIO; rsa: PPRSA): PRSA; cdecl; +begin + d2i_RSA_PUBKEY_bio := LoadLibCryptoFunction('d2i_RSA_PUBKEY_bio'); + if not assigned(d2i_RSA_PUBKEY_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_RSA_PUBKEY_bio'); + Result := d2i_RSA_PUBKEY_bio(bp,rsa); +end; + +function Load_i2d_RSA_PUBKEY_bio(bp: PBIO; rsa: PRSA): TOpenSSL_C_INT; cdecl; +begin + i2d_RSA_PUBKEY_bio := LoadLibCryptoFunction('i2d_RSA_PUBKEY_bio'); + if not assigned(i2d_RSA_PUBKEY_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_RSA_PUBKEY_bio'); + Result := i2d_RSA_PUBKEY_bio(bp,rsa); +end; + +function Load_d2i_DSA_PUBKEY_bio(bp: PBIO; dsa: PPDSA): DSA; cdecl; +begin + d2i_DSA_PUBKEY_bio := LoadLibCryptoFunction('d2i_DSA_PUBKEY_bio'); + if not assigned(d2i_DSA_PUBKEY_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_DSA_PUBKEY_bio'); + Result := d2i_DSA_PUBKEY_bio(bp,dsa); +end; + +function Load_i2d_DSA_PUBKEY_bio(bp: PBIO; dsa: PDSA): TOpenSSL_C_INT; cdecl; +begin + i2d_DSA_PUBKEY_bio := LoadLibCryptoFunction('i2d_DSA_PUBKEY_bio'); + if not assigned(i2d_DSA_PUBKEY_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_DSA_PUBKEY_bio'); + Result := i2d_DSA_PUBKEY_bio(bp,dsa); +end; + +function Load_d2i_DSAPrivateKey_bio(bp: PBIO; dsa: PPDSA): PDSA; cdecl; +begin + d2i_DSAPrivateKey_bio := LoadLibCryptoFunction('d2i_DSAPrivateKey_bio'); + if not assigned(d2i_DSAPrivateKey_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_DSAPrivateKey_bio'); + Result := d2i_DSAPrivateKey_bio(bp,dsa); +end; + +function Load_i2d_DSAPrivateKey_bio(bp: PBIO; dsa: PDSA): TOpenSSL_C_INT; cdecl; +begin + i2d_DSAPrivateKey_bio := LoadLibCryptoFunction('i2d_DSAPrivateKey_bio'); + if not assigned(i2d_DSAPrivateKey_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_DSAPrivateKey_bio'); + Result := i2d_DSAPrivateKey_bio(bp,dsa); +end; + +function Load_d2i_EC_PUBKEY_bio(bp: PBIO; eckey: PPEC_KEY): PEC_KEY; cdecl; +begin + d2i_EC_PUBKEY_bio := LoadLibCryptoFunction('d2i_EC_PUBKEY_bio'); + if not assigned(d2i_EC_PUBKEY_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_EC_PUBKEY_bio'); + Result := d2i_EC_PUBKEY_bio(bp,eckey); +end; + +function Load_i2d_EC_PUBKEY_bio(bp: PBIO; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; +begin + i2d_EC_PUBKEY_bio := LoadLibCryptoFunction('i2d_EC_PUBKEY_bio'); + if not assigned(i2d_EC_PUBKEY_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_EC_PUBKEY_bio'); + Result := i2d_EC_PUBKEY_bio(bp,eckey); +end; + +function Load_d2i_ECPrivateKey_bio(bp: PBIO; eckey: PPEC_KEY): EC_KEY; cdecl; +begin + d2i_ECPrivateKey_bio := LoadLibCryptoFunction('d2i_ECPrivateKey_bio'); + if not assigned(d2i_ECPrivateKey_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_ECPrivateKey_bio'); + Result := d2i_ECPrivateKey_bio(bp,eckey); +end; + +function Load_i2d_ECPrivateKey_bio(bp: PBIO; eckey: PEC_KEY): TOpenSSL_C_INT; cdecl; +begin + i2d_ECPrivateKey_bio := LoadLibCryptoFunction('i2d_ECPrivateKey_bio'); + if not assigned(i2d_ECPrivateKey_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_ECPrivateKey_bio'); + Result := i2d_ECPrivateKey_bio(bp,eckey); +end; + +function Load_d2i_PKCS8_bio(bp: PBIO; p8: PPX509_SIG): PX509_SIG; cdecl; +begin + d2i_PKCS8_bio := LoadLibCryptoFunction('d2i_PKCS8_bio'); + if not assigned(d2i_PKCS8_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_PKCS8_bio'); + Result := d2i_PKCS8_bio(bp,p8); +end; + +function Load_i2d_PKCS8_bio(bp: PBIO; p8: PX509_SIG): TOpenSSL_C_INT; cdecl; +begin + i2d_PKCS8_bio := LoadLibCryptoFunction('i2d_PKCS8_bio'); + if not assigned(i2d_PKCS8_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PKCS8_bio'); + Result := i2d_PKCS8_bio(bp,p8); +end; + +function Load_d2i_PKCS8_PRIV_KEY_INFO_bio(bp: PBIO; p8inf: PPPKCS8_PRIV_KEY_INFO): PPKCS8_PRIV_KEY_INFO; cdecl; +begin + d2i_PKCS8_PRIV_KEY_INFO_bio := LoadLibCryptoFunction('d2i_PKCS8_PRIV_KEY_INFO_bio'); + if not assigned(d2i_PKCS8_PRIV_KEY_INFO_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_PKCS8_PRIV_KEY_INFO_bio'); + Result := d2i_PKCS8_PRIV_KEY_INFO_bio(bp,p8inf); +end; + +function Load_i2d_PKCS8_PRIV_KEY_INFO_bio(bp: PBIO; p8inf: PPKCS8_PRIV_KEY_INFO): TOpenSSL_C_INT; cdecl; +begin + i2d_PKCS8_PRIV_KEY_INFO_bio := LoadLibCryptoFunction('i2d_PKCS8_PRIV_KEY_INFO_bio'); + if not assigned(i2d_PKCS8_PRIV_KEY_INFO_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PKCS8_PRIV_KEY_INFO_bio'); + Result := i2d_PKCS8_PRIV_KEY_INFO_bio(bp,p8inf); +end; + +function Load_i2d_PKCS8PrivateKeyInfo_bio(bp: PBIO; key: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + i2d_PKCS8PrivateKeyInfo_bio := LoadLibCryptoFunction('i2d_PKCS8PrivateKeyInfo_bio'); + if not assigned(i2d_PKCS8PrivateKeyInfo_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PKCS8PrivateKeyInfo_bio'); + Result := i2d_PKCS8PrivateKeyInfo_bio(bp,key); +end; + +function Load_i2d_PrivateKey_bio(bp: PBIO; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + i2d_PrivateKey_bio := LoadLibCryptoFunction('i2d_PrivateKey_bio'); + if not assigned(i2d_PrivateKey_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PrivateKey_bio'); + Result := i2d_PrivateKey_bio(bp,pkey); +end; + +function Load_d2i_PrivateKey_bio(bp: PBIO; a: PPEVP_PKEY): PEVP_PKEY; cdecl; +begin + d2i_PrivateKey_bio := LoadLibCryptoFunction('d2i_PrivateKey_bio'); + if not assigned(d2i_PrivateKey_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_PrivateKey_bio'); + Result := d2i_PrivateKey_bio(bp,a); +end; + +function Load_i2d_PUBKEY_bio(bp: PBIO; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + i2d_PUBKEY_bio := LoadLibCryptoFunction('i2d_PUBKEY_bio'); + if not assigned(i2d_PUBKEY_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PUBKEY_bio'); + Result := i2d_PUBKEY_bio(bp,pkey); +end; + +function Load_d2i_PUBKEY_bio(bp: PBIO; a: PPEVP_PKEY): PEVP_PKEY; cdecl; +begin + d2i_PUBKEY_bio := LoadLibCryptoFunction('d2i_PUBKEY_bio'); + if not assigned(d2i_PUBKEY_bio) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_PUBKEY_bio'); + Result := d2i_PUBKEY_bio(bp,a); +end; + +function Load_X509_dup(x509: PX509): PX509; cdecl; +begin + X509_dup := LoadLibCryptoFunction('X509_dup'); + if not assigned(X509_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_dup'); + Result := X509_dup(x509); +end; + +function Load_X509_ATTRIBUTE_dup(xa: PX509_ATTRIBUTE): PX509_ATTRIBUTE; cdecl; +begin + X509_ATTRIBUTE_dup := LoadLibCryptoFunction('X509_ATTRIBUTE_dup'); + if not assigned(X509_ATTRIBUTE_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ATTRIBUTE_dup'); + Result := X509_ATTRIBUTE_dup(xa); +end; + +function Load_X509_EXTENSION_dup(ex: PX509_EXTENSION): PX509_EXTENSION; cdecl; +begin + X509_EXTENSION_dup := LoadLibCryptoFunction('X509_EXTENSION_dup'); + if not assigned(X509_EXTENSION_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_EXTENSION_dup'); + Result := X509_EXTENSION_dup(ex); +end; + +function Load_X509_CRL_dup(crl: PX509_CRL): PX509_CRL; cdecl; +begin + X509_CRL_dup := LoadLibCryptoFunction('X509_CRL_dup'); + if not assigned(X509_CRL_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_dup'); + Result := X509_CRL_dup(crl); +end; + +function Load_X509_REVOKED_dup(rev: PX509_REVOKED): PX509_REVOKED; cdecl; +begin + X509_REVOKED_dup := LoadLibCryptoFunction('X509_REVOKED_dup'); + if not assigned(X509_REVOKED_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REVOKED_dup'); + Result := X509_REVOKED_dup(rev); +end; + +function Load_X509_REQ_dup(req: PX509_REQ): PX509_REQ; cdecl; +begin + X509_REQ_dup := LoadLibCryptoFunction('X509_REQ_dup'); + if not assigned(X509_REQ_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_dup'); + Result := X509_REQ_dup(req); +end; + +function Load_X509_ALGOR_dup(xn: PX509_ALGOR): PX509_ALGOR; cdecl; +begin + X509_ALGOR_dup := LoadLibCryptoFunction('X509_ALGOR_dup'); + if not assigned(X509_ALGOR_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ALGOR_dup'); + Result := X509_ALGOR_dup(xn); +end; + +function Load_X509_ALGOR_set0(alg: PX509_ALGOR; aobj: PASN1_OBJECT; ptype: TOpenSSL_C_INT; pval: Pointer): TOpenSSL_C_INT; cdecl; +begin + X509_ALGOR_set0 := LoadLibCryptoFunction('X509_ALGOR_set0'); + if not assigned(X509_ALGOR_set0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ALGOR_set0'); + Result := X509_ALGOR_set0(alg,aobj,ptype,pval); +end; + +procedure Load_X509_ALGOR_get0(const paobj: PPASN1_OBJECT; pptype: POpenSSL_C_INT; const ppval: PPointer; const algor: PX509_ALGOR); cdecl; +begin + X509_ALGOR_get0 := LoadLibCryptoFunction('X509_ALGOR_get0'); + if not assigned(X509_ALGOR_get0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ALGOR_get0'); + X509_ALGOR_get0(paobj,pptype,ppval,algor); +end; + +procedure Load_X509_ALGOR_set_md(alg: PX509_ALGOR; const md: PEVP_MD); cdecl; +begin + X509_ALGOR_set_md := LoadLibCryptoFunction('X509_ALGOR_set_md'); + if not assigned(X509_ALGOR_set_md) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ALGOR_set_md'); + X509_ALGOR_set_md(alg,md); +end; + +function Load_X509_ALGOR_cmp(const a: PX509_ALGOR; const b: PX509_ALGOR): TOpenSSL_C_INT; cdecl; +begin + X509_ALGOR_cmp := LoadLibCryptoFunction('X509_ALGOR_cmp'); + if not assigned(X509_ALGOR_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ALGOR_cmp'); + Result := X509_ALGOR_cmp(a,b); +end; + +function Load_X509_NAME_dup(xn: PX509_NAME): PX509_NAME; cdecl; +begin + X509_NAME_dup := LoadLibCryptoFunction('X509_NAME_dup'); + if not assigned(X509_NAME_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_dup'); + Result := X509_NAME_dup(xn); +end; + +function Load_X509_NAME_ENTRY_dup(ne: PX509_NAME_ENTRY): PX509_NAME_ENTRY; cdecl; +begin + X509_NAME_ENTRY_dup := LoadLibCryptoFunction('X509_NAME_ENTRY_dup'); + if not assigned(X509_NAME_ENTRY_dup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_ENTRY_dup'); + Result := X509_NAME_ENTRY_dup(ne); +end; + +function Load_X509_cmp_time(const s: PASN1_TIME; t: POpenSSL_C_TIMET): TOpenSSL_C_INT; cdecl; +begin + X509_cmp_time := LoadLibCryptoFunction('X509_cmp_time'); + if not assigned(X509_cmp_time) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_cmp_time'); + Result := X509_cmp_time(s,t); +end; + +function Load_X509_cmp_current_time(const s: PASN1_TIME): TOpenSSL_C_INT; cdecl; +begin + X509_cmp_current_time := LoadLibCryptoFunction('X509_cmp_current_time'); + if not assigned(X509_cmp_current_time) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_cmp_current_time'); + Result := X509_cmp_current_time(s); +end; + +function Load_X509_time_adj(s: PASN1_TIME; adj: TOpenSSL_C_LONG; t: POpenSSL_C_TIMET): PASN1_TIME; cdecl; +begin + X509_time_adj := LoadLibCryptoFunction('X509_time_adj'); + if not assigned(X509_time_adj) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_time_adj'); + Result := X509_time_adj(s,adj,t); +end; + +function Load_X509_time_adj_ex(s: PASN1_TIME; offset_day: TOpenSSL_C_INT; offset_sec: TOpenSSL_C_LONG; t: POpenSSL_C_TIMET): PASN1_TIME; cdecl; +begin + X509_time_adj_ex := LoadLibCryptoFunction('X509_time_adj_ex'); + if not assigned(X509_time_adj_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_time_adj_ex'); + Result := X509_time_adj_ex(s,offset_day,offset_sec,t); +end; + +function Load_X509_gmtime_adj(s: PASN1_TIME; adj: TOpenSSL_C_LONG): PASN1_TIME; cdecl; +begin + X509_gmtime_adj := LoadLibCryptoFunction('X509_gmtime_adj'); + if not assigned(X509_gmtime_adj) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_gmtime_adj'); + Result := X509_gmtime_adj(s,adj); +end; + +function Load_X509_get_default_cert_area: PAnsiChar; cdecl; +begin + X509_get_default_cert_area := LoadLibCryptoFunction('X509_get_default_cert_area'); + if not assigned(X509_get_default_cert_area) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_default_cert_area'); + Result := X509_get_default_cert_area(); +end; + +function Load_X509_get_default_cert_dir: PAnsiChar; cdecl; +begin + X509_get_default_cert_dir := LoadLibCryptoFunction('X509_get_default_cert_dir'); + if not assigned(X509_get_default_cert_dir) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_default_cert_dir'); + Result := X509_get_default_cert_dir(); +end; + +function Load_X509_get_default_cert_file: PAnsiChar; cdecl; +begin + X509_get_default_cert_file := LoadLibCryptoFunction('X509_get_default_cert_file'); + if not assigned(X509_get_default_cert_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_default_cert_file'); + Result := X509_get_default_cert_file(); +end; + +function Load_X509_get_default_cert_dir_env: PAnsiChar; cdecl; +begin + X509_get_default_cert_dir_env := LoadLibCryptoFunction('X509_get_default_cert_dir_env'); + if not assigned(X509_get_default_cert_dir_env) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_default_cert_dir_env'); + Result := X509_get_default_cert_dir_env(); +end; + +function Load_X509_get_default_cert_file_env: PAnsiChar; cdecl; +begin + X509_get_default_cert_file_env := LoadLibCryptoFunction('X509_get_default_cert_file_env'); + if not assigned(X509_get_default_cert_file_env) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_default_cert_file_env'); + Result := X509_get_default_cert_file_env(); +end; + +function Load_X509_get_default_private_dir: PAnsiChar; cdecl; +begin + X509_get_default_private_dir := LoadLibCryptoFunction('X509_get_default_private_dir'); + if not assigned(X509_get_default_private_dir) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_default_private_dir'); + Result := X509_get_default_private_dir(); +end; + +function Load_X509_to_X509_REQ(x: PX509; pkey: PEVP_PKEY; const md: PEVP_MD): PX509_REQ; cdecl; +begin + X509_to_X509_REQ := LoadLibCryptoFunction('X509_to_X509_REQ'); + if not assigned(X509_to_X509_REQ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_to_X509_REQ'); + Result := X509_to_X509_REQ(x,pkey,md); +end; + +function Load_X509_REQ_to_X509(r: PX509_REQ; days: TOpenSSL_C_INT; pkey: PEVP_PKEY): PX509; cdecl; +begin + X509_REQ_to_X509 := LoadLibCryptoFunction('X509_REQ_to_X509'); + if not assigned(X509_REQ_to_X509) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_to_X509'); + Result := X509_REQ_to_X509(r,days,pkey); +end; + +function Load_X509_ALGOR_new: PX509_ALGOR; cdecl; +begin + X509_ALGOR_new := LoadLibCryptoFunction('X509_ALGOR_new'); + if not assigned(X509_ALGOR_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ALGOR_new'); + Result := X509_ALGOR_new(); +end; + +procedure Load_X509_ALGOR_free(v1: PX509_ALGOR); cdecl; +begin + X509_ALGOR_free := LoadLibCryptoFunction('X509_ALGOR_free'); + if not assigned(X509_ALGOR_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ALGOR_free'); + X509_ALGOR_free(v1); +end; + +function Load_d2i_X509_ALGOR(a: PPX509_ALGOR; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_ALGOR; cdecl; +begin + d2i_X509_ALGOR := LoadLibCryptoFunction('d2i_X509_ALGOR'); + if not assigned(d2i_X509_ALGOR) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_ALGOR'); + Result := d2i_X509_ALGOR(a,in_,len); +end; + +function Load_i2d_X509_ALGOR(a: PX509_ALGOR; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_ALGOR := LoadLibCryptoFunction('i2d_X509_ALGOR'); + if not assigned(i2d_X509_ALGOR) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_ALGOR'); + Result := i2d_X509_ALGOR(a,out_); +end; + +function Load_X509_VAL_new: PX509_VAL; cdecl; +begin + X509_VAL_new := LoadLibCryptoFunction('X509_VAL_new'); + if not assigned(X509_VAL_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VAL_new'); + Result := X509_VAL_new(); +end; + +procedure Load_X509_VAL_free(v1: PX509_VAL); cdecl; +begin + X509_VAL_free := LoadLibCryptoFunction('X509_VAL_free'); + if not assigned(X509_VAL_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VAL_free'); + X509_VAL_free(v1); +end; + +function Load_d2i_X509_VAL(a: PPX509_VAL; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_VAL; cdecl; +begin + d2i_X509_VAL := LoadLibCryptoFunction('d2i_X509_VAL'); + if not assigned(d2i_X509_VAL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_VAL'); + Result := d2i_X509_VAL(a,in_,len); +end; + +function Load_i2d_X509_VAL(a: PX509_VAL; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_VAL := LoadLibCryptoFunction('i2d_X509_VAL'); + if not assigned(i2d_X509_VAL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_VAL'); + Result := i2d_X509_VAL(a,out_); +end; + +function Load_X509_PUBKEY_new: PX509_PUBKEY; cdecl; +begin + X509_PUBKEY_new := LoadLibCryptoFunction('X509_PUBKEY_new'); + if not assigned(X509_PUBKEY_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PUBKEY_new'); + Result := X509_PUBKEY_new(); +end; + +procedure Load_X509_PUBKEY_free(v1: PX509_PUBKEY); cdecl; +begin + X509_PUBKEY_free := LoadLibCryptoFunction('X509_PUBKEY_free'); + if not assigned(X509_PUBKEY_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PUBKEY_free'); + X509_PUBKEY_free(v1); +end; + +function Load_d2i_X509_PUBKEY(a: PPX509_PUBKEY; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_PUBKEY; cdecl; +begin + d2i_X509_PUBKEY := LoadLibCryptoFunction('d2i_X509_PUBKEY'); + if not assigned(d2i_X509_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_PUBKEY'); + Result := d2i_X509_PUBKEY(a,in_,len); +end; + +function Load_i2d_X509_PUBKEY(a: PX509_PUBKEY; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_PUBKEY := LoadLibCryptoFunction('i2d_X509_PUBKEY'); + if not assigned(i2d_X509_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_PUBKEY'); + Result := i2d_X509_PUBKEY(a,out_); +end; + +function Load_X509_PUBKEY_set(x: PPX509_PUBKEY; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + X509_PUBKEY_set := LoadLibCryptoFunction('X509_PUBKEY_set'); + if not assigned(X509_PUBKEY_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PUBKEY_set'); + Result := X509_PUBKEY_set(x,pkey); +end; + +function Load_X509_PUBKEY_get0(key: PX509_PUBKEY): PEVP_PKEY; cdecl; +begin + X509_PUBKEY_get0 := LoadLibCryptoFunction('X509_PUBKEY_get0'); + if not assigned(X509_PUBKEY_get0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PUBKEY_get0'); + Result := X509_PUBKEY_get0(key); +end; + +function Load_X509_PUBKEY_get(key: PX509_PUBKEY): PEVP_PKEY; cdecl; +begin + X509_PUBKEY_get := LoadLibCryptoFunction('X509_PUBKEY_get'); + if not assigned(X509_PUBKEY_get) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PUBKEY_get'); + Result := X509_PUBKEY_get(key); +end; + +function Load_X509_get_pathlen(x: PX509): TOpenSSL_C_LONG; cdecl; +begin + X509_get_pathlen := LoadLibCryptoFunction('X509_get_pathlen'); + if not assigned(X509_get_pathlen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_pathlen'); + Result := X509_get_pathlen(x); +end; + +function Load_i2d_PUBKEY(a: PEVP_PKEY; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_PUBKEY := LoadLibCryptoFunction('i2d_PUBKEY'); + if not assigned(i2d_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_PUBKEY'); + Result := i2d_PUBKEY(a,pp); +end; + +function Load_d2i_PUBKEY(a: PPEVP_PKEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEVP_PKEY; cdecl; +begin + d2i_PUBKEY := LoadLibCryptoFunction('d2i_PUBKEY'); + if not assigned(d2i_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_PUBKEY'); + Result := d2i_PUBKEY(a,pp,length); +end; + +function Load_i2d_RSA_PUBKEY(a: PRSA; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_RSA_PUBKEY := LoadLibCryptoFunction('i2d_RSA_PUBKEY'); + if not assigned(i2d_RSA_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_RSA_PUBKEY'); + Result := i2d_RSA_PUBKEY(a,pp); +end; + +function Load_d2i_RSA_PUBKEY(a: PPRSA; const pp: PPByte; length: TOpenSSL_C_LONG): PRSA; cdecl; +begin + d2i_RSA_PUBKEY := LoadLibCryptoFunction('d2i_RSA_PUBKEY'); + if not assigned(d2i_RSA_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_RSA_PUBKEY'); + Result := d2i_RSA_PUBKEY(a,pp,length); +end; + +function Load_i2d_DSA_PUBKEY(a: PDSA; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_DSA_PUBKEY := LoadLibCryptoFunction('i2d_DSA_PUBKEY'); + if not assigned(i2d_DSA_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_DSA_PUBKEY'); + Result := i2d_DSA_PUBKEY(a,pp); +end; + +function Load_d2i_DSA_PUBKEY(a: PPDSA; const pp: PPByte; length: TOpenSSL_C_LONG): PDSA; cdecl; +begin + d2i_DSA_PUBKEY := LoadLibCryptoFunction('d2i_DSA_PUBKEY'); + if not assigned(d2i_DSA_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_DSA_PUBKEY'); + Result := d2i_DSA_PUBKEY(a,pp,length); +end; + +function Load_i2d_EC_PUBKEY(a: EC_KEY; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_EC_PUBKEY := LoadLibCryptoFunction('i2d_EC_PUBKEY'); + if not assigned(i2d_EC_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_EC_PUBKEY'); + Result := i2d_EC_PUBKEY(a,pp); +end; + +function Load_d2i_EC_PUBKEY(a: PPEC_KEY; const pp: PPByte; length: TOpenSSL_C_LONG): PEC_KEY; cdecl; +begin + d2i_EC_PUBKEY := LoadLibCryptoFunction('d2i_EC_PUBKEY'); + if not assigned(d2i_EC_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_EC_PUBKEY'); + Result := d2i_EC_PUBKEY(a,pp,length); +end; + +function Load_X509_SIG_new: PX509_SIG; cdecl; +begin + X509_SIG_new := LoadLibCryptoFunction('X509_SIG_new'); + if not assigned(X509_SIG_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_SIG_new'); + Result := X509_SIG_new(); +end; + +procedure Load_X509_SIG_free(v1: PX509_SIG); cdecl; +begin + X509_SIG_free := LoadLibCryptoFunction('X509_SIG_free'); + if not assigned(X509_SIG_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_SIG_free'); + X509_SIG_free(v1); +end; + +function Load_d2i_X509_SIG(a: PPX509_SIG; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_SIG; cdecl; +begin + d2i_X509_SIG := LoadLibCryptoFunction('d2i_X509_SIG'); + if not assigned(d2i_X509_SIG) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_SIG'); + Result := d2i_X509_SIG(a,in_,len); +end; + +function Load_i2d_X509_SIG(a: PX509_SIG; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_SIG := LoadLibCryptoFunction('i2d_X509_SIG'); + if not assigned(i2d_X509_SIG) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_SIG'); + Result := i2d_X509_SIG(a,out_); +end; + +procedure Load_X509_SIG_get0(const sig: PX509_SIG; const palg: PPX509_ALGOR; const pdigest: PPASN1_OCTET_STRING); cdecl; +begin + X509_SIG_get0 := LoadLibCryptoFunction('X509_SIG_get0'); + if not assigned(X509_SIG_get0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_SIG_get0'); + X509_SIG_get0(sig,palg,pdigest); +end; + +procedure Load_X509_SIG_getm(sig: X509_SIG; palg: PPX509_ALGOR; pdigest: PPASN1_OCTET_STRING); cdecl; +begin + X509_SIG_getm := LoadLibCryptoFunction('X509_SIG_getm'); + if not assigned(X509_SIG_getm) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_SIG_getm'); + X509_SIG_getm(sig,palg,pdigest); +end; + +function Load_X509_REQ_INFO_new: PX509_REQ_INFO; cdecl; +begin + X509_REQ_INFO_new := LoadLibCryptoFunction('X509_REQ_INFO_new'); + if not assigned(X509_REQ_INFO_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_INFO_new'); + Result := X509_REQ_INFO_new(); +end; + +procedure Load_X509_REQ_INFO_free(v1: PX509_REQ_INFO); cdecl; +begin + X509_REQ_INFO_free := LoadLibCryptoFunction('X509_REQ_INFO_free'); + if not assigned(X509_REQ_INFO_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_INFO_free'); + X509_REQ_INFO_free(v1); +end; + +function Load_d2i_X509_REQ_INFO(a: PPX509_REQ_INFO; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_REQ_INFO; cdecl; +begin + d2i_X509_REQ_INFO := LoadLibCryptoFunction('d2i_X509_REQ_INFO'); + if not assigned(d2i_X509_REQ_INFO) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_REQ_INFO'); + Result := d2i_X509_REQ_INFO(a,in_,len); +end; + +function Load_i2d_X509_REQ_INFO(a: PX509_REQ_INFO; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_REQ_INFO := LoadLibCryptoFunction('i2d_X509_REQ_INFO'); + if not assigned(i2d_X509_REQ_INFO) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_REQ_INFO'); + Result := i2d_X509_REQ_INFO(a,out_); +end; + +function Load_X509_REQ_new: PX509_REQ; cdecl; +begin + X509_REQ_new := LoadLibCryptoFunction('X509_REQ_new'); + if not assigned(X509_REQ_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_new'); + Result := X509_REQ_new(); +end; + +procedure Load_X509_REQ_free(v1: PX509_REQ); cdecl; +begin + X509_REQ_free := LoadLibCryptoFunction('X509_REQ_free'); + if not assigned(X509_REQ_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_free'); + X509_REQ_free(v1); +end; + +function Load_d2i_X509_REQ(a: PPX509_REQ; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_REQ; cdecl; +begin + d2i_X509_REQ := LoadLibCryptoFunction('d2i_X509_REQ'); + if not assigned(d2i_X509_REQ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_REQ'); + Result := d2i_X509_REQ(a,in_,len); +end; + +function Load_i2d_X509_REQ(a: PX509_REQ; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_REQ := LoadLibCryptoFunction('i2d_X509_REQ'); + if not assigned(i2d_X509_REQ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_REQ'); + Result := i2d_X509_REQ(a,out_); +end; + +function Load_X509_ATTRIBUTE_new: PX509_ATTRIBUTE; cdecl; +begin + X509_ATTRIBUTE_new := LoadLibCryptoFunction('X509_ATTRIBUTE_new'); + if not assigned(X509_ATTRIBUTE_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ATTRIBUTE_new'); + Result := X509_ATTRIBUTE_new(); +end; + +procedure Load_X509_ATTRIBUTE_free(v1: PX509_ATTRIBUTE); cdecl; +begin + X509_ATTRIBUTE_free := LoadLibCryptoFunction('X509_ATTRIBUTE_free'); + if not assigned(X509_ATTRIBUTE_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ATTRIBUTE_free'); + X509_ATTRIBUTE_free(v1); +end; + +function Load_d2i_X509_ATTRIBUTE(a: PPX509_ATTRIBUTE; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_ATTRIBUTE; cdecl; +begin + d2i_X509_ATTRIBUTE := LoadLibCryptoFunction('d2i_X509_ATTRIBUTE'); + if not assigned(d2i_X509_ATTRIBUTE) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_ATTRIBUTE'); + Result := d2i_X509_ATTRIBUTE(a,in_,len); +end; + +function Load_i2d_X509_ATTRIBUTE(a: PX509_ATTRIBUTE; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_ATTRIBUTE := LoadLibCryptoFunction('i2d_X509_ATTRIBUTE'); + if not assigned(i2d_X509_ATTRIBUTE) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_ATTRIBUTE'); + Result := i2d_X509_ATTRIBUTE(a,out_); +end; + +function Load_X509_ATTRIBUTE_create(nid: TOpenSSL_C_INT; trtype: TOpenSSL_C_INT; value: Pointer): PX509_ATTRIBUTE; cdecl; +begin + X509_ATTRIBUTE_create := LoadLibCryptoFunction('X509_ATTRIBUTE_create'); + if not assigned(X509_ATTRIBUTE_create) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ATTRIBUTE_create'); + Result := X509_ATTRIBUTE_create(nid,trtype,value); +end; + +function Load_X509_EXTENSION_new: PX509_EXTENSION; cdecl; +begin + X509_EXTENSION_new := LoadLibCryptoFunction('X509_EXTENSION_new'); + if not assigned(X509_EXTENSION_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_EXTENSION_new'); + Result := X509_EXTENSION_new(); +end; + +procedure Load_X509_EXTENSION_free(v1: PX509_EXTENSION); cdecl; +begin + X509_EXTENSION_free := LoadLibCryptoFunction('X509_EXTENSION_free'); + if not assigned(X509_EXTENSION_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_EXTENSION_free'); + X509_EXTENSION_free(v1); +end; + +function Load_d2i_X509_EXTENSION(a: PPX509_EXTENSION; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_EXTENSION; cdecl; +begin + d2i_X509_EXTENSION := LoadLibCryptoFunction('d2i_X509_EXTENSION'); + if not assigned(d2i_X509_EXTENSION) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_EXTENSION'); + Result := d2i_X509_EXTENSION(a,in_,len); +end; + +function Load_i2d_X509_EXTENSION(a: PX509_EXTENSION; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_EXTENSION := LoadLibCryptoFunction('i2d_X509_EXTENSION'); + if not assigned(i2d_X509_EXTENSION) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_EXTENSION'); + Result := i2d_X509_EXTENSION(a,out_); +end; + +function Load_X509_NAME_ENTRY_new: PX509_NAME_ENTRY; cdecl; +begin + X509_NAME_ENTRY_new := LoadLibCryptoFunction('X509_NAME_ENTRY_new'); + if not assigned(X509_NAME_ENTRY_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_ENTRY_new'); + Result := X509_NAME_ENTRY_new(); +end; + +procedure Load_X509_NAME_ENTRY_free(v1: PX509_NAME_ENTRY); cdecl; +begin + X509_NAME_ENTRY_free := LoadLibCryptoFunction('X509_NAME_ENTRY_free'); + if not assigned(X509_NAME_ENTRY_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_ENTRY_free'); + X509_NAME_ENTRY_free(v1); +end; + +function Load_d2i_X509_NAME_ENTRY(a: PPX509_NAME_ENTRY; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_NAME_ENTRY; cdecl; +begin + d2i_X509_NAME_ENTRY := LoadLibCryptoFunction('d2i_X509_NAME_ENTRY'); + if not assigned(d2i_X509_NAME_ENTRY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_NAME_ENTRY'); + Result := d2i_X509_NAME_ENTRY(a,in_,len); +end; + +function Load_i2d_X509_NAME_ENTRY(a: PX509_NAME_ENTRY; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_NAME_ENTRY := LoadLibCryptoFunction('i2d_X509_NAME_ENTRY'); + if not assigned(i2d_X509_NAME_ENTRY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_NAME_ENTRY'); + Result := i2d_X509_NAME_ENTRY(a,out_); +end; + +function Load_X509_NAME_new: PX509_NAME; cdecl; +begin + X509_NAME_new := LoadLibCryptoFunction('X509_NAME_new'); + if not assigned(X509_NAME_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_new'); + Result := X509_NAME_new(); +end; + +procedure Load_X509_NAME_free(v1: PX509_NAME); cdecl; +begin + X509_NAME_free := LoadLibCryptoFunction('X509_NAME_free'); + if not assigned(X509_NAME_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_free'); + X509_NAME_free(v1); +end; + +function Load_d2i_X509_NAME(a: PPX509_NAME; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_NAME; cdecl; +begin + d2i_X509_NAME := LoadLibCryptoFunction('d2i_X509_NAME'); + if not assigned(d2i_X509_NAME) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_NAME'); + Result := d2i_X509_NAME(a,in_,len); +end; + +function Load_i2d_X509_NAME(a: PX509_NAME; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_NAME := LoadLibCryptoFunction('i2d_X509_NAME'); + if not assigned(i2d_X509_NAME) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_NAME'); + Result := i2d_X509_NAME(a,out_); +end; + +function Load_X509_NAME_set(xn: PPX509_NAME; name: PX509_NAME): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_set := LoadLibCryptoFunction('X509_NAME_set'); + if not assigned(X509_NAME_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_set'); + Result := X509_NAME_set(xn,name); +end; + +function Load_X509_new: PX509; cdecl; +begin + X509_new := LoadLibCryptoFunction('X509_new'); + if not assigned(X509_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_new'); + Result := X509_new(); +end; + +procedure Load_X509_free(v1: PX509); cdecl; +begin + X509_free := LoadLibCryptoFunction('X509_free'); + if not assigned(X509_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_free'); + X509_free(v1); +end; + +function Load_d2i_X509(a: PPX509; const in_: PPByte; len: TOpenSSL_C_LONG): PX509; cdecl; +begin + d2i_X509 := LoadLibCryptoFunction('d2i_X509'); + if not assigned(d2i_X509) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509'); + Result := d2i_X509(a,in_,len); +end; + +function Load_i2d_X509(a: PX509; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_X509 := LoadLibCryptoFunction('i2d_X509'); + if not assigned(i2d_X509) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509'); + Result := i2d_X509(a,out_); +end; + +function Load_X509_set_ex_data(r: PX509; idx: TOpenSSL_C_INT; arg: Pointer): TOpenSSL_C_INT; cdecl; +begin + X509_set_ex_data := LoadLibCryptoFunction('X509_set_ex_data'); + if not assigned(X509_set_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_set_ex_data'); + Result := X509_set_ex_data(r,idx,arg); +end; + +function Load_X509_get_ex_data(r: PX509; idx: TOpenSSL_C_INT): Pointer; cdecl; +begin + X509_get_ex_data := LoadLibCryptoFunction('X509_get_ex_data'); + if not assigned(X509_get_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_ex_data'); + Result := X509_get_ex_data(r,idx); +end; + +function Load_i2d_X509_AUX(a: PX509; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_AUX := LoadLibCryptoFunction('i2d_X509_AUX'); + if not assigned(i2d_X509_AUX) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_AUX'); + Result := i2d_X509_AUX(a,pp); +end; + +function Load_d2i_X509_AUX(a: PPX509; const pp: PPByte; length: TOpenSSL_C_LONG): PX509; cdecl; +begin + d2i_X509_AUX := LoadLibCryptoFunction('d2i_X509_AUX'); + if not assigned(d2i_X509_AUX) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_AUX'); + Result := d2i_X509_AUX(a,pp,length); +end; + +function Load_i2d_re_X509_tbs(x: PX509; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_re_X509_tbs := LoadLibCryptoFunction('i2d_re_X509_tbs'); + if not assigned(i2d_re_X509_tbs) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_re_X509_tbs'); + Result := i2d_re_X509_tbs(x,pp); +end; + +function Load_X509_SIG_INFO_get(const siginf: PX509_SIG_INFO; mdnid: POpenSSL_C_INT; pknid: POpenSSL_C_INT; secbits: POpenSSL_C_INT; flags: POpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; +begin + X509_SIG_INFO_get := LoadLibCryptoFunction('X509_SIG_INFO_get'); + if not assigned(X509_SIG_INFO_get) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_SIG_INFO_get'); + Result := X509_SIG_INFO_get(siginf,mdnid,pknid,secbits,flags); +end; + +procedure Load_X509_SIG_INFO_set(siginf: PX509_SIG_INFO; mdnid: TOpenSSL_C_INT; pknid: TOpenSSL_C_INT; secbits: TOpenSSL_C_INT; flags: TOpenSSL_C_UINT32); cdecl; +begin + X509_SIG_INFO_set := LoadLibCryptoFunction('X509_SIG_INFO_set'); + if not assigned(X509_SIG_INFO_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_SIG_INFO_set'); + X509_SIG_INFO_set(siginf,mdnid,pknid,secbits,flags); +end; + +function Load_X509_get_signature_info(x: PX509; mdnid: POpenSSL_C_INT; pknid: POpenSSL_C_INT; secbits: POpenSSL_C_INT; flags: POpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; +begin + X509_get_signature_info := LoadLibCryptoFunction('X509_get_signature_info'); + if not assigned(X509_get_signature_info) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_signature_info'); + Result := X509_get_signature_info(x,mdnid,pknid,secbits,flags); +end; + +procedure Load_X509_get0_signature(var sig: PASN1_BIT_STRING; var alg: PX509_ALGOR; const x: PX509); cdecl; +begin + X509_get0_signature := LoadLibCryptoFunction('X509_get0_signature'); + if not assigned(X509_get0_signature) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + X509_get0_signature := @COMPAT_X509_get0_signature; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get0_signature'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + X509_get0_signature(sig,alg,x); +end; + +function Load_X509_get_signature_nid(const x: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_get_signature_nid := LoadLibCryptoFunction('X509_get_signature_nid'); + if not assigned(X509_get_signature_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_signature_nid'); + Result := X509_get_signature_nid(x); +end; + +function Load_X509_trusted(const x: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_trusted := LoadLibCryptoFunction('X509_trusted'); + if not assigned(X509_trusted) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_trusted'); + Result := X509_trusted(x); +end; + +function Load_X509_alias_set1(x: PX509; const name: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_alias_set1 := LoadLibCryptoFunction('X509_alias_set1'); + if not assigned(X509_alias_set1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_alias_set1'); + Result := X509_alias_set1(x,name,len); +end; + +function Load_X509_keyid_set1(x: PX509; const id: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_keyid_set1 := LoadLibCryptoFunction('X509_keyid_set1'); + if not assigned(X509_keyid_set1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_keyid_set1'); + Result := X509_keyid_set1(x,id,len); +end; + +function Load_X509_alias_get0(x: PX509; len: POpenSSL_C_INT): PByte; cdecl; +begin + X509_alias_get0 := LoadLibCryptoFunction('X509_alias_get0'); + if not assigned(X509_alias_get0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_alias_get0'); + Result := X509_alias_get0(x,len); +end; + +function Load_X509_keyid_get0(x: PX509; len: POpenSSL_C_INT): PByte; cdecl; +begin + X509_keyid_get0 := LoadLibCryptoFunction('X509_keyid_get0'); + if not assigned(X509_keyid_get0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_keyid_get0'); + Result := X509_keyid_get0(x,len); +end; + +function Load_X509_TRUST_set(t: POpenSSL_C_INT; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_TRUST_set := LoadLibCryptoFunction('X509_TRUST_set'); + if not assigned(X509_TRUST_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_TRUST_set'); + Result := X509_TRUST_set(t,trust); +end; + +function Load_X509_add1_trust_object(x: PX509; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +begin + X509_add1_trust_object := LoadLibCryptoFunction('X509_add1_trust_object'); + if not assigned(X509_add1_trust_object) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_add1_trust_object'); + Result := X509_add1_trust_object(x,obj); +end; + +function Load_X509_add1_reject_object(x: PX509; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +begin + X509_add1_reject_object := LoadLibCryptoFunction('X509_add1_reject_object'); + if not assigned(X509_add1_reject_object) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_add1_reject_object'); + Result := X509_add1_reject_object(x,obj); +end; + +procedure Load_X509_trust_clear(x: PX509); cdecl; +begin + X509_trust_clear := LoadLibCryptoFunction('X509_trust_clear'); + if not assigned(X509_trust_clear) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_trust_clear'); + X509_trust_clear(x); +end; + +procedure Load_X509_reject_clear(x: PX509); cdecl; +begin + X509_reject_clear := LoadLibCryptoFunction('X509_reject_clear'); + if not assigned(X509_reject_clear) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_reject_clear'); + X509_reject_clear(x); +end; + +function Load_X509_REVOKED_new: PX509_REVOKED; cdecl; +begin + X509_REVOKED_new := LoadLibCryptoFunction('X509_REVOKED_new'); + if not assigned(X509_REVOKED_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REVOKED_new'); + Result := X509_REVOKED_new(); +end; + +procedure Load_X509_REVOKED_free(v1: PX509_REVOKED); cdecl; +begin + X509_REVOKED_free := LoadLibCryptoFunction('X509_REVOKED_free'); + if not assigned(X509_REVOKED_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REVOKED_free'); + X509_REVOKED_free(v1); +end; + +function Load_d2i_X509_REVOKED(a: PPX509_REVOKED; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_REVOKED; cdecl; +begin + d2i_X509_REVOKED := LoadLibCryptoFunction('d2i_X509_REVOKED'); + if not assigned(d2i_X509_REVOKED) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_REVOKED'); + Result := d2i_X509_REVOKED(a,in_,len); +end; + +function Load_i2d_X509_REVOKED(a: PX509_REVOKED; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_REVOKED := LoadLibCryptoFunction('i2d_X509_REVOKED'); + if not assigned(i2d_X509_REVOKED) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_REVOKED'); + Result := i2d_X509_REVOKED(a,out_); +end; + +function Load_X509_CRL_INFO_new: PX509_CRL_INFO; cdecl; +begin + X509_CRL_INFO_new := LoadLibCryptoFunction('X509_CRL_INFO_new'); + if not assigned(X509_CRL_INFO_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_INFO_new'); + Result := X509_CRL_INFO_new(); +end; + +procedure Load_X509_CRL_INFO_free(v1: PX509_CRL_INFO); cdecl; +begin + X509_CRL_INFO_free := LoadLibCryptoFunction('X509_CRL_INFO_free'); + if not assigned(X509_CRL_INFO_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_INFO_free'); + X509_CRL_INFO_free(v1); +end; + +function Load_d2i_X509_CRL_INFO(a: PPX509_CRL_INFO; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_CRL_INFO; cdecl; +begin + d2i_X509_CRL_INFO := LoadLibCryptoFunction('d2i_X509_CRL_INFO'); + if not assigned(d2i_X509_CRL_INFO) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_CRL_INFO'); + Result := d2i_X509_CRL_INFO(a,in_,len); +end; + +function Load_i2d_X509_CRL_INFO(a: PX509_CRL_INFO; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_CRL_INFO := LoadLibCryptoFunction('i2d_X509_CRL_INFO'); + if not assigned(i2d_X509_CRL_INFO) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_CRL_INFO'); + Result := i2d_X509_CRL_INFO(a,out_); +end; + +function Load_X509_CRL_new: PX509_CRL; cdecl; +begin + X509_CRL_new := LoadLibCryptoFunction('X509_CRL_new'); + if not assigned(X509_CRL_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_new'); + Result := X509_CRL_new(); +end; + +procedure Load_X509_CRL_free(v1: PX509_CRL); cdecl; +begin + X509_CRL_free := LoadLibCryptoFunction('X509_CRL_free'); + if not assigned(X509_CRL_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_free'); + X509_CRL_free(v1); +end; + +function Load_d2i_X509_CRL(a: PPX509_CRL; const in_: PPByte; len: TOpenSSL_C_LONG): PX509_CRL; cdecl; +begin + d2i_X509_CRL := LoadLibCryptoFunction('d2i_X509_CRL'); + if not assigned(d2i_X509_CRL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('d2i_X509_CRL'); + Result := d2i_X509_CRL(a,in_,len); +end; + +function Load_i2d_X509_CRL(a: PX509_CRL; out_: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_X509_CRL := LoadLibCryptoFunction('i2d_X509_CRL'); + if not assigned(i2d_X509_CRL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_X509_CRL'); + Result := i2d_X509_CRL(a,out_); +end; + +function Load_X509_CRL_add0_revoked(crl: PX509_CRL; rev: PX509_REVOKED): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_add0_revoked := LoadLibCryptoFunction('X509_CRL_add0_revoked'); + if not assigned(X509_CRL_add0_revoked) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_add0_revoked'); + Result := X509_CRL_add0_revoked(crl,rev); +end; + +function Load_X509_CRL_get0_by_serial(crl: PX509_CRL; ret: PPX509_REVOKED; serial: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_get0_by_serial := LoadLibCryptoFunction('X509_CRL_get0_by_serial'); + if not assigned(X509_CRL_get0_by_serial) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_get0_by_serial'); + Result := X509_CRL_get0_by_serial(crl,ret,serial); +end; + +function Load_X509_CRL_get0_by_cert(crl: PX509_CRL; ret: PPX509_REVOKED; x: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_get0_by_cert := LoadLibCryptoFunction('X509_CRL_get0_by_cert'); + if not assigned(X509_CRL_get0_by_cert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_get0_by_cert'); + Result := X509_CRL_get0_by_cert(crl,ret,x); +end; + +function Load_X509_PKEY_new: PX509_PKEY; cdecl; +begin + X509_PKEY_new := LoadLibCryptoFunction('X509_PKEY_new'); + if not assigned(X509_PKEY_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PKEY_new'); + Result := X509_PKEY_new(); +end; + +procedure Load_X509_PKEY_free(a: PX509_PKEY); cdecl; +begin + X509_PKEY_free := LoadLibCryptoFunction('X509_PKEY_free'); + if not assigned(X509_PKEY_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PKEY_free'); + X509_PKEY_free(a); +end; + +function Load_X509_INFO_new: PX509_INFO; cdecl; +begin + X509_INFO_new := LoadLibCryptoFunction('X509_INFO_new'); + if not assigned(X509_INFO_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_INFO_new'); + Result := X509_INFO_new(); +end; + +procedure Load_X509_INFO_free(a: PX509_INFO); cdecl; +begin + X509_INFO_free := LoadLibCryptoFunction('X509_INFO_free'); + if not assigned(X509_INFO_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_INFO_free'); + X509_INFO_free(a); +end; + +function Load_X509_NAME_oneline(const a: PX509_NAME; buf: PAnsiChar; size: TOpenSSL_C_INT): PAnsiChar; cdecl; +begin + X509_NAME_oneline := LoadLibCryptoFunction('X509_NAME_oneline'); + if not assigned(X509_NAME_oneline) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_oneline'); + Result := X509_NAME_oneline(a,buf,size); +end; + +function Load_ASN1_item_digest(const it: PASN1_ITEM; const type_: PEVP_MD; data: Pointer; md: PByte; len: POpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + ASN1_item_digest := LoadLibCryptoFunction('ASN1_item_digest'); + if not assigned(ASN1_item_digest) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_digest'); + Result := ASN1_item_digest(it,type_,data,md,len); +end; + +function Load_ASN1_item_verify(const it: PASN1_ITEM; algor1: PX509_ALGOR; signature: PASN1_BIT_STRING; data: Pointer; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + ASN1_item_verify := LoadLibCryptoFunction('ASN1_item_verify'); + if not assigned(ASN1_item_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_verify'); + Result := ASN1_item_verify(it,algor1,signature,data,pkey); +end; + +function Load_ASN1_item_sign(const it: PASN1_ITEM; algor1: PX509_ALGOR; algor2: PX509_ALGOR; signature: PASN1_BIT_STRING; data: Pointer; pkey: PEVP_PKEY; const type_: PEVP_MD): TOpenSSL_C_INT; cdecl; +begin + ASN1_item_sign := LoadLibCryptoFunction('ASN1_item_sign'); + if not assigned(ASN1_item_sign) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_sign'); + Result := ASN1_item_sign(it,algor1,algor2,signature,data,pkey,type_); +end; + +function Load_ASN1_item_sign_ctx(const it: PASN1_ITEM; algor1: PX509_ALGOR; algor2: PX509_ALGOR; signature: PASN1_BIT_STRING; asn: Pointer; ctx: PEVP_MD_CTX): TOpenSSL_C_INT; cdecl; +begin + ASN1_item_sign_ctx := LoadLibCryptoFunction('ASN1_item_sign_ctx'); + if not assigned(ASN1_item_sign_ctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ASN1_item_sign_ctx'); + Result := ASN1_item_sign_ctx(it,algor1,algor2,signature,asn,ctx); +end; + +function Load_X509_get_version(const x: PX509): TOpenSSL_C_LONG; cdecl; +begin + X509_get_version := LoadLibCryptoFunction('X509_get_version'); + if not assigned(X509_get_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_version'); + Result := X509_get_version(x); +end; + +function Load_X509_set_version(x: PX509; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + X509_set_version := LoadLibCryptoFunction('X509_set_version'); + if not assigned(X509_set_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_set_version'); + Result := X509_set_version(x,version); +end; + +function Load_X509_set_serialNumber(x: PX509; serial: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + X509_set_serialNumber := LoadLibCryptoFunction('X509_set_serialNumber'); + if not assigned(X509_set_serialNumber) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_set_serialNumber'); + Result := X509_set_serialNumber(x,serial); +end; + +function Load_X509_get_serialNumber(x: PX509): PASN1_INTEGER; cdecl; +begin + X509_get_serialNumber := LoadLibCryptoFunction('X509_get_serialNumber'); + if not assigned(X509_get_serialNumber) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_serialNumber'); + Result := X509_get_serialNumber(x); +end; + +function Load_X509_get0_serialNumber(const x: PX509): PASN1_INTEGER; cdecl; +begin + X509_get0_serialNumber := LoadLibCryptoFunction('X509_get0_serialNumber'); + if not assigned(X509_get0_serialNumber) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get0_serialNumber'); + Result := X509_get0_serialNumber(x); +end; + +function Load_X509_set_issuer_name(x: PX509; name: PX509_NAME): TOpenSSL_C_INT; cdecl; +begin + X509_set_issuer_name := LoadLibCryptoFunction('X509_set_issuer_name'); + if not assigned(X509_set_issuer_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_set_issuer_name'); + Result := X509_set_issuer_name(x,name); +end; + +function Load_X509_get_issuer_name(const a: PX509): PX509_NAME; cdecl; +begin + X509_get_issuer_name := LoadLibCryptoFunction('X509_get_issuer_name'); + if not assigned(X509_get_issuer_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_issuer_name'); + Result := X509_get_issuer_name(a); +end; + +function Load_X509_set_subject_name(x: PX509; name: PX509_NAME): TOpenSSL_C_INT; cdecl; +begin + X509_set_subject_name := LoadLibCryptoFunction('X509_set_subject_name'); + if not assigned(X509_set_subject_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_set_subject_name'); + Result := X509_set_subject_name(x,name); +end; + +function Load_X509_get_subject_name(const a: PX509): PX509_NAME; cdecl; +begin + X509_get_subject_name := LoadLibCryptoFunction('X509_get_subject_name'); + if not assigned(X509_get_subject_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_subject_name'); + Result := X509_get_subject_name(a); +end; + +function Load_X509_get0_notBefore(const x: PX509): PASN1_TIME; cdecl; +begin + X509_get0_notBefore := LoadLibCryptoFunction('X509_get0_notBefore'); + if not assigned(X509_get0_notBefore) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + X509_get0_notBefore := @COMPAT_X509_get0_notBefore; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get0_notBefore'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := X509_get0_notBefore(x); +end; + +function Load_X509_getm_notBefore(const x: PX509): PASN1_TIME; cdecl; +begin + X509_getm_notBefore := LoadLibCryptoFunction('X509_getm_notBefore'); + if not assigned(X509_getm_notBefore) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_getm_notBefore'); + Result := X509_getm_notBefore(x); +end; + +function Load_X509_set1_notBefore(x: PX509; const tm: PASN1_TIME): TOpenSSL_C_INT; cdecl; +begin + X509_set1_notBefore := LoadLibCryptoFunction('X509_set1_notBefore'); + if not assigned(X509_set1_notBefore) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_set1_notBefore'); + Result := X509_set1_notBefore(x,tm); +end; + +function Load_X509_get0_notAfter(const x: PX509): PASN1_TIME; cdecl; +begin + X509_get0_notAfter := LoadLibCryptoFunction('X509_get0_notAfter'); + if not assigned(X509_get0_notAfter) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + X509_get0_notAfter := @COMPAT_X509_get0_notAfter; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get0_notAfter'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := X509_get0_notAfter(x); +end; + +function Load_X509_getm_notAfter(const x: PX509): PASN1_TIME; cdecl; +begin + X509_getm_notAfter := LoadLibCryptoFunction('X509_getm_notAfter'); + if not assigned(X509_getm_notAfter) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_getm_notAfter'); + Result := X509_getm_notAfter(x); +end; + +function Load_X509_set1_notAfter(x: PX509; const tm: PASN1_TIME): TOpenSSL_C_INT; cdecl; +begin + X509_set1_notAfter := LoadLibCryptoFunction('X509_set1_notAfter'); + if not assigned(X509_set1_notAfter) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_set1_notAfter'); + Result := X509_set1_notAfter(x,tm); +end; + +function Load_X509_set_pubkey(x: PX509; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + X509_set_pubkey := LoadLibCryptoFunction('X509_set_pubkey'); + if not assigned(X509_set_pubkey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_set_pubkey'); + Result := X509_set_pubkey(x,pkey); +end; + +function Load_X509_up_ref(x: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_up_ref := LoadLibCryptoFunction('X509_up_ref'); + if not assigned(X509_up_ref) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_up_ref'); + Result := X509_up_ref(x); +end; + +function Load_X509_get_signature_type(const x: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_get_signature_type := LoadLibCryptoFunction('X509_get_signature_type'); + if not assigned(X509_get_signature_type) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + X509_get_signature_type := @COMPAT_X509_get_signature_type; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_signature_type'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := X509_get_signature_type(x); +end; + +function Load_X509_get_X509_PUBKEY(const x: PX509): PX509_PUBKEY; cdecl; +begin + X509_get_X509_PUBKEY := LoadLibCryptoFunction('X509_get_X509_PUBKEY'); + if not assigned(X509_get_X509_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_X509_PUBKEY'); + Result := X509_get_X509_PUBKEY(x); +end; + +procedure Load_X509_get0_uids(const x: PX509; const piuid: PPASN1_BIT_STRING; const psuid: PPASN1_BIT_STRING); cdecl; +begin + X509_get0_uids := LoadLibCryptoFunction('X509_get0_uids'); + if not assigned(X509_get0_uids) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get0_uids'); + X509_get0_uids(x,piuid,psuid); +end; + +function Load_X509_get0_tbs_sigalg(const x: PX509): PX509_ALGOR; cdecl; +begin + X509_get0_tbs_sigalg := LoadLibCryptoFunction('X509_get0_tbs_sigalg'); + if not assigned(X509_get0_tbs_sigalg) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get0_tbs_sigalg'); + Result := X509_get0_tbs_sigalg(x); +end; + +function Load_X509_get0_pubkey(const x: PX509): PEVP_PKEY; cdecl; +begin + X509_get0_pubkey := LoadLibCryptoFunction('X509_get0_pubkey'); + if not assigned(X509_get0_pubkey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get0_pubkey'); + Result := X509_get0_pubkey(x); +end; + +function Load_X509_get_pubkey(x: PX509): PEVP_PKEY; cdecl; +begin + X509_get_pubkey := LoadLibCryptoFunction('X509_get_pubkey'); + if not assigned(X509_get_pubkey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_pubkey'); + Result := X509_get_pubkey(x); +end; + +function Load_X509_get0_pubkey_bitstr(const x: PX509): PASN1_BIT_STRING; cdecl; +begin + X509_get0_pubkey_bitstr := LoadLibCryptoFunction('X509_get0_pubkey_bitstr'); + if not assigned(X509_get0_pubkey_bitstr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get0_pubkey_bitstr'); + Result := X509_get0_pubkey_bitstr(x); +end; + +function Load_X509_certificate_type(const x: PX509; const pubkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + X509_certificate_type := LoadLibCryptoFunction('X509_certificate_type'); + if not assigned(X509_certificate_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_certificate_type'); + Result := X509_certificate_type(x,pubkey); +end; + +function Load_X509_REQ_get_version(const req: PX509_REQ): TOpenSSL_C_LONG; cdecl; +begin + X509_REQ_get_version := LoadLibCryptoFunction('X509_REQ_get_version'); + if not assigned(X509_REQ_get_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_get_version'); + Result := X509_REQ_get_version(req); +end; + +function Load_X509_REQ_set_version(x: PX509_REQ; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_set_version := LoadLibCryptoFunction('X509_REQ_set_version'); + if not assigned(X509_REQ_set_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_set_version'); + Result := X509_REQ_set_version(x,version); +end; + +function Load_X509_REQ_get_subject_name(const req: PX509_REQ): PX509_NAME; cdecl; +begin + X509_REQ_get_subject_name := LoadLibCryptoFunction('X509_REQ_get_subject_name'); + if not assigned(X509_REQ_get_subject_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_get_subject_name'); + Result := X509_REQ_get_subject_name(req); +end; + +function Load_X509_REQ_set_subject_name(req: PX509_REQ; name: PX509_NAME): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_set_subject_name := LoadLibCryptoFunction('X509_REQ_set_subject_name'); + if not assigned(X509_REQ_set_subject_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_set_subject_name'); + Result := X509_REQ_set_subject_name(req,name); +end; + +procedure Load_X509_REQ_get0_signature(const req: PX509_REQ; const psig: PPASN1_BIT_STRING; const palg: PPX509_ALGOR); cdecl; +begin + X509_REQ_get0_signature := LoadLibCryptoFunction('X509_REQ_get0_signature'); + if not assigned(X509_REQ_get0_signature) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_get0_signature'); + X509_REQ_get0_signature(req,psig,palg); +end; + +function Load_X509_REQ_get_signature_nid(const req: PX509_REQ): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_get_signature_nid := LoadLibCryptoFunction('X509_REQ_get_signature_nid'); + if not assigned(X509_REQ_get_signature_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_get_signature_nid'); + Result := X509_REQ_get_signature_nid(req); +end; + +function Load_i2d_re_X509_REQ_tbs(req: PX509_REQ; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_re_X509_REQ_tbs := LoadLibCryptoFunction('i2d_re_X509_REQ_tbs'); + if not assigned(i2d_re_X509_REQ_tbs) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_re_X509_REQ_tbs'); + Result := i2d_re_X509_REQ_tbs(req,pp); +end; + +function Load_X509_REQ_set_pubkey(x: PX509_REQ; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_set_pubkey := LoadLibCryptoFunction('X509_REQ_set_pubkey'); + if not assigned(X509_REQ_set_pubkey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_set_pubkey'); + Result := X509_REQ_set_pubkey(x,pkey); +end; + +function Load_X509_REQ_get_pubkey(req: PX509_REQ): PEVP_PKEY; cdecl; +begin + X509_REQ_get_pubkey := LoadLibCryptoFunction('X509_REQ_get_pubkey'); + if not assigned(X509_REQ_get_pubkey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_get_pubkey'); + Result := X509_REQ_get_pubkey(req); +end; + +function Load_X509_REQ_get0_pubkey(req: PX509_REQ): PEVP_PKEY; cdecl; +begin + X509_REQ_get0_pubkey := LoadLibCryptoFunction('X509_REQ_get0_pubkey'); + if not assigned(X509_REQ_get0_pubkey) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_get0_pubkey'); + Result := X509_REQ_get0_pubkey(req); +end; + +function Load_X509_REQ_get_X509_PUBKEY(req: PX509_REQ): PX509_PUBKEY; cdecl; +begin + X509_REQ_get_X509_PUBKEY := LoadLibCryptoFunction('X509_REQ_get_X509_PUBKEY'); + if not assigned(X509_REQ_get_X509_PUBKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_get_X509_PUBKEY'); + Result := X509_REQ_get_X509_PUBKEY(req); +end; + +function Load_X509_REQ_extension_nid(nid: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_extension_nid := LoadLibCryptoFunction('X509_REQ_extension_nid'); + if not assigned(X509_REQ_extension_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_extension_nid'); + Result := X509_REQ_extension_nid(nid); +end; + +function Load_X509_REQ_get_extension_nids: POpenSSL_C_INT; cdecl; +begin + X509_REQ_get_extension_nids := LoadLibCryptoFunction('X509_REQ_get_extension_nids'); + if not assigned(X509_REQ_get_extension_nids) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_get_extension_nids'); + Result := X509_REQ_get_extension_nids(); +end; + +procedure Load_X509_REQ_set_extension_nids(nids: POpenSSL_C_INT); cdecl; +begin + X509_REQ_set_extension_nids := LoadLibCryptoFunction('X509_REQ_set_extension_nids'); + if not assigned(X509_REQ_set_extension_nids) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_set_extension_nids'); + X509_REQ_set_extension_nids(nids); +end; + +function Load_X509_REQ_get_attr_count(const req: PX509_REQ): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_get_attr_count := LoadLibCryptoFunction('X509_REQ_get_attr_count'); + if not assigned(X509_REQ_get_attr_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_get_attr_count'); + Result := X509_REQ_get_attr_count(req); +end; + +function Load_X509_REQ_get_attr_by_NID(const req: PX509_REQ; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_get_attr_by_NID := LoadLibCryptoFunction('X509_REQ_get_attr_by_NID'); + if not assigned(X509_REQ_get_attr_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_get_attr_by_NID'); + Result := X509_REQ_get_attr_by_NID(req,nid,lastpos); +end; + +function Load_X509_REQ_get_attr_by_OBJ(const req: PX509_REQ; const obj: ASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_get_attr_by_OBJ := LoadLibCryptoFunction('X509_REQ_get_attr_by_OBJ'); + if not assigned(X509_REQ_get_attr_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_get_attr_by_OBJ'); + Result := X509_REQ_get_attr_by_OBJ(req,obj,lastpos); +end; + +function Load_X509_REQ_get_attr(const req: PX509_REQ; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +begin + X509_REQ_get_attr := LoadLibCryptoFunction('X509_REQ_get_attr'); + if not assigned(X509_REQ_get_attr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_get_attr'); + Result := X509_REQ_get_attr(req,loc); +end; + +function Load_X509_REQ_delete_attr(req: PX509_REQ; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +begin + X509_REQ_delete_attr := LoadLibCryptoFunction('X509_REQ_delete_attr'); + if not assigned(X509_REQ_delete_attr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_delete_attr'); + Result := X509_REQ_delete_attr(req,loc); +end; + +function Load_X509_REQ_add1_attr(req: PX509_REQ; attr: PX509_ATTRIBUTE): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_add1_attr := LoadLibCryptoFunction('X509_REQ_add1_attr'); + if not assigned(X509_REQ_add1_attr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_add1_attr'); + Result := X509_REQ_add1_attr(req,attr); +end; + +function Load_X509_REQ_add1_attr_by_OBJ(req: PX509_REQ; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_add1_attr_by_OBJ := LoadLibCryptoFunction('X509_REQ_add1_attr_by_OBJ'); + if not assigned(X509_REQ_add1_attr_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_add1_attr_by_OBJ'); + Result := X509_REQ_add1_attr_by_OBJ(req,obj,type_,bytes,len); +end; + +function Load_X509_REQ_add1_attr_by_NID(req: PX509_REQ; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_add1_attr_by_NID := LoadLibCryptoFunction('X509_REQ_add1_attr_by_NID'); + if not assigned(X509_REQ_add1_attr_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_add1_attr_by_NID'); + Result := X509_REQ_add1_attr_by_NID(req,nid,type_,bytes,len); +end; + +function Load_X509_REQ_add1_attr_by_txt(req: PX509_REQ; const attrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_add1_attr_by_txt := LoadLibCryptoFunction('X509_REQ_add1_attr_by_txt'); + if not assigned(X509_REQ_add1_attr_by_txt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_add1_attr_by_txt'); + Result := X509_REQ_add1_attr_by_txt(req,attrname,type_,bytes,len); +end; + +function Load_X509_CRL_set_version(x: PX509_CRL; version: TOpenSSL_C_LONG): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_set_version := LoadLibCryptoFunction('X509_CRL_set_version'); + if not assigned(X509_CRL_set_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_set_version'); + Result := X509_CRL_set_version(x,version); +end; + +function Load_X509_CRL_set_issuer_name(x: PX509_CRL; name: PX509_NAME): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_set_issuer_name := LoadLibCryptoFunction('X509_CRL_set_issuer_name'); + if not assigned(X509_CRL_set_issuer_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_set_issuer_name'); + Result := X509_CRL_set_issuer_name(x,name); +end; + +function Load_X509_CRL_set1_lastUpdate(x: PX509_CRL; const tm: PASN1_TIME): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_set1_lastUpdate := LoadLibCryptoFunction('X509_CRL_set1_lastUpdate'); + if not assigned(X509_CRL_set1_lastUpdate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_set1_lastUpdate'); + Result := X509_CRL_set1_lastUpdate(x,tm); +end; + +function Load_X509_CRL_set1_nextUpdate(x: PX509_CRL; const tm: PASN1_TIME): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_set1_nextUpdate := LoadLibCryptoFunction('X509_CRL_set1_nextUpdate'); + if not assigned(X509_CRL_set1_nextUpdate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_set1_nextUpdate'); + Result := X509_CRL_set1_nextUpdate(x,tm); +end; + +function Load_X509_CRL_sort(crl: PX509_CRL): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_sort := LoadLibCryptoFunction('X509_CRL_sort'); + if not assigned(X509_CRL_sort) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_sort'); + Result := X509_CRL_sort(crl); +end; + +function Load_X509_CRL_up_ref(crl: PX509_CRL): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_up_ref := LoadLibCryptoFunction('X509_CRL_up_ref'); + if not assigned(X509_CRL_up_ref) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_up_ref'); + Result := X509_CRL_up_ref(crl); +end; + +function Load_X509_CRL_get_version(const crl: PX509_CRL): TOpenSSL_C_LONG; cdecl; +begin + X509_CRL_get_version := LoadLibCryptoFunction('X509_CRL_get_version'); + if not assigned(X509_CRL_get_version) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_get_version'); + Result := X509_CRL_get_version(crl); +end; + +function Load_X509_CRL_get0_lastUpdate(const crl: PX509_CRL): PASN1_TIME; cdecl; +begin + X509_CRL_get0_lastUpdate := LoadLibCryptoFunction('X509_CRL_get0_lastUpdate'); + if not assigned(X509_CRL_get0_lastUpdate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_get0_lastUpdate'); + Result := X509_CRL_get0_lastUpdate(crl); +end; + +function Load_X509_CRL_get0_nextUpdate(const crl: PX509_CRL): PASN1_TIME; cdecl; +begin + X509_CRL_get0_nextUpdate := LoadLibCryptoFunction('X509_CRL_get0_nextUpdate'); + if not assigned(X509_CRL_get0_nextUpdate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_get0_nextUpdate'); + Result := X509_CRL_get0_nextUpdate(crl); +end; + +function Load_X509_CRL_get_issuer(const crl: PX509_CRL): PX509_NAME; cdecl; +begin + X509_CRL_get_issuer := LoadLibCryptoFunction('X509_CRL_get_issuer'); + if not assigned(X509_CRL_get_issuer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_get_issuer'); + Result := X509_CRL_get_issuer(crl); +end; + +procedure Load_X509_CRL_get0_signature(const crl: PX509_CRL; const psig: PPASN1_BIT_STRING; const palg: PPX509_ALGOR); cdecl; +begin + X509_CRL_get0_signature := LoadLibCryptoFunction('X509_CRL_get0_signature'); + if not assigned(X509_CRL_get0_signature) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_get0_signature'); + X509_CRL_get0_signature(crl,psig,palg); +end; + +function Load_X509_CRL_get_signature_nid(const crl: PX509_CRL): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_get_signature_nid := LoadLibCryptoFunction('X509_CRL_get_signature_nid'); + if not assigned(X509_CRL_get_signature_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_get_signature_nid'); + Result := X509_CRL_get_signature_nid(crl); +end; + +function Load_i2d_re_X509_CRL_tbs(req: PX509_CRL; pp: PPByte): TOpenSSL_C_INT; cdecl; +begin + i2d_re_X509_CRL_tbs := LoadLibCryptoFunction('i2d_re_X509_CRL_tbs'); + if not assigned(i2d_re_X509_CRL_tbs) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2d_re_X509_CRL_tbs'); + Result := i2d_re_X509_CRL_tbs(req,pp); +end; + +function Load_X509_REVOKED_get0_serialNumber(const x: PX509_REVOKED): PASN1_INTEGER; cdecl; +begin + X509_REVOKED_get0_serialNumber := LoadLibCryptoFunction('X509_REVOKED_get0_serialNumber'); + if not assigned(X509_REVOKED_get0_serialNumber) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REVOKED_get0_serialNumber'); + Result := X509_REVOKED_get0_serialNumber(x); +end; + +function Load_X509_REVOKED_set_serialNumber(x: PX509_REVOKED; serial: PASN1_INTEGER): TOpenSSL_C_INT; cdecl; +begin + X509_REVOKED_set_serialNumber := LoadLibCryptoFunction('X509_REVOKED_set_serialNumber'); + if not assigned(X509_REVOKED_set_serialNumber) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REVOKED_set_serialNumber'); + Result := X509_REVOKED_set_serialNumber(x,serial); +end; + +function Load_X509_REVOKED_get0_revocationDate(const x: PX509_REVOKED): PASN1_TIME; cdecl; +begin + X509_REVOKED_get0_revocationDate := LoadLibCryptoFunction('X509_REVOKED_get0_revocationDate'); + if not assigned(X509_REVOKED_get0_revocationDate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REVOKED_get0_revocationDate'); + Result := X509_REVOKED_get0_revocationDate(x); +end; + +function Load_X509_REVOKED_set_revocationDate(r: PX509_REVOKED; tm: PASN1_TIME): TOpenSSL_C_INT; cdecl; +begin + X509_REVOKED_set_revocationDate := LoadLibCryptoFunction('X509_REVOKED_set_revocationDate'); + if not assigned(X509_REVOKED_set_revocationDate) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REVOKED_set_revocationDate'); + Result := X509_REVOKED_set_revocationDate(r,tm); +end; + +function Load_X509_CRL_diff(base: PX509_CRL; newer: PX509_CRL; skey: PEVP_PKEY; const md: PEVP_MD; flags: TOpenSSL_C_UINT): PX509_CRL; cdecl; +begin + X509_CRL_diff := LoadLibCryptoFunction('X509_CRL_diff'); + if not assigned(X509_CRL_diff) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_diff'); + Result := X509_CRL_diff(base,newer,skey,md,flags); +end; + +function Load_X509_REQ_check_private_key(x509: PX509_REQ; pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_check_private_key := LoadLibCryptoFunction('X509_REQ_check_private_key'); + if not assigned(X509_REQ_check_private_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_check_private_key'); + Result := X509_REQ_check_private_key(x509,pkey); +end; + +function Load_X509_check_private_key(const x509: PX509; const pkey: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + X509_check_private_key := LoadLibCryptoFunction('X509_check_private_key'); + if not assigned(X509_check_private_key) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_check_private_key'); + Result := X509_check_private_key(x509,pkey); +end; + +function Load_X509_CRL_check_suiteb(crl: PX509_CRL; pk: PEVP_PKEY; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_check_suiteb := LoadLibCryptoFunction('X509_CRL_check_suiteb'); + if not assigned(X509_CRL_check_suiteb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_check_suiteb'); + Result := X509_CRL_check_suiteb(crl,pk,flags); +end; + +function Load_X509_issuer_and_serial_cmp(const a: PX509; const b: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_issuer_and_serial_cmp := LoadLibCryptoFunction('X509_issuer_and_serial_cmp'); + if not assigned(X509_issuer_and_serial_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_issuer_and_serial_cmp'); + Result := X509_issuer_and_serial_cmp(a,b); +end; + +function Load_X509_issuer_and_serial_hash(a: PX509): TOpenSSL_C_ULONG; cdecl; +begin + X509_issuer_and_serial_hash := LoadLibCryptoFunction('X509_issuer_and_serial_hash'); + if not assigned(X509_issuer_and_serial_hash) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_issuer_and_serial_hash'); + Result := X509_issuer_and_serial_hash(a); +end; + +function Load_X509_issuer_name_cmp(const a: PX509; const b: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_issuer_name_cmp := LoadLibCryptoFunction('X509_issuer_name_cmp'); + if not assigned(X509_issuer_name_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_issuer_name_cmp'); + Result := X509_issuer_name_cmp(a,b); +end; + +function Load_X509_issuer_name_hash(a: PX509): TOpenSSL_C_uLONG; cdecl; +begin + X509_issuer_name_hash := LoadLibCryptoFunction('X509_issuer_name_hash'); + if not assigned(X509_issuer_name_hash) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_issuer_name_hash'); + Result := X509_issuer_name_hash(a); +end; + +function Load_X509_subject_name_cmp(const a: PX509; const b: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_subject_name_cmp := LoadLibCryptoFunction('X509_subject_name_cmp'); + if not assigned(X509_subject_name_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_subject_name_cmp'); + Result := X509_subject_name_cmp(a,b); +end; + +function Load_X509_subject_name_hash(x: PX509): TOpenSSL_C_ULONG; cdecl; +begin + X509_subject_name_hash := LoadLibCryptoFunction('X509_subject_name_hash'); + if not assigned(X509_subject_name_hash) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_subject_name_hash'); + Result := X509_subject_name_hash(x); +end; + +function Load_X509_cmp(const a: PX509; const b: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_cmp := LoadLibCryptoFunction('X509_cmp'); + if not assigned(X509_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_cmp'); + Result := X509_cmp(a,b); +end; + +function Load_X509_NAME_cmp(const a: PX509_NAME; const b: PX509_NAME): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_cmp := LoadLibCryptoFunction('X509_NAME_cmp'); + if not assigned(X509_NAME_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_cmp'); + Result := X509_NAME_cmp(a,b); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_X509_NAME_hash(x: PX509_NAME): TOpenSSL_C_ULONG; cdecl; +begin + X509_NAME_hash := LoadLibCryptoFunction('X509_NAME_hash'); + if not assigned(X509_NAME_hash) then + X509_NAME_hash := @COMPAT_X509_NAME_hash; + Result := X509_NAME_hash(x); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_X509_NAME_hash_old(x: PX509_NAME): TOpenSSL_C_ULONG; cdecl; +begin + X509_NAME_hash_old := LoadLibCryptoFunction('X509_NAME_hash_old'); + if not assigned(X509_NAME_hash_old) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_hash_old'); + Result := X509_NAME_hash_old(x); +end; + +function Load_X509_CRL_cmp(const a: PX509_CRL; const b: PX509_CRL): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_cmp := LoadLibCryptoFunction('X509_CRL_cmp'); + if not assigned(X509_CRL_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_cmp'); + Result := X509_CRL_cmp(a,b); +end; + +function Load_X509_CRL_match(const a: PX509_CRL; const b: PX509_CRL): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_match := LoadLibCryptoFunction('X509_CRL_match'); + if not assigned(X509_CRL_match) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_match'); + Result := X509_CRL_match(a,b); +end; + +function Load_X509_aux_print(out_: PBIO; x: PX509; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_aux_print := LoadLibCryptoFunction('X509_aux_print'); + if not assigned(X509_aux_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_aux_print'); + Result := X509_aux_print(out_,x,indent); +end; + +function Load_X509_NAME_print(bp: PBIO; const name: PX509_NAME; obase: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_print := LoadLibCryptoFunction('X509_NAME_print'); + if not assigned(X509_NAME_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_print'); + Result := X509_NAME_print(bp,name,obase); +end; + +function Load_X509_NAME_print_ex(out_: PBIO; const nm: PX509_NAME; indent: TOpenSSL_C_INT; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_print_ex := LoadLibCryptoFunction('X509_NAME_print_ex'); + if not assigned(X509_NAME_print_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_print_ex'); + Result := X509_NAME_print_ex(out_,nm,indent,flags); +end; + +function Load_X509_print_ex(bp: PBIO; x: PX509; nmflag: TOpenSSL_C_ULONG; cflag: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + X509_print_ex := LoadLibCryptoFunction('X509_print_ex'); + if not assigned(X509_print_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_print_ex'); + Result := X509_print_ex(bp,x,nmflag,cflag); +end; + +function Load_X509_print(bp: PBIO; x: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_print := LoadLibCryptoFunction('X509_print'); + if not assigned(X509_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_print'); + Result := X509_print(bp,x); +end; + +function Load_X509_ocspid_print(bp: PBIO; x: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_ocspid_print := LoadLibCryptoFunction('X509_ocspid_print'); + if not assigned(X509_ocspid_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ocspid_print'); + Result := X509_ocspid_print(bp,x); +end; + +function Load_X509_CRL_print_ex(out_: PBIO; x: PX509_CRL; nmflag: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_print_ex := LoadLibCryptoFunction('X509_CRL_print_ex'); + if not assigned(X509_CRL_print_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_print_ex'); + Result := X509_CRL_print_ex(out_,x,nmflag); +end; + +function Load_X509_CRL_print(bp: PBIO; x: PX509_CRL): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_print := LoadLibCryptoFunction('X509_CRL_print'); + if not assigned(X509_CRL_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_print'); + Result := X509_CRL_print(bp,x); +end; + +function Load_X509_REQ_print_ex(bp: PBIO; x: PX509_REQ; nmflag: TOpenSSL_C_ULONG; cflag: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_print_ex := LoadLibCryptoFunction('X509_REQ_print_ex'); + if not assigned(X509_REQ_print_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_print_ex'); + Result := X509_REQ_print_ex(bp,x,nmflag,cflag); +end; + +function Load_X509_REQ_print(bp: PBIO; req: PX509_REQ): TOpenSSL_C_INT; cdecl; +begin + X509_REQ_print := LoadLibCryptoFunction('X509_REQ_print'); + if not assigned(X509_REQ_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_print'); + Result := X509_REQ_print(bp,req); +end; + +function Load_X509_NAME_entry_count(const name: PX509_NAME): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_entry_count := LoadLibCryptoFunction('X509_NAME_entry_count'); + if not assigned(X509_NAME_entry_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_entry_count'); + Result := X509_NAME_entry_count(name); +end; + +function Load_X509_NAME_get_text_by_NID(name: PX509_NAME; nid: TOpenSSL_C_INT; buf: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_get_text_by_NID := LoadLibCryptoFunction('X509_NAME_get_text_by_NID'); + if not assigned(X509_NAME_get_text_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_get_text_by_NID'); + Result := X509_NAME_get_text_by_NID(name,nid,buf,len); +end; + +function Load_X509_NAME_get_text_by_OBJ(name: PX509_NAME; const obj: PASN1_OBJECT; buf: PAnsiChar; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_get_text_by_OBJ := LoadLibCryptoFunction('X509_NAME_get_text_by_OBJ'); + if not assigned(X509_NAME_get_text_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_get_text_by_OBJ'); + Result := X509_NAME_get_text_by_OBJ(name,obj,buf,len); +end; + +function Load_X509_NAME_get_index_by_NID(name: PX509_NAME; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_get_index_by_NID := LoadLibCryptoFunction('X509_NAME_get_index_by_NID'); + if not assigned(X509_NAME_get_index_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_get_index_by_NID'); + Result := X509_NAME_get_index_by_NID(name,nid,lastpos); +end; + +function Load_X509_NAME_get_index_by_OBJ(name: PX509_NAME; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_get_index_by_OBJ := LoadLibCryptoFunction('X509_NAME_get_index_by_OBJ'); + if not assigned(X509_NAME_get_index_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_get_index_by_OBJ'); + Result := X509_NAME_get_index_by_OBJ(name,obj,lastpos); +end; + +function Load_X509_NAME_get_entry(const name: PX509_NAME; loc: TOpenSSL_C_INT): PX509_NAME_ENTRY; cdecl; +begin + X509_NAME_get_entry := LoadLibCryptoFunction('X509_NAME_get_entry'); + if not assigned(X509_NAME_get_entry) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_get_entry'); + Result := X509_NAME_get_entry(name,loc); +end; + +function Load_X509_NAME_delete_entry(name: PX509_NAME; loc: TOpenSSL_C_INT): pX509_NAME_ENTRY; cdecl; +begin + X509_NAME_delete_entry := LoadLibCryptoFunction('X509_NAME_delete_entry'); + if not assigned(X509_NAME_delete_entry) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_delete_entry'); + Result := X509_NAME_delete_entry(name,loc); +end; + +function Load_X509_NAME_add_entry(name: PX509_NAME; const ne: PX509_NAME_ENTRY; loc: TOpenSSL_C_INT; set_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_add_entry := LoadLibCryptoFunction('X509_NAME_add_entry'); + if not assigned(X509_NAME_add_entry) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_add_entry'); + Result := X509_NAME_add_entry(name,ne,loc,set_); +end; + +function Load_X509_NAME_add_entry_by_OBJ(name: PX509_NAME; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT; loc: TOpenSSL_C_INT; set_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_add_entry_by_OBJ := LoadLibCryptoFunction('X509_NAME_add_entry_by_OBJ'); + if not assigned(X509_NAME_add_entry_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_add_entry_by_OBJ'); + Result := X509_NAME_add_entry_by_OBJ(name,obj,type_,bytes,len,loc,set_); +end; + +function Load_X509_NAME_add_entry_by_NID(name: PX509_NAME; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT; loc: TOpenSSL_C_INT; set_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_add_entry_by_NID := LoadLibCryptoFunction('X509_NAME_add_entry_by_NID'); + if not assigned(X509_NAME_add_entry_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_add_entry_by_NID'); + Result := X509_NAME_add_entry_by_NID(name,nid,type_,bytes,len,loc,set_); +end; + +function Load_X509_NAME_ENTRY_create_by_txt(ne: PPX509_NAME_ENTRY; const field: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): PX509_NAME_ENTRY; cdecl; +begin + X509_NAME_ENTRY_create_by_txt := LoadLibCryptoFunction('X509_NAME_ENTRY_create_by_txt'); + if not assigned(X509_NAME_ENTRY_create_by_txt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_ENTRY_create_by_txt'); + Result := X509_NAME_ENTRY_create_by_txt(ne,field,type_,bytes,len); +end; + +function Load_X509_NAME_ENTRY_create_by_NID(ne: PPX509_NAME_ENTRY; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): PX509_NAME_ENTRY; cdecl; +begin + X509_NAME_ENTRY_create_by_NID := LoadLibCryptoFunction('X509_NAME_ENTRY_create_by_NID'); + if not assigned(X509_NAME_ENTRY_create_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_ENTRY_create_by_NID'); + Result := X509_NAME_ENTRY_create_by_NID(ne,nid,type_,bytes,len); +end; + +function Load_X509_NAME_add_entry_by_txt(name: PX509_NAME; const field: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT; loc: TOpenSSL_C_INT; set_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_add_entry_by_txt := LoadLibCryptoFunction('X509_NAME_add_entry_by_txt'); + if not assigned(X509_NAME_add_entry_by_txt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_add_entry_by_txt'); + Result := X509_NAME_add_entry_by_txt(name,field,type_,bytes,len,loc,set_); +end; + +function Load_X509_NAME_ENTRY_create_by_OBJ(ne: PPX509_NAME_ENTRY; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): PX509_NAME_ENTRY; cdecl; +begin + X509_NAME_ENTRY_create_by_OBJ := LoadLibCryptoFunction('X509_NAME_ENTRY_create_by_OBJ'); + if not assigned(X509_NAME_ENTRY_create_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_ENTRY_create_by_OBJ'); + Result := X509_NAME_ENTRY_create_by_OBJ(ne,obj,type_,bytes,len); +end; + +function Load_X509_NAME_ENTRY_set_object(ne: PX509_NAME_ENTRY; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_ENTRY_set_object := LoadLibCryptoFunction('X509_NAME_ENTRY_set_object'); + if not assigned(X509_NAME_ENTRY_set_object) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_ENTRY_set_object'); + Result := X509_NAME_ENTRY_set_object(ne,obj); +end; + +function Load_X509_NAME_ENTRY_set_data(ne: PX509_NAME_ENTRY; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_ENTRY_set_data := LoadLibCryptoFunction('X509_NAME_ENTRY_set_data'); + if not assigned(X509_NAME_ENTRY_set_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_ENTRY_set_data'); + Result := X509_NAME_ENTRY_set_data(ne,type_,bytes,len); +end; + +function Load_X509_NAME_ENTRY_get_object(const ne: PX509_NAME_ENTRY): PASN1_OBJECT; cdecl; +begin + X509_NAME_ENTRY_get_object := LoadLibCryptoFunction('X509_NAME_ENTRY_get_object'); + if not assigned(X509_NAME_ENTRY_get_object) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_ENTRY_get_object'); + Result := X509_NAME_ENTRY_get_object(ne); +end; + +function Load_X509_NAME_ENTRY_get_data(const ne: PX509_NAME_ENTRY): PASN1_STRING; cdecl; +begin + X509_NAME_ENTRY_get_data := LoadLibCryptoFunction('X509_NAME_ENTRY_get_data'); + if not assigned(X509_NAME_ENTRY_get_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_ENTRY_get_data'); + Result := X509_NAME_ENTRY_get_data(ne); +end; + +function Load_X509_NAME_ENTRY_set(const ne: PX509_NAME_ENTRY): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_ENTRY_set := LoadLibCryptoFunction('X509_NAME_ENTRY_set'); + if not assigned(X509_NAME_ENTRY_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_ENTRY_set'); + Result := X509_NAME_ENTRY_set(ne); +end; + +function Load_X509_NAME_get0_der(nm: PX509_NAME; const pder: PPByte; pderlen: POpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + X509_NAME_get0_der := LoadLibCryptoFunction('X509_NAME_get0_der'); + if not assigned(X509_NAME_get0_der) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_get0_der'); + Result := X509_NAME_get0_der(nm,pder,pderlen); +end; + +function Load_X509_get_ext_count(const x: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_get_ext_count := LoadLibCryptoFunction('X509_get_ext_count'); + if not assigned(X509_get_ext_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_ext_count'); + Result := X509_get_ext_count(x); +end; + +function Load_X509_get_ext_by_NID(const x: PX509; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_get_ext_by_NID := LoadLibCryptoFunction('X509_get_ext_by_NID'); + if not assigned(X509_get_ext_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_ext_by_NID'); + Result := X509_get_ext_by_NID(x,nid,lastpos); +end; + +function Load_X509_get_ext_by_OBJ(const x: PX509; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_get_ext_by_OBJ := LoadLibCryptoFunction('X509_get_ext_by_OBJ'); + if not assigned(X509_get_ext_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_ext_by_OBJ'); + Result := X509_get_ext_by_OBJ(x,obj,lastpos); +end; + +function Load_X509_get_ext_by_critical(const x: PX509; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_get_ext_by_critical := LoadLibCryptoFunction('X509_get_ext_by_critical'); + if not assigned(X509_get_ext_by_critical) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_ext_by_critical'); + Result := X509_get_ext_by_critical(x,crit,lastpos); +end; + +function Load_X509_get_ext(const x: PX509; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; +begin + X509_get_ext := LoadLibCryptoFunction('X509_get_ext'); + if not assigned(X509_get_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_ext'); + Result := X509_get_ext(x,loc); +end; + +function Load_X509_delete_ext(x: PX509; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; +begin + X509_delete_ext := LoadLibCryptoFunction('X509_delete_ext'); + if not assigned(X509_delete_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_delete_ext'); + Result := X509_delete_ext(x,loc); +end; + +function Load_X509_add_ext(x: PX509; ex: PX509_EXTENSION; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_add_ext := LoadLibCryptoFunction('X509_add_ext'); + if not assigned(X509_add_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_add_ext'); + Result := X509_add_ext(x,ex,loc); +end; + +function Load_X509_get_ext_d2i(const x: PX509; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl; +begin + X509_get_ext_d2i := LoadLibCryptoFunction('X509_get_ext_d2i'); + if not assigned(X509_get_ext_d2i) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_ext_d2i'); + Result := X509_get_ext_d2i(x,nid,crit,idx); +end; + +function Load_X509_add1_ext_i2d(x: PX509; nid: TOpenSSL_C_INT; value: Pointer; crit: TOpenSSL_C_INT; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + X509_add1_ext_i2d := LoadLibCryptoFunction('X509_add1_ext_i2d'); + if not assigned(X509_add1_ext_i2d) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_add1_ext_i2d'); + Result := X509_add1_ext_i2d(x,nid,value,crit,flags); +end; + +function Load_X509_CRL_get_ext_count(const x: PX509_CRL): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_get_ext_count := LoadLibCryptoFunction('X509_CRL_get_ext_count'); + if not assigned(X509_CRL_get_ext_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_get_ext_count'); + Result := X509_CRL_get_ext_count(x); +end; + +function Load_X509_CRL_get_ext_by_NID(const x: PX509_CRL; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_get_ext_by_NID := LoadLibCryptoFunction('X509_CRL_get_ext_by_NID'); + if not assigned(X509_CRL_get_ext_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_get_ext_by_NID'); + Result := X509_CRL_get_ext_by_NID(x,nid,lastpos); +end; + +function Load_X509_CRL_get_ext_by_OBJ(const x: X509_CRL; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_get_ext_by_OBJ := LoadLibCryptoFunction('X509_CRL_get_ext_by_OBJ'); + if not assigned(X509_CRL_get_ext_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_get_ext_by_OBJ'); + Result := X509_CRL_get_ext_by_OBJ(x,obj,lastpos); +end; + +function Load_X509_CRL_get_ext_by_critical(const x: PX509_CRL; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_get_ext_by_critical := LoadLibCryptoFunction('X509_CRL_get_ext_by_critical'); + if not assigned(X509_CRL_get_ext_by_critical) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_get_ext_by_critical'); + Result := X509_CRL_get_ext_by_critical(x,crit,lastpos); +end; + +function Load_X509_CRL_get_ext(const x: PX509_CRL; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; +begin + X509_CRL_get_ext := LoadLibCryptoFunction('X509_CRL_get_ext'); + if not assigned(X509_CRL_get_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_get_ext'); + Result := X509_CRL_get_ext(x,loc); +end; + +function Load_X509_CRL_delete_ext(x: PX509_CRL; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; +begin + X509_CRL_delete_ext := LoadLibCryptoFunction('X509_CRL_delete_ext'); + if not assigned(X509_CRL_delete_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_delete_ext'); + Result := X509_CRL_delete_ext(x,loc); +end; + +function Load_X509_CRL_add_ext(x: PX509_CRL; ex: PX509_EXTENSION; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_add_ext := LoadLibCryptoFunction('X509_CRL_add_ext'); + if not assigned(X509_CRL_add_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_add_ext'); + Result := X509_CRL_add_ext(x,ex,loc); +end; + +function Load_X509_CRL_get_ext_d2i(const x: PX509_CRL; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl; +begin + X509_CRL_get_ext_d2i := LoadLibCryptoFunction('X509_CRL_get_ext_d2i'); + if not assigned(X509_CRL_get_ext_d2i) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_get_ext_d2i'); + Result := X509_CRL_get_ext_d2i(x,nid,crit,idx); +end; + +function Load_X509_CRL_add1_ext_i2d(x: PX509_CRL; nid: TOpenSSL_C_INT; value: Pointer; crit: TOpenSSL_C_INT; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + X509_CRL_add1_ext_i2d := LoadLibCryptoFunction('X509_CRL_add1_ext_i2d'); + if not assigned(X509_CRL_add1_ext_i2d) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_CRL_add1_ext_i2d'); + Result := X509_CRL_add1_ext_i2d(x,nid,value,crit,flags); +end; + +function Load_X509_REVOKED_get_ext_count(const x: PX509_REVOKED): TOpenSSL_C_INT; cdecl; +begin + X509_REVOKED_get_ext_count := LoadLibCryptoFunction('X509_REVOKED_get_ext_count'); + if not assigned(X509_REVOKED_get_ext_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REVOKED_get_ext_count'); + Result := X509_REVOKED_get_ext_count(x); +end; + +function Load_X509_REVOKED_get_ext_by_NID(const x: PX509_REVOKED; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_REVOKED_get_ext_by_NID := LoadLibCryptoFunction('X509_REVOKED_get_ext_by_NID'); + if not assigned(X509_REVOKED_get_ext_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REVOKED_get_ext_by_NID'); + Result := X509_REVOKED_get_ext_by_NID(x,nid,lastpos); +end; + +function Load_X509_REVOKED_get_ext_by_OBJ(const x: PX509_REVOKED; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_REVOKED_get_ext_by_OBJ := LoadLibCryptoFunction('X509_REVOKED_get_ext_by_OBJ'); + if not assigned(X509_REVOKED_get_ext_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REVOKED_get_ext_by_OBJ'); + Result := X509_REVOKED_get_ext_by_OBJ(x,obj,lastpos); +end; + +function Load_X509_REVOKED_get_ext_by_critical(const x: PX509_REVOKED; crit: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_REVOKED_get_ext_by_critical := LoadLibCryptoFunction('X509_REVOKED_get_ext_by_critical'); + if not assigned(X509_REVOKED_get_ext_by_critical) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REVOKED_get_ext_by_critical'); + Result := X509_REVOKED_get_ext_by_critical(x,crit,lastpos); +end; + +function Load_X509_REVOKED_get_ext(const x: PX509_REVOKED; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; +begin + X509_REVOKED_get_ext := LoadLibCryptoFunction('X509_REVOKED_get_ext'); + if not assigned(X509_REVOKED_get_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REVOKED_get_ext'); + Result := X509_REVOKED_get_ext(x,loc); +end; + +function Load_X509_REVOKED_delete_ext(x: PX509_REVOKED; loc: TOpenSSL_C_INT): PX509_EXTENSION; cdecl; +begin + X509_REVOKED_delete_ext := LoadLibCryptoFunction('X509_REVOKED_delete_ext'); + if not assigned(X509_REVOKED_delete_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REVOKED_delete_ext'); + Result := X509_REVOKED_delete_ext(x,loc); +end; + +function Load_X509_REVOKED_add_ext(x: PX509_REVOKED; ex: PX509_EXTENSION; loc: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_REVOKED_add_ext := LoadLibCryptoFunction('X509_REVOKED_add_ext'); + if not assigned(X509_REVOKED_add_ext) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REVOKED_add_ext'); + Result := X509_REVOKED_add_ext(x,ex,loc); +end; + +function Load_X509_REVOKED_get_ext_d2i(const x: PX509_REVOKED; nid: TOpenSSL_C_INT; crit: POpenSSL_C_INT; idx: POpenSSL_C_INT): Pointer; cdecl; +begin + X509_REVOKED_get_ext_d2i := LoadLibCryptoFunction('X509_REVOKED_get_ext_d2i'); + if not assigned(X509_REVOKED_get_ext_d2i) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REVOKED_get_ext_d2i'); + Result := X509_REVOKED_get_ext_d2i(x,nid,crit,idx); +end; + +function Load_X509_REVOKED_add1_ext_i2d(x: PX509_REVOKED; nid: TOpenSSL_C_INT; value: Pointer; crit: TOpenSSL_C_INT; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + X509_REVOKED_add1_ext_i2d := LoadLibCryptoFunction('X509_REVOKED_add1_ext_i2d'); + if not assigned(X509_REVOKED_add1_ext_i2d) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REVOKED_add1_ext_i2d'); + Result := X509_REVOKED_add1_ext_i2d(x,nid,value,crit,flags); +end; + +function Load_X509_EXTENSION_create_by_NID(ex: PPX509_EXTENSION; nid: TOpenSSL_C_INT; crit: TOpenSSL_C_INT; data: PASN1_OCTET_STRING): PX509_EXTENSION; cdecl; +begin + X509_EXTENSION_create_by_NID := LoadLibCryptoFunction('X509_EXTENSION_create_by_NID'); + if not assigned(X509_EXTENSION_create_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_EXTENSION_create_by_NID'); + Result := X509_EXTENSION_create_by_NID(ex,nid,crit,data); +end; + +function Load_X509_EXTENSION_create_by_OBJ(ex: PPX509_EXTENSION; const obj: PASN1_OBJECT; crit: TOpenSSL_C_INT; data: PASN1_OCTET_STRING): PX509_EXTENSION; cdecl; +begin + X509_EXTENSION_create_by_OBJ := LoadLibCryptoFunction('X509_EXTENSION_create_by_OBJ'); + if not assigned(X509_EXTENSION_create_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_EXTENSION_create_by_OBJ'); + Result := X509_EXTENSION_create_by_OBJ(ex,obj,crit,data); +end; + +function Load_X509_EXTENSION_set_object(ex: PX509_EXTENSION; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +begin + X509_EXTENSION_set_object := LoadLibCryptoFunction('X509_EXTENSION_set_object'); + if not assigned(X509_EXTENSION_set_object) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_EXTENSION_set_object'); + Result := X509_EXTENSION_set_object(ex,obj); +end; + +function Load_X509_EXTENSION_set_critical(ex: PX509_EXTENSION; crit: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_EXTENSION_set_critical := LoadLibCryptoFunction('X509_EXTENSION_set_critical'); + if not assigned(X509_EXTENSION_set_critical) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_EXTENSION_set_critical'); + Result := X509_EXTENSION_set_critical(ex,crit); +end; + +function Load_X509_EXTENSION_set_data(ex: PX509_EXTENSION; data: PASN1_OCTET_STRING): TOpenSSL_C_INT; cdecl; +begin + X509_EXTENSION_set_data := LoadLibCryptoFunction('X509_EXTENSION_set_data'); + if not assigned(X509_EXTENSION_set_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_EXTENSION_set_data'); + Result := X509_EXTENSION_set_data(ex,data); +end; + +function Load_X509_EXTENSION_get_object(ex: PX509_EXTENSION): PASN1_OBJECT; cdecl; +begin + X509_EXTENSION_get_object := LoadLibCryptoFunction('X509_EXTENSION_get_object'); + if not assigned(X509_EXTENSION_get_object) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_EXTENSION_get_object'); + Result := X509_EXTENSION_get_object(ex); +end; + +function Load_X509_EXTENSION_get_data(ne: PX509_EXTENSION): PASN1_OCTET_STRING; cdecl; +begin + X509_EXTENSION_get_data := LoadLibCryptoFunction('X509_EXTENSION_get_data'); + if not assigned(X509_EXTENSION_get_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_EXTENSION_get_data'); + Result := X509_EXTENSION_get_data(ne); +end; + +function Load_X509_EXTENSION_get_critical(const ex: PX509_EXTENSION): TOpenSSL_C_INT; cdecl; +begin + X509_EXTENSION_get_critical := LoadLibCryptoFunction('X509_EXTENSION_get_critical'); + if not assigned(X509_EXTENSION_get_critical) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_EXTENSION_get_critical'); + Result := X509_EXTENSION_get_critical(ex); +end; + +function Load_X509_ATTRIBUTE_create_by_NID(attr: PPX509_ATTRIBUTE; nid: TOpenSSL_C_INT; atrtype: TOpenSSL_C_INT; const data: Pointer; len: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +begin + X509_ATTRIBUTE_create_by_NID := LoadLibCryptoFunction('X509_ATTRIBUTE_create_by_NID'); + if not assigned(X509_ATTRIBUTE_create_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ATTRIBUTE_create_by_NID'); + Result := X509_ATTRIBUTE_create_by_NID(attr,nid,atrtype,data,len); +end; + +function Load_X509_ATTRIBUTE_create_by_OBJ(attr: PPX509_ATTRIBUTE; const obj: PASN1_OBJECT; atrtype: TOpenSSL_C_INT; const data: Pointer; len: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +begin + X509_ATTRIBUTE_create_by_OBJ := LoadLibCryptoFunction('X509_ATTRIBUTE_create_by_OBJ'); + if not assigned(X509_ATTRIBUTE_create_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ATTRIBUTE_create_by_OBJ'); + Result := X509_ATTRIBUTE_create_by_OBJ(attr,obj,atrtype,data,len); +end; + +function Load_X509_ATTRIBUTE_create_by_txt(attr: PPX509_ATTRIBUTE; const atrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +begin + X509_ATTRIBUTE_create_by_txt := LoadLibCryptoFunction('X509_ATTRIBUTE_create_by_txt'); + if not assigned(X509_ATTRIBUTE_create_by_txt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ATTRIBUTE_create_by_txt'); + Result := X509_ATTRIBUTE_create_by_txt(attr,atrname,type_,bytes,len); +end; + +function Load_X509_ATTRIBUTE_set1_object(attr: PX509_ATTRIBUTE; const obj: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +begin + X509_ATTRIBUTE_set1_object := LoadLibCryptoFunction('X509_ATTRIBUTE_set1_object'); + if not assigned(X509_ATTRIBUTE_set1_object) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ATTRIBUTE_set1_object'); + Result := X509_ATTRIBUTE_set1_object(attr,obj); +end; + +function Load_X509_ATTRIBUTE_set1_data(attr: PX509_ATTRIBUTE; attrtype: TOpenSSL_C_INT; const data: Pointer; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_ATTRIBUTE_set1_data := LoadLibCryptoFunction('X509_ATTRIBUTE_set1_data'); + if not assigned(X509_ATTRIBUTE_set1_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ATTRIBUTE_set1_data'); + Result := X509_ATTRIBUTE_set1_data(attr,attrtype,data,len); +end; + +function Load_X509_ATTRIBUTE_get0_data(attr: PX509_ATTRIBUTE; idx: TOpenSSL_C_INT; atrtype: TOpenSSL_C_INT; data: Pointer): Pointer; cdecl; +begin + X509_ATTRIBUTE_get0_data := LoadLibCryptoFunction('X509_ATTRIBUTE_get0_data'); + if not assigned(X509_ATTRIBUTE_get0_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ATTRIBUTE_get0_data'); + Result := X509_ATTRIBUTE_get0_data(attr,idx,atrtype,data); +end; + +function Load_X509_ATTRIBUTE_count(const attr: PX509_ATTRIBUTE): TOpenSSL_C_INT; cdecl; +begin + X509_ATTRIBUTE_count := LoadLibCryptoFunction('X509_ATTRIBUTE_count'); + if not assigned(X509_ATTRIBUTE_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ATTRIBUTE_count'); + Result := X509_ATTRIBUTE_count(attr); +end; + +function Load_X509_ATTRIBUTE_get0_object(attr: PX509_ATTRIBUTE): PASN1_OBJECT; cdecl; +begin + X509_ATTRIBUTE_get0_object := LoadLibCryptoFunction('X509_ATTRIBUTE_get0_object'); + if not assigned(X509_ATTRIBUTE_get0_object) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ATTRIBUTE_get0_object'); + Result := X509_ATTRIBUTE_get0_object(attr); +end; + +function Load_X509_ATTRIBUTE_get0_type(attr: PX509_ATTRIBUTE; idx: TOpenSSL_C_INT): PASN1_TYPE; cdecl; +begin + X509_ATTRIBUTE_get0_type := LoadLibCryptoFunction('X509_ATTRIBUTE_get0_type'); + if not assigned(X509_ATTRIBUTE_get0_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_ATTRIBUTE_get0_type'); + Result := X509_ATTRIBUTE_get0_type(attr,idx); +end; + +function Load_EVP_PKEY_get_attr_count(const key: PEVP_PKEY): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_get_attr_count := LoadLibCryptoFunction('EVP_PKEY_get_attr_count'); + if not assigned(EVP_PKEY_get_attr_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get_attr_count'); + Result := EVP_PKEY_get_attr_count(key); +end; + +function Load_EVP_PKEY_get_attr_by_NID(const key: PEVP_PKEY; nid: TOpenSSL_C_INT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_get_attr_by_NID := LoadLibCryptoFunction('EVP_PKEY_get_attr_by_NID'); + if not assigned(EVP_PKEY_get_attr_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get_attr_by_NID'); + Result := EVP_PKEY_get_attr_by_NID(key,nid,lastpos); +end; + +function Load_EVP_PKEY_get_attr_by_OBJ(const key: PEVP_PKEY; const obj: PASN1_OBJECT; lastpos: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_get_attr_by_OBJ := LoadLibCryptoFunction('EVP_PKEY_get_attr_by_OBJ'); + if not assigned(EVP_PKEY_get_attr_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get_attr_by_OBJ'); + Result := EVP_PKEY_get_attr_by_OBJ(key,obj,lastpos); +end; + +function Load_EVP_PKEY_get_attr(const key: PEVP_PKEY; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +begin + EVP_PKEY_get_attr := LoadLibCryptoFunction('EVP_PKEY_get_attr'); + if not assigned(EVP_PKEY_get_attr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_get_attr'); + Result := EVP_PKEY_get_attr(key,loc); +end; + +function Load_EVP_PKEY_delete_attr(key: PEVP_PKEY; loc: TOpenSSL_C_INT): PX509_ATTRIBUTE; cdecl; +begin + EVP_PKEY_delete_attr := LoadLibCryptoFunction('EVP_PKEY_delete_attr'); + if not assigned(EVP_PKEY_delete_attr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_delete_attr'); + Result := EVP_PKEY_delete_attr(key,loc); +end; + +function Load_EVP_PKEY_add1_attr(key: PEVP_PKEY; attr: PX509_ATTRIBUTE): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_add1_attr := LoadLibCryptoFunction('EVP_PKEY_add1_attr'); + if not assigned(EVP_PKEY_add1_attr) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_add1_attr'); + Result := EVP_PKEY_add1_attr(key,attr); +end; + +function Load_EVP_PKEY_add1_attr_by_OBJ(key: PEVP_PKEY; const obj: PASN1_OBJECT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_add1_attr_by_OBJ := LoadLibCryptoFunction('EVP_PKEY_add1_attr_by_OBJ'); + if not assigned(EVP_PKEY_add1_attr_by_OBJ) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_add1_attr_by_OBJ'); + Result := EVP_PKEY_add1_attr_by_OBJ(key,obj,type_,bytes,len); +end; + +function Load_EVP_PKEY_add1_attr_by_NID(key: PEVP_PKEY; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_add1_attr_by_NID := LoadLibCryptoFunction('EVP_PKEY_add1_attr_by_NID'); + if not assigned(EVP_PKEY_add1_attr_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_add1_attr_by_NID'); + Result := EVP_PKEY_add1_attr_by_NID(key,nid,type_,bytes,len); +end; + +function Load_EVP_PKEY_add1_attr_by_txt(key: PEVP_PKEY; const attrname: PAnsiChar; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + EVP_PKEY_add1_attr_by_txt := LoadLibCryptoFunction('EVP_PKEY_add1_attr_by_txt'); + if not assigned(EVP_PKEY_add1_attr_by_txt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY_add1_attr_by_txt'); + Result := EVP_PKEY_add1_attr_by_txt(key,attrname,type_,bytes,len); +end; + +function Load_X509_verify_cert(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; +begin + X509_verify_cert := LoadLibCryptoFunction('X509_verify_cert'); + if not assigned(X509_verify_cert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_verify_cert'); + Result := X509_verify_cert(ctx); +end; + +function Load_PKCS5_pbe_set0_algor(algor: PX509_ALGOR; alg: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; const salt: PByte; saltlen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS5_pbe_set0_algor := LoadLibCryptoFunction('PKCS5_pbe_set0_algor'); + if not assigned(PKCS5_pbe_set0_algor) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS5_pbe_set0_algor'); + Result := PKCS5_pbe_set0_algor(algor,alg,iter,salt,saltlen); +end; + +function Load_PKCS5_pbe_set(alg: TOpenSSL_C_INT; iter: TOpenSSL_C_INT; const salt: PByte; saltlen: TOpenSSL_C_INT): PX509_ALGOR; cdecl; +begin + PKCS5_pbe_set := LoadLibCryptoFunction('PKCS5_pbe_set'); + if not assigned(PKCS5_pbe_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS5_pbe_set'); + Result := PKCS5_pbe_set(alg,iter,salt,saltlen); +end; + +function Load_PKCS5_pbe2_set(const cipher: PEVP_CIPHER; iter: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT): PX509_ALGOR; cdecl; +begin + PKCS5_pbe2_set := LoadLibCryptoFunction('PKCS5_pbe2_set'); + if not assigned(PKCS5_pbe2_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS5_pbe2_set'); + Result := PKCS5_pbe2_set(cipher,iter,salt,saltlen); +end; + +function Load_PKCS5_pbe2_set_iv(const cipher: PEVP_CIPHER; iter: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; aiv: PByte; prf_nid: TOpenSSL_C_INT): PX509_ALGOR; cdecl; +begin + PKCS5_pbe2_set_iv := LoadLibCryptoFunction('PKCS5_pbe2_set_iv'); + if not assigned(PKCS5_pbe2_set_iv) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS5_pbe2_set_iv'); + Result := PKCS5_pbe2_set_iv(cipher,iter,salt,saltlen,aiv,prf_nid); +end; + +function Load_PKCS5_pbe2_set_scrypt(const cipher: PEVP_CIPHER; const salt: PByte; saltlen: TOpenSSL_C_INT; aiv: PByte; N: TOpenSSL_C_UINT64; r: TOpenSSL_C_UINT64; p: TOpenSSL_C_UINT64): PX509_ALGOR; cdecl; +begin + PKCS5_pbe2_set_scrypt := LoadLibCryptoFunction('PKCS5_pbe2_set_scrypt'); + if not assigned(PKCS5_pbe2_set_scrypt) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS5_pbe2_set_scrypt'); + Result := PKCS5_pbe2_set_scrypt(cipher,salt,saltlen,aiv,N,r,p); +end; + +function Load_PKCS5_pbkdf2_set(iter: TOpenSSL_C_INT; salt: PByte; saltlen: TOpenSSL_C_INT; prf_nid: TOpenSSL_C_INT; keylen: TOpenSSL_C_INT): PX509_ALGOR; cdecl; +begin + PKCS5_pbkdf2_set := LoadLibCryptoFunction('PKCS5_pbkdf2_set'); + if not assigned(PKCS5_pbkdf2_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS5_pbkdf2_set'); + Result := PKCS5_pbkdf2_set(iter,salt,saltlen,prf_nid,keylen); +end; + +function Load_EVP_PKCS82PKEY(const p8: PPKCS8_PRIV_KEY_INFO): PEVP_PKEY; cdecl; +begin + EVP_PKCS82PKEY := LoadLibCryptoFunction('EVP_PKCS82PKEY'); + if not assigned(EVP_PKCS82PKEY) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKCS82PKEY'); + Result := EVP_PKCS82PKEY(p8); +end; + +function Load_EVP_PKEY2PKCS8(pkey: PEVP_PKEY): PKCS8_PRIV_KEY_INFO; cdecl; +begin + EVP_PKEY2PKCS8 := LoadLibCryptoFunction('EVP_PKEY2PKCS8'); + if not assigned(EVP_PKEY2PKCS8) then + EOpenSSLAPIFunctionNotPresent.RaiseException('EVP_PKEY2PKCS8'); + Result := EVP_PKEY2PKCS8(pkey); +end; + +function Load_PKCS8_pkey_set0(priv: PPKCS8_PRIV_KEY_INFO; aobj: PASN1_OBJECT; version: TOpenSSL_C_INT; ptype: TOpenSSL_C_INT; pval: Pointer; penc: PByte; penclen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS8_pkey_set0 := LoadLibCryptoFunction('PKCS8_pkey_set0'); + if not assigned(PKCS8_pkey_set0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS8_pkey_set0'); + Result := PKCS8_pkey_set0(priv,aobj,version,ptype,pval,penc,penclen); +end; + +function Load_PKCS8_pkey_get0(const ppkalg: PPASN1_OBJECT; const pk: PPByte; ppklen: POpenSSL_C_INT; const pa: PPX509_ALGOR; const p8: PPKCS8_PRIV_KEY_INFO): TOpenSSL_C_INT; cdecl; +begin + PKCS8_pkey_get0 := LoadLibCryptoFunction('PKCS8_pkey_get0'); + if not assigned(PKCS8_pkey_get0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS8_pkey_get0'); + Result := PKCS8_pkey_get0(ppkalg,pk,ppklen,pa,p8); +end; + +function Load_PKCS8_pkey_add1_attr_by_NID(p8: PPKCS8_PRIV_KEY_INFO; nid: TOpenSSL_C_INT; type_: TOpenSSL_C_INT; const bytes: PByte; len: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + PKCS8_pkey_add1_attr_by_NID := LoadLibCryptoFunction('PKCS8_pkey_add1_attr_by_NID'); + if not assigned(PKCS8_pkey_add1_attr_by_NID) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PKCS8_pkey_add1_attr_by_NID'); + Result := PKCS8_pkey_add1_attr_by_NID(p8,nid,type_,bytes,len); +end; + +function Load_X509_PUBKEY_set0_param(pub: PX509_PUBKEY; aobj: PASN1_OBJECT; ptype: TOpenSSL_C_INT; pval: Pointer; penc: PByte; penclen: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_PUBKEY_set0_param := LoadLibCryptoFunction('X509_PUBKEY_set0_param'); + if not assigned(X509_PUBKEY_set0_param) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PUBKEY_set0_param'); + Result := X509_PUBKEY_set0_param(pub,aobj,ptype,pval,penc,penclen); +end; + +function Load_X509_PUBKEY_get0_param(ppkalg: PPASN1_OBJECT; const pk: PPByte; ppklen: POpenSSL_C_INT; pa: PPX509_ALGOR; pub: PX509_PUBKEY): TOpenSSL_C_INT; cdecl; +begin + X509_PUBKEY_get0_param := LoadLibCryptoFunction('X509_PUBKEY_get0_param'); + if not assigned(X509_PUBKEY_get0_param) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PUBKEY_get0_param'); + Result := X509_PUBKEY_get0_param(ppkalg,pk,ppklen,pa,pub); +end; + +function Load_X509_check_trust(x: PX509; id: TOpenSSL_C_INT; flags: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_check_trust := LoadLibCryptoFunction('X509_check_trust'); + if not assigned(X509_check_trust) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_check_trust'); + Result := X509_check_trust(x,id,flags); +end; + +function Load_X509_TRUST_get_count: TOpenSSL_C_INT; cdecl; +begin + X509_TRUST_get_count := LoadLibCryptoFunction('X509_TRUST_get_count'); + if not assigned(X509_TRUST_get_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_TRUST_get_count'); + Result := X509_TRUST_get_count(); +end; + +function Load_X509_TRUST_get0(idx: TOpenSSL_C_INT): PX509_TRUST; cdecl; +begin + X509_TRUST_get0 := LoadLibCryptoFunction('X509_TRUST_get0'); + if not assigned(X509_TRUST_get0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_TRUST_get0'); + Result := X509_TRUST_get0(idx); +end; + +function Load_X509_TRUST_get_by_id(id: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_TRUST_get_by_id := LoadLibCryptoFunction('X509_TRUST_get_by_id'); + if not assigned(X509_TRUST_get_by_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_TRUST_get_by_id'); + Result := X509_TRUST_get_by_id(id); +end; + +procedure Load_X509_TRUST_cleanup; cdecl; +begin + X509_TRUST_cleanup := LoadLibCryptoFunction('X509_TRUST_cleanup'); + if not assigned(X509_TRUST_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_TRUST_cleanup'); + X509_TRUST_cleanup(); +end; + +function Load_X509_TRUST_get_flags(const xp: PX509_TRUST): TOpenSSL_C_INT; cdecl; +begin + X509_TRUST_get_flags := LoadLibCryptoFunction('X509_TRUST_get_flags'); + if not assigned(X509_TRUST_get_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_TRUST_get_flags'); + Result := X509_TRUST_get_flags(xp); +end; + +function Load_X509_TRUST_get0_name(const xp: PX509_TRUST): PAnsiChar; cdecl; +begin + X509_TRUST_get0_name := LoadLibCryptoFunction('X509_TRUST_get0_name'); + if not assigned(X509_TRUST_get0_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_TRUST_get0_name'); + Result := X509_TRUST_get0_name(xp); +end; + +function Load_X509_TRUST_get_trust(const xp: PX509_TRUST): TOpenSSL_C_INT; cdecl; +begin + X509_TRUST_get_trust := LoadLibCryptoFunction('X509_TRUST_get_trust'); + if not assigned(X509_TRUST_get_trust) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_TRUST_get_trust'); + Result := X509_TRUST_get_trust(xp); +end; + +function Load_X509_NAME_hash_ex(const x: PX509_NAME; libctx: POSSL_LIB_CTX; const propq: PAnsiChar; ok: POpenSSL_C_INT): TOpenSSL_C_ULONG; cdecl; +begin + X509_NAME_hash_ex := LoadLibCryptoFunction('X509_NAME_hash_ex'); + if not assigned(X509_NAME_hash_ex) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_NAME_hash_ex'); + Result := X509_NAME_hash_ex(x,libctx,propq,ok); +end; + + +procedure UnLoad; +begin + X509_CRL_set_default_method := Load_X509_CRL_set_default_method; + X509_CRL_METHOD_free := Load_X509_CRL_METHOD_free; + X509_CRL_set_meth_data := Load_X509_CRL_set_meth_data; + X509_CRL_get_meth_data := Load_X509_CRL_get_meth_data; + X509_verify_cert_error_string := Load_X509_verify_cert_error_string; + X509_verify := Load_X509_verify; + X509_REQ_verify := Load_X509_REQ_verify; + X509_CRL_verify := Load_X509_CRL_verify; + NETSCAPE_SPKI_verify := Load_NETSCAPE_SPKI_verify; + NETSCAPE_SPKI_b64_decode := Load_NETSCAPE_SPKI_b64_decode; + NETSCAPE_SPKI_b64_encode := Load_NETSCAPE_SPKI_b64_encode; + NETSCAPE_SPKI_get_pubkey := Load_NETSCAPE_SPKI_get_pubkey; + NETSCAPE_SPKI_set_pubkey := Load_NETSCAPE_SPKI_set_pubkey; + NETSCAPE_SPKI_print := Load_NETSCAPE_SPKI_print; + X509_signature_dump := Load_X509_signature_dump; + X509_signature_print := Load_X509_signature_print; + X509_sign := Load_X509_sign; + X509_sign_ctx := Load_X509_sign_ctx; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + X509_http_nbio := Load_X509_http_nbio; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + X509_REQ_sign := Load_X509_REQ_sign; + X509_REQ_sign_ctx := Load_X509_REQ_sign_ctx; + X509_CRL_sign := Load_X509_CRL_sign; + X509_CRL_sign_ctx := Load_X509_CRL_sign_ctx; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + X509_CRL_http_nbio := Load_X509_CRL_http_nbio; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + NETSCAPE_SPKI_sign := Load_NETSCAPE_SPKI_sign; + X509_pubkey_digest := Load_X509_pubkey_digest; + X509_digest := Load_X509_digest; + X509_CRL_digest := Load_X509_CRL_digest; + X509_REQ_digest := Load_X509_REQ_digest; + X509_NAME_digest := Load_X509_NAME_digest; + d2i_X509_bio := Load_d2i_X509_bio; + i2d_X509_bio := Load_i2d_X509_bio; + d2i_X509_CRL_bio := Load_d2i_X509_CRL_bio; + i2d_X509_CRL_bio := Load_i2d_X509_CRL_bio; + d2i_X509_REQ_bio := Load_d2i_X509_REQ_bio; + i2d_X509_REQ_bio := Load_i2d_X509_REQ_bio; + d2i_RSAPrivateKey_bio := Load_d2i_RSAPrivateKey_bio; + i2d_RSAPrivateKey_bio := Load_i2d_RSAPrivateKey_bio; + d2i_RSAPublicKey_bio := Load_d2i_RSAPublicKey_bio; + i2d_RSAPublicKey_bio := Load_i2d_RSAPublicKey_bio; + d2i_RSA_PUBKEY_bio := Load_d2i_RSA_PUBKEY_bio; + i2d_RSA_PUBKEY_bio := Load_i2d_RSA_PUBKEY_bio; + d2i_DSA_PUBKEY_bio := Load_d2i_DSA_PUBKEY_bio; + i2d_DSA_PUBKEY_bio := Load_i2d_DSA_PUBKEY_bio; + d2i_DSAPrivateKey_bio := Load_d2i_DSAPrivateKey_bio; + i2d_DSAPrivateKey_bio := Load_i2d_DSAPrivateKey_bio; + d2i_EC_PUBKEY_bio := Load_d2i_EC_PUBKEY_bio; + i2d_EC_PUBKEY_bio := Load_i2d_EC_PUBKEY_bio; + d2i_ECPrivateKey_bio := Load_d2i_ECPrivateKey_bio; + i2d_ECPrivateKey_bio := Load_i2d_ECPrivateKey_bio; + d2i_PKCS8_bio := Load_d2i_PKCS8_bio; + i2d_PKCS8_bio := Load_i2d_PKCS8_bio; + d2i_PKCS8_PRIV_KEY_INFO_bio := Load_d2i_PKCS8_PRIV_KEY_INFO_bio; + i2d_PKCS8_PRIV_KEY_INFO_bio := Load_i2d_PKCS8_PRIV_KEY_INFO_bio; + i2d_PKCS8PrivateKeyInfo_bio := Load_i2d_PKCS8PrivateKeyInfo_bio; + i2d_PrivateKey_bio := Load_i2d_PrivateKey_bio; + d2i_PrivateKey_bio := Load_d2i_PrivateKey_bio; + i2d_PUBKEY_bio := Load_i2d_PUBKEY_bio; + d2i_PUBKEY_bio := Load_d2i_PUBKEY_bio; + X509_dup := Load_X509_dup; + X509_ATTRIBUTE_dup := Load_X509_ATTRIBUTE_dup; + X509_EXTENSION_dup := Load_X509_EXTENSION_dup; + X509_CRL_dup := Load_X509_CRL_dup; + X509_REVOKED_dup := Load_X509_REVOKED_dup; + X509_REQ_dup := Load_X509_REQ_dup; + X509_ALGOR_dup := Load_X509_ALGOR_dup; + X509_ALGOR_set0 := Load_X509_ALGOR_set0; + X509_ALGOR_get0 := Load_X509_ALGOR_get0; + X509_ALGOR_set_md := Load_X509_ALGOR_set_md; + X509_ALGOR_cmp := Load_X509_ALGOR_cmp; + X509_NAME_dup := Load_X509_NAME_dup; + X509_NAME_ENTRY_dup := Load_X509_NAME_ENTRY_dup; + X509_cmp_time := Load_X509_cmp_time; + X509_cmp_current_time := Load_X509_cmp_current_time; + X509_time_adj := Load_X509_time_adj; + X509_time_adj_ex := Load_X509_time_adj_ex; + X509_gmtime_adj := Load_X509_gmtime_adj; + X509_get_default_cert_area := Load_X509_get_default_cert_area; + X509_get_default_cert_dir := Load_X509_get_default_cert_dir; + X509_get_default_cert_file := Load_X509_get_default_cert_file; + X509_get_default_cert_dir_env := Load_X509_get_default_cert_dir_env; + X509_get_default_cert_file_env := Load_X509_get_default_cert_file_env; + X509_get_default_private_dir := Load_X509_get_default_private_dir; + X509_to_X509_REQ := Load_X509_to_X509_REQ; + X509_REQ_to_X509 := Load_X509_REQ_to_X509; + X509_ALGOR_new := Load_X509_ALGOR_new; + X509_ALGOR_free := Load_X509_ALGOR_free; + d2i_X509_ALGOR := Load_d2i_X509_ALGOR; + i2d_X509_ALGOR := Load_i2d_X509_ALGOR; + X509_VAL_new := Load_X509_VAL_new; + X509_VAL_free := Load_X509_VAL_free; + d2i_X509_VAL := Load_d2i_X509_VAL; + i2d_X509_VAL := Load_i2d_X509_VAL; + X509_PUBKEY_new := Load_X509_PUBKEY_new; + X509_PUBKEY_free := Load_X509_PUBKEY_free; + d2i_X509_PUBKEY := Load_d2i_X509_PUBKEY; + i2d_X509_PUBKEY := Load_i2d_X509_PUBKEY; + X509_PUBKEY_set := Load_X509_PUBKEY_set; + X509_PUBKEY_get0 := Load_X509_PUBKEY_get0; + X509_PUBKEY_get := Load_X509_PUBKEY_get; + X509_get_pathlen := Load_X509_get_pathlen; + i2d_PUBKEY := Load_i2d_PUBKEY; + d2i_PUBKEY := Load_d2i_PUBKEY; + i2d_RSA_PUBKEY := Load_i2d_RSA_PUBKEY; + d2i_RSA_PUBKEY := Load_d2i_RSA_PUBKEY; + i2d_DSA_PUBKEY := Load_i2d_DSA_PUBKEY; + d2i_DSA_PUBKEY := Load_d2i_DSA_PUBKEY; + i2d_EC_PUBKEY := Load_i2d_EC_PUBKEY; + d2i_EC_PUBKEY := Load_d2i_EC_PUBKEY; + X509_SIG_new := Load_X509_SIG_new; + X509_SIG_free := Load_X509_SIG_free; + d2i_X509_SIG := Load_d2i_X509_SIG; + i2d_X509_SIG := Load_i2d_X509_SIG; + X509_SIG_get0 := Load_X509_SIG_get0; + X509_SIG_getm := Load_X509_SIG_getm; + X509_REQ_INFO_new := Load_X509_REQ_INFO_new; + X509_REQ_INFO_free := Load_X509_REQ_INFO_free; + d2i_X509_REQ_INFO := Load_d2i_X509_REQ_INFO; + i2d_X509_REQ_INFO := Load_i2d_X509_REQ_INFO; + X509_REQ_new := Load_X509_REQ_new; + X509_REQ_free := Load_X509_REQ_free; + d2i_X509_REQ := Load_d2i_X509_REQ; + i2d_X509_REQ := Load_i2d_X509_REQ; + X509_ATTRIBUTE_new := Load_X509_ATTRIBUTE_new; + X509_ATTRIBUTE_free := Load_X509_ATTRIBUTE_free; + d2i_X509_ATTRIBUTE := Load_d2i_X509_ATTRIBUTE; + i2d_X509_ATTRIBUTE := Load_i2d_X509_ATTRIBUTE; + X509_ATTRIBUTE_create := Load_X509_ATTRIBUTE_create; + X509_EXTENSION_new := Load_X509_EXTENSION_new; + X509_EXTENSION_free := Load_X509_EXTENSION_free; + d2i_X509_EXTENSION := Load_d2i_X509_EXTENSION; + i2d_X509_EXTENSION := Load_i2d_X509_EXTENSION; + X509_NAME_ENTRY_new := Load_X509_NAME_ENTRY_new; + X509_NAME_ENTRY_free := Load_X509_NAME_ENTRY_free; + d2i_X509_NAME_ENTRY := Load_d2i_X509_NAME_ENTRY; + i2d_X509_NAME_ENTRY := Load_i2d_X509_NAME_ENTRY; + X509_NAME_new := Load_X509_NAME_new; + X509_NAME_free := Load_X509_NAME_free; + d2i_X509_NAME := Load_d2i_X509_NAME; + i2d_X509_NAME := Load_i2d_X509_NAME; + X509_NAME_set := Load_X509_NAME_set; + X509_new := Load_X509_new; + X509_free := Load_X509_free; + d2i_X509 := Load_d2i_X509; + i2d_X509 := Load_i2d_X509; + X509_set_ex_data := Load_X509_set_ex_data; + X509_get_ex_data := Load_X509_get_ex_data; + i2d_X509_AUX := Load_i2d_X509_AUX; + d2i_X509_AUX := Load_d2i_X509_AUX; + i2d_re_X509_tbs := Load_i2d_re_X509_tbs; + X509_SIG_INFO_get := Load_X509_SIG_INFO_get; + X509_SIG_INFO_set := Load_X509_SIG_INFO_set; + X509_get_signature_info := Load_X509_get_signature_info; + X509_get0_signature := Load_X509_get0_signature; + X509_get_signature_nid := Load_X509_get_signature_nid; + X509_trusted := Load_X509_trusted; + X509_alias_set1 := Load_X509_alias_set1; + X509_keyid_set1 := Load_X509_keyid_set1; + X509_alias_get0 := Load_X509_alias_get0; + X509_keyid_get0 := Load_X509_keyid_get0; + X509_TRUST_set := Load_X509_TRUST_set; + X509_add1_trust_object := Load_X509_add1_trust_object; + X509_add1_reject_object := Load_X509_add1_reject_object; + X509_trust_clear := Load_X509_trust_clear; + X509_reject_clear := Load_X509_reject_clear; + X509_REVOKED_new := Load_X509_REVOKED_new; + X509_REVOKED_free := Load_X509_REVOKED_free; + d2i_X509_REVOKED := Load_d2i_X509_REVOKED; + i2d_X509_REVOKED := Load_i2d_X509_REVOKED; + X509_CRL_INFO_new := Load_X509_CRL_INFO_new; + X509_CRL_INFO_free := Load_X509_CRL_INFO_free; + d2i_X509_CRL_INFO := Load_d2i_X509_CRL_INFO; + i2d_X509_CRL_INFO := Load_i2d_X509_CRL_INFO; + X509_CRL_new := Load_X509_CRL_new; + X509_CRL_free := Load_X509_CRL_free; + d2i_X509_CRL := Load_d2i_X509_CRL; + i2d_X509_CRL := Load_i2d_X509_CRL; + X509_CRL_add0_revoked := Load_X509_CRL_add0_revoked; + X509_CRL_get0_by_serial := Load_X509_CRL_get0_by_serial; + X509_CRL_get0_by_cert := Load_X509_CRL_get0_by_cert; + X509_PKEY_new := Load_X509_PKEY_new; + X509_PKEY_free := Load_X509_PKEY_free; + X509_INFO_new := Load_X509_INFO_new; + X509_INFO_free := Load_X509_INFO_free; + X509_NAME_oneline := Load_X509_NAME_oneline; + ASN1_item_digest := Load_ASN1_item_digest; + ASN1_item_verify := Load_ASN1_item_verify; + ASN1_item_sign := Load_ASN1_item_sign; + ASN1_item_sign_ctx := Load_ASN1_item_sign_ctx; + X509_get_version := Load_X509_get_version; + X509_set_version := Load_X509_set_version; + X509_set_serialNumber := Load_X509_set_serialNumber; + X509_get_serialNumber := Load_X509_get_serialNumber; + X509_get0_serialNumber := Load_X509_get0_serialNumber; + X509_set_issuer_name := Load_X509_set_issuer_name; + X509_get_issuer_name := Load_X509_get_issuer_name; + X509_set_subject_name := Load_X509_set_subject_name; + X509_get_subject_name := Load_X509_get_subject_name; + X509_get0_notBefore := Load_X509_get0_notBefore; + X509_getm_notBefore := Load_X509_getm_notBefore; + X509_set1_notBefore := Load_X509_set1_notBefore; + X509_get0_notAfter := Load_X509_get0_notAfter; + X509_getm_notAfter := Load_X509_getm_notAfter; + X509_set1_notAfter := Load_X509_set1_notAfter; + X509_set_pubkey := Load_X509_set_pubkey; + X509_up_ref := Load_X509_up_ref; + X509_get_signature_type := Load_X509_get_signature_type; + X509_get_X509_PUBKEY := Load_X509_get_X509_PUBKEY; + X509_get0_uids := Load_X509_get0_uids; + X509_get0_tbs_sigalg := Load_X509_get0_tbs_sigalg; + X509_get0_pubkey := Load_X509_get0_pubkey; + X509_get_pubkey := Load_X509_get_pubkey; + X509_get0_pubkey_bitstr := Load_X509_get0_pubkey_bitstr; + X509_certificate_type := Load_X509_certificate_type; + X509_REQ_get_version := Load_X509_REQ_get_version; + X509_REQ_set_version := Load_X509_REQ_set_version; + X509_REQ_get_subject_name := Load_X509_REQ_get_subject_name; + X509_REQ_set_subject_name := Load_X509_REQ_set_subject_name; + X509_REQ_get0_signature := Load_X509_REQ_get0_signature; + X509_REQ_get_signature_nid := Load_X509_REQ_get_signature_nid; + i2d_re_X509_REQ_tbs := Load_i2d_re_X509_REQ_tbs; + X509_REQ_set_pubkey := Load_X509_REQ_set_pubkey; + X509_REQ_get_pubkey := Load_X509_REQ_get_pubkey; + X509_REQ_get0_pubkey := Load_X509_REQ_get0_pubkey; + X509_REQ_get_X509_PUBKEY := Load_X509_REQ_get_X509_PUBKEY; + X509_REQ_extension_nid := Load_X509_REQ_extension_nid; + X509_REQ_get_extension_nids := Load_X509_REQ_get_extension_nids; + X509_REQ_set_extension_nids := Load_X509_REQ_set_extension_nids; + X509_REQ_get_attr_count := Load_X509_REQ_get_attr_count; + X509_REQ_get_attr_by_NID := Load_X509_REQ_get_attr_by_NID; + X509_REQ_get_attr_by_OBJ := Load_X509_REQ_get_attr_by_OBJ; + X509_REQ_get_attr := Load_X509_REQ_get_attr; + X509_REQ_delete_attr := Load_X509_REQ_delete_attr; + X509_REQ_add1_attr := Load_X509_REQ_add1_attr; + X509_REQ_add1_attr_by_OBJ := Load_X509_REQ_add1_attr_by_OBJ; + X509_REQ_add1_attr_by_NID := Load_X509_REQ_add1_attr_by_NID; + X509_REQ_add1_attr_by_txt := Load_X509_REQ_add1_attr_by_txt; + X509_CRL_set_version := Load_X509_CRL_set_version; + X509_CRL_set_issuer_name := Load_X509_CRL_set_issuer_name; + X509_CRL_set1_lastUpdate := Load_X509_CRL_set1_lastUpdate; + X509_CRL_set1_nextUpdate := Load_X509_CRL_set1_nextUpdate; + X509_CRL_sort := Load_X509_CRL_sort; + X509_CRL_up_ref := Load_X509_CRL_up_ref; + X509_CRL_get_version := Load_X509_CRL_get_version; + X509_CRL_get0_lastUpdate := Load_X509_CRL_get0_lastUpdate; + X509_CRL_get0_nextUpdate := Load_X509_CRL_get0_nextUpdate; + X509_CRL_get_issuer := Load_X509_CRL_get_issuer; + X509_CRL_get0_signature := Load_X509_CRL_get0_signature; + X509_CRL_get_signature_nid := Load_X509_CRL_get_signature_nid; + i2d_re_X509_CRL_tbs := Load_i2d_re_X509_CRL_tbs; + X509_REVOKED_get0_serialNumber := Load_X509_REVOKED_get0_serialNumber; + X509_REVOKED_set_serialNumber := Load_X509_REVOKED_set_serialNumber; + X509_REVOKED_get0_revocationDate := Load_X509_REVOKED_get0_revocationDate; + X509_REVOKED_set_revocationDate := Load_X509_REVOKED_set_revocationDate; + X509_CRL_diff := Load_X509_CRL_diff; + X509_REQ_check_private_key := Load_X509_REQ_check_private_key; + X509_check_private_key := Load_X509_check_private_key; + X509_CRL_check_suiteb := Load_X509_CRL_check_suiteb; + X509_issuer_and_serial_cmp := Load_X509_issuer_and_serial_cmp; + X509_issuer_and_serial_hash := Load_X509_issuer_and_serial_hash; + X509_issuer_name_cmp := Load_X509_issuer_name_cmp; + X509_issuer_name_hash := Load_X509_issuer_name_hash; + X509_subject_name_cmp := Load_X509_subject_name_cmp; + X509_subject_name_hash := Load_X509_subject_name_hash; + X509_cmp := Load_X509_cmp; + X509_NAME_cmp := Load_X509_NAME_cmp; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + X509_NAME_hash := Load_X509_NAME_hash; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + X509_NAME_hash_old := Load_X509_NAME_hash_old; + X509_CRL_cmp := Load_X509_CRL_cmp; + X509_CRL_match := Load_X509_CRL_match; + X509_aux_print := Load_X509_aux_print; + X509_NAME_print := Load_X509_NAME_print; + X509_NAME_print_ex := Load_X509_NAME_print_ex; + X509_print_ex := Load_X509_print_ex; + X509_print := Load_X509_print; + X509_ocspid_print := Load_X509_ocspid_print; + X509_CRL_print_ex := Load_X509_CRL_print_ex; + X509_CRL_print := Load_X509_CRL_print; + X509_REQ_print_ex := Load_X509_REQ_print_ex; + X509_REQ_print := Load_X509_REQ_print; + X509_NAME_entry_count := Load_X509_NAME_entry_count; + X509_NAME_get_text_by_NID := Load_X509_NAME_get_text_by_NID; + X509_NAME_get_text_by_OBJ := Load_X509_NAME_get_text_by_OBJ; + X509_NAME_get_index_by_NID := Load_X509_NAME_get_index_by_NID; + X509_NAME_get_index_by_OBJ := Load_X509_NAME_get_index_by_OBJ; + X509_NAME_get_entry := Load_X509_NAME_get_entry; + X509_NAME_delete_entry := Load_X509_NAME_delete_entry; + X509_NAME_add_entry := Load_X509_NAME_add_entry; + X509_NAME_add_entry_by_OBJ := Load_X509_NAME_add_entry_by_OBJ; + X509_NAME_add_entry_by_NID := Load_X509_NAME_add_entry_by_NID; + X509_NAME_ENTRY_create_by_txt := Load_X509_NAME_ENTRY_create_by_txt; + X509_NAME_ENTRY_create_by_NID := Load_X509_NAME_ENTRY_create_by_NID; + X509_NAME_add_entry_by_txt := Load_X509_NAME_add_entry_by_txt; + X509_NAME_ENTRY_create_by_OBJ := Load_X509_NAME_ENTRY_create_by_OBJ; + X509_NAME_ENTRY_set_object := Load_X509_NAME_ENTRY_set_object; + X509_NAME_ENTRY_set_data := Load_X509_NAME_ENTRY_set_data; + X509_NAME_ENTRY_get_object := Load_X509_NAME_ENTRY_get_object; + X509_NAME_ENTRY_get_data := Load_X509_NAME_ENTRY_get_data; + X509_NAME_ENTRY_set := Load_X509_NAME_ENTRY_set; + X509_NAME_get0_der := Load_X509_NAME_get0_der; + X509_get_ext_count := Load_X509_get_ext_count; + X509_get_ext_by_NID := Load_X509_get_ext_by_NID; + X509_get_ext_by_OBJ := Load_X509_get_ext_by_OBJ; + X509_get_ext_by_critical := Load_X509_get_ext_by_critical; + X509_get_ext := Load_X509_get_ext; + X509_delete_ext := Load_X509_delete_ext; + X509_add_ext := Load_X509_add_ext; + X509_get_ext_d2i := Load_X509_get_ext_d2i; + X509_add1_ext_i2d := Load_X509_add1_ext_i2d; + X509_CRL_get_ext_count := Load_X509_CRL_get_ext_count; + X509_CRL_get_ext_by_NID := Load_X509_CRL_get_ext_by_NID; + X509_CRL_get_ext_by_OBJ := Load_X509_CRL_get_ext_by_OBJ; + X509_CRL_get_ext_by_critical := Load_X509_CRL_get_ext_by_critical; + X509_CRL_get_ext := Load_X509_CRL_get_ext; + X509_CRL_delete_ext := Load_X509_CRL_delete_ext; + X509_CRL_add_ext := Load_X509_CRL_add_ext; + X509_CRL_get_ext_d2i := Load_X509_CRL_get_ext_d2i; + X509_CRL_add1_ext_i2d := Load_X509_CRL_add1_ext_i2d; + X509_REVOKED_get_ext_count := Load_X509_REVOKED_get_ext_count; + X509_REVOKED_get_ext_by_NID := Load_X509_REVOKED_get_ext_by_NID; + X509_REVOKED_get_ext_by_OBJ := Load_X509_REVOKED_get_ext_by_OBJ; + X509_REVOKED_get_ext_by_critical := Load_X509_REVOKED_get_ext_by_critical; + X509_REVOKED_get_ext := Load_X509_REVOKED_get_ext; + X509_REVOKED_delete_ext := Load_X509_REVOKED_delete_ext; + X509_REVOKED_add_ext := Load_X509_REVOKED_add_ext; + X509_REVOKED_get_ext_d2i := Load_X509_REVOKED_get_ext_d2i; + X509_REVOKED_add1_ext_i2d := Load_X509_REVOKED_add1_ext_i2d; + X509_EXTENSION_create_by_NID := Load_X509_EXTENSION_create_by_NID; + X509_EXTENSION_create_by_OBJ := Load_X509_EXTENSION_create_by_OBJ; + X509_EXTENSION_set_object := Load_X509_EXTENSION_set_object; + X509_EXTENSION_set_critical := Load_X509_EXTENSION_set_critical; + X509_EXTENSION_set_data := Load_X509_EXTENSION_set_data; + X509_EXTENSION_get_object := Load_X509_EXTENSION_get_object; + X509_EXTENSION_get_data := Load_X509_EXTENSION_get_data; + X509_EXTENSION_get_critical := Load_X509_EXTENSION_get_critical; + X509_ATTRIBUTE_create_by_NID := Load_X509_ATTRIBUTE_create_by_NID; + X509_ATTRIBUTE_create_by_OBJ := Load_X509_ATTRIBUTE_create_by_OBJ; + X509_ATTRIBUTE_create_by_txt := Load_X509_ATTRIBUTE_create_by_txt; + X509_ATTRIBUTE_set1_object := Load_X509_ATTRIBUTE_set1_object; + X509_ATTRIBUTE_set1_data := Load_X509_ATTRIBUTE_set1_data; + X509_ATTRIBUTE_get0_data := Load_X509_ATTRIBUTE_get0_data; + X509_ATTRIBUTE_count := Load_X509_ATTRIBUTE_count; + X509_ATTRIBUTE_get0_object := Load_X509_ATTRIBUTE_get0_object; + X509_ATTRIBUTE_get0_type := Load_X509_ATTRIBUTE_get0_type; + EVP_PKEY_get_attr_count := Load_EVP_PKEY_get_attr_count; + EVP_PKEY_get_attr_by_NID := Load_EVP_PKEY_get_attr_by_NID; + EVP_PKEY_get_attr_by_OBJ := Load_EVP_PKEY_get_attr_by_OBJ; + EVP_PKEY_get_attr := Load_EVP_PKEY_get_attr; + EVP_PKEY_delete_attr := Load_EVP_PKEY_delete_attr; + EVP_PKEY_add1_attr := Load_EVP_PKEY_add1_attr; + EVP_PKEY_add1_attr_by_OBJ := Load_EVP_PKEY_add1_attr_by_OBJ; + EVP_PKEY_add1_attr_by_NID := Load_EVP_PKEY_add1_attr_by_NID; + EVP_PKEY_add1_attr_by_txt := Load_EVP_PKEY_add1_attr_by_txt; + X509_verify_cert := Load_X509_verify_cert; + PKCS5_pbe_set0_algor := Load_PKCS5_pbe_set0_algor; + PKCS5_pbe_set := Load_PKCS5_pbe_set; + PKCS5_pbe2_set := Load_PKCS5_pbe2_set; + PKCS5_pbe2_set_iv := Load_PKCS5_pbe2_set_iv; + PKCS5_pbe2_set_scrypt := Load_PKCS5_pbe2_set_scrypt; + PKCS5_pbkdf2_set := Load_PKCS5_pbkdf2_set; + EVP_PKCS82PKEY := Load_EVP_PKCS82PKEY; + EVP_PKEY2PKCS8 := Load_EVP_PKEY2PKCS8; + PKCS8_pkey_set0 := Load_PKCS8_pkey_set0; + PKCS8_pkey_get0 := Load_PKCS8_pkey_get0; + PKCS8_pkey_add1_attr_by_NID := Load_PKCS8_pkey_add1_attr_by_NID; + X509_PUBKEY_set0_param := Load_X509_PUBKEY_set0_param; + X509_PUBKEY_get0_param := Load_X509_PUBKEY_get0_param; + X509_check_trust := Load_X509_check_trust; + X509_TRUST_get_count := Load_X509_TRUST_get_count; + X509_TRUST_get0 := Load_X509_TRUST_get0; + X509_TRUST_get_by_id := Load_X509_TRUST_get_by_id; + X509_TRUST_cleanup := Load_X509_TRUST_cleanup; + X509_TRUST_get_flags := Load_X509_TRUST_get_flags; + X509_TRUST_get0_name := Load_X509_TRUST_get0_name; + X509_TRUST_get_trust := Load_X509_TRUST_get_trust; + X509_NAME_hash_ex := Load_X509_NAME_hash_ex; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_x509_vfy.pas b/src/opensslHdrs/IdOpenSSLHeaders_x509_vfy.pas new file mode 100644 index 0000000..578acd5 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_x509_vfy.pas @@ -0,0 +1,2605 @@ +(* This unit was generated from the source file x509_vfy.h2pas +It should not be modified directly. All changes should be made to x509_vfy.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_x509_vfy; + + +interface + +// Headers for OpenSSL 1.1.1 +// x509_vfy.h + + +{$MINENUMSIZE 4} +{$MINENUMSIZE 4} + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ssl, + IdOpenSSLHeaders_ossl_typ; + +const + X509_L_FILE_LOAD = 1; + X509_L_ADD_DIR = 2; + + X509_V_OK = 0; + X509_V_ERR_UNSPECIFIED = 1; + X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT = 2; + X509_V_ERR_UNABLE_TO_GET_CRL = 3; + X509_V_ERR_UNABLE_TO_DECRYPT_CERT_SIGNATURE = 4; + X509_V_ERR_UNABLE_TO_DECRYPT_CRL_SIGNATURE = 5; + X509_V_ERR_UNABLE_TO_DECODE_ISSUER_PUBLIC_KEY = 6; + X509_V_ERR_CERT_SIGNATURE_FAILURE = 7; + X509_V_ERR_CRL_SIGNATURE_FAILURE = 8; + X509_V_ERR_CERT_NOT_YET_VALID = 9; + X509_V_ERR_CERT_HAS_EXPIRED = 10; + X509_V_ERR_CRL_NOT_YET_VALID = 11; + X509_V_ERR_CRL_HAS_EXPIRED = 12; + X509_V_ERR_ERROR_IN_CERT_NOT_BEFORE_FIELD = 13; + X509_V_ERR_ERROR_IN_CERT_NOT_AFTER_FIELD = 14; + X509_V_ERR_ERROR_IN_CRL_LAST_UPDATE_FIELD = 15; + X509_V_ERR_ERROR_IN_CRL_NEXT_UPDATE_FIELD = 16; + X509_V_ERR_OUT_OF_MEM = 17; + X509_V_ERR_DEPTH_ZERO_SELF_SIGNED_CERT = 18; + X509_V_ERR_SELF_SIGNED_CERT_IN_CHAIN = 19; + X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT_LOCALLY = 20; + X509_V_ERR_UNABLE_TO_VERIFY_LEAF_SIGNATURE = 21; + X509_V_ERR_CERT_CHAIN_TOO_LONG = 22; + X509_V_ERR_CERT_REVOKED = 23; + X509_V_ERR_INVALID_CA = 24; + X509_V_ERR_PATH_LENGTH_EXCEEDED = 25; + X509_V_ERR_INVALID_PURPOSE = 26; + X509_V_ERR_CERT_UNTRUSTED = 27; + X509_V_ERR_CERT_REJECTED = 28; + (* These are 'informational' when looking for issuer cert *) + X509_V_ERR_SUBJECT_ISSUER_MISMATCH = 29; + X509_V_ERR_AKID_SKID_MISMATCH = 30; + X509_V_ERR_AKID_ISSUER_SERIAL_MISMATCH = 31; + X509_V_ERR_KEYUSAGE_NO_CERTSIGN = 32; + X509_V_ERR_UNABLE_TO_GET_CRL_ISSUER = 33; + X509_V_ERR_UNHANDLED_CRITICAL_EXTENSION = 34; + X509_V_ERR_KEYUSAGE_NO_CRL_SIGN = 35; + X509_V_ERR_UNHANDLED_CRITICAL_CRL_EXTENSION = 36; + X509_V_ERR_INVALID_NON_CA = 37; + X509_V_ERR_PROXY_PATH_LENGTH_EXCEEDED = 38; + X509_V_ERR_KEYUSAGE_NO_DIGITAL_SIGNATURE = 39; + X509_V_ERR_PROXY_CERTIFICATES_NOT_ALLOWED = 40; + X509_V_ERR_INVALID_EXTENSION = 41; + X509_V_ERR_INVALID_POLICY_EXTENSION = 42; + X509_V_ERR_NO_EXPLICIT_POLICY = 43; + X509_V_ERR_DIFFERENT_CRL_SCOPE = 44; + X509_V_ERR_UNSUPPORTED_EXTENSION_FEATURE = 45; + X509_V_ERR_UNNESTED_RESOURCE = 46; + X509_V_ERR_PERMITTED_VIOLATION = 47; + X509_V_ERR_EXCLUDED_VIOLATION = 48; + X509_V_ERR_SUBTREE_MINMAX = 49; + (* The application is not happy *) + X509_V_ERR_APPLICATION_VERIFICATION = 50; + X509_V_ERR_UNSUPPORTED_CONSTRAINT_TYPE = 51; + X509_V_ERR_UNSUPPORTED_CONSTRAINT_SYNTAX = 52; + X509_V_ERR_UNSUPPORTED_NAME_SYNTAX = 53; + X509_V_ERR_CRL_PATH_VALIDATION_ERROR = 54; + (* Another issuer check debug option *) + X509_V_ERR_PATH_LOOP = 55; + (* Suite B mode algorithm violation *) + X509_V_ERR_SUITE_B_INVALID_VERSION = 56; + X509_V_ERR_SUITE_B_INVALID_ALGORITHM = 57; + X509_V_ERR_SUITE_B_INVALID_CURVE = 58; + X509_V_ERR_SUITE_B_INVALID_SIGNATURE_ALGORITHM = 59; + X509_V_ERR_SUITE_B_LOS_NOT_ALLOWED = 60; + X509_V_ERR_SUITE_B_CANNOT_SIGN_P_384_WITH_P_256 = 61; + (* Host, email and IP check errors *) + X509_V_ERR_HOSTNAME_MISMATCH = 62; + X509_V_ERR_EMAIL_MISMATCH = 63; + X509_V_ERR_IP_ADDRESS_MISMATCH = 64; + (* DANE TLSA errors *) + X509_V_ERR_DANE_NO_MATCH = 65; + (* security level errors *) + X509_V_ERR_EE_KEY_TOO_SMALL = 66; + X509_V_ERR_CA_KEY_TOO_SMALL = 67; + X509_V_ERR_CA_MD_TOO_WEAK = 68; + (* Caller error *) + X509_V_ERR_INVALID_CALL = 69; + (* Issuer lookup error *) + X509_V_ERR_STORE_LOOKUP = 70; + (* Certificate transparency *) + X509_V_ERR_NO_VALID_SCTS = 71; + + X509_V_ERR_PROXY_SUBJECT_NAME_VIOLATION = 72; + (* OCSP status errors *) + X509_V_ERR_OCSP_VERIFY_NEEDED = 73; (* Need OCSP verification *) + X509_V_ERR_OCSP_VERIFY_FAILED = 74; (* Couldn't verify cert through OCSP *) + X509_V_ERR_OCSP_CERT_UNKNOWN = 75; (* Certificate wasn't recognized by the OCSP responder *) + + (* Certificate verify flags *) + + (* Use check time instead of current time *) + X509_V_FLAG_USE_CHECK_TIME = $2; + (* Lookup CRLs *) + X509_V_FLAG_CRL_CHECK = $4; + (* Lookup CRLs for whole chain *) + X509_V_FLAG_CRL_CHECK_ALL = $8; + (* Ignore unhandled critical extensions *) + X509_V_FLAG_IGNORE_CRITICAL = $10; + (* Disable workarounds for broken certificates *) + X509_V_FLAG_X509_STRICT = $20; + (* Enable proxy certificate validation *) + X509_V_FLAG_ALLOW_PROXY_CERTS = $40; + (* Enable policy checking *) + X509_V_FLAG_POLICY_CHECK = $80; + (* Policy variable require-explicit-policy *) + X509_V_FLAG_EXPLICIT_POLICY = $100; + (* Policy variable inhibit-any-policy *) + X509_V_FLAG_INHIBIT_ANY = $200; + (* Policy variable inhibit-policy-mapping *) + X509_V_FLAG_INHIBIT_MAP = $400; + (* Notify callback that policy is OK *) + X509_V_FLAG_NOTIFY_POLICY = $800; + (* Extended CRL features such as indirect CRLs, alternate CRL signing keys *) + X509_V_FLAG_EXTENDED_CRL_SUPPORT = $1000; + (* Delta CRL support *) + X509_V_FLAG_USE_DELTAS = $2000; + (* Check self-signed CA signature *) + X509_V_FLAG_CHECK_SS_SIGNATURE = $4000; + (* Use trusted store first *) + X509_V_FLAG_TRUSTED_FIRST = $8000; + (* Suite B 128 bit only mode: not normally used *) + X509_V_FLAG_SUITEB_128_LOS_ONLY = $10000; + (* Suite B 192 bit only mode *) + X509_V_FLAG_SUITEB_192_LOS = $20000; + (* Suite B 128 bit mode allowing 192 bit algorithms *) + X509_V_FLAG_SUITEB_128_LOS = $30000; + (* Allow partial chains if at least one certificate is in trusted store *) + X509_V_FLAG_PARTIAL_CHAIN = $80000; + (* + * If the initial chain is not trusted, do not attempt to build an alternative + * chain. Alternate chain checking was introduced 1.1.0. Setting this flag + * will force the behaviour to match that of previous versions. + *) + X509_V_FLAG_NO_ALT_CHAINS = $100000; + (* Do not check certificate/CRL validity against current time *) + X509_V_FLAG_NO_CHECK_TIME = $200000; + + X509_VP_FLAG_DEFAULT = $1; + X509_VP_FLAG_OVERWRITE = $2; + X509_VP_FLAG_RESET_FLAGS = $4; + X509_VP_FLAG_LOCKED = $8; + X509_VP_FLAG_ONCE = $10; + + (* Internal use: mask of policy related options *) + X509_V_FLAG_POLICY_MASK = X509_V_FLAG_POLICY_CHECK or X509_V_FLAG_EXPLICIT_POLICY + or X509_V_FLAG_INHIBIT_ANY or X509_V_FLAG_INHIBIT_MAP; + + + DANE_FLAG_NO_DANE_EE_NAMECHECKS = TOpenSSL_C_Long(1) shl 0; + + (* Non positive return values are errors *) + X509_PCY_TREE_FAILURE = -2; (* Failure to satisfy explicit policy *) + X509_PCY_TREE_INVALID = -1; (* Inconsistent or invalid extensions *) + X509_PCY_TREE_INTERNAL = 0; (* Internal error, most likely malloc *) + + (* + * Positive return values form a bit mask, all but the first are internal to + * the library and don't appear in results from X509_policy_check(). + *) + X509_PCY_TREE_VALID = 1; (* The policy tree is valid *) + X509_PCY_TREE_EMPTY = 2; (* The policy tree is empty *) + X509_PCY_TREE_EXPLICIT = 4; (* Explicit policy required *) + +type + (*- + SSL_CTX -> X509_STORE + -> X509_LOOKUP + ->X509_LOOKUP_METHOD + -> X509_LOOKUP + ->X509_LOOKUP_METHOD + + SSL -> X509_STORE_CTX + ->X509_STORE + + The X509_STORE holds the tables etc for verification stuff. + A X509_STORE_CTX is used while validating a single certificate. + The X509_STORE has X509_LOOKUPs for looking up certs. + The X509_STORE then calls a function to actually verify the + certificate chain. + *) + + X509_LOOKUP_TYPE = ( + X509_LU_NONE = 0, + X509_LU_X509, + X509_LU_CRL + ); + + X509_STORE_CTX_verify_cb = function(v1: TOpenSSL_C_INT; v2: PX509_STORE_CTX): TOpenSSL_C_INT; + X509_STORE_CTX_verify_fn = function(v1: PX509_STORE_CTX): TOpenSSL_C_INT; + X509_STORE_CTX_get_issuer_fn = function(issuer: PPX509; ctx: PX509_STORE_CTX; x: PX509): TOpenSSL_C_INT; + X509_STORE_CTX_check_issued_fn = function(ctx: PX509_STORE_CTX; x: PX509; issuer: PX509): TOpenSSL_C_INT; + X509_STORE_CTX_check_revocation_fn = function(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; + X509_STORE_CTX_get_crl_fn = function(ctx: PX509_STORE_CTX; crl: PPX509_CRL; x: PX509): TOpenSSL_C_INT; + X509_STORE_CTX_check_crl_fn = function(ctx: PX509_STORE_CTX; crl: PX509_CRL): TOpenSSL_C_INT; + X509_STORE_CTX_cert_crl_fn = function(ctx: PX509_STORE_CTX; crl: PX509_CRL; x: PX509): TOpenSSL_C_INT; + X509_STORE_CTX_check_policy_fn = function(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; +// typedef STACK_OF(X509) *(*X509_STORE_CTX_lookup_certs_fn)(X509_STORE_CTX *ctx, +// X509_NAME *nm); +// typedef STACK_OF(X509_CRL) *(*X509_STORE_CTX_lookup_crls_fn)(X509_STORE_CTX *ctx, +// X509_NAME *nm); + X509_STORE_CTX_cleanup_fn = function(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; + + X509_LOOKUP_ctrl_fn = function(ctx: PX509_LOOKUP; cmd: TOpenSSL_C_INT; + const argc: PAnsiChar; argl: TOpenSSL_C_LONG; ret: PPAnsiChar): TOpenSSL_C_INT; cdecl; + X509_LOOKUP_get_by_subject_fn = function(ctx: PX509_LOOKUP; + type_: X509_LOOKUP_TYPE; name: PX509_NAME; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; + X509_LOOKUP_get_by_issuer_serial_fn = function(ctx: PX509_LOOKUP; + type_: X509_LOOKUP_TYPE; name: PX509_NAME; serial: PASN1_INTEGER; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; + X509_LOOKUP_get_by_fingerprint_fn = function(ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; + const bytes: PByte; len: TOpenSSL_C_INT; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; + X509_LOOKUP_get_by_alias_fn = function(ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; + const str: PAnsiChar; len: TOpenSSL_C_INT; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; + + //DEFINE_STACK_OF(X509_LOOKUP) + //DEFINE_STACK_OF(X509_OBJECT) + //DEFINE_STACK_OF(X509_VERIFY_PARAM) + + + +function X509_LOOKUP_load_file(ctx: PX509_LOOKUP; name: PAnsiChar; type_: TOpenSSL_C_LONG): TOpenSSL_C_INT; + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM X509_STORE_set_depth} +{$EXTERNALSYM X509_STORE_CTX_set_depth} +{$EXTERNALSYM X509_OBJECT_up_ref_count} +{$EXTERNALSYM X509_OBJECT_new} +{$EXTERNALSYM X509_OBJECT_free} +{$EXTERNALSYM X509_OBJECT_get_type} +{$EXTERNALSYM X509_OBJECT_get0_X509} +{$EXTERNALSYM X509_OBJECT_set1_X509} +{$EXTERNALSYM X509_OBJECT_get0_X509_CRL} +{$EXTERNALSYM X509_OBJECT_set1_X509_CRL} +{$EXTERNALSYM X509_STORE_new} +{$EXTERNALSYM X509_STORE_free} +{$EXTERNALSYM X509_STORE_lock} +{$EXTERNALSYM X509_STORE_unlock} +{$EXTERNALSYM X509_STORE_up_ref} +{$EXTERNALSYM X509_STORE_set_flags} +{$EXTERNALSYM X509_STORE_set_purpose} +{$EXTERNALSYM X509_STORE_set_trust} +{$EXTERNALSYM X509_STORE_set1_param} +{$EXTERNALSYM X509_STORE_get0_param} +{$EXTERNALSYM X509_STORE_set_verify} +{$EXTERNALSYM X509_STORE_CTX_set_verify} +{$EXTERNALSYM X509_STORE_get_verify} +{$EXTERNALSYM X509_STORE_set_verify_cb} +{$EXTERNALSYM X509_STORE_get_verify_cb} +{$EXTERNALSYM X509_STORE_set_get_issuer} +{$EXTERNALSYM X509_STORE_get_get_issuer} +{$EXTERNALSYM X509_STORE_set_check_issued} +{$EXTERNALSYM X509_STORE_get_check_issued} +{$EXTERNALSYM X509_STORE_set_check_revocation} +{$EXTERNALSYM X509_STORE_get_check_revocation} +{$EXTERNALSYM X509_STORE_set_get_crl} +{$EXTERNALSYM X509_STORE_get_get_crl} +{$EXTERNALSYM X509_STORE_set_check_crl} +{$EXTERNALSYM X509_STORE_get_check_crl} +{$EXTERNALSYM X509_STORE_set_cert_crl} +{$EXTERNALSYM X509_STORE_get_cert_crl} +{$EXTERNALSYM X509_STORE_set_check_policy} +{$EXTERNALSYM X509_STORE_get_check_policy} +{$EXTERNALSYM X509_STORE_set_cleanup} +{$EXTERNALSYM X509_STORE_get_cleanup} +{$EXTERNALSYM X509_STORE_set_ex_data} +{$EXTERNALSYM X509_STORE_get_ex_data} +{$EXTERNALSYM X509_STORE_CTX_new} +{$EXTERNALSYM X509_STORE_CTX_get1_issuer} +{$EXTERNALSYM X509_STORE_CTX_free} +{$EXTERNALSYM X509_STORE_CTX_cleanup} +{$EXTERNALSYM X509_STORE_CTX_get0_store} +{$EXTERNALSYM X509_STORE_CTX_get0_cert} +{$EXTERNALSYM X509_STORE_CTX_set_verify_cb} +{$EXTERNALSYM X509_STORE_CTX_get_verify_cb} +{$EXTERNALSYM X509_STORE_CTX_get_verify} +{$EXTERNALSYM X509_STORE_CTX_get_get_issuer} +{$EXTERNALSYM X509_STORE_CTX_get_check_issued} +{$EXTERNALSYM X509_STORE_CTX_get_check_revocation} +{$EXTERNALSYM X509_STORE_CTX_get_get_crl} +{$EXTERNALSYM X509_STORE_CTX_get_check_crl} +{$EXTERNALSYM X509_STORE_CTX_get_cert_crl} +{$EXTERNALSYM X509_STORE_CTX_get_check_policy} +{$EXTERNALSYM X509_STORE_CTX_get_cleanup} +{$EXTERNALSYM X509_STORE_add_lookup} +{$EXTERNALSYM X509_LOOKUP_hash_dir} +{$EXTERNALSYM X509_LOOKUP_file} +{$EXTERNALSYM X509_LOOKUP_meth_new} +{$EXTERNALSYM X509_LOOKUP_meth_free} +{$EXTERNALSYM X509_LOOKUP_meth_set_ctrl} +{$EXTERNALSYM X509_LOOKUP_meth_get_ctrl} +{$EXTERNALSYM X509_LOOKUP_meth_set_get_by_subject} +{$EXTERNALSYM X509_LOOKUP_meth_get_get_by_subject} +{$EXTERNALSYM X509_LOOKUP_meth_set_get_by_issuer_serial} +{$EXTERNALSYM X509_LOOKUP_meth_get_get_by_issuer_serial} +{$EXTERNALSYM X509_LOOKUP_meth_set_get_by_fingerprint} +{$EXTERNALSYM X509_LOOKUP_meth_get_get_by_fingerprint} +{$EXTERNALSYM X509_LOOKUP_meth_set_get_by_alias} +{$EXTERNALSYM X509_LOOKUP_meth_get_get_by_alias} +{$EXTERNALSYM X509_STORE_add_cert} +{$EXTERNALSYM X509_STORE_add_crl} +{$EXTERNALSYM X509_STORE_CTX_get_by_subject} +{$EXTERNALSYM X509_STORE_CTX_get_obj_by_subject} +{$EXTERNALSYM X509_LOOKUP_ctrl} +{$EXTERNALSYM X509_load_cert_file} +{$EXTERNALSYM X509_load_crl_file} +{$EXTERNALSYM X509_load_cert_crl_file} +{$EXTERNALSYM X509_LOOKUP_new} +{$EXTERNALSYM X509_LOOKUP_free} +{$EXTERNALSYM X509_LOOKUP_init} +{$EXTERNALSYM X509_LOOKUP_by_subject} +{$EXTERNALSYM X509_LOOKUP_by_issuer_serial} +{$EXTERNALSYM X509_LOOKUP_by_fingerprint} +{$EXTERNALSYM X509_LOOKUP_by_alias} +{$EXTERNALSYM X509_LOOKUP_set_method_data} +{$EXTERNALSYM X509_LOOKUP_get_method_data} +{$EXTERNALSYM X509_LOOKUP_get_store} +{$EXTERNALSYM X509_LOOKUP_shutdown} +{$EXTERNALSYM X509_STORE_load_locations} +{$EXTERNALSYM X509_STORE_set_default_paths} +{$EXTERNALSYM X509_STORE_CTX_set_ex_data} +{$EXTERNALSYM X509_STORE_CTX_get_ex_data} +{$EXTERNALSYM X509_STORE_CTX_get_error} +{$EXTERNALSYM X509_STORE_CTX_set_error} +{$EXTERNALSYM X509_STORE_CTX_get_error_depth} +{$EXTERNALSYM X509_STORE_CTX_set_error_depth} +{$EXTERNALSYM X509_STORE_CTX_get_current_cert} +{$EXTERNALSYM X509_STORE_CTX_set_current_cert} +{$EXTERNALSYM X509_STORE_CTX_get0_current_issuer} +{$EXTERNALSYM X509_STORE_CTX_get0_current_crl} +{$EXTERNALSYM X509_STORE_CTX_get0_parent_ctx} +{$EXTERNALSYM X509_STORE_CTX_set_cert} +{$EXTERNALSYM X509_STORE_CTX_set_purpose} +{$EXTERNALSYM X509_STORE_CTX_set_trust} +{$EXTERNALSYM X509_STORE_CTX_purpose_inherit} +{$EXTERNALSYM X509_STORE_CTX_set_flags} +{$EXTERNALSYM X509_STORE_CTX_get0_policy_tree} +{$EXTERNALSYM X509_STORE_CTX_get_explicit_policy} +{$EXTERNALSYM X509_STORE_CTX_get_num_untrusted} +{$EXTERNALSYM X509_STORE_CTX_get0_param} +{$EXTERNALSYM X509_STORE_CTX_set0_param} +{$EXTERNALSYM X509_STORE_CTX_set_default} +{$EXTERNALSYM X509_STORE_CTX_set0_dane} +{$EXTERNALSYM X509_VERIFY_PARAM_new} +{$EXTERNALSYM X509_VERIFY_PARAM_free} +{$EXTERNALSYM X509_VERIFY_PARAM_inherit} +{$EXTERNALSYM X509_VERIFY_PARAM_set1} +{$EXTERNALSYM X509_VERIFY_PARAM_set1_name} +{$EXTERNALSYM X509_VERIFY_PARAM_set_flags} +{$EXTERNALSYM X509_VERIFY_PARAM_clear_flags} +{$EXTERNALSYM X509_VERIFY_PARAM_get_flags} +{$EXTERNALSYM X509_VERIFY_PARAM_set_purpose} +{$EXTERNALSYM X509_VERIFY_PARAM_set_trust} +{$EXTERNALSYM X509_VERIFY_PARAM_set_depth} +{$EXTERNALSYM X509_VERIFY_PARAM_set_auth_level} +{$EXTERNALSYM X509_VERIFY_PARAM_add0_policy} +{$EXTERNALSYM X509_VERIFY_PARAM_set_inh_flags} +{$EXTERNALSYM X509_VERIFY_PARAM_get_inh_flags} +{$EXTERNALSYM X509_VERIFY_PARAM_set1_host} +{$EXTERNALSYM X509_VERIFY_PARAM_add1_host} +{$EXTERNALSYM X509_VERIFY_PARAM_set_hostflags} +{$EXTERNALSYM X509_VERIFY_PARAM_get_hostflags} +{$EXTERNALSYM X509_VERIFY_PARAM_get0_peername} +{$EXTERNALSYM X509_VERIFY_PARAM_move_peername} +{$EXTERNALSYM X509_VERIFY_PARAM_set1_email} +{$EXTERNALSYM X509_VERIFY_PARAM_set1_ip} +{$EXTERNALSYM X509_VERIFY_PARAM_set1_ip_asc} +{$EXTERNALSYM X509_VERIFY_PARAM_get_depth} +{$EXTERNALSYM X509_VERIFY_PARAM_get_auth_level} +{$EXTERNALSYM X509_VERIFY_PARAM_get0_name} +{$EXTERNALSYM X509_VERIFY_PARAM_add0_table} +{$EXTERNALSYM X509_VERIFY_PARAM_get_count} +{$EXTERNALSYM X509_VERIFY_PARAM_get0} +{$EXTERNALSYM X509_VERIFY_PARAM_lookup} +{$EXTERNALSYM X509_VERIFY_PARAM_table_cleanup} +{$EXTERNALSYM X509_policy_tree_free} +{$EXTERNALSYM X509_policy_tree_level_count} +{$EXTERNALSYM X509_policy_tree_get0_level} +{$EXTERNALSYM X509_policy_level_node_count} +{$EXTERNALSYM X509_policy_level_get0_node} +{$EXTERNALSYM X509_policy_node_get0_policy} +{$EXTERNALSYM X509_policy_node_get0_parent} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function X509_STORE_set_depth(store: PX509_STORE; depth: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_STORE_CTX_set_depth(ctx: PX509_STORE_CTX; depth: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function X509_OBJECT_up_ref_count(a: PX509_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_OBJECT_new: PX509_OBJECT; cdecl; external CLibCrypto; +procedure X509_OBJECT_free(a: PX509_OBJECT); cdecl; external CLibCrypto; +function X509_OBJECT_get_type(const a: PX509_OBJECT): X509_LOOKUP_TYPE; cdecl; external CLibCrypto; +function X509_OBJECT_get0_X509(const a: PX509_OBJECT): PX509; cdecl; external CLibCrypto; +function X509_OBJECT_set1_X509(a: PX509_OBJECT; obj: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_OBJECT_get0_X509_CRL(a: PX509_OBJECT): PX509_CRL; cdecl; external CLibCrypto; +function X509_OBJECT_set1_X509_CRL(a: PX509_OBJECT; obj: PX509_CRL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_new: PX509_STORE; cdecl; external CLibCrypto; +procedure X509_STORE_free(v: PX509_STORE); cdecl; external CLibCrypto; +function X509_STORE_lock(ctx: PX509_STORE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_unlock(ctx: PX509_STORE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_up_ref(v: PX509_STORE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_set_flags(ctx: PX509_STORE; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_set_purpose(ctx: PX509_STORE; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_set_trust(ctx: PX509_STORE; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_set1_param(ctx: PX509_STORE; pm: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_get0_param(ctx: PX509_STORE): PX509_VERIFY_PARAM; cdecl; external CLibCrypto; +procedure X509_STORE_set_verify(ctx: PX509_STORE; verify: X509_STORE_CTX_verify_fn); cdecl; external CLibCrypto; +procedure X509_STORE_CTX_set_verify(ctx: PX509_STORE_CTX; verify: X509_STORE_CTX_verify_fn); cdecl; external CLibCrypto; +function X509_STORE_get_verify(ctx: PX509_STORE): X509_STORE_CTX_verify_fn; cdecl; external CLibCrypto; +procedure X509_STORE_set_verify_cb(ctx: PX509_STORE; verify_cb: X509_STORE_CTX_verify_cb); cdecl; external CLibCrypto; +function X509_STORE_get_verify_cb(ctx: PX509_STORE): X509_STORE_CTX_verify_cb; cdecl; external CLibCrypto; +procedure X509_STORE_set_get_issuer(ctx: PX509_STORE; get_issuer: X509_STORE_CTX_get_issuer_fn); cdecl; external CLibCrypto; +function X509_STORE_get_get_issuer(ctx: PX509_STORE): X509_STORE_CTX_get_issuer_fn; cdecl; external CLibCrypto; +procedure X509_STORE_set_check_issued(ctx: PX509_STORE; check_issued: X509_STORE_CTX_check_issued_fn); cdecl; external CLibCrypto; +function X509_STORE_get_check_issued(ctx: PX509_STORE): X509_STORE_CTX_check_issued_fn; cdecl; external CLibCrypto; +procedure X509_STORE_set_check_revocation(ctx: PX509_STORE; check_revocation: X509_STORE_CTX_check_revocation_fn); cdecl; external CLibCrypto; +function X509_STORE_get_check_revocation(ctx: PX509_STORE): X509_STORE_CTX_check_revocation_fn; cdecl; external CLibCrypto; +procedure X509_STORE_set_get_crl(ctx: PX509_STORE; get_crl: X509_STORE_CTX_get_crl_fn); cdecl; external CLibCrypto; +function X509_STORE_get_get_crl(ctx: PX509_STORE): X509_STORE_CTX_get_crl_fn; cdecl; external CLibCrypto; +procedure X509_STORE_set_check_crl(ctx: PX509_STORE; check_crl: X509_STORE_CTX_check_crl_fn); cdecl; external CLibCrypto; +function X509_STORE_get_check_crl(ctx: PX509_STORE): X509_STORE_CTX_check_crl_fn; cdecl; external CLibCrypto; +procedure X509_STORE_set_cert_crl(ctx: PX509_STORE; cert_crl: X509_STORE_CTX_cert_crl_fn); cdecl; external CLibCrypto; +function X509_STORE_get_cert_crl(ctx: PX509_STORE): X509_STORE_CTX_cert_crl_fn; cdecl; external CLibCrypto; +procedure X509_STORE_set_check_policy(ctx: PX509_STORE; check_policy: X509_STORE_CTX_check_policy_fn); cdecl; external CLibCrypto; +function X509_STORE_get_check_policy(ctx: PX509_STORE): X509_STORE_CTX_check_policy_fn; cdecl; external CLibCrypto; +procedure X509_STORE_set_cleanup(ctx: PX509_STORE; cleanup: X509_STORE_CTX_cleanup_fn); cdecl; external CLibCrypto; +function X509_STORE_get_cleanup(ctx: PX509_STORE): X509_STORE_CTX_cleanup_fn; cdecl; external CLibCrypto; +function X509_STORE_set_ex_data(ctx: PX509_STORE; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_get_ex_data(ctx: PX509_STORE; idx: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function X509_STORE_CTX_new: PX509_STORE_CTX; cdecl; external CLibCrypto; +function X509_STORE_CTX_get1_issuer(issuer: PPX509; ctx: PX509_STORE_CTX; x: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_STORE_CTX_free(ctx: PX509_STORE_CTX); cdecl; external CLibCrypto; +procedure X509_STORE_CTX_cleanup(ctx: PX509_STORE_CTX); cdecl; external CLibCrypto; +function X509_STORE_CTX_get0_store(ctx: PX509_STORE_CTX): PX509_STORE; cdecl; external CLibCrypto; +function X509_STORE_CTX_get0_cert(ctx: PX509_STORE_CTX): PX509; cdecl; external CLibCrypto; +procedure X509_STORE_CTX_set_verify_cb(ctx: PX509_STORE_CTX; verify: X509_STORE_CTX_verify_cb); cdecl; external CLibCrypto; +function X509_STORE_CTX_get_verify_cb(ctx: PX509_STORE_CTX): X509_STORE_CTX_verify_cb; cdecl; external CLibCrypto; +function X509_STORE_CTX_get_verify(ctx: PX509_STORE_CTX): X509_STORE_CTX_verify_fn; cdecl; external CLibCrypto; +function X509_STORE_CTX_get_get_issuer(ctx: PX509_STORE_CTX): X509_STORE_CTX_get_issuer_fn; cdecl; external CLibCrypto; +function X509_STORE_CTX_get_check_issued(ctx: PX509_STORE_CTX): X509_STORE_CTX_check_issued_fn; cdecl; external CLibCrypto; +function X509_STORE_CTX_get_check_revocation(ctx: PX509_STORE_CTX): X509_STORE_CTX_check_revocation_fn; cdecl; external CLibCrypto; +function X509_STORE_CTX_get_get_crl(ctx: PX509_STORE_CTX): X509_STORE_CTX_get_crl_fn; cdecl; external CLibCrypto; +function X509_STORE_CTX_get_check_crl(ctx: PX509_STORE_CTX): X509_STORE_CTX_check_crl_fn; cdecl; external CLibCrypto; +function X509_STORE_CTX_get_cert_crl(ctx: PX509_STORE_CTX): X509_STORE_CTX_cert_crl_fn; cdecl; external CLibCrypto; +function X509_STORE_CTX_get_check_policy(ctx: PX509_STORE_CTX): X509_STORE_CTX_check_policy_fn; cdecl; external CLibCrypto; +function X509_STORE_CTX_get_cleanup(ctx: PX509_STORE_CTX): X509_STORE_CTX_cleanup_fn; cdecl; external CLibCrypto; +function X509_STORE_add_lookup(v: PX509_STORE; m: PX509_LOOKUP_METHOD): PX509_LOOKUP; cdecl; external CLibCrypto; +function X509_LOOKUP_hash_dir: PX509_LOOKUP_METHOD; cdecl; external CLibCrypto; +function X509_LOOKUP_file: PX509_LOOKUP_METHOD; cdecl; external CLibCrypto; +function X509_LOOKUP_meth_new(const name: PAnsiChar): PX509_LOOKUP_METHOD; cdecl; external CLibCrypto; +procedure X509_LOOKUP_meth_free(method: PX509_LOOKUP_METHOD); cdecl; external CLibCrypto; +function X509_LOOKUP_meth_set_ctrl(method: PX509_LOOKUP_METHOD; ctrl_fn: X509_LOOKUP_ctrl_fn): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_LOOKUP_meth_get_ctrl(const method: PX509_LOOKUP_METHOD): X509_LOOKUP_ctrl_fn; cdecl; external CLibCrypto; +function X509_LOOKUP_meth_set_get_by_subject(method: PX509_LOOKUP_METHOD; fn: X509_LOOKUP_get_by_subject_fn): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_LOOKUP_meth_get_get_by_subject(const method: PX509_LOOKUP_METHOD): X509_LOOKUP_get_by_subject_fn; cdecl; external CLibCrypto; +function X509_LOOKUP_meth_set_get_by_issuer_serial(method: PX509_LOOKUP_METHOD; fn: X509_LOOKUP_get_by_issuer_serial_fn): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_LOOKUP_meth_get_get_by_issuer_serial(const method: PX509_LOOKUP_METHOD): X509_LOOKUP_get_by_issuer_serial_fn; cdecl; external CLibCrypto; +function X509_LOOKUP_meth_set_get_by_fingerprint(method: PX509_LOOKUP_METHOD; fn: X509_LOOKUP_get_by_fingerprint_fn): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_LOOKUP_meth_get_get_by_fingerprint(const method: PX509_LOOKUP_METHOD): X509_LOOKUP_get_by_fingerprint_fn; cdecl; external CLibCrypto; +function X509_LOOKUP_meth_set_get_by_alias(method: PX509_LOOKUP_METHOD; fn: X509_LOOKUP_get_by_alias_fn): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_LOOKUP_meth_get_get_by_alias(const method: PX509_LOOKUP_METHOD): X509_LOOKUP_get_by_alias_fn; cdecl; external CLibCrypto; +function X509_STORE_add_cert(ctx: PX509_STORE; x: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_add_crl(ctx: PX509_STORE; x: PX509_CRL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_CTX_get_by_subject(vs: PX509_STORE_CTX; type_: X509_LOOKUP_TYPE; name: PX509_NAME; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_CTX_get_obj_by_subject(vs: PX509_STORE_CTX; type_: X509_LOOKUP_TYPE; name: PX509_NAME): PX509_OBJECT; cdecl; external CLibCrypto; +function X509_LOOKUP_ctrl(ctx: PX509_LOOKUP; cmd: TOpenSSL_C_INT; const argc: PAnsiChar; argl: TOpenSSL_C_LONG; ret: PPAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_load_cert_file(ctx: PX509_LOOKUP; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_load_crl_file(ctx: PX509_LOOKUP; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_load_cert_crl_file(ctx: PX509_LOOKUP; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_LOOKUP_new(method: PX509_LOOKUP_METHOD): PX509_LOOKUP; cdecl; external CLibCrypto; +procedure X509_LOOKUP_free(ctx: PX509_LOOKUP); cdecl; external CLibCrypto; +function X509_LOOKUP_init(ctx: PX509_LOOKUP): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_LOOKUP_by_subject(ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; name: PX509_NAME; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_LOOKUP_by_issuer_serial(ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; name: PX509_NAME; serial: PASN1_INTEGER; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_LOOKUP_by_fingerprint(ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; const bytes: PByte; len: TOpenSSL_C_INT; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_LOOKUP_by_alias(ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; const str: PAnsiChar; len: TOpenSSL_C_INT; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_LOOKUP_set_method_data(ctx: PX509_LOOKUP; data: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_LOOKUP_get_method_data(const ctx: PX509_LOOKUP): Pointer; cdecl; external CLibCrypto; +function X509_LOOKUP_get_store(const ctx: PX509_LOOKUP): PX509_STORE; cdecl; external CLibCrypto; +function X509_LOOKUP_shutdown(ctx: PX509_LOOKUP): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_load_locations(ctx: PX509_STORE; const file_: PAnsiChar; const dir: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_set_default_paths(ctx: PX509_STORE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_CTX_set_ex_data(ctx: PX509_STORE_CTX; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_CTX_get_ex_data(ctx: PX509_STORE_CTX; idx: TOpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function X509_STORE_CTX_get_error(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_STORE_CTX_set_error(ctx: X509_STORE_CTX; s: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function X509_STORE_CTX_get_error_depth(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_STORE_CTX_set_error_depth(ctx: PX509_STORE_CTX; depth: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function X509_STORE_CTX_get_current_cert(ctx: PX509_STORE_CTX): PX509; cdecl; external CLibCrypto; +procedure X509_STORE_CTX_set_current_cert(ctx: PX509_STORE_CTX; x: PX509); cdecl; external CLibCrypto; +function X509_STORE_CTX_get0_current_issuer(ctx: PX509_STORE_CTX): PX509; cdecl; external CLibCrypto; +function X509_STORE_CTX_get0_current_crl(ctx: PX509_STORE_CTX): PX509_CRL; cdecl; external CLibCrypto; +function X509_STORE_CTX_get0_parent_ctx(ctx: PX509_STORE_CTX): PX509_STORE_CTX; cdecl; external CLibCrypto; +procedure X509_STORE_CTX_set_cert(c: PX509_STORE_CTX; x: PX509); cdecl; external CLibCrypto; +function X509_STORE_CTX_set_purpose(ctx: PX509_STORE_CTX; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_CTX_set_trust(ctx: PX509_STORE_CTX; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_CTX_purpose_inherit(ctx: PX509_STORE_CTX; def_purpose: TOpenSSL_C_INT; purpose: TOpenSSL_C_INT; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_STORE_CTX_set_flags(ctx: PX509_STORE_CTX; flags: TOpenSSL_C_ULONG); cdecl; external CLibCrypto; +function X509_STORE_CTX_get0_policy_tree(ctx: PX509_STORE_CTX): PX509_POLICY_TREE; cdecl; external CLibCrypto; +function X509_STORE_CTX_get_explicit_policy(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_CTX_get_num_untrusted(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_STORE_CTX_get0_param(ctx: PX509_STORE_CTX): PX509_VERIFY_PARAM; cdecl; external CLibCrypto; +procedure X509_STORE_CTX_set0_param(ctx: PX509_STORE_CTX; param: PX509_VERIFY_PARAM); cdecl; external CLibCrypto; +function X509_STORE_CTX_set_default(ctx: PX509_STORE_CTX; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_STORE_CTX_set0_dane(ctx: PX509_STORE_CTX; dane: PSSL_DANE); cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_new: PX509_VERIFY_PARAM; cdecl; external CLibCrypto; +procedure X509_VERIFY_PARAM_free(param: PX509_VERIFY_PARAM); cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_inherit(to_: PX509_VERIFY_PARAM; const from: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_set1(to_: PX509_VERIFY_PARAM; const from: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_set1_name(param: PX509_VERIFY_PARAM; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_set_flags(param: PX509_VERIFY_PARAM; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_clear_flags(param: PX509_VERIFY_PARAM; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_get_flags(param: PX509_VERIFY_PARAM): TOpenSSL_C_ULONG; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_set_purpose(param: PX509_VERIFY_PARAM; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_set_trust(param: PX509_VERIFY_PARAM; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_VERIFY_PARAM_set_depth(param: PX509_VERIFY_PARAM; depth: TOpenSSL_C_INT); cdecl; external CLibCrypto; +procedure X509_VERIFY_PARAM_set_auth_level(param: PX509_VERIFY_PARAM; auth_level: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_add0_policy(param: PX509_VERIFY_PARAM; policy: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_set_inh_flags(param: PX509_VERIFY_PARAM; flags: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_get_inh_flags(const param: PX509_VERIFY_PARAM): TOpenSSL_C_UINT32; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_set1_host(param: PX509_VERIFY_PARAM; const name: PAnsiChar; namelen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_add1_host(param: PX509_VERIFY_PARAM; const name: PAnsiChar; namelen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_VERIFY_PARAM_set_hostflags(param: PX509_VERIFY_PARAM; flags: TOpenSSL_C_UINT); cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_get_hostflags(const param: PX509_VERIFY_PARAM): TOpenSSL_C_UINT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_get0_peername(v1: PX509_VERIFY_PARAM): PAnsiChar; cdecl; external CLibCrypto; +procedure X509_VERIFY_PARAM_move_peername(v1: PX509_VERIFY_PARAM; v2: PX509_VERIFY_PARAM); cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_set1_email(param: PX509_VERIFY_PARAM; const email: PAnsiChar; emaillen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_set1_ip(param: PX509_VERIFY_PARAM; const ip: PByte; iplen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_set1_ip_asc(param: PX509_VERIFY_PARAM; const ipasc: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_get_depth(const param: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_get_auth_level(const param: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_get0_name(const param: PX509_VERIFY_PARAM): PAnsiChar; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_add0_table(param: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_get_count: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_get0(id: TOpenSSL_C_INT): PX509_VERIFY_PARAM; cdecl; external CLibCrypto; +function X509_VERIFY_PARAM_lookup(const name: PAnsiChar): X509_VERIFY_PARAM; cdecl; external CLibCrypto; +procedure X509_VERIFY_PARAM_table_cleanup; cdecl; external CLibCrypto; +procedure X509_policy_tree_free(tree: PX509_POLICY_TREE); cdecl; external CLibCrypto; +function X509_policy_tree_level_count(const tree: PX509_POLICY_TREE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_policy_tree_get0_level(const tree: PX509_POLICY_TREE; i: TOpenSSL_C_INT): PX509_POLICY_LEVEL; cdecl; external CLibCrypto; +function X509_policy_level_node_count(level: PX509_POLICY_LEVEL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_policy_level_get0_node(level: PX509_POLICY_LEVEL; i: TOpenSSL_C_INT): PX509_POLICY_NODE; cdecl; external CLibCrypto; +function X509_policy_node_get0_policy(const node: PX509_POLICY_NODE): PASN1_OBJECT; cdecl; external CLibCrypto; +function X509_policy_node_get0_parent(const node: PX509_POLICY_NODE): PX509_POLICY_NODE; cdecl; external CLibCrypto; + + + + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function X509_STORE_CTX_get_app_data(ctx: PX509_STORE_CTX): Pointer; {removed 1.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_X509_STORE_set_depth(store: PX509_STORE; depth: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_X509_STORE_CTX_set_depth(ctx: PX509_STORE_CTX; depth: TOpenSSL_C_INT); cdecl; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_X509_STORE_CTX_get_app_data(ctx: PX509_STORE_CTX): Pointer; cdecl; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_X509_OBJECT_up_ref_count(a: PX509_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_X509_OBJECT_new: PX509_OBJECT; cdecl; +procedure Load_X509_OBJECT_free(a: PX509_OBJECT); cdecl; +function Load_X509_OBJECT_get_type(const a: PX509_OBJECT): X509_LOOKUP_TYPE; cdecl; +function Load_X509_OBJECT_get0_X509(const a: PX509_OBJECT): PX509; cdecl; +function Load_X509_OBJECT_set1_X509(a: PX509_OBJECT; obj: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509_OBJECT_get0_X509_CRL(a: PX509_OBJECT): PX509_CRL; cdecl; +function Load_X509_OBJECT_set1_X509_CRL(a: PX509_OBJECT; obj: PX509_CRL): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_new: PX509_STORE; cdecl; +procedure Load_X509_STORE_free(v: PX509_STORE); cdecl; +function Load_X509_STORE_lock(ctx: PX509_STORE): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_unlock(ctx: PX509_STORE): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_up_ref(v: PX509_STORE): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_set_flags(ctx: PX509_STORE; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_set_purpose(ctx: PX509_STORE; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_set_trust(ctx: PX509_STORE; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_set1_param(ctx: PX509_STORE; pm: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_get0_param(ctx: PX509_STORE): PX509_VERIFY_PARAM; cdecl; +procedure Load_X509_STORE_set_verify(ctx: PX509_STORE; verify: X509_STORE_CTX_verify_fn); cdecl; +procedure Load_X509_STORE_CTX_set_verify(ctx: PX509_STORE_CTX; verify: X509_STORE_CTX_verify_fn); cdecl; +function Load_X509_STORE_get_verify(ctx: PX509_STORE): X509_STORE_CTX_verify_fn; cdecl; +procedure Load_X509_STORE_set_verify_cb(ctx: PX509_STORE; verify_cb: X509_STORE_CTX_verify_cb); cdecl; +function Load_X509_STORE_get_verify_cb(ctx: PX509_STORE): X509_STORE_CTX_verify_cb; cdecl; +procedure Load_X509_STORE_set_get_issuer(ctx: PX509_STORE; get_issuer: X509_STORE_CTX_get_issuer_fn); cdecl; +function Load_X509_STORE_get_get_issuer(ctx: PX509_STORE): X509_STORE_CTX_get_issuer_fn; cdecl; +procedure Load_X509_STORE_set_check_issued(ctx: PX509_STORE; check_issued: X509_STORE_CTX_check_issued_fn); cdecl; +function Load_X509_STORE_get_check_issued(ctx: PX509_STORE): X509_STORE_CTX_check_issued_fn; cdecl; +procedure Load_X509_STORE_set_check_revocation(ctx: PX509_STORE; check_revocation: X509_STORE_CTX_check_revocation_fn); cdecl; +function Load_X509_STORE_get_check_revocation(ctx: PX509_STORE): X509_STORE_CTX_check_revocation_fn; cdecl; +procedure Load_X509_STORE_set_get_crl(ctx: PX509_STORE; get_crl: X509_STORE_CTX_get_crl_fn); cdecl; +function Load_X509_STORE_get_get_crl(ctx: PX509_STORE): X509_STORE_CTX_get_crl_fn; cdecl; +procedure Load_X509_STORE_set_check_crl(ctx: PX509_STORE; check_crl: X509_STORE_CTX_check_crl_fn); cdecl; +function Load_X509_STORE_get_check_crl(ctx: PX509_STORE): X509_STORE_CTX_check_crl_fn; cdecl; +procedure Load_X509_STORE_set_cert_crl(ctx: PX509_STORE; cert_crl: X509_STORE_CTX_cert_crl_fn); cdecl; +function Load_X509_STORE_get_cert_crl(ctx: PX509_STORE): X509_STORE_CTX_cert_crl_fn; cdecl; +procedure Load_X509_STORE_set_check_policy(ctx: PX509_STORE; check_policy: X509_STORE_CTX_check_policy_fn); cdecl; +function Load_X509_STORE_get_check_policy(ctx: PX509_STORE): X509_STORE_CTX_check_policy_fn; cdecl; +procedure Load_X509_STORE_set_cleanup(ctx: PX509_STORE; cleanup: X509_STORE_CTX_cleanup_fn); cdecl; +function Load_X509_STORE_get_cleanup(ctx: PX509_STORE): X509_STORE_CTX_cleanup_fn; cdecl; +function Load_X509_STORE_set_ex_data(ctx: PX509_STORE; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_get_ex_data(ctx: PX509_STORE; idx: TOpenSSL_C_INT): Pointer; cdecl; +function Load_X509_STORE_CTX_new: PX509_STORE_CTX; cdecl; +function Load_X509_STORE_CTX_get1_issuer(issuer: PPX509; ctx: PX509_STORE_CTX; x: PX509): TOpenSSL_C_INT; cdecl; +procedure Load_X509_STORE_CTX_free(ctx: PX509_STORE_CTX); cdecl; +procedure Load_X509_STORE_CTX_cleanup(ctx: PX509_STORE_CTX); cdecl; +function Load_X509_STORE_CTX_get0_store(ctx: PX509_STORE_CTX): PX509_STORE; cdecl; +function Load_X509_STORE_CTX_get0_cert(ctx: PX509_STORE_CTX): PX509; cdecl; +procedure Load_X509_STORE_CTX_set_verify_cb(ctx: PX509_STORE_CTX; verify: X509_STORE_CTX_verify_cb); cdecl; +function Load_X509_STORE_CTX_get_verify_cb(ctx: PX509_STORE_CTX): X509_STORE_CTX_verify_cb; cdecl; +function Load_X509_STORE_CTX_get_verify(ctx: PX509_STORE_CTX): X509_STORE_CTX_verify_fn; cdecl; +function Load_X509_STORE_CTX_get_get_issuer(ctx: PX509_STORE_CTX): X509_STORE_CTX_get_issuer_fn; cdecl; +function Load_X509_STORE_CTX_get_check_issued(ctx: PX509_STORE_CTX): X509_STORE_CTX_check_issued_fn; cdecl; +function Load_X509_STORE_CTX_get_check_revocation(ctx: PX509_STORE_CTX): X509_STORE_CTX_check_revocation_fn; cdecl; +function Load_X509_STORE_CTX_get_get_crl(ctx: PX509_STORE_CTX): X509_STORE_CTX_get_crl_fn; cdecl; +function Load_X509_STORE_CTX_get_check_crl(ctx: PX509_STORE_CTX): X509_STORE_CTX_check_crl_fn; cdecl; +function Load_X509_STORE_CTX_get_cert_crl(ctx: PX509_STORE_CTX): X509_STORE_CTX_cert_crl_fn; cdecl; +function Load_X509_STORE_CTX_get_check_policy(ctx: PX509_STORE_CTX): X509_STORE_CTX_check_policy_fn; cdecl; +function Load_X509_STORE_CTX_get_cleanup(ctx: PX509_STORE_CTX): X509_STORE_CTX_cleanup_fn; cdecl; +function Load_X509_STORE_add_lookup(v: PX509_STORE; m: PX509_LOOKUP_METHOD): PX509_LOOKUP; cdecl; +function Load_X509_LOOKUP_hash_dir: PX509_LOOKUP_METHOD; cdecl; +function Load_X509_LOOKUP_file: PX509_LOOKUP_METHOD; cdecl; +function Load_X509_LOOKUP_meth_new(const name: PAnsiChar): PX509_LOOKUP_METHOD; cdecl; +procedure Load_X509_LOOKUP_meth_free(method: PX509_LOOKUP_METHOD); cdecl; +function Load_X509_LOOKUP_meth_set_ctrl(method: PX509_LOOKUP_METHOD; ctrl_fn: X509_LOOKUP_ctrl_fn): TOpenSSL_C_INT; cdecl; +function Load_X509_LOOKUP_meth_get_ctrl(const method: PX509_LOOKUP_METHOD): X509_LOOKUP_ctrl_fn; cdecl; +function Load_X509_LOOKUP_meth_set_get_by_subject(method: PX509_LOOKUP_METHOD; fn: X509_LOOKUP_get_by_subject_fn): TOpenSSL_C_INT; cdecl; +function Load_X509_LOOKUP_meth_get_get_by_subject(const method: PX509_LOOKUP_METHOD): X509_LOOKUP_get_by_subject_fn; cdecl; +function Load_X509_LOOKUP_meth_set_get_by_issuer_serial(method: PX509_LOOKUP_METHOD; fn: X509_LOOKUP_get_by_issuer_serial_fn): TOpenSSL_C_INT; cdecl; +function Load_X509_LOOKUP_meth_get_get_by_issuer_serial(const method: PX509_LOOKUP_METHOD): X509_LOOKUP_get_by_issuer_serial_fn; cdecl; +function Load_X509_LOOKUP_meth_set_get_by_fingerprint(method: PX509_LOOKUP_METHOD; fn: X509_LOOKUP_get_by_fingerprint_fn): TOpenSSL_C_INT; cdecl; +function Load_X509_LOOKUP_meth_get_get_by_fingerprint(const method: PX509_LOOKUP_METHOD): X509_LOOKUP_get_by_fingerprint_fn; cdecl; +function Load_X509_LOOKUP_meth_set_get_by_alias(method: PX509_LOOKUP_METHOD; fn: X509_LOOKUP_get_by_alias_fn): TOpenSSL_C_INT; cdecl; +function Load_X509_LOOKUP_meth_get_get_by_alias(const method: PX509_LOOKUP_METHOD): X509_LOOKUP_get_by_alias_fn; cdecl; +function Load_X509_STORE_add_cert(ctx: PX509_STORE; x: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_add_crl(ctx: PX509_STORE; x: PX509_CRL): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_CTX_get_by_subject(vs: PX509_STORE_CTX; type_: X509_LOOKUP_TYPE; name: PX509_NAME; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_CTX_get_obj_by_subject(vs: PX509_STORE_CTX; type_: X509_LOOKUP_TYPE; name: PX509_NAME): PX509_OBJECT; cdecl; +function Load_X509_LOOKUP_ctrl(ctx: PX509_LOOKUP; cmd: TOpenSSL_C_INT; const argc: PAnsiChar; argl: TOpenSSL_C_LONG; ret: PPAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_X509_load_cert_file(ctx: PX509_LOOKUP; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_load_crl_file(ctx: PX509_LOOKUP; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_load_cert_crl_file(ctx: PX509_LOOKUP; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_LOOKUP_new(method: PX509_LOOKUP_METHOD): PX509_LOOKUP; cdecl; +procedure Load_X509_LOOKUP_free(ctx: PX509_LOOKUP); cdecl; +function Load_X509_LOOKUP_init(ctx: PX509_LOOKUP): TOpenSSL_C_INT; cdecl; +function Load_X509_LOOKUP_by_subject(ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; name: PX509_NAME; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_X509_LOOKUP_by_issuer_serial(ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; name: PX509_NAME; serial: PASN1_INTEGER; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_X509_LOOKUP_by_fingerprint(ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; const bytes: PByte; len: TOpenSSL_C_INT; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_X509_LOOKUP_by_alias(ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; const str: PAnsiChar; len: TOpenSSL_C_INT; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_X509_LOOKUP_set_method_data(ctx: PX509_LOOKUP; data: Pointer): TOpenSSL_C_INT; cdecl; +function Load_X509_LOOKUP_get_method_data(const ctx: PX509_LOOKUP): Pointer; cdecl; +function Load_X509_LOOKUP_get_store(const ctx: PX509_LOOKUP): PX509_STORE; cdecl; +function Load_X509_LOOKUP_shutdown(ctx: PX509_LOOKUP): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_load_locations(ctx: PX509_STORE; const file_: PAnsiChar; const dir: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_set_default_paths(ctx: PX509_STORE): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_CTX_set_ex_data(ctx: PX509_STORE_CTX; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_CTX_get_ex_data(ctx: PX509_STORE_CTX; idx: TOpenSSL_C_INT): Pointer; cdecl; +function Load_X509_STORE_CTX_get_error(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; +procedure Load_X509_STORE_CTX_set_error(ctx: X509_STORE_CTX; s: TOpenSSL_C_INT); cdecl; +function Load_X509_STORE_CTX_get_error_depth(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; +procedure Load_X509_STORE_CTX_set_error_depth(ctx: PX509_STORE_CTX; depth: TOpenSSL_C_INT); cdecl; +function Load_X509_STORE_CTX_get_current_cert(ctx: PX509_STORE_CTX): PX509; cdecl; +procedure Load_X509_STORE_CTX_set_current_cert(ctx: PX509_STORE_CTX; x: PX509); cdecl; +function Load_X509_STORE_CTX_get0_current_issuer(ctx: PX509_STORE_CTX): PX509; cdecl; +function Load_X509_STORE_CTX_get0_current_crl(ctx: PX509_STORE_CTX): PX509_CRL; cdecl; +function Load_X509_STORE_CTX_get0_parent_ctx(ctx: PX509_STORE_CTX): PX509_STORE_CTX; cdecl; +procedure Load_X509_STORE_CTX_set_cert(c: PX509_STORE_CTX; x: PX509); cdecl; +function Load_X509_STORE_CTX_set_purpose(ctx: PX509_STORE_CTX; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_CTX_set_trust(ctx: PX509_STORE_CTX; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_CTX_purpose_inherit(ctx: PX509_STORE_CTX; def_purpose: TOpenSSL_C_INT; purpose: TOpenSSL_C_INT; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_X509_STORE_CTX_set_flags(ctx: PX509_STORE_CTX; flags: TOpenSSL_C_ULONG); cdecl; +function Load_X509_STORE_CTX_get0_policy_tree(ctx: PX509_STORE_CTX): PX509_POLICY_TREE; cdecl; +function Load_X509_STORE_CTX_get_explicit_policy(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_CTX_get_num_untrusted(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; +function Load_X509_STORE_CTX_get0_param(ctx: PX509_STORE_CTX): PX509_VERIFY_PARAM; cdecl; +procedure Load_X509_STORE_CTX_set0_param(ctx: PX509_STORE_CTX; param: PX509_VERIFY_PARAM); cdecl; +function Load_X509_STORE_CTX_set_default(ctx: PX509_STORE_CTX; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +procedure Load_X509_STORE_CTX_set0_dane(ctx: PX509_STORE_CTX; dane: PSSL_DANE); cdecl; +function Load_X509_VERIFY_PARAM_new: PX509_VERIFY_PARAM; cdecl; +procedure Load_X509_VERIFY_PARAM_free(param: PX509_VERIFY_PARAM); cdecl; +function Load_X509_VERIFY_PARAM_inherit(to_: PX509_VERIFY_PARAM; const from: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; +function Load_X509_VERIFY_PARAM_set1(to_: PX509_VERIFY_PARAM; const from: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; +function Load_X509_VERIFY_PARAM_set1_name(param: PX509_VERIFY_PARAM; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_X509_VERIFY_PARAM_set_flags(param: PX509_VERIFY_PARAM; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_X509_VERIFY_PARAM_clear_flags(param: PX509_VERIFY_PARAM; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +function Load_X509_VERIFY_PARAM_get_flags(param: PX509_VERIFY_PARAM): TOpenSSL_C_ULONG; cdecl; +function Load_X509_VERIFY_PARAM_set_purpose(param: PX509_VERIFY_PARAM; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_VERIFY_PARAM_set_trust(param: PX509_VERIFY_PARAM; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_X509_VERIFY_PARAM_set_depth(param: PX509_VERIFY_PARAM; depth: TOpenSSL_C_INT); cdecl; +procedure Load_X509_VERIFY_PARAM_set_auth_level(param: PX509_VERIFY_PARAM; auth_level: TOpenSSL_C_INT); cdecl; +function Load_X509_VERIFY_PARAM_add0_policy(param: PX509_VERIFY_PARAM; policy: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +function Load_X509_VERIFY_PARAM_set_inh_flags(param: PX509_VERIFY_PARAM; flags: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; +function Load_X509_VERIFY_PARAM_get_inh_flags(const param: PX509_VERIFY_PARAM): TOpenSSL_C_UINT32; cdecl; +function Load_X509_VERIFY_PARAM_set1_host(param: PX509_VERIFY_PARAM; const name: PAnsiChar; namelen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_X509_VERIFY_PARAM_add1_host(param: PX509_VERIFY_PARAM; const name: PAnsiChar; namelen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +procedure Load_X509_VERIFY_PARAM_set_hostflags(param: PX509_VERIFY_PARAM; flags: TOpenSSL_C_UINT); cdecl; +function Load_X509_VERIFY_PARAM_get_hostflags(const param: PX509_VERIFY_PARAM): TOpenSSL_C_UINT; cdecl; +function Load_X509_VERIFY_PARAM_get0_peername(v1: PX509_VERIFY_PARAM): PAnsiChar; cdecl; +procedure Load_X509_VERIFY_PARAM_move_peername(v1: PX509_VERIFY_PARAM; v2: PX509_VERIFY_PARAM); cdecl; +function Load_X509_VERIFY_PARAM_set1_email(param: PX509_VERIFY_PARAM; const email: PAnsiChar; emaillen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_X509_VERIFY_PARAM_set1_ip(param: PX509_VERIFY_PARAM; const ip: PByte; iplen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +function Load_X509_VERIFY_PARAM_set1_ip_asc(param: PX509_VERIFY_PARAM; const ipasc: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_X509_VERIFY_PARAM_get_depth(const param: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; +function Load_X509_VERIFY_PARAM_get_auth_level(const param: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; +function Load_X509_VERIFY_PARAM_get0_name(const param: PX509_VERIFY_PARAM): PAnsiChar; cdecl; +function Load_X509_VERIFY_PARAM_add0_table(param: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; +function Load_X509_VERIFY_PARAM_get_count: TOpenSSL_C_INT; cdecl; +function Load_X509_VERIFY_PARAM_get0(id: TOpenSSL_C_INT): PX509_VERIFY_PARAM; cdecl; +function Load_X509_VERIFY_PARAM_lookup(const name: PAnsiChar): X509_VERIFY_PARAM; cdecl; +procedure Load_X509_VERIFY_PARAM_table_cleanup; cdecl; +procedure Load_X509_policy_tree_free(tree: PX509_POLICY_TREE); cdecl; +function Load_X509_policy_tree_level_count(const tree: PX509_POLICY_TREE): TOpenSSL_C_INT; cdecl; +function Load_X509_policy_tree_get0_level(const tree: PX509_POLICY_TREE; i: TOpenSSL_C_INT): PX509_POLICY_LEVEL; cdecl; +function Load_X509_policy_level_node_count(level: PX509_POLICY_LEVEL): TOpenSSL_C_INT; cdecl; +function Load_X509_policy_level_get0_node(level: PX509_POLICY_LEVEL; i: TOpenSSL_C_INT): PX509_POLICY_NODE; cdecl; +function Load_X509_policy_node_get0_policy(const node: PX509_POLICY_NODE): PASN1_OBJECT; cdecl; +function Load_X509_policy_node_get0_parent(const node: PX509_POLICY_NODE): PX509_POLICY_NODE; cdecl; + +var + X509_STORE_set_depth: function (store: PX509_STORE; depth: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_STORE_set_depth; + X509_STORE_CTX_set_depth: procedure (ctx: PX509_STORE_CTX; depth: TOpenSSL_C_INT); cdecl = Load_X509_STORE_CTX_set_depth; + X509_OBJECT_up_ref_count: function (a: PX509_OBJECT): TOpenSSL_C_INT; cdecl = Load_X509_OBJECT_up_ref_count; + X509_OBJECT_new: function : PX509_OBJECT; cdecl = Load_X509_OBJECT_new; + X509_OBJECT_free: procedure (a: PX509_OBJECT); cdecl = Load_X509_OBJECT_free; + X509_OBJECT_get_type: function (const a: PX509_OBJECT): X509_LOOKUP_TYPE; cdecl = Load_X509_OBJECT_get_type; + X509_OBJECT_get0_X509: function (const a: PX509_OBJECT): PX509; cdecl = Load_X509_OBJECT_get0_X509; + X509_OBJECT_set1_X509: function (a: PX509_OBJECT; obj: PX509): TOpenSSL_C_INT; cdecl = Load_X509_OBJECT_set1_X509; + X509_OBJECT_get0_X509_CRL: function (a: PX509_OBJECT): PX509_CRL; cdecl = Load_X509_OBJECT_get0_X509_CRL; + X509_OBJECT_set1_X509_CRL: function (a: PX509_OBJECT; obj: PX509_CRL): TOpenSSL_C_INT; cdecl = Load_X509_OBJECT_set1_X509_CRL; + X509_STORE_new: function : PX509_STORE; cdecl = Load_X509_STORE_new; + X509_STORE_free: procedure (v: PX509_STORE); cdecl = Load_X509_STORE_free; + X509_STORE_lock: function (ctx: PX509_STORE): TOpenSSL_C_INT; cdecl = Load_X509_STORE_lock; + X509_STORE_unlock: function (ctx: PX509_STORE): TOpenSSL_C_INT; cdecl = Load_X509_STORE_unlock; + X509_STORE_up_ref: function (v: PX509_STORE): TOpenSSL_C_INT; cdecl = Load_X509_STORE_up_ref; + X509_STORE_set_flags: function (ctx: PX509_STORE; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_X509_STORE_set_flags; + X509_STORE_set_purpose: function (ctx: PX509_STORE; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_STORE_set_purpose; + X509_STORE_set_trust: function (ctx: PX509_STORE; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_STORE_set_trust; + X509_STORE_set1_param: function (ctx: PX509_STORE; pm: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl = Load_X509_STORE_set1_param; + X509_STORE_get0_param: function (ctx: PX509_STORE): PX509_VERIFY_PARAM; cdecl = Load_X509_STORE_get0_param; + X509_STORE_set_verify: procedure (ctx: PX509_STORE; verify: X509_STORE_CTX_verify_fn); cdecl = Load_X509_STORE_set_verify; + X509_STORE_CTX_set_verify: procedure (ctx: PX509_STORE_CTX; verify: X509_STORE_CTX_verify_fn); cdecl = Load_X509_STORE_CTX_set_verify; + X509_STORE_get_verify: function (ctx: PX509_STORE): X509_STORE_CTX_verify_fn; cdecl = Load_X509_STORE_get_verify; + X509_STORE_set_verify_cb: procedure (ctx: PX509_STORE; verify_cb: X509_STORE_CTX_verify_cb); cdecl = Load_X509_STORE_set_verify_cb; + X509_STORE_get_verify_cb: function (ctx: PX509_STORE): X509_STORE_CTX_verify_cb; cdecl = Load_X509_STORE_get_verify_cb; + X509_STORE_set_get_issuer: procedure (ctx: PX509_STORE; get_issuer: X509_STORE_CTX_get_issuer_fn); cdecl = Load_X509_STORE_set_get_issuer; + X509_STORE_get_get_issuer: function (ctx: PX509_STORE): X509_STORE_CTX_get_issuer_fn; cdecl = Load_X509_STORE_get_get_issuer; + X509_STORE_set_check_issued: procedure (ctx: PX509_STORE; check_issued: X509_STORE_CTX_check_issued_fn); cdecl = Load_X509_STORE_set_check_issued; + X509_STORE_get_check_issued: function (ctx: PX509_STORE): X509_STORE_CTX_check_issued_fn; cdecl = Load_X509_STORE_get_check_issued; + X509_STORE_set_check_revocation: procedure (ctx: PX509_STORE; check_revocation: X509_STORE_CTX_check_revocation_fn); cdecl = Load_X509_STORE_set_check_revocation; + X509_STORE_get_check_revocation: function (ctx: PX509_STORE): X509_STORE_CTX_check_revocation_fn; cdecl = Load_X509_STORE_get_check_revocation; + X509_STORE_set_get_crl: procedure (ctx: PX509_STORE; get_crl: X509_STORE_CTX_get_crl_fn); cdecl = Load_X509_STORE_set_get_crl; + X509_STORE_get_get_crl: function (ctx: PX509_STORE): X509_STORE_CTX_get_crl_fn; cdecl = Load_X509_STORE_get_get_crl; + X509_STORE_set_check_crl: procedure (ctx: PX509_STORE; check_crl: X509_STORE_CTX_check_crl_fn); cdecl = Load_X509_STORE_set_check_crl; + X509_STORE_get_check_crl: function (ctx: PX509_STORE): X509_STORE_CTX_check_crl_fn; cdecl = Load_X509_STORE_get_check_crl; + X509_STORE_set_cert_crl: procedure (ctx: PX509_STORE; cert_crl: X509_STORE_CTX_cert_crl_fn); cdecl = Load_X509_STORE_set_cert_crl; + X509_STORE_get_cert_crl: function (ctx: PX509_STORE): X509_STORE_CTX_cert_crl_fn; cdecl = Load_X509_STORE_get_cert_crl; + X509_STORE_set_check_policy: procedure (ctx: PX509_STORE; check_policy: X509_STORE_CTX_check_policy_fn); cdecl = Load_X509_STORE_set_check_policy; + X509_STORE_get_check_policy: function (ctx: PX509_STORE): X509_STORE_CTX_check_policy_fn; cdecl = Load_X509_STORE_get_check_policy; + X509_STORE_set_cleanup: procedure (ctx: PX509_STORE; cleanup: X509_STORE_CTX_cleanup_fn); cdecl = Load_X509_STORE_set_cleanup; + X509_STORE_get_cleanup: function (ctx: PX509_STORE): X509_STORE_CTX_cleanup_fn; cdecl = Load_X509_STORE_get_cleanup; + X509_STORE_set_ex_data: function (ctx: PX509_STORE; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl = Load_X509_STORE_set_ex_data; + X509_STORE_get_ex_data: function (ctx: PX509_STORE; idx: TOpenSSL_C_INT): Pointer; cdecl = Load_X509_STORE_get_ex_data; + X509_STORE_CTX_new: function : PX509_STORE_CTX; cdecl = Load_X509_STORE_CTX_new; + X509_STORE_CTX_get1_issuer: function (issuer: PPX509; ctx: PX509_STORE_CTX; x: PX509): TOpenSSL_C_INT; cdecl = Load_X509_STORE_CTX_get1_issuer; + X509_STORE_CTX_free: procedure (ctx: PX509_STORE_CTX); cdecl = Load_X509_STORE_CTX_free; + X509_STORE_CTX_cleanup: procedure (ctx: PX509_STORE_CTX); cdecl = Load_X509_STORE_CTX_cleanup; + X509_STORE_CTX_get0_store: function (ctx: PX509_STORE_CTX): PX509_STORE; cdecl = Load_X509_STORE_CTX_get0_store; + X509_STORE_CTX_get0_cert: function (ctx: PX509_STORE_CTX): PX509; cdecl = Load_X509_STORE_CTX_get0_cert; + X509_STORE_CTX_set_verify_cb: procedure (ctx: PX509_STORE_CTX; verify: X509_STORE_CTX_verify_cb); cdecl = Load_X509_STORE_CTX_set_verify_cb; + X509_STORE_CTX_get_verify_cb: function (ctx: PX509_STORE_CTX): X509_STORE_CTX_verify_cb; cdecl = Load_X509_STORE_CTX_get_verify_cb; + X509_STORE_CTX_get_verify: function (ctx: PX509_STORE_CTX): X509_STORE_CTX_verify_fn; cdecl = Load_X509_STORE_CTX_get_verify; + X509_STORE_CTX_get_get_issuer: function (ctx: PX509_STORE_CTX): X509_STORE_CTX_get_issuer_fn; cdecl = Load_X509_STORE_CTX_get_get_issuer; + X509_STORE_CTX_get_check_issued: function (ctx: PX509_STORE_CTX): X509_STORE_CTX_check_issued_fn; cdecl = Load_X509_STORE_CTX_get_check_issued; + X509_STORE_CTX_get_check_revocation: function (ctx: PX509_STORE_CTX): X509_STORE_CTX_check_revocation_fn; cdecl = Load_X509_STORE_CTX_get_check_revocation; + X509_STORE_CTX_get_get_crl: function (ctx: PX509_STORE_CTX): X509_STORE_CTX_get_crl_fn; cdecl = Load_X509_STORE_CTX_get_get_crl; + X509_STORE_CTX_get_check_crl: function (ctx: PX509_STORE_CTX): X509_STORE_CTX_check_crl_fn; cdecl = Load_X509_STORE_CTX_get_check_crl; + X509_STORE_CTX_get_cert_crl: function (ctx: PX509_STORE_CTX): X509_STORE_CTX_cert_crl_fn; cdecl = Load_X509_STORE_CTX_get_cert_crl; + X509_STORE_CTX_get_check_policy: function (ctx: PX509_STORE_CTX): X509_STORE_CTX_check_policy_fn; cdecl = Load_X509_STORE_CTX_get_check_policy; + X509_STORE_CTX_get_cleanup: function (ctx: PX509_STORE_CTX): X509_STORE_CTX_cleanup_fn; cdecl = Load_X509_STORE_CTX_get_cleanup; + X509_STORE_add_lookup: function (v: PX509_STORE; m: PX509_LOOKUP_METHOD): PX509_LOOKUP; cdecl = Load_X509_STORE_add_lookup; + X509_LOOKUP_hash_dir: function : PX509_LOOKUP_METHOD; cdecl = Load_X509_LOOKUP_hash_dir; + X509_LOOKUP_file: function : PX509_LOOKUP_METHOD; cdecl = Load_X509_LOOKUP_file; + X509_LOOKUP_meth_new: function (const name: PAnsiChar): PX509_LOOKUP_METHOD; cdecl = Load_X509_LOOKUP_meth_new; + X509_LOOKUP_meth_free: procedure (method: PX509_LOOKUP_METHOD); cdecl = Load_X509_LOOKUP_meth_free; + X509_LOOKUP_meth_set_ctrl: function (method: PX509_LOOKUP_METHOD; ctrl_fn: X509_LOOKUP_ctrl_fn): TOpenSSL_C_INT; cdecl = Load_X509_LOOKUP_meth_set_ctrl; + X509_LOOKUP_meth_get_ctrl: function (const method: PX509_LOOKUP_METHOD): X509_LOOKUP_ctrl_fn; cdecl = Load_X509_LOOKUP_meth_get_ctrl; + X509_LOOKUP_meth_set_get_by_subject: function (method: PX509_LOOKUP_METHOD; fn: X509_LOOKUP_get_by_subject_fn): TOpenSSL_C_INT; cdecl = Load_X509_LOOKUP_meth_set_get_by_subject; + X509_LOOKUP_meth_get_get_by_subject: function (const method: PX509_LOOKUP_METHOD): X509_LOOKUP_get_by_subject_fn; cdecl = Load_X509_LOOKUP_meth_get_get_by_subject; + X509_LOOKUP_meth_set_get_by_issuer_serial: function (method: PX509_LOOKUP_METHOD; fn: X509_LOOKUP_get_by_issuer_serial_fn): TOpenSSL_C_INT; cdecl = Load_X509_LOOKUP_meth_set_get_by_issuer_serial; + X509_LOOKUP_meth_get_get_by_issuer_serial: function (const method: PX509_LOOKUP_METHOD): X509_LOOKUP_get_by_issuer_serial_fn; cdecl = Load_X509_LOOKUP_meth_get_get_by_issuer_serial; + X509_LOOKUP_meth_set_get_by_fingerprint: function (method: PX509_LOOKUP_METHOD; fn: X509_LOOKUP_get_by_fingerprint_fn): TOpenSSL_C_INT; cdecl = Load_X509_LOOKUP_meth_set_get_by_fingerprint; + X509_LOOKUP_meth_get_get_by_fingerprint: function (const method: PX509_LOOKUP_METHOD): X509_LOOKUP_get_by_fingerprint_fn; cdecl = Load_X509_LOOKUP_meth_get_get_by_fingerprint; + X509_LOOKUP_meth_set_get_by_alias: function (method: PX509_LOOKUP_METHOD; fn: X509_LOOKUP_get_by_alias_fn): TOpenSSL_C_INT; cdecl = Load_X509_LOOKUP_meth_set_get_by_alias; + X509_LOOKUP_meth_get_get_by_alias: function (const method: PX509_LOOKUP_METHOD): X509_LOOKUP_get_by_alias_fn; cdecl = Load_X509_LOOKUP_meth_get_get_by_alias; + X509_STORE_add_cert: function (ctx: PX509_STORE; x: PX509): TOpenSSL_C_INT; cdecl = Load_X509_STORE_add_cert; + X509_STORE_add_crl: function (ctx: PX509_STORE; x: PX509_CRL): TOpenSSL_C_INT; cdecl = Load_X509_STORE_add_crl; + X509_STORE_CTX_get_by_subject: function (vs: PX509_STORE_CTX; type_: X509_LOOKUP_TYPE; name: PX509_NAME; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl = Load_X509_STORE_CTX_get_by_subject; + X509_STORE_CTX_get_obj_by_subject: function (vs: PX509_STORE_CTX; type_: X509_LOOKUP_TYPE; name: PX509_NAME): PX509_OBJECT; cdecl = Load_X509_STORE_CTX_get_obj_by_subject; + X509_LOOKUP_ctrl: function (ctx: PX509_LOOKUP; cmd: TOpenSSL_C_INT; const argc: PAnsiChar; argl: TOpenSSL_C_LONG; ret: PPAnsiChar): TOpenSSL_C_INT; cdecl = Load_X509_LOOKUP_ctrl; + X509_load_cert_file: function (ctx: PX509_LOOKUP; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_load_cert_file; + X509_load_crl_file: function (ctx: PX509_LOOKUP; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_load_crl_file; + X509_load_cert_crl_file: function (ctx: PX509_LOOKUP; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_load_cert_crl_file; + X509_LOOKUP_new: function (method: PX509_LOOKUP_METHOD): PX509_LOOKUP; cdecl = Load_X509_LOOKUP_new; + X509_LOOKUP_free: procedure (ctx: PX509_LOOKUP); cdecl = Load_X509_LOOKUP_free; + X509_LOOKUP_init: function (ctx: PX509_LOOKUP): TOpenSSL_C_INT; cdecl = Load_X509_LOOKUP_init; + X509_LOOKUP_by_subject: function (ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; name: PX509_NAME; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl = Load_X509_LOOKUP_by_subject; + X509_LOOKUP_by_issuer_serial: function (ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; name: PX509_NAME; serial: PASN1_INTEGER; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl = Load_X509_LOOKUP_by_issuer_serial; + X509_LOOKUP_by_fingerprint: function (ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; const bytes: PByte; len: TOpenSSL_C_INT; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl = Load_X509_LOOKUP_by_fingerprint; + X509_LOOKUP_by_alias: function (ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; const str: PAnsiChar; len: TOpenSSL_C_INT; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl = Load_X509_LOOKUP_by_alias; + X509_LOOKUP_set_method_data: function (ctx: PX509_LOOKUP; data: Pointer): TOpenSSL_C_INT; cdecl = Load_X509_LOOKUP_set_method_data; + X509_LOOKUP_get_method_data: function (const ctx: PX509_LOOKUP): Pointer; cdecl = Load_X509_LOOKUP_get_method_data; + X509_LOOKUP_get_store: function (const ctx: PX509_LOOKUP): PX509_STORE; cdecl = Load_X509_LOOKUP_get_store; + X509_LOOKUP_shutdown: function (ctx: PX509_LOOKUP): TOpenSSL_C_INT; cdecl = Load_X509_LOOKUP_shutdown; + X509_STORE_load_locations: function (ctx: PX509_STORE; const file_: PAnsiChar; const dir: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_X509_STORE_load_locations; + X509_STORE_set_default_paths: function (ctx: PX509_STORE): TOpenSSL_C_INT; cdecl = Load_X509_STORE_set_default_paths; + X509_STORE_CTX_set_ex_data: function (ctx: PX509_STORE_CTX; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl = Load_X509_STORE_CTX_set_ex_data; + X509_STORE_CTX_get_ex_data: function (ctx: PX509_STORE_CTX; idx: TOpenSSL_C_INT): Pointer; cdecl = Load_X509_STORE_CTX_get_ex_data; + X509_STORE_CTX_get_error: function (ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl = Load_X509_STORE_CTX_get_error; + X509_STORE_CTX_set_error: procedure (ctx: X509_STORE_CTX; s: TOpenSSL_C_INT); cdecl = Load_X509_STORE_CTX_set_error; + X509_STORE_CTX_get_error_depth: function (ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl = Load_X509_STORE_CTX_get_error_depth; + X509_STORE_CTX_set_error_depth: procedure (ctx: PX509_STORE_CTX; depth: TOpenSSL_C_INT); cdecl = Load_X509_STORE_CTX_set_error_depth; + X509_STORE_CTX_get_current_cert: function (ctx: PX509_STORE_CTX): PX509; cdecl = Load_X509_STORE_CTX_get_current_cert; + X509_STORE_CTX_set_current_cert: procedure (ctx: PX509_STORE_CTX; x: PX509); cdecl = Load_X509_STORE_CTX_set_current_cert; + X509_STORE_CTX_get0_current_issuer: function (ctx: PX509_STORE_CTX): PX509; cdecl = Load_X509_STORE_CTX_get0_current_issuer; + X509_STORE_CTX_get0_current_crl: function (ctx: PX509_STORE_CTX): PX509_CRL; cdecl = Load_X509_STORE_CTX_get0_current_crl; + X509_STORE_CTX_get0_parent_ctx: function (ctx: PX509_STORE_CTX): PX509_STORE_CTX; cdecl = Load_X509_STORE_CTX_get0_parent_ctx; + X509_STORE_CTX_set_cert: procedure (c: PX509_STORE_CTX; x: PX509); cdecl = Load_X509_STORE_CTX_set_cert; + X509_STORE_CTX_set_purpose: function (ctx: PX509_STORE_CTX; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_STORE_CTX_set_purpose; + X509_STORE_CTX_set_trust: function (ctx: PX509_STORE_CTX; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_STORE_CTX_set_trust; + X509_STORE_CTX_purpose_inherit: function (ctx: PX509_STORE_CTX; def_purpose: TOpenSSL_C_INT; purpose: TOpenSSL_C_INT; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_STORE_CTX_purpose_inherit; + X509_STORE_CTX_set_flags: procedure (ctx: PX509_STORE_CTX; flags: TOpenSSL_C_ULONG); cdecl = Load_X509_STORE_CTX_set_flags; + X509_STORE_CTX_get0_policy_tree: function (ctx: PX509_STORE_CTX): PX509_POLICY_TREE; cdecl = Load_X509_STORE_CTX_get0_policy_tree; + X509_STORE_CTX_get_explicit_policy: function (ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl = Load_X509_STORE_CTX_get_explicit_policy; + X509_STORE_CTX_get_num_untrusted: function (ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl = Load_X509_STORE_CTX_get_num_untrusted; + X509_STORE_CTX_get0_param: function (ctx: PX509_STORE_CTX): PX509_VERIFY_PARAM; cdecl = Load_X509_STORE_CTX_get0_param; + X509_STORE_CTX_set0_param: procedure (ctx: PX509_STORE_CTX; param: PX509_VERIFY_PARAM); cdecl = Load_X509_STORE_CTX_set0_param; + X509_STORE_CTX_set_default: function (ctx: PX509_STORE_CTX; const name: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_X509_STORE_CTX_set_default; + X509_STORE_CTX_set0_dane: procedure (ctx: PX509_STORE_CTX; dane: PSSL_DANE); cdecl = Load_X509_STORE_CTX_set0_dane; + X509_VERIFY_PARAM_new: function : PX509_VERIFY_PARAM; cdecl = Load_X509_VERIFY_PARAM_new; + X509_VERIFY_PARAM_free: procedure (param: PX509_VERIFY_PARAM); cdecl = Load_X509_VERIFY_PARAM_free; + X509_VERIFY_PARAM_inherit: function (to_: PX509_VERIFY_PARAM; const from: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_inherit; + X509_VERIFY_PARAM_set1: function (to_: PX509_VERIFY_PARAM; const from: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_set1; + X509_VERIFY_PARAM_set1_name: function (param: PX509_VERIFY_PARAM; const name: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_set1_name; + X509_VERIFY_PARAM_set_flags: function (param: PX509_VERIFY_PARAM; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_set_flags; + X509_VERIFY_PARAM_clear_flags: function (param: PX509_VERIFY_PARAM; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_clear_flags; + X509_VERIFY_PARAM_get_flags: function (param: PX509_VERIFY_PARAM): TOpenSSL_C_ULONG; cdecl = Load_X509_VERIFY_PARAM_get_flags; + X509_VERIFY_PARAM_set_purpose: function (param: PX509_VERIFY_PARAM; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_set_purpose; + X509_VERIFY_PARAM_set_trust: function (param: PX509_VERIFY_PARAM; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_set_trust; + X509_VERIFY_PARAM_set_depth: procedure (param: PX509_VERIFY_PARAM; depth: TOpenSSL_C_INT); cdecl = Load_X509_VERIFY_PARAM_set_depth; + X509_VERIFY_PARAM_set_auth_level: procedure (param: PX509_VERIFY_PARAM; auth_level: TOpenSSL_C_INT); cdecl = Load_X509_VERIFY_PARAM_set_auth_level; + X509_VERIFY_PARAM_add0_policy: function (param: PX509_VERIFY_PARAM; policy: PASN1_OBJECT): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_add0_policy; + X509_VERIFY_PARAM_set_inh_flags: function (param: PX509_VERIFY_PARAM; flags: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_set_inh_flags; + X509_VERIFY_PARAM_get_inh_flags: function (const param: PX509_VERIFY_PARAM): TOpenSSL_C_UINT32; cdecl = Load_X509_VERIFY_PARAM_get_inh_flags; + X509_VERIFY_PARAM_set1_host: function (param: PX509_VERIFY_PARAM; const name: PAnsiChar; namelen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_set1_host; + X509_VERIFY_PARAM_add1_host: function (param: PX509_VERIFY_PARAM; const name: PAnsiChar; namelen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_add1_host; + X509_VERIFY_PARAM_set_hostflags: procedure (param: PX509_VERIFY_PARAM; flags: TOpenSSL_C_UINT); cdecl = Load_X509_VERIFY_PARAM_set_hostflags; + X509_VERIFY_PARAM_get_hostflags: function (const param: PX509_VERIFY_PARAM): TOpenSSL_C_UINT; cdecl = Load_X509_VERIFY_PARAM_get_hostflags; + X509_VERIFY_PARAM_get0_peername: function (v1: PX509_VERIFY_PARAM): PAnsiChar; cdecl = Load_X509_VERIFY_PARAM_get0_peername; + X509_VERIFY_PARAM_move_peername: procedure (v1: PX509_VERIFY_PARAM; v2: PX509_VERIFY_PARAM); cdecl = Load_X509_VERIFY_PARAM_move_peername; + X509_VERIFY_PARAM_set1_email: function (param: PX509_VERIFY_PARAM; const email: PAnsiChar; emaillen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_set1_email; + X509_VERIFY_PARAM_set1_ip: function (param: PX509_VERIFY_PARAM; const ip: PByte; iplen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_set1_ip; + X509_VERIFY_PARAM_set1_ip_asc: function (param: PX509_VERIFY_PARAM; const ipasc: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_set1_ip_asc; + X509_VERIFY_PARAM_get_depth: function (const param: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_get_depth; + X509_VERIFY_PARAM_get_auth_level: function (const param: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_get_auth_level; + X509_VERIFY_PARAM_get0_name: function (const param: PX509_VERIFY_PARAM): PAnsiChar; cdecl = Load_X509_VERIFY_PARAM_get0_name; + X509_VERIFY_PARAM_add0_table: function (param: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_add0_table; + X509_VERIFY_PARAM_get_count: function : TOpenSSL_C_INT; cdecl = Load_X509_VERIFY_PARAM_get_count; + X509_VERIFY_PARAM_get0: function (id: TOpenSSL_C_INT): PX509_VERIFY_PARAM; cdecl = Load_X509_VERIFY_PARAM_get0; + X509_VERIFY_PARAM_lookup: function (const name: PAnsiChar): X509_VERIFY_PARAM; cdecl = Load_X509_VERIFY_PARAM_lookup; + X509_VERIFY_PARAM_table_cleanup: procedure ; cdecl = Load_X509_VERIFY_PARAM_table_cleanup; + X509_policy_tree_free: procedure (tree: PX509_POLICY_TREE); cdecl = Load_X509_policy_tree_free; + X509_policy_tree_level_count: function (const tree: PX509_POLICY_TREE): TOpenSSL_C_INT; cdecl = Load_X509_policy_tree_level_count; + X509_policy_tree_get0_level: function (const tree: PX509_POLICY_TREE; i: TOpenSSL_C_INT): PX509_POLICY_LEVEL; cdecl = Load_X509_policy_tree_get0_level; + X509_policy_level_node_count: function (level: PX509_POLICY_LEVEL): TOpenSSL_C_INT; cdecl = Load_X509_policy_level_node_count; + X509_policy_level_get0_node: function (level: PX509_POLICY_LEVEL; i: TOpenSSL_C_INT): PX509_POLICY_NODE; cdecl = Load_X509_policy_level_get0_node; + X509_policy_node_get0_policy: function (const node: PX509_POLICY_NODE): PASN1_OBJECT; cdecl = Load_X509_policy_node_get0_policy; + X509_policy_node_get0_parent: function (const node: PX509_POLICY_NODE): PX509_POLICY_NODE; cdecl = Load_X509_policy_node_get0_parent; + + + + +{Removed functions for which legacy support available - use is deprecated} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +var + X509_STORE_CTX_get_app_data: function (ctx: PX509_STORE_CTX): Pointer; cdecl = Load_X509_STORE_CTX_get_app_data; {removed 1.0.0} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +const + X509_STORE_CTX_get_app_data_removed = ((((((byte(1) shl 8) or byte(0)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {removed 1.0.0} + X509_OBJECT_new_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_OBJECT_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_OBJECT_get_type_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_OBJECT_get0_X509_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_OBJECT_set1_X509_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_OBJECT_get0_X509_CRL_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_OBJECT_set1_X509_CRL_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_lock_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_unlock_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_up_ref_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_get0_param_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_set_verify_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_set_verify_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_get_verify_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_get_verify_cb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_set_get_issuer_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_get_get_issuer_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_set_check_issued_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_get_check_issued_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_set_check_revocation_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_get_check_revocation_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_set_get_crl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_get_get_crl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_set_check_crl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_get_check_crl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_set_cert_crl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_get_cert_crl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_set_check_policy_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_get_check_policy_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_set_cleanup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_get_cleanup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_set_ex_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_get_ex_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_get0_cert_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_get_verify_cb_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_get_verify_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_get_get_issuer_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_get_check_issued_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_get_check_revocation_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_get_get_crl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_get_check_crl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_get_cert_crl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_get_check_policy_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_get_cleanup_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_LOOKUP_meth_new_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_LOOKUP_meth_free_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_LOOKUP_meth_set_ctrl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_LOOKUP_meth_get_ctrl_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_LOOKUP_meth_set_get_by_subject_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_LOOKUP_meth_get_get_by_subject_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_LOOKUP_meth_set_get_by_issuer_serial_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_LOOKUP_meth_get_get_by_issuer_serial_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_LOOKUP_meth_set_get_by_fingerprint_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_LOOKUP_meth_get_get_by_fingerprint_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_LOOKUP_meth_set_get_by_alias_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_LOOKUP_meth_get_get_by_alias_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_get_by_subject_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_get_obj_by_subject_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_LOOKUP_set_method_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_LOOKUP_get_method_data_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_LOOKUP_get_store_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_set_error_depth_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_set_current_cert_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_get_num_untrusted_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_STORE_CTX_set0_dane_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_VERIFY_PARAM_set_auth_level_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_VERIFY_PARAM_set_inh_flags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_VERIFY_PARAM_get_inh_flags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_VERIFY_PARAM_get_hostflags_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_VERIFY_PARAM_move_peername_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + X509_VERIFY_PARAM_get_auth_level_introduced = ((((((byte(1) shl 8) or byte(1)) shl 8) or byte(0)) shl 8) or byte(0)) shl 4; {introduced 1.1.0} + + +implementation + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$MINENUMSIZE 4} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +type + _PX509_LOOKUP_METHOD = ^_X509_LOOKUP_METHOD; + _X509_LOOKUP_METHOD = record + name : PAnsiChar; + new_item : function (ctx : PX509_LOOKUP): TOpenSSL_C_INT; cdecl; + free : procedure (ctx : PX509_LOOKUP); cdecl; + init : function(ctx : PX509_LOOKUP) : TOpenSSL_C_INT; cdecl; + shutdown : function(ctx : PX509_LOOKUP) : TOpenSSL_C_INT; cdecl; + ctrl: function(ctx : PX509_LOOKUP; cmd : TOpenSSL_C_INT; const argc : PAnsiChar; argl : TOpenSSL_C_LONG; out ret : PAnsiChar ) : TOpenSSL_C_INT; cdecl; + get_by_subject: function(ctx : PX509_LOOKUP; _type : TOpenSSL_C_INT; name : PX509_NAME; ret : PX509_OBJECT ) : TOpenSSL_C_INT; cdecl; + get_by_issuer_serial : function(ctx : PX509_LOOKUP; _type : TOpenSSL_C_INT; name : PX509_NAME; serial : PASN1_INTEGER; ret : PX509_OBJECT) : TOpenSSL_C_INT; cdecl; + get_by_fingerprint : function (ctx : PX509_LOOKUP; _type : TOpenSSL_C_INT; bytes : PAnsiChar; len : TOpenSSL_C_INT; ret : PX509_OBJECT): TOpenSSL_C_INT; cdecl; + get_by_alias : function(ctx : PX509_LOOKUP; _type : TOpenSSL_C_INT; str : PAnsiChar; ret : PX509_OBJECT) : TOpenSSL_C_INT; cdecl; + end; + +const + Indy_x509_unicode_file_lookup: _X509_LOOKUP_METHOD = + ( + name: 'Load file into cache'; + new_item: nil; // * new */ + free: nil; // * free */ + init: nil; // * init */ + shutdown: nil; // * shutdown */ + ctrl: nil; // * ctrl */ + get_by_subject: nil; // * get_by_subject */ + get_by_issuer_serial: nil; // * get_by_issuer_serial */ + get_by_fingerprint: nil; // * get_by_fingerprint */ + get_by_alias: nil // * get_by_alias */ + ); + + +type + _PX509_LOOKUP = ^_X509_LOOKUP; + _X509_LOOKUP = record + init: TOpenSSL_C_INT; + skip: TOpenSSL_C_INT; + method: PX509_LOOKUP_METHOD; + method_data: PAnsiChar; + store_ctx: PX509_STORE; + end; + + + +function X509_LOOKUP_load_file(ctx: PX509_LOOKUP; name: PAnsiChar; type_: TOpenSSL_C_LONG): TOpenSSL_C_INT; +begin + Result := X509_LOOKUP_ctrl(ctx,X509_L_FILE_LOAD,name,type_,nil); +end; + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} + +{Legacy Support Functions} + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function X509_STORE_CTX_get_app_data(ctx: PX509_STORE_CTX): Pointer; + +begin + Result := X509_STORE_CTX_get_ex_data(ctx,SSL_get_ex_data_X509_STORE_CTX_idx); +end; + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ELSE} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function COMPAT_X509_STORE_CTX_get_app_data(ctx: PX509_STORE_CTX): Pointer; cdecl; + +begin + Result := X509_STORE_CTX_get_ex_data(ctx,SSL_get_ex_data_X509_STORE_CTX_idx); +end; + + +function COMPAT_X509_LOOKUP_meth_new(const name: PAnsiChar): PX509_LOOKUP_METHOD; cdecl; + +begin + Result := @Indy_x509_unicode_file_lookup; +end; + + + +procedure COMPAT_X509_LOOKUP_meth_free(method: PX509_LOOKUP_METHOD); cdecl; + +begin + //Do nothing +end; + + + +function COMPAT_X509_LOOKUP_meth_set_ctrl(method: PX509_LOOKUP_METHOD; ctrl_fn: X509_LOOKUP_ctrl_fn): TOpenSSL_C_INT; cdecl; + +begin + _PX509_LOOKUP_METHOD(method)^.ctrl := @ctrl_fn; + Result := 1; +end; +(* +struct x509_lookup_st { + int init; /* have we been started */ + int skip; /* don't use us. */ + X509_LOOKUP_METHOD *method; /* the functions */ + char *method_data; /* method data */ + X509_STORE *store_ctx; /* who owns us */ +} /* X509_LOOKUP */ ; +*) + + +function COMPAT_X509_LOOKUP_get_store(const ctx: PX509_LOOKUP): PX509_STORE; cdecl; + +begin + Result := _PX509_LOOKUP(ctx)^.store_ctx; +end; + + +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$MINENUMSIZE 4} +function Load_X509_STORE_set_depth(store: PX509_STORE; depth: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_set_depth := LoadLibCryptoFunction('X509_STORE_set_depth'); + if not assigned(X509_STORE_set_depth) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set_depth'); + Result := X509_STORE_set_depth(store,depth); +end; + +procedure Load_X509_STORE_CTX_set_depth(ctx: PX509_STORE_CTX; depth: TOpenSSL_C_INT); cdecl; +begin + X509_STORE_CTX_set_depth := LoadLibCryptoFunction('X509_STORE_CTX_set_depth'); + if not assigned(X509_STORE_CTX_set_depth) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_set_depth'); + X509_STORE_CTX_set_depth(ctx,depth); +end; + +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +function Load_X509_STORE_CTX_get_app_data(ctx: PX509_STORE_CTX): Pointer; cdecl; +begin + X509_STORE_CTX_get_app_data := LoadLibCryptoFunction('X509_STORE_CTX_get_app_data'); + if not assigned(X509_STORE_CTX_get_app_data) then + X509_STORE_CTX_get_app_data := @COMPAT_X509_STORE_CTX_get_app_data; + Result := X509_STORE_CTX_get_app_data(ctx); +end; + +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT +function Load_X509_OBJECT_up_ref_count(a: PX509_OBJECT): TOpenSSL_C_INT; cdecl; +begin + X509_OBJECT_up_ref_count := LoadLibCryptoFunction('X509_OBJECT_up_ref_count'); + if not assigned(X509_OBJECT_up_ref_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_OBJECT_up_ref_count'); + Result := X509_OBJECT_up_ref_count(a); +end; + +function Load_X509_OBJECT_new: PX509_OBJECT; cdecl; +begin + X509_OBJECT_new := LoadLibCryptoFunction('X509_OBJECT_new'); + if not assigned(X509_OBJECT_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_OBJECT_new'); + Result := X509_OBJECT_new(); +end; + +procedure Load_X509_OBJECT_free(a: PX509_OBJECT); cdecl; +begin + X509_OBJECT_free := LoadLibCryptoFunction('X509_OBJECT_free'); + if not assigned(X509_OBJECT_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_OBJECT_free'); + X509_OBJECT_free(a); +end; + +function Load_X509_OBJECT_get_type(const a: PX509_OBJECT): X509_LOOKUP_TYPE; cdecl; +begin + X509_OBJECT_get_type := LoadLibCryptoFunction('X509_OBJECT_get_type'); + if not assigned(X509_OBJECT_get_type) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_OBJECT_get_type'); + Result := X509_OBJECT_get_type(a); +end; + +function Load_X509_OBJECT_get0_X509(const a: PX509_OBJECT): PX509; cdecl; +begin + X509_OBJECT_get0_X509 := LoadLibCryptoFunction('X509_OBJECT_get0_X509'); + if not assigned(X509_OBJECT_get0_X509) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_OBJECT_get0_X509'); + Result := X509_OBJECT_get0_X509(a); +end; + +function Load_X509_OBJECT_set1_X509(a: PX509_OBJECT; obj: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_OBJECT_set1_X509 := LoadLibCryptoFunction('X509_OBJECT_set1_X509'); + if not assigned(X509_OBJECT_set1_X509) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_OBJECT_set1_X509'); + Result := X509_OBJECT_set1_X509(a,obj); +end; + +function Load_X509_OBJECT_get0_X509_CRL(a: PX509_OBJECT): PX509_CRL; cdecl; +begin + X509_OBJECT_get0_X509_CRL := LoadLibCryptoFunction('X509_OBJECT_get0_X509_CRL'); + if not assigned(X509_OBJECT_get0_X509_CRL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_OBJECT_get0_X509_CRL'); + Result := X509_OBJECT_get0_X509_CRL(a); +end; + +function Load_X509_OBJECT_set1_X509_CRL(a: PX509_OBJECT; obj: PX509_CRL): TOpenSSL_C_INT; cdecl; +begin + X509_OBJECT_set1_X509_CRL := LoadLibCryptoFunction('X509_OBJECT_set1_X509_CRL'); + if not assigned(X509_OBJECT_set1_X509_CRL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_OBJECT_set1_X509_CRL'); + Result := X509_OBJECT_set1_X509_CRL(a,obj); +end; + +function Load_X509_STORE_new: PX509_STORE; cdecl; +begin + X509_STORE_new := LoadLibCryptoFunction('X509_STORE_new'); + if not assigned(X509_STORE_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_new'); + Result := X509_STORE_new(); +end; + +procedure Load_X509_STORE_free(v: PX509_STORE); cdecl; +begin + X509_STORE_free := LoadLibCryptoFunction('X509_STORE_free'); + if not assigned(X509_STORE_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_free'); + X509_STORE_free(v); +end; + +function Load_X509_STORE_lock(ctx: PX509_STORE): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_lock := LoadLibCryptoFunction('X509_STORE_lock'); + if not assigned(X509_STORE_lock) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_lock'); + Result := X509_STORE_lock(ctx); +end; + +function Load_X509_STORE_unlock(ctx: PX509_STORE): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_unlock := LoadLibCryptoFunction('X509_STORE_unlock'); + if not assigned(X509_STORE_unlock) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_unlock'); + Result := X509_STORE_unlock(ctx); +end; + +function Load_X509_STORE_up_ref(v: PX509_STORE): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_up_ref := LoadLibCryptoFunction('X509_STORE_up_ref'); + if not assigned(X509_STORE_up_ref) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_up_ref'); + Result := X509_STORE_up_ref(v); +end; + +function Load_X509_STORE_set_flags(ctx: PX509_STORE; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_set_flags := LoadLibCryptoFunction('X509_STORE_set_flags'); + if not assigned(X509_STORE_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set_flags'); + Result := X509_STORE_set_flags(ctx,flags); +end; + +function Load_X509_STORE_set_purpose(ctx: PX509_STORE; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_set_purpose := LoadLibCryptoFunction('X509_STORE_set_purpose'); + if not assigned(X509_STORE_set_purpose) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set_purpose'); + Result := X509_STORE_set_purpose(ctx,purpose); +end; + +function Load_X509_STORE_set_trust(ctx: PX509_STORE; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_set_trust := LoadLibCryptoFunction('X509_STORE_set_trust'); + if not assigned(X509_STORE_set_trust) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set_trust'); + Result := X509_STORE_set_trust(ctx,trust); +end; + +function Load_X509_STORE_set1_param(ctx: PX509_STORE; pm: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_set1_param := LoadLibCryptoFunction('X509_STORE_set1_param'); + if not assigned(X509_STORE_set1_param) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set1_param'); + Result := X509_STORE_set1_param(ctx,pm); +end; + +function Load_X509_STORE_get0_param(ctx: PX509_STORE): PX509_VERIFY_PARAM; cdecl; +begin + X509_STORE_get0_param := LoadLibCryptoFunction('X509_STORE_get0_param'); + if not assigned(X509_STORE_get0_param) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_get0_param'); + Result := X509_STORE_get0_param(ctx); +end; + +procedure Load_X509_STORE_set_verify(ctx: PX509_STORE; verify: X509_STORE_CTX_verify_fn); cdecl; +begin + X509_STORE_set_verify := LoadLibCryptoFunction('X509_STORE_set_verify'); + if not assigned(X509_STORE_set_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set_verify'); + X509_STORE_set_verify(ctx,verify); +end; + +procedure Load_X509_STORE_CTX_set_verify(ctx: PX509_STORE_CTX; verify: X509_STORE_CTX_verify_fn); cdecl; +begin + X509_STORE_CTX_set_verify := LoadLibCryptoFunction('X509_STORE_CTX_set_verify'); + if not assigned(X509_STORE_CTX_set_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_set_verify'); + X509_STORE_CTX_set_verify(ctx,verify); +end; + +function Load_X509_STORE_get_verify(ctx: PX509_STORE): X509_STORE_CTX_verify_fn; cdecl; +begin + X509_STORE_get_verify := LoadLibCryptoFunction('X509_STORE_get_verify'); + if not assigned(X509_STORE_get_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_get_verify'); + Result := X509_STORE_get_verify(ctx); +end; + +procedure Load_X509_STORE_set_verify_cb(ctx: PX509_STORE; verify_cb: X509_STORE_CTX_verify_cb); cdecl; +begin + X509_STORE_set_verify_cb := LoadLibCryptoFunction('X509_STORE_set_verify_cb'); + if not assigned(X509_STORE_set_verify_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set_verify_cb'); + X509_STORE_set_verify_cb(ctx,verify_cb); +end; + +function Load_X509_STORE_get_verify_cb(ctx: PX509_STORE): X509_STORE_CTX_verify_cb; cdecl; +begin + X509_STORE_get_verify_cb := LoadLibCryptoFunction('X509_STORE_get_verify_cb'); + if not assigned(X509_STORE_get_verify_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_get_verify_cb'); + Result := X509_STORE_get_verify_cb(ctx); +end; + +procedure Load_X509_STORE_set_get_issuer(ctx: PX509_STORE; get_issuer: X509_STORE_CTX_get_issuer_fn); cdecl; +begin + X509_STORE_set_get_issuer := LoadLibCryptoFunction('X509_STORE_set_get_issuer'); + if not assigned(X509_STORE_set_get_issuer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set_get_issuer'); + X509_STORE_set_get_issuer(ctx,get_issuer); +end; + +function Load_X509_STORE_get_get_issuer(ctx: PX509_STORE): X509_STORE_CTX_get_issuer_fn; cdecl; +begin + X509_STORE_get_get_issuer := LoadLibCryptoFunction('X509_STORE_get_get_issuer'); + if not assigned(X509_STORE_get_get_issuer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_get_get_issuer'); + Result := X509_STORE_get_get_issuer(ctx); +end; + +procedure Load_X509_STORE_set_check_issued(ctx: PX509_STORE; check_issued: X509_STORE_CTX_check_issued_fn); cdecl; +begin + X509_STORE_set_check_issued := LoadLibCryptoFunction('X509_STORE_set_check_issued'); + if not assigned(X509_STORE_set_check_issued) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set_check_issued'); + X509_STORE_set_check_issued(ctx,check_issued); +end; + +function Load_X509_STORE_get_check_issued(ctx: PX509_STORE): X509_STORE_CTX_check_issued_fn; cdecl; +begin + X509_STORE_get_check_issued := LoadLibCryptoFunction('X509_STORE_get_check_issued'); + if not assigned(X509_STORE_get_check_issued) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_get_check_issued'); + Result := X509_STORE_get_check_issued(ctx); +end; + +procedure Load_X509_STORE_set_check_revocation(ctx: PX509_STORE; check_revocation: X509_STORE_CTX_check_revocation_fn); cdecl; +begin + X509_STORE_set_check_revocation := LoadLibCryptoFunction('X509_STORE_set_check_revocation'); + if not assigned(X509_STORE_set_check_revocation) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set_check_revocation'); + X509_STORE_set_check_revocation(ctx,check_revocation); +end; + +function Load_X509_STORE_get_check_revocation(ctx: PX509_STORE): X509_STORE_CTX_check_revocation_fn; cdecl; +begin + X509_STORE_get_check_revocation := LoadLibCryptoFunction('X509_STORE_get_check_revocation'); + if not assigned(X509_STORE_get_check_revocation) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_get_check_revocation'); + Result := X509_STORE_get_check_revocation(ctx); +end; + +procedure Load_X509_STORE_set_get_crl(ctx: PX509_STORE; get_crl: X509_STORE_CTX_get_crl_fn); cdecl; +begin + X509_STORE_set_get_crl := LoadLibCryptoFunction('X509_STORE_set_get_crl'); + if not assigned(X509_STORE_set_get_crl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set_get_crl'); + X509_STORE_set_get_crl(ctx,get_crl); +end; + +function Load_X509_STORE_get_get_crl(ctx: PX509_STORE): X509_STORE_CTX_get_crl_fn; cdecl; +begin + X509_STORE_get_get_crl := LoadLibCryptoFunction('X509_STORE_get_get_crl'); + if not assigned(X509_STORE_get_get_crl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_get_get_crl'); + Result := X509_STORE_get_get_crl(ctx); +end; + +procedure Load_X509_STORE_set_check_crl(ctx: PX509_STORE; check_crl: X509_STORE_CTX_check_crl_fn); cdecl; +begin + X509_STORE_set_check_crl := LoadLibCryptoFunction('X509_STORE_set_check_crl'); + if not assigned(X509_STORE_set_check_crl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set_check_crl'); + X509_STORE_set_check_crl(ctx,check_crl); +end; + +function Load_X509_STORE_get_check_crl(ctx: PX509_STORE): X509_STORE_CTX_check_crl_fn; cdecl; +begin + X509_STORE_get_check_crl := LoadLibCryptoFunction('X509_STORE_get_check_crl'); + if not assigned(X509_STORE_get_check_crl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_get_check_crl'); + Result := X509_STORE_get_check_crl(ctx); +end; + +procedure Load_X509_STORE_set_cert_crl(ctx: PX509_STORE; cert_crl: X509_STORE_CTX_cert_crl_fn); cdecl; +begin + X509_STORE_set_cert_crl := LoadLibCryptoFunction('X509_STORE_set_cert_crl'); + if not assigned(X509_STORE_set_cert_crl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set_cert_crl'); + X509_STORE_set_cert_crl(ctx,cert_crl); +end; + +function Load_X509_STORE_get_cert_crl(ctx: PX509_STORE): X509_STORE_CTX_cert_crl_fn; cdecl; +begin + X509_STORE_get_cert_crl := LoadLibCryptoFunction('X509_STORE_get_cert_crl'); + if not assigned(X509_STORE_get_cert_crl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_get_cert_crl'); + Result := X509_STORE_get_cert_crl(ctx); +end; + +procedure Load_X509_STORE_set_check_policy(ctx: PX509_STORE; check_policy: X509_STORE_CTX_check_policy_fn); cdecl; +begin + X509_STORE_set_check_policy := LoadLibCryptoFunction('X509_STORE_set_check_policy'); + if not assigned(X509_STORE_set_check_policy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set_check_policy'); + X509_STORE_set_check_policy(ctx,check_policy); +end; + +function Load_X509_STORE_get_check_policy(ctx: PX509_STORE): X509_STORE_CTX_check_policy_fn; cdecl; +begin + X509_STORE_get_check_policy := LoadLibCryptoFunction('X509_STORE_get_check_policy'); + if not assigned(X509_STORE_get_check_policy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_get_check_policy'); + Result := X509_STORE_get_check_policy(ctx); +end; + +procedure Load_X509_STORE_set_cleanup(ctx: PX509_STORE; cleanup: X509_STORE_CTX_cleanup_fn); cdecl; +begin + X509_STORE_set_cleanup := LoadLibCryptoFunction('X509_STORE_set_cleanup'); + if not assigned(X509_STORE_set_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set_cleanup'); + X509_STORE_set_cleanup(ctx,cleanup); +end; + +function Load_X509_STORE_get_cleanup(ctx: PX509_STORE): X509_STORE_CTX_cleanup_fn; cdecl; +begin + X509_STORE_get_cleanup := LoadLibCryptoFunction('X509_STORE_get_cleanup'); + if not assigned(X509_STORE_get_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_get_cleanup'); + Result := X509_STORE_get_cleanup(ctx); +end; + +function Load_X509_STORE_set_ex_data(ctx: PX509_STORE; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_set_ex_data := LoadLibCryptoFunction('X509_STORE_set_ex_data'); + if not assigned(X509_STORE_set_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set_ex_data'); + Result := X509_STORE_set_ex_data(ctx,idx,data); +end; + +function Load_X509_STORE_get_ex_data(ctx: PX509_STORE; idx: TOpenSSL_C_INT): Pointer; cdecl; +begin + X509_STORE_get_ex_data := LoadLibCryptoFunction('X509_STORE_get_ex_data'); + if not assigned(X509_STORE_get_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_get_ex_data'); + Result := X509_STORE_get_ex_data(ctx,idx); +end; + +function Load_X509_STORE_CTX_new: PX509_STORE_CTX; cdecl; +begin + X509_STORE_CTX_new := LoadLibCryptoFunction('X509_STORE_CTX_new'); + if not assigned(X509_STORE_CTX_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_new'); + Result := X509_STORE_CTX_new(); +end; + +function Load_X509_STORE_CTX_get1_issuer(issuer: PPX509; ctx: PX509_STORE_CTX; x: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_CTX_get1_issuer := LoadLibCryptoFunction('X509_STORE_CTX_get1_issuer'); + if not assigned(X509_STORE_CTX_get1_issuer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get1_issuer'); + Result := X509_STORE_CTX_get1_issuer(issuer,ctx,x); +end; + +procedure Load_X509_STORE_CTX_free(ctx: PX509_STORE_CTX); cdecl; +begin + X509_STORE_CTX_free := LoadLibCryptoFunction('X509_STORE_CTX_free'); + if not assigned(X509_STORE_CTX_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_free'); + X509_STORE_CTX_free(ctx); +end; + +procedure Load_X509_STORE_CTX_cleanup(ctx: PX509_STORE_CTX); cdecl; +begin + X509_STORE_CTX_cleanup := LoadLibCryptoFunction('X509_STORE_CTX_cleanup'); + if not assigned(X509_STORE_CTX_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_cleanup'); + X509_STORE_CTX_cleanup(ctx); +end; + +function Load_X509_STORE_CTX_get0_store(ctx: PX509_STORE_CTX): PX509_STORE; cdecl; +begin + X509_STORE_CTX_get0_store := LoadLibCryptoFunction('X509_STORE_CTX_get0_store'); + if not assigned(X509_STORE_CTX_get0_store) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get0_store'); + Result := X509_STORE_CTX_get0_store(ctx); +end; + +function Load_X509_STORE_CTX_get0_cert(ctx: PX509_STORE_CTX): PX509; cdecl; +begin + X509_STORE_CTX_get0_cert := LoadLibCryptoFunction('X509_STORE_CTX_get0_cert'); + if not assigned(X509_STORE_CTX_get0_cert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get0_cert'); + Result := X509_STORE_CTX_get0_cert(ctx); +end; + +procedure Load_X509_STORE_CTX_set_verify_cb(ctx: PX509_STORE_CTX; verify: X509_STORE_CTX_verify_cb); cdecl; +begin + X509_STORE_CTX_set_verify_cb := LoadLibCryptoFunction('X509_STORE_CTX_set_verify_cb'); + if not assigned(X509_STORE_CTX_set_verify_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_set_verify_cb'); + X509_STORE_CTX_set_verify_cb(ctx,verify); +end; + +function Load_X509_STORE_CTX_get_verify_cb(ctx: PX509_STORE_CTX): X509_STORE_CTX_verify_cb; cdecl; +begin + X509_STORE_CTX_get_verify_cb := LoadLibCryptoFunction('X509_STORE_CTX_get_verify_cb'); + if not assigned(X509_STORE_CTX_get_verify_cb) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_verify_cb'); + Result := X509_STORE_CTX_get_verify_cb(ctx); +end; + +function Load_X509_STORE_CTX_get_verify(ctx: PX509_STORE_CTX): X509_STORE_CTX_verify_fn; cdecl; +begin + X509_STORE_CTX_get_verify := LoadLibCryptoFunction('X509_STORE_CTX_get_verify'); + if not assigned(X509_STORE_CTX_get_verify) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_verify'); + Result := X509_STORE_CTX_get_verify(ctx); +end; + +function Load_X509_STORE_CTX_get_get_issuer(ctx: PX509_STORE_CTX): X509_STORE_CTX_get_issuer_fn; cdecl; +begin + X509_STORE_CTX_get_get_issuer := LoadLibCryptoFunction('X509_STORE_CTX_get_get_issuer'); + if not assigned(X509_STORE_CTX_get_get_issuer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_get_issuer'); + Result := X509_STORE_CTX_get_get_issuer(ctx); +end; + +function Load_X509_STORE_CTX_get_check_issued(ctx: PX509_STORE_CTX): X509_STORE_CTX_check_issued_fn; cdecl; +begin + X509_STORE_CTX_get_check_issued := LoadLibCryptoFunction('X509_STORE_CTX_get_check_issued'); + if not assigned(X509_STORE_CTX_get_check_issued) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_check_issued'); + Result := X509_STORE_CTX_get_check_issued(ctx); +end; + +function Load_X509_STORE_CTX_get_check_revocation(ctx: PX509_STORE_CTX): X509_STORE_CTX_check_revocation_fn; cdecl; +begin + X509_STORE_CTX_get_check_revocation := LoadLibCryptoFunction('X509_STORE_CTX_get_check_revocation'); + if not assigned(X509_STORE_CTX_get_check_revocation) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_check_revocation'); + Result := X509_STORE_CTX_get_check_revocation(ctx); +end; + +function Load_X509_STORE_CTX_get_get_crl(ctx: PX509_STORE_CTX): X509_STORE_CTX_get_crl_fn; cdecl; +begin + X509_STORE_CTX_get_get_crl := LoadLibCryptoFunction('X509_STORE_CTX_get_get_crl'); + if not assigned(X509_STORE_CTX_get_get_crl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_get_crl'); + Result := X509_STORE_CTX_get_get_crl(ctx); +end; + +function Load_X509_STORE_CTX_get_check_crl(ctx: PX509_STORE_CTX): X509_STORE_CTX_check_crl_fn; cdecl; +begin + X509_STORE_CTX_get_check_crl := LoadLibCryptoFunction('X509_STORE_CTX_get_check_crl'); + if not assigned(X509_STORE_CTX_get_check_crl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_check_crl'); + Result := X509_STORE_CTX_get_check_crl(ctx); +end; + +function Load_X509_STORE_CTX_get_cert_crl(ctx: PX509_STORE_CTX): X509_STORE_CTX_cert_crl_fn; cdecl; +begin + X509_STORE_CTX_get_cert_crl := LoadLibCryptoFunction('X509_STORE_CTX_get_cert_crl'); + if not assigned(X509_STORE_CTX_get_cert_crl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_cert_crl'); + Result := X509_STORE_CTX_get_cert_crl(ctx); +end; + +function Load_X509_STORE_CTX_get_check_policy(ctx: PX509_STORE_CTX): X509_STORE_CTX_check_policy_fn; cdecl; +begin + X509_STORE_CTX_get_check_policy := LoadLibCryptoFunction('X509_STORE_CTX_get_check_policy'); + if not assigned(X509_STORE_CTX_get_check_policy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_check_policy'); + Result := X509_STORE_CTX_get_check_policy(ctx); +end; + +function Load_X509_STORE_CTX_get_cleanup(ctx: PX509_STORE_CTX): X509_STORE_CTX_cleanup_fn; cdecl; +begin + X509_STORE_CTX_get_cleanup := LoadLibCryptoFunction('X509_STORE_CTX_get_cleanup'); + if not assigned(X509_STORE_CTX_get_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_cleanup'); + Result := X509_STORE_CTX_get_cleanup(ctx); +end; + +function Load_X509_STORE_add_lookup(v: PX509_STORE; m: PX509_LOOKUP_METHOD): PX509_LOOKUP; cdecl; +begin + X509_STORE_add_lookup := LoadLibCryptoFunction('X509_STORE_add_lookup'); + if not assigned(X509_STORE_add_lookup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_add_lookup'); + Result := X509_STORE_add_lookup(v,m); +end; + +function Load_X509_LOOKUP_hash_dir: PX509_LOOKUP_METHOD; cdecl; +begin + X509_LOOKUP_hash_dir := LoadLibCryptoFunction('X509_LOOKUP_hash_dir'); + if not assigned(X509_LOOKUP_hash_dir) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_hash_dir'); + Result := X509_LOOKUP_hash_dir(); +end; + +function Load_X509_LOOKUP_file: PX509_LOOKUP_METHOD; cdecl; +begin + X509_LOOKUP_file := LoadLibCryptoFunction('X509_LOOKUP_file'); + if not assigned(X509_LOOKUP_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_file'); + Result := X509_LOOKUP_file(); +end; + +function Load_X509_LOOKUP_meth_new(const name: PAnsiChar): PX509_LOOKUP_METHOD; cdecl; +begin + X509_LOOKUP_meth_new := LoadLibCryptoFunction('X509_LOOKUP_meth_new'); + if not assigned(X509_LOOKUP_meth_new) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + X509_LOOKUP_meth_new := @COMPAT_X509_LOOKUP_meth_new; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_meth_new'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := X509_LOOKUP_meth_new(name); +end; + +procedure Load_X509_LOOKUP_meth_free(method: PX509_LOOKUP_METHOD); cdecl; +begin + X509_LOOKUP_meth_free := LoadLibCryptoFunction('X509_LOOKUP_meth_free'); + if not assigned(X509_LOOKUP_meth_free) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + X509_LOOKUP_meth_free := @COMPAT_X509_LOOKUP_meth_free; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_meth_free'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + X509_LOOKUP_meth_free(method); +end; + +function Load_X509_LOOKUP_meth_set_ctrl(method: PX509_LOOKUP_METHOD; ctrl_fn: X509_LOOKUP_ctrl_fn): TOpenSSL_C_INT; cdecl; +begin + X509_LOOKUP_meth_set_ctrl := LoadLibCryptoFunction('X509_LOOKUP_meth_set_ctrl'); + if not assigned(X509_LOOKUP_meth_set_ctrl) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + X509_LOOKUP_meth_set_ctrl := @COMPAT_X509_LOOKUP_meth_set_ctrl; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_meth_set_ctrl'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := X509_LOOKUP_meth_set_ctrl(method,ctrl_fn); +end; + +function Load_X509_LOOKUP_meth_get_ctrl(const method: PX509_LOOKUP_METHOD): X509_LOOKUP_ctrl_fn; cdecl; +begin + X509_LOOKUP_meth_get_ctrl := LoadLibCryptoFunction('X509_LOOKUP_meth_get_ctrl'); + if not assigned(X509_LOOKUP_meth_get_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_meth_get_ctrl'); + Result := X509_LOOKUP_meth_get_ctrl(method); +end; + +function Load_X509_LOOKUP_meth_set_get_by_subject(method: PX509_LOOKUP_METHOD; fn: X509_LOOKUP_get_by_subject_fn): TOpenSSL_C_INT; cdecl; +begin + X509_LOOKUP_meth_set_get_by_subject := LoadLibCryptoFunction('X509_LOOKUP_meth_set_get_by_subject'); + if not assigned(X509_LOOKUP_meth_set_get_by_subject) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_meth_set_get_by_subject'); + Result := X509_LOOKUP_meth_set_get_by_subject(method,fn); +end; + +function Load_X509_LOOKUP_meth_get_get_by_subject(const method: PX509_LOOKUP_METHOD): X509_LOOKUP_get_by_subject_fn; cdecl; +begin + X509_LOOKUP_meth_get_get_by_subject := LoadLibCryptoFunction('X509_LOOKUP_meth_get_get_by_subject'); + if not assigned(X509_LOOKUP_meth_get_get_by_subject) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_meth_get_get_by_subject'); + Result := X509_LOOKUP_meth_get_get_by_subject(method); +end; + +function Load_X509_LOOKUP_meth_set_get_by_issuer_serial(method: PX509_LOOKUP_METHOD; fn: X509_LOOKUP_get_by_issuer_serial_fn): TOpenSSL_C_INT; cdecl; +begin + X509_LOOKUP_meth_set_get_by_issuer_serial := LoadLibCryptoFunction('X509_LOOKUP_meth_set_get_by_issuer_serial'); + if not assigned(X509_LOOKUP_meth_set_get_by_issuer_serial) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_meth_set_get_by_issuer_serial'); + Result := X509_LOOKUP_meth_set_get_by_issuer_serial(method,fn); +end; + +function Load_X509_LOOKUP_meth_get_get_by_issuer_serial(const method: PX509_LOOKUP_METHOD): X509_LOOKUP_get_by_issuer_serial_fn; cdecl; +begin + X509_LOOKUP_meth_get_get_by_issuer_serial := LoadLibCryptoFunction('X509_LOOKUP_meth_get_get_by_issuer_serial'); + if not assigned(X509_LOOKUP_meth_get_get_by_issuer_serial) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_meth_get_get_by_issuer_serial'); + Result := X509_LOOKUP_meth_get_get_by_issuer_serial(method); +end; + +function Load_X509_LOOKUP_meth_set_get_by_fingerprint(method: PX509_LOOKUP_METHOD; fn: X509_LOOKUP_get_by_fingerprint_fn): TOpenSSL_C_INT; cdecl; +begin + X509_LOOKUP_meth_set_get_by_fingerprint := LoadLibCryptoFunction('X509_LOOKUP_meth_set_get_by_fingerprint'); + if not assigned(X509_LOOKUP_meth_set_get_by_fingerprint) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_meth_set_get_by_fingerprint'); + Result := X509_LOOKUP_meth_set_get_by_fingerprint(method,fn); +end; + +function Load_X509_LOOKUP_meth_get_get_by_fingerprint(const method: PX509_LOOKUP_METHOD): X509_LOOKUP_get_by_fingerprint_fn; cdecl; +begin + X509_LOOKUP_meth_get_get_by_fingerprint := LoadLibCryptoFunction('X509_LOOKUP_meth_get_get_by_fingerprint'); + if not assigned(X509_LOOKUP_meth_get_get_by_fingerprint) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_meth_get_get_by_fingerprint'); + Result := X509_LOOKUP_meth_get_get_by_fingerprint(method); +end; + +function Load_X509_LOOKUP_meth_set_get_by_alias(method: PX509_LOOKUP_METHOD; fn: X509_LOOKUP_get_by_alias_fn): TOpenSSL_C_INT; cdecl; +begin + X509_LOOKUP_meth_set_get_by_alias := LoadLibCryptoFunction('X509_LOOKUP_meth_set_get_by_alias'); + if not assigned(X509_LOOKUP_meth_set_get_by_alias) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_meth_set_get_by_alias'); + Result := X509_LOOKUP_meth_set_get_by_alias(method,fn); +end; + +function Load_X509_LOOKUP_meth_get_get_by_alias(const method: PX509_LOOKUP_METHOD): X509_LOOKUP_get_by_alias_fn; cdecl; +begin + X509_LOOKUP_meth_get_get_by_alias := LoadLibCryptoFunction('X509_LOOKUP_meth_get_get_by_alias'); + if not assigned(X509_LOOKUP_meth_get_get_by_alias) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_meth_get_get_by_alias'); + Result := X509_LOOKUP_meth_get_get_by_alias(method); +end; + +function Load_X509_STORE_add_cert(ctx: PX509_STORE; x: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_add_cert := LoadLibCryptoFunction('X509_STORE_add_cert'); + if not assigned(X509_STORE_add_cert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_add_cert'); + Result := X509_STORE_add_cert(ctx,x); +end; + +function Load_X509_STORE_add_crl(ctx: PX509_STORE; x: PX509_CRL): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_add_crl := LoadLibCryptoFunction('X509_STORE_add_crl'); + if not assigned(X509_STORE_add_crl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_add_crl'); + Result := X509_STORE_add_crl(ctx,x); +end; + +function Load_X509_STORE_CTX_get_by_subject(vs: PX509_STORE_CTX; type_: X509_LOOKUP_TYPE; name: PX509_NAME; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_CTX_get_by_subject := LoadLibCryptoFunction('X509_STORE_CTX_get_by_subject'); + if not assigned(X509_STORE_CTX_get_by_subject) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_by_subject'); + Result := X509_STORE_CTX_get_by_subject(vs,type_,name,ret); +end; + +function Load_X509_STORE_CTX_get_obj_by_subject(vs: PX509_STORE_CTX; type_: X509_LOOKUP_TYPE; name: PX509_NAME): PX509_OBJECT; cdecl; +begin + X509_STORE_CTX_get_obj_by_subject := LoadLibCryptoFunction('X509_STORE_CTX_get_obj_by_subject'); + if not assigned(X509_STORE_CTX_get_obj_by_subject) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_obj_by_subject'); + Result := X509_STORE_CTX_get_obj_by_subject(vs,type_,name); +end; + +function Load_X509_LOOKUP_ctrl(ctx: PX509_LOOKUP; cmd: TOpenSSL_C_INT; const argc: PAnsiChar; argl: TOpenSSL_C_LONG; ret: PPAnsiChar): TOpenSSL_C_INT; cdecl; +begin + X509_LOOKUP_ctrl := LoadLibCryptoFunction('X509_LOOKUP_ctrl'); + if not assigned(X509_LOOKUP_ctrl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_ctrl'); + Result := X509_LOOKUP_ctrl(ctx,cmd,argc,argl,ret); +end; + +function Load_X509_load_cert_file(ctx: PX509_LOOKUP; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_load_cert_file := LoadLibCryptoFunction('X509_load_cert_file'); + if not assigned(X509_load_cert_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_load_cert_file'); + Result := X509_load_cert_file(ctx,file_,type_); +end; + +function Load_X509_load_crl_file(ctx: PX509_LOOKUP; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_load_crl_file := LoadLibCryptoFunction('X509_load_crl_file'); + if not assigned(X509_load_crl_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_load_crl_file'); + Result := X509_load_crl_file(ctx,file_,type_); +end; + +function Load_X509_load_cert_crl_file(ctx: PX509_LOOKUP; const file_: PAnsiChar; type_: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_load_cert_crl_file := LoadLibCryptoFunction('X509_load_cert_crl_file'); + if not assigned(X509_load_cert_crl_file) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_load_cert_crl_file'); + Result := X509_load_cert_crl_file(ctx,file_,type_); +end; + +function Load_X509_LOOKUP_new(method: PX509_LOOKUP_METHOD): PX509_LOOKUP; cdecl; +begin + X509_LOOKUP_new := LoadLibCryptoFunction('X509_LOOKUP_new'); + if not assigned(X509_LOOKUP_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_new'); + Result := X509_LOOKUP_new(method); +end; + +procedure Load_X509_LOOKUP_free(ctx: PX509_LOOKUP); cdecl; +begin + X509_LOOKUP_free := LoadLibCryptoFunction('X509_LOOKUP_free'); + if not assigned(X509_LOOKUP_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_free'); + X509_LOOKUP_free(ctx); +end; + +function Load_X509_LOOKUP_init(ctx: PX509_LOOKUP): TOpenSSL_C_INT; cdecl; +begin + X509_LOOKUP_init := LoadLibCryptoFunction('X509_LOOKUP_init'); + if not assigned(X509_LOOKUP_init) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_init'); + Result := X509_LOOKUP_init(ctx); +end; + +function Load_X509_LOOKUP_by_subject(ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; name: PX509_NAME; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; +begin + X509_LOOKUP_by_subject := LoadLibCryptoFunction('X509_LOOKUP_by_subject'); + if not assigned(X509_LOOKUP_by_subject) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_by_subject'); + Result := X509_LOOKUP_by_subject(ctx,type_,name,ret); +end; + +function Load_X509_LOOKUP_by_issuer_serial(ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; name: PX509_NAME; serial: PASN1_INTEGER; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; +begin + X509_LOOKUP_by_issuer_serial := LoadLibCryptoFunction('X509_LOOKUP_by_issuer_serial'); + if not assigned(X509_LOOKUP_by_issuer_serial) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_by_issuer_serial'); + Result := X509_LOOKUP_by_issuer_serial(ctx,type_,name,serial,ret); +end; + +function Load_X509_LOOKUP_by_fingerprint(ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; const bytes: PByte; len: TOpenSSL_C_INT; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; +begin + X509_LOOKUP_by_fingerprint := LoadLibCryptoFunction('X509_LOOKUP_by_fingerprint'); + if not assigned(X509_LOOKUP_by_fingerprint) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_by_fingerprint'); + Result := X509_LOOKUP_by_fingerprint(ctx,type_,bytes,len,ret); +end; + +function Load_X509_LOOKUP_by_alias(ctx: PX509_LOOKUP; type_: X509_LOOKUP_TYPE; const str: PAnsiChar; len: TOpenSSL_C_INT; ret: PX509_OBJECT): TOpenSSL_C_INT; cdecl; +begin + X509_LOOKUP_by_alias := LoadLibCryptoFunction('X509_LOOKUP_by_alias'); + if not assigned(X509_LOOKUP_by_alias) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_by_alias'); + Result := X509_LOOKUP_by_alias(ctx,type_,str,len,ret); +end; + +function Load_X509_LOOKUP_set_method_data(ctx: PX509_LOOKUP; data: Pointer): TOpenSSL_C_INT; cdecl; +begin + X509_LOOKUP_set_method_data := LoadLibCryptoFunction('X509_LOOKUP_set_method_data'); + if not assigned(X509_LOOKUP_set_method_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_set_method_data'); + Result := X509_LOOKUP_set_method_data(ctx,data); +end; + +function Load_X509_LOOKUP_get_method_data(const ctx: PX509_LOOKUP): Pointer; cdecl; +begin + X509_LOOKUP_get_method_data := LoadLibCryptoFunction('X509_LOOKUP_get_method_data'); + if not assigned(X509_LOOKUP_get_method_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_get_method_data'); + Result := X509_LOOKUP_get_method_data(ctx); +end; + +function Load_X509_LOOKUP_get_store(const ctx: PX509_LOOKUP): PX509_STORE; cdecl; +begin + X509_LOOKUP_get_store := LoadLibCryptoFunction('X509_LOOKUP_get_store'); + if not assigned(X509_LOOKUP_get_store) then +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + X509_LOOKUP_get_store := @COMPAT_X509_LOOKUP_get_store; +{$ELSE} + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_get_store'); +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} + Result := X509_LOOKUP_get_store(ctx); +end; + +function Load_X509_LOOKUP_shutdown(ctx: PX509_LOOKUP): TOpenSSL_C_INT; cdecl; +begin + X509_LOOKUP_shutdown := LoadLibCryptoFunction('X509_LOOKUP_shutdown'); + if not assigned(X509_LOOKUP_shutdown) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_LOOKUP_shutdown'); + Result := X509_LOOKUP_shutdown(ctx); +end; + +function Load_X509_STORE_load_locations(ctx: PX509_STORE; const file_: PAnsiChar; const dir: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_load_locations := LoadLibCryptoFunction('X509_STORE_load_locations'); + if not assigned(X509_STORE_load_locations) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_load_locations'); + Result := X509_STORE_load_locations(ctx,file_,dir); +end; + +function Load_X509_STORE_set_default_paths(ctx: PX509_STORE): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_set_default_paths := LoadLibCryptoFunction('X509_STORE_set_default_paths'); + if not assigned(X509_STORE_set_default_paths) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_set_default_paths'); + Result := X509_STORE_set_default_paths(ctx); +end; + +function Load_X509_STORE_CTX_set_ex_data(ctx: PX509_STORE_CTX; idx: TOpenSSL_C_INT; data: Pointer): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_CTX_set_ex_data := LoadLibCryptoFunction('X509_STORE_CTX_set_ex_data'); + if not assigned(X509_STORE_CTX_set_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_set_ex_data'); + Result := X509_STORE_CTX_set_ex_data(ctx,idx,data); +end; + +function Load_X509_STORE_CTX_get_ex_data(ctx: PX509_STORE_CTX; idx: TOpenSSL_C_INT): Pointer; cdecl; +begin + X509_STORE_CTX_get_ex_data := LoadLibCryptoFunction('X509_STORE_CTX_get_ex_data'); + if not assigned(X509_STORE_CTX_get_ex_data) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_ex_data'); + Result := X509_STORE_CTX_get_ex_data(ctx,idx); +end; + +function Load_X509_STORE_CTX_get_error(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_CTX_get_error := LoadLibCryptoFunction('X509_STORE_CTX_get_error'); + if not assigned(X509_STORE_CTX_get_error) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_error'); + Result := X509_STORE_CTX_get_error(ctx); +end; + +procedure Load_X509_STORE_CTX_set_error(ctx: X509_STORE_CTX; s: TOpenSSL_C_INT); cdecl; +begin + X509_STORE_CTX_set_error := LoadLibCryptoFunction('X509_STORE_CTX_set_error'); + if not assigned(X509_STORE_CTX_set_error) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_set_error'); + X509_STORE_CTX_set_error(ctx,s); +end; + +function Load_X509_STORE_CTX_get_error_depth(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_CTX_get_error_depth := LoadLibCryptoFunction('X509_STORE_CTX_get_error_depth'); + if not assigned(X509_STORE_CTX_get_error_depth) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_error_depth'); + Result := X509_STORE_CTX_get_error_depth(ctx); +end; + +procedure Load_X509_STORE_CTX_set_error_depth(ctx: PX509_STORE_CTX; depth: TOpenSSL_C_INT); cdecl; +begin + X509_STORE_CTX_set_error_depth := LoadLibCryptoFunction('X509_STORE_CTX_set_error_depth'); + if not assigned(X509_STORE_CTX_set_error_depth) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_set_error_depth'); + X509_STORE_CTX_set_error_depth(ctx,depth); +end; + +function Load_X509_STORE_CTX_get_current_cert(ctx: PX509_STORE_CTX): PX509; cdecl; +begin + X509_STORE_CTX_get_current_cert := LoadLibCryptoFunction('X509_STORE_CTX_get_current_cert'); + if not assigned(X509_STORE_CTX_get_current_cert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_current_cert'); + Result := X509_STORE_CTX_get_current_cert(ctx); +end; + +procedure Load_X509_STORE_CTX_set_current_cert(ctx: PX509_STORE_CTX; x: PX509); cdecl; +begin + X509_STORE_CTX_set_current_cert := LoadLibCryptoFunction('X509_STORE_CTX_set_current_cert'); + if not assigned(X509_STORE_CTX_set_current_cert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_set_current_cert'); + X509_STORE_CTX_set_current_cert(ctx,x); +end; + +function Load_X509_STORE_CTX_get0_current_issuer(ctx: PX509_STORE_CTX): PX509; cdecl; +begin + X509_STORE_CTX_get0_current_issuer := LoadLibCryptoFunction('X509_STORE_CTX_get0_current_issuer'); + if not assigned(X509_STORE_CTX_get0_current_issuer) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get0_current_issuer'); + Result := X509_STORE_CTX_get0_current_issuer(ctx); +end; + +function Load_X509_STORE_CTX_get0_current_crl(ctx: PX509_STORE_CTX): PX509_CRL; cdecl; +begin + X509_STORE_CTX_get0_current_crl := LoadLibCryptoFunction('X509_STORE_CTX_get0_current_crl'); + if not assigned(X509_STORE_CTX_get0_current_crl) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get0_current_crl'); + Result := X509_STORE_CTX_get0_current_crl(ctx); +end; + +function Load_X509_STORE_CTX_get0_parent_ctx(ctx: PX509_STORE_CTX): PX509_STORE_CTX; cdecl; +begin + X509_STORE_CTX_get0_parent_ctx := LoadLibCryptoFunction('X509_STORE_CTX_get0_parent_ctx'); + if not assigned(X509_STORE_CTX_get0_parent_ctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get0_parent_ctx'); + Result := X509_STORE_CTX_get0_parent_ctx(ctx); +end; + +procedure Load_X509_STORE_CTX_set_cert(c: PX509_STORE_CTX; x: PX509); cdecl; +begin + X509_STORE_CTX_set_cert := LoadLibCryptoFunction('X509_STORE_CTX_set_cert'); + if not assigned(X509_STORE_CTX_set_cert) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_set_cert'); + X509_STORE_CTX_set_cert(c,x); +end; + +function Load_X509_STORE_CTX_set_purpose(ctx: PX509_STORE_CTX; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_CTX_set_purpose := LoadLibCryptoFunction('X509_STORE_CTX_set_purpose'); + if not assigned(X509_STORE_CTX_set_purpose) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_set_purpose'); + Result := X509_STORE_CTX_set_purpose(ctx,purpose); +end; + +function Load_X509_STORE_CTX_set_trust(ctx: PX509_STORE_CTX; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_CTX_set_trust := LoadLibCryptoFunction('X509_STORE_CTX_set_trust'); + if not assigned(X509_STORE_CTX_set_trust) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_set_trust'); + Result := X509_STORE_CTX_set_trust(ctx,trust); +end; + +function Load_X509_STORE_CTX_purpose_inherit(ctx: PX509_STORE_CTX; def_purpose: TOpenSSL_C_INT; purpose: TOpenSSL_C_INT; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_CTX_purpose_inherit := LoadLibCryptoFunction('X509_STORE_CTX_purpose_inherit'); + if not assigned(X509_STORE_CTX_purpose_inherit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_purpose_inherit'); + Result := X509_STORE_CTX_purpose_inherit(ctx,def_purpose,purpose,trust); +end; + +procedure Load_X509_STORE_CTX_set_flags(ctx: PX509_STORE_CTX; flags: TOpenSSL_C_ULONG); cdecl; +begin + X509_STORE_CTX_set_flags := LoadLibCryptoFunction('X509_STORE_CTX_set_flags'); + if not assigned(X509_STORE_CTX_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_set_flags'); + X509_STORE_CTX_set_flags(ctx,flags); +end; + +function Load_X509_STORE_CTX_get0_policy_tree(ctx: PX509_STORE_CTX): PX509_POLICY_TREE; cdecl; +begin + X509_STORE_CTX_get0_policy_tree := LoadLibCryptoFunction('X509_STORE_CTX_get0_policy_tree'); + if not assigned(X509_STORE_CTX_get0_policy_tree) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get0_policy_tree'); + Result := X509_STORE_CTX_get0_policy_tree(ctx); +end; + +function Load_X509_STORE_CTX_get_explicit_policy(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_CTX_get_explicit_policy := LoadLibCryptoFunction('X509_STORE_CTX_get_explicit_policy'); + if not assigned(X509_STORE_CTX_get_explicit_policy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_explicit_policy'); + Result := X509_STORE_CTX_get_explicit_policy(ctx); +end; + +function Load_X509_STORE_CTX_get_num_untrusted(ctx: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_CTX_get_num_untrusted := LoadLibCryptoFunction('X509_STORE_CTX_get_num_untrusted'); + if not assigned(X509_STORE_CTX_get_num_untrusted) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get_num_untrusted'); + Result := X509_STORE_CTX_get_num_untrusted(ctx); +end; + +function Load_X509_STORE_CTX_get0_param(ctx: PX509_STORE_CTX): PX509_VERIFY_PARAM; cdecl; +begin + X509_STORE_CTX_get0_param := LoadLibCryptoFunction('X509_STORE_CTX_get0_param'); + if not assigned(X509_STORE_CTX_get0_param) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_get0_param'); + Result := X509_STORE_CTX_get0_param(ctx); +end; + +procedure Load_X509_STORE_CTX_set0_param(ctx: PX509_STORE_CTX; param: PX509_VERIFY_PARAM); cdecl; +begin + X509_STORE_CTX_set0_param := LoadLibCryptoFunction('X509_STORE_CTX_set0_param'); + if not assigned(X509_STORE_CTX_set0_param) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_set0_param'); + X509_STORE_CTX_set0_param(ctx,param); +end; + +function Load_X509_STORE_CTX_set_default(ctx: PX509_STORE_CTX; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + X509_STORE_CTX_set_default := LoadLibCryptoFunction('X509_STORE_CTX_set_default'); + if not assigned(X509_STORE_CTX_set_default) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_set_default'); + Result := X509_STORE_CTX_set_default(ctx,name); +end; + +procedure Load_X509_STORE_CTX_set0_dane(ctx: PX509_STORE_CTX; dane: PSSL_DANE); cdecl; +begin + X509_STORE_CTX_set0_dane := LoadLibCryptoFunction('X509_STORE_CTX_set0_dane'); + if not assigned(X509_STORE_CTX_set0_dane) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_STORE_CTX_set0_dane'); + X509_STORE_CTX_set0_dane(ctx,dane); +end; + +function Load_X509_VERIFY_PARAM_new: PX509_VERIFY_PARAM; cdecl; +begin + X509_VERIFY_PARAM_new := LoadLibCryptoFunction('X509_VERIFY_PARAM_new'); + if not assigned(X509_VERIFY_PARAM_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_new'); + Result := X509_VERIFY_PARAM_new(); +end; + +procedure Load_X509_VERIFY_PARAM_free(param: PX509_VERIFY_PARAM); cdecl; +begin + X509_VERIFY_PARAM_free := LoadLibCryptoFunction('X509_VERIFY_PARAM_free'); + if not assigned(X509_VERIFY_PARAM_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_free'); + X509_VERIFY_PARAM_free(param); +end; + +function Load_X509_VERIFY_PARAM_inherit(to_: PX509_VERIFY_PARAM; const from: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_inherit := LoadLibCryptoFunction('X509_VERIFY_PARAM_inherit'); + if not assigned(X509_VERIFY_PARAM_inherit) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_inherit'); + Result := X509_VERIFY_PARAM_inherit(to_,from); +end; + +function Load_X509_VERIFY_PARAM_set1(to_: PX509_VERIFY_PARAM; const from: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_set1 := LoadLibCryptoFunction('X509_VERIFY_PARAM_set1'); + if not assigned(X509_VERIFY_PARAM_set1) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_set1'); + Result := X509_VERIFY_PARAM_set1(to_,from); +end; + +function Load_X509_VERIFY_PARAM_set1_name(param: PX509_VERIFY_PARAM; const name: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_set1_name := LoadLibCryptoFunction('X509_VERIFY_PARAM_set1_name'); + if not assigned(X509_VERIFY_PARAM_set1_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_set1_name'); + Result := X509_VERIFY_PARAM_set1_name(param,name); +end; + +function Load_X509_VERIFY_PARAM_set_flags(param: PX509_VERIFY_PARAM; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_set_flags := LoadLibCryptoFunction('X509_VERIFY_PARAM_set_flags'); + if not assigned(X509_VERIFY_PARAM_set_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_set_flags'); + Result := X509_VERIFY_PARAM_set_flags(param,flags); +end; + +function Load_X509_VERIFY_PARAM_clear_flags(param: PX509_VERIFY_PARAM; flags: TOpenSSL_C_ULONG): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_clear_flags := LoadLibCryptoFunction('X509_VERIFY_PARAM_clear_flags'); + if not assigned(X509_VERIFY_PARAM_clear_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_clear_flags'); + Result := X509_VERIFY_PARAM_clear_flags(param,flags); +end; + +function Load_X509_VERIFY_PARAM_get_flags(param: PX509_VERIFY_PARAM): TOpenSSL_C_ULONG; cdecl; +begin + X509_VERIFY_PARAM_get_flags := LoadLibCryptoFunction('X509_VERIFY_PARAM_get_flags'); + if not assigned(X509_VERIFY_PARAM_get_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_get_flags'); + Result := X509_VERIFY_PARAM_get_flags(param); +end; + +function Load_X509_VERIFY_PARAM_set_purpose(param: PX509_VERIFY_PARAM; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_set_purpose := LoadLibCryptoFunction('X509_VERIFY_PARAM_set_purpose'); + if not assigned(X509_VERIFY_PARAM_set_purpose) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_set_purpose'); + Result := X509_VERIFY_PARAM_set_purpose(param,purpose); +end; + +function Load_X509_VERIFY_PARAM_set_trust(param: PX509_VERIFY_PARAM; trust: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_set_trust := LoadLibCryptoFunction('X509_VERIFY_PARAM_set_trust'); + if not assigned(X509_VERIFY_PARAM_set_trust) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_set_trust'); + Result := X509_VERIFY_PARAM_set_trust(param,trust); +end; + +procedure Load_X509_VERIFY_PARAM_set_depth(param: PX509_VERIFY_PARAM; depth: TOpenSSL_C_INT); cdecl; +begin + X509_VERIFY_PARAM_set_depth := LoadLibCryptoFunction('X509_VERIFY_PARAM_set_depth'); + if not assigned(X509_VERIFY_PARAM_set_depth) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_set_depth'); + X509_VERIFY_PARAM_set_depth(param,depth); +end; + +procedure Load_X509_VERIFY_PARAM_set_auth_level(param: PX509_VERIFY_PARAM; auth_level: TOpenSSL_C_INT); cdecl; +begin + X509_VERIFY_PARAM_set_auth_level := LoadLibCryptoFunction('X509_VERIFY_PARAM_set_auth_level'); + if not assigned(X509_VERIFY_PARAM_set_auth_level) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_set_auth_level'); + X509_VERIFY_PARAM_set_auth_level(param,auth_level); +end; + +function Load_X509_VERIFY_PARAM_add0_policy(param: PX509_VERIFY_PARAM; policy: PASN1_OBJECT): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_add0_policy := LoadLibCryptoFunction('X509_VERIFY_PARAM_add0_policy'); + if not assigned(X509_VERIFY_PARAM_add0_policy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_add0_policy'); + Result := X509_VERIFY_PARAM_add0_policy(param,policy); +end; + +function Load_X509_VERIFY_PARAM_set_inh_flags(param: PX509_VERIFY_PARAM; flags: TOpenSSL_C_UINT32): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_set_inh_flags := LoadLibCryptoFunction('X509_VERIFY_PARAM_set_inh_flags'); + if not assigned(X509_VERIFY_PARAM_set_inh_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_set_inh_flags'); + Result := X509_VERIFY_PARAM_set_inh_flags(param,flags); +end; + +function Load_X509_VERIFY_PARAM_get_inh_flags(const param: PX509_VERIFY_PARAM): TOpenSSL_C_UINT32; cdecl; +begin + X509_VERIFY_PARAM_get_inh_flags := LoadLibCryptoFunction('X509_VERIFY_PARAM_get_inh_flags'); + if not assigned(X509_VERIFY_PARAM_get_inh_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_get_inh_flags'); + Result := X509_VERIFY_PARAM_get_inh_flags(param); +end; + +function Load_X509_VERIFY_PARAM_set1_host(param: PX509_VERIFY_PARAM; const name: PAnsiChar; namelen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_set1_host := LoadLibCryptoFunction('X509_VERIFY_PARAM_set1_host'); + if not assigned(X509_VERIFY_PARAM_set1_host) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_set1_host'); + Result := X509_VERIFY_PARAM_set1_host(param,name,namelen); +end; + +function Load_X509_VERIFY_PARAM_add1_host(param: PX509_VERIFY_PARAM; const name: PAnsiChar; namelen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_add1_host := LoadLibCryptoFunction('X509_VERIFY_PARAM_add1_host'); + if not assigned(X509_VERIFY_PARAM_add1_host) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_add1_host'); + Result := X509_VERIFY_PARAM_add1_host(param,name,namelen); +end; + +procedure Load_X509_VERIFY_PARAM_set_hostflags(param: PX509_VERIFY_PARAM; flags: TOpenSSL_C_UINT); cdecl; +begin + X509_VERIFY_PARAM_set_hostflags := LoadLibCryptoFunction('X509_VERIFY_PARAM_set_hostflags'); + if not assigned(X509_VERIFY_PARAM_set_hostflags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_set_hostflags'); + X509_VERIFY_PARAM_set_hostflags(param,flags); +end; + +function Load_X509_VERIFY_PARAM_get_hostflags(const param: PX509_VERIFY_PARAM): TOpenSSL_C_UINT; cdecl; +begin + X509_VERIFY_PARAM_get_hostflags := LoadLibCryptoFunction('X509_VERIFY_PARAM_get_hostflags'); + if not assigned(X509_VERIFY_PARAM_get_hostflags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_get_hostflags'); + Result := X509_VERIFY_PARAM_get_hostflags(param); +end; + +function Load_X509_VERIFY_PARAM_get0_peername(v1: PX509_VERIFY_PARAM): PAnsiChar; cdecl; +begin + X509_VERIFY_PARAM_get0_peername := LoadLibCryptoFunction('X509_VERIFY_PARAM_get0_peername'); + if not assigned(X509_VERIFY_PARAM_get0_peername) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_get0_peername'); + Result := X509_VERIFY_PARAM_get0_peername(v1); +end; + +procedure Load_X509_VERIFY_PARAM_move_peername(v1: PX509_VERIFY_PARAM; v2: PX509_VERIFY_PARAM); cdecl; +begin + X509_VERIFY_PARAM_move_peername := LoadLibCryptoFunction('X509_VERIFY_PARAM_move_peername'); + if not assigned(X509_VERIFY_PARAM_move_peername) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_move_peername'); + X509_VERIFY_PARAM_move_peername(v1,v2); +end; + +function Load_X509_VERIFY_PARAM_set1_email(param: PX509_VERIFY_PARAM; const email: PAnsiChar; emaillen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_set1_email := LoadLibCryptoFunction('X509_VERIFY_PARAM_set1_email'); + if not assigned(X509_VERIFY_PARAM_set1_email) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_set1_email'); + Result := X509_VERIFY_PARAM_set1_email(param,email,emaillen); +end; + +function Load_X509_VERIFY_PARAM_set1_ip(param: PX509_VERIFY_PARAM; const ip: PByte; iplen: TOpenSSL_C_SIZET): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_set1_ip := LoadLibCryptoFunction('X509_VERIFY_PARAM_set1_ip'); + if not assigned(X509_VERIFY_PARAM_set1_ip) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_set1_ip'); + Result := X509_VERIFY_PARAM_set1_ip(param,ip,iplen); +end; + +function Load_X509_VERIFY_PARAM_set1_ip_asc(param: PX509_VERIFY_PARAM; const ipasc: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_set1_ip_asc := LoadLibCryptoFunction('X509_VERIFY_PARAM_set1_ip_asc'); + if not assigned(X509_VERIFY_PARAM_set1_ip_asc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_set1_ip_asc'); + Result := X509_VERIFY_PARAM_set1_ip_asc(param,ipasc); +end; + +function Load_X509_VERIFY_PARAM_get_depth(const param: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_get_depth := LoadLibCryptoFunction('X509_VERIFY_PARAM_get_depth'); + if not assigned(X509_VERIFY_PARAM_get_depth) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_get_depth'); + Result := X509_VERIFY_PARAM_get_depth(param); +end; + +function Load_X509_VERIFY_PARAM_get_auth_level(const param: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_get_auth_level := LoadLibCryptoFunction('X509_VERIFY_PARAM_get_auth_level'); + if not assigned(X509_VERIFY_PARAM_get_auth_level) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_get_auth_level'); + Result := X509_VERIFY_PARAM_get_auth_level(param); +end; + +function Load_X509_VERIFY_PARAM_get0_name(const param: PX509_VERIFY_PARAM): PAnsiChar; cdecl; +begin + X509_VERIFY_PARAM_get0_name := LoadLibCryptoFunction('X509_VERIFY_PARAM_get0_name'); + if not assigned(X509_VERIFY_PARAM_get0_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_get0_name'); + Result := X509_VERIFY_PARAM_get0_name(param); +end; + +function Load_X509_VERIFY_PARAM_add0_table(param: PX509_VERIFY_PARAM): TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_add0_table := LoadLibCryptoFunction('X509_VERIFY_PARAM_add0_table'); + if not assigned(X509_VERIFY_PARAM_add0_table) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_add0_table'); + Result := X509_VERIFY_PARAM_add0_table(param); +end; + +function Load_X509_VERIFY_PARAM_get_count: TOpenSSL_C_INT; cdecl; +begin + X509_VERIFY_PARAM_get_count := LoadLibCryptoFunction('X509_VERIFY_PARAM_get_count'); + if not assigned(X509_VERIFY_PARAM_get_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_get_count'); + Result := X509_VERIFY_PARAM_get_count(); +end; + +function Load_X509_VERIFY_PARAM_get0(id: TOpenSSL_C_INT): PX509_VERIFY_PARAM; cdecl; +begin + X509_VERIFY_PARAM_get0 := LoadLibCryptoFunction('X509_VERIFY_PARAM_get0'); + if not assigned(X509_VERIFY_PARAM_get0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_get0'); + Result := X509_VERIFY_PARAM_get0(id); +end; + +function Load_X509_VERIFY_PARAM_lookup(const name: PAnsiChar): X509_VERIFY_PARAM; cdecl; +begin + X509_VERIFY_PARAM_lookup := LoadLibCryptoFunction('X509_VERIFY_PARAM_lookup'); + if not assigned(X509_VERIFY_PARAM_lookup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_lookup'); + Result := X509_VERIFY_PARAM_lookup(name); +end; + +procedure Load_X509_VERIFY_PARAM_table_cleanup; cdecl; +begin + X509_VERIFY_PARAM_table_cleanup := LoadLibCryptoFunction('X509_VERIFY_PARAM_table_cleanup'); + if not assigned(X509_VERIFY_PARAM_table_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_VERIFY_PARAM_table_cleanup'); + X509_VERIFY_PARAM_table_cleanup(); +end; + +procedure Load_X509_policy_tree_free(tree: PX509_POLICY_TREE); cdecl; +begin + X509_policy_tree_free := LoadLibCryptoFunction('X509_policy_tree_free'); + if not assigned(X509_policy_tree_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_policy_tree_free'); + X509_policy_tree_free(tree); +end; + +function Load_X509_policy_tree_level_count(const tree: PX509_POLICY_TREE): TOpenSSL_C_INT; cdecl; +begin + X509_policy_tree_level_count := LoadLibCryptoFunction('X509_policy_tree_level_count'); + if not assigned(X509_policy_tree_level_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_policy_tree_level_count'); + Result := X509_policy_tree_level_count(tree); +end; + +function Load_X509_policy_tree_get0_level(const tree: PX509_POLICY_TREE; i: TOpenSSL_C_INT): PX509_POLICY_LEVEL; cdecl; +begin + X509_policy_tree_get0_level := LoadLibCryptoFunction('X509_policy_tree_get0_level'); + if not assigned(X509_policy_tree_get0_level) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_policy_tree_get0_level'); + Result := X509_policy_tree_get0_level(tree,i); +end; + +function Load_X509_policy_level_node_count(level: PX509_POLICY_LEVEL): TOpenSSL_C_INT; cdecl; +begin + X509_policy_level_node_count := LoadLibCryptoFunction('X509_policy_level_node_count'); + if not assigned(X509_policy_level_node_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_policy_level_node_count'); + Result := X509_policy_level_node_count(level); +end; + +function Load_X509_policy_level_get0_node(level: PX509_POLICY_LEVEL; i: TOpenSSL_C_INT): PX509_POLICY_NODE; cdecl; +begin + X509_policy_level_get0_node := LoadLibCryptoFunction('X509_policy_level_get0_node'); + if not assigned(X509_policy_level_get0_node) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_policy_level_get0_node'); + Result := X509_policy_level_get0_node(level,i); +end; + +function Load_X509_policy_node_get0_policy(const node: PX509_POLICY_NODE): PASN1_OBJECT; cdecl; +begin + X509_policy_node_get0_policy := LoadLibCryptoFunction('X509_policy_node_get0_policy'); + if not assigned(X509_policy_node_get0_policy) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_policy_node_get0_policy'); + Result := X509_policy_node_get0_policy(node); +end; + +function Load_X509_policy_node_get0_parent(const node: PX509_POLICY_NODE): PX509_POLICY_NODE; cdecl; +begin + X509_policy_node_get0_parent := LoadLibCryptoFunction('X509_policy_node_get0_parent'); + if not assigned(X509_policy_node_get0_parent) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_policy_node_get0_parent'); + Result := X509_policy_node_get0_parent(node); +end; + + +{$WARN NO_RETVAL OFF} +{$MINENUMSIZE 4} +{$WARN NO_RETVAL ON} + +procedure UnLoad; +begin +{$MINENUMSIZE 4} + X509_STORE_set_depth := Load_X509_STORE_set_depth; + X509_STORE_CTX_set_depth := Load_X509_STORE_CTX_set_depth; +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} + X509_STORE_CTX_get_app_data := Load_X509_STORE_CTX_get_app_data; +{$ENDIF} //of OPENSSL_NO_LEGACY_SUPPORT + X509_OBJECT_up_ref_count := Load_X509_OBJECT_up_ref_count; + X509_OBJECT_new := Load_X509_OBJECT_new; + X509_OBJECT_free := Load_X509_OBJECT_free; + X509_OBJECT_get_type := Load_X509_OBJECT_get_type; + X509_OBJECT_get0_X509 := Load_X509_OBJECT_get0_X509; + X509_OBJECT_set1_X509 := Load_X509_OBJECT_set1_X509; + X509_OBJECT_get0_X509_CRL := Load_X509_OBJECT_get0_X509_CRL; + X509_OBJECT_set1_X509_CRL := Load_X509_OBJECT_set1_X509_CRL; + X509_STORE_new := Load_X509_STORE_new; + X509_STORE_free := Load_X509_STORE_free; + X509_STORE_lock := Load_X509_STORE_lock; + X509_STORE_unlock := Load_X509_STORE_unlock; + X509_STORE_up_ref := Load_X509_STORE_up_ref; + X509_STORE_set_flags := Load_X509_STORE_set_flags; + X509_STORE_set_purpose := Load_X509_STORE_set_purpose; + X509_STORE_set_trust := Load_X509_STORE_set_trust; + X509_STORE_set1_param := Load_X509_STORE_set1_param; + X509_STORE_get0_param := Load_X509_STORE_get0_param; + X509_STORE_set_verify := Load_X509_STORE_set_verify; + X509_STORE_CTX_set_verify := Load_X509_STORE_CTX_set_verify; + X509_STORE_get_verify := Load_X509_STORE_get_verify; + X509_STORE_set_verify_cb := Load_X509_STORE_set_verify_cb; + X509_STORE_get_verify_cb := Load_X509_STORE_get_verify_cb; + X509_STORE_set_get_issuer := Load_X509_STORE_set_get_issuer; + X509_STORE_get_get_issuer := Load_X509_STORE_get_get_issuer; + X509_STORE_set_check_issued := Load_X509_STORE_set_check_issued; + X509_STORE_get_check_issued := Load_X509_STORE_get_check_issued; + X509_STORE_set_check_revocation := Load_X509_STORE_set_check_revocation; + X509_STORE_get_check_revocation := Load_X509_STORE_get_check_revocation; + X509_STORE_set_get_crl := Load_X509_STORE_set_get_crl; + X509_STORE_get_get_crl := Load_X509_STORE_get_get_crl; + X509_STORE_set_check_crl := Load_X509_STORE_set_check_crl; + X509_STORE_get_check_crl := Load_X509_STORE_get_check_crl; + X509_STORE_set_cert_crl := Load_X509_STORE_set_cert_crl; + X509_STORE_get_cert_crl := Load_X509_STORE_get_cert_crl; + X509_STORE_set_check_policy := Load_X509_STORE_set_check_policy; + X509_STORE_get_check_policy := Load_X509_STORE_get_check_policy; + X509_STORE_set_cleanup := Load_X509_STORE_set_cleanup; + X509_STORE_get_cleanup := Load_X509_STORE_get_cleanup; + X509_STORE_set_ex_data := Load_X509_STORE_set_ex_data; + X509_STORE_get_ex_data := Load_X509_STORE_get_ex_data; + X509_STORE_CTX_new := Load_X509_STORE_CTX_new; + X509_STORE_CTX_get1_issuer := Load_X509_STORE_CTX_get1_issuer; + X509_STORE_CTX_free := Load_X509_STORE_CTX_free; + X509_STORE_CTX_cleanup := Load_X509_STORE_CTX_cleanup; + X509_STORE_CTX_get0_store := Load_X509_STORE_CTX_get0_store; + X509_STORE_CTX_get0_cert := Load_X509_STORE_CTX_get0_cert; + X509_STORE_CTX_set_verify_cb := Load_X509_STORE_CTX_set_verify_cb; + X509_STORE_CTX_get_verify_cb := Load_X509_STORE_CTX_get_verify_cb; + X509_STORE_CTX_get_verify := Load_X509_STORE_CTX_get_verify; + X509_STORE_CTX_get_get_issuer := Load_X509_STORE_CTX_get_get_issuer; + X509_STORE_CTX_get_check_issued := Load_X509_STORE_CTX_get_check_issued; + X509_STORE_CTX_get_check_revocation := Load_X509_STORE_CTX_get_check_revocation; + X509_STORE_CTX_get_get_crl := Load_X509_STORE_CTX_get_get_crl; + X509_STORE_CTX_get_check_crl := Load_X509_STORE_CTX_get_check_crl; + X509_STORE_CTX_get_cert_crl := Load_X509_STORE_CTX_get_cert_crl; + X509_STORE_CTX_get_check_policy := Load_X509_STORE_CTX_get_check_policy; + X509_STORE_CTX_get_cleanup := Load_X509_STORE_CTX_get_cleanup; + X509_STORE_add_lookup := Load_X509_STORE_add_lookup; + X509_LOOKUP_hash_dir := Load_X509_LOOKUP_hash_dir; + X509_LOOKUP_file := Load_X509_LOOKUP_file; + X509_LOOKUP_meth_new := Load_X509_LOOKUP_meth_new; + X509_LOOKUP_meth_free := Load_X509_LOOKUP_meth_free; + X509_LOOKUP_meth_set_ctrl := Load_X509_LOOKUP_meth_set_ctrl; + X509_LOOKUP_meth_get_ctrl := Load_X509_LOOKUP_meth_get_ctrl; + X509_LOOKUP_meth_set_get_by_subject := Load_X509_LOOKUP_meth_set_get_by_subject; + X509_LOOKUP_meth_get_get_by_subject := Load_X509_LOOKUP_meth_get_get_by_subject; + X509_LOOKUP_meth_set_get_by_issuer_serial := Load_X509_LOOKUP_meth_set_get_by_issuer_serial; + X509_LOOKUP_meth_get_get_by_issuer_serial := Load_X509_LOOKUP_meth_get_get_by_issuer_serial; + X509_LOOKUP_meth_set_get_by_fingerprint := Load_X509_LOOKUP_meth_set_get_by_fingerprint; + X509_LOOKUP_meth_get_get_by_fingerprint := Load_X509_LOOKUP_meth_get_get_by_fingerprint; + X509_LOOKUP_meth_set_get_by_alias := Load_X509_LOOKUP_meth_set_get_by_alias; + X509_LOOKUP_meth_get_get_by_alias := Load_X509_LOOKUP_meth_get_get_by_alias; + X509_STORE_add_cert := Load_X509_STORE_add_cert; + X509_STORE_add_crl := Load_X509_STORE_add_crl; + X509_STORE_CTX_get_by_subject := Load_X509_STORE_CTX_get_by_subject; + X509_STORE_CTX_get_obj_by_subject := Load_X509_STORE_CTX_get_obj_by_subject; + X509_LOOKUP_ctrl := Load_X509_LOOKUP_ctrl; + X509_load_cert_file := Load_X509_load_cert_file; + X509_load_crl_file := Load_X509_load_crl_file; + X509_load_cert_crl_file := Load_X509_load_cert_crl_file; + X509_LOOKUP_new := Load_X509_LOOKUP_new; + X509_LOOKUP_free := Load_X509_LOOKUP_free; + X509_LOOKUP_init := Load_X509_LOOKUP_init; + X509_LOOKUP_by_subject := Load_X509_LOOKUP_by_subject; + X509_LOOKUP_by_issuer_serial := Load_X509_LOOKUP_by_issuer_serial; + X509_LOOKUP_by_fingerprint := Load_X509_LOOKUP_by_fingerprint; + X509_LOOKUP_by_alias := Load_X509_LOOKUP_by_alias; + X509_LOOKUP_set_method_data := Load_X509_LOOKUP_set_method_data; + X509_LOOKUP_get_method_data := Load_X509_LOOKUP_get_method_data; + X509_LOOKUP_get_store := Load_X509_LOOKUP_get_store; + X509_LOOKUP_shutdown := Load_X509_LOOKUP_shutdown; + X509_STORE_load_locations := Load_X509_STORE_load_locations; + X509_STORE_set_default_paths := Load_X509_STORE_set_default_paths; + X509_STORE_CTX_set_ex_data := Load_X509_STORE_CTX_set_ex_data; + X509_STORE_CTX_get_ex_data := Load_X509_STORE_CTX_get_ex_data; + X509_STORE_CTX_get_error := Load_X509_STORE_CTX_get_error; + X509_STORE_CTX_set_error := Load_X509_STORE_CTX_set_error; + X509_STORE_CTX_get_error_depth := Load_X509_STORE_CTX_get_error_depth; + X509_STORE_CTX_set_error_depth := Load_X509_STORE_CTX_set_error_depth; + X509_STORE_CTX_get_current_cert := Load_X509_STORE_CTX_get_current_cert; + X509_STORE_CTX_set_current_cert := Load_X509_STORE_CTX_set_current_cert; + X509_STORE_CTX_get0_current_issuer := Load_X509_STORE_CTX_get0_current_issuer; + X509_STORE_CTX_get0_current_crl := Load_X509_STORE_CTX_get0_current_crl; + X509_STORE_CTX_get0_parent_ctx := Load_X509_STORE_CTX_get0_parent_ctx; + X509_STORE_CTX_set_cert := Load_X509_STORE_CTX_set_cert; + X509_STORE_CTX_set_purpose := Load_X509_STORE_CTX_set_purpose; + X509_STORE_CTX_set_trust := Load_X509_STORE_CTX_set_trust; + X509_STORE_CTX_purpose_inherit := Load_X509_STORE_CTX_purpose_inherit; + X509_STORE_CTX_set_flags := Load_X509_STORE_CTX_set_flags; + X509_STORE_CTX_get0_policy_tree := Load_X509_STORE_CTX_get0_policy_tree; + X509_STORE_CTX_get_explicit_policy := Load_X509_STORE_CTX_get_explicit_policy; + X509_STORE_CTX_get_num_untrusted := Load_X509_STORE_CTX_get_num_untrusted; + X509_STORE_CTX_get0_param := Load_X509_STORE_CTX_get0_param; + X509_STORE_CTX_set0_param := Load_X509_STORE_CTX_set0_param; + X509_STORE_CTX_set_default := Load_X509_STORE_CTX_set_default; + X509_STORE_CTX_set0_dane := Load_X509_STORE_CTX_set0_dane; + X509_VERIFY_PARAM_new := Load_X509_VERIFY_PARAM_new; + X509_VERIFY_PARAM_free := Load_X509_VERIFY_PARAM_free; + X509_VERIFY_PARAM_inherit := Load_X509_VERIFY_PARAM_inherit; + X509_VERIFY_PARAM_set1 := Load_X509_VERIFY_PARAM_set1; + X509_VERIFY_PARAM_set1_name := Load_X509_VERIFY_PARAM_set1_name; + X509_VERIFY_PARAM_set_flags := Load_X509_VERIFY_PARAM_set_flags; + X509_VERIFY_PARAM_clear_flags := Load_X509_VERIFY_PARAM_clear_flags; + X509_VERIFY_PARAM_get_flags := Load_X509_VERIFY_PARAM_get_flags; + X509_VERIFY_PARAM_set_purpose := Load_X509_VERIFY_PARAM_set_purpose; + X509_VERIFY_PARAM_set_trust := Load_X509_VERIFY_PARAM_set_trust; + X509_VERIFY_PARAM_set_depth := Load_X509_VERIFY_PARAM_set_depth; + X509_VERIFY_PARAM_set_auth_level := Load_X509_VERIFY_PARAM_set_auth_level; + X509_VERIFY_PARAM_add0_policy := Load_X509_VERIFY_PARAM_add0_policy; + X509_VERIFY_PARAM_set_inh_flags := Load_X509_VERIFY_PARAM_set_inh_flags; + X509_VERIFY_PARAM_get_inh_flags := Load_X509_VERIFY_PARAM_get_inh_flags; + X509_VERIFY_PARAM_set1_host := Load_X509_VERIFY_PARAM_set1_host; + X509_VERIFY_PARAM_add1_host := Load_X509_VERIFY_PARAM_add1_host; + X509_VERIFY_PARAM_set_hostflags := Load_X509_VERIFY_PARAM_set_hostflags; + X509_VERIFY_PARAM_get_hostflags := Load_X509_VERIFY_PARAM_get_hostflags; + X509_VERIFY_PARAM_get0_peername := Load_X509_VERIFY_PARAM_get0_peername; + X509_VERIFY_PARAM_move_peername := Load_X509_VERIFY_PARAM_move_peername; + X509_VERIFY_PARAM_set1_email := Load_X509_VERIFY_PARAM_set1_email; + X509_VERIFY_PARAM_set1_ip := Load_X509_VERIFY_PARAM_set1_ip; + X509_VERIFY_PARAM_set1_ip_asc := Load_X509_VERIFY_PARAM_set1_ip_asc; + X509_VERIFY_PARAM_get_depth := Load_X509_VERIFY_PARAM_get_depth; + X509_VERIFY_PARAM_get_auth_level := Load_X509_VERIFY_PARAM_get_auth_level; + X509_VERIFY_PARAM_get0_name := Load_X509_VERIFY_PARAM_get0_name; + X509_VERIFY_PARAM_add0_table := Load_X509_VERIFY_PARAM_add0_table; + X509_VERIFY_PARAM_get_count := Load_X509_VERIFY_PARAM_get_count; + X509_VERIFY_PARAM_get0 := Load_X509_VERIFY_PARAM_get0; + X509_VERIFY_PARAM_lookup := Load_X509_VERIFY_PARAM_lookup; + X509_VERIFY_PARAM_table_cleanup := Load_X509_VERIFY_PARAM_table_cleanup; + X509_policy_tree_free := Load_X509_policy_tree_free; + X509_policy_tree_level_count := Load_X509_policy_tree_level_count; + X509_policy_tree_get0_level := Load_X509_policy_tree_get0_level; + X509_policy_level_node_count := Load_X509_policy_level_node_count; + X509_policy_level_get0_node := Load_X509_policy_level_get0_node; + X509_policy_node_get0_policy := Load_X509_policy_node_get0_policy; + X509_policy_node_get0_parent := Load_X509_policy_node_get0_parent; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_x509err.pas b/src/opensslHdrs/IdOpenSSLHeaders_x509err.pas new file mode 100644 index 0000000..2674939 --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_x509err.pas @@ -0,0 +1,204 @@ +(* This unit was generated from the source file x509err.h2pas +It should not be modified directly. All changes should be made to x509err.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_x509err; + + +interface + +// Headers for OpenSSL 1.1.1 +// x509err.h + + +uses + IdSSLOpenSSLAPI; + +const + (* + * X509 function codes. + *) + X509_F_ADD_CERT_DIR = 100; + X509_F_BUILD_CHAIN = 106; + X509_F_BY_FILE_CTRL = 101; + X509_F_CHECK_NAME_CONSTRAINTS = 149; + X509_F_CHECK_POLICY = 145; + X509_F_DANE_I2D = 107; + X509_F_DIR_CTRL = 102; + X509_F_GET_CERT_BY_SUBJECT = 103; + X509_F_I2D_X509_AUX = 151; + X509_F_LOOKUP_CERTS_SK = 152; + X509_F_NETSCAPE_SPKI_B64_DECODE = 129; + X509_F_NETSCAPE_SPKI_B64_ENCODE = 130; + X509_F_NEW_DIR = 153; + X509_F_X509AT_ADD1_ATTR = 135; + X509_F_X509V3_ADD_EXT = 104; + X509_F_X509_ATTRIBUTE_CREATE_BY_NID = 136; + X509_F_X509_ATTRIBUTE_CREATE_BY_OBJ = 137; + X509_F_X509_ATTRIBUTE_CREATE_BY_TXT = 140; + X509_F_X509_ATTRIBUTE_GET0_DATA = 139; + X509_F_X509_ATTRIBUTE_SET1_DATA = 138; + X509_F_X509_CHECK_PRIVATE_KEY = 128; + X509_F_X509_CRL_DIFF = 105; + X509_F_X509_CRL_METHOD_NEW = 154; + X509_F_X509_CRL_PRINT_FP = 147; + X509_F_X509_EXTENSION_CREATE_BY_NID = 108; + X509_F_X509_EXTENSION_CREATE_BY_OBJ = 109; + X509_F_X509_GET_PUBKEY_PARAMETERS = 110; + X509_F_X509_LOAD_CERT_CRL_FILE = 132; + X509_F_X509_LOAD_CERT_FILE = 111; + X509_F_X509_LOAD_CRL_FILE = 112; + X509_F_X509_LOOKUP_METH_NEW = 160; + X509_F_X509_LOOKUP_NEW = 155; + X509_F_X509_NAME_ADD_ENTRY = 113; + X509_F_X509_NAME_CANON = 156; + X509_F_X509_NAME_ENTRY_CREATE_BY_NID = 114; + X509_F_X509_NAME_ENTRY_CREATE_BY_TXT = 131; + X509_F_X509_NAME_ENTRY_SET_OBJECT = 115; + X509_F_X509_NAME_ONELINE = 116; + X509_F_X509_NAME_PRINT = 117; + X509_F_X509_OBJECT_NEW = 150; + X509_F_X509_PRINT_EX_FP = 118; + X509_F_X509_PUBKEY_DECODE = 148; + X509_F_X509_PUBKEY_GET0 = 119; + X509_F_X509_PUBKEY_SET = 120; + X509_F_X509_REQ_CHECK_PRIVATE_KEY = 144; + X509_F_X509_REQ_PRINT_EX = 121; + X509_F_X509_REQ_PRINT_FP = 122; + X509_F_X509_REQ_TO_X509 = 123; + X509_F_X509_STORE_ADD_CERT = 124; + X509_F_X509_STORE_ADD_CRL = 125; + X509_F_X509_STORE_ADD_LOOKUP = 157; + X509_F_X509_STORE_CTX_GET1_ISSUER = 146; + X509_F_X509_STORE_CTX_INIT = 143; + X509_F_X509_STORE_CTX_NEW = 142; + X509_F_X509_STORE_CTX_PURPOSE_INHERIT = 134; + X509_F_X509_STORE_NEW = 158; + X509_F_X509_TO_X509_REQ = 126; + X509_F_X509_TRUST_ADD = 133; + X509_F_X509_TRUST_SET = 141; + X509_F_X509_VERIFY_CERT = 127; + X509_F_X509_VERIFY_PARAM_NEW = 159; + + (* + * X509 reason codes. + *) + X509_R_AKID_MISMATCH = 110; + X509_R_BAD_SELECTOR = 133; + X509_R_BAD_X509_FILETYPE = 100; + X509_R_BASE64_DECODE_ERROR = 118; + X509_R_CANT_CHECK_DH_KEY = 114; + X509_R_CERT_ALREADY_IN_HASH_TABLE = 101; + X509_R_CRL_ALREADY_DELTA = 127; + X509_R_CRL_VERIFY_FAILURE = 131; + X509_R_IDP_MISMATCH = 128; + X509_R_INVALID_ATTRIBUTES = 138; + X509_R_INVALID_DIRECTORY = 113; + X509_R_INVALID_FIELD_NAME = 119; + X509_R_INVALID_TRUST = 123; + X509_R_ISSUER_MISMATCH = 129; + X509_R_KEY_TYPE_MISMATCH = 115; + X509_R_KEY_VALUES_MISMATCH = 116; + X509_R_LOADING_CERT_DIR = 103; + X509_R_LOADING_DEFAULTS = 104; + X509_R_METHOD_NOT_SUPPORTED = 124; + X509_R_NAME_TOO_LONG = 134; + X509_R_NEWER_CRL_NOT_NEWER = 132; + X509_R_NO_CERTIFICATE_FOUND = 135; + X509_R_NO_CERTIFICATE_OR_CRL_FOUND = 136; + X509_R_NO_CERT_SET_FOR_US_TO_VERIFY = 105; + X509_R_NO_CRL_FOUND = 137; + X509_R_NO_CRL_NUMBER = 130; + X509_R_PUBLIC_KEY_DECODE_ERROR = 125; + X509_R_PUBLIC_KEY_ENCODE_ERROR = 126; + X509_R_SHOULD_RETRY = 106; + X509_R_UNABLE_TO_FIND_PARAMETERS_IN_CHAIN = 107; + X509_R_UNABLE_TO_GET_CERTS_PUBLIC_KEY = 108; + X509_R_UNKNOWN_KEY_TYPE = 117; + X509_R_UNKNOWN_NID = 109; + X509_R_UNKNOWN_PURPOSE_ID = 121; + X509_R_UNKNOWN_TRUST_ID = 120; + X509_R_UNSUPPORTED_ALGORITHM = 111; + X509_R_WRONG_LOOKUP_TYPE = 112; + X509_R_WRONG_TYPE = 122; + + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM ERR_load_X509_strings} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +function ERR_load_X509_strings: TOpenSSL_C_INT; cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +function Load_ERR_load_X509_strings: TOpenSSL_C_INT; cdecl; + +var + ERR_load_X509_strings: function : TOpenSSL_C_INT; cdecl = Load_ERR_load_X509_strings; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +function Load_ERR_load_X509_strings: TOpenSSL_C_INT; cdecl; +begin + ERR_load_X509_strings := LoadLibCryptoFunction('ERR_load_X509_strings'); + if not assigned(ERR_load_X509_strings) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ERR_load_X509_strings'); + Result := ERR_load_X509_strings(); +end; + + +procedure UnLoad; +begin + ERR_load_X509_strings := Load_ERR_load_X509_strings; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdOpenSSLHeaders_x509v3.pas b/src/opensslHdrs/IdOpenSSLHeaders_x509v3.pas new file mode 100644 index 0000000..0de2f5e --- /dev/null +++ b/src/opensslHdrs/IdOpenSSLHeaders_x509v3.pas @@ -0,0 +1,1956 @@ +(* This unit was generated from the source file x509v3.h2pas +It should not be modified directly. All changes should be made to x509v3.h2pas +and this file regenerated *) + +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +unit IdOpenSSLHeaders_x509v3; + + +interface + +// Headers for OpenSSL 1.1.1 +// x509v3.h + + +uses + IdSSLOpenSSLAPI, + IdOpenSSLHeaders_ossl_typ, + IdOpenSSLHeaders_asn1, + IdOpenSSLHeaders_asn1t, + IdOpenSSLHeaders_safestack, + IdOpenSSLHeaders_stack, + IdOpenSSLHeaders_x509; + +const + (* ext_flags values *) + X509V3_EXT_DYNAMIC = $1; + X509V3_EXT_CTX_DEP = $2; + X509V3_EXT_MULTILINE = $4; + + // v3_ext_ctx + CTX_TEST = $1; + X509V3_CTX_REPLACE = $2; + + // GENERAL_NAME_st + GEN_OTHERNAME = 0; + GEN_EMAIL = 1; + GEN_DNS = 2; + GEN_X400 = 3; + GEN_DIRNAME = 4; + GEN_EDIPARTY = 5; + GEN_URI = 6; + GEN_IPADD = 7; + GEN_RID = 8; + + (* All existing reasons *) + CRLDP_ALL_REASONS = $807f; + + CRL_REASON_NONE = -1; + CRL_REASON_UNSPECIFIED = 0; + CRL_REASON_KEY_COMPROMISE = 1; + CRL_REASON_CA_COMPROMISE = 2; + CRL_REASON_AFFILIATION_CHANGED = 3; + CRL_REASON_SUPERSEDED = 4; + CRL_REASON_CESSATION_OF_OPERATION = 5; + CRL_REASON_CERTIFICATE_HOLD = 6; + CRL_REASON_REMOVE_FROM_CRL = 8; + CRL_REASON_PRIVILEGE_WITHDRAWN = 9; + CRL_REASON_AA_COMPROMISE = 10; + + (* Values in idp_flags field *) + (* IDP present *) + IDP_PRESENT = $1; + (* IDP values inconsistent *) + IDP_INVALID = $2; + (* onlyuser true *) + IDP_ONLYUSER = $4; + (* onlyCA true *) + IDP_ONLYCA = $8; + (* onlyattr true *) + IDP_ONLYATTR = $10; + (* indirectCRL true *) + IDP_INDIRECT = $20; + (* onlysomereasons present *) + IDP_REASONS = $40; + + EXT_END: array[0..13] of TOpenSSL_C_INT = (-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); + + (* X509_PURPOSE stuff *) + + EXFLAG_BCONS = $1; + EXFLAG_KUSAGE = $2; + EXFLAG_XKUSAGE = $4; + EXFLAG_NSCERT = $8; + + EXFLAG_CA = $10; + (* Really self issued not necessarily self signed *) + EXFLAG_SI = $20; + EXFLAG_V1 = $40; + EXFLAG_INVALID = $80; + (* EXFLAG_SET is set to indicate that some values have been precomputed *) + EXFLAG_SET = $100; + EXFLAG_CRITICAL = $200; + EXFLAG_PROXY = $400; + + EXFLAG_INVALID_POLICY = $800; + EXFLAG_FRESHEST = $1000; + (* Self signed *) + EXFLAG_SS = $2000; + + KU_DIGITAL_SIGNATURE = $0080; + KU_NON_REPUDIATION = $0040; + KU_KEY_ENCIPHERMENT = $0020; + KU_DATA_ENCIPHERMENT = $0010; + KU_KEY_AGREEMENT = $0008; + KU_KEY_CERT_SIGN = $0004; + KU_CRL_SIGN = $0002; + KU_ENCIPHER_ONLY = $0001; + KU_DECIPHER_ONLY = $8000; + + NS_SSL_CLIENT = $80; + NS_SSL_SERVER = $40; + NS_SMIME = $20; + NS_OBJSIGN = $10; + NS_SSL_CA = $04; + NS_SMIME_CA = $02; + NS_OBJSIGN_CA = $01; + NS_ANY_CA = NS_SSL_CA or NS_SMIME_CA or NS_OBJSIGN_CA; + + XKU_SSL_SERVER = $1; + XKU_SSL_CLIENT = $2; + XKU_SMIME = $4; + XKU_CODE_SIGN = $8; + XKU_SGC = $10; + XKU_OCSP_SIGN = $20; + XKU_TIMESTAMP = $40; + XKU_DVCS = $80; + XKU_ANYEKU = $100; + + X509_PURPOSE_DYNAMIC = $1; + X509_PURPOSE_DYNAMIC_NAME = $2; + + X509_PURPOSE_SSL_CLIENT = 1; + X509_PURPOSE_SSL_SERVER = 2; + X509_PURPOSE_NS_SSL_SERVER = 3; + X509_PURPOSE_SMIME_SIGN = 4; + X509_PURPOSE_SMIME_ENCRYPT = 5; + X509_PURPOSE_CRL_SIGN = 6; + X509_PURPOSE_ANY = 7; + X509_PURPOSE_OCSP_HELPER = 8; + X509_PURPOSE_TIMESTAMP_SIGN = 9; + + X509_PURPOSE_MIN = 1; + X509_PURPOSE_MAX = 9; + + (* Flags for X509V3_EXT_print() *) + + X509V3_EXT_UNKNOWN_MASK = TOpenSSL_C_LONG($f) shl 16; + (* Return error for unknown extensions *) + X509V3_EXT_DEFAULT = 0; + (* Print error for unknown extensions *) + X509V3_EXT_ERROR_UNKNOWN = TOpenSSL_C_LONG(1) shl 16; + (* ASN1 parse unknown extensions *) + X509V3_EXT_PARSE_UNKNOWN = TOpenSSL_C_LONG(2) shl 16; + (* BIO_dump unknown extensions *) + X509V3_EXT_DUMP_UNKNOWN = TOpenSSL_C_LONG(3) shl 16; + + (* Flags for X509V3_add1_i2d *) + + X509V3_ADD_OP_MASK = TOpenSSL_C_LONG($f); + X509V3_ADD_DEFAULT = TOpenSSL_C_LONG(0); + X509V3_ADD_APPEND = TOpenSSL_C_LONG(1); + X509V3_ADD_REPLACE = TOpenSSL_C_LONG(2); + X509V3_ADD_REPLACE_EXISTING = TOpenSSL_C_LONG(3); + X509V3_ADD_KEEP_EXISTING = TOpenSSL_C_LONG(4); + X509V3_ADD_DELETE = TOpenSSL_C_LONG(5); + X509V3_ADD_SILENT = $10; + + (* Flags for X509_check_* functions *) + + (* + * Always check subject name for host match even if subject alt names present + *) + X509_CHECK_FLAG_ALWAYS_CHECK_SUBJECT = $1; + (* Disable wildcard matching for dnsName fields and common name. *) + X509_CHECK_FLAG_NO_WILDCARDS = $2; + (* Wildcards must not match a partial label. *) + X509_CHECK_FLAG_NO_PARTIAL_WILDCARDS = $4; + (* Allow (non-partial) wildcards to match multiple labels. *) + X509_CHECK_FLAG_MULTI_LABEL_WILDCARDS = $8; + (* Constraint verifier subdomain patterns to match a single labels. *) + X509_CHECK_FLAG_SINGLE_LABEL_SUBDOMAINS = $10; + (* Never check the subject CN *) + X509_CHECK_FLAG_NEVER_CHECK_SUBJECT = $20; + (* + * Match reference identifiers starting with "." to any sub-domain. + * This is a non-public flag, turned on implicitly when the subject + * reference identity is a DNS name. + *) + _X509_CHECK_FLAG_DOT_SUBDOMAINS = $8000; + + ASIdOrRange_id = 0; + ASIdOrRange_range = 1; + + ASIdentifierChoice_inherit = 0; + ASIdentifierChoice_asIdsOrRanges = 1; + + IPAddressOrRange_addressPrefix = 0; + IPAddressOrRange_addressRange = 1; + + IPAddressChoice_inherit = 0; + IPAddressChoice_addressesOrRanges = 1; + + (* + * API tag for elements of the ASIdentifer SEQUENCE. + *) + V3_ASID_ASNUM = 0; + V3_ASID_RDI = 1; + + (* + * AFI values, assigned by IANA. It'd be nice to make the AFI + * handling code totally generic, but there are too many little things + * that would need to be defined for other address families for it to + * be worth the trouble. + *) + IANA_AFI_IPV4 = 1; + IANA_AFI_IPV6 = 2; + +type + (* Forward reference *) + //Pv3_ext_method = ^v3_ext_method; + //Pv3_ext_ctx = ^v3_ext_ctx; + + (* Useful typedefs *) + + //X509V3_EXT_NEW = function: Pointer; cdecl; + //X509V3_EXT_FREE = procedure(v1: Pointer); cdecl; + //X509V3_EXT_D2I = function(v1: Pointer; v2: PPByte; v3: TOpenSSL_C_Long): Pointer; cdecl; + //X509V3_EXT_I2D = function(v1: Pointer; v2: PPByte): TOpenSSL_C_INT; cdecl; +// typedef STACK_OF(CONF_VALUE) * +// (*X509V3_EXT_I2V) (const struct v3_ext_method *method, void *ext, +// STACK_OF(CONF_VALUE) *extlist); +// typedef void *(*X509V3_EXT_V2I)(const struct v3_ext_method *method, +// struct v3_ext_ctx *ctx, +// STACK_OF(CONF_VALUE) *values); + //X509V3_EXT_I2S = function(method: Pv3_ext_method; ext: Pointer): PAnsiChar; cdecl; + //X509V3_EXT_S2I = function(method: Pv3_ext_method; ctx: Pv3_ext_ctx; const str: PAnsiChar): Pointer; cdecl; + //X509V3_EXT_I2R = function(const method: Pv3_ext_method; ext: Pointer; out_: PBIO; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + //X509V3_EXT_R2I = function(const method: Pv3_ext_method; ctx: Pv3_ext_ctx; const str: PAnsiChar): Pointer; cdecl; + +// (* V3 extension structure *) +// v3_ext_method = record +// ext_nid: TOpenSSL_C_INT; +// ext_flags: TOpenSSL_C_INT; +//(* If this is set the following four fields are ignored *) +// it: PASN1_ITEM_EXP; +//(* Old style ASN1 calls *) +// ext_new: X509V3_EXT_NEW; +// ext_free: X509V3_EXT_FREE; +// d2i: X509V3_EXT_D2I; +// i2d: X509V3_EXT_I2D; +//(* The following pair is used for string extensions *) +// i2s: X509V3_EXT_I2S; +// s2i: X509V3_EXT_S2I; +//(* The following pair is used for multi-valued extensions *) +// i2v: X509V3_EXT_I2V; +// v2i: X509V3_EXT_V2I; +//(* The following are used for raw extensions *) +// i2r: X509V3_EXT_I2R; +// r2i: X509V3_EXT_R2I; +// usr_data: Pointer; (* Any extension specific data *) +// end; +// X509V3_EXT_METHOD = v3_ext_method; +// PX509V3_EXT_METHOD = ^X509V3_EXT_METHOD; +// DEFINE_STACK_OF(X509V3_EXT_METHOD) + +// typedef struct X509V3_CONF_METHOD_st { +// PAnsiChar *(*get_string) (void *db, const section: PAnsiChar, const value: PAnsiChar); +// STACK_OF(CONF_VALUE) *(*get_section) (void *db, const section: PAnsiChar); +// void (*free_string) (void *db, PAnsiChar *string); +// void (*free_section) (void *db, STACK_OF(CONF_VALUE) *section); +// } X509V3_CONF_METHOD; + +// Moved to ossl_typ +// (* Context specific info *) +// v3_ext_ctx = record +// flags: TOpenSSL_C_INT; +// issuer_cert: PX509; +// subject_cert: PX509; +// subject_req: PX509_REQ; +// crl: PX509_CRL; +// db_meth: PX509V3_CONF_METHOD; +// db: Pointer; +// (* Maybe more here *) +// end; + + ENUMERATED_NAMES = BIT_STRING_BITNAME; + + BASIC_CONSTRAINTS_st = record + ca: TOpenSSL_C_INT; + pathlen: PASN1_INTEGER; + end; + BASIC_CONSTRAINTS = BASIC_CONSTRAINTS_st; + PBASIC_CONSTRAINTS = ^BASIC_CONSTRAINTS; + + PKEY_USAGE_PERIOD_st = record + notBefore: PASN1_GENERALIZEDTIME; + notAfter: PASN1_GENERALIZEDTIME; + end; + PKEY_USAGE_PERIOD = PKEY_USAGE_PERIOD_st; + PPKEY_USAGE_PERIOD = ^PKEY_USAGE_PERIOD; + + otherName_st = record + type_id: PASN1_OBJECT; + value: PASN1_TYPE; + end; + OTHERNAME = otherName_st; + POTHERNAME = ^OTHERNAME; + + EDIPartyName_st = record + nameAssigner: PASN1_STRING; + partyName: PASN1_STRING; + end; + EDIPARTYNAME = EDIPartyName_st; + PEDIPARTYNAME = ^EDIPARTYNAME; + + GENERAL_NAME_st_union = record + case TOpenSSL_C_INT of + 0: (ptr: PAnsiChar); + 1: (otherName: POTHERNAME); (* otherName *) + 2: (rfc822Name: PASN1_IA5STRING); + 3: (dNSName: PASN1_IA5STRING); + 4: (x400Address: PASN1_TYPE); + 5: (directoryName: PX509_NAME); + 6: (ediPartyName: PEDIPARTYNAME); + 7: (uniformResourceIdentifier: PASN1_IA5STRING); + 8: (iPAddress: PASN1_OCTET_STRING); + 9: (registeredID: PASN1_OBJECT); + (* Old names *) + 10: (ip: PASN1_OCTET_STRING); (* iPAddress *) + 11: (dirn: PX509_NAME); (* dirn *) + 12: (ia5: PASN1_IA5STRING); (* rfc822Name, dNSName, + * uniformResourceIdentifier *) + 13: (rid: PASN1_OBJECT); (* registeredID *) + 14: (other: PASN1_TYPE); (* x400Address *) + end; + GENERAL_NAME_st = record + type_: TOpenSSL_C_INT; + d: GENERAL_NAME_st_union; + end; + GENERAL_NAME = GENERAL_NAME_st; + PGENERAL_NAME = ^GENERAL_NAME; + + PSTACK_OF_GENERAL_NAME = Pointer; + PGENERAL_NAMES = PSTACK_OF_GENERAL_NAME; + + ACCESS_DESCRIPTION_st = record + method: PASN1_OBJECT; + location: PGENERAL_NAME; + end; + ACCESS_DESCRIPTION = ACCESS_DESCRIPTION_st; + PACCESS_DESCRIPTION = ^ACCESS_DESCRIPTION; + +// typedef STACK_OF(ACCESS_DESCRIPTION) AUTHORITY_INFO_ACCESS; + +// typedef STACK_OF(ASN1_OBJECT) EXTENDED_KEY_USAGE; + +// typedef STACK_OF(ASN1_INTEGER) TLS_FEATURE; + +// DEFINE_STACK_OF(GENERAL_NAME) +// typedef STACK_OF(GENERAL_NAME) GENERAL_NAMES; +// DEFINE_STACK_OF(GENERAL_NAMES) + +// DEFINE_STACK_OF(ACCESS_DESCRIPTION) +// DIST_POINT_NAME_st_union = record +// case TOpenSSL_C_INT of +// 0: (GENERAL_NAMES *fullname); +// 1: (STACK_OF(X509_NAME_ENTRY) *relativename); +// end; + DIST_POINT_NAME_st = record + type_: TOpenSSL_C_INT; + (* If relativename then this contains the full distribution point name *) + dpname: PX509_NAME; + end; + DIST_POINT_NAME = DIST_POINT_NAME_st; + PDIST_POINT_NAME = ^DIST_POINT_NAME; + + +// struct DIST_POINT_ST { +// DIST_POINT_NAME *distpoint; +// ASN1_BIT_STRING *reasons; +// GENERAL_NAMES *CRLissuer; +// TOpenSSL_C_INT dp_reasons; +// }; + +// typedef STACK_OF(DIST_POINT) CRL_DIST_POINTS; + +// DEFINE_STACK_OF(DIST_POINT) + +// AUTHORITY_KEYID_st = record +// keyid: PASN1_OCTET_STRING; +// issuer: PGENERAL_NAMES; +// serial: PASN1_INTEGER; +// end; + + (* Strong extranet structures *) + + SXNET_ID_st = record + zone: PASN1_INTEGER; + user: PASN1_OCTET_STRING; + end; + SXNETID = SXNET_ID_st; + PSXNETID = ^SXNETID; +// DEFINE_STACK_OF(SXNETID) + +// SXNET_st = record +// ASN1_INTEGER *version; +// STACK_OF(SXNETID) *ids; +// end; +// SXNET = SXNET_st; +// PSXNET = ^SXNET; + +// NOTICEREF_st = record +// ASN1_STRING *organization; +// STACK_OF(ASN1_INTEGER) *noticenos; +// end; +// NOTICEREF = NOTICEREF_st; +// PNOTICEREF = ^NOTICEREF; + +// USERNOTICE_st = record +// noticeref: PNOTICEREF; +// exptext: PASN1_STRING; +// end; +// USERNOTICE = USERNOTICE_st; +// PUSERNOTICE = ^USERNOTICE; + +// POLICYQUALINFO_st_union = record +// case TOpenSSL_C_INT of +// 0: (cpsuri: PASN1_IA5STRING); +// 1: (usernotice: PUSERNOTICE); +// 2: (other: PASN1_TYPE); +// end; +// POLICYQUALINFO_st = record +// pqualid: PASN1_OBJECT; +// d: POLICYQUALINFO_st_union; +// end; +// POLICYQUALINFO = POLICYQUALINFO_st; +// PPOLICYQUALINFO = ^POLICYQUALINFO; +// DEFINE_STACK_OF(POLICYQUALINFO) + +// POLICYINFO_st = record +// ASN1_OBJECT *policyid; +// STACK_OF(POLICYQUALINFO) *qualifiers; +// end; +// POLICYINFO = POLICYINFO_st; +// PPOLICYINFO = ^POLICYINFO; +// typedef STACK_OF(POLICYINFO) CERTIFICATEPOLICIES; +// DEFINE_STACK_OF(POLICYINFO) + + POLICY_MAPPING_st = record + issuerDomainPolicy: PASN1_OBJECT; + subjectDomainPolicy: PASN1_OBJECT; + end; + POLICY_MAPPING = POLICY_MAPPING_st; + PPOLICY_MAPPING = ^POLICY_MAPPING; +// DEFINE_STACK_OF(POLICY_MAPPING) +// typedef STACK_OF(POLICY_MAPPING) POLICY_MAPPINGS; + + GENERAL_SUBTREE_st = record + base: PGENERAL_NAME; + minimum: PASN1_INTEGER; + maximum: PASN1_INTEGER; + end; + GENERAL_SUBTREE = GENERAL_SUBTREE_st; + PGENERAL_SUBTREE = ^GENERAL_SUBTREE; +// DEFINE_STACK_OF(GENERAL_SUBTREE) + +// NAME_CONSTRAINTS_st = record +// STACK_OF(GENERAL_SUBTREE) *permittedSubtrees; +// STACK_OF(GENERAL_SUBTREE) *excludedSubtrees; +// end; + + POLICY_CONSTRAINTS_st = record + requireExplicitPolicy: PASN1_INTEGER; + inhibitPolicyMapping: PASN1_INTEGER; + end; + POLICY_CONSTRAINTS = POLICY_CONSTRAINTS_st; + PPOLICY_CONSTRAINTS = ^POLICY_CONSTRAINTS; + + (* Proxy certificate structures, see RFC 3820 *) + PROXY_POLICY_st = record + policyLanguage: PASN1_OBJECT; + policy: PASN1_OCTET_STRING; + end; + PROXY_POLICY = PROXY_POLICY_st; + PPROXY_POLICY = ^PROXY_POLICY; +// DECLARE_ASN1_FUNCTIONS(PROXY_POLICY) + + PROXY_CERT_INFO_EXTENSION_st = record + pcPathLengthConstraint: PASN1_INTEGER; + proxyPolicy: PPROXY_POLICY; + end; + PROXY_CERT_INFO_EXTENSION = PROXY_CERT_INFO_EXTENSION_st; + PPROXY_CERT_INFO_EXTENSION = ^PROXY_CERT_INFO_EXTENSION; +// DECLARE_ASN1_FUNCTIONS(PROXY_CERT_INFO_EXTENSION) + +// ISSUING_DIST_POint_st = record +// distpoint: PDIST_POINT_NAME; +// TOpenSSL_C_INT onlyuser; +// TOpenSSL_C_INT onlyCA; +// onlysomereasons: PASN1_BIT_STRING; +// TOpenSSL_C_INT indirectCRL; +// TOpenSSL_C_INT onlyattr; +// end; + +// # define X509V3_conf_err(val) ERR_add_error_data(6, \ +// "section:", (val)->section, \ +// ",name:", (val)->name, ",value:", (val)->value) +// +// # define X509V3_set_ctx_test(ctx) \ +// X509V3_set_ctx(ctx, NULL, NULL, NULL, NULL, CTX_TEST) +// # define X509V3_set_ctx_nodb(ctx) (ctx)->db = NULL; +// +// # define EXT_BITSTRING(nid, table) { nid, 0, ASN1_ITEM_ref(ASN1_BIT_STRING), \ +// 0,0,0,0, \ +// 0,0, \ +// (X509V3_EXT_I2V)i2v_ASN1_BIT_STRING, \ +// (X509V3_EXT_V2I)v2i_ASN1_BIT_STRING, \ +// NULL, NULL, \ +// table} +// +// # define EXT_IA5STRING(nid) { nid, 0, ASN1_ITEM_ref(ASN1_IA5STRING), \ +// 0,0,0,0, \ +// (X509V3_EXT_I2S)i2s_ASN1_IA5STRING, \ +// (X509V3_EXT_S2I)s2i_ASN1_IA5STRING, \ +// 0,0,0,0, \ +// NULL} + + PX509_PURPOSE = ^X509_PURPOSE; + x509_purpose_st = record + purpose: TOpenSSL_C_INT; + trust: TOpenSSL_C_INT; (* Default trust ID *) + flags: TOpenSSL_C_INT; + check_purpose: function(const v1: PX509_PURPOSE; const v2: PX509; v3: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; + name: PAnsiChar; + sname: PAnsiChar; + usr_data: Pointer; + end; + X509_PURPOSE = x509_purpose_st; +// DEFINE_STACK_OF(X509_PURPOSE) + +// DECLARE_ASN1_FUNCTIONS(SXNET) +// DECLARE_ASN1_FUNCTIONS(SXNETID) + +type + ASRange_st = record + min, max: PASN1_INTEGER; + end; + ASRange = ASRange_st; + PASRange = ^ASRange; + + ASIdOrRange_st = record + type_: TOpenSSL_C_INT; + case u: TOpenSSL_C_INT of + 0: (id: PASN1_INTEGER); + 1: (range: PASRange); + end; + ASIdOrRange = ASIdOrRange_st; + PASIdOrRange = ^ASIdOrRange; +// typedef STACK_OF(ASIdOrRange) ASIdOrRanges; +// DEFINE_STACK_OF(ASIdOrRange) + +// ASIdentifierChoice_st = record +// type_: TOpenSSL_C_INT; +// case u: TOpenSSL_C_INT of +// 0: (inherit: PASN1_NULL); +// 1: (asIdsOrRanges: PASIdOrRanges); +// end; +// ASIdentifierChoice = ASIdentifierChoice_st; +// PASIdentifierChoice = ^ASIdentifierChoice; + +// ASIdentifiers_st = record +// asnum, rdi: PASIdentifierChoice; +// end; +// ASIdentifiers = ASIdentifiers_st; +// PASIdentifiers = ^ASIdentifiers; + +// DECLARE_ASN1_FUNCTIONS(ASRange) +// DECLARE_ASN1_FUNCTIONS(ASIdOrRange) +// DECLARE_ASN1_FUNCTIONS(ASIdentifierChoice) +// DECLARE_ASN1_FUNCTIONS(ASIdentifiers) + + IPAddressRange_st = record + min, max: PASN1_BIT_STRING; + end; + IPAddressRange = IPAddressRange_st; + PIPAddressRange = ^IPAddressRange; + + IPAddressOrRange_st = record + type_: TOpenSSL_C_INT; + case u: TOpenSSL_C_INT of + 0: (addressPrefix: PASN1_BIT_STRING); + 1: (addressRange: PIPAddressRange); + end; + IPAddressOrRange = IPAddressOrRange_st; + PIPAddressOrRange = ^IPAddressOrRange; + +// typedef STACK_OF(IPAddressOrRange) IPAddressOrRanges; +// DEFINE_STACK_OF(IPAddressOrRange) + +// IPAddressChoice_st = record +// type_: TOpenSSL_C_INT; +// case u: TOpenSSL_C_INT of +// 0: (inherit: PASN1_NULL); +// 1: (addressesOrRanges: PIPAddressOrRanges); +// end; +// IPAddressChoice = IPAddressChoice_st; +// PIPAddressChoice = ^IPAddressChoice; + +// IPAddressFamily_st = record +// addressFamily: PASN1_OCTET_STRING; +// ipAddressChoice: PIPAddressChoice; +// end; +// IPAddressFamily = IPAddressFamily_st; +// PIPAddressFamily = ^IPAddressFamily; + +// typedef STACK_OF(IPAddressFamily) IPAddrBlocks; +// DEFINE_STACK_OF(IPAddressFamily) + +// DECLARE_ASN1_FUNCTIONS(IPAddressRange) +// DECLARE_ASN1_FUNCTIONS(IPAddressOrRange) +// DECLARE_ASN1_FUNCTIONS(IPAddressChoice) +// DECLARE_ASN1_FUNCTIONS(IPAddressFamily) + + NamingAuthority_st = type Pointer; + NAMING_AUTHORITY = NamingAuthority_st; + PNAMING_AUTHORITY = ^NAMING_AUTHORITY; + + ProfessionInfo_st = type Pointer; + PROFESSION_INFO = ProfessionInfo_st; + PPROFESSION_INFO = ^PROFESSION_INFO; + + Admissions_st = type Pointer; + ADMISSIONS = Admissions_st; + PADMISSIONS = ^ADMISSIONS; + + AdmissionSyntax_st = type Pointer; + ADMISSION_SYNTAX = AdmissionSyntax_st; + PADMISSION_SYNTAX = ^ADMISSION_SYNTAX; +// DECLARE_ASN1_FUNCTIONS(NAMING_AUTHORITY) +// DECLARE_ASN1_FUNCTIONS(PROFESSION_INFO) +// DECLARE_ASN1_FUNCTIONS(ADMISSIONS) +// DECLARE_ASN1_FUNCTIONS(ADMISSION_SYNTAX) +// DEFINE_STACK_OF(ADMISSIONS) +// DEFINE_STACK_OF(PROFESSION_INFO) +// typedef STACK_OF(PROFESSION_INFO) PROFESSION_INFOS; + +// function SXNET_add_id_asc(psx: PPSXNET; const zone: PAnsiChar; const user: PAnsiChar; userlen: TOpenSSL_C_INT): TOpenSSL_C_INT; +// function SXNET_add_id_ulong(psx: PPSXNET; lzone: TOpenSSL_C_ULONG; const user: PAnsiChar; userlen: TOpenSSL_C_INT): TOpenSSL_C_INT; +// function SXNET_add_id_INTEGER(psx: PPSXNET; izone: PASN1_INTEGER; const user: PAnsiChar; userlen: TOpenSSL_C_INT): TOpenSSL_C_INT; + +// function SXNET_get_id_asc(sx: PSXNET; const zone: PAnsiChar): PASN1_OCTET_STRING; +// function SXNET_get_id_ulong(sx: PSXNET; lzone: TOpenSSL_C_ULONG): PASN1_OCTET_STRING; +// function SXNET_get_id_INTEGER(sx: PSXNET; zone: PASN1_INTEGER): PASN1_OCTET_STRING; + +// DECLARE_ASN1_FUNCTIONS(BASIC_CONSTRAINTS_st) + +{ The EXTERNALSYM directive is ignored by FPC, however, it is used by Delphi as follows: + +The EXTERNALSYM directive prevents the specified Delphi symbol from appearing in header +files generated for C++. } + +{$EXTERNALSYM BASIC_CONSTRAINTS_free} +{$EXTERNALSYM BASIC_CONSTRAINTS_new} +{$EXTERNALSYM AUTHORITY_KEYID_free} +{$EXTERNALSYM AUTHORITY_KEYID_new} +{$EXTERNALSYM GENERAL_NAME_free} +{$EXTERNALSYM GENERAL_NAME_new} +{$EXTERNALSYM GENERAL_NAME_cmp} +{$EXTERNALSYM GENERAL_NAME_print} +{$EXTERNALSYM GENERAL_NAMES_free} +{$EXTERNALSYM GENERAL_NAMES_new} +{$EXTERNALSYM OTHERNAME_cmp} +{$EXTERNALSYM GENERAL_NAME_set0_value} +{$EXTERNALSYM GENERAL_NAME_get0_value} +{$EXTERNALSYM GENERAL_NAME_set0_othername} +{$EXTERNALSYM GENERAL_NAME_get0_otherName} +{$EXTERNALSYM i2a_ACCESS_DESCRIPTION} +{$EXTERNALSYM DIST_POINT_set_dpname} +{$EXTERNALSYM NAME_CONSTRAINTS_check} +{$EXTERNALSYM NAME_CONSTRAINTS_check_CN} +{$EXTERNALSYM X509V3_EXT_nconf_nid} +{$EXTERNALSYM X509V3_EXT_nconf} +{$EXTERNALSYM X509V3_EXT_add_nconf} +{$EXTERNALSYM X509V3_EXT_REQ_add_nconf} +{$EXTERNALSYM X509V3_EXT_CRL_add_nconf} +{$EXTERNALSYM X509V3_EXT_conf_nid} +{$EXTERNALSYM X509V3_EXT_conf} +{$EXTERNALSYM X509V3_EXT_add_conf} +{$EXTERNALSYM X509V3_EXT_REQ_add_conf} +{$EXTERNALSYM X509V3_EXT_CRL_add_conf} +{$EXTERNALSYM X509V3_set_nconf} +{$EXTERNALSYM X509V3_get_string} +{$EXTERNALSYM X509V3_string_free} +{$EXTERNALSYM X509V3_set_ctx} +{$EXTERNALSYM X509V3_EXT_add_alias} +{$EXTERNALSYM X509V3_EXT_cleanup} +{$EXTERNALSYM X509V3_add_standard_extensions} +{$EXTERNALSYM X509V3_EXT_d2i} +{$EXTERNALSYM X509V3_EXT_i2d} +{$EXTERNALSYM X509V3_EXT_print} +{$EXTERNALSYM X509_check_ca} +{$EXTERNALSYM X509_check_purpose} +{$EXTERNALSYM X509_supported_extension} +{$EXTERNALSYM X509_PURPOSE_set} +{$EXTERNALSYM X509_check_issued} +{$EXTERNALSYM X509_check_akid} +{$EXTERNALSYM X509_set_proxy_flag} +{$EXTERNALSYM X509_set_proxy_pathlen} +{$EXTERNALSYM X509_get_proxy_pathlen} +{$EXTERNALSYM X509_get_extension_flags} +{$EXTERNALSYM X509_get_key_usage} +{$EXTERNALSYM X509_get_extended_key_usage} +{$EXTERNALSYM X509_get0_subject_key_id} +{$EXTERNALSYM X509_get0_authority_key_id} +{$EXTERNALSYM X509_get0_authority_serial} +{$EXTERNALSYM X509_PURPOSE_get_count} +{$EXTERNALSYM X509_PURPOSE_get0} +{$EXTERNALSYM X509_PURPOSE_get_by_sname} +{$EXTERNALSYM X509_PURPOSE_get_by_id} +{$EXTERNALSYM X509_PURPOSE_get0_name} +{$EXTERNALSYM X509_PURPOSE_get0_sname} +{$EXTERNALSYM X509_PURPOSE_get_trust} +{$EXTERNALSYM X509_PURPOSE_cleanup} +{$EXTERNALSYM X509_PURPOSE_get_id} +{$EXTERNALSYM X509_get1_email} +{$EXTERNALSYM X509_REQ_get1_email} +{$EXTERNALSYM X509_email_free} +{$EXTERNALSYM X509_get1_ocsp} +{$EXTERNALSYM X509_check_host} +{$EXTERNALSYM X509_check_email} +{$EXTERNALSYM X509_check_ip} +{$EXTERNALSYM X509_check_ip_asc} +{$EXTERNALSYM a2i_IPADDRESS} +{$EXTERNALSYM a2i_IPADDRESS_NC} +{$EXTERNALSYM X509_POLICY_NODE_print} +{$EXTERNALSYM X509v3_addr_get_range} +{$EXTERNALSYM X509v3_asid_validate_path} +{$EXTERNALSYM X509v3_addr_validate_path} +{$EXTERNALSYM NAMING_AUTHORITY_get0_authorityId} +{$EXTERNALSYM NAMING_AUTHORITY_get0_authorityURL} +{$EXTERNALSYM NAMING_AUTHORITY_get0_authorityText} +{$EXTERNALSYM NAMING_AUTHORITY_set0_authorityId} +{$EXTERNALSYM NAMING_AUTHORITY_set0_authorityURL} +{$EXTERNALSYM NAMING_AUTHORITY_set0_authorityText} +{$EXTERNALSYM ADMISSION_SYNTAX_get0_admissionAuthority} +{$EXTERNALSYM ADMISSION_SYNTAX_set0_admissionAuthority} +{$EXTERNALSYM ADMISSIONS_get0_admissionAuthority} +{$EXTERNALSYM ADMISSIONS_set0_admissionAuthority} +{$EXTERNALSYM ADMISSIONS_get0_namingAuthority} +{$EXTERNALSYM ADMISSIONS_set0_namingAuthority} +{$EXTERNALSYM PROFESSION_INFO_get0_addProfessionInfo} +{$EXTERNALSYM PROFESSION_INFO_set0_addProfessionInfo} +{$EXTERNALSYM PROFESSION_INFO_get0_namingAuthority} +{$EXTERNALSYM PROFESSION_INFO_set0_namingAuthority} +{$EXTERNALSYM PROFESSION_INFO_get0_registrationNumber} +{$EXTERNALSYM PROFESSION_INFO_set0_registrationNumber} + +{$IFDEF OPENSSL_STATIC_LINK_MODEL} +procedure BASIC_CONSTRAINTS_free(bc : PBASIC_CONSTRAINTS); cdecl; external CLibCrypto; +function BASIC_CONSTRAINTS_new: PBASIC_CONSTRAINTS; cdecl; external CLibCrypto; +procedure AUTHORITY_KEYID_free(id : AUTHORITY_KEYID); cdecl; external CLibCrypto; +function AUTHORITY_KEYID_new: AUTHORITY_KEYID; cdecl; external CLibCrypto; +procedure GENERAL_NAME_free(a: PGENERAL_NAME); cdecl; external CLibCrypto; +function GENERAL_NAME_new: PGENERAL_NAME; cdecl; external CLibCrypto; +function GENERAL_NAME_cmp(a: PGENERAL_NAME; b: PGENERAL_NAME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function GENERAL_NAME_print(out_: PBIO; gen: PGENERAL_NAME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure GENERAL_NAMES_free(a: PGENERAL_NAMES); cdecl; external CLibCrypto; +function GENERAL_NAMES_new: PGENERAL_NAMES; cdecl; external CLibCrypto; +function OTHERNAME_cmp(a: POTHERNAME; b: POTHERNAME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure GENERAL_NAME_set0_value(a: PGENERAL_NAME; type_: TOpenSSL_C_INT; value: Pointer); cdecl; external CLibCrypto; +function GENERAL_NAME_get0_value(const a: PGENERAL_NAME; ptype: POpenSSL_C_INT): Pointer; cdecl; external CLibCrypto; +function GENERAL_NAME_set0_othername(gen: PGENERAL_NAME; oid: PASN1_OBJECT; value: PASN1_TYPE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function GENERAL_NAME_get0_otherName(const gen: PGENERAL_NAME; poid: PPASN1_OBJECT; pvalue: PPASN1_TYPE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function i2a_ACCESS_DESCRIPTION(bp: PBIO; const a: PACCESS_DESCRIPTION): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function DIST_POINT_set_dpname(dpn: PDIST_POINT_NAME; iname: PX509_NAME): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function NAME_CONSTRAINTS_check(x: PX509; nc: PNAME_CONSTRAINTS): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function NAME_CONSTRAINTS_check_CN(x: PX509; nc: PNAME_CONSTRAINTS): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509V3_EXT_nconf_nid(conf: PCONF; ctx: PX509V3_CTX; ext_nid: TOpenSSL_C_INT; const value: PAnsiChar): PX509_EXTENSION; cdecl; external CLibCrypto; +function X509V3_EXT_nconf(conf: PCONF; ctx: PX509V3_CTX; const name: PAnsiChar; const value: PAnsiChar): PX509_EXTENSION; cdecl; external CLibCrypto; +function X509V3_EXT_add_nconf(conf: PCONF; ctx: PX509V3_CTX; const section: PAnsiChar; cert: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509V3_EXT_REQ_add_nconf(conf: PCONF; ctx: PX509V3_CTX; const section: PAnsiChar; req: PX509_REQ): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509V3_EXT_CRL_add_nconf(conf: PCONF; ctx: PX509V3_CTX; const section: PAnsiChar; crl: PX509_CRL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509V3_EXT_conf_nid(conf: Pointer; ctx: PX509V3_CTX; ext_nid: TOpenSSL_C_INT; const value: PAnsiChar): PX509_EXTENSION; cdecl; external CLibCrypto; +function X509V3_EXT_conf(conf: Pointer; ctx: PX509V3_CTX; const name: PAnsiChar; const value: PAnsiChar): PX509_EXTENSION; cdecl; external CLibCrypto; +function X509V3_EXT_add_conf(conf: Pointer; ctx: PX509V3_CTX; const section: PAnsiChar; cert: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509V3_EXT_REQ_add_conf(conf: Pointer; ctx: PX509V3_CTX; const section: PAnsiChar; req: PX509_REQ): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509V3_EXT_CRL_add_conf(conf: Pointer; ctx: PX509V3_CTX; const section: PAnsiChar; crl: PX509_CRL): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509V3_set_nconf(ctx: PX509V3_CTX; conf: PCONF); cdecl; external CLibCrypto; +function X509V3_get_string(ctx: PX509V3_CTX; const name: PAnsiChar; const section: PAnsiChar): PAnsiChar; cdecl; external CLibCrypto; +procedure X509V3_string_free(ctx: PX509V3_CTX; str: PAnsiChar); cdecl; external CLibCrypto; +procedure X509V3_set_ctx(ctx: PX509V3_CTX; issuer: PX509; subject: PX509; req: PX509_REQ; crl: PX509_CRL; flags: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function X509V3_EXT_add_alias(nid_to: TOpenSSL_C_INT; nid_from: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509V3_EXT_cleanup; cdecl; external CLibCrypto; +function X509V3_add_standard_extensions: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509V3_EXT_d2i(ext: PX509_EXTENSION): Pointer; cdecl; external CLibCrypto; +function X509V3_EXT_i2d(ext_nid: TOpenSSL_C_INT; crit: TOpenSSL_C_INT; ext_struc: Pointer): PX509_EXTENSION; cdecl; external CLibCrypto; +function X509V3_EXT_print(out_: PBIO; ext: PX509_EXTENSION; flag: TOpenSSL_C_ULONG; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_check_ca(x: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_check_purpose(x: PX509; id: TOpenSSL_C_INT; ca: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_supported_extension(ex: PX509_EXTENSION): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_PURPOSE_set(p: POpenSSL_C_INT; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_check_issued(issuer: PX509; subject: PX509): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_check_akid(issuer: PX509; akid: PAUTHORITY_KEYID): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_set_proxy_flag(x: PX509); cdecl; external CLibCrypto; +procedure X509_set_proxy_pathlen(x: PX509; l: TOpenSSL_C_LONG); cdecl; external CLibCrypto; +function X509_get_proxy_pathlen(x: PX509): TOpenSSL_C_LONG; cdecl; external CLibCrypto; +function X509_get_extension_flags(x: PX509): TOpenSSL_C_UINT32; cdecl; external CLibCrypto; +function X509_get_key_usage(x: PX509): TOpenSSL_C_UINT32; cdecl; external CLibCrypto; +function X509_get_extended_key_usage(x: PX509): TOpenSSL_C_UINT32; cdecl; external CLibCrypto; +function X509_get0_subject_key_id(x: PX509): PASN1_OCTET_STRING; cdecl; external CLibCrypto; +function X509_get0_authority_key_id(x: PX509): PASN1_OCTET_STRING; cdecl; external CLibCrypto; +function X509_get0_authority_serial(x: PX509): PASN1_INTEGER; cdecl; external CLibCrypto; +function X509_PURPOSE_get_count: TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_PURPOSE_get0(idx: TOpenSSL_C_INT): PX509_PURPOSE; cdecl; external CLibCrypto; +function X509_PURPOSE_get_by_sname(const sname: PAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_PURPOSE_get_by_id(id: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_PURPOSE_get0_name(const xp: PX509_PURPOSE): PAnsiChar; cdecl; external CLibCrypto; +function X509_PURPOSE_get0_sname(const xp: PX509_PURPOSE): PAnsiChar; cdecl; external CLibCrypto; +function X509_PURPOSE_get_trust(const xp: PX509_PURPOSE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +procedure X509_PURPOSE_cleanup; cdecl; external CLibCrypto; +function X509_PURPOSE_get_id(const v1: PX509_PURPOSE): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_get1_email(x: PX509): PSTACK_OF_OPENSSL_STRING; cdecl; external CLibCrypto; +function X509_REQ_get1_email( x : PX509_REQ): PSTACK_OF_OPENSSL_STRING; cdecl; external CLibCrypto; +procedure X509_email_free(sk : PSTACK_OF_OPENSSL_STRING); cdecl; external CLibCrypto; +function X509_get1_ocsp(x: PX509): PSTACK_OF_OPENSSL_STRING; cdecl; external CLibCrypto; +function X509_check_host(x: PX509; const chk: PAnsiChar; chklen: TOpenSSL_C_SIZET; flags: TOpenSSL_C_UINT; peername: PPAnsiChar): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_check_email(x: PX509; const chk: PAnsiChar; chklen: TOpenSSL_C_SIZET; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_check_ip(x: PX509; const chk: PByte; chklen: TOpenSSL_C_SIZET; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509_check_ip_asc(x: PX509; const ipasc: PAnsiChar; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function a2i_IPADDRESS(const ipasc: PAnsiChar): PASN1_OCTET_STRING; cdecl; external CLibCrypto; +function a2i_IPADDRESS_NC(const ipasc: PAnsiChar): PASN1_OCTET_STRING; cdecl; external CLibCrypto; +procedure X509_POLICY_NODE_print(out_: PBIO; node: PX509_POLICY_NODE; indent: TOpenSSL_C_INT); cdecl; external CLibCrypto; +function X509v3_addr_get_range(aor: PIPAddressOrRange; const afi: TOpenSSL_C_UINT; min: PByte; max: Byte; const length: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509v3_asid_validate_path(v1: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function X509v3_addr_validate_path(v1: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; external CLibCrypto; +function NAMING_AUTHORITY_get0_authorityId(const n: PNAMING_AUTHORITY): PASN1_OBJECT; cdecl; external CLibCrypto; +function NAMING_AUTHORITY_get0_authorityURL(const n: PNAMING_AUTHORITY): PASN1_IA5STRING; cdecl; external CLibCrypto; +function NAMING_AUTHORITY_get0_authorityText(const n: PNAMING_AUTHORITY): PASN1_STRING; cdecl; external CLibCrypto; +procedure NAMING_AUTHORITY_set0_authorityId(n: PNAMING_AUTHORITY; namingAuthorityId: PASN1_OBJECT); cdecl; external CLibCrypto; +procedure NAMING_AUTHORITY_set0_authorityURL(n: PNAMING_AUTHORITY; namingAuthorityUrl: PASN1_IA5STRING); cdecl; external CLibCrypto; +procedure NAMING_AUTHORITY_set0_authorityText(n: PNAMING_AUTHORITY; namingAuthorityText: PASN1_STRING); cdecl; external CLibCrypto; +function ADMISSION_SYNTAX_get0_admissionAuthority(const as_: ADMISSION_SYNTAX): PGENERAL_NAME; cdecl; external CLibCrypto; +procedure ADMISSION_SYNTAX_set0_admissionAuthority(as_: ADMISSION_SYNTAX; aa: PGENERAL_NAME); cdecl; external CLibCrypto; +function ADMISSIONS_get0_admissionAuthority(const a: PADMISSIONS): PGENERAL_NAME; cdecl; external CLibCrypto; +procedure ADMISSIONS_set0_admissionAuthority(a: PADMISSIONS; aa: PGENERAL_NAME); cdecl; external CLibCrypto; +function ADMISSIONS_get0_namingAuthority(const a: PADMISSIONS): PNAMING_AUTHORITY; cdecl; external CLibCrypto; +procedure ADMISSIONS_set0_namingAuthority(a: PADMISSIONS; na: PNAMING_AUTHORITY); cdecl; external CLibCrypto; +function PROFESSION_INFO_get0_addProfessionInfo(const pi: PPROFESSION_INFO): PASN1_OCTET_STRING; cdecl; external CLibCrypto; +procedure PROFESSION_INFO_set0_addProfessionInfo(pi: PPROFESSION_INFO; aos: PASN1_OCTET_STRING); cdecl; external CLibCrypto; +function PROFESSION_INFO_get0_namingAuthority(const pi: PPROFESSION_INFO): PNAMING_AUTHORITY; cdecl; external CLibCrypto; +procedure PROFESSION_INFO_set0_namingAuthority(pi: PPROFESSION_INFO; na: PNAMING_AUTHORITY); cdecl; external CLibCrypto; +function PROFESSION_INFO_get0_registrationNumber(const pi: PPROFESSION_INFO): PASN1_PRINTABLESTRING; cdecl; external CLibCrypto; +procedure PROFESSION_INFO_set0_registrationNumber(pi: PPROFESSION_INFO; rn: PASN1_PRINTABLESTRING); cdecl; external CLibCrypto; + +{$ELSE} + +{Declare external function initialisers - should not be called directly} + +procedure Load_BASIC_CONSTRAINTS_free(bc : PBASIC_CONSTRAINTS); cdecl; +function Load_BASIC_CONSTRAINTS_new: PBASIC_CONSTRAINTS; cdecl; +procedure Load_AUTHORITY_KEYID_free(id : AUTHORITY_KEYID); cdecl; +function Load_AUTHORITY_KEYID_new: AUTHORITY_KEYID; cdecl; +procedure Load_GENERAL_NAME_free(a: PGENERAL_NAME); cdecl; +function Load_GENERAL_NAME_new: PGENERAL_NAME; cdecl; +function Load_GENERAL_NAME_cmp(a: PGENERAL_NAME; b: PGENERAL_NAME): TOpenSSL_C_INT; cdecl; +function Load_GENERAL_NAME_print(out_: PBIO; gen: PGENERAL_NAME): TOpenSSL_C_INT; cdecl; +procedure Load_GENERAL_NAMES_free(a: PGENERAL_NAMES); cdecl; +function Load_GENERAL_NAMES_new: PGENERAL_NAMES; cdecl; +function Load_OTHERNAME_cmp(a: POTHERNAME; b: POTHERNAME): TOpenSSL_C_INT; cdecl; +procedure Load_GENERAL_NAME_set0_value(a: PGENERAL_NAME; type_: TOpenSSL_C_INT; value: Pointer); cdecl; +function Load_GENERAL_NAME_get0_value(const a: PGENERAL_NAME; ptype: POpenSSL_C_INT): Pointer; cdecl; +function Load_GENERAL_NAME_set0_othername(gen: PGENERAL_NAME; oid: PASN1_OBJECT; value: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +function Load_GENERAL_NAME_get0_otherName(const gen: PGENERAL_NAME; poid: PPASN1_OBJECT; pvalue: PPASN1_TYPE): TOpenSSL_C_INT; cdecl; +function Load_i2a_ACCESS_DESCRIPTION(bp: PBIO; const a: PACCESS_DESCRIPTION): TOpenSSL_C_INT; cdecl; +function Load_DIST_POINT_set_dpname(dpn: PDIST_POINT_NAME; iname: PX509_NAME): TOpenSSL_C_INT; cdecl; +function Load_NAME_CONSTRAINTS_check(x: PX509; nc: PNAME_CONSTRAINTS): TOpenSSL_C_INT; cdecl; +function Load_NAME_CONSTRAINTS_check_CN(x: PX509; nc: PNAME_CONSTRAINTS): TOpenSSL_C_INT; cdecl; +function Load_X509V3_EXT_nconf_nid(conf: PCONF; ctx: PX509V3_CTX; ext_nid: TOpenSSL_C_INT; const value: PAnsiChar): PX509_EXTENSION; cdecl; +function Load_X509V3_EXT_nconf(conf: PCONF; ctx: PX509V3_CTX; const name: PAnsiChar; const value: PAnsiChar): PX509_EXTENSION; cdecl; +function Load_X509V3_EXT_add_nconf(conf: PCONF; ctx: PX509V3_CTX; const section: PAnsiChar; cert: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509V3_EXT_REQ_add_nconf(conf: PCONF; ctx: PX509V3_CTX; const section: PAnsiChar; req: PX509_REQ): TOpenSSL_C_INT; cdecl; +function Load_X509V3_EXT_CRL_add_nconf(conf: PCONF; ctx: PX509V3_CTX; const section: PAnsiChar; crl: PX509_CRL): TOpenSSL_C_INT; cdecl; +function Load_X509V3_EXT_conf_nid(conf: Pointer; ctx: PX509V3_CTX; ext_nid: TOpenSSL_C_INT; const value: PAnsiChar): PX509_EXTENSION; cdecl; +function Load_X509V3_EXT_conf(conf: Pointer; ctx: PX509V3_CTX; const name: PAnsiChar; const value: PAnsiChar): PX509_EXTENSION; cdecl; +function Load_X509V3_EXT_add_conf(conf: Pointer; ctx: PX509V3_CTX; const section: PAnsiChar; cert: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509V3_EXT_REQ_add_conf(conf: Pointer; ctx: PX509V3_CTX; const section: PAnsiChar; req: PX509_REQ): TOpenSSL_C_INT; cdecl; +function Load_X509V3_EXT_CRL_add_conf(conf: Pointer; ctx: PX509V3_CTX; const section: PAnsiChar; crl: PX509_CRL): TOpenSSL_C_INT; cdecl; +procedure Load_X509V3_set_nconf(ctx: PX509V3_CTX; conf: PCONF); cdecl; +function Load_X509V3_get_string(ctx: PX509V3_CTX; const name: PAnsiChar; const section: PAnsiChar): PAnsiChar; cdecl; +procedure Load_X509V3_string_free(ctx: PX509V3_CTX; str: PAnsiChar); cdecl; +procedure Load_X509V3_set_ctx(ctx: PX509V3_CTX; issuer: PX509; subject: PX509; req: PX509_REQ; crl: PX509_CRL; flags: TOpenSSL_C_INT); cdecl; +function Load_X509V3_EXT_add_alias(nid_to: TOpenSSL_C_INT; nid_from: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +procedure Load_X509V3_EXT_cleanup; cdecl; +function Load_X509V3_add_standard_extensions: TOpenSSL_C_INT; cdecl; +function Load_X509V3_EXT_d2i(ext: PX509_EXTENSION): Pointer; cdecl; +function Load_X509V3_EXT_i2d(ext_nid: TOpenSSL_C_INT; crit: TOpenSSL_C_INT; ext_struc: Pointer): PX509_EXTENSION; cdecl; +function Load_X509V3_EXT_print(out_: PBIO; ext: PX509_EXTENSION; flag: TOpenSSL_C_ULONG; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_check_ca(x: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509_check_purpose(x: PX509; id: TOpenSSL_C_INT; ca: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_supported_extension(ex: PX509_EXTENSION): TOpenSSL_C_INT; cdecl; +function Load_X509_PURPOSE_set(p: POpenSSL_C_INT; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_check_issued(issuer: PX509; subject: PX509): TOpenSSL_C_INT; cdecl; +function Load_X509_check_akid(issuer: PX509; akid: PAUTHORITY_KEYID): TOpenSSL_C_INT; cdecl; +procedure Load_X509_set_proxy_flag(x: PX509); cdecl; +procedure Load_X509_set_proxy_pathlen(x: PX509; l: TOpenSSL_C_LONG); cdecl; +function Load_X509_get_proxy_pathlen(x: PX509): TOpenSSL_C_LONG; cdecl; +function Load_X509_get_extension_flags(x: PX509): TOpenSSL_C_UINT32; cdecl; +function Load_X509_get_key_usage(x: PX509): TOpenSSL_C_UINT32; cdecl; +function Load_X509_get_extended_key_usage(x: PX509): TOpenSSL_C_UINT32; cdecl; +function Load_X509_get0_subject_key_id(x: PX509): PASN1_OCTET_STRING; cdecl; +function Load_X509_get0_authority_key_id(x: PX509): PASN1_OCTET_STRING; cdecl; +function Load_X509_get0_authority_serial(x: PX509): PASN1_INTEGER; cdecl; +function Load_X509_PURPOSE_get_count: TOpenSSL_C_INT; cdecl; +function Load_X509_PURPOSE_get0(idx: TOpenSSL_C_INT): PX509_PURPOSE; cdecl; +function Load_X509_PURPOSE_get_by_sname(const sname: PAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_X509_PURPOSE_get_by_id(id: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509_PURPOSE_get0_name(const xp: PX509_PURPOSE): PAnsiChar; cdecl; +function Load_X509_PURPOSE_get0_sname(const xp: PX509_PURPOSE): PAnsiChar; cdecl; +function Load_X509_PURPOSE_get_trust(const xp: PX509_PURPOSE): TOpenSSL_C_INT; cdecl; +procedure Load_X509_PURPOSE_cleanup; cdecl; +function Load_X509_PURPOSE_get_id(const v1: PX509_PURPOSE): TOpenSSL_C_INT; cdecl; +function Load_X509_get1_email(x: PX509): PSTACK_OF_OPENSSL_STRING; cdecl; +function Load_X509_REQ_get1_email( x : PX509_REQ): PSTACK_OF_OPENSSL_STRING; cdecl; +procedure Load_X509_email_free(sk : PSTACK_OF_OPENSSL_STRING); cdecl; +function Load_X509_get1_ocsp(x: PX509): PSTACK_OF_OPENSSL_STRING; cdecl; +function Load_X509_check_host(x: PX509; const chk: PAnsiChar; chklen: TOpenSSL_C_SIZET; flags: TOpenSSL_C_UINT; peername: PPAnsiChar): TOpenSSL_C_INT; cdecl; +function Load_X509_check_email(x: PX509; const chk: PAnsiChar; chklen: TOpenSSL_C_SIZET; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_X509_check_ip(x: PX509; const chk: PByte; chklen: TOpenSSL_C_SIZET; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_X509_check_ip_asc(x: PX509; const ipasc: PAnsiChar; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +function Load_a2i_IPADDRESS(const ipasc: PAnsiChar): PASN1_OCTET_STRING; cdecl; +function Load_a2i_IPADDRESS_NC(const ipasc: PAnsiChar): PASN1_OCTET_STRING; cdecl; +procedure Load_X509_POLICY_NODE_print(out_: PBIO; node: PX509_POLICY_NODE; indent: TOpenSSL_C_INT); cdecl; +function Load_X509v3_addr_get_range(aor: PIPAddressOrRange; const afi: TOpenSSL_C_UINT; min: PByte; max: Byte; const length: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +function Load_X509v3_asid_validate_path(v1: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; +function Load_X509v3_addr_validate_path(v1: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; +function Load_NAMING_AUTHORITY_get0_authorityId(const n: PNAMING_AUTHORITY): PASN1_OBJECT; cdecl; +function Load_NAMING_AUTHORITY_get0_authorityURL(const n: PNAMING_AUTHORITY): PASN1_IA5STRING; cdecl; +function Load_NAMING_AUTHORITY_get0_authorityText(const n: PNAMING_AUTHORITY): PASN1_STRING; cdecl; +procedure Load_NAMING_AUTHORITY_set0_authorityId(n: PNAMING_AUTHORITY; namingAuthorityId: PASN1_OBJECT); cdecl; +procedure Load_NAMING_AUTHORITY_set0_authorityURL(n: PNAMING_AUTHORITY; namingAuthorityUrl: PASN1_IA5STRING); cdecl; +procedure Load_NAMING_AUTHORITY_set0_authorityText(n: PNAMING_AUTHORITY; namingAuthorityText: PASN1_STRING); cdecl; +function Load_ADMISSION_SYNTAX_get0_admissionAuthority(const as_: ADMISSION_SYNTAX): PGENERAL_NAME; cdecl; +procedure Load_ADMISSION_SYNTAX_set0_admissionAuthority(as_: ADMISSION_SYNTAX; aa: PGENERAL_NAME); cdecl; +function Load_ADMISSIONS_get0_admissionAuthority(const a: PADMISSIONS): PGENERAL_NAME; cdecl; +procedure Load_ADMISSIONS_set0_admissionAuthority(a: PADMISSIONS; aa: PGENERAL_NAME); cdecl; +function Load_ADMISSIONS_get0_namingAuthority(const a: PADMISSIONS): PNAMING_AUTHORITY; cdecl; +procedure Load_ADMISSIONS_set0_namingAuthority(a: PADMISSIONS; na: PNAMING_AUTHORITY); cdecl; +function Load_PROFESSION_INFO_get0_addProfessionInfo(const pi: PPROFESSION_INFO): PASN1_OCTET_STRING; cdecl; +procedure Load_PROFESSION_INFO_set0_addProfessionInfo(pi: PPROFESSION_INFO; aos: PASN1_OCTET_STRING); cdecl; +function Load_PROFESSION_INFO_get0_namingAuthority(const pi: PPROFESSION_INFO): PNAMING_AUTHORITY; cdecl; +procedure Load_PROFESSION_INFO_set0_namingAuthority(pi: PPROFESSION_INFO; na: PNAMING_AUTHORITY); cdecl; +function Load_PROFESSION_INFO_get0_registrationNumber(const pi: PPROFESSION_INFO): PASN1_PRINTABLESTRING; cdecl; +procedure Load_PROFESSION_INFO_set0_registrationNumber(pi: PPROFESSION_INFO; rn: PASN1_PRINTABLESTRING); cdecl; + +var + BASIC_CONSTRAINTS_free: procedure (bc : PBASIC_CONSTRAINTS); cdecl = Load_BASIC_CONSTRAINTS_free; + BASIC_CONSTRAINTS_new: function : PBASIC_CONSTRAINTS; cdecl = Load_BASIC_CONSTRAINTS_new; + AUTHORITY_KEYID_free: procedure (id : AUTHORITY_KEYID); cdecl = Load_AUTHORITY_KEYID_free; + AUTHORITY_KEYID_new: function : AUTHORITY_KEYID; cdecl = Load_AUTHORITY_KEYID_new; + GENERAL_NAME_free: procedure (a: PGENERAL_NAME); cdecl = Load_GENERAL_NAME_free; + GENERAL_NAME_new: function : PGENERAL_NAME; cdecl = Load_GENERAL_NAME_new; + GENERAL_NAME_cmp: function (a: PGENERAL_NAME; b: PGENERAL_NAME): TOpenSSL_C_INT; cdecl = Load_GENERAL_NAME_cmp; + GENERAL_NAME_print: function (out_: PBIO; gen: PGENERAL_NAME): TOpenSSL_C_INT; cdecl = Load_GENERAL_NAME_print; + GENERAL_NAMES_free: procedure (a: PGENERAL_NAMES); cdecl = Load_GENERAL_NAMES_free; + GENERAL_NAMES_new: function : PGENERAL_NAMES; cdecl = Load_GENERAL_NAMES_new; + OTHERNAME_cmp: function (a: POTHERNAME; b: POTHERNAME): TOpenSSL_C_INT; cdecl = Load_OTHERNAME_cmp; + GENERAL_NAME_set0_value: procedure (a: PGENERAL_NAME; type_: TOpenSSL_C_INT; value: Pointer); cdecl = Load_GENERAL_NAME_set0_value; + GENERAL_NAME_get0_value: function (const a: PGENERAL_NAME; ptype: POpenSSL_C_INT): Pointer; cdecl = Load_GENERAL_NAME_get0_value; + GENERAL_NAME_set0_othername: function (gen: PGENERAL_NAME; oid: PASN1_OBJECT; value: PASN1_TYPE): TOpenSSL_C_INT; cdecl = Load_GENERAL_NAME_set0_othername; + GENERAL_NAME_get0_otherName: function (const gen: PGENERAL_NAME; poid: PPASN1_OBJECT; pvalue: PPASN1_TYPE): TOpenSSL_C_INT; cdecl = Load_GENERAL_NAME_get0_otherName; + i2a_ACCESS_DESCRIPTION: function (bp: PBIO; const a: PACCESS_DESCRIPTION): TOpenSSL_C_INT; cdecl = Load_i2a_ACCESS_DESCRIPTION; + DIST_POINT_set_dpname: function (dpn: PDIST_POINT_NAME; iname: PX509_NAME): TOpenSSL_C_INT; cdecl = Load_DIST_POINT_set_dpname; + NAME_CONSTRAINTS_check: function (x: PX509; nc: PNAME_CONSTRAINTS): TOpenSSL_C_INT; cdecl = Load_NAME_CONSTRAINTS_check; + NAME_CONSTRAINTS_check_CN: function (x: PX509; nc: PNAME_CONSTRAINTS): TOpenSSL_C_INT; cdecl = Load_NAME_CONSTRAINTS_check_CN; + X509V3_EXT_nconf_nid: function (conf: PCONF; ctx: PX509V3_CTX; ext_nid: TOpenSSL_C_INT; const value: PAnsiChar): PX509_EXTENSION; cdecl = Load_X509V3_EXT_nconf_nid; + X509V3_EXT_nconf: function (conf: PCONF; ctx: PX509V3_CTX; const name: PAnsiChar; const value: PAnsiChar): PX509_EXTENSION; cdecl = Load_X509V3_EXT_nconf; + X509V3_EXT_add_nconf: function (conf: PCONF; ctx: PX509V3_CTX; const section: PAnsiChar; cert: PX509): TOpenSSL_C_INT; cdecl = Load_X509V3_EXT_add_nconf; + X509V3_EXT_REQ_add_nconf: function (conf: PCONF; ctx: PX509V3_CTX; const section: PAnsiChar; req: PX509_REQ): TOpenSSL_C_INT; cdecl = Load_X509V3_EXT_REQ_add_nconf; + X509V3_EXT_CRL_add_nconf: function (conf: PCONF; ctx: PX509V3_CTX; const section: PAnsiChar; crl: PX509_CRL): TOpenSSL_C_INT; cdecl = Load_X509V3_EXT_CRL_add_nconf; + X509V3_EXT_conf_nid: function (conf: Pointer; ctx: PX509V3_CTX; ext_nid: TOpenSSL_C_INT; const value: PAnsiChar): PX509_EXTENSION; cdecl = Load_X509V3_EXT_conf_nid; + X509V3_EXT_conf: function (conf: Pointer; ctx: PX509V3_CTX; const name: PAnsiChar; const value: PAnsiChar): PX509_EXTENSION; cdecl = Load_X509V3_EXT_conf; + X509V3_EXT_add_conf: function (conf: Pointer; ctx: PX509V3_CTX; const section: PAnsiChar; cert: PX509): TOpenSSL_C_INT; cdecl = Load_X509V3_EXT_add_conf; + X509V3_EXT_REQ_add_conf: function (conf: Pointer; ctx: PX509V3_CTX; const section: PAnsiChar; req: PX509_REQ): TOpenSSL_C_INT; cdecl = Load_X509V3_EXT_REQ_add_conf; + X509V3_EXT_CRL_add_conf: function (conf: Pointer; ctx: PX509V3_CTX; const section: PAnsiChar; crl: PX509_CRL): TOpenSSL_C_INT; cdecl = Load_X509V3_EXT_CRL_add_conf; + X509V3_set_nconf: procedure (ctx: PX509V3_CTX; conf: PCONF); cdecl = Load_X509V3_set_nconf; + X509V3_get_string: function (ctx: PX509V3_CTX; const name: PAnsiChar; const section: PAnsiChar): PAnsiChar; cdecl = Load_X509V3_get_string; + X509V3_string_free: procedure (ctx: PX509V3_CTX; str: PAnsiChar); cdecl = Load_X509V3_string_free; + X509V3_set_ctx: procedure (ctx: PX509V3_CTX; issuer: PX509; subject: PX509; req: PX509_REQ; crl: PX509_CRL; flags: TOpenSSL_C_INT); cdecl = Load_X509V3_set_ctx; + X509V3_EXT_add_alias: function (nid_to: TOpenSSL_C_INT; nid_from: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509V3_EXT_add_alias; + X509V3_EXT_cleanup: procedure ; cdecl = Load_X509V3_EXT_cleanup; + X509V3_add_standard_extensions: function : TOpenSSL_C_INT; cdecl = Load_X509V3_add_standard_extensions; + X509V3_EXT_d2i: function (ext: PX509_EXTENSION): Pointer; cdecl = Load_X509V3_EXT_d2i; + X509V3_EXT_i2d: function (ext_nid: TOpenSSL_C_INT; crit: TOpenSSL_C_INT; ext_struc: Pointer): PX509_EXTENSION; cdecl = Load_X509V3_EXT_i2d; + X509V3_EXT_print: function (out_: PBIO; ext: PX509_EXTENSION; flag: TOpenSSL_C_ULONG; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509V3_EXT_print; + X509_check_ca: function (x: PX509): TOpenSSL_C_INT; cdecl = Load_X509_check_ca; + X509_check_purpose: function (x: PX509; id: TOpenSSL_C_INT; ca: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_check_purpose; + X509_supported_extension: function (ex: PX509_EXTENSION): TOpenSSL_C_INT; cdecl = Load_X509_supported_extension; + X509_PURPOSE_set: function (p: POpenSSL_C_INT; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_PURPOSE_set; + X509_check_issued: function (issuer: PX509; subject: PX509): TOpenSSL_C_INT; cdecl = Load_X509_check_issued; + X509_check_akid: function (issuer: PX509; akid: PAUTHORITY_KEYID): TOpenSSL_C_INT; cdecl = Load_X509_check_akid; + X509_set_proxy_flag: procedure (x: PX509); cdecl = Load_X509_set_proxy_flag; + X509_set_proxy_pathlen: procedure (x: PX509; l: TOpenSSL_C_LONG); cdecl = Load_X509_set_proxy_pathlen; + X509_get_proxy_pathlen: function (x: PX509): TOpenSSL_C_LONG; cdecl = Load_X509_get_proxy_pathlen; + X509_get_extension_flags: function (x: PX509): TOpenSSL_C_UINT32; cdecl = Load_X509_get_extension_flags; + X509_get_key_usage: function (x: PX509): TOpenSSL_C_UINT32; cdecl = Load_X509_get_key_usage; + X509_get_extended_key_usage: function (x: PX509): TOpenSSL_C_UINT32; cdecl = Load_X509_get_extended_key_usage; + X509_get0_subject_key_id: function (x: PX509): PASN1_OCTET_STRING; cdecl = Load_X509_get0_subject_key_id; + X509_get0_authority_key_id: function (x: PX509): PASN1_OCTET_STRING; cdecl = Load_X509_get0_authority_key_id; + X509_get0_authority_serial: function (x: PX509): PASN1_INTEGER; cdecl = Load_X509_get0_authority_serial; + X509_PURPOSE_get_count: function : TOpenSSL_C_INT; cdecl = Load_X509_PURPOSE_get_count; + X509_PURPOSE_get0: function (idx: TOpenSSL_C_INT): PX509_PURPOSE; cdecl = Load_X509_PURPOSE_get0; + X509_PURPOSE_get_by_sname: function (const sname: PAnsiChar): TOpenSSL_C_INT; cdecl = Load_X509_PURPOSE_get_by_sname; + X509_PURPOSE_get_by_id: function (id: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509_PURPOSE_get_by_id; + X509_PURPOSE_get0_name: function (const xp: PX509_PURPOSE): PAnsiChar; cdecl = Load_X509_PURPOSE_get0_name; + X509_PURPOSE_get0_sname: function (const xp: PX509_PURPOSE): PAnsiChar; cdecl = Load_X509_PURPOSE_get0_sname; + X509_PURPOSE_get_trust: function (const xp: PX509_PURPOSE): TOpenSSL_C_INT; cdecl = Load_X509_PURPOSE_get_trust; + X509_PURPOSE_cleanup: procedure ; cdecl = Load_X509_PURPOSE_cleanup; + X509_PURPOSE_get_id: function (const v1: PX509_PURPOSE): TOpenSSL_C_INT; cdecl = Load_X509_PURPOSE_get_id; + X509_get1_email: function (x: PX509): PSTACK_OF_OPENSSL_STRING; cdecl = Load_X509_get1_email; + X509_REQ_get1_email: function ( x : PX509_REQ): PSTACK_OF_OPENSSL_STRING; cdecl = Load_X509_REQ_get1_email; + X509_email_free: procedure (sk : PSTACK_OF_OPENSSL_STRING); cdecl = Load_X509_email_free; + X509_get1_ocsp: function (x: PX509): PSTACK_OF_OPENSSL_STRING; cdecl = Load_X509_get1_ocsp; + X509_check_host: function (x: PX509; const chk: PAnsiChar; chklen: TOpenSSL_C_SIZET; flags: TOpenSSL_C_UINT; peername: PPAnsiChar): TOpenSSL_C_INT; cdecl = Load_X509_check_host; + X509_check_email: function (x: PX509; const chk: PAnsiChar; chklen: TOpenSSL_C_SIZET; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_X509_check_email; + X509_check_ip: function (x: PX509; const chk: PByte; chklen: TOpenSSL_C_SIZET; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_X509_check_ip; + X509_check_ip_asc: function (x: PX509; const ipasc: PAnsiChar; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl = Load_X509_check_ip_asc; + a2i_IPADDRESS: function (const ipasc: PAnsiChar): PASN1_OCTET_STRING; cdecl = Load_a2i_IPADDRESS; + a2i_IPADDRESS_NC: function (const ipasc: PAnsiChar): PASN1_OCTET_STRING; cdecl = Load_a2i_IPADDRESS_NC; + X509_POLICY_NODE_print: procedure (out_: PBIO; node: PX509_POLICY_NODE; indent: TOpenSSL_C_INT); cdecl = Load_X509_POLICY_NODE_print; + X509v3_addr_get_range: function (aor: PIPAddressOrRange; const afi: TOpenSSL_C_UINT; min: PByte; max: Byte; const length: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl = Load_X509v3_addr_get_range; + X509v3_asid_validate_path: function (v1: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl = Load_X509v3_asid_validate_path; + X509v3_addr_validate_path: function (v1: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl = Load_X509v3_addr_validate_path; + NAMING_AUTHORITY_get0_authorityId: function (const n: PNAMING_AUTHORITY): PASN1_OBJECT; cdecl = Load_NAMING_AUTHORITY_get0_authorityId; + NAMING_AUTHORITY_get0_authorityURL: function (const n: PNAMING_AUTHORITY): PASN1_IA5STRING; cdecl = Load_NAMING_AUTHORITY_get0_authorityURL; + NAMING_AUTHORITY_get0_authorityText: function (const n: PNAMING_AUTHORITY): PASN1_STRING; cdecl = Load_NAMING_AUTHORITY_get0_authorityText; + NAMING_AUTHORITY_set0_authorityId: procedure (n: PNAMING_AUTHORITY; namingAuthorityId: PASN1_OBJECT); cdecl = Load_NAMING_AUTHORITY_set0_authorityId; + NAMING_AUTHORITY_set0_authorityURL: procedure (n: PNAMING_AUTHORITY; namingAuthorityUrl: PASN1_IA5STRING); cdecl = Load_NAMING_AUTHORITY_set0_authorityURL; + NAMING_AUTHORITY_set0_authorityText: procedure (n: PNAMING_AUTHORITY; namingAuthorityText: PASN1_STRING); cdecl = Load_NAMING_AUTHORITY_set0_authorityText; + ADMISSION_SYNTAX_get0_admissionAuthority: function (const as_: ADMISSION_SYNTAX): PGENERAL_NAME; cdecl = Load_ADMISSION_SYNTAX_get0_admissionAuthority; + ADMISSION_SYNTAX_set0_admissionAuthority: procedure (as_: ADMISSION_SYNTAX; aa: PGENERAL_NAME); cdecl = Load_ADMISSION_SYNTAX_set0_admissionAuthority; + ADMISSIONS_get0_admissionAuthority: function (const a: PADMISSIONS): PGENERAL_NAME; cdecl = Load_ADMISSIONS_get0_admissionAuthority; + ADMISSIONS_set0_admissionAuthority: procedure (a: PADMISSIONS; aa: PGENERAL_NAME); cdecl = Load_ADMISSIONS_set0_admissionAuthority; + ADMISSIONS_get0_namingAuthority: function (const a: PADMISSIONS): PNAMING_AUTHORITY; cdecl = Load_ADMISSIONS_get0_namingAuthority; + ADMISSIONS_set0_namingAuthority: procedure (a: PADMISSIONS; na: PNAMING_AUTHORITY); cdecl = Load_ADMISSIONS_set0_namingAuthority; + PROFESSION_INFO_get0_addProfessionInfo: function (const pi: PPROFESSION_INFO): PASN1_OCTET_STRING; cdecl = Load_PROFESSION_INFO_get0_addProfessionInfo; + PROFESSION_INFO_set0_addProfessionInfo: procedure (pi: PPROFESSION_INFO; aos: PASN1_OCTET_STRING); cdecl = Load_PROFESSION_INFO_set0_addProfessionInfo; + PROFESSION_INFO_get0_namingAuthority: function (const pi: PPROFESSION_INFO): PNAMING_AUTHORITY; cdecl = Load_PROFESSION_INFO_get0_namingAuthority; + PROFESSION_INFO_set0_namingAuthority: procedure (pi: PPROFESSION_INFO; na: PNAMING_AUTHORITY); cdecl = Load_PROFESSION_INFO_set0_namingAuthority; + PROFESSION_INFO_get0_registrationNumber: function (const pi: PPROFESSION_INFO): PASN1_PRINTABLESTRING; cdecl = Load_PROFESSION_INFO_get0_registrationNumber; + PROFESSION_INFO_set0_registrationNumber: procedure (pi: PPROFESSION_INFO; rn: PASN1_PRINTABLESTRING); cdecl = Load_PROFESSION_INFO_set0_registrationNumber; +{$ENDIF} + +implementation + + + +uses Classes, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +{$IFNDEF OPENSSL_NO_LEGACY_SUPPORT} +{$ENDIF} { End of OPENSSL_NO_LEGACY_SUPPORT} +procedure Load_BASIC_CONSTRAINTS_free(bc : PBASIC_CONSTRAINTS); cdecl; +begin + BASIC_CONSTRAINTS_free := LoadLibCryptoFunction('BASIC_CONSTRAINTS_free'); + if not assigned(BASIC_CONSTRAINTS_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BASIC_CONSTRAINTS_free'); + BASIC_CONSTRAINTS_free(bc); +end; + +function Load_BASIC_CONSTRAINTS_new: PBASIC_CONSTRAINTS; cdecl; +begin + BASIC_CONSTRAINTS_new := LoadLibCryptoFunction('BASIC_CONSTRAINTS_new'); + if not assigned(BASIC_CONSTRAINTS_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('BASIC_CONSTRAINTS_new'); + Result := BASIC_CONSTRAINTS_new(); +end; + +procedure Load_AUTHORITY_KEYID_free(id : AUTHORITY_KEYID); cdecl; +begin + AUTHORITY_KEYID_free := LoadLibCryptoFunction('AUTHORITY_KEYID_free'); + if not assigned(AUTHORITY_KEYID_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AUTHORITY_KEYID_free'); + AUTHORITY_KEYID_free(id); +end; + +function Load_AUTHORITY_KEYID_new: AUTHORITY_KEYID; cdecl; +begin + AUTHORITY_KEYID_new := LoadLibCryptoFunction('AUTHORITY_KEYID_new'); + if not assigned(AUTHORITY_KEYID_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('AUTHORITY_KEYID_new'); + Result := AUTHORITY_KEYID_new(); +end; + +procedure Load_GENERAL_NAME_free(a: PGENERAL_NAME); cdecl; +begin + GENERAL_NAME_free := LoadLibCryptoFunction('GENERAL_NAME_free'); + if not assigned(GENERAL_NAME_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('GENERAL_NAME_free'); + GENERAL_NAME_free(a); +end; + +function Load_GENERAL_NAME_new: PGENERAL_NAME; cdecl; +begin + GENERAL_NAME_new := LoadLibCryptoFunction('GENERAL_NAME_new'); + if not assigned(GENERAL_NAME_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('GENERAL_NAME_new'); + Result := GENERAL_NAME_new(); +end; + +function Load_GENERAL_NAME_cmp(a: PGENERAL_NAME; b: PGENERAL_NAME): TOpenSSL_C_INT; cdecl; +begin + GENERAL_NAME_cmp := LoadLibCryptoFunction('GENERAL_NAME_cmp'); + if not assigned(GENERAL_NAME_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('GENERAL_NAME_cmp'); + Result := GENERAL_NAME_cmp(a,b); +end; + +function Load_GENERAL_NAME_print(out_: PBIO; gen: PGENERAL_NAME): TOpenSSL_C_INT; cdecl; +begin + GENERAL_NAME_print := LoadLibCryptoFunction('GENERAL_NAME_print'); + if not assigned(GENERAL_NAME_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('GENERAL_NAME_print'); + Result := GENERAL_NAME_print(out_,gen); +end; + +procedure Load_GENERAL_NAMES_free(a: PGENERAL_NAMES); cdecl; +begin + GENERAL_NAMES_free := LoadLibCryptoFunction('GENERAL_NAMES_free'); + if not assigned(GENERAL_NAMES_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('GENERAL_NAMES_free'); + GENERAL_NAMES_free(a); +end; + +function Load_GENERAL_NAMES_new: PGENERAL_NAMES; cdecl; +begin + GENERAL_NAMES_new := LoadLibCryptoFunction('GENERAL_NAMES_new'); + if not assigned(GENERAL_NAMES_new) then + EOpenSSLAPIFunctionNotPresent.RaiseException('GENERAL_NAMES_new'); + Result := GENERAL_NAMES_new(); +end; + +function Load_OTHERNAME_cmp(a: POTHERNAME; b: POTHERNAME): TOpenSSL_C_INT; cdecl; +begin + OTHERNAME_cmp := LoadLibCryptoFunction('OTHERNAME_cmp'); + if not assigned(OTHERNAME_cmp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('OTHERNAME_cmp'); + Result := OTHERNAME_cmp(a,b); +end; + +procedure Load_GENERAL_NAME_set0_value(a: PGENERAL_NAME; type_: TOpenSSL_C_INT; value: Pointer); cdecl; +begin + GENERAL_NAME_set0_value := LoadLibCryptoFunction('GENERAL_NAME_set0_value'); + if not assigned(GENERAL_NAME_set0_value) then + EOpenSSLAPIFunctionNotPresent.RaiseException('GENERAL_NAME_set0_value'); + GENERAL_NAME_set0_value(a,type_,value); +end; + +function Load_GENERAL_NAME_get0_value(const a: PGENERAL_NAME; ptype: POpenSSL_C_INT): Pointer; cdecl; +begin + GENERAL_NAME_get0_value := LoadLibCryptoFunction('GENERAL_NAME_get0_value'); + if not assigned(GENERAL_NAME_get0_value) then + EOpenSSLAPIFunctionNotPresent.RaiseException('GENERAL_NAME_get0_value'); + Result := GENERAL_NAME_get0_value(a,ptype); +end; + +function Load_GENERAL_NAME_set0_othername(gen: PGENERAL_NAME; oid: PASN1_OBJECT; value: PASN1_TYPE): TOpenSSL_C_INT; cdecl; +begin + GENERAL_NAME_set0_othername := LoadLibCryptoFunction('GENERAL_NAME_set0_othername'); + if not assigned(GENERAL_NAME_set0_othername) then + EOpenSSLAPIFunctionNotPresent.RaiseException('GENERAL_NAME_set0_othername'); + Result := GENERAL_NAME_set0_othername(gen,oid,value); +end; + +function Load_GENERAL_NAME_get0_otherName(const gen: PGENERAL_NAME; poid: PPASN1_OBJECT; pvalue: PPASN1_TYPE): TOpenSSL_C_INT; cdecl; +begin + GENERAL_NAME_get0_otherName := LoadLibCryptoFunction('GENERAL_NAME_get0_otherName'); + if not assigned(GENERAL_NAME_get0_otherName) then + EOpenSSLAPIFunctionNotPresent.RaiseException('GENERAL_NAME_get0_otherName'); + Result := GENERAL_NAME_get0_otherName(gen,poid,pvalue); +end; + +function Load_i2a_ACCESS_DESCRIPTION(bp: PBIO; const a: PACCESS_DESCRIPTION): TOpenSSL_C_INT; cdecl; +begin + i2a_ACCESS_DESCRIPTION := LoadLibCryptoFunction('i2a_ACCESS_DESCRIPTION'); + if not assigned(i2a_ACCESS_DESCRIPTION) then + EOpenSSLAPIFunctionNotPresent.RaiseException('i2a_ACCESS_DESCRIPTION'); + Result := i2a_ACCESS_DESCRIPTION(bp,a); +end; + +function Load_DIST_POINT_set_dpname(dpn: PDIST_POINT_NAME; iname: PX509_NAME): TOpenSSL_C_INT; cdecl; +begin + DIST_POINT_set_dpname := LoadLibCryptoFunction('DIST_POINT_set_dpname'); + if not assigned(DIST_POINT_set_dpname) then + EOpenSSLAPIFunctionNotPresent.RaiseException('DIST_POINT_set_dpname'); + Result := DIST_POINT_set_dpname(dpn,iname); +end; + +function Load_NAME_CONSTRAINTS_check(x: PX509; nc: PNAME_CONSTRAINTS): TOpenSSL_C_INT; cdecl; +begin + NAME_CONSTRAINTS_check := LoadLibCryptoFunction('NAME_CONSTRAINTS_check'); + if not assigned(NAME_CONSTRAINTS_check) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NAME_CONSTRAINTS_check'); + Result := NAME_CONSTRAINTS_check(x,nc); +end; + +function Load_NAME_CONSTRAINTS_check_CN(x: PX509; nc: PNAME_CONSTRAINTS): TOpenSSL_C_INT; cdecl; +begin + NAME_CONSTRAINTS_check_CN := LoadLibCryptoFunction('NAME_CONSTRAINTS_check_CN'); + if not assigned(NAME_CONSTRAINTS_check_CN) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NAME_CONSTRAINTS_check_CN'); + Result := NAME_CONSTRAINTS_check_CN(x,nc); +end; + +function Load_X509V3_EXT_nconf_nid(conf: PCONF; ctx: PX509V3_CTX; ext_nid: TOpenSSL_C_INT; const value: PAnsiChar): PX509_EXTENSION; cdecl; +begin + X509V3_EXT_nconf_nid := LoadLibCryptoFunction('X509V3_EXT_nconf_nid'); + if not assigned(X509V3_EXT_nconf_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_EXT_nconf_nid'); + Result := X509V3_EXT_nconf_nid(conf,ctx,ext_nid,value); +end; + +function Load_X509V3_EXT_nconf(conf: PCONF; ctx: PX509V3_CTX; const name: PAnsiChar; const value: PAnsiChar): PX509_EXTENSION; cdecl; +begin + X509V3_EXT_nconf := LoadLibCryptoFunction('X509V3_EXT_nconf'); + if not assigned(X509V3_EXT_nconf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_EXT_nconf'); + Result := X509V3_EXT_nconf(conf,ctx,name,value); +end; + +function Load_X509V3_EXT_add_nconf(conf: PCONF; ctx: PX509V3_CTX; const section: PAnsiChar; cert: PX509): TOpenSSL_C_INT; cdecl; +begin + X509V3_EXT_add_nconf := LoadLibCryptoFunction('X509V3_EXT_add_nconf'); + if not assigned(X509V3_EXT_add_nconf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_EXT_add_nconf'); + Result := X509V3_EXT_add_nconf(conf,ctx,section,cert); +end; + +function Load_X509V3_EXT_REQ_add_nconf(conf: PCONF; ctx: PX509V3_CTX; const section: PAnsiChar; req: PX509_REQ): TOpenSSL_C_INT; cdecl; +begin + X509V3_EXT_REQ_add_nconf := LoadLibCryptoFunction('X509V3_EXT_REQ_add_nconf'); + if not assigned(X509V3_EXT_REQ_add_nconf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_EXT_REQ_add_nconf'); + Result := X509V3_EXT_REQ_add_nconf(conf,ctx,section,req); +end; + +function Load_X509V3_EXT_CRL_add_nconf(conf: PCONF; ctx: PX509V3_CTX; const section: PAnsiChar; crl: PX509_CRL): TOpenSSL_C_INT; cdecl; +begin + X509V3_EXT_CRL_add_nconf := LoadLibCryptoFunction('X509V3_EXT_CRL_add_nconf'); + if not assigned(X509V3_EXT_CRL_add_nconf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_EXT_CRL_add_nconf'); + Result := X509V3_EXT_CRL_add_nconf(conf,ctx,section,crl); +end; + +function Load_X509V3_EXT_conf_nid(conf: Pointer; ctx: PX509V3_CTX; ext_nid: TOpenSSL_C_INT; const value: PAnsiChar): PX509_EXTENSION; cdecl; +begin + X509V3_EXT_conf_nid := LoadLibCryptoFunction('X509V3_EXT_conf_nid'); + if not assigned(X509V3_EXT_conf_nid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_EXT_conf_nid'); + Result := X509V3_EXT_conf_nid(conf,ctx,ext_nid,value); +end; + +function Load_X509V3_EXT_conf(conf: Pointer; ctx: PX509V3_CTX; const name: PAnsiChar; const value: PAnsiChar): PX509_EXTENSION; cdecl; +begin + X509V3_EXT_conf := LoadLibCryptoFunction('X509V3_EXT_conf'); + if not assigned(X509V3_EXT_conf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_EXT_conf'); + Result := X509V3_EXT_conf(conf,ctx,name,value); +end; + +function Load_X509V3_EXT_add_conf(conf: Pointer; ctx: PX509V3_CTX; const section: PAnsiChar; cert: PX509): TOpenSSL_C_INT; cdecl; +begin + X509V3_EXT_add_conf := LoadLibCryptoFunction('X509V3_EXT_add_conf'); + if not assigned(X509V3_EXT_add_conf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_EXT_add_conf'); + Result := X509V3_EXT_add_conf(conf,ctx,section,cert); +end; + +function Load_X509V3_EXT_REQ_add_conf(conf: Pointer; ctx: PX509V3_CTX; const section: PAnsiChar; req: PX509_REQ): TOpenSSL_C_INT; cdecl; +begin + X509V3_EXT_REQ_add_conf := LoadLibCryptoFunction('X509V3_EXT_REQ_add_conf'); + if not assigned(X509V3_EXT_REQ_add_conf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_EXT_REQ_add_conf'); + Result := X509V3_EXT_REQ_add_conf(conf,ctx,section,req); +end; + +function Load_X509V3_EXT_CRL_add_conf(conf: Pointer; ctx: PX509V3_CTX; const section: PAnsiChar; crl: PX509_CRL): TOpenSSL_C_INT; cdecl; +begin + X509V3_EXT_CRL_add_conf := LoadLibCryptoFunction('X509V3_EXT_CRL_add_conf'); + if not assigned(X509V3_EXT_CRL_add_conf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_EXT_CRL_add_conf'); + Result := X509V3_EXT_CRL_add_conf(conf,ctx,section,crl); +end; + +procedure Load_X509V3_set_nconf(ctx: PX509V3_CTX; conf: PCONF); cdecl; +begin + X509V3_set_nconf := LoadLibCryptoFunction('X509V3_set_nconf'); + if not assigned(X509V3_set_nconf) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_set_nconf'); + X509V3_set_nconf(ctx,conf); +end; + +function Load_X509V3_get_string(ctx: PX509V3_CTX; const name: PAnsiChar; const section: PAnsiChar): PAnsiChar; cdecl; +begin + X509V3_get_string := LoadLibCryptoFunction('X509V3_get_string'); + if not assigned(X509V3_get_string) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_get_string'); + Result := X509V3_get_string(ctx,name,section); +end; + +procedure Load_X509V3_string_free(ctx: PX509V3_CTX; str: PAnsiChar); cdecl; +begin + X509V3_string_free := LoadLibCryptoFunction('X509V3_string_free'); + if not assigned(X509V3_string_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_string_free'); + X509V3_string_free(ctx,str); +end; + +procedure Load_X509V3_set_ctx(ctx: PX509V3_CTX; issuer: PX509; subject: PX509; req: PX509_REQ; crl: PX509_CRL; flags: TOpenSSL_C_INT); cdecl; +begin + X509V3_set_ctx := LoadLibCryptoFunction('X509V3_set_ctx'); + if not assigned(X509V3_set_ctx) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_set_ctx'); + X509V3_set_ctx(ctx,issuer,subject,req,crl,flags); +end; + +function Load_X509V3_EXT_add_alias(nid_to: TOpenSSL_C_INT; nid_from: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509V3_EXT_add_alias := LoadLibCryptoFunction('X509V3_EXT_add_alias'); + if not assigned(X509V3_EXT_add_alias) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_EXT_add_alias'); + Result := X509V3_EXT_add_alias(nid_to,nid_from); +end; + +procedure Load_X509V3_EXT_cleanup; cdecl; +begin + X509V3_EXT_cleanup := LoadLibCryptoFunction('X509V3_EXT_cleanup'); + if not assigned(X509V3_EXT_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_EXT_cleanup'); + X509V3_EXT_cleanup(); +end; + +function Load_X509V3_add_standard_extensions: TOpenSSL_C_INT; cdecl; +begin + X509V3_add_standard_extensions := LoadLibCryptoFunction('X509V3_add_standard_extensions'); + if not assigned(X509V3_add_standard_extensions) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_add_standard_extensions'); + Result := X509V3_add_standard_extensions(); +end; + +function Load_X509V3_EXT_d2i(ext: PX509_EXTENSION): Pointer; cdecl; +begin + X509V3_EXT_d2i := LoadLibCryptoFunction('X509V3_EXT_d2i'); + if not assigned(X509V3_EXT_d2i) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_EXT_d2i'); + Result := X509V3_EXT_d2i(ext); +end; + +function Load_X509V3_EXT_i2d(ext_nid: TOpenSSL_C_INT; crit: TOpenSSL_C_INT; ext_struc: Pointer): PX509_EXTENSION; cdecl; +begin + X509V3_EXT_i2d := LoadLibCryptoFunction('X509V3_EXT_i2d'); + if not assigned(X509V3_EXT_i2d) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_EXT_i2d'); + Result := X509V3_EXT_i2d(ext_nid,crit,ext_struc); +end; + +function Load_X509V3_EXT_print(out_: PBIO; ext: PX509_EXTENSION; flag: TOpenSSL_C_ULONG; indent: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509V3_EXT_print := LoadLibCryptoFunction('X509V3_EXT_print'); + if not assigned(X509V3_EXT_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509V3_EXT_print'); + Result := X509V3_EXT_print(out_,ext,flag,indent); +end; + +function Load_X509_check_ca(x: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_check_ca := LoadLibCryptoFunction('X509_check_ca'); + if not assigned(X509_check_ca) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_check_ca'); + Result := X509_check_ca(x); +end; + +function Load_X509_check_purpose(x: PX509; id: TOpenSSL_C_INT; ca: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_check_purpose := LoadLibCryptoFunction('X509_check_purpose'); + if not assigned(X509_check_purpose) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_check_purpose'); + Result := X509_check_purpose(x,id,ca); +end; + +function Load_X509_supported_extension(ex: PX509_EXTENSION): TOpenSSL_C_INT; cdecl; +begin + X509_supported_extension := LoadLibCryptoFunction('X509_supported_extension'); + if not assigned(X509_supported_extension) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_supported_extension'); + Result := X509_supported_extension(ex); +end; + +function Load_X509_PURPOSE_set(p: POpenSSL_C_INT; purpose: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_PURPOSE_set := LoadLibCryptoFunction('X509_PURPOSE_set'); + if not assigned(X509_PURPOSE_set) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PURPOSE_set'); + Result := X509_PURPOSE_set(p,purpose); +end; + +function Load_X509_check_issued(issuer: PX509; subject: PX509): TOpenSSL_C_INT; cdecl; +begin + X509_check_issued := LoadLibCryptoFunction('X509_check_issued'); + if not assigned(X509_check_issued) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_check_issued'); + Result := X509_check_issued(issuer,subject); +end; + +function Load_X509_check_akid(issuer: PX509; akid: PAUTHORITY_KEYID): TOpenSSL_C_INT; cdecl; +begin + X509_check_akid := LoadLibCryptoFunction('X509_check_akid'); + if not assigned(X509_check_akid) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_check_akid'); + Result := X509_check_akid(issuer,akid); +end; + +procedure Load_X509_set_proxy_flag(x: PX509); cdecl; +begin + X509_set_proxy_flag := LoadLibCryptoFunction('X509_set_proxy_flag'); + if not assigned(X509_set_proxy_flag) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_set_proxy_flag'); + X509_set_proxy_flag(x); +end; + +procedure Load_X509_set_proxy_pathlen(x: PX509; l: TOpenSSL_C_LONG); cdecl; +begin + X509_set_proxy_pathlen := LoadLibCryptoFunction('X509_set_proxy_pathlen'); + if not assigned(X509_set_proxy_pathlen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_set_proxy_pathlen'); + X509_set_proxy_pathlen(x,l); +end; + +function Load_X509_get_proxy_pathlen(x: PX509): TOpenSSL_C_LONG; cdecl; +begin + X509_get_proxy_pathlen := LoadLibCryptoFunction('X509_get_proxy_pathlen'); + if not assigned(X509_get_proxy_pathlen) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_proxy_pathlen'); + Result := X509_get_proxy_pathlen(x); +end; + +function Load_X509_get_extension_flags(x: PX509): TOpenSSL_C_UINT32; cdecl; +begin + X509_get_extension_flags := LoadLibCryptoFunction('X509_get_extension_flags'); + if not assigned(X509_get_extension_flags) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_extension_flags'); + Result := X509_get_extension_flags(x); +end; + +function Load_X509_get_key_usage(x: PX509): TOpenSSL_C_UINT32; cdecl; +begin + X509_get_key_usage := LoadLibCryptoFunction('X509_get_key_usage'); + if not assigned(X509_get_key_usage) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_key_usage'); + Result := X509_get_key_usage(x); +end; + +function Load_X509_get_extended_key_usage(x: PX509): TOpenSSL_C_UINT32; cdecl; +begin + X509_get_extended_key_usage := LoadLibCryptoFunction('X509_get_extended_key_usage'); + if not assigned(X509_get_extended_key_usage) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get_extended_key_usage'); + Result := X509_get_extended_key_usage(x); +end; + +function Load_X509_get0_subject_key_id(x: PX509): PASN1_OCTET_STRING; cdecl; +begin + X509_get0_subject_key_id := LoadLibCryptoFunction('X509_get0_subject_key_id'); + if not assigned(X509_get0_subject_key_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get0_subject_key_id'); + Result := X509_get0_subject_key_id(x); +end; + +function Load_X509_get0_authority_key_id(x: PX509): PASN1_OCTET_STRING; cdecl; +begin + X509_get0_authority_key_id := LoadLibCryptoFunction('X509_get0_authority_key_id'); + if not assigned(X509_get0_authority_key_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get0_authority_key_id'); + Result := X509_get0_authority_key_id(x); +end; + +function Load_X509_get0_authority_serial(x: PX509): PASN1_INTEGER; cdecl; +begin + X509_get0_authority_serial := LoadLibCryptoFunction('X509_get0_authority_serial'); + if not assigned(X509_get0_authority_serial) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get0_authority_serial'); + Result := X509_get0_authority_serial(x); +end; + +function Load_X509_PURPOSE_get_count: TOpenSSL_C_INT; cdecl; +begin + X509_PURPOSE_get_count := LoadLibCryptoFunction('X509_PURPOSE_get_count'); + if not assigned(X509_PURPOSE_get_count) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PURPOSE_get_count'); + Result := X509_PURPOSE_get_count(); +end; + +function Load_X509_PURPOSE_get0(idx: TOpenSSL_C_INT): PX509_PURPOSE; cdecl; +begin + X509_PURPOSE_get0 := LoadLibCryptoFunction('X509_PURPOSE_get0'); + if not assigned(X509_PURPOSE_get0) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PURPOSE_get0'); + Result := X509_PURPOSE_get0(idx); +end; + +function Load_X509_PURPOSE_get_by_sname(const sname: PAnsiChar): TOpenSSL_C_INT; cdecl; +begin + X509_PURPOSE_get_by_sname := LoadLibCryptoFunction('X509_PURPOSE_get_by_sname'); + if not assigned(X509_PURPOSE_get_by_sname) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PURPOSE_get_by_sname'); + Result := X509_PURPOSE_get_by_sname(sname); +end; + +function Load_X509_PURPOSE_get_by_id(id: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509_PURPOSE_get_by_id := LoadLibCryptoFunction('X509_PURPOSE_get_by_id'); + if not assigned(X509_PURPOSE_get_by_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PURPOSE_get_by_id'); + Result := X509_PURPOSE_get_by_id(id); +end; + +function Load_X509_PURPOSE_get0_name(const xp: PX509_PURPOSE): PAnsiChar; cdecl; +begin + X509_PURPOSE_get0_name := LoadLibCryptoFunction('X509_PURPOSE_get0_name'); + if not assigned(X509_PURPOSE_get0_name) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PURPOSE_get0_name'); + Result := X509_PURPOSE_get0_name(xp); +end; + +function Load_X509_PURPOSE_get0_sname(const xp: PX509_PURPOSE): PAnsiChar; cdecl; +begin + X509_PURPOSE_get0_sname := LoadLibCryptoFunction('X509_PURPOSE_get0_sname'); + if not assigned(X509_PURPOSE_get0_sname) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PURPOSE_get0_sname'); + Result := X509_PURPOSE_get0_sname(xp); +end; + +function Load_X509_PURPOSE_get_trust(const xp: PX509_PURPOSE): TOpenSSL_C_INT; cdecl; +begin + X509_PURPOSE_get_trust := LoadLibCryptoFunction('X509_PURPOSE_get_trust'); + if not assigned(X509_PURPOSE_get_trust) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PURPOSE_get_trust'); + Result := X509_PURPOSE_get_trust(xp); +end; + +procedure Load_X509_PURPOSE_cleanup; cdecl; +begin + X509_PURPOSE_cleanup := LoadLibCryptoFunction('X509_PURPOSE_cleanup'); + if not assigned(X509_PURPOSE_cleanup) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PURPOSE_cleanup'); + X509_PURPOSE_cleanup(); +end; + +function Load_X509_PURPOSE_get_id(const v1: PX509_PURPOSE): TOpenSSL_C_INT; cdecl; +begin + X509_PURPOSE_get_id := LoadLibCryptoFunction('X509_PURPOSE_get_id'); + if not assigned(X509_PURPOSE_get_id) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_PURPOSE_get_id'); + Result := X509_PURPOSE_get_id(v1); +end; + +function Load_X509_get1_email(x: PX509): PSTACK_OF_OPENSSL_STRING; cdecl; +begin + X509_get1_email := LoadLibCryptoFunction('X509_get1_email'); + if not assigned(X509_get1_email) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get1_email'); + Result := X509_get1_email(x); +end; + +function Load_X509_REQ_get1_email( x : PX509_REQ): PSTACK_OF_OPENSSL_STRING; cdecl; +begin + X509_REQ_get1_email := LoadLibCryptoFunction('X509_REQ_get1_email'); + if not assigned(X509_REQ_get1_email) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_REQ_get1_email'); + Result := X509_REQ_get1_email(x); +end; + +procedure Load_X509_email_free(sk : PSTACK_OF_OPENSSL_STRING); cdecl; +begin + X509_email_free := LoadLibCryptoFunction('X509_email_free'); + if not assigned(X509_email_free) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_email_free'); + X509_email_free(sk); +end; + +function Load_X509_get1_ocsp(x: PX509): PSTACK_OF_OPENSSL_STRING; cdecl; +begin + X509_get1_ocsp := LoadLibCryptoFunction('X509_get1_ocsp'); + if not assigned(X509_get1_ocsp) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_get1_ocsp'); + Result := X509_get1_ocsp(x); +end; + +function Load_X509_check_host(x: PX509; const chk: PAnsiChar; chklen: TOpenSSL_C_SIZET; flags: TOpenSSL_C_UINT; peername: PPAnsiChar): TOpenSSL_C_INT; cdecl; +begin + X509_check_host := LoadLibCryptoFunction('X509_check_host'); + if not assigned(X509_check_host) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_check_host'); + Result := X509_check_host(x,chk,chklen,flags,peername); +end; + +function Load_X509_check_email(x: PX509; const chk: PAnsiChar; chklen: TOpenSSL_C_SIZET; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + X509_check_email := LoadLibCryptoFunction('X509_check_email'); + if not assigned(X509_check_email) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_check_email'); + Result := X509_check_email(x,chk,chklen,flags); +end; + +function Load_X509_check_ip(x: PX509; const chk: PByte; chklen: TOpenSSL_C_SIZET; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + X509_check_ip := LoadLibCryptoFunction('X509_check_ip'); + if not assigned(X509_check_ip) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_check_ip'); + Result := X509_check_ip(x,chk,chklen,flags); +end; + +function Load_X509_check_ip_asc(x: PX509; const ipasc: PAnsiChar; flags: TOpenSSL_C_UINT): TOpenSSL_C_INT; cdecl; +begin + X509_check_ip_asc := LoadLibCryptoFunction('X509_check_ip_asc'); + if not assigned(X509_check_ip_asc) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_check_ip_asc'); + Result := X509_check_ip_asc(x,ipasc,flags); +end; + +function Load_a2i_IPADDRESS(const ipasc: PAnsiChar): PASN1_OCTET_STRING; cdecl; +begin + a2i_IPADDRESS := LoadLibCryptoFunction('a2i_IPADDRESS'); + if not assigned(a2i_IPADDRESS) then + EOpenSSLAPIFunctionNotPresent.RaiseException('a2i_IPADDRESS'); + Result := a2i_IPADDRESS(ipasc); +end; + +function Load_a2i_IPADDRESS_NC(const ipasc: PAnsiChar): PASN1_OCTET_STRING; cdecl; +begin + a2i_IPADDRESS_NC := LoadLibCryptoFunction('a2i_IPADDRESS_NC'); + if not assigned(a2i_IPADDRESS_NC) then + EOpenSSLAPIFunctionNotPresent.RaiseException('a2i_IPADDRESS_NC'); + Result := a2i_IPADDRESS_NC(ipasc); +end; + +procedure Load_X509_POLICY_NODE_print(out_: PBIO; node: PX509_POLICY_NODE; indent: TOpenSSL_C_INT); cdecl; +begin + X509_POLICY_NODE_print := LoadLibCryptoFunction('X509_POLICY_NODE_print'); + if not assigned(X509_POLICY_NODE_print) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509_POLICY_NODE_print'); + X509_POLICY_NODE_print(out_,node,indent); +end; + +function Load_X509v3_addr_get_range(aor: PIPAddressOrRange; const afi: TOpenSSL_C_UINT; min: PByte; max: Byte; const length: TOpenSSL_C_INT): TOpenSSL_C_INT; cdecl; +begin + X509v3_addr_get_range := LoadLibCryptoFunction('X509v3_addr_get_range'); + if not assigned(X509v3_addr_get_range) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509v3_addr_get_range'); + Result := X509v3_addr_get_range(aor,afi,min,max,length); +end; + +function Load_X509v3_asid_validate_path(v1: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; +begin + X509v3_asid_validate_path := LoadLibCryptoFunction('X509v3_asid_validate_path'); + if not assigned(X509v3_asid_validate_path) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509v3_asid_validate_path'); + Result := X509v3_asid_validate_path(v1); +end; + +function Load_X509v3_addr_validate_path(v1: PX509_STORE_CTX): TOpenSSL_C_INT; cdecl; +begin + X509v3_addr_validate_path := LoadLibCryptoFunction('X509v3_addr_validate_path'); + if not assigned(X509v3_addr_validate_path) then + EOpenSSLAPIFunctionNotPresent.RaiseException('X509v3_addr_validate_path'); + Result := X509v3_addr_validate_path(v1); +end; + +function Load_NAMING_AUTHORITY_get0_authorityId(const n: PNAMING_AUTHORITY): PASN1_OBJECT; cdecl; +begin + NAMING_AUTHORITY_get0_authorityId := LoadLibCryptoFunction('NAMING_AUTHORITY_get0_authorityId'); + if not assigned(NAMING_AUTHORITY_get0_authorityId) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NAMING_AUTHORITY_get0_authorityId'); + Result := NAMING_AUTHORITY_get0_authorityId(n); +end; + +function Load_NAMING_AUTHORITY_get0_authorityURL(const n: PNAMING_AUTHORITY): PASN1_IA5STRING; cdecl; +begin + NAMING_AUTHORITY_get0_authorityURL := LoadLibCryptoFunction('NAMING_AUTHORITY_get0_authorityURL'); + if not assigned(NAMING_AUTHORITY_get0_authorityURL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NAMING_AUTHORITY_get0_authorityURL'); + Result := NAMING_AUTHORITY_get0_authorityURL(n); +end; + +function Load_NAMING_AUTHORITY_get0_authorityText(const n: PNAMING_AUTHORITY): PASN1_STRING; cdecl; +begin + NAMING_AUTHORITY_get0_authorityText := LoadLibCryptoFunction('NAMING_AUTHORITY_get0_authorityText'); + if not assigned(NAMING_AUTHORITY_get0_authorityText) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NAMING_AUTHORITY_get0_authorityText'); + Result := NAMING_AUTHORITY_get0_authorityText(n); +end; + +procedure Load_NAMING_AUTHORITY_set0_authorityId(n: PNAMING_AUTHORITY; namingAuthorityId: PASN1_OBJECT); cdecl; +begin + NAMING_AUTHORITY_set0_authorityId := LoadLibCryptoFunction('NAMING_AUTHORITY_set0_authorityId'); + if not assigned(NAMING_AUTHORITY_set0_authorityId) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NAMING_AUTHORITY_set0_authorityId'); + NAMING_AUTHORITY_set0_authorityId(n,namingAuthorityId); +end; + +procedure Load_NAMING_AUTHORITY_set0_authorityURL(n: PNAMING_AUTHORITY; namingAuthorityUrl: PASN1_IA5STRING); cdecl; +begin + NAMING_AUTHORITY_set0_authorityURL := LoadLibCryptoFunction('NAMING_AUTHORITY_set0_authorityURL'); + if not assigned(NAMING_AUTHORITY_set0_authorityURL) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NAMING_AUTHORITY_set0_authorityURL'); + NAMING_AUTHORITY_set0_authorityURL(n,namingAuthorityUrl); +end; + +procedure Load_NAMING_AUTHORITY_set0_authorityText(n: PNAMING_AUTHORITY; namingAuthorityText: PASN1_STRING); cdecl; +begin + NAMING_AUTHORITY_set0_authorityText := LoadLibCryptoFunction('NAMING_AUTHORITY_set0_authorityText'); + if not assigned(NAMING_AUTHORITY_set0_authorityText) then + EOpenSSLAPIFunctionNotPresent.RaiseException('NAMING_AUTHORITY_set0_authorityText'); + NAMING_AUTHORITY_set0_authorityText(n,namingAuthorityText); +end; + +function Load_ADMISSION_SYNTAX_get0_admissionAuthority(const as_: ADMISSION_SYNTAX): PGENERAL_NAME; cdecl; +begin + ADMISSION_SYNTAX_get0_admissionAuthority := LoadLibCryptoFunction('ADMISSION_SYNTAX_get0_admissionAuthority'); + if not assigned(ADMISSION_SYNTAX_get0_admissionAuthority) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ADMISSION_SYNTAX_get0_admissionAuthority'); + Result := ADMISSION_SYNTAX_get0_admissionAuthority(as_); +end; + +procedure Load_ADMISSION_SYNTAX_set0_admissionAuthority(as_: ADMISSION_SYNTAX; aa: PGENERAL_NAME); cdecl; +begin + ADMISSION_SYNTAX_set0_admissionAuthority := LoadLibCryptoFunction('ADMISSION_SYNTAX_set0_admissionAuthority'); + if not assigned(ADMISSION_SYNTAX_set0_admissionAuthority) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ADMISSION_SYNTAX_set0_admissionAuthority'); + ADMISSION_SYNTAX_set0_admissionAuthority(as_,aa); +end; + +function Load_ADMISSIONS_get0_admissionAuthority(const a: PADMISSIONS): PGENERAL_NAME; cdecl; +begin + ADMISSIONS_get0_admissionAuthority := LoadLibCryptoFunction('ADMISSIONS_get0_admissionAuthority'); + if not assigned(ADMISSIONS_get0_admissionAuthority) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ADMISSIONS_get0_admissionAuthority'); + Result := ADMISSIONS_get0_admissionAuthority(a); +end; + +procedure Load_ADMISSIONS_set0_admissionAuthority(a: PADMISSIONS; aa: PGENERAL_NAME); cdecl; +begin + ADMISSIONS_set0_admissionAuthority := LoadLibCryptoFunction('ADMISSIONS_set0_admissionAuthority'); + if not assigned(ADMISSIONS_set0_admissionAuthority) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ADMISSIONS_set0_admissionAuthority'); + ADMISSIONS_set0_admissionAuthority(a,aa); +end; + +function Load_ADMISSIONS_get0_namingAuthority(const a: PADMISSIONS): PNAMING_AUTHORITY; cdecl; +begin + ADMISSIONS_get0_namingAuthority := LoadLibCryptoFunction('ADMISSIONS_get0_namingAuthority'); + if not assigned(ADMISSIONS_get0_namingAuthority) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ADMISSIONS_get0_namingAuthority'); + Result := ADMISSIONS_get0_namingAuthority(a); +end; + +procedure Load_ADMISSIONS_set0_namingAuthority(a: PADMISSIONS; na: PNAMING_AUTHORITY); cdecl; +begin + ADMISSIONS_set0_namingAuthority := LoadLibCryptoFunction('ADMISSIONS_set0_namingAuthority'); + if not assigned(ADMISSIONS_set0_namingAuthority) then + EOpenSSLAPIFunctionNotPresent.RaiseException('ADMISSIONS_set0_namingAuthority'); + ADMISSIONS_set0_namingAuthority(a,na); +end; + +function Load_PROFESSION_INFO_get0_addProfessionInfo(const pi: PPROFESSION_INFO): PASN1_OCTET_STRING; cdecl; +begin + PROFESSION_INFO_get0_addProfessionInfo := LoadLibCryptoFunction('PROFESSION_INFO_get0_addProfessionInfo'); + if not assigned(PROFESSION_INFO_get0_addProfessionInfo) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PROFESSION_INFO_get0_addProfessionInfo'); + Result := PROFESSION_INFO_get0_addProfessionInfo(pi); +end; + +procedure Load_PROFESSION_INFO_set0_addProfessionInfo(pi: PPROFESSION_INFO; aos: PASN1_OCTET_STRING); cdecl; +begin + PROFESSION_INFO_set0_addProfessionInfo := LoadLibCryptoFunction('PROFESSION_INFO_set0_addProfessionInfo'); + if not assigned(PROFESSION_INFO_set0_addProfessionInfo) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PROFESSION_INFO_set0_addProfessionInfo'); + PROFESSION_INFO_set0_addProfessionInfo(pi,aos); +end; + +function Load_PROFESSION_INFO_get0_namingAuthority(const pi: PPROFESSION_INFO): PNAMING_AUTHORITY; cdecl; +begin + PROFESSION_INFO_get0_namingAuthority := LoadLibCryptoFunction('PROFESSION_INFO_get0_namingAuthority'); + if not assigned(PROFESSION_INFO_get0_namingAuthority) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PROFESSION_INFO_get0_namingAuthority'); + Result := PROFESSION_INFO_get0_namingAuthority(pi); +end; + +procedure Load_PROFESSION_INFO_set0_namingAuthority(pi: PPROFESSION_INFO; na: PNAMING_AUTHORITY); cdecl; +begin + PROFESSION_INFO_set0_namingAuthority := LoadLibCryptoFunction('PROFESSION_INFO_set0_namingAuthority'); + if not assigned(PROFESSION_INFO_set0_namingAuthority) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PROFESSION_INFO_set0_namingAuthority'); + PROFESSION_INFO_set0_namingAuthority(pi,na); +end; + +function Load_PROFESSION_INFO_get0_registrationNumber(const pi: PPROFESSION_INFO): PASN1_PRINTABLESTRING; cdecl; +begin + PROFESSION_INFO_get0_registrationNumber := LoadLibCryptoFunction('PROFESSION_INFO_get0_registrationNumber'); + if not assigned(PROFESSION_INFO_get0_registrationNumber) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PROFESSION_INFO_get0_registrationNumber'); + Result := PROFESSION_INFO_get0_registrationNumber(pi); +end; + +procedure Load_PROFESSION_INFO_set0_registrationNumber(pi: PPROFESSION_INFO; rn: PASN1_PRINTABLESTRING); cdecl; +begin + PROFESSION_INFO_set0_registrationNumber := LoadLibCryptoFunction('PROFESSION_INFO_set0_registrationNumber'); + if not assigned(PROFESSION_INFO_set0_registrationNumber) then + EOpenSSLAPIFunctionNotPresent.RaiseException('PROFESSION_INFO_set0_registrationNumber'); + PROFESSION_INFO_set0_registrationNumber(pi,rn); +end; + + +procedure UnLoad; +begin + BASIC_CONSTRAINTS_free := Load_BASIC_CONSTRAINTS_free; + BASIC_CONSTRAINTS_new := Load_BASIC_CONSTRAINTS_new; + AUTHORITY_KEYID_free := Load_AUTHORITY_KEYID_free; + AUTHORITY_KEYID_new := Load_AUTHORITY_KEYID_new; + GENERAL_NAME_free := Load_GENERAL_NAME_free; + GENERAL_NAME_new := Load_GENERAL_NAME_new; + GENERAL_NAME_cmp := Load_GENERAL_NAME_cmp; + GENERAL_NAME_print := Load_GENERAL_NAME_print; + GENERAL_NAMES_free := Load_GENERAL_NAMES_free; + GENERAL_NAMES_new := Load_GENERAL_NAMES_new; + OTHERNAME_cmp := Load_OTHERNAME_cmp; + GENERAL_NAME_set0_value := Load_GENERAL_NAME_set0_value; + GENERAL_NAME_get0_value := Load_GENERAL_NAME_get0_value; + GENERAL_NAME_set0_othername := Load_GENERAL_NAME_set0_othername; + GENERAL_NAME_get0_otherName := Load_GENERAL_NAME_get0_otherName; + i2a_ACCESS_DESCRIPTION := Load_i2a_ACCESS_DESCRIPTION; + DIST_POINT_set_dpname := Load_DIST_POINT_set_dpname; + NAME_CONSTRAINTS_check := Load_NAME_CONSTRAINTS_check; + NAME_CONSTRAINTS_check_CN := Load_NAME_CONSTRAINTS_check_CN; + X509V3_EXT_nconf_nid := Load_X509V3_EXT_nconf_nid; + X509V3_EXT_nconf := Load_X509V3_EXT_nconf; + X509V3_EXT_add_nconf := Load_X509V3_EXT_add_nconf; + X509V3_EXT_REQ_add_nconf := Load_X509V3_EXT_REQ_add_nconf; + X509V3_EXT_CRL_add_nconf := Load_X509V3_EXT_CRL_add_nconf; + X509V3_EXT_conf_nid := Load_X509V3_EXT_conf_nid; + X509V3_EXT_conf := Load_X509V3_EXT_conf; + X509V3_EXT_add_conf := Load_X509V3_EXT_add_conf; + X509V3_EXT_REQ_add_conf := Load_X509V3_EXT_REQ_add_conf; + X509V3_EXT_CRL_add_conf := Load_X509V3_EXT_CRL_add_conf; + X509V3_set_nconf := Load_X509V3_set_nconf; + X509V3_get_string := Load_X509V3_get_string; + X509V3_string_free := Load_X509V3_string_free; + X509V3_set_ctx := Load_X509V3_set_ctx; + X509V3_EXT_add_alias := Load_X509V3_EXT_add_alias; + X509V3_EXT_cleanup := Load_X509V3_EXT_cleanup; + X509V3_add_standard_extensions := Load_X509V3_add_standard_extensions; + X509V3_EXT_d2i := Load_X509V3_EXT_d2i; + X509V3_EXT_i2d := Load_X509V3_EXT_i2d; + X509V3_EXT_print := Load_X509V3_EXT_print; + X509_check_ca := Load_X509_check_ca; + X509_check_purpose := Load_X509_check_purpose; + X509_supported_extension := Load_X509_supported_extension; + X509_PURPOSE_set := Load_X509_PURPOSE_set; + X509_check_issued := Load_X509_check_issued; + X509_check_akid := Load_X509_check_akid; + X509_set_proxy_flag := Load_X509_set_proxy_flag; + X509_set_proxy_pathlen := Load_X509_set_proxy_pathlen; + X509_get_proxy_pathlen := Load_X509_get_proxy_pathlen; + X509_get_extension_flags := Load_X509_get_extension_flags; + X509_get_key_usage := Load_X509_get_key_usage; + X509_get_extended_key_usage := Load_X509_get_extended_key_usage; + X509_get0_subject_key_id := Load_X509_get0_subject_key_id; + X509_get0_authority_key_id := Load_X509_get0_authority_key_id; + X509_get0_authority_serial := Load_X509_get0_authority_serial; + X509_PURPOSE_get_count := Load_X509_PURPOSE_get_count; + X509_PURPOSE_get0 := Load_X509_PURPOSE_get0; + X509_PURPOSE_get_by_sname := Load_X509_PURPOSE_get_by_sname; + X509_PURPOSE_get_by_id := Load_X509_PURPOSE_get_by_id; + X509_PURPOSE_get0_name := Load_X509_PURPOSE_get0_name; + X509_PURPOSE_get0_sname := Load_X509_PURPOSE_get0_sname; + X509_PURPOSE_get_trust := Load_X509_PURPOSE_get_trust; + X509_PURPOSE_cleanup := Load_X509_PURPOSE_cleanup; + X509_PURPOSE_get_id := Load_X509_PURPOSE_get_id; + X509_get1_email := Load_X509_get1_email; + X509_REQ_get1_email := Load_X509_REQ_get1_email; + X509_email_free := Load_X509_email_free; + X509_get1_ocsp := Load_X509_get1_ocsp; + X509_check_host := Load_X509_check_host; + X509_check_email := Load_X509_check_email; + X509_check_ip := Load_X509_check_ip; + X509_check_ip_asc := Load_X509_check_ip_asc; + a2i_IPADDRESS := Load_a2i_IPADDRESS; + a2i_IPADDRESS_NC := Load_a2i_IPADDRESS_NC; + X509_POLICY_NODE_print := Load_X509_POLICY_NODE_print; + X509v3_addr_get_range := Load_X509v3_addr_get_range; + X509v3_asid_validate_path := Load_X509v3_asid_validate_path; + X509v3_addr_validate_path := Load_X509v3_addr_validate_path; + NAMING_AUTHORITY_get0_authorityId := Load_NAMING_AUTHORITY_get0_authorityId; + NAMING_AUTHORITY_get0_authorityURL := Load_NAMING_AUTHORITY_get0_authorityURL; + NAMING_AUTHORITY_get0_authorityText := Load_NAMING_AUTHORITY_get0_authorityText; + NAMING_AUTHORITY_set0_authorityId := Load_NAMING_AUTHORITY_set0_authorityId; + NAMING_AUTHORITY_set0_authorityURL := Load_NAMING_AUTHORITY_set0_authorityURL; + NAMING_AUTHORITY_set0_authorityText := Load_NAMING_AUTHORITY_set0_authorityText; + ADMISSION_SYNTAX_get0_admissionAuthority := Load_ADMISSION_SYNTAX_get0_admissionAuthority; + ADMISSION_SYNTAX_set0_admissionAuthority := Load_ADMISSION_SYNTAX_set0_admissionAuthority; + ADMISSIONS_get0_admissionAuthority := Load_ADMISSIONS_get0_admissionAuthority; + ADMISSIONS_set0_admissionAuthority := Load_ADMISSIONS_set0_admissionAuthority; + ADMISSIONS_get0_namingAuthority := Load_ADMISSIONS_get0_namingAuthority; + ADMISSIONS_set0_namingAuthority := Load_ADMISSIONS_set0_namingAuthority; + PROFESSION_INFO_get0_addProfessionInfo := Load_PROFESSION_INFO_get0_addProfessionInfo; + PROFESSION_INFO_set0_addProfessionInfo := Load_PROFESSION_INFO_set0_addProfessionInfo; + PROFESSION_INFO_get0_namingAuthority := Load_PROFESSION_INFO_get0_namingAuthority; + PROFESSION_INFO_set0_namingAuthority := Load_PROFESSION_INFO_set0_namingAuthority; + PROFESSION_INFO_get0_registrationNumber := Load_PROFESSION_INFO_get0_registrationNumber; + PROFESSION_INFO_set0_registrationNumber := Load_PROFESSION_INFO_set0_registrationNumber; +end; +{$ENDIF} + +initialization + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +Register_SSLUnloader(@Unload); +{$ENDIF} +finalization + + +end. diff --git a/src/opensslHdrs/IdSSLOpenSSLAPI.pas b/src/opensslHdrs/IdSSLOpenSSLAPI.pas new file mode 100644 index 0000000..0ba6c11 --- /dev/null +++ b/src/opensslHdrs/IdSSLOpenSSLAPI.pas @@ -0,0 +1,801 @@ +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + +unit IdSSLOpenSSLAPI; + +{$IFDEF FPC} +{$INTERFACES COM} +{$ENDIF} +{$J+} + +interface + +uses + Classes + {$IFDEF WINDOWS} ,windows {$ENDIF} + {$IFDEF FPC} + ,ctypes + {$IFDEF UNIX} + , UnixType, BaseUnix + {$ENDIF} + {$ENDIF} + , SysUtils; + +const + {$IFNDEF OPENSSL_STATIC_LINK_MODEL} + OpenSSL_Using_Dynamic_Library_Load = true; + {$ENDIF} + + {The default SSLLibraryPath is empty. You can override this by setting the + OPENSSL_LIBRARY_PATH environment variable to the absolute path of the location + of your openssl library.} + + OpenSSLLibraryPath = 'OPENSSL_LIBRARY_PATH'; {environment variable name} + {$IFNDEF OPENSSL_NO_MIN_VERSION} + min_supported_ssl_version = ((((((byte(1) shl 8) + byte(0)) shl 8) + byte (0)) shl 8) + byte(0)) shl 4; {1.0.0} + {$ELSE} + min_supported_ssl_version = 0; + {$ENDIF} + CLibCryptoBase = 'libcrypto'; + CLibSSLBase = 'libssl'; + + {The following lists are used when trying to locate the libcrypto and libssl libraries. + Default sufficies can be replaced by setting the IOpenSSLLoader.GetSSLLibVersions property} + {$IFDEF OPENSSL_USE_STATIC_LIBRARY} + CLibCrypto = ''; + CLibSSL = ''; + {$IFDEF FPC} + {$LINKLIB ssl.a} + {$LINKLIB crypto.a} + {$ENDIF} + {$ENDIF} + + {$IFDEF OPENSSL_USE_SHARED_LIBRARY} + {$IFDEF UNIX} + CLibCrypto = 'crypto'; + CLibSSL = 'ssl'; + {$ENDIF} + {$IFDEF WINDOWS} + {$IFDEF CPU64} + CLibCrypto = 'libcrypto-3-x64.dll'; + CLibSSL = 'libssl-3-x64.dll'; + {$ENDIF} + {$IFDEF CPU32} + CLibCrypto = 'libcrypto-3.dll'; + CLibSSL = 'libssl-3.dll'; + {$ENDIF} + {$ENDIF} + {$ENDIF} + + {$IFDEF UNIX} + DirListDelimiter = ':'; + LibSuffix = '.so'; + DefaultLibVersions = ':.3:.1.1:.1.0.2:.1.0.0:.0.9.9:.0.9.8:.0.9.7:.0.9.6'; + {$ENDIF} + {$IFDEF WINDOWS} + DirListDelimiter = ';'; + LibSuffix = ''; + LegacyLibCrypto = 'libeay32'; + LegacyLibssl = 'ssleay32'; + + {$IFDEF CPU64} + DefaultLibVersions = '-3-x64;-1-x64'; + {$ENDIF} + {$IFDEF CPU32} + DefaultLibVersions = '-3;-1'; + {$ENDIF} + {$ENDIF} + +{$if not declared(TLibHandle)} +type + TLibHandle = THandle; +{$ifend} +{$if not declared(NilHandle)} +const + NilHandle = TLibHandle(0); +{$ifend} + +{$if not declared(LineEnding)} + {$IFDEF WINDOWS} + const LineEnding = #$0D#$0A; + {$ELSE} + const LineEnding = #$0A; + {$ENDIF} +{$ifend} + +type + {$IFDEF FPC} + TOpenSSL_C_LONG = cLong; + TOpenSSL_C_ULONG = cuLong; + TOpenSSL_C_INT = cInt; + TOpenSSL_C_UINT = cuInt; + TOpenSSL_C_INT64 = cint64; + TOpenSSL_C_SHORT = cshort; + TOpenSSL_C_UINT8 = cuint8; + TOpenSSL_C_UINT16 = cuint16; + TOpenSSL_C_UINT32 = cuint32; + TOpenSSL_C_UINT64 = cuint64; + TOpenSSL_C_USHORT = cushort; + TOpenSSL_C_DOUBLE = cdouble; + {$if declared(size_t)} + TOpenSSL_C_SIZET = size_t; + {$else} + {$if declared(PtrUInt)} + TOpenSSL_C_SIZET = PtrUInt; + {$ELSE} + {$IFDEF CPU32} + TOpenSSL_C_SIZET = TOpenSSL_C_UINT32; + {$ENDIF} + {$IFDEF CPU64} + TOpenSSL_C_SIZET = TOpenSSL_C_UINT64; + {$ENDIF} + {$ifend} + {$ifend} + {$if declared(ssize_t)} + TOpenSSL_C_SSIZET = ssize_t; + {$ELSE} + {$if declared(PtrInt)} + TOpenSSL_C_SSIZET = PtrInt; + {$ELSE} + {$IFDEF CPU32} + TOpenSSL_C_SSIZET = TOpenSSL_C_INT32; + {$ENDIF} + {$IFDEF CPU64} + TOpenSSL_C_SSIZET = TOpenSSL_C_INT64; + {$ENDIF} + {$ifend} + {$ifend} + {$if declared(time_t))} + TOpenSSL_C_TIMET = time_t; + {$ELSE} + {$if declared(PtrInt)} + TOpenSSL_C_TIMET = PtrInt; + {$ELSE} + {$IFDEF CPU32} + TOpenSSL_C_TIMET = TOpenSSL_C_INT32; + {$ENDIF} + {$IFDEF CPU64} + TOpenSSL_C_TIMET = TOpenSSL_C_INT64; + {$ENDIF} + {$ifend} + {$ifend} + +{$ELSE} + PPByte = ^PByte; + PPPAnsiChar = ^PAnsiChar; + TOpenSSL_C_LONG = LongInt; + TOpenSSL_C_ULONG = LongWord; + TOpenSSL_C_INT = Integer; + TOpenSSL_C_UINT = Cardinal; + TOpenSSL_C_INT64 = Int64; + TOpenSSL_C_UINT8 = Byte; + TOpenSSL_C_UINT16 = SmallInt; + TOpenSSL_C_UINT32 = Cardinal; + TOpenSSL_C_UINT64 = UINT64; + TOpenSSL_C_SHORT = Smallint; + TOpenSSL_C_USHORT = Word; + TOpenSSL_C_DOUBLE = Double; + {$if declared(size_t)} + TOpenSSL_C_SIZET = size_t; + {$else} + {$if declared(NativeUInt)} + TOpenSSL_C_SIZET = NativeUInt; + {$else} + {$IFDEF CPU32} + TOpenSSL_C_SIZET = TOp/OpenSSLPackageSplitTake3enSSL_C_UINT32; + {$ENDIF} + {$IFDEF CPU64} + TOpenSSL_C_SIZET = TOpenSSL_C_UINT64; + {$ENDIF} + {$ifend} + {$ifend} + + {$if declared(NativeInt)} +TOpenSSL_C_SSIZET = NativeInt; + {$ELSE} + {$IFDEF CPU32} +TOpenSSL_C_SSIZET = TOpenSSL_C_INT32; + {$ENDIF} + {$IFDEF CPU64} +TOpenSSL_C_SSIZET = TOpenSSL_C_INT64; + {$ENDIF} + {$ifend} + + {$if declared(time_t))} + TOpenSSL_C_TIMET = time_t; + {$ELSE} + {$if declared(NativeInt)} + TOpenSSL_C_TIMET = NativeInt; + {$ELSE} + {$IFDEF CPU32} + TOpenSSL_C_TIMET = TOpenSSL_C_INT32; + {$ENDIF} + {$IFDEF CPU64} + TOpenSSL_C_TIMET = TOpenSSL_C_INT64; + {$ENDIF} + {$ifend} + {$ifend} +{$ENDIF} + POpenSSL_C_LONG = ^TOpenSSL_C_LONG; + POpenSSL_C_ULONG = ^TOpenSSL_C_ULONG; + POpenSSL_C_INT = ^TOpenSSL_C_INT; + POpenSSL_C_INT64 = ^TOpenSSL_C_INT64; + POpenSSL_C_SIZET = ^TOpenSSL_C_SIZET; + POpenSSL_C_SSIZET = ^TOpenSSL_C_SSIZET; + POpenSSL_C_UINT = ^TOpenSSL_C_UINT; + POpenSSL_C_UINT8 = ^TOpenSSL_C_UINT8; + POpenSSL_C_UINT16 = ^TOpenSSL_C_UINT16; + POpenSSL_C_UINT32 = ^TOpenSSL_C_UINT32; + POpenSSL_C_UINT64 = ^TOpenSSL_C_UINT64; + POpenSSL_C_SHORT = ^TOpenSSL_C_SHORT; + POpenSSL_C_USHORT = ^TOpenSSL_C_USHORT; + POpenSSL_C_TIMET = ^TOpenSSL_C_TIMET ; + PPPByte = ^PPByte; + PPOpenSSL_C_INT = ^POpenSSL_C_INT; + POpenSSL_C_DOUBLE = ^TOpenSSL_C_DOUBLE; + + TOpenSSL_C_TM = record + tm_sec: TOpenSSL_C_INT; (* seconds, range 0 to 59 *) + tm_min: TOpenSSL_C_INT; (* minutes, range 0 to 59 *) + tm_hour: TOpenSSL_C_INT; (* hours, range 0 to 23 *) + tm_mday: TOpenSSL_C_INT; (* day of the month, range 1 to 31 *) + tm_mon: TOpenSSL_C_INT; (* month, range 0 to 11 *) + tm_year: TOpenSSL_C_INT; (* The number of years since 1900 *) + tm_wday: TOpenSSL_C_INT; (* day of the week, range 0 to 6 *) + tm_yday: TOpenSSL_C_INT; (* day in the year, range 0 to 365 *) + tm_isdst: TOpenSSL_C_INT; (* daylight saving time *) + end; + POpenSSL_C_TM = ^TOpenSSL_C_TM; + PPOpenSSL_C_TM = ^POpenSSL_C_TM; + + IOpenSSL = interface + ['{aed66223-1700-4199-b1c5-8222648e8cd5}'] + function GetOpenSSLPath: string; + function GetOpenSSLVersionStr: string; + function GetOpenSSLVersion: TOpenSSL_C_ULONG; + function Init: boolean; + end; + + function GetIOpenSSL: IOpenSSL; + +type + IOpenSSLDLL = interface(IOpenSSL) + ['{1d6cd9e7-e656-4981-80d2-288b12a69306}'] + procedure SetOpenSSLPath(const Value: string); + function GetSSLLibVersions: string; + procedure SetSSLLibVersions(AValue: string); + function GetSSLBaseLibName: string; + procedure SetSSLBaseLibName(AValue: string); + function GetCryptoBaseLibName: string; + procedure SetCryptoBaseLibName(AValue: string); + function GetAllowLegacyLibsFallback: boolean; + procedure SetAllowLegacyLibsFallback(AValue: boolean); + function GetLibCryptoHandle: TLibHandle; + function GetLibSSLHandle: TLibHandle; + function GetLibCryptoFilePath: string; + function GetLibSSLFilePath: string; + function GetFailedToLoadList: TStrings; + function Load: Boolean; + procedure Unload; + function IsLoaded: boolean; + property SSLLibVersions: string read GetSSLLibVersions write SetSSLLibVersions; + property SSLBaseLibame: string read GetSSLBaseLibName write SetSSLBaseLibName; + property CryptoBaseLibName: string read GetCryptoBaseLibName write SetCryptoBaseLibName; + property AllowLegacyLibsFallback: boolean read GetAllowLegacyLibsFallback write SetAllowLegacyLibsFallback; +end; + +function GetIOpenSSLDDL: IOpenSSLDLL; +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +function LoadLibCryptoFunction(const AProcName: string): Pointer; +function LoadLibSSLFunction(const AProcName: string): Pointer; + +type + TOpenSSLLoadProc = procedure(LibVersion: TOpenSSL_C_UINT; const AFailed: TStringList); + TOpenSSLUnloadProc = procedure; + +procedure Register_SSLLoader(LoadProc: TOpenSSLLoadProc); +procedure Register_SSLUnloader(UnloadProc: TOpenSSLUnloadProc); +{$ENDIF} + +implementation + +uses SyncObjs, + IdOpenSSLHeaders_ssl, + IdOpenSSLHeaders_crypto, + IdSSLOpenSSLExceptionHandlers, + IdSSLOpenSSLResourceStrings; + +type + + { TOpenSSLProvider } + + TOpenSSLStaticLibProvider = class(TInterfacedObject, IOpenSSL) + private + class var FOpenSSL: IOpenSSL; + private + FThreadLock: TCriticalSection; + FOpenSSLPath: string; + public + constructor Create; + destructor Destroy; override; + property OpenSSLPath: string read FOpenSSLPath; + public + {IOpenSSL} + function GetOpenSSLPath: string; virtual; + function GetOpenSSLVersionStr: string; virtual; + function GetOpenSSLVersion: TOpenSSL_C_ULONG; virtual; + function Init: boolean; virtual; + end; + + {$IFNDEF OPENSSL_STATIC_LINK_MODEL} + + { TOpenSSLDynamicLibProvider } + + TOpenSSLDynamicLibProvider = class(TOpenSSLStaticLibProvider,IOpenSSLDLL) + private + class var FOpenSSLDDL: IOpenSSLDLL; + class var FLibLoadList: TList; + class var FUnLoadList: TList; + private + FLibCrypto: TLibHandle; + FLibSSL: TLibHandle; + FLibCryptoFilePath: string; + FLibSSLFilePath: string; + FFailed: TStringList; + FSSLLibVersions: string; + FFailedToLoad: boolean; + FSSLBaseLibName: string; + FCryptoBaseLibName: string; + FAllowLegacyLibsFallback: boolean; + function FindLibrary(LibName, LibVersions: string; var FilePath: string): TLibHandle; + public + constructor Create; + destructor Destroy; override; + {IOpenSSL} + function GetOpenSSLPath: string; override; + function GetOpenSSLVersionStr: string; override; + function GetOpenSSLVersion: TOpenSSL_C_ULONG; override; + function Init: boolean; override; + public + {IOpenSSLDLL} + procedure SetOpenSSLPath(const Value: string); + function GetSSLLibVersions: string; + procedure SetSSLLibVersions(AValue: string); + function GetSSLBaseLibName: string; + procedure SetSSLBaseLibName(AValue: string); + function GetCryptoBaseLibName: string; + procedure SetCryptoBaseLibName(AValue: string); + function GetAllowLegacyLibsFallback: boolean; + procedure SetAllowLegacyLibsFallback(AValue: boolean); + function GetLibCryptoHandle: TLibHandle; + function GetLibSSLHandle: TLibHandle; + function GetLibCryptoFilePath: string; + function GetLibSSLFilePath: string; + function GetFailedToLoadList: TStrings; + function Load: Boolean; + procedure Unload; + function IsLoaded: boolean; + end; + {$ENDIF} + +{ TOpenSSLProvider } + +constructor TOpenSSLStaticLibProvider.Create; +begin + inherited Create; + FThreadLock := TCriticalSection.Create; + FOpenSSLPath := GetEnvironmentVariable(OpenSSLLibraryPath) +end; + +destructor TOpenSSLStaticLibProvider.Destroy; +begin + if FThreadLock <> nil then FThreadLock.Free; + inherited Destroy; +end; + +function TOpenSSLStaticLibProvider.GetOpenSSLPath : string; +begin + Result := OpenSSL_version(OPENSSL_DIR); +end; + +function TOpenSSLStaticLibProvider.GetOpenSSLVersionStr : string; +begin + Result := OpenSSL_Version(OPENSSL_VERSION_CONST); +end; + +function TOpenSSLStaticLibProvider.GetOpenSSLVersion : TOpenSSL_C_ULONG; +begin + Result := OpenSSL_version_num; +end; + +{$IFDEF OPENSSL_SET_MEMORY_FUNCS} + +function OpenSSLMalloc(num: UInt32): Pointer cdecl; +begin + Result := AllocMem(num); +end; + +function OpenSSLRealloc(addr: Pointer; num: UInt32): Pointer cdecl; +begin + Result := addr; + ReallocMem(Result, num); +end; + +procedure OpenSSLFree(addr: Pointer)cdecl; +begin + FreeMem(addr); +end; + +procedure OpenSSLCryptoMallocInit; +// replaces the actual alloc routines +// this is useful if you are using a memory manager that can report on leaks +// at shutdown time. +var + r: Integer; +begin + r := CRYPTO_set_mem_functions(@OpenSSLMalloc, @OpenSSLRealloc, @OpenSSLFree); + Assert(r <> 0); +end; +{$ENDIF} + +function TOpenSSLStaticLibProvider.Init: boolean; +begin + Result := true; + FThreadLock.Acquire; + try + {$IFDEF OPENSSL_SET_MEMORY_FUNCS} + // has to be done before anything that uses memory + OpenSSLCryptoMallocInit; + {$ENDIF} + OPENSSL_init_ssl(OPENSSL_INIT_LOAD_SSL_STRINGS or OPENSSL_INIT_ADD_ALL_CIPHERS or + OPENSSL_INIT_ADD_ALL_DIGESTS or OPENSSL_INIT_LOAD_CRYPTO_STRINGS or + OPENSSL_INIT_LOAD_CONFIG or OPENSSL_INIT_ASYNC or + OPENSSL_INIT_ENGINE_ALL_BUILTIN ,nil); + + if GetOpenSSLVersion < CRYPTO_set_locking_callback_removed then + SetLegacyCallbacks; + finally + FThreadLock.Release; + end; +end; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +function TOpenSSLDynamicLibProvider.FindLibrary(LibName , LibVersions : string; + var FilePath : string) : TLibHandle; + + function DoLoadLibrary(FullLibName: string): TLibHandle; + begin + Result := SafeLoadLibrary(FullLibName, {$IFDEF WINDOWS}SEM_FAILCRITICALERRORS {$ELSE} 0 {$ENDIF}); + if Result <> NilHandle then + {$if defined(FPC) and defined(UNIX)} + FilePath := fpReadLink(FullLibName); + {$else} + FilePath := FullLibName; + {$ifend} + end; + +var LibVersionsList: TStringList; + i: integer; +begin + Result := NilHandle; + if LibVersions <> '' then + begin + LibVersionsList := TStringList.Create; + try + LibVersionsList.Delimiter := DirListDelimiter; + LibVersionsList.StrictDelimiter := true; + LibVersionsList.DelimitedText := LibVersions; {Split list on delimiter} + for i := 0 to LibVersionsList.Count - 1 do + begin + Result := DoLoadLibrary(OpenSSLPath + LibName + LibVersionsList[i]); + if Result <> NilHandle then + break; + end; + finally + LibVersionsList.Free; + end; + end; +end; + +constructor TOpenSSLDynamicLibProvider.Create; +begin + inherited Create; + FFailed := TStringList.Create(); + FSSLLibVersions := DefaultLibVersions; + FSSLBaseLibName := CLibSSLBase; + FCryptoBaseLibName := CLibCryptoBase; + FAllowLegacyLibsFallback := false; +end; + +destructor TOpenSSLDynamicLibProvider.Destroy; +begin + Unload; + if FFailed <> nil then FFailed.Free; + inherited Destroy; +end; + +function TOpenSSLDynamicLibProvider.GetOpenSSLPath : string; +begin + if not IsLoaded then + Result := FOpenSSLPath + else + Result := inherited GetOpenSSLPath; +end; + +function TOpenSSLDynamicLibProvider.GetOpenSSLVersionStr : string; +begin + if not IsLoaded then + Load; + Result := inherited GetOpenSSLVersionStr; +end; + +function TOpenSSLDynamicLibProvider.GetOpenSSLVersion : TOpenSSL_C_ULONG; +begin + if not IsLoaded then + Load; + Result := inherited GetOpenSSLVersion; +end; + +function TOpenSSLDynamicLibProvider.Init : boolean; +begin + Result := Load; +end; + +function LoadLibCryptoFunction(const AProcName: string): Pointer; +begin + Result := GetProcAddress(TOpenSSLDynamicLibProvider.FOpenSSLDDL.GetLibCryptoHandle,PChar(AProcName)); +end; + +function LoadLibSSLFunction(const AProcName: string): Pointer; +begin + Result := GetProcAddress(TOpenSSLDynamicLibProvider.FOpenSSLDDL.GetLibSSLHandle,PChar(AProcName)); +end; + +procedure TOpenSSLDynamicLibProvider.SetOpenSSLPath(const Value : string); +begin + if Value = '' then + FOpenSSLPath := '' + else + FOpenSSLPath := IncludeTrailingPathDelimiter(Value); +end; + +function TOpenSSLDynamicLibProvider.GetSSLLibVersions : string; +begin + Result := FSSLLibVersions; +end; + +procedure TOpenSSLDynamicLibProvider.SetSSLLibVersions(AValue : string); +begin + if FSSLLibVersions <> AValue then + UnLoad; + FSSLLibVersions := AValue; +end; + +function TOpenSSLDynamicLibProvider.GetSSLBaseLibName: string; +begin + Result := FSSLBaseLibName; +end; + +procedure TOpenSSLDynamicLibProvider.SetSSLBaseLibName(AValue: string); +begin + if FSSLBaseLibName <> AValue then + UnLoad; + FSSLBaseLibName := AValue; +end; + +function TOpenSSLDynamicLibProvider.GetCryptoBaseLibName: string; +begin + Result := FCryptoBaseLibName; +end; + +procedure TOpenSSLDynamicLibProvider.SetCryptoBaseLibName(AValue: string); +begin + if FCryptoBaseLibName <> AValue then + UnLoad; + FCryptoBaseLibName := AValue; +end; + +function TOpenSSLDynamicLibProvider.GetAllowLegacyLibsFallback: boolean; +begin + Result := FAllowLegacyLibsFallback; +end; + +procedure TOpenSSLDynamicLibProvider.SetAllowLegacyLibsFallback(AValue: boolean + ); +begin + if FAllowLegacyLibsFallback <> AValue then + Unload; + FAllowLegacyLibsFallback := AValue; +end; + +function TOpenSSLDynamicLibProvider.GetLibCryptoHandle : TLibHandle; +begin + if (FLibCrypto = NilHandle) and not FFailedToLoad then Load; + Result := FLibCrypto; +end; + +function TOpenSSLDynamicLibProvider.GetLibSSLHandle : TLibHandle; +begin + if (FLibSSL = NilHandle) and not FFailedToLoad then Load; + Result := FLibSSL; +end; + +function TOpenSSLDynamicLibProvider.GetLibCryptoFilePath : string; +begin + if (FLibCrypto = NilHandle) and not FFailedToLoad then Load; + Result := FLibCryptoFilePath; +end; + +function TOpenSSLDynamicLibProvider.GetLibSSLFilePath : string; +begin + if (FLibSSL = NilHandle) and not FFailedToLoad then Load; + Result := FLibSSLFilePath; +end; + +function TOpenSSLDynamicLibProvider.GetFailedToLoadList : TStrings; +begin + Result := FFailed; +end; + +function TOpenSSLDynamicLibProvider.Load : Boolean; +type + TOpenSSL_version_num = function: TOpenSSL_C_ULONG; cdecl; +var i: integer; + OpenSSL_version_num: TOpenSSL_version_num; + SSLVersionNo: TOpenSSL_C_ULONG; +begin + Result := not FFailedToLoad; + if not Result then + Exit; + + FThreadLock.Acquire; + try + if not IsLoaded then + begin + FLibCrypto := FindLibrary(FCryptoBaseLibName + LibSuffix,FSSLLibVersions,FLibCryptoFilePath); + FLibSSL := FindLibrary(FSSLBaseLibName + LibSuffix,FSSLLibVersions,FLibSSLFilePath); + Result := not (FLibCrypto = NilHandle) and not (FLibSSL = NilHandle); + {$IFDEF WINDOWS} + if not Result and FAllowLegacyLibsFallback then + begin + {try the legacy dll names} + FLibCrypto := FindLibrary(LegacyLibCrypto,'',FLibCryptoFilePath); + FLibSSL := FindLibrary(LegacyLibssl,'',FLibSSLFilePath); + Result := not (FLibCrypto = NilHandle) and not (FLibSSL = NilHandle); + end; + {$ENDIF} + if not Result then + Exit; + + {Load Version number} + OpenSSL_version_num := LoadLibCryptoFunction('OpenSSL_version_num'); + if not assigned(OpenSSL_version_num) then + OpenSSL_version_num := LoadLibCryptoFunction('SSLeay'); + if not assigned(OpenSSL_version_num) then + raise EOpenSSLError.Create(ROSSLCantGetSSLVersionNo); + + SSLVersionNo := OpenSSL_version_num(); + + if SSLVersionNo < min_supported_ssl_version then {remove patch and dev flag} + raise EOpenSSLError.CreateFmt(RSOSSUnsupportedVersion,[SSLVersionNo]); + + for i := 0 to FLibLoadList.Count - 1 do + TOpenSSLLoadProc(FLibLoadList[i])(SSLVersionNo,FFailed); + + end; + + finally + FThreadLock.Release; + end; + Result := inherited Init; +end; + +procedure TOpenSSLDynamicLibProvider.Unload; +var i: integer; +begin + FThreadLock.Acquire; + try + if IsLoaded then + begin + RemoveLegacyCallbacks; + for i := 0 to FUnLoadList.Count - 1 do + TOpenSSLUnloadProc(FUnLoadList[i]); + + FFailed.Clear(); + + if FLibSSL <> NilHandle then + FreeLibrary(FLibSSL); + if FLibCrypto <> NilHandle then + FreeLibrary(FLibCrypto); + FLibSSL := NilHandle; + FLibCrypto := NilHandle; + end; + FFailedToLoad := false; + finally + FThreadLock.Release; + end; +end; + +function TOpenSSLDynamicLibProvider.IsLoaded : boolean; +begin + Result := (FLibCrypto <> Nilhandle) and (FLibSSL <> Nilhandle); +end; +{$ENDIF} + +const InitUnitDone: boolean = false; + +procedure InitUnit; +begin + if not InitUnitDone then + begin + {$IFDEF OPENSSL_STATIC_LINK_MODEL} + TOpenSSLStaticLibProvider.FOpenSSL := TOpenSSLStaticLibProvider.Create; + {$ELSE} + TOpenSSLStaticLibProvider.FOpenSSL := TOpenSSLDynamicLibProvider.Create; + TOpenSSLDynamicLibProvider.FOpenSSLDDL := TOpenSSLDynamicLibProvider.FOpenSSL as IOpenSSLDLL; + TOpenSSLDynamicLibProvider.FLibLoadList := TList.Create; + TOpenSSLDynamicLibProvider.FUnLoadList := TList.Create; + {$ENDIF}; + InitUnitDone := true; + end; +end; + +function GetIOpenSSL: IOpenSSL; +begin + InitUnit; + Result := TOpenSSLStaticLibProvider.FOpenSSL; +end; + +function GetIOpenSSLDDL: IOpenSSLDLL; +begin + {$IFDEF OPENSSL_STATIC_LINK_MODEL} + Result := nil; + {$ELSE} + InitUnit; + Result := TOpenSSLDynamicLibProvider.FOpenSSLDDL; + {$ENDIF} +end; + +{$IFNDEF OPENSSL_STATIC_LINK_MODEL} +procedure Register_SSLLoader(LoadProc : TOpenSSLLoadProc); +begin + InitUnit; + TOpenSSLDynamicLibProvider.FLibLoadList.Add(@LoadProc); +end; + +procedure Register_SSLUnloader(UnloadProc: TOpenSSLUnloadProc); +begin + InitUnit; + TOpenSSLDynamicLibProvider.FUnLoadList.Add(@UnloadProc); +end; +{$ENDIF} + +initialization + InitUnit; + +finalization + TOpenSSLStaticLibProvider.FOpenSSL := nil; + {$IFNDEF OPENSSL_STATIC_LINK_MODEL} + TOpenSSLDynamicLibProvider.FOpenSSLDDL := nil; + FreeAndNil(TOpenSSLDynamicLibProvider.FLibLoadList); + FreeAndNil(TOpenSSLDynamicLibProvider.FUnLoadList); + {$ENDIF} +end. + + diff --git a/src/opensslHdrs/IdSSLOpenSSLDefines.inc b/src/opensslHdrs/IdSSLOpenSSLDefines.inc new file mode 100644 index 0000000..9e01b24 --- /dev/null +++ b/src/opensslHdrs/IdSSLOpenSSLDefines.inc @@ -0,0 +1,79 @@ +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + + +{ Three ways to link to the OpenSSL library are supported: + + 1. Dynamic linking at run time using calls to LoadLibrary and GetProcAddress. + This is the default and allows Indy to find the OpenSSL libraries and adjust + itself to suit the version found. Versions 1.0.2 to 3.x are currently supported. + + 2. Static loading of a shared library (.dll or .so). When your program is loaded + the loader searches for the shared library and links it to your program. Indy + can only support the 3.x OpenSSL libraries in this mode. + + 3. Statically linked to a static library at link time. Your program executable + includes the OpenSSL libraries which then do not have to be separately + installed on the target system. Supported only for the 3.x OpenSSL Libraries + and for the Free Pascal Compiler (FPC). Delphi does not support this link option. + + Link Option 2 is selected if your program or the IndyOpenSSL package is compiled with + the OPENSSL_USE_SHARED_LIBRARY defined symbol. It is also selected if + IdCompilierDefines.inc sets the STATICLOAD_OPENSSL defined symbol (e.g. for IOS). + + Link Option 3 is selected if your program or the IndyOpenSSL package is compiled with + the OPENSSL_USE_STATIC_LIBRARY defined symbol. + + } +{$IFDEF FPC} +{$mode delphi} +{$ELSE} + {$IFDEF MSWINDOWS} + {$DEFINE WINDOWS} + {$ELSE} + {$IFDEF POSIX} + {$DEFINE UNIX} + {$ELSE} + {$DEFINE WINDOWS} + {$ENDIF} + {$ENDIF} +{$ENDIF} + + +{$IFDEF STATICLOAD_OPENSSL} +{$DEFINE OPENSSL_STATIC_LINK_MODEL} +{$UNDEF OPENSSL_USE_STATIC_LIBRARY} +{$ENDIF} +{$IFDEF OPENSSL_USE_SHARED_LIBRARY} +{$DEFINE OPENSSL_STATIC_LINK_MODEL} +{$ENDIF} +{$IFDEF OPENSSL_USE_STATIC_LIBRARY} +{$IFNDEF FPC} +{$warn Warning:OPENSSL_USE_STATIC_LIBRARY is supported only when compiling with the Free Pascal Compiler} +{$ELSE} +{$DEFINE OPENSSL_STATIC_LINK_MODEL} +{$ENDIF} +{$ENDIF} + +{$IFNDEF FPC} +{$if defined(CPU64BITS) or defined(CPUX86_64) or defined(CPUAMD64)} + {$DEFINE CPU64} +{$else} + {$DEFINE CPU32} +{$ifend} +{$ENDIF} //FPC + diff --git a/src/opensslHdrs/IdSSLOpenSSLExceptionHandlers.pas b/src/opensslHdrs/IdSSLOpenSSLExceptionHandlers.pas new file mode 100644 index 0000000..45eac09 --- /dev/null +++ b/src/opensslHdrs/IdSSLOpenSSLExceptionHandlers.pas @@ -0,0 +1,157 @@ +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + +unit IdSSLOpenSSLExceptionHandlers; + +interface + +uses + Classes, SysUtils, IdSSLOpenSSLAPI; + +type + EOpenSSLError = class(Exception); + TOpenSSLAPISSLError = class of EOpenSSLAPISSLError; + + EOpenSSLAPISSLError = class(EOpenSSLError) + protected + FErrorCode : TOpenSSL_C_INT; + FRetCode : TOpenSSL_C_INT; + public + class procedure RaiseException(ASSL: Pointer; const ARetCode : TOpenSSL_C_INT; const AMsg : String = ''); + class procedure RaiseExceptionCode(const AErrCode, ARetCode : TOpenSSL_C_INT; const AMsg : String = ''); + property ErrorCode : TOpenSSL_C_INT read FErrorCode; + property RetCode : TOpenSSL_C_INT read FRetCode; + end; + + TSSLOpenSSLAPICryptoError = class of EOpenSSLAPICryptoError; + EOpenSSLAPICryptoError = class(EOpenSSLError) + protected + FErrorCode : TOpenSSL_C_ULONG; + public + class procedure RaiseExceptionCode(const AErrCode : TOpenSSL_C_ULONG; const AMsg : String = ''); + class procedure RaiseException(const AMsg : String = ''); + property ErrorCode : TOpenSSL_C_ULONG read FErrorCode; + end; + EOpenSSLUnderlyingCryptoError = class(EOpenSSLAPICryptoError); + EOpenSSLUnknownError = class(EOpenSSLAPICryptoError); + + { EOpenSSLAPIFunctionNotPresent } + + EOpenSSLAPIFunctionNotPresent = class(EOpenSSLError) + public + class procedure RaiseException(functionName: string); + end; + +implementation + +uses IdOpenSSLHeaders_err, + IdOpenSSLHeaders_ssl, + IdOpenSSLHeaders_ossl_typ, + IdSSLOpenSSLResourceStrings; + +function GetErrorMessage(const AErr : TOpenSSL_C_ULONG) : String; +const + sMaxErrMsg = 160; +var + ErrMsg: array [0..sMaxErrMsg] of AnsiChar; +begin + ERR_error_string_n(AErr, ErrMsg, sMaxErrMsg); + ErrMsg[sMaxErrMsg] := #0; + Result := strpas(PAnsiChar(@ErrMsg));; +end; + +{ EAPIFunctionNotPresent } + +class procedure EOpenSSLAPIFunctionNotPresent.RaiseException(functionName: string); +begin + raise EOpenSSLAPIFunctionNotPresent.CreateFmt(ROSSLAPIFunctionNotPresent,[functionName]); +end; + +{ EOpenSSLAPICryptoError } +class procedure EOpenSSLAPICryptoError.RaiseException(const AMsg : String = ''); +begin + RaiseExceptionCode(ERR_get_error(), AMsg); +end; + +class procedure EOpenSSLAPICryptoError.RaiseExceptionCode( + const AErrCode: TOpenSSL_C_ULONG; const AMsg: String); +var + LMsg: String; + LException : EOpenSSLAPICryptoError; +begin + if AMsg <> '' then begin + LMsg := AMsg + LineEnding + GetErrorMessage(AErrCode); + end else begin + LMsg := GetErrorMessage(AErrCode); + end; + LException := Create(LMsg); + LException.FErrorCode := AErrCode; + raise LException; +end; + +{ EOpenSSLAPISSLError } + +class procedure EOpenSSLAPISSLError.RaiseException(ASSL: Pointer; const ARetCode: TOpenSSL_C_INT; + const AMsg: String); +begin + RaiseExceptionCode(SSL_get_error(PSSL(ASSL), ARetCode), ARetCode, AMsg); +end; + +class procedure EOpenSSLAPISSLError.RaiseExceptionCode(const AErrCode, ARetCode: TOpenSSL_C_INT; + const AMsg: String); +var + LErrQueue : TOpenSSL_C_ULONG; + LException : EOpenSSLAPISSLError; + LErrStr : String; +begin + if AMsg <> '' then begin + LErrStr := AMsg + LineEnding; + end else begin + LErrStr := ''; + end; + case AErrCode of + SSL_ERROR_SYSCALL : + begin + LErrQueue := ERR_get_error; + if LErrQueue <> 0 then begin + EOpenSSLUnderlyingCryptoError.RaiseExceptionCode(LErrQueue, AMsg); + end; + if ARetCode = 0 then begin + LException := Create(LErrStr + ROSSLEOFViolation); + LException.FErrorCode := AErrCode; + LException.FRetCode := ARetCode; + raise LException; + end; + raise EOpenSSLUnknownError.Create(RSOUnknown); + end; + + SSL_ERROR_SSL : + EOpenSSLUnderlyingCryptoError.RaiseException(AMsg); + + end; + // everything else... + LException := Create(LErrStr + GetErrorMessage(AErrCode)); + LException.FErrorCode := AErrCode; + LException.FRetCode := ARetCode; + raise LException; +end; + +end. + + diff --git a/src/opensslHdrs/IdSSLOpenSSLResourceStrings.pas b/src/opensslHdrs/IdSSLOpenSSLResourceStrings.pas new file mode 100644 index 0000000..cab62b0 --- /dev/null +++ b/src/opensslHdrs/IdSSLOpenSSLResourceStrings.pas @@ -0,0 +1,37 @@ +{$i IdSSLOpenSSLDefines.inc} + +{ + This file is part of the MWA Software Pascal API for OpenSSL . + + The MWA Software Pascal API for OpenSSL is free software: you can redistribute it + and/or modify it under the terms of the Apache License Version 2.0 (the "License"). + + You may not use this file except in compliance with the License. You can obtain a copy + in the file LICENSE.txt in the source distribution or at https://www.openssl.org/source/license.html. + + The MWA Software Pascal API for OpenSSL is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License for more details. + + This file includes software copied from the Indy (Internet Direct) project, and which is offered + under the dual-licensing agreement described on the Indy website. (https://www.indyproject.org/license/) + } + +unit IdSSLOpenSSLResourceStrings; + +interface + +resourcestring + RSOSSUnsupportedVersion = 'Unsupported SSL Library version: %.8x.'; + ROSSLCantGetSSLVersionNo = 'Unable to determine SSL Library Version number'; + ROSSLAPIFunctionNotPresent = 'OpenSSL API Function/Procedure %s not found in SSL Library'; + ROSUnsupported = 'Not Supported'; + ROSSLEOFViolation = 'EOF was observed that violates the protocol'; + RSOUnknown = 'Unknown SSL Error - probably socket error'; + RSONoVersionInfo = 'Both OpenSSL_version and SSLeay_version missing from OpenSSL Library'; + + +implementation + +end. + diff --git a/src/opensslHdrs/LICENSE.txt b/src/opensslHdrs/LICENSE.txt new file mode 100644 index 0000000..49cc83d --- /dev/null +++ b/src/opensslHdrs/LICENSE.txt @@ -0,0 +1,177 @@ + + Apache License + Version 2.0, January 2004 + https://www.apache.org/licenses/ + + TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION + + 1. Definitions. + + "License" shall mean the terms and conditions for use, reproduction, + and distribution as defined by Sections 1 through 9 of this document. + + "Licensor" shall mean the copyright owner or entity authorized by + the copyright owner that is granting the License. + + "Legal Entity" shall mean the union of the acting entity and all + other entities that control, are controlled by, or are under common + control with that entity. For the purposes of this definition, + "control" means (i) the power, direct or indirect, to cause the + direction or management of such entity, whether by contract or + otherwise, or (ii) ownership of fifty percent (50%) or more of the + outstanding shares, or (iii) beneficial ownership of such entity. + + "You" (or "Your") shall mean an individual or Legal Entity + exercising permissions granted by this License. + + "Source" form shall mean the preferred form for making modifications, + including but not limited to software source code, documentation + source, and configuration files. + + "Object" form shall mean any form resulting from mechanical + transformation or translation of a Source form, including but + not limited to compiled object code, generated documentation, + and conversions to other media types. + + "Work" shall mean the work of authorship, whether in Source or + Object form, made available under the License, as indicated by a + copyright notice that is included in or attached to the work + (an example is provided in the Appendix below). + + "Derivative Works" shall mean any work, whether in Source or Object + form, that is based on (or derived from) the Work and for which the + editorial revisions, annotations, elaborations, or other modifications + represent, as a whole, an original work of authorship. For the purposes + of this License, Derivative Works shall not include works that remain + separable from, or merely link (or bind by name) to the interfaces of, + the Work and Derivative Works thereof. + + "Contribution" shall mean any work of authorship, including + the original version of the Work and any modifications or additions + to that Work or Derivative Works thereof, that is intentionally + submitted to Licensor for inclusion in the Work by the copyright owner + or by an individual or Legal Entity authorized to submit on behalf of + the copyright owner. For the purposes of this definition, "submitted" + means any form of electronic, verbal, or written communication sent + to the Licensor or its representatives, including but not limited to + communication on electronic mailing lists, source code control systems, + and issue tracking systems that are managed by, or on behalf of, the + Licensor for the purpose of discussing and improving the Work, but + excluding communication that is conspicuously marked or otherwise + designated in writing by the copyright owner as "Not a Contribution." + + "Contributor" shall mean Licensor and any individual or Legal Entity + on behalf of whom a Contribution has been received by Licensor and + subsequently incorporated within the Work. + + 2. Grant of Copyright License. Subject to the terms and conditions of + this License, each Contributor hereby grants to You a perpetual, + worldwide, non-exclusive, no-charge, royalty-free, irrevocable + copyright license to reproduce, prepare Derivative Works of, + publicly display, publicly perform, sublicense, and distribute the + Work and such Derivative Works in Source or Object form. + + 3. Grant of Patent License. Subject to the terms and conditions of + this License, each Contributor hereby grants to You a perpetual, + worldwide, non-exclusive, no-charge, royalty-free, irrevocable + (except as stated in this section) patent license to make, have made, + use, offer to sell, sell, import, and otherwise transfer the Work, + where such license applies only to those patent claims licensable + by such Contributor that are necessarily infringed by their + Contribution(s) alone or by combination of their Contribution(s) + with the Work to which such Contribution(s) was submitted. If You + institute patent litigation against any entity (including a + cross-claim or counterclaim in a lawsuit) alleging that the Work + or a Contribution incorporated within the Work constitutes direct + or contributory patent infringement, then any patent licenses + granted to You under this License for that Work shall terminate + as of the date such litigation is filed. + + 4. Redistribution. You may reproduce and distribute copies of the + Work or Derivative Works thereof in any medium, with or without + modifications, and in Source or Object form, provided that You + meet the following conditions: + + (a) You must give any other recipients of the Work or + Derivative Works a copy of this License; and + + (b) You must cause any modified files to carry prominent notices + stating that You changed the files; and + + (c) You must retain, in the Source form of any Derivative Works + that You distribute, all copyright, patent, trademark, and + attribution notices from the Source form of the Work, + excluding those notices that do not pertain to any part of + the Derivative Works; and + + (d) If the Work includes a "NOTICE" text file as part of its + distribution, then any Derivative Works that You distribute must + include a readable copy of the attribution notices contained + within such NOTICE file, excluding those notices that do not + pertain to any part of the Derivative Works, in at least one + of the following places: within a NOTICE text file distributed + as part of the Derivative Works; within the Source form or + documentation, if provided along with the Derivative Works; or, + within a display generated by the Derivative Works, if and + wherever such third-party notices normally appear. The contents + of the NOTICE file are for informational purposes only and + do not modify the License. You may add Your own attribution + notices within Derivative Works that You distribute, alongside + or as an addendum to the NOTICE text from the Work, provided + that such additional attribution notices cannot be construed + as modifying the License. + + You may add Your own copyright statement to Your modifications and + may provide additional or different license terms and conditions + for use, reproduction, or distribution of Your modifications, or + for any such Derivative Works as a whole, provided Your use, + reproduction, and distribution of the Work otherwise complies with + the conditions stated in this License. + + 5. Submission of Contributions. Unless You explicitly state otherwise, + any Contribution intentionally submitted for inclusion in the Work + by You to the Licensor shall be under the terms and conditions of + this License, without any additional terms or conditions. + Notwithstanding the above, nothing herein shall supersede or modify + the terms of any separate license agreement you may have executed + with Licensor regarding such Contributions. + + 6. Trademarks. This License does not grant permission to use the trade + names, trademarks, service marks, or product names of the Licensor, + except as required for reasonable and customary use in describing the + origin of the Work and reproducing the content of the NOTICE file. + + 7. Disclaimer of Warranty. Unless required by applicable law or + agreed to in writing, Licensor provides the Work (and each + Contributor provides its Contributions) on an "AS IS" BASIS, + WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or + implied, including, without limitation, any warranties or conditions + of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A + PARTICULAR PURPOSE. You are solely responsible for determining the + appropriateness of using or redistributing the Work and assume any + risks associated with Your exercise of permissions under this License. + + 8. Limitation of Liability. In no event and under no legal theory, + whether in tort (including negligence), contract, or otherwise, + unless required by applicable law (such as deliberate and grossly + negligent acts) or agreed to in writing, shall any Contributor be + liable to You for damages, including any direct, indirect, special, + incidental, or consequential damages of any character arising as a + result of this License or out of the use or inability to use the + Work (including but not limited to damages for loss of goodwill, + work stoppage, computer failure or malfunction, or any and all + other commercial damages or losses), even if such Contributor + has been advised of the possibility of such damages. + + 9. Accepting Warranty or Additional Liability. While redistributing + the Work or Derivative Works thereof, You may choose to offer, + and charge a fee for, acceptance of support, warranty, indemnity, + or other liability obligations and/or rights consistent with this + License. However, in accepting such obligations, You may act only + on Your own behalf and on Your sole responsibility, not on behalf + of any other Contributor, and only if You agree to indemnify, + defend, and hold each Contributor harmless for any liability + incurred by, or claims asserted against, such Contributor by reason + of your accepting any such warranty or additional liability. + + END OF TERMS AND CONDITIONS