-
Notifications
You must be signed in to change notification settings - Fork 0
/
Ntlm.pas
247 lines (162 loc) · 10.2 KB
/
Ntlm.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
unit Ntlm;
interface
type
HCkNtlm = Pointer;
HCkString = Pointer;
function CkNtlm_Create: HCkNtlm; stdcall;
procedure CkNtlm_Dispose(handle: HCkNtlm); stdcall;
procedure CkNtlm_getClientChallenge(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
procedure CkNtlm_putClientChallenge(objHandle: HCkNtlm; newPropVal: PWideChar); stdcall;
function CkNtlm__clientChallenge(objHandle: HCkNtlm): PWideChar; stdcall;
procedure CkNtlm_getDebugLogFilePath(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
procedure CkNtlm_putDebugLogFilePath(objHandle: HCkNtlm; newPropVal: PWideChar); stdcall;
function CkNtlm__debugLogFilePath(objHandle: HCkNtlm): PWideChar; stdcall;
procedure CkNtlm_getDnsComputerName(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
procedure CkNtlm_putDnsComputerName(objHandle: HCkNtlm; newPropVal: PWideChar); stdcall;
function CkNtlm__dnsComputerName(objHandle: HCkNtlm): PWideChar; stdcall;
procedure CkNtlm_getDnsDomainName(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
procedure CkNtlm_putDnsDomainName(objHandle: HCkNtlm; newPropVal: PWideChar); stdcall;
function CkNtlm__dnsDomainName(objHandle: HCkNtlm): PWideChar; stdcall;
procedure CkNtlm_getDomain(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
procedure CkNtlm_putDomain(objHandle: HCkNtlm; newPropVal: PWideChar); stdcall;
function CkNtlm__domain(objHandle: HCkNtlm): PWideChar; stdcall;
procedure CkNtlm_getEncodingMode(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
procedure CkNtlm_putEncodingMode(objHandle: HCkNtlm; newPropVal: PWideChar); stdcall;
function CkNtlm__encodingMode(objHandle: HCkNtlm): PWideChar; stdcall;
procedure CkNtlm_getFlags(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
procedure CkNtlm_putFlags(objHandle: HCkNtlm; newPropVal: PWideChar); stdcall;
function CkNtlm__flags(objHandle: HCkNtlm): PWideChar; stdcall;
procedure CkNtlm_getLastErrorHtml(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
function CkNtlm__lastErrorHtml(objHandle: HCkNtlm): PWideChar; stdcall;
procedure CkNtlm_getLastErrorText(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
function CkNtlm__lastErrorText(objHandle: HCkNtlm): PWideChar; stdcall;
procedure CkNtlm_getLastErrorXml(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
function CkNtlm__lastErrorXml(objHandle: HCkNtlm): PWideChar; stdcall;
function CkNtlm_getLastMethodSuccess(objHandle: HCkNtlm): wordbool; stdcall;
procedure CkNtlm_putLastMethodSuccess(objHandle: HCkNtlm; newPropVal: wordbool); stdcall;
procedure CkNtlm_getNetBiosComputerName(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
procedure CkNtlm_putNetBiosComputerName(objHandle: HCkNtlm; newPropVal: PWideChar); stdcall;
function CkNtlm__netBiosComputerName(objHandle: HCkNtlm): PWideChar; stdcall;
procedure CkNtlm_getNetBiosDomainName(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
procedure CkNtlm_putNetBiosDomainName(objHandle: HCkNtlm; newPropVal: PWideChar); stdcall;
function CkNtlm__netBiosDomainName(objHandle: HCkNtlm): PWideChar; stdcall;
function CkNtlm_getNtlmVersion(objHandle: HCkNtlm): Integer; stdcall;
procedure CkNtlm_putNtlmVersion(objHandle: HCkNtlm; newPropVal: Integer); stdcall;
function CkNtlm_getOemCodePage(objHandle: HCkNtlm): Integer; stdcall;
procedure CkNtlm_putOemCodePage(objHandle: HCkNtlm; newPropVal: Integer); stdcall;
procedure CkNtlm_getPassword(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
procedure CkNtlm_putPassword(objHandle: HCkNtlm; newPropVal: PWideChar); stdcall;
function CkNtlm__password(objHandle: HCkNtlm): PWideChar; stdcall;
procedure CkNtlm_getServerChallenge(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
procedure CkNtlm_putServerChallenge(objHandle: HCkNtlm; newPropVal: PWideChar); stdcall;
function CkNtlm__serverChallenge(objHandle: HCkNtlm): PWideChar; stdcall;
procedure CkNtlm_getTargetName(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
procedure CkNtlm_putTargetName(objHandle: HCkNtlm; newPropVal: PWideChar); stdcall;
function CkNtlm__targetName(objHandle: HCkNtlm): PWideChar; stdcall;
procedure CkNtlm_getUserName(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
procedure CkNtlm_putUserName(objHandle: HCkNtlm; newPropVal: PWideChar); stdcall;
function CkNtlm__userName(objHandle: HCkNtlm): PWideChar; stdcall;
function CkNtlm_getVerboseLogging(objHandle: HCkNtlm): wordbool; stdcall;
procedure CkNtlm_putVerboseLogging(objHandle: HCkNtlm; newPropVal: wordbool); stdcall;
procedure CkNtlm_getVersion(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
function CkNtlm__version(objHandle: HCkNtlm): PWideChar; stdcall;
procedure CkNtlm_getWorkstation(objHandle: HCkNtlm; outPropVal: HCkString); stdcall;
procedure CkNtlm_putWorkstation(objHandle: HCkNtlm; newPropVal: PWideChar); stdcall;
function CkNtlm__workstation(objHandle: HCkNtlm): PWideChar; stdcall;
function CkNtlm_CompareType3(objHandle: HCkNtlm; msg1: PWideChar; msg2: PWideChar): wordbool; stdcall;
function CkNtlm_GenType1(objHandle: HCkNtlm; outStr: HCkString): wordbool; stdcall;
function CkNtlm__genType1(objHandle: HCkNtlm): PWideChar; stdcall;
function CkNtlm_GenType2(objHandle: HCkNtlm; type1Msg: PWideChar; outStr: HCkString): wordbool; stdcall;
function CkNtlm__genType2(objHandle: HCkNtlm; type1Msg: PWideChar): PWideChar; stdcall;
function CkNtlm_GenType3(objHandle: HCkNtlm; type2Msg: PWideChar; outStr: HCkString): wordbool; stdcall;
function CkNtlm__genType3(objHandle: HCkNtlm; type2Msg: PWideChar): PWideChar; stdcall;
function CkNtlm_LoadType3(objHandle: HCkNtlm; type3Msg: PWideChar): wordbool; stdcall;
function CkNtlm_ParseType1(objHandle: HCkNtlm; type1Msg: PWideChar; outStr: HCkString): wordbool; stdcall;
function CkNtlm__parseType1(objHandle: HCkNtlm; type1Msg: PWideChar): PWideChar; stdcall;
function CkNtlm_ParseType2(objHandle: HCkNtlm; type2Msg: PWideChar; outStr: HCkString): wordbool; stdcall;
function CkNtlm__parseType2(objHandle: HCkNtlm; type2Msg: PWideChar): PWideChar; stdcall;
function CkNtlm_ParseType3(objHandle: HCkNtlm; type3Msg: PWideChar; outStr: HCkString): wordbool; stdcall;
function CkNtlm__parseType3(objHandle: HCkNtlm; type3Msg: PWideChar): PWideChar; stdcall;
function CkNtlm_SaveLastError(objHandle: HCkNtlm; path: PWideChar): wordbool; stdcall;
function CkNtlm_SetFlag(objHandle: HCkNtlm; flagLetter: PWideChar; onOrOff: wordbool): wordbool; stdcall;
function CkNtlm_UnlockComponent(objHandle: HCkNtlm; unlockCode: PWideChar): wordbool; stdcall;
implementation
{$Include chilkatDllPath.inc}
function CkNtlm_Create; external DLLName;
procedure CkNtlm_Dispose; external DLLName;
procedure CkNtlm_getClientChallenge; external DLLName;
procedure CkNtlm_putClientChallenge; external DLLName;
function CkNtlm__clientChallenge; external DLLName;
procedure CkNtlm_getDebugLogFilePath; external DLLName;
procedure CkNtlm_putDebugLogFilePath; external DLLName;
function CkNtlm__debugLogFilePath; external DLLName;
procedure CkNtlm_getDnsComputerName; external DLLName;
procedure CkNtlm_putDnsComputerName; external DLLName;
function CkNtlm__dnsComputerName; external DLLName;
procedure CkNtlm_getDnsDomainName; external DLLName;
procedure CkNtlm_putDnsDomainName; external DLLName;
function CkNtlm__dnsDomainName; external DLLName;
procedure CkNtlm_getDomain; external DLLName;
procedure CkNtlm_putDomain; external DLLName;
function CkNtlm__domain; external DLLName;
procedure CkNtlm_getEncodingMode; external DLLName;
procedure CkNtlm_putEncodingMode; external DLLName;
function CkNtlm__encodingMode; external DLLName;
procedure CkNtlm_getFlags; external DLLName;
procedure CkNtlm_putFlags; external DLLName;
function CkNtlm__flags; external DLLName;
procedure CkNtlm_getLastErrorHtml; external DLLName;
function CkNtlm__lastErrorHtml; external DLLName;
procedure CkNtlm_getLastErrorText; external DLLName;
function CkNtlm__lastErrorText; external DLLName;
procedure CkNtlm_getLastErrorXml; external DLLName;
function CkNtlm__lastErrorXml; external DLLName;
function CkNtlm_getLastMethodSuccess; external DLLName;
procedure CkNtlm_putLastMethodSuccess; external DLLName;
procedure CkNtlm_getNetBiosComputerName; external DLLName;
procedure CkNtlm_putNetBiosComputerName; external DLLName;
function CkNtlm__netBiosComputerName; external DLLName;
procedure CkNtlm_getNetBiosDomainName; external DLLName;
procedure CkNtlm_putNetBiosDomainName; external DLLName;
function CkNtlm__netBiosDomainName; external DLLName;
function CkNtlm_getNtlmVersion; external DLLName;
procedure CkNtlm_putNtlmVersion; external DLLName;
function CkNtlm_getOemCodePage; external DLLName;
procedure CkNtlm_putOemCodePage; external DLLName;
procedure CkNtlm_getPassword; external DLLName;
procedure CkNtlm_putPassword; external DLLName;
function CkNtlm__password; external DLLName;
procedure CkNtlm_getServerChallenge; external DLLName;
procedure CkNtlm_putServerChallenge; external DLLName;
function CkNtlm__serverChallenge; external DLLName;
procedure CkNtlm_getTargetName; external DLLName;
procedure CkNtlm_putTargetName; external DLLName;
function CkNtlm__targetName; external DLLName;
procedure CkNtlm_getUserName; external DLLName;
procedure CkNtlm_putUserName; external DLLName;
function CkNtlm__userName; external DLLName;
function CkNtlm_getVerboseLogging; external DLLName;
procedure CkNtlm_putVerboseLogging; external DLLName;
procedure CkNtlm_getVersion; external DLLName;
function CkNtlm__version; external DLLName;
procedure CkNtlm_getWorkstation; external DLLName;
procedure CkNtlm_putWorkstation; external DLLName;
function CkNtlm__workstation; external DLLName;
function CkNtlm_CompareType3; external DLLName;
function CkNtlm_GenType1; external DLLName;
function CkNtlm__genType1; external DLLName;
function CkNtlm_GenType2; external DLLName;
function CkNtlm__genType2; external DLLName;
function CkNtlm_GenType3; external DLLName;
function CkNtlm__genType3; external DLLName;
function CkNtlm_LoadType3; external DLLName;
function CkNtlm_ParseType1; external DLLName;
function CkNtlm__parseType1; external DLLName;
function CkNtlm_ParseType2; external DLLName;
function CkNtlm__parseType2; external DLLName;
function CkNtlm_ParseType3; external DLLName;
function CkNtlm__parseType3; external DLLName;
function CkNtlm_SaveLastError; external DLLName;
function CkNtlm_SetFlag; external DLLName;
function CkNtlm_UnlockComponent; external DLLName;
end.