HOŞGELDİNİZ...
ŞİMDİ SİZLERE AÇMA KAPAMALI HİLENİN NASIL KODLANDIĞINI VE OTOMATİK BUTTON OLMADAN CHS NASIL ÇEKİLİR? ONU GÖSTERECEĞİM... EĞER YAZILI ANLAMAZSANIZ VİDEO ÇEKMEYİ DÜŞÜNÜYORUM...
İLK OLARAK VİSUAL BASİC'DEN FORM AÇIYORUZ...
FORMA BİR LABEL,BİR CHECKBOX,BİR TİMER,BİR TEXTBOX EKLİYORUZ....
LABELİN İSMİNİ CHS BEKLENİYOR...' YAPALIM..
CHECKBOX'UN İSMİNİ SİZ HANGİ HİLEYİ YAPICAKSINIZ ONUN İSMİNİ YAPIN...
TEXTBOX'LA İŞİMİZ YOK AMA BYYPAS'I EKLEDİĞİMİZDE HATA VERİR DİYE EKLİYORUZ.
DİLERSENİZ TEXTBOXU FORMDA GÖRÜNMEYECEĞİ YERE KOYABİLİRSİNİZ...
GELELİM KODLAMAYA...
CHECKBOX'A ÇİFT TIKLAYARAK ŞU KODU YAPIŞTIRIN...
----------------------------------------------------------------------------
If Checkbox1.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &HPointeriniz, "açma valuesi")
End If
If Checkbox1.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &HAyni Pointer, "kapama valuesi")
End If
-----------------------------------------------------------------------------------------
Timere Çift Tıklayarak Şu Kodu Yapıştırın...
------------------------------------------------
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
Label1.Text = moz.BaseAddress.ToString
End If
Next
Timere bir kere tıklayın. Sağ tarafta Enabled Çıkacaktır O False'dir Onu True Yapın..
-----------------------------------------
Sonra Form1'e ByPass Ekliceğiz...
Form1'e Çift Tıklayarak Şu Kodu Ekleyin...
------------------------------------------------------------------------------------------------------------
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)
TextBox1.Text = ("Erişim Engellendi ")
End If
If My.Computer.FileSystem.FileExists((folderPath & "wolftü.bin\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)
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")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
label1.Text = moz.BaseAddress.ToString
End If
--------------------------------------------------------------------------
Sonra... Form1'in En Üstüne Gelin... Public Class Form1 Yazacaktır..
Onun Üstüne Şu Kodu Yapıştırıyoruz...
--------------------------------------------------------------------------
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
Anlamayanlara Şöyle Resimle Gösterim..
-----------------------------------------------------------------------------------------------------------------------------------
Ondan Sonra... Shift-Alt-A Yaparak... ReadWritingMemory - WritePointerInteger Dosyalarını Seçiyoruz Forma Ekliyoruz...
ReadWritingMemory - WritePointerInteger Dosyalarını İndirmek İçin
VİRÜS TOTAL İÇİN
VE FİNİSH HİLEMİZ BU KADARDIR BU KADAR BASİT...
+REP VERMEYİ UNUTMAYIN CANLARIM...
HERKESE İYİ BAYRAMLAR...
ANLAMADIĞINIZ BİR YER OLURSA BANA SORUN BURADAYIM..
ŞİMDİ SİZLERE AÇMA KAPAMALI HİLENİN NASIL KODLANDIĞINI VE OTOMATİK BUTTON OLMADAN CHS NASIL ÇEKİLİR? ONU GÖSTERECEĞİM... EĞER YAZILI ANLAMAZSANIZ VİDEO ÇEKMEYİ DÜŞÜNÜYORUM...
İLK OLARAK VİSUAL BASİC'DEN FORM AÇIYORUZ...
FORMA BİR LABEL,BİR CHECKBOX,BİR TİMER,BİR TEXTBOX EKLİYORUZ....
LABELİN İSMİNİ CHS BEKLENİYOR...' YAPALIM..
CHECKBOX'UN İSMİNİ SİZ HANGİ HİLEYİ YAPICAKSINIZ ONUN İSMİNİ YAPIN...
TEXTBOX'LA İŞİMİZ YOK AMA BYYPAS'I EKLEDİĞİMİZDE HATA VERİR DİYE EKLİYORUZ.
DİLERSENİZ TEXTBOXU FORMDA GÖRÜNMEYECEĞİ YERE KOYABİLİRSİNİZ...
GELELİM KODLAMAYA...
CHECKBOX'A ÇİFT TIKLAYARAK ŞU KODU YAPIŞTIRIN...
----------------------------------------------------------------------------
If Checkbox1.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &HPointeriniz, "açma valuesi")
End If
If Checkbox1.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &HAyni Pointer, "kapama valuesi")
End If
-----------------------------------------------------------------------------------------
Timere Çift Tıklayarak Şu Kodu Yapıştırın...
------------------------------------------------
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
Label1.Text = moz.BaseAddress.ToString
End If
Next
Timere bir kere tıklayın. Sağ tarafta Enabled Çıkacaktır O False'dir Onu True Yapın..
-----------------------------------------
Sonra Form1'e ByPass Ekliceğiz...
Form1'e Çift Tıklayarak Şu Kodu Ekleyin...
------------------------------------------------------------------------------------------------------------
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)
TextBox1.Text = ("Erişim Engellendi ")
End If
If My.Computer.FileSystem.FileExists((folderPath & "wolftü.bin\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)
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")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
label1.Text = moz.BaseAddress.ToString
End If
--------------------------------------------------------------------------
Sonra... Form1'in En Üstüne Gelin... Public Class Form1 Yazacaktır..
Onun Üstüne Şu Kodu Yapıştırıyoruz...
--------------------------------------------------------------------------
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
Anlamayanlara Şöyle Resimle Gösterim..
-----------------------------------------------------------------------------------------------------------------------------------
Ondan Sonra... Shift-Alt-A Yaparak... ReadWritingMemory - WritePointerInteger Dosyalarını Seçiyoruz Forma Ekliyoruz...
ReadWritingMemory - WritePointerInteger Dosyalarını İndirmek İçin
Bağlantıları görmek için lütfen
Giriş Yap
VİRÜS TOTAL İÇİN
Bağlantıları görmek için lütfen
Giriş Yap
VE FİNİSH HİLEMİZ BU KADARDIR BU KADAR BASİT...
+REP VERMEYİ UNUTMAYIN CANLARIM...
HERKESE İYİ BAYRAMLAR...
ANLAMADIĞINIZ BİR YER OLURSA BANA SORUN BURADAYIM..