Contoh Payload Replace Untuk Bisa Proxy Squid Tipe Inject Delphi

                Kali ini saya admin Fariandi akan berbagi tentang Replace pada payload Tipe Delphi. apa si Replace pada Pemrograman..?

             Replace adalah fungsi yang ada pada pemrograman ialah yang di gunakan untuk mencari kata pada lembar kerja yang di inginkan dan mengganti kata tersebut sesuai dengan kemauan. Contoh nya pembuatan inject CRLF tipe delphi sebebnar nya cuman di replace saja loh.

                 Langsung saja ini ada beberapa contoh replace yang biasa saya pakai untuk membuat inject tipe delphi yang biasa untuk menyempurnakan payload jika kandas  di tunnel SSH nya.

1. Contoh Pertama

AThread.Netdata := StringReplace(AThread.NetData,':443',':443 SHTTP/1.0 200 Connection established',[rfReplaceAll]);
AThread.Netdata := AThread.Netdata;

 2. Contoh kedua

AThread.Netdata := StringReplace(AThread.NetData,':443',':443 SHTTP/1.0 200 OK',[rfReplaceAll]);
AThread.Netdata := AThread.Netdata;

3. Contoh ketiga

AThread.OutboundClient.Write(StringReplace(AThread.NetData,':443',':443 SHTTP/1.0 200 Connection established',[rfReplaceAll]));

4. Contoh keempat

AThread.OutboundClient.Write(StringReplace(AThread.NetData,':443',':443 SHTTP/1.0 200 OK',[rfReplaceAll]));

 5. Contoh kelima 

AThread.NetData := StringReplace(AThread.NetData, 'HTTP/1.1 200 Connection established', 'HTTP/1.0 200 Connection established',[rfReplaceAll]);

            Tipe replace di atas biasa nya bisa di jadikan payload untuk proxy Squid NO BUG contoh nya untuk kartu ISat. dulu saya cuman pake replace di atas dan jadi tanpa BUG tapi tidak smua operator bisa ya, tapi jangan putus asa bisa kok kalau di gabung dengan payload simak di bawah ini :

payload := 'GET http://ISI BUG/ HTTP/1.1'+#13#10+'Host: '+#13#10+'Connection: Keep-Alive'+#13#10#13#10;
AThread.netdata := AddHeader(AThread.Netdata,'X-Online-Host: ');
AThread.NetData := StringReplace(AThread.NetData, 'HTTP/1.1 200 Connection established', 'HTTP/1.0 200 Connection established',[rfReplaceAll]);
AThread.Netdata := payload + AThread.Netdata;

            saya memakai Replace no 5, karna selalu replace no 5 di atas pasti konek :D cuman mainin back  / front nya aj, maksud nya ialah :

AThread.Netdata := payload + AThread.Netdata;  = ini Tipe Back

AThread.Netdata :=AThread.Netdata + payload ; = ini tipe Front

 kalau mau replace nya bisa di download di bawah ini :

 LINK

pas rar : www.f-dan.com

CARA DOWNLOAD

jika masih bingung boleh tinggalkan komentar..

Tags : #Delphi#Phreaker

Share This :

Unknown