Function DesCodePassword(CodePassword As String) As String
Dim LenPassword, n As Integer
Dim Str, NewCodePassword As String
CodePassword = Trim(CodePassword)
LenPassword = Len(CodePassword)
NewCodePassword = ""
For n = 1 To LenPassword
Str = Mid(CodePassword, n, 1)
NewCodePassword = NewCodePassword + Chr(Asc(Str) + 8)
Next
DesCodePassword = NewCodePassword
End Function
** ตอนเรียกข้อมูลออกมาให้เป็นตัวเดิม **
Code (VB.NET)
Function UnCodePassword(CodePassword As String) As String
Dim LenPassword, n As Integer
Dim Str, NewCodePassword As String
CodePassword = Trim(CodePassword)
LenPassword = Len(CodePassword)
NewCodePassword = ""
For n = 1 To LenPassword
Str = Mid(CodePassword, n, 1)
NewCodePassword = NewCodePassword + Chr(Asc(Str) - 8)
Next
UnCodePassword = NewCodePassword
End Function