Sitemizden Yararlanmak İçin

Sitemize Üye Olmalısınız

or Kayıt ol
Server Tanitimi , Ko Tanitimi , Silkroad Pvp Serverler , Metin2 Pvp Serverler

Gelişmiş İp Ban Sistemi

[XFB] Konu Bilgileri

Konu Hakkında Merhaba, tarihinde Knight Online Pvp Prosedür & Kod Paylaşımları kategorisinde Stark tarafından oluşturulan Gelişmiş İp Ban Sistemi başlıklı konuyu okuyorsunuz. Bu konu şimdiye dek 772 kez görüntülenmiş, 0 yorum ve 0 tepki puanı almıştır...
Kategori Adı Knight Online Pvp Prosedür & Kod Paylaşımları
Konu Başlığı Gelişmiş İp Ban Sistemi
Konbuyu başlatan Stark
Başlangıç tarihi
Cevaplar
Görüntüleme
İlk mesaj tepki puanı
Son Mesaj Yazan Stark

Stark

K.Destek Yöneticisi
Katılım
27 May 2013
Mesajlar
2,663
Tepkime puanı
10
Puanları
0
Not : Proclardan adımı silenlere hakkımı helal etmiyorum



Arkadaşlar Sizlere Kendi Yaptığım&Kullandığım İp Ban sistemini veriyorum.







ONCE QUERYE EKLENECEKLER









Kod:

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

drop table [dbo].[IPBAN]

GO



CREATE TABLE [dbo].[IPBAN] (

[account] [varchar] (21) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,

[IP] [char] (15) COLLATE SQL_Latin1_General_CP1_CI_AS NULL

) ON [PRIMARY]

GO



Kod:

CREATE PROCEDURE IP_BAN_AT

-- EXEC IP_BAN_AT 'CharAdi'

@Character char(21)

as

--created by JackaL

declare @Ozan varchar(21)

declare @ip varchar(50)

delete from IPBAN where Account = @Ozan

select @Ozan = strAccountID from Account_Char where strcharid1 = @Character or strcharid2 = @Character or strcharid3 = @Character

select @ip = ip from tb_user where strAccountID = @Ozan

INSERT INTO IPBAN ( account, ip ) Values ( @Ozan,@ip )

GO

--------------------------------------------

CREATE PROCEDURE IP_BAN_KALDIR

-- EXEC IP_BAN_KALDIR 'CharAdi'

@Character char(21)

as

--created by JackaL

declare @Ozan varchar(21)

declare @ip varchar(50)

delete from IPBAN where Account = @Ozan

select @Ozan = strAccountID from Account_Char where strcharid1 = @Character or strcharid2 = @Character or strcharid3 = @Character

DELETE FROM IPBAN WHERE account = @ozan

GO

--------------------------------------------

ALTER PROCEDURE PROC_INSERT_CURRENTUSER--SORUN CIKARSA

--CREATE YAPIP KENDİKİNİZLE DEGİSTİRİN

@AccountID varchar(50),

@CharID varchar(50),

@ServerNo int,

@ServerIP varchar(50),

@ClientIP varchar(50),

@nret smallint output



AS



INSERT INTO CURRENTUSER ( nServerNo, strServerIP, strAccountID, strCharID, strClientIP ) Values (@ServerNo, @ServerIP, @AccountID, @CharID, @ClientIP )

update tb_user set IP=@ClientIP where strAccountID = @AccountID--yeni eklenen

set @nret=1

GO



Kod:

--################ACCOUNT_LOGINE AS IN ALTINA BIRYERE EKLEYIN

--ip ban by jackal

--baslangic

/*

tablo = ipban

*/

update tb_user set ip = 0 where ip = Null

declare @jackal1 char(15)

declare @jackal2 char(15)

select @jackal1 = ip from tb_user where strAccountID = @AccountID

select @jackal2= ip from IPBAN where Account = @AccountID



if @jackal1=@jackal2

begin

Set @nRet = 4

RETURN

end

--ip ban by jackal

--bitis





--ip güncelleme

declare @aypi char(15)

set @aypi = (select strClientIP from currentuser where strAccountID = @AccountID)



update TB_USER set IP = @aypi where strAccountID = @AccountID

--ip güncelleme bitis

Kullanımı ...







1 Başlat > Tüm Programlar > Microsoft SQL Server > Query Analyzer ‘ a giriyoruz.



2 SQL Server’ a bağlanıyoruz ve açılan ekranda ” master ” yerine ” DBmizi ” seçiyoruz.



3 Seçtikten sonra aşağıdaki kodu kopyalayıp , yapıştırıyoruz ve F5 yaparak kodumuzu uyguluyoruz.







Konu JackaL Nıcklı Arkadaştan Alıtıdır
 
Üst