SyntaxHighlighter

PHP

call_hook(__FUNCTION__))
 {
  if ($phpbb_hook->hook_return(__FUNCTION__))
  {
   return $phpbb_hook->hook_return_result(__FUNCTION__);
  }
 }

 return;
}

?>

Delphi

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdMappedPortTCP,
  StdCtrls, ExtCtrls, sSkinManager, ComCtrls, sStatusBar, sPanel, sBevel,
  IdIPWatch, sPageControl, ToolWin, sToolBar, sEdit, sSpinEdit, acCoolBar,
  acNoteBook, Menus, VrControls, VrScope, VrScale, VrLcd, sCheckBox, VrLeds,
  sSkinProvider, sSplitter, sTrackBar, VrMatrix, VrDisplay, VrBitmapDial,
  VrButtons, VrDesign, VrDeskTop, VrCompass, VrHyperCtrls,
  VrBorder, VrBanner,
  Buttons, VrMatrixLabel, sComboBox, sRadioButton, sLabel, sGroupBox, ShellApi,
  sButton, VrAngularMeter, VrMeter;

Const
  WM_CAllBack = WM_USER;
type
  TForm1 = class(TForm)
    tcp: TIdMappedPortTCP;
    Timer1: TTimer;
    IdIPWatch1: TIdIPWatch;
    Timer2: TTimer;
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    B1: TMenuItem;
    B2: TMenuItem;
    G1: TMenuItem;
    W1: TMenuItem;
    W2: TMenuItem;
    W3: TMenuItem;
    fnsloop: TTimer;
    D1: TMenuItem;
    Timer5: TTimer;
    F1: TMenuItem;
    H1: TMenuItem;
    E1: TMenuItem;
    A1: TMenuItem;
    R1: TMenuItem;
    PopupMenu1: TPopupMenu;
    S2: TMenuItem;
    C1: TMenuItem;
    A2: TMenuItem;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    fnshd: TEdit;
    fnsbk: TEdit;
    N4: TMenuItem;
    N5: TMenuItem;
    FnsLb: TLabel;
    procedure BstartClick(Sender: TObject);
    procedure tcpExecute(AThread: TIdMappedPortThread);
    procedure BstopClick(Sender: TObject);
    procedure LedBlinkDownload;
    procedure LedBlinkUpload;
    procedure tcpOutboundData(AThread: TIdMappedPortThread);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure VrScope1NeedData(Sender: TObject; Channel: Integer;
      var Value: Integer);
    procedure VrScope2NeedData(Sender: TObject; Channel: Integer;
      var Value: Integer);
    procedure Timer5Timer(Sender: TObject);
    procedure E1Click(Sender: TObject);
    procedure sComboBox1Change(Sender: TObject);
    procedure WM_CALLBACKPRO(var msg : TMessage); message wm_callBack;
    procedure H1Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
    procedure fnsloopTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  download,upload: Integer;
  download2,upload2: Integer;
  Form1: TForm1;
  kecil: HICON;
  TrayIcon: TNotifyIconData;

implementation

{$R *.dfm}

procedure TForm1.WM_CALLBACKPRO(var msg: TMessage);
var
  p: TPoint;
begin
  case msg.LParam of
    WM_LBUTTONDOWN :
    begin
      Shell_NotifyIcon(NIM_DELETE,@TrayIcon);
      Form1.Visible := True;
    end;
    WM_RBUTTONDOWN :
    begin
      GetCursorPos(p);
      PopupMenu1.Popup(p.X,p.Y);
    end;
  end;
end;

procedure TForm1.tcpOutboundData(AThread: TIdMappedPortThread);
begin
  download := download + Length(AThread.NetData);
  download2 := download2 + Length(AThread.NetData);

  if Pos (' 400 Bad Request', AThread.NetData) <> 0 then
    AThread.NetData := StringReplace(AThread.NetData, ' 400 Bad Request',' 200 OK', [rfReplaceAll])

  else if Pos (' 403 Forbidden', AThread.NetData) <> 0 then
    AThread.NetData := StringReplace(AThread.NetData, ' 403 Forbidden',' 200 OK', [rfReplaceAll])

  else Pos (' 302 Found', AThread.NetData) <>0 then
    AThread.NetData := StringReplace(AThread.NetData, ' 302 Found',' 200 OK', [rfReplaceAll]);

  LedBlinkDownload;
