• Beranda
  • Autosultan
  • Bitcoin
  • Dollar
  • Linux
  • LOKER
  • Printer
  • Sofware
  • sosial
  • TISniper
  • Virus
  • Windows

T.I Sniper

#Expert Advisor for MetaTrader 4 #Expert Advisor for MetaTrader 5 #youtube #google #free dollar business every day #Lowongan #Pekerjaan #Loker #forex #trading Autopilot #mining crypto #Update #Tutorial #Komputer Perbaikan, #Email #Facebook , #whatsapp ,#instagram #telegram ,#Internet ,#Motivasi , #Crypto , #AirDrop, #Bitcoin, #Ethereum, #Binance coin, #Cardano, #Degocoin, #Litecoin #Indodax, #Coinbase, #Nexo Dan Mata Uang Digital Lain , #Website, Perbaikan #Server #Domain , #Hosting, #Whm

    • Beranda
    • Contact Forum
    • Coffee JKs88
    • Tentang Kami
    • Parse Code Html
    • Text Terbalik
    • Privacy Policy

    Ikuti Kami!

    Follow Akun Instagram Kami Dapatkan Notifikasi Terbaru!
    Ikuti Kami di Facebok! Untuk mendapatkan notifikasi terbaru.

    Postingan Populer

    Backlink dengan Google Dork Seo

    Dork Seo
    Januari 01, 2016
    0

    Cara Dapat Backlink dengan Google Dork

    Dork Seo
    Februari 13, 2016
    0

    Download File ISO Windows 11 Dan Bootable USB Rufus

    Sofware Windows
    Desember 02, 2021
    0

    Cara Dapat Backlink Edu Gratis

    Seo
    Februari 13, 2016
    0

    SBS opening Fix Autosultan

    Autosultan zonamotivasi
    Januari 25, 2022
    0
    Author
    chmood
    Tautan disalin ke papan klip!
    Share Posts "Cara Membuat Injek Dasar dengan Delphi 7"
  • Salin link
  • Simpan Ke Daftar Bacaan
  • Bagikan ke Facebook
  • Bagikan ke Twitter
  • Bagikan ke Pinterest
  • Bagikan ke Telegram
  • Bagikan ke Whatsapp
  • Bagikan ke Tumblr
  • Bagikan ke Line
  • Bagikan ke Email
  • HomePemogramanCara Membuat Injek Dasar dengan Delphi 7
    Cara Membuat Injek Dasar dengan Delphi 7

    Cara Membuat Injek Dasar dengan Delphi 7

    Simpan Postingan
    Salam Bahagia Teman-Teman

    Pada Kesempatan ini saya akan memberikan Tutorial Membuat Injek Internet Gratis dari Delphi 7.

    Injek ini menggunakan Indy Server.

    Bahan yang kalian Butuhkan

    All Tutorial Download
    Software Delphi 7 Download disini :
    Download Video Tutorial disini
    Download Source Manual disini

    Langsung Saja Kita Ke Tutorialnya :

    1. Jalankan Program Delphi 7

    2. Buat 2 Button dan 1 TCP








    2. Beri Caption Pada Button1 : Start atau Connect atau Terserah Kamu.




    3. Beri Caption Button2 : Stop atau Disconnect atau terserah Kamu






    4. Kemudian, Klik 2 Kali Button 1 dan Masukkan Source Code Berikut


    IdMappedPortTCP1.Bindings.Add.Ip:='127.0.0.1'; // ini adalah Proxy Default
    IdMappedPortTCP1.Bindings.Add.Port:=StrToInt('8080'); // ini Listen Port, bisa Kalian Ubah Sesuka hati
    IdMappedPortTCP1.MappedHost:='202.152.240.50'; // Ini adalah Proxy dari Operator , saya contohkan XL : 202.152.240.50
    IdMappedPortTCP1.MappedPort:=StrToInt('8080'); // ini adalah Port dari Proxy Operator, Port XL : 8080
    IdMappedPortTCP1.Active:=True; // ini Untuk Mengaktifkan TCP Server
    Button1.Enabled:=False; // Ini Untuk Menonaktifkan Button1 atau Start
    Button2.Enabled:=True; // ini Untuk Mengaktifkan Button2 atau Stop


    Maka Jadi Seperti Gambar di Bawah ini



    5. Selanjutnya Klik 2 Kali Button2 dan Masukkan Source Code berikut :

    IdMappedPortTCP1.Active:=False; // ini untuk menonaktifkan TCP Server
    IdMappedPortTCP1.Bindings.Clear; // ini Untuk Membersihkan koneksi TCP Server
    Button1.Enabled:=True; // ini untuk mengaktifkan kembali Button1 atau Start
    Button2.Enabled:=False; // ini untuk menonaktifkan Button1 atau Stop


    Maka Jadi Seperti Gambar di bawah ini



    6. Selanjutnya Kita Klik TCP dan Lihat pada Onject Inspector Sebelah kiri --> Klik Tab Event --> Klik 2 kali pada OnExecute dan Masukkan Source Berikut :




    var
    ESIND:string; //Perintah Untuk Menghubungkan dan Letakkan di atas Begin
    ESIND:='GET http://BUGSKAMU/ HTTP/1.1'+#13#10+'User-Agent: Mozilla/5.0 (Windows NT6.1; rv:14.0) Gecko/20100101 Firefox/14.0 Host : BUGSKAMU'#13#10#13#10#13#10+athread.NetData;
    if pos('CONNECT',athread.NetData) <>0 then
    athread.NetData:=athread.NetData+ESIND; // Merupakan Methode untuk menghubungkan ke Server

    Jadinya Seperti Gambar di Bawah ini




    7. Selanjutnya Kita Klik Kembali TCP, Pada Tab Event Object Inspector , Klik 2 Kali OnOutboundConnect , dan Masukkan Source Berikut :

    AThread.NetData := stringreplace(AThread.NetData,' 403 Forbidden',' 200 OK',[rfReplaceAll]);

    AThread.NetData := StringReplace(AThread.NetData,'HTTP/1.1 302 Found','HTTP/1.1 200 Ok',[rfReplaceAll, rfIgnoreCase]); // Ini Berfungsi Untuk MeReplace Jika ada Bugs Yang Harus di Replace.

    Jadinya seperti ini






    8. Tahap Terakhir Kita Save As Project Kita dan Jalankan Atau Build















    9. Selanjutnya Tinggal Kalian Test Projectnya

    Work Injek XL



    Semoga Bermanfaat Buat Teman-Teman semuanya -_- T.I Sniper My Family


    Pemograman
    September 16, 2015 • 0 komentar
    Disclaimer: gambar, artikel ataupun video yang ada di web ini terkadang berasal dari berbagai sumber media lain. Hak Cipta sepenuhnya dipegang oleh sumber tersebut. Jika ada masalah terkait hal ini, Anda dapat menghubungi kami di halaman ini.
    Isi dari komentar adalah tanggung jawab dari pengirim. T.I Sniper mempunyai hak untuk tidak memperlihatkan komentar yang tidak etis atau kasar. Jika ada komentar yang melanggar aturan ini, tolong dilaporkan.

    T.I Sniper

    Your description here

    • Follow
    • Autosultan
    • Wa Admin Bisnis
    Copyright ©2010 - 2022 🔥 T.I Sniper.
    • Beranda
    • Cari
    • Posting
    • Trending
    • Tersimpan