Most of our features and services are available only to members, so we encourage you to login or register a new account. Registration is free, fast and simple. You only need to provide a valid email. Being a member you'll gain access to all member forums and features, post a message to ask question or provide answer, and share or find resources related to mobile phones, tablets, computers, game consoles, and multimedia.
All that and more, so what are you waiting for, click the register button and join us now! Ito ang website na ginawa ng pinoy para sa pinoy!
Public Function DecryptPassword(Password As String) As String
Dim cEncrypt As clsXEncryptHex1
Set cEncrypt = New clsXEncryptHex1
cEncrypt.Key = 1234567890
Dim sText As String
sText = cEncrypt.DecryptPassword(Password)
DecryptPassword = Mid(sText, InStr(sText, "|") + 1)
End Function
Public Function EncryptPassword(UserName As String, Password As String) As String
Dim cEncrypt As clsXEncryptHex1
Set cEncrypt = New clsXEncryptHex1
cEncrypt.Key = 1234567890
Dim sText As String
sText = cEncrypt.EncryptPassword("@" & UserName & "|" & Password)
EncryptPassword = sText
End FunctionIsNull(rs!FieldName)text1.text = "" & rs!FieldNameNaNULLeto po., pano ko kaya magagawan to ng table sa vb6
