Monthly Archives: December 2013

Image

Merry Christmas


pohon
Merry Christmas to us all, may the Peace of God Be with us

Advertisements

Comodo Firewall


Firewall

Firewall

Firewall adalah perangkat yang mem-filter lalu lintas jaringan pada komputer. Firewall diterapkan dalam sebuah mesin terdedikasi, yang berjalan pada gateway antara jaringan lokal dan jaringan lainnya. Firewall umumnya juga digunakan untuk mengontrol akses terhadap siapa saja yang memiliki akses terhadap jaringan pribadi dari pihak luar. Saat ini, firewall mencegah pencurian data penting atau melakukan command secara illegal pada sistem komputer kita
firewall02
Sekarang ini firewall telah berevolusi menjadi sebuah kumpulan program yang bertujuan untuk mengamankan komputer secara total, dengan ditambahkannya beberapa fitur pengaman tambahan semacam perangkat proteksi terhadap virus, anti-spyware, anti-spam, dan lainnya. Bahkan beberapa produk firewall lainnya dilengkapi dengan fungsi pendeteksian gangguan keamanan jaringan (Intrusion Detection System). Contoh dari firewall jenis ini adalah Microsoft Windows Firewall (yang telah terintegrasi dalam sistem operasi Windows XP SP2,SP3, Win Vista dan Win Seven). Personal Firewall secara umum hanya memiliki dua fitur utama, yakni Packet Filter Firewall dan Stateful Firewall.
Fungsi Firewall : Continue reading

METODE VIGENERE PADA KRIPTOGRAFY


Hasil

Hasil

Adapun langkah-langkah untuk membuat program kriptografy dengan metode Vigenere adalah sebagai berikut
1. Desain form seperti gambar dibawah ini
1
2. Setelah selesai desain formnya ketikkan coding dibawah ini

Public Class Form1

Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
Chipertext.Text = Enkripsi(Plaintext.Text, Kunci.Text)
End Sub
Function Enkripsi(ByVal Teks As String, ByVal Kunci As String) As String
Dim j As Integer
Dim jum As Integer
Dim sKey As String
Dim nKata As Integer
Dim nKunci As Integer
Dim sKata As String
Dim sPlain As String
Dim nEnc As Integer
j = 0
jum = Len(Teks)
sPlain = ""
sKey = Kunci
sKata = Teks
For i = 1 To jum
If j = Len(sKey) Then
j = 1
Else
j = j + 1
End If
nKata = Asc(Mid(sKata, i, 1))

nKunci = Asc(Mid(sKey, j, 1))

nEnc = ((nKata + nKunci) Mod 256)

sPlain = sPlain & Chr((nEnc))
Next i
Enkripsi = sPlain
End Function
End Class

Anda juga dapat melihat rumahnya http://mesran.net
semoga bermanfaat buat kita semua 😀

Program Pengolahan Citra Dengan VB.Net


Grayscale

Grayscale

Pada artikel kali saya akan membuat program pengolahan citra RGB menjadi Grayscale. Adapun  program yang akan dirancang yaitu menggunakan Visual Basic.Net 2008.

Untuk memulai mengolah gambar atau disebut dengan citra, lakukan langkah dibawah ini:

1. Jalankan Aplikasi Visual Basic.Net 2008
2. Setelah Buat Nama program yang akan dibuat (contoh yang saya buat yaitu : Pengolahan Citra Dengan VB.NET)
3. Klik OK
untuk coding lengkapnya klikMengolah Format RGB Menjadi Grayscale Pada Citra
4. Silahkan design form program vb untuk mengolah citra seperti bentuk di bawah ini.
1
2
5. Untuk properti SizeMode : Normal pada PictureBox1 dan Picturebox2 diganti menjadi StretchImage, sehingga gambar akan menjadi full saat di buka / dijalankan
6. Setelah selesai meancang formnya ketikkah coding dibawah ini

Public Class Form1
Dim gambar As Bitmap
Dim Rt, vM, vH, vB As Double
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
Sub Bersih_Gambar()
'untuk gambar 1
PictureBox1.Image = Nothing
PictureBox1.BackColor = Color.Empty
PictureBox1.Invalidate()
'untuk gambar 2
PictureBox2.Image = Nothing
PictureBox2.BackColor = Color.Empty
PictureBox2.Invalidate()
'untuk gambar 2
PictureBox3.Image = Nothing
PictureBox3.BackColor = Color.Empty
PictureBox3.Invalidate()
'untuk gambar 3
PictureBox3.Image = Nothing
PictureBox3.BackColor = Color.Empty
PictureBox3.Invalidate()
'untuk gambar 4
PictureBox4.Image = Nothing
PictureBox4.BackColor = Color.Empty
PictureBox4.Invalidate()
'untuk gambar 5
PictureBox5.Image = Nothing
PictureBox5.BackColor = Color.Empty
PictureBox5.Invalidate()
'untuk gambar 6
PictureBox6.Image = Nothing
PictureBox6.BackColor = Color.Empty
PictureBox6.Invalidate()
End Sub
Sub open_gambar()
OpenFileDialog1.Filter = "BMP|*.bmp|JPG|*.Jpg"
OpenFileDialog1.ShowDialog()

If OpenFileDialog1.FileName = "" Then Exit Sub
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
gambar = New Bitmap(PictureBox1.Image)
Me.Text = "Citra : " & gambar.Height & " x " & gambar.Width & " pixel"
End Sub Continue reading

Faktorial Dan Segitiga Dengan C++


Faktorial

Faktorial


Dalam postingan saya kali ini, yaitu membuat segitiga dengan faktorial. Mungkin sahabat kesulitan gimana caranya dalam membuat segitiga yang saya maksud. Program ini saya dapatkan ketika proses belajar di Kampus. Untuk lebih jelasnya silahkan coba coding program berikut ini…..

#include <iostream.h>
#include <conio.h>

void main()
{
int i,j,n,k;
cout<<"Masukkan Bilangan : ";
cin>>n;
cout<<endl;
i=n;
while(i>=1)
{
j=1;
while(j<=i)
{
k=i;
k=k*j;
cout<<k<<" ";
j++;

}
i--;
cout<<endl;
}
}

Semoga bermanfaat buat sahabat semua. GOOD LUCK. 😀