F�rum Senhas: Requisitos de complexidade #395660

14/02/2011

Bom dia!!!

Estou querendo emplementar no meu sistema diretivas de senha de acesso, parecidas com a do windows server, uma delas � a complexidade da senha, gostaria se alguem pudesse me ajudar.

Queria saber como fa�o uma rotina para verificar se o usuario tentou cadastrar sua senha com somente numeros ou somente letras, se isso aconteceu nao deixar gravar, for�ando o usuario ter que digitar senhas mais complexas utilizando numeros e letras e tamb�m caracteres.

Caso alguem tenha outras ideias me envie tb, sempre � bom compartilhar.

Aguardo

Iramar Junior

Curtir t�pico

+ 0

Responder

Posts

14/02/2011

Km Sistemas

Uma das op��es seria vc utilizar comandos como o

 IF POS('1',texto) > 0 then

para verificar se existe a ocorrencia de determinados caracteres que seriam obrigat�rios...

Outra op��o seria utilizar algum componente para gerenciamento do controle de acesso ao sistema!

Responder

Gostei + 0

14/02/2011

Iramar Junior

Pessoal ainda continuo precisando de ajuda.

Alguem tem alguma rotina ou ja desenvolveu algum sistema onde utilizou formas de complexidade da senha de acesso?

Preciso emplementar em meu sistema como mencionei no chamado, mas sem utilizar componentes.

Aguardo

Responder

Gostei + 0

14/02/2011

Marco Salles

Nada que n�o possa ser aperfei�oado e melhorado

function SenhaSegura(const cSenha:String):Boolean;
function SoLetras(s:string):boolean;
const
 c :Array [1..10]  of char  = ('0','1','2','3','4','5','6','7','8','9');
var
 idx:integer;
begin    //tem letras
result:=true;
for idx:=1 to length(c) do
  if pos(c[idx],s)>0 then
     begin
       result:=false;
       Break;
     end;
 end;
Const
cCharMin=6;
var
n:Int64;
begin
result:=(length(cSenha) > cCharMin)and(not TryStrToInt64(cSenha,n))and(not SoLetras(cSenha));
end;

para usar

procedure TForm9.Button1Click(Sender: TObject);
begin
if SenhaSegura(edit1.Text) then
   showmessage('senha Boa')
else
  Showmessage('Senha Fraca');
end;

Responder

Gostei + 0