WolfTeam Bypass Yapımı


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

Yazar: Glitchy    0 Yorum    291 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 26.06.2016, 10:48:52 #1
Glitchy Çömez
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:4 Konu Sayısı:2 Üyelik Tarihi:25.06.2016 Rep Puanı: 0

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 wolfteam 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("Wolfteam.bin") 'set wolfteam process
       If p.Count = 1 Then ' if wolfteam 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("Wolfteam.bin").Length > 1);
            {
            label1.Text = ("XignCode Clear Başarılı");
            label2.Text = ("XignCode Clear Başarılı");
            }
        }









Aradığınızı Bulamadınız Mı ?
 Çalışıyor VB.NET Loader Yapımı

Konuyu görüntüleyenler:
1 Misafir