Bypass ve oto

[IzzetEfe15TR]

arkadaşlar hile kodlamaya çalışıyorum bypass ve oto lar herzaman sabitmi oluyor yoksa değişiyor

şuanda elimde şunlar var

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)
            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
        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)
            End If
            If My.Computer.FileSystem.FileExists((folderPath & "\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
            If My.Computer.FileSystem.FileExists((folderPath & "\xigncode")) Then

            End If
            FileSystem.FileOpen(1, (folderPath & "\xigncode"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
        Catch ex As Exception

        End Try




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

Dim enumerator As IEnumerator

 Dim process As Process = process.GetProcessesByName("wolftü.bin")(0)

 Try

 enumerator = process.Modules.GetEnumerator

 Do While enumerator.MoveNext

 Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)

 If (current.FileName.IndexOf("csh") <> -1) Then

 Me.Label1.Text = current.BaseAddress.ToString

 End If

 If (current.FileName.IndexOf("bin") <> -1) Then

 Me.Label2.Text = current.BaseAddress.ToString

 End If

 If (current.FileName.IndexOf("obj") <> -1) Then

 Me.Label3.Text = current.BaseAddress.ToString

 End If

 Loop

 Finally

 If TypeOf enumerator Is IDisposable Then

 TryCast(enumerator, IDisposable).Dispose()

 End If

 End Try

Güncelleri Varsa Konu Açarmısınız Veya Bu Konuyu Cevaplarmısnız.

 

[manga6868]

otolar değişmiyor ama bypass değişiyor diye biliyorum bazen log hatası o yüzden oluyor

 

[IzzetEfe15TR]

otolar değişmiyor ama bypass değişiyor diye biliyorum bazen log hatası o yüzden oluyor

Bypass Varsa Atarmısın?

 

[Jacquelyn]

oto ve bypass vb.net için değişmiyor ayrıca artan bu log hatalarının nedeni firmanın stringleri fixlemesidir.Bypass artık tek başına yeterli olmuyor