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ı");
}
}
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ı");
}
}