Senhas: Requisitos de complexidade
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
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
Curtidas 0
Respostas
Km Sistemas
14/02/2011
Uma das opções seria vc utilizar comandos como o 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!
IF POS('1',texto) > 0 then Outra opção seria utilizar algum componente para gerenciamento do controle de acesso ao sistema!
GOSTEI 0
Iramar Junior
14/02/2011
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
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
GOSTEI 0
Marco Salles
14/02/2011
Nada que não possa ser aperfeiçoado e melhorado
para usar
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;procedure TForm9.Button1Click(Sender: TObject);
begin
if SenhaSegura(edit1.Text) then
showmessage('senha Boa')
else
Showmessage('Senha Fraca');
end;GOSTEI 0