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
