wolftü Bypass Yapımı

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üye
Katılım
25 Haz 2016
Mesajlar
4
Tepki puanı
0
9 HİZMET YILI
Arkadaşlar ben bypass'ın mantığını tam anlamadım ama sanırım xhunter1 ve xspirit dosyası varsa onlarda ufak bir değişim yapıyor.

Bu vb.net koduydu kalın gösterdiğim yerleri çeviremedim mavilerdende emin değilim sizce bunu c#'a nasıl çeviririm başka. Benimkinde xigncode değilde wolftü açıldığı an başarılı oldu diyor.


VB.NET KODU

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)
               Label4.Text = ("Erişim Engellendi ")
           End If
           If My.Computer.FileSystem.FileExists((folderPath & "\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)
               Label5.Text = ("Erişim Engellendi")
           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()
       p = Process.GetProcessesByName("wolftü.bin") 'set wolftü process
       If p.Count = 1 Then ' if wolftü process detected
           Label4.Text = ("XignCode Clear Başarılı")
           Label5.Text = ("XignCode Clear Başarılı")
End If


C# KODU

            try
            {
                string fpath = @"C:\Windows\xspirit.sys";
                if (File.Exists(fpath))
                {

                    var fs = new FileStream(fpath, FileMode.Append, FileAccess.ReadWrite, FileShare.ReadWrite, -1);
                }
                else
                {
                    File.WriteAllBytes(fpath, new byte[0]);
                    var fs = new FileStream(fpath, FileMode.Append, FileAccess.ReadWrite, FileShare.ReadWrite, -1);
                    label1.Text = ("Erişim Engellendi");
                }
                string fpath2 = @"C:\Windows\xhunter1.sys";
                if (File.Exists(fpath2))
                {

                    var fs2 = new FileStream(fpath2, FileMode.Append, FileAccess.ReadWrite, FileShare.ReadWrite, -1);
                }
                else
                {
                    File.WriteAllBytes(fpath2, new byte[0]);
                    var fs2 = new FileStream(fpath2, FileMode.Append, FileAccess.ReadWrite, FileShare.ReadWrite, -1);
                    label2.Text = ("Erişim Engellendi");
                }
            }
            catch
            {

            }
            if (Process.GetProcessesByName("wolftü.bin").Length > 1);
            {
            label1.Text = ("XignCode Clear Başarılı");
            label2.Text = ("XignCode Clear Başarılı");
            }
        }
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst