0lukas0

Vejam o video inteiro

[video=youtube;Ejb3vDBYL40]

Parabens cara continua fasendo isso nois agradecemos

OBS-Tou em Site de hacker de Pb pq? bom nao uso hacker apenas vem atras de Weapon Hacker

Pq Aimbots e WallHAcker ou Chams e coisa de lixo seus cotocos

[video=youtube;Px761MYI_mU]

cara só tem trojan no Scan esses virus sao totalmente maliciosos

Scab falso nao baixem

caras paracem funcional mais olhem o segundo scan contem muito trojan por isso esperarei por cobais confiaveis

lamentavelmente informo q ainda nao

[video=youtube;6eBaiEWk4qU]

Video melhor explicado

parabens levou THX funfando

kkkkkkkkk

se alguem pder pf mova pra lah entaum

eae galera hj vou mostrar um pequeno turorial de como utilizar o Cheat Engine 6.1 e bem simples de usar porem eu acho bem bom entaum vamos lah

Turorial

1-desative o x-trap

2-entre em uma sala e escolha o processo do Pb(para escolher os processos vai na quele computadorzinho q esta piscando lah em cima)

3- depois de ter escolhido o process entre em uma sala

4-escaneie o valor 100 ou valor de vida do seu personagen

5-depois de terminar o scan pegue e taque uma bomba perto de vc mais nao se mate

6-espera os ultimo scan terminar e vai fikar com uns 3 valores no maximo vc seleciona todos e aperta na flexinha vermelha e eles iram para baixo

6-depois disso selecione todos q estao lah em baixo aperte com o botao direito do mouse e aperte em SET\CHANGE\HOTKES ou aperte Ctrl+H

7-clika em Creat Hotkey clika com o botao q vc quiser para ser ativado automaticamente

8-coloka no lugar do Toogle Freeze Set Value To:

9-coloka em baixo 1000 no debaixo 1000 tbm

10-aperta em aply e quando vc estiver na partida só apertar W ou o botao q vc escolher q sua vida ira aumentar

Video:

[video=youtube;rkWUKoJ_CXY]

Turorial feito por min menos o video entaum o metodo de desativar o xra ali eu acho q jah esta pached

Download:

Scan:https:https://www.virustotal.com/file/871cb25c5324029111491fdc37cd428f29437c809728df50b5a86b99d283876f/analysis/

Se eu te ajudei agradeça pq nao custa cash nem cai o dedo

onde se localisa esta pasta aki estou procurando fais tempo tipo infectaram meu pc com um trojan nesta pasta aki

c:\dir\install\install\server.exe

c:\dir\install\install\server.exe

c:\dir\install\install\server.exe

eu nao sei onde fika poderiam me ajudar?

modo closed aki sem provass de funcionamento

mano vc e um escroto vc copiou esse topico de outro forum de hackers intaum nao adianta copiala re cola aki pq nao vou dar Thpq esse metodo e do Coren

Area Errada

area ceta seria Duvida

[sENHA][sCAN]Se eu te ajudei de um Thx ai nao custa cash nem cai o dedo[/sCAN][/sENHA]

s

mano sei lah aki tbm ta dando isso quando eu desativo o xtrap aparece q o point blank parou de funcionar

galera antes de mais nada de um Thx pq sou movido por isso quanto mais eu tiver mais hackers e tutoriais voces teram

Intaum meu nome e lukas e hj eu vou estar mostrando como faser um trainer indetectavel pelo VB.Net

1-Abra o seu visual basic

2-clica em New Project e e um nome ao seu projeto

3-adicione dois buttons a sua Form

4-adicione uma CheckBox e d 2 clikes e colokem o seguinte codigo:

On Error Resume Next

 

WritePointerInteger("PointBlank", &HA72CA8, 0, &H460, &H0)

 

Appication.Restart()

5-adicione 2 timers

6-vai em seus button e renomei os dois um para BtnRepeat e o outro para Btnrepeat2 e assim vai

7-agora vai no seu time renomei para Hotkey mude oo Enable para True e interval se coloka 1000

8-principal Gente nao Esqueçao adicionm um Modulo ao project:

'VB.NET Module

'Author : Cless

'How to use Read/Write Pointer

'Example Read

' Me.Text = ReadPointerInteger(Game exe name, &HPointer,&HOffset).ToString()

'

' Me.Text = ReadPointerInteger("gta_sa", &HB71A38,&H540).ToString()

' Or

' Me.Text = ReadPointerInteger("gta_sa", &HB71A38,&H540,&H544).ToString()

'Example Write

' WritePointerInteger(Game exe name,&HPointer,Value,&HOffset)

'

' WritePointerInteger("gta_sa",&HB71A38,1000,&H540)

' Or

' WritePointerInteger("gta_sa",&HB71A38,1000,&H540, &H544)

 

Module Trainer

Private Declare Function ReadMemoryByte Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Byte, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Byte

Private Declare Function ReadMemoryInteger Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Integer, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Integer

Private Declare Function ReadMemoryFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Single, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Single

Private Declare Function ReadMemoryDouble Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Double, Optional ByVal Size As Integer = 8, Optional ByRef Bytes As Integer = 0) As Double

 

Private Declare Function WriteMemoryByte Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Byte, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Byte

Private Declare Function WriteMemoryInteger Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Integer, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Integer

Private Declare Function WriteMemoryFloat Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Single, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Single

Private Declare Function WriteMemoryDouble Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Double, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Double

 

Public Function ReadByte(ByVal EXENAME As String, ByVal Address As Integer) As Byte

Dim Value As Byte

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

ReadMemoryByte(Handle, Address, Value)

End If

End If

Return Value

End Function

 

Public Function ReadInteger(ByVal EXENAME As String, ByVal Address As Integer) As Integer

Dim Value As Integer

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

ReadMemoryInteger(Handle, Address, Value)

End If

End If

Return Value

End Function

 

Public Function ReadFloat(ByVal EXENAME As String, ByVal Address As Integer) As Single

Dim Value As Single

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

ReadMemoryFloat(Handle, Address, Value)

End If

End If

Return Value

End Function

 

Public Function ReadDouble(ByVal EXENAME As String, ByVal Address As Integer) As Double

Dim Value As Double

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

ReadMemoryByte(Handle, Address, Value)

End If

End If

Return Value

End Function

 

Public Function ReadPointerByte(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Byte

Dim Value As Byte

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

ReadMemoryByte(Handle, Pointer, Value)

End If

End If

Return Value

End Function

 

Public Function ReadPointerInteger(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Integer

Dim Value As Integer

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

ReadMemoryInteger(Handle, Pointer, Value)

End If

End If

Return Value

End Function

 

Public Function ReadPointerFloat(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Single

Dim Value As Single

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

ReadMemoryFloat(Handle, Pointer, Value)

End If

End If

Return Value

End Function

 

Public Function ReadPointerDouble(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Double

Dim Value As Double

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

ReadMemoryDouble(Handle, Pointer, Value)

End If

End If

Return Value

End Function

 

Public Sub WriteByte(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Byte)

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

WriteMemoryByte(Handle, Address, Value)

End If

End If

End Sub

 

Public Sub WriteInteger(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Integer)

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

WriteMemoryInteger(Handle, Address, Value)

End If

End If

End Sub

 

Public Sub WriteFloat(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Single)

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

WriteMemoryFloat(Handle, Address, Value)

End If

End If

End Sub

 

Public Sub WriteDouble(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Double)

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

WriteMemoryDouble(Handle, Address, Value)

End If

End If

End Sub

 

Public Sub WritePointerByte(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Byte, ByVal ParamArray Offset As Integer())

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

WriteMemoryByte(Handle, Pointer, Value)

End If

End If

End Sub

 

Public Sub WritePointerInteger(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Integer, ByVal ParamArray Offset As Integer())

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

WriteMemoryInteger(Handle, Pointer, Value)

End If

End If

End Sub

 

Public Sub WritePointerFloat(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Single, ByVal ParamArray Offset As Integer())

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

WriteMemoryFloat(Handle, Pointer, Value)

End If

End If

End Sub

 

Public Sub WritePointerDouble(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Double, ByVal ParamArray Offset As Integer())

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

WriteMemoryDouble(Handle, Pointer, Value)

End If

End If

End Sub

End Module

9-vai em hotkey(Timer)e da 2 clikes vai no final dapalavra end sub e aperta Enter agora adiciona o seguinte codigo

<System.Runtime.InteropServices.DllImportAttribute("user32.dll")> _

Private Shared Function GetAsyncKeyState(ByVal vkey As System.Windows.Forms.Keys) As Short

End Function

9-agora de volte a sua form e de dois clikes no seu btnrepeat ou Btnrepeat2/3/4/5/6/7/8/9/10 adicione o seguinte codigo:

On Error Resume Next

 

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H83C)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H994)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &HC44)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &HEF4)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H11A4)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H1454)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H1704)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H19B4)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H83C)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &HAEC)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &HD9C)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H104C)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H12FC)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H15AC)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H185C)

