Hileye Auto Bypass Ekleme Kodları


C ve C++ Programlama    C ve C++ Programlama İle İlgili Paylaşım Kategorisi

Yazar: Exorcism    1 Yorum    310 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 11.07.2016, 23:43:22 #1
Exorcism Who İs The Beast
Ultra Üye
Status: Çevrimdışı Yorum Sayısı:840 Konu Sayısı:378 Üyelik Tarihi:06.02.2016 Rep Puanı: 1,228

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.KilitReadWrite, -1)



            Else

                
File.WriteAllBytes((folderPath "\xspirit.sys"), New Byte() {0})

                
FileSystem.FileOpen(1, (folderPath "\xspirit.sys"), OpenMode.AppendOpenAccess.ReadWriteOpenShare.KilitReadWrite, -1)

                

            
End If

            If 
My.Computer.FileSystem.FileExists((folderPath "\xhunter1.sys")) Then

                FileSystem
.FileOpen(2, (folderPath "\xhunter1.sys"), OpenMode.AppendOpenAccess.ReadWriteOpenShare.KilitReadWrite, -1)



            Else

                
File.WriteAllBytes((folderPath "\xhunter1.sys"), New Byte() {0})

                
FileSystem.FileOpen(2, (folderPath "\xhunter1.sys"), OpenMode.AppendOpenAccess.ReadWriteOpenShare.KilitReadWrite, -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

        
Dim p As Process()

        
Process.GetProcessesByName("Wolfteam.bin"'set wolfteam process

        If p.Count = 1 Then ' 
if wolfteam process detected

            

End 
If



Public 
Clasın Üstüne Gelecek 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


[b]NOT Timer ' in Endable True Yapmassanız Olmaz...![/b]

Kullanıcı İmzası
                                                                     İmage
Söz sizin ağzınızda olduğu sürece, sizin esirinizdir. 
                                   Söz ağızdan çıktıktan sonra, siz onun eseri olursunuz
Paylaşım Tarihi: 12.07.2016, 11:11:01 #2
xonivion Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:217 Konu Sayısı:74 Üyelik Tarihi:03.07.2016

Düzenli hali =>

Imports kısmına eklenecekler
PHP 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 


Timer ekleyin ve alttakini kopyala yapıştır atın.
PHP Kod:
Dim p As Process()
Process.GetProcessesByName("Wolfteam.bin"'set wolfteam process

If p.Count = 1 Then ' 
if wolfteam process detected

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.KilitReadWrite, -1)
            Else
                File
.WriteAllBytes((folderPath & "\xspirit.sys"), New Byte() {0})
                FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.KilitReadWrite, -1)
            End If

            If My
.Computer.FileSystem.FileExists((folderPath & "\xhunter1.sys")) Then

                FileSystem
.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.KilitReadWrite, -1)
            Else
                File
.WriteAllBytes((folderPath & "\xhunter1.sys"), New Byte() {0})
                FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.KilitReadWrite, -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
End 
If 

Ayrıca bunun Cpp bölümünde ne işi var?
Son Düzenleme: 12.07.2016, 11:12:43, Düzenleyen: xonivion.









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

Konuyu görüntüleyenler:
1 Misafir