[DL][Source]Launcher + Aimbot - Ace Of Spades

[Gość]

 

Dzień dobry, potencjalny penetratorze działu vb.

Zobacz mój lanczer do AoS, lepszy niż wszystkie (i tak jest ich mało).
Mój lanczer, nie mówiąc już o tym ,że jest super wydajny i ma przejrzysty kod to
jest banalnie prosty w obsłudze. Jednym kliknięciem uruchomisz multihacka, proste?

//Żeby hack działał to w folderze z launcher musisz mieć tą biblioteczkę - libray.dll
//Source hacka - tajne ;_;
//DLL'ka z hackiem nie jest moja ;_;


MultiHack - F12 aktywacja i obsługa strzałkami


DL:

http://www.multiupload.nl/W9MZ5DWJVB

Skan:

https://www.virustotal.com/file/6acb5a62733a4232ececb4b96f99248b25d3020437df9a3270b41dc2f4dcecc5/analysis/1354478239/

(13/46 bo funkcja dll injection jest potencjalnie uznawana za groźną - zawsze jest kod źródłowy strachaczu ;_;(wtf?).)
Source:

Form1 (forma):

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Settings.fl = "y" Then
My.Settings.fl = "n"
Form2.Show()
End If
WebBrowser1.Navigate("http://www.aceofspades.com/server-list/")
End Sub

Private Sub Form1_Close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosed
My.Settings.Save()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim p() As Process
p = Process.GetProcessesByName("client")
If p.Count > 0 Then
Inijekcja.Inject()
Else
MsgBox("AoS nie jest włączony.")
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
My.Settings.fl = "y"
My.Settings.gs = ""
My.Settings.Save()
Me.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Process.Start(My.Settings.gs & "config.ini")
Catch
Try
Process.Start(My.Settings.gs & "/config.ini")
Catch
MsgBox("Nie znaleziono pliku lub jest niedostępny, zresetuj ścieżkę gry.")
End Try
End Try
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
WebBrowser1.Refresh()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("client")
For Each p As Process In pProcess
p.Kill()
Next
End Sub
End Class

Form2 (forma):

Public Class Form2

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
MsgBox("np. C:\Ace of Spades")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Wpisz ścieżkę.")
Else
My.Settings.gs = TextBox1.Text
Form1.Enabled = True
My.Settings.Save()
Me.Hide()
End If
End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form1.Enabled = False
Me.TopMost = True
End Sub
End Class

Inijekcja.vb (moduł):

Module Inijekcja
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)
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
Private 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
Public Sub Inject()
Dim ProcessName As String = "client"
Dim Processes() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcessesByName(ProcessName)
If Processes.Count = 0 Then
Return
End If
Dim id = Processes(0).Id
Dim prozessID As String
Dim dllName As String
dllName = "libray.dll"
prozessID = (id)
Dim TargetProcess As Process = Process.GetProcessById(prozessID)
TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess.Id)
pszLibFileRemote = Application.StartupPath & "\" + dllName
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)
End Sub
End Module

Poza tym trzeba dodać do mysettings to co trzeba dodać...
Wrzuć mi lajka na tace i znaj łaske pana ,że wrzuca taką magie na mpc.

@Edit

*Zamieniłem aimbota na multihacka. (w pizdu funkcji. F12 aktywacja i obsługa strzałkami).
*Dodałem przycisk refresh (odświeża liste serwerów).
*Dodałem przycisk cancel (zamyka wszystkie klienty AoS - przydatne po votekicku).

 

 

Ta gra już nie istnieje więc temat nieaktualny ;_;

Dla mondralińskich - adresy się zmieniły.

[Gość]

Apdejt!11!!

 

*Zamieniłem aimbota na multihacka. (w pizdu funkcji. F12 aktywacja i obsługa strzałkami).

*Dodałem przycisk refresh (odświeża liste

serwerów).

*Dodałem przycisk cancel (zamyka wszystkie klienty AoS - przydatne po votekicku).

[kajsksus]

Jak to się uruchamia? ;D Mam normalnie wszystkie pliki z rar caly folder wrzucam odpalam ten AoS client wybieram serwer i mnie przerzuca do normalnego clienta AoS

[Gość]

Jak to się uruchamia? ;D Mam normalnie wszystkie pliki z rar caly folder wrzucam odpalam ten AoS client wybieram serwer i mnie przerzuca do normalnego clienta AoS

No tak, i jak już jesteś w grze to klikasz ten przycisk "Aimbot" (dopiero jak już stoisz w grze) i w grze już F12 i zmieniasz sobie ustawienia.

 

//Jak będziesz potrzebować to wrzuce screena co jaki guzik co robi (mimo ,że wszystko jest napisane).

 

//Zapomniałem o wspomnieć o jednym mniej, lub więcej ważnym szczególe ;_;

//Hack nie działa na win7. Tylko vista, xp i z tego co pamiętam to win7 32bit, ale nie mam pewności. To wina dllki z hackiem, do której nie mam kodu źródłowego , nie moja.

[kajsksus]

Nie działa, wchodzę do gry z wybieralni serwerów AoS klikam serwer gra się odpala minimalizuje ją klikam Aimbot po prawej maksymalizuje grę wciskam F12 i nic się nie dzieje. Win7 64bit.

[Quenders]

Nie działa, wchodzę do gry z wybieralni serwerów AoS klikam serwer gra się odpala minimalizuje ją klikam Aimbot po prawej maksymalizuje grę wciskam F12 i nic się nie dzieje. Win7 64bit.

 

Piszesz że masz Win7 64bit

 

a on napisał wyraźnie

 

//Hack nie działa na win7. Tylko vista, xp i z tego co pamiętam to win7 32bit, ale nie mam pewności. To wina dllki z hackiem, do której nie mam kodu źródłowego , nie moja.

[kajsksus]

Nie widziałem żadnej takiej informacji i nadal nie widzę, ale dzięki ;D.

[Gość]

Nieaktualny (raport).