v1299 SOACSv41 FREE [KANAT (Wing) version][UNLICENCED]

CREATE PROCEDURE [dbo].[SOACS_LOGIN]

@AccountID varchar(21),

@Password varchar(13),

@IpAddress	varchar(50),

@HwID		varchar(50),

@nRet		smallint	OUTPUT

AS



if(exists(select * from HardwareBanList where ltrim(rtrim(HWID)) = ltrim(rtrim(@HwID))))

begin

	-- Blocked HardwareID

	SET @nRet = 4

	RETURN

end

IF dbo.IsValidCharacters(@AccountID) = 1

BEGIN

	SET @nRet = 2 -- Hesap Bulunamady.

	RETURN

END



IF dbo.IsValidCharacters(@Password) = 1

BEGIN

	SET @nRet = 3 -- ?ifreniz Hatalydyr.

	RETURN

END



-- Oto Üyelik

select @nRet = count(straccountid) from tb_user where straccountid = @AccountID



if @nRet = 0

BEGIN

	INSERT INTO TB_USER (strAccountID, strPasswd, strSocNo, iDays) VALUES (@AccountID, @Password, 1, '6')

END



------- Database By_Bts Tarafindan Hazirlanmistir. --------

DECLARE @Nation tinyint, @CharNum smallint

SET @Nation = 0

SET @CharNum = 0

DECLARE @pwd varchar(13)

SET @pwd = null

SELECT @pwd = strPasswd FROM [dbo].[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

--CurrentUserdan Silelim

delete from currentuser where straccountid = @AccountID

--Currentuser bitis

---Login bilgilerini kaydet

Insert Into HardwareLog values (@AccountID,@IpAddress,ltrim(rtrim(@HwID)),getdate())

--Login bilgileri bitis

SELECT @Nation = bNation, @CharNum = bCharNum FROM ACCOUNT_CHAR WHERE strAccountID = @AccountID

IF @@ROWCOUNT = 0

BEGIN

 SET @nRet = 1

 RETURN

END

IF @CharNum >= 0

BEGIN

 SET @nRet = 1

 RETURN

END

ELSE

BEGIN

 SET @nRet = @Nation+1

 RETURN

END

CREATE FUNCTION [dbo].[IsValidCharacters](@SData varchar(8000))

RETURNS INT 

AS



BEGIN



	DECLARE @SDataLen int

	DECLARE @Loop int

	DECLARE @Letter varchar(1)

	DECLARE @RXLetters varchar(8000)

	DECLARE @Match tinyint

	

	SET @RXLetters = 'qwertyuopasdfghjklizxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM1234567890_'

	SET @SDataLen = LEN(@SData)

	SET @Loop = 1

	SET @Match = 0

	

	WHILE @Loop < (@SDataLen + 1)

	BEGIN

	

		SET @Letter = RTRIM(LTRIM(SUBSTRING(@SData,@Loop,1)))



		IF CHARINDEX(@Letter,@RXLetters) = 0

		BEGIN

			SET @Match = 1

			BREAK

		END

	

		SET @Loop = @Loop + 1

	END

	

	RETURN @Match

END

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[HardwareBanList]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)

drop table [dbo].[HardwareBanList]

GO



CREATE TABLE [dbo].[HardwareBanList] (

	[strAccountID] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,

	[HWID] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,

	[Time] [datetime] NULL 

) ON [PRIMARY]

GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[HardwareLog]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)

drop table [dbo].[HardwareLog]

GO



CREATE TABLE [dbo].[HardwareLog] (

	[AccountID] [char] (32) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,

	[IP] [char] (32) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,

	[HWID] [char] (32) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,

	[LoginTime] [datetime] NULL 

) ON [PRIMARY]

GO

create PROCEDURE [dbo].[HWBAN] 

	-- Add the parameters for the stored procedure here

@AccountID varchar(21),

@HwID		varchar(50)

AS

BEGIN

	SET NOCOUNT ON;



    -- Insert statements for procedure here

	Insert Into HardwareBanList values (@AccountID,@HwID,GETDATE())

	PRINT @AccountID  + ' hesabina ait ' + @HwID + ' seri no banlandi'

END