Seguran�a de Sistemas: Controle de acesso e n�veis de usu�rios

Falar em segurança de sistemas, logo faz lembrar v�rios itens, que precisamos tomar os mais minuciosos cuidados, para que o sistema seja realmente seguro. Neste artigo veremos como definir de forma segura controles de acessos diferenciados para usu�rios de sistemas desenvolvidos em Delphi para a plataforma Win32.

Faremos uso do User Control Package , um pacote open source de componentes, que podem ser facilmente instalados nas vers�es posteriores ao Delphi 5, permitindo conex�o aos principais padr�es de acessos a dados e servidores de banco de dados compat�veis com Delphi. O acesso pode ser definido individualmente por Usu�rio e por Perfil de usu�rios, dando a opç�o de acompanhar uma lista de todos os usu�rios logados no sistema.

Iniciaremos com a instalaç�o do componente, passando ent�o � criaç�o de uma aplicaç�o Delphi com acesso a um banco de dados Firebird, onde aplicaremos o uso dos componentes do pacote.

Ao final do artigo, tamb�m veremos como gerar eventos no programa (log), podendo filtrar a consulta de log por usu�rio, data e n�vel.

O componente

Faremos o download do componente.

Nota: O novo link para o componente � https://sourceforge.net/projects/user-control-dx-edition/

Faça o download do pacote atrav�s da seç�o destinada no site. Para este artigo, faremos o download da vers�o User Control 2.20 RC2. Fique � vontade para fazer o download das outras vers�es dispon�veis. Salve o arquivo compactado dentro da pasta Lib do seu Delphi (ou escolha outra pasta).

Ap�s o download, descompacte o arquivo zipado, deixando os fontes na pasta UserControl.

Instalando o componente

Usaremos neste artigo para fazer a instalaç�o, configuraç�o e uso do componente, o Delphi 2006, mas voc� poder� usar livremente qualquer outra vers�o superior ao Delphi 5. A instalaç�o do User Control � simples, no menu File > Open do Delphi, localize dentro da pasta UserControl/Packages, o arquivo pckMD5.dpk.

Abra o mesmo e no Project Manager clique sobre a BPL dando um Build (Figura 1).

Figura 1. Instalaç�o dos pacotes do componente

Repita o processo com os pacotes pckUCDataConnector.dpk, pckUserControl_RT.dpk e depois pckUserControl_DT.dpk. Apenas no �ltimo, pckUserControl_DT.dpk, ap�s o Build , com o bot�o direito sobre o pacote escolha a opç�o Install.

Uma mensagem de confirmaç�o de sucesso de instalaç�o do componente ser� apresentada. Na mensagem tamb�m ser�o exibidos os componentes que voc� acabou de instalar (Figura 2).

Figura 2. Mensagem de confirmaç�o ap�s instalaç�o do componente

Depois de instalado o componente, confirme a mensagem e use o menu File > Save All para concretizar a instalaç�o.

Instalando os conectores

Para que possamos realizar os controles de usu�rios e n�veis de permiss�es, precisamos instalar os componentes respons�veis pela comunicaç�o do User Control com os componentes de acesso a dados. Juntamente com os arquivos de instalaç�o, dentro da pasta Packages, encontraremos uma pasta Connectors.

Para cada um dos principais tipos suportado pelo Delphi, teremos um conector a ser instalado. Tomaremos neste artigo como exemplo o acesso ao banco de dados Firebird, onde faremos a instalaç�o do pacote UCDBXConn.

Se preferir, voc� poder� instalar todos os demais conectores, assim, estar� habilitado para qualquer tipo de conex�o. Para fazer a instalaç�o � muito simples, semelhante a instalaç�o do componente, basta abrir o pacote que ser� encontrada na pasta do pacote, Build e ap�s Install. Novamente, voc� ser� notificado do sucesso da instalaç�o do conector e poder� salvar a instalaç�o.

Nota: Lembre-se de adicionar � Library Path do Delphi (Tools > Options) o caminho da pasta com o fonte do componente, para que o mesmo possa fazer refer�ncia durante o uso.

Iniciando uma aplicaç�o

