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.
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.
