Contoh Source Code Injek Nol Pulsa Nol Kuota dengan Proxy Ori

Tags

Injek atau aplikasi injector untuk internetan murah bahkan bisa untuk internetan tanpa pulsa dan kuota memang selalu jadi buruan para pengguna internet gratis, hanya bermodalkan sebuah kartu tanpa pulsa dan kuota dan sebuah injek maka penggunanya bisa berinternet ria tanpa takut kehabisan kuota, kedengarannya memang agak sedeikit aneh, kok tanpa pulsa dan kuota bisa internetan? hal seperti itu tidaklah selalu bisa dilakukan karena tidak selamanya operator selular membuka bugs atau celah yang memberikan peluang untuk para pengguna internet gratisan

Injek atau aplikasi untuk internetan terbagi dalam beberapa jenis injek


Diantaranya:
  • Injek tanpa pulsa dan kuota dengan memanfaatkan bugs dan proxy ori atau proxy asli dari provider yang bersangkutan.
  • Injek tanpa pulsa dan kuota dengan memanfaatkan bugs dan proxy squid.
  • Injek mode pancingan yang biasanya memanfaatkan bugs dan proxy asli provider.

Dari ketiga jenis injek yang saya sebutkan diatas tersebut tentunya memiliki cara kerja yang berbeda, dan pada kesempatan kali ini saya mencoba berbagi Source Code Injek Nol Pulsa Nol Kuota dengan Proxy ori, untuk injek mode squid dan injek mode pancingan akan saya share pada artikel selanjutnya.

Inilah tampilan injek contoh nol pulsa dan kuota yang akan saya share kali ini

Injek Nol Pulsa Nol Kuota

Fitur-fitur injek

  1. Tombol Start Stop dengan satu Button
  2. Listen port injek yang bisa di rubah-rubah sesuai keinginan
  3. Proxy dan port bisa di rubah, tentunya injek ini suport untuk semua operator
  4. Monitor download dan monitor upload
  5. Menampilkan IP
  6. shape color untuk indikator injek
  7. Memo untuk melihat trafic injek
  8. Auto Save Listen, Proxy dan port proxy
  9. shape indikator koneksi injek
  10. manual dan auto route bisa diatur sesuai kebutuhan

Injek menggunakan progam delphi7 dan indy tcp 9


Komponen yang digunakan untuk injek ini adalah:
  1. sPanel1 : TsPanel
  2. sPanel2 : TsPanel
  3. sPanel3 : TsPanel
  4. sPanel4 : TsPanel
  5. sGroupBox1 : TsGroupBox
  6. sGroupBox2 : TsGroupBox
  7. sLabel1 : TsLabel
  8. sLabel2 : TsLabel
  9. sLabel3 : TsLabel
  10. sLabel4 : TsLabel
  11. sLabel5 : TsLabel
  12. shape1 : TShape
  13. shape2 : TShape
  14. shape3 : TShape
  15. sMemo1 : TsMemo
  16. sButton1 : TsButton
  17. sButton2 : TsButton
  18. Timer1 :TTimer
  19. Timer2 : TTimer
  20. IP : TIdIPWatch
  21. TCP1 : TIdMappedportTCP
  22. Form1 : Tform

Source lengkap dari injek ini silahkan perhatikan

unit Unit_Injek
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, sSkinManager, sSkinProvider, StdCtrls, sButton, sGroupBox,
ComCtrls, sStatusBar, sCheckBox, sEdit, sLabel, ExtCtrls, sPanel, acPNG,
IdBaseComponent, IdComponent, IdIPWatch, IdTCPServer, IdMappedPortTCP,
sRadioButton, tlhelp32, sComboBox, sMemo, IniFiles;

