Vb.net'den Wolfteam ByPass Code - x60


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

Yazar: x60    165 Yorum    6951 Görüntüleme
  • Derecelendirme: 4/5 - 2 oy

Paylaşım Tarihi: 30.01.2016, 13:17:23 #1
x60 #Requiem
Cezalı Üye
Status: Çevrimdışı Yorumları:545 Konuları:161 Kayıt Tarihi:18.11.2015

BEYLER BU KODLA BYPASSIZ HİLE YAPICAKSINIZ AYNI C++ GİBİ İSTEDİGİNİZ ZAMAN AÇICAKSINIZ 2 SAAT DE BYPASS KURMAYA UGRAŞMICAKSINIZ .! O KADAR YAZMIŞIM + 1 REP 'i FAZLA GÖRMEYİN .

[hide]




Bypass Kod  2 Şekilde Kodlanır

1-)Timer Yapıp Enabled Bölümünü True Yazıp İçine Şu Kodları Yazarak Oto Aktif Oluyor Bypass

Şöyle :
Resim http://i.hizliresim.com/GRmXvy.png

PHP 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
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
            ProjectData.ClearProjectError()
            ProjectData.ClearProjectError()
        End Try 


Şöyle :

Resim http://i.hizliresim.com/Pk1zqQ.png
Ve Formun EN Üzerüne Form 1 Yazan En Üstteki Bölümün Üzerine Bu Kodlar Yazılcaktır!!


PHP 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 


  
Şöyle:
Resim http://i.hizliresim.com/ljqRLl.png

2-) Buton Yoluyla Kodlama Buton İçine  Aynı Kodları Yazarak Xİncode Dolarken Basmaktır (Tavsiye Etmem)

Buton Oluşturup İçine Yazınız!!!

PHP 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
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
            ProjectData.ClearProjectError()
            ProjectData.ClearProjectError()
        End Try 


Forumun En Üzerüne Form1 yazan Yazınında Üzerine Bu KOD YAZILCAKTIR!!

PHP 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 

[/hide]

Son Düzenleme: 27.03.2016, 13:11:37, Düzenleyen: x60.

Paylaşım Tarihi: 30.01.2016, 13:18:00 #2
x60 #Requiem
Cezalı Üye
Status: Çevrimdışı Yorumları:545 Konuları:161 Kayıt Tarihi:18.11.2015

Lütfen Sabit  Big Grin  Big Grin

Paylaşım Tarihi: 30.01.2016, 13:18:45 #3
MahsunBasgan Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorumları:32 Konuları:0 Kayıt Tarihi:30.01.2016

bakalım Smile

Paylaşım Tarihi: 30.01.2016, 15:58:45 #4
AlpBenjamins Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorumları:269 Konuları:118 Kayıt Tarihi:28.11.2015

Güzel Eyw Smile

Paylaşım Tarihi: 30.01.2016, 16:00:27 #5
Kaneki_kun Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorumları:43 Konuları:4 Kayıt Tarihi:29.01.2016 Rep Puanı: 0

Guncelll

Paylaşım Tarihi: 30.01.2016, 16:03:32 #6
SLayeRTR Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorumları:52 Konuları:4 Kayıt Tarihi:29.01.2016

Sağol kardeş ama alıntı bu. Alıntı olduğunu belirt bence Big Grin
Son Düzenleme: 30.01.2016, 16:04:27, Düzenleyen: SLayeRTR.

Paylaşım Tarihi: 30.01.2016, 16:09:49 #7
TolgaMH C++ - VB.NET
Süper Üye
Status: Çevrimdışı Yorumları:371 Konuları:87 Kayıt Tarihi:03.01.2016 Rep Puanı: 28

Süpersin

Paylaşım Tarihi: 30.01.2016, 16:13:21 #8
Dizzy ∂ιzzу ѕєνιує 9999 gєηємι кяαℓ ∂ιzzу
Ultra Üye
Status: Çevrimdışı Yorumları:753 Konuları:222 Kayıt Tarihi:27.12.2015 Rep Puanı: 70

(30.01.2016, 16:09:49)#Regi Adlı Kullanıcıdan Alıntı: Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş YapınSüpersin

Post Kas Konu Kas D mod olcan hade Big Grin

Kullanıcı İmzası
YOUTUBE KANALIM : Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın
Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın










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

Konuyu Okuyanlar:
1 Ziyaretçi