VB.NET XİGNCODE BYPASS


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: Koray    0 Yorum    449 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 30.07.2016, 23:14:35 #1
Koray slm nbr .s
******
Süper Moderator
Status: Çevrimdışı Yorum Sayısı:910 Konu Sayısı:300 Üyelik Tarihi:30.04.2016 Rep Puanı: 939

Merhaba arkadaşlar bugün sizlere vb.net'den xigncode bypass kodlamayı öğreticem.

Yazı
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("Wolfteam.bin") 'set wolfteam process
       If p.Count = 1 Then ' if wolfteam 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.

Video




Rep vermeyi unutmayınızz Smile

Kullanıcı İmzası
                                                              GökTürk olup yumulup (birleşip)
                                                   GökBörü (Bozkurt) olup uluduk 
                                                   Gökyüzü nurlu şule (ışık) olup
                                                   Gök taşa kuydu ılılık  


                                                                                                7AzkyN.jpg

mediavenus










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

Konuyu görüntüleyenler:
1 Misafir