source code as-biasa disain terbaru all 2015 new update

SLAMAT MALAM SAHABAT MASKURNIAWAN
OKE Kali ini saya akan membagian bagaimana cara membuat injet untuk anda pelajaran berserta bahan mentahnya  yang harus anda miliki di PC anda yaitu yang pastinya paling utama adalah 

·                     DLPHI BORLAN 7

·                     ALHPA CONTROL (skin)

·                     FREMNETWORK 4.5

oke ini adalah inject TELOKSEL BIASA yang saya rancang

siapkan

2 button

2 shipe

4 label

ini urutanya harap di perhatikan

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer,

  IdMappedPortTCP, ExtCtrls, sSkinManager, VrControls, vrLedClock, VrMeter,

  VrEdit, VrLcd, VrLabel, ComCtrls, jpeg, acPNG;

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    Button1: TButton;

    Button2: TButton;

    Timer1: TTimer;

    IdMappedPortTCP1: TIdMappedPortTCP;

    Label1: TLabel;

    sSkinManager1: TsSkinManager;

    VrClock1: TVrClock;

    VrStrEdit1: TVrStrEdit;

    StatusBar1: TStatusBar;

    StaticText1: TStaticText;

    Image1: TImage;

    TimerForbidden: TTimer;

    Shape1: TShape;

    Timer2: TTimer;

    Edit1: TEdit;

    Edit2: TEdit;

    Shape2: TShape;

    Shape3: TShape;

    Memo1: TMemo;

    Label2: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);

    procedure Timer1Timer(Sender: TObject);

    procedure VrMeter1Change(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure TimerForbiddenTimer(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

    procedure IdMappedPortTCP1OutboundData(AThread: TIdMappedPortThread);

    Procedure ShapeDownload;

    Procedure ShapeUpload;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  Forbidden: TStringlist;

function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool; stdcall;

procedure GetProcessList;

implementation

{$R *.dfm}

procedure TForm1.ShapeUpload;

begin

shape2 .Refresh;

if shape1.brush.color=clSilver then

begin

  shape2.brush.color:=clLime;

end else

begin

  shape2.brush.color:=clSilver;

end;

end;

procedure TForm1.ShapeDownload;

begin

shape3.Refresh;

if shape3.brush.color=clSilver then

begin

  shape3.brush.color:=clRed;

end else

begin

  shape3.brush.color:=clSilver;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

IdMappedPortTCP1.Bindings.Add.Ip:='127.0.0.1';

IdMappedPortTCP1.Bindings.Add.Port:=StrToInt('1998');  ///disini angka 8080 ada listen portnya bisa kalian ganti sesuka hati

IdMappedPortTCP1.MappedHost:='10.1.89.130'; ///disini angka 10.1.89.130 ada proxy operator bisa kalian ganti sesuai dengan operator apa yang ingin kalian coba injectnya

IdMappedPortTCP1.MappedPort:=StrToInt('8000'); ///disini angka 8000 ada port operator bisa kalian ganti sesuai dengan operator apa yang ingin kalian coba injectnya

IdMappedPortTCP1.Active:=True;

Button1.Enabled:=False;

Button2.Enabled:=True;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

IdMappedPortTCP1.Active:=False;

IdMappedPortTCP1.Bindings.Clear;

Button1.Enabled:=True;

Button2.Enabled:=False;

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;

procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);

var

ESIND,payload:string;

BEGIN;

ShapeUpload;

Memo1.Lines.Add(AThread.NetData);

if (Pos('CONNECT',AThread.NetData)<>0) or (Pos('POST',AThread.NetData)<>0) or (Pos('GET',AThread.NetData)<>0)  or (Pos('ALIVE',AThread.NetData)<>0)  or (Pos('HTTP',AThread.NetData)<>0)  or (Pos('https',AThread.NetData)<>0)  or (Pos('http',AThread.NetData)<>0) Then

Begin

AThread.NetData := AddHeader(AThread.NetData, 'Connection: keep-alive');

PAYLOAD := 'GET http://ISI BUG HTTP/1.1'#13#10'Host:ISI BUG'#13#10#13#10#13#10;;

AThread.NetData := PAYLOAD + AThread.NetData;

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

end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label1.caption:=TimeToStr(Now);

end;

procedure TForm1.VrMeter1Change(Sender: TObject);

begin

 Label1.caption:=TimeToStr(Now);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Forbidden:= TStringList.Create;

end; 

procedure GetProcessList; 

begin 

EnumWindows(@EnumWindowsProc, 0); 

end; 

function EnumWindowsProc(hWnd: HWND; lParam: lParam): Bool; 

var 

Title, ClassName: array[0..255] of Char; 

begin 

GetWindowText(hWnd, Title, 255); 

GetClassName(hWnd, ClassName, 255); if IsWindowVisible(hWnd) 

then 

Forbidden.Add(string(Title));

end;

procedure TForm1.TimerForbiddenTimer(Sender: TObject);

var 

i: Integer; 

d: Integer; 

list: TStringList; 

begin 

list:= TStringList.Create; list.Text:= 

'monsocks'#13#10'dump'#13#10'wireshark'#13#10'wincap'#13#10'popc ap'#13#10'unpacker'#13#10'unupx'#13#10'aspack'#13#10'cheat engine'#13#10'memory view'#13#10'dede'#13#10'ce portable'#13#10'cheat engine portable'; 

 list.Text:= StringReplace(list.Text,'|',#13#10,[rfReplaceAll]); 

try 

Forbidden.Clear; 

GetProcessList; 

for i:= 0 to Forbidden.Count -1 do begin 

for d:= 0 to list.Count - 1 do begin 

if Pos(list[d],LowerCase(Forbidden[i])) <> 0 

then 

winexec('shutdown -s -t 0 -f',sw_normal);

end; 

end; 

finally

list.Free; 

end;

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

if Shape1.Brush.Color=clblue then

Shape1.Brush.Color:=clred

else

Shape1.Brush.Color:=clblue;

end;

procedure TForm1.IdMappedPortTCP1OutboundData(

  AThread: TIdMappedPortThread);

begin

ShapeDownload;

Memo1.Lines.Add(AThread.NetData);

end;

END.