Studi Kasus Kejahatan Defacing

defacing

Menyoal Kasus Defacing Situs Presiden SBY
Jakarta
- Serangan terhadap domain pribadi Presiden SBY oleh seoranghacker muda yang ditangkap dengan tuduhan melakukan defacing (penggantian halaman muka situs) terhadap domain www.presidensby.info sejatinya bisa dibilang cuma sebuah aksi tanpa perencanaan yang hanya bertujuan ‘mencari eksistensi jati diri’ di dunia cyber.
Hal ini terlihat dari pengakuan pelaku yang diberitakan oleh berbagai media. Akan tetapi di sisi lain, kasus ini membuka mata banyak pihak untuk melihat lebih lanjut tentang keberadaan situs yang diduga dengan mudah di-deface oleh sang pelaku.
Kembali pada kasus aksi deface yang dilakukan oleh pemuda berinisial ‘W’ asal jember ini yang dalam dugaan saya memanfaatkan celah pada pengelolaan domain yang dimiliki oleh www.presidensby.info, yang informasinya bisa diambil dari berbagai situs whois domain di internet dan didapati bahwa domain tersebut dikelola oleh pihak ketiga di luar dari pengelola situs tersebut.
Bahasa teknis DNS Poisoning yang biasa digunakan dalam tehnik ini, sejatinya sudah bukan barang baru. Tetapi kembali lagi bahwa celah keamanan pada sistem ini di-handle oleh pihak pengelola domain yang ‘disewa’ oleh pembuat situs.
Pihak Kepolisian yang cepat dalam bergerak juga di sisi lain wajib mendapat penghargaan dengan segala SDM yang sudah mampu melakukan tracking dengan cepat.
Tetapi tetap perlu dikritisi untuk lebih jeli melihat karakter dunia cyber yang tentunya mempunyai karakter khusus. Karena mereka pastinya tidak bisa menyatakan arogansi dalam kasus ini karena implikasinya akan membangkitkan keusilan lain yang dapat berakibat fatal bagi berbagai pihak yang dirugikan.
Jika melihat pernyataan dari berbagai pihak baik dari konsultan IT hingga para pakar yang mengatakan bahwa situs tersebut tidak di-deface ataupun di-hack, tentunya para pihak yang berwajib harus bisa secara jelas membuktikan bahwa memang situs tersebut memang mempunyai log atau bukti yang jelas, bahwa niat pelaku memang ingin melakukan hacking terhadap situs tersebut atau sekedar aksi ‘force brute’ untuk sistem di third party sebagaimana disebutkan di atas.

Analisa
Menurut penulis, apa yang telah dilakukan oleh Wildan sebenarnya sungguh sangat tidak bermanfaat. Defacing yang dilakukannya kepada situs  presidensby.info hanyalah mencari eksitensi atau kepopuleran di indonesia. Wildan memanfaatkan celah kemanan pada domain situs SBY agar ia bisa merubah tampilan situs tersebut.
Saran
Saran penulis, seharusnya Wildan dapat menggunakan keahliannya untuk hal yang positif, contohnya sebagai penguji keamanan situs web dan sebagainya. Bukannya malah memanfaatkan keahliannya tersebut hanya untuk popularitas semata.
Kesimpulan
Defacing merupakan bagian dari kegiatan hacking yang bertujuan untuk merubah tampilan suatu situs web tanpa melalui source codenya. Tekniknya adalah dengan membaca source codenya lalu menggantu image dan editing html tag. Sperti contoh kasus diatas yang dilakukan oleh Wildan dalam mendeface situs resmi presiden SBY.
Sumber: http://needr005.files.wordpress.com








Cara membuat Histogram RGB dengan Visual Basic 6.0

Pada kesempatan ini saya akan membuat program histogram dengan visual basic 6.0 baiklah langsung ke langkah pembuatan
berikut caranya:

1. buatlah project Baru pada visual basic 6.0

               project baru
2 Buatlah form baru isi dengan component sebagai berikut:
    a.DriveList Box
    b.FileListbox
     c.Picture box
     d.Label1
                 form 1  

3.Kemudian biarkan nama component sesuai default berikutnya tinggal  menambahkan coding nya berikut
    codingnya:
      Coding drivelist dan filelistbox
     a.Double klik pada Drive1, ketikan code berikut ini !
         Dir1.Path = Drive1.Drive
     b.Double klik pada Dir1, ketikan code berikut ini !
         File1.Path = Dir1.Path
 
      Selanjutnya kita akan membuat sebuah Sub Preocedure yang nantinya akan kita panggil.
      Ketikan code berikut ini pada form code !
                   Private Sub aden()
                   Dim hm(256) As Integer, hh(256) As Integer, hb(256) As Integer
                   Dim ht2 As Long
                   Dim xp As Integer, i As Integer, j As Integer
                   Dim m As Integer, h As Integer, b As Integer
                   Dim warna As Long, x As Long, a As Long
                   Picture2.Cls
                   Picture3.Cls
                   Picture4.Cls
                   Me.MousePointer = vbHourglass
                   For i = 1 To 256
                            hm(i) = 0
                            hh(i)  = 0
                            hb(i) = 0
                   Next
                   For i = 1 To Picture1.Width Step 15
                             For j = 1 To Picture1.Height Step 15
                                         warna = Picture1.Point(i, j)
                                         m = warna And RGB(255, 0, 0)
                                         h = Int((warna And RGB(0, 255, 0)) / 256)
                                         b = Int(Int((warna And RGB(0, 0, 255)) / 256) / 256)
                                         If  m > 255 Then m = 255
                                         If  h > 255 Then h = 255
                                         If b > 255 Then b = 255
                                         hm(m) = hm(m) + 1
                                         hh(h) = hh(h) + 1
                                         hb(b) = hb(b) + 1
                             Next j
                   Next i
                   ht2 = Picture2.Height
                   For i = 1 To 256
                              xp = 15 * (i – 1) + 1
                              Picture2.Line (xp, ht2 – hm(i))-(xp, ht2), RGB(255, 0, 0)
                              Picture3.Line (xp, ht2 – hh(i))-(xp, ht2), RGB(0, 255, 0)
                              Picture4.Line (xp, ht2 – hb(i))-(xp, ht2), RGB(0, 0, 255)
                    Next i
                    Me.MousePointer = vbNormal
                    End Sub
 
               Double klik pada File1, ketikan kode berikut ini !
               Picture1.Picture = LoadPicture(File1.Path & “\” & File1.FileName)
               Call aden
 
     4. Selesai tinggal di jalankan
          Berikut Program Run nya 
          Demikian tutorial ini di buat semoga bermanfaat

                          rgb2















































Contoh Makalah Analisa Perancangan Sistem Informasi Simpan Pinjam di Koperasi






Pada kesempatan ini saya akan posting contoh makalah analisa sistem informasi simpan pinjam pada koperasi yang dimana di tujukan untuk syarat kelulusan semester 4 jurusan manajemen informatika
makalah yang saya posting sudah memenuhi syarat EYD (ejaan yang benar) dimana makalah ini sudah tiga kali revisi dan hasilnya saya posting baiklah jangan lama-lama berikut link download

                                                                

                                                       
                                           http://www.solidfiles.com/d/82e600a4f0/Koperasi_surya_jaya.rar




note: untuk mendapatkan password nya
         follow via BBM 7C7747DE
        Email . budionobsi@gmail.com
        

Cara Membuat Kalkulator Sederhana Dengan Visual Basic 6.0

Mungkin Aplikasi Ini sudah ada saat penginstalan di komputer karena sudah satu paket dengan sistem operasi yang di install tapi kita bisa mengkreasikan tampilan  kalkulator yang kita buat agar lebih menarik baiklah kita langsung langkah cara membuatnya berikut addlah caranya:


1. Buatlah project baru

 

2. Buatlah Form Baru terdiri dari componen Label1, Label2, Label3, Label4, Label5, Textbox1,        Textbox2, Textbox3, Combobox, Commond button1, Commond button2, Commond button3

 















3. Ganti nama componen yang di buat tadi
 componen Label1 = kalkulator sederhana
 Label2 = nilai1
 Label3 = nilai2
 Label4 = operator
 Label5 = hasil
 Textbox1= nilai1
 Textbox2 = nilai2
 Textbox3 = hasil
 Combobox = combo1
 Commond button1 = Hasil
 Commond button2 = Reset
 Commond button3 = keluar

4.Kemudian  masukan kode berikut di setiap masing-masing commond button



Private Sub Hasil_Click()
If Combo1.Text = "+" Then
hasil.Text = nilai1.Text + Val(nilai2.Text)
Else
If Combo1.Text = "x" Then
hasil.Text = nilai1.Text * Val(nilai2.Text)
Else
If Combo1.Text = "-" Then
hasil.Text = nilai1.Text - Val(nilai2.Text)
Else
If Combo1.Text = "/" Then
hasil.Text = nilai1.Text / Val(nilai2.Text)
End If
End If
End If
End If
End Sub




Private Sub Reset_Click()
nilai1.Text = ""
nilai2.Text = ""
hasil.Text = ""
End Sub



Private Sub Keluar_Click()
End
End Sub




Private Sub Form_Load()
Combo1.AddItem ("+")
Combo1.AddItem ("-")
Combo1.AddItem ("x")
Combo1.AddItem ("/")
End Sub
 
Selesai
Demikian Semoga Bermanfaat 




Hasil Tampilan Run Kalkulator  Sederhana