Cara Membuat Folder Yang Tidak Bisa Dihapus

Pagi ini saya akan Share Informasi yaitu Cara Membuat Folder Yang Tidak Bisa Dihapus. Langsung saja Mari Kita Simak dan Coba.

Cara Membuat Folder Yang Tidak Bisa Dihapus - Apakah anda pernah menemukan folder yang tidak bisa dihapus? Jika pernah biasanya Folder tsb terkena Virus atau dibuat oleh sang pemilik jika ada file yang penting didalam Folder tsb. Pagi ini saya akan memberikan cara untuk membuatnya. 

Berikut adalah Cara Membuat Folder Yang Tidak Bisa Dihapus :

• Buka Command Prompt [ Start > Run > CMD ]
• Ketikkan perintah mkdir C:\autorun.inf
• Buat Folder con mkdir \\.\C:\autorun.inf\con  [ Folder ini tidak bisa dihapus jadi beware ]
• Lalu buat lagi Folder aux mkdir \\.\C:\autorun.inf\con\aux
• Lalu buat lagi folder nul mkdir \\.\C:\autorun.inf\con\aux\nul

Folder tersebut hanya sebagian dari folder yang tidak bisa dihapus oleh sistem windows, dikarenakan nama tersebut adalah system variable windows. Selain itu ada juga NUL, COM1, COM2, COM3, LPT1, LPT2, LPT3, COM1 hingga COM9, dan LPT1 hingga LPT9.

Maka dari itu membuat folder dengan nama tersebut dengan cara manual atau tidak menggunakan cara diatas tidak bisa dihapus makanya ditaruh di dalam autorun.inf supaya tidak ditimpa lagi dengan autorun.inf virus.

Read More

Program Kriptografi Vigenere Menggunakan Vb.Net 2008

Pagi Sobat Blogger, kali Ini saya akan Membahas Tentang penyadian menggunakan Kripthografi Vigenere.Sistem sandi ini pertama kali dipopulerkan oleh Blaise de Vigenère seorang diplomat Perancis pada abad 15, sehingga disebutlah metode ini dengan sistem sandi Vigenère
Sistem sandi Vigenère adalah sistem sandi substitusi multi-alfabet, yaitu sistem sandi Caesar tetapi dengan pergeseran alfabet yang berlainan disesuaikan dengan kata kuncinya.
Yang dimaksud sistem sandi substitusi adalah menyandi dengan cara mengganti huruf-huruf pesan/teks aslinya dengan huruf-huruf sandi. Sistem sandi Caesar dan Viginère termasuk metode sistem sandi ini. Bahkan sistem sandi substitusi merupakan sistem sandi yang dipakai pula dalam kriptografi modern, dengan variasi-variasi yang terus berkembang
Nah dah tau kan Artinya penyandian ini, Sekarang saya akan mencoba membuat programnya menggunakan  menggunakan VB.Net 2008

Tampilan Awal:

Koding nya:
 Public Class Form3

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.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


Tampilan Akhirnya:

 

Read More

Tutorial Program Perkreditan Mobil Di Vb Net.2008

Tips Dan trick Pembuatan

Tampilan Awal:

