PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WX - SQL e WL
WX - SQL e WL
Iniciado por adrianoboller, mai., 21 2015 3:38 PM - 1 resposta
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
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em maio, 21 2015 - 3:39 PM
:merci: