Vb.net'den Wolftü ByPass Code - x60


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

Yazar: x60    165 Yorum    7553 Görüntüleme

Paylaşım Tarihi: 30.01.2016, 13:17:23 #1
x60 #Requiem
Cezalı Üye
Status: Çevrimdışı Yorumları:545 Konuları:160 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 :
GRmXvy.png
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.AppendOpenAccess.ReadWriteOpenShare.LockReadWrite, -1)

 
           Else
                File
.WriteAllBytes((folderPath "\xspirit.sys"), New Byte() {0})
 
               FileSystem.FileOpen(1, (folderPath "\xspirit.sys"), OpenMode.AppendOpenAccess.ReadWriteOpenShare.LockReadWrite, -1)
 
               ReactorTextBox1.Text = ("Erişim Engellendi ")
 
           End If
 
           If My.Computer.FileSystem.FileExists((folderPath "Wolftü.bin\xhunter1.sys")) Then
                FileSystem
.FileOpen(2, (folderPath "\xhunter1.sys"), OpenMode.AppendOpenAccess.ReadWriteOpenShare.LockReadWrite, -1)

 
           Else
                File
.WriteAllBytes((folderPath "\xhunter1.sys"), New Byte() {0})
 
               FileSystem.FileOpen(2, (folderPath "\xhunter1.sys"), OpenMode.AppendOpenAccess.ReadWriteOpenShare.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 :

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


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:
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!!!

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.AppendOpenAccess.ReadWriteOpenShare.LockReadWrite, -1)

 
           Else
                File
.WriteAllBytes((folderPath "\xspirit.sys"), New Byte() {0})
 
               FileSystem.FileOpen(1, (folderPath "\xspirit.sys"), OpenMode.AppendOpenAccess.ReadWriteOpenShare.LockReadWrite, -1)
 
               ReactorTextBox1.Text = ("Erişim Engellendi ")
 
           End If
 
           If My.Computer.FileSystem.FileExists((folderPath "Wolftü.bin\xhunter1.sys")) Then
                FileSystem
.FileOpen(2, (folderPath "\xhunter1.sys"), OpenMode.AppendOpenAccess.ReadWriteOpenShare.LockReadWrite, -1)

 
           Else
                File
.WriteAllBytes((folderPath "\xhunter1.sys"), New Byte() {0})
 
               FileSystem.FileOpen(2, (folderPath "\xhunter1.sys"), OpenMode.AppendOpenAccess.ReadWriteOpenShare.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!!
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ı:160 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
Aktif Ü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 C# -- MYX
Cezalı Üye
Status: Çevrimdışı Yorumları:386 Konuları:89 Kayıt Tarihi:03.01.2016

Süpersin

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

(30.01.2016, 16:09:49)#Regi Adlı Kullanıcıdan Alıntı:  Süpersin

Post Kas Konu Kas D mod olcan hade Big Grin

Kullanıcı İmzası
ldd6qr.jpg
YOUTUBE KANALIM : TIKLA GİT




Önceki Konu Sonraki Konu





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

Konuyu Okuyanlar:
1 Ziyaretçi