Mas Nang Agus,
Terdorong oleh rasa penasaran (karena memang blm tahu), saya coba
membandingkanencryption dan decryption versi mas Nang Agus dan mbak
Siti.Macronya adalah seperti ini:
Option Explicit
'buatan mbak SitiFunction 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 = sKripEnd Function
'buatan mas Nang AgusFunction 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 = anuuEnd 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 JackDikirim dari Yahoo Mail pada Android | #yiv6933533585 -- #yiv6933533585ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6933533585 #yiv6933533585ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6933533585 #yiv6933533585ygrp-mkp #yiv6933533585hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6933533585 #yiv6933533585ygrp-mkp #yiv6933533585ads {margin-bottom:10px;}#yiv6933533585 #yiv6933533585ygrp-mkp .yiv6933533585ad {padding:0 0;}#yiv6933533585 #yiv6933533585ygrp-mkp .yiv6933533585ad p {margin:0;}#yiv6933533585 #yiv6933533585ygrp-mkp .yiv6933533585ad a {color:#0000ff;text-decoration:none;}#yiv6933533585 #yiv6933533585ygrp-sponsor #yiv6933533585ygrp-lc {font-family:Arial;}#yiv6933533585 #yiv6933533585ygrp-sponsor #yiv6933533585ygrp-lc #yiv6933533585hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6933533585 #yiv6933533585ygrp-sponsor #yiv6933533585ygrp-lc .yiv6933533585ad {margin-bottom:10px;padding:0 0;}#yiv6933533585 #yiv6933533585actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6933533585 #yiv6933533585activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6933533585 #yiv6933533585activity span {font-weight:700;}#yiv6933533585 #yiv6933533585activity span:first-child {text-transform:uppercase;}#yiv6933533585 #yiv6933533585activity span a {color:#5085b6;text-decoration:none;}#yiv6933533585 #yiv6933533585activity span span {color:#ff7900;}#yiv6933533585 #yiv6933533585activity span .yiv6933533585underline {text-decoration:underline;}#yiv6933533585 .yiv6933533585attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6933533585 .yiv6933533585attach div a {text-decoration:none;}#yiv6933533585 .yiv6933533585attach img {border:none;padding-right:5px;}#yiv6933533585 .yiv6933533585attach label {display:block;margin-bottom:5px;}#yiv6933533585 .yiv6933533585attach label a {text-decoration:none;}#yiv6933533585 blockquote {margin:0 0 0 4px;}#yiv6933533585 .yiv6933533585bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6933533585 .yiv6933533585bold a {text-decoration:none;}#yiv6933533585 dd.yiv6933533585last p a {font-family:Verdana;font-weight:700;}#yiv6933533585 dd.yiv6933533585last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6933533585 dd.yiv6933533585last p span.yiv6933533585yshortcuts {margin-right:0;}#yiv6933533585 div.yiv6933533585attach-table div div a {text-decoration:none;}#yiv6933533585 div.yiv6933533585attach-table {width:400px;}#yiv6933533585 div.yiv6933533585file-title a, #yiv6933533585 div.yiv6933533585file-title a:active, #yiv6933533585 div.yiv6933533585file-title a:hover, #yiv6933533585 div.yiv6933533585file-title a:visited {text-decoration:none;}#yiv6933533585 div.yiv6933533585photo-title a, #yiv6933533585 div.yiv6933533585photo-title a:active, #yiv6933533585 div.yiv6933533585photo-title a:hover, #yiv6933533585 div.yiv6933533585photo-title a:visited {text-decoration:none;}#yiv6933533585 div#yiv6933533585ygrp-mlmsg #yiv6933533585ygrp-msg p a span.yiv6933533585yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6933533585 .yiv6933533585green {color:#628c2a;}#yiv6933533585 .yiv6933533585MsoNormal {margin:0 0 0 0;}#yiv6933533585 o {font-size:0;}#yiv6933533585 #yiv6933533585photos div {float:left;width:72px;}#yiv6933533585 #yiv6933533585photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv6933533585 #yiv6933533585photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6933533585 #yiv6933533585reco-category {font-size:77%;}#yiv6933533585 #yiv6933533585reco-desc {font-size:77%;}#yiv6933533585 .yiv6933533585replbq {margin:4px;}#yiv6933533585 #yiv6933533585ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6933533585 #yiv6933533585ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6933533585 #yiv6933533585ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6933533585 #yiv6933533585ygrp-mlmsg select, #yiv6933533585 input, #yiv6933533585 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6933533585 #yiv6933533585ygrp-mlmsg pre, #yiv6933533585 code {font:115% monospace;}#yiv6933533585 #yiv6933533585ygrp-mlmsg * {line-height:1.22em;}#yiv6933533585 #yiv6933533585ygrp-mlmsg #yiv6933533585logo {padding-bottom:10px;}#yiv6933533585 #yiv6933533585ygrp-msg p a {font-family:Verdana;}#yiv6933533585 #yiv6933533585ygrp-msg p#yiv6933533585attach-count span {color:#1E66AE;font-weight:700;}#yiv6933533585 #yiv6933533585ygrp-reco #yiv6933533585reco-head {color:#ff7900;font-weight:700;}#yiv6933533585 #yiv6933533585ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6933533585 #yiv6933533585ygrp-sponsor #yiv6933533585ov li a {font-size:130%;text-decoration:none;}#yiv6933533585 #yiv6933533585ygrp-sponsor #yiv6933533585ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6933533585 #yiv6933533585ygrp-sponsor #yiv6933533585ov ul {margin:0;padding:0 0 0 8px;}#yiv6933533585 #yiv6933533585ygrp-text {font-family:Georgia;}#yiv6933533585 #yiv6933533585ygrp-text p {margin:0 0 1em 0;}#yiv6933533585 #yiv6933533585ygrp-text tt {font-size:120%;}#yiv6933533585 #yiv6933533585ygrp-vital ul li:last-child {border-right:none !important;}#yiv6933533585
Encryption dan Decryption.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