type
TForm1 = class(TForm)
sGroupBox1: TsGroupBox;
sLabel1: TsLabel;
sGroupBox2: TsGroupBox;
sLabel2: TsLabel;
sPanel3: TsPanel;
sLabel4: TsLabel;
sPanel4: TsPanel;
Shape1: TShape;
Shape2: TShape;
IP: TIdIPWatch;
Timer1: TTimer;
TCP1: TIdMappedPortTCP;
Timer2: TTimer;
sLabel3: TsLabel;
sStatusBar1: TsStatusBar;
sPanel1: TsPanel;
sButton1: TsButton;
sEdit1: TsEdit;
sPanel2: TsPanel;
Shape3: TShape;
sLabel5: TsLabel;
sButton2: TsButton;
sEdit2: TsEdit;
sEdit3: TsEdit;
sMemo1: TsMemo;
Procedure LedBlinkUpload;
Procedure LedBlinkDownload;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure TCP1Execute(AThread: TIdMappedPortThread);
procedure TCP1OutboundData(AThread: TIdMappedPortThread);
procedure Timer2Timer(Sender: TObject);
procedure sButton1Click(Sender: TObject);
procedure sButton2Click(Sender: TObject);
procedure sEdit1Change(Sender: TObject);
procedure sEdit2Change(Sender: TObject);
procedure sEdit3Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Download : Integer;
Upload : Integer;
HOST: string;

implementation

{$R *.dfm}

function KillTask(ExeFileName: string): Integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =UpperCase

(ExeFileName))) then
Result := Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE,BOOL(0),FProcessEntry32.th32ProcessID),0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

function processExists(exeFileName: string): Boolean;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
Result := False;
while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =UpperCase

(ExeFileName))) then
begin
Result := True;
end;
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

procedure TForm1.LedBlinkUpload;
begin
shape1.Refresh;

if shape1.brush.color=clSilver then
begin
shape1.brush.color:=clgreen;
end else
begin
shape1.brush.color:=clSilver;
end;
end;

procedure TForm1.LedBlinkDownload;
begin
shape2.Refresh;

if shape2.brush.color=clSilver then
begin
shape2.brush.color:=clred;
end else
begin
shape2.brush.color:=clSilver;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
load:TIniFile;
begin
load := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');
with load do begin
sEdit1.Text := ReadString('Listen','Listen Port', 'Listen');
sEdit2.Text := ReadString('Proxy','Host Proxy', 'Proxy');
sEdit3.Text := ReadString('Port','Port Proxy','Port');
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
slabel4.Caption:=''+IP.LocalIP+'';
end;

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;

function BackQuery(netdata, BQ:string):string;
begin
BQ := StringReplace(netdata,' HTTP',BQ + ' HTTP',[rfReplaceAll]);
Result := BQ;
end;

function FrontQuery(netdata, FQ:string):string;
begin
FQ := StringReplace(netdata,'://','://'+FQ, [rfReplaceAll]);
Result := FQ;
end;

procedure TForm1.TCP1Execute(AThread: TIdMappedPortThread);
var
payload: string;
begin
LedBlinkUpload;
Upload:= Upload+Length(AThread.NetData);
sMemo1.Lines.Add(AThread.NetData);
if (pos('CONNECT',athread.NetData)<>0) or (pos('GET',athread.NetData)<>0) or (pos('POST',athread.NetData)<>0) or (pos('ALIVE',athread.NetData)

<>0) or (pos('HTTP',athread.NetData)<>0) then begin
Payload:='GET http://BUG KAMU/ HTTP/1.1'+#10#13+'Connection: Keep-Alive'+#10#13+'Host : BUG KAMU'#10#13#10#13;
athread.NetData:= Payload;
end;
end;

