F�rum Senha: Caracteres identicos #394852

01/02/2011

Boa tarde!!!

Tenho um form de alteracao de senha, onde � solicitado a senha atual, nova senha e confirma��o da nova senha.

Como fa�o para verificar no edit onde o usuario ira informar a nova senha que nao foi informado somente caracteres identicos, exemplo, caso o usuario informe 99999999 ou aaaaaaa, retorne uma mensagem de erro.

Como fa�o tb para verificar se a nova senha em alguma posicao o usuario nao informou o nome do usuario como senha, exemplo, usuario de acesso "adm1234" e informa na nova senha "7adm1234a", veja que existe na posicao a mesma informacao do usuario de acesso, impedir que isso ocorre e retornar uma mensagem de erro.

Fico no aguardo

Iramar Junior

Curtir t�pico

+ 0

Responder

Posts

01/02/2011

Marco Salles

Para descobrir se � a mesma sequencia vc pode utilizar a function abaixo

function SequenciaIdentica(const Senha:String;inicio:integer=1):boolean;
var
i:integer;
begin
try
 for I := inicio to length(Senha)-1 do
   if Senha[i] = Senha[i+1] then
      result:=SequenciaIdentica(senha,i+1)
   else
      abort;
except
   result:=false;
end;
end;

Para descobrir se tem o nome do usario na String basta usar a function Nativa do Delphi pos if if pos(NomeDoUSaior,edtSenha.Text) > 0 then se for > Zero � porque tem

Responder

Gostei + 0

01/02/2011

Iramar Junior

Marco, nao consegui fazer funcionar a funcao sequenciaidentica, mesmo tento caracter diferente no edit da senha esta retornando a mensagem de erro.

Qual seria a sintexa?

Responder

Gostei + 0

01/02/2011

Marco Salles

procedure TForm6.Button6Click(Sender: TObject);
begin
if SequenciaIdentica(Edit1.Text) then
  ShowMessage('identica')
else
 showmessage('Diferentes');
end;

Responder

Gostei + 0

01/02/2011

Iramar Junior

Marco, ainda n�o obteve o resultado correto da funcao

  if SequenciaIdentica(EditNovaSenha.Text) then
  begin
     ShowMessage('A senha n�o deve conter caracteres id�nticos consecutivos!!!');
     EditNovaSenha.Text := '';
     EditNovaSenha.SetFocus;
     exit;
  end;

nao acontece nada, se digitar aaaaaaaa a senha � gravada normalmente

Responder

Gostei + 0

01/02/2011

Marco Salles

Bem , eu n�o sei como vc esta a aplicando a fun��o Ela retorna True qnd for identico e false qnd n�o for

function SequenciaIdentica(const Senha:String;inicio:integer=1):boolean;
var
i:integer;
begin
try
 for I := inicio to length(Senha)-1 do
   if Senha[i] = Senha[i+1] then
      result:=SequenciaIdentica(senha,i+1)
   else
      abort;
except
   result:=false;
end;
end;

eu aqui digito para o edit aaaaaaaa e qnd eu fa�o if SequenciaIdentica(edit1.text) then Showmessage('iguais') esle Showmessage('diferente'); Agora se o que vc tiver colocando dentro do Seu if SequenciaIdentica(edit1.text) then logica Para n�o gravar a senha ????? n�o tiver obtendo o resultado que vc necessita , vc deve rever estes m�todos

Responder

Gostei + 0