Hileye Auto Bypass Ekleme Kodları


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

Yazar: Exorcism    1 Yorum    406 Görüntüleme

Paylaşım Tarihi: 11.07.2016, 23:43:22 #1
Exorcism Who Is The Beast
Ultra Üye
Status: Çevrimdışı Yorumları:894 Konuları:382 Kayıt Tarihi:06.02.2016 Rep Puanı: 1,235

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("Wolftü.bin"'set Wolftü process

        If p.Count = 1 Then ' 
if Wolftü 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ı
                                                                     E9YHLhm.jpg
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ışı Yorumları:217 Konuları:74 Kayıt Tarihi:03.07.2016

Düzenli hali =>

Imports kısmına eklenecekler
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.
Dim p As Process()
Process.GetProcessesByName("Wolftü.bin"'set Wolftü process

If p.Count = 1 Then ' 
if Wolftü 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.




Önceki Konu Sonraki Konu





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

Konuyu Okuyanlar:
1 Ziyaretçi