Rabu, 20 Oktober 2010

MATERI PENGAMANAN JARINGAN PART II

Diposting oleh riezonema

ALGORITMA KRIPTOGRAFI KLASIK

PENDAHULUAN
- Algoritma kriptografi klasik berbasis karakter
- Termasuk ke dalam kriptorafi simetri
- Tiga alasan mempelajari algoritma klasik:
1. Memahami konsep dasar kriptografi.
2. Dasar algoritma kriptografi modern.
3. Memahami kelemahan sistem cipher.

- Algoritma kriptografi klasik:
1. Cipher Substitusi (Substitution Ciphers)
2.Cipher Transposisi (Transposition Ciphers)


dan untuk lebih lengkapnya temen2 Sekolah Tinggi Teknik Qomaruddin Jurusan Informatika Angkatan 2007 yang ingin materi pak erwin mata kuliyah pengamanan jaringan pertemuan ke II dapat kalian download dengan clik
disini

Jumat, 11 September 2009

Program SD.Record

Diposting oleh riezonema

Setelah menyelesaikan tugas praktikum pascal aku array, kini akhirnya aku bisa menampilkan tugas praktikum aku untuk program pascal record.

jika ada kesalahan atau kurang memuaskan buat kalian2 tolong kasih comentnya ya....

ini dia laporannya.


RECORD
Record adalah kumpulan elemen (field) yang memiliki tipe data yang sama ataupun berbeda. Field-field tersebut digabungkan menjadi satu record dengan tujuan memudahkan pencataan dan pembacaan data.


Contoh Program:
Uses Crt;
Type
Mahasiswa=Record
Nama:String[30];
NIM:String[10];
Alamat:String[50];
End;
Var
Mhs:Mahasiswa;
Begin
ClrScr;
With Mhs do
Begin
Write('Nama :'); readln(Nama);
Write('NIM :'); readln(NIM);
Write('Alamat :'); readln(Alamat);
Writeln;
End;
Writeln('Nama :',Mhs.Nama);
Writeln('NIM :',Mhs.NIM);
Writeln('Alamat :',Mhs.Alamat);
Readln;
End.

Hasil program:
Nama :Ah. Riziq Khildani
NIM :120711007
Alamat :Sidomulyo

Nama :Ah. Riziq Khildani
NIM :120711007
Alamat :Sidomulyo

TUGAS RECORD

LISTING PROGRAM:

Uses Crt;
Type
Telepon=Record
Nama:string[30];
Telephone:string[10];
Kota:string[50];
End;
DataTlp=Array[1..10]of Telepon;
Var
Tlp:DataTlp;
Jml,A:Byte;
Begin
ClrScr;
Write('Jumlah Telpon :'); Readln(Jml);
For A:=1 to Jml Do
With Tlp[A] Do
Begin
Write('Nama :'); Readln(Nama);
Write('Telephone :'); Readln(Telephone);
Write('Alamat :'); Readln(Alamat);
Writeln;
End;
For A:=1 to Jml Do
With Tlp[A] Do
Begin
Writeln('Nama :',Nama);
Writeln('Telephone :',Telephone);
Writeln('Alamat :',Alamat);
Readln;
End;
End.

HASIL PROGRAM :

Nama :Ahmad Dhani
Telephone :03177323117
Alamat :Sidayu

Nama :Ahmad Dhani
Telephone :03177323117
Alamat :Sidayu

Program Array

Diposting oleh riezonema

Akhirnya selesai juga laporan praktikum saya program pascal array,
ini dia programnya, semoga bermanfaat buat kalian semua.

ARRAY
Array adalah suatu tipe data yang merupakan gabungan dari beberapa variabel sejenis serta memiliki jumlah komponen yang tetap.Komponen atau elemen-elemen dari Array tersusun secara sequential dalam memori computer.

ARRAY SATU DIMENSI

Array satu dimensi merupakan kumpulan elemen yang memiliki tipe data yang sama dan tersusun dalam satu baris.
Bentuk umum:

Type
=Array[Index Array]of tipe data;

Contoh Program:

Uses Crt;
Type
Kalimat=Array[1..3]of String;
Var
X:Byte;
Kal:Kalimat;
Begin
Clrscr;
For X:=1 to 3 Do
Begin
Write('Tulis Kata ke',X:2,':');
Readln(Kal[X]);
End;
Writeln;
Writeln('Output:');
For X:=1 to 3 Do
Begin
Writeln('Tulis Kata Anda ke',X:2,':',Kal[X]);
Readln;
End;
End.

Hasil program:

Tulis Kata ke 1 :I'M
Tulis Kata ke 1 :CR7
Tulis Kata ke 1 :Cristian Ronaldo

