Keamanan Sistem Informasi – Membuat Program “Ping” menggunakan Delphi


Pada bahasan ini akan diberikan implementasi program “Ping” menggunakan Delphi, namun sebelunya akan dijelaskan tentang pengertian ping, manfaat/fungsi ping, dan ICMP.

command ping

Pengertian Ping

PING singkatan dari Packet Internet Gropher, secara pengertian PING adalah sebuah program utilitas yang digunakan untuk memeriksa konektivitas jaringan berbasis teknologi Transmission Control Protocol/Internet Protocol (TCP/IP). Dengan menggunakan utilitas ini, dapat diuji apakah sebuah komputer terhubung dengan komputer lainnya. Hal ini dilakukan dengan cara mengirim sebuah paket kepada alamat IP yang hendak diujicoba konektivitasnya dan menunggu respons darinya. Nama “PING” berasal dari sonar sebuah kapal selam yang sedang aktif, yang sering mengeluarkan bunyi PING ketika menemukan sebuah objek.

Kegunaan Ping

Kegunaan PING antara lain adalah sbb:

Mengetahui status up/down komputer dalam jaringan.

Kita dapat mengecek apakah sebuah komputer up/down menggunakan perintah PING, jika komputer tersebut memberikan response terhadap perintah PING yang kita berikan maka dikatakan bahwa komputer tersebut up atau hidup.

Memonitor availability status komputer dalam jaringan.

PING dapat digunakan sebagai tool monitoring availibilitas komputer dalam jaringan yang merupakan salah satu indikator kualitas jaringan yaitu dengan melakukan PING secara periodik pada komputer yang dituju. Semakin kecil downtime, semakin bagus kualitas jaringan tersebut.

Mengetahui responsifitas komunikasi sebuah jaringan.

Besarnya nilai delay atau latency yang dilaporkan oleh PING menjadi indikasi seberapa responsif komunikasi terjadi dengan komputer yang dituju. Semakin besar nilai delay menunjukkan semakin lamban respons yang diberikan. Sehingga nilai delay ini juga bisa digunakan sebagai indikator kualitas jaringan.

Untuk troubleshooting jaringan

Contoh Perintah PING ke http://www.google.com dari Command Prompt Windows. untuk mengakses PING, klik Start menu Windows – RUN, ketikkan cmd. kemudian ketikkan perintah ping http://www.google.com.

C:\Documents and Settings\admin>ping  www.google.com
Pinging www.l.google.com [72.14.203.104]  with 32 bytes of data:
Reply from 72.14.203.104: bytes=32  time=1010ms TTL=244
Reply from 72.14.203.104: bytes=32 time=977ms TTL=244
Reply from 72.14.203.104: bytes=32 time=597ms TTL=244
Reply from 72.14.203.104: bytes=32 time=375ms TTL=244
Ping statistics for 72.14.203.104:
Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 375ms, Maximum = 1010ms, Average = 739ms
C:\Documents and Settings\admin>

Arti dari pesan tersebut komputer yang digunakan untuk melakukan PING ke http://www.google.com terhubung ke internet. dengan statistik 4 paket PING atau ICMP terkirim, dan menerima 4 paket PING, kehilangan paket 0, perkiraan perjalanan paket dalam mili second, lama waktu perjalanan paket paling cepat 375 ms, paling lama 1010 ms, dan rata-ratanya = 1010 + 977 + 597 + 375 = 2941, 2941 dibagi 4 = 735,25 ms, dalam perhitungan sistem Windows dijadikan 739 ms. arti dari round trip adalah perjalan paket PING dari komputer yang digunakan untuk melakukan PING, kemudian ke host server http://www.google.com kembali lagi ke komputer client, atau secara sederhana diartikan perjalanan pulang pergi.

Mengecek koneksitivitas sebuah host
jika paket PING replay berarti host terhubung, jika unreachle maka host kemungkinan besar tidak terhubung, atau ada kabel yang terlepas, atau LAN card mengalami kerusakan.

Mengecek kualitas koneksitivitas jaringan
Ketika melakukan PING ke sebuah host akan muncul statistik paket lost, jika jaringan yang digunakan dalam keadaan bagus maka paket loss = 0 (0 % loss) atau (nol persen)

mengetahui secara cepat IP address sebuah domain

Aplikasi PING digunakan untuk troubleshooting jaringan komputer, dapat digunakan untuk mengetahui secara cepat IP address sebuah domain, pada contoh diatas PING http://www.google.com terlihat IP address yang digunakan http://www.google.com adalah 72.14.203.104.

ICMP

Dalam TCP/IP PING masuk dalam klasifikasi protokol ICMP, protokol ICMP sendiri memiliki 2 jenis aplikasi yaitu PING, dan TRACEROUTE.
Dalam keadaan tertentu seorang administrator jaringan menolak paket PING, dengan tujuan tidak lain ingin mengamankan sebuah host dari serangan hacker, atau cracker. maka ketika dilakukan perintah ping tidak akan menunjukkan reply sehingga seakan-akan host dalam keadaan mati atau tidak terhubung ke internet atau tidak ada host dari IP address tersebut. sebuah paket PING yang sangat banyak menuju host akan menyebabkan pingflood atau Denial Of Service yang dapat menggangu kinerja sebuah host, atau dapat mengedownkan sebuah host. Hal inilah yang paling ditakuti oleh administrator jaringan komputer.
Ping yang banyak digunakan sebagai standar PING yaitu pada PING pada layer 3 yaitu layer network, ketika melakuan ping http://www.google.com artinya ping bekerja pada layer 3 network. pada MikroTik router OS terdapat ping pada layer 2 yaitu PING MAC address.

Program Ping Menggunakan Delphi

Desain Form

Letakkan control EditBox, Butoon, dan ListBox, ICMP seperti pada gambar dibawah ini.

desain form program ping

Pengaturan Properti

Form

  • Caption : Ping
  • Name: frmPing

Edit1

Button1

  • Name: btnPing
  • Caption: Ping

List

  • Name : lstReplies

ldlcmplist:

  • Name:  ICMP

Pengkodean:

unit Main;

interface

uses
 {$IFDEF Linux}
 QGraphics, QControls, QForms, QDialogs, QStdCtrls, QExtCtrls,
 {$ELSE}
 Windows, Messages, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
 {$ENDIF}
 SysUtils, Classes, IdIcmpClient, IdBaseComponent, IdComponent, IdRawBase, IdRawClient;

type
 TfrmPing = class(TForm)
 lstReplies: TListBox;
 ICMP: TIdIcmpClient;
 Panel1: TPanel;
 btnPing: TButton;
 edtHost: TEdit;
 procedure btnPingClick(Sender: TObject);
 procedure ICMPReply(ASender: TComponent; const ReplyStatus: TReplyStatus);
 private
 public
 end;

var
 frmPing: TfrmPing;

implementation
{$IFDEF Linux}{$R *.xfm}{$ELSE}{$R *.DFM}{$ENDIF}

procedure TfrmPing.btnPingClick(Sender: TObject);
var
 i: integer;
begin
 ICMP.OnReply := ICMPReply;
 btnPing.Enabled := False; try
 ICMP.Host := edtHost.Text;
 for i := 1 to 4 do begin
 ICMP.Ping;
 Application.ProcessMessages;
 //Sleep(1000);
 end;
 finally btnPing.Enabled := True; end;
end;

procedure TfrmPing.ICMPReply(ASender: TComponent; const ReplyStatus: TReplyStatus);
var
 sTime: string;
begin
 // TODO: check for error on ping reply (ReplyStatus.MsgType?)
 if (ReplyStatus.MsRoundTripTime = 0) then
 sTime := '<1'
 else
 sTime := '=';

 lstReplies.Items.Add(Format('%d bytes from %s: icmp_seq=%d ttl=%d time%s%d ms',
 [ReplyStatus.BytesReceived,
 ReplyStatus.FromIpAddress,
 ReplyStatus.SequenceId,
 ReplyStatus.TimeToLive,
 sTime,
 ReplyStatus.MsRoundTripTime]));
end;

end.
Iklan

16 thoughts on “Keamanan Sistem Informasi – Membuat Program “Ping” menggunakan Delphi

  1. mas !! klo qta nge-ping ke Mc D ntar repply-nya dapet paket hemat r paket -paket yg laen…? gmn nentuinnya…?
    misal qta ping mc-D Rp. 5000 trus repplynya ap ya..????

  2. mas, sekedar mau bertanya, bagaiaman kalu kita mempunyai satu form anggaplah form monitoring, dalam form monitoring ini kita bisa mengPING semua IP yg terkoneksi dan menyimpan nya kedalam database, contoh kita pke MS. Access untuk penyimpanan databasenya, dalam databade tersebut Semua IP yg terkoneksi bisa terUPDATE otomatis jika IP 192.168.xxx.xxx terkoneksi maka d table/databese berubah menjadi warna hijau jika tidak terkoneksi maka warnanya berunah menjadi merah. makasih bantuan sebelumnya mas.. salam dari saya Ammar dari makassar

  3. Ping balik: Membuat Program Sederhana Dengan Delphi 7

  4. Ping balik: Membuat Program Delphi Client Server

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s