GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
WX - SQL e WL
WX - SQL e WL
Iniciado por adrianoboller, mai., 21 2015 3:38 PM - 1 resposta
Conecte-se…
adrianoboller
#1
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em maio, 21 2015 - 3:38 PM
SQL
alter proc
[
dbo
]
.
NG0042_RandomSenha
AS
declare
@
MIN
TINYINT
SET
@
MIN
=
48
declare
@
range
TINYINT
SET
@
range
=
74
declare
@
qtde int
SET
@
qtde
=
4
declare
@
LEN
int
declare
@
inclui
VARCHAR
(
50
)
declare
@
output
VARCHAR
(
50
)
declare
@
char char
SET
@
output
=
''
SET
@
inclui
=
'abcdefghijklmnopqrstuvxyzw'
SET
@
LEN
= @
qtde
while
(
@
LEN
/
2
) >
0
begin
SELECT
@
char
=
char
(
ROUND
(
rand
(
) * @
range
+ @
MIN
,
0
)
)
IF
charindex
(
@
char
, @
inclui
) >
0
begin
SET
@
output
= @
output
+ @
char
SET
@
LEN
= @
LEN
-
1
END
END
SET
@
inclui
=
'0123456789'
SET
@
LEN
= @
qtde
while
(
@
LEN
/
2
) >
0
begin
SELECT
@
char
=
char
(
ROUND
(
rand
(
) * @
range
+ @
MIN
,
0
)
)
IF
charindex
(
@
char
, @
inclui
) >
0
begin
SET
@
output
= @
output
+ @
char
SET
@
LEN
= @
LEN
-
1
END
END
SELECT
LOWER
(
@
output
)
AS
Senha
;
go
--Exemplo
--exec NG0042_RandomSenha
--abc123
WL
SenhaRandomica is
string
=
Charact
(
Random
(
97
,
122
)
) +
Charact
(
Random
(
97
,
122
)
) +
Charact
(
Random
(
97
,
122
)
) +
Middle
(
Random
(
100
,
999
)
,
1
,
3
)
//abc123
Denunciar
0
0
adrianoboller
#2
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em maio, 21 2015 - 3:39 PM
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto