开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaSspi.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：120k
源码类别：

Windows编程

开发平台：

Delphi

JwaSspi.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Security Service Provider API interface Unit for Object Pascal               }
  4. {                                                                       }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
  6. { Corporation. All Rights Reserved.                                            }
  7. {                 }
  8. { The original file is: sspi.h, released June 2000. The original Pascal        }
  9. { code is: Sspi.pas, released December 2000. The initial developer of the      }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  16. {                }
  17. { You may retrieve the latest version of this file at the Project JEDI home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaSspi;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "sspi.h"'}
  50. {$HPPEMIT ''}
  51. {$HPPEMIT '#typedef SEC_CHAR *PSEC_CHAR'}
  52. {$HPPEMIT '#typedef SEC_WCHAR *PSEC_WCHAR'}
  53. {$HPPEMIT ''}
  55. {$I WINDEFINES.INC}
  57. interface
  59. uses
  60.   JwaWinType;
  62. //
  63. // Determine environment:
  64. //
  66. const
  67.   ISSP_LEVEL = 32;
  68.   {$EXTERNALSYM ISSP_LEVEL}
  69.   ISSP_MODE  = 1;
  70.   {$EXTERNALSYM ISSP_MODE}
  72. //
  73. // Now, define platform specific mappings:
  74. //
  76. //
  77. // For NT-2 and up, wtypes will define HRESULT to be long.
  78. //
  80. type
  81.   SEC_WCHAR = WCHAR;
  82.   {$EXTERNALSYM SEC_WCHAR}
  83.   PSEC_WCHAR = ^SEC_CHAR;
  84.   {$NODEFINE PSEC_WCHAR}
  85.   PSecWChar = ^TSecWChar;
  86.   TSecWChar = SEC_WCHAR;
  88.   SEC_CHAR = CHAR;
  89.   {$EXTERNALSYM SEC_CHAR}
  90.   PSEC_CHAR = ^SEC_CHAR;
  91.   {$NODEFINE PSEC_CHAR}
  92.   PSecChar = ^TSecChar;
  93.   TSecChar = SEC_CHAR;
  95.   SECURITY_STATUS = LONG;
  96.   {$EXTERNALSYM SECURITY_STATUS}
  97.   PSecurityStatus = ^TSecurityStatus;
  98.   TSecurityStatus = SECURITY_STATUS;
  100. //
  101. // Decide what a string - 32 bits only since for 16 bits it is clear.
  102. //
  104. {$IFDEF UNICODE}
  105.   SECURITY_PSTR = ^SEC_WCHAR;
  106.   {$EXTERNALSYM SECURITY_PSTR}
  107.   SECURITY_PCSTR = ^SEC_WCHAR;
  108.   {$EXTERNALSYM SECURITY_PCSTR}
  109. {$ELSE}
  110.   SECURITY_PSTR = ^SEC_CHAR;
  111.   {$EXTERNALSYM SECURITY_PSTR}
  112.   SECURITY_PCSTR = ^SEC_CHAR;
  113.   {$EXTERNALSYM SECURITY_PCSTR}
  114. {$ENDIF}
  116. //
  117. // Okay, security specific types:
  118. //
  120.   PSecHandle = ^SecHandle;
  121.   {$EXTERNALSYM PSecHandle}
  122.   _SecHandle = record
  123.     dwLower: ULONG_PTR;
  124.     dwUpper: ULONG_PTR;
  125.   end;
  126.   {$EXTERNALSYM _SecHandle}
  127.   SecHandle = _SecHandle;
  128.   {$EXTERNALSYM SecHandle}
  129.   TSecHandle = SecHandle;
  131. procedure SecInvalidateHandle(var x: SecHandle);
  132. {$EXTERNALSYM SecInvalidateHandle}
  134. function SecIsValidHandle(x: SecHandle): Boolean;
  135. {$EXTERNALSYM SecIsValidHandle}
  137. type
  138.   CredHandle = SecHandle;
  139.   {$EXTERNALSYM CredHandle}
  140.   PCredHandle = ^CredHandle;
  141.   {$EXTERNALSYM PCredHandle}
  142.   TCredHandle = CredHandle;
  144.   CtxtHandle = SecHandle;
  145.   {$EXTERNALSYM CtxtHandle}
  146.   PCtxtHandle = ^CtxtHandle;
  147.   {$EXTERNALSYM PCtxthandle}
  148.   TCtxthandle = CtxtHandle;
  150.   _SECURITY_INTEGER = LARGE_INTEGER;
  151.   {$EXTERNALSYM _SECURITY_INTEGER}
  152.   SECURITY_INTEGER = _SECURITY_INTEGER;
  153.   {$EXTERNALSYM SECURITY_INTEGER}
  154.   PSECURITY_INTEGER = ^SECURITY_INTEGER;
  155.   {$EXTERNALSYM PSECURITY_INTEGER}
  157. // todo Timestamp was removed from SSPI in August 2001 PSDK, where is it now?!
  159.   TimeStamp = SECURITY_INTEGER;
  160.   {$EXTERNALSYM TimeStamp}
  161.   PTimeStamp = ^SECURITY_INTEGER;
  162.   {$EXTERNALSYM PTimeStamp}
  163.   TTimeStamp = TimeStamp;
  165. //
  166. // If we are in 32 bit mode, define the SECURITY_STRING structure,
  167. // as a clone of the base UNICODE_STRING structure.  This is used
  168. // internally in security components, an as the string interface
  169. // for kernel components (e.g. FSPs)
  170. //
  172.   SECURITY_STRING = UNICODE_STRING;
  173.   {$EXTERNALSYM SECURITY_STRING}
  174.   PSECURITY_STRING = ^SECURITY_STRING;
  175.   {$EXTERNALSYM PSECURITY_STRING}
  176.   TSecurityString = SECURITY_STRING;
  177.   PSecurityString = PSECURITY_STRING;
  179. //
  180. // SecPkgInfo structure
  181. //
  182. //  Provides general information about a security provider
  183. //
  185.   PSecPkgInfoW = ^SecPkgInfoW;
  186.   {$EXTERNALSYM PSecPkgInfoW}
  187.   _SecPkgInfoW = record
  188.     fCapabilities: Cardinal; // Capability bitmask
  189.     wVersion: Word; // Version of driver
  190.     wRPCID: Word; // ID for RPC Runtime
  191.     cbMaxToken: Cardinal; // Size of authentication token (max)
  192.     Name: PSecWChar; // Text name
  193.     Comment: PSecWChar; // Comment
  194.   end;
  195.   {$EXTERNALSYM _SecPkgInfoW}
  196.   SecPkgInfoW = _SecPkgInfoW;
  197.   {$EXTERNALSYM SecPkgInfoW}
  198.   TSecPkgInfoW = SecPkgInfoW;
  200.   PSecPkgInfoA = ^SecPkgInfoA;
  201.   {$EXTERNALSYM PSecPkgInfoA}
  202.   _SecPkgInfoA = record
  203.     fCapabilities: Cardinal; // Capability bitmask
  204.     wVersion: Word; // Version of driver
  205.     wRPCID: Word; // ID for RPC Runtime
  206.     cbMaxToken: Cardinal; // Size of authentication token (max)
  207.     Name: PSecChar; // Text name
  208.     Comment: PSecChar; // Comment
  209.   end;
  210.   {$EXTERNALSYM _SecPkgInfoA}
  211.   SecPkgInfoA = _SecPkgInfoA;
  212.   {$EXTERNALSYM SecPkgInfoA}
  213.   TSecPkgInfoA = SecPkgInfoA;
  215. {$IFDEF UNICODE}
  216.   SecPkgInfo = SecPkgInfoW;
  217.   {$EXTERNALSYM SecPkgInfo}
  218.   PSecPkgInfo = PSecPkgInfoW;
  219.   {$EXTERNALSYM PSecPkgInfo}
  220.   TSecPkgInfo = TSecPkgInfoW;
  221. {$ELSE}
  222.   SecPkgInfo = SecPkgInfoA;
  223.   {$EXTERNALSYM SecPkgInfo}
  224.   PSecPkgInfo = PSecPkgInfoA;
  225.   {$EXTERNALSYM PSecPkgInfo}
  226.   TSecPkgInfo = TSecPkgInfoA;
  227. {$ENDIF}
  229. //
  230. //  Security Package Capabilities
  231. //
  233. const
  234.   SECPKG_FLAG_INTEGRITY         = $00000001; // Supports integrity on messages
  235.   {$EXTERNALSYM SECPKG_FLAG_INTEGRITY}
  236.   SECPKG_FLAG_PRIVACY           = $00000002; // Supports privacy (confidentiality)
  237.   {$EXTERNALSYM SECPKG_FLAG_PRIVACY}
  238.   SECPKG_FLAG_TOKEN_ONLY        = $00000004; // Only security token needed
  239.   {$EXTERNALSYM SECPKG_FLAG_TOKEN_ONLY}
  240.   SECPKG_FLAG_DATAGRAM          = $00000008; // Datagram RPC support
  241.   {$EXTERNALSYM SECPKG_FLAG_DATAGRAM}
  242.   SECPKG_FLAG_CONNECTION        = $00000010; // Connection oriented RPC support
  243.   {$EXTERNALSYM SECPKG_FLAG_CONNECTION}
  244.   SECPKG_FLAG_MULTI_REQUIRED    = $00000020; // Full 3-leg required for re-auth.
  245.   {$EXTERNALSYM SECPKG_FLAG_MULTI_REQUIRED}
  246.   SECPKG_FLAG_CLIENT_ONLY       = $00000040; // Server side functionality not available
  247.   {$EXTERNALSYM SECPKG_FLAG_CLIENT_ONLY}
  248.   SECPKG_FLAG_EXTENDED_ERROR    = $00000080; // Supports extended error msgs
  249.   {$EXTERNALSYM SECPKG_FLAG_EXTENDED_ERROR}
  250.   SECPKG_FLAG_IMPERSONATION     = $00000100; // Supports impersonation
  251.   {$EXTERNALSYM SECPKG_FLAG_IMPERSONATION}
  252.   SECPKG_FLAG_ACCEPT_WIN32_NAME = $00000200; // Accepts Win32 names
  253.   {$EXTERNALSYM SECPKG_FLAG_ACCEPT_WIN32_NAME}
  254.   SECPKG_FLAG_STREAM            = $00000400; // Supports stream semantics
  255.   {$EXTERNALSYM SECPKG_FLAG_STREAM}
  256.   SECPKG_FLAG_NEGOTIABLE        = $00000800; // Can be used by the negotiate package
  257.   {$EXTERNALSYM SECPKG_FLAG_NEGOTIABLE}
  258.   SECPKG_FLAG_GSS_COMPATIBLE    = $00001000; // GSS Compatibility Available
  259.   {$EXTERNALSYM SECPKG_FLAG_GSS_COMPATIBLE}
  260.   SECPKG_FLAG_LOGON             = $00002000; // Supports common LsaLogonUser
  261.   {$EXTERNALSYM SECPKG_FLAG_LOGON}
  262.   SECPKG_FLAG_ASCII_BUFFERS     = $00004000; // Token Buffers are in ASCII
  263.   {$EXTERNALSYM SECPKG_FLAG_ASCII_BUFFERS}
  264.   SECPKG_FLAG_FRAGMENT          = $00008000; // Package can fragment to fit
  265.   {$EXTERNALSYM SECPKG_FLAG_FRAGMENT}
  266.   SECPKG_FLAG_MUTUAL_AUTH       = $00010000; // Package can perform mutual authentication
  267.   {$EXTERNALSYM SECPKG_FLAG_MUTUAL_AUTH}
  268.   SECPKG_FLAG_DELEGATION        = $00020000; // Package can delegate
  269.   {$EXTERNALSYM SECPKG_FLAG_DELEGATION}
  271.   SECPKG_ID_NONE = $FFFF;
  272.   {$EXTERNALSYM SECPKG_ID_NONE}
  274. //
  275. // SecBuffer
  276. //
  277. //  Generic memory descriptors for buffers passed in to the security
  278. //  API
  279. //
  281. type
  282.   PSecBuffer = ^SecBuffer;
  283.   {$EXTERNALSYM PSecBuffer}
  284.   _SecBuffer = record
  285.     cbBuffer: Cardinal;   // Size of the buffer, in bytes
  286.     BufferType: Cardinal; // Type of the buffer (below)
  287.     pvBuffer: Pointer;    // Pointer to the buffer
  288.   end;
  289.   {$EXTERNALSYM _SecBuffer}
  290.   SecBuffer = _SecBuffer;
  291.   {$EXTERNALSYM SecBuffer}
  292.   TSecBuffer = SecBuffer;
  294.   PSecBufferDesc = ^SecBufferDesc;
  295.   {$EXTERNALSYM PSecBufferDesc}
  296.   _SecBufferDesc = record
  297.     ulVersion: Cardinal;  // Version number
  298.     cBuffers: Cardinal;   // Number of buffers
  299.     pBuffers: PSecBuffer; // Pointer to array of buffers
  300.   end;
  301.   {$EXTERNALSYM _SecBufferDesc}
  302.   SecBufferDesc = _SecBufferDesc;
  303.   {$EXTERNALSYM SecBufferDesc}
  304.   TSecBufferDesc = SecBufferDesc;
  306. const
  307.   SECBUFFER_VERSION = 0;
  308.   {$EXTERNALSYM SECBUFFER_VERSION}
  310.   SECBUFFER_EMPTY              = 0; // Undefined, replaced by provider
  311.   {$EXTERNALSYM SECBUFFER_EMPTY}
  312.   SECBUFFER_DATA               = 1; // Packet data
  313.   {$EXTERNALSYM SECBUFFER_DATA}
  314.   SECBUFFER_TOKEN              = 2; // Security token
  315.   {$EXTERNALSYM SECBUFFER_TOKEN}
  316.   SECBUFFER_PKG_PARAMS         = 3; // Package specific parameters
  317.   {$EXTERNALSYM SECBUFFER_PKG_PARAMS}
  318.   SECBUFFER_MISSING            = 4; // Missing Data indicator
  319.   {$EXTERNALSYM SECBUFFER_MISSING}
  320.   SECBUFFER_EXTRA              = 5; // Extra data
  321.   {$EXTERNALSYM SECBUFFER_EXTRA}
  322.   SECBUFFER_STREAM_TRAILER     = 6; // Security Trailer
  323.   {$EXTERNALSYM SECBUFFER_STREAM_TRAILER}
  324.   SECBUFFER_STREAM_HEADER      = 7; // Security Header
  325.   {$EXTERNALSYM SECBUFFER_STREAM_HEADER}
  326.   SECBUFFER_NEGOTIATION_INFO   = 8; // Hints from the negotiation pkg
  327.   {$EXTERNALSYM SECBUFFER_NEGOTIATION_INFO}
  328.   SECBUFFER_PADDING            = 9; // non-data padding
  329.   {$EXTERNALSYM SECBUFFER_PADDING}
  330.   SECBUFFER_STREAM             = 10; // whole encrypted message
  331.   {$EXTERNALSYM SECBUFFER_STREAM}
  332.   SECBUFFER_MECHLIST           = 11;
  333.   {$EXTERNALSYM SECBUFFER_MECHLIST}
  334.   SECBUFFER_MECHLIST_SIGNATURE = 12;
  335.   {$EXTERNALSYM SECBUFFER_MECHLIST_SIGNATURE}
  336.   SECBUFFER_TARGET             = 13;
  337.   {$EXTERNALSYM SECBUFFER_TARGET}
  338.   SECBUFFER_CHANNEL_BINDINGS   = 14;
  339.   {$EXTERNALSYM SECBUFFER_CHANNEL_BINDINGS}
  341.   SECBUFFER_ATTRMASK = DWORD($F0000000);
  342.   {$EXTERNALSYM SECBUFFER_ATTRMASK}
  343.   SECBUFFER_READONLY = DWORD($80000000); // Buffer is read-only
  344.   {$EXTERNALSYM SECBUFFER_READONLY}
  345.   SECBUFFER_READONLY_WITH_CHECKSUM = $10000000;  // Buffer is read-only, and checksummed
  346.   {$EXTERNALSYM SECBUFFER_READONLY_WITH_CHECKSUM}
  347.   SECBUFFER_RESERVED = DWORD($60000000); // Flags reserved to security system
  348.   {$EXTERNALSYM SECBUFFER_RESERVED}
  350. type
  351.   PSEC_NEGOTIATION_INFO = ^SEC_NEGOTIATION_INFO;
  352.   {$EXTERNALSYM PSEC_NEGOTIATION_INFO}
  353.   _SEC_NEGOTIATION_INFO = record
  354.     Size: Cardinal;       // Size of this structure
  355.     NameLength: Cardinal; // Length of name hint
  356.     Name: PSecWChar;     // Name hint
  357.     Reserved: Pointer;    // Reserved
  358.   end;
  359.   {$EXTERNALSYM _SEC_NEGOTIATION_INFO}
  360.   SEC_NEGOTIATION_INFO = _SEC_NEGOTIATION_INFO;
  361.   {$EXTERNALSYM SEC_NEGOTIATION_INFO}
  362.   TSecNegotiationInfo = SEC_NEGOTIATION_INFO;
  363.   PSecNegotiationInfo = PSEC_NEGOTIATION_INFO;
  365.   _SEC_CHANNEL_BINDINGS = record
  366.     dwInitiatorAddrType: Cardinal;
  367.     cbInitiatorLength: Cardinal;
  368.     dwInitiatorOffset: Cardinal;
  369.     dwAcceptorAddrType: Cardinal;
  370.     cbAcceptorLength: Cardinal;
  371.     dwAcceptorOffset: Cardinal;
  372.     cbApplicationDataLength: Cardinal;
  373.     dwApplicationDataOffset: Cardinal;
  374.   end;
  375.   {$EXTERNALSYM _SEC_CHANNEL_BINDINGS}
  376.   SEC_CHANNEL_BINDINGS = _SEC_CHANNEL_BINDINGS;
  377.   {$EXTERNALSYM SEC_CHANNEL_BINDINGS}
  378.   PSEC_CHANNEL_BINDINGS = ^SEC_CHANNEL_BINDINGS;
  379.   {$EXTERNALSYM PSEC_CHANNEL_BINDINGS}
  380.   TSecChannelBindings = SEC_CHANNEL_BINDINGS;
  381.   PSecChannelBindings = PSEC_CHANNEL_BINDINGS;  
  383. //
  384. //  Data Representation Constant:
  385. //
  387. const
  388.   SECURITY_NATIVE_DREP  = $00000010;
  389.   {$EXTERNALSYM SECURITY_NATIVE_DREP}
  390.   SECURITY_NETWORK_DREP = $00000000;
  391.   {$EXTERNALSYM SECURITY_NETWORK_DREP}
  393. //
  394. //  Credential Use Flags
  395. //
  397.   SECPKG_CRED_INBOUND  = $00000001;
  398.   {$EXTERNALSYM SECPKG_CRED_INBOUND}
  399.   SECPKG_CRED_OUTBOUND = $00000002;
  400.   {$EXTERNALSYM SECPKG_CRED_OUTBOUND}
  401.   SECPKG_CRED_BOTH     = $00000003;
  402.   {$EXTERNALSYM SECPKG_CRED_BOTH}
  403.   SECPKG_CRED_DEFAULT  = $00000004;
  404.   {$EXTERNALSYM SECPKG_CRED_DEFAULT}
  405.   SECPKG_CRED_RESERVED = DWORD($F0000000);
  406.   {$EXTERNALSYM SECPKG_CRED_RESERVED}
  408. //
  409. //  InitializeSecurityContext Requirement and return flags:
  410. //
  412.   ISC_REQ_DELEGATE               = $00000001;
  413.   {$EXTERNALSYM ISC_REQ_DELEGATE}
  414.   ISC_REQ_MUTUAL_AUTH            = $00000002;
  415.   {$EXTERNALSYM ISC_REQ_MUTUAL_AUTH}
  416.   ISC_REQ_REPLAY_DETECT          = $00000004;
  417.   {$EXTERNALSYM ISC_REQ_REPLAY_DETECT}
  418.   ISC_REQ_SEQUENCE_DETECT        = $00000008;
  419.   {$EXTERNALSYM ISC_REQ_SEQUENCE_DETECT}
  420.   ISC_REQ_CONFIDENTIALITY        = $00000010;
  421.   {$EXTERNALSYM ISC_REQ_CONFIDENTIALITY}
  422.   ISC_REQ_USE_SESSION_KEY        = $00000020;
  423.   {$EXTERNALSYM ISC_REQ_USE_SESSION_KEY}
  424.   ISC_REQ_PROMPT_FOR_CREDS       = $00000040;
  425.   {$EXTERNALSYM ISC_REQ_PROMPT_FOR_CREDS}
  426.   ISC_REQ_USE_SUPPLIED_CREDS     = $00000080;
  427.   {$EXTERNALSYM ISC_REQ_USE_SUPPLIED_CREDS}
  428.   ISC_REQ_ALLOCATE_MEMORY        = $00000100;
  429.   {$EXTERNALSYM ISC_REQ_ALLOCATE_MEMORY}
  430.   ISC_REQ_USE_DCE_STYLE          = $00000200;
  431.   {$EXTERNALSYM ISC_REQ_USE_DCE_STYLE}
  432.   ISC_REQ_DATAGRAM               = $00000400;
  433.   {$EXTERNALSYM ISC_REQ_DATAGRAM}
  434.   ISC_REQ_CONNECTION             = $00000800;
  435.   {$EXTERNALSYM ISC_REQ_CONNECTION}
  436.   ISC_REQ_CALL_LEVEL             = $00001000;
  437.   {$EXTERNALSYM ISC_REQ_CALL_LEVEL}
  438.   ISC_REQ_FRAGMENT_SUPPLIED      = $00002000;
  439.   {$EXTERNALSYM ISC_REQ_FRAGMENT_SUPPLIED}
  440.   ISC_REQ_EXTENDED_ERROR         = $00004000;
  441.   {$EXTERNALSYM ISC_REQ_EXTENDED_ERROR}
  442.   ISC_REQ_STREAM                 = $00008000;
  443.   {$EXTERNALSYM ISC_REQ_STREAM}
  444.   ISC_REQ_INTEGRITY              = $00010000;
  445.   {$EXTERNALSYM ISC_REQ_INTEGRITY}
  446.   ISC_REQ_IDENTIFY               = $00020000;
  447.   {$EXTERNALSYM ISC_REQ_IDENTIFY}
  448.   ISC_REQ_NULL_SESSION           = $00040000;
  449.   {$EXTERNALSYM ISC_REQ_NULL_SESSION}
  450.   ISC_REQ_MANUAL_CRED_VALIDATION = $00080000;
  451.   {$EXTERNALSYM ISC_REQ_MANUAL_CRED_VALIDATION}
  452.   ISC_REQ_RESERVED1              = $00100000;
  453.   {$EXTERNALSYM ISC_REQ_RESERVED1}
  454.   ISC_REQ_FRAGMENT_TO_FIT        = $00200000;
  455.   {$EXTERNALSYM ISC_REQ_FRAGMENT_TO_FIT}
  457.   ISC_RET_DELEGATE               = $00000001;
  458.   {$EXTERNALSYM ISC_RET_DELEGATE}
  459.   ISC_RET_MUTUAL_AUTH            = $00000002;
  460.   {$EXTERNALSYM ISC_RET_MUTUAL_AUTH}
  461.   ISC_RET_REPLAY_DETECT          = $00000004;
  462.   {$EXTERNALSYM ISC_RET_REPLAY_DETECT}
  463.   ISC_RET_SEQUENCE_DETECT        = $00000008;
  464.   {$EXTERNALSYM ISC_RET_SEQUENCE_DETECT}
  465.   ISC_RET_CONFIDENTIALITY        = $00000010;
  466.   {$EXTERNALSYM ISC_RET_CONFIDENTIALITY}
  467.   ISC_RET_USE_SESSION_KEY        = $00000020;
  468.   {$EXTERNALSYM ISC_RET_USE_SESSION_KEY}
  469.   ISC_RET_USED_COLLECTED_CREDS   = $00000040;
  470.   {$EXTERNALSYM ISC_RET_USED_COLLECTED_CREDS}
  471.   ISC_RET_USED_SUPPLIED_CREDS    = $00000080;
  472.   {$EXTERNALSYM ISC_RET_USED_SUPPLIED_CREDS}
  473.   ISC_RET_ALLOCATED_MEMORY       = $00000100;
  474.   {$EXTERNALSYM ISC_RET_ALLOCATED_MEMORY}
  475.   ISC_RET_USED_DCE_STYLE         = $00000200;
  476.   {$EXTERNALSYM ISC_RET_USED_DCE_STYLE}
  477.   ISC_RET_DATAGRAM               = $00000400;
  478.   {$EXTERNALSYM ISC_RET_DATAGRAM}
  479.   ISC_RET_CONNECTION             = $00000800;
  480.   {$EXTERNALSYM ISC_RET_CONNECTION}
  481.   ISC_RET_INTERMEDIATE_RETURN    = $00001000;
  482.   {$EXTERNALSYM ISC_RET_INTERMEDIATE_RETURN}
  483.   ISC_RET_CALL_LEVEL             = $00002000;
  484.   {$EXTERNALSYM ISC_RET_CALL_LEVEL}
  485.   ISC_RET_EXTENDED_ERROR         = $00004000;
  486.   {$EXTERNALSYM ISC_RET_EXTENDED_ERROR}
  487.   ISC_RET_STREAM                 = $00008000;
  488.   {$EXTERNALSYM ISC_RET_STREAM}
  489.   ISC_RET_INTEGRITY              = $00010000;
  490.   {$EXTERNALSYM ISC_RET_INTEGRITY}
  491.   ISC_RET_IDENTIFY               = $00020000;
  492.   {$EXTERNALSYM ISC_RET_IDENTIFY}
  493.   ISC_RET_NULL_SESSION           = $00040000;
  494.   {$EXTERNALSYM ISC_RET_NULL_SESSION}
  495.   ISC_RET_MANUAL_CRED_VALIDATION = $00080000;
  496.   {$EXTERNALSYM ISC_RET_MANUAL_CRED_VALIDATION}
  497.   ISC_RET_RESERVED1              = $00100000;
  498.   {$EXTERNALSYM ISC_RET_RESERVED1}
  499.   ISC_RET_FRAGMENT_ONLY          = $00200000;
  500.   {$EXTERNALSYM ISC_RET_FRAGMENT_ONLY}
  502.   ASC_REQ_DELEGATE              = $00000001;
  503.   {$EXTERNALSYM ASC_REQ_DELEGATE}
  504.   ASC_REQ_MUTUAL_AUTH           = $00000002;
  505.   {$EXTERNALSYM ASC_REQ_MUTUAL_AUTH}
  506.   ASC_REQ_REPLAY_DETECT         = $00000004;
  507.   {$EXTERNALSYM ASC_REQ_REPLAY_DETECT}
  508.   ASC_REQ_SEQUENCE_DETECT       = $00000008;
  509.   {$EXTERNALSYM ASC_REQ_SEQUENCE_DETECT}
  510.   ASC_REQ_CONFIDENTIALITY       = $00000010;
  511.   {$EXTERNALSYM ASC_REQ_CONFIDENTIALITY}
  512.   ASC_REQ_USE_SESSION_KEY       = $00000020;
  513.   {$EXTERNALSYM ASC_REQ_USE_SESSION_KEY}
  514.   ASC_REQ_ALLOCATE_MEMORY       = $00000100;
  515.   {$EXTERNALSYM ASC_REQ_ALLOCATE_MEMORY}
  516.   ASC_REQ_USE_DCE_STYLE         = $00000200;
  517.   {$EXTERNALSYM ASC_REQ_USE_DCE_STYLE}
  518.   ASC_REQ_DATAGRAM              = $00000400;
  519.   {$EXTERNALSYM ASC_REQ_DATAGRAM}
  520.   ASC_REQ_CONNECTION            = $00000800;
  521.   {$EXTERNALSYM ASC_REQ_CONNECTION}
  522.   ASC_REQ_CALL_LEVEL            = $00001000;
  523.   {$EXTERNALSYM ASC_REQ_CALL_LEVEL}
  524.   ASC_REQ_EXTENDED_ERROR        = $00008000;
  525.   {$EXTERNALSYM ASC_REQ_EXTENDED_ERROR}
  526.   ASC_REQ_STREAM                = $00010000;
  527.   {$EXTERNALSYM ASC_REQ_STREAM}
  528.   ASC_REQ_INTEGRITY             = $00020000;
  529.   {$EXTERNALSYM ASC_REQ_INTEGRITY}
  530.   ASC_REQ_LICENSING             = $00040000;
  531.   {$EXTERNALSYM ASC_REQ_LICENSING}
  532.   ASC_REQ_IDENTIFY              = $00080000;
  533.   {$EXTERNALSYM ASC_REQ_IDENTIFY}
  534.   ASC_REQ_ALLOW_NULL_SESSION    = $00100000;
  535.   {$EXTERNALSYM ASC_REQ_ALLOW_NULL_SESSION}
  536.   ASC_REQ_ALLOW_NON_USER_LOGONS = $00200000;
  537.   {$EXTERNALSYM ASC_REQ_ALLOW_NON_USER_LOGONS}
  538.   ASC_REQ_ALLOW_CONTEXT_REPLAY  = $00400000;
  539.   {$EXTERNALSYM ASC_REQ_ALLOW_CONTEXT_REPLAY}
  540.   ASC_REQ_FRAGMENT_TO_FIT       = $00800000;
  541.   {$EXTERNALSYM ASC_REQ_FRAGMENT_TO_FIT}
  542.   ASC_REQ_FRAGMENT_SUPPLIED     = $00002000;
  543.   {$EXTERNALSYM ASC_REQ_FRAGMENT_SUPPLIED}
  544.   ASC_REQ_NO_TOKEN              = $01000000;
  545.   {$EXTERNALSYM ASC_REQ_NO_TOKEN}
  547.   ASC_RET_DELEGATE              = $00000001;
  548.   {$EXTERNALSYM ASC_RET_DELEGATE}
  549.   ASC_RET_MUTUAL_AUTH           = $00000002;
  550.   {$EXTERNALSYM ASC_RET_MUTUAL_AUTH}
  551.   ASC_RET_REPLAY_DETECT         = $00000004;
  552.   {$EXTERNALSYM ASC_RET_REPLAY_DETECT}
  553.   ASC_RET_SEQUENCE_DETECT       = $00000008;
  554.   {$EXTERNALSYM ASC_RET_SEQUENCE_DETECT}
  555.   ASC_RET_CONFIDENTIALITY       = $00000010;
  556.   {$EXTERNALSYM ASC_RET_CONFIDENTIALITY}
  557.   ASC_RET_USE_SESSION_KEY       = $00000020;
  558.   {$EXTERNALSYM ASC_RET_USE_SESSION_KEY}
  559.   ASC_RET_ALLOCATED_MEMORY      = $00000100;
  560.   {$EXTERNALSYM ASC_RET_ALLOCATED_MEMORY}
  561.   ASC_RET_USED_DCE_STYLE        = $00000200;
  562.   {$EXTERNALSYM ASC_RET_USED_DCE_STYLE}
  563.   ASC_RET_DATAGRAM              = $00000400;
  564.   {$EXTERNALSYM ASC_RET_DATAGRAM}
  565.   ASC_RET_CONNECTION            = $00000800;
  566.   {$EXTERNALSYM ASC_RET_CONNECTION}
  567.   ASC_RET_CALL_LEVEL            = $00002000; // skipped 1000 to be like ISC_
  568.   {$EXTERNALSYM ASC_RET_CALL_LEVEL}
  569.   ASC_RET_THIRD_LEG_FAILED      = $00004000;
  570.   {$EXTERNALSYM ASC_RET_THIRD_LEG_FAILED}
  571.   ASC_RET_EXTENDED_ERROR        = $00008000;
  572.   {$EXTERNALSYM ASC_RET_EXTENDED_ERROR}
  573.   ASC_RET_STREAM                = $00010000;
  574.   {$EXTERNALSYM ASC_RET_STREAM}
  575.   ASC_RET_INTEGRITY             = $00020000;
  576.   {$EXTERNALSYM ASC_RET_INTEGRITY}
  577.   ASC_RET_LICENSING             = $00040000;
  578.   {$EXTERNALSYM ASC_RET_LICENSING}
  579.   ASC_RET_IDENTIFY              = $00080000;
  580.   {$EXTERNALSYM ASC_RET_IDENTIFY}
  581.   ASC_RET_NULL_SESSION          = $00100000;
  582.   {$EXTERNALSYM ASC_RET_NULL_SESSION}
  583.   ASC_RET_ALLOW_NON_USER_LOGONS = $00200000;
  584.   {$EXTERNALSYM ASC_RET_ALLOW_NON_USER_LOGONS}
  585.   ASC_RET_ALLOW_CONTEXT_REPLAY  = $00400000;
  586.   {$EXTERNALSYM ASC_RET_ALLOW_CONTEXT_REPLAY}
  587.   ASC_RET_FRAGMENT_ONLY         = $00800000;
  588.   {$EXTERNALSYM ASC_RET_FRAGMENT_ONLY}
  589.   ASC_RET_NO_TOKEN              = $01000000;
  590.   {$EXTERNALSYM ASC_RET_NO_TOKEN}
  592. //
  593. //  Security Credentials Attributes:
  594. //
  596.   SECPKG_CRED_ATTR_NAMES = 1;
  597.   {$EXTERNALSYM SECPKG_CRED_ATTR_NAMES}
  599. type
  600.   PSecPkgCredentials_NamesW = ^SecPkgCredentials_NamesW;
  601.   {$EXTERNALSYM PSecPkgCredentials_NamesW}
  602.   _SecPkgCredentials_NamesW = record
  603.     sUserName: PSecWChar;
  604.   end;
  605.   {$EXTERNALSYM _SecPkgCredentials_NamesW}
  606.   SecPkgCredentials_NamesW = _SecPkgCredentials_NamesW;
  607.   {$EXTERNALSYM SecPkgCredentials_NamesW}
  608.   TSecPkgCredentialsNamesW = SecPkgCredentials_NamesW;
  609.   PSecPkgCredentialsNamesW = PSecPkgCredentials_NamesW;
  611.   PSecPkgCredentials_NamesA = ^SecPkgCredentials_NamesA;
  612.   {$EXTERNALSYM PSecPkgCredentials_NamesA}
  613.   _SecPkgCredentials_NamesA = record
  614.     sUserName: PSecChar;
  615.   end;
  616.   {$EXTERNALSYM _SecPkgCredentials_NamesA}
  617.   SecPkgCredentials_NamesA = _SecPkgCredentials_NamesA;
  618.   {$EXTERNALSYM SecPkgCredentials_NamesA}
  619.   TSecPkgCredentialsNamesA = SecPkgCredentials_NamesA;
  620.   PSecPkgCredentialsNamesA = PSecPkgCredentials_NamesA;
  622. {$IFDEF UNICODE}
  623.   SecPkgCredentials_Names = SecPkgCredentials_NamesW;
  624.   {$EXTERNALSYM SecPkgCredentials_Names}
  625.   PSecPkgCredentials_Names = PSecPkgCredentials_NamesW;
  626.   {$EXTERNALSYM PSecPkgCredentials_Names}
  627.   TSecPkgCredentialsNames = TSecPkgCredentialsNamesW;
  628.   PSecPkgCredentialsNames = PSecPkgCredentialsNamesW;
  629. {$ELSE}
  630.   SecPkgCredentials_Names = SecPkgCredentials_NamesA;
  631.   {$EXTERNALSYM SecPkgCredentials_Names}
  632.   PSecPkgCredentials_Names = PSecPkgCredentials_NamesA;
  633.   {$EXTERNALSYM PSecPkgCredentials_Names}
  634.   TSecPkgCredentialsNames = TSecPkgCredentialsNamesA;
  635.   PSecPkgCredentialsNames = PSecPkgCredentialsNamesA;
  636. {$ENDIF}
  638. //
  639. //  Security Context Attributes:
  640. //
  642. const
  643.   SECPKG_ATTR_SIZES            = 0;
  644.   {$EXTERNALSYM SECPKG_ATTR_SIZES}
  645.   SECPKG_ATTR_NAMES            = 1;
  646.   {$EXTERNALSYM SECPKG_ATTR_NAMES}
  647.   SECPKG_ATTR_LIFESPAN         = 2;
  648.   {$EXTERNALSYM SECPKG_ATTR_LIFESPAN}
  649.   SECPKG_ATTR_DCE_INFO         = 3;
  650.   {$EXTERNALSYM SECPKG_ATTR_DCE_INFO}
  651.   SECPKG_ATTR_STREAM_SIZES     = 4;
  652.   {$EXTERNALSYM SECPKG_ATTR_STREAM_SIZES}
  653.   SECPKG_ATTR_KEY_INFO         = 5;
  654.   {$EXTERNALSYM SECPKG_ATTR_KEY_INFO}
  655.   SECPKG_ATTR_AUTHORITY        = 6;
  656.   {$EXTERNALSYM SECPKG_ATTR_AUTHORITY}
  657.   SECPKG_ATTR_PROTO_INFO       = 7;
  658.   {$EXTERNALSYM SECPKG_ATTR_PROTO_INFO}
  659.   SECPKG_ATTR_PASSWORD_EXPIRY  = 8;
  660.   {$EXTERNALSYM SECPKG_ATTR_PASSWORD_EXPIRY}
  661.   SECPKG_ATTR_SESSION_KEY      = 9;
  662.   {$EXTERNALSYM SECPKG_ATTR_SESSION_KEY}
  663.   SECPKG_ATTR_PACKAGE_INFO     = 10;
  664.   {$EXTERNALSYM SECPKG_ATTR_PACKAGE_INFO}
  665.   SECPKG_ATTR_USER_FLAGS       = 11;
  666.   {$EXTERNALSYM SECPKG_ATTR_USER_FLAGS}
  667.   SECPKG_ATTR_NEGOTIATION_INFO = 12;
  668.   {$EXTERNALSYM SECPKG_ATTR_NEGOTIATION_INFO}
  669.   SECPKG_ATTR_NATIVE_NAMES     = 13;
  670.   {$EXTERNALSYM SECPKG_ATTR_NATIVE_NAMES}
  671.   SECPKG_ATTR_FLAGS            = 14;
  672.   {$EXTERNALSYM SECPKG_ATTR_FLAGS}
  673.   SECPKG_ATTR_USE_VALIDATED    = 15;
  674.   {$EXTERNALSYM SECPKG_ATTR_USE_VALIDATED}
  675.   SECPKG_ATTR_CREDENTIAL_NAME  = 16;
  676.   {$EXTERNALSYM SECPKG_ATTR_CREDENTIAL_NAME}
  677.   SECPKG_ATTR_TARGET_INFORMATION = 17;
  678.   {$EXTERNALSYM SECPKG_ATTR_TARGET_INFORMATION}
  679.   SECPKG_ATTR_ACCESS_TOKEN     = 18;
  680.   {$EXTERNALSYM SECPKG_ATTR_ACCESS_TOKEN}
  681.   SECPKG_ATTR_TARGET           = 19;
  682.   {$EXTERNALSYM SECPKG_ATTR_TARGET}
  683.   SECPKG_ATTR_AUTHENTICATION_ID = 20;
  684.   {$EXTERNALSYM SECPKG_ATTR_AUTHENTICATION_ID}
  686. type
  687.   PSecPkgContext_Sizes = ^SecPkgContext_Sizes;
  688.   {$EXTERNALSYM PSecPkgContext_Sizes}
  689.   _SecPkgContext_Sizes = record
  690.     cbMaxToken: Cardinal;
  691.     cbMaxSignature: Cardinal;
  692.     cbBlockSize: Cardinal;
  693.     cbSecurityTrailer: Cardinal;
  694.   end;
  695.   {$EXTERNALSYM _SecPkgContext_Sizes}
  696.   SecPkgContext_Sizes = _SecPkgContext_Sizes;
  697.   {$EXTERNALSYM SecPkgContext_Sizes}
  698.   TSecPkgContextSizes = SecPkgContext_Sizes;
  699.   PSecPkgContextSizes = PSecPkgContext_Sizes;
  701.   PSecPkgContext_StreamSizes = ^SecPkgContext_StreamSizes;
  702.   {$EXTERNALSYM PSecPkgContext_StreamSizes}
  703.   _SecPkgContext_StreamSizes = record
  704.     cbHeader: Cardinal;
  705.     cbTrailer: Cardinal;
  706.     cbMaximumMessage: Cardinal;
  707.     cBuffers: Cardinal;
  708.     cbBlockSize: Cardinal;
  709.   end;
  710.   {$EXTERNALSYM _SecPkgContext_StreamSizes}
  711.   SecPkgContext_StreamSizes = _SecPkgContext_StreamSizes;
  712.   {$EXTERNALSYM SecPkgContext_StreamSizes}
  713.   TSecPkgContextStreamSizes = SecPkgContext_StreamSizes;
  714.   PSecPkgContextStreamSizes = PSecPkgContext_StreamSizes;
  716.   PSecPkgContext_NamesW = ^SecPkgContext_NamesW;
  717.   {$EXTERNALSYM PSecPkgContext_NamesW}
  718.   _SecPkgContext_NamesW = record
  719.     sUserName: PSecWChar;
  720.   end;
  721.   {$EXTERNALSYM _SecPkgContext_NamesW}
  722.   SecPkgContext_NamesW = _SecPkgContext_NamesW;
  723.   {$EXTERNALSYM SecPkgContext_NamesW}
  724.   TSecPkgContextNamesW = SecPkgContext_NamesW;
  725.   PSecPkgContextNamesW = PSecPkgContext_NamesW;
  727.   PSecPkgContext_NamesA = ^SecPkgContext_NamesA;
  728.   {$EXTERNALSYM PSecPkgContext_NamesA}
  729.   _SecPkgContext_NamesA = record
  730.     sUserName: PSecChar;
  731.   end;
  732.   {$EXTERNALSYM _SecPkgContext_NamesA}
  733.   SecPkgContext_NamesA = _SecPkgContext_NamesA;
  734.   {$EXTERNALSYM SecPkgContext_NamesA}
  735.   TSecPkgContextNamesA = SecPkgContext_NamesA;
  736.   PSecPkgContextNamesA = PSecPkgContext_NamesA;
  738. {$IFDEF UNICODE}
  739.   SecPkgContext_Names = SecPkgContext_NamesW;
  740.   {$EXTERNALSYM SecPkgContext_Names}
  741.   PSecPkgContext_Names = PSecPkgContext_NamesW;
  742.   {$EXTERNALSYM PSecPkgContext_Names}
  743.   TSecPkgContextNames = TSecPkgContextNamesW;
  744.   PSecPkgContextNames = PSecPkgContextNamesW;
  745. {$ELSE}
  746.   SecPkgContext_Names = SecPkgContext_NamesA;
  747.   {$EXTERNALSYM SecPkgContext_Names}
  748.   PSecPkgContext_Names = PSecPkgContext_NamesA;
  749.   {$EXTERNALSYM PSecPkgContext_Names}
  750.   TSecPkgContextNames = TSecPkgContextNamesA;
  751.   PSecPkgContextNames = PSecPkgContextNamesA;
  752. {$ENDIF}
  754.   PSecPkgContext_LifeSpan = ^SecPkgContext_LifeSpan;
  755.   {$EXTERNALSYM PSecPkgContext_LifeSpan}
  756.   _SecPkgContext_Lifespan = record
  757.     tsStart: TimeStamp;
  758.     tsExpiry: TimeStamp;
  759.   end;
  760.   {$EXTERNALSYM _SecPkgContext_Lifespan}
  761.   SecPkgContext_Lifespan = _SecPkgContext_Lifespan;
  762.   {$EXTERNALSYM SecPkgContext_Lifespan}
  763.   TSecPkgContextLifeSpan = SecPkgContext_Lifespan;
  764.   PSecPkgContextLifeSpan = PSecPkgContext_LifeSpan;
  766.   PSecPkgContext_DceInfo = ^SecPkgContext_DceInfo;
  767.   {$EXTERNALSYM PSecPkgContext_DceInfo}
  768.   _SecPkgContext_DceInfo = record
  769.     AuthzSvc: Cardinal;
  770.     pPac: Pointer;
  771.   end;
  772.   {$EXTERNALSYM _SecPkgContext_DceInfo}
  773.   SecPkgContext_DceInfo = _SecPkgContext_DceInfo;
  774.   {$EXTERNALSYM SecPkgContext_DceInfo}
  775.   TSecPkgContextDceInfo = SecPkgContext_DceInfo;
  776.   PSecPkgContextDceInfo = PSecPkgContext_DceInfo;
  778.   PSecPkgContext_KeyInfoA = ^SecPkgContext_KeyInfoA;
  779.   {$EXTERNALSYM PSecPkgContext_KeyInfoA}
  780.   _SecPkgContext_KeyInfoA = record
  781.     sSignatureAlgorithmName: PSecChar;
  782.     sEncryptAlgorithmName: PSecChar;
  783.     KeySize: Cardinal;
  784.     SignatureAlgorithm: Cardinal;
  785.     EncryptAlgorithm: Cardinal;
  786.   end;
  787.   {$EXTERNALSYM _SecPkgContext_KeyInfoA}
  788.   SecPkgContext_KeyInfoA = _SecPkgContext_KeyInfoA;
  789.   {$EXTERNALSYM SecPkgContext_KeyInfoA}
  790.   TSecPkgContextKeyInfoA = SecPkgContext_KeyInfoA;
  791.   PSecPkgContextKeyInfoA = PSecPkgContext_KeyInfoA;
  793.   PSecPkgContext_KeyInfoW = ^SecPkgContext_KeyInfoW;
  794.   {$EXTERNALSYM PSecPkgContext_KeyInfoW}
  795.   _SecPkgContext_KeyInfoW = record
  796.     sSignatureAlgorithmName: PSecWChar;
  797.     sEncryptAlgorithmName: PSecWChar;
  798.     KeySize: Cardinal;
  799.     SignatureAlgorithm: Cardinal;
  800.     EncryptAlgorithm: Cardinal;
  801.   end;
  802.   {$EXTERNALSYM _SecPkgContext_KeyInfoW}
  803.   SecPkgContext_KeyInfoW = _SecPkgContext_KeyInfoW;
  804.   {$EXTERNALSYM SecPkgContext_KeyInfoW}
  805.   TSecPkgContextKeyInfoW = SecPkgContext_KeyInfoW;
  806.   PSecPkgContextKeyInfoW = PSecPkgContext_KeyInfoW;
  808. {$IFDEF UNICODE}
  809.   SecPkgContext_KeyInfo  = SecPkgContext_KeyInfoW;
  810.   {$EXTERNALSYM SecPkgContext_KeyInfo}
  811.   PSecPkgContext_KeyInfo = PSecPkgContext_KeyInfoW;
  812.   {$EXTERNALSYM PSecPkgContext_KeyInfo}
  813.   TSecPkgContextKeyInfo = TSecPkgContextKeyInfoW;
  814.   PSecPkgContextKeyInfo = PSecPkgContextKeyInfoW;
  815. {$ELSE}
  816.   SecPkgContext_KeyInfo  = SecPkgContext_KeyInfoA;
  817.   {$EXTERNALSYM SecPkgContext_KeyInfo}
  818.   PSecPkgContext_KeyInfo = PSecPkgContext_KeyInfoA;
  819.   {$EXTERNALSYM PSecPkgContext_KeyInfo}
  820.   TSecPkgContextKeyInfo = TSecPkgContextKeyInfoA;
  821.   PSecPkgContextKeyInfo = PSecPkgContextKeyInfoA;
  822. {$ENDIF}
  824.   PSecPkgContext_AuthorityA = ^SecPkgContext_AuthorityA;
  825.   {$EXTERNALSYM PSecPkgContext_AuthorityA}
  826.   _SecPkgContext_AuthorityA = record
  827.     sAuthorityName: PSecChar;
  828.   end;
  829.   {$EXTERNALSYM _SecPkgContext_AuthorityA}
  830.   SecPkgContext_AuthorityA = _SecPkgContext_AuthorityA;
  831.   {$EXTERNALSYM SecPkgContext_AuthorityA}
  832.   TSecPkgContextAuthorityA = SecPkgContext_AuthorityA;
  833.   PSecPkgContextAuthorityA = PSecPkgContext_AuthorityA;
  835.   PSecPkgContext_AuthorityW = ^SecPkgContext_AuthorityW;
  836.   {$EXTERNALSYM PSecPkgContext_AuthorityW}
  837.   _SecPkgContext_AuthorityW = record
  838.     sAuthorityName: PSecWChar;
  839.   end;
  840.   {$EXTERNALSYM _SecPkgContext_AuthorityW}
  841.   SecPkgContext_AuthorityW = _SecPkgContext_AuthorityW;
  842.   {$EXTERNALSYM SecPkgContext_AuthorityW}
  843.   TSecPkgContextAuthorityW = SecPkgContext_AuthorityW;
  844.   PSecPkgContextAuthorityW = PSecPkgContext_AuthorityW;
  846. {$IFDEF UNICODE}
  847.   SecPkgContext_Authority  = SecPkgContext_AuthorityW;
  848.   {$EXTERNALSYM SecPkgContext_Authority}
  849.   PSecPkgContext_Authority = PSecPkgContext_AuthorityW;
  850.   {$EXTERNALSYM PSecPkgContext_Authority}
  851.   TSecPkgContextAuthority = TSecPkgContextAuthorityW;
  852.   PSecPkgContextAuthority = PSecPkgContextAuthorityW;
  853. {$ELSE}
  854.   SecPkgContext_Authority  = SecPkgContext_AuthorityA;
  855.   {$EXTERNALSYM SecPkgContext_Authority}
  856.   PSecPkgContext_Authority = PSecPkgContext_AuthorityA;
  857.   {$EXTERNALSYM PSecPkgContext_Authority}
  858.   TSecPkgContextAuthority = SecPkgContext_AuthorityA;
  859.   PSecPkgContextAuthority = PSecPkgContext_AuthorityA;
  860. {$ENDIF}
  862.   PSecPkgContext_ProtoInfoA = ^SecPkgContext_ProtoInfoA;
  863.   {$EXTERNALSYM PSecPkgContext_ProtoInfoA}
  864.   _SecPkgContext_ProtoInfoA = record
  865.     sProtocolName: PSecChar;
  866.     majorVersion: Cardinal;
  867.     minorVersion: Cardinal;
  868.   end;
  869.   {$EXTERNALSYM _SecPkgContext_ProtoInfoA}
  870.   SecPkgContext_ProtoInfoA = _SecPkgContext_ProtoInfoA;
  871.   {$EXTERNALSYM SecPkgContext_ProtoInfoA}
  872.   TSecPkgContextProtoInfoA = SecPkgContext_ProtoInfoA;
  873.   PSecPkgContextProtoInfoA = PSecPkgContext_ProtoInfoA;
  875.   PSecPkgContext_ProtoInfoW = ^SecPkgContext_ProtoInfoW;
  876.   {$EXTERNALSYM PSecPkgContext_ProtoInfoW}
  877.   _SecPkgContext_ProtoInfoW = record
  878.     sProtocolName: PSecWChar;
  879.     majorVersion: Cardinal;
  880.     minorVersion: Cardinal;
  881.   end;
  882.   {$EXTERNALSYM _SecPkgContext_ProtoInfoW}
  883.   SecPkgContext_ProtoInfoW = _SecPkgContext_ProtoInfoW;
  884.   {$EXTERNALSYM SecPkgContext_ProtoInfoW}
  885.   TSecPkgContextProtoInfoW = SecPkgContext_ProtoInfoW;
  886.   PSecPkgContextProtoInfoW = PSecPkgContext_ProtoInfoW;
  888. {$IFDEF UNICODE}
  889.   SecPkgContext_ProtoInfo  = SecPkgContext_ProtoInfoW;
  890.   {$EXTERNALSYM SecPkgContext_ProtoInfo}
  891.   PSecPkgContext_ProtoInfo = PSecPkgContext_ProtoInfoW;
  892.   {$EXTERNALSYM PSecPkgContext_ProtoInfo}
  893.   TSecPkgContextProtoInfo = TSecPkgContextProtoInfoW;
  894.   PSecPkgContextProtoInfo = PSecPkgContextProtoInfoW;
  895. {$ELSE}
  896.   SecPkgContext_ProtoInfo  = SecPkgContext_ProtoInfoA;
  897.   {$EXTERNALSYM SecPkgContext_ProtoInfo}
  898.   PSecPkgContext_ProtoInfo = PSecPkgContext_ProtoInfoA;
  899.   {$EXTERNALSYM PSecPkgContext_ProtoInfo}
  900.   TSecPkgContextProtoInfo = TSecPkgContextProtoInfoA;
  901.   PSecPkgContextProtoInfo = PSecPkgContextProtoInfoA;
  902. {$ENDIF}
  904.   PSecPkgContext_PasswordExpiry = ^SecPkgContext_PasswordExpiry;
  905.   {$EXTERNALSYM PSecPkgContext_PasswordExpiry}
  906.   _SecPkgContext_PasswordExpiry = record
  907.     tsPasswordExpires: TimeStamp;
  908.   end;
  909.   {$EXTERNALSYM _SecPkgContext_PasswordExpiry}
  910.   SecPkgContext_PasswordExpiry = _SecPkgContext_PasswordExpiry;
  911.   {$EXTERNALSYM SecPkgContext_PasswordExpiry}
  912.   TSecPkgContextPasswordExpiry = SecPkgContext_PasswordExpiry;
  913.   PSecPkgContextPasswordExpiry = PSecPkgContext_PasswordExpiry;
  915.   PSecPkgContext_SessionKey = ^SecPkgContext_SessionKey;
  916.   {$EXTERNALSYM PSecPkgContext_SessionKey}
  917.   _SecPkgContext_SessionKey = record
  918.     SessionKeyLength: Cardinal;
  919.     SessionKey: PByte;
  920.   end;
  921.   {$EXTERNALSYM _SecPkgContext_SessionKey}
  922.   SecPkgContext_SessionKey = _SecPkgContext_SessionKey;
  923.   {$EXTERNALSYM SecPkgContext_SessionKey}
  924.   TSecPkgContextSessionKey = SecPkgContext_SessionKey;
  925.   PSecPkgContextSessionKey = PSecPkgContext_SessionKey;
  927.   PSecPkgContext_PackageInfoW = ^SecPkgContext_PackageInfoW;
  928.   {$EXTERNALSYM PSecPkgContext_PackageInfoW}
  929.   _SecPkgContext_PackageInfoW = record
  930.     PackageInfo: PSecPkgInfoW;
  931.   end;
  932.   {$EXTERNALSYM _SecPkgContext_PackageInfoW}
  933.   SecPkgContext_PackageInfoW = _SecPkgContext_PackageInfoW;
  934.   {$EXTERNALSYM SecPkgContext_PackageInfoW}
  935.   TSecPkgContextPackageInfoW = SecPkgContext_PackageInfoW;
  936.   PSecPkgContextPackageInfoW = PSecPkgContext_PackageInfoW;
  938.   PSecPkgContext_PackageInfoA = ^SecPkgContext_PackageInfoA;
  939.   {$EXTERNALSYM PSecPkgContext_PackageInfoA}
  940.   _SecPkgContext_PackageInfoA = record
  941.     PackageInfo: PSecPkgInfoA;
  942.   end;
  943.   {$EXTERNALSYM _SecPkgContext_PackageInfoA}
  944.   SecPkgContext_PackageInfoA = _SecPkgContext_PackageInfoA;
  945.   {$EXTERNALSYM SecPkgContext_PackageInfoA}
  946.   TSecPkgContextPackageInfoA = SecPkgContext_PackageInfoA;
  947.   PSecPkgContextPackageInfoA = PSecPkgContext_PackageInfoA;
  949.   PSecPkgContext_UserFlags = ^SecPkgContext_UserFlags;
  950.   {$EXTERNALSYM PSecPkgContext_UserFlags}
  951.   _SecPkgContext_UserFlags = record
  952.     UserFlags: Cardinal;
  953.   end;
  954.   {$EXTERNALSYM _SecPkgContext_UserFlags}
  955.   SecPkgContext_UserFlags = _SecPkgContext_UserFlags;
  956.   {$EXTERNALSYM SecPkgContext_UserFlags}
  957.   TSecPkgContextUserFlags = SecPkgContext_UserFlags;
  958.   PSecPkgContextUserFlags = PSecPkgContext_UserFlags;
  960.   PSecPkgContext_Flags = ^SecPkgContext_Flags;
  961.   {$EXTERNALSYM PSecPkgContext_Flags}
  962.   _SecPkgContext_Flags = record
  963.     Flags: Cardinal;
  964.   end;
  965.   {$EXTERNALSYM _SecPkgContext_Flags}
  966.   SecPkgContext_Flags = _SecPkgContext_Flags;
  967.   {$EXTERNALSYM SecPkgContext_Flags}
  968.   TSecPkgContextFlags = SecPkgContext_Flags;
  969.   PSecPkgContextFlags = PSecPkgContext_Flags;
  971. {$IFDEF UNICODE}
  972.   SecPkgContext_PackageInfo  = SecPkgContext_PackageInfoW;
  973.   {$EXTERNALSYM SecPkgContext_PackageInfo}
  974.   PSecPkgContext_PackageInfo = PSecPkgContext_PackageInfoW;
  975.   {$EXTERNALSYM PSecPkgContext_PackageInfo}
  976.   TSecPkgContextPackageInfo = TSecPkgContextPackageInfoW;
  977.   PSecPkgContextPackageInfo = PSecPkgContextPackageInfoW;
  978. {$ELSE}
  979.   SecPkgContext_PackageInfo  = SecPkgContext_PackageInfoA;
  980.   {$EXTERNALSYM SecPkgContext_PackageInfo}
  981.   PSecPkgContext_PackageInfo = PSecPkgContext_PackageInfoA;
  982.   {$EXTERNALSYM PSecPkgContext_PackageInfo}
  983.   TSecPkgContextPackageInfo = TSecPkgContextPackageInfoA;
  984.   PSecPkgContextPackageInfo = PSecPkgContextPackageInfoA;
  985. {$ENDIF}
  987.   PSecPkgContext_NegotiationInfoA = ^SecPkgContext_NegotiationInfoA;
  988.   {$EXTERNALSYM PSecPkgContext_NegotiationInfoA}
  989.   _SecPkgContext_NegotiationInfoA = record
  990.     PackageInfo: PSecPkgInfoA;
  991.     NegotiationState: Cardinal;
  992.   end;
  993.   {$EXTERNALSYM _SecPkgContext_NegotiationInfoA}
  994.   SecPkgContext_NegotiationInfoA = _SecPkgContext_NegotiationInfoA;
  995.   {$EXTERNALSYM SecPkgContext_NegotiationInfoA}
  996.   TSecPkgContextNegotiationInfoA = SecPkgContext_NegotiationInfoA;
  997.   PSecPkgContextNegotiationInfoA = PSecPkgContext_NegotiationInfoA;
  999.   PSecPkgContext_NegotiationInfoW = ^SecPkgContext_NegotiationInfoW;
  1000.   {$EXTERNALSYM PSecPkgContext_NegotiationInfoW}
  1001.   _SecPkgContext_NegotiationInfoW = record
  1002.     PackageInfo: PSecPkgInfoW;
  1003.     NegotiationState: Cardinal;
  1004.   end;
  1005.   {$EXTERNALSYM _SecPkgContext_NegotiationInfoW}
  1006.   SecPkgContext_NegotiationInfoW = _SecPkgContext_NegotiationInfoW;
  1007.   {$EXTERNALSYM SecPkgContext_NegotiationInfoW}
  1008.   TSecPkgContextNegotiationInfoW = SecPkgContext_NegotiationInfoW;
  1009.   PSecPkgContextNegotiationInfoW = PSecPkgContext_NegotiationInfoW ;
  1011. {$IFDEF UNICODE}
  1012.   SecPkgContext_NegotiationInfo  = SecPkgContext_NegotiationInfoW;
  1013.   {$EXTERNALSYM SecPkgContext_NegotiationInfo}
  1014.   PSecPkgContext_NegotiationInfo = PSecPkgContext_NegotiationInfoW;
  1015.   {$EXTERNALSYM PSecPkgContext_NegotiationInfo}
  1016.   TSecPkgContextNegotiationInfo = TSecPkgContextNegotiationInfoW;
  1017.   PSecPkgContextNegotiationInfo = PSecPkgContextNegotiationInfoW;
  1018. {$ELSE}
  1019.   SecPkgContext_NegotiationInfo  = SecPkgContext_NegotiationInfoA;
  1020.   {$EXTERNALSYM SecPkgContext_NegotiationInfo}
  1021.   PSecPkgContext_NegotiationInfo = PSecPkgContext_NegotiationInfoA;
  1022.   {$EXTERNALSYM PSecPkgContext_NegotiationInfo}
  1023.   TSecPkgContextNegotiationInfo = TSecPkgContextNegotiationInfoA;
  1024.   PSecPkgContextNegotiationInfo = PSecPkgContextNegotiationInfoA;
  1025. {$ENDIF}
  1027. const
  1028.   SECPKG_NEGOTIATION_COMPLETE    = 0;
  1029.   {$EXTERNALSYM SECPKG_NEGOTIATION_COMPLETE}
  1030.   SECPKG_NEGOTIATION_OPTIMISTIC  = 1;
  1031.   {$EXTERNALSYM SECPKG_NEGOTIATION_OPTIMISTIC}
  1032.   SECPKG_NEGOTIATION_IN_PROGRESS = 2;
  1033.   {$EXTERNALSYM SECPKG_NEGOTIATION_IN_PROGRESS}
  1034.   SECPKG_NEGOTIATION_DIRECT      = 3;
  1035.   {$EXTERNALSYM SECPKG_NEGOTIATION_DIRECT}
  1036.   SECPKG_NEGOTIATION_TRY_MULTICRED = 4;
  1037.   {$EXTERNALSYM SECPKG_NEGOTIATION_TRY_MULTICRED}
  1039. type
  1040.   PSecPkgContext_NativeNamesW = ^SecPkgContext_NativeNamesW;
  1041.   {$EXTERNALSYM PSecPkgContext_NativeNamesW}
  1042.   _SecPkgContext_NativeNamesW = record
  1043.     sClientName: PSecWChar;
  1044.     sServerName: PSecWChar;
  1045.   end;
  1046.   {$EXTERNALSYM _SecPkgContext_NativeNamesW}
  1047.   SecPkgContext_NativeNamesW = _SecPkgContext_NativeNamesW;
  1048.   {$EXTERNALSYM SecPkgContext_NativeNamesW}
  1049.   TSecPkgContextNativeNamesW = SecPkgContext_NativeNamesW;
  1050.   PSecPkgContextNativeNamesW = PSecPkgContext_NativeNamesW;
  1052.   PSecPkgContext_NativeNamesA = ^SecPkgContext_NativeNamesA;
  1053.   {$EXTERNALSYM PSecPkgContext_NativeNamesA}
  1054.   _SecPkgContext_NativeNamesA = record
  1055.     sClientName: PSecChar;
  1056.     sServerName: PSecChar;
  1057.   end;
  1058.   {$EXTERNALSYM _SecPkgContext_NativeNamesA}
  1059.   SecPkgContext_NativeNamesA = _SecPkgContext_NativeNamesA;
  1060.   {$EXTERNALSYM SecPkgContext_NativeNamesA}
  1061.   TSecPkgContextNativeNamesA = SecPkgContext_NativeNamesA;
  1062.   PSecPkgContextNativeNamesA = PSecPkgContext_NativeNamesA;
  1064. {$IFDEF UNICODE}
  1065.   SecPkgContext_NativeNames  = SecPkgContext_NativeNamesW;
  1066.   {$EXTERNALSYM SecPkgContext_NativeNames}
  1067.   PSecPkgContext_NativeNames = PSecPkgContext_NativeNamesW;
  1068.   {$EXTERNALSYM PSecPkgContext_NativeNames}
  1069.   TSecPkgContextNativeNames = TSecPkgContextNativeNamesW;
  1070.   PSecPkgContextNativeNames = PSecPkgContextNativeNamesW;
  1071. {$ELSE}
  1072.   SecPkgContext_NativeNames  = SecPkgContext_NativeNamesA;
  1073.   {$EXTERNALSYM SecPkgContext_NativeNames}
  1074.   PSecPkgContext_NativeNames = PSecPkgContext_NativeNamesA;
  1075.   {$EXTERNALSYM PSecPkgContext_NativeNames}
  1076.   TSecPkgContextNativeNames = TSecPkgContextNativeNamesA;
  1077.   PSecPkgContextNativeNames = PSecPkgContextNativeNamesA;
  1078. {$ENDIF}
  1080.   _SecPkgContext_CredentialNameW = record
  1081.     CredentialType: Cardinal;
  1082.     sCredentialName: PSEC_WCHAR;
  1083.   end;
  1084.   {$EXTERNALSYM _SecPkgContext_CredentialNameW}
  1085.   SecPkgContext_CredentialNameW = _SecPkgContext_CredentialNameW;
  1086.   {$EXTERNALSYM SecPkgContext_CredentialNameW}
  1087.   PSecPkgContext_CredentialNameW = ^SecPkgContext_CredentialNameW;
  1088.   {$EXTERNALSYM PSecPkgContext_CredentialNameW}
  1089.   TSecPkgContextCredentialNameW = SecPkgContext_CredentialNameW;
  1090.   PSecPkgContextCredentialNameW = PSecPkgContext_CredentialNameW;
  1092.   _SecPkgContext_CredentialNameA = record
  1093.     CredentialType: Cardinal;
  1094.     sCredentialName: PSEC_CHAR;
  1095.   end;
  1096.   {$EXTERNALSYM _SecPkgContext_CredentialNameA}
  1097.   SecPkgContext_CredentialNameA = _SecPkgContext_CredentialNameA;
  1098.   {$EXTERNALSYM SecPkgContext_CredentialNameA}
  1099.   PSecPkgContext_CredentialNameA = ^SecPkgContext_CredentialNameA;
  1100.   {$EXTERNALSYM PSecPkgContext_CredentialNameA}
  1101.   TSecPkgContextCredentialNameA = SecPkgContext_CredentialNameA;
  1102.   PSecPkgContextCredentialNameA = PSecPkgContext_CredentialNameA;
  1104. {$IFDEF UNICODE}
  1105.   SecPkgContext_CredentialName = SecPkgContext_CredentialNameW;
  1106.   {$EXTERNALSYM SecPkgContext_CredentialName}
  1107.   PSecPkgContext_CredentialName = PSecPkgContext_CredentialNameW;
  1108.   {$EXTERNALSYM PSecPkgContext_CredentialName}
  1109.   TSecPkgContextCredentialName = TSecPkgContextCredentialNameW;
  1110.   PSecPkgContextCredentialName = PSecPkgContextCredentialNameW;
  1111. {$ELSE}
  1112.   SecPkgContext_CredentialName = SecPkgContext_CredentialNameA;
  1113.   {$EXTERNALSYM SecPkgContext_CredentialName}
  1114.   PSecPkgContext_CredentialName = PSecPkgContext_CredentialNameA;
  1115.   {$EXTERNALSYM PSecPkgContext_CredentialName}
  1116.   TSecPkgContextCredentialName = TSecPkgContextCredentialNameA;
  1117.   PSecPkgContextCredentialName = PSecPkgContextCredentialNameA;
  1118. {$ENDIF}
  1120.   _SecPkgContext_AccessToken = record
  1121.     AccessToken: Pointer;
  1122.   end;
  1123.   {$EXTERNALSYM _SecPkgContext_AccessToken}
  1124.   SecPkgContext_AccessToken = _SecPkgContext_AccessToken;
  1125.   {$EXTERNALSYM SecPkgContext_AccessToken}
  1126.   PSecPkgContext_AccessToken = ^SecPkgContext_AccessToken;
  1127.   {$EXTERNALSYM PSecPkgContext_AccessToken}
  1128.   TSecPkgContextAccessToken = SecPkgContext_AccessToken;
  1129.   PSecPkgContextAccessToken = PSecPkgContext_AccessToken;
  1131.   _SecPkgContext_TargetInformation = record
  1132.     MarshalledTargetInfoLength: Cardinal;
  1133.     MarshalledTargetInfo: PWideChar;
  1134.   end;
  1135.   {$EXTERNALSYM _SecPkgContext_TargetInformation}
  1136.   SecPkgContext_TargetInformation = _SecPkgContext_TargetInformation;
  1137.   {$EXTERNALSYM SecPkgContext_TargetInformation}
  1138.   PSecPkgContext_TargetInformation = ^SecPkgContext_TargetInformation;
  1139.   {$EXTERNALSYM PSecPkgContext_TargetInformation}
  1140.   TSecPkgContextTargetInformation = SecPkgContext_TargetInformation;
  1141.   PSecPkgContextTargetInformation = PSecPkgContext_TargetInformation;
  1143.   _SecPkgContext_AuthzID = record
  1144.     AuthzIDLength: Cardinal;
  1145.     AuthzID: PChar;
  1146.   end;
  1147.   {$EXTERNALSYM _SecPkgContext_AuthzID}
  1148.   SecPkgContext_AuthzID = _SecPkgContext_AuthzID;
  1149.   {$EXTERNALSYM SecPkgContext_AuthzID}
  1150.   PSecPkgContext_AuthzID = ^SecPkgContext_AuthzID;
  1151.   {$EXTERNALSYM PSecPkgContext_AuthzID}
  1152.   TSecPkgContextAuthzID = SecPkgContext_AuthzID;
  1153.   PSecPkgContextAuthzID = PSecPkgContext_AuthzID;  
  1155.   _SecPkgContext_Target = record
  1156.     TargetLength: Cardinal;
  1157.     Target: PChar;
  1158.   end;
  1159.   {$EXTERNALSYM _SecPkgContext_Target}
  1160.   SecPkgContext_Target = _SecPkgContext_Target;
  1161.   {$EXTERNALSYM SecPkgContext_Target}
  1162.   PSecPkgContext_Target = ^SecPkgContext_Target;
  1163.   {$EXTERNALSYM PSecPkgContext_Target}
  1164.   TSecPkgContextTarget = SecPkgContext_Target;
  1165.   PSecPkgContextTarget = PSecPkgContext_Target;  
  1167.   SEC_GET_KEY_FN = procedure (
  1168.     Arg: Pointer;                           // Argument passed in
  1169.     Principal: Pointer;                     // Principal ID
  1170.     KeyVer: Cardinal;                       // Key Version
  1171.     var Key: Pointer;                       // Returned ptr to key
  1172.     var Status: SECURITY_STATUS); stdcall;  // returned status
  1173.   {$EXTERNALSYM SEC_GET_KEY_FN}
  1174.   TSecGetKeyFn = SEC_GET_KEY_FN;
  1176. //
  1177. // Flags for ExportSecurityContext
  1178. //
  1180. const
  1181.   SECPKG_CONTEXT_EXPORT_RESET_NEW  = $00000001; // New context is reset to initial state
  1182.   {$EXTERNALSYM SECPKG_CONTEXT_EXPORT_RESET_NEW}
  1183.   SECPKG_CONTEXT_EXPORT_DELETE_OLD = $00000002; // Old context is deleted during export
  1184.   {$EXTERNALSYM SECPKG_CONTEXT_EXPORT_DELETE_OLD}
  1186. function AcquireCredentialsHandleW(pszPrincipal, pszPackage: PSecWChar;
  1187.   fCredentialUse: Cardinal; pvLogonId, pAuthData: Pointer;
  1188.   pGetKeyFn: SEC_GET_KEY_FN; pvGetKeyArgument: Pointer; phCredential: PCredHandle;
  1189.   var ptsExpiry: TTimeStamp): SECURITY_STATUS; stdcall;
  1190. {$EXTERNALSYM AcquireCredentialsHandleW}
  1192. type
  1193.   ACQUIRE_CREDENTIALS_HANDLE_FN_W = function (
  1194.     pszPrincipal: PSecWChar;
  1195.     pszPackage: PSecWChar;
  1196.     fCredentialsUse: Cardinal;
  1197.     pvLogonId: Pointer;
  1198.     pAuthData: Pointer;
  1199.     pGetKeyFn: SEC_GET_KEY_FN;
  1200.     pvGetKeyArgument: Pointer;
  1201.     phCredential: PCredHandle;
  1202.     ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1203.   {$EXTERNALSYM ACQUIRE_CREDENTIALS_HANDLE_FN_W}
  1204.   TAcquireCredentialsHandleFnW = ACQUIRE_CREDENTIALS_HANDLE_FN_W;
  1206. function AcquireCredentialsHandleA(pszPrincipal, pszPackage: PSecChar;
  1207.   fCredentialUse: Cardinal; pvLogonId, pAuthData: Pointer;
  1208.   pGetKeyFn: SEC_GET_KEY_FN; pvGetKeyArgument: Pointer; phCredential: PCredHandle;
  1209.   var ptsExpiry: TTimeStamp): SECURITY_STATUS; stdcall;
  1210. {$EXTERNALSYM AcquireCredentialsHandleA}
  1212. type
  1213.   ACQUIRE_CREDENTIALS_HANDLE_FN_A = function (
  1214.     pszPrincipal: PSecChar;
  1215.     pszPackage: PSecChar;
  1216.     fCredentialsUse: Cardinal;
  1217.     pvLogonId: Pointer;
  1218.     pAuthData: Pointer;
  1219.     pGetKeyFn: SEC_GET_KEY_FN;
  1220.     pvGetKeyArgument: Pointer;
  1221.     phCredential: PCredHandle;
  1222.     ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1223.   {$EXTERNALSYM ACQUIRE_CREDENTIALS_HANDLE_FN_A}
  1224.   TAcquireCredentialsHandleFnA = ACQUIRE_CREDENTIALS_HANDLE_FN_A;
  1226. {$IFDEF UNICODE}
  1227. function AcquireCredentialsHandle(pszPrincipal, pszPackage: PSecWChar;
  1228.   fCredentialUse: Cardinal; pvLogonId, pAuthData: Pointer;
  1229.   pGetKeyFn: SEC_GET_KEY_FN; pvGetKeyArgument: Pointer; phCredential: PCredHandle;
  1230.   var ptsExpiry: TTimeStamp): SECURITY_STATUS; stdcall;
  1231. {$EXTERNALSYM AcquireCredentialsHandle}
  1232. type
  1233.   ACQUIRE_CREDENTIALS_HANDLE_FN = ACQUIRE_CREDENTIALS_HANDLE_FN_W;
  1234.   {$EXTERNALSYM ACQUIRE_CREDENTIALS_HANDLE_FN}
  1235.   TAcquireCredentialsHandleFn = TAcquireCredentialsHandleFnW;
  1236. {$ELSE}
  1237. function AcquireCredentialsHandle(pszPrincipal, pszPackage: PSecChar;
  1238.   fCredentialUse: Cardinal; pvLogonId, pAuthData: Pointer;
  1239.   pGetKeyFn: SEC_GET_KEY_FN; pvGetKeyArgument: Pointer; phCredential: PCredHandle;
  1240.   var ptsExpiry: TTimeStamp): SECURITY_STATUS; stdcall;
  1241. {$EXTERNALSYM AcquireCredentialsHandle}
  1242. type
  1243.   ACQUIRE_CREDENTIALS_HANDLE_FN = ACQUIRE_CREDENTIALS_HANDLE_FN_A;
  1244.   {$EXTERNALSYM ACQUIRE_CREDENTIALS_HANDLE_FN}
  1245.   TAcquireCredentialsHandleFn = TAcquireCredentialsHandleFnA;
  1246. {$ENDIF}
  1248. function FreeCredentialsHandle(phCredential: PCredHandle): SECURITY_STATUS; stdcall;
  1249. {$EXTERNALSYM FreeCredentialsHandle}
  1251. type
  1252.   FREE_CREDENTIALS_HANDLE_FN = function (phCredential: PCredHandle): SECURITY_STATUS; stdcall;
  1253.   {$EXTERNALSYM FREE_CREDENTIALS_HANDLE_FN}
  1255. function AddCredentialsW(hCredentials: PCredHandle; pszPrincipal: PSecWChar;
  1256.   pszPackage: PSecWChar; fCredentialUse: Cardinal; pAuthData: Pointer;
  1257.   pGetKeyFn: SEC_GET_KEY_FN; pvGetKeyArgument: Pointer;
  1258.   ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1259. {$EXTERNALSYM AddCredentialsW}
  1261. type
  1262.   ADD_CREDENTIALS_FN_W = function (hCredentials: PCredHandle; pszPrincipal: PSecWChar;
  1263.     pszPackage: PSecWChar; fCredentialUse: Cardinal; pAuthData: Pointer;
  1264.     pGetKeyFn: SEC_GET_KEY_FN; pvGetKeyArgument: Pointer;
  1265.     ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1266.   {$EXTERNALSYM ADD_CREDENTIALS_FN_W}
  1268. function AddCredentialsA(hCredentials: PCredHandle; pszPrincipal: PSecChar;
  1269.   pszPackage: PSecChar; fCredentialUse: Cardinal; pAuthData: Pointer;
  1270.   pGetKeyFn: SEC_GET_KEY_FN; pvGetKeyArgument: Pointer; ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1271. {$EXTERNALSYM AddCredentialsA}
  1273. type
  1274.   ADD_CREDENTIALS_FN_A = function (hCredentials: PCredHandle; pszPrincipal: PSecChar;
  1275.     pszPackage: PSecChar; fCredentialUse: Cardinal; pAuthData: Pointer;
  1276.     pGetKeyFn: SEC_GET_KEY_FN; pvGetKeyArgument: Pointer; ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1277.   {$EXTERNALSYM ADD_CREDENTIALS_FN_A}
  1279. {$IFDEF UNICODE}
  1280. function AddCredentials(hCredentials: PCredHandle; pszPrincipal: PSecWChar;
  1281.   pszPackage: PSecWChar; fCredentialUse: Cardinal; pAuthData: Pointer;
  1282.   pGetKeyFn: SEC_GET_KEY_FN; pvGetKeyArgument: Pointer;
  1283.   ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1284. {$EXTERNALSYM AddCredentials}
  1286. type
  1287.   ADD_CREDENTIALS_FN = function (hCredentials: PCredHandle; pszPrincipal: PSecWChar;
  1288.     pszPackage: PSecWChar; fCredentialUse: Cardinal; pAuthData: Pointer;
  1289.     pGetKeyFn: SEC_GET_KEY_FN; pvGetKeyArgument: Pointer;
  1290.     ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1291.   {$EXTERNALSYM ADD_CREDENTIALS_FN}
  1292. {$ELSE}
  1293. function AddCredentials(hCredentials: PCredHandle; pszPrincipal: PSecChar;
  1294.   pszPackage: PSecChar; fCredentialUse: Cardinal; pAuthData: Pointer;
  1295.   pGetKeyFn: SEC_GET_KEY_FN; pvGetKeyArgument: Pointer; ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1296. {$EXTERNALSYM AddCredentials}
  1298. type
  1299.   ADD_CREDENTIALS_FN = function (hCredentials: PCredHandle; pszPrincipal: PSecChar;
  1300.     pszPackage: PSecChar; fCredentialUse: Cardinal; pAuthData: Pointer;
  1301.     pGetKeyFn: SEC_GET_KEY_FN; pvGetKeyArgument: Pointer; ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1302.   {$EXTERNALSYM ADD_CREDENTIALS_FN}
  1303. {$ENDIF}
  1305. ////////////////////////////////////////////////////////////////////////
  1306. ///
  1307. /// Context Management Functions
  1308. ///
  1309. ////////////////////////////////////////////////////////////////////////
  1311. function InitializeSecurityContextW(phCredential: PCredHandle; phContext: PCtxtHandle;
  1312.   pszTargetName: PSecWChar; fContextReq, Reserved1, TargetDataRep: Cardinal;
  1313.   pInput: PSecBufferDesc; Reserved2: Cardinal; phNewContext: PCtxtHandle;
  1314.   pOutput: PSecBufferDesc; var pfContextAttr: Cardinal; ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1315. {$EXTERNALSYM InitializeSecurityContextW}
  1317. type
  1318.   INITIALIZE_SECURITY_CONTEXT_FN_W = function (phCredential: PCredHandle; phContext: PCtxtHandle;
  1319.     pszTargetName: PSecWChar; fContextReq, Reserved1, TargetDataRep: Cardinal;
  1320.     pInput: PSecBufferDesc; Reserved2: Cardinal; phNewContext: PCtxtHandle;
  1321.     pOutput: PSecBufferDesc; var pfContextAttr: Cardinal; ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1322.   {$EXTERNALSYM INITIALIZE_SECURITY_CONTEXT_FN_W}
  1324. function InitializeSecurityContextA(phCredential: PCredHandle; phContext: PCtxtHandle;
  1325.   pszTargetName: PSecChar; fContextReq, Reserved1, TargetDataRep: Cardinal;
  1326.   pInput: PSecBufferDesc; Reserved2: Cardinal; phNewContext: PCtxtHandle;
  1327.   pOutput: PSecBufferDesc; var pfContextAttr: Cardinal; ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1328. {$EXTERNALSYM InitializeSecurityContextA}
  1330. type
  1331.   INITIALIZE_SECURITY_CONTEXT_FN_A = function (phCredential: PCredHandle; phContext: PCtxtHandle;
  1332.     pszTargetName: PSecChar; fContextReq, Reserved1, TargetDataRep: Cardinal;
  1333.     pInput: PSecBufferDesc; Reserved2: Cardinal; phNewContext: PCtxtHandle;
  1334.     pOutput: PSecBufferDesc; var pfContextAttr: Cardinal; ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1335.   {$EXTERNALSYM INITIALIZE_SECURITY_CONTEXT_FN_A}
  1337. {$IFDEF UNICODE}
  1338. function InitializeSecurityContext(phCredential: PCredHandle; phContext: PCtxtHandle;
  1339.   pszTargetName: PSecWChar; fContextReq, Reserved1, TargetDataRep: Cardinal;
  1340.   pInput: PSecBufferDesc; Reserved2: Cardinal; phNewContext: PCtxtHandle;
  1341.   pOutput: PSecBufferDesc; var pfContextAttr: Cardinal; ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1342. {$EXTERNALSYM InitializeSecurityContext}
  1344. type
  1345.   INITIALIZE_SECURITY_CONTEXT_FN = function (phCredential: PCredHandle; phContext: PCtxtHandle;
  1346.     pszTargetName: PSecWChar; fContextReq, Reserved1, TargetDataRep: Cardinal;
  1347.     pInput: PSecBufferDesc; Reserved2: Cardinal; phNewContext: PCtxtHandle;
  1348.     pOutput: PSecBufferDesc; var pfContextAttr: Cardinal; ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1349.   {$EXTERNALSYM INITIALIZE_SECURITY_CONTEXT_FN}
  1350. {$ELSE}
  1351. function InitializeSecurityContext(phCredential: PCredHandle; phContext: PCtxtHandle;
  1352.   pszTargetName: PSecChar; fContextReq, Reserved1, TargetDataRep: Cardinal;
  1353.   pInput: PSecBufferDesc; Reserved2: Cardinal; phNewContext: PCtxtHandle;
  1354.   pOutput: PSecBufferDesc; var pfContextAttr: Cardinal; ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1355. {$EXTERNALSYM InitializeSecurityContext}
  1357. type
  1358.   INITIALIZE_SECURITY_CONTEXT_FN = function (phCredential: PCredHandle; phContext: PCtxtHandle;
  1359.     pszTargetName: PSecChar; fContextReq, Reserved1, TargetDataRep: Cardinal;
  1360.     pInput: PSecBufferDesc; Reserved2: Cardinal; phNewContext: PCtxtHandle;
  1361.     pOutput: PSecBufferDesc; var pfContextAttr: Cardinal; ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1362.   {$EXTERNALSYM INITIALIZE_SECURITY_CONTEXT_FN}
  1363. {$ENDIF}
  1365. function AcceptSecurityContext(phCredential: PCredHandle; phContext: PCtxtHandle;
  1366.   pInput: PSecBufferDesc; fContextReq, TargetDataRep: Cardinal;
  1367.   phNewContext: PCtxtHandle; pOutput: PSecBufferDesc; var pfContextAttr: Cardinal;
  1368.   ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1369. {$EXTERNALSYM AcceptSecurityContext}
  1371. type
  1372.   ACCEPT_SECURITY_CONTEXT_FN = function (phCredential: PCredHandle; phContext: PCtxtHandle;
  1373.     pInput: PSecBufferDesc; fContextReq, TargetDataRep: Cardinal;
  1374.     phNewContext: PCtxtHandle; pOutput: PSecBufferDesc; var pfContextAttr: Cardinal;
  1375.     ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  1376.   {$EXTERNALSYM ACCEPT_SECURITY_CONTEXT_FN}
  1378. function CompleteAuthToken(phContext: PCtxtHandle; pToken: PSecBufferDesc): SECURITY_STATUS; stdcall;
  1379. {$EXTERNALSYM CompleteAuthToken}
  1381. type
  1382.   COMPLETE_AUTH_TOKEN_FN = function (phContext: PCtxtHandle; pToken: PSecBufferDesc): SECURITY_STATUS; stdcall;
  1383.   {$EXTERNALSYM COMPLETE_AUTH_TOKEN_FN}
  1385. function ImpersonateSecurityContext(phContext: PCtxtHandle): SECURITY_STATUS; stdcall;
  1386. {$EXTERNALSYM ImpersonateSecurityContext}
  1388. type
  1389.   IMPERSONATE_SECURITY_CONTEXT_FN = function (phContext: PCtxtHandle): SECURITY_STATUS; stdcall;
  1390.   {$EXTERNALSYM IMPERSONATE_SECURITY_CONTEXT_FN}
  1392. function RevertSecurityContext(phContext: PCtxtHandle): SECURITY_STATUS; stdcall;
  1393. {$EXTERNALSYM RevertSecurityContext}
  1395. type
  1396.   REVERT_SECURITY_CONTEXT_FN = function (phContext: PCtxtHandle): SECURITY_STATUS; stdcall;
  1397.   {$EXTERNALSYM REVERT_SECURITY_CONTEXT_FN}
  1399. function QuerySecurityContextToken(phContext: PCtxtHandle; var Token: Pointer): SECURITY_STATUS; stdcall;
  1400. {$EXTERNALSYM QuerySecurityContextToken}
  1402. type
  1403.   QUERY_SECURITY_CONTEXT_TOKEN_FN = function (phContext: PCtxtHandle;
  1404.     var Token: Pointer): SECURITY_STATUS; stdcall;
  1405.   {$EXTERNALSYM QUERY_SECURITY_CONTEXT_TOKEN_FN}
  1407. function DeleteSecurityContext(phContext: PCtxtHandle): SECURITY_STATUS; stdcall;
  1408. {$EXTERNALSYM DeleteSecurityContext}
  1410. type
  1411.   DELETE_SECURITY_CONTEXT_FN = function (phContext: PCtxtHandle): SECURITY_STATUS; stdcall;
  1412.   {$EXTERNALSYM DELETE_SECURITY_CONTEXT_FN}
  1414. function ApplyControlToken(phContext: PCtxtHandle; pInput: PSecBufferDesc): SECURITY_STATUS; stdcall;
  1415. {$EXTERNALSYM ApplyControlToken}
  1417. type
  1418.   APPLY_CONTROL_TOKEN_FN = function (phContext: PCtxtHandle; pInput: PSecBufferDesc): SECURITY_STATUS; stdcall;
  1419.   {$EXTERNALSYM APPLY_CONTROL_TOKEN_FN}
  1421. function QueryContextAttributesW(phContext: PCtxtHandle; ulAttribute: Cardinal;
  1422.   pBuffer: Pointer): SECURITY_STATUS; stdcall;
  1423. {$EXTERNALSYM QueryContextAttributesW}
  1425. type
  1426.   QUERY_CONTEXT_ATTRIBUTES_FN_W = function (phContext: PCtxtHandle;
  1427.     ulAttribute: Cardinal; pBuffer: Pointer): SECURITY_STATUS; stdcall;
  1428.   {$EXTERNALSYM QUERY_CONTEXT_ATTRIBUTES_FN_W}
  1430. function QueryContextAttributesA(phContext: PCtxtHandle; ulAttribute: Cardinal;
  1431.   pBuffer: Pointer): SECURITY_STATUS; stdcall;
  1432. {$EXTERNALSYM QueryContextAttributesA}
  1434. type
  1435.   QUERY_CONTEXT_ATTRIBUTES_FN_A = function (phContext: PCtxtHandle;
  1436.     ulAttribute: Cardinal; pBuffer: Pointer): SECURITY_STATUS; stdcall;
  1437.   {$EXTERNALSYM QUERY_CONTEXT_ATTRIBUTES_FN_A}
  1439. {$IFDEF UNICODE}
  1440. function QueryContextAttributes(phContext: PCtxtHandle; ulAttribute: Cardinal;
  1441.   pBuffer: Pointer): SECURITY_STATUS; stdcall;
  1442. {$EXTERNALSYM QueryContextAttributes}
  1444. type
  1445.   QUERY_CONTEXT_ATTRIBUTES_FN = function (phContext: PCtxtHandle;
  1446.     ulAttribute: Cardinal; pBuffer: Pointer): SECURITY_STATUS; stdcall;
  1447.   {$EXTERNALSYM QUERY_CONTEXT_ATTRIBUTES_FN}
  1448. {$ELSE}
  1449. function QueryContextAttributes(phContext: PCtxtHandle; ulAttribute: Cardinal;
  1450.   pBuffer: Pointer): SECURITY_STATUS; stdcall;
  1451. {$EXTERNALSYM QueryContextAttributes}
  1453. type
  1454.   QUERY_CONTEXT_ATTRIBUTES_FN = function (phContext: PCtxtHandle;
  1455.     ulAttribute: Cardinal; pBuffer: Pointer): SECURITY_STATUS; stdcall;
  1456.   {$EXTERNALSYM QUERY_CONTEXT_ATTRIBUTES_FN}
  1457. {$ENDIF}
  1459. function SetContextAttributesW(phContext: PCtxtHandle; ulAttribute: Cardinal;
  1460.   pBuffer: Pointer; cbBuffer: Cardinal): SECURITY_STATUS; stdcall;
  1461. {$EXTERNALSYM SetContextAttributesW}
  1463. type
  1464.   SET_CONTEXT_ATTRIBUTES_FN_W = function (phContext: PCtxtHandle; ulAttribute: Cardinal;
  1465.     pBuffer: Pointer; cbBuffer: Cardinal): SECURITY_STATUS; stdcall;
  1466.   {$EXTERNALSYM SET_CONTEXT_ATTRIBUTES_FN_W}
  1468. function SetContextAttributesA(phContext: PCtxtHandle; ulAttribute: Cardinal;
  1469.   pBuffer: Pointer; cbBuffer: Cardinal): SECURITY_STATUS; stdcall;
  1470. {$EXTERNALSYM SetContextAttributesA}
  1472. type
  1473.   SET_CONTEXT_ATTRIBUTES_FN_A = function (phContext: PCtxtHandle; ulAttribute: Cardinal;
  1474.     pBuffer: Pointer; cbBuffer: Cardinal): SECURITY_STATUS; stdcall;
  1475.   {$EXTERNALSYM SET_CONTEXT_ATTRIBUTES_FN_A}
  1477. {$IFDEF UNICODE}
  1478. function SetContextAttributes(phContext: PCtxtHandle; ulAttribute: Cardinal;
  1479.   pBuffer: Pointer; cbBuffer: Cardinal): SECURITY_STATUS; stdcall;
  1480. {$EXTERNALSYM SetContextAttributes}
  1482. type
  1483.   SET_CONTEXT_ATTRIBUTES_FN = SET_CONTEXT_ATTRIBUTES_FN_W;
  1484.   {$EXTERNALSYM SET_CONTEXT_ATTRIBUTES_FN}
  1485. {$ELSE}
  1486. function SetContextAttributes(phContext: PCtxtHandle; ulAttribute: Cardinal;
  1487.   pBuffer: Pointer; cbBuffer: Cardinal): SECURITY_STATUS; stdcall;
  1488. {$EXTERNALSYM SetContextAttributes}
  1490. type
  1491.   SET_CONTEXT_ATTRIBUTES_FN = SET_CONTEXT_ATTRIBUTES_FN_A;
  1492.   {$EXTERNALSYM SET_CONTEXT_ATTRIBUTES_FN}
  1493. {$ENDIF}
  1495. function QueryCredentialsAttributesW(phCredential: PCredHandle;
  1496.   ulAttribute: Cardinal; pBuffer: Pointer): SECURITY_STATUS; stdcall;
  1497. {$EXTERNALSYM QueryCredentialsAttributesW}
  1499. type
  1500.   QUERY_CREDENTIALS_ATTRIBUTES_FN_W = function (phCredential: PCredHandle;
  1501.     ulAttribute: Cardinal; pBuffer: Pointer): SECURITY_STATUS; stdcall;
  1502.   {$EXTERNALSYM QUERY_CREDENTIALS_ATTRIBUTES_FN_W}
  1504. function QueryCredentialsAttributesA(phCredential: PCredHandle;
  1505.   ulAttribute: Cardinal; pBuffer: Pointer): SECURITY_STATUS; stdcall;
  1506. {$EXTERNALSYM QueryCredentialsAttributesA}
  1508. type
  1509.   QUERY_CREDENTIALS_ATTRIBUTES_FN_A = function (phCredential: PCredHandle;
  1510.     ulAttribute: Cardinal; pBuffer: Pointer): SECURITY_STATUS; stdcall;
  1511.   {$EXTERNALSYM QUERY_CREDENTIALS_ATTRIBUTES_FN_A}
  1513. {$IFDEF UNICODE}
  1514. function QueryCredentialsAttributes(phCredential: PCredHandle;
  1515.   ulAttribute: Cardinal; pBuffer: Pointer): SECURITY_STATUS; stdcall;
  1516. {$EXTERNALSYM QueryCredentialsAttributes}
  1518. type
  1519.   QUERY_CREDENTIALS_ATTRIBUTES_FN = function (phCredential: PCredHandle;
  1520.     ulAttribute: Cardinal; pBuffer: Pointer): SECURITY_STATUS; stdcall;
  1521.   {$EXTERNALSYM QUERY_CREDENTIALS_ATTRIBUTES_FN}
  1522. {$ELSE}
  1523. function QueryCredentialsAttributes(phCredential: PCredHandle;
  1524.   ulAttribute: Cardinal; pBuffer: Pointer): SECURITY_STATUS; stdcall;
  1525. {$EXTERNALSYM QueryCredentialsAttributes}
  1527. type
  1528.   QUERY_CREDENTIALS_ATTRIBUTES_FN = function (phCredential: PCredHandle;
  1529.     ulAttribute: Cardinal; pBuffer: Pointer): SECURITY_STATUS; stdcall;
  1530.   {$EXTERNALSYM QUERY_CREDENTIALS_ATTRIBUTES_FN}
  1531. {$ENDIF}
  1533. function FreeContextBuffer(pvContextBuffer: Pointer): SECURITY_STATUS; stdcall;
  1534. {$EXTERNALSYM FreeContextBuffer}
  1536. type
  1537.   FREE_CONTEXT_BUFFER_FN = function (pvContextBuffer: Pointer): SECURITY_STATUS; stdcall;
  1538.   {$EXTERNALSYM FREE_CONTEXT_BUFFER_FN}
  1540. ///////////////////////////////////////////////////////////////////
  1541. ////
  1542. ////    Message Support API
  1543. ////
  1544. //////////////////////////////////////////////////////////////////
  1546. function MakeSignature(phContext: PCtxtHandle; fQOP: Cardinal;
  1547.   pMessage: PSecBufferDesc; MessageSeqNo: Cardinal): SECURITY_STATUS; stdcall;
  1548. {$EXTERNALSYM MakeSignature}
  1550. type
  1551.   MAKE_SIGNATURE_FN = function (phContext: PCtxtHandle; fQOP: Cardinal;
  1552.     pMessage: PSecBufferDesc; MessageSeqNo: Cardinal): SECURITY_STATUS; stdcall;
  1553.   {$EXTERNALSYM MAKE_SIGNATURE_FN}
  1555. function VerifySignature(phContext: PCtxtHandle; pMessage: PSecBufferDesc;
  1556.   MessageSeqNo: Cardinal; var pfQOP: Cardinal): SECURITY_STATUS; stdcall;
  1557. {$EXTERNALSYM VerifySignature}
  1559. type
  1560.   VERIFY_SIGNATURE_FN = function (phContext: PCtxtHandle; pMessage: PSecBufferDesc;
  1561.     MessageSeqNo: Cardinal; var pfQOP: Cardinal): SECURITY_STATUS; stdcall;
  1562.   {$EXTERNALSYM VERIFY_SIGNATURE_FN}
  1564. const
  1565.   SECQOP_WRAP_NO_ENCRYPT = DWORD($80000001);
  1566.   {$EXTERNALSYM SECQOP_WRAP_NO_ENCRYPT}
  1568. function EncryptMessage(phContext: PCtxtHandle; fQOP: Cardinal;
  1569.   pMessage: PSecBufferDesc; MessageSeqNo: Cardinal): SECURITY_STATUS; stdcall;
  1570. {$EXTERNALSYM EncryptMessage}
  1572. type
  1573.   ENCRYPT_MESSAGE_FN = function (phContext: PCtxtHandle; fQOP: Cardinal;
  1574.     pMessage: PSecBufferDesc; MessageSeqNo: Cardinal): SECURITY_STATUS; stdcall;
  1575.   {$EXTERNALSYM ENCRYPT_MESSAGE_FN}
  1577. function DecryptMessage(phContext: PCtxtHandle; pMessage: PSecBufferDesc;
  1578.   MessageSeqNo: Cardinal; var pfQOP: Cardinal): SECURITY_STATUS; stdcall;
  1579. {$EXTERNALSYM DecryptMessage}
  1581. type
  1582.   DECRYPT_MESSAGE_FN = function (phContext: PCtxtHandle; pMessage: PSecBufferDesc;
  1583.     MessageSeqNo: Cardinal; var pfQOP: Cardinal): SECURITY_STATUS; stdcall;
  1584.   {$EXTERNALSYM DECRYPT_MESSAGE_FN}
  1586. ///////////////////////////////////////////////////////////////////////////
  1587. ////
  1588. ////    Misc.
  1589. ////
  1590. ///////////////////////////////////////////////////////////////////////////
  1592. function EnumerateSecurityPackagesW(var pcPackages: Cardinal;
  1593.   var ppPackageInfo: PSecPkgInfoW): SECURITY_STATUS; stdcall;
  1594. {$EXTERNALSYM EnumerateSecurityPackagesW}
  1596. type
  1597.   ENUMERATE_SECURITY_PACKAGES_FN_W = function (var pcPackages: Cardinal;
  1598.     var ppPackageInfo: PSecPkgInfoW): SECURITY_STATUS; stdcall;
  1599.   {$EXTERNALSYM ENUMERATE_SECURITY_PACKAGES_FN_W}
  1601. function EnumerateSecurityPackagesA(var pcPackages: Cardinal;
  1602.   var ppPackageInfo: PSecPkgInfoA): SECURITY_STATUS; stdcall;
  1603. {$EXTERNALSYM EnumerateSecurityPackagesA}
  1605. type
  1606.   ENUMERATE_SECURITY_PACKAGES_FN_A = function (var pcPackages: Cardinal;
  1607.     var ppPackageInfo: PSecPkgInfoA): SECURITY_STATUS; stdcall;
  1608.   {$EXTERNALSYM ENUMERATE_SECURITY_PACKAGES_FN_A}
  1610. {$IFDEF UNICODE}
  1611. function EnumerateSecurityPackages(var pcPackages: Cardinal;
  1612.   var ppPackageInfo: PSecPkgInfoW): SECURITY_STATUS; stdcall;
  1613. {$EXTERNALSYM EnumerateSecurityPackages}
  1615. type
  1616.   ENUMERATE_SECURITY_PACKAGES_FN = function (var pcPackages: Cardinal;
  1617.     var ppPackageInfo: PSecPkgInfoW): SECURITY_STATUS; stdcall;
  1618.   {$EXTERNALSYM ENUMERATE_SECURITY_PACKAGES_FN}
  1619. {$ELSE}
  1620. function EnumerateSecurityPackages(var pcPackages: Cardinal;
  1621.   var ppPackageInfo: PSecPkgInfoA): SECURITY_STATUS; stdcall;
  1622. {$EXTERNALSYM EnumerateSecurityPackages}
  1624. type
  1625.   ENUMERATE_SECURITY_PACKAGES_FN = function (var pcPackages: Cardinal;
  1626.     var ppPackageInfo: PSecPkgInfoA): SECURITY_STATUS; stdcall;
  1627.   {$EXTERNALSYM ENUMERATE_SECURITY_PACKAGES_FN}
  1628. {$ENDIF}
  1630. function QuerySecurityPackageInfoW(pszPackageName: PSecWChar;
  1631.   var ppPackageInfo: PSecPkgInfoW): SECURITY_STATUS; stdcall;
  1632. {$EXTERNALSYM QuerySecurityPackageInfoW}
  1634. type
  1635.   QUERY_SECURITY_PACKAGE_INFO_FN_W = function (pszPackageName: PSecWChar;
  1636.     var ppPackageInfo: PSecPkgInfoW): SECURITY_STATUS; stdcall;
  1637.   {$EXTERNALSYM QUERY_SECURITY_PACKAGE_INFO_FN_W}
  1639. function QuerySecurityPackageInfoA(pszPackageName: PSecChar;
  1640.   var ppPackageInfo: PSecPkgInfoA): SECURITY_STATUS; stdcall;
  1641. {$EXTERNALSYM QuerySecurityPackageInfoA}
  1643. type
  1644.   QUERY_SECURITY_PACKAGE_INFO_FN_A = function (pszPackageName: PSecChar;
  1645.     var ppPackageInfo: PSecPkgInfoA): SECURITY_STATUS; stdcall;
  1646.   {$EXTERNALSYM QUERY_SECURITY_PACKAGE_INFO_FN_A}
  1648. {$IFDEF UNICODE}
  1649. function QuerySecurityPackageInfo(pszPackageName: PSecWChar;
  1650.   var ppPackageInfo: PSecPkgInfoW): SECURITY_STATUS; stdcall;
  1651. {$EXTERNALSYM QuerySecurityPackageInfo}
  1653. type
  1654.   QUERY_SECURITY_PACKAGE_INFO_FN = function (pszPackageName: PSecWChar;
  1655.     var ppPackageInfo: PSecPkgInfoW): SECURITY_STATUS; stdcall;
  1656.   {$EXTERNALSYM QUERY_SECURITY_PACKAGE_INFO_FN}
  1657. {$ELSE}
  1658. function QuerySecurityPackageInfo(pszPackageName: PSecChar;
  1659.   var ppPackageInfo: PSecPkgInfoA): SECURITY_STATUS; stdcall;
  1660. {$EXTERNALSYM QuerySecurityPackageInfo}
  1662. type
  1663.   QUERY_SECURITY_PACKAGE_INFO_FN = function (pszPackageName: PSecChar;
  1664.     var ppPackageInfo: PSecPkgInfoA): SECURITY_STATUS; stdcall;
  1665.   {$EXTERNALSYM QUERY_SECURITY_PACKAGE_INFO_FN}
  1666. {$ENDIF}
  1668. type
  1669.   _SecDelegationType = (
  1670.     SecFull,
  1671.     SecService,
  1672.     SecTree,
  1673.     SecDirectory,
  1674.     SecObject);
  1675.   {$EXTERNALSYM _SecDelegationType}
  1676.   SecDelegationType = _SecDelegationType;
  1677.   {$EXTERNALSYM SecDelegationType}
  1678.   PSecDelegationType = ^SecDelegationType;
  1679.   {$EXTERNALSYM PSecDelegationType}
  1680.   TSecDelegationType = SecDelegationType;
  1682. //function DelegateSecurityContext(phContext: PCtxtHandle; pszTarget: PSecChar;
  1683. //  DelegationType: SecDelegationType; pExpiry: PTimeStamp;
  1684. //  pPackageParameters: PSecBuffer; pOutput: PSecBufferDesc): SECURITY_STATUS; stdcall;
  1685. //{$EXTERNALSYM DelegateSecurityContext}
  1687. ///////////////////////////////////////////////////////////////////////////
  1688. ////
  1689. ////    Proxies
  1690. ////
  1691. ///////////////////////////////////////////////////////////////////////////
  1694. //
  1695. // Proxies are only available on NT platforms
  1696. //
  1698. ///////////////////////////////////////////////////////////////////////////
  1699. ////
  1700. ////    Context export/import
  1701. ////
  1702. ///////////////////////////////////////////////////////////////////////////
  1704. function ExportSecurityContext(phContext: PCtxtHandle; fFlags: ULONG;
  1705.   pPackedContext: PSecBuffer; var pToken: Pointer): SECURITY_STATUS; stdcall;
  1706. {$EXTERNALSYM ExportSecurityContext}
  1708. type
  1709.   EXPORT_SECURITY_CONTEXT_FN = function (phContext: PCtxtHandle; fFlags: ULONG;
  1710.     pPackedContext: PSecBuffer; var pToken: Pointer): SECURITY_STATUS; stdcall;
  1711.   {$EXTERNALSYM EXPORT_SECURITY_CONTEXT_FN}
  1713. function ImportSecurityContextW(pszPackage: PSecWChar; pPackedContext: PSecBuffer;
  1714.   Token: Pointer; phContext: PCtxtHandle): SECURITY_STATUS; stdcall;
  1715. {$EXTERNALSYM ImportSecurityContextW}
  1717. type
  1718.   IMPORT_SECURITY_CONTEXT_FN_W = function (pszPackage: PSecWChar; pPackedContext: PSecBuffer;
  1719.     Token: Pointer; phContext: PCtxtHandle): SECURITY_STATUS; stdcall;
  1720.   {$EXTERNALSYM IMPORT_SECURITY_CONTEXT_FN_W}
  1722. function ImportSecurityContextA(pszPackage: PSecChar; pPackedContext: PSecBuffer;
  1723.   Token: Pointer; phContext: PCtxtHandle): SECURITY_STATUS; stdcall;
  1724. {$EXTERNALSYM ImportSecurityContextA}
  1726. type
  1727.   IMPORT_SECURITY_CONTEXT_FN_A = function (pszPackage: PSecChar; pPackedContext: PSecBuffer;
  1728.     Token: Pointer; phContext: PCtxtHandle): SECURITY_STATUS; stdcall;
  1729.   {$EXTERNALSYM IMPORT_SECURITY_CONTEXT_FN_A}
  1731. {$IFDEF UNICODE}
  1732. function ImportSecurityContext(pszPackage: PSecWChar; pPackedContext: PSecBuffer;
  1733.   Token: Pointer; phContext: PCtxtHandle): SECURITY_STATUS; stdcall;
  1734. {$EXTERNALSYM ImportSecurityContext}
  1736. type
  1737.   IMPORT_SECURITY_CONTEXT_FN = function (pszPackage: PSecWChar; pPackedContext: PSecBuffer;
  1738.     Token: Pointer; phContext: PCtxtHandle): SECURITY_STATUS; stdcall;
  1739.   {$EXTERNALSYM IMPORT_SECURITY_CONTEXT_FN}
  1740. {$ELSE}
  1741. function ImportSecurityContext(pszPackage: PSecChar; pPackedContext: PSecBuffer;
  1742.   Token: Pointer; phContext: PCtxtHandle): SECURITY_STATUS; stdcall;
  1743. {$EXTERNALSYM ImportSecurityContext}
  1745. type
  1746.   IMPORT_SECURITY_CONTEXT_FN = function (pszPackage: PSecChar; pPackedContext: PSecBuffer;
  1747.     Token: Pointer; phContext: PCtxtHandle): SECURITY_STATUS; stdcall;
  1748.   {$EXTERNALSYM IMPORT_SECURITY_CONTEXT_FN}
  1749. {$ENDIF}
  1751. (*
  1753. #if ISSP_MODE == 0
  1755. NTSTATUS
  1756. NTAPI
  1757. SecMakeSPN(
  1758.     IN PUNICODE_STRING ServiceClass,
  1759.     IN PUNICODE_STRING ServiceName,
  1760.     IN PUNICODE_STRING InstanceName OPTIONAL,
  1761.     IN USHORT InstancePort OPTIONAL,
  1762.     IN PUNICODE_STRING Referrer OPTIONAL,
  1763.     IN OUT PUNICODE_STRING Spn,
  1764.     OUT PULONG Length OPTIONAL,
  1765.     IN BOOLEAN Allocate
  1766.     );
  1768. NTSTATUS
  1769. NTAPI
  1770. SecMakeSPNEx(
  1771.     IN PUNICODE_STRING ServiceClass,
  1772.     IN PUNICODE_STRING ServiceName,
  1773.     IN PUNICODE_STRING InstanceName OPTIONAL,
  1774.     IN USHORT InstancePort OPTIONAL,
  1775.     IN PUNICODE_STRING Referrer OPTIONAL,
  1776.     IN PUNICODE_STRING TargetInfo OPTIONAL,
  1777.     IN OUT PUNICODE_STRING Spn,
  1778.     OUT PULONG Length OPTIONAL,
  1779.     IN BOOLEAN Allocate
  1780.     );
  1782. NTSTATUS
  1783. SEC_ENTRY
  1784. SecLookupAccountSid(
  1785.     IN PSID Sid,
  1786.     IN OUT PULONG NameSize,
  1787.     OUT PUNICODE_STRING NameBuffer,
  1788.     IN OUT PULONG DomainSize OPTIONAL,
  1789.     OUT PUNICODE_STRING DomainBuffer OPTIONAL,
  1790.     OUT PSID_NAME_USE NameUse
  1791.     );
  1793. NTSTATUS
  1794. SEC_ENTRY
  1795. SecLookupAccountName(
  1796.     IN PUNICODE_STRING Name,
  1797.     IN OUT PULONG SidSize,
  1798.     OUT PSID Sid,
  1799.     OUT PSID_NAME_USE NameUse,
  1800.     IN OUT PULONG DomainSize OPTIONAL,
  1801.     OUT PUNICODE_STRING ReferencedDomain OPTIONAL
  1802.     );
  1804. NTSTATUS
  1805. SEC_ENTRY
  1806. SecLookupWellKnownSid(
  1807.     IN WELL_KNOWN_SID_TYPE SidType,
  1808.     OUT PSID Sid,
  1809.     ULONG SidBufferSize,
  1810.     OUT PULONG SidSize OPTIONAL
  1811.     );
  1813. #endif
  1815. *)
  1817. ///////////////////////////////////////////////////////////////////////////////
  1818. ////
  1819. ////  Fast access for RPC:
  1820. ////
  1821. ///////////////////////////////////////////////////////////////////////////////
  1823. const
  1824.   SECURITY_ENTRYPOINT_ANSIW = 'InitSecurityInterfaceW';
  1825.   {$EXTERNALSYM SECURITY_ENTRYPOINT_ANSIW}
  1826.   SECURITY_ENTRYPOINT_ANSIA = 'InitSecurityInterfaceA';
  1827.   {$EXTERNALSYM SECURITY_ENTRYPOINT_ANSIA}
  1828.   SECURITY_ENTRYPOINTW      = 'InitSecurityInterfaceW';
  1829.   {$EXTERNALSYM SECURITY_ENTRYPOINTW}
  1830.   SECURITY_ENTRYPOINTA      = 'InitSecurityInterfaceA';
  1831.   {$EXTERNALSYM SECURITY_ENTRYPOINTA}
  1832.   SECURITY_ENTRYPOINT16     = 'INITSECURITYINTERFACEA';
  1833.   {$EXTERNALSYM SECURITY_ENTRYPOINT16}
  1835. {$IFDEF UNICODE}
  1836.   SECURITY_ENTRYPOINT = SECURITY_ENTRYPOINTW;
  1837.   {$EXTERNALSYM SECURITY_ENTRYPOINT}
  1838.   SECURITY_ENTRYPOINT_ANSI = SECURITY_ENTRYPOINT_ANSIW;
  1839.   {$EXTERNALSYM SECURITY_ENTRYPOINT_ANSI}
  1840. {$ELSE}
  1841.   SECURITY_ENTRYPOINT = SECURITY_ENTRYPOINTA;
  1842.   {$EXTERNALSYM SECURITY_ENTRYPOINT}
  1843.   SECURITY_ENTRYPOINT_ANSI = SECURITY_ENTRYPOINT_ANSIA;
  1844.   {$EXTERNALSYM SECURITY_ENTRYPOINT_ANSI}
  1845. {$ENDIF}
  1847. function FreeCredentialHandle(phCredential: PCredHandle): SECURITY_STATUS;
  1848. {$EXTERNALSYM FreeCredentialHandle}
  1850. type
  1851.   PSecurityFunctionTableW = ^SecurityFunctionTableW;
  1852.   {$EXTERNALSYM PSecurityFunctionTableW}
  1853.   _SECURITY_FUNCTION_TABLE_W = record
  1854.     dwVersion: Cardinal;
  1855.     EnumerateSecurityPackagesW: ENUMERATE_SECURITY_PACKAGES_FN_W;
  1856.     QueryCredentialsAttributesW: QUERY_CREDENTIALS_ATTRIBUTES_FN_W;
  1857.     AcquireCredentialsHandleW: ACQUIRE_CREDENTIALS_HANDLE_FN_W;
  1858.     FreeCredentialsHandle: FREE_CREDENTIALS_HANDLE_FN;
  1859.     Reserved2: Pointer;
  1860.     InitializeSecurityContextW: INITIALIZE_SECURITY_CONTEXT_FN_W;
  1861.     AcceptSecurityContext: ACCEPT_SECURITY_CONTEXT_FN;
  1862.     CompleteAuthToken: COMPLETE_AUTH_TOKEN_FN;
  1863.     DeleteSecurityContext: DELETE_SECURITY_CONTEXT_FN;
  1864.     ApplyControlToken: APPLY_CONTROL_TOKEN_FN;
  1865.     QueryContextAttributesW: QUERY_CONTEXT_ATTRIBUTES_FN_W;
  1866.     ImpersonateSecurityContext: IMPERSONATE_SECURITY_CONTEXT_FN;
  1867.     RevertSecurityContext: REVERT_SECURITY_CONTEXT_FN;
  1868.     MakeSignature: MAKE_SIGNATURE_FN;
  1869.     VerifySignature: VERIFY_SIGNATURE_FN;
  1870.     FreeContextBuffer: FREE_CONTEXT_BUFFER_FN;
  1871.     QuerySecurityPackageInfoW: QUERY_SECURITY_PACKAGE_INFO_FN_W;
  1872.     Reserved3: Pointer;
  1873.     Reserved4: Pointer;
  1874.     ExportSecurityContext: EXPORT_SECURITY_CONTEXT_FN;
  1875.     ImportSecurityContextW: IMPORT_SECURITY_CONTEXT_FN_W;
  1876.     AddCredentialsW: ADD_CREDENTIALS_FN_W;
  1877.     Reserved8: Pointer;
  1878.     QuerySecurityContextToken: QUERY_SECURITY_CONTEXT_TOKEN_FN;
  1879.     EncryptMessage: ENCRYPT_MESSAGE_FN;
  1880.     DecryptMessage: DECRYPT_MESSAGE_FN;
  1881.     SetContextAttributesW: SET_CONTEXT_ATTRIBUTES_FN_W;
  1882.   end;
  1883.   {$EXTERNALSYM _SECURITY_FUNCTION_TABLE_W}
  1884.   SecurityFunctionTableW = _SECURITY_FUNCTION_TABLE_W;
  1885.   {$EXTERNALSYM SecurityFunctionTableW}
  1886.   TSecurityFunctionTableW = SecurityFunctionTableW;
  1888.   PSecurityFunctionTableA = ^SecurityFunctionTableA;
  1889.   {$EXTERNALSYM PSecurityFunctionTableA}
  1890.   _SECURITY_FUNCTION_TABLE_A = record
  1891.     dwVersion: Cardinal;
  1892.     EnumerateSecurityPackagesA: ENUMERATE_SECURITY_PACKAGES_FN_A;
  1893.     QueryCredentialsAttributesA: QUERY_CREDENTIALS_ATTRIBUTES_FN_A;
  1894.     AcquireCredentialsHandleA: ACQUIRE_CREDENTIALS_HANDLE_FN_A;
  1895.     FreeCredentialHandle: FREE_CREDENTIALS_HANDLE_FN;
  1896.     Reserved2: Pointer;
  1897.     InitializeSecurityContextA: INITIALIZE_SECURITY_CONTEXT_FN_A;
  1898.     AcceptSecurityContext: ACCEPT_SECURITY_CONTEXT_FN;
  1899.     CompleteAuthToken: COMPLETE_AUTH_TOKEN_FN;
  1900.     DeleteSecurityContext: DELETE_SECURITY_CONTEXT_FN;
  1901.     ApplyControlToken: APPLY_CONTROL_TOKEN_FN;
  1902.     QueryContextAttributesA: QUERY_CONTEXT_ATTRIBUTES_FN_A;
  1903.     ImpersonateSecurityContext: IMPERSONATE_SECURITY_CONTEXT_FN;
  1904.     RevertSecurityContext: REVERT_SECURITY_CONTEXT_FN;
  1905.     MakeSignature: MAKE_SIGNATURE_FN;
  1906.     VerifySignature: VERIFY_SIGNATURE_FN;
  1907.     FreeContextBuffer: FREE_CONTEXT_BUFFER_FN;
  1908.     QuerySecurityPackageInfoA: QUERY_SECURITY_PACKAGE_INFO_FN_A;
  1909.     Reserved3: Pointer;
  1910.     Reserved4: Pointer;
  1911.     ExportSecurityContext: EXPORT_SECURITY_CONTEXT_FN;
  1912.     ImportSecurityContextA: IMPORT_SECURITY_CONTEXT_FN_A;
  1913.     AddCredentialsA : ADD_CREDENTIALS_FN_A;
  1914.     Reserved8: Pointer;
  1915.     QuerySecurityContextToken: QUERY_SECURITY_CONTEXT_TOKEN_FN;
  1916.     EncryptMessage: ENCRYPT_MESSAGE_FN;
  1917.     DecryptMessage: DECRYPT_MESSAGE_FN;
  1918.     SetContextAttributesA: SET_CONTEXT_ATTRIBUTES_FN_A;
  1919.   end;
  1920.   {$EXTERNALSYM _SECURITY_FUNCTION_TABLE_A}
  1921.   SecurityFunctionTableA = _SECURITY_FUNCTION_TABLE_A;
  1922.   {$EXTERNALSYM SecurityFunctionTableA}
  1923.   TSecurityFunctionTableA = SecurityFunctionTableA;
  1925. {$IFDEF UNICODE}
  1926.   SecurityFunctionTable  = SecurityFunctionTableW;
  1927.   {$EXTERNALSYM SecurityFunctionTable}
  1928.   PSecurityFunctionTable = PSecurityFunctionTableW;
  1929.   {$EXTERNALSYM PSecurityFunctionTable}
  1930.   TSecurityFunctionTable = TSecurityFunctionTableW;
  1931. {$ELSE}
  1932.   SecurityFunctionTable  = SecurityFunctionTableA;
  1933.   {$EXTERNALSYM SecurityFunctionTable}
  1934.   PSecurityFunctionTable = PSecurityFunctionTableA;
  1935.   {$EXTERNALSYM PSecurityFunctionTable}
  1936.   TSecurityFunctionTable = TSecurityFunctionTableA;
  1937. {$ENDIF}
  1939. const
  1940.   // Function table has all routines through DecryptMessage
  1941.   SECURITY_SUPPORT_PROVIDER_INTERFACE_VERSION = 1;
  1942.   {$EXTERNALSYM SECURITY_SUPPORT_PROVIDER_INTERFACE_VERSION}
  1944.   // Function table has all routines through SetContextAttributes
  1945.   SECURITY_SUPPORT_PROVIDER_INTERFACE_VERSION_2 = 2;
  1946.   {$EXTERNALSYM SECURITY_SUPPORT_PROVIDER_INTERFACE_VERSION_2}
  1948. function InitSecurityInterfaceA: PSecurityFunctionTableA; stdcall;
  1949. {$EXTERNALSYM InitSecurityInterfaceA}
  1951. type
  1952.   INIT_SECURITY_INTERFACE_A = function : PSecurityFunctionTableA; stdcall;
  1953.   {$EXTERNALSYM INIT_SECURITY_INTERFACE_A}
  1955. function InitSecurityInterfaceW: PSecurityFunctionTableW; stdcall;
  1956. {$EXTERNALSYM InitSecurityInterfaceW}
  1958. type
  1959.   INIT_SECURITY_INTERFACE_W = function : PSecurityFunctionTableW; stdcall;
  1960.   {$EXTERNALSYM INIT_SECURITY_INTERFACE_W}
  1962. {$IFDEF UNICODE}
  1963. function InitSecurityInterface: PSecurityFunctionTableW; stdcall;
  1964. {$EXTERNALSYM InitSecurityInterface}
  1966. type
  1967.   INIT_SECURITY_INTERFACE = function : PSecurityFunctionTableW; stdcall;
  1968.   {$EXTERNALSYM INIT_SECURITY_INTERFACE}
  1969. {$ELSE}
  1970. function InitSecurityInterface: PSecurityFunctionTableA; stdcall;
  1971. {$EXTERNALSYM InitSecurityInterface}
  1973. type
  1974.   INIT_SECURITY_INTERFACE = function : PSecurityFunctionTableA; stdcall;
  1975.   {$EXTERNALSYM INIT_SECURITY_INTERFACE}
  1976. {$ENDIF}
  1978. //
  1979. // SASL Profile Support
  1980. //
  1982. function SaslEnumerateProfilesA(var ProfileList: LPSTR;
  1983.   var ProfileCount: ULONG): SECURITY_STATUS; stdcall;
  1984. {$EXTERNALSYM SaslEnumerateProfilesA}
  1985. function SaslEnumerateProfilesW(var ProfileList: LPWSTR;
  1986.   var ProfileCount: ULONG): SECURITY_STATUS; stdcall;
  1987. {$EXTERNALSYM SaslEnumerateProfilesW}
  1989. {$IFDEF UNICODE}
  1990. function SaslEnumerateProfiles(var ProfileList: LPWSTR;
  1991.   var ProfileCount: ULONG): SECURITY_STATUS; stdcall;
  1992. {$EXTERNALSYM SaslEnumerateProfiles}
  1993. {$ELSE}
  1994. function SaslEnumerateProfiles(var ProfileList: LPSTR;
  1995.   var ProfileCount: ULONG): SECURITY_STATUS; stdcall;
  1996. {$EXTERNALSYM SaslEnumerateProfiles}
  1997. {$ENDIF}
  1999. function SaslGetProfilePackageA(ProfileName: LPSTR;
  2000.   var PackageInfo: PSecPkgInfoA): SECURITY_STATUS; stdcall;
  2001. {$EXTERNALSYM SaslGetProfilePackageA}
  2002. function SaslGetProfilePackageW(ProfileName: LPWSTR;
  2003.   var PackageInfo: PSecPkgInfoW): SECURITY_STATUS; stdcall;
  2004. {$EXTERNALSYM SaslGetProfilePackageW}
  2006. {$IFDEF UNICODE}
  2007. function SaslGetProfilePackage(ProfileName: LPWSTR;
  2008.   var PackageInfo: PSecPkgInfoW): SECURITY_STATUS; stdcall;
  2009. {$EXTERNALSYM SaslGetProfilePackage}
  2010. {$ELSE}
  2011. function SaslGetProfilePackage(ProfileName: LPSTR;
  2012.   var PackageInfo: PSecPkgInfoA): SECURITY_STATUS; stdcall;
  2013. {$EXTERNALSYM SaslGetProfilePackage}
  2014. {$ENDIF}
  2016. function SaslIdentifyPackageA(pInput: PSecBufferDesc;
  2017.   var PackageInfo: PSecPkgInfoA): SECURITY_STATUS; stdcall;
  2018. {$EXTERNALSYM SaslIdentifyPackageA}
  2019. function SaslIdentifyPackageW(pInput: PSecBufferDesc;
  2020.   var PackageInfo: PSecPkgInfoW): SECURITY_STATUS; stdcall;
  2021. {$EXTERNALSYM SaslIdentifyPackageW}
  2023. {$IFDEF UNICODE}
  2024. function SaslIdentifyPackage(pInput: PSecBufferDesc;
  2025.   var PackageInfo: PSecPkgInfoW): SECURITY_STATUS; stdcall;
  2026. {$EXTERNALSYM SaslIdentifyPackage}
  2027. {$ELSE}
  2028. function SaslIdentifyPackage(pInput: PSecBufferDesc;
  2029.   var PackageInfo: PSecPkgInfoA): SECURITY_STATUS; stdcall;
  2030. {$EXTERNALSYM SaslIdentifyPackage}
  2031. {$ENDIF}
  2033. function SaslInitializeSecurityContextW(phCredential: PCredHandle;
  2034.   phContext: PCtxtHandle; pszTargetName: LPWSTR; fContextReq, Reserved1: Cardinal;
  2035.   TargetDataRep: Cardinal; pInput: PSecBufferDesc; Reserved2: Cardinal;
  2036.   phNewContext: PCtxtHandle; pOutput: PSecBufferDesc; var pfContextAttr: Cardinal;
  2037.   ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  2038. {$EXTERNALSYM SaslInitializeSecurityContextW}
  2039. function SaslInitializeSecurityContextA(phCredential: PCredHandle;
  2040.   phContext: PCtxtHandle; pszTargetName: LPSTR; fContextReq, Reserved1: Cardinal;
  2041.   TargetDataRep: Cardinal; pInput: PSecBufferDesc; Reserved2: Cardinal;
  2042.   phNewContext: PCtxtHandle; pOutput: PSecBufferDesc; var pfContextAttr: Cardinal;
  2043.   ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  2044. {$EXTERNALSYM SaslInitializeSecurityContextA}
  2046. {$IFDEF UNICODE}
  2047. function SaslInitializeSecurityContext(phCredential: PCredHandle;
  2048.   phContext: PCtxtHandle; pszTargetName: LPWSTR; fContextReq, Reserved1: Cardinal;
  2049.   TargetDataRep: Cardinal; pInput: PSecBufferDesc; Reserved2: Cardinal;
  2050.   phNewContext: PCtxtHandle; pOutput: PSecBufferDesc; var pfContextAttr: Cardinal;
  2051.   ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  2052. {$EXTERNALSYM SaslInitializeSecurityContext}
  2053. {$ELSE}
  2054. function SaslInitializeSecurityContext(phCredential: PCredHandle;
  2055.   phContext: PCtxtHandle; pszTargetName: LPSTR; fContextReq, Reserved1: Cardinal;
  2056.   TargetDataRep: Cardinal; pInput: PSecBufferDesc; Reserved2: Cardinal;
  2057.   phNewContext: PCtxtHandle; pOutput: PSecBufferDesc; var pfContextAttr: Cardinal;
  2058.   ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  2059. {$EXTERNALSYM SaslInitializeSecurityContext}
  2060. {$ENDIF}
  2062. function SaslAcceptSecurityContext(phCredential: PCredHandle;
  2063.   phContext: PCtxtHandle; pInput: PSecBufferDesc; fContextReq: Cardinal;
  2064.   TargetDataRep: Cardinal; phNewContext: PCtxtHandle; pOutput: PSecBufferDesc;
  2065.   var pfContextAttr: Cardinal; ptsExpiry: PTimeStamp): SECURITY_STATUS; stdcall;
  2066. {$EXTERNALSYM SaslAcceptSecurityContext}
  2068. const
  2069.   SASL_OPTION_SEND_SIZE        = 1;       // Maximum size to send to peer
  2070.   {$EXTERNALSYM SASL_OPTION_SEND_SIZE}
  2071.   SASL_OPTION_RECV_SIZE        = 2;       // Maximum size willing to receive
  2072.   {$EXTERNALSYM SASL_OPTION_RECV_SIZE}
  2073.   SASL_OPTION_AUTHZ_STRING     = 3;       // Authorization string
  2074.   {$EXTERNALSYM SASL_OPTION_AUTHZ_STRING}
  2075.   SASL_OPTION_AUTHZ_PROCESSING = 4;       // Authorization string processing
  2076.   {$EXTERNALSYM SASL_OPTION_AUTHZ_PROCESSING}
  2078. type
  2079.   _SASL_AUTHZID_STATE = (
  2080.     Sasl_AuthZIDForbidden,             // allow no AuthZID strings to be specified - error out (default)
  2081.     Sasl_AuthZIDProcessed);           // AuthZID Strings processed by Application or SSP
  2082.   {$EXTERNALSYM _SASL_AUTHZID_STATE}
  2083.   SASL_AUTHZID_STATE = _SASL_AUTHZID_STATE;
  2084.   {$EXTERNALSYM SASL_AUTHZID_STATE}
  2085.   TSaslAuthzIDState = SASL_AUTHZID_STATE;
  2087. function SaslSetContextOption(ContextHandle: PCtxtHandle; Option: ULONG; Value: PVOID; Size: ULONG): SECURITY_STATUS; stdcall;
  2088. {$EXTERNALSYM SaslSetContextOption}
  2090. function SaslGetContextOption(ContextHandle: PCtxtHandle; Option: ULONG; Value: PVOID;
  2091.   Size: ULONG; Needed: PULONG): SECURITY_STATUS; stdcall;
  2092. {$EXTERNALSYM SaslGetContextOption}
  2094. //
  2095. // This is the legacy credentials structure.
  2096. // The EX version below is preferred.
  2098. const
  2099.   SEC_WINNT_AUTH_IDENTITY_ANSI    = $1;
  2100.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY_ANSI}
  2101.   SEC_WINNT_AUTH_IDENTITY_UNICODE = $2;
  2102.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY_UNICODE}
  2104. type
  2105.   _SEC_WINNT_AUTH_IDENTITY_W = record
  2106.     User: PWideChar;
  2107.     UserLength: Cardinal;
  2108.     Domain: PWideChar;
  2109.     DomainLength: Cardinal;
  2110.     Password: PWideChar;
  2111.     PasswordLength: Cardinal;
  2112.     Flags: Cardinal;
  2113.   end;
  2114.   {$EXTERNALSYM _SEC_WINNT_AUTH_IDENTITY_W}
  2115.   SEC_WINNT_AUTH_IDENTITY_W = _SEC_WINNT_AUTH_IDENTITY_W;
  2116.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY_W}
  2117.   PSEC_WINNT_AUTH_IDENTITY_W = ^SEC_WINNT_AUTH_IDENTITY_W;
  2118.   {$EXTERNALSYM PSEC_WINNT_AUTH_IDENTITY_W}
  2119.   TSecWinNTAuthIdentityW = SEC_WINNT_AUTH_IDENTITY_W;
  2120.   PSecWinNTAuthIdentityW = PSEC_WINNT_AUTH_IDENTITY_W;
  2122.   _SEC_WINNT_AUTH_IDENTITY_A = record
  2123.     User: PChar;
  2124.     UserLength: Cardinal;
  2125.     Domain: PChar;
  2126.     DomainLength: Cardinal;
  2127.     Password: PChar;
  2128.     PasswordLength: Cardinal;
  2129.     Flags: Cardinal;
  2130.   end;
  2131.   {$EXTERNALSYM _SEC_WINNT_AUTH_IDENTITY_A}
  2132.   SEC_WINNT_AUTH_IDENTITY_A = _SEC_WINNT_AUTH_IDENTITY_A;
  2133.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY_A}
  2134.   PSEC_WINNT_AUTH_IDENTITY_A = ^SEC_WINNT_AUTH_IDENTITY_A;
  2135.   {$EXTERNALSYM PSEC_WINNT_AUTH_IDENTITY_A}
  2136.   TSecWinNTAuthIdentityA = SEC_WINNT_AUTH_IDENTITY_A;
  2137.   PSecWinNTAuthIdentityA = PSEC_WINNT_AUTH_IDENTITY_A;
  2139. {$IFDEF UNICODE}
  2140.   SEC_WINNT_AUTH_IDENTITY = SEC_WINNT_AUTH_IDENTITY_W;
  2141.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY}
  2142.   PSEC_WINNT_AUTH_IDENTITY = PSEC_WINNT_AUTH_IDENTITY_W;
  2143.   {$EXTERNALSYM PSEC_WINNT_AUTH_IDENTITY}
  2144.   _SEC_WINNT_AUTH_IDENTITY = _SEC_WINNT_AUTH_IDENTITY_W;
  2145.   {$EXTERNALSYM _SEC_WINNT_AUTH_IDENTITY}
  2146.   TSecWinNTAuthIdentity = TSecWinNTAuthIdentityW;
  2147.   PSecWinNTAuthIdentity = PSecWinNTAuthIdentityW;
  2148. {$ELSE}
  2149.   SEC_WINNT_AUTH_IDENTITY = SEC_WINNT_AUTH_IDENTITY_A;
  2150.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY}
  2151.   PSEC_WINNT_AUTH_IDENTITY = PSEC_WINNT_AUTH_IDENTITY_A;
  2152.   {$EXTERNALSYM PSEC_WINNT_AUTH_IDENTITY}
  2153.   _SEC_WINNT_AUTH_IDENTITY = _SEC_WINNT_AUTH_IDENTITY_A;
  2154.   {$EXTERNALSYM _SEC_WINNT_AUTH_IDENTITY}
  2155.   TSecWinNTAuthIdentity = TSecWinNTAuthIdentityA;
  2156.   PSecWinNTAuthIdentity = PSecWinNTAuthIdentityA;
  2157. {$ENDIF}
  2159. //
  2160. // This is the combined authentication identity structure that may be
  2161. // used with the negotiate package, NTLM, Kerberos, or SCHANNEL
  2162. //
  2164. const
  2165.   SEC_WINNT_AUTH_IDENTITY_VERSION = $200;
  2167. type
  2168.   _SEC_WINNT_AUTH_IDENTITY_EXW = record
  2169.     Version: Cardinal;
  2170.     Length: Cardinal;
  2171.     User: PWideChar;
  2172.     UserLength: Cardinal;
  2173.     Domain: PWideChar;
  2174.     DomainLength: Cardinal;
  2175.     Password: PWideChar;
  2176.     PasswordLength: Cardinal;
  2177.     Flags: Cardinal;
  2178.     PackageList: PWideChar;
  2179.     PackageListLength: Cardinal;
  2180.   end;
  2181.   {$EXTERNALSYM _SEC_WINNT_AUTH_IDENTITY_EXW}
  2182.   SEC_WINNT_AUTH_IDENTITY_EXW = _SEC_WINNT_AUTH_IDENTITY_EXW;
  2183.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY_EXW}
  2184.   PSEC_WINNT_AUTH_IDENTITY_EXW = ^SEC_WINNT_AUTH_IDENTITY_EXW;
  2185.   {$EXTERNALSYM PSEC_WINNT_AUTH_IDENTITY_EXW}
  2186.   TSecWinNTAuthIdentityExW = SEC_WINNT_AUTH_IDENTITY_EXW;
  2187.   PSecWinNTAuthIdentityExW = PSEC_WINNT_AUTH_IDENTITY_EXW;
  2189.   _SEC_WINNT_AUTH_IDENTITY_EXA = record
  2190.     Version: Cardinal;
  2191.     Length: Cardinal;
  2192.     User: PChar;
  2193.     UserLength: Cardinal;
  2194.     Domain: PChar;
  2195.     DomainLength: Cardinal;
  2196.     Password: PChar;
  2197.     PasswordLength: Cardinal;
  2198.     Flags: Cardinal;
  2199.     PackageList: PChar;
  2200.     PackageListLength: Cardinal;
  2201.   end;
  2202.   {$EXTERNALSYM _SEC_WINNT_AUTH_IDENTITY_EXA}
  2203.   SEC_WINNT_AUTH_IDENTITY_EXA = _SEC_WINNT_AUTH_IDENTITY_EXA;
  2204.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY_EXA}
  2205.   PSEC_WINNT_AUTH_IDENTITY_EXA = ^SEC_WINNT_AUTH_IDENTITY_EXA;
  2206.   {$EXTERNALSYM PSEC_WINNT_AUTH_IDENTITY_EXA}
  2207.   TSecWinNTAuthIdentityExA = SEC_WINNT_AUTH_IDENTITY_EXA;
  2208.   PSecWinNTAuthIdentityExA = PSEC_WINNT_AUTH_IDENTITY_EXA;
  2210. {$IFDEF UNICODE}
  2211.   SEC_WINNT_AUTH_IDENTITY_EX = SEC_WINNT_AUTH_IDENTITY_EXW;
  2212.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY_EX}
  2213.   PSEC_WINNT_AUTH_IDENTITY_EX = PSEC_WINNT_AUTH_IDENTITY_EXW;
  2214.   {$EXTERNALSYM PSEC_WINNT_AUTH_IDENTITY_EX}
  2215.   TSecWinNTAuthIdentityEx = TSecWinNTAuthIdentityExW;
  2216.   PSecWinNTAuthIdentityEx = PSecWinNTAuthIdentityExW;
  2217. {$ELSE}
  2218.   SEC_WINNT_AUTH_IDENTITY_EX = SEC_WINNT_AUTH_IDENTITY_EXA;
  2219.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY_EX}
  2220.   PSEC_WINNT_AUTH_IDENTITY_EX = PSEC_WINNT_AUTH_IDENTITY_EXA;
  2221.   {$EXTERNALSYM PSEC_WINNT_AUTH_IDENTITY_EX}
  2222.   TSecWinNTAuthIdentityEx = TSecWinNTAuthIdentityExA;
  2223.   PSecWinNTAuthIdentityEx = PSecWinNTAuthIdentityExA;
  2224. {$ENDIF}
  2226. //
  2227. // Common types used by negotiable security packages
  2228. //
  2230. const
  2231.   SEC_WINNT_AUTH_IDENTITY_MARSHALLED     = $4;     // all data is in one buffer
  2232.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY_MARSHALLED}
  2233.   SEC_WINNT_AUTH_IDENTITY_ONLY           = $8;     // these credentials are for identity only - no PAC needed
  2234.   {$EXTERNALSYM SEC_WINNT_AUTH_IDENTITY_ONLY}
  2236. //
  2237. // Routines for manipulating packages
  2238. //
  2240. type
  2241.   _SECURITY_PACKAGE_OPTIONS = record
  2242.     Size: Cardinal;
  2243.     Type_: Cardinal;
  2244.     Flags: Cardinal;
  2245.     SignatureSize: Cardinal;
  2246.     Signature: Pointer;
  2247.   end;
  2248.   {$EXTERNALSYM _SECURITY_PACKAGE_OPTIONS}
  2249.   SECURITY_PACKAGE_OPTIONS = _SECURITY_PACKAGE_OPTIONS;
  2250.   {$EXTERNALSYM SECURITY_PACKAGE_OPTIONS}
  2251.   PSECURITY_PACKAGE_OPTIONS = ^SECURITY_PACKAGE_OPTIONS;
  2252.   TSecurityPackageOptions = SECURITY_PACKAGE_OPTIONS;
  2253.   PSecurityPackageOptions = PSECURITY_PACKAGE_OPTIONS;
  2255. const
  2256.   SECPKG_OPTIONS_TYPE_UNKNOWN = 0;
  2257.   {$EXTERNALSYM SECPKG_OPTIONS_TYPE_UNKNOWN}
  2258.   SECPKG_OPTIONS_TYPE_LSA     = 1;
  2259.   {$EXTERNALSYM SECPKG_OPTIONS_TYPE_LSA}
  2260.   SECPKG_OPTIONS_TYPE_SSPI    = 2;
  2261.   {$EXTERNALSYM SECPKG_OPTIONS_TYPE_SSPI}
  2263.   SECPKG_OPTIONS_PERMANENT    = $00000001;
  2264.   {$EXTERNALSYM SECPKG_OPTIONS_PERMANENT}
  2266. function AddSecurityPackageA(pszPackageName: PSEC_CHAR; Options: PSECURITY_PACKAGE_OPTIONS): SECURITY_STATUS; stdcall;
  2267. {$EXTERNALSYM AddSecurityPackageA}
  2269. function AddSecurityPackageW(pszPackageName: PSEC_WCHAR; Options: PSECURITY_PACKAGE_OPTIONS): SECURITY_STATUS; stdcall;
  2270. {$EXTERNALSYM AddSecurityPackageW}
  2272. {$IFDEF UNICODE}
  2273. function AddSecurityPackage(pszPackageName: PSEC_WCHAR; Options: PSECURITY_PACKAGE_OPTIONS): SECURITY_STATUS; stdcall;
  2274. {$EXTERNALSYM AddSecurityPackage}
  2275. {$ELSE}
  2276. function AddSecurityPackage(pszPackageName: PSEC_CHAR; Options: PSECURITY_PACKAGE_OPTIONS): SECURITY_STATUS; stdcall;
  2277. {$EXTERNALSYM AddSecurityPackage}
  2278. {$ENDIF}
  2280. function DeleteSecurityPackageA(pszPackageName: PSEC_CHAR): SECURITY_STATUS; stdcall;
  2281. {$EXTERNALSYM DeleteSecurityPackageA}
  2283. function DeleteSecurityPackageW(pszPackageName: PSEC_WCHAR): SECURITY_STATUS; stdcall;
  2284. {$EXTERNALSYM DeleteSecurityPackageW}
  2286. {$IFDEF UNICODE}
  2287. function DeleteSecurityPackage(pszPackageName: PSEC_WCHAR): SECURITY_STATUS; stdcall;
  2288. {$EXTERNALSYM DeleteSecurityPackage}
  2289. {$ELSE}
  2290. function DeleteSecurityPackage(pszPackageName: PSEC_CHAR): SECURITY_STATUS; stdcall;
  2291. {$EXTERNALSYM DeleteSecurityPackage}
  2292. {$ENDIF}
  2294. implementation
  2296. procedure SecInvalidateHandle(var x: SecHandle);
  2297. begin
  2298.   x.dwLower := ULONG_PTR(-1);
  2299.   x.dwUpper := ULONG_PTR(-1);
  2300. end;
  2302. function SecIsValidHandle(x: SecHandle): Boolean;
  2303. begin
  2304.   Result := (x.dwLower <> ULONG_PTR(-1)) and (x.dwUpper <> ULONG_PTR(-1));
  2305. end;
  2307. function FreeCredentialHandle(phCredential: PCredHandle): SECURITY_STATUS;
  2308. begin
  2309.   Result := FreeCredentialsHandle(phCredential);
  2310. end;
  2312. const
  2313.   secur32 = 'secur32.dll';
  2316. {$IFDEF DYNAMIC_LINK}
  2317. var
  2318.   _AcquireCredentialsHandleW: Pointer;
  2320. function AcquireCredentialsHandleW;
  2321. begin
  2322.   GetProcedureAddress(_AcquireCredentialsHandleW, secur32, 'AcquireCredentialsHandleW');
  2323.   asm
  2324.     mov esp, ebp
  2325.     pop ebp
  2326.     jmp [_AcquireCredentialsHandleW]
  2327.   end;
  2328. end;
  2329. {$ELSE}
  2330. function AcquireCredentialsHandleW; external secur32 name 'AcquireCredentialsHandleW';
  2331. {$ENDIF DYNAMIC_LINK}
  2333. {$IFDEF DYNAMIC_LINK}
  2334. var
  2335.   _AcquireCredentialsHandleA: Pointer;
  2337. function AcquireCredentialsHandleA;
  2338. begin
  2339.   GetProcedureAddress(_AcquireCredentialsHandleA, secur32, 'AcquireCredentialsHandleA');
  2340.   asm
  2341.     mov esp, ebp
  2342.     pop ebp
  2343.     jmp [_AcquireCredentialsHandleA]
  2344.   end;
  2345. end;
  2346. {$ELSE}
  2347. function AcquireCredentialsHandleA; external secur32 name 'AcquireCredentialsHandleA';
  2348. {$ENDIF DYNAMIC_LINK}
  2349. {$IFDEF UNICODE}
  2351. {$IFDEF DYNAMIC_LINK}
  2352. var
  2353.   _AcquireCredentialsHandle: Pointer;
  2355. function AcquireCredentialsHandle;
  2356. begin
  2357.   GetProcedureAddress(_AcquireCredentialsHandle, secur32, 'AcquireCredentialsHandleW');
  2358.   asm
  2359.     mov esp, ebp
  2360.     pop ebp
  2361.     jmp [_AcquireCredentialsHandle]
  2362.   end;
  2363. end;
  2364. {$ELSE}
  2365. function AcquireCredentialsHandle; external secur32 name 'AcquireCredentialsHandleW';
  2366. {$ENDIF DYNAMIC_LINK}
  2367. {$ELSE}
  2369. {$IFDEF DYNAMIC_LINK}
  2370. var
  2371.   _AcquireCredentialsHandle: Pointer;
  2373. function AcquireCredentialsHandle;
  2374. begin
  2375.   GetProcedureAddress(_AcquireCredentialsHandle, secur32, 'AcquireCredentialsHandleA');
  2376.   asm
  2377.     mov esp, ebp
  2378.     pop ebp
  2379.     jmp [_AcquireCredentialsHandle]
  2380.   end;
  2381. end;
  2382. {$ELSE}
  2383. function AcquireCredentialsHandle; external secur32 name 'AcquireCredentialsHandleA';
  2384. {$ENDIF DYNAMIC_LINK}
  2385. {$ENDIF}
  2387. {$IFDEF DYNAMIC_LINK}
  2388. var
  2389.   _FreeCredentialsHandle: Pointer;
  2391. function FreeCredentialsHandle;
  2392. begin
  2393.   GetProcedureAddress(_FreeCredentialsHandle, secur32, 'FreeCredentialsHandle');
  2394.   asm
  2395.     mov esp, ebp
  2396.     pop ebp
  2397.     jmp [_FreeCredentialsHandle]
  2398.   end;
  2399. end;
  2400. {$ELSE}
  2401. function FreeCredentialsHandle; external secur32 name 'FreeCredentialsHandle';
  2402. {$ENDIF DYNAMIC_LINK}
  2404. {$IFDEF DYNAMIC_LINK}
  2405. var
  2406.   _AddCredentialsW: Pointer;
  2408. function AddCredentialsW;
  2409. begin
  2410.   GetProcedureAddress(_AddCredentialsW, secur32, 'AddCredentialsW');
  2411.   asm
  2412.     mov esp, ebp
  2413.     pop ebp
  2414.     jmp [_AddCredentialsW]
  2415.   end;
  2416. end;
  2417. {$ELSE}
  2418. function AddCredentialsW; external secur32 name 'AddCredentialsW';
  2419. {$ENDIF DYNAMIC_LINK}
  2421. {$IFDEF DYNAMIC_LINK}
  2422. var
  2423.   _AddCredentialsA: Pointer;
  2425. function AddCredentialsA;
  2426. begin
  2427.   GetProcedureAddress(_AddCredentialsA, secur32, 'AddCredentialsA');
  2428.   asm
  2429.     mov esp, ebp
  2430.     pop ebp
  2431.     jmp [_AddCredentialsA]
  2432.   end;
  2433. end;
  2434. {$ELSE}
  2435. function AddCredentialsA; external secur32 name 'AddCredentialsA';
  2436. {$ENDIF DYNAMIC_LINK}
  2437. {$IFDEF UNICODE}
  2439. {$IFDEF DYNAMIC_LINK}
  2440. var
  2441.   _AddCredentials: Pointer;
  2443. function AddCredentials;
  2444. begin
  2445.   GetProcedureAddress(_AddCredentials, secur32, 'AddCredentialsW');
  2446.   asm
  2447.     mov esp, ebp
  2448.     pop ebp
  2449.     jmp [_AddCredentials]
  2450.   end;
  2451. end;
  2452. {$ELSE}
  2453. function AddCredentials; external secur32 name 'AddCredentialsW';
  2454. {$ENDIF DYNAMIC_LINK}
  2455. {$ELSE}
  2457. {$IFDEF DYNAMIC_LINK}
  2458. var
  2459.   _AddCredentials: Pointer;
  2461. function AddCredentials;
  2462. begin
  2463.   GetProcedureAddress(_AddCredentials, secur32, 'AddCredentialsA');
  2464.   asm
  2465.     mov esp, ebp
  2466.     pop ebp
  2467.     jmp [_AddCredentials]
  2468.   end;
  2469. end;
  2470. {$ELSE}
  2471. function AddCredentials; external secur32 name 'AddCredentialsA';
  2472. {$ENDIF DYNAMIC_LINK}
  2473. {$ENDIF}
  2474. //function SspiLogonUserW; external secur32 name 'SspiLogonUserW';
  2475. //function SspiLogonUserA; external secur32 name 'SspiLogonUserA';
  2476. //{$IFDEF UNICODE}
  2477. //function SspiLogonUser; external secur32 name 'SspiLogonUserW';
  2478. //{$ELSE}
  2479. //function SspiLogonUser; external secur32 name 'SspiLogonUserA';
  2480. //{$ENDIF}
  2482. {$IFDEF DYNAMIC_LINK}
  2483. var
  2484.   _InitializeSecurityContextW: Pointer;
  2486. function InitializeSecurityContextW;
  2487. begin
  2488.   GetProcedureAddress(_InitializeSecurityContextW, secur32, 'InitializeSecurityContextW');
  2489.   asm
  2490.     mov esp, ebp
  2491.     pop ebp
  2492.     jmp [_InitializeSecurityContextW]
  2493.   end;
  2494. end;
  2495. {$ELSE}
  2496. function InitializeSecurityContextW; external secur32 name 'InitializeSecurityContextW';
  2497. {$ENDIF DYNAMIC_LINK}
  2499. {$IFDEF DYNAMIC_LINK}
  2500. var
  2501.   _InitializeSecurityContextA: Pointer;
  2503. function InitializeSecurityContextA;
  2504. begin
  2505.   GetProcedureAddress(_InitializeSecurityContextA, secur32, 'InitializeSecurityContextA');
  2506.   asm
  2507.     mov esp, ebp
  2508.     pop ebp
  2509.     jmp [_InitializeSecurityContextA]
  2510.   end;
  2511. end;
  2512. {$ELSE}
  2513. function InitializeSecurityContextA; external secur32 name 'InitializeSecurityContextA';
  2514. {$ENDIF DYNAMIC_LINK}
  2515. {$IFDEF UNICODE}
  2517. {$IFDEF DYNAMIC_LINK}
  2518. var
  2519.   _InitializeSecurityContext: Pointer;
  2521. function InitializeSecurityContext;
  2522. begin
  2523.   GetProcedureAddress(_InitializeSecurityContext, secur32, 'InitializeSecurityContextW');
  2524.   asm
  2525.     mov esp, ebp
  2526.     pop ebp
  2527.     jmp [_InitializeSecurityContext]
  2528.   end;
  2529. end;
  2530. {$ELSE}
  2531. function InitializeSecurityContext; external secur32 name 'InitializeSecurityContextW';
  2532. {$ENDIF DYNAMIC_LINK}
  2533. {$ELSE}
  2535. {$IFDEF DYNAMIC_LINK}
  2536. var
  2537.   _InitializeSecurityContext: Pointer;
  2539. function InitializeSecurityContext;
  2540. begin
  2541.   GetProcedureAddress(_InitializeSecurityContext, secur32, 'InitializeSecurityContextA');
  2542.   asm
  2543.     mov esp, ebp
  2544.     pop ebp
  2545.     jmp [_InitializeSecurityContext]
  2546.   end;
  2547. end;
  2548. {$ELSE}
  2549. function InitializeSecurityContext; external secur32 name 'InitializeSecurityContextA';
  2550. {$ENDIF DYNAMIC_LINK}
  2551. {$ENDIF}
  2553. {$IFDEF DYNAMIC_LINK}
  2554. var
  2555.   _AcceptSecurityContext: Pointer;
  2557. function AcceptSecurityContext;
  2558. begin
  2559.   GetProcedureAddress(_AcceptSecurityContext, secur32, 'AcceptSecurityContext');
  2560.   asm
  2561.     mov esp, ebp
  2562.     pop ebp
  2563.     jmp [_AcceptSecurityContext]
  2564.   end;
  2565. end;
  2566. {$ELSE}
  2567. function AcceptSecurityContext; external secur32 name 'AcceptSecurityContext';
  2568. {$ENDIF DYNAMIC_LINK}
  2570. {$IFDEF DYNAMIC_LINK}
  2571. var
  2572.   _CompleteAuthToken: Pointer;
  2574. function CompleteAuthToken;
  2575. begin
  2576.   GetProcedureAddress(_CompleteAuthToken, secur32, 'CompleteAuthToken');
  2577.   asm
  2578.     mov esp, ebp
  2579.     pop ebp
  2580.     jmp [_CompleteAuthToken]
  2581.   end;
  2582. end;
  2583. {$ELSE}
  2584. function CompleteAuthToken; external secur32 name 'CompleteAuthToken';
  2585. {$ENDIF DYNAMIC_LINK}
  2587. {$IFDEF DYNAMIC_LINK}
  2588. var
  2589.   _ImpersonateSecurityContext: Pointer;
  2591. function ImpersonateSecurityContext;
  2592. begin
  2593.   GetProcedureAddress(_ImpersonateSecurityContext, secur32, 'ImpersonateSecurityContext');
  2594.   asm
  2595.     mov esp, ebp
  2596.     pop ebp
  2597.     jmp [_ImpersonateSecurityContext]
  2598.   end;
  2599. end;
  2600. {$ELSE}
  2601. function ImpersonateSecurityContext; external secur32 name 'ImpersonateSecurityContext';
  2602. {$ENDIF DYNAMIC_LINK}
  2604. {$IFDEF DYNAMIC_LINK}
  2605. var
  2606.   _RevertSecurityContext: Pointer;
  2608. function RevertSecurityContext;
  2609. begin
  2610.   GetProcedureAddress(_RevertSecurityContext, secur32, 'RevertSecurityContext');
  2611.   asm
  2612.     mov esp, ebp
  2613.     pop ebp
  2614.     jmp [_RevertSecurityContext]
  2615.   end;
  2616. end;
  2617. {$ELSE}
  2618. function RevertSecurityContext; external secur32 name 'RevertSecurityContext';
  2619. {$ENDIF DYNAMIC_LINK}
  2621. {$IFDEF DYNAMIC_LINK}
  2622. var
  2623.   _QuerySecurityContextToken: Pointer;
  2625. function QuerySecurityContextToken;
  2626. begin
  2627.   GetProcedureAddress(_QuerySecurityContextToken, secur32, 'QuerySecurityContextToken');
  2628.   asm
  2629.     mov esp, ebp
  2630.     pop ebp
  2631.     jmp [_QuerySecurityContextToken]
  2632.   end;
  2633. end;
  2634. {$ELSE}
  2635. function QuerySecurityContextToken; external secur32 name 'QuerySecurityContextToken';
  2636. {$ENDIF DYNAMIC_LINK}
  2638. {$IFDEF DYNAMIC_LINK}
  2639. var
  2640.   _DeleteSecurityContext: Pointer;
  2642. function DeleteSecurityContext;
  2643. begin
  2644.   GetProcedureAddress(_DeleteSecurityContext, secur32, 'DeleteSecurityContext');
  2645.   asm
  2646.     mov esp, ebp
  2647.     pop ebp
  2648.     jmp [_DeleteSecurityContext]
  2649.   end;
  2650. end;
  2651. {$ELSE}
  2652. function DeleteSecurityContext; external secur32 name 'DeleteSecurityContext';
  2653. {$ENDIF DYNAMIC_LINK}
  2655. {$IFDEF DYNAMIC_LINK}
  2656. var
  2657.   _ApplyControlToken: Pointer;
  2659. function ApplyControlToken;
  2660. begin
  2661.   GetProcedureAddress(_ApplyControlToken, secur32, 'ApplyControlToken');
  2662.   asm
  2663.     mov esp, ebp
  2664.     pop ebp
  2665.     jmp [_ApplyControlToken]
  2666.   end;
  2667. end;
  2668. {$ELSE}
  2669. function ApplyControlToken; external secur32 name 'ApplyControlToken';
  2670. {$ENDIF DYNAMIC_LINK}
  2672. {$IFDEF DYNAMIC_LINK}
  2673. var
  2674.   _QueryContextAttributesW: Pointer;
  2676. function QueryContextAttributesW;
  2677. begin
  2678.   GetProcedureAddress(_QueryContextAttributesW, secur32, 'QueryContextAttributesW');
  2679.   asm
  2680.     mov esp, ebp
  2681.     pop ebp
  2682.     jmp [_QueryContextAttributesW]
  2683.   end;
  2684. end;
  2685. {$ELSE}
  2686. function QueryContextAttributesW; external secur32 name 'QueryContextAttributesW';
  2687. {$ENDIF DYNAMIC_LINK}
  2689. {$IFDEF DYNAMIC_LINK}
  2690. var
  2691.   _QueryContextAttributesA: Pointer;
  2693. function QueryContextAttributesA;
  2694. begin
  2695.   GetProcedureAddress(_QueryContextAttributesA, secur32, 'QueryContextAttributesA');
  2696.   asm
  2697.     mov esp, ebp
  2698.     pop ebp
  2699.     jmp [_QueryContextAttributesA]
  2700.   end;
  2701. end;
  2702. {$ELSE}
  2703. function QueryContextAttributesA; external secur32 name 'QueryContextAttributesA';
  2704. {$ENDIF DYNAMIC_LINK}
  2705. {$IFDEF UNICODE}
  2707. {$IFDEF DYNAMIC_LINK}
  2708. var
  2709.   _QueryContextAttributes: Pointer;
  2711. function QueryContextAttributes;
  2712. begin
  2713.   GetProcedureAddress(_QueryContextAttributes, secur32, 'QueryContextAttributesW');
  2714.   asm
  2715.     mov esp, ebp
  2716.     pop ebp
  2717.     jmp [_QueryContextAttributes]
  2718.   end;
  2719. end;
  2720. {$ELSE}
  2721. function QueryContextAttributes; external secur32 name 'QueryContextAttributesW';
  2722. {$ENDIF DYNAMIC_LINK}
  2723. {$ELSE}
  2725. {$IFDEF DYNAMIC_LINK}
  2726. var
  2727.   _QueryContextAttributes: Pointer;
  2729. function QueryContextAttributes;
  2730. begin
  2731.   GetProcedureAddress(_QueryContextAttributes, secur32, 'QueryContextAttributesA');
  2732.   asm
  2733.     mov esp, ebp
  2734.     pop ebp
  2735.     jmp [_QueryContextAttributes]
  2736.   end;
  2737. end;
  2738. {$ELSE}
  2739. function QueryContextAttributes; external secur32 name 'QueryContextAttributesA';
  2740. {$ENDIF DYNAMIC_LINK}
  2741. {$ENDIF}
  2743. {$IFDEF DYNAMIC_LINK}
  2744. var
  2745.   _SetContextAttributesW: Pointer;
  2747. function SetContextAttributesW;
  2748. begin
  2749.   GetProcedureAddress(_SetContextAttributesW, secur32, 'SetContextAttributesW');
  2750.   asm
  2751.     mov esp, ebp
  2752.     pop ebp
  2753.     jmp [_SetContextAttributesW]
  2754.   end;
  2755. end;
  2756. {$ELSE}
  2757. function SetContextAttributesW; external secur32 name 'SetContextAttributesW';
  2758. {$ENDIF DYNAMIC_LINK}
  2760. {$IFDEF DYNAMIC_LINK}
  2761. var
  2762.   _SetContextAttributesA: Pointer;
  2764. function SetContextAttributesA;
  2765. begin
  2766.   GetProcedureAddress(_SetContextAttributesA, secur32, 'SetContextAttributesA');
  2767.   asm
  2768.     mov esp, ebp
  2769.     pop ebp
  2770.     jmp [_SetContextAttributesA]
  2771.   end;
  2772. end;
  2773. {$ELSE}
  2774. function SetContextAttributesA; external secur32 name 'SetContextAttributesA';
  2775. {$ENDIF DYNAMIC_LINK}
  2776. {$IFDEF UNICODE}
  2778. {$IFDEF DYNAMIC_LINK}
  2779. var
  2780.   _SetContextAttributes: Pointer;
  2782. function SetContextAttributes;
  2783. begin
  2784.   GetProcedureAddress(_SetContextAttributes, secur32, 'SetContextAttributesW');
  2785.   asm
  2786.     mov esp, ebp
  2787.     pop ebp
  2788.     jmp [_SetContextAttributes]
  2789.   end;
  2790. end;
  2791. {$ELSE}
  2792. function SetContextAttributes; external secur32 name 'SetContextAttributesW';
  2793. {$ENDIF DYNAMIC_LINK}
  2794. {$ELSE}
  2796. {$IFDEF DYNAMIC_LINK}
  2797. var
  2798.   _SetContextAttributes: Pointer;
  2800. function SetContextAttributes;
  2801. begin
  2802.   GetProcedureAddress(_SetContextAttributes, secur32, 'SetContextAttributesA');
  2803.   asm
  2804.     mov esp, ebp
  2805.     pop ebp
  2806.     jmp [_SetContextAttributes]
  2807.   end;
  2808. end;
  2809. {$ELSE}
  2810. function SetContextAttributes; external secur32 name 'SetContextAttributesA';
  2811. {$ENDIF DYNAMIC_LINK}
  2812. {$ENDIF}
  2814. {$IFDEF DYNAMIC_LINK}
  2815. var
  2816.   _QueryCredentialsAttributesW: Pointer;
  2818. function QueryCredentialsAttributesW;
  2819. begin
  2820.   GetProcedureAddress(_QueryCredentialsAttributesW, secur32, 'QueryCredentialsAttributesW');
  2821.   asm
  2822.     mov esp, ebp
  2823.     pop ebp
  2824.     jmp [_QueryCredentialsAttributesW]
  2825.   end;
  2826. end;
  2827. {$ELSE}
  2828. function QueryCredentialsAttributesW; external secur32 name 'QueryCredentialsAttributesW';
  2829. {$ENDIF DYNAMIC_LINK}
  2831. {$IFDEF DYNAMIC_LINK}
  2832. var
  2833.   _QueryCredentialsAttributesA: Pointer;
  2835. function QueryCredentialsAttributesA;
  2836. begin
  2837.   GetProcedureAddress(_QueryCredentialsAttributesA, secur32, 'QueryCredentialsAttributesA');
  2838.   asm
  2839.     mov esp, ebp
  2840.     pop ebp
  2841.     jmp [_QueryCredentialsAttributesA]
  2842.   end;
  2843. end;
  2844. {$ELSE}
  2845. function QueryCredentialsAttributesA; external secur32 name 'QueryCredentialsAttributesA';
  2846. {$ENDIF DYNAMIC_LINK}
  2847. {$IFDEF UNICODE}
  2849. {$IFDEF DYNAMIC_LINK}
  2850. var
  2851.   _QueryCredentialsAttributes: Pointer;
  2853. function QueryCredentialsAttributes;
  2854. begin
  2855.   GetProcedureAddress(_QueryCredentialsAttributes, secur32, 'QueryCredentialsAttributesW');
  2856.   asm
  2857.     mov esp, ebp
  2858.     pop ebp
  2859.     jmp [_QueryCredentialsAttributes]
  2860.   end;
  2861. end;
  2862. {$ELSE}
  2863. function QueryCredentialsAttributes; external secur32 name 'QueryCredentialsAttributesW';
  2864. {$ENDIF DYNAMIC_LINK}
  2865. {$ELSE}
  2867. {$IFDEF DYNAMIC_LINK}
  2868. var
  2869.   _QueryCredentialsAttributes: Pointer;
  2871. function QueryCredentialsAttributes;
  2872. begin
  2873.   GetProcedureAddress(_QueryCredentialsAttributes, secur32, 'QueryCredentialsAttributesA');
  2874.   asm
  2875.     mov esp, ebp
  2876.     pop ebp
  2877.     jmp [_QueryCredentialsAttributes]
  2878.   end;
  2879. end;
  2880. {$ELSE}
  2881. function QueryCredentialsAttributes; external secur32 name 'QueryCredentialsAttributesA';
  2882. {$ENDIF DYNAMIC_LINK}
  2883. {$ENDIF}
  2885. {$IFDEF DYNAMIC_LINK}
  2886. var
  2887.   _FreeContextBuffer: Pointer;
  2889. function FreeContextBuffer;
  2890. begin
  2891.   GetProcedureAddress(_FreeContextBuffer, secur32, 'FreeContextBuffer');
  2892.   asm
  2893.     mov esp, ebp
  2894.     pop ebp
  2895.     jmp [_FreeContextBuffer]
  2896.   end;
  2897. end;
  2898. {$ELSE}
  2899. function FreeContextBuffer; external secur32 name 'FreeContextBuffer';
  2900. {$ENDIF DYNAMIC_LINK}
  2902. {$IFDEF DYNAMIC_LINK}
  2903. var
  2904.   _MakeSignature: Pointer;
  2906. function MakeSignature;
  2907. begin
  2908.   GetProcedureAddress(_MakeSignature, secur32, 'MakeSignature');
  2909.   asm
  2910.     mov esp, ebp
  2911.     pop ebp
  2912.     jmp [_MakeSignature]
  2913.   end;
  2914. end;
  2915. {$ELSE}
  2916. function MakeSignature; external secur32 name 'MakeSignature';
  2917. {$ENDIF DYNAMIC_LINK}
  2919. {$IFDEF DYNAMIC_LINK}
  2920. var
  2921.   _VerifySignature: Pointer;
  2923. function VerifySignature;
  2924. begin
  2925.   GetProcedureAddress(_VerifySignature, secur32, 'VerifySignature');
  2926.   asm
  2927.     mov esp, ebp
  2928.     pop ebp
  2929.     jmp [_VerifySignature]
  2930.   end;
  2931. end;
  2932. {$ELSE}
  2933. function VerifySignature; external secur32 name 'VerifySignature';
  2934. {$ENDIF DYNAMIC_LINK}
  2936. {$IFDEF DYNAMIC_LINK}
  2937. var
  2938.   _EncryptMessage: Pointer;
  2940. function EncryptMessage;
  2941. begin
  2942.   GetProcedureAddress(_EncryptMessage, secur32, 'EncryptMessage');
  2943.   asm
  2944.     mov esp, ebp
  2945.     pop ebp
  2946.     jmp [_EncryptMessage]
  2947.   end;
  2948. end;
  2949. {$ELSE}
  2950. function EncryptMessage; external secur32 name 'EncryptMessage';
  2951. {$ENDIF DYNAMIC_LINK}
  2953. {$IFDEF DYNAMIC_LINK}
  2954. var
  2955.   _DecryptMessage: Pointer;
  2957. function DecryptMessage;
  2958. begin
  2959.   GetProcedureAddress(_DecryptMessage, secur32, 'DecryptMessage');
  2960.   asm
  2961.     mov esp, ebp
  2962.     pop ebp
  2963.     jmp [_DecryptMessage]
  2964.   end;
  2965. end;
  2966. {$ELSE}
  2967. function DecryptMessage; external secur32 name 'DecryptMessage';
  2968. {$ENDIF DYNAMIC_LINK}
  2970. {$IFDEF DYNAMIC_LINK}
  2971. var
  2972.   _EnumerateSecurityPackagesW: Pointer;
  2974. function EnumerateSecurityPackagesW;
  2975. begin
  2976.   GetProcedureAddress(_EnumerateSecurityPackagesW, secur32, 'EnumerateSecurityPackagesW');
  2977.   asm
  2978.     mov esp, ebp
  2979.     pop ebp
  2980.     jmp [_EnumerateSecurityPackagesW]
  2981.   end;
  2982. end;
  2983. {$ELSE}
  2984. function EnumerateSecurityPackagesW; external secur32 name 'EnumerateSecurityPackagesW';
  2985. {$ENDIF DYNAMIC_LINK}
  2987. {$IFDEF DYNAMIC_LINK}
  2988. var
  2989.   _EnumerateSecurityPackagesA: Pointer;
  2991. function EnumerateSecurityPackagesA;
  2992. begin
  2993.   GetProcedureAddress(_EnumerateSecurityPackagesA, secur32, 'EnumerateSecurityPackagesA');
  2994.   asm
  2995.     mov esp, ebp
  2996.     pop ebp
  2997.     jmp [_EnumerateSecurityPackagesA]
  2998.   end;
  2999. end;
  3000. {$ELSE}
  3001. function EnumerateSecurityPackagesA; external secur32 name 'EnumerateSecurityPackagesA';
  3002. {$ENDIF DYNAMIC_LINK}
  3003. {$IFDEF UNICODE}
  3005. {$IFDEF DYNAMIC_LINK}
  3006. var
  3007.   _EnumerateSecurityPackages: Pointer;
  3009. function EnumerateSecurityPackages;
  3010. begin
  3011.   GetProcedureAddress(_EnumerateSecurityPackages, secur32, 'EnumerateSecurityPackagesW');
  3012.   asm
  3013.     mov esp, ebp
  3014.     pop ebp
  3015.     jmp [_EnumerateSecurityPackages]
  3016.   end;
  3017. end;
  3018. {$ELSE}
  3019. function EnumerateSecurityPackages; external secur32 name 'EnumerateSecurityPackagesW';
  3020. {$ENDIF DYNAMIC_LINK}
  3021. {$ELSE}
  3023. {$IFDEF DYNAMIC_LINK}
  3024. var
  3025.   _EnumerateSecurityPackages: Pointer;
  3027. function EnumerateSecurityPackages;
  3028. begin
  3029.   GetProcedureAddress(_EnumerateSecurityPackages, secur32, 'EnumerateSecurityPackagesA');
  3030.   asm
  3031.     mov esp, ebp
  3032.     pop ebp
  3033.     jmp [_EnumerateSecurityPackages]
  3034.   end;
  3035. end;
  3036. {$ELSE}
  3037. function EnumerateSecurityPackages; external secur32 name 'EnumerateSecurityPackagesA';
  3038. {$ENDIF DYNAMIC_LINK}
  3039. {$ENDIF}
  3041. {$IFDEF DYNAMIC_LINK}
  3042. var
  3043.   _QuerySecurityPackageInfoW: Pointer;
  3045. function QuerySecurityPackageInfoW;
  3046. begin
  3047.   GetProcedureAddress(_QuerySecurityPackageInfoW, secur32, 'QuerySecurityPackageInfoW');
  3048.   asm
  3049.     mov esp, ebp
  3050.     pop ebp
  3051.     jmp [_QuerySecurityPackageInfoW]
  3052.   end;
  3053. end;
  3054. {$ELSE}
  3055. function QuerySecurityPackageInfoW; external secur32 name 'QuerySecurityPackageInfoW';
  3056. {$ENDIF DYNAMIC_LINK}
  3058. {$IFDEF DYNAMIC_LINK}
  3059. var
  3060.   _QuerySecurityPackageInfoA: Pointer;
  3062. function QuerySecurityPackageInfoA;
  3063. begin
  3064.   GetProcedureAddress(_QuerySecurityPackageInfoA, secur32, 'QuerySecurityPackageInfoA');
  3065.   asm
  3066.     mov esp, ebp
  3067.     pop ebp
  3068.     jmp [_QuerySecurityPackageInfoA]
  3069.   end;
  3070. end;
  3071. {$ELSE}
  3072. function QuerySecurityPackageInfoA; external secur32 name 'QuerySecurityPackageInfoA';
  3073. {$ENDIF DYNAMIC_LINK}
  3074. {$IFDEF UNICODE}
  3076. {$IFDEF DYNAMIC_LINK}
  3077. var
  3078.   _QuerySecurityPackageInfo: Pointer;
  3080. function QuerySecurityPackageInfo;
  3081. begin
  3082.   GetProcedureAddress(_QuerySecurityPackageInfo, secur32, 'QuerySecurityPackageInfoW');
  3083.   asm
  3084.     mov esp, ebp
  3085.     pop ebp
  3086.     jmp [_QuerySecurityPackageInfo]
  3087.   end;
  3088. end;
  3089. {$ELSE}
  3090. function QuerySecurityPackageInfo; external secur32 name 'QuerySecurityPackageInfoW';
  3091. {$ENDIF DYNAMIC_LINK}
  3092. {$ELSE}
  3094. {$IFDEF DYNAMIC_LINK}
  3095. var
  3096.   _QuerySecurityPackageInfo: Pointer;
  3098. function QuerySecurityPackageInfo;
  3099. begin
  3100.   GetProcedureAddress(_QuerySecurityPackageInfo, secur32, 'QuerySecurityPackageInfoA');
  3101.   asm
  3102.     mov esp, ebp
  3103.     pop ebp
  3104.     jmp [_QuerySecurityPackageInfo]
  3105.   end;
  3106. end;
  3107. {$ELSE}
  3108. function QuerySecurityPackageInfo; external secur32 name 'QuerySecurityPackageInfoA';
  3109. {$ENDIF DYNAMIC_LINK}
  3110. {$ENDIF}
  3111. //function DelegateSecurityContext; external secur32 name 'DelegateSecurityContext';
  3113. {$IFDEF DYNAMIC_LINK}
  3114. var
  3115.   _ExportSecurityContext: Pointer;
  3117. function ExportSecurityContext;
  3118. begin
  3119.   GetProcedureAddress(_ExportSecurityContext, secur32, 'ExportSecurityContext');
  3120.   asm
  3121.     mov esp, ebp
  3122.     pop ebp
  3123.     jmp [_ExportSecurityContext]
  3124.   end;
  3125. end;
  3126. {$ELSE}
  3127. function ExportSecurityContext; external secur32 name 'ExportSecurityContext';
  3128. {$ENDIF DYNAMIC_LINK}
  3130. {$IFDEF DYNAMIC_LINK}
  3131. var
  3132.   _ImportSecurityContextW: Pointer;
  3134. function ImportSecurityContextW;
  3135. begin
  3136.   GetProcedureAddress(_ImportSecurityContextW, secur32, 'ImportSecurityContextW');
  3137.   asm
  3138.     mov esp, ebp
  3139.     pop ebp
  3140.     jmp [_ImportSecurityContextW]
  3141.   end;
  3142. end;
  3143. {$ELSE}
  3144. function ImportSecurityContextW; external secur32 name 'ImportSecurityContextW';
  3145. {$ENDIF DYNAMIC_LINK}
  3147. {$IFDEF DYNAMIC_LINK}
  3148. var
  3149.   _ImportSecurityContextA: Pointer;
  3151. function ImportSecurityContextA;
  3152. begin
  3153.   GetProcedureAddress(_ImportSecurityContextA, secur32, 'ImportSecurityContextA');
  3154.   asm
  3155.     mov esp, ebp
  3156.     pop ebp
  3157.     jmp [_ImportSecurityContextA]
  3158.   end;
  3159. end;
  3160. {$ELSE}
  3161. function ImportSecurityContextA; external secur32 name 'ImportSecurityContextA';
  3162. {$ENDIF DYNAMIC_LINK}
  3163. {$IFDEF UNICODE}
  3165. {$IFDEF DYNAMIC_LINK}
  3166. var
  3167.   _ImportSecurityContext: Pointer;
  3169. function ImportSecurityContext;
  3170. begin
  3171.   GetProcedureAddress(_ImportSecurityContext, secur32, 'ImportSecurityContextW');
  3172.   asm
  3173.     mov esp, ebp
  3174.     pop ebp
  3175.     jmp [_ImportSecurityContext]
  3176.   end;
  3177. end;
  3178. {$ELSE}
  3179. function ImportSecurityContext; external secur32 name 'ImportSecurityContextW';
  3180. {$ENDIF DYNAMIC_LINK}
  3181. {$ELSE}
  3183. {$IFDEF DYNAMIC_LINK}
  3184. var
  3185.   _ImportSecurityContext: Pointer;
  3187. function ImportSecurityContext;
  3188. begin
  3189.   GetProcedureAddress(_ImportSecurityContext, secur32, 'ImportSecurityContextA');
  3190.   asm
  3191.     mov esp, ebp
  3192.     pop ebp
  3193.     jmp [_ImportSecurityContext]
  3194.   end;
  3195. end;
  3196. {$ELSE}
  3197. function ImportSecurityContext; external secur32 name 'ImportSecurityContextA';
  3198. {$ENDIF DYNAMIC_LINK}
  3199. {$ENDIF}
  3201. {$IFDEF DYNAMIC_LINK}
  3202. var
  3203.   _InitSecurityInterfaceA: Pointer;
  3205. function InitSecurityInterfaceA;
  3206. begin
  3207.   GetProcedureAddress(_InitSecurityInterfaceA, secur32, 'InitSecurityInterfaceA');
  3208.   asm
  3209.     mov esp, ebp
  3210.     pop ebp
  3211.     jmp [_InitSecurityInterfaceA]
  3212.   end;
  3213. end;
  3214. {$ELSE}
  3215. function InitSecurityInterfaceA; external secur32 name 'InitSecurityInterfaceA';
  3216. {$ENDIF DYNAMIC_LINK}
  3218. {$IFDEF DYNAMIC_LINK}
  3219. var
  3220.   _InitSecurityInterfaceW: Pointer;
  3222. function InitSecurityInterfaceW;
  3223. begin
  3224.   GetProcedureAddress(_InitSecurityInterfaceW, secur32, 'InitSecurityInterfaceW');
  3225.   asm
  3226.     mov esp, ebp
  3227.     pop ebp
  3228.     jmp [_InitSecurityInterfaceW]
  3229.   end;
  3230. end;
  3231. {$ELSE}
  3232. function InitSecurityInterfaceW; external secur32 name 'InitSecurityInterfaceW';
  3233. {$ENDIF DYNAMIC_LINK}
  3234. {$IFDEF UNICODE}
  3236. {$IFDEF DYNAMIC_LINK}
  3237. var
  3238.   _InitSecurityInterface: Pointer;
  3240. function InitSecurityInterface;
  3241. begin
  3242.   GetProcedureAddress(_InitSecurityInterface, secur32, 'InitSecurityInterfaceW');
  3243.   asm
  3244.     mov esp, ebp
  3245.     pop ebp
  3246.     jmp [_InitSecurityInterface]
  3247.   end;
  3248. end;
  3249. {$ELSE}
  3250. function InitSecurityInterface; external secur32 name 'InitSecurityInterfaceW';
  3251. {$ENDIF DYNAMIC_LINK}
  3252. {$ELSE}
  3254. {$IFDEF DYNAMIC_LINK}
  3255. var
  3256.   _InitSecurityInterface: Pointer;
  3258. function InitSecurityInterface;
  3259. begin
  3260.   GetProcedureAddress(_InitSecurityInterface, secur32, 'InitSecurityInterfaceA');
  3261.   asm
  3262.     mov esp, ebp
  3263.     pop ebp
  3264.     jmp [_InitSecurityInterface]
  3265.   end;
  3266. end;
  3267. {$ELSE}
  3268. function InitSecurityInterface; external secur32 name 'InitSecurityInterfaceA';
  3269. {$ENDIF DYNAMIC_LINK}
  3270. {$ENDIF}
  3272. {$IFDEF DYNAMIC_LINK}
  3273. var
  3274.   _SaslEnumerateProfilesA: Pointer;
  3276. function SaslEnumerateProfilesA;
  3277. begin
  3278.   GetProcedureAddress(_SaslEnumerateProfilesA, secur32, 'SaslEnumerateProfilesA');
  3279.   asm
  3280.     mov esp, ebp
  3281.     pop ebp
  3282.     jmp [_SaslEnumerateProfilesA]
  3283.   end;
  3284. end;
  3285. {$ELSE}
  3286. function SaslEnumerateProfilesA; external secur32 name 'SaslEnumerateProfilesA';
  3287. {$ENDIF DYNAMIC_LINK}
  3289. {$IFDEF DYNAMIC_LINK}
  3290. var
  3291.   _SaslEnumerateProfilesW: Pointer;
  3293. function SaslEnumerateProfilesW;
  3294. begin
  3295.   GetProcedureAddress(_SaslEnumerateProfilesW, secur32, 'SaslEnumerateProfilesW');
  3296.   asm
  3297.     mov esp, ebp
  3298.     pop ebp
  3299.     jmp [_SaslEnumerateProfilesW]
  3300.   end;
  3301. end;
  3302. {$ELSE}
  3303. function SaslEnumerateProfilesW; external secur32 name 'SaslEnumerateProfilesW';
  3304. {$ENDIF DYNAMIC_LINK}
  3305. {$IFDEF UNICODE}
  3307. {$IFDEF DYNAMIC_LINK}
  3308. var
  3309.   _SaslEnumerateProfiles: Pointer;
  3311. function SaslEnumerateProfiles;
  3312. begin
  3313.   GetProcedureAddress(_SaslEnumerateProfiles, secur32, 'SaslEnumerateProfilesW');
  3314.   asm
  3315.     mov esp, ebp
  3316.     pop ebp
  3317.     jmp [_SaslEnumerateProfiles]
  3318.   end;
  3319. end;
  3320. {$ELSE}
  3321. function SaslEnumerateProfiles; external secur32 name 'SaslEnumerateProfilesW';
  3322. {$ENDIF DYNAMIC_LINK}
  3323. {$ELSE}
  3325. {$IFDEF DYNAMIC_LINK}
  3326. var
  3327.   _SaslEnumerateProfiles: Pointer;
  3329. function SaslEnumerateProfiles;
  3330. begin
  3331.   GetProcedureAddress(_SaslEnumerateProfiles, secur32, 'SaslEnumerateProfilesA');
  3332.   asm
  3333.     mov esp, ebp
  3334.     pop ebp
  3335.     jmp [_SaslEnumerateProfiles]
  3336.   end;
  3337. end;
  3338. {$ELSE}
  3339. function SaslEnumerateProfiles; external secur32 name 'SaslEnumerateProfilesA';
  3340. {$ENDIF DYNAMIC_LINK}
  3341. {$ENDIF}
  3343. {$IFDEF DYNAMIC_LINK}
  3344. var
  3345.   _SaslGetProfilePackageA: Pointer;
  3347. function SaslGetProfilePackageA;
  3348. begin
  3349.   GetProcedureAddress(_SaslGetProfilePackageA, secur32, 'SaslGetProfilePackageA');
  3350.   asm
  3351.     mov esp, ebp
  3352.     pop ebp
  3353.     jmp [_SaslGetProfilePackageA]
  3354.   end;
  3355. end;
  3356. {$ELSE}
  3357. function SaslGetProfilePackageA; external secur32 name 'SaslGetProfilePackageA';
  3358. {$ENDIF DYNAMIC_LINK}
  3360. {$IFDEF DYNAMIC_LINK}
  3361. var
  3362.   _SaslGetProfilePackageW: Pointer;
  3364. function SaslGetProfilePackageW;
  3365. begin
  3366.   GetProcedureAddress(_SaslGetProfilePackageW, secur32, 'SaslGetProfilePackageW');
  3367.   asm
  3368.     mov esp, ebp
  3369.     pop ebp
  3370.     jmp [_SaslGetProfilePackageW]
  3371.   end;
  3372. end;
  3373. {$ELSE}
  3374. function SaslGetProfilePackageW; external secur32 name 'SaslGetProfilePackageW';
  3375. {$ENDIF DYNAMIC_LINK}
  3376. {$IFDEF UNICODE}
  3378. {$IFDEF DYNAMIC_LINK}
  3379. var
  3380.   _SaslGetProfilePackage: Pointer;
  3382. function SaslGetProfilePackage;
  3383. begin
  3384.   GetProcedureAddress(_SaslGetProfilePackage, secur32, 'SaslGetProfilePackageW');
  3385.   asm
  3386.     mov esp, ebp
  3387.     pop ebp
  3388.     jmp [_SaslGetProfilePackage]
  3389.   end;
  3390. end;
  3391. {$ELSE}
  3392. function SaslGetProfilePackage; external secur32 name 'SaslGetProfilePackageW';
  3393. {$ENDIF DYNAMIC_LINK}
  3394. {$ELSE}
  3396. {$IFDEF DYNAMIC_LINK}
  3397. var
  3398.   _SaslGetProfilePackage: Pointer;
  3400. function SaslGetProfilePackage;
  3401. begin
  3402.   GetProcedureAddress(_SaslGetProfilePackage, secur32, 'SaslGetProfilePackageA');
  3403.   asm
  3404.     mov esp, ebp
  3405.     pop ebp
  3406.     jmp [_SaslGetProfilePackage]
  3407.   end;
  3408. end;
  3409. {$ELSE}
  3410. function SaslGetProfilePackage; external secur32 name 'SaslGetProfilePackageA';
  3411. {$ENDIF DYNAMIC_LINK}
  3412. {$ENDIF}
  3414. {$IFDEF DYNAMIC_LINK}
  3415. var
  3416.   _SaslIdentifyPackageA: Pointer;
  3418. function SaslIdentifyPackageA;
  3419. begin
  3420.   GetProcedureAddress(_SaslIdentifyPackageA, secur32, 'SaslIdentifyPackageA');
  3421.   asm
  3422.     mov esp, ebp
  3423.     pop ebp
  3424.     jmp [_SaslIdentifyPackageA]
  3425.   end;
  3426. end;
  3427. {$ELSE}
  3428. function SaslIdentifyPackageA; external secur32 name 'SaslIdentifyPackageA';
  3429. {$ENDIF DYNAMIC_LINK}
  3431. {$IFDEF DYNAMIC_LINK}
  3432. var
  3433.   _SaslIdentifyPackageW: Pointer;
  3435. function SaslIdentifyPackageW;
  3436. begin
  3437.   GetProcedureAddress(_SaslIdentifyPackageW, secur32, 'SaslIdentifyPackageW');
  3438.   asm
  3439.     mov esp, ebp
  3440.     pop ebp
  3441.     jmp [_SaslIdentifyPackageW]
  3442.   end;
  3443. end;
  3444. {$ELSE}
  3445. function SaslIdentifyPackageW; external secur32 name 'SaslIdentifyPackageW';
  3446. {$ENDIF DYNAMIC_LINK}
  3447. {$IFDEF UNICODE}
  3449. {$IFDEF DYNAMIC_LINK}
  3450. var
  3451.   _SaslIdentifyPackage: Pointer;
  3453. function SaslIdentifyPackage;
  3454. begin
  3455.   GetProcedureAddress(_SaslIdentifyPackage, secur32, 'SaslIdentifyPackageW');
  3456.   asm
  3457.     mov esp, ebp
  3458.     pop ebp
  3459.     jmp [_SaslIdentifyPackage]
  3460.   end;
  3461. end;
  3462. {$ELSE}
  3463. function SaslIdentifyPackage; external secur32 name 'SaslIdentifyPackageW';
  3464. {$ENDIF DYNAMIC_LINK}
  3465. {$ELSE}
  3467. {$IFDEF DYNAMIC_LINK}
  3468. var
  3469.   _SaslIdentifyPackage: Pointer;
  3471. function SaslIdentifyPackage;
  3472. begin
  3473.   GetProcedureAddress(_SaslIdentifyPackage, secur32, 'SaslIdentifyPackageA');
  3474.   asm
  3475.     mov esp, ebp
  3476.     pop ebp
  3477.     jmp [_SaslIdentifyPackage]
  3478.   end;
  3479. end;
  3480. {$ELSE}
  3481. function SaslIdentifyPackage; external secur32 name 'SaslIdentifyPackageA';
  3482. {$ENDIF DYNAMIC_LINK}
  3483. {$ENDIF}
  3485. {$IFDEF DYNAMIC_LINK}
  3486. var
  3487.   _SaslInitializeSecurityContextW: Pointer;
  3489. function SaslInitializeSecurityContextW;
  3490. begin
  3491.   GetProcedureAddress(_SaslInitializeSecurityContextW, secur32, 'SaslInitializeSecurityContextW');
  3492.   asm
  3493.     mov esp, ebp
  3494.     pop ebp
  3495.     jmp [_SaslInitializeSecurityContextW]
  3496.   end;
  3497. end;
  3498. {$ELSE}
  3499. function SaslInitializeSecurityContextW; external secur32 name 'SaslInitializeSecurityContextW';
  3500. {$ENDIF DYNAMIC_LINK}
  3502. {$IFDEF DYNAMIC_LINK}
  3503. var
  3504.   _SaslInitializeSecurityContextA: Pointer;
  3506. function SaslInitializeSecurityContextA;
  3507. begin
  3508.   GetProcedureAddress(_SaslInitializeSecurityContextA, secur32, 'SaslInitializeSecurityContextA');
  3509.   asm
  3510.     mov esp, ebp
  3511.     pop ebp
  3512.     jmp [_SaslInitializeSecurityContextA]
  3513.   end;
  3514. end;
  3515. {$ELSE}
  3516. function SaslInitializeSecurityContextA; external secur32 name 'SaslInitializeSecurityContextA';
  3517. {$ENDIF DYNAMIC_LINK}
  3518. {$IFDEF UNICODE}
  3520. {$IFDEF DYNAMIC_LINK}
  3521. var
  3522.   _SaslInitializeSecurityContext: Pointer;
  3524. function SaslInitializeSecurityContext;
  3525. begin
  3526.   GetProcedureAddress(_SaslInitializeSecurityContext, secur32, 'SaslInitializeSecurityContextW');
  3527.   asm
  3528.     mov esp, ebp
  3529.     pop ebp
  3530.     jmp [_SaslInitializeSecurityContext]
  3531.   end;
  3532. end;
  3533. {$ELSE}
  3534. function SaslInitializeSecurityContext; external secur32 name 'SaslInitializeSecurityContextW';
  3535. {$ENDIF DYNAMIC_LINK}
  3536. {$ELSE}
  3538. {$IFDEF DYNAMIC_LINK}
  3539. var
  3540.   _SaslInitializeSecurityContext: Pointer;
  3542. function SaslInitializeSecurityContext;
  3543. begin
  3544.   GetProcedureAddress(_SaslInitializeSecurityContext, secur32, 'SaslInitializeSecurityContextA');
  3545.   asm
  3546.     mov esp, ebp
  3547.     pop ebp
  3548.     jmp [_SaslInitializeSecurityContext]
  3549.   end;
  3550. end;
  3551. {$ELSE}
  3552. function SaslInitializeSecurityContext; external secur32 name 'SaslInitializeSecurityContextA';
  3553. {$ENDIF DYNAMIC_LINK}
  3554. {$ENDIF}
  3556. {$IFDEF DYNAMIC_LINK}
  3557. var
  3558.   _SaslAcceptSecurityContext: Pointer;
  3560. function SaslAcceptSecurityContext;
  3561. begin
  3562.   GetProcedureAddress(_SaslAcceptSecurityContext, secur32, 'SaslAcceptSecurityContext');
  3563.   asm
  3564.     mov esp, ebp
  3565.     pop ebp
  3566.     jmp [_SaslAcceptSecurityContext]
  3567.   end;
  3568. end;
  3569. {$ELSE}
  3570. function SaslAcceptSecurityContext; external secur32 name 'SaslAcceptSecurityContext';
  3571. {$ENDIF DYNAMIC_LINK}
  3574. {$IFDEF DYNAMIC_LINK}
  3575. var
  3576.   _SaslSetContextOption: Pointer;
  3578. function SaslSetContextOption;
  3579. begin
  3580.   GetProcedureAddress(_SaslSetContextOption, secur32, 'SaslSetContextOption');
  3581.   asm
  3582.     mov esp, ebp
  3583.     pop ebp
  3584.     jmp [_SaslSetContextOption]
  3585.   end;
  3586. end;
  3587. {$ELSE}
  3588. function SaslSetContextOption; external secur32 name 'SaslSetContextOption';
  3589. {$ENDIF DYNAMIC_LINK}
  3591. {$IFDEF DYNAMIC_LINK}
  3592. var
  3593.   _SaslGetContextOption: Pointer;
  3595. function SaslGetContextOption;
  3596. begin
  3597.   GetProcedureAddress(_SaslGetContextOption, secur32, 'SaslGetContextOption');
  3598.   asm
  3599.     mov esp, ebp
  3600.     pop ebp
  3601.     jmp [_SaslGetContextOption]
  3602.   end;
  3603. end;
  3604. {$ELSE}
  3605. function SaslGetContextOption; external secur32 name 'SaslGetContextOption';
  3606. {$ENDIF DYNAMIC_LINK}
  3608. {$IFDEF DYNAMIC_LINK}
  3609. var
  3610.   _AddSecurityPackageA: Pointer;
  3612. function AddSecurityPackageA;
  3613. begin
  3614.   GetProcedureAddress(_AddSecurityPackageA, secur32, 'AddSecurityPackageA');
  3615.   asm
  3616.     mov esp, ebp
  3617.     pop ebp
  3618.     jmp [_AddSecurityPackageA]
  3619.   end;
  3620. end;
  3621. {$ELSE}
  3622. function AddSecurityPackageA; external secur32 name 'AddSecurityPackageA';
  3623. {$ENDIF DYNAMIC_LINK}
  3625. {$IFDEF DYNAMIC_LINK}
  3626. var
  3627.   _AddSecurityPackageW: Pointer;
  3629. function AddSecurityPackageW;
  3630. begin
  3631.   GetProcedureAddress(_AddSecurityPackageW, secur32, 'AddSecurityPackageW');
  3632.   asm
  3633.     mov esp, ebp
  3634.     pop ebp
  3635.     jmp [_AddSecurityPackageW]
  3636.   end;
  3637. end;
  3638. {$ELSE}
  3639. function AddSecurityPackageW; external secur32 name 'AddSecurityPackageW';
  3640. {$ENDIF DYNAMIC_LINK}
  3641. {$IFDEF UNICODE}
  3643. {$IFDEF DYNAMIC_LINK}
  3644. var
  3645.   _AddSecurityPackage: Pointer;
  3647. function AddSecurityPackage;
  3648. begin
  3649.   GetProcedureAddress(_AddSecurityPackage, secur32, 'AddSecurityPackageW');
  3650.   asm
  3651.     mov esp, ebp
  3652.     pop ebp
  3653.     jmp [_AddSecurityPackage]
  3654.   end;
  3655. end;
  3656. {$ELSE}
  3657. function AddSecurityPackage; external secur32 name 'AddSecurityPackageW';
  3658. {$ENDIF DYNAMIC_LINK}
  3659. {$ELSE}
  3661. {$IFDEF DYNAMIC_LINK}
  3662. var
  3663.   _AddSecurityPackage: Pointer;
  3665. function AddSecurityPackage;
  3666. begin
  3667.   GetProcedureAddress(_AddSecurityPackage, secur32, 'AddSecurityPackageA');
  3668.   asm
  3669.     mov esp, ebp
  3670.     pop ebp
  3671.     jmp [_AddSecurityPackage]
  3672.   end;
  3673. end;
  3674. {$ELSE}
  3675. function AddSecurityPackage; external secur32 name 'AddSecurityPackageA';
  3676. {$ENDIF DYNAMIC_LINK}
  3677. {$ENDIF}
  3679. {$IFDEF DYNAMIC_LINK}
  3680. var
  3681.   _DeleteSecurityPackageA: Pointer;
  3683. function DeleteSecurityPackageA;
  3684. begin
  3685.   GetProcedureAddress(_DeleteSecurityPackageA, secur32, 'DeleteSecurityPackageA');
  3686.   asm
  3687.     mov esp, ebp
  3688.     pop ebp
  3689.     jmp [_DeleteSecurityPackageA]
  3690.   end;
  3691. end;
  3692. {$ELSE}
  3693. function DeleteSecurityPackageA; external secur32 name 'DeleteSecurityPackageA';
  3694. {$ENDIF DYNAMIC_LINK}
  3696. {$IFDEF DYNAMIC_LINK}
  3697. var
  3698.   _DeleteSecurityPackageW: Pointer;
  3700. function DeleteSecurityPackageW;
  3701. begin
  3702.   GetProcedureAddress(_DeleteSecurityPackageW, secur32, 'DeleteSecurityPackageW');
  3703.   asm
  3704.     mov esp, ebp
  3705.     pop ebp
  3706.     jmp [_DeleteSecurityPackageW]
  3707.   end;
  3708. end;
  3709. {$ELSE}
  3710. function DeleteSecurityPackageW; external secur32 name 'DeleteSecurityPackageW';
  3711. {$ENDIF DYNAMIC_LINK}
  3712. {$IFDEF UNICODE}
  3714. {$IFDEF DYNAMIC_LINK}
  3715. var
  3716.   _DeleteSecurityPackage: Pointer;
  3718. function DeleteSecurityPackage;
  3719. begin
  3720.   GetProcedureAddress(_DeleteSecurityPackage, secur32, 'DeleteSecurityPackageW');
  3721.   asm
  3722.     mov esp, ebp
  3723.     pop ebp
  3724.     jmp [_DeleteSecurityPackage]
  3725.   end;
  3726. end;
  3727. {$ELSE}
  3728. function DeleteSecurityPackage; external secur32 name 'DeleteSecurityPackageW';
  3729. {$ENDIF DYNAMIC_LINK}
  3730. {$ELSE}
  3732. {$IFDEF DYNAMIC_LINK}
  3733. var
  3734.   _DeleteSecurityPackage: Pointer;
  3736. function DeleteSecurityPackage;
  3737. begin
  3738.   GetProcedureAddress(_DeleteSecurityPackage, secur32, 'DeleteSecurityPackageA');
  3739.   asm
  3740.     mov esp, ebp
  3741.     pop ebp
  3742.     jmp [_DeleteSecurityPackage]
  3743.   end;
  3744. end;
  3745. {$ELSE}
  3746. function DeleteSecurityPackage; external secur32 name 'DeleteSecurityPackageA';
  3747. {$ENDIF DYNAMIC_LINK}
  3748. {$ENDIF}
  3750. end.