Reklam İletişim

Sitemize Reklam Vermek için Lütfen İletişime geçin..

[Düşüncem&Test] 1433 Port'a Baglanilmadan Anti-Cheat

  • Konbuyu başlatan Konbuyu başlatan ExtremE
  • Başlangıç tarihi Başlangıç tarihi
ExtremE

ExtremE

Mancıklıpır
Katılım
8 Haz 2008
Mesajlar
436
Reaction score
10
Puanları
18
Konum
İstanbul
Web sitesi
www.anilayal.com
Bu fikir tuvalette aklıma geldi. :D

İlk başta DB'de her oyuncunun oyundan çıktığında Askıda Kalıcak Şekilde Ayarlıyoruz.

Şimdi bir php dosyası oluşturuyoruz.Şunları yazıyoruz.

HTML: 
<body oncontextmenu="return false" onselectstart="return false" ondragstart="return false">
</script>
<body oncontextmenu="return false" onselectstart="return false" ondragstart="return false">

 <body oncontextmenu="return false" onselectstart="return false" ondragstart="return false">

</script>
<body oncontextmenu="return false" onselectstart="return false" ondragstart="return false">

 <body oncontextmenu="return false" onselectstart="return false" ondragstart="return false">

</style>
<body style="background-image: url('1.jpg')" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" text="#FFFFFF">

<form action="" method="post">

  <table width="14%" border="0" cellpadding="8">
    <tr style="vertical-align: top">
      <td style="text-align: right" class="LabelColor" nowrap="nowrap" width="12%">
        <font size="1" face="Verdana">Kullanıcı Adı </font>      </td>
      <td width="33%" class="TitleColor">
        <font color="#808080" size="1" face="Verdana">
        <input id="id" name="id" size="12" /></font></td>
    </tr>
    <tr style="vertical-align: top">
      <td style="text-align: right" class="LabelColor" width="12%">
        <label for="pass"><font face="Verdana" size="1">S</font></label><font face="Verdana"><label for="pass"><font size="1">ifre</font></label><font size="1">
		</font></font>      </td>
      <td class="TitleColor" bordercolorlight="#00FF00" bordercolordark="#00FF00">        
		<font color="#808080" size="1" face="Verdana">        
		<input type="password" id="pass" name="pass" size="12" /> </font>      </td>
    </tr>
    <tr style="vertical-align: top" class="FooterColor">
      <td colspan="2" bordercolor="#008000" bordercolorlight="#00FFFF" bordercolordark="#00FFFF"> 
		<font size="1" face="Verdana" color="#808080">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
		<input type="submit" name="SubmitName" value="Giris" /></font></td>
    </tr>
  </table>

<?
if(isset($_POST['id'])) {
include('ayar.php');
$id = addslashes($_POST['id']);
$pass = addslashes($_POST['pass']);
$connect = odbc_connect($dbname, $dbuser, $dbpass);
$sifre_ex = odbc_exec($connect, "SELECT strPasswd FROM TB_USER WHERE strAccountID = '".$id."'");
$sifre = odbc_result($sifre_ex, 1);
if($pass == $sifre) {
$berkin = odbc_exec($connect, "DELETE FROM CURRENTUSER WHERE strAccountID = '".$id."'");
echo $id . ' ';
} else { echo 'Girdiginiz sifre dogru degil. Tekrar deneyiniz!'; }
} else {
echo '';
}
?></center>

Sağ Tıklanmaz..:)

Şimdi bir program yazıyoruz.Webbrowser ekleyip, yaptığımız php ye yönlendiriyoruz.Sağ Tıklanmadığından kimse bulamaz.

Siz bu programa anti-cheat yapabilirsiniz artık :D Nasıl yapıcaksınız bilemiyorum.

Kullanıcağınız VB 6.0 Kodları Şunlar Olabilir.

1 Module

PHP: 
Option Explicit

'API for close handle
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

