Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Activada la encriptación DES entre cliente y servidor.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@310 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-02-29 18:55:32 +00:00
parent 15e2d8030f
commit 781f67ad43
10 changed files with 102 additions and 116 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -60,27 +60,27 @@
<DelphiCompile Include="ApplicationBase.dpk"> <DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\Model\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\dclIndyCore.dcp" /> <DCCReference Include="..\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\designide.dcp" /> <DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\IndyCore.dcp" /> <DCCReference Include="..\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\IndyProtocols.dcp" /> <DCCReference Include="..\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\IndySystem.dcp" /> <DCCReference Include="..\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\JvJansD11R.dcp" /> <DCCReference Include="..\JvJansD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\pckMD5.dcp" /> <DCCReference Include="..\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\pckUCDataConnector.dcp" /> <DCCReference Include="..\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\pckUserControl_RT.dcp" /> <DCCReference Include="..\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\PLuginSDK_D10R.dcp" /> <DCCReference Include="..\PLuginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\vclactnband.dcp" /> <DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\vcljpg.dcp" /> <DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\VclSmp.dcp" /> <DCCReference Include="..\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\vclx.dcp" /> <DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\Modulos\Contactos\Model\xmlrtl.dcp" /> <DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" /> <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" /> <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" /> <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />

BIN
Source/ApplicationBase/Usuarios/Data/uUCROConn.pas
View File

Binary file not shown.

20
Source/Base/Conexion/uConfigurarConexion.dfm
View File

@ -14,7 +14,6 @@ object fConfigurarConexion: TfConfigurarConexion
OldCreateOrder = False OldCreateOrder = False
Position = poScreenCenter Position = poScreenCenter
Scaled = False Scaled = False
OnCreate = FormCreate
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object bProbar: TButton object bProbar: TButton
@ -90,23 +89,4 @@ object fConfigurarConexion: TfConfigurarConexion
ModalResult = 2 ModalResult = 2
TabOrder = 3 TabOrder = 3
end end
object HTTPChannel: TROWinInetHTTPChannel
UserAgent = 'AdminPV'
TargetURL = 'http://localhost:8099/BIN'
ServerLocators = <>
DispatchOptions = []
Left = 120
Top = 112
end
object ROBinMessage: TROBinMessage
Left = 152
Top = 112
end
object CoService: TRORemoteService
Message = ROBinMessage
Channel = HTTPChannel
ServiceName = 'srvLogin'
Left = 184
Top = 112
end
end end

9
Source/Base/Conexion/uConfigurarConexion.pas
View File

@ -17,11 +17,7 @@ type
edtPort: TEdit; edtPort: TEdit;
bAceptar: TButton; bAceptar: TButton;
bCancelar: TButton; bCancelar: TButton;
HTTPChannel: TROWinInetHTTPChannel;
ROBinMessage: TROBinMessage;
CoService: TRORemoteService;
procedure bProbarClick(Sender: TObject); procedure bProbarClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private private
function GetTargetURL: String; function GetTargetURL: String;
procedure SetTargetURL(const Value: String); procedure SetTargetURL(const Value: String);
@ -68,9 +64,4 @@ begin
ShowErrorMessage('Error de conexión', 'No se ha podido establecer la conexión con el servidor.') ShowErrorMessage('Error de conexión', 'No se ha podido establecer la conexión con el servidor.')
end; end;
procedure TfConfigurarConexion.FormCreate(Sender: TObject);
begin
HTTPChannel.OnFailure := dmConexion.ROChannelFailure;
end;
end. end.

33
Source/Base/Conexion/uDataModuleConexion.dfm
View File

@ -1,23 +1,28 @@
object dmConexion: TdmConexion object dmConexion: TdmConexion
OldCreateOrder = False OldCreateOrder = False
OnCreate = DataModuleCreate
OnDestroy = DataModuleDestroy OnDestroy = DataModuleDestroy
Height = 177 Height = 177
Width = 121 Width = 265
object ROChannel: TROWinInetHTTPChannel
OnFailure = ROChannelFailure
OnException = ROChannelFailure
UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8099/bin'
Login.Username = 'Tecsitel'
Login.Password = '1'
KeepConnection = True
ServerLocators = <>
DispatchOptions = []
Left = 42
Top = 16
end
object ROMessage: TROBinMessage object ROMessage: TROBinMessage
Left = 42 Left = 42
Top = 88 Top = 88
end end
object ROChannel: TROIndyHTTPChannel
OnFailure = ROChannelFailure
OnException = ROChannelFailure
ServerLocators = <>
DispatchOptions = []
IndyClient.AllowCookies = True
IndyClient.ProxyParams.BasicAuthentication = False
IndyClient.ProxyParams.ProxyPort = 0
IndyClient.Request.ContentLength = -1
IndyClient.Request.Accept = 'text/html, */*'
IndyClient.Request.BasicAuthentication = False
IndyClient.Request.UserAgent = 'RemObjects SDK'
IndyClient.HTTPOptions = [hoForceEncodeParams]
TargetURL = 'http://localhost:8099/bin'
Left = 40
Top = 16
end
end end

