CARA MEMBUAT INJECT TSEL SEDERHANA MENGUNAKAN DELPHI 7 BAGI PEMULA

KALI INI ANE MAU BERBAGI TENTANG MEMBUAT INJECT TSEL SEDERHANA DENGAN DELPHI 7 BAGI PEMULA

ALAT YANG DIBUTUHKAN : :

 1. -SOFWARE DELPHI 7
 2. -KEINGINAN
 3. -KETEKUNAN
 4. -KESABARAN
 5. -KOPI SECANGKIR DAN MAKANAN RINGAN

DALAM MEMBUAT INJECT TSEL SEDERHANA DENGAN DELPHI 7 BAGI PEMULA ADA 12 LANGKAH UNTUK MEMBUAT INJECT, LANGSUNG AJA KITA PRAKTEKAN: 

#LANGKAH PERTAMA#
1.-Tambahkan Tombol:Boolean; Tepat Dibawah Private / Di Atas Private declarations

#LANGKAH KEDUA#
2.-Tmbahkan 1 Buton Yang Terletak Di {Tab Standart}
  -Beri Nama Terserah Kamu
  CONTOH :START

#LANGKAH KETIGA#
3.-Tambahkan 1 MemO Yang Terletak Di Sebelah Kiri Buton

#LANGKAH KEEMPAT#
4.-Tambahkan 1 TCP Yang Terletak Di {Tab Indy Server}

SEKARANG TINGAL CODINGNYA SAJA

#LANGKAH KEENAM#
6.-Klik 2x Pada Buton
  -Masukan Code Ini:

if Tombol then
  begin
  TCP.Active := False;
  TCP.Bindings.Clear;
  Sleep(100);
  Button1.Caption := 'START';
  Tombol := False;
 end else
 begin
  Button1.Caption := 'STOP';
TCP.Bindings.Add.IP := '127.0.0.1';
TCP.Bindings.Add.Port := StrToInt('157'); // ganti terserah ente
TCP.MappedHost :='10.1.89.130';
TCP.MappedPort := StrToInt('8000');
TCP.Active := True;
  Tombol := True;
end;

#LANGKAH KETUJU#
7.-Klik TCP
  -Ganti Nama 'IdMappedPortTCP1' Yang Ada Di {Tab Properti} Menjadi TCP

#LANGKAH KEDELAPAN#
8.-Klik TCP Dan Klik 2x Di OnExcute Yang Berda Di {Tab Event},
  -Lalu Masukan Code Ini Di Bawah procedure TForm1.TCPExecute(AThread:    TIdMappedPortThread);
  -Dan di atas begin

var
Payload,header: string;

#LANGKAH KESEMBILAN#
9.-Masih di OnExcute
  -Tambahkan code ini tepat di  bawah begin

Memo1.Lines.Add(AThread.NetData);
if (pos('CONNECT',athread.NetData)<>0) or (pos('HTTP',athread.NetData)<>0) or (pos('http',athread.NetData)<>0) or (pos('https',athread.NetData)<>0) then begin
header:=Addheader(Athread.NetData,'Proxy-Connection: Keep-Alive'+#13#10#13+'Connection: Keep-Alive'+#13#10#13);
payload :='GET http://my.telkomdel.com/ HTTP/1.1'+#13#10'GET HEADER=?gfe_rd=cr&ei=y6DoVL6FPKyW8QeBXQ '+#13#10'Host : bh ente'+#13#10'Connection: Keep-Alive'+#13#10;
athread.OutboundClient.Write(header); Sleep (1000);
athread.NetData:=payload;

end;

#LANGKAH KESEPULUH#
10.-Masih di OnExcute,
   -cari code ini "procedure TForm1.TCPExecute(AThread: TIdMappedPortThread);"
   -Masukan code ini tepat di atasnya

function AddHeader(header, Newheader:string):string;
begin 
header := StringReplace(header, #13#10 + #13#10, #13#10 + Newheader + #13#10 + #13#10, [rfReplaceAll]); Result := header;
end; 

#LANGKAH KESEBELAS#
11.-Klik TCP
   -Masuk di {tab Event}
   -Klik 2x pada OnOutbonConnect
   -Masukan code ini tepat di bawah begin

if Pos ('403 Forbidden', AThread.NetData) <>0 then begin
       AThread.NetData := StringReplace(athread.NetData,'403 Forbidden','200 OK',[rfReplaceAll]);
    end else
    if Pos ('407 Proxy Authentication Required', AThread.NetData) <>0 then begin
       AThread.NetData := StringReplace(athread.NetData,'407 Proxy Authentication Required','200 OK',[rfReplaceAll]);
    end else
    if Pos ('302 Found', AThread.NetData) <>0 then begin
       AThread.NetData := StringReplace(athread.NetData,'302 Found','200 OK',[rfReplaceAll]);
    end else
    if Pos ('301 Moved Permanently', AThread.NetData) <>0 then begin
       AThread.NetData := StringReplace(athread.NetData,'301 Moved Permanently','200 OK',[rfReplaceAll]);
    end else
    if Pos ('HTTP/1.0 405 Method Not Allowed', AThread.NetData) <>0 then begin
       AThread.NetData := StringReplace(athread.NetData,'405 Method Not Allowed','200 OK',[rfReplaceAll]);
    end else
    if Pos ('503 Service Unavailable', AThread.NetData) <>0 then begin
      AThread.NetData := StringReplace(athread.NetData,'503 Service Unavailable','200 OK',[rfReplaceAll]);
    end else
    if Pos ('407 Proxy Authentication Required', AThread.NetData) <>0 then begin
       AThread.NetData := StringReplace(athread.NetData,'407 Proxy Authentication Required','200 OK',[rfReplaceAll]);
    end else
    if Pos (' Set-Cookie', AThread.NetData) <>0 then begin
       AThread.NetData := StringReplace(AThread.NetData,' Set-Cookie',' 200 OK',[rfReplaceAll]);
     end else
    if Pos ('HTTP/1.1 302 Moved Temporarily', AThread.NetData) <> 0 then begin
       AThread.NetData := '';
    end;

#LANGKAH TERAKHIR#
12.-Klik file
   -Klik SAVE ALL
   -Klik Build Project yang berada di {tab Project}
   -Sudah selesai dalam membuat inject
   -Sekarang tingal tes Inject nya

Nie Ane Kasih INJECT Buatan Sendiri : Download Disini
Update Inject Tsel 26 Februari 2015  : Download Disini

SEKIAN TUTORIAL DALAM MEMBUAT INJECT TSEL SEDERHANA DENGAN DELPHI7

(:SEMOGA BERHASIL:)

Yang Kagag Punya Sofware Delphi 7 : Dwonload Disini
Pasword Sofware Delphi 7                 : Download Disini

CREAT BY : FATKHUR ROZAK

FB : https://www.facebook.com/fatkhur.rozak.925
GRUP FB : Klik Disini
BLOG       : Klik Disini