[ajuda/pedido]Delphi 7 virus/hack

**renanbeline** · 9 de Novembro 2010

Bom galera quero criar um virus/hack pra brincar com os mlk da minha classe

pra fala o baxa esse programa q eu fiz ele hackia Msn/orkut

Bom olha uma foto do hack ! :

eu quero q quando click no butao gerar senha quero q aparece no desktop umas 100 fotos de um neguinho rindo q eu tenho .gif

e que em quanto extrai as fotos quero q a barrinha do progresso encha com forme extrai as 100 fotos

eu quero tb que quando click no butao ali Orkut quero q aparece uma new form tipo o msn so q nome orkut.

eu tb quero sabe se da pra por uma musica no programa quando abri ou quando click nun bbutao

Bom e so isso por imquanto !

**Owner** · 9 de Novembro 2010

Para colocar musica você fazer um resource

Ou carrega a musica com o programa, exemplo:

tem seu projeto e você toda vez tera que colocar a musica junto para tocar

Não sei fazer também !

Já como colocar as fotos, você usa o resource se quiser também

Ou fazer igual a musica

O Orkut é so você copiar o jeito do MSN e colocar o nome de orkut

De Extrair eu não sei como fazer

Mas é um codigo bem simples (:

Abrasz

**DragonBoss** · 9 de Novembro 2010

Ahamm... tu eh Cheater, correto ? ....

Pra extrair as fotos, usa Resource pra armazenar e CoyFile pra fazer as copias, pra fazer o eskema da progressbar, faz tipo assim, ele copia uma foto a cada 0.1 segundo (aumentando 1 da progressbar), sendo assim, em 10 segundos ele copia 100 fotos e a progressbar enxe.

A 'musika' vc pode usar o componente do media player ou um 'beep' com certos parametros....

E o 'new form' la, eh soh criar um outro form, mas igual msn ( lol, editar design )...

enfim, é simples, só seguir as dicas...

flw, abraçs

edit~ enquanto eu digitava o owner' postou ;/... mas, axo ke a minha dica foi util tbm...

**renanbeline** · 9 de Novembro 2010

Nao entendi nada oq seis falo ¬¬

po q resource nao sou fodao em delphi 7

manda o codigo completo ja po ^^

bom a new form consegui agora so falta a da imagem bom meu tenho uma imgaem aki no meu pc eu quero e essa imagem fiki dentro do hack e quando clicar no butao ele vai extrair 100 fotos iguais para o desktop alguem me manda um codigo ^^

eu achei isso + nao deu certo

Início
Colocar arquivo como recurso dentro do EXE

Inclua na seção uses: Classes

Existem alguns casos em que precisamos levar para a máquina

do usuário, além do EXE, alguns arquivos sem os quais nossa

aplicação teria problema. Normalmente estes casos incluem:

- arquivos com imagem (bmp, jpeg, gif, etc);

- arquivos de fontes (TTF);

- bibliotecas (dll);

- e outros.

A partir desta dica você saberá como incluir tais arquivos

dentro do próprio EXE. Dentro do EXE podemos colocar qualquer

tipo de arquivo que se comportará como um recurso. Vamos aos

passos.

1. Crie um arquivo texto com o nome ARQ_RECURSO.** e escreva

neste arquivo a linha abaixo:

NOME_DO_RECURSO RCDATA "c:\diretorio\arquivo.ext"

2. Compile este arquivo de recurso com o programa BRCC32.EXE:

BRCC32 ARQ_RECURSO.**

3. Confira se foi criado um arquivo chamado ARQ_RECURSO.RES.

4. Abra um novo projeto no Delphi.

5. Salve o projeto no mesmo diretório de ARQ_RECURSO.RES.

5. Escreve a linha abaixo após a palavra implementation

{$R ARQ_RECURSO.RES}

6. Escreva o evento OnCreate do form como abaixo:

Citação:

procedure TForm1.FormCreate(Sender: TObject);
var

Stream: TResourceStream;

begin

Stream := TResourceStream.Create(hInstance,

'NOME_DO_RECURSO', RT_RCDATA);

try

Stream.SaveToFile('c:\diretorio\arquivo_extraido.e xt');

finally

Stream.Free;

end;

end;

Pronto! Muito fácil! Vamos agora entender os passos citados.

Primeiro criamos um script (arquivo .**) para gerar o arquivo

de recurso (.res). No script informamos o nome do recurso,

o tipo e o conteúdo. O conteúdo, neste caso, foi o arquivo

"c:\diretorio\arquivo.ext".

Depois compilamos o script com o compilador de recursos da

Borland (BRCC32.EXE). Este processo gerou o arquivo

ARQ_RECURSO.RES.

A seguir colocamos no código-fonte uma instrução para que

o compilador do Delphi incluísse o arquivo de recurso (.res) no

executável - {$R ARQ_RECURSO.RES}.

No evento OnCreate do form acessamos o recurso como um Stream

e o salvamos em arquivo no disco.

Observações

Para incluir um arquivo de fonte no EXE e instalar a fonte na máquina do usuário na primeira vez que o programa for executado, combine este dica com a dica número 12.

eu fui ve aki

procedure TForm1.FormCreate(Sender: TObject);
var

Stream: TResourceStream;

begin

Stream := TResourceStream.Create(hInstance,

'NOME_DO_RECURSO', RT_RCDATA);

try

Stream.SaveToFile('c:\diretorio\arquivo_extraido.e xt');

finally

Stream.Free;

end;

end;

Stream.SaveToFile('c:\diretorio\arquivo_extraido.e xt'); dava erro

'NOME_DO_RECURSO', RT_RCDATA); e aki tb nao sei oq e pra edita nao entendi nada

**DragonBoss** · 9 de Novembro 2010

...nao ha como "PASSAR O CODE", vc tem ke ir fazendo aos poucos... e acho que poderia começar aprender resource...

flw ;P

**renanbeline** · 9 de Novembro 2010

ae mlkadaaa consegui tipo agora so falta uma ajudinha !

procedure TForm1.sButton2Click(Sender: TObject);
begin

Form1.Show

end;

procedure TForm1.sBitBtn1Click(Sender: TObject);

begin

with TResourceStream.Create(HInstance, 'TUTO', RT_RCDATA) do

try

SaveToFile('TroxaNaoExistHack_praMSNOrkut.gif');

finally

Free;

end;

end;

end.

ele extrai a gif normal so que agora eu quero q extraia 100 fotos

uma coisa tambem que cada foto tipo

TroxaNaoExistHack_praMSNOrkut.gif

TroxaNaoExistHack_praMSNOrkut2.gif

TroxaNaoExistHack_praMSNOrkut3.gif

TroxaNaoExistHack_praMSNOrkut.gif ..... 100 entendeu ?

e quero q execute o progresse bar ^^ tipo 10 % pra cada foto extraida

**~OwneR~** · 9 de Novembro 2010

O esquema de copiar as fotos: