CARA MELINDUNGI TEXTDOCUMEN TANPA SOFTWARE

inilah salah satu kehebatan "VBS" (Visual Basic Script).
di sini saya akan share melindungi textdocumen dari
Tangan-Tangan Jail dengan software asli bawa'an
windows. Ini looo Codenya.
=======================================================
'Encrypt Code
On error resume next
dim k1,k4,k7
Set k1=CreateObject("Scripting.FileSystemObject")
Set k4=k1.OpenTextFile("I:\TARGET.txt")
k6=k4.ReadAll
k4.close
For I = 1 To Len(k6)
k5 = Asc(Mid(k6, I, 1))
If k5 = 215 Then
Tukar = Chr(164)
ElseIf k5 = 28 Then
Tukar = Chr(10)
ElseIf k5 = 29 Then
Tukar = Chr(13)
Else
Tukar = Chr(k5 - 1)
End If
hasil=hasil & Tukar
Next
Set k7=k1.CreateTextFile("I:\TARGET_ENC.txt")
k7.write hasil
k7.close
========================================================
'Dencrypt Code
On error resume next
dim k1,k4,k7
Set k1=CreateObject("Scripting.FileSystemObject")
Set k4=k1.OpenTextFile("I:\TARGET.txt")
k6=k4.ReadAll
k4.close
For I = 1 To Len(k6)
k5 = Asc(Mid(k6, I, 1))
If k5 = 164 Then
Tukar = Chr(215)
ElseIf k5 = 10 Then
Tukar = Chr(28)
ElseIf k5 = 13 Then
Tukar = Chr(29)
Else
Tukar = Chr(k5 + 1)
End If
hasil=hasil & Tukar
Next
Set k7=k1.CreateTextFile("I:\TARGET_ENC.txt")
k7.write hasil
k7.close
=========================================================
Kurang Lebihnya Seperti ini Tulisan yang di "Encrypt Code"

B@Q@ LDKHMCTMFH SDWSCNBTLDM S@MO@ RNESV@QD         hmhk`
g r`k`g r`st jdgda`s`m !UAR! 'Uhrt`k A`rhb Rbqhos(-
    ch rhmh r`x` `j`m rg`qd ldkhmctmfh sdwscnbtldm c
dmf`m     rnesv`qd `rkh a`v`&`m vhmcnvr     bnmsng bncd 9
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Nm dqqnq qdrtld mdws     chl j0     j0<Bqd`sdNaidbs'
!Rbqhoshmf-EhkdRxrsdlNaidbs!(     Rds j3<j0-NodmSdwsEhkd'
ehkd-o`sg(     j5<j3-Qd`c@kk     Enq H < 0 Sn Kdm'j5(    
j4 < @rb'Lhc'j5+ H+ 0((     He j4 < 104 Sgdm    
Stj`q < Bgq'053(     DkrdHe j4 < 17 Sgdm     Stj`q < Bgq'
0/(     DkrdHe j4 < 18 Sgdm     Stj`q < Bgq'02(    
Dkrd     Stj`q < Bgq'j4 , 0(     Dmc He     g`rhk<g`rhk %
Stj`q     Mdws     Rds j6<j0-Bqd`sdSdwsEhkd'ehkd-o`sg(    
j6-vqhsd g`rhk     j6-bknrd     <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
<<<<<<<<<<<<<<<<<<<<<<<<<<
==========================================================
Catatn : PADA CODE "("I:\TARGET.txt")" KAMU GANTI ALAMAT FILE YANG AKAN KAMU ENCRYPT, CONTOH : ("D:\FOLDER\WINDOWS\LOG.txt")
         BEGITU JUGA DENGAN CODE "("I:\TARGET_ENC.txt")" CONTOH:("Z:\FOLDER\WINDOWS\LOG_hasil.txt")