Senin, 28 September 2015

Cara Buat Injek Telkomsel AS Simpati Biasa Anti Limit 2015

Berikut adalah info dengan Cara Buat Injek Telkomsel AS Simpati Biasa Anti Limit 2015 dan sebelumnya juga admin cara apa saja sudah share dengan Download Hyk Proxy Tool ok tanpa panjang lebar lagi bagi sahabat yang ingin mencobanya silahkan bisa langsung simak dan tonton videonya dibawah.

Cara Buat Inject Telkomsel AS Simpati Biasa Anti Limit 2015


Tutorial Payload #8 ( Bagian 8 ) Compiler Program Borland Delphi 7 Enterprise

// Listing Dasarnya
unit antigalau;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellApi, IdIPWatch, IdAntiFreezeBase, IdAntiFreeze,
  IdBaseComponent, IdComponent, IdTCPServer, IdMappedPortTCP, StdCtrls,
  ExtCtrls;

type
  TForm1 = class(TForm)
    Start: TButton;
    requestheader: TMemo;
    Route: TCheckBox;
    InjectTCP: TIdMappedPortTCP;
    AntiBlock: TIdAntiFreeze;
    Myip: TIdIPWatch;
    responeheader: TMemo;
    DL: TLabel;
    UL: TLabel;
    Dumeter: TTimer;
    procedure StartClick(Sender: TObject);
    procedure InjectTCPOutboundData(AThread: TIdMappedPortThread);
    procedure InjectTCPExecute(AThread: TIdMappedPortThread);
    procedure DumeterTimer(Sender: TObject);
    procedure RouteClick(Sender: TObject);
  private
  Zonksel:Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

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

implementation

{$R *.dfm}

function AddNetdata(Netdata, NewNetdata:string):string;
begin
Netdata := StringReplace(Netdata, #13#10 + #13#10, #13#10 + NewNetdata + #13#10 + #13#10, [rfReplaceAll, rfIgnoreCase]);
Result := Netdata;
end;
function LowerCase(const Netdata: string): string;
begin
result:=LowerCase(Netdata);
end;

procedure TForm1.StartClick(Sender: TObject);
var
 rt: string;
I: Integer;
Thread: TIdMappedPortThread;
 begin
 if Zonksel then
begin
with InjectTCP.Threads.LockList do
try
for I := 0 to Count-1 do
begin
Thread := TIdMappedPortThread(Items[I]);
Thread.Connection.Disconnect;
Thread.OutboundClient.Disconnect;
end;
finally
InjectTCP.Threads.UnlockList;
end;
  AntiBlock := TIdAntiFreeze.Create(nil);
 InjectTCP.Active := False;
 InjectTCP.Bindings.Clear;
 AntiBlock.Active := False;
 requestheader.Clear;
 responeheader.Clear;
start.Caption :='Start';
Zonksel := False;
end else
begin
 start.Caption :='Stop';
 AntiBlock := TIdAntiFreeze.Create(nil);
 InjectTCP.Bindings.Add.IP := ('127.0.0.1');
 InjectTCP.Bindings.Add.Port := StrToInt ('9201');
 InjectTCP.TerminateWaitTime := 15000;
 InjectTCP.MappedHost := ('10.1.89.130');
 InjectTCP.MappedPort := StrToInt('8000');
 InjectTCP.Active := True;
 AntiBlock.Active := true;
 AntiBlock.OnlyWhenIdle:=true;
 AntiBlock.IdleTimeOut:=10;
 sleep (100);
 rt := '/C route add 10.1.89.130 mask 255.255.255.255 '+Myip.LocalIP;
ShellExecute(0, nil, 'cmd.exe', PChar(rt), nil, SW_HIDE);
Zonksel := True;
end;


end;

procedure TForm1.InjectTCPOutboundData(AThread: TIdMappedPortThread);
begin
Responeheader.Lines.Add(AThread.NetData);
download:=download+Length(AThread.NetData);
// Bagian ini Digunakan untuk Replace Pesan kesalahan dari server
end;

procedure TForm1.InjectTCPExecute(AThread: TIdMappedPortThread);
begin
Requestheader.Lines.Add(AThread.NetData);
upload:=upload+Length(AThread.NetData);
// Fungsi addnetdata harus ditambahkan Disini
// Disini Payload Harus dituliskan berserta variable lowercasenya
// Tambahkan fungsi write sebelum atau sesudah payload ( Tergantung Hasil Analisa )
end;

procedure TForm1.DumeterTimer(Sender: TObject);
begin
DL.Caption := FormatFloat('0',download/1024);
UL.Caption := FormatFloat('0',Upload/1024);
download:= 0;
Upload:= 0;
end;

procedure TForm1.RouteClick(Sender: TObject);
var
  rt: string;
begin
rt := '/C route add 10.1.89.130 mask 255.255.255.255 '+myip.LocalIP;
ShellExecute(0, nil, 'cmd.exe', PChar(rt), nil, SW_HIDE);
end;

end.

Video Tutorialnya Lihat dibawah ini:




Kelanjutannya Lihat DISINI

Karena tutorial ini belum selesai karena masalah durasi waktu di youtubenya karena akun saya hanya bisa upload hingga 15 menit saja jadi ditunggu ada sambungannya lho,, dan itu dulu info dengan Cara Buat Injek Telkomsel AS Simpati Biasa Anti Limit 2015 moga bermanfaat terima kasih.