Clipper On Line • Ver Tópico - SEGURANCA - Funcao de geração de senha aleatória

SEGURANCA - Funcao de geração de senha aleatória

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

SEGURANCA - Funcao de geração de senha aleatória

Mensagempor rochinha » 07 Jan 2007 04:08

Amiguinhos

Ao produzir um modulo para meu sistema precisei confeccionar uma função que pudesse me retornar uma senha aleatória para os cadastros de clientes e vendedores que acessam o mesmo.

Usando Clipper eu sei que posso encontrar zilhões destas funções em várias LIBs mas usando Harbour o tempo me diz que é melhor criar.

Portanto esta aí e seu uso é simples bastando passar os parametros:

Tamanho - tamanho da senha retornada 6, 8 ou que que desejar
Tipo - tipo da senha retornada 1-Numerica, 2-Alfanumérica e 3-Alfabética

Código
Function GerarSenha(MaxNum,Tipo)
   * 1 = Somente Numeros
   * 2 = Numero e Letras
   * 3 = Somente Letras
   local chave := ""
   var_valores := { "0123456789",;
                    "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",;
                    "ABCDEFGHIJKLMNOPQRSTUVWXYZ" }[Tipo]
   for i = 1 to MaxNum
       num := random(len(var_valores))
       chave := chave + substr(var_valores,num,1)
   next
   return lTrim(chave)

function Random( nMaximo )
   static nRandom
   local nTemporal
   nMaximo = if( nMaximo == NIL, 65535, nMaximo )
   if nRandom == NIL
      nRandom = seconds()
   endif
   nTemporal = ( nRandom * seconds() ) % ( nMaximo + 1 )
   nRandom = nTemporal + seconds()
   RETURN int( nTemporal )
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes



Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Bing [Bot] e 12 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro