opa, sou novo tambem, gostaria de alguns tutoriais sobre hacking, ddos, porque o pessoal aqui é muito avançado , e eu nao consigo entender perfeitamente os posts, ou se não poderia me passar algum contato seu, pra me encinar as coisas? Grato.
Unconfigured Ad Widget
Collapse
Anúncio
Collapse
No announcement yet.
Peça seu programa hacker AQUI.
Collapse
This is a sticky topic.
X
X
-
Sony
Postado Originalmente por agiovani79 Ver Postooi amigo tudo bom ? Sou novo no fórum !
Quero um programa que me de exibições no youtube ou que me de favoritos ou até mesmo inscritos no meu canal !
Também to precisando de um programa que troque o meu ip da minha internet sem reiniciar o pc !
Obrigado desculpa o exagero de pedidos kkk . vlw abraço Alex Giovani .
Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...sigpic
- Top
Comment
-
SonyEricsson
Postado Originalmente por Lezerah Ver Postopa, sou novo tambem, gostaria de alguns tutoriais sobre hacking, ddos, porque o pessoal aqui é muito avançado , e eu nao consigo entender perfeitamente os posts, ou se não poderia me passar algum contato seu, pra me encinar as coisas? Grato.sigpic
- Top
Comment
-
Sony
Postado Originalmente por ManoEddy Ver PostEu quero um hacker de habbok - OBS: Habbok, habbo pirata...
Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...sigpic
- Top
Comment
-
Olá gostaria que você fizesse um hack igual a esse meu só que uma dll sem form.
Teria como, ou me dizer como eu faço?
Source
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
THack = class(TForm)
AddressFrezze: TTimer;
Comandos: TTimer;
Ocultar: TTimer;
procedure FormCreate(Sender: TObject);
procedure ComandosTimer(Sender: TObject);
procedure AddressFrezzeTimer(Sender: TObject);
procedure OcultarTimer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Hack: THack;
RegenHP, RegenMP, RegenRES, Skills: Boolean;
i: Integer;
NoDelayArr: Array[1..16] of DWORD;
Hroodias: HWnd;
const
NomeDoTrainer = 'Fenix Hack';
tAutorName = 'binhofenix';
fUserdata = $030EEED8;
fChatPrint = $00524E5B;
HP = $03130900;
{ Address Somas, não mecha! }
MP = HP + $4;
RES = HP - $4;
NoDellay = HP - $A440;
Force = HP-$33FC;
{ Address Normais }
Rebuild = $004003FA;
Tier = $0040011A;
implementation
procedure ChatPrintf(ChatPrintMSG: PChar);
var ChatPrint: Cardinal;
procedure ChatPrintASM(ChatPrintMSG: PChar);
assembler;
asm
lea edx, [ChatPrintMSG]
push edx
call [ChatPrint]
pop edx
end;
begin
ChatPrint:=fChatPrint;
ChatPrintASM(ChatPrintMSG);
end;
{$R *.dfm}
procedure THack.FormCreate(Sender: TObject);
begin
Windows.Beep(999,666); { Da um beep quando injecta a dll }
end;
procedure THack.ComandosTimer(Sender: TObject);
begin
if (GetAsyncKeyState(VK_CONTROL) < 0) Then begin; { CONTROL + ? }
{ HP REGEN }
if (GetAsyncKeyState(VK_F1) < 0) then begin
if RegenHP = True then begin
RegenHP:=False;
ChatPrintf('HP: Desativado - Créditos: : '+tAutorName);
Windows.Beep(666,100);
Sleep(1000);
end else
begin
RegenHP:=True;
ChatPrintf('HP: Ativado - Créditos: '+tAutorName);
Windows.Beep(999,100);
Sleep(1000);
end;
end;
{ RES / MP REGEN }
if (GetAsyncKeyState(VK_F2) < 0) then begin
if RegenRES = True then begin
RegenRES:=False;
RegenMP:=False;
ChatPrintf('MP/RES: Desativados - Créditos: '+tAutorName);
Windows.Beep(666,100);
Sleep(1000);
end else
begin
RegenRES:=True;
RegenMP:=True;
ChatPrintf('MP/RES:: Ativados - Créditos: '+tAutorName);
Windows.Beep(999,100);
Sleep(1000);
end;
end;
{ SKILL NO DELLAY }
if (GetAsyncKeyState(VK_F3) < 0) then begin
if Skills := True then begin
Skills:=False;
ChatPrintf('NO DELLAY: Desativado - Créditos: '+tAutorName);
Windows.Beep(666,100);
Sleep(1000);
end else
begin
Skills:=True;
ChatPrintf('NO DELLAY: Ativado - Créditos: '+tAutorName);
Windows.Beep(999,100);
Sleep(1000);
end;
end;
{Force Infinito}
if (GetAsyncKeyState(VK_F4) < 0) then begin
if ForceInf := True then begin
ChatPrintf(' Force: Ativado - Créditos: '+tAutorName);
Windows.Beep(999,100);
Sleep(1000);
end;
end;
{ Exemplo de funções que só usara value = 1 }
{ REBUILD }
if (GetAsyncKeyState(VK_F5) < 0) then begin
ChatPrintf('* Rebuild *');
PINTEGER(Rebuild)^:=1;
Windows.Beep(999,100);
Sleep(1000);
end;
{ Tier Up}
if (GetAsyncKeyState(VK_F6) < 0) then begin
ChatPrintf('* Tier Up *');
PINTEGER(Tier)^:=1;
Windows.Beep(999,100);
Sleep(1000);
end;
end;
end;
procedure THack.AddressFrezzeTimer(Sender: TObject);
begin
{ VALORES FREZZADOS }
{ HP REGEN }
if RegenHP = True then begin
PINTEGER(HP)^:=1124859904; {140} { Valor convertido de float para 4 bytes ! }
end;
{ MP REGEN }
if RegenMP = True then begin
PINTEGER(MP)^:=1124859904; {140} { Valor convertido de float para 4 bytes ! }
end;
{ RES REGEN }
if RegenRES = True then begin
PINTEGER(RES)^:=1124859904; {140} { Valor convertido de float para 4 bytes ! }
end;
{ SKILL NO DELLAY }
if Skills = True then begin
for i:= 1 to 16 do begin
NoDelayArr[i]:= NoDellay + ((i-1) * $210);
PDWORD(NoDelayArr[i])^:=0;
end;
{Force Infinito}
if ForceInf := True then begin
PINTEGER(Force)^:=36000000; {10 horas}
end;
end;
end;
procedure THack.OcultarTimer(Sender: TObject);
begin
Hroodias := FindWindow(nil,NomeDoTrainer);
if Hroodias <> 0 then
ShowWindow(Hroodias,SW_HIDE);
end;
begin
SetWindowText(FindWindow(nil, 'Priston Tale'),'Fenix Hack by binhofenix!');
end.
Tentei, se não consegui não critique, mas se Ajudei Agradeça...
- Top
Comment
-
Amigo esse é o primeiro post, sou leigo em relação à alguns assuntos, queria saber se existe um programa específico q controla varias contas de e-mails para fazer determinada ação, chamado bots, normalmente utilizado para ganhar views e favorites no youtube. Como fazer?
- Top
Comment
-
Sony
Postado Originalmente por binho.fenix Ver PostOlá gostaria que você fizesse um hack igual a esse meu só que uma dll sem form.
Teria como, ou me dizer como eu faço?
Source
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
THack = class(TForm)
AddressFrezze: TTimer;
Comandos: TTimer;
Ocultar: TTimer;
procedure FormCreate(Sender: TObject);
procedure ComandosTimer(Sender: TObject);
procedure AddressFrezzeTimer(Sender: TObject);
procedure OcultarTimer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Hack: THack;
RegenHP, RegenMP, RegenRES, Skills: Boolean;
i: Integer;
NoDelayArr: Array[1..16] of DWORD;
Hroodias: HWnd;
const
NomeDoTrainer = 'Fenix Hack';
tAutorName = 'binhofenix';
fUserdata = $030EEED8;
fChatPrint = $00524E5B;
HP = $03130900;
{ Address Somas, não mecha! }
MP = HP + $4;
RES = HP - $4;
NoDellay = HP - $A440;
Force = HP-$33FC;
{ Address Normais }
Rebuild = $004003FA;
Tier = $0040011A;
implementation
procedure ChatPrintf(ChatPrintMSG: PChar);
var ChatPrint: Cardinal;
procedure ChatPrintASM(ChatPrintMSG: PChar);
assembler;
asm
lea edx, [ChatPrintMSG]
push edx
call [ChatPrint]
pop edx
end;
begin
ChatPrint:=fChatPrint;
ChatPrintASM(ChatPrintMSG);
end;
{$R *.dfm}
procedure THack.FormCreate(Sender: TObject);
begin
Windows.Beep(999,666); { Da um beep quando injecta a dll }
end;
procedure THack.ComandosTimer(Sender: TObject);
begin
if (GetAsyncKeyState(VK_CONTROL) < 0) Then begin; { CONTROL + ? }
{ HP REGEN }
if (GetAsyncKeyState(VK_F1) < 0) then begin
if RegenHP = True then begin
RegenHP:=False;
ChatPrintf('HP: Desativado - Créditos: : '+tAutorName);
Windows.Beep(666,100);
Sleep(1000);
end else
begin
RegenHP:=True;
ChatPrintf('HP: Ativado - Créditos: '+tAutorName);
Windows.Beep(999,100);
Sleep(1000);
end;
end;
{ RES / MP REGEN }
if (GetAsyncKeyState(VK_F2) < 0) then begin
if RegenRES = True then begin
RegenRES:=False;
RegenMP:=False;
ChatPrintf('MP/RES: Desativados - Créditos: '+tAutorName);
Windows.Beep(666,100);
Sleep(1000);
end else
begin
RegenRES:=True;
RegenMP:=True;
ChatPrintf('MP/RES:: Ativados - Créditos: '+tAutorName);
Windows.Beep(999,100);
Sleep(1000);
end;
end;
{ SKILL NO DELLAY }
if (GetAsyncKeyState(VK_F3) < 0) then begin
if Skills := True then begin
Skills:=False;
ChatPrintf('NO DELLAY: Desativado - Créditos: '+tAutorName);
Windows.Beep(666,100);
Sleep(1000);
end else
begin
Skills:=True;
ChatPrintf('NO DELLAY: Ativado - Créditos: '+tAutorName);
Windows.Beep(999,100);
Sleep(1000);
end;
end;
{Force Infinito}
if (GetAsyncKeyState(VK_F4) < 0) then begin
if ForceInf := True then begin
ChatPrintf(' Force: Ativado - Créditos: '+tAutorName);
Windows.Beep(999,100);
Sleep(1000);
end;
end;
{ Exemplo de funções que só usara value = 1 }
{ REBUILD }
if (GetAsyncKeyState(VK_F5) < 0) then begin
ChatPrintf('* Rebuild *');
PINTEGER(Rebuild)^:=1;
Windows.Beep(999,100);
Sleep(1000);
end;
{ Tier Up}
if (GetAsyncKeyState(VK_F6) < 0) then begin
ChatPrintf('* Tier Up *');
PINTEGER(Tier)^:=1;
Windows.Beep(999,100);
Sleep(1000);
end;
end;
end;
procedure THack.AddressFrezzeTimer(Sender: TObject);
begin
{ VALORES FREZZADOS }
{ HP REGEN }
if RegenHP = True then begin
PINTEGER(HP)^:=1124859904; {140} { Valor convertido de float para 4 bytes ! }
end;
{ MP REGEN }
if RegenMP = True then begin
PINTEGER(MP)^:=1124859904; {140} { Valor convertido de float para 4 bytes ! }
end;
{ RES REGEN }
if RegenRES = True then begin
PINTEGER(RES)^:=1124859904; {140} { Valor convertido de float para 4 bytes ! }
end;
{ SKILL NO DELLAY }
if Skills = True then begin
for i:= 1 to 16 do begin
NoDelayArr[i]:= NoDellay + ((i-1) * $210);
PDWORD(NoDelayArr[i])^:=0;
end;
{Force Infinito}
if ForceInf := True then begin
PINTEGER(Force)^:=36000000; {10 horas}
end;
end;
end;
procedure THack.OcultarTimer(Sender: TObject);
begin
Hroodias := FindWindow(nil,NomeDoTrainer);
if Hroodias <> 0 then
ShowWindow(Hroodias,SW_HIDE);
end;
begin
SetWindowText(FindWindow(nil, 'Priston Tale'),'Fenix Hack by binhofenix!');
end.sigpic
- Top
Comment
-
precisode uma programa para envio em massa sendo que ele não necessite de smtp vc manja disso cara?
- Top
Comment
-
Sony
Postado Originalmente por honttz Ver PostEu queria algum scanner sql injection online, para encontrar sites vulneráveis através de dorks..
Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...sigpic
- Top
Comment
-
Sony
Postado Originalmente por jackson1993 Ver Postprecisode uma programa para envio em massa sendo que ele não necessite de smtp vc manja disso cara?
tinha ele na minha maquina formatei a mesma e perdi quando eu encontrar o mesmo em outro ser posto aqui.sigpic
- Top
Comment
-
Trojan
Boa noite, eu sou novo no assunto de Hackers, mais estou aqui para ver se tem como me disponibilizar um Trojan que funcione corretamente, se possivel português, e que se possa, fique invisivel. Se poder ajudar, responde aii. ^^' Agradece: [ADM]Hacking
- Top
Comment
X
Comment