aksdb/restemplate
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

* Replaced fphttpclient with indy10.

Browse Source 
* Added compression support
This commit is contained in:
Andreas Schneider
2015-10-04 14:14:55 +02:00
parent 610c1e4108
commit b1e455022b
1330 changed files with 338589 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
indy/Security/IconsDotNet/TIdIOHandlerTls.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 822 B

BIN
indy/Security/IconsDotNet/TIdServerIOHandlerTls.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 822 B

176
indy/Security/IdCarrierStream.pas Normal file
View File

@@ -0,0 +1,176 @@
{
$Project$
$Workfile$
$Revision$
$DateUTC$
$Id$
This file is part of the Indy (Internet Direct) project, and is offered
under the dual-licensing agreement described on the Indy website.
(http://www.indyproject.org/)
Copyright:
(c) 1993-2005, Chad Z. Hower and the Indy Pit Crew. All rights reserved.
}
{
$Log$
}
{
Rev 1.0 27-03-05 10:04:16 MterWoord
Second import, first time the filenames weren't prefixed with Id
Rev 1.0 27-03-05 09:08:44 MterWoord
Created
}
unit IdCarrierStream;
interface
uses
System.IO;
type
TIdCarrierStream = class(System.IO.Stream)
private
FInternalStream: Stream;
public
function get_CanRead: Boolean; override;
function get_CanSeek: Boolean; override;
function get_CanWrite: Boolean; override;
function get_Length: Int64; override;
function get_Position: Int64; override;
procedure set_Position(Value: Int64); override;
{ Private Declarations }
public
constructor Create(const AInternalStream: Stream); reintroduce;
destructor Destroy; override;
function BeginRead(ABuffer: array of byte; AOffset: Integer; ACount: Integer; ACallback: AsyncCallback; AState: TObject) : IAsyncResult; override;
function BeginWrite(ABuffer: array of byte; AOffset: Integer; ACount: Integer; ACallback: AsyncCallback; AState: TObject) : IAsyncResult; override;
procedure Close; override;
function EndRead(AResult: IAsyncResult) : Integer; override;
procedure EndWrite(AResult: IAsyncResult); override;
function Read(ABuffer: array of byte; AOffset: Integer; ACount: Integer) : Integer; override;
function ReadByte : Integer; override;
function Seek(AOffset: Int64; AOrigin: SeekOrigin) : Int64; override;
procedure SetLength(ALength: Int64); override;
procedure Write(ABuffer: array of byte; AOffset: integer; ACount: Integer); override;
procedure WriteByte(AInput: byte); override;
procedure Flush; override;
property CanRead: Boolean read get_CanRead;
property CanWrite: Boolean read get_CanWrite;
property CanSeek: Boolean read get_CanSeek;
property Length: Int64 read get_Length;
property Position: Int64 read get_Position write set_Position;
property InternalStream: Stream read FInternalStream;
end;
implementation
function TIdCarrierStream.BeginRead(ABuffer: array of byte; AOffset,
ACount: Integer; ACallback: AsyncCallback; AState: TObject): IAsyncResult;
begin
Result := FInternalStream.BeginRead(ABuffer, AOffset, ACount, ACallback, AState);
end;
function TIdCarrierStream.BeginWrite(ABuffer: array of byte; AOffset,
ACount: Integer; ACallback: AsyncCallback; AState: TObject): IAsyncResult;
begin
Result := FInternalStream.BeginWrite(ABuffer, AOffset, ACount, ACallback, AState);
end;
procedure TIdCarrierStream.Close;
begin
// don't do anything, this is a carrierstream
end;
constructor TIdCarrierStream.Create(const AInternalStream: Stream);
begin
inherited Create;
FInternalStream := AInternalStream;
end;
function TIdCarrierStream.get_Length: Int64;
begin
Result := FInternalStream.Length;
end;
function TIdCarrierStream.get_CanSeek: Boolean;
begin
Result := FInternalStream.CanSeek;
end;
function TIdCarrierStream.get_CanRead: Boolean;
begin
Result := FInternalStream.CanRead;
end;
function TIdCarrierStream.get_CanWrite: Boolean;
begin
Result := FInternalStream.CanWrite;
end;
function TIdCarrierStream.get_Position: Int64;
begin
Result := FInternalStream.Position;
end;
procedure TIdCarrierStream.set_Position(Value: Int64);
begin
FInternalStream.Position := Value;
end;
procedure TIdCarrierStream.Write(ABuffer: array of byte; AOffset,
ACount: Integer);
begin
FInternalStream.Write(ABuffer, AOffset, ACount);
end;
function TIdCarrierStream.ReadByte: Integer;
begin
Result := FInternalStream.ReadByte;
end;
procedure TIdCarrierStream.SetLength(ALength: Int64);
begin
FInternalStream.SetLength(ALength);
end;
procedure TIdCarrierStream.WriteByte(AInput: byte);
begin
FInternalStream.WriteByte(AInput);
end;
procedure TIdCarrierStream.Flush;
begin
FInternalStream.Flush;
end;
function TIdCarrierStream.Seek(AOffset: Int64; AOrigin: SeekOrigin): Int64;
begin
Result := FInternalStream.Seek(AOffset, AOrigin);
end;
function TIdCarrierStream.EndRead(AResult: IAsyncResult): Integer;
begin
Result := FInternalStream.EndRead(AResult);
end;
function TIdCarrierStream.Read(ABuffer: array of byte; AOffset,
ACount: Integer): Integer;
begin
Result := FInternalStream.Read(ABuffer, AOffset, ACount);
end;
destructor TIdCarrierStream.Destroy;
begin
FInternalStream := nil;
inherited;
end;
procedure TIdCarrierStream.EndWrite(AResult: IAsyncResult);
begin
FInternalStream.EndWrite(AResult);
end;
end.

230
indy/Security/IdIOHandlerTls.pas Normal file
View File

@@ -0,0 +1,230 @@
{
$Project$
$Workfile$
$Revision$
$DateUTC$
$Id$
This file is part of the Indy (Internet Direct) project, and is offered
under the dual-licensing agreement described on the Indy website.
(http://www.indyproject.org/)
Copyright:
(c) 1993-2005, Chad Z. Hower and the Indy Pit Crew. All rights reserved.
}
{
$Log$
}
{
Rev 1.0 27-03-05 10:04:18 MterWoord
Second import, first time the filenames weren't prefixed with Id
Rev 1.0 27-03-05 09:08:50 MterWoord
Created
}
unit IdIOHandlerTls;
interface
uses
System.Collections, System.ComponentModel, System.IO, System.Net.Sockets,
System.Security.Cryptography.X509Certificates, Mono.Security.Protocol.Tls,
IdSSL, IdCarrierStream, IdSocketStream, IdGlobal, IdTlsClientOptions;
{$AUTOBOX ON}
{$HINTS OFF}
{$WARNINGS OFF}
type
TArrayOfInteger = array of Int32;
TIdIOHandlerTls = class(TIdSSLIOHandlerSocketBase)
protected
FOptions: TIdTlsClientOptions;
FTlsStream: SslClientStream;
FCarrierStream: TIdCarrierStream;
FSocketStream: TIdSocketStream;
FActiveStream: Stream;
FOnValidateCertificate: CertificateValidationCallback;
procedure InitComponent; override;
function RecvEnc(var ABuffer: TIdBytes): Integer; override;
function SendEnc(const ABuffer: TIdBytes; const AOffset, ALength: Integer): Integer; override;
procedure SetPassThrough(const AValue: Boolean); override;
procedure SetOnValidateCertificate(const Value: CertificateValidationCallback);
procedure SetOptions(const Value: TIdTlsClientOptions);
public
procedure Open; override;
procedure Close; override;
procedure CheckForDisconnect(ARaiseExceptionIfDisconnected: Boolean = True;
AIgnoreBuffer: Boolean = False); override;
procedure StartSSL; override;
function Clone : TIdSSLIOHandlerSocketBase; override;
function Connected: Boolean; override;
published
property Options: TIdTlsClientOptions read FOptions write SetOptions;
property OnValidateCertificate: CertificateValidationCallback read FOnValidateCertificate write SetOnValidateCertificate;
end;
implementation
uses IdIOHandler;
{ TIOHandlerTls }
procedure TIdIOHandlerTls.SetOnValidateCertificate(
const Value: CertificateValidationCallback);
begin
FOnValidateCertificate := Value;
if FTlsStream <> nil then
begin
FTlsStream.ServerCertValidationDelegate := Value;
end;
end;
procedure TIdIOHandlerTls.SetOptions(const Value: TIdTlsClientOptions);
begin
FOptions := Value;
end;
function TIdIOHandlerTls.Connected: Boolean;
begin
Result := ( (Binding <> nil)
and (Binding.Handle <> nil)
and (Binding.Handle.Connected)
and (FSocketStream <> nil)
and (FCarrierStream <> nil)
and ((FTlsStream <> nil) or PassThrough)
);
end;
function TIdIOHandlerTls.Clone: TIdSSLIOHandlerSocketBase;
var
TempResult: TIdIOHandlerTls;
begin
TempResult := TIdIOHandlerTls.Create;
TempResult.Options.CertificateCollection.AddRange(Options.CertificateCollection);
TempResult.Options.Protocol := Options.Protocol;
Result := TempResult;
end;
procedure TIdIOHandlerTls.InitComponent;
begin
inherited;
FOptions := TIdTlsClientOptions.Create;
end;
procedure TIdIOHandlerTls.StartSSL;
begin
inherited;
PassThrough := False;
end;
procedure TIdIOHandlerTls.Open;
begin
inherited;
FSocketStream := TIdSocketStream.Create(Binding.Handle);
FCarrierStream := TIdCarrierStream.Create(FSocketStream);
FActiveStream := FCarrierStream;
GC.SuppressFinalize(FSocketStream);
GC.SuppressFinalize(FCarrierStream);
GC.SuppressFinalize(Binding.Handle);
if not PassThrough then
begin
PassThrough := True;
PassThrough := False;
end;
end;
function TIdIOHandlerTls.RecvEnc(var VBuffer: TIdBytes): Integer;
begin
if FActiveStream <> nil then begin
Result := FActiveStream.Read(VBuffer, 0, Length(VBuffer));
end else begin
Result := 0;
end;
end;
procedure TIdIOHandlerTls.CheckForDisconnect(ARaiseExceptionIfDisconnected: Boolean = True;
AIgnoreBuffer: Boolean = False);
begin
inherited;
try
if FActiveStream = nil then
begin
if AIgnoreBuffer or (FInputBuffer.Size = 0) then begin
CloseGracefully;
end;
end
else if (not FActiveStream.CanRead) or (not FActiveStream.CanWrite) then
begin
if AIgnoreBuffer or (FInputBuffer.Size = 0) then begin
CloseGracefully;
end;
end;
except
on E: Exception do begin
CloseGracefully;
end;
end;
if ARaiseExceptionIfDisconnected and ClosedGracefully then begin
RaiseConnClosedGracefully;
end;
end;
procedure TIdIOHandlerTls.Close;
begin
if not PassThrough then
begin
FTlsStream.Close;
FTlsStream := nil;
end;
FCarrierStream.Close;
FCarrierStream := nil;
FSocketStream.Close;
FSocketStream := nil;
inherited;
end;
function TIdIOHandlerTls.SendEnc(const ABuffer: TIdBytes; const AOffset, ALength: Integer): Integer;
begin
if FActiveStream <> nil then
begin
FActiveStream.Write(ABuffer, AOffset, ALength);
FActiveStream.Flush;
Result := ALength;
end else begin
Result := 0;
end;
end;
procedure TIdIOHandlerTls.SetPassThrough(const AValue: Boolean);
var
TempBuff: array[0..0] of byte;
begin
if PassThrough <> AValue then
begin
inherited;
if FCarrierStream = nil then begin
Exit;
end;
if AValue then
begin
FActiveStream := FSocketStream;
if FTlsStream <> nil then
begin
FTlsStream.Close;
FTlsStream := nil;
end;
end else
begin
FTlsStream := SslClientStream.Create(FCarrierStream, URIToCheck, True, FOptions.Protocol, FOptions.CertificateCollection);
FTlsStream.ServerCertValidationDelegate := FOnValidateCertificate;
GC.SuppressFinalize(FTlsStream);
FActiveStream := FTlsStream;
//FTlsStream.Read(TempBuff, 0, 0);
end;
end;
end;
end.

51
indy/Security/IdRegisterSecurity.pas Normal file
View File

@@ -0,0 +1,51 @@
{
$Project$
$Workfile$
$Revision$
$DateUTC$
$Id$
This file is part of the Indy (Internet Direct) project, and is offered
under the dual-licensing agreement described on the Indy website.
(http://www.indyproject.org/)
Copyright:
(c) 1993-2005, Chad Z. Hower and the Indy Pit Crew. All rights reserved.
}
{
$Log$
}
{
Rev 1.1 3/28/2005 1:11:30 PM JPMugaas
Package build errors.
Rev 1.0 3/28/2005 5:59:14 AM JPMugaas
New Security package.
}
unit IdRegisterSecurity;
interface
uses
Classes;
{$R IconsDotNet\TIdIOHandlerTls.bmp}
{$R IconsDotNet\TIdServerIOHandlerTls.bmp}
// Procedures
procedure Register;
implementation
uses IdIOHandlerTls,
IdServerIOHandlerTls,
IdDsnCoreResourceStrings;
procedure Register;
begin
RegisterComponents(RSRegIndyIOHandlers,
[TIdIOHandlerTls,
TIdServerIOHandlerTls]);
end;
end.

12
indy/Security/IdSecurity90ASM90.inc Normal file
View File

@@ -0,0 +1,12 @@
[assembly: AssemblyDescription('Internet Direct (Indy) 10.6.2 Security Run-Time Package for Borland Developer Studio')]
[assembly: AssemblyConfiguration('')]
[assembly: AssemblyCompany('Chad Z. Hower a.k.a Kudzu and the Indy Pit Crew')]
[assembly: AssemblyProduct('Indy for Microsoft .NET Framework')]
[assembly: AssemblyCopyright('Copyright © 1993 - 2015 Chad Z. Hower a.k.a Kudzu and the Indy Pit Crew')]
[assembly: AssemblyTrademark('')]
[assembly: AssemblyCulture('')]
[assembly: AssemblyTitle('Indy .NET Security Run-Time Package')]
[assembly: AssemblyVersion('10.6.2.*')]
[assembly: AssemblyDelaySign(false)]
[assembly: AssemblyKeyFile('')]
[assembly: AssemblyKeyName('')]

389
indy/Security/IdServerIOHandlerTls.pas Normal file
View File

@@ -0,0 +1,389 @@
{
$Project$
$Workfile$
$Revision$
$DateUTC$
$Id$
This file is part of the Indy (Internet Direct) project, and is offered
under the dual-licensing agreement described on the Indy website.
(http://www.indyproject.org/)
Copyright:
(c) 1993-2005, Chad Z. Hower and the Indy Pit Crew. All rights reserved.
}
{
$Log$
}
{
Rev 1.0 27-03-05 10:04:20 MterWoord
Second import, first time the filenames weren't prefixed with Id
Rev 1.0 27-03-05 09:08:54 MterWoord
Created
}
unit IdServerIOHandlerTls;
interface
uses
IdSSL, IdTlsServerOptions, Mono.Security.Protocol.Tls, IdCarrierStream,
IdSocketStream, System.IO, System.Security.Cryptography, IdGlobal, IdYarn,
System.Security.Cryptography.X509Certificates, Mono.Security.Authenticode,
IdIOHandler, IdSocketHandle, IdThread;
type
TIdServerIOHandlerTls = class(TIdServerIOHandlerSSLBase)
protected
FOptions: TIdTlsServerOptions;
function NewServerSideIOHandlerTls: TIdSSLIOHandlerSocketBase;
procedure InitComponent; override;
public
function MakeFTPSvrPasv: TIdSSLIOHandlerSocketBase; override;
function MakeFTPSvrPort: TIdSSLIOHandlerSocketBase; override;
function MakeClientIOHandler(AYarn: TIdYarn) : TIdIOHandler; override;
function MakeClientIOHandler: TIdSSLIOHandlerSocketBase; override;
function Accept(ASocket: TIdSocketHandle; AListenerThread: TIdThread; AYarn: TIdYarn): TIdIOHandler; override;
published
property Options: TIdTlsServerOptions read FOptions write FOptions;
end;
implementation
type
TIdServerSideIOHandlerTls = class(TIdSSLIOHandlerSocketBase)
protected
FOptions: TIdTlsServerOptions;
FTlsServerStream: SslServerStream;
FTlsClientStream: SslClientStream;
FCarrierStream: TIdCarrierStream;
FSocketStream: TIdSocketStream;
FActiveStream: Stream;
FPassThrough: Boolean;
function PrivateKeySelection(certificate: X509Certificate; TargetHost: string): AsymmetricAlgorithm;
function ReadFromSource(ARaiseExceptionIfDisconnected: Boolean; ATimeout: Integer; ARaiseExceptionOnTimeOut: Boolean): Integer; override;
procedure SetPassThrough(const AValue: Boolean); override;
public
procedure CheckForDataOnSource(ATimeOut: Integer); override;
procedure StartSSL; override;
procedure AfterAccept; override;
procedure CheckForDisconnect(ARaiseExceptionIfDisconnected: Boolean; AIgnoreBuffer: Boolean); override;
function Clone: TIdSSLIOHandlerSocketBase; override;
procedure WriteDirect(var ABuffer: TIdBytes); override;
procedure Close; override;
published
property Options: TIdTlsServerOptions read FOptions write FOptions;
end;
{ TServerSideIOHandlerTls }
function TIdServerSideIOHandlerTls.Clone: TIdSSLIOHandlerSocketBase;
var
TEmpResult : TIdServerSideIOHandlerTls;
begin
TempResult := TIdServerSideIOHandlerTls.Create;
TempResult.Options.ClientNeedsCertificate := Options.ClientNeedsCertificate;
TempResult.Options.PrivateKey := Options.PrivateKey;
TempResult.Options.Protocol := Options.Protocol;
TempResult.Options.PublicCertificate := Options.PublicCertificate;
TempResult.IsPeer := IsPeer;
TempResult.PassThrough := PassThrough;
Result := TempResult;
end;
procedure TIdServerSideIOHandlerTls.StartSSL;
begin
inherited;
PassThrough := False;
end;
function TIdServerSideIOHandlerTls.PrivateKeySelection(
certificate: X509Certificate; TargetHost: string): AsymmetricAlgorithm;
begin
Result := FOptions.PrivateKey.RSA;
end;
function TIdServerSideIOHandlerTls.ReadFromSource(
ARaiseExceptionIfDisconnected: Boolean; ATimeout: Integer;
ARaiseExceptionOnTimeOut: Boolean): Integer;
var
TempBuff: array of byte;
TotalBytesRead: Integer;
StartTime: Cardinal;
BytesRead: Integer;
TempBytes: array of byte;
begin
Result := 0;
if FInputBuffer = nil then
Exit;
if FActiveStream <> nil then
begin
SetLength(TempBuff, 512);
TotalBytesRead := 0;
StartTime := Ticks;
repeat
BytesRead := FActiveStream.Read(TempBuff, 0, 512);
if BytesRead <> 0 then
begin
TempBytes := ToBytes(TempBuff, BytesRead);
FInputBuffer.Write(TempBytes);
TotalBytesRead := TotalBytesRead + BytesRead;
end;
if BytesRead <> 512 then
begin
Result := TotalBytesRead;
Exit;
end;
IndySleep(2);
until ( (Abs(GetTickDiff(StartTime, Ticks)) > ATimeOut)
and (not ((ATimeOut = IdTimeoutDefault) or (ATimeOut = IdTimeoutInfinite)))
);
Result := TotalBytesRead;
end;
end;
procedure TIdServerSideIOHandlerTls.CheckForDisconnect(
ARaiseExceptionIfDisconnected, AIgnoreBuffer: Boolean);
begin
try
if FActiveStream = nil then
begin
if AIgnoreBuffer then
begin
CloseGracefully;
end
else
begin
if FInputBuffer.Size = 0 then
begin
CloseGracefully;
end;
end;
end
else
begin
if ( (not FActiveStream.CanRead)
or (not FActiveStream.CanWrite)
) then
begin
if AIgnoreBuffer then
begin
CloseGracefully;
end
else
begin
if FInputBuffer.Size = 0 then
begin
CloseGracefully;
end;
end;
end;
end;
except
on E: Exception do
begin
CloseGracefully;
end;
end;
if ( (ARaiseExceptionIfDisconnected)
and (ClosedGracefully)
) then
RaiseConnClosedGracefully;
end;
procedure TIdServerSideIOHandlerTls.CheckForDataOnSource(ATimeOut: Integer);
begin
if Connected then
begin
ReadFromSource(false, ATimeOut, false);
end;
end;
procedure TIdServerSideIOHandlerTls.AfterAccept;
begin
inherited;
FSocketStream := TIdSocketStream.Create(Binding.Handle);
FCarrierStream := TIdCarrierStream.Create(FSocketStream);
FTlsServerStream := SslServerStream.Create(FCarrierStream, FOptions.PublicCertificate, FOptions.ClientNeedsCertificate, true, FOptions.Protocol);
GC.SuppressFinalize(FSocketStream);
GC.SuppressFinalize(FCarrierStream);
GC.SuppressFinalize(FTlsServerStream);
FActiveStream := FCarrierStream;
FTlsServerStream.PrivateKeyCertSelectionDelegate := PrivateKeySelection;
IsPeer := true;
PassThrough := true;
end;
procedure TIdServerSideIOHandlerTls.Close;
begin
if not PassThrough then
begin
if IsPeer then
begin
if FTlsServerStream <> nil then
begin
FTlsServerStream.Close;
FTlsServerStream := nil;
end;
end
else
begin
if FTlsClientStream <> nil then
begin
FTlsClientStream.Close;
FTlsClientStream := nil;
end;
end;
end;
if FCarrierStream <> nil then
begin
FCarrierStream.Close;
FCarrierStream := nil;
end;
if FSocketStream <> nil then
begin
FSocketStream.Close;
FSocketStream := nil;
end;
inherited;
end;
procedure TIdServerSideIOHandlerTls.WriteDirect(var ABuffer: TIdBytes);
begin
if Intercept <> nil then
Intercept.Send(ABuffer);
if FActiveStream <> nil then
begin
FActiveStream.Write(ABuffer, 0, Length(ABuffer));
FActiveStream.Flush;
end
else
raise Exception.Create('No active stream!');
end;
procedure TIdServerSideIOHandlerTls.SetPassThrough(const AValue: Boolean);
var
TempBuff: array[0..0] of byte;
begin
inherited;
if AValue then
begin
if FActiveStream <> nil then
begin
FActiveStream.Close;
FActiveStream := nil;
end;
FActiveStream := FSocketStream;
if IsPeer then
begin
if FTlsServerStream <> nil then
begin
FTlsServerStream.Close;
FTlsServerStream := nil;
end;
FTlsServerStream := SslServerStream.Create(FCarrierStream, FOptions.PublicCertificate, FOptions.ClientNeedsCertificate, true, FOptions.Protocol);
GC.SuppressFinalize(FTlsServerStream);
FTlsServerStream.PrivateKeyCertSelectionDelegate := PrivateKeySelection;
end
else
begin
if FTlsClientStream <> nil then
begin
FTlsClientStream.Close;
FTlsClientStream := nil;
end;
FTlsClientStream := SslClientStream.Create(FCarrierStream, Destination, true, FOptions.Protocol);
GC.SuppressFinalize(FTlsClientStream);
end;
end
else
begin
if IsPeer then
begin
FActiveStream := FTlsServerStream;
end
else
begin
FActiveStream := FTlsClientStream;
end;
FActiveStream.Read(TempBuff, 0, 0);
end;
end;
{ TServerIOHandlerTls }
procedure TIdServerIOHandlerTls.InitComponent;
begin
inherited;
FOptions := TIdTlsServerOptions.Create;
end;
function TIdServerIOHandlerTls.NewServerSideIOHandlerTls: TIdSSLIOHandlerSocketBase;
var
TempResult: TIdServerSideIOHandlerTls;
begin
TempResult := TIdServerSideIOHandlerTls.Create;
TempResult.Options := FOptions;
Result := TempResult;
end;
function TIdServerIOHandlerTls.MakeClientIOHandler: TIdSSLIOHandlerSocketBase;
begin
Result := NewServerSideIOHandlerTls;
end;
function TIdServerIOHandlerTls.MakeClientIOHandler(AYarn: TIdYarn): TIdIOHandler;
begin
Result := NewServerSideIOHandlerTls;
end;
function TIdServerIOHandlerTls.MakeFTPSvrPort: TIdSSLIOHandlerSocketBase;
begin
Result := NewServerSideIOHandlerTls;
end;
function TIdServerIOHandlerTls.Accept(ASocket: TIdSocketHandle;
AListenerThread: TIdThread; AYarn: TIdYarn): TIdIOHandler;
var
LIOHandler: TIdServerSideIOHandlerTls;
begin
LIOHandler := TIdServerSideIOHandlerTls.Create;
LIOHandler.Options := FOptions;
LIOHandler.Open;
while not AListenerThread.Stopped do
begin
try
if ASocket.Select(250) then
begin
if LIOHandler.Binding.Accept(ASocket.Handle) then
begin
LIOHandler.AfterAccept;
Result := LIOHandler;
Exit;
end
else
begin
LIOHandler.Close;
Result := nil;
Exit;
end;
end;
finally
if AListenerThread.Stopped then
begin
LIOHandler.Close;
end;
end;
end;
Result := nil;
end;
function TIdServerIOHandlerTls.MakeFTPSvrPasv: TIdSSLIOHandlerSocketBase;
begin
Result := NewServerSideIOHandlerTls;
end;
end.

203
indy/Security/IdSocketStream.pas Normal file
View File

@@ -0,0 +1,203 @@
{
$Project$
$Workfile$
$Revision$
$DateUTC$
$Id$
This file is part of the Indy (Internet Direct) project, and is offered
under the dual-licensing agreement described on the Indy website.
(http://www.indyproject.org/)
Copyright:
(c) 1993-2005, Chad Z. Hower and the Indy Pit Crew. All rights reserved.
}
{
$Log$
}
{
Rev 1.0 27-03-05 10:04:24 MterWoord
Second import, first time the filenames weren't prefixed with Id
Rev 1.0 27-03-05 09:08:58 MterWoord
Created
}
unit IdSocketStream;
interface
uses
System.IO, System.Net.Sockets, IdStack, System.Collections, IdGlobal;
type
TIdSocketStream = class(System.IO.Stream)
private
FInternalSocket: Socket;
public
function get_CanRead: Boolean; override;
function get_CanSeek: Boolean; override;
function get_CanWrite: Boolean; override;
function get_Length: Int64; override;
function get_Position: Int64; override;
procedure set_Position(Value: Int64); override;
{ Private Declarations }
public
constructor Create(const AInternalSocket: Socket); reintroduce;
destructor Destroy; override;
procedure Close; override;
function Read(ABuffer: array of byte; AOffset: Integer; ACount: Integer) : Integer; override;
function ReadByte : Integer; override;
function Seek(AOffset: Int64; AOrigin: SeekOrigin) : Int64; override;
procedure SetLength(ALength: Int64); override;
procedure Write(ABuffer: array of byte; AOffset: integer; ACount: Integer); override;
procedure WriteByte(AInput: byte); override;
procedure Flush; override;
property CanRead: Boolean read get_CanRead;
property CanWrite: Boolean read get_CanWrite;
property CanSeek: Boolean read get_CanSeek;
property Length: Int64 read get_Length;
property Position: Int64 read get_Position write set_Position;
property InternalSocket: Socket read FInternalSocket;
end;
implementation
procedure TIdSocketStream.Close;
begin
inherited;
end;
constructor TIdSocketStream.Create(const AInternalSocket: Socket);
begin
inherited Create;
FInternalSocket := AInternalSocket;
end;
function TIdSocketStream.get_Length: Int64;
begin
Result := 0;
if FInternalSocket.Poll(1, SelectMode.SelectRead) then
Result := FInternalSocket.Available;
end;
function TIdSocketStream.get_CanSeek: Boolean;
begin
Result := False;
end;
function TIdSocketStream.get_CanRead: Boolean;
begin
Result := True;
end;
function TIdSocketStream.get_CanWrite: Boolean;
begin
Result := True;
end;
function TIdSocketStream.get_Position: Int64;
begin
Result := 0;
end;
procedure TIdSocketStream.set_Position(Value: Int64);
begin
raise NotSupportedException.Create;
end;
procedure TIdSocketStream.Write(ABuffer: array of byte; AOffset,
ACount: Integer);
begin
try
GStack.Send(FInternalSocket, ABuffer, AOffset, ACount);
except
on E: Exception do
begin
Console.WriteLine('TIdSocketStream.Write: ' + E.ToString);
raise;
end;
end;
end;
function TIdSocketStream.ReadByte: Integer;
var
TempBuff: array[0..1] of byte;
begin
Result := -1;
if Length > 0 then
begin
if Read(TempBuff, 0, 1) <> 0 then
Result := TempBuff[0];
end;
end;
procedure TIdSocketStream.SetLength(ALength: Int64);
begin
raise NotSupportedException.Create;
end;
procedure TIdSocketStream.WriteByte(AInput: byte);
begin
Write([AInput], 0, 1);
end;
procedure TIdSocketStream.Flush;
begin
end;
function TIdSocketStream.Seek(AOffset: Int64; AOrigin: SeekOrigin): Int64;
begin
raise NotSupportedException.Create;
end;
function TIdSocketStream.Read(ABuffer: array of byte; AOffset,
ACount: Integer): Integer;
var
I: Integer;
TempArray: ArrayList;
TempBytesToRead: Integer;
TempBuff: TIdBytes;
BytesRead: Integer;
begin
try
i := 0;
TempArray := ArrayList.Create;
while i < ACount do
begin
TempBytesToRead := Math.Min(50, ACount - i);
TempBuff := ToBytes(System.&String.Create(#0, TempBytesToRead));
if CanRead then
begin
BytesRead := GStack.Receive(FInternalSocket, TempBuff);
if BytesRead <> 0 then
begin
&Array.Copy(TempBuff, 0, ABuffer, i + AOffset, BytesRead);
Inc(i, BytesRead);
if BytesRead <> 50 then
Break;
end
else
Break;
end
else
Break;
end;
Result := i;
except
on E: Exception do
begin
Console.WriteLine('Exception "{0}". I = {1}, BytesRead = {2}, AOffset = {3}, ACount = {4}, TempBytesToRead = {5}',
[E.GetType().FullName + ': ' + E.Message, I, BytesRead, AOffset, ACount, TempBytesToRead]);
raise;
end;
end;
end;
destructor TIdSocketStream.Destroy;
begin
FInternalSocket := nil;
inherited;
end;
end.

68
indy/Security/IdTlsClientOptions.pas Normal file
View File

@@ -0,0 +1,68 @@
{
$Project$
$Workfile$
$Revision$
$DateUTC$
$Id$
This file is part of the Indy (Internet Direct) project, and is offered
under the dual-licensing agreement described on the Indy website.
(http://www.indyproject.org/)
Copyright:
(c) 1993-2005, Chad Z. Hower and the Indy Pit Crew. All rights reserved.
}
{
$Log$
}
{
Rev 1.0 27-03-05 10:04:26 MterWoord
Second import, first time the filenames weren't prefixed with Id
Rev 1.0 27-03-05 09:09:00 MterWoord
Created
}
unit IdTlsClientOptions;
interface
uses
Mono.Security.Protocol.Tls, System.Security.Cryptography.X509Certificates;
type
TIdTlsClientOptions = class
private
FProtocol: SecurityProtocolType;
FCertificateCollection: X509CertificateCollection;
procedure SetProtocol(const Value: SecurityProtocolType);
public
constructor Create;
procedure set_CertificateCollection(const Value: X509CertificateCollection);
published
property Protocol: SecurityProtocolType read FProtocol write SetProtocol;
property CertificateCollection: X509CertificateCollection read FCertificateCollection write set_CertificateCollection;
end;
implementation
{ TIdTlsServerOptions }
procedure TIdTlsClientOptions.SetProtocol(const Value: SecurityProtocolType);
begin
FProtocol := Value;
end;
constructor TIdTlsClientOptions.Create;
begin
inherited;
FProtocol := SecurityProtocolType.Tls;
end;
procedure TIdTlsClientOptions.set_CertificateCollection(
const Value: X509CertificateCollection);
begin
FCertificateCollection := Value;
end;
end.

104
indy/Security/IdTlsServerOptions.pas Normal file
View File

@@ -0,0 +1,104 @@
{
$Project$
$Workfile$
$Revision$
$DateUTC$
$Id$
This file is part of the Indy (Internet Direct) project, and is offered
under the dual-licensing agreement described on the Indy website.
(http://www.indyproject.org/)
Copyright:
(c) 1993-2005, Chad Z. Hower and the Indy Pit Crew. All rights reserved.
}
{
$Log$
}
{
Rev 1.0 27-03-05 10:04:26 MterWoord
Second import, first time the filenames weren't prefixed with Id
Rev 1.0 27-03-05 09:09:02 MterWoord
Created
}
unit IdTlsServerOptions;
interface
uses
Mono.Security.Protocol.Tls, Mono.Security.Authenticode, System.Security.Cryptography.X509Certificates;
type
TIdTlsServerOptions = class
private
FPrivateKey: PrivateKey;
FPublicCertificate: X509Certificate;
FProtocol: SecurityProtocolType;
FClientNeedsCertificate: Boolean;
procedure SetClientNeedsCertificate(const Value: Boolean);
procedure SetPrivateKey(const Value: PrivateKey);
procedure SetProtocol(const Value: SecurityProtocolType);
procedure SetPublicCertificate(const Value: X509Certificate);
public
constructor Create;
procedure LoadPublicCertificateFromFile(AFileName: string);
procedure LoadPrivateKeyFromFile(AFileName: string; APassword: string = '');
published
property PublicCertificate: X509Certificate read FPublicCertificate write SetPublicCertificate;
property PrivateKey: PrivateKey read FPrivateKey write SetPrivateKey;
property Protocol: SecurityProtocolType read FProtocol write SetProtocol;
property ClientNeedsCertificate: Boolean read FClientNeedsCertificate write SetClientNeedsCertificate;
end;
implementation
{ TIdTlsServerOptions }
procedure TIdTlsServerOptions.SetPrivateKey(const Value: PrivateKey);
begin
FPrivateKey := Value;
end;
procedure TIdTlsServerOptions.SetPublicCertificate(const Value: X509Certificate);
begin
FPublicCertificate := Value;
end;
procedure TIdTlsServerOptions.SetProtocol(const Value: SecurityProtocolType);
begin
FProtocol := Value;
end;
procedure TIdTlsServerOptions.SetClientNeedsCertificate(const Value: Boolean);
begin
FClientNeedsCertificate := Value;
end;
constructor TIdTlsServerOptions.Create;
begin
inherited;
FProtocol := SecurityProtocolType.Tls;
FClientNeedsCertificate := False;
end;
procedure TIdTlsServerOptions.LoadPrivateKeyFromFile(AFileName,
APassword: string);
begin
if APassword = '' then
begin
FPrivateKey := Mono.Security.Authenticode.PrivateKey.CreateFromFile(AFileName);
end
else
begin
FPrivateKey := Mono.Security.Authenticode.PrivateKey.CreateFromFile(AFileName, APassword);
end;
end;
procedure TIdTlsServerOptions.LoadPublicCertificateFromFile(AFileName: string);
begin
FPublicCertificate := X509Certificate.CreateFromCertFile(AFileName);
end;
end.

12
indy/Security/IddclSecurity90ASM90.inc Normal file
View File

@@ -0,0 +1,12 @@
[assembly: AssemblyDescription('Internet Direct (Indy) 10.6.2 Security Design-Time Package for Borland Developer Studio')]
[assembly: AssemblyConfiguration('')]
[assembly: AssemblyCompany('Chad Z. Hower a.k.a Kudzu and the Indy Pit Crew')]
[assembly: AssemblyProduct('Indy for Microsoft .NET Framework')]
[assembly: AssemblyCopyright('Copyright © 1993 - 2015 Chad Z. Hower a.k.a Kudzu and the Indy Pit Crew')]
[assembly: AssemblyTrademark('')]
[assembly: AssemblyCulture('')]
[assembly: AssemblyTitle('Indy .NET Security Design-Time Package')]
[assembly: AssemblyVersion('10.6.2.*')]
[assembly: AssemblyDelaySign(false)]
[assembly: AssemblyKeyFile('')]
[assembly: AssemblyKeyName('')]

203
indy/Security/IndySecurity100Net.bdsproj Normal file
View File

@@ -0,0 +1,203 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality">DelphiDotNet.Personality</Option>
<Option Name="ProjectType"></Option>
<Option Name="Version">1.0</Option>
<Option Name="GUID">{11EC7E74-D8E1-4B82-89B6-2BF27DFF1CBC}</Option>
</Option>
</PersonalityInfo>
<DelphiDotNet.Personality>
<Source>
<Source Name="MainSource">IndySecurity100Net.dpk</Source>
</Source>
<FileList>
<File FileName="ModelSupport\default.txaPackage" ContainerId="File" ModuleName="default"/>
<File FileName="c:\program files\common files\borland shared\bds\shared assemblies\4.0\Borland.Delphi.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="Borland.Delphi" AssemblyName="Borland.Delphi" Version="10.0.1979.42035" LinkUnits="False"/>
<File FileName="c:\program files\common files\borland shared\bds\shared assemblies\4.0\Borland.VclRtl.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="Borland.VclRtl" AssemblyName="Borland.VclRtl" Version="10.0.1979.42035" LinkUnits="False"/>
<File FileName="IndySystem100Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="IndySystem100Net" AssemblyName="IndySystem100Net" Version="10.0.0.3944" LinkUnits="False"/>
<File FileName="IndyCore100Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="IndyCore100Net" AssemblyName="IndyCore100Net" Version="0.0.0.0" LinkUnits="False"/>
<File FileName="IndyProtocols100Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="IndyProtocols100Net" AssemblyName="IndyProtocols100Net" LinkUnits="False"/>
<File FileName="Mono.Security.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="Mono.Security" AssemblyName="Mono.Security" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="System" AssemblyName="System" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Data.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="System.Data" AssemblyName="System.Data" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.XML.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="System.XML" AssemblyName="System.XML" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Drawing.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="System.Drawing" AssemblyName="system.drawing" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="IdCarrierStream.pas" ContainerId="PascalCompiler" ModuleName="IdCarrierStream"/>
<File FileName="IdIOHandlerTls.pas" ContainerId="PascalCompiler" ModuleName="IdIOHandlerTls"/>
<File FileName="IdServerIOHandlerTls.pas" ContainerId="PascalCompiler" ModuleName="IdServerIOHandlerTls"/>
<File FileName="IdSocketStream.pas" ContainerId="PascalCompiler" ModuleName="IdSocketStream"/>
<File FileName="IdTlsClientOptions.pas" ContainerId="PascalCompiler" ModuleName="IdTlsClientOptions"/>
<File FileName="IdTlsServerOptions.pas" ContainerId="PascalCompiler" ModuleName="IdTlsServerOptions"/>
</FileList>
<FileVersion>
<FileVersion Name="Version">7.0</FileVersion>
</FileVersion>
<Compiler>
<Compiler Name="A">0</Compiler>
<Compiler Name="B">0</Compiler>
<Compiler Name="C">1</Compiler>
<Compiler Name="D">1</Compiler>
<Compiler Name="E">0</Compiler>
<Compiler Name="F">0</Compiler>
<Compiler Name="G">1</Compiler>
<Compiler Name="H">1</Compiler>
<Compiler Name="I">1</Compiler>
<Compiler Name="J">0</Compiler>
<Compiler Name="K">0</Compiler>
<Compiler Name="L">1</Compiler>
<Compiler Name="M">0</Compiler>
<Compiler Name="N">1</Compiler>
<Compiler Name="O">1</Compiler>
<Compiler Name="P">1</Compiler>
<Compiler Name="Q">1</Compiler>
<Compiler Name="R">1</Compiler>
<Compiler Name="S">0</Compiler>
<Compiler Name="T">0</Compiler>
<Compiler Name="U">0</Compiler>
<Compiler Name="V">1</Compiler>
<Compiler Name="W">0</Compiler>
<Compiler Name="X">1</Compiler>
<Compiler Name="Y">1</Compiler>
<Compiler Name="Z">1</Compiler>
<Compiler Name="ShowHints">True</Compiler>
<Compiler Name="ShowWarnings">True</Compiler>
<Compiler Name="UnitAliases">WinTypes=Borland.Vcl.Windows;WinProcs=Borland.Vcl.Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
<Compiler Name="NamespacePrefix">Borland.Vcl</Compiler>
<Compiler Name="GenerateDocumentation">False</Compiler>
<Compiler Name="DefaultNamespace"></Compiler>
<Compiler Name="SymbolDeprecated">True</Compiler>
<Compiler Name="SymbolLibrary">True</Compiler>
<Compiler Name="SymbolPlatform">True</Compiler>
<Compiler Name="SymbolExperimental">True</Compiler>
<Compiler Name="UnitLibrary">True</Compiler>
<Compiler Name="UnitPlatform">True</Compiler>
<Compiler Name="UnitDeprecated">True</Compiler>
<Compiler Name="UnitExperimental">True</Compiler>
<Compiler Name="HResultCompat">True</Compiler>
<Compiler Name="HidingMember">True</Compiler>
<Compiler Name="HiddenVirtual">True</Compiler>
<Compiler Name="Garbage">True</Compiler>
<Compiler Name="BoundsError">True</Compiler>
<Compiler Name="ZeroNilCompat">True</Compiler>
<Compiler Name="StringConstTruncated">True</Compiler>
<Compiler Name="ForLoopVarVarPar">True</Compiler>
<Compiler Name="TypedConstVarPar">True</Compiler>
<Compiler Name="AsgToTypedConst">True</Compiler>
<Compiler Name="CaseLabelRange">True</Compiler>
<Compiler Name="ForVariable">True</Compiler>
<Compiler Name="ConstructingAbstract">True</Compiler>
<Compiler Name="ComparisonFalse">True</Compiler>
<Compiler Name="ComparisonTrue">True</Compiler>
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
<Compiler Name="UnsupportedConstruct">True</Compiler>
<Compiler Name="FileOpen">True</Compiler>
<Compiler Name="FileOpenUnitSrc">True</Compiler>
<Compiler Name="BadGlobalSymbol">True</Compiler>
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
<Compiler Name="InvalidDirective">True</Compiler>
<Compiler Name="PackageNoLink">True</Compiler>
<Compiler Name="PackageThreadVar">True</Compiler>
<Compiler Name="ImplicitImport">True</Compiler>
<Compiler Name="HPPEMITIgnored">True</Compiler>
<Compiler Name="NoRetVal">True</Compiler>
<Compiler Name="UseBeforeDef">True</Compiler>
<Compiler Name="ForLoopVarUndef">True</Compiler>
<Compiler Name="UnitNameMismatch">True</Compiler>
<Compiler Name="NoCFGFileFound">True</Compiler>
<Compiler Name="ImplicitVariants">True</Compiler>
<Compiler Name="UnicodeToLocale">True</Compiler>
<Compiler Name="LocaleToUnicode">True</Compiler>
<Compiler Name="ImagebaseMultiple">True</Compiler>
<Compiler Name="SuspiciousTypecast">True</Compiler>
<Compiler Name="PrivatePropAccessor">True</Compiler>
<Compiler Name="UnsafeType">True</Compiler>
<Compiler Name="UnsafeCode">True</Compiler>
<Compiler Name="UnsafeCast">True</Compiler>
<Compiler Name="OptionTruncated">True</Compiler>
<Compiler Name="WideCharReduced">True</Compiler>
<Compiler Name="DuplicatesIgnored">True</Compiler>
<Compiler Name="UnitInitSeq">True</Compiler>
<Compiler Name="LocalPInvoke">True</Compiler>
<Compiler Name="MessageDirective">True</Compiler>
</Compiler>
<Linker>
<Linker Name="MapFile">0</Linker>
<Linker Name="OutputObjs">0</Linker>
<Linker Name="ConsoleApp">1</Linker>
<Linker Name="DebugInfo">True</Linker>
<Linker Name="RemoteSymbols">False</Linker>
<Linker Name="GenerateDRC">False</Linker>
<Linker Name="MinStackSize">4096</Linker>
<Linker Name="MaxStackSize">1048576</Linker>
<Linker Name="ImageBase">4194304</Linker>
<Linker Name="ExeDescription">Indy 10 Security</Linker>
</Linker>
<Directories>
<Directories Name="OutputDir"></Directories>
<Directories Name="UnitOutputDir"></Directories>
<Directories Name="PackageDLLOutputDir"></Directories>
<Directories Name="PackageDCPOutputDir"></Directories>
<Directories Name="SearchPath">c:\program files\common files\borland shared\bds\shared assemblies\4.0;w:\source\indy10\lib\security;W:\Source\Indy10\Lib\Security;c:\windows\microsoft.net\framework\v1.1.4322</Directories>
<Directories Name="Packages">c:\windows\microsoft.net\framework\v1.1.4322\System.Drawing.dll;c:\windows\microsoft.net\framework\v1.1.4322\System.XML.dll;c:\windows\microsoft.net\framework\v1.1.4322\System.Data.dll;c:\windows\microsoft.net\framework\v1.1.4322\System.dll;w:\source\indy10\lib\security\Mono.Security.dll;W:\Source\Indy10\Lib\Security\IndyProtocols100Net.dll;IndyCore100Net;IndySystem100Net;Borland.VclRtl;Borland.Delphi</Directories>
<Directories Name="Conditionals"></Directories>
<Directories Name="DebugSourceDirs"></Directories>
<Directories Name="UsePackages">False</Directories>
</Directories>
<Parameters>
<Parameters Name="RunParams"></Parameters>
<Parameters Name="HostApplication"></Parameters>
<Parameters Name="Launcher"></Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="DebugCWD"></Parameters>
<Parameters Name="RemoteHost"></Parameters>
<Parameters Name="RemotePath"></Parameters>
<Parameters Name="RemoteLauncher"></Parameters>
<Parameters Name="RemoteCWD"></Parameters>
<Parameters Name="RemoteDebug">False</Parameters>
</Parameters>
<Language>
<Language Name="ActiveLang"></Language>
<Language Name="ProjectLang">$00000000</Language>
<Language Name="RootDir"></Language>
</Language>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">1033</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
</DelphiDotNet.Personality>
</BorlandProject>

43
indy/Security/IndySecurity100Net.dpk Normal file
View File

@@ -0,0 +1,43 @@
package IndySecurity100Net;
{$ALIGN 0}
{$BOOLEVAL OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'Indy 10 Security'}
{$RUNONLY}
{$IMPLICITBUILD ON}
requires
Borland.Delphi,
Borland.VclRtl,
IndySystem100Net,
IndyCore100Net,
IndyProtocols100Net,
Mono.Security,
System,
System.Data,
System.XML;
contains
IdCarrierStream in 'IdCarrierStream.pas',
IdIOHandlerTls in 'IdIOHandlerTls.pas',
IdServerIOHandlerTls in 'IdServerIOHandlerTls.pas',
IdSocketStream in 'IdSocketStream.pas',
IdTlsClientOptions in 'IdTlsClientOptions.pas',
IdTlsServerOptions in 'IdTlsServerOptions.pas';
{$I IdSecurity90ASM90.inc}
end.

43
indy/Security/IndySecurity110Net.dpk Normal file
View File

@@ -0,0 +1,43 @@
package IndySecurity110Net;
{$ALIGN 0}
{$BOOLEVAL OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'Indy 10 Security'}
{$RUNONLY}
{$IMPLICITBUILD ON}
requires
Borland.Delphi,
Borland.VclRtl,
IndySystem110Net,
IndyCore110Net,
IndyProtocols110Net,
Mono.Security,
System,
System.Data,
System.XML;
contains
IdCarrierStream in 'IdCarrierStream.pas',
IdIOHandlerTls in 'IdIOHandlerTls.pas',
IdServerIOHandlerTls in 'IdServerIOHandlerTls.pas',
IdSocketStream in 'IdSocketStream.pas',
IdTlsClientOptions in 'IdTlsClientOptions.pas',
IdTlsServerOptions in 'IdTlsServerOptions.pas';
{$I IdSecurity90ASM90.inc}
end.

197
indy/Security/IndySecurity90Net.bdsproj Normal file
View File

@@ -0,0 +1,197 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality">DelphiDotNet.Personality</Option>
<Option Name="ProjectType"></Option>
<Option Name="Version">1.0</Option>
<Option Name="GUID">{E3BE76C6-4519-4F2F-9CA6-ECC0402D96F2}</Option>
</Option>
</PersonalityInfo>
<DelphiDotNet.Personality>
<Source>
<Source Name="MainSource">IndySecurity90Net.dpk</Source>
</Source>
<FileList>
<File FileName="c:\program files\common files\borland shared\bds\shared assemblies\3.0\Borland.Delphi.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="Borland.Delphi" AssemblyName="Borland.Delphi" Version="9.0.1882.30496" LinkUnits="False"/>
<File FileName="c:\program files\common files\borland shared\bds\shared assemblies\3.0\Borland.VclRtl.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="Borland.VclRtl" AssemblyName="Borland.VclRtl" Version="9.0.1882.30496" LinkUnits="False"/>
<File FileName="IndySystem90Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="IndySystem90Net" AssemblyName="IndySystem90Net" LinkUnits="False"/>
<File FileName="IndyCore90Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="IndyCore90Net" AssemblyName="IndyCore90Net" LinkUnits="False"/>
<File FileName="IndyProtocols90Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="IndyProtocols90Net" AssemblyName="IndyProtocols90Net" LinkUnits="False"/>
<File FileName="Mono.Security.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="Mono.Security" AssemblyName="Mono.Security" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="System" AssemblyName="System" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Data.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="System.Data" AssemblyName="System.Data" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.XML.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="System.XML" AssemblyName="System.XML" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Drawing.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="System.Drawing" AssemblyName="system.drawing" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="IdCarrierStream.pas" ContainerId="" ModuleName="IdCarrierStream"/>
<File FileName="IdIOHandlerTls.pas" ContainerId="" ModuleName="IdIOHandlerTls"/>
<File FileName="IdServerIOHandlerTls.pas" ContainerId="" ModuleName="IdServerIOHandlerTls"/>
<File FileName="IdSocketStream.pas" ContainerId="" ModuleName="IdSocketStream"/>
<File FileName="IdTlsClientOptions.pas" ContainerId="" ModuleName="IdTlsClientOptions"/>
<File FileName="IdTlsServerOptions.pas" ContainerId="" ModuleName="IdTlsServerOptions"/>
</FileList>
<FileVersion>
<FileVersion Name="Version">7.0</FileVersion>
</FileVersion>
<Compiler>
<Compiler Name="A">0</Compiler>
<Compiler Name="B">0</Compiler>
<Compiler Name="C">1</Compiler>
<Compiler Name="D">1</Compiler>
<Compiler Name="E">0</Compiler>
<Compiler Name="F">0</Compiler>
<Compiler Name="G">1</Compiler>
<Compiler Name="H">1</Compiler>
<Compiler Name="I">1</Compiler>
<Compiler Name="J">0</Compiler>
<Compiler Name="K">0</Compiler>
<Compiler Name="L">1</Compiler>
<Compiler Name="M">0</Compiler>
<Compiler Name="N">1</Compiler>
<Compiler Name="O">1</Compiler>
<Compiler Name="P">1</Compiler>
<Compiler Name="Q">1</Compiler>
<Compiler Name="R">1</Compiler>
<Compiler Name="S">0</Compiler>
<Compiler Name="T">0</Compiler>
<Compiler Name="U">0</Compiler>
<Compiler Name="V">1</Compiler>
<Compiler Name="W">0</Compiler>
<Compiler Name="X">1</Compiler>
<Compiler Name="Y">1</Compiler>
<Compiler Name="Z">1</Compiler>
<Compiler Name="ShowHints">True</Compiler>
<Compiler Name="ShowWarnings">True</Compiler>
<Compiler Name="UnitAliases">WinTypes=Borland.Vcl.Windows;WinProcs=Borland.Vcl.Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
<Compiler Name="NamespacePrefix">Borland.Vcl</Compiler>
<Compiler Name="GenerateDocumentation">False</Compiler>
<Compiler Name="DefaultNamespace"></Compiler>
<Compiler Name="SymbolDeprecated">True</Compiler>
<Compiler Name="SymbolLibrary">True</Compiler>
<Compiler Name="SymbolPlatform">True</Compiler>
<Compiler Name="SymbolExperimental">True</Compiler>
<Compiler Name="UnitLibrary">True</Compiler>
<Compiler Name="UnitPlatform">True</Compiler>
<Compiler Name="UnitDeprecated">True</Compiler>
<Compiler Name="UnitExperimental">True</Compiler>
<Compiler Name="HResultCompat">True</Compiler>
<Compiler Name="HidingMember">True</Compiler>
<Compiler Name="HiddenVirtual">True</Compiler>
<Compiler Name="Garbage">True</Compiler>
<Compiler Name="BoundsError">True</Compiler>
<Compiler Name="ZeroNilCompat">True</Compiler>
<Compiler Name="StringConstTruncated">True</Compiler>
<Compiler Name="ForLoopVarVarPar">True</Compiler>
<Compiler Name="TypedConstVarPar">True</Compiler>
<Compiler Name="AsgToTypedConst">True</Compiler>
<Compiler Name="CaseLabelRange">True</Compiler>
<Compiler Name="ForVariable">True</Compiler>
<Compiler Name="ConstructingAbstract">True</Compiler>
<Compiler Name="ComparisonFalse">True</Compiler>
<Compiler Name="ComparisonTrue">True</Compiler>
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
<Compiler Name="UnsupportedConstruct">True</Compiler>
<Compiler Name="FileOpen">True</Compiler>
<Compiler Name="FileOpenUnitSrc">True</Compiler>
<Compiler Name="BadGlobalSymbol">True</Compiler>
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
<Compiler Name="InvalidDirective">True</Compiler>
<Compiler Name="PackageNoLink">True</Compiler>
<Compiler Name="PackageThreadVar">True</Compiler>
<Compiler Name="ImplicitImport">True</Compiler>
<Compiler Name="HPPEMITIgnored">True</Compiler>
<Compiler Name="NoRetVal">True</Compiler>
<Compiler Name="UseBeforeDef">True</Compiler>
<Compiler Name="ForLoopVarUndef">True</Compiler>
<Compiler Name="UnitNameMismatch">True</Compiler>
<Compiler Name="NoCFGFileFound">True</Compiler>
<Compiler Name="MessageDirective">True</Compiler>
<Compiler Name="ImplicitVariants">True</Compiler>
<Compiler Name="UnicodeToLocale">True</Compiler>
<Compiler Name="LocaleToUnicode">True</Compiler>
<Compiler Name="ImagebaseMultiple">True</Compiler>
<Compiler Name="SuspiciousTypecast">True</Compiler>
<Compiler Name="PrivatePropAccessor">True</Compiler>
<Compiler Name="UnsafeType">True</Compiler>
<Compiler Name="UnsafeCode">True</Compiler>
<Compiler Name="UnsafeCast">True</Compiler>
<Compiler Name="OptionTruncated">True</Compiler>
<Compiler Name="WideCharReduced">True</Compiler>
<Compiler Name="DuplicatesIgnored">True</Compiler>
</Compiler>
<Linker>
<Linker Name="MapFile">0</Linker>
<Linker Name="OutputObjs">0</Linker>
<Linker Name="ConsoleApp">1</Linker>
<Linker Name="DebugInfo">True</Linker>
<Linker Name="RemoteSymbols">False</Linker>
<Linker Name="GenerateDRC">False</Linker>
<Linker Name="MinStackSize">4096</Linker>
<Linker Name="MaxStackSize">1048576</Linker>
<Linker Name="ImageBase">4194304</Linker>
<Linker Name="ExeDescription">Indy 10 Security</Linker>
</Linker>
<Directories>
<Directories Name="OutputDir"></Directories>
<Directories Name="UnitOutputDir"></Directories>
<Directories Name="PackageDLLOutputDir"></Directories>
<Directories Name="PackageDCPOutputDir"></Directories>
<Directories Name="SearchPath">c:\program files\common files\borland shared\bds\shared assemblies\3.0;W:\Source\Indy10\Lib\Security;w:\source\indy10\lib\security;c:\windows\microsoft.net\framework\v1.1.4322</Directories>
<Directories Name="Packages">c:\windows\microsoft.net\framework\v1.1.4322\System.Drawing.dll;c:\windows\microsoft.net\framework\v1.1.4322\System.XML.dll;c:\windows\microsoft.net\framework\v1.1.4322\System.Data.dll;c:\windows\microsoft.net\framework\v1.1.4322\System.dll;w:\source\indy10\lib\security\Mono.Security.dll;W:\Source\Indy10\Lib\Security\IndyProtocols90Net.dll;W:\Source\Indy10\Lib\Security\IndyCore90Net.dll;W:\Source\Indy10\Lib\Security\IndySystem90Net.dll;Borland.VclRtl;Borland.Delphi</Directories>
<Directories Name="Conditionals"></Directories>
<Directories Name="DebugSourceDirs"></Directories>
<Directories Name="UsePackages">False</Directories>
</Directories>
<Parameters>
<Parameters Name="RunParams"></Parameters>
<Parameters Name="HostApplication"></Parameters>
<Parameters Name="Launcher"></Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="DebugCWD"></Parameters>
<Parameters Name="RemoteHost"></Parameters>
<Parameters Name="RemotePath"></Parameters>
<Parameters Name="RemoteLauncher"></Parameters>
<Parameters Name="RemoteCWD"></Parameters>
<Parameters Name="RemoteDebug">False</Parameters>
</Parameters>
<Language>
<Language Name="ActiveLang"></Language>
<Language Name="ProjectLang">$00000000</Language>
<Language Name="RootDir"></Language>
</Language>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">1033</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
</DelphiDotNet.Personality>
</BorlandProject>

43
indy/Security/IndySecurity90Net.dpk Normal file
View File

@@ -0,0 +1,43 @@
package IndySecurity90Net;
{$ALIGN 0}
{$BOOLEVAL OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'Indy 10 Security'}
{$RUNONLY}
{$IMPLICITBUILD ON}
requires
Borland.Delphi,
Borland.VclRtl,
IndySystem90Net,
IndyCore90Net,
IndyProtocols90Net,
Mono.Security,
System,
System.Data,
System.XML;
contains
IdCarrierStream in 'IdCarrierStream.pas',
IdIOHandlerTls in 'IdIOHandlerTls.pas',
IdServerIOHandlerTls in 'IdServerIOHandlerTls.pas',
IdSocketStream in 'IdSocketStream.pas',
IdTlsClientOptions in 'IdTlsClientOptions.pas',
IdTlsServerOptions in 'IdTlsServerOptions.pas';
{$I IdSecurity90ASM90.inc}
end.

192
indy/Security/dclIndySecurity100Net.bdsproj Normal file
View File

@@ -0,0 +1,192 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality">DelphiDotNet.Personality</Option>
<Option Name="ProjectType"></Option>
<Option Name="Version">1.0</Option>
<Option Name="GUID">{C0E636CC-2A16-4AA8-A294-173120FC39D0}</Option>
</Option>
</PersonalityInfo>
<DelphiDotNet.Personality>
<Source>
<Source Name="MainSource">dclIndySecurity100Net.dpk</Source>
</Source>
<FileVersion>
<FileVersion Name="Version">7.0</FileVersion>
</FileVersion>
<Compiler>
<Compiler Name="A">0</Compiler>
<Compiler Name="B">0</Compiler>
<Compiler Name="C">1</Compiler>
<Compiler Name="D">1</Compiler>
<Compiler Name="E">0</Compiler>
<Compiler Name="F">0</Compiler>
<Compiler Name="G">1</Compiler>
<Compiler Name="H">1</Compiler>
<Compiler Name="I">1</Compiler>
<Compiler Name="J">0</Compiler>
<Compiler Name="K">0</Compiler>
<Compiler Name="L">1</Compiler>
<Compiler Name="M">0</Compiler>
<Compiler Name="N">1</Compiler>
<Compiler Name="O">1</Compiler>
<Compiler Name="P">1</Compiler>
<Compiler Name="Q">1</Compiler>
<Compiler Name="R">1</Compiler>
<Compiler Name="S">0</Compiler>
<Compiler Name="T">0</Compiler>
<Compiler Name="U">0</Compiler>
<Compiler Name="V">1</Compiler>
<Compiler Name="W">0</Compiler>
<Compiler Name="X">1</Compiler>
<Compiler Name="Y">1</Compiler>
<Compiler Name="Z">1</Compiler>
<Compiler Name="ShowHints">True</Compiler>
<Compiler Name="ShowWarnings">True</Compiler>
<Compiler Name="UnitAliases">WinTypes=Borland.Vcl.Windows;WinProcs=Borland.Vcl.Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
<Compiler Name="NamespacePrefix">Borland.Vcl</Compiler>
<Compiler Name="GenerateDocumentation">False</Compiler>
<Compiler Name="DefaultNamespace"></Compiler>
<Compiler Name="SymbolDeprecated">True</Compiler>
<Compiler Name="SymbolLibrary">True</Compiler>
<Compiler Name="SymbolPlatform">True</Compiler>
<Compiler Name="SymbolExperimental">True</Compiler>
<Compiler Name="UnitLibrary">True</Compiler>
<Compiler Name="UnitPlatform">True</Compiler>
<Compiler Name="UnitDeprecated">True</Compiler>
<Compiler Name="UnitExperimental">True</Compiler>
<Compiler Name="HResultCompat">True</Compiler>
<Compiler Name="HidingMember">True</Compiler>
<Compiler Name="HiddenVirtual">True</Compiler>
<Compiler Name="Garbage">True</Compiler>
<Compiler Name="BoundsError">True</Compiler>
<Compiler Name="ZeroNilCompat">True</Compiler>
<Compiler Name="StringConstTruncated">True</Compiler>
<Compiler Name="ForLoopVarVarPar">True</Compiler>
<Compiler Name="TypedConstVarPar">True</Compiler>
<Compiler Name="AsgToTypedConst">True</Compiler>
<Compiler Name="CaseLabelRange">True</Compiler>
<Compiler Name="ForVariable">True</Compiler>
<Compiler Name="ConstructingAbstract">True</Compiler>
<Compiler Name="ComparisonFalse">True</Compiler>
<Compiler Name="ComparisonTrue">True</Compiler>
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
<Compiler Name="UnsupportedConstruct">True</Compiler>
<Compiler Name="FileOpen">True</Compiler>
<Compiler Name="FileOpenUnitSrc">True</Compiler>
<Compiler Name="BadGlobalSymbol">True</Compiler>
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
<Compiler Name="InvalidDirective">True</Compiler>
<Compiler Name="PackageNoLink">True</Compiler>
<Compiler Name="PackageThreadVar">True</Compiler>
<Compiler Name="ImplicitImport">True</Compiler>
<Compiler Name="HPPEMITIgnored">True</Compiler>
<Compiler Name="NoRetVal">True</Compiler>
<Compiler Name="UseBeforeDef">True</Compiler>
<Compiler Name="ForLoopVarUndef">True</Compiler>
<Compiler Name="UnitNameMismatch">True</Compiler>
<Compiler Name="NoCFGFileFound">True</Compiler>
<Compiler Name="ImplicitVariants">True</Compiler>
<Compiler Name="UnicodeToLocale">True</Compiler>
<Compiler Name="LocaleToUnicode">True</Compiler>
<Compiler Name="ImagebaseMultiple">True</Compiler>
<Compiler Name="SuspiciousTypecast">True</Compiler>
<Compiler Name="PrivatePropAccessor">True</Compiler>
<Compiler Name="UnsafeType">True</Compiler>
<Compiler Name="UnsafeCode">True</Compiler>
<Compiler Name="UnsafeCast">True</Compiler>
<Compiler Name="OptionTruncated">True</Compiler>
<Compiler Name="WideCharReduced">True</Compiler>
<Compiler Name="DuplicatesIgnored">True</Compiler>
<Compiler Name="UnitInitSeq">True</Compiler>
<Compiler Name="LocalPInvoke">True</Compiler>
<Compiler Name="MessageDirective">True</Compiler>
</Compiler>
<Linker>
<Linker Name="MapFile">0</Linker>
<Linker Name="OutputObjs">0</Linker>
<Linker Name="ConsoleApp">1</Linker>
<Linker Name="DebugInfo">True</Linker>
<Linker Name="RemoteSymbols">False</Linker>
<Linker Name="GenerateDRC">False</Linker>
<Linker Name="MinStackSize">4096</Linker>
<Linker Name="MaxStackSize">1048576</Linker>
<Linker Name="ImageBase">4194304</Linker>
<Linker Name="ExeDescription">Indy 10 Security</Linker>
</Linker>
<Directories>
<Directories Name="OutputDir"></Directories>
<Directories Name="UnitOutputDir"></Directories>
<Directories Name="PackageDLLOutputDir"></Directories>
<Directories Name="PackageDCPOutputDir"></Directories>
<Directories Name="SearchPath">W:\Source\Indy10\Lib\Security;w:\source\indy10\lib\security;w:\source\indy10\lib\core;c:\windows\microsoft.net\framework\v1.1.4322</Directories>
<Directories Name="Packages">c:\windows\microsoft.net\framework\v1.1.4322\System.Drawing.dll;c:\windows\microsoft.net\framework\v1.1.4322\System.XML.dll;c:\windows\microsoft.net\framework\v1.1.4322\System.Data.dll;c:\windows\microsoft.net\framework\v1.1.4322\System.dll;w:\source\indy10\lib\security\Mono.Security.dll;W:\Source\Indy10\Lib\Security\dclIndyProtocols100Net.dll;dclIndyCore100Net;IndySecurity100Net;W:\Source\Indy10\Lib\Security\IndyProtocols100Net.dll;IndyCore100Net;IndySystem100Net;W:\Source\Indy10\Lib\Security\Borland.Studio.Vcl.Design.dll</Directories>
<Directories Name="Conditionals"></Directories>
<Directories Name="DebugSourceDirs"></Directories>
<Directories Name="UsePackages">False</Directories>
</Directories>
<Parameters>
<Parameters Name="RunParams"></Parameters>
<Parameters Name="HostApplication"></Parameters>
<Parameters Name="Launcher"></Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="DebugCWD"></Parameters>
<Parameters Name="RemoteHost"></Parameters>
<Parameters Name="RemotePath"></Parameters>
<Parameters Name="RemoteLauncher"></Parameters>
<Parameters Name="RemoteCWD"></Parameters>
<Parameters Name="RemoteDebug">False</Parameters>
</Parameters>
<Language>
<Language Name="ActiveLang"></Language>
<Language Name="ProjectLang">$00000000</Language>
<Language Name="RootDir"></Language>
</Language>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">1033</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<FileList>
<File FileName="ModelSupport\default.txaPackage" ContainerId="File" ModuleName="default"/>
<File FileName="Borland.Studio.Vcl.Design.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="Borland.Studio.Vcl.Design" AssemblyName="Borland.Studio.Vcl.Design" LinkUnits="False"/>
<File FileName="IndySystem100Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="IndySystem100Net" AssemblyName="IndySystem100Net" Version="10.0.0.3944" LinkUnits="False"/>
<File FileName="IndyCore100Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="IndyCore100Net" AssemblyName="IndyCore100Net" Version="0.0.0.0" LinkUnits="False"/>
<File FileName="IndyProtocols100Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="IndyProtocols100Net" AssemblyName="IndyProtocols100Net" LinkUnits="False"/>
<File FileName="IndySecurity100Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="IndySecurity100Net" AssemblyName="IndySecurity100Net" Version="0.0.0.0" LinkUnits="False"/>
<File FileName="..\core\dclIndyCore100Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="dclIndyCore100Net" AssemblyName="dclIndyCore100Net" Version="0.0.0.0" LinkUnits="False"/>
<File FileName="dclIndyProtocols100Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="dclIndyProtocols100Net" AssemblyName="dclIndyProtocols100Net" LinkUnits="False"/>
<File FileName="Mono.Security.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="Mono.Security" AssemblyName="Mono.Security" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="System" AssemblyName="System" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Data.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="System.Data" AssemblyName="System.Data" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.XML.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="System.XML" AssemblyName="System.XML" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="IdRegisterSecurity.pas" ContainerId="PascalCompiler" ModuleName="IdRegisterSecurity"/>
</FileList>
</DelphiDotNet.Personality>
</BorlandProject>

40
indy/Security/dclIndySecurity100Net.dpk Normal file
View File

@@ -0,0 +1,40 @@
package dclIndySecurity100Net;
{$ALIGN 0}
{$BOOLEVAL OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'Indy 10 Security'}
{$DESIGNONLY}
{$IMPLICITBUILD ON}
requires
Borland.Studio.Vcl.Design,
IndySystem100Net,
IndyCore100Net,
IndyProtocols100Net,
IndySecurity100Net,
dclIndyCore100Net,
dclIndyProtocols100Net,
Mono.Security,
System,
System.Data,
System.XML;
contains
IdRegisterSecurity in 'IdRegisterSecurity.pas';
{$I IddclSecurity90ASM90.inc}
end.

40
indy/Security/dclIndySecurity110Net.dpk Normal file
View File

@@ -0,0 +1,40 @@
package dclIndySecurity110Net;
{$ALIGN 0}
{$BOOLEVAL OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'Indy 10 Security'}
{$DESIGNONLY}
{$IMPLICITBUILD ON}
requires
Borland.Studio.Vcl.Design,
IndySystem110Net,
IndyCore110Net,
IndyProtocols110Net,
IndySecurity110Net,
dclIndyCore110Net,
dclIndyProtocols110Net,
Mono.Security,
System,
System.Data,
System.XML;
contains
IdRegisterSecurity in 'IdRegisterSecurity.pas';
{$I IddclSecurity90ASM90.inc}
end.

200
indy/Security/dclIndySecurity90Net.bdsproj Normal file
View File

@@ -0,0 +1,200 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality">DelphiDotNet.Personality</Option>
<Option Name="ProjectType"></Option>
<Option Name="Version">1.0</Option>
<Option Name="GUID">{21DF06A6-9290-45F0-B33A-84A9DC2E801A}</Option>
</Option>
</PersonalityInfo>
<DelphiDotNet.Personality>
<Source>
<Source Name="MainSource">dclIndySecurity90Net.dpk</Source>
</Source>
<FileList>
<File FileName="c:\program files\common files\borland shared\bds\shared assemblies\3.0\Borland.Delphi.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="Borland.Delphi" AssemblyName="Borland.Delphi" Version="9.0.1882.30496" LinkUnits="False"/>
<File FileName="c:\program files\common files\borland shared\bds\shared assemblies\3.0\Borland.VclRtl.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="Borland.VclRtl" AssemblyName="Borland.VclRtl" Version="9.0.1882.30496" LinkUnits="False"/>
<File FileName="Borland.Studio.Vcl.Design.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="Borland.Studio.Vcl.Design" AssemblyName="Borland.Studio.Vcl.Design" LinkUnits="False"/>
<File FileName="IndySystem90Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="IndySystem90Net" AssemblyName="IndySystem90Net" LinkUnits="False"/>
<File FileName="IndyCore90Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="IndyCore90Net" AssemblyName="IndyCore90Net" LinkUnits="False"/>
<File FileName="IndyProtocols90Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="IndyProtocols90Net" AssemblyName="IndyProtocols90Net" LinkUnits="False"/>
<File FileName="dclIndyCore90Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="dclIndyCore90Net" AssemblyName="dclIndyCore90Net" LinkUnits="False"/>
<File FileName="dclIndyProtocols90Net.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="dclIndyProtocols90Net" AssemblyName="dclIndyProtocols90Net" LinkUnits="False"/>
<File FileName="Mono.Security.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="Mono.Security" AssemblyName="Mono.Security" LinkUnits="False"/>
<File FileName="$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="System" AssemblyName="System" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Data.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="System.Data" AssemblyName="System.Data" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.XML.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="System.XML" AssemblyName="System.XML" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Drawing.dll" ContainerId="DelphiDotNetAssemblyCompiler" ModuleName="System.Drawing" AssemblyName="system.drawing" Version="1.0.5000.0" LinkUnits="False"/>
<File FileName="IdCarrierStream.pas" ContainerId="" ModuleName="IdCarrierStream"/>
<File FileName="IdIOHandlerTls.pas" ContainerId="" ModuleName="IdIOHandlerTls"/>
<File FileName="IdServerIOHandlerTls.pas" ContainerId="" ModuleName="IdServerIOHandlerTls"/>
<File FileName="IdSocketStream.pas" ContainerId="" ModuleName="IdSocketStream"/>
<File FileName="IdTlsClientOptions.pas" ContainerId="" ModuleName="IdTlsClientOptions"/>
<File FileName="IdTlsServerOptions.pas" ContainerId="" ModuleName="IdTlsServerOptions"/>
</FileList>
<FileVersion>
<FileVersion Name="Version">7.0</FileVersion>
</FileVersion>
<Compiler>
<Compiler Name="A">0</Compiler>
<Compiler Name="B">0</Compiler>
<Compiler Name="C">1</Compiler>
<Compiler Name="D">1</Compiler>
<Compiler Name="E">0</Compiler>
<Compiler Name="F">0</Compiler>
<Compiler Name="G">1</Compiler>
<Compiler Name="H">1</Compiler>
<Compiler Name="I">1</Compiler>
<Compiler Name="J">0</Compiler>
<Compiler Name="K">0</Compiler>
<Compiler Name="L">1</Compiler>
<Compiler Name="M">0</Compiler>
<Compiler Name="N">1</Compiler>
<Compiler Name="O">1</Compiler>
<Compiler Name="P">1</Compiler>
<Compiler Name="Q">1</Compiler>
<Compiler Name="R">1</Compiler>
<Compiler Name="S">0</Compiler>
<Compiler Name="T">0</Compiler>
<Compiler Name="U">0</Compiler>
<Compiler Name="V">1</Compiler>
<Compiler Name="W">0</Compiler>
<Compiler Name="X">1</Compiler>
<Compiler Name="Y">1</Compiler>
<Compiler Name="Z">1</Compiler>
<Compiler Name="ShowHints">True</Compiler>
<Compiler Name="ShowWarnings">True</Compiler>
<Compiler Name="UnitAliases">WinTypes=Borland.Vcl.Windows;WinProcs=Borland.Vcl.Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
<Compiler Name="NamespacePrefix">Borland.Vcl</Compiler>
<Compiler Name="GenerateDocumentation">False</Compiler>
<Compiler Name="DefaultNamespace"></Compiler>
<Compiler Name="SymbolDeprecated">True</Compiler>
<Compiler Name="SymbolLibrary">True</Compiler>
<Compiler Name="SymbolPlatform">True</Compiler>
<Compiler Name="SymbolExperimental">True</Compiler>
<Compiler Name="UnitLibrary">True</Compiler>
<Compiler Name="UnitPlatform">True</Compiler>
<Compiler Name="UnitDeprecated">True</Compiler>
<Compiler Name="UnitExperimental">True</Compiler>
<Compiler Name="HResultCompat">True</Compiler>
<Compiler Name="HidingMember">True</Compiler>
<Compiler Name="HiddenVirtual">True</Compiler>
<Compiler Name="Garbage">True</Compiler>
<Compiler Name="BoundsError">True</Compiler>
<Compiler Name="ZeroNilCompat">True</Compiler>
<Compiler Name="StringConstTruncated">True</Compiler>
<Compiler Name="ForLoopVarVarPar">True</Compiler>
<Compiler Name="TypedConstVarPar">True</Compiler>
<Compiler Name="AsgToTypedConst">True</Compiler>
<Compiler Name="CaseLabelRange">True</Compiler>
<Compiler Name="ForVariable">True</Compiler>
<Compiler Name="ConstructingAbstract">True</Compiler>
<Compiler Name="ComparisonFalse">True</Compiler>
<Compiler Name="ComparisonTrue">True</Compiler>
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
<Compiler Name="UnsupportedConstruct">True</Compiler>
<Compiler Name="FileOpen">True</Compiler>
<Compiler Name="FileOpenUnitSrc">True</Compiler>
<Compiler Name="BadGlobalSymbol">True</Compiler>
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
<Compiler Name="InvalidDirective">True</Compiler>
<Compiler Name="PackageNoLink">True</Compiler>
<Compiler Name="PackageThreadVar">True</Compiler>
<Compiler Name="ImplicitImport">True</Compiler>
<Compiler Name="HPPEMITIgnored">True</Compiler>
<Compiler Name="NoRetVal">True</Compiler>
<Compiler Name="UseBeforeDef">True</Compiler>
<Compiler Name="ForLoopVarUndef">True</Compiler>
<Compiler Name="UnitNameMismatch">True</Compiler>
<Compiler Name="NoCFGFileFound">True</Compiler>
<Compiler Name="MessageDirective">True</Compiler>
<Compiler Name="ImplicitVariants">True</Compiler>
<Compiler Name="UnicodeToLocale">True</Compiler>
<Compiler Name="LocaleToUnicode">True</Compiler>
<Compiler Name="ImagebaseMultiple">True</Compiler>
<Compiler Name="SuspiciousTypecast">True</Compiler>
<Compiler Name="PrivatePropAccessor">True</Compiler>
<Compiler Name="UnsafeType">True</Compiler>
<Compiler Name="UnsafeCode">True</Compiler>
<Compiler Name="UnsafeCast">True</Compiler>
<Compiler Name="OptionTruncated">True</Compiler>
<Compiler Name="WideCharReduced">True</Compiler>
<Compiler Name="DuplicatesIgnored">True</Compiler>
</Compiler>
<Linker>
<Linker Name="MapFile">0</Linker>
<Linker Name="OutputObjs">0</Linker>
<Linker Name="ConsoleApp">1</Linker>
<Linker Name="DebugInfo">True</Linker>
<Linker Name="RemoteSymbols">False</Linker>
<Linker Name="GenerateDRC">False</Linker>
<Linker Name="MinStackSize">4096</Linker>
<Linker Name="MaxStackSize">1048576</Linker>
<Linker Name="ImageBase">4194304</Linker>
<Linker Name="ExeDescription">Indy 10 Security</Linker>
</Linker>
<Directories>
<Directories Name="OutputDir"></Directories>
<Directories Name="UnitOutputDir"></Directories>
<Directories Name="PackageDLLOutputDir"></Directories>
<Directories Name="PackageDCPOutputDir"></Directories>
<Directories Name="SearchPath">c:\program files\common files\borland shared\bds\shared assemblies\3.0;W:\Source\Indy10\Lib\Security;c:\windows\microsoft.net\framework\v1.1.4322</Directories>
<Directories Name="Packages">c:\windows\microsoft.net\framework\v1.1.4322\System.Drawing.dll;c:\windows\microsoft.net\framework\v1.1.4322\System.XML.dll;c:\windows\microsoft.net\framework\v1.1.4322\System.Data.dll;c:\windows\microsoft.net\framework\v1.1.4322\System.dll;W:\Source\Indy10\Lib\Security\Mono.Security.dll;W:\Source\Indy10\Lib\Security\dclIndyProtocols90Net.dll;W:\Source\Indy10\Lib\Security\dclIndyCore90Net.dll;W:\Source\Indy10\Lib\Security\IndyProtocols90Net.dll;W:\Source\Indy10\Lib\Security\IndyCore90Net.dll;W:\Source\Indy10\Lib\Security\IndySystem90Net.dll;W:\Source\Indy10\Lib\Security\Borland.Studio.Vcl.Design.dll;Borland.VclRtl;Borland.Delphi</Directories>
<Directories Name="Conditionals"></Directories>
<Directories Name="DebugSourceDirs"></Directories>
<Directories Name="UsePackages">True</Directories>
</Directories>
<Parameters>
<Parameters Name="RunParams"></Parameters>
<Parameters Name="HostApplication"></Parameters>
<Parameters Name="Launcher"></Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="DebugCWD"></Parameters>
<Parameters Name="RemoteHost"></Parameters>
<Parameters Name="RemotePath"></Parameters>
<Parameters Name="RemoteLauncher"></Parameters>
<Parameters Name="RemoteCWD"></Parameters>
<Parameters Name="RemoteDebug">False</Parameters>
</Parameters>
<Language>
<Language Name="ActiveLang"></Language>
<Language Name="ProjectLang">$00000000</Language>
<Language Name="RootDir"></Language>
</Language>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">1033</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
</DelphiDotNet.Personality>
</BorlandProject>

40
indy/Security/dclIndySecurity90Net.dpk Normal file
View File

@@ -0,0 +1,40 @@
package dclIndySecurity90Net;
{$ALIGN 0}
{$BOOLEVAL OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'Indy 10 Security'}
{$DESIGNONLY}
{$IMPLICITBUILD ON}
requires
Borland.Studio.Vcl.Design,
IndySystem90Net,
IndyCore90Net,
IndyProtocols90Net,
IndySecurity90Net,
dclIndyCore90Net,
dclIndyProtocols90Net,
Mono.Security,
System,
System.Data,
System.XML;
contains
IdRegisterSecurity in 'IdRegisterSecurity.pas';
{$I IddclSecurity90ASM90.inc}
end.