BIKIN PESAN RAHASIA PAKE EXCEL ( SANDI DAN PENGAWASANDI )
SebagE pendahoeloean mari kita simak penjelasan Bung Wiki tentang sandi-menyandi berikOt ini :
Kode atau sandi dalam komunikasi adalah aturan untuk mengubah suatu informasi (sebagai contoh, suatu surat, kata, atau frasa) menjadi bentuk atau representasi lain, yang tidak harus dalam bentuk yang sama. Dalam komunikasi dan pemrosesan informasi, pengkodean atau penyandian (encoding) adalah proses konversi informasi dari suatu sumber (objek) menjadi data, yang selanjutnya dikirimkan ke penerima atau pengamat, seperti pada sistem pemrosesan data.
Pengawakodean atau pengawasandian (decoding) adalah proses kebalikannya, yaitu konversi data yang telah dikirimkan oleh sumber menjadi informasi yang dimengerti oleh penerima. Kodek (codec) adalah penerapan aturan atau algoritma untuk penyandian dan pengawasandian (sebagai contoh MP3) yang dapat berupa penerapan pada sisi perangkat keras maupun perangkat lunak, dan mungkin pula melibatkan kompresi data.
udah tahu kan maksuTnya ๐ก … baEklagghh sekarang kita paksa ๐ฏ Excel untuk melakukan pekerjaan sandi menyandi ini … seperti pendjelasan Bung Wiki diatas kita bagi kerjaannya menjadi 2 yaitu : penyandian dan pengawasandian … cara maksanya dengan menbikin suatu UDF (User Defined Function) ataw Fungsi BuWatan Dhewek ๐
โก Penyandian (Encoding)
pesan yang akan kita kirim pertama kita proses dulu penyandiannya dengan suatu UDF yang kita buWat untuk melakukan encoding ๐ (berasa keren pakE kata encoding :smile:) … proses encoding ini bisa dari yang palEng sederhana sampE yang paling rumit … kalO saya bisanya ngasih contoh yang sederhana saja … kalO sOdara pengEn bikin yang rumit monggo silahkan saja … tapi jangan lupa kalO sudah jadi saya diajarin yah ๐
bagEmana sih UDF buWat encoding yang sederhana โ … berikOt contoh kode VBAnya … cukup pendek
Public Function Encode(pesan As String, sandi As String) As String
Dim i As Integer
Dim Digitsandi As Integer
Dim CharPesan As String
Dim KodeCharPesan As Integer
Dim Charsandi As String
Dim KodeCharsandi As Integer
Dim KodePesanSandi As Integer
Dim CharPesanSandi As String
On Error GoTo ErrEncode
For i = 1 To Len(pesan)
Digitsandi = Digitsandi + 1
If Digitsandi > Len(sandi) Then Digitsandi = 1
CharPesan = Mid(pesan, i, 1)
KodeCharPesan = Asc(CharPesan)
Charsandi = Mid(sandi, Digitsandi, 1)
KodeCharsandi = Asc(Charsandi)
KodePesanSandi = KodeCharPesan + KodeCharsandi
CharPesanSandi = Chr(KodePesanSandi)
Encode = Encode & Chr(KodePesanSandi)
Next
Exit Function
ErrEncode:
Encode = Chr(1) & " --maap sodara2 ada error pada digit ke - " & i
End Function
cara pakenya gampang tinggal isikan pesan dan sandinya saja pada fungsi Encode tersebOt dan nanti sOdara akan dapat hasilnya : pesan baru yang telah disandi … contoh pada suatu cell Excel sOdara kasi Formula beriKot :
=Encode(“pesan yang mau dikirim”;”sandinya”)
hasilnya akan sOdara dapet
รฃรรกร รลฝรฒรรกรลฝรรรฃโขร รรรรรร
naggghhh pesan yang tersandi ini bisa sOdara kirimkan … orang laEn bisa pusing batjanya ๐
Jalan ceritanya bisa jadi seperti itu bisa diliat dalam tabel berikOt

