mungkin fungsi encrypt sederhana ini bisa membantu :
jadi pasword di encrip dulu dengan fungsi ini , baru disimpan dalam tabel
'============================
Option Compare Database
Public Enum JnsAcak
enkrip = 0
dekrip = 1
End Enum
Function AcakString(str As String, TypeEnc As JnsAcak)
Dim lenKey, KeyPos, LenStr, x, Newstr
key = "djmx"
Newstr = ""
lenKey = Len(key)
KeyPos = 1
LenStr = Len(str)
str = StrReverse(str)
If TypeEnc = enkrip Then
For x = 1 To LenStr
Newstr = Newstr & Chr(Asc(Mid(str, x, 1)) + Asc(Mid(key, KeyPos,
1)))
KeyPos = KeyPos + 1
If KeyPos > lenKey Then KeyPos = 1
Next
Else
For x = LenStr To 1 Step -1
Newstr = Newstr & Chr(Asc(Mid(str, x, 1)) - Asc(Mid(key, KeyPos,
1)))
KeyPos = KeyPos + 1
If KeyPos > lenKey Then KeyPos = 1
Next
Newstr = StrReverse(Newstr)
End If
AcakString = Newstr
End Function
'============================================
2010/2/10 Budi.P <[email protected]>
>
>
> siang teman2,
>
> ada yg punya program untuk encrypt password, atau metode untuk encrypt
> password
> agar pada saat tersimpan di table field password sudah di encrypt.
>
> salam,
> Budi
>
> ------------------------------
> Menambah banyak teman sangatlah mudah dan
> cepat.<http://sg.rd.yahoo.com/id/messenger/trueswitch/mailtagline/*http://id.messenger.yahoo.com/invite/>
> Undang teman dari Hotmail, Gmail ke Yahoo! Messenger sekarang!
>
>
--
---------------------------------------------
grapyak-semanak-cluthak
http://djmumun.wordpress.com
http://facebook.com/djmumun
---------------------------------------------
