nekobaka 2 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · Download do Programa Final do Topico, Lembrando que será nescessario achar os values para por na DLL e que seria obtido atraves de um UCE que no momento estamos sem... Tentem descompactar a DLL dos outros trainers e coloquem nos seus (Não coloquem Item Hack Por Favor) Requerido 3 CommandButton 2 Label 3 Module 1 Timer 1 CommonDialog1(Componente Microsoft Common Dialog Control 6.0) 1 Label Tutorial: - Adicione todos os componentes e ferramentas no form e organize desta forma(se preferir): - Text1 será o campo para procurar a Dll e o Text2 será para colocar o nome da Janela. - Adicione o seguinte código no CommandButton de Procurar: CODE Dim sTemp As String CommonDialog1.FileName = "*.dll" CommonDialog1.ShowOpen Text1.Text = CommonDialog1.FileName - Adicione o Seguinte Código no CommandButton Auto-Inject Status-OFF: CODE If Text1.Text = "" Then Exit Sub If Text2.Text = "" Then Exit Sub If Command1.Caption = "Status do Injetor: OFF" Then Timer1.Enabled = True Command1.Caption = "Status do Injetor: ON" Exit Sub Else Command1.Caption = "Status do Injetor: OFF" Timer1.Enabled = False Label1.Caption = "Esperando para Injetar a Dll" End If - Declare o seguinte código no seu projeto: CODE Option Explicit Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Private Declare Function GetWindowText Lib "User32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetWindowTextLength Lib "User32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Const SW_SHOW = 5 - No CommandButton Fechar Adicione o seguinte código: CODE End - No Form no evento Load adicione: CODE GetSeDebugPrivelege Label1.Caption = "Esperando Injeção de Dll" - No timer adicione o código abaixo: CODE On Error Resume Next Dim hwnd As Long Dim pid As Long Dim lSuccess& Dim pHandle As Long hwnd = FindWindow(vbNullString, Text2.Text) GetWindowThreadProcessId hwnd, pid pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) If hwnd = 0 Then Label1.Caption = "Procurando pelo nome da Janela..." Else Label1.Caption = "Nome da Janela não encontrado!" GetWindowThreadProcessId hwnd, pid Label1.Caption = pid lSuccess = InjectLibrary(pid, Text1.Text) End If pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) MsgBox pid lSuccess = InjectLibrary(pid, App.Path & "\Morphine.dll") If lSuccess > 0 Then Label1.Caption = "Dll Injetada com sucesso!!" Timer1.Enabled = False Exit Sub Else Label1.Caption = "Esperando a Injeção da DLL..." End If End Sub Agora vem a parte das Modules - Mude o nome de todas as modules para os seguintes nomes: 1º - modDebugPriveleges 2º - modFiles 3º - modInjection - Na Module modDebugPriveleges Adicione o seguinte: CODE Option Explicit Private Const SE_DEBUG_NAME As String = "SeDebugPrivilege" Private Const TOKEN_ADJUST_PRIVILEGES As Long = &H20 Private Const TOKEN_QUERY As Long = &H8 Private Const SE_PRIVILEGE_ENABLED As Long = &H2 Private Type LUID LowPart As Long HighPart As Long End Type Private Type LUID_AND_ATTRIBUTES pLuid As LUID Attributes As Long End Type Private Type TOKEN_PRIVILEGES PrivilegeCount As Long TheLuid As LUID Attributes As Long End Type Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Long Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, ByRef TokenHandle As Long) As Long Private Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, ByRef NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, ByRef PreviousState As TOKEN_PRIVILEGES, ByRef ReturnLength As Long) As Long Private Declare Function GetLastError Lib "kernel32" () As Long Public Sub GetSeDebugPrivelege() LoadPrivilege SE_DEBUG_NAME End Sub Public Function LoadPrivilege(ByVal Privilege As String) As Boolean On Error GoTo ErrHandler Dim hToken&, SEDebugNameValue As LUID, tkp As TOKEN_PRIVILEGES, hProcessHandle&, tkpNewButIgnored As TOKEN_PRIVILEGES, lBuffer& hProcessHandle = GetCurrentProcess() OpenProcessToken hProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hToken LookupPrivilegeValue "", Privilege, SEDebugNameValue With tkp .PrivilegeCount = 1 .TheLuid = SEDebugNameValue .Attributes = SE_PRIVILEGE_ENABLED End With AdjustTokenPrivileges hToken, False, tkp, Len(tkp), tkpNewButIgnored, lBuffer LoadPrivilege = True Exit Function ErrHandler: MsgBox "An error occurred retrieving SE_DEBUG_NAME prileges in the LoadPrivelege() function. Note: This program is running without debug priveleges, that may interfere with removing the infection.", vbCritical + vbOKOnly Resume Next End Function - Na Module modFiles Adicione o seguinte: CODE Option Explicit Public Function FileExists(sFile$) As Boolean If Trim$(sFile) = vbNullString Then Exit Function FileExists = IIf(Dir(sFile, vbArchive + vbHidden + vbReadOnly + vbSystem) <> vbNullString, True, False) End Function Public Function TrimNull$(sToTrim$) If InStr(sToTrim, Chr(0)) > 0 Then TrimNull = Left$(sToTrim, InStr(sToTrim, Chr(0)) - 1) Else TrimNull = sToTrim End If End Function - Na Module modInjection Adicione o seguinte: CODE Option Explicit Private Const PROCESS_ALL_ACCESS = &H1F0FFF Private Const INFINITE = &HFFFFFFFF Private Const MEM_COMMIT = &H1000 Private Const MEM_RELEASE = &H8000 Private Const PAGE_READWRITE = &H4 Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long Private Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Long, lpThreadAttributes As Any, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Public Function InjectLibrary(lPID&, sLibrary$) As Long Dim hProcess&, hThread&, lLinkToLibrary&, lSize&, hKernel& If Not FileExists(sLibrary) Then MsgBox "Arquivo Não Existe!" Exit Function End If If lPID = GetCurrentProcessId() Then InjectLibrary = InjectIntoMe(sLibrary) Exit Function End If hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, lPID) If hProcess = 0 Then MsgBox "hProcess returned NULL" Exit Function End If lSize = LenB(StrConv(sLibrary, vbFromUnicode)) + 1 lLinkToLibrary = VirtualAllocEx(hProcess, 0&, lSize, MEM_COMMIT, PAGE_READWRITE) If lLinkToLibrary = 0 Then CloseHandle hProcess MsgBox "lLinkToLibrary failed" Exit Function End If If (WriteProcessMemory(hProcess, lLinkToLibrary, ByVal sLibrary, lSize, ByVal 0&) = 0) Then CloseHandle hProcess If lLinkToLibrary <> 0 Then VirtualFreeEx hProcess, lLinkToLibrary, 0, MEM_RELEASE MsgBox "WriteProcessMemory failed" Exit Function End If hKernel = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA") If hKernel = 0 Then CloseHandle hProcess If lLinkToLibrary <> 0 Then VirtualFreeEx hProcess, lLinkToLibrary, 0, MEM_RELEASE MsgBox "hKernel returned NULL" Exit Function End If hThread = CreateRemoteThread(hProcess, ByVal 0&, 0&, ByVal hKernel, lLinkToLibrary, 0, ByVal 0&) If hThread = 0 Then CloseHandle hKernel CloseHandle hProcess If lLinkToLibrary <> 0 Then VirtualFreeEx hProcess, lLinkToLibrary, 0, MEM_RELEASE MsgBox "hThread returned NULL." Exit Function End If WaitForSingleObject hThread, 2000 If lLinkToLibrary <> 0 Then VirtualFreeEx hProcess, lLinkToLibrary, 0, MEM_RELEASE If hKernel <> 0 Then CloseHandle (hKernel) If hThread <> 0 Then CloseHandle (hThread) If hProcess <> 0 Then CloseHandle (hProcess) InjectLibrary = 1 End Function Private Function InjectIntoMe(sLibrary$) As Long InjectIntoMe = LoadLibrary(sLibrary) End Function Creditos: Peguei aqui no forum de um topico fechado ao inves de ser movido Pronto é apenas isso, qualquer dúvida é so postar aqui ou na Area de Duvidas / Ajuda ;) Download É necessário se cadastrar para acessar o conteúdo. Entre ou Cadastre-se Source + Trainer (Editação e tudo mais '-') É necessário se cadastrar para acessar o conteúdo. Entre ou Cadastre-se ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
zully 0 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · que porra e essa n entendi nada pq vc na proxima nao coloca um link mais facil e com tudo que vc ta falando pra baixar ... ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
nekobaka 2 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · Pq as pessoas querem FAZER o seu e não pegar um pronto! ;) ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
Lipsticky 242 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · Ocorreu um erro, consertado. ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
[F]غrnandido™~ 0 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 e como eu consigo eses 3 CommandButton 2 Label 3 Module 1 Timer 1 CommonDialog1(Componente Microsoft Common Dialog Control 6.0) 1 Label sebe numk nem ouvi fla nessas coisas xD ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
Haseo 53 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · Complicado... Mas pra quem tem um conhecimento básico de Programação, será útil. ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
caxacaxo 12 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · Area Errada NaO?? pra kem nau entende mto sobre isso nao vai saber criar um Injetor(como por exemplo eu xD)e eu tbm nao tenho paciencia pra esse tipo de coisa Golf GTI 2.0, Stg 3 by Armada, IS38 + Downpipe + CAI + Escape 3" + Velas + Bobinas + Intercooler. Old School <3 ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
Lothos 2 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · @fernandido Provavelmente isso vira na source do trainer @Topic Otimo tópico vou tentar criar um trainer para a web cheats, não garanto nada. Ps: A área certa não seria na Infozone/Programação ? ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
nekobaka 2 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · Não pois isso é para Injetores - Grand Chase ;) ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
almm97 0 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · Tambem acho q seria em outro lugar aqui é area de Cheats e não tutoriais, nem programação. ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
[F]غrnandido™~ 0 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 @fernandido Provavelmente isso vira na source do trainer é mais num veio xD ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
nekobaka 2 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · Galera, Link Att Boa Programação! ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
quinquinha 0 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · cara sou teu amigo i ti ajudu, rapido coloca um scan nissu antes q um mod venha aki i fexe rapido,rapido,rapido,rapidorapidorapido ;) ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
BrazucaBR 0 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · Bacana o tutorial, em basic, mas da pra constuir injetor na plataforma .NET ou só em VB 6? ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
dimenor1576 0 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · Área Errada essa área e destinada para.. ! Downloads de Cheats / Hacks / Utilitários ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
diwan10 0 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · Poxa Ela tentou ajudar e vocês ficam falando que ta na área errada!!!! ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
GOD YAGO 3 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · Naum consegi baixar os links estao qubrados ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
felipepn 0 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · Para mim a Area está completamente Certa, Quem quiser tente fazer o seu se conseguir, parabéns se não conseguir tente novamente. @topic Belo topic, tava procurando gostei muito, vou tenta faze o meu aqui... Abrçs @Off Grand Chase - Downloads de Cheats / Hacks / "Utilitários" ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
higmar123 0 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · eu consegui fazer:D:D uff...:rolleyes: mas foi dificil acho que é mt complicado, tive que suar pra consegui aqueles 3 CommandButton 2 Label 3 Module 1 Timer 1 CommonDialog1(Componente Microsoft Common Dialog Control 6.0) 1 Label ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
GOD YAGO 3 Postado 22 de Abril 2009 Compartilhar Postado 22 de Abril 2009 · onde eu consigo os: 3 CommandButton 2 Label 3 Module 1 Timer 1 CommonDialog1(Componente Microsoft Common Dialog Control 6.0) 1 Label ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
sayadin105 5 Postado 23 de Abril 2009 Compartilhar Postado 23 de Abril 2009 · Área errada, a certa seria em Programação, Autor advertido, Movido ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
marcooreis 1 Postado 23 de Abril 2009 Compartilhar Postado 23 de Abril 2009 · Gostei vou tentar fazer ! ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
BySrMal 1 Postado 29 de Abril 2009 Compartilhar Postado 29 de Abril 2009 · eu vo Tentar Criar eu tenho paciencia pra essis tipos de coisa conto com todos vcs espero que todos conte comigo :) Requerido 3 CommandButton 2 Label 3 Module 1 Timer 1 CommonDialog1(Componente Microsoft Common Dialog Control 6.0) 1 Label Tutorial: - Adicione todos os componentes e ferramentas no form e organize desta forma(se preferir): - Text1 será o campo para procurar a Dll e o Text2 será para colocar o nome da Janela. - Adicione o seguinte código no CommandButton de Procurar: CODE Dim sTemp As String CommonDialog1.FileName = "*.dll" CommonDialog1.ShowOpen Text1.Text = CommonDialog1.FileName - Adicione o Seguinte Código no CommandButton Auto-Inject Status-OFF: CODE If Text1.Text = "" Then Exit Sub If Text2.Text = "" Then Exit Sub If Command1.Caption = "Status do Injetor: OFF" Then Timer1.Enabled = True Command1.Caption = "Status do Injetor: ON" Exit Sub Else Command1.Caption = "Status do Injetor: OFF" Timer1.Enabled = False Label1.Caption = "Esperando para Injetar a Dll" End If - Declare o seguinte código no seu projeto: CODE Option Explicit Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Private Declare Function GetWindowText Lib "User32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetWindowTextLength Lib "User32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Const SW_SHOW = 5 - No CommandButton Fechar Adicione o seguinte código: CODE End - No Form no evento Load adicione: CODE GetSeDebugPrivelege Label1.Caption = "Esperando Injeção de Dll" - No timer adicione o código abaixo: CODE On Error Resume Next Dim hwnd As Long Dim pid As Long Dim lSuccess& Dim pHandle As Long hwnd = FindWindow(vbNullString, Text2.Text) GetWindowThreadProcessId hwnd, pid pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) If hwnd = 0 Then Label1.Caption = "Procurando pelo nome da Janela..." Else Label1.Caption = "Nome da Janela não encontrado!" GetWindowThreadProcessId hwnd, pid Label1.Caption = pid lSuccess = InjectLibrary(pid, Text1.Text) End If pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) MsgBox pid lSuccess = InjectLibrary(pid, App.Path & "\Morphine.dll") If lSuccess > 0 Then Label1.Caption = "Dll Injetada com sucesso!!" Timer1.Enabled = False Exit Sub Else Label1.Caption = "Esperando a Injeção da DLL..." End If End Sub Agora vem a parte das Modules - Mude o nome de todas as modules para os seguintes nomes: 1º - modDebugPriveleges 2º - modFiles 3º - modInjection - Na Module modDebugPriveleges Adicione o seguinte: CODE Option Explicit Private Const SE_DEBUG_NAME As String = "SeDebugPrivilege" Private Const TOKEN_ADJUST_PRIVILEGES As Long = &H20 Private Const TOKEN_QUERY As Long = &H8 Private Const SE_PRIVILEGE_ENABLED As Long = &H2 Private Type LUID LowPart As Long HighPart As Long End Type Private Type LUID_AND_ATTRIBUTES pLuid As LUID Attributes As Long End Type Private Type TOKEN_PRIVILEGES PrivilegeCount As Long TheLuid As LUID Attributes As Long End Type Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Long Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, ByRef TokenHandle As Long) As Long Private Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, ByRef NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, ByRef PreviousState As TOKEN_PRIVILEGES, ByRef ReturnLength As Long) As Long Private Declare Function GetLastError Lib "kernel32" () As Long Public Sub GetSeDebugPrivelege() LoadPrivilege SE_DEBUG_NAME End Sub Public Function LoadPrivilege(ByVal Privilege As String) As Boolean On Error GoTo ErrHandler Dim hToken&, SEDebugNameValue As LUID, tkp As TOKEN_PRIVILEGES, hProcessHandle&, tkpNewButIgnored As TOKEN_PRIVILEGES, lBuffer& hProcessHandle = GetCurrentProcess() OpenProcessToken hProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hToken LookupPrivilegeValue "", Privilege, SEDebugNameValue With tkp .PrivilegeCount = 1 .TheLuid = SEDebugNameValue .Attributes = SE_PRIVILEGE_ENABLED End With AdjustTokenPrivileges hToken, False, tkp, Len(tkp), tkpNewButIgnored, lBuffer LoadPrivilege = True Exit Function ErrHandler: MsgBox "An error occurred retrieving SE_DEBUG_NAME prileges in the LoadPrivelege() function. Note: This program is running without debug priveleges, that may interfere with removing the infection.", vbCritical + vbOKOnly Resume Next End Function - Na Module modFiles Adicione o seguinte: CODE Option Explicit Public Function FileExists(sFile$) As Boolean If Trim$(sFile) = vbNullString Then Exit Function FileExists = IIf(Dir(sFile, vbArchive + vbHidden + vbReadOnly + vbSystem) <> vbNullString, True, False) End Function Public Function TrimNull$(sToTrim$) If InStr(sToTrim, Chr(0)) > 0 Then TrimNull = Left$(sToTrim, InStr(sToTrim, Chr(0)) - 1) Else TrimNull = sToTrim End If End Function - Na Module modInjection Adicione o seguinte: CODE Option Explicit Private Const PROCESS_ALL_ACCESS = &H1F0FFF Private Const INFINITE = &HFFFFFFFF Private Const MEM_COMMIT = &H1000 Private Const MEM_RELEASE = &H8000 Private Const PAGE_READWRITE = &H4 Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long Private Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Long, lpThreadAttributes As Any, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Public Function InjectLibrary(lPID&, sLibrary$) As Long Dim hProcess&, hThread&, lLinkToLibrary&, lSize&, hKernel& If Not FileExists(sLibrary) Then MsgBox "Arquivo Não Existe!" Exit Function End If If lPID = GetCurrentProcessId() Then InjectLibrary = InjectIntoMe(sLibrary) Exit Function End If hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, lPID) If hProcess = 0 Then MsgBox "hProcess returned NULL" Exit Function End If lSize = LenB(StrConv(sLibrary, vbFromUnicode)) + 1 lLinkToLibrary = VirtualAllocEx(hProcess, 0&, lSize, MEM_COMMIT, PAGE_READWRITE) If lLinkToLibrary = 0 Then CloseHandle hProcess MsgBox "lLinkToLibrary failed" Exit Function End If If (WriteProcessMemory(hProcess, lLinkToLibrary, ByVal sLibrary, lSize, ByVal 0&) = 0) Then CloseHandle hProcess If lLinkToLibrary <> 0 Then VirtualFreeEx hProcess, lLinkToLibrary, 0, MEM_RELEASE MsgBox "WriteProcessMemory failed" Exit Function End If hKernel = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA") If hKernel = 0 Then CloseHandle hProcess If lLinkToLibrary <> 0 Then VirtualFreeEx hProcess, lLinkToLibrary, 0, MEM_RELEASE MsgBox "hKernel returned NULL" Exit Function End If hThread = CreateRemoteThread(hProcess, ByVal 0&, 0&, ByVal hKernel, lLinkToLibrary, 0, ByVal 0&) If hThread = 0 Then CloseHandle hKernel CloseHandle hProcess If lLinkToLibrary <> 0 Then VirtualFreeEx hProcess, lLinkToLibrary, 0, MEM_RELEASE MsgBox "hThread returned NULL." Exit Function End If WaitForSingleObject hThread, 2000 If lLinkToLibrary <> 0 Then VirtualFreeEx hProcess, lLinkToLibrary, 0, MEM_RELEASE If hKernel <> 0 Then CloseHandle (hKernel) If hThread <> 0 Then CloseHandle (hThread) If hProcess <> 0 Then CloseHandle (hProcess) InjectLibrary = 1 End Function Private Function InjectIntoMe(sLibrary$) As Long InjectIntoMe = LoadLibrary(sLibrary) End Function Creditos: Peguei aqui no forum de um topico fechado ao inves de ser movido Pronto é apenas isso, qualquer dúvida é so postar aqui ou na Area de Duvidas / Ajuda ;) Download É necessário se cadastrar para acessar o conteúdo. Entre ou Cadastre-se Source + Trainer (Editação e tudo mais '-') É necessário se cadastrar para acessar o conteúdo. Entre ou Cadastre-se [/color][/size][/font] o eu to em duvida em 1 Coisa ----- ----- como eu fasso pra colocar os Hackers Tipo ( Auto Kill , Damage Hacker ,HP Hacker , Perfect I , Perfect II , Zero Damage , Stage Hacker , Canal Hacker , Fortalecimento , Plaza GP , Oxygen , lvl Hacker , pular falas (Xenias) Etc....: como eu fasso essa paradas :confused::confused::confused: ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
samusamu 5.327 Postado 7 de Junho 2009 Compartilhar Postado 7 de Junho 2009 · bem complicado nao axa? mas to baixando o VB pois so tenho o delphi "Eu nunca desisti e como você pode ver, eu não estou morto!" ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
ivogabriel 0 Postado 7 de Junho 2009 Compartilhar Postado 7 de Junho 2009 · vc poderia especificar da proxima vez qual e o programa que se usa, mas agora esse codigo ta cheio de erros, se voce nao for programador, nem compensa vc posta, pq nao poderar ajudar, e sei q tbm nao vai fica no pe do dono da source para pedir ajuda para todos. ᅠᅠMural de Coleçõesᅠᅠ Clique aqui e adquira suas medalhas Link para o comentário Compartilhar em outros sites Mais opções de compartilhamento...
Posts Recomendados