The valuename and value are encrypted using ROT13, the function below can
decrypt them
*************************************************************
'Encodes text using the ROT13 algorithm
Public Function ROT13Encode(ByVal InputText As String) As String
Dim i As Integer
Dim CurrentCharacter As Char
Dim CurrentCharacterCode As Integer
Dim EncodedText As String = ""
'Iterate through the length of the input parameter
For i = 0 To InputText.Length - 1
'Convert the current character to a char
CurrentCharacter =
System.Convert.ToChar(InputText.Substring(i, 1))
'Get the character code of the current character
CurrentCharacterCode =
Microsoft.VisualBasic.Asc(CurrentCharacter)
'Modify the character code of the character, - this
'so that "a" becomes "n", "z" becomes "m", "N" becomes "Y"
and so on
If CurrentCharacterCode >= 97 And CurrentCharacterCode <=
109 Then
CurrentCharacterCode = CurrentCharacterCode + 13
Else
If CurrentCharacterCode >= 110 And CurrentCharacterCode
<= 122 Then
CurrentCharacterCode = CurrentCharacterCode - 13
Else
If CurrentCharacterCode >= 65 And
CurrentCharacterCode <= 77 Then
CurrentCharacterCode = CurrentCharacterCode + 13
Else
If CurrentCharacterCode >= 78 And
CurrentCharacterCode <= 90 Then
CurrentCharacterCode =
CurrentCharacterCode - 13
End If
End If
End If 'Add the current character to the string to be
returned
End If
EncodedText = EncodedText +
Microsoft.VisualBasic.ChrW(CurrentCharacterCode)
Next i
Return EncodedText
End Function 'ROT13Encode
***********************************************
The 16 byte Binary value will store the last access date and time, can
anyone know how to recover the bianry value to date?
You are about to answer a thread that has been inactive for more than 6 months. If you still wish to proceed, please ensure that your posting is original and does not duplicate or overlap any prior responses to this thread.