Kode program:
 Public Class Form1
    Sub RancamgTable()
        LV.Columns.Add("Kode", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Tahun", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Kondisi", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Uang Muka", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Komisi Sales", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Kredit", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Lama Kredit", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Angusran Perbulan", 80, HorizontalAlignment.Center)
        LV.GridLines = True
        LV.FullRowSelect = True
        LV.View = View.Details
    End Sub
    Sub IsiTabel()
        Dim lst As New ListViewItem
        lst.Text = Kode.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Tahun.Text)
        lst.SubItems.Add(Kondisi.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(JB.Text)
        lst.SubItems.Add(TH.Text)
        lst.SubItems.Add(UM.Text)
        lst.SubItems.Add(KS.Text)
        lst.SubItems.Add(TK.Text)
        lst.SubItems.Add(LK.Text)
        lst.SubItems.Add(AP.Text)
        LV.Items.Add(lst)

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode.Items.Add("MB1")
        Kode.Items.Add("MB2")
        Kode.Items.Add("MB3")
        Kode.Items.Add("MB4")
        Tahun.Items.Add("2012")
        Tahun.Items.Add("2013")
        Tahun.Items.Add("2014")
        Kondisi.Items.Add("Baru")
        Kondisi.Items.Add("Lama")
        For i = 1 To 10
            JB.Items.Add(i)

        Next (i)
        For i = 1 To 60
            LK.Items.Add(i)

        Next (i)
        Call RancamgTable()

    End Sub

  
    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

        If Kode.Text = "MB1" Then
            Nama.Text = "Avanza Veloz"
        ElseIf Kode.Text = "MB2" Then
            Nama.Text = "Avanza G"
        ElseIf Kode.Text = "MB3" Then
            Nama.Text = "Zenia G"
        ElseIf Kode.Text = "MB4" Then
            Nama.Text = "Yaris"
        Else
            Nama.Text = ""


        End If

    End Sub

  

  
    Private Sub Kondisi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kondisi.SelectedIndexChanged

        If Nama.Text = "Avanza Veloz" And Tahun.Text = "2012" And Kondisi.Text = "Baru" Then
            Harga.Text = "17500000"
        ElseIf Nama.Text = "Avanza Veloz" And Tahun.Text = "2012" And Kondisi.Text = "Lama" Then
            Harga.Text = "12000000"
        ElseIf Nama.Text = "Avanza Veloz" And Tahun.Text = "2013" And Kondisi.Text = "Baru" Then
            Harga.Text = "19500000"
        ElseIf Nama.Text = "Avanza Veloz" And Tahun.Text = "2013" And Kondisi.Text = "Lama" Then
            Harga.Text = "13000000"
        ElseIf Nama.Text = "Avanza Veloz" And Tahun.Text = "2014" And Kondisi.Text = "Baru" Then
            Harga.Text = "2080000"
        ElseIf Nama.Text = "Avanza Veloz" And Tahun.Text = "2014" And Kondisi.Text = "Lama" Then
            Harga.Text = "1700000"
        ElseIf Nama.Text = "Avanza G" And Tahun.Text = "2012" And Kondisi.Text = "Baru" Then
            Harga.Text = "1900000"
        ElseIf Nama.Text = "Avanza G" And Tahun.Text = "2012" And Kondisi.Text = "Lama" Then
            Harga.Text = "1500000"
        ElseIf Nama.Text = "Avanza G" And Tahun.Text = "2013" And Kondisi.Text = "Baru" Then
            Harga.Text = "2100000"
        ElseIf Nama.Text = "Avanza G" And Tahun.Text = "2013" And Kondisi.Text = "Lama" Then
            Harga.Text = "1500000"
        ElseIf Nama.Text = "Avanza G" And Tahun.Text = "2014" And Kondisi.Text = "Baru" Then
            Harga.Text = "2300000"
        ElseIf Nama.Text = "Avanza G" And Tahun.Text = "2014" And Kondisi.Text = "Lama" Then
            Harga.Text = "1900000"
        ElseIf Nama.Text = "Zenia" And Tahun.Text = "2012" And Kondisi.Text = "Baru" Then
            Harga.Text = "21000000"
        ElseIf Nama.Text = "Zenia" And Tahun.Text = "2012" And Kondisi.Text = "Lama" Then
            Harga.Text = "17000000"
        ElseIf Nama.Text = "Zenia" And Tahun.Text = "2013" And Kondisi.Text = "Baru" Then
            Harga.Text = "2300000"
        ElseIf Nama.Text = "Zenia" And Tahun.Text = "2013" And Kondisi.Text = "Lama" Then
            Harga.Text = "1950000"
        ElseIf Nama.Text = "Zenia" And Tahun.Text = "2014" And Kondisi.Text = "Baru" Then
            Harga.Text = "25000000"
        ElseIf Nama.Text = "Zenia" And Tahun.Text = "2014" And Kondisi.Text = "Lama" Then
            Harga.Text = "21000000"
        ElseIf Nama.Text = "Yaris" And Tahun.Text = "2012" And Kondisi.Text = "Baru" Then
            Harga.Text = "1100000"
        ElseIf Nama.Text = "Yaris" And Tahun.Text = "2012" And Kondisi.Text = "Lama" Then
            Harga.Text = "750000"
        ElseIf Nama.Text = "Yaris" And Tahun.Text = "2013" And Kondisi.Text = "Baru" Then
            Harga.Text = "1500000"
        ElseIf Nama.Text = "Yaris" And Tahun.Text = "2013" And Kondisi.Text = "Lama" Then
            Harga.Text = "900000"
        ElseIf Nama.Text = "Yaris" And Tahun.Text = "2014" And Kondisi.Text = "Baru" Then
            Harga.Text = "1800000"
        ElseIf Nama.Text = "Yaris" And Tahun.Text = "2014" And Kondisi.Text = "Lama" Then
            Harga.Text = "1250000"
        End If

    End Sub

  

    Private Sub JB_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JB.KeyPress


    End Sub



    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        TH.Text = JB.Text * Harga.Text
        UM.Text = 0.3 * TH.Text
        KS.Text = 0.02 * JB.Text * UM.Text
        TK.Text = Val(TH.Text) - Val(UM.Text)
        AP.Text = (((TK.Text) * (0.03 * LK.Text)) + Val(TK.Text)) / LK.Text


    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Call IsiTabel()
    End Sub
End Class

Hasil Program

Read More