eski konu silinmiş kim sildi bilmiyorum.dediğim gibi internet cafeden yaptım 1 2 saat anca baktım pek vaktim olmadı aceleye geldi biraz sorun çıkarsa pm atın.
özkanın yaptığı kanattır ilk yaptığı version daha sonrasını bilmiyorum yenisini parlıyo uçuyor bişiler oluyomuş bunda kıpraşma fln yokmuş bişi yokmuş da tam ney yokmuş bilmiyom
turkkodan bir resim buranın exesinide kullanabilirsiniz ama version farklı buranın version değiştirmeyi bi ara hatırlatın yaparım.
burada kendi serverımızdan çektiğimiz bir resim
Server Files Download Link:
***Hidden content cannot be quoted.***
KanatPatch Download Link:
***Hidden content cannot be quoted.***
SOACS TBLEDITOR Download Link:
***Hidden content cannot be quoted.***
Gerekli Prosedürler
Kod:
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
Kod:
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
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)
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
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.
Koray_10