Server Files Download Link:SOACS
Kanat Patch Download Link:KanatPatch
SOACS TBL EDITOR Download Link:KOTBL
PROSEDÜRLER
Kod:
CREATE PROCEDURE [dbo].[SOACS_LOGIN [MENTION=15298]account[/MENTION]ID varchar(21) [MENTION=41673]pass[/MENTION]word varchar(13),@IpAddress varchar(50),@HwID varchar(50),@nRet smallint OUTPUTAS
if(exists(select * from HardwareBanList where ltrim(rtrim(HWID)) = ltrim(rtrim(@HwID))))begin -- Blocked HardwareID SET @nRet = 4 RETURNendIF dbo.IsValidCharacters [MENTION=15298]account[/MENTION]ID) = 1BEGIN SET @nRet = 2 -- Hesap Bulunamady. RETURNEND
IF dbo.IsValidCharacters [MENTION=41673]pass[/MENTION]word) = 1BEGIN SET @nRet = 3 -- ?ifreniz Hatalydyr. RETURNEND
-- Oto Üyelikselect @nRet = count(straccountid) from tb_user where straccountid = [MENTION=15298]account[/MENTION]ID
if @nRet = 0BEGIN INSERT INTO TB_USER (strAccountID, strPasswd, strSocNo, iDays) VALUES [MENTION=15298]account[/MENTION]ID, [MENTION=41673]pass[/MENTION]word, 1, '6')END
------- Database By_Bts Tarafindan Hazirlanmistir. --------DECLARE [MENTION=199867]nat[/MENTION]ion tinyint, [MENTION=82071]cha[/MENTION]rNum smallintSET [MENTION=199867]nat[/MENTION]ion = 0SET [MENTION=82071]cha[/MENTION]rNum = 0DECLARE @pwd varchar(13)SET @pwd = nullSELECT @pwd = strPasswd FROM [dbo].[TB_USER] WHERE strAccountID = [MENTION=15298]account[/MENTION]IDIF @pwd IS nullBEGIN SET @nRet = 0 RETURNENDELSE IF @pwd <> [MENTION=41673]pass[/MENTION]wordBEGIN SET @nRet = 0 RETURNEND--CurrentUserdan Silelimdelete from currentuser where straccountid = [MENTION=15298]account[/MENTION]ID--Currentuser bitis---Login bilgilerini kaydetInsert Into HardwareLog values [MENTION=15298]account[/MENTION]ID,@IpAddress,ltrim(rtrim(@HwID)),getdate())--Login bilgileri bitisSELECT [MENTION=199867]nat[/MENTION]ion = bNation, [MENTION=82071]cha[/MENTION]rNum = bCharNum FROM ACCOUNT_CHAR WHERE strAccountID = [MENTION=15298]account[/MENTION]IDIF @@ROWCOUNT = 0BEGIN SET @nRet = 1 RETURNENDIF [MENTION=82071]cha[/MENTION]rNum >= 0BEGIN SET @nRet = 1 RETURNENDELSEBEGIN SET @nRet = [MENTION=199867]nat[/MENTION]ion+1 RETURNEND
Kod:
CREATE FUNCTION [dbo].[IsValidCharacters] [MENTION=49706]sda[/MENTION]ta varchar(8000))RETURNS INT AS
BEGIN
DECLARE [MENTION=49706]sda[/MENTION]taLen int DECLARE @Loop int DECLARE [MENTION=40184]Letter[/MENTION] varchar(1) DECLARE @RXLetters varchar(8000) DECLARE @Match tinyint SET @RXLetters = 'qwertyuopasdfghjklizxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM1234567890_' SET [MENTION=49706]sda[/MENTION]taLen = LEN [MENTION=49706]sda[/MENTION]ta) SET @Loop = 1 SET @Match = 0 WHILE @Loop < [MENTION=49706]sda[/MENTION]taLen + 1) BEGIN SET [MENTION=40184]Letter[/MENTION] = RTRIM(LTRIM(SUBSTRING [MENTION=49706]sda[/MENTION]ta,@Loop,1)))
IF CHARINDEX [MENTION=40184]Letter[/MENTION],@RXLetters) = 0 BEGIN SET @Match = 1 BREAK END SET @Loop = @Loop + 1 END RETURN @MatchEND
Kod:
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
Kod:
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
Kod:
create PROCEDURE [dbo].[HWBAN] -- Add the parameters for the stored procedure here@AccountID varchar(21),@HwID varchar(50)ASBEGIN SET NOCOUNT ON;
-- Insert statements for procedure here Insert Into HardwareBanList values [MENTION=15298]account[/MENTION]ID,@HwID,GETDATE()) PRINT [MENTION=15298]account[/MENTION]ID + ' hesabina ait ' + @HwID + ' seri no banlandi'END
içinde server filesler ve client klasörü vardır client klasörünü patch olarak atın.
server ip sini server.ini yazın değişir.
