[VB.NET] Bypass Kodlamak ?

1

1Jeff

Developer & Coder
Ultra Member
Joined
Oct 20, 2019
Messages
725
Reaction score
446
Location
Helsinki
Bilginize : Kodlar Full Xspirit.sys Dosyasını Siler !

Bypass Kod 2 Şekilde Kodlanır

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

Şöyle :

GRmXvy.png
Code:
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


Şöyle :


Pk1zqQ.png


Ve Formun EN Üzerüne Form 1 Yazan En Üstteki Bölümün Üzerine Bu Kodlar Yazılcaktır!!
Code:
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


Şöyle:


1584113254185.png


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

Buton Oluşturup İçine Yazınız!!!


Code:
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

Forumun En Üzerüne Form1 yazan Yazınında Üzerine Bu KOD YAZILCAKTIR!!
Code:
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


Vee Burada Konumuzun Sonuna Geldik. Bypass'ı test edip söylerseniz sevinirim. Klasik bypass yöntemidir.
By Jeffizm
 
A

Aliço

Member
Joined
Jan 21, 2020
Messages
2
Reaction score
0
kardeşim fix bu bypass hiçbirşey bilmiiyorsan kurucularına sor bari açarken
 
SPAM IS FORBIDDEN!
  • SPAMMERS ARE BANNED FROM THE FORUM AND CANNOT USE ANY OF THE CHEATS
  • For example: thanks, thx, very good, asdqwe, working, ty and so on!
  • For example: Writing the same message over and over. thanks, thx and so on!
  • Copying and copying someone else's message is prohibited.
  • It is forbidden to send messages to increase the number of comments on threads that you have no knowledge of.
  • Write your own opinion when commenting!
  • If you see spam message, please let us know with the REPORT button!

Tema düzenleyici

Top Bottom