75
Source/Base/Conexion/uDataModuleConexion.pas
View File

@ -4,30 +4,32 @@ interface
uses uses
SysUtils, Classes, uRORemoteService, uDADataTable, SysUtils, Classes, uRORemoteService, uDADataTable,
uDABINAdapter, uROClient, uROBinMessage, uROWinInetHttpChannel, uDABINAdapter, uROClient, uROBinMessage,
uDADataStreamer; uDADataStreamer, uROIndyTCPChannel, uROIndyHTTPChannel;
const const
SERVER_URL = 'http://localhost:8099/bin'; // Dirección por defecto del servidor SERVER_URL = 'http://localhost:8099/bin'; // Dirección por defecto del servidor
type type
TdmConexion = class(TDataModule) TdmConexion = class(TDataModule)
ROChannel: TROWinInetHTTPChannel;
ROMessage: TROBinMessage; ROMessage: TROBinMessage;
procedure ROChannelFailure(Sender: TROTransportChannel; ROChannel: TROIndyHTTPChannel;
anException: Exception; var Retry: Boolean);
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
procedure ROChannelFailure(Sender: TROTransportChannel;
anException: Exception; var aRetry: Boolean);
procedure DataModuleCreate(Sender: TObject);
private private
function GetChannel: TROWinInetHTTPChannel; function GetChannel: TROTransportChannel;
function GetMessage: TROBinMessage; function GetMessage: TROBinMessage;
function GetTargetURL: String; function GetTargetURL: String;
procedure SetTargetURL(const Value: String); procedure SetTargetURL(const Value: String);
procedure ConfigurarEncriptacionConexion;
public public
function HayConexion : Boolean; function HayConexion : Boolean;
function ProbarConexion(const ATargetURL : String): Boolean; function ProbarConexion(const ATargetURL : String): Boolean;
procedure ConfigurarConexion; procedure ConfigurarConexion;
property TargetURL : String read GetTargetURL write SetTargetURL; property TargetURL : String read GetTargetURL write SetTargetURL;
property Channel: TROWinInetHTTPChannel read GetChannel; property Channel: TROTransportChannel read GetChannel;
property Message: TROBinMessage read GetMessage; property Message: TROBinMessage read GetMessage;
end; end;
@ -39,15 +41,16 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
Windows, WinInet, cxControls, uConfigurarConexion, Dialogs, Controls, uROEncryption, Windows, WinInet, cxControls, uConfigurarConexion, Dialogs, Controls,
uDMBase, FactuGES_Intf; uDMBase, FactuGES_Intf;
const const
IE_OFFLINE_ERROR = 'Unexpected error in WinInet HTTP Channel (2)'; IE_OFFLINE_ERROR = 'Unexpected error in WinInet HTTP Channel (2)';
function TdmConexion.HayConexion: Boolean; function TdmConexion.HayConexion: Boolean;
begin begin
Result := ROChannel.Connected; Result := ROChannel.IndyClient.Connected;
end; end;
procedure TdmConexion.ConfigurarConexion; procedure TdmConexion.ConfigurarConexion;
@ -58,8 +61,8 @@ begin
if ShowModal = mrOk then if ShowModal = mrOk then
begin begin
ROChannel.TargetURL := TargetURL; ROChannel.TargetURL := TargetURL;
ROChannel.Connected := False; ROChannel.IndyClient.Disconnect;
ROChannel.Connected := True; ROChannel.IndyClient.Connect;
dmBase.SalvarConfiguracion; dmBase.SalvarConfiguracion;
end; end;
finally finally
@ -67,12 +70,28 @@ begin
end; end;
end; end;
procedure TdmConexion.DataModuleDestroy(Sender: TObject); procedure TdmConexion.ConfigurarEncriptacionConexion;
begin begin
ROChannel.Connected := False; with ROChannel.Encryption do
begin
EncryptionMethod := tetDES;
EncryptionSendKey := '127C1A6A4D85F5EFE0A54E104BF7F695CD6C989C1808A57667EF1218E8ED93FC6CDC531631EB9750';
EncryptionRecvKey := 'C793F1A04FFC8DF91FF9522951F6B6DF921C70B42D74166C6DF0B697797AAA6A243BEC35A9423A51';
UseCompression := True;
end;
end; end;
function TdmConexion.GetChannel: TROWinInetHTTPChannel; procedure TdmConexion.DataModuleCreate(Sender: TObject);
begin
ConfigurarEncriptacionConexion;
end;
procedure TdmConexion.DataModuleDestroy(Sender: TObject);
begin
ROChannel.IndyClient.Disconnect;
end;
function TdmConexion.GetChannel: TROTransportChannel;
begin begin
Result := ROChannel; Result := ROChannel;
end; end;
@ -89,45 +108,45 @@ end;
function TdmConexion.ProbarConexion(const ATargetURL: String): Boolean; function TdmConexion.ProbarConexion(const ATargetURL: String): Boolean;
var var
AHTTPChannel: TROWinInetHTTPChannel; AHTTPChannel: TROIndyHTTPChannel;
AROBinMessage: TROBinMessage; AROBinMessage: TROBinMessage;
ACoService: TRORemoteService; ACoService: TRORemoteService;
begin begin
if ATargetURL = '' then if ATargetURL = '' then
raise Exception.Create('No se ha indicado la URL del servidor (HayConexion)'); raise Exception.Create('No se ha indicado la URL del servidor (HayConexion)');
AHTTPChannel := TROWinInetHTTPChannel.Create(Self); AHTTPChannel := TROIndyHTTPChannel.Create(Self);
AROBinMessage := TROBinMessage.Create(Self); AROBinMessage := TROBinMessage.Create(Self);
ACoService := TRORemoteService.Create(Self); ACoService := TRORemoteService.Create(Self);
ShowHourglassCursor; ShowHourglassCursor;
try try
AROBinMessage.Assign(ROMessage);
AHTTPChannel.Assign(ROChannel);
with AHTTPChannel do with AHTTPChannel do
begin begin
Name := 'HTTPChannel'; Name := 'HTTPChannel';
if Length(ATargetURL) > 0 then if Length(ATargetURL) > 0 then
TargetURL := ATargetURL TargetURL := ATargetURL
else else
TargetURL := ROChannel.TargetURL; TargetURL := ROChannel.TargetURL;
end; end;
if AHTTPChannel.Encryption.EncryptionMethod <> tetNone then
ShowMessage('funcionando');
with ACoService do ACoService.ServiceName := 'srvLogin';
begin ACoService.Message := AROBinMessage;
ServiceName := 'srvLogin'; ACoService.Channel := AHTTPChannel;
ACoService.Message := AROBinMessage;
Channel := AHTTPChannel;
end;
try try
AHTTPChannel.Connected := True;
(ACoService as IsrvLogin).Ping; (ACoService as IsrvLogin).Ping;
AHTTPChannel.Connected := False;
Result := True; Result := True;
except except
Result := False; Result := False;
end; end;
finally finally
AHTTPChannel.Connected := False;
FreeAndNil(AHTTPChannel); FreeAndNil(AHTTPChannel);
FreeAndNil(ACoService); FreeAndNil(ACoService);
FreeAndNil(AROBinMessage); FreeAndNil(AROBinMessage);
@ -136,13 +155,13 @@ begin
end; end;
procedure TdmConexion.ROChannelFailure(Sender: TROTransportChannel; procedure TdmConexion.ROChannelFailure(Sender: TROTransportChannel;
anException: Exception; var Retry: Boolean); anException: Exception; var aRetry: Boolean);
begin begin
if (Pos(anException.Message, IE_OFFLINE_ERROR) > 0) then if (Pos(anException.Message, IE_OFFLINE_ERROR) > 0) then
begin begin
// Preguntar al usuario si se quiere conectar // Preguntar al usuario si se quiere conectar
if InternetGoOnline(PAnsiChar(ROChannel.TargetURL), GetDesktopWindow(), 0) then if InternetGoOnline(PAnsiChar(ROChannel.TargetURL), GetDesktopWindow(), 0) then
Retry := True // Si el usuario pulsa en 'Conectar' reintentar la operación aRetry := True // Si el usuario pulsa en 'Conectar' reintentar la operación
else else
Abort; // Si el usuario pulsa en 'Seguir desconectado' parar todo Abort; // Si el usuario pulsa en 'Seguir desconectado' parar todo
end end

21
Source/Base/Configuracion/uDataModuleConfiguracion.dfm
View File

@ -1,27 +1,10 @@
object dmConfiguracion: TdmConfiguracion object dmConfiguracion: TdmConfiguracion
OldCreateOrder = False OldCreateOrder = False
Height = 160 Height = 160
Width = 220 Width = 100
object ROChannel: TROWinInetHTTPChannel
UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8099/bin'
Login.Username = '123456'
Login.Password = 'sa'
KeepConnection = True
ServerLocators = <>
DispatchOptions = []
Left = 42
Top = 16
end
object ROMessage: TROBinMessage
Left = 42
Top = 88
end
object RORemoteService: TRORemoteService object RORemoteService: TRORemoteService
Message = ROMessage
Channel = ROChannel
ServiceName = 'srvConfiguracion' ServiceName = 'srvConfiguracion'
Left = 136 Left = 24
Top = 16 Top = 16
end end
end end

6
Source/Base/Configuracion/uDataModuleConfiguracion.pas
View File

@ -4,7 +4,7 @@ interface
uses uses
SysUtils, Classes, uRORemoteService, uDADataTable, SysUtils, Classes, uRORemoteService, uDADataTable,
uDABINAdapter, uROClient, uROBinMessage, uROWinInetHttpChannel, IniFiles, uDABINAdapter, uROClient, IniFiles,
uDADataStreamer; uDADataStreamer;
const const
@ -12,8 +12,6 @@ const
type type
TdmConfiguracion = class(TDataModule) TdmConfiguracion = class(TDataModule)
ROChannel: TROWinInetHTTPChannel;
ROMessage: TROBinMessage;
RORemoteService: TRORemoteService; RORemoteService: TRORemoteService;
private private
FIniFile : TIniFile; FIniFile : TIniFile;
@ -46,6 +44,8 @@ end;
function TdmConfiguracion.DarValor(const CODIGO: String): Variant; function TdmConfiguracion.DarValor(const CODIGO: String): Variant;
begin begin
RORemoteService.Channel := dmConexion.ROChannel;
RORemoteService.Message := dmConexion.ROMessage;
Result := (RORemoteService as IsrvConfiguracion).DarValor(CODIGO); Result := (RORemoteService as IsrvConfiguracion).DarValor(CODIGO);
end; end;

