tocaum
Tipo de Conteúdo
Perfis
Fóruns
Atualizações
Quizzes
Store
Posts postados por tocaum
-
-
-
Print do injetor Ultimate cheaters v0.2:
__________________________________________________________________
Print do Hack Ultimate Cheaters v1.0:
___________________________________________________________________
OBS: SÓ VAI PEGAR COM QUEM TEM O UNLOOCK INSTALADO NA PASTA ORIGINAL NO DISCO C
INSTALE O UNLOOCK E DEPOIS É SÓ ALEGRIA
__________________________________________________________________
Download direto do UNLOOK ALLZACK :
É necessário se cadastrar para acessar o conteúdo.- Entre
- ou
- Cadastre-se
-
__________________________________________________________
Creditos:
pela base hack: Solify's, We11ington e a Equipe Ultimate Cheaters.
Pelo Injetor: Equipe Ultimate Cheaters.
Pelo UNLOOCK: ALLZACK
-
Vlw manow ta de parabéns ae, continu assim :aplauso:
-
Quando o Anti-virus Está Ligado Ele Não Executa Ou Não Injeta?[/color][/b]
Ele executa, mais não injeta.
-
dê éle éle[/color].
codigo:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TlHelp32, ExtCtrls, StdCtrls, jpeg;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Timer1: TTimer;
OpenDialog1: TOpenDialog;
Label3: TLabel;
RadioButton1: TRadioButton;
ListBox1: TListBox;
Limpar: TButton;
Image1: TImage;
Label4: TLabel;
Label5: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure LimparClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function GetPID(ProcessName: string): DWORD;
var MyHandle: THandle;
Struct: TProcessEntry32;
begin
Result:=0;
try
MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
Struct.dwSize:=Sizeof(TProcessEntry32);
if Process32First(MyHandle, Struct) then
if Struct.szExeFile=ProcessName then
begin
Result:=Struct.th32ProcessID;
Exit;
end;
while Process32Next(MyHandle, Struct) do
if Struct.szExeFile=ProcessName then
begin
Result:=Struct.th32ProcessID;
Exit;
end;
except on exception do
Exit;
end;
end;
function InjectDll(PID:DWORD; sDll:string):Boolean;
var
hLib: Pointer;
hThread: THandle;
pMod: Pointer;
hOpen: THandle;
dWritten: Cardinal;
ThreadID: Cardinal;
begin
Result := FALSE;
hOpen := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);
if hOpen <> INVALID_HANDLE_VALUE then
begin
hLib := GetProcAddress(GetModuleHandle(PChar('kernel32.dll')), PChar('LoadLibraryA'));
pMod := VirtualAllocEx(hOpen, nil, Length(sDll) + 1, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
if WriteProcessMemory(hOpen, pMod, @sDll[1], Length(sDll), dWritten) then
Result := TRUE;
hThread := CreateRemoteThread(hOpen, nil, 0, hLib, pMod, 0, ThreadID);
WaitForSingleObject(hThread, INFINITE);
CloseHandle(hOpen);
CloseHandle(hThread);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if not OpenDialog1.Execute then Exit;
Listbox1.Items.Add(ExtractFileName(OpenDialog1.FileName));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var PID: DWORD;
begin
Timer1.Enabled:=False;
PID:=GetPID(Edit1.Text);
if PID=0 then
begin
Timer1.Enabled:=True;
Exit;
end;
Timer1.Enabled:=False;
if InjectDll(PID, Opendialog1.Filename) then
MessageBoxA(Handle, 'DLL injetada com sucesso!', 'DLL Injector', MB_ICONEXCLAMATION+MB_SYSTEMMODAL)
else
MessageBoxA(Handle, 'Erro ao injetar DLL.', 'DLL Injector', MB_ICONERROR+MB_SYSTEMMODAL);
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;
procedure TForm1.LimparClick(Sender: TObject);
begin
ListBox1.Clear
end;
end.
1°- Verifique o Nome do Processo Que Você Colocou Para Ver se Não Esta Aberto.2°- Nem Todas Os Injetor São Virus . Na Verdade Nenhum é Virus![/color][/b]
O processo ta certo e para combat arms :coloco assim " Engine.exe ".
Pois éeh kara mais porque eu tenho que desativa o antivirus para ele funcionar.
-
Se vocês poderem me ajudar desde ja agradeço.
Estou com um problema,
1°:mesmo sem nenhuma dll de hacke no injetor que criei ele da dll injetada com susseço.
2°:Eu tive que desliga o meu antivirus para ele funcionar mais meu antivirus nao o detecto nenhum virus.
o que eu faço me ajudem pf.
:conversando:
-
erro no meu injetor.
Se vocês poder me ajudar desde ja agradeço.
Estou com um problema,
1°:mesmo sem nenhuma dll de hacke no injetor que criei ele da dll injetada com susseço.
2°:Eu tive que desliga o meu antivirus para ele funcionar mais meu antivirus nao o detecto nenhum virus.
o que eu faço me ajudem pf.
-
manolo como abre o menu do hack?
-
aff cade tuto manolo
Post Infrator Já Punido.
-
Vlw ae, mt boom:aplauso:
-
esta funcionando vlw
mais o nx chams nao esta vendo pela
parede .. me ajude a resolver :D
[HACK]Ultimate Cheaters® v1.0 com menu.
em Combat Arms - Download de Cheats / Utilitários
Postado
Simplifique seu erro.