Knight Online Private Serverlar
Knight Online Private Serverlar

Knight Online Private Serverlar Hakkındaki Tüm Paylaşımlar.
 
AnasayfaTakvimSSSAramaÜye ListesiKullanıcı GruplarıKayıt OlGiriş yap

Paylaş | 
 

 [VB.NET]Basit Anti-Cheat Sistemi Anlatım

Aşağa gitmek 
YazarMesaj
Corleone
Administrator
Administrator
avatar

Tuttuğu Takım : Beşiktaşlı
Ruh Hâli : Neşeli
Mesaj Sayısı : 1541
Kullanıcı Puanı : 35001
Saygınlık : 10381
+500 Repliler
Üyelik Tarihi : 24/07/09
Yaş : 23
Şubesi : Ä°stanbul

MesajKonu: [VB.NET]Basit Anti-Cheat Sistemi Anlatım   Çarş. Ağus. 12, 2009 10:33 pm

SQL Bağlantısı

1) Projeye ADODB Reference ekliyoruz
Project >Add Reference>.COM > ActiveX Data Objects 2.8 Library ve Tıklıyoruz

2)Public değişkenleri atıyoruz
Kod:
Dim cn As New ADODB.Connection 'Adodb Bağlantısı için Access (cn)
Dim rs As New ADODB.Recordset ' Recordset Editlemek için (rs)

3)SQL ile bağlantı
Local Bağlantı
Kod:
With cn
.CursorLocation = ADODB.CursorLocationEnum.adUseClient
.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='DataBase'"
.Open()
End With

Uzak Bağlantı
Kod:
With cn
.CursorLocation = ADODB.CursorLocationEnum.adUseClient
.ConnectionString = "Provider=SQLOLEDB;Data Source='IP';Network Library=DBMSSOCN;Initial Catalog='DataBase';User ID='LoginID';Password='Pass';"
.Open()
End With


DB'ye Yazma / Okuma / Ekleme


1)RST
Kod:
rs.open("SQL Kodumuzu yazıyoruz ( select * ....)",cn,1,3)
rs.close (Önemli yazmazsak hata verir.)

Örnek :
Kod:
rs.open("select * from k_monster",cn,1,3)' Canavarların isimlerini gösteriri
listbox1.items.add(rs.fields("strname").value)'Canavarların isimlerini listbox'a ekler.
rs.close'Kapatıyoruz.


2)EXCUTE
Update , Insert , Exec , Delete..gibi şeyler kullanabiliriz.

Kod:
cn.execute"SQL Script Kodu"

Örnek:
Textbox1 'e yazılan userın authoritysini 0 yapar.
Kod:
cn.execute"Update Userdata Set Authority=0 where struserid=' "& textbox1.text &" ' "

Anti-Cheat Nasıl yapılır ?

1)Login Form Anti-Cheat
Kod:
cn.execute"Update UserData Set Secure=1 where struserid=' "& textbox1.text &" ' "

Biraz Check Örneği Anti-Cheat için

1) Dosya Boyutu Kontrolü EXE ya da TBL için
Kod:
Private Sub FileSizeCheck()
Dim fileDetail As IO.FileInfo
fileDetail = My.Computer.FileSystem.GetFileInfo("KnightOnline.exe")
If fileDetail.Length = "xxx" Then
Else
End If
End Sub

2) Dosya Oluşturma Tarihi Kontrolü EXE ya da TBL için
Kod:
Private Sub FileCreateTimeCheck()
Dim fileDetail As IO.FileInfo
fileDetail = My.Computer.FileSystem.GetFileInfo("KnightOnline.exe")
If fileDetail.CreationTime.Date = "xxx" Then
Else
End If
End Sub

3) KO Aktif mi Kontrolü
Kod:
Private Sub KOActiveCheck()
For Each proc As Process In Process.GetProcessesByName("Knight OnLine Client")
If proc.Responding Then

Else

End If
Next
End Sub

4)Hack amaçlı programlar açık mı kontrol ettirme [CheatEngine gibi] [Basit Metod]
Kod:
Private Sub OtherProcessChecks()
For Each Proc As Process In Process.GetProcesses
If Proc.ProcessName = "Cheat Engine.exe" Or "MYKO Hack.exe" Or "ArtMoney.exe" Then

Else

End If
Next
End Sub

5)KOModule Kontrolü
Kod:
Private Sub KOModuleCheck()
For Each proc As Process In Process.GetProcessesByName("Knight OnLine Client")
If proc.Modules.Count = "12" Then 'Modül sayısına göre kontrol ettiribilirsiniz.
Else

End If
Next

6)KOMemory Kontrolü [İyi bir yöntemdir hack programlarından korunmak için]
Kod:
Private Sub KOMemoryCheck()
For Each proc As Process In Process.GetProcessesByName("Knight OnLine Client")
My.Settings.FirstMemory = proc.VirtualMemorySize64
Next
End Sub
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://k2private.yetkin-forum.com
 
[VB.NET]Basit Anti-Cheat Sistemi Anlatım
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Knight Online Private Serverlar :: Programlama :: .NET Programlama Dilleri-
Buraya geçin: