VB.NET XİGNCODE BYPASS

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Nothing.
Süper Üye
Katılım
30 Nis 2016
Mesajlar
957
Tepki puanı
37
10 HİZMET YILI
Merhaba arkadaşlar bugün sizlere vb.net'den xigncode bypass kodlamayı öğreticem.


5 label ekleyin ilk 3'ünü istediğinizi yazın bekleniyor gibi sunar gibi.
4 ve 5'i textden label yazısını silin gizlemiş oluruz.
1 timer ekleyelim.Enabledini true yapalım.
Timere Gelecek Kod : 
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)
                Label4.Text = ("Erişim Engellendi ")
            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)
                Label5.Text = ("Erişim Engellendi")
            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
        Dim p As Process()
        p = Process.GetProcessesByName("wolftü.bin") 'set wolftü process
        If p.Count = 1 Then ' if wolftü process detected
            Label4.Text = ("XignCode Clear Başarılı")
            Label5.Text = ("XignCode Clear Başarılı")
End If


Public Clasın Üstüne Gelecek Kod : 
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

Build yapıp kaydedelim.



Rep vermeyi unutmayınızz
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...