3
Source/Servidor/uDataModuleServer.dfm
View File

@ -5,6 +5,7 @@ object dmServer: TdmServer
Height = 307 Height = 307
Width = 382 Width = 382
object HTTPServer: TROIndyHTTPServer object HTTPServer: TROIndyHTTPServer
Encryption.EncryptionMethod = tetBlowfish
Encryption.UseCompression = True Encryption.UseCompression = True
Dispatchers = < Dispatchers = <
item item
@ -73,7 +74,7 @@ object dmServer: TdmServer
Top = 144 Top = 144
end end
object DAIBXDriver: TDAIBXDriver object DAIBXDriver: TDAIBXDriver
Left = 232 Left = 224
Top = 80 Top = 80
end end
end end

9
Source/Servidor/uDataModuleServer.pas
View File

@ -72,7 +72,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
DateUtils, JclFileUtils, ActiveX, Forms, Registry, Windows, Dialogs, uROEncryption, DateUtils, JclFileUtils, ActiveX, Forms, Registry, Windows, Dialogs,
ExtCtrls, uSesionesUtils, uServerAppUtils; ExtCtrls, uSesionesUtils, uServerAppUtils;
function DarRutaInformes : String; function DarRutaInformes : String;
@ -292,6 +292,13 @@ end;
procedure TdmServer.HTTPServerBeforeServerActivate(Sender: TObject); procedure TdmServer.HTTPServerBeforeServerActivate(Sender: TObject);
begin begin
HTTPServer.Port := StrToInt(FServerPort); HTTPServer.Port := StrToInt(FServerPort);
with HTTPServer.Encryption do
begin
EncryptionMethod := tetDES;
EncryptionSendKey := 'C793F1A04FFC8DF91FF9522951F6B6DF921C70B42D74166C6DF0B697797AAA6A243BEC35A9423A51';
EncryptionRecvKey := '127C1A6A4D85F5EFE0A54E104BF7F695CD6C989C1808A57667EF1218E8ED93FC6CDC531631EB9750';
UseCompression := True;
end;
end; end;
end. end.