Início
Últimas imagens
Procurar
Registar
Entrar[Desafio]Gerador de senha
2 participantes
Página 1 de 1
[Desafio]Gerador de senha
por Luiz Henrique Sáb maio 14, 2011 3:22 pm
O primeiro desafio vai ser criar um gerador de senhas.
Última edição por Luiz Henrique em Qui Ago 11, 2011 5:56 pm, editado 1 vez(es)
Luiz Henrique- Moderador
- Mensagens : 27
Data de inscrição : 17/12/2010
Idade : 28 -
Re: [Desafio]Gerador de senha
por Luiz Henrique Sáb maio 14, 2011 3:23 pm
Não é necessário a source. Posta quem quer. ^^
Luiz Henrique- Moderador
- Mensagens : 27
Data de inscrição : 17/12/2010
Idade : 28 -
Re: [Desafio]Gerador de senha
por Luiz Henrique Qua maio 18, 2011 7:51 pm
Como ninguém participou ainda, eu msm fiz um gerador de senhas.
Quem quiser ver o link é : http://www.megaupload.com/? d=DTSA4UGP
Tire os espaços. ^^
Quem quiser ver o link é : http://www.megaupload.com/? d=DTSA4UGP
Tire os espaços. ^^
Luiz Henrique- Moderador
- Mensagens : 27
Data de inscrição : 17/12/2010
Idade : 28 -
Luiz Henrique- Moderador
- Mensagens : 27
Data de inscrição : 17/12/2010
Idade : 28 -
Re: [Desafio]Gerador de senha
por LD__ Sex Set 30, 2011 8:56 pm
Simples, fiz uma função de força bruta recursiva: 
gnp(4,4,"ABCD","AAAA") = "AAAB"
gnp(4,4,"ABCD","AAAB") = "AAAC"
....
Agora estuda ela, encontre e corriga um bugzinho dela....
vou da uma dica, o que acontece no exemplo se fstr for igual a "DDDD"?
"Roda, Roda, Roda... Roda, Roda, Roda, Rodou!!!"
- Código:
{tmsb = tamanho da string que contem o caracteres a serem gerados
tmb = tamanho da string gerada.
stb = string que contem o caracteres a serem gerados
fstr = string gerada.
}
function gnp(tmsb, tmb : byte;stb, fstr : string) : string;
{faz ex: aaa: aab, aac ....}
var tmp : string;
begin
tmp := fstr;
if pred(tmb) = 0 then {pred(X)=X-1}
begin
if not (tmp = stb[tmsb]) then
tmp := stb[succ(pos(tmp,stb))] {succ(X)=X+1}
else
tmp := stb[tmb];
end
else
if not (tmp[tmb] = stb[tmsb]) then
tmp[tmb] := stb[succ(pos(tmp[tmb],stb))]
else
tmp := gnp(tmsb,pred(tmb),stb,copy(tmp,1,pred(tmb)))+stb[1]; {*}
gnp := tmp;
end;
{* copy("AAAA",1,3)= "AAA", gnp(4,3,"ABCD","AAA")="AAB", "AAB"+"A" = "AABA".}
{pos("A","ABCD") = 1)
gnp(4,4,"ABCD","AAAA") = "AAAB"
gnp(4,4,"ABCD","AAAB") = "AAAC"
....
Agora estuda ela, encontre e corriga um bugzinho dela....
vou da uma dica, o que acontece no exemplo se fstr for igual a "DDDD"?
"Roda, Roda, Roda... Roda, Roda, Roda, Rodou!!!"
LD__- Membro
- Mensagens : 4
Data de inscrição : 07/01/2011
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos|
|
|
» Fontes Sistema Store Protheus 7.0 - Versão completa Delphi XE7
» Fontes Sistema Store Protheus 7.0 - Versão completa Delphi XE7
» Como gravar um campo Blob no FireBird + Delphi de um campo tipo imagem no MS-ACCESS ?
» Exception EBDEngineError
» Exception EBDEngineError
» Componente Delphi Brasil
» Erro no Delphi “A linha não pode ser localizada para atualiz
» Fontes Automação Comercial 8.5 - Retaguarda c/ PDV, PAF 1.10, TEF, ECF, Sintegra, SpedFiscal, Google Maps e muito mas...