3 replies to this topic

[Skull]

Seguinte galera,
O usuario dá um clique para abrir o prog e ao abrir ele egije q o usuario digite um nome de usuario e senha. como faço isso?

Ficaria assim:

1) carrega o prog
2)abre janela para digitar usuario e senha
3)senha e usuario corretos libera o prog para uso caso contrario fecha o prog.

Esqueci de dizer:

4) O usuario comum não terá o dierito de incluir novos usuarios, apenas alterar a sua
propria senha.
5) A inclusão de novos usuarios e cadastro de senhas iniciais ficara a cargo apenas do
administrador.

Fui!

Edição feita por: Skull, 07/10/2003, 16:10.

[The Tamer]

Olá!
Uma validação simples de usuário e senha se deve:

procedure Tform1.VerificaSenha;
begin
 if Edit1.Text = 'MyUser' then
   if Edit2.Text = '1234' then
     ShowMessage('Você passou')
   else ShowMessage('Password Errado')
 else ShowMessage('Usuário Errado');
end;

Aproveitando esse exemplo, dá para fazer uma validação mais complexa. Seria interessante ao invés de colocar o Usuário e Senha no próprio código, você criar um banco de dados (um TXT encriptado ou chaves no registro) que contenha a relação USUÁRIO-SENHA:

- Se não tiver o usuário na lista: Dispare a mensagem de erro de user
- Se tiver o usuário, passe a comparar o conteúdo do Edit2 com a senha referênte a ele
> Se estiver OK, você verifica se é o administrador (Um usuário ADMIN fixo ou mais uma informação de NÍVEL DE USUÁRIO)


Com uma variável global, vocÊ define o nivel do usuário de acordo o login: 1, 2, 3, 4... e passa a usar esses números:

Exemplo:
O usuário ADMIN: tem o nível 1: Pode adicionar usuários
O usuário FULANO: tem o nível 0: Só pode operar o programa
O usuário SICRANO: tem o nível 0: Só pode operar o programa
.
.
.


A lógica está mais ou menos aí... só falta desenvolver o código...
Posso te ajudar, é só ir postando, na hora do almoço de hoje vou escrever algumas linhas bacanas para fazer isso... mas vá tendando, as vezes vc acha algo melhor ou mais compreencível.

TKS!!

[solidnuts_]

tbm preciso +- disso, mais como eu faço para encriptar ? criar o txt ? n sei nada disso....

[The Tamer]

Encriptar ou Decriptar Strings pode ser feita pelo código:

function TFORM1.Criptografia(mStr, mChave: string): string;
var
  i, TamanhoString, pos, PosLetra, TamanhoChave: Integer;
begin
  Result := mStr;
  TamanhoString := Length(mStr);
  TamanhoChave := Length(mChave);
  for i := 1 to TamanhoString do
  begin
  pos := (i mod TamanhoChave);
  if pos = 0 then
  pos := TamanhoChave;
  posLetra := ord(Result[i]) xor ord(mChave[pos]);
  if posLetra = 0 then
  posLetra := ord(Result[i]);
  Result[i] := chr(posLetra);
  end;
end;

Você usa a mesma função para Encrpitar e Decriptar, bastando ter sempre a mesma Chave...
Assim, para usar, supondo que vc criou um Memo1 (para colocar o texto a ser encriptado) e um Edit1 (onde o usuario coloca a senha), você usa a função assim:

Memo1.Text := Criptografia(Memo1.Text,Edit1.Text);

Aí é só dar um SaveAs no Memo1 para ter a saida em TXT.