end;

procedure TForm1.LedBlinkDownload;
begin
  shape1.Refresh;

  if shape1.Brush.color = clSilver then
    shape1.Brush.color := clRed
  else
    shape1.Brush.color := clSilver;
end;

procedure TForm1.LedBlinkUpload;
begin
  shape2.Refresh;

  if shape2.Brush.color = clSilver then
    shape2.Brush.color := clGreen
  else
    shape2.Brush.color := clSilver;
end;

procedure TForm1.BstartClick(Sender: TObject);
begin
  tcp.Bindings.Add.IP := '127.0.0.1';
  tcp.Bindings.add.Port := StrToInt(sEdit4.text);
  tcp.MappedHost := sEdit1.text;
  tcp.MappedPort := StrToInt(sEdit2.text);
  tcp.active := True;
  Bstart.enabled := False;
  Bstop.enabled := True;
  sEdit3.Enabled := False;
  sEdit4.Enabled := False;
  sComboBox1.Enabled := False;
end;

procedure TForm1.tcpExecute(AThread: TIdMappedPortThread);
begin
  LedBlinkUpload;
  upload := upload + Length(AThread.NetData);
  upload2 := upload2 + Length(AThread.NetData);

  if Pos ('HTTP', AThread.NetData) <>0 then
     AThread.NetData := AThread.NetData + '' + fnshd.text + '' + #13#10 + 'Connection: Keep-Alive'#13#10 + 'User-Agent: ' + sEdit3.Text + ''#13#10+'Host: ' + fnsbk.text + ''#13#10#13#10#13#10;

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

procedure TForm1.Timer5Timer(Sender: TObject);
begin
  sLabel12.Caption := FormatFloat('Down: ##0.## KB/s', download/1024);
  sLabel14.Caption := FormatFloat('Up  : ##0.## KB/s', upload/1024);
  edit2.Text := FormatFloat('0', download/1024);
  edit3.Text := FormatFloat('0', upload/1024);
  VrNum1.Value := StrToInt(edit2.Text);
  VrNum2.Value := StrToInt(edit3.Text);
  VrMeter1.Position := StrToInt(edit2.Text);
  VrMeter2.Position := StrToInt(edit3.Text);
  download := 0;
  upload: = 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if download2 < 1024 then
    sLabel13.Caption := FormatFloat('Recv: ##0.## Bit', download2)
  else if (download2 > 1024) and (download2 < 1048576) then
    sLabel13.Caption := FormatFloat('Recv: ##0.## Kb', download2/1024)
  else if (download2 > 1048576) and (download2 < 1073741824) then
    sLabel13.Caption := FormatFloat('Recv: ##0.## Mb', download2/1048576)
  else if (download2 > 1073741824) and (download2 < 1099511627776) then
    sLabel13.Caption := FormatFloat('Recv: ##0.## Gb', download2/1073741824);

  if upload2 < 1024 then
    sLabel15.Caption := FormatFloat('Send: ##0.## Bit', upload2)
  else if (upload2 > 1024) and (upload2 < 1048576) then
    sLabel15.Caption := FormatFloat('Send: ##0.## Kb', upload2/1024)
  else if (upload2 > 1048576) and (upload2 < 1073741824) then
    sLabel15.Caption := FormatFloat('Send: ##0.## Mb', upload2/1048576)
  else if (upload2 > 1073741824) and (upload2 < 1099511627776) then
    sLabel15.Caption := FormatFloat('Send: ##0.## Gb', upload2/1073741824);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Spanel.Panels[0].Text := idipwatch1.LocalIP;
  Spanel.Panels[1].Text := idipwatch1.LocalName;
  Spanel.Panels[1].Text := idipwatch1.LocalName;
end;

procedure TForm1.BstopClick(Sender: TObject);
begin
  tcp.Active := False;
  tcp.Bindings.Clear;
  Bstart.Enabled := True;
  Bstop.Enabled := False;
  sEdit3.Enabled := True;
  sEdit4.Enabled := True;
  sComboBox1.Enabled := True;
  Form1.fnsloop.Enabled := False;
end;

procedure TForm1.VrScope1NeedData(Sender: TObject; Channel: Integer;
  var Value: Integer);
begin
  Value := StrToInt(edit2.text);
end;

procedure TForm1.VrScope2NeedData(Sender: TObject; Channel: Integer;
  var Value: Integer);
begin
  value := StrToInt(edit3.Text);
end;

procedure TForm1.E1Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.sComboBox1Change(Sender: TObject);
begin
  if sComboBox1.Text = 'Opera Mini' then
    sEdit3.Text := 'Opera/9.80 (J2ME/MIDP; Opera Mini/9 (Compatible; MSIE:9.0; iPhone; BlackBerry9700; AppleWebKit/24.746; U; en) Presto/2.5.25 Version/10.54'

  else if sComboBox1.Text = 'Mozilla' then
    sEdit3.Text := 'Mozilla/5.0 (Windows NT6.1; rv:14.0) Gecko/20100101 Firefox/14.0'

  else if sComboBox1.Text = 'Chrome' then
    sEdit3.Text := 'Mozilla/5.0 (Windows NT 6.2; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/32.0.1667.0 Safari/537.36'

  else if sComboBox1.Text = 'Blackberry' then
    sEdit3.Text := 'Mozilla/5.0 (BlackBerry; U; BlackBerry 9900; en) AppleWebKit/534.11+ (KHTML, like Gecko) Version/7.1.0.346 Mobile Safari/534.11'

  else if sComboBox1.Text = 'Android' then
    sEdit3.Text := 'Mozilla/5.0 (Linux; U; Android 4.0.3; ko-kr; LG-L160L Build/IML74K) AppleWebkit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30'

  else if sComboBox1.Text = 'Manual' then
    sEdit3.Clear;

end;

procedure TForm1.H1Click(Sender: TObject);
begin
  Kecil := application.Icon.Handle;
  Trayicon.cbSize := SizeOf(TNotifyIconData);
  Trayicon.Wnd := handle;
  Trayicon.szTip := 'Double Click For Show';
  Trayicon.uID := 1;
  TrayIcon.hIcon := Kecil;
  TrayIcon.uCallbackMessage := WM_CAllBack;
  Trayicon.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
  Shell_NotifyIcon(NIM_ADD,@trayicon);
end;

procedure TForm1.R1Click(Sender: TObject);
var
  rt: string;
begin
  rt := '/C route add 10.19.19.19 mask 255.255.255.255 '+ idipwatch1.LocalIP;
  ShellExecute(0, nil, 'cmd.exe', PChar(rt), nil, SW_HIDE);
  showmessage('Route Indosat Success '+i dipwatch1.LocalIP);

end;

procedure TForm1.fnsloopTimer(Sender: TObject);
var
  TForNesia:integer;
begin
  TForNesia := StrToInt(FnsLb.caption);
  TForNesia := TForNesia+1;
  FnsLb.Caption := IntToStr(TForNesia);
  luvtimefns.Value := StrToInt(FnsLb.caption);

  if FnsLb.Caption = '1' then
  begin
    sRadioButton1.Checked := True;
    fnshd.Text := 'GET http://BugHost/ HTTP/1.1';
    fnsbk.Text := 'GET http://BugHost/ HTTP/1.1';
    FH.Caption := '1';
  end
  else if FnsLb.Caption = '7' then
  begin
    sRadioButton2.Checked := True;
    fnshd.Text := 'GET http://BugHost/ HTTP/1.1';
    fnsbk.Text := 'GET http://BugHost/ HTTP/1.1';
    FH.Caption := '2';
  end
  else if FnsLb.Caption = '14' then
  begin
    sRadioButton7.Checked := True;
    fnshd.Text := 'GET http://BugHost/ HTTP/1.1';
    fnsbk.Text := 'GET http://BugHost/ HTTP/1.1';
    FH.Caption := '3';
  end;

end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  FnsLb.Caption := '0';
end;

end.

Read More

Draft Inject 3

Nama Inject: xx Release Date: 03 Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 2014 Author: Anonymous Operator: Telkomsel Info: No Paket, No Limit, No DC

Download

• Link 1
• Link 2
• Link 3

NB: Pass RAR = 1


Update Terbaru Ssh Di sini

Blog Ini Akan DI Update Tiap Hari . . .
Jadi Silahkan Cek Tiap Hari, Terima Kasih
Jika terdapat link yang tidak jalan, tolong beritahu kami melalui link berikut ini

Operator, SSH Gratis, SSH Premium, Trik Internet Gratis, Inject Terbaru, Direct, Tutorial, VPN Free, VPS Free.

Read More

test

fdsf sdfsfsf

Read More

Draft Software

Nama Software: xx Release Date: 03 Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 2013 Author: Anonymous Info: xxxx

Download

• Link 1
• Link 2
• Link 3

NB: Pass RAR = 1

Sumber

• NA
• NA

Update Terbaru Ssh Di sini

Blog Ini Akan DI Update Tiap Hari . . .
Jadi Silahkan Cek Tiap Hari, Terima Kasih
Jika terdapat link yang tidak jalan, tolong beritahu kami melalui link berikut ini

Operator, SSH Gratis, SSH Premium, Trik Internet Gratis, Inject Terbaru, Direct, Tutorial, VPN Free, VPS Free.

Read More

Anyone can build a Messenger client—with open standards access via XMPP

We’ve previously talked about the principles that guide us as we strive to continue delivering the most convenient ways to chat with the people who matter the most to you. Today we’re taking another step, with the public availability of access to the Messenger network via XMPP, an open standard. This means that anyone can build innovative messaging clients—either stand-alone or built into their devices—that include access to Messenger’s 300 million active users.

This builds on our perspective that you should simply be able to:

• Choose the services you want, without re-spamming your friends with invites—More than 300 million people actively use Messenger every month. The vast majority of them also actively use other services like Facebook and Yahoo, where they have contact lists that they build and deepen every day. Because of this, we’ve steadily connected Messenger to other services, so that your Windows PC, Windows Phone, and Hotmail make it easy to sign in to your existing services and chat with who you want, without having to re-spam all your friends and force them to join yet another network.
• Choose the devices you want, without having to switch services—Similarly, Messenger has been available for many years on a wide range of devices, using apps built both by Microsoft and through our broad partner program. In addition to the classic Messenger desktop programs for the PC and Mac, Messenger clients are available for most mobile phones and mobile operators around the world, including Windows Phone 7, iPhone, Android, Blackberry OS, Nokia Symbian, Samsung Bada, and many more.

We continue with our commitment to these principles, especially around enabling people to access Messenger from all of their devices by exposing an XMPP interface to Windows Live Messenger. XMPP is the Extensible Messaging and Presence Protocol which is an open technology for real-time communication used by a number of popular IM networks from Google Talk to Facebook Chat and now Messenger.

With the release of the XMPP interface for Messenger, any XMPP based chat client that can also support OAuth 2.0 for authentication will be able to connect to Windows Live Messenger to enable people to see which of their friends are online and chat with them in real-time and.

Read More

All Images

xxxxxxxxxxxxxxxxxxxx

Add caption

======

Spancer.gif

======








xxxx

Read More

Draft SSH

Secure Shell atau SSH adalah protokol jaringan yang memungkinkan pertukaran data melalui saluran aman antara dua perangkat jaringan. Terutama banyak digunakan pada sistem berbasis Linux dan Unix untuk mengakses akun shell, SSH dirancang sebagai pengganti Telnet dan shell remote tak aman lainnya, yang mengirim informasi, terutama kata sandi, dalam bentuk teks sederhana yang membuatnya mudah untuk dicegat. Enkripsi yang digunakan oleh SSH menyediakan kerahasiaan dan integritas data melalui jaringan yang tidak aman seperti Internet.

Download SSH Premium 00 Januari 2012

• Server XX (Xxxxx)

1. SSH 1
2. SSH 2
3. SSH 3
4. SSH 4
5. SSH 5
   

• Server YY (Yyyyy)

1. SSH 1
2. SSH 2
3. SSH 3
4. SSH 4
5. SSH 5

Untuk Menjalankan Akun SSH ini Harus Menggunakan Tool Bitvise SSH Client Download Tool Nya Dan Untuk Cara Menggunakan Tool Bitsive Baca Totorial Cara Menggunakan Bitvise SSH Client

Download Proxifier v3.21 Di sini
Download Multi SSH GX 1 Di Sini


Blog Ini Akan DI Update Tiap Hari . . .
Jadi Silahkan Cek Tiap Hari, Terima Kasih
Jika terdapat link yang tidak jalan, tolong beritahu kami melalui link berikut ini

Operator, SSH Gratis, SSH Premium, Trik Internet Gratis, Inject Terbaru, Direct, Tutorial, VPN Free, VPS Free.

Read More