WritePointerInteger("PointBlank", &HA72CA8, Codigo Da Arma desejada, &H1B0C)

WritePointerInteger("PointBlank", &HA72994, Codigo Da Arma desejada, &H5B8, &H38, &H8)

 

 

Application.Restart()

 

 

Dim Re As Integer

Re = ReadPointerInteger("PointBlank", &HA72CA8, &H45DCC)

Dim R As Integer

R = Re - 5

WritePointerInteger("PointBlank", &HA72CA8, R, &H45DCC)

10-renomeie o seu Buton No Text para o nome da arma desejada

11-agora clike na hotkey(Timer) e adicione o seguinte codigo:

Dim Hotkey As Boolean

Hotkey = GetAsyncKeyState(Keys.F10)

If Hotkey = True Then

Button1.PerformClick()

End If

Obs;

1-a cada Button q vc colokar c adiciona um timer a ele

2-sempre renomeie o seus butons para

Name:Btnrepeat

e o seu Text para o da arma q vc quiser

Pronto seu weapon esta criado agora se vc nao entendeu Releia e aprenda pq nao e facil

vou disponibilisar varios codigos para download eu nao irei deixar scan pq nao sera preciso pq sao textos no Bloco De Nota entaum nao vai ser preciso

Se eu Te Ajuei de Um Thx ai pq nao e facil faser um texto desse aki pra voces apenas lerem e naoo darem Thx ok flw gente ate a proxima

Download Codigos:

Adicione Um uton e coloka o seguinte codigo:

Dim Re As Integer

Re = ReadPointerInteger("PointBlank", &HA72CA8, &H45DCC)

Dim R As Integer

R = Re - 5

WritePointerInteger("PointBlank", &HA72CA8, R, &H45DCC)

Adiciona um timer vai nas propriedades vai la em Enable e mue pra True e coloka interval 1000 Agora de dois clikes ee de uum Enter End Sub Em Cima d End Class Aperta Enter agora vai debaixo deles e adiciona o seguinte codigo:

<System.Runtime.InteropServices.DllImportAttribute("user32.dll")> _

Private Shared Function GetAsyncKeyState(ByVal vkey As System.Windows.Forms.Keys) As Short

End Function

agora volta na form e clika no seu no seu timer d novo e adiciona o seguinte codigo:

Dim Hotkey As Boolean

Hotkey = GetAsyncKeyState(Keys.F10) '<< Hotkey Escolhida

If Hotkey = True Then

Button1.PerformClick() '<<< Butão Que Vai Ser Pra a Hotkey Ser Ativa >>r

End If

galera estou quase terminando um trainer sóke quando eu vou adiquiri o repeat hack eu nao consigo pq?eu colokei tudo q precisa no repeat ta assim oh:

BtnRepeat

Dim Re As Integer

Re = ReadPointerInteger("PointBlank", &HA72CA8, &H45DCC)

Dim R As Integer

R = Re - 5

WritePointerInteger("PointBlank", &HA72CA8, R, &H45DCC)

Dim Hotkey As Boolean

Hotkey = GetAsyncKeyState(Keys.F1) '<< Hotkey Escolhida

If Hotkey = True Then

Button1.PerformClick() '<<< Butão Que Vai Ser Pra a Hotkey Ser Ativa >>

End If

HOTKEY(timer1)

Dim Hotkey As Boolean

Hotkey = GetAsyncKeyState(Keys.F1)

If Hotkey = True Then

BtnRepeat.PerformClick()

End If

sóke nbao da certo

ajudem ai tou criando o trainer pra vces vlw