PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → WX - SQL e WL
WX - SQL e WL
Débuté par adrianoboller, 21 mai 2015 15:38 - 1 réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 21 mai 2015 - 15:38
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
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 21 mai 2015 - 15:39
:merci: