Kali Ini Saya Akan Ulas Cara Lain Membuat Injek Dasar Delphi Terbaru 2019 dimana cara ini adalah cara yang sedikit berbeda dari cara yang pernah saya share sebelumnya silahkan baca Cara Membuat Inject Telkomsel Sendiri Dengan Delphi 2015 mungkin anda bisa memilih dari salah satunya, disini kita akan coba cara yang lebih sedikit berbeda, oh iya bagi anda yang mau akun ssh seumur hidup alias lifetime silahkan baca postingan saya Ini Dia Free SSH Lifetime Gratis Setiap Hari 2015 dan ok tanpa panjang lebar lagi bagi anda yang membutuhkan tutorial cara bikin dan racik injek ini silahkan simak dibawah ini:
1. Langkah pertama seperti biasa buka aplikasi Delphi anda, lalu buat 1 buah TCP, 1 buah button dan 1 buah memo, lihat gambar dibawah ini:
Letak memo dan button ada pada tombol standars
Letak TCP yang saya maksud ada pada indi sever
Tambahkan Tombol:Boolean; tepat diatas { Private declarations
2. Pada langkah yang kedua double klik Button 1 lalu masukan kode dibawah gambar ini, tepat dibawah procedure TForm1.Button1Click(Sender: TObject); begin.
begin
TCP.Active := False; // ini adalah perintah sinkronisasi ketika anda berada di server atau menonaktifkan tcp server
TCP.Bindings.Clear; // ini adalah perintah untuk membersihkan cache anda di server atau membersihkan koneksi di server
Sleep(100); // ini adalah perintah untuk jeda requesting ke server
Button1.Caption := 'MAJU CANTIK';
Tombol := False;
end else
begin
Button1.Caption := 'MUNDUR CANTIK';
TCP.Bindings.Add.IP := '127.0.0.1'; // ini adalah localhost
TCP.Bindings.Add.Port := StrToInt('1985'); // ini adalah listen port injeknya buat di bitvise
TCP.MappedHost :='10.1.89.130'; // ini adalah proxy opsel
TCP.MappedPort := StrToInt('8000'); // ini adalah port opsel
TCP.Active := True; // ini adalah perintah buat mengaktifkan tcp server gan
Tombol := True;
end;
3. Pada langkah yang ketiga silahkan klik TCP lihat pada urutan object inspector ganti nama menjadi TCP cari saja tulisan nama lihat gambar dibawah ini.
4. Pada langkah yang keempat masih di tempat TCP di point 3 diatas lalu gulir dari object inspector properties ke event cari saja tulisan on execute
dibawah tulisan procedure TForm1.TCPExecute(AThread: TIdMappedPortThread); ada tulisan begin silahkan hapus saja tulisan begin tersebut dan ganti dengan source code dibawah ini:
var
ESIND,header: string; // ini adalah perintah untuk mengubungkan keserver dan dimulainya perintah HTTP.1.1 200 OK
begin
Memo1.Lines.Add(AThread.NetData); // ini adalah log data yang ditampilkan di memo hingga end esind
if (pos('CONNECT',athread.NetData)<>0) or (pos('GET',athread.NetData)<>0) or (pos('POST',athread.NetData)<>0) or (pos('HTTP',athread.NetData)<>0) or (pos('http',athread.NetData)<>0) or (pos('https',athread.NetData)<>0) then begin // ini adalah perintah perwakilan methode
header:=Addheader(Athread.NetData,'Proxy-Connection: Keep-Alive'+#13#10+'Connection: Keep-Alive'+#13#10); // ini adalah perintah untuk membuka respone header baru requset client ke server
ESIND :='HEAD http://Isi Bugs Opsel/ HTTP/1.1 SSH-2.0-1.91 sshlib: Bitvise SSH Client (Tunnelier) 4.60'+#13#10'Accept: */*'+#13#10'Cookie: BIGipServerPL_TB_Bluecoat=2583996608.16415.0000; path=/'+#13#10'Host : Isi Bugs Opsel'+#13#10'Connection: Keep-Alive'+#13#10; // ini adalah bagian perintah request client ke server melalui gerbang relay koneksi dan akan di sleep 10 akar kuadrat
athread.OutboundClient.Write(header); Sleep (1000); // ini adalah proses pembersihan akhir client di cache server
athread.NetData:=ESIND; // koneksi request client telah berakhir dan dikembalikan ke respone header
end;
5. Pada langkah yang kelima silahkan cari kode seperti dibawah ini :
procedure TForm1.TCPExecute(AThread: TIdMappedPortThread);
var
Payload,header: string;
begin
Lalu pasangkan kode dibawah ini tepat diatas procedure TForm1.TCPExecute(AThread: TIdMappedPortThread);
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; // ini adalah proses memaksa respone header untuk membuat header baru dll
6. Pada langkah yang keenam lihat lagi gambar nomer 4 diatas lihat tulisan TCP Outbounddata dooble klik saja itu, contoh gambar dibawah ini:
masukan kode replace dibawah ini tepat dibawah kode procedure TForm1.TCPOutboundData(AThread: TIdMappedPortThread);
begin
// Respone header dimulai dari sini makanya di bikinin replace sebanyak mungkin karena saya gak tahu anda pake bugs apabegin
if Pos ('Set-Cookie', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'Set-Cookie',' 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 ('503 Service Unavailable', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'503 Service Unavailable','200 OK',[rfReplaceAll]);
end else
if Pos ('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 ('301 Moved Permanently', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'301 Moved Permanently','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 ('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 ('403 Forbidden', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(athread.NetData,'403 Forbidden','200 OK',[rfReplaceAll]);
end else
if Pos ('HTTP/1.1 302 Found', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 302 Found','HTTP/1.1 200 Ok',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 302 Moved Temporarily', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 302 Moved Temporarily','HTTP/1.1 200 Ok',[rfReplaceAll,rfIgnoreCase]);
end else
if Pos ('HTTP/1.1 402 Forbidden', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 402 Forbidden','HTTP/1.1 200 OK', [rfReplaceAll]);
end else
if Pos ('HTTP/1.0 402 Bad request', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.0 402 Bad request','HTTP/1.1 200 OK', [rfReplaceAll]);
end else
if Pos ('HTTP/1.1 403 Forbidden', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 403 Forbidden','HTTP/1.1 200 OK', [rfReplaceAll]);
end else
if Pos ('HTTP/1.0 502 Gateway Timeout', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.0 502 Gateway Timeout','HTTP/1.1 200 OK', [rfReplaceAll]);
end else
if Pos ('HTTP/1.1 502 Internal Server Error', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 502 Internal Server Error','HTTP/1.1 200 OK', [rfReplaceAll]);
end else
if Pos ('HTTP/1.1 402 not authenticated', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 402 not authenticated','HTTP/1.1 200 OK', [rfReplaceAll]);
end else
if Pos ('HTTP/1.1 100 Connection established', AThread.NetData) <>0 then begin
AThread.NetData:=StringReplace(AThread.NetData,'HTTP/1.1 100 Connection established', 'HTTP/1.0 200 Connection established',[rfReplaceAll]);
end else
if Pos (':22', AThread.NetData) <>0 then begin
AThread.NetData := stringreplace(AThread.NetData,' :22 ',' :443',[rfReplaceAll]);
end else
if Pos (':80', AThread.NetData) <>0 then begin
AThread.NetData := stringreplace(AThread.NetData,' :80 ',' :443',[rfReplaceAll]);
end else
if Pos (':143', AThread.NetData) <>0 then begin
AThread.NetData := stringreplace(AThread.NetData,' :143 ',' :443',[rfReplaceAll]);end else // respone header dari server telah berakhir dan dikembalikan ke request client diatas
end;
Kalau sudah beres silahkan tekan F9 atau klik simbol segitiga kaya gambar dibawah ini:
Dan hanya itu saja Cara Lain Membuat Injek Dasar Delphi Terbaru 2019 buat anda semuanya dan jika bermanfaat silahkan share ke rekan rekan anda semuanya terima kasih, dan jika ada salah penulisan dalam kata kata mohon dimaafkan karena saya juga masih super nubie sekali ^_^
Baca juga: Cara Instal Alphaskin Untuk Mempercantik Form Delphi