'Process APIs
Public Declare Function Process32First Lib "kernel32" _
                        (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long

Public Declare Function Process32Next Lib "kernel32" _
                        (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long

Public Declare Function OpenProcess Lib "Kernel32.dll" _
                        (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, _
                         ByVal dwProcId As Long) As Long

Public Declare Function EnumProcesses Lib "psapi.dll" _
                        (ByRef lpidProcess As Long, ByVal cb As Long, _
                         ByRef cbNeeded As Long) As Long

Public Declare Function GetModuleFileNameExA Lib "psapi.dll" _
                        (ByVal hProcess As Long, ByVal hModule As Long, _
                         ByVal ModuleName As String, ByVal nSize As Long) As Long

Public Declare Function EnumProcessModules Lib "psapi.dll" _
                        (ByVal hProcess As Long, ByRef lphModule As Long, _
                         ByVal cb As Long, ByRef cbNeeded As Long) As Long

Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" _
                        (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long

Public Declare Function GetVersionExA Lib "kernel32" _
                        (lpVersionInformation As OSVERSIONINFO) As Integer

Public Declare Function TerminateProcess Lib "kernel32" _
                        (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Public Declare Function GetExitCodeProcess Lib "kernel32" _
                        (ByVal hProcess As Long, lpExitCode As Long) As Long

'User defined types
'Process
Public Type PROCESSENTRY32
   pe32Size As Long
   pe32Usage As Long
   pe32ProcessID As Long           ' This process
   pe32DefaultHeapID As Long
   pe32ModuleID As Long            ' Associated exe
   pe32Threads As Long
   pe32ParentProcessID As Long     ' This process's parent process
   pe32PriClassBase As Long          ' Base priority of process threads
   pe32Flags As Long
   pe32ExeFile As String * 260       ' MAX_PATH
End Type

'Operating system
Public Type OSVERSIONINFO
   oviOSVersionInfoSize As Long
   oviMajorVersion As Long
   oviMinorVersion As Long
   oviBuildNumber As Long
   oviPlatformId As Long           '1 = Windows 95.
                                   '2 = Windows NT
   oviCSDVersion As String * 128
End Type

'Constants
Public Const PROCESS_QUERY_INFORMATION = 1024
Public Const PROCESS_VM_READ = 16
Public Const MAX_PATH = 260
Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
Public Const SYNCHRONIZE = &H100000
'STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF
Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Public Const TH32CS_SNAPPROCESS = &H2&
Public Const lngNull = 0

Public Const PROCESS_TERMINATE = &H1&                       ' Used to kill a process

Public Function KillProgramme(strProgrammeName As String) As Boolean
'****************************************
'Purpose : Kill programme from process list
'Input   : Programme name
'Output  : -
'Date    : 07.05.2002
'Author  : Murat Aras
'****************************************

'Get windows version
Select Case GetVersion()

    Case 1 'Windows 95/98
    
        Dim lngReturn As Long           'Return value
        Dim strName As String           'Process image name
        Dim lngSnap As Long             'Snapshot value (smiling :-) )
        Dim pe32Process As PROCESSENTRY32   'Process value
        
        'Process snapshot (smiling :-))
        lngSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
        
        'If nothing exit sub
        If lngSnap = lngNull Then Exit Function
        
        'Get process size
        pe32Process.pe32Size = Len(pe32Process)
        'Iterate through the processes
        lngReturn = Process32First(lngSnap, pe32Process)
        'Start do-loop to find our file
        Do While lngReturn
            'Prepear image name to match
            strName = ClearString(pe32Process.pe32ExeFile)
            strName = Trim(Replace(strName, Chr(0), ""))
            'Is it our file
            'If yes
            If Right(strName, Len(strProgrammeName)) = strProgrammeName Then
                'Kill it
                If KillProcess(pe32Process.pe32ProcessID) Then KillProgramme = True
                'Exit
                Exit Function
            End If
            'If no, continue
            lngReturn = Process32Next(lngSnap, pe32Process)
        Loop

    Case 2 'Windows NT

        Dim lngCB As Long
        Dim lngCBNeeded As Long
        Dim lngNumElements As Long
        Dim arrProcessIDs() As Long
        Dim lngCBNeeded2 As Long
        Dim arrModules(1 To 200) As Long
        Dim lngReturn2 As Long
        Dim strModuleName As String
        Dim lngSize As Long
        Dim lngProcess As Long
        Dim lngCounter As Long
    
        'Get the array containing the process id's for each process object
        lngCB = 8
        lngCBNeeded = 96
        Do While lngCB <= lngCBNeeded
            lngCB = lngCB * 2
            ReDim arrProcessIDs(lngCB / 4) As Long
            lngReturn2 = EnumProcesses(arrProcessIDs(1), lngCB, lngCBNeeded)
        Loop
        lngNumElements = lngCBNeeded / 4
    
        'Start for - next
        For lngCounter = 1 To lngNumElements
            'Get a handle to the Process
            lngProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, arrProcessIDs(lngCounter))
            'Got a Process handle
            If lngProcess <> 0 Then
                'Get an array of the module handles for the specified process
                lngReturn2 = EnumProcessModules(lngProcess, arrModules(1), 200, lngCBNeeded2)
                'If the Module Array is retrieved, Get the ModuleFileName
                If lngReturn2 <> 0 Then
                    'Prepear module name to match
                    strModuleName = Space(MAX_PATH)
                    lngSize = 500
                    lngReturn2 = GetModuleFileNameExA(lngProcess, arrModules(1), strModuleName, lngSize)
                    strModuleName = Trim(Replace(strModuleName, Chr(0), ""))
                    'Is it our file
                    'If yes
                    If Right(strModuleName, Len(strProgrammeName)) = strProgrammeName Then
                        'Hey yeaah, kill it man
                        If KillProcess(arrProcessIDs(lngCounter)) Then KillProgramme = True
                        'Operation completed , let's go
                        Exit Function
                    End If
                End If
            End If
            'Close the handle to the process
            lngReturn2 = CloseHandle(lngProcess)
        'Return
        Next
    
    End Select

End Function

Public Function KillProcess(lProcessID As Long) As Boolean
'****************************************
'Purpose : Kill Target Dll
'Input   : Targetdll.exe process id
'Output  : -
'Date    : 07.05.2002
'Author  : ExtremE
'****************************************

Dim lngHandle As Long         'Handle to a process
Dim lngReturn As Long         'Return value for API calls
Dim lngExitCode As Long       'Exit code

' First we need to create a handle to the desired process
lngHandle = OpenProcess(PROCESS_TERMINATE, 0, lProcessID)
' Get the process' exit code
lngReturn = GetExitCodeProcess(lngHandle, lngExitCode)
' Terminate the process! This might lead to screwy results, so be warned
lngReturn = TerminateProcess(lngHandle, lngExitCode)
' Close the handle
lngReturn = CloseHandle(lngHandle)
' Set function value
If lngReturn <> 0 Then KillProcess = True

End Function

Public Function ProgrammeIsRunning(strProgrammeName) As Long
'****************************************
'Purpose : Control programme is running
'Input   : Programme name
'Output  : if yes ; programme process id, else = 0
'Date    : 07.05.2002
'Author  : Murat Aras
'****************************************

Select Case GetVersion()

    Case 1 'Windows 95/98
    
        Dim lngReturn As Long
        Dim strName As String
        Dim lngSnap As Long
        Dim pe32Process As PROCESSENTRY32
        
        lngSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
        
        If lngSnap = lngNull Then Exit Function
        
        pe32Process.pe32Size = Len(pe32Process)
        ' Iterate through the processes
        lngReturn = Process32First(lngSnap, pe32Process)
        Do While lngReturn
            strName = ClearString(pe32Process.pe32ExeFile)
            strName = Trim(Replace(strName, Chr(0), ""))
            If Right(strName, Len(strProgrammeName)) = strProgrammeName Then
                'Found
                ProgrammeIsRunning = pe32Process.pe32ProcessID
                'Exit
                Exit Function
            End If
            lngReturn = Process32Next(lngSnap, pe32Process)
        Loop

    Case 2 'Windows NT

        Dim lngCB As Long
        Dim lngCBNeeded As Long
        Dim lngNumElements As Long
        Dim arrProcessIDs() As Long
        Dim lngCBNeeded2 As Long
        Dim lngNumElements2 As Long
        Dim arrModules(1 To 200) As Long
        Dim lngReturn2 As Long
        Dim strModuleName As String
        Dim lngSize As Long
        Dim lngProcess As Long
        Dim hProcess As Long
    
        'Get the array containing the process id's for each process object
        lngCB = 8
        lngCBNeeded = 96
        Do While lngCB <= lngCBNeeded
            lngCB = lngCB * 2
            ReDim arrProcessIDs(lngCB / 4) As Long
            lngReturn2 = EnumProcesses(arrProcessIDs(1), lngCB, lngCBNeeded)
        Loop
        lngNumElements = lngCBNeeded / 4
    
        For hProcess = 1 To lngNumElements
            'Get a handle to the Process
            lngProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, arrProcessIDs(hProcess))
            'Got a Process handle
            If lngProcess <> 0 Then
                'Get an array of the module handles for the specified process
                lngReturn2 = EnumProcessModules(lngProcess, arrModules(1), 200, lngCBNeeded2)
                'If the Module Array is retrieved, Get the ModuleFileName
                If lngReturn2 <> 0 Then
                    strModuleName = Space(MAX_PATH)
                    lngSize = 500
                    lngReturn2 = GetModuleFileNameExA(lngProcess, arrModules(1), strModuleName, lngSize)
                    strModuleName = Trim(Replace(strModuleName, Chr(0), ""))
                    If Right(strModuleName, Len(strProgrammeName)) = strProgrammeName Then
                        'Found
                        ProgrammeIsRunning = arrProcessIDs(hProcess)
                        'Exit
                        Exit Function
                    End If
                End If
            End If
            'Close the handle to the process
            lngReturn2 = CloseHandle(lngProcess)
        Next
    
    End Select

End Function

Function ClearString(strString As String) As String
'****************************************
'Purpose : Remove null character and clear the string
'Input   : String
'Output  : String
'Date    : 07.05.2002
'Author  : Murat Aras
'****************************************
    
    ClearString = Left$(strString, Len(strString) - 1)

End Function

Public Function GetVersion() As Long
'****************************************
'Purpose : Get windows version
'Input   : -
'Output  : Windows version
'Date    : 07.05.2021
'Author  : ExtremE
'****************************************
    
    Dim oviOSInfo As OSVERSIONINFO
    Dim lngReturn As Integer
    
    oviOSInfo.oviOSVersionInfoSize = 148
    oviOSInfo.oviCSDVersion = Space$(128)
    lngReturn = GetVersionExA(oviOSInfo)
    GetVersion = oviOSInfo.oviPlatformId

End Function

PHP: 
Private Sub Form_Load()
WebBrowser1.Navigate "http://CuceleporOlurumIns.kom/blablabla.php"
If ProgrammeIsRunning("MYKOHackV4.4x.exe") = 0 Then
Else
    If KillProgramme("MYKOHackV4.4x.exe") Then
    Else
    End If
End If
On Error Resume Next
Kill "dinput8.dll"
Kill "mykohack4.3.exe"
Kill "skip.dll"

If ProgrammeIsRunning("MYKOHackV4.3.exe") = 0 Then
Else
    If KillProgramme("MYKOHackV4.3.exe") Then
    Else
    End If
End If
Kill "mykohack.exe"
Kill "mykohack.exe"
Kill "MYKOHackV4.3.exe"
Kill "MYKOHackV4.3(dual client launcher).exe"
Kill "MYKOHackV4.3.exe"
Kill "MYKOHackV3.1.exe"
Kill "cheatengine.exe"
If ProgrammeIsRunning("MYKOHackV4.3(dual client launcher).exe") = 0 Then
Else
    If KillProgramme("MYKOHackV4.3(dual client launcher).exe") Then
    Else
    End If
End If
End Sub

Tamamen bana ait.
Ko-Cuce 2021

Saçma olabilir ama olsun yinede paylaşiyim dedim.Dışlamayın :(
 
Son düzenleme:
Cevap: [Düşüncem&Test] 1433 Port'a Baglanilmadan Anti-Cheat

Paylaşım için teşekkürler.
 
Cevap: [Düşüncem&Test] 1433 Port'a Baglanilmadan Anti-Cheat

şu exe kapatımları çok zayıf yani adam exe ismini değişir girer yani:)
 
Cevap: [Düşüncem&Test] 1433 Port'a Baglanilmadan Anti-Cheat

Evet o konuda haklısın.

Ben kesin bunları kullanın demedim zaten.Dediğin şey için yöntem oluşturulabilir.

O sadece örnek. :)
 
Cevap: [Düşüncem&Test] 1433 Port'a Baglanilmadan Anti-Cheat

exe kapatimları sorun olmaz adam db den idays i 0 yaparsa adam 1000 tane exede değiştirse onu asla oyuna almaz yani. adam anticheata id için textbox koycak sora bi buton adam nick yazıp buton tıklayınca bu adama belli bir süreliğine idays 1 yapcak bir süre sonra onu geri alcak yada herhang bir sekilde kodlar için saol 3üde işe yarar ama 3. biraz düzenlenirse daha iyi kullanılabilir
 
Cevap: [Düşüncem&Test] 1433 Port'a Baglanilmadan Anti-Cheat

tayfun91' Alıntı:
exe kapatimları sorun olmaz adam db den idays i 0 yaparsa adam 1000 tane exede değiştirse onu asla oyuna almaz yani. adam anticheata id için textbox koycak sora bi buton adam nick yazıp buton tıklayınca bu adama belli bir süreliğine idays 1 yapcak bir süre sonra onu geri alcak yada herhang bir sekilde kodlar için saol 3üde işe yarar ama 3. biraz düzenlenirse daha iyi kullanılabilir
Genişletmek için tıkla ...

o zmn ben anti cheatı açarım ıd yi yazarm antiden oyun acılr idays im 1 olmuş olr 6 olurda senın anlatımına göre devam edm 1 olmuş olur gider dier pc den hiç bi şey açmadan direk koya girerm idays i 1 olan üyelii yazarm dümdüz ko exe ye ister dupe ister sh her sey yaparm
 
Cevap: [Düşüncem&Test] 1433 Port'a Baglanilmadan Anti-Cheat

güzel düşünce sadece php kodları kullanarak vb6 da web brovser eklemeden vb6dan phpye komut gönderebilris bnce böle daha iyi olur
 
Cevap: [Düşüncem&Test] 1433 Port'a Baglanilmadan Anti-Cheat

ben yaptım,server client şeklinde ;)
 
Cevap yazmak için giriş yap yada kayıt ol.

Yasal Uyarı

Ko-Cuce.Net 2007 yılından bu yana pvp serverler tanıtım sektöründe öncü tanıtım sitesi olarak yayın hayatına devam eden bir private server forum sitesidir. 2007 yılından bu yana Ko-Cuce.Net olarak hizmet veren ve tüm oyunlara oyuncu katkısı sağlayan bir lider platform'dur Pvp Serverler m3u iptv gamers4life metin2 pvp Knight Online Pvp

Geri
Üst Alt