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 RETURNENDKod:
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 @MatchENDKod:
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]GOKod:
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]GOKod:
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'ENDiç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.
![[IMG]](http://fbcdn-sphotos-f-a.akamaihd.net/hphotos-ak-xap1/v/t1.0-9/22626_1618897534995278_5655333374019174882_n.png?oh=b2b13b98084e4b8d0a21b78cd24ae892&oe=55CC10F9&__gda__=1439954692_86f988150f5d06e2917bef5d2631a1e2)
![[IMG]](http://scontent-lhr.xx.fbcdn.net/hphotos-xfp1/l/t31.0-8/11194519_1614845278733837_8874575620039816299_o.jpg)
![[IMG]](http://i.hizliresim.com/g5LZA3.png)
![[IMG]](http://i.hizliresim.com/94RzzN.gif)
![[IMG]](http://i.hizliresim.com/7k2j5W.gif)
![[IMG]](http://i.hizliresim.com/d5qknV.jpg)
![[IMG]](http://i.hizliresim.com/Oqd77D.gif)
![[IMG]](http://i.hizliresim.com/Nqbr3P.png)
![[IMG]](http://i.hizliresim.com/oAWjO9.png)
![[IMG]](http://fbcdn-sphotos-a-a.akamaihd.net/hphotos-ak-xpa1/t31.0-8/11187453_1618003315084700_4375242023850757271_o.jpg)
![[IMG]](http://scontent-cdg.xx.fbcdn.net/hphotos-xap1/t31.0-8/10847524_1617998265085205_1454136689847086892_o.jpg)
![[IMG]](http://i.hizliresim.com/94vB13.jpg)
![[IMG]](http://i.hizliresim.com/a5PZm4.jpg)
![[IMG]](http://i.hizliresim.com/kkZ5Jm.jpg)
![[IMG]](http://i.hizliresim.com/ZD17Va.jpg)
![[IMG]](http://i.hizliresim.com/qY306V.jpg)
![[IMG]](http://i.hizliresim.com/MEXQN7.jpg)
