4 New Messages
Digest #2581
Messages
Sat Oct 5, 2013 1:09 am (PDT) . Posted by:
"PRAZT" praztmath
Dah saya cari pak De, malah tambah bingung hehehehe....
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of De Premor
Sent: 05 Oktober 2013 14:53
To: belajar-excel@yahoogroups.com
Subject: Bls: Re: [belajar-excel] Encryption
Coba cari dulu digoogle dengan keyword "md5 algorithm" atau jalan2 ke wiki
http://en.m.wikipedia.org/wiki/MD5
Sent from blekberih
_____
From: prazt math <praztmath@gmail.com <mailto:praztmath@gmail.com> >
Sender: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Date: Sat, 5 Oct 2013 14:33:22 +0700
To: group excel<belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com> >
ReplyTo: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: Re: [belajar-excel] Encryption
Pk De saya jadi tertarik pada tulisan yang saya kutip sbb: Selain enkripsi 2 arah yang bisa diketaui nilai awalnya, ada juga enkripsi 1 arah, yang mustahil untuk diketahui nilai awalnya karena sudah diacak2, dibolak-balik, diaduk-aduk, diobok-obok dst... sehingga menghasilkan sebuah deret huruf dan angka yang tak bermakna dimata manusia :D Contoh Hasil enkripsi searah kata "Belajar-Excel" menggunakan MD5 : d1dbd01073ad229fcde3ac345b94c36d.
Pertanyaan saya apakah berkenan jika saya minta cintoh dari pak De password excel misalnya sheet-sheetnya yang menggunakan enkripsi satu arah pk De? Dan alur ceritanya supaya saya bisa mempelajari
Pada 2 Okt 2013 06:45, "De Premor" <de@premor.net <mailto:de@premor.net> > menulis:
Kalau untuk alternatif proteksi sepertinya tidak, karena tetap sama aja hasil dari encryp tetap berupa text, tetapi kalau untuk menyembunyikan password mungkin bisa agak sedikit menyulitkan pembacaannya, karena musti di convert kesana kemari dulu :D
Dalam fungsi EncDec tersebut dibuat sederhana saja sesuai dengan keperluan yang ada (menyembunyikan tanggal yang notabene berupa deretan angka), dan harus bisa diambil lagi nilainya menjadi tanggal semula
yaitu cuma di xor dengan bilangan tertentu kemudian di xor lagi dengan bilangan lainnya, kemudian diubah ke Hex, dan membalik prosesnya untuk mengetahui nilai sebenarnya.
Enkripsi model seperti (bolak balik aka 2 arah ) ini tidak tertalu aman, karena dapat dengan mudah dikembalikan ke nilai awal, tapi karena keperluannya mengharuskan seperti itu ya mau gimana lagi :D
Enkripsi 2 arah yang sudah umum digunakan di jagat coding contohnya BASE64, BLOWFISH, ROTATE13 dll
Selain enkripsi 2 arah yang bisa diketaui nilai awalnya, ada juga enkripsi 1 arah, yang mustahil untuk diketahui nilai awalnya karena sudah diacak2, dibolak-balik, diaduk-aduk, diobok-obok dst... sehingga menghasilkan sebuah deret huruf dan angka yang tak bermakna dimata manusia :D
Contoh Hasil enkripsi searah kata "Belajar-Excel" menggunakan MD5 : d1dbd01073ad229fcde3ac345b94c36d
Didalam dunia perenkripsian ada sebuah istilah yang sama "Salting" , dimana hasil dari sebuah enkripsi dienkripsi lagi menggunakan kata tertentu untuk menambah keamanan
Sementara ini dulu :D
On 01-10-2013 9:54, hendrik karnadi wrote:
Pak De Premor,
Dalam jawaban anda atas "Password Harian", ada suatu fungsi yang menarik, yaitu,
Function EncDec(ByVal Anu, Optional Enc As Boolean = True)
On Error Resume Next
With Application.WorksheetFunction
If Enc = True Then
Anu = Anu Xor 53135 Xor 24642
EncDec = .Dec2Hex(Anu)
Else
Anu = .Hex2Dec(Anu)
EncDec = Anu Xor 24642 Xor 53135
End If
End With
End Function
Mohon dapat dijelaskan, apakah fungsi Enc ini bisa dipakai sebagai salah satu alternatif proteksi file yang lebih sulit dibongkar dan bagaimana cara membuat/pemakaiannya.
Terima kasih.
Salam,
HK
From: belajar-excel@
Sent: 05 Oktober 2013 14:53
To: belajar-excel@
Subject: Bls: Re: [belajar-excel] Encryption
Coba cari dulu digoogle dengan keyword "md5 algorithm" atau jalan2 ke wiki
http://en.m.
Sent from blekberih
_____
From: prazt math <praztmath@gmail.
Sender: belajar-excel@
Date: Sat, 5 Oct 2013 14:33:22 +0700
To: group excel<belajar-excel@
ReplyTo: belajar-excel@
Subject: Re: [belajar-excel] Encryption
Pk De saya jadi tertarik pada tulisan yang saya kutip sbb: Selain enkripsi 2 arah yang bisa diketaui nilai awalnya, ada juga enkripsi 1 arah, yang mustahil untuk diketahui nilai awalnya karena sudah diacak2, dibolak-balik, diaduk-aduk, diobok-obok dst... sehingga menghasilkan sebuah deret huruf dan angka yang tak bermakna dimata manusia :D Contoh Hasil enkripsi searah kata "Belajar-
Pertanyaan saya apakah berkenan jika saya minta cintoh dari pak De password excel misalnya sheet-sheetnya yang menggunakan enkripsi satu arah pk De? Dan alur ceritanya supaya saya bisa mempelajari
Pada 2 Okt 2013 06:45, "De Premor" <de@premor.net <mailto:de@premor.net> > menulis:
Kalau untuk alternatif proteksi sepertinya tidak, karena tetap sama aja hasil dari encryp tetap berupa text, tetapi kalau untuk menyembunyikan password mungkin bisa agak sedikit menyulitkan pembacaannya, karena musti di convert kesana kemari dulu :D
Dalam fungsi EncDec tersebut dibuat sederhana saja sesuai dengan keperluan yang ada (menyembunyikan tanggal yang notabene berupa deretan angka), dan harus bisa diambil lagi nilainya menjadi tanggal semula
yaitu cuma di xor dengan bilangan tertentu kemudian di xor lagi dengan bilangan lainnya, kemudian diubah ke Hex, dan membalik prosesnya untuk mengetahui nilai sebenarnya.
Enkripsi model seperti (bolak balik aka 2 arah ) ini tidak tertalu aman, karena dapat dengan mudah dikembalikan ke nilai awal, tapi karena keperluannya mengharuskan seperti itu ya mau gimana lagi :D
Enkripsi 2 arah yang sudah umum digunakan di jagat coding contohnya BASE64, BLOWFISH, ROTATE13 dll
Selain enkripsi 2 arah yang bisa diketaui nilai awalnya, ada juga enkripsi 1 arah, yang mustahil untuk diketahui nilai awalnya karena sudah diacak2, dibolak-balik, diaduk-aduk, diobok-obok dst... sehingga menghasilkan sebuah deret huruf dan angka yang tak bermakna dimata manusia :D
Contoh Hasil enkripsi searah kata "Belajar-
Didalam dunia perenkripsian ada sebuah istilah yang sama "Salting" , dimana hasil dari sebuah enkripsi dienkripsi lagi menggunakan kata tertentu untuk menambah keamanan
Sementara ini dulu :D
On 01-10-2013 9:54, hendrik karnadi wrote:
Pak De Premor,
Dalam jawaban anda atas "Password Harian"
Function EncDec(ByVal Anu, Optional Enc As Boolean = True)
On Error Resume Next
With Application.
If Enc = True Then
Anu = Anu Xor 53135 Xor 24642
EncDec = .Dec2Hex(Anu)
Else
Anu = .Hex2Dec(Anu)
EncDec = Anu Xor 24642 Xor 53135
End If
End With
End Function
Mohon dapat dijelaskan, apakah fungsi Enc ini bisa dipakai sebagai salah satu alternatif proteksi file yang lebih sulit dibongkar dan bagaimana cara membuat/pemakaianny
Terima kasih.
Salam,
HK
Sat Oct 5, 2013 3:43 am (PDT) . Posted by:
"Tuti Hartati"
Salam kenal,
Mau tanya saya ada masalah pada office excel 2010, ada beberapa
database saya yang menggunakan vba excel office model lama tidak
bisa di jalankan pada excel 2010, berikut warning yang didapatkan
:
Mohon bantuannya karena saya sudah coba tapi tidak ketemu-ketemu.
Terimakasih,
Tuti Hartati
Sat Oct 5, 2013 3:47 am (PDT) . Posted by:
"Shenly" shenly_excelmania
terima kasih mr. kid buat jawabannya, sangat jitu sekali, tapi ko ketika saya pindah posisi Row nya ko jadi error yah
mohon dibantu lagi hehe
file terlampir
Salam
Shenly ^^*
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Sabtu, 5 Oktober 2013 2:37
Judul: Re: [belajar-excel] VBA copy paste????
Hai Shenly,
Coba isi prosedurnya diberi script berikut :
Dim rngData As Range, lRows As Long 'variabel range data beserta jumlah barisnya
Dim rngTarget As Range 'variabel range posisi paste di kolom A
Set rngData = Range("f1").CurrentRegion.Offset(1).Resize(, 1) 'record data input kolom A + 1 baris kosong terbawah
lRows = rngData.Rows.Count - 1 'jumlah record
Set rngTarget = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) 'range posisi paste di kolom A
rngData.Resize(lRows, 1).Copy 'copy input kolom A
rngTarget.PasteSpecial xlPasteValues 'paste values di posisi target kolom A
rngData.Offset(0, 1).Resize(lRows, 2).Copy 'copy input yang 2 kolom data setelah lompat 1 kolom ke kanan
rngTarget.Offset(0, 2).PasteSpecial xlPasteValues 'paste values di posisi target kolom A lompat 2 kolom ke kanan
Wassalam,
Kid.
2013/10/5 Shenly <shenly_excelmania@yahoo.co.id>
>
>Assalamualikum...
>mohon bantuannya kembali teman2,
>saya sudah membuat coding VBA dari copy paste sebuah tabel, tapi hasilnya tidak sesuai yang saya inginkan,
>harap bantuannya dari teman2 sekalin...
>untuk lebih jelas sya sudah lapirkan filenya
>
>
>terima kasih
>
>Salam
>Shenly ^^*
mohon dibantu lagi hehe
file terlampir
Salam
Shenly ^^*
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: BeExcel <belajar-excel@
Dikirim: Sabtu, 5 Oktober 2013 2:37
Judul: Re: [belajar-excel] VBA copy paste????
Hai Shenly,
Coba isi prosedurnya diberi script berikut :
Dim rngData As Range, lRows As Long 'variabel range data beserta jumlah barisnya
Dim rngTarget As Range 'variabel range posisi paste di kolom A
Set rngData = Range("
lRows = rngData.Rows.
Set rngTarget = Cells(Rows.Count, "A"
rngData.Resize(
rngTarget.PasteSpec
rngData.Offset(
rngTarget.Offset(
Wassalam,
Kid.
2013/10/5 Shenly <shenly_excelmania@
>
>Assalamualikum.
>mohon bantuannya kembali teman2,
>saya sudah membuat coding VBA dari copy paste sebuah tabel, tapi hasilnya tidak sesuai yang saya inginkan,
>harap bantuannya dari teman2 sekalin...
>untuk lebih jelas sya sudah lapirkan filenya
>
>
>terima kasih
>
>Salam
>Shenly ^^*
Sat Oct 5, 2013 3:50 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Dalam Scriptnya ada yang merujuk ke range tertentu kan. Sesuaikan saja
script yang merujuk ke range tertentu itu sesuai kebutuhan. Cukup dicek
kembali saja, dulu si area range Anda letakkan dimana, lalu cari alamat
rangenya di script. Kemudian sekarang ingin digeser kemana, maka sesuaikan
alamat range discriptnya.
Wassalam,
Kid.
2013/10/5 Shenly <shenly_excelmania@yahoo.co.id>
> **
>
>
> terima kasih mr. kid buat jawabannya, sangat jitu sekali, tapi ko ketika
> saya pindah posisi Row nya ko jadi error yah
> mohon dibantu lagi hehe
> file terlampir
>
> Salam
> Shenly ^^*
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* BeExcel <belajar-excel@yahoogroups.com>
> *Dikirim:* Sabtu, 5 Oktober 2013 2:37
> *Judul:* Re: [belajar-excel] VBA copy paste????
>
>
> Hai Shenly,
>
> Coba isi prosedurnya diberi script berikut :
> Dim rngData As Range, lRows As Long 'variabel range data beserta
> jumlah barisnya
> Dim rngTarget As Range 'variabel range posisi paste
> di kolom A
>
> Set rngData = Range("f1").CurrentRegion.Offset(1).Resize(, 1)
> 'record data input kolom A + 1 baris kosong terbawah
> lRows = rngData.Rows.Count - 1
> 'jumlah record
>
> Set rngTarget = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) 'range
> posisi paste di kolom A
> rngData.Resize(lRows, 1).Copy 'copy
> input kolom A
> rngTarget.PasteSpecial xlPasteValues 'paste
> values di posisi target kolom A
> rngData.Offset(0, 1).Resize(lRows, 2).Copy 'copy
> input yang 2 kolom data setelah lompat 1 kolom ke kanan
> rngTarget.Offset(0, 2).PasteSpecial xlPasteValues 'paste
> values di posisi target kolom A lompat 2 kolom ke kanan
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/10/5 Shenly <shenly_excelmania@yahoo.co.id>
>
> **
>
> Assalamualikum...
> mohon bantuannya kembali teman2,
> saya sudah membuat coding VBA dari copy paste sebuah tabel, tapi hasilnya
> tidak sesuai yang saya inginkan,
> harap bantuannya dari teman2 sekalin...
> untuk lebih jelas sya sudah lapirkan filenya
>
> terima kasih
>
> Salam
> Shenly ^^*
>
>
>
>
>
>
script yang merujuk ke range tertentu itu sesuai kebutuhan. Cukup dicek
kembali saja, dulu si area range Anda letakkan dimana, lalu cari alamat
rangenya di script. Kemudian sekarang ingin digeser kemana, maka sesuaikan
alamat range discriptnya.
Wassalam,
Kid.
2013/10/5 Shenly <shenly_excelmania@
> **
>
>
> terima kasih mr. kid buat jawabannya, sangat jitu sekali, tapi ko ketika
> saya pindah posisi Row nya ko jadi error yah
> mohon dibantu lagi hehe
> file terlampir
>
> Salam
> Shenly ^^*
>
> ------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* BeExcel <belajar-excel@
> *Dikirim:* Sabtu, 5 Oktober 2013 2:37
> *Judul:* Re: [belajar-excel] VBA copy paste????
>
>
> Hai Shenly,
>
> Coba isi prosedurnya diberi script berikut :
> Dim rngData As Range, lRows As Long 'variabel range data beserta
> jumlah barisnya
> Dim rngTarget As Range 'variabel range posisi paste
> di kolom A
>
> Set rngData = Range("
> 'record data input kolom A + 1 baris kosong terbawah
> lRows = rngData.Rows.
> 'jumlah record
>
> Set rngTarget = Cells(Rows.Count, "A"
> posisi paste di kolom A
> rngData.Resize(
> input kolom A
> rngTarget.PasteSpec
> values di posisi target kolom A
> rngData.Offset(
> input yang 2 kolom data setelah lompat 1 kolom ke kanan
> rngTarget.Offset(
> values di posisi target kolom A lompat 2 kolom ke kanan
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/10/5 Shenly <shenly_excelmania@
>
> **
>
> Assalamualikum.
> mohon bantuannya kembali teman2,
> saya sudah membuat coding VBA dari copy paste sebuah tabel, tapi hasilnya
> tidak sesuai yang saya inginkan,
> harap bantuannya dari teman2 sekalin...
> untuk lebih jelas sya sudah lapirkan filenya
>
> terima kasih
>
> Salam
> Shenly ^^*
>
>
>
>
>
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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