This is default featured slide 1 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 2 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 3 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 5 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

Jumat, 29 November 2013

Titanium

Asus2 (relative to capo): x02200
(You can also play around with the other A minors and slip in Asus2 at times.)


Intro: C, G, Am, Am (2x)

Verse 1:

C               G
  You shout it out
    Am             
but I can't hear a word you say
C               G              Am   
  I'm talking loud not saying much
C            G       Am                
  I'm criticized but all your bullets ricochet
C               G              Am   
  You shoot me down, but I get up


Chorus:

F              G               Em
  I'm bulletproof, nothing to lose
     Am           F
fire away, fire away
      G                 Em
ricochet, you take your aim
      Am         F
fire away, fire away
              G                Em
you shoot me down but I won't fall
       Am - Asus2 - F
I am tita - ni  -  um
              G                Em
you shoot me down but I won't fall
       Am - Asus2 - F
I am tita - ni  -  um


Instrumental: F, G, Em, Am (2x)


Verse 2:

C         G
  Cut me down
         Am                 
but it's you who'll have further to fall
C         G             Am    
  Ghost town, haunted love
C             G     Am                    
  Raise your voice, sticks and stones may break my bones
C              G              Am    
  I'm talking loud not saying much


Chorus:

F              G               Em
  I'm bulletproof, nothing to lose
     Am           F
fire away, fire away
      G                 Em
ricochet, you take your aim
      Am         F
fire away, fire away
              G                Em
you shoot me down but I won't fall
       Am - Asus2 - F
I am tita - ni  -  um
              G                Em
you shoot me down but I won't fall
       Am - Asus2 - F
I am tita - ni  -  um

G, Em
       Am - Asus2 - F
I am tita - ni  -  um

G, Em
       Am - Asus2 - F
I am tita - ni  -  um

Bridge:

F          G            Em
  Stone-hard, machine gun
              Am
Firing at the ones who run
F          G                 Am
  stone hard, as bulletproof glass


Chorus:

F               G                Em
  You shoot me down but I won't fall
       Am - Asus2 - F
I am tita - ni  -  um
                G                Em
  You shoot me down but I won't fall
       Am - Asus2 - F
I am tita - ni  -  um
                G                Em
  You shoot me down but I won't fall
       Am - Asus2 - F
I am tita - ni  -  um
                G                Em
  You shoot me down but I won't fall
       Am - Asus2 - F
I am tita - ni  -  um

F, G, Em, Am

F, G, Em,
       Am - Asus2 - F  (end on that F)
I am tita - ni  -  um

Kamis, 31 Oktober 2013

SK DIRJEN SERTIFIKASI GURU 2013

Bagi bapak ibu guru yang ingin mengetahui SK Tunjangan Profesi (sertifikasi )  2013 silakan klik tautan di bawah ini.
Ketik NUPTK dengan pasword tahun,bulan,tgl lahir (cth : 19690125) 
http://116.66.201.163:8000/index.php




Kadang sulit dibuka, jadi butuh kesabaran.....
>>>bukanya tengah malam, sebelum subuh>>>>hehehe...

Kemdikbud Jamin Tunjangan Guru Cair 9 April

Kementerian Pendidikan dan Kebudayaan (Kemdikbud) menjamin tunjangan guru segera cair pada 9–16 April mendatang. Mendikbud Mohammad Nuh mengatakan, tunjangan guru yang akan dibayar pada tanggal itu adalah tunjangan profesi bagi guru non-PNS dan tunjangan bagi guru nonsertifikasi.

Kemdikbud juga akan membayar tunjangan khusus bagi guru yang bekerja di daerah terpencil, terluar, dan terdepan (3T). ”Tunjangan yang segera cair ini juga akan dibayar kepada guru yang sedang mengambil gelar strata 1 (S-1) dan diploma 4 (D-4),” ujarnya di Jakarta.

Menteri menjelaskan, tunjangan ini dapat dicairkan karena termasuk dalam anggaran yang dikendalikan penuh oleh Kemdikbud. Oleh karena itu, selain dana tunjangan guru, maka dana bantuan operasional sekolah (BOS) pun akan dicairkan pada tanggal tersebut. ”Maksimal minggu depan itu batas waktu semua tunjangan guru sudah mulai dicairkan,” jelasnya.

Menurut dia, tunjangan guru itu dibayar per tiga bulan. Namun, pemerintah baru dapat membayarkan April ini karena anggaran tersebut masih dibidangi Kementerian Keuangan. Namun, Kemdikbud pun melobi Kemenkeu agar tunjangan guru, BOS, BO PTN, dana UN, dan bantuan siswa miskin (BSM) diturunkan segera. Pasalnya, kelimanya adalah program utama yang dananya harus segera dimanfaatkan oleh masyarakat.

