cfal Criando Seu Injetor(+dll extra)CF [VB]

[teteu028 2.894]

 

INDICE

Programas Necessários

Criando

Créditos

 

 

 

PROGRAMAS NECESSÁRIOS

 

Visual Basic :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

PS: Clique em Baixar, e depois> Baixar sem instalador.

 

Também é necessário que você assista umas aula,mas se pesquisar mais sobre o assunto será melhor pra você

 

 

CRIANDO

 

Essa parte é a mais complicada,preste muita atenção para não errar.

 

---

 

1 - Abra o Visual Basic(vb)

 

 

1.1 - Selecione "Windows Forms Application" e escolha um nome

 

 

1.2 - Vai abrir essa página

 

 

2 - Vá em "Text" e escolha qual vai ser o nome do seu arquivo

(No meu caso "WebCheats Injetor")

 

 

2.1 - Vá em "StartPosition" e Marque CenterScreen

 

 

2.2 -Vá em "MaximizeBox" e "MinimizeBox". Vai estar marcado True, clique e altere para False

 

 

2.3 - Clique em Icon e selecione a imagem que ficará de icone no seu programa.

(PS:Não pode ser uma imagem normal, no caso, .jpg . Tem que ser uma imagem .ico)

 

 

(Alguns icones :

 

PS : SIM,É SÓ BAIXAR ESSAS IMAGENS PEQUENAS E SELECIONA-LAS NO VB

 

 

2.4 - Vá em "AutoSizeMode", vai estar "GrowOnly" , clique e altera para GrowAndShrink

 

 

2.5 - Vá na tollbox(o menu na esquerda onde ficam as ferramentas) e selecione TextBox

(Coloque a TextBox no injetor,assim como na imagem)

 

 

2.6 - Vá no menu da tollbox, e selecione 2 Label e coloque os seguintes nomes.

 

 

Clique no Label1, vá em text e coloque o nome "Esperando..." (sem aspas)

Clique na Label2 , vá em text e coloque o nome "Processo:" (sem aspas)

 

E deixe-os posicionados da seguinte maneira :

 

 

2.7 - Vá na tollbox e selecione Button, coloque 3 botões no injetor,da seguinte forma

 

 

Clique no Button1,vá em text e coloque o nome "Procurar..." (sem aspas)

Clique em Button2,vá em text e coloque o nome "Limpar Tudo" (sem aspas)

Clique em Button3,vá em text e coloque o nome "Injetar" (sem aspas)

 

 

 

2.8 - Vá na tollbox e selecione ListBox,coloque ele como mostra na imagem :

 

Clique na ListBox, e vá em "Name" , escreva "Dlls" (sem aspas). Vai ficar assim :

 

 

2.9 - Vá na tollbox e e coloque 2 RadionBotton. Altere os nomes da seguinte maneira.

 

Vá em text,altere "RadionButton1" para "Automatico" (sem aspas e sem acento)

Vá em text,altere "RadionButton2" para "Manual" (sem aspas)

 

Posicione-os como mostra a imagem :

 

 

 

3 - Vá na tollbox e selecione CheckBox . Vá em text,vai estar "checkbox" , altere para "Fechar apos injetar" (sem aspas) . E posicione da seguinte maneira :

 

 

 

3.1 - clique na barrinha branca do injetor(na textbox),vá em text e coloque "crossfire"

(NÃO É PRA POR "CROSSFIRE.EXE")

 

3.2 - No menu da tollbox,selecione PictureBox,selecione a área que vai por a imagem :

 

 

Clique na setinha mostrada na imagem, em seguida clique em choose image. Vai aparecer um menu,clique em Import, e dai basta selecionar a imagem que você quer e depois dar OK. :

 

 

 

 

No meu caso(talvez no seu), se a imagem não vir completa,clique naquela setinha citada antes.Vá em "Size Mode"', vai estar "Normal" , clique e altere para StretechImage :

 

 

3.3 - Na barra da tollbox,selecione Time e depois clique no injetor (em alguma parte vazia) Vai ficar assim :

 

 

Depois clique em OpenFileDialog e faça a mesma coisa.Vai ficar assim :

 

3.4 - Agora a parte dos códigos,clique com o botão direito no injetor e vá em View Code :

 

Vai aparecer uma página assim :

 

 

Uma explicaçãozinha rapida

1 = Seu injetor,parte dos códigos

2 = Seu injetor parte do Design

3 = informações opcionais (não a nada oque fazer aqui agora )

 

3.5 - Você vai copiar esse código e colar la

 

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 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
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 = OpenFileDialog1.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()
End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label2.Text = "Processo:"
Timer1.Interval = 2
Timer1.Start()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If IO.File.Exists(OpenFileDialog1.FileName) Then
Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
If TargetProcess.Length = 0 Then
Me.Label1.ForeColor = Color.Red
Me.Label1.Text = ("Esperando por " + TextBox1.Text + ".exe" + "....")
Else
Timer1.Stop()
Me.Label1.ForeColor = Color.Green
Me.Label1.Text = "Sucesso ao injetar!"
Call Inject()
If CheckBox1.Checked = True Then
Me.Close()
End If


End If
End If


End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dlls.Items.Clear()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.Filter = "DLL (*.dll) |*.dll"
OpenFileDialog1.ShowDialog()
Dim FileName As String
FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf("\"))
Dim DllFileName As String = FileName.Replace("\", "")
Me.Dlls.Items.Add(DllFileName)

End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If IO.File.Exists(OpenFileDialog1.FileName) Then

End If
Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
If TargetProcess.Length = 0 Then

Me.Label1.Text = ("Esperando por " + TextBox1.Text + ".exe" + "....")
Else
Timer1.Stop()
Me.Label1.ForeColor = Color.Green
Me.Label1.Text = "Injetado com sucesso!"
Call Inject()
If CheckBox1.Checked = True Then
Me.Close()
Else
End If
End If

End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Timer1.Start()
CheckBox1.Checked = True
CheckBox1.Enabled = False
Button3.Enabled = False
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Timer1.Stop()
CheckBox1.Checked = True
Button3.Enabled = True
CheckBox1.Enabled = True
End Sub

 

Download do código (bloco de notas) :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Vai ficar assim :

 

 

 

3.6 - Voltando para a parte o desing. Clique em Project e selecione a ultima opção (que vai estar com o nome do seu projeto). Vai abrir assim :

 

Clique em (Default Icon) e sem seguida Browser .

 

Agora você deverá selecionar a imagem que vai ficar de icone na área de trabalho, no seu injetor. Exemplo :

 

 

 

3.7 - Voltando a parte do design,clique no botão automatico,vá em Checked, vai estar "False" , altere para "True" :

 

 

3.8 - Agora clique na setinha verde la em cima,vai abrir seu injetor em uma versão de teste .

 

 

 

3.9 - Agora seu projeto está pronto,pra salvar,clique em File, em seguida em Salve All :

 

 

Selecione o local aonde vai ficar seu injetor(Clicando em Browser)

 

4 - Aonde você salvou,vai criar uma pasta com o nome do seu projeto.

 

Pra achar seu injetor basta ir na pasta do seu projeto,vai ter uma pasta com o mesmo nome do seu projeto dnv,clique nela. Em seguida faça esse seguimento de pastas

bin > Debug > E aqui vai estar seu injetor

 

 

Seu injetor estar (.exe) , e vai ser o único com ícone

 

Brevemente adicionarei uma vídeo aula

 

---

 

Dll WallHack Funcional

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

CRÉDITOS

 

teteu028

 

Se for kibar,deixa os créditos,deu trabalho pra fazer...

[wallaceshow 0]

man no meu download ta dando esse erro AKI

|

\/

[teteu028 2.894]

man no meu download ta dando esse erro AKI

|

\/

 

Upa a imagem no

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

(Clica em upload image > browser you computer > seleciona as imagens e > start )

[wallaceshow 0]

man aqui so da seput.exe paroe de funcionar

[WC. 0]

Aki deu certinho leiam novamente o post que explica certinho

[[M]lynarczuk? 0]

 

 

INDICE

Programas Necessários

Criando

Créditos

 

 

 

PROGRAMAS NECESSÁRIOS

 

 

 

 

CRIANDO

 

 

 

 

CRÉDITOS

 

teteu028

 

Se for kibar,deixa os créditos,deu trabalho pra fazer...

 

 

 

 

Ok e o button de procurar e de enfeite?

pôs não funcionou aqui.

[Denver' 697]

Muito bom teteu esse modo de criação funciona em outros jogos também ou só no crossfire?

[teteu028 2.894]

Muito bom teteu esse modo de criação funciona em outros jogos também ou só no crossfire?

 

Funciona pra qualquer jogo,só basta mudar a text box.

 

Ex : pra cf usamos "crossfire" na textbox. Pra pb seria "Pointblank"

[[H]idra. 0]

Amei esse tutorial man, sempre quis saber como se cria um próprio injetor dll, obrigado :beijo:

[[A]polo 0]

Nossa,melhor tutorial para hacker que eu vi,tentei com pointblank mas falta algumas coisasinhas ^_^

Thx !

[Anonymous4301 0]

Demorou Mas Finalmente Fiz!

[Alquinia 0]

Muito bom , depois vou treinar é tentar ;-;