Tutor Membuat Injeck Menggunakan Delphi 7

Assalamualaikum warahmatullahhi wabarrakatuh....
Apa kabar semua sobat gretongersss!!!
Sehat selalu ya......

Pada Hari Ini Saya Akan Share Bagaimana Membuat Injeck Dasar Menggunakan Delphi 7

Siapakan dulu bahan-bahan yang di gunakan, antara lain:

1. Delphi 7 32 bit atau 64 bit
2. Kompi atau laptop
3. Secangkir kopi dan snack untuk menemani proses pembuatan, biar lebih afdol kita berdoa dulu biar inject yang kita buat work dan bertahan lama :v

Langsung tancap gass aja ya gan ke tutorialnya, baca bismillah dulu biar gak pusing:
1. Jalankan program delphi 7
2. Buat 2  button dan 1 indy server tcp

3. Beri nama caption pada button 1 : start, connect, on atau apa saja

4. Beri nama caption pada button 2 : stop, disconnect atau off

5. Kemudian klik 2 kali pada button1 dan masukkan script ini atau code ini:

• 
  
• 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
  
  
  

6. Selanjutnya klik 2 kali pada button2 dan masukan script ini:

• 
  
• 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
  
  
  

7. Selanjutnya kita klik tcp lalu pada object inspector sebelah kiri---> klik tab event---> klik 2 kali      pada onExecute dan masukan source code berikut ini:

8. Selanjutnya kita klik tcp lalu pada object inspector sebelah kiri---> klik tab event---> klik 2 kali      pada onOutboudconnect dan masukan source code berikut ini:

• 
  
• 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.
  
  
  
  
  

9. Selanjutnya tahap terakhir adalah save as project kita lalu klik build,

10. Silakan test project kalian, semoga work

11. jika tidak work silakan ganti bug dan methode sesuai bug yang baru, untuk cara mencari           celah gratisan atau bug untuk internet gratis silakan kli disini

nb: buat yang belum punya delphi 7 silakan download disini

Buat yang belum paham dengan tutor di atas silakan download source codenya disini

Tutor Versi Video :)

Sumber: Edisukarman.com

Share :

Tweet

✚

Related Post