Dia menjelaskan, mulai tahun ini Rp7,6 triliun tunjangan guru sepenuhnya disalurkan melalui pemerintah pusat. Sebelumnya, pada tahun lalu, sebanyak Rp5,7 triliun tunjangan guru disalurkan melalui dekonsentrasi. Anggaran tersebut dialokasikan bagi sebanyak 629.044 guru. Jumlahnya meningkat dibandingkan dengan tahun lalu sebanyak 610.685 guru.

Dari anggaran tersebut, sebagian anggaran digunakan untuk tunjangan fungsional guru non-PNS daerah atau guru swasta serta yang belum mendapatkan tunjangan profesi karena belum sertifikasi. ”Alasan ditariknya anggaran fungsional ke pusat supaya efektif. Tahun lalu penyalurannya sering terlambat. Oleh karena itu, (sekarang) ke pusat supaya lebih efektif,” terang mantan menkominfo ini.

Ketua Umum PB PGRI Sulistiyo mengatakan, selain telat pembayaran tunjangan guru banyak yang tidak tepat sasaran, kurang jumlah dan bahkan ada pemotongan tunjangan profesi di berbagai daerah.

Seperti halnya di Pekalongan (Jawa Tengah), jelasnya, pada 2012 lalu Pekalongan mendapat alokasi dana tunjangan Rp46 miliar, namun saat ini menurun menjadi Rp6,79 miliar saja. Padahal dengan tunjangan senilai Rp46 miliar saja, Pemkot Pekalongan hanya mampu membayarkan tunjangan profesi untuk 11 bulan.

Koran Sindo

Minggu, 15 September 2013

Cara Mudah Belajar Pemrograman Web


Salam hangat sahabat. Lama tak membuka blog. Memberikan rasa rindu untuk berbagi. Belajar dan saling berbagi adalah hal yang indah. Kita saling memberikan semangat untuk mempelajari sesuatu. Singkat cerita ketika berkumpul dengan teman dan melihat sebuah web yang interaktif aku merasa takjub dengan interface web tersebut. Dengan penasaran kita saling berunding untuk membahas bagaimana untuk bisa membuat sebuah web yang interaktif. Google adalah pelampiasan kita untuk mengulas tentang web. Ternyata banyak ditemukan berbagai macam bahasa pemrograman yang harus dikuasi. Terus bagaimana untuk bisa mempelajari semua itu ? Aku punya sebuah web refrensi yang cukup membantu untuk belajar bahasa pemrogaman web. Didalam web tersebut dilengkapi sistem compiler online untuk berlatih. Tentunya sangat menyenangkan untuk belajar ,silahkan berkunjung http://www.w3schools.com/. 

Semoga bermanfaat yah :D

Rabu, 03 Juli 2013

Panduan belajar membuat web dengan PHP dan MySQL





Artikel ini bertema “Panduan belajar membuat web dengan PHP dan MySQL”, karena saya ingin membuat rangkuman secara menyeluruh tentang bagaimana cara membuat sebuah web dinamis menggunakan bahasa pemrograman PHP dan database MySQL.
Dalam artikel ini saya menyediakan modul-modul dalam bentuk file PDF dan file source web dengan tujuan  agar teman-teman mudah untuk membaca, mempelajari, dan mengembangkan modul dan web yang saya buat. Dalam kursus online ini, kita akan mempelajari materi yang sudah saya bagi menjadi beberapa modul.
modul pertama (pembuatan aplikasi biodata) berisi materi :
  • Pengenalan PHP dan MySQL
  • Software yang digunakan belajar PHP
  • Langkah untuk memulai belajar PHP
  • Langkah pembuatan database di PhpMyadmin
  • Langkah pembuatan modul program
Modul kedua(pembuatan aplikasi login) yang berisi materi :
  • Pembuatan tabel admin
  • Enkripsi md5
  • Membuat form dalam file form_admin.php
  • Pembuatan Session dalam file login.php
  • Pengecekan Session dalam file home.php
  • Pembuatan Session_destroy (logout) dalam file logout.php
Modul ketiga(edit template web) yang berisi materi :
  • Cara mencari dan download file template di internet
  • Cara edit file template web
  • Cara menggabungkan aplikasi web kedalam sebuah template
  • Cara penanganan URL dalam template web
Modul keempat(upload web ke hosting) yang berisi materi :
  • Tahap persiapan di komputer local
  • Membuat domain gratis di situs co.cc
  • Membuat hosting gratis di situs byethost.com
  • Membuat database di hosting byethost.com
  • Mengimport database ke hosting byethost.com
  • Mengupload file-file web ke hosting byethost.com
  • Mengubah file koneksi database di hosting byethost.com
  • Menggabungkan domain co.cc dengan hosting byethost.com
Download Modul Kursus
  1. Modul Pertama
  2. Modul Kedua
  3. Modul Ketiga
  4. Modul Keempat
