Membuat Encrypt dan Decrypt Pada Text (.txt) Dalam Bahasa VB 6.0

Hello All... ^_^

Kali ini gue mao Share Ilmu VB 6.0 tentang pembuatan Encrypt dan Decrypt Pada Text nich..

Moga2 bermanfaat bagi tugas lu semua.

Gak usah bayak bertele-tele langsung aja nich Mas Bro...

1   1.     Buat tampilan Form1 Kaya dibawah ini yooo..

2. Selanjutnya Buat Settingan Objek Kaya ini Juga yach..

Nama Objek	Properti	Setting
CommonDialog1	Name	CommonDialog1
Label1	Caption	Model
ComboBox1	Name List	ComModel Encrypt Decrypt
Text1	Name	TxtDirFile
CommandBotton1	Name Caption	CmdDirFile .....
CommandBotton2	Name Caption	CmdProses Proses

3.     Tahap terakhir Mas Bro Langsung aja deh Copas alias Copy Paste Coding di bawah ini ke View         Code... Oke
Kalau udah langsung Tekan F5.. Moga2 Gak ada Debug-nya.. hehehe :-D

Dim Ret As Variant

Dim BookFiles(500) As Variant

Dim Rows As Long

Function Menulis(Enc As Boolean)

Dim LocTextFile As String

    

    LocTextFile = Me.TxtDirFile

    

    Open LocTextFile For Output As #1 'membuka File Text

    For i = 0 To Rows - 1

        If Enc = True Then

            Print #1, Encrypt(BookFiles(i))

        Else

            Print #1, Decrypt(BookFiles(i))

        End If

    Next i

    

        Close #1

End Function

Function Membaca()

Dim LocTextFile As String

Dim IntFileNum As Integer

Rows = 0

    LocTextFile = Me.TxtDirFile

    IntFileNum = FreeFile

    Open LocTextFile For Input As IntFileNum 'membuka File Text

    While Not EOF(IntFileNum)

        Line Input #IntFileNum, BookFiles(Rows)

        Rows = Rows + 1

    Wend

        Close #1

    

    Kill LocTextFile

End Function

Private Sub CmdDirFile_Click()

    Me.CommonDialog1.DialogTitle = "Choose File (.txt)"

    Me.CommonDialog1.Filter = "Text Documents (*.txt)|*.txt;|"

    Me.CommonDialog1.ShowOpen

    Me.TxtDirFile = Me.CommonDialog1.FileName

    

    

End Sub

Private Sub CmdProses_Click()

On Error GoTo Err_CheckError

Dim CekDirAda

    

    CekDirAda = Dir(Me.TxtDirFile) 'Mengecek File Yang Dipilih apakah ada atau tidak

    If CekDirAda = "" Then

        MsgBox "File Tidak Ditemukan!!!", vbExclamation

        Exit Sub

    End If

    MousePointer = 11  'Membuat Cursor menjadi Icon Loading

    Ret = Membaca

    If Me.ComModel = "Encrypt" Then

        Ret = Menulis(True)

    Else

        Ret = Menulis(False)

    End If

    

    MsgBox Me.ComModel & " Telah Selesai"

    

    

Err_ExitError:

    MousePointer = 0

    Exit Sub

Err_CheckError:

    MsgBox Error

    GoTo Err_ExitError

    Resume Next

End Sub

Public Function Encrypt(ByVal Teks As String) As String

Dim i As Integer

Dim Panjang_Teks As Integer

Dim Karakter As Variant

Dim Text_Baru As Variant

If Len(Teks) <= 0 Then Exit Function

Karakter = ""

Panjang_Teks = Len(Teks)

Text_Baru = ""

For i = 1 To Panjang_Teks

Karakter = Mid(Teks, i, 1)

Select Case Asc(Karakter)

    Case 65 To 90

    Karakter = Chr(Asc(Karakter) + 73)

    Case 97 To 122

    Karakter = Chr(Asc(Karakter) + 97)

    Case 48 To 57

    Karakter = Chr(Asc(Karakter) + 76)

    Case 32

    Karakter = Chr(32)

    End Select

    Text_Baru = Text_Baru + Karakter

Next

Encrypt = Text_Baru

End Function

Public Function Decrypt(ByVal Teks As String) As String

Dim i As Integer

Dim Panjang_Teks As Integer

Dim Karakter As Variant

Dim Text_Baru As Variant

Karakter = ""

Panjang_Teks = Len(Teks)

Text_Baru = ""

For i = 1 To Panjang_Teks

    Karakter = Mid(Teks, i, 1)

    Select Case Asc(Karakter)

        Case 138 To 163

        Karakter = Chr(Asc(Karakter) - 73)

        Case 194 To 219

        Karakter = Chr(Asc(Karakter) - 97)

        Case 124 To 133

        Karakter = Chr(Asc(Karakter) - 76)

        Case 32

        Karakter = Chr(32)

        End Select

        Text_Baru = Text_Baru + Karakter

Next

Decrypt = Text_Baru

End Function

Private Sub Form_Load()

    

 Me.ComModel = "Encrypt"

End Sub

 Cara Kerja:

   1. Buat Kata2 Apa saja dengan Notepad, Kemudian Save

   2. Run / Jalan kan Program ini Lalu pilih Encrypt pada Modelnya

   3. Klik  ..... Kemudian pilih file Notepad yang baru saja anda buat... kemudian klik Proses

   4. Lihat hasilnya,,,buka kembali file notepad yang anda buat.. Pasti Acak-acakan kan..hehehe

   5. Lakukan Proses yang sama untuk mengembalikannya.. dengan memilih Decrypt pada modelnya..

        SEMOGA BERHASIL ^_^   (Ditunggu Komentarnya Jika Ada Masah)