VB.NET XİGNCODE BYPASS


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

Yazar: Koray    1 Yorum    771 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 30.07.2016, 23:14:35 #1
Koray slm nbr .s
Ultra Üye
Status: Çevrimdışı Yorumları:905 Konuları:300 Kayıt Tarihi:30.04.2016 Rep Puanı: 942

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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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:
1
2
3
4
5
6
7
8
9
10
11
12
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

Paylaşım Tarihi: 15.02.2017, 21:47:55 #2
erenozen45 Delikanlı
Onaylı Uye
Status: Çevrimiçi Yorumları:115 Konuları:13 Kayıt Tarihi:24.01.2017 Rep Puanı: 5

(SpecialFolder.Windows) Error veriyor

Kullanıcı İmzası
Resim http://i.hizliresim.com/r3LQoa.png
"Kendilerine biz hilecilerin kralıyız, en iyi hile forumu bizim forumumuz, bizden iyi hile yapan vs. yok diyerek sizi uyutan ve sizi kandıran, sabahlara kadar boktan hileler yayınlayan lamer forumlarından sıkıldıysanız, bu forum size göre dostum. Bizde yalan yok, biz en iyisiyiz."

DWORD HACK TEAM @ 2017










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

Konuyu Okuyanlar:
1 Ziyaretçi


MemoryHackers