Cara download :
  • Tunggulah selama 5 detik untuk melanjutkan langkah selanjutnya, untuk melihat waktunya coba anda lihat di pojok kanan atas
  • Jika sudah sampai 5 detik, maka akan muncul tulisan "SKIP AD" atau "LEWATI" di pojok kanan atas. Klik tulisan tersebut


Setelah anda mengklik tulisan tersebut, maka anda akan dibawa menuju link download.

Bocah Jenius Jadi Ahli IT Di Microsoft

Jenius! Anak Umur 9 Tahun Jadi Ahli IT di Microsoft

Berkat kejeniusannya, bocah bernama Pranav Kalyan, berhasil menyandang predikat 'Microsoft Certified Technology Specialist'. Dan diusianya yang masih 9 tahun, Pranav kini tercatat menjadi salah satu ahli IT termuda di perusahaan raksasa teknologi, Microsoft.

Saat ini Pranav memang tidak sendirian menjadi karyawan termuda Microsoft. Karena bocah jenius lainnya bernama Shafay Thobani asal Pakistan, telah memegang rekor sebagai Microsoft Certified Technology Specialist termuda saat usianya baru 8 tahun

Seperti dikutip telsetNewws dari Timesofindia, Rabu (16/1/), Pranav saat ini masih tercatat sebagai pelajar kelas 4 di Willow Elementary School, California, Amerika Serikat (AS).

Dia berhasil menyelesaikan ujian ASP.NET Framework 3.5 pada 12 Januari silam. Ujian ini adalah menjadi syarat berhak atau tidaknya seseorang menyandang predikat 'Microsoft Certified Technology Specialist'.

"Saat masih balita, Pranav lebih tertarik pada komputer ketimbang mainan," kata Kalyan Kumar, ayah dari Pranav yang lahir di Madurai namun telah menetap di California dan bekerja di Bank of America.

Ia mengungkapkan, Pranav kecil mampu memecahkan masalah dalam hitungan diferensial dan hitungan integral. "Efisiensinya dalam matematika membantunya menulis program," ujar sang Ayah.

Pranav menyebutkan bahwa ia memang bercita-cita menjadi seorang ilmuwan. "Saya telah diperkenalkan ke dunia komputer saat saya masih berusia 2 tahun," ucap Pranav.

Ia mengaku sangat menyukai bidang matematika dan tertantang untuk dapat memecahkan masalah rumit. Kemampuannya dalam bidang matematika telah membantu dia untuk menulis program komputer yang memerlukan keterampilan logika.

Saat berusia 6 tahun, Pranav mulai menulis program HTML sederhana. Ia menyebutkan ada dua orang yang telah menjadi sumber inspirasinya untuk menjadi seorang ahli IT. Yang pertama adalah Manivannan, seorang insinyur di SAGE, AS, dia yang pertama kali memperkenalkan dunia komputer saat usianya baru genap 3 tahun.

Lalu yang kedua adalah guru matematikanya, Nadhiya, yang telah mendorong dan memotivasi dirinya untuk mendapatkan 'gelar' Microsoft Certified Technology Specialist.

Bocah yang menyukai olahraga catur ini mengakui untuk menjadi Microsoft Certified Technology Specialist tidaklah gampang. Ia mempersiapkan dirinya selama 18 bulan. "Saya menghabiskan setidaknya delapan jam sehari di pemrograman komputer selama liburan," terangnya.

Sementara itu, Computer Professional, K. Rajesh mengatakan, tidak semua orang bisa mendapatkan sertifikasi Microsoft. Sertifikasi tersebut hanya bisa didapat bagi mereka yang berhasil menyelesaikan pertanyaan rumit

"Untuk seorang profesional komputer ASP.NET tidaklah begitu sulit. Namun, untuk seorang anak usia sembilan tahun, ini menandakan upaya sang anak memiliki kemampuan logis dan penalaran," tukas Rajesh.[hbs]

Minggu, 30 Juni 2013

Tugas Kriptografi


Public Class Formkriptografi
    Private Sub CaesarChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarChiperToolStripMenuItem.Click
        Me.Hide()
        Caesar_chiper.Show()
    End Sub
    Private Sub GronsfeldChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfeldChiperToolStripMenuItem.Click
        Me.Hide()
        Gronsfeld.Show()
    End Sub
    Private Sub VernamChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VernamChiperToolStripMenuItem.Click
        Me.Hide()
        Vernam_chiper.Show()
    End Sub
    Private Sub VigenereChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenereChiperToolStripMenuItem.Click
        Me.Hide()
        Vigenere_chiper.Show()
    End Sub
    Private Sub DesChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesChiperToolStripMenuItem.Click
        Me.Hide()
        DES_chiper.Show()
    End Sub
    Private Sub RC4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RC4ToolStripMenuItem.Click
        Me.Hide()
        RC_4.Show()
    End Sub
    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        End
    End Sub
End Class
 
Public Class Caesar_chiper
    Private Sub Caesar_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Plainteks.Text = ""
        Chiperteks.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(Plainteks.Text)
        Dim x As String
        Dim xkalimat As String = ""
        Dim bil As Integer
        For i = 1 To jumlah
            x = Mid(Plainteks.Text, i, 1)
            bil = Asc(x) + 3
            x = Chr(bil)
            xkalimat = xkalimat + x
        Next i
        Chiperteks.Text = xkalimat
    End Sub
    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        Chiperteks.Text = ""
        Plainteks.Text = ""
    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
    Private Sub Btnkembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkembali.Click
        Me.Hide()
        Formkriptografi.Show()
    End Sub
End Class

Public Class Gronsfeld
Private Sub Gronsfeld_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Plainteks.Text = ""
        Chiperteks.Text = ""
    End Sub
    Private Sub Plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plainteks.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 Plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Plainteks.TextChanged
    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 Kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kunci.TextChanged
    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 String
        Dim sKata As String
        Dim sPlain As String = ""
        Dim nEnc As Integer
        J = 0
        sKata = Plainteks.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))
        Next i
        Chiperteks.Text = sPlain
    End Sub
    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        Plainteks.Text = ""
        Chiperteks.Text = ""
        Kunci.Text = ""
    End Sub
    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
    Private Sub btnkembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkembali.Click
        Me.Hide()
        Formkriptografi.Show()
End Class
Public Class Vernam_chiper
    Private Sub Vernam_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Plainteks.Text = ""
        Chiperteks.Text = ""
    End Sub
    Private Sub Plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plainteks.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 Plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Plainteks.TextChanged
    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 kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged
    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 = Plainteks.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)) + 0
            nKunci = Asc(Mid(sKey, J, 1)) + 0
            nEnc = ((nKata + nKunci) Mod 256)
            sPlain = sPlain & Chr((nEnc))
        Next i
        Chiperteks.Text = sPlain
    End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Plainteks.Text = ""
        kunci.Text = ""
        Chiperteks.Text = ""
    End Sub
    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
    Private Sub btnkembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkembali.Click
        Me.Hide()
        Formkriptografi.Show()
    End Sub
End Class


Public Class Vigenere_chiper
    Private Sub Vigenere_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Plainteks.Text = ""
        Chiperteks.Text = ""
    End Sub
    Private Sub Plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plainteks.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 Plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Plainteks.TextChanged
    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 kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged
    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 = Plainteks.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)) + 0
            nKunci = Asc(Mid(sKey, J, 1)) + 0
            nEnc = ((nKata + nKunci) Mod 256)
            sPlain = sPlain & Chr((nEnc))
        Next i
        Chiperteks.Text = sPlain
    End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Plainteks.Text = ""
        kunci.Text = ""
        Chiperteks.Text = ""
    End Sub
    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
    Private Sub btnkembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkembali.Click
        Me.Hide()
        Formkriptografi.Show()
    End Sub
End Class

Public Class DES_chiper
    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click
        Dim kunci As String, kunciChar As String, katabaru As String
        Dim Pos As Integer
        Dim i As Integer, Side1 As String, Side2 As String
        Dim nEnc As Integer
        Pos = 1
        For i = 1 To Len(plainteks.Text)
            plainteks.Text = Mid(plainteks.Text, i, 1)
            Kunci.Text = Mid(Kunci.Text, Pos, 1)
            chiperteks.Text = chiperteks.Text & Chr(Asc(Of Char)() Xor Asc(Kunci.Text))
            If Pos = Len(Kunci) Then Pos = 0
            Pos = Pos + 1
        Next i
        If Len(chiperteks.Text) Mod 2 = 0 Then
            Side1 = StrReverse(Left(chiperteks.Text, (Len(chiperteks.Text) / 2)))
            Side2 = StrReverse(Right(chiperteks.Text, (Len(chiperteks.Text) / 2)))
            chiperteks.Text = Side1 & Side2
        End If
        nEnc = chiperteks.Text
    End Sub
    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        plainteks.Text = ""
        chiperteks.Text = ""
    End Sub
    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
    Private Sub Btnkembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkembali.Click
        Me.Hide()
        Formkriptografi.Show()
    End Sub
End Class
 


Public Class RC_4
    Private Sub RC_4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        chiperteks.Text = ""
        Kunci.Text = ""
    End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        plainteks.Text = ""
        chiperteks.Text = ""
        Kunci.Text = ""
    End Sub
    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
    Private Sub Btnkembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkembali.Click
        Me.Hide()
        Formkriptografi.Show()
    End Sub
End Class