procedure TForm1.TCP1OutboundData(AThread: TIdMappedPortThread);
begin
LedBlinkDownload;
download:= download+Length(AThread.NetData);
sMemo1.Lines.Add(AThread.NetData);
if Pos (' 403 Forbidden', AThread.NetData) <>0 then
begin
AThread.NetData :='HTTP/1.0 200 OK';
end else
if Pos ('502 Bad Gateway', AThread.NetData) <> 0 then
begin
AThread.NetData :='HTTP/1.0 200 OK';
end else
if Pos ('403 Forbidden', AThread.NetData) <>0 then
begin
AThread.NetData :='HTTP/1.0 200 OK';
end else
if Pos ('405 Method Not Allowed', AThread.NetData) <> 0 then
begin
AThread.NetData :='HTTP/1.0 200 OK';
end else
if Pos ('HTTP/1.1 302 Found', AThread.NetData) <>0 then
begin
AThread.NetData :='HTTP/1.0 200 OK';
end else
if Pos ('400 Bad Request', AThread.NetData) <>0 then
begin
AThread.NetData :='HTTP/1.0 200 OK';
end else
if Pos (' Set-Cookie', AThread.NetData) <>0 then
begin
AThread.NetData :='HTTP/1.0 200 OK';
end else
if Pos ('302 Found', AThread.NetData) <>0 then
begin
AThread.NetData :='HTTP/1.0 200 OK';
end else
if Pos (' %2f', AThread.NetData) <>0 then
begin
end else
if Pos (' %20', AThread.NetData) <>0 then
begin
AThread.NetData := StringReplace(AThread.NetData,' %20',' _',[rfReplaceAll]);
end;

if pos('SSH-2.0',AThread.NetData) <> 0 then
begin
slabel5.Caption := 'Menerima Respon';
slabel5.Font.Color := clblue;
shape3.Brush.Color := clblue;
end;

if pos('diffie-hellman',AThread.NetData) <> 0 then
begin
shape3.Brush.Color := cllime;
slabel5.Caption := 'Terkoneksi';
slabel5.Font.Color := cllime;
end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
slabel1.Caption:='DL : '+FormatFloat('##0.## KB/s',download/1024)+'';
slabel2.Caption:='UL : '+FormatFloat('##0.## KB/s',upload/1024)+'';
download:= 0;
upload:= 0;
end;

procedure TForm1.sButton1Click(Sender: TObject);
begin
if sbutton1.Caption='START' then
begin
TCP1.Bindings.Add.IP := '127.0.0.1';
TCP1.Bindings.Add.Port:=strtoint(sedit1.Text);
TCP1.MappedHost:= sedit2.Text;
TCP1.MappedPort:= strtoint(sedit3.Text);
TCP1.Active := True;
Shape3.Brush.Color:=clred;
sbutton1.Caption:='STOP';
//sbutton2.Click;
//sbutton2.Caption:='Route Sukses';
slabel5.Caption:= 'Mencoba koneksi';
slabel5.Font.Color := clred;
//sbutton2.Click;
end else
if sbutton1.Caption='STOP' then
begin
TCP1.Active := False;
TCP1.Bindings.Clear;
sbutton1.Caption:='START';
slabel5.Caption:= 'Belum Terkoneksi';
//sbutton2.Caption:='Route';
slabel5.Font.Color := clsilver;
Shape3.Brush.Color:=clred;
end
end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
winexec('route delete 0.0.0.0', sw_hide);
winexec(pansichar('route add '+sEdit2.text+' mask 255.255.255.255 '+sLabel3.Caption), sw_hide);
end;

procedure TForm1.sEdit1Change(Sender: TObject);
var
save : TIniFile;
begin
save := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');
with save do begin
WriteString('Listen','Listen Port', sEdit1.Text);
end;
end;

procedure TForm1.sEdit2Change(Sender: TObject);
var
save : TIniFile;
begin
save := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');
with save do begin
WriteString('Proxy','Host Proxy', sEdit2.Text);
end;
end;

procedure TForm1.sEdit3Change(Sender: TObject);
var
save : TIniFile;
begin
save := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');
with save do begin
WriteString('Port','Port Proxy', sEdit3.Text);
end;
end;
end.

Bila anda tertarik untuk mengembangkan injek ini silahkan download Source Code nya silahkan kreasikan agar penampilan nya lebih menarik dan juga

bisa work untuk digunakan berinternetan gratis.

Itulah Contoh Source Code Injek Nol Pulsa Nol Kuotadengan Proxy Ori yang bisa saya share pada kesempatan kali ini, semoga bermanfaat.

Related Post:

Silahkan berkomentar dengan sopan dan tidak meninggalkan link aktip.

Terima Kasih.

EmoticonEmoticon