• Enter Slide 1 Title Here

    This is slide 1 description. You can replace this with your own words. Blogger template by PremiumBloggerTemplates.com...

  • Enter Slide 2 Title Here

    This is slide 2 description. You can replace this with your own words. Blogger template by PremiumBloggerTemplates.com...

  • Enter Slide 3 Title Here

    This is slide 3 description. You can replace this with your own words. Blogger template by PremiumBloggerTemplates.com...

Jumat, 28 Juni 2013

Juni 28, 2013 Posted by Dayat Java No comments

Dibawah ini adalah daftar distribusi linux yang sering digunakan dalam hal untuk penetrasing, hacking maupun digunakan untuk cracking sebuah sistem komputer dan website.

  1. Backtarck
    Backtrack Linux
    BackTrack adalah salah satu distro linux yang merupakan turunan dari slackware yang mana merupakan merger dari whax dan auditor security collection. Backtrack dua dirilis pada tanggal 6 maret 2007 yang memasukkan lebih dari 300 tool security sedangkan versi beta 3 dari backtrack dirilis pada tanggal 14 desember 2007 yang pada rilis ketiga ini lebih difokuskan untuk support hardware. Sedangkan versi backtrack 3 dirilis pada tanggal 19 juni 2008 pada backtrack versi 3 ini memasukkan saint dan maltego sedangkan nessus tidak dimasukkan serta tetap memakai kernel versi 2.6.21.5. pada BackTrack 4 Final sekarang ini menawarkan kernel linux terbaru yaitu kernel 2.6.30.4. Sekaligus pada Rilis BackTrack 4, dapat dikatakan berpindah basis yakni dari dahulu yang Slackware menjadi berbasis Ubuntu.

    Official Backtrack Linux : Visit Now!


  2. Gnatrack
    GnackTrack adalah Live (dan installable) Linux distribution yang di rancang untuk Penetration Testing dan berbasis pada Ubuntu. Walaupun tampaknya seperti BackTrack, tapi sebetulnya tidak: GnackTrack lebih berbasis pada GNOME!
    distribusi ini merupakan alternative buat penggemar desktop environment GNOME karena lebih simple dan ringan.
    Official Gnacktrack Linux : Visi Now!
  3. X-Code Linux
    X-code Linux adalah Distro Linux yang didesain untuk melakukan hacking, disini penulis memberikan tutorial hacking menggunakan X-code Linux. X-code Linux adalah Distro Linux yang menggunakan turunan Slackware, Distro Linux X-code di buat oleh Jerry Maheswara pada tahun 2008. X-Code X-Code Linux merupakan distro linux yang berasal dari Yogya Family Code Community atau yang lebih dikenal dengan Yogyafree.


    sumber :http://blog.taryo.net/
Juni 28, 2013 Posted by Dayat Java No comments


Perkembangan sistem operasi Linux di Indonesia, terutama sejak milenium baru banyak melahirkan distro-distro
berbahasa Indonesia, atau setidaknya distro Linux 'buatan' komunitas IT Indonesia. Untuk diagram sejarah
perkembangan asal-usul distro GNU/Linux Indonesia, bisa dilihat di situsnya Mas Made. Berikut ini daftar distro Linux
Indonesia yang sempat dirilis (beberapa link mungkin down):


- Trustix Merdeka, merupakan sebuah distribusi Linux untuk desktop dengan mengambil basis Trustix Secure Linux.
Dengan penekanan pada security, paket-paket aplikasi yang disertakan di dalam Trustix Merdeka merupakan paket
pilihan, dengan auditing yang cukup ketat untuk setiap sumber yang disertakan. Distribusi Made in Indonesia ini
bertujuan lebih dari sekedar distro Linux saja. Ditargetkan menjadi jalur komunikasi masyarakat Linux dan IT. Bahasa
Indonesia yang digunakan dapat dikatakan sebagai faktor pemersatu. Trustix Merdeka terhenti pengembangannya sejak
Maret 2003.
Juni 28, 2013 Posted by Dayat Java No comments

 Kamus Nusantara
Bahasa Jawa, sunda, banjar dan minang, itulah bahasa yang saat ini ada dalam database Kamus Nusantara, sebuah aplikasi android karya developer Indonesia.
Sesuai namanya Kamus Nusantara berfungsi sebagai penerjemah untuk perangkat android, dan berisi bahasa daerah nusantara. Apikasi ini bisa anda gunakan untuk mempelajari bahasa daerah melalui aplikasi android, dengan ukuran file sekitar 500 KB, tentunya sangat ringan dan tidak membutuhkan waktu yang lama untuk mengunduh.
Saat ini baru 4 bahasa yaitu Jawa, sunda, banjar dan minang, serta bahasa lain akan menyusul sesuai informasi yang kai dapat dari Google Play.
Jika kamu inin mempelajari berbagai bahasa daerah di Indonesia, mungkin 1 aplikasi inii cukup daripada menginstall beberapa aplikasi untuk masing-masing bahasa.

untuk mendownload nya silahkan ke http://www.aplikasindo.com/aplikasi/kamus-nusantara/
Juni 28, 2013 Posted by Dayat Java No comments

