Membuat Inject No Proxy Menggunakan Payload Http Injector
www.mbahhanif.site - Proses pembuatan inject no proxy dengan metode payload seperti http injector pada pc ini dapat di terapkan pada aplikasi delphi 7 anda. Maka dari itu, pada proses pembuatan inject ini kusus inject yang mendukung no proxy saja. untuk selebihnya tidak memakai proxy dalam pembelajaran kali ini. Pada pembelajaran ini tidak untuk proxy karena fokus salah asatu saja.
Apabila ada metode direct, Bisa menggunakan cara yang kita mau bahas saat ini juga. Mengapa demikian, Karena direct adalah suatu metode no proxy atau tidak menggunakan proxy dalam ber internetan saat ada yang bangkit.
Proses Pembuatan Inject No Proxy
Semua udah tau bahwa system ini bisa diberikan kapan saja kepada pengguna internet gratis ini dengan tidak menggunakan proxy. Banyak dari kalangan newbi seperti saya bagaimana sih cara membuat injet no proxy atau direct. Nah, Mbah hanif akan memberikan sebuah project pembelajaran untuk membuat inject direct atau no proxy secara detail dan pastinya paham untuk ini. Dengan secara lengkap, mbah hanif akan menerangkan semua proses demi proses, tahap demi tahap akan di lalui secara matang dan merata dalam mengingatnya.
Cara Membuat Inject No Proxy atau Direct
Bahan Bahan Proses Pembuatan Inject No Proxy- Berdoa Supaya sukses
- Delphi 7
- Beberapa script yang saya sediakan
Tutorial Cara Membuat Inject No Proxy Mendukung Payload Http Injector
1. Nyalakan delphi 7 anda
2.Cari Standart, Tambahkan 2 buah edit, 1 buah memo, 1 Buah button
 |
| Membuat Inject No Proxy |
3. Cari Win32, Tambahkan XPmanifest Seperti dibawah ini:
 |
| Membuat Inject No Proxy |
4. Tambah Kan Script dibawah ini ada di uses:
XPMan, ProxyThrd, WinSock, IniFiles, StrUtils, Synautil
 |
| Membuat Inject No Proxy |
5. Pada Public, Tarus Script ini terdapat pada bawahnya. Lihat gambar
mbahhanif : TProxyThrd;procedure OnBeforeExecution(headers: string);procedure OnRuntime(headers: string);
 |
| Membuat Inject No Proxy |
6. Tambahkan script koding ini dibawah {SR *,DFM}
function split(input: string; schar: Char; s: Integer): string;
var
c: array of Integer;
b, t: Integer;
begin
Dec(s, 2);
t := 0;
setlength(c, Length(input));
for b := 0 to pred(High(c)) do
begin
c[b + 1] := posex(schar, input, succ(c[b]));
if (c[b + 1] < c[b]) or (s < t) then break else Inc(t); end; Result := Copy(input, succ(c[s]), pred(c[s + 1] - c[s])); end; function LeftStr (Const Str: String; Size: Word): string; begin LeftStr := Copy(Str, 1, Size) end; function RightStr (Const Str: String; Size: Word): string; begin if Size > Length(Str) then Size := Length(Str) ;
RightStr := Copy(Str, Length(Str)-Size+1, Size)
end;
function MidStr
(Const Str: String; From, Size: Word): string;
begin
MidStr := Copy(Str, From, Size)
end;
function AddHeader(S, Header:string):string;
begin
S:= StringReplace(S, #13#10 + #13#10, #13#10 + Header + #13#10 + #13#10, [rfReplaceAll]);
Result:= S;
end;
function MultiStringReplace(const S : string; OldPattern, NewPattern : array of string;
Flags : TReplaceFlags): string;
var
i : Integer;
begin
Assert(Length(OldPattern) = Length(NewPattern), 'Pattern array lengths differ');
Result := S;
for i := Low(OldPattern) to High(OldPattern) do
Result := StringReplace(Result, OldPattern[i], NewPattern[i], Flags);
end;
 |
| Membuat Inject No Proxy |
 |
| Membuat Inject No Proxy |
7. Dan Tambahkan Script ini lanjutan No 6
procedure TForm1.OnBeforeExecution(headers: string);
var
list : TStringlist;
s : string;
Prot, User, Pass, Host, Port, Path, Para: string;
method, uri, protocol: string;
begin
list := TStringlist.Create;
try
list.Text := headers;
s := list.Strings[0];
method := fetch(s, ' ');
if (s = '') or (method = '') then
Exit;
uri := fetch(s, ' ');
if uri = '' then
Exit;
protocol := fetch(s, ' ');
ParseURL(uri, Prot, User, Pass, Host, Port, Path, Para);
mbahhanif.Payload := multistringreplace('Payload HI', ['[netData]','[host]','[port]','[host_port]','[protocol]','[crlf]','[cr]','[lf]','[lfcr]','[realdata]','[ua]'],
['CONNECT '+host+':'+port+' HTTP/1.0',host,port,host+':'+port,'HTTP/1.0',#13#10,#13,#10,#10#13,'CONNECT '+host+':'+port+' HTTP/1.0'+#13#10#13#10,'I*HTTP V1.0'],
[rfreplaceall]);
finally
list.Free;
end;
end;
 |
| Membuat Inject No Proxy |
8. Klik 2 kali pada form kosong ini. Lalu tambahkan script berikut ini:
mbahhanif := TProxyThrd.Create(nil);mbahhanif.OnBeforeExecution := OnBeforeExecution;mbahhanif.OnRuntime := OnRuntime;
 |
| Membuat Inject No Proxy |
9. Tambahkan Scrip Ini lanjutan nomer 8:
procedure TForm1.OnRuntime(headers: string);
begin
Memo1.Lines.Add(headers);
end;
 |
| Membuat Inject No Proxy |
10. Setelah selesai, kita save. Lalu tambahkan komponen thrd ini pada save save an tadi bersama 1 folder. Komponenya yang tadi sudah di unduh
 |
| Membuat Inject No Proxy |
11. Kemudian Kita Run/F9, Sebelum itu kecilkan form agar terlihat simple aja.
 |
| Membuat Inject No Proxy |
12. Berhasil membuat inject no proxy. tinggal masukin payload http injector yang lagi di masa depan.
 |
| Membuat Inject No Proxy |
Semoga bermanfaat