VB.Net ByPass Kodu

CL4Y3R' Alıntı:

Beyler bu kod sayesinde oyun güvenlik programlarına bypass yapabilirsiniz.

[hide]
1-)Timer Yapıp Enabled Bölümünü True Yazıp İçine Şu Kodları Yazarak Oto Aktif Oluyor Bypass

Kod:

Try
            Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Windows)
            FileSystem.FileClose(New Integer() {1})
            FileSystem.FileClose(New Integer() {2})
            If My.Computer.FileSystem.FileExists((folderPath & -\xspirit.sys")) Then
                FileSystem.FileOpen(1, (folderPath & -\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

            Else
                File.WriteAllBytes((folderPath & -\xspirit.sys"), New Byte() {0})
                FileSystem.FileOpen(1, (folderPath & -\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
                ReactorTextBox1.Text = ("Erişim Engellendi -)
            End If
            If My.Computer.FileSystem.FileExists((folderPath & "Wolftü.bin\xhunter1.sys")) Then
                FileSystem.FileOpen(2, (folderPath & -\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

            Else
                File.WriteAllBytes((folderPath & -\xhunter1.sys"), New Byte() {0})
                FileSystem.FileOpen(2, (folderPath & -\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

            End If
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim ex As Exception = exception1
            ProjectData.SetProjectError(ex)
            Dim exception As Exception = ex
            ProjectData.ClearProjectError()
            ProjectData.ClearProjectError()
        End Try

[size=small]ve Formun En üstüne Form 1 Yazan En Üstteki Bölümün Üzerine Bu Kodlar Yazılacaktır!![/size]

Kod:

Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms
Imports System.Environment

2-) Buton Yoluyla Kodlama Buton İçine  Aynı Kodları Yazarak Xincode Dolarken Basmaktır (Tavsiye Etmem)

Kod:

Try
            Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Windows)
            FileSystem.FileClose(New Integer() {1})
            FileSystem.FileClose(New Integer() {2})
            If My.Computer.FileSystem.FileExists((folderPath & -\xspirit.sys")) Then
                FileSystem.FileOpen(1, (folderPath & -\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

            Else
                File.WriteAllBytes((folderPath & -\xspirit.sys"), New Byte() {0})
                FileSystem.FileOpen(1, (folderPath & -\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
                ReactorTextBox1.Text = ("Erişim Engellendi -)
            End If
            If My.Computer.FileSystem.FileExists((folderPath & "Wolftü.bin\xhunter1.sys")) Then
                FileSystem.FileOpen(2, (folderPath & -\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

            Else
                File.WriteAllBytes((folderPath & -\xhunter1.sys"), New Byte() {0})
                FileSystem.FileOpen(2, (folderPath & -\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

            End If
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim ex As Exception = exception1
            ProjectData.SetProjectError(ex)
            Dim exception As Exception = ex
            ProjectData.ClearProjectError()
            ProjectData.ClearProjectError()
        End Try

[/hide]
Bu kadar kolay iyi günler..

Genişletmek için tıkla ...