Output:
Tulis Kata Anda ke 1 :I'M
Tulis Kata Anda ke 1 :CR7
Tulis Kata Anda ke 1 :Cristian Ronaldo

ARRAY DUA DIMENSI

Array dua dimensi merupakan kumpulan elemen bertipe sama dan terdiri dari beberapa baris dan kolom.
Bentuk umum:

Type
=Array[Index1,Index2]of tipe data;


Contoh Program:

Uses Crt;
Type
Baris=1..10;
Kolom=1..10;
Matrix=Array[1..10,1..10]of String;
Var
X,Y,A,B:Byte;
Mat:Matrix;
Begin
Clrscr;
Write('Baris Matrix :');
Readln(A);
Write('Kolom Matrix :');
Readln(B);
For X:=1 to A Do
Begin
For Y:=1 to B Do
Begin
Write('Matrix(',X,',',Y,'):');
Readln(Mat[X,Y]);
End;
End;
Writeln;
Writeln('Output:');
For X:=1 to A Do
Begin
For Y:=1 to B Do
Writeln(Mat[X,Y]);
Writeln;
End;
End.

Hasil program:

Baris Matrix :2
Kolom Matrix :2
Matrix(1,1):Nama,
Matrix(1,2):Chester Rozaq
Matrix(2,1):Jurusan,
Matrix(2,2):Teknik Informatika

Output:
Nama,
Chester Rozaq

Jurusan,
Teknik Informatilka

ARRAY TIGA DIMENSI

Array tiga dimensi dapat digambarkan sebagai benda ruang.
Bentuk umum:

Type
=Array[Index1,Index2,Index3]of tipe data;

Contoh Program:

Uses Crt;
Type
Tanggal=1..31;
Bulan=1..12;
Tahun=1..5;
Kalender=Array[Tanggal,Bulan,Tahun]of Byte;
Var
X,Y,Z,A,B,C:Byte;
Kal:Kalender;
Begin
Clrscr;
Write('Tanggal :');
Readln(A);
Write('Bulan :');
Readln(B);
Write('Tahun :');
Readln(C);
Writeln;
For X:=1 to A Do
Begin
For Y:=1 to B Do
Begin
For Z:=1 to C Do
Begin
Write('Kalender :');
Readln(Kal[X,Y,Z]);
End;
End;
End;
Writeln;
End.

Hasil program:

Tanggal :1
Bulan :2
Tahun :1

Kalender : 3 September 2008
Kalender : 11 Januari 2008























TUGAS ARRAY :

LISTING PROGRAM;

USES CRT;
TYPE
X=ARRAY[1..12]OF STRING[15];
CONST
BULAN:X=('JANUARI','FEBRUARI','MARET','APRIL','MEI','JUNI','JULI','AGUSTUS','SEPTEMBER','OKTOBER','NOVEMBER','DESEMBER');
VAR
A:WORD;
BEGIN
CLRSCR;
FOR A:=1 TO 12 DO
WRITELN('BULAN KE-',A:2,':',BULAN[A]);
END.

OUTPUT ;

BULAN KE 1 : JANUARI
BULAN KE 2 : FEBRUARI
BULAN KE 3 : MARET
BULAN KE 4 : APRIL
BULAN KE 5 : MEI
BULAN KE 6 : JUNI
BULAN KE 7 : JULI
BULAN KE 8 : AGUSTUS
BULAN KE 9 : SEPTEMBER
BULAN KE 10 : OKTOBER
BULAN KE 11 : NOVEMBER
BULAN KE 12 : DESEMBER


ARRAY SEBAGAI PARAMETER

• Array dapat digunakan sebagai parameter yang dikirimkan baik secara nilai (by value) atau secara acuan (by reference) ke procedure atau ke function.
• Procedure yang menggunakan parameter berupa array harus dideklarasikan di dalam judul procedure yang menyebutkan parameternya bertipe array.

Program Contoh_Pengiriman_Parameter_Array_Di_Procedure;

LISTING PROGRAM:

uses crt;
const
garis='------------------------------------------';
type
untai=array[1..10]of string[15];
bulat=array[1..10]of integer;
huruf=array[1..10]of char;
var
a,banyak:integer;
procedure proses(nama:untai;nilai:bulat);
var
ket:string[20];
abjad:char;
begin
Writeln(garis);
Writeln('nama nilai abjad keterngan');
Writeln(garis);
for a:=1 to banyak do
begin
if nilai[a]>90 then
begin
abjad:='A';
ket:='istimewa';
end;
if (nilai[a]<90) and (nilai[a]>70) then
begin
abjad:='B';
ket:='memuaskan';
end;
if (nilai[a]<70) and (nilai[a]>60) then
begin
abjad:='C';
ket:='Cukup';
end;
if (nilai[a]<60) and (nilai[a]>45) then
begin
abjad:='D';
ket:='kurang';
end;
if nilai[a]<45 then
begin
abjad:='E';
ket:='sangat kurang';
end;
Writeln(nama[a]:15,'',nilai[a]:4,'',abjad,'',ket:15);
end;
writeln(garis);
end;
procedure MasukData;
var
nama:untai;
nilai:bulat;
begin
write('banyak data='); readln(banyak);
for a:=1 to banyak do
begin
clrscr;
writeln('data ke',a);
writeln('nama='); readln(nama[a]);
writeln(‘abjad=’); readln(abjad[a]);
writeln('nilai='); readln(nilai[a]);
end;
proses(nama,nilai);
end;
begin
masukdata;
readln;
end.
Hasil program:

banyak data :1

data ke 1:
nama :Cristiano Ronaldo
nilai :89

- - - - - - - - - - - - - - - - - - - - -
nama nilai abjad keterangan
- - - - - - - - - - - - - - - - - - - - -
Cristiano 89 A Memuaskan
- - - - - - - - - - - - - - - - - - - - -

Rabu, 26 Agustus 2009

Laporan Penginstalan Virtual Box

Diposting oleh riezonema

Setelah berhari-hari berjuang, akhirnya selesai juga laporan praktikum aku tentang penginstalan Virtual Box.

ya perlu konsentrasi dan perjuangan yang ekstra buat menyelesaikan laporan ini, (ciye...kayak mau apa ja..), ya maklumlah da gangguan sedikit.

sebenarnya dalam penginstalan virtual box sangat mudah tapi yang menjadi lama biasanya pada komputer sendiri, seperti eror atau listrik mati dan gak nyala-nyala, itu yang bikin laporan gak selesai-selesai. he..he..he..he..^_^

Seperti kita ketahui, virtualb Box adalah sejenis software agar windows/ linux bisa berada di dalam SO pokoknya [ Windows/Linux ] cara Bodohnya ya install misal linux ke dalam windows tanpa dual boot. kelebihan dari VB ini adalah jika sistem yang kita install kedalam VB ini kita utak atik hingga error, ke- Errorannya tidak akan berpengaruh pada SO utamanya. jika Error tinggal install lagi.

Untuk menginstal tanya ja ma master google, setelah dapat instal deh...


ini dia laporannya kalo mau download ya clik disini


Selamat mencoba n good luck ya....^_^

Konsep Dasar Sistem

Diposting oleh riezonema

1. Konsep dasar Sistem
Pengertian dan definisi sistem pada berbagai bidang berbeda-beda, tetapi meskipun istilah sistem yang digunakan bervariasi, semua sistem pada bidang-bidang tersebut mempunyai beberapa persyaratan umum, yaitu sistem harus mempunyai elemen, lingkungan, interaksi antar elemen, interaksi antara elemen dengan lingkungannya, dan yang terpenting adalah sistem harus mempunyai tujuan yang akan dicapai.
Berdasarkan persyaratan ini, sistem dapat didefinisikan sebagai seperangkat elemen yang digabungkan satu dengan lainnya untuk suatu tujuan bersama.

Kumpulan elemen terdiri dari :
o manusia
o mesin
o prosedur
o dokumen
o data
o elemen lain yang terorganisir dari elemen-elemen tersebut

Elemen sistem disamping berhubungan satu sama lain, juga berhubungan dengan lingkungannya untuk mencapai tujuan yang telah ditentukan sebelumnya.

Terdapat beberapa definisi sistem yaitu :
a. Gordon B. Davis ( 1984 ) :
“ Sebuah sistem terdiri dari bagian-bagian yang saling berkaitan yang beroperasi bersama untuk mencapai beberapa sasaran atau maksud “.

b. Raymond Mcleod (2001) :
“ Sistem adalah himpunan dari unsur-unsur yang saling berkaitan sehingga membentuk suatu kesatuan yang utuh dan terpadu “.


2. Konsep Dasar Informasi
Secara umum informasi dapat didefinisikan sebagai data yang diolah menjadi bentuk yang lebih berarti bagi yang menerimanya.

Menurut Raymond Mcleod, :
“ Informasi adalah data yang telah diolah menjadi bentuk yang memiliki arti bagi si penerima dan bermanfaat bagi pengambilan keputusan saat ini atau mendatang ”

Secara umum informasi dapat didefinisikan sebagai hasil dari pengolahan data dalam suatu bentuk yang lebih berguna dan lebih berarti bagi penerimanya yang menggambarkan suatu kejadian-kejadian yang nyata yang digunakan untuk pengambilan keputusan.

Sumber dari informasi adalah data.

Data adalah kenyataan yang menggambarkan suatu kejadian-kejadian dan kesatuan nyata.

Data merupakan bentuk yang masih mentah, belum dapat bercerita banyak sehingga perlu diolah lebih lanjut. Data diolah melalui suatu metode untuk menghasilkan informasi. Data dapat berbentuk simbol-simbol semacam huruf, angka, bentuk suara, sinyak, gambar, dsb.

Adapun fungsi-fungsi informasi adalah sebagai berikut :
1. Untuk meningkatkan pengetahuan bagi si pemakai
2. Untuk mengurangi ketidakpastian dalam proses pengambilan keputusan pemakai
3. Menggambarkan keadaan yang sebenarnya dari sesuatu hal.

Informasi yang berkualitas harus :
a. akurat,
b. tepat pada waktunya
c. relevan.


3. Konsep Dasar Sistem Informasi
Sistem informasi dalam suatu organisasi dapat dikatakan sebagai suatu sistem yang menyediakan informasi bagi semua tingkatan dalam organisasi tersebut kapan saja diperlukan. Sistem ini menyimpan, mengambil, mengubah, mengolah dan mengkomunikasikan informasi yang diterima dengan menggunakan sistem informasi atau peralatan sistem lainnya

Menurut Mc leod :
“Sistem Informasi merupakan sistem yang mempunyai kemampuan untuk mengumpulkan informasi dari semua sumber dan menggunakan berbagai media untuk menampilkan informasi “

Sistem informasi dapat didefinisikan sebagai suatu sistem di dalam suatu organisasi yang merupakan kombinasi dari orang-orang, fasilitas, teknologi, media prosedur-prosedur dan pengendalian yang ditujukan untuk mendapatkan jalur komunikasi penting,memproses tipe transaksi rutin tertentu, memberi sinyal kepada manajemen dan yang lainnya terhadap kejadian-kejadian internal dan eksternal yang penting dan menyediakan suatu dasar informasi untuk pengambilan keputusan.

Informasi dalam suatu lingkungan sistem informasi harus mempunyai persyaratan umum sebagai berikut :
o harus diketahui oleh penerima sebagai referensi yang tepat
o harus sesuai dengan kebutuhan yang ada dalam proses pembuatan / pengambilan keputusan
o harus mempunyai nilai surprise, yaitu hal yang sudah diketahui hendaknya jangan
diberikan
o harus dapat menuntun pemakai untuk membuat keputusan. Suatu keputusan tidak selalu
menuntut adanya tindakan.

Sistem informasi harus mempunyai beberapa sifat seperti :
o Pemrosesan informasi yang efektif.
o Manajemen informasi yang efektif.
o Keluwesan.
o Kepuasan pemakai.

Komunikasi Data

Diposting oleh riezonema

Pada komunikasi data kali ini, saya aku membahas tentang Jenis-jenis rangkaian komputer dan yang berhubungan dengan tersebut, ada beberapa jenis rangkaian komputer yang digunakan, yaitu:

1. Rangkaian Kawasan Setempat
atau bisa juga disebut dengan Local Area Network (LAN)
Rangkaian jenis ini yang biasanya digunakan di syarikat-syarikat, rangkaian jenis ini selalu menghubungkan komputer dalam kawasan yang berdekatan.

2. Rangkaian Kawasan Metropolitan
atau bisa juga disebut denganMetropolitan Area Network (MAN)
Rangkaian ini adalah gabungan beberapa rangkaian jenis kawasan setempat atau LAN,

3. Rangkaian Kawasan Luas
atau bisa juga disebut dengan Wide Area Network (WAN)
Rangkaian ini gabungan antara rangkaian LAN dan MAN

Nah...bingung kan lho, makannya biar kamu gak bingung dan untuk bisa baca lebih lengkap, kamu-kamu semua bisa download disini


soalnya kalo aku ketik terus bisa-bisa keriting tangan aku. he..he..he. :)

Topologi Jaringan

Diposting oleh riezonema

Topologi jaringan komputer adalah bentuk perancangan baik secara fisik maupun secara logik yang digunakan untuk membangun sebuah jaringan komputer.

ada macam-macam topologi jaringan yang mempunyai kelebihan serta kekurangan sendiri-sendiri, cuma tinggal kita mau makai yang bagaimana.....

Macam-macam Topologi:
1. Topologi Ring
2. Topologi Bus
3. Topologi Star
4. Topologi Mesh

dan masih ada lagi topologi yang lainnya, untuk lebih lengkap silahkan download disini