3 Messages
Digest #3251
Messages
Sun Jan 4, 2015 5:36 pm (PST) . Posted by:
"Hendrik Karnadi" hendrikkarnadi
Terima kasih mas Agus atas penjelasannya.
Salam,
HK
Sent from Samsung Mobile
<div>-------- Original message --------</div><div>From: "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:04/01/2015 18:57 (GMT+07:00) </div><div>To: BExcel <belajar-excel@yahoogroups.com> </div><div>Subject: Re: [belajar-excel] Re: encryption dan decryption </div><div>
</div>Dear pak Hendrik, dan Mas Toby.
Salam sejahtera untuk kita semua.
Mohon maaf ternyata saya salah menterjemahkan bahasa VBA kebahasa EXcel.
Fungsi Log di VBA adalah fungsi logaritma basisnya bilangan naturalis sedangkan di Excel Log basisinya sepuluh jadi rumus yang kemarin sayajelaskan pakhendrik terjadi kesalahan.
Di VBA :Log(Asc("agus")) menghasilkan 4,574710979
Di Excel :Log(Code("agus")) menghasilkan 1,986771734 seharusnya rumusnya ditulis menjadi:
=Log(Code("agus"), 2.7182818282) atau =Ln(Code("agus")) yang menghasilkan 4,574710979.
Sehingga formula: Int(Asc("nang") / Log(Asc("agus"))) berarti:
Integer (110 / 4,574710979) = integer(24,04523488) = 24
Sehingga formula: Int(Asc("kakak") / Log(Asc("adik"))) berarti:
Integer (107 / 4,574710979) = integer(23,38945575) = 23
For k =1 to len(pass)
anu = anu + Chr(Asc(Mid(Pasw, k, 1)) + tmbh)
next k
untuk encrypt admin:
PassWord
Code
k
Tambahan1
Hasil1
k
Tambahan 2
Hasil2
Encrypt
a
97
1
24
122
1
23
146
'
d
100
2
24
126
2
23
151
—
m
109
3
24
136
3
23
162
¢
i
105
4
24
133
4
23
160
n
110
5
24
139
5
23
167
§
Untuk Mas Toby sudah benar mas cara penjelasannya hanya tahap pertama seharusnya tidak ditambah dengan 25 semua tetapi ditambah sesuai dengan karakter ke-k. demikian pula tahap kedua tidak ditambah dengan kelipatan 2 (24, 26, 28..) tetapi ditambah dengan 24, 25, 26, ... sesuai karakter ke-k (bergantung nilai k pada for k = 1 to ...
Wasalam
NangAgus
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 + 24, -k - 23)
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 54 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
Salam,
HK
Sent from Samsung Mobile
<div>-------- Original message --------</div><div>From: "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:04/01/2015 18:57 (GMT+07:00) </div><div>To: BExcel <belajar-excel@yahoogroups.com> </div>
</div>
Salam sejahtera untuk kita semua.
Mohon maaf ternyata saya salah menterjemahkan bahasa VBA kebahasa EXcel.
Fungsi Log di VBA adalah fungsi logaritma basisnya bilangan naturalis sedangkan di Excel Log basisinya sepuluh jadi rumus yang kemarin sayajelaskan pakhendrik terjadi kesalahan.
Di VBA :Log(Asc("
Di Excel :Log(Code("
=Log(Code("
Sehingga formula: Int(Asc("
Integer (110 / 4,574710979) = integer(24,04523488
Sehingga formula: Int(Asc("
Integer (107 / 4,574710979) = integer(23,38945575
For k =1 to len(pass)
anu = anu + Chr(Asc(Mid(
next k
untuk encrypt admin:
PassWord
Code
k
Tambahan1
Hasil1
k
Tambahan 2
Hasil2
Encrypt
a
97
1
24
122
1
23
146
'
d
100
2
24
126
2
23
151
—
m
109
3
24
136
3
23
162
¢
i
105
4
24
133
4
23
160
n
110
5
24
139
5
23
167
§
Untuk Mas Toby sudah benar mas cara penjelasannya hanya tahap pertama seharusnya tidak ditambah dengan 25 semua tetapi ditambah sesuai dengan karakter ke-k. demikian pula tahap kedua tidak ditambah dengan kelipatan 2 (24, 26, 28..) tetapi ditambah dengan 24, 25, 26, ... sesuai karakter ke-k (bergantung nilai k pada for k = 1 to ...
Wasalam
NangAgus
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 + 24, -k - 23)
dan nilai 55 ini saya sembunyikan sebagai : Int(Asc("
sedangkan nilai 53 saya sembunyikan sebagai: Int(Asc("
coba pak hendrik gunakan formula di Excel (bukan di VBA lho)
=INT(CODE("
=INT(CODE("
Coba pak hendrik ganti kata-kata tersebut dengan beberapa kata yang lain, akan ketahuan bahwa encrip ini sangat mudah untuk dipecahkan.
Wasalam
NangAgus
Sun Jan 4, 2015 7:34 pm (PST) . Posted by:
"Nang Agus"
Untuk angka yang ditambahkan, perlu diingat bahwa charakter terbesar yang
dapat digunakan adalah nomor 255.
sedangkan huruf z kodenya 122, misalnya panjang password 16 karakter,
berarti nilai maksimum yang dapat ditambahkan adlah 255 - 16 - 122 = 117
sebaiknya angka yang ditambahkan dibawah 100 saja agar masih dapat
dihitung, sedangkan nilai k yang digunakan untuk membuat encrip dapat
dibuat untuk tidaj selalu ditambah satu dapat pula ditambah 2 atau 3,
Jika salah tolong saya diingatkan
2015-01-03 22:36 GMT+07:00 Hendrik Karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Terima kasih mas Nang Agus atas penjelasannya.
> Btw, angka 55 dan 53 boleh diganti dengan angka berapapun?
>
> Salam,
> HK
>
>
> Sent from Samsung Mobile
>
>
> -------- Original message --------
> From: "Nang Agus nangagus@gmail.com [belajar-excel]"
> Date:03/01/2015 19:36 (GMT+07:00)
> To: BExcel
> Subject: Re: [belajar-excel] Re: encryption dan decryption
>
>
>
> 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 hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> 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 nangagus@gmail.com [belajar-excel]" <
>> belajar-excel@yahoogroups.com>
>> *To:* BExcel <belajar-excel@yahoogroups.com>
>> *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 jackcarmelo@yahoo.co.id
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>> 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>
>>
>>
>>
>>
>>
>
>
dapat digunakan adalah nomor 255.
sedangkan huruf z kodenya 122, misalnya panjang password 16 karakter,
berarti nilai maksimum yang dapat ditambahkan adlah 255 - 16 - 122 = 117
sebaiknya angka yang ditambahkan dibawah 100 saja agar masih dapat
dihitung, sedangkan nilai k yang digunakan untuk membuat encrip dapat
dibuat untuk tidaj selalu ditambah satu dapat pula ditambah 2 atau 3,
Jika salah tolong saya diingatkan
2015-01-03 22:36 GMT+07:00 Hendrik Karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Terima kasih mas Nang Agus atas penjelasannya.
> Btw, angka 55 dan 53 boleh diganti dengan angka berapapun?
>
> Salam,
> HK
>
>
> Sent from Samsung Mobile
>
>
> -------- Original message --------
> From: "Nang Agus nangagus@gmail.com [belajar-excel]"
> Date:03/01/2015 19:36 (GMT+07:00)
> To: BExcel
> Subject: Re: [belajar-excel] Re: encryption dan decryption
>
>
>
> 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 hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> 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 nangagus@gmail.com [belajar-excel]" <
>> belajar-excel@yahoogroups.com>
>> *To:* BExcel <belajar-excel@yahoogroups.com>
>> *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 jackcarmelo@yahoo.co.id
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>> 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>
>>
>>
>>
>>
>>
>
>
Sun Jan 4, 2015 8:03 pm (PST) . Posted by:
"Hendrik Karnadi" hendrikkarnadi
Terima kasih mas Nang Agus atas penjelasannya.
Maklum, macro yang saya buat ga pernah pake password krn untuk konsumsi umum apalagi diencrtypt..jadi saya ga pernah belajar encrypt.
Salam,
HK
Sent from Samsung Mobile
<div>-------- Original message --------</div><div>From: "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:05/01/2015 10:34 (GMT+07:00) </div><div>To: BExcel <belajar-excel@yahoogroups.com> </div><div>Subject: Re: [belajar-excel] Re: encryption dan decryption </div><div>
</div>Untuk angka yang ditambahkan, perlu diingat bahwa charakter terbesar yang dapat digunakan adalah nomor 255.
sedangkan huruf z kodenya 122, misalnya panjang password 16 karakter, berarti nilai maksimum yang dapat ditambahkan adlah 255 - 16 - 122 = 117
sebaiknya angka yang ditambahkan dibawah 100 saja agar masih dapat dihitung, sedangkan nilai k yang digunakan untuk membuat encrip dapat dibuat untuk tidaj selalu ditambah satu dapat pula ditambah 2 atau 3,
Jika salah tolong saya diingatkan
2015-01-03 22:36 GMT+07:00 Hendrik Karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Terima kasih mas Nang Agus atas penjelasannya.
Btw, angka 55 dan 53 boleh diganti dengan angka berapapun?
Salam,
HK
Sent from Samsung Mobile
-------- Original message --------
From: "Nang Agus nangagus@gmail.com [belajar-excel]"
Date:03/01/2015 19:36 (GMT+07:00)
To: BExcel
Subject: Re: [belajar-excel] Re: encryption dan decryption
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 hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> 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 nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: BExcel <belajar-excel@yahoogroups.com>
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 jackcarmelo@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
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
Maklum, macro yang saya buat ga pernah pake password krn untuk konsumsi umum apalagi diencrtypt..jadi saya ga pernah belajar encrypt.
Salam,
HK
Sent from Samsung Mobile
<div>-------- Original message --------</div><div>From: "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:05/01/2015 10:34 (GMT+07:00) </div><div>To: BExcel <belajar-excel@yahoogroups.com> </div><div>Subject: Re: [belajar-excel] Re: encryption dan decryption </div><div>
</div>Untuk angka yang ditambahkan, perlu diingat bahwa charakter terbesar yang dapat digunakan adalah nomor 255.
sedangkan huruf z kodenya 122, misalnya panjang password 16 karakter, berarti nilai maksimum yang dapat ditambahkan adlah 255 - 16 - 122 = 117
sebaiknya angka yang ditambahkan dibawah 100 saja agar masih dapat dihitung, sedangkan nilai k yang digunakan untuk membuat encrip dapat dibuat untuk tidaj selalu ditambah satu dapat pula ditambah 2 atau 3,
Jika salah tolong saya diingatkan
2015-01-03 22:36 GMT+07:00 Hendrik Karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Terima kasih mas Nang Agus atas penjelasannya.
Btw, angka 55 dan 53 boleh diganti dengan angka berapapun?
Salam,
HK
Sent from Samsung Mobile
-------- Original message --------
From: "Nang Agus nangagus@gmail.com [belajar-excel]"
Date:03/01/2015 19:36 (GMT+07:00)
To: BExcel
Subject: Re: [belajar-excel] Re: encryption dan decryption
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 hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> 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 nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: BExcel <belajar-excel@yahoogroups.com>
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 jackcarmelo@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
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
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar