BUSCA

Links Patrocinados



Buscar por Título
   A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z


Linguagem Delphi
()

Publicidade
Senha Invisível
Eu estava pensando numa forma de rebater um programa que foi criado para desvendar os *** dos programas , e pensado nisso fiz algo bem simples mas que pode ajudar.[BR][BR][BR]Eu criei um campo edit comum onde no evento onkeypress eu adiciono a tecla digita numa variavel e ao mesmo tempo evito que o texto apareça no edit, o que acontece na verdade estamos digitando direto numa variável senha, como podemos ver o código abaixo:[BR][BR]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);[BR]begin[BR]// verifica se o backspace foi pressionado[BR]if key = #8 then [BR]begin[BR]edit1.Clear;[BR]//apaga de tras pra frente a variável um a um[BR]delete(senha,length(senha),1); [BR]//verifica se a senha foi apagada por completo[BR]if length(senha)<1 then [BR]beep; //emite um beep para avisar que a senha foi totalmente apagada[BR]exit;[BR]end;[BR]senha:=senha+char(key);//vai adicionando o que é digitado na variavel senha[BR]end;[BR][BR]procedure TForm1.Button1Click(Sender: TObject);//envia a senha[BR]begin[BR]showmessage(senha); //usado só no teste pra verificar a senha digitada você tem que apagar depois[BR]senha:='''';//depois que a senha é enviada o conteúdo da variável limpo[BR]end;[BR][BR]procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;[BR]Shift: TShiftState);[BR]begin[BR]if (key=17)then //17 corresponte a tecla crtl[BR]showmessage(''Teclas de função desabilitada no campo texto'');[BR]end;[BR][BR]procedure TForm1.Edit1Change(Sender: TObject);[BR]begin[BR]if length(edit1.Text)>=1 then[BR]edit1.Text:=''''; //evita que o campo edit mostre o texto digitado[BR]end;[BR][BR]Agora para verificar se a senha está certa com a armazenada no banco de dados ou seja qual for sua aplicação você deve chamar a variável "senha"e não o campo edit.[BR]Acho que dá pra tirar um proveito disso apesar de simples, ou senão apenas pra dar um charme na nossa aplicação por mais que ela seja simples.



Resumos Relacionados


- Www.baboo.com.br

- Seqüestro-relÂmpago

- Neopets

- CartÃo De Debito Cuidado

- Proteja O Seu Pen Drive Com Senhas!



Passei.com.br | Biografias

FACEBOOK


PUBLICIDADE




encyclopedia