Delphi Brasil
Seja bem-vindo (a) ao Delphi Brasil,aqui você encontrará dicas,tutoriais e etc.
Por favor,registre-se para obter o maior proveito possivel do fórum.
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Conectar-se

Esqueci minha senha

Parceiros

[Desafio]Gerador de senha

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

[Desafio]Gerador de senha

Mensagem por Luiz Henrique em Sab 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
Moderador

Mensagens : 27
Data de inscrição : 17/12/2010
Idade : 21

Ver perfil do usuário http://tudopragalera.tk

Voltar ao Topo Ir em baixo

Re: [Desafio]Gerador de senha

Mensagem por Luiz Henrique em Sab Maio 14, 2011 3:23 pm

Não é necessário a source. Posta quem quer. ^^

Luiz Henrique
Moderador
Moderador

Mensagens : 27
Data de inscrição : 17/12/2010
Idade : 21

Ver perfil do usuário http://tudopragalera.tk

Voltar ao Topo Ir em baixo

Re: [Desafio]Gerador de senha

Mensagem por Luiz Henrique em Qua Maio 18, 2011 7:51 pm

Como ninguém participou ainda, eu msm fiz um gerador de senhas.

Quem quiser ver o link é : megaupload.com/? d=DTSA4UGP

Tire os espaços. ^^

Luiz Henrique
Moderador
Moderador

Mensagens : 27
Data de inscrição : 17/12/2010
Idade : 21

Ver perfil do usuário http://tudopragalera.tk

Voltar ao Topo Ir em baixo

Re: [Desafio]Gerador de senha

Mensagem por Luiz Henrique em Qui Ago 11, 2011 3:48 pm

Ninguem vai participar? T_T

Luiz Henrique
Moderador
Moderador

Mensagens : 27
Data de inscrição : 17/12/2010
Idade : 21

Ver perfil do usuário http://tudopragalera.tk

Voltar ao Topo Ir em baixo

Re: [Desafio]Gerador de senha

Mensagem por LD__ em Sex Set 30, 2011 8:56 pm

Simples, fiz uma função de força bruta recursiva: Razz

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
Membro

Mensagens : 4
Data de inscrição : 07/01/2011

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: [Desafio]Gerador de senha

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum