PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → WX - Cripta e ChecaCripta em MS SQL Server para usar com o Windev, Webdev e Windev Mobile
WX - Cripta e ChecaCripta em MS SQL Server para usar com o Windev, Webdev e Windev Mobile
Débuté par BOLLER, 07 aoû. 2017 23:33 - Aucune réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 07 août 2017 - 23:33
Cripta
/****** Object: StoredProcedure [dbo].[CriptarString] Script Date: 07/08/2017 18:13:48 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

CREATE PROCEDURE [dbo].[CriptarString] @TextoAcriptar varchar(1024)
AS
BEGIN
SET NOCOUNT ON;

declare @pwd varbinary(100)

set @pwd = Convert(varbinary(100), pwdEncrypt(@TextoAcriptar))

select @pwd
END


Modo de usar
exec CriptarString 'Darci.Leandro'


Retorno
0x02007411A5D8CA228451476E9F0CC12D2182D3EF08C2269444ED74D74ED5066D603E5C655D178A4DBC204CAA6B0C56ADFAB62D8D4BE1C5949C854706433C336EB01E95719B43



ChecaCripta
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER PROCEDURE ChecaCripta @Texto varchar(1024), @SenhaBinaria varbinary(100)
AS
BEGIN
SET NOCOUNT ON;

select pwdCompare(@Texto, @SenhaBinaria, 0) as Retorno

END
GO


Modo de usar
ChecaCripta 'Darci.Leandro', 0x02007411A5D8CA228451476E9F0CC12D2182D3EF08C2269444ED74D74ED5066D603E5C655D178A4DBC204CAA6B0C56ADFAB62D8D4BE1C5949C854706433C336EB01E95719B43


Retorno
1


Se for falso a checagem é Zero

Simples assim

:merci:

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Message modifié, 07 août 2017 - 23:35