Gambar GarudaOS Artikel Maros- Salam Jiwa Salewangang !! Kali ini admin akan sharing sebuah OS yang diklaim sebagai OS buatan anak negeri terbaik hingga postingan ini ditulis. GARUDA OPERATING SYSTEM(GarudaOS) namanya. Inilah momen kebangkitan Teknologi Informasi Indonesia setelah beberapa tahun yang lalu tidak terlihat batang hidungnya. Sebagaimana yang telah kita ketahui bahwa OS ini bersifat Open Source (Terbuka untuk semua pengguna). Selain itu OS ini juga didukung dengan tampilan desktop yang lebih menawan dan tentunya tidak jadul. Dalam OS ini juga disisipkan 60 aneka bahasa, terutama Bahasa Indonesia. 
Kini  Anda tidak perlu lagi membeli licensi untuk sebuah OS, karena kualitas dari GarudaOS  dianggap masih diatas rata-rata. One more, GarudaOS juga telah disisipkan puluhan aplikasi pendukung guna memudahkan user dalam mengoperasikannya. Jika Anda ingin mengetahui lebih detail dari OS yang satu ini, Anda dapat mengunjungi http://www.garudaone.com/

Berikut untuk screenshoot-nya.



Screenshot saat penginstaln garudaos


Tampilan desktop garusaos


Juni 28, 2013 Posted by Dayat Java No comments

Baby Write Number


Terisnpirasi dari banyaknya anak balita yang gemar bermain ponsel dan komputer tablet. Mico Wendy, Direktur PT Konsep Dot Net, menciptakan aplikasi pendidikan Baby Write Number. Melalui aplikasi Baby Write Number ini, jemari anak balita tinggal mengikuti titik-titik berurutan yang tampil di layar. Titik-titik itu kemudian akan membentuk sebuah angka.

Aplikasi ini memudahkan anak balita mengenal angka. "Selain gampang, anak-anak senang karena mendapat cara belajar baru," tutur Nora Sarumpaet, guru TK Penuai, Bandung, yang menerapkan aplikasi ini pada proses interaksi di kelas.

Software yang tergolong sederhana itu ternyata berhasil menyabet juara pertama di kompetisi aplikasi tingkat dunia yang digelar Nokia, Create 4 Millions, untuk kategori Access to Knowledge. Mico, ayah dua anak ini berhak memboyong hadiah 50 ribu euro atau sekitar Rp 615 juta. Selain Baby Write Number, ada lima seri aplikasi serupa, yakni Baby Draw Shape, Baby Play Card Animal and Alphabet, serta Baby Scratch Number and Alphabet.
Juni 28, 2013 Posted by Dayat Java No comments
Hmmmmn
kini hari indah bagai matahari yang baru muncul
seakan ku terlena dibuatnya
apa yang beda dengan hari-hari ku kini

hmmm
mungkin karena bunga yang telah mekar
tau karena lautan yang semakin luas
tau mungkin karena matahari yang begitu indah

hmmmm
bunga yang begitu indah
kuselalu ingin memandangnya
ku selalu ingin menyiramnya
dengan kasih sayang

hmmmm
tapi apalah daya
tangan tak sampai
hati tak mampu

hmmmmmn
mungkin inilah hidupku
yang selalu ingin ku perbaiki
dan ingin yang terbaik

hmmmmmmmmmmn!!!!!
Juni 28, 2013 Posted by Dayat Java No comments
1. Menu awal



Desain menu awal program.
 

Gambar(1) Menu
 
Berikut ini adalah listing programnya :
Public Class Form1

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        End
    End Sub

    Private Sub CaesarChToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarChToolStripMenuItem.Click
        caesar_chiper.Show()
    End Sub

    Private Sub VernamChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VernamChiperToolStripMenuItem.Click
        vernam_chiper.Show()
    End Sub

    Private Sub VigenereChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenereChiperToolStripMenuItem.Click
        vigenere_chiper.Show()
    End Sub

    Private Sub DesChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesChiperToolStripMenuItem.Click
        des_chiper.Show()
    End Sub
End Class



2. Kriptografi Caesar Chiper

Desain program

 
        Gambar(2)Caesar Cipher
Berikut ini adalah listing programnya :
Public Class caesar_chiper

    Private Sub caesar_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plaintext.Text = ""
        chipertext.Text = ""
    End Sub

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click
        Dim jumlah As Double = Len(plaintext.Text)
        Dim x As String
        Dim xkalimat As String = ""
        Dim i As Double
        Dim bil As Integer
        For i = 1 To jumlah
            x = Mid(plaintext.Text, i, 1)
            bil = Asc(x) + 3
            x = Chr(bil)
            xkalimat = xkalimat + x
        Next i
        chipertext.Text = xkalimat
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        plaintext.Text = ""
        chipertext.Text = ""
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        End
    End Sub

    Private Sub btnkeluar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub
End Class

3.Kriptografi Vernam Cipher

Desain awal program :
 


                        Gambar(3)Vernam Cipher

Berikut ini adalah listing programnnya :
Public Class vernam_chiper
    Private Sub vernam_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plaintext.Text = ""
        kunci.Text = ""
        chipertext.Text = ""
    End Sub

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click
        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
        sKata = plaintext.Text
        jum = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jum
            If j = Len(sKey) Then
                j = 1
            Else
                j = j + 1
            End If
            nKata = Asc(Mid(sKata, i, 1)) - 65

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

            nEnc = ((nKata + nKunci) Mod 26)

            sPlain = sPlain & Chr((nEnc) + 65)
        Next i
        chipertext.Text = sPlain

    End Sub

    Private Sub plaintext_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plaintext.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then
            e.Handled = True
        End If

    End Sub

    Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        plaintext.Text = ""
        kunci.Text = ""
        chipertext.Text = ""
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub
End Class
A4.  Kriptografi Vigenere Cipher

  Desain awal :





                   Gambar(4)Vigenere Cipher

Berikut ini syntaxnya :
Public Class vigenere_chiper
    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.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

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        plaintext.Text = ""
        kunci.Text = ""
        chipertext.Text = ""
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub vigenere_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

5. Kriptografi Autokey chiper 
 desain awal 

 




                                                         Gambar(5)Autokey Cipher

    Private Sub autokey_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plaintext.Text = ""
        kunci.Text = ""
        chipertext.Text = ""
    End Sub
    Private Function btn_AutokeyEncipher(ByVal strPlaintext As String, ByRef strKey As String) As String
        Dim i As Long
        Dim j As Long
        Dim c1 As Integer
        Dim c2 As Integer
        Dim strPlaintext2 As String
        Dim strKey2 As String
        Dim strCiphertext As String
        Dim strCiphertext2 As String
        Dim diffKeyLen As Integer
        Dim pAlphabet As Integer
        Dim cAlphabet As Integer
        Dim nShift As Integer
        '1. Hilangkan semua karakter yang bukan alfabet dari strPlaintext
        ' dan simpan sebagai strPlaintext2
        strPlaintext2 = ""
        For i = 1 To strPlaintext.Length
            c1 = Asc(Mid(strPlaintext, i, 1))
            If (c1 >= 65 And c1 <= 90) Then
                strPlaintext2 = strPlaintext2 & Chr(c1)
            End If
        Next i
        '2. Hilangkan semua karakter yang bukan alfabet dari strKey
        ' dan simpan sebagai strKey2
        strKey2 = ""
        For i = 1 To strKey.Length

            c1 = Asc(Mid(strKey, i, 1))
            If (c1 >= 65 And c1 <= 90) Then
                strKey2 = strKey2 & Chr(c1)
            End If
        Next i
        '3. Susun kunci baru strKey2 berdasarkan kunci awal strKey kemudian
        ' ditambah plaintext
        'perbedaan antara panjang plaintext dan kunci
        diffKeyLen = strPlaintext2.Length - strKey2.Length
        For i = 1 To diffKeyLen
            'c1 = Asc(Mid(strPlaintext2, i, 1))
            strKey2 = strKey2 & Mid(strPlaintext2, i, 1)
        Next i
        '4. Geser masing-masing huruf pada plaintext
        ' dengan huruf yang terkait pada key
        strCiphertext = ""
        For i = 1 To strPlaintext2.Length
            c1 = Asc(Mid$(strPlaintext2, i, 1))
            nShift = Asc(Mid$(strKey2, i, 1)) - 65
            If ((c1 >= 65) And (c1 <= 90)) Then
                pAlphabet = c1 - 65 ' get the alphabet sequence
                cAlphabet = (pAlphabet + nShift) Mod 26 ' shifted alphabet
                c1 = cAlphabet + 65 ' get character in 65 ... 90
            End If
            strCiphertext = strCiphertext & Chr(c1)
        Next i
        '5. Susun strCiphertext sesuai dengan urutan strPlaintext
        strCiphertext2 = ""
        strKey = ""
        j = 1
        For i = 1 To strPlaintext.Length
            c1 = Asc(Mid$(strPlaintext, i, 1))
            If ((c1 >= 65) And (c1 <= 90)) Then
                strCiphertext2 = strCiphertext2 & Mid(strCiphertext, j, 1)
                strKey = strKey & Mid(strKey2, j, 1)
                j = j + 1
            Else
                strCiphertext2 = strCiphertext2 & Chr(c1)
                strKey = strKey & " "
            End If
        Next i
        Return strCiphertext2
    End Function

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        plaintext.Text = ""
        kunci.Text = ""
        chipertext.Text = ""
    End Sub

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Encipher.Click
      chipertext.Text = AutokeyEncipher(plaintext.Text, kunci.Text)
    End Sub
End Class

6. kritografi Des chiper 

desain program :


                          Gambar (6) Des chiper 


berikut listing programnya :


Public Class Des_chiper

    Private Sub Des_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plain.Text = ""
        chip.Text = ""
    End Sub

    Private Sub deskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deskripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(chip.Text)
            x = Mid(chip.Text, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        plain.Text = xkalimat
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        plain.Text = ""
        chip.Text = ""
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()

    End Sub
End Class