- Yasaklandı
- #1
Banlı Üye
Uyarı! Loaderin içindeki her bir harf bana aittir ve alıntı yapılmamıştır. Lütfen emeğe saygı adına sağa sola kopyalayıpta kendi konunuz gibi paylaşmayınız.
Az miktar .net bilgisine ihtiyacınız var. Yoksa bu anlattıklarımdan birşey anlamazsınız.
Adım 1 : Gerekli Yazılımları Edinin
Herşeyden önce visual basic'e ihtiyacınız var. Ben bu konuda visual basic 2010 express kullanacağım
Hadi başlayalım.
Projemizi windowsform şeklinde oluşturalım. İlk sistemimiz giriş sistemi olacak arkadaşlar. Giriş sistemi için bize gerek şey bir ftp (yani internet sitesi)
2 textbox 1 button koyalım ve button oluşturalım. Button'a çift tıklayıp dizayn modundan yazılım moduna geçelim.
Şimdi bize internete bağlanıp oradaki bilgileri alacak şu koda ihtiyacımız var.
[CODE title="Internete bağlanmana yarayan kod"]Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://ftpniz.com/uyeler/" + TextBox1.Text)Az miktar .net bilgisine ihtiyacınız var. Yoksa bu anlattıklarımdan birşey anlamazsınız.
Adım 1 : Gerekli Yazılımları Edinin
Herşeyden önce visual basic'e ihtiyacınız var. Ben bu konuda visual basic 2010 express kullanacağım
Hadi başlayalım.
Projemizi windowsform şeklinde oluşturalım. İlk sistemimiz giriş sistemi olacak arkadaşlar. Giriş sistemi için bize gerek şey bir ftp (yani internet sitesi)
2 textbox 1 button koyalım ve button oluşturalım. Button'a çift tıklayıp dizayn modundan yazılım moduna geçelim.
Şimdi bize internete bağlanıp oradaki bilgileri alacak şu koda ihtiyacımız var.
Dim response As System.Net.HttpWebResponse = request.GetResponse()
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
Dim sifre As String = sr.ReadToEnd()[/CODE]
Bu kodda "
İkinci adım olarak bu kişinin serverimizdeki şifresiyle loaderimizin giriş şifresinin aynımı değilmi ona baktaracağız. Onun için ise şu kodu kullanmamız gerekiyor.
[CODE title="Şifre kontrol"]
Bağlantıları görmek için lütfen
Giriş Yap
" kısmına kendi ftp adresinizi girin. Bu kısım kulllanıcı adıyla ftp sunucuzda arama yapacak yani uyeler klasöründe textbox1'e yazılan kişiyi arayıp şifresini string şeklinde alacak.İkinci adım olarak bu kişinin serverimizdeki şifresiyle loaderimizin giriş şifresinin aynımı değilmi ona baktaracağız. Onun için ise şu kodu kullanmamız gerekiyor.
If sifre = TextBox2.Text Then
msgbox("Hoşgeldin " + textbox1.text + " şifren onaylandı!")
else
msgbox("Hatalı şifre lütfen şifreni kontrol et.")[/CODE]
Bu komut bize şifremizi kontrol ettirdi. Eğer doğruysa zaten hoşgeldin yazan msgbox'un altına form2.show, me.hide komutunu eklediğimizde ikinci form açılacak.
Şimdi sırada tarih kontrol sistemi olacak.Sonuçta 1 ay verdiğimiz kullanıcın 1 yıl kullanmasını müşteri hariç kimse istemez değil mi?
Yine bize internete bağlanıp string olarak getiren şu komuta ihtiyacımız var
[CODE title="Internete bağlanmana yarayan kod"]Dim istek As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://ftpserverin/tarih/" + TextBox1.Text)Şimdi sırada tarih kontrol sistemi olacak.Sonuçta 1 ay verdiğimiz kullanıcın 1 yıl kullanmasını müşteri hariç kimse istemez değil mi?
Yine bize internete bağlanıp string olarak getiren şu komuta ihtiyacımız var
Dim yanit As System.Net.HttpWebResponse = istek.GetResponse()
Dim ad As System.IO.StreamReader = New System.IO.StreamReader(yanit.GetResponseStream())
Dim tarih As String = ad.ReadToEnd()[/CODE]
Bu komut bize bu kullanıcın hangi tarihte dolacağını client'imze getiriyor.Ama bunu birde kendi tarihimizle eşleştirmemiz lazım.Onu ise şu komutla yapıyoruz.
[CODE title="Tarih Karşılaştırması"]If Not tarih = date.today thenmsgbox ("Kullanım süren doldu. Lütfen AkiF35'ile iletişime geç!")
else
form2.show
me.hide
end if[/CODE]
Peki tarihimizi aldık eşleştirdik ama bi sorun var? Ya bu tarih çoktan geçmişse mesela şuan 23.03.2020 ama bu arkadaşımızın süresi 22.02.2020 de dolduysa? Ozaman şu komutla bunu kontrol edicez.
[CODE title="Tarih Geçmişmi?"]if tarih < date.today or tarih = date.today thenmsgbox("Kullanım süren doldu kanka")
else
form2.show
me.hide[/CODE]
Tamam bu komutla birlikte kişinin tarihini tamamen kontrol etmiş olduk (Önemli uyarı : Bu sistem kişi eğer bilgisayar tarihini geriye alırsa patlamaktadır. Tavsiyem bir php ile günün tarihini string şeklinde yazdırıp bu cliente göndererek karşılaştırın. Ama bunu ben buraya paylaşamam Oda bana kalsın)
Peki arkadaşlar herşeyi yaptık şimdi bize asıl önemli olan kısım inject kısmı lazım.Bu kısım zor çünkü ben bile zor yazdım bu formu alt tarafa koyacağım form açıldığı anda belirttiğiniz exe dosyasını bekliyor. Direkt olarak internetten indirdiği dllyi pcye temp olarak indiriyor ardından oyuna injectleyip temp dosyasını windowsun içine gömüyor (bu inject sistemi bana ait değildir. githubdan buldum[adı novahook])
Son olarak hile satıcılarına not (hwid sistemide ekleyebilirsiniz. eğer biraz .net biliyorsanız. bilmiyorsanız para karşılığı yapabilirim. pm atmanız yeterli olacaktır.)
Eğer bu konudan birşey anlamadıysan demekki .net hakkında pek bilgin yok. Senin içinde bir video çekip yine forumda yayınlayacağım.
(Modlar: Eğer hatam varsa konuyu reddetmek yerine bana söyleyin düzeltirim [forumda yeniyimde
]) teşekkürler iyi akşamlar.
[CODE title="Form5.vb"]Imports System.ThreadingPeki arkadaşlar herşeyi yaptık şimdi bize asıl önemli olan kısım inject kısmı lazım.Bu kısım zor çünkü ben bile zor yazdım bu formu alt tarafa koyacağım form açıldığı anda belirttiğiniz exe dosyasını bekliyor. Direkt olarak internetten indirdiği dllyi pcye temp olarak indiriyor ardından oyuna injectleyip temp dosyasını windowsun içine gömüyor (bu inject sistemi bana ait değildir. githubdan buldum[adı novahook])
Son olarak hile satıcılarına not (hwid sistemide ekleyebilirsiniz. eğer biraz .net biliyorsanız. bilmiyorsanız para karşılığı yapabilirim. pm atmanız yeterli olacaktır.)
Eğer bu konudan birşey anlamadıysan demekki .net hakkında pek bilgin yok. Senin içinde bir video çekip yine forumda yayınlayacağım.
(Modlar: Eğer hatam varsa konuyu reddetmek yerine bana söyleyin düzeltirim [forumda yeniyimde
]) teşekkürler iyi akşamlar.
Imports System.Management
Imports System.IO
Public Class Form5
Dim filename As String = Guid.NewGuid().ToString + ".dll"
Private TargetProcessHandle As Integer
Private pfnStartAddr As Integer
Private pszLibFileRemote As String
Private TargetBufferSize As Integer
Public Const PROCESS_VM_READ = &H10
Public Const TH32CS_SNAPPROCESS = &H2
Public Const MEM_COMMIT = 4096
Public Const PAGE_READWRITE = 4
Public Const PROCESS_CREATE_THREAD = (&H2)
Public Const PROCESS_VM_OPERATION = (&H8)
Public Const PROCESS_VM_WRITE = (&H20)
Dim DLLFileName As String
Public Declare Function ReadProcessMemory Lib "kernel32" (
ByVal hProcess As Integer,
ByVal lpBaseAddress As Integer,
ByVal lpBuffer As String,
ByVal nSize As Integer,
ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (
ByVal lpLibFileName As String) As Integer
Public Declare Function VirtualAllocEx Lib "kernel32" (
ByVal hProcess As Integer,
ByVal lpAddress As Integer,
ByVal dwSize As Integer,
ByVal flAllocationType As Integer,
ByVal flProtect As Integer) As Integer
Public Declare Function WriteProcessMemory Lib "kernel32" (
ByVal hProcess As Integer,
ByVal lpBaseAddress As Integer,
ByVal lpBuffer As String,
ByVal nSize As Integer,
ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function GetProcAddress Lib "kernel32" (
ByVal hModule As Integer, ByVal lpProcName As String) As Integer
Private Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" (
ByVal lpModuleName As String) As Integer
Public Declare Function CreateRemoteThread Lib "kernel32" (
ByVal hProcess As Integer,
ByVal lpThreadAttributes As Integer,
ByVal dwStackSize As Integer,
ByVal lpStartAddress As Integer,
ByVal lpParameter As Integer,
ByVal dwCreationFlags As Integer,
ByRef lpThreadId As Integer) As Integer
Public Declare Function OpenProcess Lib "kernel32" (
ByVal dwDesiredAccess As Integer,
ByVal bInheritHandle As Integer,
ByVal dwProcessId As Integer) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (
ByVal lpClassName As String,
ByVal lpWindowName As String) As Integer
Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" (
ByVal hObject As Integer) As Integer
Dim dll As String
Dim exe As String
Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath)
Private Sub Inject()
On Error GoTo 1 ' If error occurs, app will close without any error messages
My.Computer.Network.DownloadFile(dll, "C:\temp\Nova\dll\" + filename)
Dim ToHideDir As New System.IO.DirectoryInfo("C:\temp\Nova\dll")
ToHideDir.Attributes = IO.FileAttributes.Hidden
My.Computer.FileSystem.WriteAllText("c:\temp\nova\Nova.Hook.DLLname", filename, False)
Timer1.Stop()
Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
pszLibFileRemote = "C:\temp\Nova\dll\" + filename
pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
TargetBufferSize = 1 + Len(pszLibFileRemote)
Dim Rtn As Integer
Dim LoadLibParamAdr As Integer
LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
CloseHandle(TargetProcessHandle)
1: Me.Show()
Dim ToHideDll As New System.IO.FileInfo("C:\temp\Nova\dll\" + filename)
ToHideDll.Attributes = IO.FileAttributes.Hidden
Form3.Show()
Me.Close()
End Sub
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If (Form3.ListBox1.SelectedIndex = 0) Then
exe = "csgo"
dll = "http://localhost/akif35.dll" ' Main build
ElseIf (Form3.ListBox1.SelectedIndex = 1) Then
exe = "csgo"
dll = "http://localhost/ayyware_lite.dll" ' Lite build
ElseIf (Form3.ListBox1.SelectedIndex = 2) Then
Form4.Show()
Me.Close()
End If
Label1.Text = "Waiting for " + exe + ".exe"
TextBox1.Text = exe
Timer1.Interval = 50
Timer1.Start()
Button4.Enabled = False
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim pName As String = exe
Dim psList() As Process
Try
psList = Process.GetProcesses()
For Each p As Process In psList
If (pName = p.ProcessName) Then
Timer1.Stop()
Me.Label1.Text = "Successfully Injected!"
Call Inject()
Else
Me.Label1.Text = "Waiting for " + exe + ".exe"
End If
Next p
Catch ex As Exception
End Try
End Sub
Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click
Form3.Show()
Me.Close()
End Sub
End Class[/CODE]
Eğer ftpnize üye eklemek istiyorsanız boş dosya oluşturun /uyeler/ kısmındaysanız test diye üye oluşturacaksanız yeni dosya açın filezilladan içinede üyenin şifresini yazın aynısını /tarih/ dizininede yapın ama içine kullanıcın şifresi yerine biteceği tarihi yazıyoruz. Sorun yaşarsanız pm atın aktifim forumda görürüm.(yada discorddanda yardımcı olabilirim discord.gg/tcHNbQ)
Son düzenleme:
