Instal VPS Menggunakan Speedtest ( Debian/Ubuntu, CentOS )

Untuk melakukan test kecepatan server vps menggunakan speedtest.net anda harus melakukan setting konfigurasi pada server supaya speedtest bisa diakses melalui console vps. Adapun caranya adalah sebagai berikut.

Langkah pertama silahkan login full akses ke server vps dengan user dan password root menggunakan program PuTTY, selanjutnya jalankan perintah/command dibawah ini pada console.

 1. Install Python

Debian/Ubuntu:
apt-get install python

CentOS:
yum -y install python

2. Download wget speedtest_cli.py

wget http://proxy.ninit.us/speedtest_cli.py

3. Cek informasi wget speedtest

python speedtest_cli.py -h

4. Melakukan testing dan mengetahui hasil speedtest

python speedtest_cli.py --share

Selesai.

Untuk dapat melihat hasil dari testing kecepatan server vps anda, silahkan copas url speedtest.net (ex:http://www.speedtest.net/result/3436133852.png ) yang berupa file gambar yang dihasilkan dari testing diatas pada browser anda. Contoh dari hasil test kecepatan server vps Singapore yang saya miliki, berikut hasilnya.

http://www.speedtest.net/result/3436133852.png

 Jika anda ingin melakukan test speed server berulang kali supaya mendapatkan speed yang sesuai dengan yang anda inginkan, anda cukup mengulangi command/perintah langkah 4 pada console server.

Nah, cukup mudah bukan? Semoga cara melakukan Instal VPS Menggunakan Speedtest ini bisa di mengerti dan dapat bermanfaat bagi anda semua.

Read More

Source Code ISAT

Penampakan

Read More

INJEK INDOSAT ANTI LIMIT

Read More

Multi SSH MP3

Read More

Arti dan pengertian SSH

Pengertian SSH adalah akronim dari Secure Shell yang merupakan sebuah protokol jaringan yang memanfaatkan kriptografi untuk melakukan komunikasi data pada perangkat jaringan agar lebih aman. Dalam konsepnya penggunaan SSH ini harus di dukung oleh server maupun perangkat atau komputer klien yang melakukan pertukaran data. Keduanya harus memiliki SSH server dari sisi komputer server dan SSH klien untuk komputer penerima (klien).
Banyaknya masalah keamanan jaringan memang menjadi hal serius untuk dihadapi, terutama untuk jaringan yang menghubungkan pertukaran data yang krusial. Sebagai contoh perbankan, pemerintah, dan instansi swasta yang membutuhkan perlindungan data terhadap konsumen dan bisnisnya, bahkan antivirus terbaik pun tidak dapat memberikan perlindungan secara sempurna.

Fungsi SSH

Fungsi SSH dapat digunakan untuk menggantikan telnet, rlogin, ftp, dan rsh, salah satu fungsi utamanya adalah untuk menjamin keamanan dalam melakukan transmisi data pada suatu jaringan. SSH banyak dimanfaatkan oleh berbagai network admin di berbagai belahan dunia untuk mengontrol web dan jenis jaringan lainnya seperti WAN.
Fungsi SSH ini sebenarnya adalah dibuat untuk menggantikan protokol sebelumnya yang dianggap sangat rentan terhadap pencurian data melalui malware berbahaya. Protokol tersebut antara lain adalah rlogin, TELNET dan protokol rsh.
Fungsi SSH

1. Melakukan enkripsi terhadap data yang dikirim
2. Protokol untuk pertukaran data dalam suatu jaringan
3. Otentifikasi, mekanisme untuk memastikan pengirim dan penerima adalah benar dan aman.
4. Kerahasiaan, memastikan kerahasiaan data yang dikirim agar hanya diketahui oleh penerima dan pengirim.

Sejarah SSH

Sejarah SSH merupakan salah satu penemuan di tahun 1995 oleh Tatu Ylönen, seorang peneliti dari Helsinki University of Technology, Finlandia. Ia mendesain salah satu protokol SSH pertama yang sekarang disebut sebagai SSH-1 untuk menghalau serangan password-sniffing (teknik pencurian password) pada jaringan universitas itu sendiri.
Sebagai peneliti ia memutuskan untuk membuat protokol ini sebagai freeware, karena pentingnya aplikasi SSH ini membuat tools ini sangat populer. Dalam waktu singkat telah digunakan oleh 20,000 user di lebih dari 50 negara di seluruh dunia.  Saat ini tentu pengguna aplikasi SSH ini telah mencapai jutaan pengguna di seluruh dunia.

Pengertian SSH dan Fungsi SSH untuk Keamanan Jaringan

Pengertian SSH umumnya untuk memudahkan pemahaman adalah dengan membandingkannya dengan telnet dan ftp. SSH sebagai protokol sejenis yang memberikan keamanan dan enkripsi dalam setiap pertukaran datanya. Topologi jaringan komputer merupakan  salah satu faktor penentu kinerja keamanan jaringan. Topologi jaringan terpusat akan membantu mempermudah menggunakan aplikasi seperti SSH ini.

jadi kita telah mengerti bukan bahwa ssh itu di pakai untuk keamanan :D
hehehhee..

Read More

Mempercantik Form Delphi 7 dengan Alphaskin & TMS

Assalamualaikkum Warohmatullahi Wabarokaatuh

Kali ini MasEdi akan membagikan Tutorial, Cara Tutorial Mempercantik Form delphi 7 dengan Alphaskin.

Apa Itu Alphaskin ?

Alphaskin adalah komponen Delphi 7 yang berfungsi untuk memberi tema pada Form yang hendak di buat.

Alphaskin mempunya berbagai macam tema, sehingga project yang akan kita buat terlihat lebih menarik.

Lansung saja kita ke TKP

1. Download Alphaskin Full

2. Ektrak File Alphaskin ke Directory C:\ atau Local Disk C:\

3. Buka Delphi 7 (Run Administrator)

4. Tools - Environment Options - Library - Search File yang di Ektraks tadi

a. Pilih atau Klik acntD7_R Kemudian Klik Compile

b. Pilih atau Klik acntD7 Kemudian Klik Instal

5. Buat Sebuah Form/Project Baru 

6. Buka Tab Alpha Tools -- Terletak pada ujung Tab Biasanya

7. Buat 1 Skin Manager dan Profider seperti pada gambar

8. Klik Skin Manager dan Perhatikan pada Properti, Pilih Nama Skin Yang tersedia

9. Jalankan Project dan Lihat apa Yang akan Terjadi Pemirsa

   

TMS

Read More

Download Delphi 7

Assalamualaikkum Warohmatullahi Wabarokaatuh

Sampean seorang programmer pasti membutuhkan software yang satu ini.

Delphi 7 ini sudah full beserta key aktivasinya.

Silahkan langsung saja kalian sedot delphi 7 ini

SERIAL
6AKD-PD29Q9-RDF?JQ-X65Z
QX8-EEC

Read More

Cara Membuat Speedometer Traffic Dengan Delphi

Tutorial Cara Membuat Speedometer Traffic Dengan Delphi, Tutorial Snippet ini tidak begitu ribett dan susah, jadi simak dengan seksama langkah langkahnya, dan anda siap mempercantik tampilan project Delphi anda dengan memakai Speedometer ini,

Langsung saja biar ga kepanjangan ...

Anda membutuhkan Komponen VrAngularMeter

1. 2 VrAngularMeter1 Timer
2. 2 Label
3. 1Timer

Letakan Code berikut pada var :

var
Download : Integer;
Upload : Integer;

Lalu Letakan Code Pemanggilan pada Tcp anda

Tcpexecute :

upload:= upload+Length(AThread.NetData);

Tcpoutbound :

download:= download+Length(AThread.NetData);

Letakan Kode Dibawah ini pada Timer :

Label1.Caption := FormatFloat('0',download/1024);
Label2.Caption := FormatFloat('0',Upload/1024);
VrAngularMeter1.Position := StrToInt (Label1.Caption); // Down speedometer
VrAngularMeter2.Position := StrToInt (Label2.Caption); // upload speedometer
download:= 0;
Upload:= 0;

Selesai :D

Read More

Mempercantik Tun2Socks Traffic Monitor dengan Speedometer

Pembuatan Tun2Socks Traffic Monitor sudah Ane bahas pada artikel “Membuat Network Traffic Monitor Khusus untuk Tun2Socks GUI“, begitu pula Speedometer menggunakan Delphi. Lalu bagaimana kalau kita gabungkan keduanya?

Pertama yang harus kita siapkan adalah komponen Speedometer dan source code Tun2Socks Traffic Monitor. Dengan menggunakan Source Tun2Socks Traffic Monitor sebelumnya, kita akan memodifikasi sedikit sehingga Speedometer bisa ditambahkan pada source project tersebut.
Pada project Tun2Socks Traffic Monitor terdapat sebuah Timer yang berisi tentang informasi trafik secara Realtime. Nah pada area tersebut, nilai posisi Speedometer masukkan.
Lihat isi kode Timer sebelumnya seperti berikut:

procedure TForm1.Timer1Timer(Sender: TObject); var inval, outval: Cardinal; i: Integer; begin ProcessMIBData; if Assigned(ActiveTraffic) then with ActiveTraffic do begin ledAdapterDescription.Text := Description; ledMACAddress.Text := MAC; ledSpeed.Text := BitsToFriendlyString(Speed); ledOctInSec.Text := BytesToFriendlyString(InPerSec); ledPeakInSec.Text := BytesToFriendlyString(PeakInPerSec); ledAvgINSec.Text := BytesToFriendlyString(AverageInPerSec); ledTotalIN.Text := BytesToFriendlyString(InTotal); ledOctOUTSec.Text := BytesToFriendlyString(OutPerSec); ledPeakOUTSec.Text := BytesToFriendlyString(PeakOutPerSec); ledAvgOUTSec.Text := BytesToFriendlyString(AverageOutPerSec); ledTotalOUT.Text := BytesToFriendlyString(OutTotal); self.ledStartedAt.Text := DateTimeToStr(StartedAt); self.ledActiveFor.Text := FriendlyRunningTime; Form1.Caption := IP; end;//with end; (*RefreshDisplay*)

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

procedure TForm1.Timer1Timer(Sender: TObject); var   inval, outval: Cardinal;   i: Integer; begin   ProcessMIBData;     if Assigned(ActiveTraffic) then     with ActiveTraffic do   begin       ledAdapterDescription.Text := Description;     ledMACAddress.Text := MAC;       ledSpeed.Text := BitsToFriendlyString(Speed);       ledOctInSec.Text := BytesToFriendlyString(InPerSec);     ledPeakInSec.Text := BytesToFriendlyString(PeakInPerSec);     ledAvgINSec.Text := BytesToFriendlyString(AverageInPerSec);     ledTotalIN.Text := BytesToFriendlyString(InTotal);       ledOctOUTSec.Text := BytesToFriendlyString(OutPerSec);     ledPeakOUTSec.Text := BytesToFriendlyString(PeakOutPerSec);     ledAvgOUTSec.Text := BytesToFriendlyString(AverageOutPerSec);     ledTotalOUT.Text := BytesToFriendlyString(OutTotal);         self.ledStartedAt.Text := DateTimeToStr(StartedAt);     self.ledActiveFor.Text := FriendlyRunningTime;       Form1.Caption := IP;     end;//with   end; (*RefreshDisplay*)

Kode tersebut yang akan kita modifikasi sehingga trafik akan terlihat di Speedometer.
Simak langkah-langkah pembuatannya

Modifikasi Source Tun2socks Traffic Monitor

1. Masukan komponen Speedometer ke dalam Form lalu ganti propertinya sesuai yang diharapkan.
2. Buat variabel “curposition: Integer;” pada “global variable declaration” sebagai tambahan untuk menyimpan posisi Speedometer yang sedang dilihat
   
   var Form1: TForm1; ActiveTraffic: TTraffic; AdapterObject: TList; curposition: Integer;

   1 2 3 4 5

   var   Form1: TForm1;   ActiveTraffic: TTraffic;   AdapterObject: TList;   curposition: Integer;

3. DoubleClick komponen Timer,maka isi kode timer akan terbuka
4. Tambahkan kode berikut pada timer, posisinya di area “with ActiveTraffic do”
   
   inval := InPerSec div 1000; if inval < 1 then inval := 1; Speedo.Position := inval; curposition := inval;

   1 2 3 4 5

   inval := InPerSec div 1000;     if inval < 1 then       inval := 1;     Speedo.Position := inval;     curposition := inval;

   Agar tidak terlihat kaku, kita buat loop supaya pergerakannya terlihat tidak patah-patah saat berpindah nilai posisi
   
   inval := InPerSec div 1000; if inval < 1 then inval := 1; if inval > curposition then begin for i:=curposition to inval do begin Speedo.Position := i; end; curposition := inval; end else begin for i:=curposition downto inval do begin Speedo.Position := i; end; curposition := inval; end;

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

   inval := InPerSec div 1000;     if inval < 1 then       inval := 1;       if inval > curposition then begin       for i:=curposition to inval do begin         Speedo.Position := i;       end;       curposition := inval;     end     else begin       for i:=curposition downto inval do begin         Speedo.Position := i;       end;       curposition := inval;     end;

   Agar lebih menarik, kita tambahkan “elastic bounce effect” menggunakan loop
   
   inval := InPerSec div 1000; if inval < 1 then inval := 1; if inval > curposition then begin for i:=curposition to inval do begin Speedo.Position := i; end; // START code Elastic Bounce Effect for i:=inval to inval + 20 do begin Speedo.Position := i; end; for i:=inval + 20 downto inval - 7 do begin Speedo.Position := i; end; for i:=inval - 7 to inval do begin Speedo.Position := i; end; // END code Elastic Bounce Effect curposition := inval; end else begin for i:=curposition downto inval do begin Speedo.Position := i; end; curposition := inval; end;

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

   inval := InPerSec div 1000;     if inval < 1 then       inval := 1;         if inval > curposition then begin       for i:=curposition to inval do begin         Speedo.Position := i;       end;              // START code Elastic Bounce Effect       for i:=inval to inval + 20 do begin         Speedo.Position := i;       end;       for i:=inval + 20 downto inval - 7 do begin         Speedo.Position := i;       end;       for i:=inval - 7 to inval do begin         Speedo.Position := i;       end;       // END code Elastic Bounce Effect              curposition := inval;     end     else begin       for i:=curposition downto inval do begin         Speedo.Position := i;       end;       curposition := inval;     end;

Hasil akhir kode dalam Timer menjadi :

procedure TForm1.Timer1Timer(Sender: TObject); var inval, outval: Cardinal; i: Integer; begin ProcessMIBData; if Assigned(ActiveTraffic) then with ActiveTraffic do begin ledAdapterDescription.Text := Description; ledMACAddress.Text := MAC; ledSpeed.Text := BitsToFriendlyString(Speed); ledOctInSec.Text := BytesToFriendlyString(InPerSec); ledPeakInSec.Text := BytesToFriendlyString(PeakInPerSec); ledAvgINSec.Text := BytesToFriendlyString(AverageInPerSec); ledTotalIN.Text := BytesToFriendlyString(InTotal); ledOctOUTSec.Text := BytesToFriendlyString(OutPerSec); ledPeakOUTSec.Text := BytesToFriendlyString(PeakOutPerSec); ledAvgOUTSec.Text := BytesToFriendlyString(AverageOutPerSec); ledTotalOUT.Text := BytesToFriendlyString(OutTotal); self.ledStartedAt.Text := DateTimeToStr(StartedAt); self.ledActiveFor.Text := FriendlyRunningTime; Form1.Caption := IP; inval := InPerSec div 1000; if inval < 1 then inval := 1; if inval > curposition then begin for i:=curposition to inval do begin Speedo.Position := i; end; for i:=inval to inval + 20 do begin Speedo.Position := i; end; for i:=inval + 20 downto inval - 7 do begin Speedo.Position := i; end; for i:=inval - 7 to inval do begin Speedo.Position := i; end; curposition := inval; end else if inval >= 420 then begin for i:=0 to 10 do begin inval := 420; if inval = 420 then begin inval := 410; end else begin inval := 420; end; Speedo.Position := inval; curposition := inval; Sleep(100); end; end else begin for i:=curposition downto inval do begin Speedo.Position := i; end; curposition := inval; end; end;//with end; (*RefreshDisplay*)

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77

procedure TForm1.Timer1Timer(Sender: TObject); var   inval, outval: Cardinal;   i: Integer; begin   ProcessMIBData;     if Assigned(ActiveTraffic) then     with ActiveTraffic do   begin       ledAdapterDescription.Text := Description;     ledMACAddress.Text := MAC;       ledSpeed.Text := BitsToFriendlyString(Speed);       ledOctInSec.Text := BytesToFriendlyString(InPerSec);     ledPeakInSec.Text := BytesToFriendlyString(PeakInPerSec);     ledAvgINSec.Text := BytesToFriendlyString(AverageInPerSec);     ledTotalIN.Text := BytesToFriendlyString(InTotal);       ledOctOUTSec.Text := BytesToFriendlyString(OutPerSec);     ledPeakOUTSec.Text := BytesToFriendlyString(PeakOutPerSec);     ledAvgOUTSec.Text := BytesToFriendlyString(AverageOutPerSec);     ledTotalOUT.Text := BytesToFriendlyString(OutTotal);         self.ledStartedAt.Text := DateTimeToStr(StartedAt);     self.ledActiveFor.Text := FriendlyRunningTime;       Form1.Caption := IP;       inval := InPerSec div 1000;     if inval < 1 then       inval := 1;         if inval > curposition then begin       for i:=curposition to inval do begin         Speedo.Position := i;       end;       for i:=inval to inval + 20 do begin         Speedo.Position := i;       end;       for i:=inval + 20 downto inval - 7 do begin         Speedo.Position := i;       end;       for i:=inval - 7 to inval do begin         Speedo.Position := i;       end;       curposition := inval;     end     else if inval >= 420 then begin       for i:=0 to 10 do begin         inval := 420;         if inval = 420 then begin           inval := 410;         end         else begin           inval := 420;         end;         Speedo.Position := inval;         curposition := inval;         Sleep(100);       end;     end     else begin       for i:=curposition downto inval do begin         Speedo.Position := i;       end;       curposition := inval;     end;     end;//with   end; (*RefreshDisplay*)

Read More