ByPass Kodu Olan Varmı


Wolfteam Hile Teknik Yardım   

Yazar: LibertusCoder    1 Yorum    232 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 21.05.2016, 18:19:15 #1
LibertusCoder Ağabey
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:212 Konu Sayısı:83 Üyelik Tarihi:15.05.2016 Rep Puanı: 26

Herkese Merhaba Arkadaşlar Sizden Bişey İsticem 
ByPass Kodu Olan Varmı Veya Nasıl Yapıldına Dahil

Kullanıcı İmzası
[img=0x101]http://i.hizliresim.com/EJpEVq.gif[/img]
Paylaşım Tarihi: 21.05.2016, 18:20:47 #2
ByNeon Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:29 Konu Sayısı:6 Üyelik Tarihi:24.04.2016 Rep Puanı: 0

Kod:
bu kod form un üstüne eklenecek
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












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 & "wolfteam.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









Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir