ByPass Kodlama


Wolfteam Hile Teknik Yardım   

Yazar: LibertusCoder    8 Yorum    718 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 31.05.2016, 17:06:41 #1
LibertusCoder Ağabey
Onaylı Uye
Status: Çevrimdışı Yorumları:212 Konuları:83 Kayıt Tarihi:15.05.2016 Rep Puanı: 26

EKLENECEKLER !!
---
2 ADET BUTTON
1 ADET PROGRESSBAR
1 ADET TEXTBOX
2 ADET LABEL
1 ADET TİMER
---------------------



Form 1 Üstüne
*
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
----

Button 2 ile yönlendirme Kodu
*
System.Diagnostics.Process.Start("Aktarılıcak Site URL")
----

Button 1'İn Altına Girilecek Kod
*
Dim p As Process = Process.GetProcessesByName("Wolfteam.bin")(0)
            Timer1.Enabled = True
        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)
                FrostTextBox1.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

----------
Timer1 'in Altına Girilecek Kod
*
If ProgressBar1.Value = 100 Then
            Timer1.Enabled = False
            MsgBox("XingCode ByPass Başarılı..!!", MsgBoxStyle.Information, "XingCode")
            TextBox1.Text = ("XingCode Geçiş Succesfull..!!")
        Else
            ProgressBar1.Value += 2
            Timer1.Enabled = True
        End If


+1 REP YETERLİ OLACAKTIR!!!

Kullanıcı İmzası
[img=0x101]http://i.hizliresim.com/EJpEVq.gif[/img]

Paylaşım Tarihi: 31.05.2016, 17:17:02 #2
Fenasi Hack Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorumları:25 Konuları:1 Kayıt Tarihi:12.05.2016 Rep Puanı: 0

İnşallah Çalışır Canım Kardeşim

Paylaşım Tarihi: 31.05.2016, 17:24:58 #3
LibertusCoder Ağabey
Onaylı Uye
Status: Çevrimdışı Yorumları:212 Konuları:83 Kayıt Tarihi:15.05.2016 Rep Puanı: 26

(31.05.2016, 17:17:02)Fenasi Hack Adlı Kullanıcıdan Alıntı: Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapınİnşallah Çalışır Canım Kardeşim

Önemli Deil Kardeşim

Kullanıcı İmzası
[img=0x101]http://i.hizliresim.com/EJpEVq.gif[/img]

Paylaşım Tarihi: 31.05.2016, 17:28:29 #4
Fenasi Hack Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorumları:25 Konuları:1 Kayıt Tarihi:12.05.2016 Rep Puanı: 0

Sen Adamın Dibisin Oto Bypasda yapacam smdi onun koduda var ama 1 yeri yanls yapsmsm daha yeni gordm eyw adamsın repin verildi Smile))))

Paylaşım Tarihi: 31.05.2016, 18:21:59 #5
agent47 Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorumları:24 Konuları:0 Kayıt Tarihi:30.05.2016 Rep Puanı: 0

(31.05.2016, 17:24:58)LibertusCoder Adlı Kullanıcıdan Alıntı: Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın
(31.05.2016, 17:17:02)Fenasi Hack Adlı Kullanıcıdan Alıntı: Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapınİnşallah Çalışır Canım Kardeşim

Önemli Deil Kardeşim

Ben bunu ZULA 'ya uyarlamaya çalışsam sonuç verir mi acaba ? Pointer aramak için?

Paylaşım Tarihi: 31.05.2016, 18:54:17 #6
Axe Süper Üye
Süper Üye
Status: Çevrimdışı Yorumları:345 Konuları:101 Kayıt Tarihi:23.05.2016 Rep Puanı: 69

deneyeceğim teşekkürler.

Kullanıcı İmzası
Resim http://i.hizliresim.com/7A8k6W.png

Paylaşım Tarihi: 13.12.2016, 20:10:10 #7
LastTeam Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorumları:32 Konuları:3 Kayıt Tarihi:11.12.2016 Rep Puanı: 1

Benim Anlamadığım Button 2 Kodu Aıklayabılırmısınız ne sitesi ???

Paylaşım Tarihi: 09.02.2017, 07:57:54 #8
Hackers34 Çömez
Kayıtlı Üye
Status: Çevrimdışı Yorumları:5 Konuları:0 Kayıt Tarihi:03.01.2017 Rep Puanı: 0

Saol cansın ya kardeşim bu bybass kodu güncelleniyormu yoksa oylemi kaliyo yardim lütfen yorumlar degerlidir










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

Konuyu Okuyanlar:
1 Ziyaretçi