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