mohon perhatian sOdara2 fungsi ini akan memunculkan error saat KodePesanSandi > 255 ๐
โก Pengawasandian (Decoding)
penerima pesan tersandi harus tahu sandinya agar dapat membaca pesannya … pinsip dari decoding ini hanya membalik proses encoding … jika pada saat encoding ditambahkan kode karakter pesan dan kode karakter sandi … maka pada saat decoding di ubah menjadi dikurangi … berikOt kode UDF Decode
Public Function Decode(pesan As String, sandi As String) As String
Dim i As Integer
Dim Digitsandi As Integer
Dim CharPesan As String
Dim KodeCharPesan As Integer
Dim Charsandi As String
Dim KodeCharsandi As Integer
Dim KodePesanSandi As Integer
Dim CharPesanSandi As String
On Error GoTo Errdecode
For i = 1 To Len(pesan)
Digitsandi = Digitsandi + 1
If Digitsandi > Len(sandi) Then Digitsandi = 1
CharPesan = Mid(pesan, i, 1)
KodeCharPesan = Asc(CharPesan)
Charsandi = Mid(sandi, Digitsandi, 1)
KodeCharsandi = Asc(Charsandi)
KodePesanSandi = KodeCharPesan - KodeCharsandi
CharPesanSandi = Chr(KodePesanSandi)
Decode = Decode & Chr(KodePesanSandi)
Next
Exit Function
Errdecode:
Decode = Chr(1) & " --maap sodara2 ada error pada digit ke - " & i
End Function
cara pakainya mirip dengan UDF Encode … contoh
=decode(“รฃรรกร รลฝรฒรรกรลฝรรรฃโขร รรรรรร”;”sandinya”)
akan menghasilkan
pesan yang mau dikirim
jangan lupa sandi pada saat Encode dan Decode harus sama kalO beda hasElnya akan ngawur … mohon perhatian jugaK pada sOdara2 bahwa fungsi ini akan memunculkan error saat KodePesanSandi < 1
fungsi Encode/Decode diatas masih sangat sederhana silahkan berkreasi untuk membuat fungsi2 yang lebih rumit … kOnci2 dalam aplikasi2 yang saya upload dimarih juga secara garis besar menggunakan teknik seperti ini
dalam contoh file yang saya bikin ada 4 kolom untuk menguji fungsi Encode dan Decode yang saya bikin … kode VBAnya juga sudah saya kasih terjemahan singkatnya ๐ … semoga ndak tambah bingung ๐ก
silahkan download file Sandi.xls seperti biYasanya … semoga manpaat dan MDLMDL
bingung cara downloadnya ??Baca aja halaman download dengan klik icon di samping |
feed , email and my social media![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
Mantap banget niih infonya!
thanks sob
tannks ntar saya coba
Matur tengkyu Master de Excellente atas petromaxnya. Moga aku dapat membuat konci secanggih Master
siipp pak guru … artikel ini jugak saya bikin untuk menjawab pertanyaan mas guru kemarEn ๐
Kode yang panjenengan buat kok berubah-ubah tiap di buka di komputer atau letak drive yang berbeda, apa diambil acak dari nama komputer, no drive, waktu saat dibuka pertama atau lainnya ?
Caranya gimana tu Master ?….. ๐
Dulu saya pakai UserName Excel … sekarang saya pakai kode serialnumber drive … dari SN ini saya “encode” menjadi kode permintaan KONCI … jadi kode permintaan konci bisa berubah-ubah sesuai drive tempat file disimpan ๐
mas minta konci UNP1.5758 donk,,
download aja yang versi 2 … lebih lengkap ๐
pak, tinggalnya dimana siy….?? kalo boleh saya mau kursus sama bapak….
Saya bener2 awam bgt soal excel, tapi dituntut dengan pekerjaan yang super ribet sehingga membutuhkan seorang guru ahli yang bisa membimbing saya di kala duka…. ๐
sudi kiranya untuk memberikan no tlp nya…. terima kasih kang syukron….
untuk ngasi kursus terus terang saya ndak berani … ndak punya kurikulumnya … tapi kalO sOdara bertanya InsyaAllah akan saya jawab kalO saya bisa ๐
Mas syukron program sandi ini bisa ndak ya dipakai di 2 komputer , encrip di komputer 1 dan dencrip di komputer ke 2
lha emang gitu cara pakainya ๐
mas kalo kita ingin mengenkrip semua tulisan yang ada di sheet gimana ? sy coba-coba dengan mengganti semua cell yang kita seleksi tapi prosesnya kok lama banget
ya harus dibikin satu persatu tiap cellnya … bisa juga dengan membuat macro yang akan encode semua cell yang “tidak kosong” … tapi untuk cell yang berisi formula mungkin hasil yang akan dimunculkan adalah nilainya bukan FORMULA dari cell sumber … saya ndak janji mungkin nanti akan saya buat artikelnya … terimakasih sebuah ide yang bagus ๐ก
iya sy set per-cell Mas, tapi loadingnya lama (T_T) ga secepet yg sy buat di vb, kalo formula sy sudah tidak meletakkan formula di cell tp di makro karena setelah sy jalani jika bekerja dengan cell dan sheet yang banyak formula malah bikin lambat, dikit dikit loading ditambah ukuran file yg besar(saran dari Mas juga neeh ^^_). ditunggu artikelnya mas hehehehe…
aslamkan////suwon gan aplikasinya…suwon ke konci ne PSD2.1780
maturke suwon…