Criaremos agora uma aplicaç�o no Delphi, onde utilizaremos um formul�rio principal e um Data Module para configuraç�o do componente de acesso a dados. Iniciando uma nova aplicaç�o VCL Forms Application (File > New > VCL Forms Application), criaremos uma pasta chamada �UCApp� onde salvaremos os arquivos da aplicaç�o.

Salve o projeto com o nome de �UserControlApp.dpr� e o formul�rio como �UntUCApp.pas�. Altere o Caption do formul�rio para �User Control� o nome para �frmPrincipal�. Atrav�s do menu File > New > Other > Delphi Files, selecione Data Module e confirme (Figura 3). Altere o nome do mesmo para "DMConexao� e salve como �UntDMConexao.pas�.

Figura 3. Criando o Data Module da aplicaç�o

Configurando a conex�o

Adicione ao DMconexao um SQLConnection, altere seu nome para �Conexao� e com um duplo clique do mouse sobre o componente, abra o assistente para configuraç�o do acesso ao banco de dados. Crie uma nova conex�o, selecione o driver Interbase e em Connection Name d� o nome de �EMPLOYEE". Confirme e proceda com as configuraç�es do acesso.

Utilizaremos o banco EMPLOYEE.fdb que acompanha a instalaç�o do Firebird, e configuramos o User_Name, Password e ServerCharSet (Figura 4). Altere a propriedade LoginPrompt para False e ative a conex�o.

Figura 4. Configurando o acesso ao bando de dados Employee.fdb

Nota: Uma pr�tica segura � alterar a senha padr�o do banco de dados ap�s a instalaç�o.

Utilizando o User Control

Arraste para o Data Module o UCDBXConn da paleta UC Connectors que acabamos de instalar. Faça a configuraç�o da sua propriedade Connection ligando-a ao SQLConnection.

Volte para o frmPrincipal e solte os componentes mostrados na Tabela 1, da paleta UC Main.

Componente	Utilizaç�o do componente
UserControl	Principal componente do pacote. Todas as funç�es de controle ser�o centralizadas no mesmo. Ligue a propriedade Data Connector ao UCDBXConn que est� no DMConexao. Veremos mais adiante as configuraç�es mais detalhadas desse componente.
UCSettings	Permite a customizaç�o do UserControl. Podemos alterar textos e mensagens de telas de formul�rios do componente.
MailUserControls	Envia e-mails ao usu�rio, como por exemplo, para a opç�o Esqueci a senha. Ligue a propriedade MailUserControl do UserControl para esse componente.
UCIdle	Controla a inatividade do usu�rio. Poder� ser configurado um TimeOut para que o pr�prio sistema efetue logoff. Ligue a propriedade UserControl ao UserControl1.

Tabela 1. Componentes adicionados e funç�o desempenhada por cada um

Nota: Quando estiver no frmPrincipal, n�o esqueça de adicionar a refer�ncia ao Data Module, atrav�s do menu File > Use Unit, selecione o UntDMConexao. N�o esqueça tamb�m de definir que o Data Module ser� criado antes que o formul�rio principal.

Em Project > Options arraste o Data Module para que fique posicionado acima ao frmPrincipal, isso garante que a conex�o com o banco de dados j� estar� aberta quando o componente realizar uma consulta de usu�rio e senha na base.

Saiba mais Curso Criando minha primeira aplicaç�o em Delphi

Antes de executar a aplicaç�o, precisamos definir os menus de acesso �s funcionalidades do componente. Adicione ao frmPrincipal um MainMenu, e com um duplo clique crie uma estrutura semelhante � Tabela 2 (os valores entre par�nteses representam os nomes dos itens de menu).

Arquivo	Usu�rios	Log
Logoff (MLogoff) Sair (MSair)	Alterar Senha (MSenha) Cadastrar Usu�rios (MUser) Perfis de Usu�rios (MPerfil) Usu�rios Logados (MLogados)	Log do Sistema (MLog)

Tabela 2. Itens do menu

No UserControl, definiremos as ligaç�es das propriedades com cada um dos menus correspondentes. Configure cada uma das propriedades de acordo com a Tabela 3.

Propriedade	Menu da aplicaç�o
User > MenuItem	MUser: Acessado pelo menu Cadastro de Usu�rios
UserPasswordChange > MenuItem	MSenha: Acessado pelo menu Alterar Senha
UserProfile > MenuItem	MPerfil: Acessado pelo menu Perfis de Usu�rios
UsersLogged > MenuItem	MLogados: Acessado pelo menu Usu�rios Logados
LogControl > MenuItem	MLog: Acessado pelo menu Log do Sistema
ApplicationID	UserControl: Nome da Aplicaç�o

Tabela 3. Configuraç�es das propriedades aos menus no componente

Para configurar o menu de efetuar logoff, adicione ao evento OnClick do Logoff o c�digo a seguir:


procedure TfrmPrincipal.MLogoffClick(Sender: TObject);
begin
UserControl1.Logoff;
end

Antes de compilarmos a aplicaç�o, habilite a propriedade AutoStart do UserControl para True. Algumas configuraç�es podem ser feitas em um editor, acessado ao dar um duplo clique no UserControl.

Testando a aplicaç�o

Vamos executar a aplicaç�o pela primeira vez, onde o componente criar� automaticamente as tabelas por ele requeridas no banco de dados e mostrar� uma tela com um usu�rio e senha padr�o para proceder ao primeiro acesso (Figura 5).

Figura 5. Usu�rio e senha padr�o na primeira execuç�o do sistema

Realizado o primeiro acesso ao sistema, acesse o menu Usu�rios e cadastre um novo usu�rio. No formul�rio de cadastro, criado automaticamente pelo componente (Figura 6), clique em Adicionar e faça o cadastro de seu pr�prio usu�rio.

Figura 6. Tela para cadastro de um novo usu�rio do sistema

Forneça todas as informaç�es, exceto a opç�o Perfil que ainda est� em branco e clique em Gravar, ser� habilitada uma opç�o onde dever� ser informada a senha para o novo usu�rio (essa � criptografada). Realizando um teste com o usu�rio criado, atrav�s do menu Arquivo > Logoff, acesse novamente o formul�rio de login e informe usu�rio e senha que acabou de cadastrar.

Certamente voc� j� notou que est� com acesso a todos os menus do sistema e pensou em uma forma de como bloquear o acesso a determinado menu de acordo com cada usu�rio. Lembrando que durante as configuraç�es criamos um menu chamado de Perfis de Usu�rios, vamos acessar o mesmo e criar um novo perfil, ou melhor, passaremos a criar dois perfis, um �ADMINISTRADOR� e outro chamado �USUARIOS�.

Criados ent�o os perfis, selecione o perfil USUARIOS e clique sobre o bot�o acessos. Apareceu um novo formul�rio, mas com nenhuma informaç�o para definiç�es de acesso. N�o se preocupe voc� n�o cometeu nenhum erro, apenas n�o foi informado ao componente o que queremos controlar, nesse caso, ser�o os menus do sistema.

Feche a aplicaç�o e voltando ao Delphi, no UserControl em sua propriedade ControlRight > MainMenu selecione o componente com a estrutura de menus (MainMenu1).

Compile e execute sua aplicaç�o novamente, utilize para login o usu�rio ADMIN, certamente seu usu�rio n�o ter� privil�gios de acessos aos menus, e volte a acessar o menu Perfis de Usu�rios, selecione o perfil USU�RIO e clique novamente em acessos.

Agora aparecendo todos os menus que configuramos anteriormente no componente, marque os mesmos de forma semelhante � Figura 7 e confirme.

Figura 7. Definindo os acessos ao perfil usu�rios

Ap�s, selecione o perfil ADMINISTRADOR, defina acesso a todos os itens do menu e confirme. Acesse o menu Cadastro de Usu�rio, selecione o usu�rio ADM, e clique em Alterar. Defina-o como membro do perfil ADMINISTRADOR.

Repita o processo com o usu�rio que voc� cadastrou, determinando que o mesmo ser� membro do perfil USUARIOS. Efetue logoff e dessa vez utilize seu usu�rio para conectar ao sistema. Perceba que seus privil�gios de acesso foram limitados, onde os menus continuam aparecendo, por�m foram desabilitados.

Acabamos de ver uma forma de controlar quem ter� ou n�o acesso ao sistema, e aos menus que cada usu�rio ter� acesso. Voc� poder� criar in�meros perfis diferentes, e ainda, al�m de atribuir um usu�rio a um perfil, poder� definir acessos individuais a ele, na tela de cadastros.

Clique em Acessos, onde surgir� uma lista de definiç�es individuais de acessos ao mesmo.

Funç�es de e-mail

Tendo adicionado o MailUserControl e configurado o mesmo ao UserControl, voc� possivelmente j� deve ter notado a presença de um link Esqueci a Senha no formul�rio de login, tamb�m nas aç�es de cadastros e alteraç�es de usu�rios, onde ao confirmar surgiu rapidamente uma tela de Envio de E-mail.

Todas essas opç�es s�o poss�veis e j� est�o automaticamente habilitadas nas funcionalidades do componente, por�m ainda n�o est�o funcionando por n�o estarem devidamente configuradas. Ent�o, m�os � obra.

Acessando as propriedades do MailUserControl, perceba que temos de informar ao mesmo os dados de uma conta de e-mail que ser�o utilizados para autenticaç�o e o envio das informaç�es. Precisamos informar ao componente o e-mail do remetente, o nome do mesmo e as informaç�es do servidor de sa�da de e-mail (SMTP).

Informe o endereço do servidor, como por exemplo: �smtp.terra.com.br� ou simplesmente o n�mero IP do mesmo. Informe tamb�m um usu�rio v�lido e a senha correspondente.

Simularemos o funcionamento do serviço de "Esqueci a Senha", e definir a mensagem que ser� enviada para o e-mail do solicitante, juntamente com usu�rio e senha. Acessando a propriedade EsqueceuSenha > Mensagem e digite o seguinte texto:


Solicitaç�o de Senha
Seu usu�rio �: :login
Sua Senha �: :senha

O texto digitado possui dois par�metros, ou seja, login e senha que na hora da solicitaç�o pelo usu�rio ser�o substitu�dos pelas devidas informaç�es. Para testar, execute o programa, digite seu usu�rio e clique sobre o link Esqueci a Senha.

Voc� receber� em seu e-mail a senha cadastrada para seu usu�rio. Voc� poder� tamb�m alterar a mensagem que ser� enviada para o e-mail, bem como as informaç�es que o e-mail carregar�.

Configure da mesma maneira o texto para as demais opç�es dispon�veis no componente.

Timeout do sistema e lista de usu�rios logados

Muitos sistemas disponibilizam de recursos que controlam o tempo de inatividade dos usu�rios no sistema. No User Control, basta realizar uma configuraç�o no UCIdle, alterando sua propriedade Timeout para o tempo que exista a seç�o para aquele usu�rio, sem o mesmo estar trabalhando no sistema (valor em milissegundos).

Em um exemplo de querermos atribuir um timeout de 20 minutos, bastaria atribuir � propriedade o valor �1200000�, onde esgotado esse tempo, automaticamente o componente mostra a tela de login para que o usu�rio possa voltar a utilizar o sistema.

Se seu sistema est� instalado em uma rede e voc� permitir acesso simult�neo de v�rios usu�rios, o User Control oferece uma funcionalidade para acompanhar todos os usu�rios conectados.

J� configurado anteriormente, basta voc� executar o sistema, e atrav�s do menu Usu�rios Logados obter a listagem dos mesmos que est�o ativos (Figura 8).

Figura 8. Usu�rios logados no sistema

Salvando os Logs das aç�es do usu�rio

J� que o assunto � segurança, porque n�o falar sobre log. � atrav�s do log de um sistema que o administrador poder� acompanhar todas as aç�es dos usu�rios no sistema. No log de um sistema podem ficar armazenadas informaç�es muitos importantes em casos de bugs ou falhas de informaç�es.

No log, qualquer aç�o do usu�rio poder� ser armazenada, juntamente com a data/hora e nome do usu�rio logado no momento da gravaç�o do log, al�m � claro da aç�o que o mesmo executou.

Adicione o seguinte c�digo ao evento OnLoginSuccess do UserControl. Ap�s, adicionado o c�digo, execute o sistema e acesse o menu Log:


UserControl1.Log('Efetuou login no sistema', 0);

Acessando o log gerado pelo sistema, voc� j� deve ter notado a presença de um registro que voc� fez login. Em qualquer formul�rio da aplicaç�o voc� poderia acessar o componente e registrar o log, como por exemplo, em um formul�rio de cadastro, poder�amos criar um log quando o usu�rio insere um novo registro, altera, exclui, entre outras v�rias opç�es.

Um log pode ser armazenado com n�veis diferentes de import�ncia para o sistema, poder� ser armazenado como n�vel Baixo, de pouca import�ncia para o administrador, como por exemplo, login e logoff.

Tamb�m como Normal, a exemplo de um usu�rio ter consultado algum relat�rio. N�vel Alto, que geralmente � utilizado em alteraç�es de registros e por final, um Cr�tico, correspondente a uma aç�o que o usu�rio fez e que poder� estar comprometendo informaç�es do sistema, como por exemplo, a exclus�o de um registro de estoque ou movimentaç�es de caixa.

Esses n�veis s�o definidos no momento da gravaç�o do log, exemplo do c�digo a seguir, onde informamos a aç�o que desejamos gravar e o n�vel da mesma:


UserControl1.Log('Efetuou login no sistema', 0);
{ N�vel Baixo (0); N�vel Normal (1); N�vel Alto (2);
N�vel Cr�tico (3) }

A tela de log permite ao usu�rio realizar v�rias opç�es de filtro, como por exemplo, consultar o log de um usu�rio espec�fico, em uma determinada data, ou mesmo, pelo n�vel do log (Figura 9).

Figura 9. Tela de log do sistema

Outras configuraç�es

No UCSettings, est�o dispon�veis in�meras configuraç�es para customizaç�o do User Control. Atrav�s desse componente � poss�vel alterar todos os Captions, mensagens etc. Acessando as propriedades mudaremos a posiç�o de todos os formul�rios do componente e tamb�m o Caption do login.

Alterando a propriedade WindowsPosition para poScreenCenter definimos que todos os formul�rios aparecer�o ao centro da tela do computador. Para alterar o Caption do login, acessaremos a propriedade Login > WindowsCaption alterando-a para �User Control - Tela de Login�. Execute novamente sua aplicaç�o, veja a mudança (Figura 10).

Figura 10. Formul�rio de login com mudança no Caption

Conclus�o

Conforme comentado no in�cio do artigo, vimos uma forma de evitar que pessoas indesejadas tenham acesso aos seus sistemas, limitando tamb�m as prioridades de acesso aos usu�rios, lembrando que as senhas ficam criptografadas no banco de dados.

Vimos tamb�m uma maneira f�cil e segura de monitorar atrav�s do log tudo que acontece no sistema, tudo isso atrav�s de um processo de desenvolvimento muito �gil, seguro e com a utilizaç�o de poucas linhas de c�digo.

Saiu na DevMedia!

Que JavaScript � esse?:
Apresentamos aqui o JavaScript na sua vers�o mais moderna. Ao acompanhar os cursos dessa s�rie voc� se sentir� � vontade para programar em Angular, React ou Vue.
API REST + Cliente web React + Mobile:
� hora de por em pr�tica o que voc� sabe criando um projeto completo! Na s�rie de hoje vamos analisar requisitos, codificar uma API RESTful, um cliente mobile multiplataforma, um site e uma aplicaç�o web de moderaç�o.

Saiba mais sobre Segurança da Informaç�o ;)

Implementando segurança na programaç�o Web:
Esse artigo traz uma s�rie de boas pr�ticas em relaç�o � prevenç�o de ataques de hackers �s nossas aplicaç�es web, com exemplos de como se prevenir e a seus sites.
Segurança em sistemas corporativos:
Este artigo apresenta mecanismos de segurança para o desenvolvimento de sistemas corporativos, incluindo a criaç�o de usu�rios e grupos no servidor de aplicaç�o, desenvolvimento de login, configuraç�o de roles e a manipulaç�o de EJBs.

Revista Clube Delphi Ediç�o 87

:
Confira nesta ediç�o da revista Clube Delphi uma mat�ria sobre pesquisas sofisticadas com Firebird e Ajax, e veja tamb�m como obter performance no Firebird e ADO.NET.