Membuat program enkripsi sederhana vbscript

Tujuan utama dari menengkripsi script adalah  untuk menyembunyikan keaslian data dalam bentuk code -code script yang tidak mudah di mengerti oleh nalar, dan di butuhkan keterampilan khsusus dan analisa yang tepat untuk memecahkan code - code yang telah terenkripsi tersebut, metode enkripsi bukan barang baru lagi didunia ini, metode ini telah ada sejak zaman peperangan pada masa peradaban kuno, di gunakan oleh raja - raja untuk mengirim surat dalam bentuk code -code yang nanti nya hanya  pihak dari kerajaan yang mengerti apa maksud dan tujuan dari surat tersebut, untuk zaman sekarang ini metode enkripsi, atau bagian dari sistem kriptografi ini di gunakan oleh semua pihak, termasuk seni dalam ilmu kompueter, banyak pakar - pakar komputer mengguakan metode enkripsi ini, untuk mempublikasikan temuan nya, tampa harus takut di duplikat oleh tangan -tangan  yang tidak bertanggung jawab 

untuk lebih memahaminya tentang enkripsi coba kita ambil sebuah kertas lalu kita tulisakan

cfmbkbs!wct

dalam pikiran kita pasti akan bertanya - tanya apa sih maksud dari kata - kata  diatas,  untuk menjawab pertanyaan itu, coba kita  engkripsi dengan menggunakan metode engkripsi  pengurangan satu huruf  kebelakang nya, atau mengganti huruf dengan huruf sebelumnya, misal nya huruf c, sebelum huruf c adalah huruf b. jadi huruf c kita ganti dengan huruf b,

b

untuk huruf kedua, huruf  f, sebelum huruf f adalah huruf e, coba kita ganti huruf f dengan huruf e

be

untuk huruf ketiga dan seterus nya juga kita lakukan hal yang sama dan hasil enkripsi itu bisa di lihat di bawah ini
c  - b
f -  e
m - l
b - a
k - j
b - a
s - r

! - spasi
w - v
c - b
t - s 

jadi kata diatas adalah belajar vbs, dan sekarang cara diatas kita terapakan dalam code -code script sederhana berekstensi *vbs,
langsung partek, seperti biasa buka notepad, lalu ketikan scrip di bawah ini atau di copy paste aja

msgbox(enkripsi("obnb!tbzb!zpqj!cfcfdli"))
msgbox(enkripsi("tbmbn!lfobm!zb//"))
    Function enkripsi(s)
        For i = 1 To Len(s)
            t = Mid(s, i, 1)
            t = Chr(Asc(t) - 1)
            coded = coded + t
        Next
        enkripsi = coded
    End Function

save as dengan sembarang nama tapi harus ada ekstensi *.vbs nya(misal : enkripsi.vbs)
jalan kan dan lihat hasilnya,,