Emektar Üye
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Bypass Kod 2 Şekilde Kodlanır[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]1-)Timer Yapıp Enabled Bölümünü True Yazıp İçine Şu Kodları Yazarak Oto Aktif Oluyor Bypass[/FONT][/FONT]
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[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Ve Formun EN Üzerüne Form 1 Yazan En Üstteki Bölümün Üzerine Bu Kodlar Yazılcaktır!!
[/FONT][/FONT][/FONT]
[/FONT][/FONT][/FONT]
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[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]2-) Buton Yoluyla Kodlama Buton İçine Aynı Kodları Yazarak Xincode Dolarken Basmaktır.[/FONT][/FONT][/FONT]
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[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Forumun En Üzerüne Form1 yazan Yazınında Üzerine Bu KOD YAZILCAKTIR!![/FONT][/FONT][/FONT][/FONT]
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#Alıntı
