Minggu, 04 Januari 2015

[belajar-excel] Digest Number 3250

7 Messages

Digest #3250

Messages

Sat Jan 3, 2015 4:44 am (PST) . Posted by:

"Nang Agus"

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>
>
>
>
>
>
>

Sat Jan 3, 2015 9:50 am (PST) . Posted by:

"Toby kenzo" tobykenzo

Dear Pak Hendrik dan Pak Agus

Mungkin bisa saya interpretasikan macronya menjadi excel forrmula biasa ( koreksi kalau saya salah pak) seperti ini pak ( file terlampir ).

TerimaKasih.

Sent from Yahoo Mail on Android

Sun Jan 4, 2015 3:57 am (PST) . Posted by:

"Nang Agus"

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
>
>
>
>
>

Sat Jan 3, 2015 7:36 am (PST) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Terima kasih mas Nang Agus atas penjelasannya.
Btw, angka 55 dan 53 boleh diganti dengan angka berapapun?

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:03/01/2015 19:36 (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

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

Sat Jan 3, 2015 9:50 am (PST) . Posted by:

"Toby kenzo" tobykenzo

Dear Cello,

Coba program ini.

TerimaKasih.

Sent from Yahoo Mail on Android

Sat Jan 3, 2015 9:50 am (PST) . Posted by:

"Tjahya Hartono" tjahyahartono

Dear Master Excel,

Saya kesulitan dalam memindahkan file excel ke file excel lainnya, dari file "Deposit" Ke file "Rekapan Deposit".Karena jumlahnya dalam riilnya (sheetnya) sangatlah banyak dan selalu berubah-ubah (Bisa bertambah dan berkurang muridnya)Maka hal ini harus dikerjakan setiap hari, dan sangatlah memakan waktu.Adakah caranya menyelesaikan kasus ini secara makro sehingga, sekali klik, tugas yang dikerjakan bs dijalankanoleh excelnya.Atas bantuannya terima kasih ya

Tjahya Hartono 

Sat Jan 3, 2015 4:16 pm (PST) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Hai Tjahya,
Untuk memindahkan sheet dari suatu workbook (file) ke file lain harus jelas kriterianya.
File Rekapan Deposit nampaknya masih terprotect.

Coba diperjelas kriteria pemindahannya dan file Rekapan Depositnya diunprotect dulu sebelum dikirim.

Salam,
HK

Sent from Samsung Mobile

<div>-------- Original message --------</div><div>From: "Tjahya Hartono tjahyahartono@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:03/01/2015 22:11 (GMT+07:00) </div><div>To: belajar-excel@yahoogroups.com </div><div>Subject: [belajar-excel] Memindahkan Deposit ke Rekapan Deposit [2 Attachments] </div><div>
</div>Dear Master Excel,

Saya kesulitan dalam memindahkan file excel ke file excel lainnya, dari file "Deposit" Ke file "Rekapan Deposit".
Karena jumlahnya dalam riilnya (sheetnya) sangatlah banyak dan selalu berubah-ubah (Bisa bertambah dan berkurang muridnya)
Maka hal ini harus dikerjakan setiap hari, dan sangatlah memakan waktu.
Adakah caranya menyelesaikan kasus ini secara makro sehingga, sekali klik, tugas yang dikerjakan bs dijalankan
oleh excelnya.
Atas bantuannya terima kasih ya

Tjahya Hartono


============================================================
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:

Poskan Komentar