CREATE FUNCTION CreateHash(@Data text)
/*
Author : AKUMA
*/
RETURNS varbinary(255)
BEGIN
 DECLARE @Hash varbinary (255)
 SET @Hash = pwdencrypt(@Data)
 RETURN @Hash
END

CREATE FUNCTION CheckHash(@Data text,@Hash varbinary(255))
/*
Author : AKUMA
*/
RETURNS int
BEGIN
 DECLARE @CheckStatus int
 SET @CheckStatus = pwdcompare(@Data,@Hash)
 RETURN @CheckStatus
END

ALTER TABLE TB_USER ADD strPasswdBackup varbinary(255) NOT NULL DEFAULT 0;

DECLARE @strAccountID varchar(50),@strPasswd varchar(50),@strPasswdBackup varbinary(255)
DECLARE TB_USER CURSOR FOR
SELECT strAccountID,strPasswd,strPasswdBackup FROM TB_USER
OPEN TB_USER
FETCH NEXT FROM TB_USER INTO @strAccountID,@strPasswd,@strPasswdBackup
 WHILE (@@FETCH_STATUS = 0)
 BEGIN
 
 UPDATE TB_USER SET strPasswdBackup = dbo.CreateHash(@strPasswd) WHERE strAccountID = @strAccountID
 FETCH NEXT FROM TB_USER INTO @strAccountID,@strPasswd,@strPasswdBackup
 END
CLOSE TB_USER
DEALLOCATE TB_USER

ALTER TABLE TB_USER DROP COLUMN strPasswd;

EXEC sp_rename 'TB_USER.strPasswdBackup', 'strPasswd', 'COLUMN'

DECLARE @pwd varchar(13)
 
SET @pwd = null
 
SELECT @pwd = strPasswd FROM TB_USER WHERE strAccountID = @AccountID
IF @pwd IS null
BEGIN
 SET @nRet = 0
 RETURN
END
 
ELSE IF @pwd <> @Password
BEGIN
 SET @nRet = 0
 RETURN
END

DECLARE @pwd varbinary(255)
 
SET @pwd = null
 
SELECT @pwd = strPasswd FROM TB_USER WHERE strAccountID = @AccountID
 
IF @pwd IS null
BEGIN
 SET @nRet = 0
 RETURN
END
 
ELSE IF dbo.CheckHash(@Password,@pwd) <> 1
BEGIN
 SET @nRet = 0
 RETURN
END

-- # Auto Account Start #
SELECT @nRet = Count(strAccountId) FROM TB_USER WHERE strAccountId = @AccountID
IF @nRet = 0
BEGIN
INSERT INTO TB_USER (straccountid, strpasswd, strSocNo, idays) values (@AccountID, dbo.CreateHash(@password), 1, '6')
END
-- # Auto Account End #

CREATE PROCEDURE ACCOUNT_PASSWORD_CHANGE
(
@AccountID varchar(50),
@Password varchar(50)
)
AS
/*
Author : AKUMA
*/
BEGIN TRAN
DECLARE @AccountStatus tinyint
SELECT @AccountStatus = COUNT(strAccountID) FROM TB_USER WHERE strAccountID = @AccountID
IF @AccountStatus = 0
BEGIN
PRINT RTRIM(LTRIM(@AccountID)) + ' Adýnda Bir Hesap Bulunamadý.'
END
ELSE
BEGIN
UPDATE TB_USER SET strPasswd = dbo.CreateHash(@Password) WHERE strAccountID = @AccountID
PRINT RTRIM(LTRIM(@AccountID)) + ' Hesabýnýn Þifresi Deðiþmiþtir.'
END
COMMIT TRAN

Kullaným : EXEC ACCOUNT_PASSWORD_CHANGE 'HESAPID','ÞÝFRE'
Örnek : EXEC ACCOUNT_PASSWORD_CHANGE 'HESAPID','ÞÝFRE'

Kullaným : SELECT dbo.CreateHash('ÞÝFRE')
Örnek : SELECT dbo.CreateHash('123456')

Kullaným : SELECT dbo.CheckHash('Kontrol Edilecek Açýk Þifre','Userýn Hash Þifresi')
Örnek : SELECT dbo.CheckHash('123456',0x01008A7CE696AF938542D5BF1BF130CAF820E8BA072F3AA0AB49)
Bu Deðer Sonunda 0 Dönerse Þifre Yanlýþ, 1 Dönerse Þifre Doðru Demektir.