Dear pak Hendrik
sama kok pak, lha wong saya tidak membuat cekrip baru, hanya menyembunyikan
nilai k pada:
*kSigned = IIf(bEncode, k, -k)*
nilai k disini saya tambah dengan 55 dan dikurangai 53, sehingga komputer
membaca:
*kSigned = IIf(bEncode, k + 55, -k - 53)*
dan nilai 55 ini saya sembunyikan sebagai : * Int(Asc("nang") /
Log(Asc("agus")))*
sedangkan nilai 53 saya sembunyikan sebagai: *Int(Asc("kakak") /
Log(Asc("adik")))*
coba pak hendrik gunakan formula di Excel (bukan di VBA lho)
=INT(CODE("nang") / LOG(CODE("agus"))) akan menghasilkan angka 55 dan
=INT(CODE("kakak") / LOG(CODE("adik"))) akan menghasilkan angka 53
Coba pak hendrik ganti kata-kata tersebut dengan beberapa kata yang lain,
akan ketahuan bahwa encrip ini sangat mudah untuk dipecahkan.
Wasalam
NangAgus
On Sat, Jan 3, 2015 at 10:53 AM, hendrik karnadi [email protected]
[belajar-excel] <[email protected]> wrote:
>
>
> Mas Nang Agus,
>
> Terdorong oleh rasa penasaran (karena memang blm tahu), saya coba
> membandingkan
> encryption dan decryption versi mas Nang Agus dan mbak Siti.
> Macronya adalah seperti ini:
>
> *Option Explicit*
>
> *'buatan mbak Siti*
> *Function Krip(sKata, bEncode As Boolean) As String*
> * ' ctv : meng "enkripsi" userName & password; agar data yg*
> * ' tertulis di sheet user tidak diketahui orang lain*
> * ' bEncode = true >> Encript, false >> Decript*
> * '----------------------------------------------------------*
> * Dim sKrip As String*
> * Dim k As Integer*
> * Dim kSigned As Integer*
> * For k = 1 To Len(sKata)*
> * kSigned = IIf(bEncode, k, -k)*
> * sKrip = sKrip + Chr(Asc(Mid(sKata, k, 1)) + kSigned)*
> * Next*
> * Krip = sKrip*
> *End Function*
>
> *'buatan mas Nang Agus*
> *Function Encr(Pasw, bCode As Boolean) As String*
> * 'modifikasi mas Nang Agus*
> * Dim anu As String*
> * Dim anuu As String*
> * Dim k As Integer*
> * Dim tmbh As Integer*
> * For k = 1 To Len(Pasw)*
> * tmbh = IIf(bCode, k + Int(Asc("nang") / Log(Asc("agus"))), -k -
> Int(Asc("kakak") / Log(Asc("adik"))))*
> * anu = anu + Chr(Asc(Mid(Pasw, k, 1)) + tmbh)*
> * Next*
> * For k = 1 To Len(Pasw)*
> * tmbh = IIf(bCode, k + Int(Asc("kang") / Log(Asc("anda"))), -k -
> Int(Asc("nanda") / Log(Asc("adinda"))))*
> * anuu = anuu + Chr(Asc(Mid(anu, k, 1)) + tmbh)*
> * Next*
> * Encr = anuu*
> *End Function*
>
> (file terlampir).....
>
> Buatan mas Nang Agus (encrypt 2 x ditambah "log" dan kata2
> "agus,kakak,adik" dan "anda,nanda,adinda" kayaknya hasil encryptnya lebih
> menarik....
>
> Yang ingin saya tanyakan...gimana cara baca macro modifikasi mas Agus?
>
> Salam,
> HK
>
>
>
> ------------------------------
> *From:* "Nang Agus [email protected] [belajar-excel]" <
> [email protected]>
> *To:* BExcel <[email protected]>
> *Sent:* Friday, 2 January 2015, 9:11
> *Subject:* Re: [belajar-excel] Form Login [1 Attachment]
>
>
> Dear Jack
>
> ada form login dengan dasar cekrip warisan dari mbah siti dengan editan
> disana-sini
> ada 2 user yang tertanam di sheet "Jeneng" :
> admin admin
> nang agus
> untuk user admin dapat menambah user baru tapi cekrip untuk menghapus user
> belum sempat membuat. (user yang lain tidak dapat menambah user.)
> user dan password dienkripsi dua kali dengan rumus yang sangat sederhana
> sehingga mudah untuk di deskrip kembali.
> silahkan dioprek sesuai kebutuhan, jika masih banyak cekrip yang salah
> diposting lagi aja di milis biar banyak yang membantu
> salam
> NangAgus
>
> 2014-12-29 14:27 GMT+07:00 Jack Carmelo [email protected]
> [belajar-excel] <[email protected]>:
>
>
> Dear Master
> Mohon bantuannya untuk form login ini
> Saya ingin membuat 1 form login untuk beberapa username. Kalau untuk 1
> username sudah bisa saya buat tapi untuk beberapa username bagamana
> kodenya? Makasih atas bantuannya. Dan pertanyaan lanjutan kalau itu
> terjawab. Bisakah kita mengecek bahwa data yang diinput itu oleh username A
> atau B dstnya.
> Makasih atas bantuannya. File contoh dengan 1 username terlampir.
> Username : admin
> Password : admin
> Salam
> Jack
> Dikirim dari Yahoo Mail pada Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
>
>
>
>
