' Decode Password
Function Decode_Pass(p_str As String) As String
Dim i As Integer
Dim strs As String
For i = 1 To Len(p_str) Step 1
strs = strs + Chr(Asc(Mid(p_str, i, 1)) * 2)
Next i
Decode_Pass = strs
End Function
' UNCODE PASSWORD
Function UnCode_Pass(p_str As String) As String
Dim i As Integer
Dim strs As String
For i = 1 To Len(p_str) Step 1
strs = strs + Chr(Asc(Mid(p_str, i, 1)) / 2)
Next i
UnCode_Pass = strs
End Function
semoga membantu
--aL--
--- alde maybetomorrow <[EMAIL PROTECTED]>
wrote:
> ada yang punya contoh enkripsi dan deskripsi buat
> password saat login ga ??
> mau dong....
>
> thanks...
>
__________________________________
Yahoo! Mail - PC Magazine Editors' Choice 2005
http://mail.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
Fair play? Video games influencing politics. Click and talk back!
http://us.click.yahoo.com/T8sf5C/tzNLAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
